From 630720871861e87f7bdfe45d09ef133a6ec96f87 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 28 Nov 2020 17:02:28 +0100
Subject: [PATCH] Extract archive.

---
 build/timestamps.txt                        |  12 +-
 src/librm3/{migspk.urs106 => migspk.urs107} | Bin 2737 -> 3305 bytes
 src/rrs/ar2.migspk                          | Bin 181075 -> 0 bytes
 src/rrs/displa.urs017                       | 852 ++++++++++++++++++++
 src/rrs/hptek.urs001                        | Bin 0 -> 416 bytes
 src/rrs/maprim.urs009                       | 234 ++++++
 src/rrs/mgprim.urs008                       | 408 ++++++++++
 src/rrs/migsmn.urs114                       | 707 ++++++++++++++++
 src/rrs/mtprim.urs010                       | 182 +++++
 src/rrs/mvprim.urs008                       | Bin 0 -> 5882 bytes
 src/rrs/swchar.urs007                       | Bin 0 -> 36161 bytes
 11 files changed, 2393 insertions(+), 2 deletions(-)
 rename src/librm3/{migspk.urs106 => migspk.urs107} (68%)
 delete mode 100644 src/rrs/ar2.migspk
 create mode 100644 src/rrs/displa.urs017
 create mode 100644 src/rrs/hptek.urs001
 create mode 100644 src/rrs/maprim.urs009
 create mode 100644 src/rrs/mgprim.urs008
 create mode 100644 src/rrs/migsmn.urs114
 create mode 100644 src/rrs/mtprim.urs010
 create mode 100644 src/rrs/mvprim.urs008
 create mode 100644 src/rrs/swchar.urs007

diff --git a/build/timestamps.txt b/build/timestamps.txt
index a76c7fb0..a9eacfbf 100644
--- a/build/timestamps.txt
+++ b/build/timestamps.txt
@@ -1091,8 +1091,7 @@ libmax/strmac.4 198106292053.35
 libmax/tprelu.47 198302081951.53
 libmax/transq.87 198305061943.16
 librm3/mghelp.urs000 197512261718.26
-librm3/migspk.urs105 197801240108.46
-librm3/migspk.urs106 197901030428.24
+librm3/migspk.urs107 198211181821.45
 librm4/smcell.urs106 197901030409.35
 lisp/allfil.fasl 197902232324.57
 lisp/backq.fasl 198108200033.42
@@ -1673,14 +1672,23 @@ rms/macros.18 197511040224.09
 rms/palx.143 197204150602.24
 rrs/ar2.migspk 198211190021.46
 rrs/ar9.1 197706070441.38
+rrs/displa.urs017 198207271850.38
+rrs/hptek.urs001 198005282134.20
 rrs/jsys.order 197810181754.50
 rrs/jsys.rsubr 197810162112.06
+rrs/maprim.urs009 197901030025.02
+rrs/mghelp.urs000 197901030025.15
+rrs/mgprim.urs008 197901030025.49
 rrs/migsin.mud 198005290318.31
+rrs/migsmn.urs114 198207271812.03
 rrs/migs.recent 198005292110.13
+rrs/mtprim.urs010 197901030027.24
+rrs/mvprim.urs008 198207231418.08
 rrs/pdump.12 197810192328.16
 rrs/subsys.mud 197811072327.30
 rrs/subsys.order 197811102056.03
 rrs/test.graphs 197709040711.51
+rrs/swchar.urs007 198004050049.48
 rrs/uvbyte.order 198112032117.39
 rrs/uvbyte.rsubr 198112010022.40
 r/ts.r42 198605302320.40
diff --git a/src/librm3/migspk.urs106 b/src/librm3/migspk.urs107
similarity index 68%
rename from src/librm3/migspk.urs106
rename to src/librm3/migspk.urs107
index 8e2df4ea30070342650bcdf7abf949d265a58d46..56e605d9755d0b12252256027d02fc01314cfe6d 100644
GIT binary patch
delta 570
zcmZ`$%SyvQ6g4pw8r+BvP<-5kU=)njP}`z0GNxlX<Vj{4RN@B+?p(U}2j&Z0x>NcK
z{)Jy4`Vmg1Ehy++T+T3O&bf2X>+;9y%cr7L{7bP#UsCN}75d=C&M+NP3}zDM1xZYQ
zS8q0(AZo`uJ%fD&Mpgdem7_=nMLFSjvz}0Tp1l`+Lwi&!#5c7q{-)ii6`8<8e&2A!
z{Zr$5rPi5>19)TClD}(fjglR@NBlwCQL6!8m|L`P%5VW!*{}cs5|W}A*j0{!4RAU}
zW=%Zu5)#q@j&t9Fi>!be?t=w{g6CiwIKJusFco6ro6=&cO92%ajseN{sOVGJ29m@m
zpwhzKgHT?DtnJ!#512eL9I+xx$>l%#+j%{M94U9)PP=DQ_=jqhQ>xs<-^9_v+<_)G
ziS#<ZTiu?Q`AxFpvA#Z(K~2^=4pXm#6y;IOf|%rn(<d~Kk>TVhh){?P2U^hWv_x-r
UTmG)EdpPZ%$5{~h`uvQjZw~f^1ONa4

delta 164
zcmaDUxlwe(Yeq(;$!{3dfusnNx`2|qoq~;zZm3^qu&aWSulwd=CIv=Dg~?NxZGb8+
zG8Z!`g-kxnB0o8mB@HNWhNYHC$rC6LFnKnsE>PekYm}IhhaDFuC#M1!*!X(72Ya~s
x1WaaR7v97n!va(!%LB5`l}B9>Y#r39fFMs_B|A+!E*n=r7bhQoXKy<$9so?FDOLag

diff --git a/src/rrs/ar2.migspk b/src/rrs/ar2.migspk
deleted file mode 100644
index 73c8639362d3e67b8c0dff012ed3f846a454af40..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 181075
zcmeFaYmDUCbsshsX-d<iC^=e^k|headzU*k%kE-VzlU3FvAU|dyLPIpYOAVyx@LAM
zE_a8^f%b)cP-J4~qx~TX5XcB(AV7>D5CS0x^1%rVIB>rBLjVPd5&J`sAb}7FfsF)F
z3>iU4Q*!eAopbKv|ENdLYq?Ynxm{KFdG0yqo_p@O=brnc_y3(=Zd|)|?Ng(Fe(l=t
z{ex%jeEpd}dFIYDpZ+?2Ui(Y<Z~1SDfh7i(7+7LpiGd{smKa!KV2Obx29_9DVql4Z
zB?gulSYqHWFa~~n^B;Y7_0Qk`?>>D8Nci-%XZrU(dgqxtzkKc5%gyKRew!J81$Lxo
z{^*&{zH!ujX840^*M9QaKYZcs-?{x)Km9pmeBsuweCJm`JHQ{yV2xixQ-5{HjBh>j
zrEgxlcJDV^_kNW%egPTo`k(&b-~R0XD1H3oO>642XzFWUWyb%jP5BJ=vA=<|&;5xu
z_59(B`{?7D5t=%Dj~TxyP2FP#`grCA)HwSijN|p!wT}mXr~XwLATnP0r>xP48LaV(
zXzI6D(fQ~8&NKZ>jDt0p@mbi<{$%*fonLwTJl0_6UqVy=?l1o7zxRiq{y;N6#5nxO
z-*|z2d<%cj6f-#T3i^2S2K)G*w8r;65|QycpZU|j^}l|9^_l(w3hn*Iy)R1V=;Pgg
z@++60{m#!zjW@sb<zKkPKG^wtH=g;0%9qv!CHVQve}q=-UwzPM-fo<<-CC<N8gv_L
zhb#4VZ#<m1QG49%b_TB5=yn}5og4PYm;5u~pSx~^thT%CHpXqY;`HCyg=-DnVC=d*
zH@I-8O*c4kqw(M+*BYJT%kabvI?eIn%1ZrwgkDEy&33mtVz=`9taCCt>*420{ixe-
z-gcGxNqg*=?D|LD&S-q->cf72e0cM4Me4fo@N7I8xWTah(xv>J$ltr}vX9;-_`@N!
zq`7>%99Oe{R&07ubAv6{JngyRXzY%<w@2gKZo9?5ogV-8&&T}eHO}~Pd5mJ3#V;#k
zNf_RCL}9bvbLeDrr!#Jzx>8_Pt2#JWGFlnGU@3yhv>fcf2maO3S&K+(j7FW4Uc2>M
zhMz;X*1x@W)96$g_xshOM$6UP!(o32!Ze2CYX71=Bwl?Z-}o(82OGHKe&4Mtnh)LT
zD<pvuYdjcs&eje?t98_<vh?aJC!x^E^g@kLs4=}zXOTh|q0mLHrLiC5q<>!R_D5}w
za7D&7Y`5CSonG4sKXRlbc=$oe^9M>>IkK*+G{)eVv#wif3{OUD?x^3I+;l6~pKZ09
zU02cUi$?dnebY(N%31fOtCM%#y<r=FF%3GslUEO2Me8!_=E`+}i76}BWinMf9nRWk
zNA00o>+~+xT=lGb2p+sZ1u0gk`|OJjpponw&mK3rm|m5eq14zViHFvMTdfKN_&vAt
zt=9C$0|?up&~_{B8oy@s39Q{LgJpVpRWMruzN_3&v5@4oK@C@Lo<dBtos1YPJv=)E
zNYW1Z!6>YCE11@8k0VT+!MM}!HM(oAayhw+>9y(bKfx_XP#KZzwau*^7yg92?Uu{X
zg5@DiGKnTSjh!f7hQOU?CxW7k6aZ2v*sT_JWT2RfKG6kOZZv2&I~+P@xZq2;;t=yy
z$qnH@1ees6A6<RGzFd`mAud)oylnQQ^C+xT1r1d~P(^Q5j%c;+1yWU@T0Ok!qyeIN
zt<~?fMXDQ~ec6hXB`dEr&M$#rldF+)fgLG?r66!K(t<!uP*sWzZ4jjl%@HecMxy_a
zEvd(yOPj029e*8n`wdFM;hCWF@KyZJ<HbXmpq#BF*%8`El}2wOlsIb)j$QrGtqYqf
z@=&#I=^pTBkI#Ee@*yTge}M4-WX~h`Z31Qyz*+UWAzIo2H+W9T;soVXZlPJJ<<TT^
zER!Nk7K;&`f-);4zk$5uCpl8lsDlv+<jG&{4<HbXc0`j>Pq1?v*s-j1=3ZcSx=CiX
z-ql&^(ZuY#z*I`ogh*tcblT)-2pJZMH*HEu8wRbH-<%>48P!Wyow(}Vn>SshEz;T2
zZl<zPfdFd-kpz9}r+Hwtl7U&;oPj}0{1^x3S;|%J*8J?z<r!T3YLJn4Ygjo%rxG$2
zi6|);DW@z|hzti*YT#nF5Bjgx2j^qZzvi}F{j09N#qWo%c1TINs+`Sc0^y-T=kWuj
zw&o@^helLhzU*GEVRmFVJd~Nv>QZgC$iUQ$D4NOpu~_L00(cRFp{&<!qMkabp+lSJ
zg2|UNvnHQe!<q}$!+*dBaZHkF^$K)8k|Jqf^ClETNz;0Fr7BXTnhKX<wX#aAl9Jk0
zsxJe8mrF^AEl{3>mAkIqIlpK(#}GsHZo79fKE)Ug-R2?Jw+tnffFhHvf>nI%q^UQs
zZK!{P8ovkW5*YK}CuDCyZX{){I7SeP--V80LT)TG!>_$zCV5gRQEbjg4;4(6Iw_0x
zNL>B6o6eC~IjoTiT)IZ8ut!m23Kv$(Da$}Csrp7D?PVn(dxf^rsqT|2!jLB9BRfbv
zBA_nHKL*Bzl7vY<f#~yNl%>M|NU#MhAcv<!h{W=<5tJEH!g)o(;m0^l)ycFp6FCW(
z3t%QQKV{Xl9qSrd^K?9Nz5dv>Up}XHzBahPW;7L{V!RM--tX2fsltuWvmb7$eyxST
z&~ekoq*NqMm375MV51hr-W64Dhh+on(J|D{s)CNy!nanoXjtJ&VVsswGA6XA%H}$U
z>l@F^rDN_$z_cD|0La-Emw3_4I=|}NJs!ePkThz_t)BtNUKJi!xnLtp2?xVb1+Du2
zN|Eg<$u66N2$;v@*h~0q<@$Q>yxUEdRv4uot@+)V&5OZH1pnP+5L4ui;=ndJd7<N}
zF>|cYB)o1J#ZGb1Vtpf2S(u8G{m~)XR*2>xsX4&v*majfH#u?>nm|0g)6|F6*Jm)t
z4#30K6&+X6a}{0B!W%7@l|}+xLs6D&sUw+6IW=a_0Lrhd4Y!ZQbL<YFX_SHmHb3!(
zMQ_jBtZwQ*+90;&hbu|*rmqusyL;X`X|Hbhjrcv7qh4J5E&p#Vs-fsk48fI*9i$tZ
z2WE6Vs{o;)`<Mz82T+pKaZ)xx?n0zDG-l*8H|VK=p0(#TE9p`Hyax+uC>hnNdSfu?
zPTcxv3?|JnODrW837svrPTSO>D2g;Pt)Ws^BLbR(QscivQu^<cqvSg++?lnElyVu%
zlv#{avU?sgJBr$>qsfF;Cz_~}6s&x?6f<KdWysEA+D_8cxSeTgG=S}WT}<$#FtJcU
z8W6}d3Y?I3SJNmMEp2#$x-{0ONvKNGeN1Y02X5WW>8YZu1J%)?bRa;{qLH_QWehlq
zj70pVyv3QGDQ$={Of1kXmSv|Ze9>-1{7&hZ3v#C8ht*buKtd7xfeplLGls3oh%~?-
z7_tFrz#>hX!L($XW1VIgvMjfR2ZqB1?TDB;^%jnqU<T2OS=EM{jLgh&G%*fBsvhxF
zIhITsn&Z$iY1rU#q#;cXgQ^^7NFsls6h@7tyoR7)s_IzKrItK5TbnfTO4VHUlxkJ4
ztNmT=%cQlRt9k~dEV0H)4YeFYqZcwzsRw5a&an_{DV?n$u?~Gho7FSAn1PkvGE_pu
z9Nmm*b2~gyQ9&0AU=U51e7$mNXM8b#Y`L7iht5O+vxn_L8x>_2>C{x~^&0kqsV>_J
ziUgfg8H1!*>Y+-D1;!)E>$+;IH`z%sOWQA+qM!^4FqLp_p2MJsZ6XlE@o5f41P3Jr
zjecSdux1Y3Mq;1wHZdOjyey_HHhU=4Av(~T0q(bJogPlwIyfmFwwvd}5$)Kprepa9
z=GRzU%M+MDT%RZ~$1*8Xc=VW9p;1jCv8@JwxUFPA4b2KIdCudG0hVTu0zs3{GbD6z
zq=_P1>6lv3KU`hrfc7UXcovY7(goWUS&>aLR+LS?f>M!b0^s`tr~qE~Xybgf{}MJ*
z%BviUZkucXS_{0Nt3|msrxNCcRPxH*oZ`FLJ_hg@C_ulLEpyuJ59EL&1MGgbP^*C{
z4NWKTiw^0aq*PsrX!y#Q0&p7I=yqD9WV7FDr(%PG!<!%L?X$sn0t;7WW+dD&Km(Ea
zJRdMM5HU>*5+$$`i;_wr5^@cz%0O_^HayQH$;0;eeAt8NlOr>zfa$)KBCs+(#qlxE
z?3=fNIWJoz6(@zg33M;Xv*Tw|mML`nvR#z|FkNa>t5r?N=$jmjH55Bpuwmm^Z8b9j
zld7;!3`Gj6x{6<C6q#d?h$?C_EGy`xrfDHLV~o~Ml_;~9QpobZy8X^5G07SvJ)>7o
zo00>u(8laGGwPb(r`U;;X@I1HNf%>DEHZ))90vp-{P9snh$ws_=yl9s90GlB$G*7m
z<zCJ234K=FhCO1+&qm9y$|;YMJXsY=kh|^i6}~(+<UTG`hITkANEy$_(Euzd8LJ*x
z4gb9SxP%^oX(ee^+mwzpNp%-LoiG(7(}Y^?r!SS8blR<;S?7CQPrhOCU#&7l&SZ21
zVPY&cBC}J*F$FtiW(*4nhXhQWYOa3v!uHmP8X*ivnwDr50(!)}708HG(Hm4RG$)NH
zS-Ea_Ax8;Qq8jFo<jl(hvZd4#WwOUBjGm<8*_KL55ySUzCYd=FhZq9_yqKa=PA`u*
zJa4VqZUM8}wlBOHmsnA#G+XG6&b@Y1rrJbBpi-~RXa&HUj#SzTX)Pet#c)+cuT^;S
zt$OnT7vU^W$WHnWE@Sk#%4-%#;C_VMA${ZyXiTnWaG=LF9D7vc5^ZMgSkqb&^d~qr
zkst-19og`3;ilCntlQHTZ8d5rbLl=Ky9lPHI<%Q`<U-RkvSMWn(dA{$?8P}q5x<@C
zOm8c5%ojNnewI1NEZAj69}qn<9cm6g$wbahz+@v~6WK3Q#)qN+NEQ_U`I1?qv{tag
z`Z5`nVDU0xwRyyLits$mma$YO6vkE%?#&e2oZN~Fss;K@=P)uozNrdGR`~MR@cp=O
z5ZakOP#|EIquH41D8}h^gmFiHU$1YfSKMN=PUP)%Kjm~m(suol0ns2kV9s7M6OC(!
z*b37Gp_cL_S=(D1-R=zF(d=b8Y$4|Np;|?COy?WZC!~s7gKsixC`n0bHCD_*0Se`i
zz!W?EWarlxLxK&M76&wt>JpgSNRb7>03*<(j4dYgs%D+)7%CE-iNq>3%%~P>j8NTz
zn@V)&i6%A>zY`IGvxt5njRd8jxN{NXkXrOu^pM*u7=T2L@fZf6Slqlx1_#0~Tx`S0
z!Sb245NFz%!RUF@VBEk>f+OG9?Bl1Bv!_b&;Hff6Pn|-`>Uuf=!_>#;16*q0nY-8t
z00Y@jegbm&8P@*FU<^&9P~#|D13zPpqfPhho&K=pUa<2z`FMfMLE2Z2Y9;x#G{3BY
ztxSQk5<A%vB}HnRu}Bk$pe2O^CU<7eO5<Rf7`-nB<m8JbENG;}$~R5h^t5n5D(+s4
zw@_9wOWc#UVhKAU9OKxyaFPK81BXX7er)QWO^5L`(I62YTgm9hfECJ_+HKK)B@z~%
z-r|@QrW0hMw8TOMAj3I*lyZI+2M?<%V5~Ob`X|y&f5Aj)EC4R>%59f-6F7f>5|kGH
z;}=QU@+sM>IqOkqv{Db&c=kwtFPwY>G1Vp-KwG(r1jj?psqTRe4eEkO_P|hbsn%>h
zl~X@cRt(ZWHQ3EYnYQF}!DTk|LN0m5SI*)=Dl^;HF3t8`kEi5nW#(oKiHZ<(tXKrY
z5ea3`0R=L#xBM5ACF=i4x-vr-r25xf{RLOwu;B&*Ys*>+xtwPKU0VG*D+vZ!$)gfv
zEdz-N<DB9#bePK!J;sfgIbm4Jr)7=!;XKxH4HMV}Ee|=aVfnbyfz2Noe72M>D*Qn(
z!)qDA3b<GBIhR2&tV4l=6M_j-r&LyYDKkhpJ+Uz^7Mj6Dpp<41b&+cLF^?Y~=jfny
z`T2R3(Q&=QzmhSI{dA+UG<z)~%7VkRtVLKqa3?W175RH5%qv@4vFc^kse(k03x+mf
z%SLuBNjkI@i3^IUZ#Y3x-hq0AITsp~9h^3bZ78Mj6c}qS2+<W^xZ9VuH++cpw%8u(
zr2q;A0U#Lc>HzK(0SxUW*I*VMFjNr*P%)BFSPgKM23L5aY{MNT1k@a_>@H+T2*a(g
zsj#ch7%dZOQugl%K^r2Nl`6U#HXKi)i|LsENIy!;%YL0(^?SSv0I?4d!t0Ruz!XQi
z%nhUikxa)4TsEB@A^lc99VdIz4m-33Alm~P%(i4b;QTI|ZarW@$YuC0@LAr4_FWtV
zPXEfgD2&>7p~Dt@WJjTW7rVgGVR;vYVf!w0+-Vo+w3HMmSxO2FtCSRgWeO>*hXPF2
zLxB|5Ly;7|iy|qkivlUEivlTp7X?!IE{deEE()ZuE()aZT@;4xyU=l`qyT%Dl7g5h
zrA5u=QDI)xjLmDsiD8`-!1A3G$l*IF(j)XzB#8A=Ac*g!K#|Z(fh3`qB2BE90!@4`
z1)_vrio^F9E0TpsET;=PE~kqzOOY<dEhTjEy%Zs{UW$aVUP=h#yD1XJcT=Q{byK8_
z@1{r@-%XJ+z8eJ~kz6(Frbrs!O%VaU8^wUkm{(uLDrGuC&TM&=b&2Lo{#Uv#$x3Bx
zq2rJg;|9f3I(=<2D*S0>MNe8;M_*D|$&yyqL8q0KtJ2DbQzeiTHDo4W8xo6PTjd07
ztDJysm5X3o<pgZ2oPceWi(mtmIIje3bikAZY@6amu&r_ewpC8Rw#r4Yt#SgkRZhUR
z$_6$VF4ex(xK}xYZPZk=Gj{>6*NMAGZ$X^#w&fKSv$I$wqn3Goht&loa%U-GH=?&{
z=GfG$hDl+uFDFL<l>oJxo)hIS*ifL1U>ohP$6e5X0<@n&!vhm~l~DZ}*ARFDN44!c
zt}}*flAy^v8ohltsFZ9V*5~#Iu$X%|RYP=?&!2>R08o;T>xO1P2WgA>xUhrtOuv<=
zX`Nw5a3L4gFeYlL;3P?tJ8PB(c91kW+j8u6N;-+IaNSxWYVs|CtqLtsZ0DK+-)EYV
zrgK1nb&E{_Te+qLcCqCtf%1ntkBaJrP$^iHL17TQ+$g{ka|K-G5bo-jkibRORIWjI
zDwpw!S!yTe)!0j(7~sM%zXaa0TLOW(kjX2XfthfrmcIk@@TzjUQTEr6G3_#L1EB-E
z{gih!_tS470gy~QfbV_qlz8g#BpawIeNeIonVECN=|8FnwepZP?>=nJa45$H%Gd0B
zVGX|0(5^I^07g!VYd9zH6Rw#DVx}wwP6`P9+2p5yn#V%ofUGODHXQ<G2&HsYcra6T
z9zSIYF9_N6Iw>%rRF0n{QdlLu+XpYF-0hPmArxTS8sWG>mL%9<!&qUc>GYT(IU%_~
z9AAtXX<O54OwS3pDfBYEP9`VQz&skK&@MRgM;vSbuSok#oRUFG_@n4Yr#<av^l^2m
zw}p%JrOZljH|s}4l$hy5t&~M();CUKmuXv}p)0@=P{=xT*9b;!iMRK}kT@0Y$P%+q
zkO6!8xTmpUuIZ`3Om8`plYvH&m<ImCcZ+s-xbiv1Kiu$95D{l`#YZrV5fM)Z<MwR^
ztul?n0wW?Bmsj}r_&CY5z*d@DG5zWSGoC6juJPa7+IQOru2$Q1JGbz$<#rC-0nR7)
z-OiS~weR-!>^sh_LpA3Pc2-}d=4C+mnZyl`k0N4wA`4q%1-(y;Tko7Pz$0}3(1^e6
z=8Gn<A0N8_d=_ZJZa@<vM7(>FAf?0tnGm+}FaJ&?*Gi-k9GoQxVG_5J_g@$>a)d?@
z{;<&-xiiEzL}bdw9mGn*q57cT>5Uz)v3TMRy8ZEmlfSLeZRg`r^3ttF#mtARoFASt
z#GiDoaWv|8&&TbJL4VX?5U(@}WG2$3zmHuAb{Q@yr&U9g%y|JMbIs!P2NDMR%M&M8
za5nw#BBbsH0*xS0PN*Qm+Ssk(MwB%n7b$(piH1RpgJ%a=^69}5gc^D#k+N6H9h;C%
zh<r(w4aO{(y3sK0fgAe3l9hlh)bn>ae84r^br&vw;{?@T`sT&ZOB{wFL}Q$L;>{#D
zlfl^`I=B9kC|J-$gv-h9(gHVD*2Jl0O+xl1BP8?yRXtvk`5gR7=oyOgg;~vtnAm<s
z`#6Tm_1uI7oTN%T{F;-SCjN}Hz@;!f<rx<+=)A8mEW)}FHzr}*fNd;LC-=GINp+=#
zohWncT6da*Jt)q|Tday*UZF#vGPaNXDa*1k*c4`$y*zdFs6ZjMe(1K<#ao0{r9~$S
zI8B6H7&lPrl%+Bqrj39dvW-mAM!1=0BNJ;Rp)MnTv@TtXe{1-_f9Q%ZuyhN}kRU*)
z%#%Q|N@0Lt5iwkeZ7bsw<#lMuzPH2qra{ca5vI@(tXD)iI7iRliv@sR0Ez-M2kqg+
z^98ulpbldf#Di@lz&}cy66H!B1O=CwP=)S(7#oZ~7;z>?+RryOncEnU#KtD4Ji!j~
zM8vz89Q^!BO^!3g2Ll48(=KbzNX>%NWJ;u$5y8*Zxq=4Kk~MM*g2a*QbU~#XE2X0s
zF!lvP1(CyKE#HPq8jzWv^s>Hv^00sahf}Z+#O7*U1zG_m;FnTV$SPmC+;o#o3x`+A
z7%?AQFvXDdF))bdgs>tZ6krvDsbVxf<Xw(sVwHq-Ff(mI0-9opfYxnBCCp%!?u8UC
zwEwxyRm|+|Qv9j{^~vKkI0u#TT0~BQzJQAbk%#i|<xunibF&dhoji>}HBGueEO>c4
zU1J%XWW`6IFtoHXNuk>AeDcX^Vz%01=)pwX1^iVWeYz|*;whpt0OFBG7j^p2i^hdX
zU_!Qzn`2Nwfr2V-55e$Volw)$Y`@9Ug+rHAxx?gFRW0Vbh^IpSKnUtaI2?l9j@{ap
zNk4pS1g(_|Wyk%99urv|zul6bx<JsVkDl-$0U9%n+mE<n1k7ZL)dQ;pNszV*E{=jD
zTM<gHgYKr6(=KNggW9IWrh}Qgr<&<1b7{5hCT$^91|NZ9l1=TWSSGJKo8+rrVskuc
z%Ssa1Bkf<!oN0=D2hOLUR2OMTPE5*Bq#_qsgcEf_ktwEdVYaU@HrWN)Y)tkD9I4iL
zc!s<hD;j(YFyVCedkDr8|G`--Ck19Pn`eQ5F&)WF1`FsfXD#2Px3kRWsscZiaFXFI
z&qLVZW_czGE*ptGLNIZ>6IpH`S~82^>SJJ*C(kQ~u57s%TTB1a^(WrkrQBjx%Hrm)
zxV1JRgY}Zzc(mnr_}WtDFOQK~C~o#M+4=*WUeelx;BY?I&oqG)Ys-ZBR)``!6toHp
z?2moZzDA<5#D1r3fn^~KolYx-jVx9I-;r>YfUUL#E{yp+pa&&%(GGcG9p1VXDrlx`
zrgLe?kqvqMtdI8>q(53NN=hYr^}<#iW=`LK(iP1nQ=41}n2DHCa%~gj1en5Be>O1M
zq{9&7u0L37MUlm00nO7!4~**hDD3-ZtFgXfv=p+PUOREsFWg=ABUwcCGZfEVVqtgo
zk<RcwOcP8pYIZtq>lO?i1|xI^&tN%wvI=!^-BJBb=cnvQL_gGcin1H1k9v(E-kd->
zI49dst}iVJ7N1iPHuwlJ%o7EOv&(jg?DewID@^5Ua=3{Mr44#uQ1o!0R-e(p0_hdQ
zv;_$_DOsL57z8m!FX3|-!aYSMP(>1rLRm`&35!h}q?GY=)(v%5t<*fO{PvB?W41x8
z^|8U^$&_H^QmVlx2d@<Qb`sMqe04;sh$YF`VRX{VOgcP>ku}ztSjY9RZvPHi@Z#id
z*3x;}L7qwl%}Hk2T}o-Z28OPr4U`qsx(eXD31DR|p+a`JB1p`t$a)w&nt+X~ifRSq
zXz422_9f(@GXJU<ANY!Ad!NEV(O=$Qo)+=FvE^wIJwU^B@q(NyLQH%l+Y4^`E>DZ(
zVWQ$95yi{$w1~$%@yKa;T7;L!mZwGbv>R8)<!RAESXiDG%?(<=JT1!je8hD=v-@9Q
z#{C63Ez*6>+AlZPaF`J65X+;Z<<SujDY2UmGsw2M`Vm=Wd2|$ghB7EBnEI35f2N@Q
zm}2%{9vx+n^$?6F2B)kID$}I+@WJ3b{hTr}Fr_t9Ba_;sXn`^-kGD1Dj8&E!Y*x#o
zBYnNCaOCZ0h4^HsS#!!^_s{$}qi4S-$1BUDBRM93QJ99|{K-hp5!Z`=X@^3>tl<D;
zTB+sH5%8Ej$66j8`3GSWkDBGtQ5(;=z}JcA0`xn|F4SH&dNs9tO<o=yEsu`$aB0@j
z(WgFzt46={YvqSWC#UW105`(yCK%o{LR|b)SvHshZ+YQPO}SC2tev!bYcKL|dx#f<
za0#b5><q+K-amF{=dBiE&7KS!gVRoPv=)|&u()6qkv_1y@M-c{S<|{`dvw|#;=wF=
zM+wIm2wsafmRjwSj`HpE2E~-t8{ICNrda?F?2b>{?#^i+kRs+?x3wk#Bc@aww})q)
z9<;d^*Kl9z7>};H<3<yWG~l~Bb|btA)E=P)1VEV5LbEe$cJYJ{BTe`sc9^-Qm$4>j
z{Iq|^jr)#wvIw4K@FB-Rr`sN)`c_guhda8-qXYs__zv;~5Ludj_9%qt3{wiVyPd&^
zMG%!?N|EDUb9{ml2#_(Q1l`n8fN?LTlsMZa#u=n(dI9(ipvZJ`o^@Ut;CW<;%Q3AL
zJkE92xMZQ}wBaoamY9y(v+=Og=$!}wYts?Ti+5}&!LFw<o)T;jXInFB%RT|sr(@oG
zhOm?A*cT^u_B9>-yh6wl)A2t#zMKqLWIF!EA%H~?ykrXgvBP13h<o~Rg_C~~F0P_-
zMOuggK~B}jZcRdQv*2^Ca_6)?Y`YuJ-EbY9zmNy+c6;J*ah3CBJmy1>{ozVOyrLb1
zkvs&&!gz*>t*~a}qS5I#x<_r6U3U!9zHxjGrp5)vjYIT<wpQdJM>NoIKI^6w)p)|s
zahi794cxwDt5pb3KiTRK77#JB5`08viSg*``OiZAkYV=B-%2_QdDI>d4r?G_W4GUE
z(LLK|`%e+$M_?W}zLaI#S&ha4cB^Z++T^R|K0SG|I7K)h;#7!n-0#Bw0WW%$fNPCS
z9jedw&M&#nvp<7c1h4nVKiM*cU-P=oSMW|A8vj}_SlmnHD^2;m#`OHMHKlAOxqbpF
zd(U*Zyi6lbrc%idtS4vf-uPjwBia*~YYwWbGOJ;DZ=5tby{V;rcxEu$5QQyTH)35v
zPUIn<N;A*a2pWV7MGa?tm$YCEPWLwS;a#7?dpJPKZ~|wwLe~OHrH<!sq?%1}V+s*|
z(<&hVHJ@6<ThXz*ULO}DkNfcS8c*%aRpjDfIV9L!=A}#yS)O0fv4RIP$dtCUBdbtA
z#i95n`un$n;R;2rkT=(&`Q0A5XOA1*QJZ&+vtX@3X<Bm)1Z?u@{&?6Z64EU{Y=M0F
z%x9SSyzmm+%#=xf_`VqSokO4)O#N7sqGew_m&vPM)G|@G$YNzRk*3oC%!znY(^$pW
zHsO3Q8&*rocHx&Bm9-UFm(xymH*O_AvEGf`oemUKTm)*JH``bhM(0CltB4K&1tX8(
zq^f+q(;1(-(@v|^hT9uM3P2w`t2&UUjW};uJ?Awrg3zzdD^%A}Fue4sgZ~I_3(G1C
zpc`lNDjUeSd4sFPw_()kw&#-Jvb&C+8qgl7Cjdm*TAX%HPBF@}&Uo&yv{UFA1#j&<
z1}EKh4CirlmGf%PcZ7##skC@q$SW)ypjTNILnTxh=tAU<al18_b|jH#Q9;M*%hnGY
z!N%}pF+>I(!L+V<aFW)h@;ytfPBh$+8?=YQq;p{=>PCH`J%_0i1Z%+<OOtEN>z%d7
z{V@iJuB(Iv_u=`WU@TOfySesp<Gd^M+S^>`9<MQS$B3V}NCP%v)Ig|>QHP4wQM=hd
zD~r?~o<l+I;7Rk7KEOU7;LY~o1Y1}*3vzIC{)tQ=TP3)ki*ioQj_BVc9io!>HGx!E
zq*rXLdB<NM28TAnWS`qLC4y&{bXIt2u}JSur5(BzGl=XYM7Lc~JXLPoIIi8e;qb8~
zALv{^JHs0{=C4&k65>4J8tj>!Vr4E0VCj(A=o-gR6ol~;Ow2=o7at<U;_PPBnfbIE
z0z@tx1~{k>JBbk!bX=f?olO`H#HQjHW0a!w95Ja*sw->wAF+`6SIhj81uzU?+_(*f
zhgR5gM-$hZH*h@GJH$B&%}y=O6cXSnt0yZK7f-e#E;@6Cqp?}L+opa#a<GD(cUzRs
z$HV?y&fDasbO*0wsM&1XK4}j}b6KT**`RrC9%@7jX}FF|2Ur&B;oH2LLLQ!m@G%dG
zFDn7Ycz<}l{!}Nqu~~i2(;i|a`B&T6N`49LZJii3AnqV8QGeYXL69uKcm<I|Nm3Oq
zm^a8#TecQh0V#Q|I%oVO_mb-hGo1(mPO$5lCvrG>P*iX6daP}3?D((v%uXIrBh3am
zZ~WwOk3KOALzUo^6X@nuhQ)x-d&}rmHGs7Sa}lCzF8i`$k3L}jDwqq%m?^6dh4WU_
zfScedd`%Gu6n^i)2kwpcU;Et;+-vUj2k*cB)_wQ84?g_fJRF4PoO}KLJ0ISE-~C|y
zhwim^-f-`~_Qr#cK5*|}p#@fZ&%O8H-FH6xz&&`!J^1hnmFqTC4Jc6^;+?L;>WW}N
zBC#Zp#;@r#WNLzj@4o-;+wOP2cmMtS?!)ihzXBlNx&PYR4%qzgT~>6jzx(d{Z#;Mh
z$ob$3jlB8b`}f~r6NJ600n^_8=z|a4cdi1;>#x1_*8Mk72ZNDexbHrAAC0ilD**GI
z`>((D(FgZI5BI@+kcPwh;PrRkL&`f>Xa*F0^ZnP}``&}sKX7lq`^NpM;b-FtZ3JAp
z55D*AM{jX#<dmyX=>6B;dGo$|_q%S>ZQugd=GM*?AgBvBRe#{BKg2GV(n-%AB2$HL
zyWyLCiQ8Oh1Pi>@y+Ze*)nZHA#7YYl2@>aW9XE4(tt+%KYM*sB8ke0Bl?+*SkJhod
zz!n<UIr%RS_w?TbH-PzhJb%4Tny4GXY^K8S1#1sp*c4>SDNRy1e%;>Ki$C~HChPA$
zc<U|q-dpc}D9j}M1<GDw1Q1p~bl?5xo!38v+#yrE`_6s${ny@q@SV5r&lTe-K$sl@
z%xfQg`0mCBn0oi!NAJ9K|AP<Q58wUhDgb?WA45WG?{HA>UI~V}qObacw_NoH-*eUP
zy6Ok7<NNpC!?dlwH`m~hj_14YzVGh;;I+5kd+RD9$JO7s|6PbX_gdu#h<Si5CuYhI
z4xtI9ZO{2`!`R?+g6ps0Y=elsN(0If0s@EegKwZI2-Dh?+Ti-<NKFX4*WP;Y&YM>v
z1ws$;z|q+tT;%|YB>r1)6Xh{fsp5QZ_a>y&rs08naiwu6FA@)AM4e`0B=db_KC^m3
zxpKwGoeS9?tYztqdjWU3xsIq=Q1~xv>j-I{>3Qalb!tq_KHdz)iS`(RD{L~Z&<M;X
zYz8q%;Yp2Mi$Fs8e-+9i<{$Qnxd31$y>Q&lgWHmkWVd@cl@%HwOd`}g7axppSJj<#
zE@1O)z%<fC5Ko*6F5ZIdiLjLD=>?a9@tr<aB-zDXv6*0O5e%H4U2R1I$~tGLq}xqB
z0LA80hI9qez!O=~4;#0#xkMr?p@u{B#Ppvm%q*;%=c6`^g}SR<7!N6L3Q?-G#o$1p
zzi<<@n3F%%hyZ5w&L|7FfD7ZOj&mApM9$%)g)Mj!MisJF8(WmQ+vR{0RXa12g+CSs
zB*jK<YkMW-6IbAISS^}@k(AyF0nE&o&CD+$DI9&M<S0^yZOjw|`^^-a@q@K!)TxR+
z$K(x3%k~y-MTw~%H+={W+j2hyJzz`1MgV4|(fIuMc=36G=*%ZLYY_EHTro<=Trweo
zJxWhz7C46qEmM-{{DoP8=I#;Qj(DcJnDJH`YB!pvt`B4nWiHwLT*w#~06Fg9Re6gr
zEe0~IU0{f-H3F;oxT@d_FD2Z)I3EO~SYZ`fxD9|UtCawepm^a1yihQUomiVR-rd4Y
zh(+xZ0skRFx82UGSJ3RF>crhc+;WHb<$G7EtDLKn;5pM`<ai;FI{lL2=D6*WV-&n&
zF9F9J3mqe9tJq|zMeSioA9WQRhzjkZ2C^{T$+K5fRq8rUlb+nFV#_EVfh&R%2xcB&
zi?7gF{D{Ql2uX)2LK`-|tZ=HdVVCDkM0g%z!zsQ^<REJ-XYNKJ$XO}g7~LMNup!oi
z*hKKhP*?;h)+tD2(ZwijgYymJlnim|4omQgCaPVo;ov(3s}8fPLKzRlO11D0{#5>7
zW7rZo)H&-mnr`I;{%t4Yovq5CHK^4#YMVE4xY}sx9(d4cj?ahfqkjMP3c#~}czj?y
z?Dr6(W^Ju>hkRD;R8Oj-YQg<cN>hl*=}wP_xYYI<JPgabN`gODh&hpWB6YEP)4LML
zK^+{4^kL$Mkr8%Bo5P@F50nvCv0?k=^Ue^cV)>Q!^CMgKA-j0IjtxE=zk%~=XsKhY
zWIX23W5v<=U_jqh!O&<O#}_UBg<Zjqya}CKJVtdQ6hR+(kI&Zn${qO7qPI4q{i6$T
z8jtO0t{`Xw2vpcFc(%u7j7i>ERLl`@0%*2JBQ6|mtQ%qUO?ZfrUyVera@GWE-dtb7
zvmC-;r|q+KePf^-e^c!1!(3<xUIC-?BW-{SDj*XS6KVYw;<eQtj8Aop(maL*Lk%=3
z3S59RK7}Fy%HgbI1ltD>kkNq<i|Q5}Q3vf7T58dk;U(y>Xd3A6wc9N{rv?o{%UPr5
zi##ni9FATzuVm=8Sb%gUC=FM*k`B*h*2;PYYclsG#Fd{D_yKff52FCbrA^@*lN+E@
zI#+r0DbuxqlTWskC$g$SXN`%wBSrf1cu;GFpkh;ob5FWY3p{wJ0j0omib}6bj39ap
zC}M;ReOu;)xFqw?jJg6cj@sgqv9jW8`kBb%djFjOdMEB60emI}g8%Lk>9DdQbPZX~
z?UAmcS|L$HW9U>^j(a1mQ!&=NN%YK?-Bi56Ub73;wOKjktRV93O}?xKgIM=AygQHj
ztqBa2bF4N}mu!q}Af6?FtmV{00tvYA@u|WAYLJIH&F1=42&Z96$Tkv$1Ix%J7VcrP
zjF6Vf^s`aGc4Xs6iH5<q;4{xv3W9?N@omFA1~j{!EfR4%otTiK@O(g%s4K2rvANkz
zq5Rf7ml8HjG7-_kbDemKM5G*b8@<~LVK7kHgbXDRu+eGx3km%r%8=RcV&HxFRlp33
zC3_&A{u7RsdxfBOj{0YFI9Ar|bZzKCc4O_JEZ{KdilME}W9x=YYDmp<NLVNX6w~Wo
zy3iezrtjf!p0z?`k$Ht3VZns|9(|X=r9(&uh)7`%ENQdR6Ndy@BnzmF2hNDMA+I(l
zTo0dH2NFTk*)3&csmwSk7V@NL3r-UhgIGAxs5`uI1Df#)1!y8@V9%T?Y0`5`FK<+K
zQj*Mu3)HDgS2Ex08<*JZpN%Lx=4=xe6&^~$*+8i9uq9(b<_~~UT9BIJoiEVir!5p*
zYvy*Xuf+fc;R!OFAP;9FXxX1^Q+1?RPX5iH2#Zqm2ZaHr>d~??8zK>frtOD04guE?
zgACbFCdC}`)CJlCQD=9(5KV1Co83}eN@QJ-F+r6nVC1wh=lJQU%~NsL#+efq2a!!G
zPB@{AV<O>Z10`(Hf`BBUi60QvVIy+~cN#$IX^h15=J}B86y%6rrhp1=OyW1j93oUJ
zPbT@MQk~+VC$O4dsV38{R+n1QOF&ncQTfOfd3b$=E*#urWmp?bG-`K`t2ET9!qvhV
znyFM6l(fW#sUK1N0ZSrDs8R*?UVr(V?ydL@oi=m{>JSO^OE51*l)yX+M&90vt|)&0
z5cgc%o>9phV)0v%U<nlq&^Psk=v(@DB;Is}cQ9*iTTQq&%bI?3YE@iFvZtPJa>odu
zIWjTVtWeX&t?$IhkA+<UlRXLS2ih41Zrf8JGGInW%w@O@72jhH$VAc>oY4rTlnz+)
z%VZauKCXB4v6dHZS2xI=*qj_vnOM=Sj9>42NtbAPyCuvNY2ii_sIuaAdIUQpdd5q2
z{j>hbq}S=6k5&>}LY2Uq4Ie||Zo@N?!rgE~aJZES^YRRynVmtm1E%$}%2%T&3cbSY
zlF<-O!(&f#Yo^kvg5Vb~oZZ9}3hZLC@iC~``g(1YwOeijbd-NtC0oYI9UEoKLUK`?
zwi9GLbsak?`G#U34>8<3KRbdPf*d}_qK`C)VH%iCP~%ak&OG0p>SV#ju#=qM*xdyi
zySqSRu7Vq)y8dBP1Y`G2S*|d2zx?3|>2JW+!M*7`4X$(2gQ*$iC<`%Zj4CU-k&Z~N
zMVjWfPEvGXifY3PQdB%19Ae!<Y=psaSl9*ASs7@kUd~xt1@*}={UG7XKzqX7I7SDx
zE%}$_T~XW2{@{0sYV8NZ&E`wMj|Fiin00}KFXtuz6u(x3KfT=dB-MtERtFY}D&z*n
zV*KClb>|#0%1B_=P#NksC3uMsGKOf)Faru_&N_=|lIA$Ab+rtLK|J}nW5@Lq>EKaD
zFQlBL2rI%EBwqklx!tZwQ*MCY=21$a#mhC1Kr1m7(jF=oSIE!kyoUolY`o0j6-GG%
z)Q3FhX_l^faUroKX9e_@ZJXR0fyC>!kKr@aAL8n}ucR_Um#mA<NbHfAPjHsS!pW$H
zaZwp!Z>fw`*<9bexsJauMQ`H^KQiApxt18L@VDU8pg4Sb@x~3@BX6inw|0Ev#&auX
z{lGd!%Lo2n$8EE~>U#FKNe^5ki^o)L2l57g4)rI$roXl9;R?GmQ=#%5)kN|yIudQ@
zRJ2(94AX@hU1k$;LEZ_Bvae!RT^F5Q_;KLBLk`NTuFwk%-R75NgfSemoq&`rAVs0V
zwY~Czi`Fk)f+Z!^_jVOS-M!`Z`0QK`4j704${Bpd0eTNNGcseAPQswcJ7`#kt^D3X
zOgYHS6Ra5AN0aNgCdzDQ@u?%S9VeP2D#TJN+jCq#Ff|HD%?y2eC9_pdEQZ)EqYYXH
zgxOE}eMm1^pMxDSVVI_|3)HxTU7F`mn>Kdg)Mx+UL;f$M!p4jF4LJJiys|kY5Gt2~
zA%)mY!lI_<vH|&0BA##`?`tkY9g$f{;!c5NeB6j6Q~b+(7T6*kO!Vk7x3lZXW675y
z19~8qC@;3=m(eMM{hh#gAlaZ4h5m{+yp;xE_!n?YXJae7{a3+tRFo_6XsWcJLw}9f
zXMxhXBRqM)623^G72W&d;RT%ocxjZ+#HXS>`EGN9{$^+x%OP$};!TekHLP+{BRoZ)
zv|I8OQKR9E1-Ma_u?nO=(6|VkzqyH<v~u(bs5lBdm<hP#X02Tu9^-Z;>VyCEs9xDn
zsFa`VU>jWar5OU7!W-Bdb~~8&ov~0_kN6q0p#*N{b~X-@^b$2DT)vd3dDj{J;j9fX
znsUuf77pypJPl%GJ-gEfwIS7JLf}0tjS@%#WAEZW+?woTi_-|MN@+s@!0NzN#hs-(
zYNFQV1XB|MhmuCon5i{5DY(N$j&~w$dCQiB7_-5&5jsH^R;#Q-jdv=!1BRLd89@ly
z-*sx4l!P>|^9&T(mO@j@DBBgcuD0_Q`30H7Q)k%2*hZ!--3t6_%<UFTt%*Kc&6Jf8
z5CkG_VeE1prvFj4UEiOekM{+KeX~(e$%b-xvYu(1rfezujT<*cjS*xYV@Xh#Zgj^C
z8jpWUKv8y8Q>U6jrAT(*Hn8j7k!#es3mt_@BrMRf7tzsN_g$eUJXVaJ^6eUPNuNjX
z{h*=<TEOl>yn^2|%?S_Vl)8<Zf$MVl33e1YT^wF0+_KW~Jk^i!#*JR=Sj+Iz6zbt%
zm3EWH`MA#^5=~-x5m;!bGUGE&5W$h6D8NvmO_<l59)<*GID=h_2-<L{(Zg)5I`T6(
z`YO%fjd%W2oug@Yt+Y7<0$Uy_V$*HY?NzrO#TtYmq{|wkn8b_OW4tI2?^OJM(;<q?
zE{?%=+&)D9EphFj<0>+w0K(bSw*9=<Daz~}^={QhV9=@Uui}Z`-18rw`V?OP`GvnU
zC5RJ^^N6)!L7aH%t}ny4#yF>JH!<17iEE%AV+V=X05R}|$DL=5;q8I^9S6C@V+=-$
z@$kwbiDQx80DDCqQ;7?i9^}c~#7pzy5CWC4H9mremOO_(7LC|9GCsmYQlpFmWB?eZ
zLT5pc2*3OsiRv|C><}n<`f5Cs>HcjLnD#_H*0(+vfR*@2d*OK>9O>fR)(uW4SmjF}
z5s@GpWDVG=a2Uixxx>&h(nes)$M*h+-m1$#R^)E1-oxYc<N%=X#L0LN?n8gcgY5j3
zf0ACFr_oZdQu<?TaB7I&Q2IPQ>==02Y?IG~hQO|Tl2M)!vQ@;tFH-jO9%jnJyi4y6
z%ig8Oz+VL*+AY+g)q4pF;EgKl{|TfCA19d{zRGvGITdZR%F(Mh@CEl*;?wXI@;Gdk
z@c*vB4+QQC`&;-5)^)Y5{hKNfDiHU`VM67&gD)rn%PNv~;A~ELP&vW-QcOP4l5j$Y
zgg@%KUCSR^I+E#Glf|k`w2{;P*|qk^uCyDrt}U}o^ysubHYM~xFEL2)j{Ax|rM0@&
z$NNG$#Hu!5W&2g>fbF;{d#P$SRrXWWj;ibl+5|_57m6A~;?rYOrg{;Xu7agAJ2WKB
z25<lXQ7CO)B#v*ri=lb$>pEq=pure7s2yCChb$swgb^8h;EY4&r+-U4j7epn?>5^`
zg3$J1@?*e@s*%gC)9O3)P4GRx(nq+RylV;@xrAQDDQo&(&!ayl>?cVsg6s6~|9-l)
zhSUNvdtC0V?IcKk%3Bv0Jn#t}d<ch%%R~Dzp`;D?^(+H<H5kuF&E)3vXUVVpZ2hCX
zir~>Q8beRM0$N5_K+APqBikM^1DEnUf926JU8I5*UK&%4CI`#a<4S$TJK6{n!fiko
z8^|bI6H$UjnI7j*lQhpJ;bNI4SxY6<r-I<e$X5#EoR&8W%T^RW2Cr+l9rThyLYcuK
z=9sU@daZuScn{Zif&m0jOZxTf&-d+uObJ3opu=m88USfrgKl-|0pMHQmXa>1c^b-<
zg_`VZ5zqYvd6w?d9n@}Z9qL~L2P(WqltP=;%|lTj@D&&9tN5txZ6Cl)!kH;Kr_v5H
zwhp8Lb|ddKu{5{rr<%nIfdoh_7oJBr>N)ZRKB~E+EqAo-j&|Z$)5KZB4Sl7O1`)Zc
zXrPK_t7x}+grQ_tqhsIsvF{S+qsQgCN|Cb?>K>!3<Aj!8eu-Y|JBj)OPK2@xUPnEx
zW-oeUbkad5{1bSE%U)pAw1;uFhw&mk+(r*vR`@6MAWK~6B0<#D1vEiSX5pjNC$PIm
zk*M<?MFW=(p_?571)HpXd1f!AeluNii8>KjCH-H9v5k_!jc!_OKI^PV{+wWW8DoQ_
z2@l$fK=&ctXdx-ibJ8xbU@F3|GR_W$mZ~NmuOwS&92WdiBxT5REP9Er5BUcrFA^q&
z?-3}`nobGmK~JK`i|IYSG)u-)&ziw$`#ZY6CzSQ5>-A?gJdcO>4+<@>*rHt3{ibM-
zvX|4Xv2BLy0Qr2dx-o=f)Ntf(+*^6J$%|*J_qJ~B?QPX+`?vOX-4+ilYPV`T7(s1+
ztG2s;uyw1pjqlrATRZ!^y9Yb&R&8tVU~_kO57$9L@~&I)>HBDA``}<}dvEU+z}=|r
zZq|19Hg`97_d?zMJ-4;DxsOg!3g5Rk4-O7?_i-}iR?sMZ?(NjJcajVgI@sDm&%0Zj
zSYtw&?M#`Nz8L|6Ej|Luacytk+S=XP-w9*c+fAB5++4uFb8B-O!>qX#{x~?OZSC#^
z_-B=$QXI|L7<28X<s+CR#b#{}_}<?P-R=@?x3&+q54H~Wq`}?2{r#Oi8I#dxdc|#^
zZs%ZYSMcq>@4K!2{mosFdMDH1KCrxX3rIMCp=oRNRgqt^IWn#ijg1Mmm0A;tj|jZy
z=BOfD5qk-OTn+h2C6E8sdN6N^E2&!xE#Ii@)?yKOMI3h_VbqsCrtj~^?-c}h3~hFs
zw^659VP{*lJn6WymDG3+ThS48$b1(-B#;zau553C_dt)Nt_?C4+S=aV+{{$kPm06K
zzcVW9=>Qaoja0y?+XqQKb+-*;+}hs8WJ=5L+%&6%8EnMjHFw6RY&K`sg70Blv>6Zf
z<K)rFiJ9TkWrEdi-P*(yzqKEVBY6rF*Y<0-Huq}#m=S0()bt#9umzsq-@bJKu>n%#
zIZy`~u##gy<GY&)W9`7@Ev10l+ByKVu2S>(Q_Bx6mk*0PNXt!tytBQDQ6FGBL9Ff`
zY(xBQA_uziEnv?h3}1sh*aXIcj08KRg%aElPX`c0+vr6^9;UwFX=V3dZ+8b0?N$L%
zGM+2pDe~6z*|EEIkn&(HorM`R$Ho-j@pq-R<r!Br9|_gXg)3^7VgQy`>4U{X%v8y9
z-Pvc?5tk}&+?;J^oNpJ&?0y0LRNEu-ioNGWA$P>{H_&Gn(`*BbQCJ)#{G4E+1(l~i
zkz@H$%R}+(hTB^h#Hr6TjGORL2#Tp!U&Ny$OBRgErr>pEK%LAPqOMmSBdQ|~uNSQl
z-oUcJ3#VKavN*UP7MXNd&!C|M3wrdBMFUBIrLA#}Cjg4fP(ru@cjoaXOBUXhpN~CX
zGTC)`<4XxFpipj+#t?lI;n)GCMuT><BX{Lsfm?)kr@i($l{X)PcasgI*iFFr)5ryB
zV)iP!bE|&L&8uj~el{#1@VB76ZbOTOvUIRl+k;xPzlZa-pcf*Y3ghlA5%Tf7Dp&h8
zWK!PWg7Dtn+@gNGv%j^ow+&Sc%9ZJbn+LZb<KZ{8UEABiI|tAxAnmdKioUpswNT|f
zl(;RdT`SP8Z{6D2I@sq?U`9g=BNL7!VRK6)_p8B>oUwso@qCq}_UzEZ>1}2qjad@h
zFaE@kwztxCVJ~T>**O7gmMB2mHEa=LBb7&5Oq{GGFh~XSgd8_kE;k+G*Id@zq!vbf
z7oB2|GF`7eTVsPoY3C=>;<I+zl#7$HxVFri!if}^HEX@Fod4GG6PmvHMQ0NS1%;(5
zneP5{z)yFW?<TeEn|p!sT80ujV9`W#3yeS$=A~QbVQ1v_N(=nKoQYfKp<j|yz<-%I
z_iS8g!Kw<MA?XM(7Ao`Jh0QSZsb$$UOp#?}QP}3MEI4Q#mDo7p&DkRh^=HcZ9HUIt
zFE|t|5z`fnDnMZYHJ!H*$tQeIt=L|Pps&k?%PybUQR=jkTdKC5v=u8^smdl;Sq+?R
zdvTVUY+~ZH`M1dA8BEjGNMXPF@RAN50=N`U6F}p^!MqywPxzt$GI5RzN8|~$0$(5@
zI}jpcyC?ofCZ<i)#1Cs&opANd0l5}~0Jur7T0XpY;CplWWnE(Z<P!Z$AW1V?!ZOf-
zi(CzzrR=?3FwjE7h5Hb-NF#h^!~r!Q`w%PRh|$^O%2Ls5UZumDIw~dX6q1!uY#PBb
z^vcRkKRd;VM<yrUMDiCk)-uP4Adti1PPxS$+EqB0l~c|`Q0+y$x5jIPa&0FBgIJ47
zWdot+PkQavZ@Df!FH*xloiB5ziP`MZ(_!%!s(_8WHiW|`G^{Q~^i5YUBz{ZJ>C;o7
zu6Vbb=Mvni_Tf;)|L<eVW&fiS7OR*}X=T?_-w^Lhqdl)Djt)LYAz7CXwW<3Yh0LvI
zAhf>poY$>q&U<}D^@CbZ@Z@vk)X51LcDCVj*#FoG7`Ytj9$EUC1(6<K>-ghS1-j@H
zR0nqGTPBWF`gPD~-qzq&pW{n`KmT`^PG<ckT!_RQjNDpq1zS3qMTSaGA0cVzoRv6V
zQK?uunJt~nmQH4H-bno&GKaZKCo?Fowpm#^nT?vA4&KD`yYYhi6Fq#qe}d_VOD8kg
zqF@^qcagcxbWl5&PG(Cdv!#<+1rGK$LojP-S&0)QG4U;(%z~|N>14KaGW+RqGV{iv
zFl#IRSiX^1ZX2+-jL-4Jm&=;Byy42N%c&9U+(D<{X^kGzE&bP0_nM{uTHf((>A&Wd
z{%hi~y7XUL`mc$jG*!td?g>l(HJndn&pVg?Ylx4)XOO0yJTLv%mi}u~?qyE(jkvP!
zWwP6SNdL8!rK6L$Fr?CL5nqj^qm#N3EFGPuIZ`hjoeCGby_ew9(TRbd5C>%G=rqk=
zZRzN=baX-pp{1h}BS*pKDRFdypVR06zv$<LSYP4;<<@9VJ?kO%ln<uG_lFqGN<Qho
zj(C~83xyBvUGO27PY|=++&;yb7RmNNv%RPu9-PN3^`qNvbbL7(_!|1gEuXJH>%27R
zS~#~szdIaQ%qky~3ggIy$O;j$e4s2V3O70*5-YgVrjB1Rl$Ni^ktemr!!x+aIs}+I
zl{c6WI18AV$ltrAEv;59R##aVEm!cSl6wJm9pof>8*0CY@N~Sr=EGT55UXs1mqY0r
zhzC!AAtBeO$_Gpk6|mD|?Dy&&JT7)pMYs?=b~qY0hT|#-HKaSD_x$~aMUiB9!gb%(
z>KZ~0C}Ph*XNFP>J=amA%F?TAjZmmDy%28rTT3$vorFRsxt0*!Qb%~&?hZB>nQx<m
zuzDMVKHM?!(gMfgog0NT*zVL%nj2?`t47zpoVOpHvw{o0aIkE(aoIwdHE}1cAlTqK
zi`<3kZn=7QivIcX$^e|AgHLgV4)T^Nmyx7S<!(&98_NzPOlcK8(48M2)w{LmbYB_3
z^`AY5E6J4sT>gdKa(A*Eeav&W*=*WX^ghX5gy<5m{2*{$3&A6g9Xc5>vKfOh#XLI#
zRbOscuV}?0+!bEW7idwBu~Ik$+#x_G)xjlVFW|fc<M(B7X&{yXW~u||B@&AzVBd?7
zoO2vvw^kVlRh{H^l3#cAr9#O|j&$hiI|B=u0okDshnzay2Y~=&UinHHVkNyq*LmE^
zsNOw<M{Z!3O1nEk3{6iDz11aj4V(hZ!3q|0fVaRy*&GCHww$}bqg<+HH8w{s_c7m8
z9@~wgyZ%xUm>{{MA(w;Fys0ddxQxVcJPfu%ZLh7TTU~%6d_+FMJeY#NP?HfFSLxAC
zw9AzoRNGuVjEQJR+gcTt%R2}8<w~c1ikXF2iI>yDc&6UCMYCSU7Pc(Tk0o5C1?Oak
z9g9F>$B`+QO&OLgzaRgw!tK`S!xA%RpyJG7nL43HQ3~TkjbC8qKSpwe+oRLRr5A4(
z92jpILCH~qnPu}bGgTu)mR%f*T!>on!ktRFtO!rV-RxOCdKe)XHs1xz#Ay&N8R@+l
z5pS5q`RhekpD>^0mXS)%Jh?O1ZXgFb)XUoL4%8ex83g_?iR-5yuh!NX?zjF8YCHNe
zF+>M+4*y-RANh*8f|H~mWUokUlj-_l8p@isrqAEv&D2JB&8?a83k8Y`r2g~pL45Pl
zr}`eO`+GOC&c_8MR<qh(cIX|oTxCc;xd~_2kaD^3@<J{Z4G&9l4T=mFJ1e^}l&4Id
zFv<O|GO_@E9r;5OCQHD1ba^<ka8bQFRTdzM##IFprV_>YBB4p)PT|9l#WR+Pg~Ein
ze%()*pHjjo<9~dFDZRdByIGOl4R_=QK%!mX?J&^bUUdt%>G3b<ZE$MG6-q=Qgv#HE
z`B3KKlGZ`2L{-UkRgjj;Z?WmqgzFN9M6V0OX$cD{<}mKi4fv*UrSdYm5{X!8#EnQp
zg=7Wc1-(vrWJ$%XO>SSq#=^Xp3+reY4ZR$|PF5Ed_A`SEzUMQ{0l!mVhuA3)I(b{+
z<*a}W<+!^-If5)NDo8mDH7Hppwvl~V@XK+-5L!Kj>{gGi+BUx0%LwW$4jnqtoXspD
z^u&JJpEJ&<Wh6AZoJC8tx-cb&<&*?d00FiSz`hJOa^r98I$dQLe`B9tq!#iYkyPwq
z5mK?-BBbiLDu{U%QU%jdX6ty|fmdJM;vUvVd_)08lNZ&Bbb{ki8Zo%U+bnIK!a_h(
zpj%_aur-E-rab|LJcBdgrqd?<ipgNsJ*Y_7bR$G`uh;JCE5LE-^rwC-B7rRAm0)&m
z@)fbAd!ac$R~y(l0=&>SJQeX&edhu%s`q;exX3|cXNz`?+KpE8bjWzsJ$J)1c)cmc
zAtnN|4bG_uAJ^s{UO;Kcy^8%LN5fNi&}94Sp4B&wD|nGso&XhVjO{;d)2SA`iarhK
zYo|AJ5kY(r+NhlO^g(1+Q_px$TpOqAVp<x>;OWN!jROHg35GfNn%m)XDsnwn*H?*X
zfY){SMocyt-Lx2|*UG(ws8{jV<pm^(sh-s?Pz`Cs4yZ1?Br@kEN8Kuc5bsvV<#vNT
z<t$AC8)cQ*%rA(@SE0}bgbEgm?AUcLiCBr{EC9oVmY?(j2rxFAaWO`~oQF!_h^?D^
z*I5Dlq)LM_oL9U^Au8XTWNl2aHDMH0g*8+IOCWe7mM@|cp}4zl2MpUKPx^&J^jw;V
zs{jvt080z1vA|h_MyP<GXZ;H)SoidS5g%3tuKhEIhG|ExK#T~(7!#&oiyUE!8UYvz
z0G5<OaM_lUzH9*H(%vP{W0|BPvE`r61jOkOc(M&C=Fkk}D>Mo6AQ<<uZLFsq0$0+O
zsZO&19ZvxiufQ6qvrJkBry;HkP&8wJa;XBOh@&fW!~o@<17A~InjA>6c@diSviZWG
zD*-N)RaDuVE!P>mkzE;1yrn(a5?&lKNJvu1iele%L73&I<eP|Km|`1^HA@C%IDvTs
zI%6Pg52zoLB-*$#a7-Pf^~$%9=rVAI>s}H3%z%MllSa5uNHS1Z2>{xL&MZ$2N;MyC
zhMy3OoRb`v>77%irN<I=EgnaExlK6{*QAx}Yj~WvEvHJhh{ypD^qX$YU7kX*#ODN`
zJPHc3C$-MY%S&o)B~2>>x2F$N;5(&-U$=UAnjJs!whJ&M3K2^`%z|`@70Ih!T`^M{
z7hFQ8_Zg>Y#w6Cjc#@T25^G?PNro<2VpvDq@k>OSs1DL>c^Hn_XrVgEXHz+(O&)?2
zA#O-qp{*#1ti$wpHo+Z6z2kR>h%kL4Y_T9$&=wm>*E4ipEY4Yt;+{uhuV<G~aufi(
zY~;V54#s@iO5nmP#)A-1)mFr)d|?zoEMT6TLJDS2DRNu_SvutmgzN)FDr2z~&Ow#b
zT#>1suDPnR2M#1_X>W;U7jw%MMqQ7AP#{UhTo@0Zej;WH8C;A#g{B-{FcQt2A|Qny
zukxw<#e6pLVX7O-WE7CxuN;oV)FvFGq_fs^RbJPIl+vjnpXh3%9ecTlL{DLg82$@N
zbOs`U+g3>}HWfjMXv>47U8GP=U#wHW3^d3ZK4B*vcyQ-%6J@d?yOJGjNVc`s7(J~J
zdDyy?k#i5NlS0aRv0P<ossoskI5(&YsF?*f2nM<eK`c|$+f0;(4O>_)iqtzRqaG4-
zj8i02I=U=nE&(KVYD`4;>3TuHM2IM*JzO0xR#F0H01LX-0+0np6POdwuz({5bP8Jl
z&d(d%2ZI2kVONkSQch8r1a(xKC4?!40t*CG34W2qlx49&*$9W6l-{!0$rd%-*m0up
zkypAmp}kn!hj^LEADsf3D5e`YZh?G8EPNA2Ee|*)k0{_cdzF8pkQYH_`CwV<$lFhG
zljbRxu{q#DJ4_%Atxfuwwk$}(3T-bMLSM&|PF@(`Yl+|?tIJumTKH`;sn#<Lrd7NR
z%-JA_MYn!qLGfy+rD28RRc%I#B9eI4X|CSG6M;4$F(jc?kMR@wKfq?eAW-q4P32zn
zYd9zGc4T1$o-q9c*LI7L>PTJp%%Kl19GnA+8Eb^53y;>sj75gag*$+sOb=!*+{UEK
zfX8G}HfEQ}be;36zAlPeDvnje8#C+i4Y>^`Co)?Ahr*i;6KCw|+&88JViF=0t=Mei
zp$x~dO3#V}A&g~~v3-Y{fp3bVm7Pi~2p0z7qR<uk@+sCO`vj@NaXN)5&ZoS(!JlEw
zsWK|BFxFfJ57pg-5l)^JjXzB_HC&nbN#DB+FafRF2sqJ01zF+KWL8N7+BkwS8R(=3
zUoj;M`!rPaX=%l%jbcDv;(}$T>aTOO(P`@D<$0N+$kL^H<>cJYo(ay?m8DWOabydT
z!!zVQKP08^Dj5}Y=#V0wm#1^R5f)`L%1xj#C=Vqx=m18+imu2~$BQsNTH)mB3U|!!
zac&sFCU_JsKxFJ6`%!LC6>xef4Lg`q_S9_PK^wTyCGaFtH#QGK@`PBrjj5p1<Q!1t
z8ssF2%H0IS6hn(YpfnPs(p&tLyetTl-kT4sSCh-&H$fkoF<L9~4Uv+}rijGwLl7H&
zDS|n%eV?B3b#Ll*ptyIbUY;isSeInjocyH2%<*##vj~f5q@JwolQYo<M8Z}l(v;!b
z7XC(;Z{;$rg5~xgF1Or`=|&DsDzttfkz;8&kp>u(Glc=4fWVK8%0Z?vLYyh;k>GU$
z>B9GrHqJpsz@!?=1`Q$UMY|A5n4DS5K$BTnp}{WI7i8CYc}gji%Q2vdVi{g4*Xbdp
zHdMB4Vhc@h{RGx40GsrnST-#SGhc9D#+1`|GO%Qr0-kmJHUmoqk*-ZwlGzwj^V8C!
z9?<wxDvUhkDH2~2I5yH1_zFDfSyD#2;F!cXtuTgVFS_sr@V&DA*v1qlhnN>&20(%z
z6LiZsCY>98FQOg_8etREOO;}r*5SExB3EaSU|;DP^|mZ7!3JJC1&dnukvxK1(W|8y
z5GB`N6@n2DfRI7WgeAeZnT(SF{KXs)t}lX`0Lm4}7%%}egP;V^h^GjsAZ#|E6M-cM
zDDVX^CmaJmJ*eq1@TSxQ{NwfzXCjy~m9<N#hIqmKI(QLA7`L`^$(@}hoJzvPm#~Ry
ziB`&{tt864(7N&!lQO7ER93S`K&I%#Edty3_CU@a5K2N(=g(+LPiW*$SUjJpB&Rc#
ztDemOPP2tJ@D4pRO+e#igxR6;dyuRdB7ZWo_!$g(#)?~P4fxf69875mz~~v*Pb@tT
zp=6X5dZD8bo`jUPuN;b_lIb9V^@R*LCG)#F1DgPR3`ZeOtlppCvyj}WjW@q1*fh3C
zm$v0$NE2aIa}j*JSSG$cp2HAGSeuZTs!F!PAxLrG&igGUH?hnZwbQ-j6FJOKDM#~~
z^R{O*P3I*c!~ta_-0`zgEB7n2f65+PKa9y7fT6>MEc71!pxYS^D`slXZtW;V#jq%&
z@>`o=tp)*#GtJx<{R&Zj@|bqx{ZLI)xVKup;6v{GX$v6K5Ch~fn_g2e#^OETCx%yb
zvn32H;tVqU=^A6Rkfdh)V3o}lNr06N+2b<L!pcjVY|$8N8SEDb@|!F{mT8xMkHrS?
z%vChC8mwW5^)NPA>z=F<?5<Ir^12iZPBg}{L(ig*&+f__Kr{%LXEpF(Hdj>_h>FDM
zn%N4$cvWI{bz*Ie)~8R7tu?5+JX3*HaNKn;6CVRX$rCQ|IRZVAhHU2}rfZ|dXbptY
zon^*OXja20`}LAp3r_1_3l=?WC25i#!!ss(BFvYonaQKwal|UrxRSG47KRB9A1oZU
zZO%n=nsPc)f+=osqg*po4yU?s42cVhAPizXvsQ$0R|J!V!`f1N7I9kigc8FaAgASk
z`@^t;Y~}h)4c|(U=0asb6W~s26s>9SF_Kq7O08*elyVG=-g3pbqX4R8ZNlCpXK|Bh
z7XG9wlsP(So}d0Pk}0QdGE;$LMX*UHsg^aK)x~-MXGoah>8rz%EXMB!9}ECF_@u<6
zfQ1bO57ZX`3ts;vV0mebvl*RlJ<K=2t9U6|n6f!wnP_nmm!53CXY2~58eUnWg)6m9
zWXutY(hV#GS}rjSL~B550+S213N$XT=7A<?{%{9pBDo=D4U_p?&H)%CbLKc4t-#1w
zu+puHaV~H16J9qCplLH}j`U3x(`o3-xAjD^n7L}Hv*@P@b5uE1Zg4hYnM_fpNnjjr
zvg+bgcY|kOv<mYJ(HW9tl901ax3B^@xB_=5$J@El)1ZJC3YU=i%KIg<Ar%ejVSyJ|
zkV?5z0$VAYVX(l?%<Vv4&4qO?ktXF9TDb#;+1re3q0TXt28)hpL9?u1X-IBE)ngh_
zlriw>5bJC@B6agf-S)6k#i;#@Xt)_ysmp0Z!74l5vQ7EtO~4R|Kwv6;9;4}1B{S@v
zDGB3%F+H-@=((UgvT@a0ToE2(gdiGpV6O4R2myz^B^CM@X2aUb7+Wf}myXre8mzIz
zAEvjI3Km(8#3w$yRaV+0ZM0`u1yW0`#?dhK6=!TRYjG{&r$luf2F-IA)Y4%%_{F`B
z;V~w*mmG6+N;;GH8~vhT5aar<l6UPZS1NVZs%jaOMDcCS>anR#DSBcMX}-T9Pk@8k
zH%liSUb-PPq5wI2va@A7CQT+=MNuM8_W>~?x`tf)=p7#qZ4C<hNCom0RmkC76>_~g
z%;;#-cOpQPIwEsC3i)Nm08{Ye_h(z;$w9ZFfF$aVqOD#JyC$e<a#M-XOl;N~Xz@I8
zIC;Ds%9W>C9SXUyi<V8KY}~N36N+PJXX>l2-w+1$>=4`}Cpz<`%+SjrN|~WanW2|O
zlroyQYW7J5skXIBwBSgG+RCtPj@cSTCBBfBjU4p3PkjnegMR7LpPbM^cr?5aGe}|x
zF;Gyq0R?;+Lg+Ds5PD^i5JImk5<=*eMM4O@GChP)j9B!_1q6Z6`s{+&pm`(E7K3G+
zAtGWKX9zaBWt<^dToK6w2jf_LWIb5M8N$=w%Q!>F48F9CGlcVyxQ{TEG<(VDVS;1@
zC3P8R=)8w_mIDr>`o4@aG<3^2Lx@yl-XF_2LvfFfd)5r^6fVPLEdY+TB^t+IBQTw}
z9wKs?RU!(t%v}pa8G*G>G@~>ymp8%q0F1%3q1F*9*qOjw%Q!=3_?<==F-qh;gqCrJ
zERg9k&X5l%wTv?)ZVbG6j<d~WoFQ0;liTRD0qgk-<D__D&&!Gu6Kol0$R7YK;-3za
z2xHV(oTz1-A-N}`>Vx?1XQJl#^eK^Z0xQzReY%smZ^gD%%Q!=Fl=Cq-*MHJ|>s8ma
zvv&9liJJv=FON&(wDc@&>019&=~_=8c<)`W;lIKzrr=_~j57q>=o(j9#u?%qHy3-w
ziQVst9t6ucLr`*fDJ{Ey7k{kOseuj&bBZLlHl%t!OvEzI(3Dtvh(DA#z}f6w#u?HD
z+S{2Hi00$(xCr-A44STwRsZQ;Z3(j{fG`a-aqoRx7g^}<AvaOz;~{risPzzybU00}
zpulUcSk%^yvTH8OI79GMTE-b##u>uXg2i>vE^nBy388u5g+(WBx^C-oXkrK{%Q!=6
z0HS4_p=F$*Wt<_2coQ%CEaMDOZz)_~TE-cYVChuf#5Em@%QDUo-qC`62#3^Acl{-*
z@*6E-Pmo?G$>1^x--C3!<HBmXyf5PnwGl6gv66u5#4A1AY+1$`5+4h4%QDVTHcALi
zk9?GeWt<^O6x%U`U~W(B&4p#0p&p_P|7<+E5Kcm(D_7wVB=1F}?`SXM4CUW)N-Wm)
zJYFU^MQZ<E#u;iSXM@Gdk6xO2Lua<c$7zhsLgH5-?k<*bhVVS$S808=nDpLDs8U(R
z88XW`m?TE2?TF{ula1-Vj5EZ$>!ur(1^@PeL=e;37hA>|;+?H@xmv~<N{>`U*dy}z
zGR_c#kuBp4Njz>ZJYYauI9k&(&d@T>P)2iH#u+lV0eenr8E44V5l4xU+G!+>R~IGP
z{8fUuFXIg1%9#e<(SVu3f!sXzA1y@YGR{zC8D|JDZ1-syT*evtX^%7X&#ztkxqD?%
zhDK-2cDKvGne}#WjBrl!+c}2w!3}b_ES-!rZG<9c{UZswXSqqRpA!T<@^!S(VSU)|
zBdG4-irz$TB8VIMXdQL?&D%*^>>>Rr@Zj0E7)Xe13mo}|$9NeVF98pEQ`QYmC(U**
z(?zd+NAA$dm>~ZMJ3ek`EJXcv-9GMVNU`K9*sIWR&8#VdhOXl8O{Zo~cicz7Fo~bV
z$n6pW3d0;UnztJ#ZTV^6@q{<VI=G!68^6CUW5Ww{V|V8i&+T@Gl5pDY4&3pue*{Ei
zB1+*ZMj--|;M7%Ct45!C9%Z0{w4xYeP%8OJcsAJeMzeq3!+Xq(SK{BL7uYH{UC|nT
zf-qeGw*uY8pBKZ$v6^e`5JB;7uc3@>AJ?e;uOSfS#(7V}2%(3w-WnG9kQAaw`NJIn
zv*Fg2$g3N|2i`3+#{A^7f(^I2#;{4Dv9qxcQ)JfFiUc!aIYv&3<#4G*!x<IIF)mUp
zcVgw_s&Od-VGg8cXcny!f(+NX!N%22uX);#_t*18y<R_QZk$1$k~(~@4@Dh<5T1SX
z#v5<lcb#`Wy#M}duYdU9`}f_+`>(zCy$7#<;6^|E;KTcGue6!x@ZZ}H-g)gU_xihU
z+;{K3?{1vlaFy@ff9t)QUkA(iCWDc(VX7y|<H;xi*&CRo?uGq*#_7dq4CF)i?4ACw
z<zCo&A-=JNnjD9q)LHyEw#NwCnt^Nbc<<4-0Y3DUl>#R=dyTNwMw%ba$NfQH3Z;=7
z%~>w{J25F>%~f`5TMqw8ufCYFp0P$!-JYXd!-a?2<6*yt*-mnI#+{4y$iYB_uwD##
z<vRp3d9D+vefuR~@L@v^%okA*jO&v0077Hf8ZF#=CvEz1^xiq^Hku1}f0A~uBeQu@
zHnNlP&ep<BpQcT7Qc)<TX*x;PIxVbSo#Tm{^v{Q&A0zlRx(-~QkW0<bzD5rhBs(o9
zYu+lDaN-&#4S1Zgjs#=1NM|OZ5^oK%H~wjUkXM@MqEClSV9Z}MVeGRa(~$Eb6CbeT
zJyIR2N?5}w$1e44XTunXc>ZmT=`}F?3BRmv*jlr?;UHMO>~+;pnoHTjr8~Xj{*=-n
zLn;{+x@7s_(p7=8uOYnE@AOXA4n2PAZQx(RIC2Q$;M;PqtPO{w7sq`0{$$t~oQ_^u
zJ6xkM46ZUTzU3ai$C4?_5TAf;_6G=b+aI)hZf)3ZwAS3(cs%)fm3dWMxa|yY0w+~G
zX76QikTAB!`L&OWa3u-pir<^g@0%dFdJR6h4Ce9@sWBRLPI_&G-C<EI8YFTH17u0O
z7r;baHOc|4>(MGoy0sUx0CW5ZARnOiC|n8aa-vkFiid~oBm$SNqN^LG`vsoCf_>8O
zx3FX@H&^_MO%~>guVQs@JJx_$ixWjP8)4T(tyK2)^C&lMLa<1$uoR(kruE?tzUh;G
zU=Y8i7ud?LU4>QOM!`itmYW?jF_tSvM8r@dra$*7s?>k*)2vdDPch|2O0%fCtG@rU
zq+k0<JH|%ltPR0ek(pX)j9SMhr}&+XKj5d@T4Q+Y>l8RpNp(WIHPO5wa&E40Zc}to
zkCE99{nFZ_<ZE{O5L__{yy3h5#B2PC+=EoQiA6;2kX0)33!-z_XhLw7N<S1a;g@nB
z?0HB>1)GsT>N%d6pvc4{Fp*0|LI$yx>_e8@4SRPBVl>^aebToZ$;y<nL83Tv9c>`Y
zb(#%EGF4i2@cMGYvfQvNH!N92E9lIo%sti(%M|gwvfRn=s^W4d(>q!2WIj1N8QID_
zh+7#vVz2^xf!MD<kv8k42J1Jxy8FYU4Z-%9y!8gFt-Lc34cuYtYzkH|n9EZGvD{RH
zxjZBg%Xx#jSJ+~Ed`lpf^Y01#>>AcTPEGff#?v>=gRwl(^^D--G0lT-XM^!XP4jqr
z<1zPsCDS}6W755<hmXlL&$mDdZQCqP(!+tq#kjV$yQtm&mA@!<|D_teJP^Q5>avpy
zZ>3xw2o#Pf7CR7_^MX<^^v`)jDV8f92>4@?%mG93m87r%hb^nw?cj_~PYuH<3QW|S
zZhsF;k=xndqz;rhXn<n=bALT*=W?{v-RSi<&Kf73ro%#;QP=&+w)yk$xe*7OZA(ta
z#Ep{2Ir8@6S^uK#2JljG102td-Jr`*03Kd|+aL0PzR|;BG_w#$(x3N)gHJusiRV4j
z-FD&u&L!KO;7>ZxY(=(D|D(d;Pk7d%wC;2d82FX)NG{tfP`%<$lagaH^fAD!go=97
zYU3I9N&pzQB086(koeD>ILQ#N8DLAtlyRal9HwW9l}mU7@KJzG9w7SgZ2J0j>Q{ud
z+YXieoj~<e@`(WvH{&CIy$P-Cendy`=_!8*1m<|`&?V#p&X`lfd_~<TWLy&DK_f85
z(P<)HMYY$B5-Yv%6yEVXA9Ug8Luiu$%1@k+Gt=Ct<U)J6L`V-R0xvHw)(_o!2mFmQ
z7FGl<^2Y+ot3c)ir@Y$Z-K4vKPgZvqdik>OP=m)T`;O?oi(~5)&f*Qo$3cVe7|SZ&
zib_Zj;P7OWP#ofz({1-o_>esw7q9#8paiu%g{a;h4#7jy-#DRnL+n5?ymc!{GVJ>n
z)9AjJZ8xz9jDc$<iE{!2z`s24>MA^{s9K%i7ClP|q}A{^sYD$yeAX49+O|NMr+5%z
zJn;7rJjyIMZKil<C_$5pZfoCdZM%K9UkZpw%*O@9;A9FAfT6Zk+P{eH`J7LGMTwji
z$y<43)(*^*P94z0GwXDjb7nzia9=jV?+M<wZn;%s883VE;bJh!s`^jlnL?JgPaG~<
zc;c1PcLpw|BBC4*vanY!Hyz$tlgo?cQZeR3#!Xpmo<5HRrt<I1c6-1N9*pCoar)SH
z9#gSOn6+ECymZNP5gl?k8_*v3Xj&;e{$r(TX{jmFNHwM`=b4L8E0IrO9eOge(Jw?T
zkW*H=dpnfIxXS8tlK0ha23=?REDevR=`7V&Dr4WANoXz^US<dUuX?8^75ar4%!R60
z2^$>6u+8jW4DKAFck1&szMi^Zb+LFzLtQ*<EniN3%BfEQVQ@H3=2@pM6J#v(E~ex4
zlXWVfbmH<$2~`Q5I^9dxow(CWcZwUYB%Bv^SsVkO(2H13#)=@ZnAF=_9H(aZXV;N2
zNi)#Cg&o5SEU2E;LBGtxUuI=$;TJ)-MD2pbk%o_3d!bt$y0vTNGz}f^?VwzRt*{n*
zuXZn?6a>6`O&?k>5Mpj;87!&jC{?VCz8+uDGvVFgsaNrh!KY@>Zg$`SNJqS0y9@I8
z1!Mtj$1~AXWrwS#IUd#<qh_b$z_3X2%8fQqs@sHMLaOa})ka>CIEHI>5FVL#ue(%i
zsM>g5>I&cZ)GRF3ZsLT<B7QstWl1xjE7=zWXp0Vz(HBj2Lh-(V@LsY(lqab5rRh)o
z_HrMYxs(D=(8soqEZ-|GcZ$oMBJM*x%06Y`onm;A(DuwGSs;G;C%C2uQGa=}BCin!
zu_Hyi)KX<d^$2-}P*e$&H3_An>I#xN$Tn+0KCZS&^<yaRRjth+)w7+IN_Sr*3^=!c
z)h2z5-UKmq7i$p2&8$zD9LkBC{nU?2d@xeY5pgZa5Xjz(3>30P0?3X}Nti)HuctjO
zDhYP3MxD$E6XnozjOEKukJh;2CADXgE02O4)wDC;{9LMWn2}`i%jl&ILEH6wk|9i-
zIZ`f5klfoI7Sr4hUn)Grym<(UDCi}muneyQ*%0|L1^3xe=5U^nF6c%NjrnMxSXzKm
zbI8&HB&JU8z?K%EV4cAJl1ALTC2VN{!Y(gJ?wt8-X#tWO>T#RBv;ZwFKuZhI@p;e3
zFbSty!G`lQX92>E#ZUh?iyMHvJJ%yS5_HZ^U<h<}7XCBuPq4HDF>cpXkAV<iWHM|Y
z!?yzG_l@(*HGJVSb6eZDQnv_P>1V1PVn7kZwpi@rOodJ;zAqn_3xe@A??w7Cn1wrB
z*G|X6Vm1)9i@RtLH#;~-7dB|R#Y#74%~RgG#FowPJ()lodbp8^JljH<;Tx}*59Qol
zTa$~JE7$b{rb$EH3F2MYwb=kv=@^0qKLOa#u=eYN+IzTPpVv##_VMvUHtu(s7?X&Q
zwO@Y)F#!r)l=*@zLXmJdS9+Eq`(Hrd4>KOKlSr_tm2!c(>CaHprW~h-X1%%LXV@sH
z>`^E8Mq`>KTHJ}jJ@AY7DL^nAy3XK(lEW+@#$$Fyv-T=uY*<?6BTmec>~xj}O(NSt
zn6z2FB3H<RaRIn<c1O;9EA2}G*u0%kVUG5#%os54{IF$uLSUnvOwpf7b7f|TOTNhv
zTz*`YZ}eh`RQ-gTO;cPfIU~h}et!tgh=TN!W!Ci(FK}cQkL{w*LZi2!mu=p)Pu8gr
z5ouIuGaM0l?fAIVqF3VQcO|WccGD;50GQVW!vc~jOw?%S>N3+^18r#!?C2N1%(5=_
zVJ_@uD8@Hi{bezSN<1CMCH{jyn>e2CaySjgR6&C3^e8x<VVPbC*H77L@sasDOoYYV
z8HGiu#Flb;nw)X2OU>G%*#*WY@u=!~)mQ14x;SRbTj}W&Wrn|_-@uga7{eZm5Ijw3
z6fmh@vO>vc&X-N44w1gP4|8cAfZ?tL9Or^C^4@R04z9z>j0-|4m1TA(BTL3u)4qj`
z0XH(C9SFNb()mjH?YQz!)~(W)_3o9y`!QiWmVpOJ)~S-#o2)x!zJ{1@cJ^=K#>*_*
z2we>ezL#SA$vR+W_u%=N%Eg9~-}ZUB2&}%cZaAu`Yh^GU6^_uRxITu<27#AL?FEKK
zKZQNRsjVmA#iIdE97QL{uvRYM1?l^l?yw<Bh1X?0OOe}vCKDss9kJ&FUsjgSu<zAe
z>$YUW%ly<hmD}eAK26sZe={Ux%8u5<p`Xw^a|ztVKC~mG8Ngpi4B;WxMZCslM(>X)
z8g?4)>SsB0AG}gO#poknPVYBHYTTh|6YOfl;4j<=JCjd`V6crL^5kB7LOA&yuP0h)
zY`Oi{(d6Q#!tK^*eA{ieGQObdx#_x_o0|xuAz{gt5pO)JY*FDIAZ5+?ZM(I)Vg2~b
zXOA0*d@aFTtu(KCGV*{gQQ4@u?pEw4n}KI9JOH?Kx8fpTjQjer0u}%uVCHJRxw-Xm
zgB1YCfVKT`gB1YCfVJ~+gB1YCfVKP7!NNV~-F1lNpZg|6!q5MMPk-_IXJ4k2{<*tf
zuRZvAetUy|mj9L*SYlv_fh7i(7+7LpiGd{smKa!KV2Oc8#=!6Ns_PmC_0K=}_t*ai
zY42bB7k~5mxqLhM;<v4bH-G61zwYGw+2QxQTI2q=E-m-o^I!R<e!c&kC0%<EHZE`W
zeOhz)o_%e9=F8tWkni_?+gaM%ThBeG-+%nx-(3ISCAD3#%xfpjFZ}S^^5eHZ?bCkr
zFaGhb{#brYp8uXDw!ioT`*!bQ?<FVSIiit#d-?fawcOFycMX{Ho*zg5>pu71UiED)
z7>04}NB{TVJN!Tr|J7@M|Nqc$Z+>=Q?fu#R^WQ%Bp?v@H@blMi$~WTb+w$!vzyFVK
z|FPw+zxbwp+xwGWmo474lf$=8zb<L_F1~WPZ{ME(Moqr`<U9ZHtN&EK-Tp;C%KKmZ
zT<4aS`%?FnZ|b+t_`0wCYu}cXYuA4A-XH#0soEa?vZdX>?MHd%v;NzgZ~oOy&Hl+p
zzjym9^7Y={3pTh1UuwUku%MhZ(|PH0|Hki1xi>#+4PX26{%`y>9ouL7J!|jFzxesn
z52e89#n0b0m@l5ceIRMgOJDcicdP5)mLGVy#u9(@U;c+L{$KL_%{PDJ1;dN=f9=}s
z-+bnkyO!(6ao+pu-_**-`hmYEpZTs~^3~zjKKoZBoizHYe0%f8GaF96ogBXNi+l3z
zU+(_ifA9zL?a#mR$DjMV^6mWM{;zGzx5@Kgy!mVX+gFv+Ke_pDeRU*hfA+_J__u#w
zzWu9b|Lgz7a)1Ay{I&m7((YY6zy7bww+Em31^K*o?O*=E-|zlM^8H7D@HhV1|0ds>
zpR>$s=<Ta&xIN$VLx1xnL+-U7z5n;Vu`5LZY3DzaZ})!w8O!c`-q)Bs{{_Q+bKm32
z_mF<x+Y1veO}6hp`H%gGV&({3tW;=!=?mZ1^e;dE;qNFP{6;Kz<!`sYH4D<w{%=;a
zyV2eozpCGU{FVRtZ>!w+^7d!CCsTVo|D|Hfoh@hO`(M1ATJzeqAN{kx@qa3{-u}!-
zzoDE>Zkmp_lf$>~=}bA<_Vjr7h4-uvQ0CPw`Hpho+glZt2QvUcR_6sT4`R8_3&pWv
z);cYL*}b8Z0k<E#D2dI_|C{%ef|KXJ>^bK%R^i&oOP?=*^5*jg+FbJY%`blVP5s$<
z{x|L0`DgqnPY$0OB!%VcJxKHi^6mVWzF;+e^3mTi85>JedcUkS_N-XUy!PhT{CI!-
zpZ`}~m34pi<NyBNe<Eex{8kZCtTQfYK)zy@-F`*B-QN3L{oDEM@S8AeE@rafkJL|&
zR;28o{rDesbOE7cQ0SXo-^`m|^f2da;x)HZ-9!v5{7Ee3NI}9uHnHYvC8;RN)O-sy
zx6j&D*!B4@+jvZ7=Sjcl0(k;bl8V-)T+&!#2;T{o)hBjvkPak=DaBtLPy%+%?M*{L
zO>kRiiU==YB(`0kN6ZqmW%_30MWPU*Vk#TXx1f;Jc9E57m+)<DXH!v|JP^S_)WvvG
zvGe4O+=|cqz-$NrD?0>2uK>p*pqdke$uQDX;q5{TOf67@4G7bx_1RY;kvJ?=XJR=K
z3M@gQ6bM7o782QYp*j-_yeFK2j0~~aUI8U+uTY(dxsE)Nr%c<uCw}yia%2JE$gDZA
zO(GU(&SFKb5nd`Z&V)QSLbjE*P|jhbQ4aIUGo{eR!DPrMa3$yuC!w`uuI7OEgG{QW
zb9w(MP>n+r(V0#pLI0It-3<r2PjF!<7pT*D<rc=4p%EE~|78-Tem+r9l8_}(b2iC#
z!}0MGL_;~lm!p9~rGN$|E{2AwOg#q;;kfz<qoFVg(k(Y$6`;99)faNrb@eFB28xDU
z;+)}!WAP_A{3wQUu<81oOPsbmlWVRv(VvC}xcE{?3g$%jOf9jrWhQRquuzj3vO)YL
z(qazXpS<#=qs<Xl_5WPr98jNzMj*&56QVUyo=WLfN`}&saRMw(peMhgPScKODeZet
zWATjW%1OOcKPgB_lB1|xk=2T+)Upc=FtN~~uxdGD2>r{mrj8)hJ!7GSD;|m{Ph%+;
z@dc1m8B=a0uqjiR9+X|BV>Yyxqf&NBWm&VO#@^Fd*W+jk%=B2eQO2HXyRpLpqsFY{
zTUu9kmJfl*r>h|p#x-M>&6t~|bD4>`RZ@91w;t&n6ny0oSfF#cd?}}XBuuWEIjsD&
z^q2@=Mj(kIQkcy|WKpojCJH!>St1DXn9U{5LCMolUn0PT!9P4x7MdcP6>!Cb0{=yL
zW@HsfA|``ew{x)jG&HUmD2xNmf&C=c|8#B2@uC_53&NO0DkPFLh3ZT!3`K}uCXcnd
zh=gP^&Y|0r*BMhR<%F0SvI^tm;EP;2RpFjJ#QmqCe?BT}7S<RxSUSfGi9{CvOK5Hy
zA^0Ji%DP3ova4chWTw0+Ih|64j!WRyft12s7&hAzT&A*Ksy<e>-+vnFZ^Yn})=-KR
zdi<0wh%J(-Ahy_VA(2GQRi86upN1wrRh&G@{X07?;D-r?>A{jYq^Z@Wv}CT$Ip}>F
z`uS5EDLX2N4B2`jBO?@9GET}&7V%eVhsm|9)GL%^^~Ygj+kYB*I~gc9EY%+hoW+E^
zY?;GaPeaQl`h}M1B0(XOOVo9-utc$XE^*GFo|bZ3pb804pbAS}kt!dvmM0LG4z8$o
zkTL}|k%<LiNNN{WRwm|pGQKERAcSSgvSzYGa>err9)gsPn(UC{UbU$e5{ZTa(wLZ=
zCR)9KNp@67WG98{Of2-yo{NXvY_v#o0#!`qJT0~m1$d#$m{kB#+CqC7p)Y(=M*FM!
z+juyWw&F>5ZS%=1o71eSf}#Yf<e-=IDUg?F$|cSj+mqMS((Oi(No3&`Lgp8Pyoj7)
zqGJOE5gR!vm!<1}E>T-9@Enm}fQ;S6)-&vwB$tzH#wkl}^J(aGGbT&~KF2>P`3iEK
z4HjuyE+mM~Tmve03LOf0%24>QW|G?Glh?~qJQYzw<|?KNqBv(Wd_+Xa#Lv%&0*6Zd
ze03>Rj=f0a<Xh}zj;MI@s^M%L5+`{aPMObfc*0BR5Mx&IEf!E&P?|LdJx^ZAd>ZJP
zDWjf-8v4^Gqe@p8GGmUnly#nhG^;&%i|8y?OBcXW6qF_wXYN!KKE&*+J$W6?l!0=|
zDnl;In!9-^;)QMHQ+4Ibr_Pp0wI{FJ0RRA7P?BcM;TfwF=UJgCCKiV+o0CFWCKSug
zl4!LjuXW9yNo8wVS|hjQD}qYr*TYPjC$ANyvLa8KbeyHoKlEB$`?ysVlC6|VMI4X=
zN=H9ua{n}_8>Mh7)$#+KGn%KNSwv_HYjn)Y?NG|)uG$y!L)3v68X$oS9Zp>@W^8fN
z`I2jJHg>l@UVUMjbC}3JV19w!PpJwPiI$scbFlF=RD}pzj#4QR3#?MMfc+Hm8mUnj
zmRKswG@zR7`tzqNb7=JBRhN_y#hF~Dc9>v$G8|jV;SaesY(06cCS9{i^{_YrGPaEw
za*u;8G{wZ64wMp35R`7-W4A@~;Z<i>zJ)m~`!tlP8QL?m@_ejzq<m_Mz<l1EF+O>{
zDrKxZa4Fyg`6H}TE`R1QU7;y*Rle^zh<Wnb*lfhiV2p<t&C}J!@~D1TG7BBcIe_RX
zkeMPk%8RRrsX|j%$MN>l(8<cdieoNfo;6~Af|J?&zx_0Hsu?`ateg@!Z5t9tR~&sw
zGjqoM<n@%49z}@DD4fopINF4kiki}_Im3M#iUsLd94Mz;d1~o6W}E=e8RFAe#v{nZ
zAwBF2d>Tu0xdv6PE6<RwQ<v&Fq<I>PEbW;>f>f&{z=h2kg+-Bk<laJ2?u~Md&Kc^{
zSb;Y<*8INA;;!VAXM?-*<QFsD8<gYwN~qm=8cP*1D;wfG7v(@zF;z%p)k1YiC{u5=
zEW6Ce_!$#$hNi@33QaLVR^N0uY()A<6PZv*B;>j3bNK0LEUPlgGJKYY=TNj1lni2_
zKtE!jkVq^Psxwi<VIGP9e|y*3+ct7V7n@HK`XjEni$+c@)g$Y%O;{}$ilzutq(D+$
zt4=-yiGdA}eIT0_=)dky=sh!hj5w6!xG}pe6u^u$yquYP=G=SFP=r*Kh^<9EuyVDo
z4xrpdHE;B~5uZjRu}B7JXsmgv9<AO1nj~cNN;lwt0JJvr0cK@BIfvFp4^;v%5ZUAQ
z=g~+7gs}{b3)Z-_4J0TW)Rski<gSG;isA_{p0%{3zN?_I(Qv=f(?(2we<W^8Nj1_{
z(a8`=fX*a6P&QjZD5C>3*0QczU}NbT7Ni(u2OrzeW0;lHWJboXf6JQsM8#|c0%i}5
zxS-L%<$svct$f83R%j2U>pWE{#z46-M>Im;xJYPhoWy<#xANsr@WLdZ%%@sll}|A@
zKKQO;wvJ`~gtT0NN-G_3xeXbKvTM4GH8$fDK$xw~pfwOeNox}snATg177cc-zK+|F
zexDsJ4T(zC3OJ}GMRhONh^vPNMjMI_D_>tCMd`*+&J+CSvHkJy0O@xYCE8Uas)eeR
zU-dA9(FibVOS)$xY+Q~8V{~byk-f|@1@788JrI5eN~q=_PnaDv*!^Fs8f^(5WB2k{
zAQ%HlCTi>`nX`9KiRsn4+RwCBzD5hPG7Ah^TO(Nw6qU(#Bsp+;$EnZ9x2^knhJ%>u
zmkn2y-)c*y_NMjk{8OLh)LS3>j=%w`x1qa$`X27oz<Z3OdH{sBB$mO)JyEqM*P)^s
zU7=BSS1<HN`F@NbP=ZNI&067}w4vG%)iokDN}7FJmK_`gfc0&|0YW{#zEe?Rc-)YS
z_twUTu&g%djszxUpGJtXRv&<_EtOaEV$Y4!J+#<y3ced<2932r4?xj|psPHn%}w7x
z7|CW&Mwhlt>#p`tMv9U+HQVo`kgBA{tl&Y-i~R_<@_ki%umTtcAP7k#XE&3_^j8JD
zaXA`{fp)@s0JOH$TRrD0-%QO6=gd}kXZCP^93MB69)P$lRaT1@rCW_g0BlgIk-K}i
z{!q5Hq0Nwk%;y#0ve~-(_K@^YS6_h0C<BdmRAi@Yt=&1>yBph?G!O8q4J9UhG3bKU
zdXOHNY#Sm9HN;$FES%XY9g_^#7a6U_%ESHtVC7}1Zmx+t%j*F!+mcnrM|~1Y12q6-
zm;%Q7o!6p8LqpqIOdnq&={m^#VI}0s=GIDBZ3VT~thsbQaXdV4<KZp&Jed){vQ_<}
zm(G5<WC#Jx$*s-4=47#MKDi4gN%L=WI=Kz;Q)7G(I1F*Pz+r^L7>5ZCQ$7gT3D^nP
z3D^nPiE+2XM;Hni4q-Ti;Sh#H7!F}LM2ADz4Pke2PM2|v7cjfHKra`tyMWyV>@Hw8
zLVqLlH-g~^{f%HZg53yqBiM~$Hx}q-48t)D$1ohja16sS3@0$0pu-95Ca{~pZUVar
z>?TumGlk(4hEo_$VK{~16oyk6PPs$=mMk3DP5?swjv5@;PMiZ80SpB&6u?jbLjep0
zFciR02<}h-LIDT`AQXU5075YYHUbz5U?_m00EU7w<O2)=qPReZz)%1~0SpB&6u?l7
zfQ<l%0w4;2C;*}WhyoxAfGEc35Eu$zD1e~=h5{IhF|ZK;Q2;~%5CuRK08s!$0T9Im
z9RfoE3<WS0z)%1~F_qW=L;(;HU$5~KX#U)DL+VMIo|3)3_S`H^=vEB>LQWPhU(aAQ
z_b!9Tqswr;q}~l}PO00m=Rvw6+x`>T?jqZ)JhGi={*tT7lwYN85Rjd1g4t|Fm%+`9
z#Ej15FtZ{B*f*h*c{I48!G_Jc+XHzC_2f8-xAL5fdcBlGk9rwR&iVJ-x}A<K=QBuY
zka3?KJM}V3i6_KOV$2<Kn;S=S>e>GHvXR4YM!8+_DkHnkJ<yP^IF-{V+{J8tPk}@1
zHCgd03*yKLE$XGg-#mOKa!Qu7zTpPxTkhg1CjO0rR-QPOiNJ9)c!jQTIpdwKJU4Jc
zvKezmi4l&S3^OP7Z{NZ&1o;|7*@9@GCa`Zkq)D|N<uG>YIw3CvCRH`oSEqnwDRFri
zEbXAe-Y}#<<?%sz8OH7v_2^^}zYK$v+2k_~0|ZCtkZNOIbtUUA=4r;pPqWk63(Jj{
zs~}`TxXwED=5!UV=e}oEQIIY?hv}lTE~CNpyK%uehnNEe&90qr4NBz^EZM}2D&F66
zzLV@iM3?k(C_7cnRhyio&Q0moZQ{W><|)zwU*n|SjQf%yipX=w{xcIgh!BpP6Ji;c
z7_10FK?B)$HU900hwaG2Eyoh((5dd9-{<YXQC1JTx|Aqiwv*SdE8&o#Yx(b%>q>|J
z^0%C0;j#2r`wtFvkXW=fo~HJW&+z~ZtnG2W1^tks`Sr?iuN<EvxclVEzrOnFYxPsI
z@+Vd~w|4FPJXy=YPghr#>>*1wg!j+oF^GbUeptjb4-(n1@WK^cCh^Oh!HJjG0#3O$
z)0V7s>3U(9qPIL2wnG7(*W)1bB9EyFA3z<L^f7ebjn`2|=UUBCbJK$$&5|;`a#6rL
zWF(nfkrVTj@1$wqN8bE<Vv{`UXNw^6Q~rrS%xQpjZK1gOMd~8b?GU`3vuGWLwOL85
zdfJHRTx4pl%(!M;S=Atx7p9&?cGzD>5<S>2Ba7!(HmTIXcrp*<KZ%h;XIZl3I-Ad4
zJDofHS03J>lUInova@BjN`j>YKUH@<yRdV%?3|r;{+6A;)9!l9?mD-V@HMV7S1Qg3
zb->s!n^O(5Vh}{Ut`QpWR%c$v_TBz6jwFRTHV+lK)U~?HzrTC;;f{izKiz$N^Y+vG
zf83G(@y)M4zJL20rT_fx)7?*959f&getQ4&n-BE%mv?vc%SU>;cuKt=?>_u``W(pT
zUGhwn_Hck-9=ImKw&+p-O-g7uoDMbCRSWTgSAv&9iKb`M=`*rfs}@er=$jwnWKPe9
z&t|M8iotU#oV;?V>Is@CKLN#6^#SIVvt|r^+M>|F(a*CqVI1|Af>#A$q{`Ab>C<Yl
zalI&KWN*weoB!mfg_$CGPD0I(#LL!6L>6V<RhGmNS1J%D$bxGxC00RmZ?3VHB^<z#
z{FbvW`j=j9PXjwNxKWs>Ddhat+RG_8$vnOH=n|o#>n|~SunZmd-oyK*XL&?6dFE%l
z|F|!%9KTv03bj0nwe}LV>kQkY`*yz2=Z%<0VbR;TBaUG!n0rwcTyAI+uM;LmvJ6;n
z69;9P!KjBMN_mJ{LBz@@m=j-@Y)+Wr8*+SyWeBc;p6{qSRb*OzUr@aWXz6R2c8k`+
zsz?T$UQjj^H@h-RY~>}CGajq4hBQ|YSzKiWQE2;UkR3a#Rk)!uF4+lcEZXr|gfuwm
z=Y{;FPh2=kK`|(;A=vJ19YmM$4r};RRg!#mS`~yY=&@4F*KQtjb+u*%ytc;+!zYys
zyjkO*rdL*yq%SgPNk4H`i}aN>vjAMVDrC*$$YT`BZ71sy3DPC2Wj9`JScR@U&K-&8
z%q_CAZ1a48a|7zJY&m622Jt#8YDc+@c?~bNF;F<Vtl;<O#a?dC`80Bt-VFOpGvC9M
ziyc;<EmyFlfoxROu6d$1>kS5oEy;SZJz@CIJGgSz1%%yFcT`euOX(GJ^DDKZr}&e8
zuFgu%upsf{c+QeU(Y#kE5^x)eMkVvrRdod?(<*|LY?O4>grA~sE@g7-GM)-qC^tqJ
z#++5556MpAI0J}<W1RGJ-IFUDHB_l;axWliDmy3}Wml@2Mms1QWml@2Mms1QWmn`w
zWhN=$h5>6b<!uQXhbG@E=esui5XSUeI#jLTAD*x#|N2G>^P@UHs&lQj9o6|!o#%4;
zsLs^};i%5#uBSb9o~t?5(|m7oTZYTq{MmxVmwW}OT5hxQ%WPD5=+)V`{DD(KcsZbN
zDd0QveJ^$UEcdjlN_AH6hfhf9pOTY!^qg-mqBlu~Ka$)t;g*vz{2BSu5Idiz=^176
zUAf8Jx@70rE6i3-e$^jNM&CV6S!iox?Y!{1xKM76?tR&D(*t<z<EH1h>A@YS<EBU7
M%;0wJ|HG!|-xJo`rvLx|

diff --git a/src/rrs/displa.urs017 b/src/rrs/displa.urs017
new file mode 100644
index 00000000..003242dc
--- /dev/null
+++ b/src/rrs/displa.urs017
@@ -0,0 +1,852 @@
+<PACKAGE "DISPLA">
+<ENTRY SETCLIP CALL DISP  ROTX ROTY ROTZ SCALE XLATE 
+       MV DR PT LN PV HC PG STPJ DSH STRG PICT>
+
+<USE "SMCELLS">
+<USE "MIGSMN">
+
+<BLOCK (<GET MIGS OBLIST> <ROOT>)>
+MCELL TRMTYP PROJX PROJY PROJZ XORG YORG
+<ENDBLOCK>
+
+<BLOCK (<GET DISPCOM OBLIST> <ROOT>)>
+P1 P2 CHN RST BLKSTK 3DSTK INSTK OUTSTK NAMSTK XFRSTK INSTRSTK
+TXFRSTRK CLIPCON COMSWITCH 
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET MCELLS OBLIST> <GET DISPCOM OBLIST>)>
+
+
+
+<COND (<GASSIGNED? TRMTYP> "OK")
+      (TOO.BAD <ERROR START.OVER>)>
+<COND (<=? <SET FOO ,TRMTYP> !\T> <USE "MTPRIM">)
+      (<=? .FOO !\G> <USE "MGPRIM">)
+      (<=? .FOO !\A> <USE "MAPRIM">)
+      (<=? .FOO !\I> <USE "MAPRIM">)
+      (<=? .FOO !\V> <USE "MVPRIM">)
+      (T <ERROR YOU.LOSE>)>
+
+<SET REDEFINE T>
+
+<SET CHN T>
+
+<SET RST T>
+
+
+
+<DEFINE PICT (ATOM ML "ARGS" BODY) 
+	#DECL ((ATOM VALUE) ATOM (ML) <LIST [REST STRING]> (BODY) LIST)
+	<SET BODY
+	     (<COND (<MEMBER "INV" .ML> INV)
+		    (<MEMBER "VIS" .ML> '#FALSE ())
+		    (T '#FALSE ())>
+	      !.BODY)>
+	<SET BODY
+	     (<COND (<MEMBER "2D" .ML> '#FALSE ())
+		    (<MEMBER "3D" .ML> '3D)
+		    (T '3D)>
+	      !.BODY)>
+	<SET BODY (() !.BODY)>
+	<SET BODY (() !.BODY)>
+	<SET BODY (.ATOM !.BODY)>
+	<SET BODY ('MCELL !.BODY)>
+	<EVAL <CHTYPE .BODY FORM>>
+	.ATOM>
+
+<DEFINE MCELL (NAME
+	       "OPTIONAL" (XYZD (0 0 0))
+			  (SCL (1024 1024 1024))
+			  (3D #FALSE ())
+			  (BLK #FALSE ())
+	       "ARGS" INSTR)
+	#DECL ((NAME) ATOM
+	       (XYZD SCL INSTR) LIST
+	       (3D BLK) <SPECIAL <OR ATOM FALSE>>)
+	<SET <PARSE <STRING <PNAME .NAME> "!-MCELLS">>
+	     <CHTYPE (.XYZD .SCL .3D .BLK !<DISPCOM .INSTR!>) MCELL>>
+	"DONE">
+
+<DEFINE DISPCOM (INSTR
+		 "AUX" (OUTSTK ())
+		       (INSTK ())
+		       COMSWITCH)
+	#DECL ((INSTR) LIST
+	       (OUTSTK)
+	       <SPECIAL <LIST [REST
+			       <LIST FIX [REST <OR FIX FLOAT FORM ATOM>]>]>>
+	       (INSTK) <SPECIAL LIST>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<MAPF <> ,EVAL .INSTR>
+	<MAPF <>
+	      #FUNCTION ((OP)
+			 #DECL ((OP) <LIST FIX [REST <OR FIX FLOAT FORM ATOM>]>
+				(OUTSTK)
+				<SPECIAL <LIST [REST
+						<LIST FIX
+						      [REST
+						       <OR FIX
+							   FLOAT
+							   FORM
+							   ATOM>]>]>>)
+			 <SET OUTSTK (.OP !.OUTSTK)>)
+	      .INSTK>
+	.OUTSTK>
+
+<DEFINE MV (X Y "OPTIONAL" (Z 0))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (3D) <SPECIAL <OR ATOM FALSE>>)
+	<SET INSTK
+	     (<COND (.3D (0 .X .Y .Z)) (ELSE (0 .X .Y))>
+	      !.INSTK)>>
+
+<DEFINE DR (X Y "OPTIONAL" (Z 0))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (3D) <SPECIAL <OR ATOM FALSE>>)
+	<SET INSTK
+	     (<COND (.3D (1 .X .Y .Z)) (ELSE (1 .X .Y))>
+	      !.INSTK)>>
+
+<DEFINE PT (X Y "OPTIONAL" (Z 0))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (3D) <SPECIAL <OR ATOM FALSE>>
+	       (Z1) <LIST [REST FIX]>)
+	<SET Z1 <COND (.3D (.X .Y .Z)) (ELSE (.X .Y))>>
+	<SET INSTK
+	     ((1 !.Z1) (0 !<PUT .Z1 2 <+ <2 .Z1> 1>!>) !.INSTK)>>
+
+<DEFINE LN (X Y "OPTIONAL" Z X1 Y1 Z1 "AUX" Q Q1)
+	#DECL ((X Y Z X1 Y1 Z1) <OR FIX FLOAT>
+	       (Q Q1) <LIST FIX [REST <OR FIX FLOAT>]>
+	       (3D) <SPECIAL <OR ATOM FALSE>>
+	       (INSTK) <SPECIAL LIST>)
+	<COND (.3D
+	       <COND (<ASSIGNED? Y1>
+		      <SET Q (0 .X .Y .Z)>
+		      <SET Q1 (1 .X1 .Y1 .Z1)>)
+		     (T <SET Q (0 .X .Y 0)> <SET Q1 (1 .Z .X1 0)>)>)
+	      (T <SET Q (0 .X .Y)> <SET Q1 (1 .Z .X1)>)>
+	<SET INSTK (.Q1 .Q !.INSTK)>>
+
+<DEFINE PV (X Y "OPTIONAL" (Z <IUVECTOR <LENGTH .Y> 0>))
+	#DECL ((X Y Z) <OR LIST VECTOR UVECTOR>
+	       (3D) <SPECIAL <OR ATOM FALSE>>
+	       (INSTK) <SPECIAL LIST>)
+	<COND (<AND <==? <LENGTH .X> <LENGTH .Y>>
+		    <COND (.3D <==? <LENGTH .Y> <LENGTH .Z>>) (ELSE T)>>
+	       <COND (.3D
+		      <SET INSTK
+			   ((0 <1 .X> <1 .Y> <1 .Z>) !.INSTK)>
+		      <MAPF <>
+			    #FUNCTION ((X Y Z)
+				       #DECL ((X Y Z) <OR FIX FLOAT>
+					      (INSTK) <SPECIAL LIST>)
+				       <SET INSTK
+					    ((1 .X .Y .Z) !.INSTK)>)
+			    <REST .X>
+			    <REST .Y>
+			    <REST .Z>>)
+		     (ELSE
+		      <SET INSTK ((0 <1 .X> <1 .Y>) !.INSTK)>
+		      <MAPF <>
+			    #FUNCTION ((X Y)
+				       #DECL ((X Y) <OR FIX FLOAT>
+					      (INSTK) <SPECIAL LIST>)
+				       <SET INSTK
+					    ((1 .X .Y) !.INSTK)>)
+			    <REST .X>
+			    <REST .Y>>)>)
+	      (ELSE <ERROR "LENGHTS NOT EQUAL" "PV">)>>
+
+<DEFINE CALL (NAME "ARGS" XFORMS)
+	#DECL ((NAME) ATOM
+	       (XFORMS) <LIST [REST FORM]>
+	       (INSTK) <SPECIAL LIST>)
+	<SET INSTK
+	     ((-1
+	       <PARSE <STRING <PNAME .NAME> "!-MCELLS">>
+	       !<FIXFRM .XFORMS!>)
+	      !.INSTK)>>
+
+<DEFINE FIXFRM (XFORMS)
+	#DECL ((XFORMS) <LIST [REST FORM]>)
+	<MAPF ,LIST
+	      #FUNCTION ((XFR)
+			 #DECL ((XFR VALUE) FORM)
+			 <FORM <1 .XFR> !<MAPF ,LIST ,EVAL <REST .XFR>!>>)
+	      .XFORMS>>
+
+<DEFINE HC ()
+	#DECL ((INSTK) <SPECIAL LIST> (VALUE) ATOM)
+	<SET INSTK ((6) !.INSTK)>
+	,NULL>
+
+<DEFINE PG ()
+	#DECL ((INSTK) <SPECIAL LIST> (VALUE) ATOM)
+	<SET INSTK ((5) !.INSTK)>
+	,NULL>
+
+<DEFINE STPJ (X Y Z)
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (VALUE) ATOM)
+	<SET INSTK ((2 .X .Y .Z) !.INSTK)>
+	,NULL>
+
+<DEFINE STRG (X Y)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (VALUE) ATOM)
+	<SET INSTK ((3 .X .Y) !.INSTK)>
+	,NULL>
+
+<DEFINE STCP (XL XR YB YT)
+	#DECL ((XL XR YB YT) <OR FIX FLOAT>
+	       (INSTK) <SPECIAL LIST>
+	       (VALUE) ATOM)
+	<SET INSTK ((4 .XL .XR .YB .YT) !.INSTK)>
+	,NULL>
+
+<DEFINE DSH (A)
+	#DECL ((A) <OR ATOM FALSE>
+	       (INSTK) <SPECIAL LIST>
+	       (VALUE) ATOM)
+	<SET INSTK ((<COND (.A 7) (T 8)>) !.INSTK)>
+	,NULL>
+
+<SETG CLIPCON
+      (0.0000000 1023.0000 0.0000000 1023.0000)>
+
+<SETG KLUDGE!-DISPCOM []> ;"?????????"
+
+<DEFINE SETCLIP ("OPTIONAL" (XL 0.0000000)
+			    (XR 1023.0000)
+			    (YB 0.0000000)
+			    (YT 1023.0000))
+	#DECL ((XL XR YB YT) <OR FIX FLOAT>
+	       (VALUE) <LIST [REST FLOAT]>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH>
+	       <APPLY ,STCP .XL .XR .YB .YT>
+	       ())
+	      (ELSE
+	       <SETG CLIPCON
+		     (<FLOAT .XL> <FLOAT .XR> <FLOAT .YB> <FLOAT .YT>)>)>>
+
+<DEFINE DISP (NAME
+	      "ARGS" XFORMS
+	      "AUX" (3DSTK ())
+		    (BLKSTK ())
+		    (NAMSTK ())
+		    (XFRSTK ())
+		    (INSTRSTK ())
+		    (TXFRSTK ())
+		    (SPJX ,PROJX)
+		    (SPJY ,PROJY)
+		    (SPJZ ,PROJZ)
+		    (SRGX ,XORG)
+		    (SRGY ,YORG)
+		    (SCLP ,CLIPCON))
+	#DECL ((3DSTK BLKSTK)
+	       <SPECIAL <LIST [REST <OR ATOM FALSE>]>>
+	       (NAMSTK) <SPECIAL <LIST [REST ATOM]>>
+	       (XFRSTK TXFRSTK)
+	       <SPECIAL <LIST [REST <OR FIX VECTOR>]>>
+	       (INSTRSTK) <SPECIAL <LIST [REST LIST]>>
+	       (NAME) ATOM
+	       (XFORMS) <LIST [REST FORM]>
+	       (SPJX SPJY SPJZ) FLOAT
+	       (SRGX SRGY) FIX
+	       (SCLP) <LIST [REST FLOAT]>)
+	<SET NAME <PARSE <STRING <PNAME .NAME> "!-MCELLS">>>
+	<DSPLY .NAME <FIXFRM .XFORMS>>
+	<SETG CLIPCON .SCLP>
+	<SETG PROJX .SPJX>
+	<SETG PROJY .SPJY>
+	<SETG PROJZ .SPJZ>
+	<SETG XORG .SRGX>
+	<SETG YORG .SRGY>
+	,NULL>
+
+<DEFINE DSPLY (NAME XFORMS)
+	#DECL ((3DSTK BLKSTK)
+	       <SPECIAL <LIST [REST <OR ATOM FALSE>]>>
+	       (NAMSTK) <SPECIAL <LIST [REST ATOM]>>
+	       (XFRSTK TXFRSTK)
+	       <SPECIAL <LIST [REST <OR FIX VECTOR>]>>
+	       (INSTRSTK) <SPECIAL <LIST [REST LIST]>>
+	       (NAME) ATOM
+	       (XFORMS) <LIST [REST FORM]>)
+	<COND (<NOT <==? MCELL <TYPE ..NAME>>>
+	       <ERROR .NAME "NOT A MCELL" "DSPLY">)>
+	<PUSH .NAME NAMSTK>
+	<PUSH <3 ..NAME> 3DSTK>
+	<PUSH <4 ..NAME> BLKSTK>
+	<PUSH <REST ..NAME 4> INSTRSTK>
+	<PUSH <CONCAT .XFORMS> XFRSTK>
+	<PUSH <TCAT .XFRSTK> TXFRSTK>
+	<REPEAT (INST OP)
+		#DECL ((INST) <LIST FIX [REST <OR FIX FLOAT ATOM FORM>]>
+		       (VALUE) STRING
+		       (OP) FIX)
+		<SET INST <1 <1 .INSTRSTK>>>
+		<PUT .INSTRSTK 1 <REST <1 .INSTRSTK>>>
+		<COND (<==? <1 .INST> -1>
+		       <COND (<MEMQ <2 .INST> .NAMSTK>
+			      <ERROR "INFINITE RECURSION  FOUND IN"
+				     <1 .NAMSTK>
+				     .INST
+				     "DSPLY">)>
+		       <DSPLY <2 .INST> <REST .INST 2>>)
+		      (T
+		       <SET OP <1 .INST>>
+		       <COND (<L? .OP 2>
+			      <DVAL <XFORM .INST <1 .TXFRSTK>>
+				    <1 .3DSTK>
+				    <1 .BLKSTK>>)
+			     (<==? 2 .OP> <APPLY ,SETPROJ !<REST .INST!>>)
+			     (<==? 3 .OP> <APPLY ,SETORG !<REST .INST!>>)
+			     (<==? 4 .OP> <SETCLIP !<REST .INST!>>)
+			     (<==? 5 .OP> <APPLY ,PAGE>)
+			     (<==? 6 .OP> <APPLY ,HCOPY>)
+			     (<==? 7 .OP> <APPLY ,DASH T>)
+			     (<==? 8 .OP> <APPLY ,DASH <>>)
+			     (ELSE <ERROR "INVALID OP CODE" "DSPLY">)>)>
+		<COND (<EMPTY? <1 .INSTRSTK>>
+		       <POP NAMSTK>
+		       <POP 3DSTK>
+		       <POP BLKSTK>
+		       <POP INSTRSTK>
+		       <POP XFRSTK>
+		       <POP TXFRSTK>
+		       <RETURN "DONE">)>>>
+
+<DEFINE PUSH (THING STACK)
+	#DECL ((THING) ANY (STACK) ATOM (VALUE) LIST)
+	<SET .STACK (.THING !..STACK)>>
+
+<DEFINE POP (STACK)
+	#DECL ((STACK) ATOM (VALUE) LIST)
+	<SET .STACK <REST ..STACK>>>
+
+<DEFINE CONCAT (XFRLIST "AUX" XFRMAT (TEMP ()))
+	#DECL ((XFRLIST) <LIST [REST FORM]>
+	       (XFRMAT) <SPECIAL <VECTOR FIX FIX <VECTOR [REST FLOAT]>>>
+	       (TEMP)
+	       <SPECIAL <LIST [REST <VECTOR FIX FIX <VECTOR [REST FLOAT]>>]>>
+	       (VALUE) <OR FIX VECTOR>)
+	<COND (<EMPTY? .XFRLIST> 1)
+	      (<COND (<1 .3DSTK>
+		      <SET XFRMAT
+			   [4
+			    4
+			    [1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000
+			     ]]>)
+		     (T
+		      <SET XFRMAT
+			   [3
+			    3
+			    [1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000
+			     0.0000000
+			     0.0000000
+			     0.0000000
+			     1.0000000]]>)>
+	       <MAPF <>
+		     #FUNCTION ((X)
+				#DECL ((X) FORM
+				       (VALUE)
+				       <LIST <VECTOR FIX
+						     FIX
+						     <VECTOR [REST FLOAT]>>>)
+				<SET TEMP (<EVAL .X> !.TEMP)>)
+		     .XFRLIST>
+	       <MAPF <>
+		     #FUNCTION ((XFR)
+				#DECL ((XFR VALUE)
+				       <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+				<SET XFRMAT <M*32S .XFR .XFRMAT>>)
+		     .TEMP>
+	       .XFRMAT)>>
+
+<DEFINE DVAL (INST 3D BLK)
+	#DECL ((INST) <LIST FIX [REST <OR FIX FLOAT>]>
+	       (3D BLK) <OR ATOM FALSE>
+	       (VALUE) STRING
+	       (P1 P2) <SPECIAL <LIST [2 <OR FIX FLOAT>]>>)
+	<COND (<NOT .BLK>
+	       <COND (.3D
+		      <COND (<0? <1 .INST>>
+			     <SET P1 <APPLY ,PROJ !<REST .INST!>>>)
+			    (<1? <1 .INST>>
+			     <SET P2 <APPLY ,PROJ !<REST .INST!>>>
+			     <CLIP .P1 .P2 !,CLIPCON>
+			     <SET P1 .P2>)
+			    (T <ERROR "INVALID OP CODE" "DVAL">)>)
+		     (ELSE
+		      <COND (<0? <1 .INST>> <SET P1 <REST .INST>>)
+			    (<1? <1 .INST>>
+			     <SET P2 <REST .INST>>
+			     <CLIP .P1 .P2 !,CLIPCON>
+			     <SET P1 .P2>)
+			    (T <ERROR "INVALID OP CODE" "DVAL">)>)>)>
+	"DONE">
+
+<DEFINE TCAT (XFRSTK "AUX" XFR (TEMP ()))
+	#DECL ((XFRSTK) <LIST [REST <OR FIX VECTOR>]>
+	       (XFR) <SPECIAL <VECTOR FIX FIX <VECTOR [REST FLOAT]>>>
+	       (TX) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>
+	       (VALUE) <OR FIX VECTOR>
+	       (TEMP)
+	       <SPECIAL <LIST [REST <VECTOR FIX FIX <VECTOR [REST FLOAT]>>]>>
+	       (3DSTK) <SPECIAL <LIST [REST <OR ATOM FALSE>]>>)
+	<COND (<1 .3DSTK>
+	       <SET XFR
+		    [4
+		     4
+		     [1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000
+		      ]]>
+	       <SET TX .XFR>)
+	      (T
+	       <SET XFR
+		    [3
+		     3
+		     [1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000
+		      0.0000000
+		      0.0000000
+		      0.0000000
+		      1.0000000]]>
+	       <SET TX .XFR>)>
+	<MAPF <>
+	      #FUNCTION ((T1)
+			 #DECL ((TI)
+				<0R FIX <VECTOR FIX FIX <VECTOR [REST FLOAT]>>>
+				(VALUE) STRING)
+			 <COND (<OR <==? FIX <TYPE .T1>> <==? FLOAT <TYPE .T1>>>
+				"SKIP")
+			       (T <SET TEMP (.T1 !.TEMP)>)>
+			 "FOO")
+	      .XFRSTK>
+	<MAPF <>
+	      #FUNCTION ((XFR1)
+			 #DECL ((XFR1 VALUE)
+				<VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+			 <SET XFR <M*32S .XFR1 .XFR>>)
+	      .TEMP>
+	<COND (<=? .XFR .TX> 1) (T .XFR)>>
+
+<DEFINE XFORM (INST TXFR)
+	#DECL ((INST VALUE) <LIST FIX [REST <OR FIX FLOAT>]>
+	       (TXFR) <OR FIX VECTOR>)
+	<COND (<==? <TYPE .TXFR> FIX> .INST)
+	      (T (<1 .INST> !<M*V32 .TXFR <REST .INST>!>))>>
+
+<DEFINE CLIP (PTA PTB
+	      "OPTIONAL" (XL 0.0000000)
+			 (XR 1023.0000)
+			 (YB 0.0000000)
+			 (YT 1023.0000)
+	      "AUX" (PT1 <TUPLE <FIX <1 .PTA>> <FIX <2 .PTA>>>)
+		    (PT2 <TUPLE <FIX <1 .PTB>> <FIX <2 .PTB>>>)
+		    (B0 #WORD *000000000000*)
+		    (B1 #WORD *000000000001*)
+		    (B10 #WORD *000000000002*)
+		    (B100 #WORD *000000000004*)
+		    (B1000 #WORD *000000000010*)
+		    (C1 <CODE .PT1 .XL .XR .YB .YT>)
+		    (C2 <CODE .PT2 .XL .XR .YB .YT>))
+	#DECL ((PTA PTB) <LIST [2 <OR FIX FLOAT>]>
+	       (PT1 PT2) <TUPLE FIX FIX>
+	       (XL XR YT YB) FLOAT
+	       (B0 B1 B10 B100 B1000 C1 C2) WORD
+	       (VALUE) STRING)
+	<REPEAT (T1 (T2 <TUPLE 0 0>))
+		#DECL ((T1) WORD (T2) <TUPLE FIX FIX> (VALUE) STRING)
+		<COND (<AND <==? .B0 .C1> <==? .B0 .C2>>
+		       <APPLY ,LINE <1 .PT1> <2 .PT1> <1 .PT2> <2 .PT2>>
+		       <RETURN "DONE">)
+		      (<NOT <==? .B0 <ANDB .C1 .C2>>> <RETURN "DONE">)>
+		<COND (<==? .B0 .C1>
+		       <SET T1 .C1>
+		       <SET C1 .C2>
+		       <SET C2 .T1>
+		       <PUT .T2 1 <1 .PT1>>
+		       <PUT .T2 2 <2 .PT1>>
+		       <PUT .PT1 1 <1 .PT2>>
+		       <PUT .PT1 2 <2 .PT2>>
+		       <PUT .PT2 1 <1 .T2>>
+		       <PUT .PT2 2 <2 .T2>>)>
+		<COND (<==? .B1 <ANDB .B1 .C1>>
+		       <PUT .PT1
+			    2
+			     <FIX <+ <2 .PT1>
+				     </ <* <- <2 .PT2> <2 .PT1>>
+					   <- .XL <1 .PT1>>>
+					<- <1 .PT2> <1 .PT1>>>>>>
+		       <PUT .PT1 1 <FIX .XL>>)
+		      (<==? .B10 <ANDB .B10 .C1>>
+		       <PUT .PT1
+			    2
+			     <FIX <+ <2 .PT1>
+				     </ <* <- <2 .PT2> <2 .PT1>>
+					   <- .XR <1 .PT1>>>
+					<- <1 .PT2> <1 .PT1>>>>>>
+		       <PUT .PT1 1 <FIX .XR>>)
+		      (<==? .B100 <ANDB .B100 .C1>>
+		       <PUT .PT1
+			    1
+			    <FIX <+ <1 .PT1>
+				     </ <* <- <1 .PT2> <1 .PT1>>
+					   <- .YB <2 .PT1>>>
+					<- <2 .PT2> <2 .PT1>>>>>
+			     >
+			<PUT .PT1 2 <FIX .YB>>)
+		      (<==? .B1000 <ANDB .B1000 .C1>>
+		       <PUT .PT1
+			    1
+			    <FIX <+ <1 .PT1>
+				     </ <* <- <1 .PT2> <1 .PT1>>
+					   <- .YT <2 .PT1>>>
+					<- <2 .PT2> <2 .PT1>>>>>
+			     >
+		       <PUT .PT1 2 <FIX .YT>>)>
+		<SET C1 <CODE .PT1 .XL .XR .YB .YT>>>>
+
+<DEFINE CODE (PT XL XR YB YT "AUX" (CODE1 #WORD *000000000000*))
+	#DECL ((PT) <TUPLE FIX FIX>
+	       (CODE1 VALUE) WORD
+	       (XL XR YB YT) FLOAT)
+	<COND (<L? <1 .PT> .XL>
+	       <SET CODE1 <ORB .CODE1 #WORD *000000000001*>>)
+	      (<G? <1 .PT> .XR>
+	       <SET CODE1 <ORB .CODE1 #WORD *000000000002*>>)>
+	<COND (<L? <2 .PT> .YB>
+	       <SET CODE1 <ORB .CODE1 #WORD *000000000004*>>)
+	      (<G? <2 .PT> .YT>
+	       <SET CODE1 <ORB .CODE1 #WORD *000000000010*>>)>
+	.CODE1>
+
+<DEFINE M*32S (A1 B1 "AUX" A B)
+	#DECL ((A1 B1 VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>
+	       (A B) <VECTOR [REST FLOAT]>)
+	<COND (<==? 4 <1 .A1>>
+	       <SET A <3 .A1>>
+	       <SET B <3 .B1>>
+	       [4
+		4
+		[<+ <* <1 .A> <1 .B>>
+		    <* <2 .A> <5 .B>>
+		    <* <3 .A> <9 .B>>
+		    <* <4 .A> <13 .B>>>
+		 <+ <* <1 .A> <2 .B>>
+		    <* <2 .A> <6 .B>>
+		    <* <3 .A> <10 .B>>
+		    <* <4 .A> <14 .B>>>
+		 <+ <* <1 .A> <3 .B>>
+		    <* <2 .A> <7 .B>>
+		    <* <3 .A> <11 .B>>
+		    <* <4 .A> <15 .B>>>
+		 <+ <* <1 .A> <4 .B>>
+		    <* <2 .A> <8 .B>>
+		    <* <3 .A> <12 .B>>
+		    <* <4 .A> <16 .B>>>
+		 <+ <* <5 .A> <1 .B>>
+		    <* <6 .A> <5 .B>>
+		    <* <7 .A> <9 .B>>
+		    <* <8 .A> <13 .B>>>
+		 <+ <* <5 .A> <2 .B>>
+		    <* <6 .A> <6 .B>>
+		    <* <7 .A> <10 .B>>
+		    <* <8 .A> <14 .B>>>
+		 <+ <* <5 .A> <3 .B>>
+		    <* <6 .A> <7 .B>>
+		    <* <7 .A> <11 .B>>
+		    <* <8 .A> <15 .B>>>
+		 <+ <* <5 .A> <4 .B>>
+		    <* <6 .A> <8 .B>>
+		    <* <7 .A> <12 .B>>
+		    <* <8 .A> <16 .B>>>
+		 <+ <* <9 .A> <1 .B>>
+		    <* <10 .A> <5 .B>>
+		    <* <11 .A> <9 .B>>
+		    <* <12 .A> <13 .B>>>
+		 <+ <* <9 .A> <2 .B>>
+		    <* <10 .A> <6 .B>>
+		    <* <11 .A> <10 .B>>
+		    <* <12 .A> <14 .B>>>
+		 <+ <* <9 .A> <3 .B>>
+		    <* <10 .A> <7 .B>>
+		    <* <11 .A> <11 .B>>
+		    <* <12 .A> <15 .B>>>
+		 <+ <* <9 .A> <4 .B>>
+		    <* <10 .A> <8 .B>>
+		    <* <11 .A> <12 .B>>
+		    <* <12 .A> <16 .B>>>
+		 <+ <* <13 .A> <1 .B>>
+		    <* <14 .A> <5 .B>>
+		    <* <15 .A> <9 .B>>
+		    <* <16 .A> <13 .B>>>
+		 <+ <* <13 .A> <2 .B>>
+		    <* <14 .A> <6 .B>>
+		    <* <15 .A> <10 .B>>
+		    <* <16 .A> <14 .B>>>
+		 <+ <* <13 .A> <3 .B>>
+		    <* <14 .A> <7 .B>>
+		    <* <15 .A> <11 .B>>
+		    <* <16 .A> <15 .B>>>
+		 <+ <* <13 .A> <4 .B>>
+		    <* <14 .A> <8 .B>>
+		    <* <15 .A> <12 .B>>
+		    <* <16 .A> <16 .B>>>
+		 ]])
+	      (T
+	       <SET A <3 .A1>>
+	       <SET B <3 .B1>>
+	       [3
+		3
+		[<+ <* <1 .A> <1 .B>> <* <2 .A> <4 .B>> <* <3 .A> <7 .B>>>
+		 <+ <* <1 .A> <2 .B>> <* <2 .A> <5 .B>> <* <3 .A> <8 .B>>>
+		 <+ <* <1 .A> <3 .B>> <* <2 .A> <6 .B>> <* <3 .A> <9 .B>>>
+		 <+ <* <4 .A> <1 .B>> <* <5 .A> <4 .B>> <* <6 .A> <7 .B>>>
+		 <+ <* <4 .A> <2 .B>> <* <5 .A> <5 .B>> <* <6 .A> <8 .B>>>
+		 <+ <* <4 .A> <3 .B>> <* <5 .A> <6 .B>> <* <6 .A> <9 .B>>>
+		 <+ <* <7 .A> <1 .B>> <* <8 .A> <4 .B>> <* <9 .A> <7 .B>>>
+		 <+ <* <7 .A> <2 .B>> <* <8 .A> <5 .B>> <* <9 .A> <8 .B>>>
+		 <+ <* <7 .A> <3 .B>> <* <8 .A> <6 .B>> <* <9 .A> <9 .B>>>]])>>
+
+<DEFINE M*V32 (M1 V "AUX" M VX VY VZ)
+	#DECL ((M1) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>
+	       (M) <VECTOR [REST FLOAT]>
+	       (V) <LIST [REST <OR FIX FLOAT>]>
+	       (VALUE) <LIST [REST FLOAT]>
+	       (VX VY VZ) FLOAT)
+	<COND (<NOT <==? <+ 1 <LENGTH .V>> <2 .M1>>>
+	       <ERROR "YOU BLEW IT" "M*V32">)>
+	<COND (<==? 4 <1 .M1>>
+	       <SET VX <FLOAT <1 .V>>>
+	       <SET VY <FLOAT <2 .V>>>
+	       <SET VZ <FLOAT <3 .V>>>
+	       <SET M <3 .M1>>
+	       (<+ <* <1 .M> .VX>
+		   <* <5 .M> .VY>
+		   <* <9 .M> .VZ>
+		   <13 .M>>
+		<+ <* <2 .M> .VX>
+		   <* <6 .M> .VY>
+		   <* <10 .M> .VZ>
+		   <14 .M>>
+		<+ <* <3 .M> .VX>
+		   <* <7 .M> .VY>
+		   <* <11 .M> .VZ>
+		   <15 .M>>))
+	      (T
+	       <SET VX <FLOAT <1 .V>>>
+	       <SET VY <FLOAT <2 .V>>>
+	       <SET M <3 .M1>>
+	       (<+ <* <1 .M> .VX> <* <4 .M> .VY> <7 .M>>
+		<+ <* <2 .M> .VX> <* <5 .M> .VY> <8 .M>>))>>
+
+<DEFINE SCALE (X1
+	       "OPTIONAL" (Y1 .X1) (Z1 .X1)
+	       "AUX" (X <FLOAT .X1>) (Y <FLOAT .Y1>) (Z <FLOAT .Z1>))
+	#DECL ((X1 Y1 Z1) <OR FIX FLOAT>
+	       (X Y Z) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	<COND (<1 .3DSTK>
+	       [4
+		4
+		[.X
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 .Y
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 .Z
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 ]])
+	      (T
+	       [3
+		3
+		[.X
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 .Y
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000]])>>
+
+<DEFINE XLATE (X1 Y1
+	       "OPTIONAL" (Z1 0.0000000)
+	       "AUX" (X <FLOAT .X1>) (Y <FLOAT .Y1>) (Z <FLOAT .Z1>))
+	#DECL ((X1 Y1 Z1) <OR FIX FLOAT>
+	       (X Y Z) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	<COND (<1 .3DSTK>
+	       [4
+		4
+		[1.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 0.0000000
+		 .X
+		 .Y
+		 .Z
+		 1.0000000
+		 ]])
+	      (T
+	       [3
+		3
+		[1.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 0.0000000
+		 .X
+		 .Y
+		 1.0000000]])>>
+
+<DEFINE ROTZ (T)
+	#DECL ((T) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	<COND (<1 .3DSTK>
+	       [4
+		4
+		[<COS .T>
+		 <- 0.0000000 <SIN .T>>
+		 0.0000000
+		 0.0000000
+		 <SIN .T>
+		 <COS .T>
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000
+		 ]])
+	      (T
+	       [3
+		3
+		[<COS .T>
+		 <- 0.0000000 <SIN .T>>
+		 0.0000000
+		 <SIN .T>
+		 <COS .T>
+		 0.0000000
+		 0.0000000
+		 0.0000000
+		 1.0000000]])>>
+
+<DEFINE ROTX (T)
+	#DECL ((T) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	[4
+	 4
+	 [1.0000000
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  <COS .T>
+	  <- 0.0000000 <SIN .T>>
+	  0.0000000
+	  0.0000000
+	  <SIN .T>
+	  <COS .T>
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  1.0000000
+	  ]]>
+
+<DEFINE ROTY (T)
+	#DECL ((T) FLOAT
+	       (VALUE) <VECTOR FIX FIX <VECTOR [REST FLOAT]>>)
+	[4
+	 4
+	 [<COS .T>
+	  0.0000000
+	  <SIN .T>
+	  0.0000000
+	  0.0000000
+	  1.0000000
+	  0.0000000
+	  0.0000000
+	  <- 0.0000000 <SIN .T>>
+	  0.0000000
+	  <COS .T>
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  0.0000000
+	  1.0000000
+	  ]]>
+
+<ENDBLOCK>
+
+<ENDPACKAGE>
+
\ No newline at end of file
diff --git a/src/rrs/hptek.urs001 b/src/rrs/hptek.urs001
new file mode 100644
index 0000000000000000000000000000000000000000..3485d9e46ae55328d2920fefe79ab5810974346b
GIT binary patch
literal 416
zcmcJMQ44}F6oq|tzv5&s3KD5cC&*yvT}d{@RE+5V|BbZ73VLl1cb9W^58q{A46l>c
zDm$qI!8z6~ogDdg$h6HBqg<J1)%wHCNf(A@*L74kIB<Jr+x9bebqizc1cG1>o{U!r
zE+7JoG7pi&h@!a<w%cV45PWs_JoZWf);VP*T(|d-c0FZn)!^39rG+kryL>-P&#Kl)
rCH&$%t+VOn65^Y#EPu0WjRhWG&=dO%JrQ9^`wJ48eEtZ@EX#TT!^%+%

literal 0
HcmV?d00001

diff --git a/src/rrs/maprim.urs009 b/src/rrs/maprim.urs009
new file mode 100644
index 00000000..6ee7acd9
--- /dev/null
+++ b/src/rrs/maprim.urs009
@@ -0,0 +1,234 @@
+
+<PACKAGE "MAPRIM">
+<ENTRY SETORG MIGSSEND TRANS MOVE DRAW LINE POINT PAGE
+       PLOTV PLOTVDSK >
+<USE "DISPLA">
+<USE "SMCELLS">
+<BLOCK (<GET MIGS OBLIST> <ROOT>)>
+XORG YORG  ABSOLUTE-POSITION
+<ENDBLOCK>
+<BLOCK (<GET DISPCOM OBLIST> <ROOT>)>
+COMSWITCH
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET DISPCOM OBLIST>)>
+
+
+<SETG DASH 0>
+
+
+<SET ABSOLUTE-POSITION '(0 0)>
+
+
+<SETG XORG -512>
+
+<SETG YORG -512>
+
+<GDECL (XORG YORG DASH) FIX>
+
+<DEFINE SETORG ("OPTIONAL" (X -512) (Y -512))
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (VALUE) LIST
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,STRG .X .Y> ())
+	      (T (<SETG XORG <FIX .X>> <SETG YORG <FIX .Y>>))>>
+
+<DEFINE MIGSSEND ("TUPLE" LIST)
+	#DECL ((LIST) <TUPLE [REST FIX]> (VALUE) ATOM)
+	<MAPF <> ,IMAGE .LIST>
+	,NULL>
+
+<DEFINE TRANS (X Y
+	       "OPTIONAL" (INV 1)
+	       "AUX" (ABSOLUTE-POSITION .ABSOLUTE-POSITION)
+		     (DSH ,DASH)
+		     (DX1 <+ .X ,XORG>)
+		     (DY1 <+ .Y ,YORG>)
+		     (DX <- .DX1 <1 .ABSOLUTE-POSITION>>)
+		     (DY <- .DY1 <2 .ABSOLUTE-POSITION>>)
+		     (DXH </ <ABS .DX> 32>)
+		     (DXL <- <ABS .DX> <* .DXH 32>>)
+		     (DYH </ <ABS .DY> 32>)
+		     (DYL <- <ABS .DY> <* .DYH 32>>))
+	#DECL ((X Y DX DY DX1 DY1 DXH DXL DYH DYL INV DSH) FIX
+	       (ABSOLUTE-POSITION) <LIST FIX FIX>
+	       (VALUE) <LIST [4 FIX]>)
+	<PUT .ABSOLUTE-POSITION 1 .DX1>
+	<PUT .ABSOLUTE-POSITION 2 .DY1>
+	(<+ 64 <* 2 .DXL> <COND (<L? .DX 0> 1) (ELSE 0)>>
+	 <+ 64 <* 32 .INV> .DXH>
+	 <+ 64 <* 2 .DYL> <COND (<L? .DY 0> 1) (ELSE 0)>>
+	 <+ 64 <* 32 .DSH> .DYH>)>
+
+<DEFINE MOVE (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,MV .X .Y !.Z>)
+	      (T <ORG <FIX .X> <FIX .Y>> <IMAGE 30>)>
+	,NULL>
+
+<DEFINE DRAW (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,DR .X .Y !.Z>)
+	      (T <MIGSSEND !<TRANS <FIX .X> <FIX .Y> 0>>)>
+	,NULL>
+
+<DEFINE LINE (X0 Y0 X1 Y1 "TUPLE" Z)
+	#DECL ((X0 Y0 X1 Y1) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH>
+	       <APPLY ,LN .X0 .Y0 .X1 .Y1 !.Z>)
+	      (T
+	       <ORG <FIX .X0> <FIX .Y0>>
+	       <MIGSSEND 30 !<TRANS <FIX .X1> <FIX .Y1> 0!> 13>)>
+	,NULL>
+
+<DEFINE POINT (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PT .X .Y !.Z>)
+	      (T
+	       <ORG <FIX .X> <FIX .Y>>
+	       <MIGSSEND 30 !<TRANS <FIX .X> <+ <FIX .Y> 1> 0!> 13>)>
+	,NULL>
+
+<DEFINE PAGE ()
+	#DECL ((COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PG>)
+	      (T <PRINC "C"> <MIGSSEND 12>)>
+	,NULL>
+
+<DEFINE PLOTV (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+	       (VALUE) ATOM
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PV .X .Y !.Z>)
+	      (T
+	       <COND (<TYPE? .X LIST>
+		      <PROG ((X .X) (Y .Y))
+			    #DECL ((X Y) <LIST [REST FIX]>)
+			    <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		                   <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	       	            <ORG <1 .X> <1 .Y>>
+	                    <IMAGE 30>
+	                    <MIGSSEND !<TRANS <1 .X> <1 .Y> 1>>
+	                    <SET X <REST .X>>
+	                    <SET Y <REST .Y>>
+	                    <MAPF <>
+		                  #FUNCTION ((XE YE)
+				            #DECL ((XE YE) FIX)
+				            <MAPF <> ,IMAGE <TRANS .XE .YE 0>>)
+		                  .X
+		                  .Y>
+	                    <IMAGE 13>>)
+
+	       (<TYPE? .X VECTOR>
+		<PROG ((X .X) (Y .Y))
+	              #DECL ((X Y) <VECTOR [REST FIX]>)
+		      <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		             <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	              <ORG <1 .X> <1 .Y>>
+	              <IMAGE 30>
+	              <MIGSSEND !<TRANS <1 .X> <1 .Y> 1>>
+	              <SET X <REST .X>>
+	              <SET Y <REST .Y>>
+	              <MAPF <>
+		            #FUNCTION ((XE YE)
+				      #DECL ((XE YE) FIX)
+				       <MAPF <> ,IMAGE <TRANS .XE .YE 0>>)
+		            .X
+		            .Y>
+	              <IMAGE 13>>)
+
+	       (T
+		<PROG ((X .X)(Y .Y))
+		      #DECL ((Y X) <UVECTOR [REST FIX]>)
+		      <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		             <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	              <ORG <1 .X> <1 .Y>>
+	              <IMAGE 30>
+	              <MIGSSEND !<TRANS <1 .X> <1 .Y> 1>>
+	              <SET X <REST .X>>
+	              <SET Y <REST .Y>>
+	              <MAPF <>
+		            #FUNCTION ((XE YE)
+				      #DECL ((XE YE) FIX)
+				      <MAPF <> ,IMAGE <TRANS .XE .YE 0>>)
+		            .X
+		            .Y>
+	              <IMAGE 13>>)> )>
+	,NULL>
+
+<DEFINE ORG (OX OY
+             "AUX" (ABSOLUTE-POSITION .ABSOLUTE-POSITION)
+		   (X <+ .OX ,XORG>)
+                   (Y <+ .OY ,YORG>)
+                   ABSX ABSY)
+        #DECL ((OX OY X Y ABSX ABSY) FIX
+               (ABSOLUTE-POSITION) <LIST FIX FIX>
+               (VALUE) ATOM)
+        <PUT .ABSOLUTE-POSITION 1 .X>
+        <PUT .ABSOLUTE-POSITION 2 .Y>
+        <SET ABSX <ABS .X>>
+        <SET ABSY <ABS .Y>>
+        <MIGSSEND 29
+              <+ 64
+                 <* 2 <MOD .ABSX 32>>
+                 <COND (<L? .X 0> 1) (ELSE 0)> >
+              <+ 64 </ .ABSX 32>>
+              <+ 64
+                 <* 2 <MOD .ABSY 32>>
+                 <COND (<L? .Y 0> 1) (ELSE 0)> >
+              <+ 64 </ .ABSY 32>> >>
+
+
+<DEFINE PLOTVDSK (X Y OUTCHAN)
+	#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+	       (OUTCHAN) <SPECIAL CHANNEL>
+	       (VALUE) STRING)
+	<COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+	       <ERROR "LENGTHS NOT EQUAL" "PLOTVDSK">)>
+	<PRINC <ASCII 29> .OUTCHAN>
+	<SET ABSOLUTE-POSITION
+	     (<+ <1 .X> ,XORG> <+ <1 .Y> ,YORG>)>
+	<SNARF <1 .ABSOLUTE-POSITION> .OUTCHAN>
+	<SNARF <2 .ABSOLUTE-POSITION> .OUTCHAN>
+	<PRINC <ASCII 30> .OUTCHAN>
+	<SET X <REST .X>>
+	<SET Y <REST .Y>>
+	<MAPF <>
+	      #FUNCTION ((XE YE)
+			 #DECL ((XE YE) FIX)
+			 <MAPF <>
+			       #FUNCTION ((Z)
+					  #DECL ((Z) FIX
+						 (OUTCHAN) <SPECIAL CHANNEL>)
+					  <PRINC <ASCII .Z> .OUTCHAN>)
+			       <TRANS .XE .YE 0>>)
+	      .X
+	      .Y>
+	<PRINC <ASCII 13> .OUTCHAN>
+	"DONE">
+
+
+<DEFINE SNARF (Z CHN
+	       "AUX" (ABSZ <ABS .Z>)
+		     (SGN <COND (<L? .Z 0> 1) (ELSE 0)>)
+		     (LOWZ <MOD .ABSZ 32>)
+		     (HIZ </ .ABSZ 32>))
+	#DECL ((Z ABSZ SGN LOWZ HIZ) FIX (CHN) CHANNEL)
+	<PRINC <ASCII <+ 64 <* 2 .LOWZ> .SGN>> .CHN>
+	<PRINC <ASCII <+ 64 .HIZ>> .CHN>>
+<ENDBLOCK>
+<ENDPACKAGE>
+
\ No newline at end of file
diff --git a/src/rrs/mgprim.urs008 b/src/rrs/mgprim.urs008
new file mode 100644
index 00000000..8e53e414
--- /dev/null
+++ b/src/rrs/mgprim.urs008
@@ -0,0 +1,408 @@
+
+<PACKAGE "MGPRIM">
+<ENTRY BOOK DRAW DTXT ECHO ERASEP ERASET L LAYOUT LINE MARKP MARKT 
+       MIGSSEND
+       MOVE OPENP OPENT PAGE PICTUR PLOTV POINT READTB SETORG TABLE 
+       TBCON TRANS TXT>
+<USE "DISPLA">
+<USE "SMCELLS">
+ 
+<MOBLIST BOOK>
+<BLOCK (<GET MIGS OBLIST><ROOT>)>
+XORG YORG ABSOLUTE-POSITION TENEX PHYCEN
+<ENDBLOCK>
+
+<BLOCK (<GET DISPCOM OBLIST><ROOT>)>
+COMSWITCH
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET DISPCOM OBLIST>)>
+<SET ABSOLUTE-POSITION '![0 0]>
+<SETG XORG 0>
+<SETG YORG 0>
+<GDECL (XORG YORG) FIX>
+<SET REDEFINE T>
+
+<DEFINE SETORG ("OPTIONAL" (X 0) (Y 0))
+	#DECL ((X Y) FIX
+	       (VALUE) <UVECTOR [REST FIX]>
+		(COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH ><APPLY ,STRG .X .Y> ![0])
+	      (T ![<SETG XORG .X> <SETG YORG .Y>])>>
+
+
+
+<DEFINE LAYOUT!-BOOK ("OPTIONAL"(LINES 25) (LLONG 72) (PIC 127) 
+				(PLONG 127)(FIG 1) (FLONG 40)
+				(GRF 1) (GLONG 100) (TBL 5)
+				(TLONG 10) (CHAR 0))
+	#DECL (( LINES LLONG PIC PLONG FIG FLONG GRF GLONG TBL 
+		 TLONG CHAR) FIX)
+	<MIGSSEND 4 %<ASCII !"O> .LINES .LLONG .PIC .PLONG
+		  .FIG .FLONG .GRF .GLONG .TBL .TLONG .CHAR>>
+
+<DEFINE OPENP!-BOOK ("OPTIONAL" (NUM 0))
+	#DECL ((NUM) FIX)
+	<MIGSSEND 4 %<ASCII !"P> .NUM>>
+
+<DEFINE MARKP!-BOOK (L)
+	#DECL ((L ) FIX
+               (VALUE) ATOM)
+	<MIGSSEND 4
+		  %<ASCII !"L>
+		  .L>
+	,NULL>
+
+
+<DEFINE ERASEP!-BOOK ()
+	<MIGSSEND 4 %<ASCII !"E> %<ASCII !"P>>>
+
+
+
+<DEFINE	VECTR!-BOOK (X Y "TUPLE" Z)
+	#DECL ((X  Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH><APPLY ,DRL .X .Y !.Z>)
+	      (T <MIGSSEND 4 %<ASCII !"V>>
+		 <CORD .X><CORD .Y>)>
+	,NULL>
+
+<DEFINE SETPT!-BOOK (X Y "TUPLE" Z)
+	#DECL ((X Y)<OR FIX FLOAT>
+	       (Z)<TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH><APPLY ,STP .X .Y !.Z>)
+	      (T <MIGSSEND 4 %<ASCII !"S>>
+		 <CORD .X><CORD .Y>)>
+	,NULL>
+
+<DEFINE	PICTURE!-BOOK (P L)
+	#DECL ((P L)<OR FIX FLOAT>
+		(COMSWITCH) <SPECIAL ANY>
+		(VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PCT .P .L>)
+	      (T <MIGSSEND 4
+			   %<ASCII !"C>
+			   %<ASCII !"P>
+			   .P .L>)>
+	,NULL>
+
+<DEFINE MOVE!-BOOK (X Y)
+	#DECL ((X Y) FIX
+	       (VALUE) ATOM)
+	<MIGSSEND 4
+		  %<ASCII !"M>>
+	<CORD .X><CORD .Y>
+	,NULL>
+
+<DEFINE DOT!-BOOK (X Y)
+	#DECL ((X Y) FIX
+	       (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"D>>
+	<CORD .X> <CORD .Y>
+	,NULL>
+
+
+
+<DEFINE CORD (X "AUX" T1 L H)
+	#DECL((X T1 L H) FIX
+	      (VALUE) ATOM)
+	<SET T1 <- .X <* </ .X 8192> 8192>>>
+	<COND (<L? .T1 .0><SET T1 <+ .T1 16384>>)>
+	<SET H </ .T1 128>>
+	<SET L <- .T1 <* .H 128>>>
+	<MIGSSEND .H .L>
+	,NULL>
+
+
+<DEFINE BITSB!-BOOK (B1 B2 B3 B4)
+	#DECL((B1 B2 B3 B4) FIX
+	      (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"B> .B1 .B2 .B3 .B4>>
+
+<DEFINE OPENF!-BOOK (F)
+	#DECL ((F) FIX
+	       (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"F> .F>
+	,NULL>
+
+<DEFINE OPENT!-BOOK ("OPTIONAL" (I 0))
+	#DECL ((I VALUE) FIX)
+	<MIGSSEND 4 %<ASCII !"T> .I>
+	.I>
+
+<DEFINE MARKT!-BOOK ("OPTIONAL" (T 0))
+	#DECL ((T VALUE) FIX)
+	<MIGSSEND 4 %<ASCII !"K> .T>
+	.T>
+
+<DEFINE ERASET!-BOOK ()
+	#DECL ((VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"E> %<ASCII !"T>>
+	,NULL>
+
+<DEFINE TABLE!-BOOK (P "OPTIONAL" (L 0))
+	#DECL ((P L) FIX (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"C> %<ASCII !"T> .P .L>
+	,NULL>
+
+<DEFINE TXT!-BOOK (S)
+	#DECL ((S)STRING (VALUE)ATOM)
+	<MIGSSEND 4
+		  %<ASCII !"Q>
+		  <LENGTH .S>>
+	<PRINC .S>
+	,NULL>
+
+
+
+<DEFINE MARKF!-BOOK (L)
+	#DECL ((L) FIX (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"I> .L>
+	,NULL>
+
+<DEFINE ERASF!-BOOK () <MIGSSEND 4 %<ASCII !"E> %<ASCII !"F>>>
+
+<DEFINE DOTFIG!-BOOK (P L)
+	#DECL ((P L) FIX (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"C> %<ASCII !"D> .P .L>
+	,NULL>
+
+<DEFINE VECFIG!-BOOK (P L)
+	#DECL ((P L) FIX (VALUE) ATOM)
+	<MIGSSEND 4 %<ASCII !"C> %<ASCII !"V> .P .L>
+	,NULL>
+
+<DEFINE JOT!-BOOK (X Y)
+	#DECL ((X Y)FIX (VALUE) ATOM)
+	<MIGSSEND 4 74 .X .Y>
+	,NULL>
+
+<DEFINE NOJOT!-BOOK (X Y)
+	#DECL ((X Y) FIX (VALUE) ATOM)
+	<MIGSSEND 4 78 .X .Y>
+	,NULL>
+
+<DEFINE MIGSSEND ("TUPLE" A)
+	#DECL ((A) <TUPLE [REST FIX]>)
+	<MAPF <> ,IMAGE .A>
+	,NULL>>
+
+<COND (.TENEX 
+
+
+
+<SETG READTB
+      <FIXUP!-RSUBRS '[
+#CODE ![29662117965 24159191474 17215782913 17322475584 9126805568 17322475585 
+9126805575 23882366978 -15015605056 9126805576 26071793666 23088857102 
+17330864134 23088857106 28222685201 17330864133 23088857106 17330864130 
+9126805545 17322475584 17339252744 9126805653 23088857126 23849036801 
+23848812546 9126805653 23088857126 23849036801 23848812546 9126805653 
+23088857126 23849036801 23848812546 17322475585 24016584706 9126805576 293838286
+23085677464 17322475585 24016584706 9126805576 23852482566 23852482567 277057214
+23085677464 7201294908 0 2!]
+		       READTB
+		       #DECL ("VALUE" <UVECTOR FIX FIX FIX> FIX)
+		       "NIN ERROR "]
+		     '(51
+		       INTFLG!-MUDDLE
+		       77
+		       (1)
+		       LCKINT!-MUDDLE
+		       434
+		       (2)
+		       $TLOSE!-MUDDLE
+		       224256
+		       (32 28 24)
+		       UVECTOR
+		       237006
+		       (37)
+		       FINIS!-MUDDLE
+		       228248
+		       (45 38)
+		       ERROR
+		       233150
+		       (44))>>
+
+
+
+
+<SETG TBCON
+      <FIXUP!-RSUBRS '[
+#CODE ![17322475585 9126805575 23882366978 -15015608128 9126805576 17330864131 
+9126805545 17199005697 9126805545 24016584706 9126805576 17190617088 17199005697
+23085678206 7398560256 0 2!]
+		       TBCON
+		       #DECL ("VALUE" FIX FIX)]
+		     '(49 FINIS!-MUDDLE 228990 (14))>>
+
+
+<SETG ECHO
+      <FIXUP!-RSUBRS '[
+#CODE ![17322475585 9126805575 17207394305 28214296583 -10720638976 9126805576 
+23088857097 -15015605248 9126805576 17199005697 17188483073 23085678206 
+5865439296 0 2!]
+		       ECHO
+		       #DECL ("VALUE" FIX FIX)]
+		     '(49
+		       $TLOSE!-MUDDLE
+		       225280
+		       (11)
+		       FINIS!-MUDDLE
+		       228990
+		       (12))>>
+
+
+
+,NULL )>
+
+
+
+
+
+
+
+<DEFINE MOVE (X Y "TUPLE" Z 
+		  "AUX" (ABSOLUTE-POSITION .ABSOLUTE-POSITION))
+	#DECL ((X Y) FIX
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+		(VALUE) ATOM
+		(COMSWITCH) <SPECIAL ANY>
+		(ABSOLUTE-POSITION)<UVECTOR FIX FIX>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,MV .X .Y !.Z>)
+	      (T <PUT .ABSOLUTE-POSITION 1 0>
+		 <PUT .ABSOLUTE-POSITION 2 0>
+		 <MIGSSEND 4
+			   %<ASCII !"S>>
+		 <TRANS .X .Y>) >
+	,NULL>
+
+<DEFINE DRAW (X Y "TUPLE" Z)
+	#DECL (	(X Y) <OR FIX FLOAT>
+		(Z) <TUPLE [REST <OR FIX FLOAT>]>
+		(VALUE) ATOM
+		(COMSWITCH) <SPECIAL ANY>)
+	<COND (	<BOUND? COMSWITCH><APPLY ,DR .X .Y !.Z>)
+	      (T <MIGSSEND 4
+			   %<ASCII !"V>
+			   ><TRANS .X .Y>)>
+	,NULL>
+
+<DEFINE POINT (X Y "TUPLE" Z
+		   "AUX" (ABSOLUTE-POSITION .ABSOLUTE-POSITION))
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (VALUE) ATOM
+	       (ABSOLUTE-POSITION) <UVECTOR FIX FIX>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PT .X .Y !.Z>)
+	      (T <PUT .ABSOLUTE-POSITION 1 0>
+		 <PUT .ABSOLUTE-POSITION 2 0>
+		 <MIGSSEND 4 %<ASCII !"D>>
+		 <TRANS .X .Y>)>
+	,NULL>
+
+
+
+<COND (<NOT .TENEX>
+
+
+ ,NULL)>
+
+<DEFINE LINE (X0 Y0 X1 Y1 "TUPLE" Z
+			  "AUX"(ABSOLUTE-POSITION .ABSOLUTE-POSITION))
+	#DECL ((X0 Y0 X1 Y1) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH) <SPECIAL ANY>
+	       (ABSOLUTE-POSITION) <UVECTOR FIX FIX>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH><APPLY ,LN .X0 .Y0 .X1 .Y1 !.Z>)
+	      (T <PUT .ABSOLUTE-POSITION 1 0>
+		 <PUT .ABSOLUTE-POSITION 2 0>
+		 <MIGSSEND 4 %<ASCII !"S>>
+		 <TRANS .X0 .Y0>
+		 <MIGSSEND 4 %<ASCII !"V>>
+		 <TRANS .X1 .Y1> )>
+	,NULL>
+
+
+<DEFINE TRANS (X Y
+	       "AUX" (DX1 <+ .X ,XORG>)
+		     (DY1 <+ .Y ,YORG>)
+		     (ABSOLUTE-POSITION .ABSOLUTE-POSITION)
+		     (DX <- .DX1 <1 .ABSOLUTE-POSITION>>)
+		     (DY <- .DY1 <2 .ABSOLUTE-POSITION>>))
+	#DECL ((X Y DX DY DX1 DY1 ) FIX
+	       (ABSOLUTE-POSITION) <UVECTOR FIX FIX>
+	       (VALUE) ATOM)
+	<PUT .ABSOLUTE-POSITION 1 .DX1>
+	<PUT .ABSOLUTE-POSITION 2 .DY1>
+	<CORD .DX>
+	<CORD .DY>
+	,NULL>
+
+<DEFINE PLOTV (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+	       (Z) <TUPLE [REST <OR LIST VECTOR UVECTOR>]>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH><APPLY ,PV .X .Y !.Z>)
+	      (T 
+		 <COND (<TYPE? .X LIST>
+		        <PROG ((X .X) (Y .Y))
+			      #DECL ((X Y) <LIST [REST FIX]>)
+                 	      <MOVE <1 .X> <1 .Y>>
+		              <MAPF <>
+		       		    ,DRAW
+		       		    <REST .X>
+		       		    <REST .Y>> >)
+		       (<TYPE? .X VECTOR>
+			<PROG ((X .X) (Y .Y))
+			      #DECL (( X Y) <VECTOR [REST FIX]>)
+			      <MOVE <1 .X> <1 .Y>>
+		              <MAPF <>
+		       		    ,DRAW
+		       		    <REST .X>
+		       		    <REST .Y>> >)
+		      (T
+		       <PROG ((X .X) (Y .Y))
+			     #DECL ((X Y) <UVECTOR [REST FIX]>)
+			     <MOVE <1 .X> <1 .Y>>
+		  	     <MAPF <>
+		       		   ,DRAW
+		       		   <REST .X>
+		       		   <REST .Y>> >)> )>
+	,NULL>
+
+<DEFINE DTXT (X Y T "OPTIONAL" L)
+	#DECL ((X Y T L) FIX (VALUE) ATOM)
+	<SETPT!-BOOK .X .Y>			;"MUST BE IN A PICTURE"
+	<COND (<ASSIGNED? L> <TABLE!-BOOK .T .L>)
+	      (T <TABLE!-BOOK .T>)>
+	,NULL>
+
+<DEFINE PAGE () <MIGSSEND 12> <OPENP 0> <MARKP 0> <ERASEP!-BOOK>>
+
+<DEFINE L () <LAYOUT 10 72 12 127 1 1 1 1 10 15>>
+
+
+<SETG LAYOUT ,LAYOUT!-BOOK>
+<SETG OPENP ,OPENP!-BOOK>
+<SETG MARKP ,MARKP!-BOOK>
+<SETG ERASEP ,ERASEP!-BOOK>
+<SETG PICTUR ,PICTURE!-BOOK>
+<SETG TABLE ,TABLE!-BOOK>
+<SETG OPENT ,OPENT!-BOOK>
+<SETG MARKT ,MARKT!-BOOK>
+<SETG ERASET ,ERASET!-BOOK>
+<SETG TXT ,TXT!-BOOK>
+
+<SET REDEFINE <>>
+<ENDBLOCK>
+<ENDPACKAGE>
+
+
\ No newline at end of file
diff --git a/src/rrs/migsmn.urs114 b/src/rrs/migsmn.urs114
new file mode 100644
index 00000000..19075df9
--- /dev/null
+++ b/src/rrs/migsmn.urs114
@@ -0,0 +1,707 @@
+<PACKAGE "MIGSMN">
+
+<ENTRY PROJ SETPROJ LINE3D MOVE3D DRAW3D POINT3D
+       PLOTV3D ELIPSE CIRCLE DSKIMAGE M3DSK SFXYP
+       FNCTG M3D MIJPL PARAG POLRP TENEX  >
+<USE "SMCELLS">
+<USE "DISPLA">
+<BLOCK (<MOBLIST DISPCOM> <ROOT>)>
+COMSWITCH
+<ENDBLOCK>
+
+<BLOCK (<MOBLIST MIGS> <ROOT>)>
+TRMTYP DASH PROJX PROJY PROJZ
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET DISPCOM OBLIST> <GET MIGS OBLIST>)>
+
+<COND (<GASSIGNED? TRMTYP> "OK")
+      (YOU-LOSE <ERROR PACKAGES.LOADED.IN.THE.WRONG.ORDER.START.OVER>)>
+<COND (<=? <SET FOO ,TRMTYP> !\T> <USE "MTPRIM">)
+      (<=? .FOO !\A> <USE "MAPRIM">)
+      (<=? .FOO !\I> <USE "MAPRIM">)
+      (<=? .FOO !\G> <USE "MGPRIM">)
+      (<=? .FOO !\V> <USE "MVPRIM">)
+      (T <ERROR HELP-THIS-ISNT-POSSIBLE>)>
+
+
+<SETG DASH 0>
+<GC-MON <>>
+
+<SET REDEFINE T>
+
+
+<DEFINE PROJ (X Y Z
+	      "OPTIONAL" (ZE ,PROJZ)
+	      "AUX" (X1 <FLOAT .X>)
+		    (Y1 <FLOAT .Y>)
+		    (Z1 <FLOAT .Z>)
+		    (PF </ .ZE <+ .ZE .Z1>>)
+		    (PX ,PROJX)
+		    (PY ,PROJY))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (X1 Y1 Z1) FLOAT
+	       (ZE PF PX PY) FLOAT
+	       (VALUE) <LIST FIX FIX>)
+	(<FIX <+ .PX <* .PF <- .X1 .PX>>>>
+	 <FIX <+ .PY <* .PF <- .Y1 .PY>>>>)>
+
+<DEFINE SETPROJ ("OPTIONAL" (X 500.00000) (Y 400.00000) (Z 1024.0000))
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (VALUE) <LIST [REST FLOAT]>
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,STPJ .X .Y .Z> ())
+	      (ELSE
+	       (<SETG PROJX <FLOAT .X>>
+		<SETG PROJY <FLOAT .Y>>
+		<SETG PROJZ <FLOAT .Z>>))>>
+
+<SETPROJ>
+
+<DEFINE LINE3D (X0 Y0 Z0 X1 Y1 Z1)
+	#DECL ((X0 Y0 Z0 X1 Y1 Z1) <OR FIX FLOAT>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH>
+	       <APPLY ,LN .X0 .Y0 .Z0 .X1 .Y1 .Z1>)
+	      (ELSE
+	       <APPLY ,LINE !<PROJ .X0 .Y0 .Z0!> !<PROJ .X1 .Y1 .Z1!>>)>
+	,NULL>
+
+<DEFINE MOVE3D (X Y Z)
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,MV .X .Y .Z>)
+	      (ELSE <APPLY ,MOVE !<PROJ .X .Y .Z!>>)>
+	,NULL>
+
+<DEFINE DRAW3D (X Y Z)
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,DR .X .Y .Z>)
+	      (ELSE <APPLY ,DRAW !<PROJ .X .Y .Z!>>)>
+	,NULL>
+
+<DEFINE POINT3D (X Y Z)
+	#DECL ((X Y Z) <OR FIX FLOAT>
+	       (VALUE) ATOM
+	       (COMSWITCH) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PT .X .Y .Z>)
+	      (ELSE <APPLY ,POINT !<PROJ .X .Y .Z!>>)>
+	,NULL>
+
+<DEFINE PLOTV3D (X Y Z "AUX" X1)
+	#DECL ((X Y Z) <OR LIST VECTOR UVECTOR>
+	       (X1) <UVECTOR [REST <LIST FIX FIX>]>
+	       (VALUE) ATOM
+	       (COMSWITCHS) <SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PV .X .Y .Z>)
+	      (ELSE
+	<COND (<TYPE? .X VECTOR>
+		<PROG ((X .X) (Y .Y) (Z .Z))
+		      #DECL ((X Y Z) <VECTOR [REST <PRIMTYPE WORD>]>)
+		      <COND (<NOT <AND <==? <LENGTH .X> <LENGTH .Y>>
+				       <==? <LENGTH .Y> <LENGTH .Z>>>>
+		             <ERROR "LENGTHS NOT EQUAL" "PLOTV3D">)>
+	       	      <SET X1 <MAPF ,UVECTOR ,PROJ .X .Y .Z>>
+	              <APPLY ,PLOTV <MAPF ,UVECTOR 1 .X1>
+				    <MAPF ,UVECTOR 2 .X1>>>)
+
+	      (<TYPE? .X LIST>
+	       <PROG ((X .X) (Y .Y) (Z .Z))
+		     #DECL ((X Y Z) <LIST [REST <PRIMTYPE WORD>]>)
+	   	     <COND (<NOT <AND <==? <LENGTH .X> <LENGTH .Y>>
+				      <==? <LENGTH .Y> <LENGTH .Z>>>>
+		            <ERROR "LENGTHS NOT EQUAL" "PLOTV3D">)>
+	       	     <SET X1 <MAPF ,UVECTOR ,PROJ .X .Y .Z>>
+	             <APPLY ,PLOTV <MAPF ,UVECTOR 1 .X1> 
+				   <MAPF ,UVECTOR 2 .X1>>>)
+	      (<TYPE? .X UVECTOR>
+	       <PROG ((X .X) (Y .Y) (Z .Z))
+		     #DECL ((X Y Z) <UVECTOR [REST <PRIMTYPE WORD>]>)		
+		     <COND (<NOT <AND <==? <LENGTH .X> <LENGTH .Y>>
+				      <==? <LENGTH .Y> <LENGTH .Z>>>>
+		            <ERROR "LENGTHS NOT EQUAL" "PLOTV3D">)>
+	             <SET X1 <MAPF ,UVECTOR ,PROJ .X .Y .Z>>
+	             <APPLY ,PLOTV <MAPF ,UVECTOR 1 .X1> 
+				   <MAPF ,UVECTOR 2 .X1>>>)>)>
+	,NULL>
+
+<DEFINE ELIPSE (X Y A B P
+		"AUX" (I </ 6.2830000 <FLOAT .P>>) (H <+ .I 6.2830000>))
+	#DECL ((I H) FLOAT (X Y A B P) FIX (VALUE) ATOM)
+	<APPLY ,MOVE <+ .X .A> .Y>
+	<REPEAT ((Q .I)
+		 (A1 <FLOAT .A>)
+		 (B1 <FLOAT .B>)
+		 (X1 <FLOAT .X>)
+		 (Y1 <FLOAT .Y>))
+		#DECL ((X1 Y1 A1 B1 Q) FLOAT (VALUE) ATOM)
+		<APPLY ,DRAW
+		       <FIX <+ .X1 <* .A1 <COS .Q>>>>
+		       <FIX <+ .Y1 <* .B1 <SIN .Q>>>>>
+		<COND (<G? <SET Q <+ .Q .I>> .H> <IMAGE 13> <RETURN ,NULL>)>>>
+
+<DEFINE CIRCLE (X Y R P "AUX" (I </ 6.2830000 <FLOAT .P>>) (H <+ 6.2830000 .I>))
+	#DECL ((I H) FLOAT (X Y R P) FIX (VALUE) ATOM)
+	<APPLY ,MOVE <+ .X .R> .Y>
+	<REPEAT ((Q .I) (X1 <FLOAT .X>) (Y1 <FLOAT .Y>) (R1 <FLOAT .R>))
+		#DECL ((X1 Y1 R1 Q) FLOAT (VALUE) ATOM)
+		<APPLY ,DRAW
+		       <FIX <+ .X1 <* .R1 <COS .Q>>>>
+		       <FIX <+ .Y1 <* .R1 <SIN .Q>>>>>
+		<COND (<G? <SET Q <+ .I .Q>> .H> <IMAGE 13> <RETURN ,NULL>)>>>
+
+<DEFINE DSKIMAGE ("OPTIONAL" (FILE <STRING <SNAME> ";M3D MIGPUT">)
+		  "AUX" (CHN <OPEN "READ" .FILE>))
+	#DECL ((FILE) STRING
+	       (CHN) <OR CHANNEL FALSE>
+	       (VALUE) <OR ATOM FALSE>)
+	<COND (.CHN
+	       <REPEAT A ()
+			#DECL ((A) ACTIVATION)
+		       <IMAGE <ASCII <READCHR .CHN '<RETURN <CLOSE .CHN> .A>>>>>
+	       <PRINC <ASCII 7>>
+	       ,NULL)
+	      (ELSE #FALSE (DS NAME ERROR))>>
+
+<DEFINE M3DSK (MATRIX
+	       "OPTIONAL" (FILE <STRING <SNAME> ";M3D MIGPUT">)
+	       "AUX" (L <LENGTH <1 .MATRIX>>)
+		     (CHN <OPEN "PRINT" .FILE>)
+		     (DX </ 420 .L>)
+		     (DY </ 300 .L>)
+		     (DY1 .DY)
+		     (J -1)
+		     (XV <IVECTOR .L '<* .DX <SET J <+ .J 1>>>>)
+		     (MAX <1 .MATRIX>))
+	#DECL ((MATRIX) <VECTOR [REST <VECTOR [REST FIX]>]>
+	       (FILE) STRING
+	       (L J) FIX
+	       (DX DY DY1) FIX
+	       (CHN) <OR CHANNEL FALSE>
+	       (XV MAX) <VECTOR [REST FIX]>
+	       (VALUE) STRING)
+	<COND (<NOT .CHN> <ERROR "CHN NOT OPENED" "M3DSK">)>
+	<PUT .CHN 13 <+ <* .L .L 4> .L>>
+	<APPLY ,PLOTVDSK .XV .MAX .CHN>
+	<MAPF <>
+	      #FUNCTION ((T)
+			 #DECL ((T XV MAX) <VECTOR [REST FIX]>
+				(DY DY1) FIX
+				(CHN) <OR CHANNEL FALSE>)
+			      <MAPR <>
+				    #FUNCTION ((XE)
+					       #DECL ((XE VALUE) <VECTOR [REST  FIX]>
+						      (DX) FIX)
+					       <PUT .XE 1 <+ .DX <1 .XE>>>)
+				    .XV>
+			      <MAPR <>
+				    #FUNCTION ((TE)
+					       #DECL ((TE VALUE) <VECTOR [REST FIX]>
+						      (DY1) FIX)
+					       <PUT .TE 1 <+ .DY1 <1 .T>>>)
+				    .T>
+			 <MAPR <>
+			       #FUNCTION ((V)
+					  #DECL ((V VALUE)<VECTOR [REST FIX]>)
+					  <PUT .V
+						1
+					       <COND (<G? <LENGTH .V>1>
+					             <2 .V>)
+	     						     (T 0)>>)
+			       .MAX>			 <MAPR <>
+			       #FUNCTION ((MX T1)
+					 #DECL ((MX T1 VALUE)
+					       <VECTOR [REST FIX]>)
+				         <PUT .MX
+					      1
+					      <MAX <1 .MX><1 .T1>>>)
+			      .MAX .T>
+			 <SET DY1 <+ .DY1 .DY>>
+			 <APPLY ,PLOTVDSK .XV .MAX .CHN>)
+	      <REST .MATRIX>>
+	<CLOSE .CHN>
+	"DONE">
+
+<DEFINE SFXYP (XL1 XH1 YL1 YH1 FNCT
+	       "OPTIONAL" (PARAM ())
+			  (P 60)
+			  (DSK #FALSE (NO DSK OUTPUT))
+			  (FILE <STRING <SNAME> ";M3D MIGPUT">)
+	       "AUX" (XL <FLOAT .XL1>)
+		     (XH <FLOAT .XH1>)
+		     (YL <FLOAT .YL1>)
+		     (YH <FLOAT .YH1>)
+		     (DX </ <- .XH .XL> .P>)
+		     (DY </ <- .YH .YL> .P>)
+		     (X1 <- .XL .DX>)
+		     (Y1 <- .YL .DY>)
+		     (X <IUVECTOR .P '<SET X1 <+ .X1 .DX>>>)
+		     (Y <IUVECTOR .P '<SET Y1 <+ .Y1 .DY>>>)
+		     MXN
+		     SCL
+		     HPTS
+		     TEMP1
+		     MATRIX)
+	#DECL ((XL XH YL YH) FLOAT
+	       (XL1 XH1 YL1 YH1) <OR FIX FLOAT>
+	       (FNCT) ATOM
+	       (PARAM) <LIST [REST <OR FIX FLOAT>]>
+	       (P) FIX
+	       (DSK) <OR ATOM FALSE>
+	       (FILE) STRING
+	       (DX DY X1 Y1 TEMP1) FLOAT
+	       (SCL HPTS) FLOAT
+	       (X) <UVECTOR [REST FLOAT]>
+	       (Y) <UVECTOR [REST FLOAT]>
+	       (MXN) <LIST FLOAT FLOAT>
+	       (MATRIX) <VECTOR [REST <VECTOR [REST <OR FIX FLOAT>]>]>)
+	<SET MATRIX
+	     <MAPF ,VECTOR
+		   #FUNCTION ((YE)
+			      #DECL ((YE) FLOAT
+				     (VALUE) <VECTOR [REST FLOAT]>
+				     (X) <UVECTOR [REST FLOAT]>)
+			      <MAPF ,VECTOR
+				    #FUNCTION ((XE)
+					       #DECL ((XE) FLOAT
+						      (PARAM)
+						      <LIST [REST <OR FIX FLOAT>]>
+						      (YE) FLOAT
+						      (VALUE) FLOAT
+						      (FNCT) ATOM)
+					       <FLOAT
+						<APPLY ,.FNCT .XE .YE !.PARAM>>)
+				    .X>)
+		   .Y>>
+	<SET TEMP1
+	     <MAPF ,MAX
+		   #FUNCTION ((ME)
+			      #DECL ((ME) <VECTOR [REST FLOAT]>
+				     (VALUE) FLOAT)
+			      <MAX !.ME>)
+		   .MATRIX>>
+	<SET MXN
+	     (<MAPF ,MIN
+		    #FUNCTION ((ME)
+			       #DECL ((ME) <VECTOR [REST FLOAT]>
+				      (VALUE) FLOAT)
+			       <MIN !.ME>)
+		    .MATRIX>
+	      .TEMP1)>
+	<SET SCL
+	     <COND (<NOT <==? <1 .MXN> <2 .MXN>>>
+		    </ -400.00000 <- <1 .MXN> <2 .MXN>>>)
+		   (ELSE
+		    <COND (<0? <1 .MXN>> 400.00000)
+			  (ELSE </ 400.00000 <1 .MXN>>)>)>>
+	<SET HPTS <* .50000000 <+ <1 .MXN> <2 .MXN>>>>
+	<REPEAT ((I 1) (L <LENGTH .MATRIX>))
+		#DECL ((L I) FIX)
+		<MAPR <>
+		      #FUNCTION ((R) #DECL ((R) <VECTOR [REST <OR FLOAT FIX>]>)
+			      <PUT .R 
+				    1
+				    <FIX <+ <* .SCL <- <1 .R> .HPTS>>
+					    201>> >)
+		      <NTH .MATRIX .I>>
+		<COND (<G=? .I .L> <RETURN T>)
+		      (ELSE <SET I <+ .I 1>>)>>
+	<COND (.DSK <M3DSK .MATRIX .FILE>)
+	      (ELSE <M3D .MATRIX> <IMAGE 13>)>
+	,NULL>
+
+<DEFINE MINIMAX (X)
+	#DECL ((X) <UVECTOR [REST <OR FIX FLOAT>]>
+	       (VALUE) <LIST [2 FLOAT]>)
+	<COND (<TYPE? <1 .X> FLOAT>
+	       <PROG ((X .X))
+		     =#DECL ((X) <UVECTOR [REST FLOAT]>)
+		     (<MIN !.X> <MAX !.X>)>)
+	      (T
+		<PROG ((X .X))
+		      #DECL ((X) <UVECTOR [REST FIX]>)
+		      (<FLOAT <MIN !.X>> <FLOAT <MAX !.X>>)>)>>
+
+<DEFINE FNCTG (XL1 XH1 FNCT
+	       "OPTIONAL" (SCALE1 (0 0)) (XYDIS1 (0 0)) (P 60)
+	       "AUX" (SCALE (<FLOAT <1 .SCALE1>> <FLOAT <2 .SCALE1>>))
+		     (XYDIS (<FLOAT <1 .XYDIS1>> <FLOAT <2 .XYDIS1>>))
+		     (XL <FLOAT .XL1>)
+		     (XH <FLOAT .XH1>)
+		     (DX </ <- .XH .XL> .P>)
+		     (X1 <- .XL .DX>)
+		     (XU <IUVECTOR .P '<SET X1 <+ .X1 .DX>>>)
+		     YU
+		     YM
+		     HPTS
+		     SX
+		     SY
+		     X
+		     Y)
+	#DECL ((SCALE1 XYDIS1) <LIST [2 <OR FIX FLOAT>]>
+	       (XL1 XH1) <OR FIX FLOAT>
+	       (XL XH) FLOAT
+	       (FNCT) <OR FUNCTION SUBR RSUBR FSUBR>
+	       (XYDIS YM) <LIST [2 FLOAT]>
+	       (SCALE HPTS) <LIST [2 FLOAT]>
+	       (X Y) <UVECTOR [REST FIX]>
+	       (P SX SY) FIX
+	       (DX X1) FLOAT
+	       (XU YU) <UVECTOR [REST FLOAT]>)
+	<SET YU <MAPF ,UVECTOR
+		    #FUNCTION ((X)
+			       #DECL ((X VALUE) FLOAT
+				      (FNCT)
+				      <OR FUNCTION
+					   SUBR
+					   RSUBR
+					   FSUBR>)
+			       <FLOAT <APPLY .FNCT .X>>)
+		    .XU>>
+	<COND (<==? <+ <1 .SCALE> <2 .SCALE>> 0.0>
+	       <SET YM <MINIMAX .YU>>
+	       <SET SCALE
+		    (</ 800.00000 <- .XH .XL>>
+		     <COND (<NOT <==? <1 .YM> <2 .YM>>> 
+			    </ -800.00000 <- <1 .YM> <2 .YM>>>)
+			   (ELSE
+			    <COND (<==? <1 .YM> 0.0> 800.00000)
+				  (ELSE </ 800.00000 <1 .YM>>)>)>)>
+	       <SET HPTS
+		    (<* .50000000 <+ .XL .XH>> <* .50000000 <+ <1 .YM><2 .YM>>>)>)
+	      (ELSE <SET HPTS .XYDIS> <SET YM (0.0 0.0)>)>
+	<SET X
+	     <MAPF ,UVECTOR
+		   #FUNCTION ((X)
+			      #DECL ((X) FLOAT
+				     (VALUE) FIX
+				     (SCALE HPTS)
+				     <LIST [2 FLOAT]>)
+			      <FIX <+ <* <1 .SCALE> <- .X <1 .HPTS>>> 500>>)
+		   .XU>>
+	<SET Y
+	     <MAPF ,UVECTOR
+		   #FUNCTION ((Y)
+			      #DECL ((Y) FLOAT
+				     (VALUE) FIX
+				     (SCALE HPTS)
+				     <LIST [2 FLOAT]>)
+			      <FIX <+ <* <2 .SCALE> <- .Y <2 .HPTS>>> 400>>)
+		   .YU>>
+	<APPLY ,PLOTV .X .Y>
+	<COND (<NOT <G? 100
+			<SET SX
+			     <FIX <+ <* <1 .SCALE> <- 0.0000000 <1 .HPTS>>>
+				     500>>>>>
+	       <COND (<NOT <G? .SX 900>> <APPLY ,LINE .SX 0 .SX 800>)>)>
+	<COND (<NOT <G? 0
+			<SET SY
+			     <FIX <+ <* <2 .SCALE> <- 0.0000000 <2 .HPTS>>>
+				     400>>>>>
+	       <COND (<NOT <G? .SY 800>> <APPLY ,LINE 100 .SY 900 .SY>)>)>
+	<APPLY ,MOVE 0 800>
+	<TERPRI>
+	("XMIN
+"
+	 .XL
+	 "
+XMAX
+"
+	 .XH
+	 "
+YMIN
+"
+	 <1 .YM>
+	 "
+YMAX
+"
+	 <2 .YM>
+	 "
+SCALE
+"
+	 .SCALE)>
+
+<DEFINE M3D (MATRIX
+	     "AUX" (L <LENGTH <1 .MATRIX>>)
+		   (DX </ 420 .L>)
+		   (DY </ 300 .L>)
+		   (DY1 .DY)
+		   (J -1)
+		   (XV <IVECTOR .L '<* .DX <SET J <+ .J 1>>>>)
+		   (MAX <1 .MATRIX>))
+	#DECL ((MATRIX) <VECTOR [REST <VECTOR [REST FIX]>]>
+	       (L J) FIX
+	       (DX DY DY1) FIX
+	       (MAX) <VECTOR [REST FIX]>
+	       (XV ) <VECTOR [REST FIX]>)
+	<APPLY ,PLOTV .XV .MAX>
+	<MAPF <>
+	      #FUNCTION ((T)
+			 #DECL (( XV ) <VECTOR [REST FIX]>
+				 (T MAX) <VECTOR [REST FIX]>
+				(DY1 DY) FIX)
+			      <MAPR <>
+				    #FUNCTION ((XE)
+					       #DECL ((XE VALUE) <VECTOR [REST  FIX]>
+						      (DX) FIX)
+					       < PUT .XE 1 <+ .DX <1 .XE>>>)
+				    .XV>
+			      <MAPR <>
+				    #FUNCTION ((TE)
+					       #DECL ((TE VALUE) <VECTOR [REST FIX]>
+						      (DY1) FIX)
+					       <PUT .TE 1 <+ .DY1 <1 .TE>>>)
+				    .T>
+			 <MAPR <>
+			       #FUNCTION ((V)
+					  #DECL ((V VALUE)<VECTOR [REST FIX]>)
+					  <PUT .V
+						1
+					       <COND (<G? <LENGTH .V>1>
+					             <2 .V>)
+	     						     (T 0)>>)
+			       .MAX>			 <MAPR <>
+			       #FUNCTION ((MX T1)
+					 #DECL ((MX T1 VALUE)
+					       <VECTOR [REST FIX]>)
+				         <PUT .MX
+					      1
+					      <MAX <1 .MX><1 .T1>>>)
+			      .MAX .T>
+			 <SET DY1 <+ .DY1 .DY>>
+			 <APPLY ,PLOTV .XV .MAX>)
+	      <REST .MATRIX>>
+	,NULL>
+
+<DEFINE MIJPL (MATRIX0
+	       "OPTIONAL" (DSK #FALSE (NO DSK OUTPUT))
+			  (FILE <STRING <SNAME> ";M3D MIGPUT">)
+	       "AUX" MATRIX MXN SCL HPTS TEMP1)
+	#DECL ((MATRIX MATRIX0) <VECTOR [REST <VECTOR [REST <OR FIX FLOAT>]>]>
+	       (DSK) <OR ATOM FALSE>
+	       (FILE) STRING
+	       (MXN) <LIST [REST <OR FIX FLOAT>]>
+	       (SCL HPTS) FLOAT
+	       (TEMP1) <OR FIX FLOAT>)
+	<SET MATRIX <MAPF ,VECTOR
+			  #FUNCTION ((V)
+			 	     #DECL ((V VALUE)<VECTOR [REST <OR FIX FLOAD>]>)
+				     [!.V])
+			  .MATRIX0>>
+	<SET TEMP1
+	     <MAPF ,MAX
+		   #FUNCTION ((ME)
+			      #DECL ((ME) <VECTOR [REST <OR FIX FLOAT>]>
+				     (VALUE) <OR FIX FLOAT>)
+			      <MAX !.ME>)
+		   .MATRIX>>
+	<SET MXN
+	     (<MAPF ,MIN
+		    #FUNCTION ((ME)
+			       #DECL ((ME) <VECTOR [REST <OR FIX FLOAT>]>
+				      (VALUE) <OR FIX FLOAT>)
+			       <MIN !.ME>)
+		    .MATRIX>
+	      .TEMP1)>
+	<SET SCL
+	     <COND (<NOT <==? !.MXN>> </ -400.00000 <- !.MXN>>)
+		   (ELSE
+		    <COND (<==? <1 .MXN> 0> 400.00000)
+			  (ELSE </ 400.00000 <1 .MXN>>)>)>>
+	<SET HPTS <* .50000000 <+ !.MXN>>>
+	<REPEAT ((L <LENGTH .MATRIX>) (I 1))
+		#DECL ((L I) FIX)
+		<MAPR <>
+		      #FUNCTION ((R) #DECL ((R) <VECTOR [REST <OR FIX FLOAT>]>)
+				 <PUT .R
+				      1
+				      <FIX <+ <* .SCL <- <1 .R> .HPTS>> 201>>>)
+		     <NTH .MATRIX .I>>
+		<COND (<G=? .I .L> <RETURN T>)
+		      (ELSE <SET I <+ .I 1>>)>>
+	<COND (.DSK <M3DSK .MATRIX .FILE>)
+	      (ELSE <M3D .MATRIX> <IMAGE 13>)>
+	,NULL>
+
+
+<DEFINE PARAG (TL TH FX FY
+	       "OPTIONAL" (P 60) (MODE "SAS") (SCALE (0 0)) (XYDIS (0 0))
+	       "AUX" (DT </ <FLOAT <- .TH .TL>> .P>)
+		     (T1 <- .TL .DT>)
+		     (T <IUVECTOR .P '<SET T1 <+ .T1 .DT>>>)
+		     X
+		     Y
+		     XM
+		     YM
+		     HPTS
+		     SX
+		     SY
+		     C
+		     X1
+		     Y1)
+	#DECL ((TL TH) <OR FIX FLOAT>
+	       (FX FY) ATOM
+	       (P SX SY) FIX
+	       (MODE) STRING
+	       (XYDIS XM YM HPTS) <LIST [2 <OR FIX FLOAT>]>
+	       (SCALE C) <LIST [2 <OR FIX FLOAT>]>
+	       (DT T1 SCALE1) FLOAT
+	       (T X Y) <UVECTOR [REST FLOAT]>
+	       (X1 Y1) <UVECTOR [REST FIX]>)
+	<SET X <MAPF ,UVECTOR
+	              #FUNCTION ((T)
+			       #DECL ((T VALUE) FLOAT
+				      (FX) ATOM)
+			       <FLOAT <APPLY <VALUE .FX> .T>>)
+		    .T>>
+	<SET Y <MAPF ,UVECTOR
+		    #FUNCTION ((T)
+			       #DECL ((T VALUE) FLOAT
+				      (FY) ATOM)
+			       <FLOAT <APPLY <VALUE .FY> .T>>)
+		    .T>>
+	<COND (<=? .MODE "NAS">
+	       <SET HPTS .XYDIS>
+	       <SET XM <SET YM (0 0)>>
+	       <SET C
+		    (<- 501 <* <1 .SCALE> <1 .HPTS>>>
+		     <- 401 <* <2 .SCALE> <2 .HPTS>>>)>)
+	      (<=? .MODE "DAS">
+	       <SET XM <MINIMAX .X>>
+	       <SET YM <MINIMAX .Y>>
+	       <SET HPTS (<* .50000000 <+ !.XM>> <* .50000000 <+ !.YM>>)>
+	       <SET SCALE
+		    (</ -800.00000 <- !.XM>> </ -800.00000 <- !.YM>>)>
+	       <SET C
+		    (<- 501 <* <1 .SCALE> <1 .HPTS>>>
+		     <- 401 <* <2 .SCALE> <2 .HPTS>>>)>)
+	      (ELSE
+	       <SET XM <MINIMAX .X>>
+	       <SET YM <MINIMAX .Y>>
+	       <SET HPTS (<* .50000000 <+ !.XM>> <* .50000000 <+ !.YM>>)>
+	       <SET SCALE
+		    (<SET SCALE1
+			  </ -800.00000
+			     <COND (<L? <- !.XM> <- !.YM>> <- !.XM>)
+				   (ELSE <- !.YM>)>>>
+		     .SCALE1)>
+	       <SET C
+		    (<- 501 <* <1 .SCALE> <1 .HPTS>>>
+		     <- 401 <* <2 .SCALE> <2 .HPTS>>>)>)>
+	<SET X1
+	     <MAPF ,UVECTOR
+		   #FUNCTION ((X)
+			      #DECL ((X) FLOAT
+				     (SCALE C)
+				     <LIST [REST <OR FIX FLOAT>]>
+				     (VALUE) FIX)
+			      <FIX <+ <* <1 .SCALE> .X> <1 .C>>>)
+		   .X>>
+	<SET Y1
+	     <MAPF ,UVECTOR
+		   #FUNCTION ((Y)
+			      #DECL ((Y) FLOAT
+				     (SCALE C)
+				     <LIST [REST <OR FIX FLOAT>]>
+				     (VALUE) FIX)
+			      <FIX <+ <* <2 .SCALE> .Y> <2 .C>>>)
+		   .Y>>
+	<APPLY ,PLOTV .X1 .Y1>
+	<COND (<NOT <G? 100
+			<SET SX <FIX <+ <* <1 .SCALE> <- <1 .HPTS>>> 501>>>>>
+	       <COND (<NOT <G? .SX 900>> <APPLY ,LINE .SX 0 .SX 800>)>)>
+	<COND (<NOT <G? 0 <SET SY <FIX <+ <* <2 .SCALE> <- <2 .HPTS>>> 401>>>>>
+	       <COND (<NOT <G? .SY 800>> <APPLY ,LINE 100 .SY 900 .SY>)>)>
+	<APPLY ,MOVE 0 800>
+	<APPLY ,MIGSSEND 13 10>
+	("TMIN
+"
+	 .TL
+	 "
+TMAX
+"
+	 .TH
+	 "
+XMIN
+"
+	 <1 .XM>
+	 "
+XMAX
+"
+	 <2 .XM>
+	 "
+YMIN
+"
+	 <1 .YM>
+	 "
+YMAX
+"
+	 <2 .YM>
+	 "
+SCALE
+"
+	 .SCALE
+	 "
+HPTS
+"
+	 .HPTS )>
+
+<DEFINE POLRP (TL TH R
+	       "OPTIONAL" (P 60) (MODE "SAS") (SCALE (0 0)) (XYDIS (0 0))
+	       "AUX" (DT </ <FLOAT <- .TH .TL>> .P>)
+		     (T1 <- .TL .DT>)
+		     RM
+		     RX
+		     RY
+		     SNARF)
+	#DECL ((TL TH) <OR FIX FLOAT>
+	       (R) <SPECIAL  ATOM>
+	       (P) FIX
+	       (MODE) STRING
+	       (SCALE XYDIS ) <LIST [REST <OR FIX FLOAT>]>
+	       (DT T1) FLOAT
+	       (RM) <UVECTOR [2 <OR FIX FLOAT>]>
+	       (RX RY) <SPECIAL <OR RSUBR FUNCTION>>
+	       (SNARF) LIST)
+	<SET RM <MAPF ,UVECTOR
+	              #FUNCTION ((T)
+			       #DECL ((T VALUE) FLOAT
+				      (RX) ATOM)
+			       <FLOAT <APPLY ,.R .T>>)
+		    <IUVECTOR .P '<SET T1 <+ .DT .T1>>>>>
+	<SET RX #FUNCTION ((T)
+			 #DECL ((T VALUE) FLOAT (R) <SPECIAL ATOM>)
+			 <FLOAT <* <COS .T> <APPLY ,.R .T>>>)>
+	<SET RY #FUNCTION ((T)
+			 #DECL ((T VALUE) FLOAT (R) <SPECIAL ATOM>)
+			 <FLOAT <* <SIN .T> <APPLY ,.R .T>>>)>
+	<SET SNARF <PARAG .TL .TH RX RY .P .MODE .SCALE .XYDIS>>
+	<TERPRI>
+	("TMIN
+"
+	 .TL
+	 "
+TMAX
+"
+	 .TH
+	 "
+RMIN
+"
+	 <1 .RM>
+	 "
+RMAX
+"
+	 <2 .RM>
+	 !<REST .SNARF 12!>)>
+
+
+<SET REDEFINE <>>
+
+<ENDBLOCK>
+
+<ENDPACKAGE>
+
\ No newline at end of file
diff --git a/src/rrs/mtprim.urs010 b/src/rrs/mtprim.urs010
new file mode 100644
index 00000000..cb0501be
--- /dev/null
+++ b/src/rrs/mtprim.urs010
@@ -0,0 +1,182 @@
+<SET L-NO-MAGIC T>
+
+
+<PACKAGE "MTPRIM">
+<ENTRY DRAW HARDCOPY LINE MIGSSEND MOVE PAGE POINT PLOTV 
+       SETORG TRANS PLOTVDSK>
+<USE "DISPLA">
+<USE "SMCELLS">
+
+<BLOCK (<GET MIGS OBLIST> <ROOT>)>
+XORG YORG
+<ENDBLOCK>
+
+<BLOCK (<GET DISPCOM OBLIST> <ROOT>)>
+COMSWITCH
+<ENDBLOCK>
+
+<BLOCK (!.OBLIST <GET MIGS OBLIST> <GET DISPCOM OBLIST>)>
+
+<GDECL (XORG YORG) FIX>
+
+<SETG XORG 0>
+
+<SETG YORG 0>
+
+<DEFINE SETORG ("OPTIONAL" (X 0) (Y 0))
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (VALUE) LIST
+	       (COMSWITCH)<SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,STRG .X .Y> ())
+	      (T (<SETG XORG <FIX .X>> <SETG YORG <FIX .Y>>))>>
+
+<DEFINE MIGSSEND ("TUPLE" LIST)
+	#DECL ((LIST) <TUPLE [REST FIX]> (VALUE) ATOM)
+	<MAPF <> ,IMAGE .LIST>
+	,NULL>
+
+<DEFINE PLOTV (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+	       (VALUE) ATOM
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PV .X .Y !.Z>)
+	      (T
+	       <COND (<TYPE? .X LIST>
+		      <PROG ((X .X)(Y .Y))
+		     	    #DECL ((X Y) <LIST [REST FIX]>)
+	       		    <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		                   <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	       	      <IMAGE 29>
+	              <MAPF <>
+		            #FUNCTION ((XE YE)
+				      #DECL ((XE YE) FIX)
+				      <MAPF <> ,IMAGE <TRANS .XE .YE>>)
+		            .X
+		            .Y> >)
+	             (<TYPE? .X VECTOR>
+		      <PROG ((X .X) (Y .Y))
+		            #DECL ((X Y) <VECTOR [REST FIX]>)
+	       		    <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		      		   <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	                    <IMAGE 29>
+	              	    <MAPF <>
+		                  #FUNCTION ((XE YE)
+				             #DECL ((XE YE) FIX)
+					     <MAPF <> ,IMAGE <TRANS .XE .YE>>)
+		     		  .X
+		     		  .Y> >)
+		     (T
+		      <PROG ((X .X)(Y .Y))
+			    #DECL ((X Y) <UVECTOR [REST FIX]>)
+	       		    <COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+		      		   <ERROR "LENGTHS NOT EQUAL" "PLOTV">)>
+	       		    <IMAGE 29>
+	       		    <MAPF <>
+		     		  #FUNCTION ((XE YE)
+					    #DECL ((XE YE) FIX)
+				            <MAPF <> ,IMAGE <TRANS .XE .YE>>)
+		     		  .X
+		     		  .Y> >)>
+	       <IMAGE 13>)>
+	,NULL>
+
+<DEFINE HARDCOPY ()
+	#DECL ((COMSWITCH)<SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,HC>)
+	      (T <MIGSSEND  27 23 7 7>)>
+	,NULL>
+
+<DEFINE PAGE ()
+	#DECL ((COMSWITCH)<SPECIAL ANY>)
+	<COND (<BOUND? COMSWITCH> <APPLY ,PG>)
+	      (T <MIGSSEND 27 12>)>
+	,NULL>
+
+<DEFINE MOVE (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,MV .X .Y !.Z>)
+	      (T <MIGSSEND 29 !<TRANS <FIX .X> <FIX .Y>!>>)>
+	,NULL>
+
+<DEFINE DRAW (X Y "TUPLE" Z)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH> <APPLY ,DR .X .Y !.Z>)
+	      (T <MIGSSEND !<TRANS <FIX .X> <FIX .Y>>>)>
+	,NULL>
+
+<DEFINE LINE (X0 Y0 X1 Y1 "TUPLE" Z)
+	#DECL ((X0 Y0 X1 Y1) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+	       (VALUE) ATOM)
+	<COND (<BOUND? COMSWITCH>
+	       <APPLY ,LN .X0 .Y0 .X1 .Y1 !.Z>)
+	      (T
+	       <MIGSSEND 29
+		      !<TRANS <FIX .X0> <FIX .Y0>!>
+		      !<TRANS <FIX .X1> <FIX .Y1>!>
+		      13>)>
+	,NULL>
+
+<DEFINE POINT (X Y "TUPLE" Z "AUX" D)
+	#DECL ((X Y) <OR FIX FLOAT>
+	       (Z) <TUPLE [REST <OR FIX FLOAT>]>
+	       (COMSWITCH)<SPECIAL ANY>
+       (D) <LIST [4 FIX]>
+       (VALUE) ATOM)
+<COND (<BOUND? COMSWITCH> <APPLY ,PT .X .Y !.Z>)
+      (T
+       <IMAGE 29>
+       <MIGSSEND !<SET D <TRANS <FIX .X> <FIX .Y>>>>
+       <MIGSSEND !.D 13>)>
+,NULL>
+
<DEFINE TRANS (X1 Y1
+       "AUX" LX
+	     LY
+	     HX
+	     HY
+	     (X <+ .X1 ,XORG>)
+	     (Y <+ .Y1 ,YORG>))
+#DECL ((X Y X1 Y1 LX LY HX HY) FIX (VALUE) <LIST [4 FIX]>)
+<SET HX <FIX </ .X 32>>>
+<SET HY <FIX </ .Y 32>>>
+<SET LX <- .X <* .HX 32>>>
+<SET LY <- .Y <* .HY 32>>>
+<SET HY <+ .HY 32>>
+<SET LY <+ .LY 96>>
+<SET HX <+ .HX 32>>
+<SET LX <+ .LX 64>>
+(.HY .LY .HX .LX)>
+
<DEFINE PLOTVDSK (X Y OUTCHAN)
+#DECL ((X Y) <OR LIST VECTOR UVECTOR>
+       (VALUE) STRING
+       (OUTCHAN) <SPECIAL CHANNEL>)
+<COND (<NOT <==? <LENGTH .X> <LENGTH .Y>>>
+       <ERROR "LENGTHS NOT EQUAL">)>
+<PRINC <ASCII 29>>
+<MAPF <>
+      #FUNCTION ((XE YE)
+		 #DECL ((XE YE) FIX)
+		 <MAPF <>
+		       #FUNCTION ((L)
+				  #DECL ((L) FIX)
+				  <PRINC <ASCII .L> .OUTCHAN>)
+		       <TRANS .XE .YE>>)
+      .X
+      .Y>
+"DONE">
+
+<ENDBLOCK>
+
+<ENDPACKAGE>
+
+<SET L-NO-MAGIC <>>
+
+
\ No newline at end of file
diff --git a/src/rrs/mvprim.urs008 b/src/rrs/mvprim.urs008
new file mode 100644
index 0000000000000000000000000000000000000000..3db2d7b771d64a2044e3770e52b71f5d6961af68
GIT binary patch
literal 5882
zcmeHLS#O+35ccb!{Rep|lNZq1XeL?7iqyfv(8C}D%>px_9s57*|9{%5zBtUp&asy^
z^Dsak)m7DBovh<Ml-ISmu9Cb+p^rV!V@;CYCpibdIyG%k`LV}%-M135Hu(gHq|H*%
zNGOY%LsjHm$LkC#apKU>wnh|n4^1ih6L_G1MU{7b3wWGpbLiWo?(~YRyGQcJ4o}O9
zt|=2bO?`G%%FD9DZ;#!TBE5%z<;X6b2;#0Rx;_Th3em@5><vU$;veyvsrAc^L_ZbP
z^SwCOeJc9&u)6m$(ucvy>BP^1Eb`*9JmYBzfnzF!eKF7kDj)|nymg<%HK@;w?@6ad
zOMx$%z7Ta%`bY}4Ap{ctLvQm|lgB|B0uwD!hkYp$yuXdncyLO}BM<SGx_%sVqK2$%
zcv>VSB(;o@CQAk0V!-aivCeM6EkqqBO;bv^!VAnH8X%G}1jL3uDd=(6C>JAMq9Mk8
zYEVh12W1?GVT^Kn%t$I*zDGSt@RQ?!QpzeB;NANVQz0d&Q6mmgCuXma3tEf3OzAl^
z27Z5RO71K1CmJJdpvu%Fd~SKylkT2SAVWXtMMVcxNwWtQ!&QNn!68y`^EOxYu`KE4
zi~t7L0fF1dAdZNnq=v}6Ol6^E<{*46>Kp>Q3TRW!%gNzZ!*BP;Iwd4P5Tu6|S8O(5
zF+c;fw@uQXn>nVLW=WS81w^<6HE*d!crwC7KSoLNmgv7ihBbzb8vHlS?hhZ8w$KvN
z-tWJWxPddEOv;7$Zyq04j?nIgECTG+KfLBfoC(nd!-=Qppx~&V&y9)DVf6^X!vaZj
zOMIGach)pFyOGqIQeQO4=A_LLE~AI>euL56txfl`;kUHbpx9V0Yg&N_M5RSTh(;Jm
z!m6HB{}y9fNlHT#n{kK&y~mzbiyqj=kGH@|Ug!ORyutX628)U@9N5cMPsZC8mGA3a
z9S|M<`;pwAuddf8M{jr9r`}5FU6MudiaN!;pAj!i#~ilP+~9*e$D9wl;R$2TjJ##j
zdWFS4Jw3J3frI4APUm!-Le)IEo|Q$GjT7>1*p853BsnomwogC13Ym46rWrB+(Xh%U
z%Dot8$~@6wj~A**1k3@)8HAAsPamN}4t$Co!+;Z3MJZ!iKNdeq7e8^M6>bsnH{%9I
z{E_Qf1IUOEH9H4}akkTFJOWXZ`v%YQ6B)(|>G97YV|1h@C)vGMPJEdmxS}G!ySMl_
z6E$&#1;qJe^^i^@A~2U3!n+&HFyRJnRvA$hOc25v7nsq0ZO+`}b2e0*a`({%Jfzs9
z9WVvArCwB3^&MFaCF9G&;4e&DT-aQu(=X;S)tOvIDThM4gR=$mEUc59D$P(Y7}}kV
zRWRRtNyn<H{Xgh9Yf(oSsh9cUc^y+IajDby=veg%f?*4C3&RfN?kltOapU=d_uqtT
zhgVxXmsk*@_z}t<p#mb*z#?lue+z_kM-aWaNoDnYZ1I9L=(jqdwf6Bumq+n<zJBM{
z?-uLL>hsP>H+KF*mg0PdewjNZJNa@fY5JMn*o}rL7CYGJfWcgY?R;P%>bf4b3pVZ~
zmtT)gYU;~Ohh=_^<4*JD3Il}FNC%zW#M9YL%b=q16DT`evZfmVC6<a34g(zI1b9Rb
zZ=e0DAbdq_tXMUrXaoU$MZKOe-kIZdQ|Gsv54hBnxvRYqD&4hfn4GS9KdO5+>(Dr+
zEJf7<vF#J8`%ImuOTf#=E2E<w%v(p#0<J1Fu_;M{O0Z@5m<@cnUtmPG!O8+o_j*>C
zb_s=P{*dx49$!;NoAb_BKq|-4U_;82f*8M6D`G=&9zI>&t7naPD+MpjPn%P^4t8~}
zqdJW%wzhSXs-m@g=qJ{)ivg-){Y=yxz1F;Ki|t?2z@`~8%}Ilsq0jSvxwyFa69f?2
A%>V!Z

literal 0
HcmV?d00001

diff --git a/src/rrs/swchar.urs007 b/src/rrs/swchar.urs007
new file mode 100644
index 0000000000000000000000000000000000000000..ed37e33b22b1ed2923bf18670abcb6ee373a97de
GIT binary patch
literal 36161
zcmeHQU5r~t6}H+cWjARGs7YJeRFl80H_2{y{F^4OiQ{z~XPxzS?M-*%rcF`PC29i|
z{eeQ^v3=mJJWvS<384yA2=M@@QW3oHRwNMR4e^31L<QnUs*sW<t(fo3y`J%$@x9q?
z?oE((tK1!*IdkTm@BGZU*RHp+P^-_?nhmk5`$+wGZE;t1ywaHOEv^W>QuLGbTXc^%
zYKv-asSDPV^+vnh1uwmxZFLvgHM~69?$qZ*w$g0$L`#!J=V-gt?Nvo(vD4{QC#&Q6
z*=}!6<Y%$dEUl=HtDj0&Eo#rq%<P=f^2Y^!?%z$XL^eA)K1LK_M)}#DQ^7vr<nCj&
zwo=mYWM>5ZXO>S%(axEDh9{&op_COyF?qce8z?ZT6dT}`yWVOI6c|z~f4$WjC@`c}
z;d-kzP+&-{V(MyTGB*_uWYqP@e=?a{e|5|D7f<d`FEcltJ|xfIiqVs}Z2W8>uz|n^
z0viZyAh3bJ1_B!hY#^|Kzy<=J7=fqfrw^PbDIY!e-2;E1(FZ?&b!>@7&FyFDcP6uX
z`?h-ojZaozZ0i;09$OA(`xASQ=;66N0V#8SaO1Mt32F7kXM<s5(~gG@(zyS)2xu2_
zd-mw@rDtC~@K>TXvcY7gS>N{3S$gsKEg|jV2k+i>iC(Nsd@&$4wtp=c^-q;f2pYqp
zE{z_ZxGR|L9x4XPEX{{@bPk2H{nGRW%{VY4bMfDARi7i`$4|WdcRgC&yb#E{^55T{
ze~HFB7PpQ~(g;|crP1X#-kp0dm_2ZKRgX&lx`%G@GR^8U#}5&$e`@b?IT%emBx!W{
z3%}X_HyX{|7Fv03`<B*&n(xl`qet{;Q@Hkt&z>bpCUg1OcP?qKHWoh}(9X?;Rz9*h
z9IdW?ZbnaEe&Myby)^8X_65eBzq4^d>!SDqF|89@zVTJ!TiqN8&g>}P`?9ueb7ww~
zx8t_0$Db#L?%}Pc1D#Jz%pD|JeK}m)e`@-`S$ff!76I|%FTQ{HpEO=wy?0-LOR#??
zGk4z|kDd-@Lpzq{zj;J2KBj-EYje|60g`7HAK3gEqQgh~X|#I(9aDlv&FYtKE79n~
z;%nb~lSUuyeQ(RpXtZ?d+}(K^txRm6ygMB2*PgyS`R)B(qFs6Ko!8%>(Z{=g{pVoz
zjX%EpW1{s>O&s_-jm~fS6#dR*K78}-_77-$@y%D>{|k-kTY|}q+HL<nda+arO<z3`
zfSbAamA4)$(yY?7^%ENPZ@nX!Zfy-$tW0bRu&<Xxtim1a-~G}c;cRj+zWl?`A~V@l
zQLMetxO3ZCP2Vx`{L?xP?lp{S9?d-#rD?Z(Usi9|Ej@Xc9$nh|r`L7e*pc7VZjRh>
z>2@x;l@kGfXZ!NVm6^=N_h0#k_SS_>FWjpm8__fxw`TQ1UuQ})ANu3V`<@N<P@XxH
zqp{)}jGoErdJv(AnriI}>w)2G?c=totQDF=W%rc!jEeSyhlyC<`mMh9;L5~~Fmg5p
z3o^|UTbU}W69=_8>$<xA`6K#eYvR6Ow6rO-vRU1;U@_CMuPXX^8ZF(vEm(2+h3^D4
z)^MYGKde`j0yZ<5S$!b1_tH;)+19o0%BA1+e?&a1k8w@aIU_6qG*nqO_b83#N?R&t
z-RZ$==&WZ|CI|Sz`#M7hY?&*Ue&5mu2r7ftzTOV!SGR{cJI}<WC```?nNyb;^FUlt
z6ye}7Q3~myDppWk2~w1?dRjf#$Iq~EL&oOTzG@3KM=DuVC7t*zVb+82!r;kjVs9MS
zhB!!R{ER`C+ESE8K_CfRCJKNvM2u|a4>Luu4ebr#+$qqAQz6)upf!<2H8ms``c37B
zscJQ1z^F50KjbbX|Bzeb=^7T8pwt>R0orSYO~gw<fRPzCm13Jo0F`+I0x0P1_1KFM
zfgxKCqTdNDB;XY07`T=Zu{B!`B8xqW3^g(2Y{+AfKptBTqO(y5@`$u8CH~fj9g$37
z6ReKfK}BRf2OEzXiX|o-1UDL0ZSzX-M;LtMAg^P_tF19+$bF=j1%LQnX;xaf>L?!?
zX)UvhZ8-(6!9*&Zb|Mk{Ytprt{5#58Pwwf_vGSm@ZOBImAp9F5(t4LjkXUXRcr)5%
z#lhRh37(JsfcL|IqQYPR@#<h08PqW_4BoCz7zSnq{N~uJ3#dcX{erVxpB^k5P#PR!
zjQNAN#S=8&lp#kqeLg$HQO7f)W^IX{MhAHHM<G1ul<vqb(JL9mDF+2f88QWYtZEVC
z_vD)|ZLQ;6-Tynp7**5g2nal15tY<DdHv>fgO}4Jz|}h_`4e?icO2EUm(n;q4O~vu
zv-=ZPCE*T!<Ra8K6<szH03zFvLe(D_<bVIvNDJ)V(=b_4u`Z{iag<Z}QYzau#{ZNc
zNEwzMs9j#01K9mg(p{2oD!OWv(m2<RH7uB}Ni>q}cDHLbWPxg?tdYHz?kv{<WV#&!
zvnwLYB68E4%OE<Zq>feRJkmKxc)0*FKl|&8-}}Zfj+mHGPOFbG`VAE%YD8Ez14v$2
zjR=ORnW94ABI^)iAW5TrF$y!|*B_Kj6vB*Q1p<pdqff*XcL_Z*aJG#>H;s-f0zzY`
zqjr+#zkN12v8W#cvSJJ;F(O>UmV?MlA*cK5vEI&rU?pRW-;(bcZIqlM7CgvecEWfb
zl_MMOXcNn6^q-$JG}##gf!-WvM1X~Vmd}HZP{qSA6>B-J*osq4Fu9MC?UZ60d-T?Z
zc=cvxLmpvi*LqrdO~byNM*C|JOu9qi9=i6PW@QU*Vr2{aG9sMnERRXqG&=E-<s`}b
zcWlb=0fD6lI33XRQyVX*BQplxH2U+@EX78wWYDdrniwjI;511&GzI*;&tV+N+Ix%>
z%df>VwsIPMI|9ftOZN{fvOsWaOH62`(PaaE@}+%9pvX8xeJ-*i3d<d0j8SPdx6CVW
z0P_mC*65Y%+~twRUgLP*0ne~D5kyuD;ca%Zg6QlN#D%|sppfxRMTUg+zj!A2CWzN+
zgo6{k`k5Ld0tN;eh)$a5<qSz|#E960EeDb9j-C0N+z`rr4y8C1dCDc20?xKHQ%psY
zrQ{72eToyG@7MZyn@~?nmU*XJ&LrP#j(Vy}5LsGTZ}h@H%)NlgA;#F2e5YpLZtx(X
zgPR=b9tLiS9Px+_0$7PPk>pJ2^WPzA$t>moKGO`_8R<jeXp#Lci+Gns&ZN=PMI?+-
z-iaUEeXOoSAor=iNB~YpfG#_1LvoJ~!u38Tku%BnWj0P65(F2g5>Uw5p*R9il=yB&
zun48~?sDStqi39Kjm$1Fr6T#(Fd9Q(;$k==pN)AGOSXw-${HC4T?@QZG4LecWTpX6
zWQ|Ir4ZZPdl=p-|FgmfNLnno5CX;_68Wn2x0qBLmOXQh562f(4pG>|-3z`9cWhIk+
zQ?WNM92dxPsruw|snHclCg0mB1(dR^Ns7qfh|>vq#zcY0&8C|Z#tQ=HjjCue`K~KE
zlYD2Iy}~*2H9+3{T2Im>-xb-l!gY;pr&s%RpT+Wew<>U(*Gn7&M1a@&nB=|@+6}MX
z+H0<%G1jEfSr~2E8EvMVI~0H2)z24P6Sd(?036IV9C=<u+~U~z;s}gJH+Oyeg;5_4
zquQsCzlysbZwqFe=A>E-8fml&MmNV(wi8*X_ztieFxKD=W)?lE^mRaz?)u$#S7LmW
zeCuL6f@iX??Fb56G7;;I@O7RIx#YVV`^@t8VI~2Fo^3?bJs8VGf#~!=w&MsO`{vzj
z%O4-EHM?91F(I2qGZoQ2W6F(V{T#`q+5oz9F*YXOSJ{E(DrYOs>JNpEzy8Do9TSD9
za`%n_Ci!kG8kmT{Scf&~c4IEo>vc2v(H{YThq)Og*VK!(lqn`^?HK3N=*j$Q8Jjus
zSYhTZOrqmIpGHp=5#yM0n!r)FA;vmxy+=%p-O2YUwm-PWJ`daZW307&siE;s#h9B$
zV*x*MLy>ZRs@IN)cYtF|Oyd|gDsz+8n}KN@&HfI`-z!H{*O5ncjBC<3Wbr(cTwr&V
zP?+7Up;&PDA$l1r?u{IwF{Y+*0#CtK_r5In-W8V|t!^Rt!%W{B`0-v7w1qT|Dj-WY
z#BLNhs_HVuh*-*&6T#QsXkKhNRO2HOFrrg}7$yn?I(=<(AcXd?i6Af{G<TNA#8Vo_
zDp~2n)Bp7x8Wz@M00rhhAi#(~fh`A-%ApIQIU<If8sj-fR1C^#oaSDuz4&;Mgp(L(
zAUc-nk5-QWjRMl|X%GG}prz3tKr8;qIZ(Y8>H@$Ji7<O@VWbm+xxwo&uWLO)5E^K?
z#rnuy3SShZ6i|3NWl4WmftSe4_gd=3<i-o)v^ptoxax3XO%kBvK@XHU6#>Nrfap|R
z?O^6Qk3+&;M#N(p{TQ^Oo{Uv|_gmKVJ1U$C1h@n*E+8^o{*OaCm9Kb$hay7SjZ<A>
z7|Pxn;f3DoBoMtyM2B!HU;YFucmPs8wGwOaDQ52n-*wKqSO%YvCJ&fiDaPb9+DII`
z++_He=O=*RR6l5*fY7ZqM+U4eHKbUuTjy&rjn;3?+2Scw`mBI~R#DW?a#>!jH!;%a
z=-_$RMLMLtsT>sewMBdKPk`(vi-fkxMC~Z&_|+d~U_^l7xHRHMm@Nl^?M_@)un%fX
zh`TjsC&CTT2{{HTg_VIUy06ozkyhiw?p~4tfo(*QXhp{$aw6|3p`IfuI?_`48ZBtW
z4;WBW3o-{3UCBliImGmcskP&q)^j~(AXL4!>8k6S<1&43>VD^+elN$RCjCSpCe+jD
zyMTH`>^R^hQB-3<NUOzS@feX+5w#8{DiZ}FiE|Hnc6=w11iE3eO0#uvm(u9kkkw8g
zd0U#OTb2<q3IN^PhM0g#zQ5C1!YuaG;>fdcJyGUtI--D4+h+yD;H-{;F0C%lu_EHZ
zX+&6zn1b!>m;uq*GzN+^8aiWvqnmvL!HP{pMJHaL-}OBdD^Y}#pMPWs>64Uc1q&Q2
zq7hEz`>G<a0vHSsq$I1^{@~&E>SSljL0}t=gf|AXw7NI9=4#t`&kW-@71nVHSC3<|
zl{5z8w7N1UTXf&bhya*{ls9%GVtu{QmPT)e8pJ=Z0Fya&^y4A2(C)qf5jzIFPgF>#
z;<lcgMc$2#ESfQKl}0B<wy<yk)lJeEWz%S)aE5Rn!*QHShEasuP6m~E9_D`n&r_-P
zpNS)n*BCI<YOB~=eS{@L4FEA#!00}C4Jj5H)~!W3`4-9UgZLj-Lap>uO=C5b)E3z?
z>FS!}+)NrD-lETwvHT^f{)=9A^pnew0+x|OH~W^6q2HRKe!RBW4Zh83XTOa<HKr~S
zmmDs6Tne}paVg<aRu>6A2|fuv2|fuvSsWizS1?L2=D?T(V-ActFy_FRgTNg4a^TC)
zh+~}&24KtQAtevKJoxh9%Y&}~c?HNTfUy911@INXR{&oDd`0jTCBziLSOjAcj72aO
z!B_-i35+EOEP<~Cz7qIK;46WzREC%`7|UQRgRu<8G8oHXEQ7JE1gdYz!bR~(K&ZZ>
z1{cLAX8?@^h7uS`U?_p11cnkAN?<6Z5-0(o1cVY0N<b(9q09jr2@EALl)z8|L#Z%S
z7cc@unTJ4ND1o5_h7uS`U?>Z~Mgl|$5G6pA08s)&2@oYfltl;xh7uS`U?_p11ctH*
zY$QOG08s)&2@oYflmJlzL|KABU?_p11cnkAN?<6<gbhHH01^3hraC@eY0ft4ZIPug
zofMU&Q;mABvncv9_n@ftIw#Lm!8O}B)|zjKW9_ArBD*YBCdK$zWwzB_5S7Y)QK=vA
ztt>P|r8Yl%RGlVeHR{$|Em7&Mw5rvrIM!OO3Rx8gXq#$S0xHYxTCX9dm&NpoVjCac
zsIe%rw9jH=p;7CJY__XXPh@+dG^750+xXa6h4h*3is_z`IacX5dZH_oLW(4dN}!_E
zJM*(5TWNlth${W6BH#;0JyDrb5=2g|m?SkqbD?dsp}`T#YO$-c&}(((YwcYk+ijh0
z;60H^v8%SUtO#UVVB#bc->spgiAgF1wR#U$K@^rNyt@mHdaKqJ6@|G%Ng>>+^`N=X
zKT(cR5ClG$?;RInS}PFc4`MO?7;IDN)@yC$2q<NUu6IIMP7*HbgC!kQlr;)cpprZ&
zN86qHoXCou)19O3R#!z+Q-xs*$<eL}O;d3-PEnVi?e-M&{k_TR;a&C4$%R&11w_5J
z)NRa)x%Sd*v$4x$LHBs0rozRJx}KOWA1sD3R}(4*!Z15kYcC<Bf()i;QV|ut?yGu7
z(S?j2gjY@UCN<g6NJ%?3$*lfj1IDR1MOjd5YTZUv$)XfR=G8>y0Ts}#d8DJN2_4Ey
zY!)V=6w@Tz?B6e_ZO7=+SGfco#?15ct9dzH(_HIYJ!ny`t&lTkOykglX!_}^b7f5Z
y3tp-k3yaBK>lX|fLt(LKN=@sPno}DnU@Hw(ZxMbd(Q3R<tIyS%Duc&wzWIMjKZd9P

literal 0
HcmV?d00001