From e9a9e2cf7b2c5e23bccfde0e77345876bce01bce Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Wed, 20 Dec 2017 02:00:28 +0100
Subject: [PATCH] making things work

---
 assets/haskelloid.png | Bin 44788 -> 6424 bytes
 haskelloids.cabal     |   1 +
 src/Commons.hs        |  36 +++---
 src/InGame.hs         | 250 ++++++++----------------------------------
 src/Main.hs           |   1 +
 src/Menu.hs           |  36 +++---
 src/StateMachine.hs   |  20 +++-
 src/Types.hs          |  35 ++++--
 8 files changed, 122 insertions(+), 257 deletions(-)

diff --git a/assets/haskelloid.png b/assets/haskelloid.png
index f75a4e7d5e45cbb074192a4db23bc4cf0a82e0e2..f633deb21ea3235c53516c2757796e5c2187fdd0 100644
GIT binary patch
literal 6424
zcmYjW2{=^i8>d1kNiJEkjigQ1D0}uuDz4OoipVlEHAEOgiHI;QmZoT<6lpboH%x^w
zWa*YBnqgv2rmPvsjAr<M=NPwo9uMa`-+7nc`+Jw~D`WRAS2<ZVSqTXVxgBm!dnF_!
zi@}fHVrj5q^>pkU__Zj?VTaFR@Q<)KI2}AMIqtSU3jE4|e<W|eTRsRDRimB#qP=k;
z(Xof|M<rroV>gFkBcg&1A3wSohYux>TB}J&s9f3MwB6^_wUHilmj8#urtw)zQ(E$f
zo0E!C@8{EKXk6;kedtrZyW4Yvi&t~cCWl7ubZlun>#-o%TC@LNxZ+}`JEyx$rT4yD
zaPzswhrcy1JtH01{Ily`f&2GGVL?7CBZJaI+Xoj09jOX!pYGU}Ffz%GNV4;ibWSi>
zPfF?y#3Zn~?w5F-=WjXF9T#`}*vE#p$C|T33z=0@8ka;Uyl=Uw$y;Tv-Sg;EzdF1F
z7uk;;Xd=wYp?K6X!y{KOQPt4Z(51(k)c%L#DeZy_kBf>k^7sr!5*61LR%W>1Mr_4U
ztj$!~siefgOqGxL_6v5;26UGOX&4#Rh?XeKa{M|vQtXmm-AtV-t&>XbeeUFx7Bj-s
z=`V6mRDDxJufALRo}xFP>OH~AcY;0|chFzbYHvr_6-}>{h<|T6qeaKbLKaKuID6?{
zEiE2dR?xPHr@lM3LUH!AP<g<)-Daex4%c8EWJ%S?igS@RA5~SI_8at&_`2%>-;j>m
zVBwp~#%4?kcRsr|0a@HA-K91sB@LEobKT4q1zE`P$g1F7TF7cG1s-{&z`zEmaD19A
zFYrtihAb4w-7DPR<a$<Ex}9j6B9!iQYZ_P3p{^&f-|12%x2#+}FHyPX`Ej#JJ&ChY
z^SfU+S3njoZ9nkSbJ>^axNjtOvfA#Pj>#8A3H1rF-mPzfZ(J1)K!pIMMFKgaT{gBT
z)KJVw;zc22zn-8XaAq$Zcb&wRct3y`s>ege19^|O<@{%wQFuE?*Maz6o2t5<xNzrS
zIKhdIbB8ED=(yzV{(tN%9fFMx%VlS2Qzc7({3$QDsOg-r)PeZ)v`|{*-wD`QGdj*C
zmo1^_uBt_vnqXGGi4Q2nvi=Eg)<0rHX!PgET>l@;g(W=oL-t`D)9Y;PrlGjP@W~9O
z<`ybO?N<U1y+R=8R{rb{r8}-z!f4Mqp?&k+Z>4MYPXAV#yyjL`&SHUQhA>YPh|vDT
z&t?12apt+~<nzwzS|pCZvnV^xr6-OQ<&{Jk>n#Y)W&Z_&S#m2oC!KC=H|F6$9HM8k
zoQNLTLTR6M(|>&Lqy<M<TF|x_L^#8pCJrj_+vmoUaUE(|E;|yyL;BlX%nJp`Li@h^
zd^o{ACm(@W-oZzo-=1kJGn9nx@x)%19}m=_N`CP$5r4e|e0?UE6D4}c?Onmex}PL^
z&MDCI018l!RzGKM=dvyDqo|V<QNA-Yd!%Sj5@6!a9f(E+D{5kJ@UPjeeFkR9Lg~xv
z=2ZhIF0Pq(MHaXsttcizp*?Y-`=Jm5U_NA_4p7NyMZioEhDZtIzNVImE!_#cv@x=<
zg)EeKWI3SHV?YeX(=$Tp=z0i=$9+1kx4CUD&TpljavX`?Vb2>bG_~U1q%|eE5tpK<
zl2O4i2<5mW_9h@S>To>#s0LXm(s3_W7l@Nqnx}pvm^jBx_)W5l!5`qS>-@uFdkpf%
ziD(Moj^6v=4~sQAvHyAYa#Oek40FlEu7tZuW&@IN9;+K&I*<*Mr%^y|#x;X<Q|*iq
zf3kV2s3KJt#LI6l6P5|`ciHh>SdhZheMoMA;KLs1-xK|2OxSY-=9Pjr37-1*qD_ct
zAX7j%++1Khbg13-L`Tk1(>ZFBff;80zHl_atNq~B?V}d9AIIWH<@ANGSG^6-P){1}
zkXCN6Jk<T2FMpkG*BDP+OUE56AEvoF1s~@&*ew<qKsC*R&4W1seE(T%9$G>m=XvD|
z91tHAm*O!-g!VxcZJxT?dggzWy?Nq^#$54&4ZTV$sk4uiudIPu<3_tOL6skTp~Aps
z&c2_tni6edNG7<*RK^5o=774mdh3&~-+6DaiG#<=7t;30m;dOuRT~l{`~KwUqD<<-
zKW{MP-R_(+8oe?T8~pid@vhYwCto%Uyb7(MD*<LK9Q%UHyO70J9TG5o4eXklJBbS0
zbQ!A2E{yJxtw_O6?h;^n+E)ck1z>X~3HA>ZIJ&Pt;x@Fit?S}Ha~^9Zee1~)wq#QE
z7!#%nq9Mx37i+6B=%aoeGG=O~wgge>J6=GQt7sbY{%4b5+F;%EM_j-(Ba==x?vSty
zYlVTiOvg!Y)u+@N#bchyFQnt#D)!8W;BB}-Ss>RP&YDkKH=^T1HH12PJUCp?ebW41
z5UxBmtN)TB`0ium4T`D?-eA>0bw=_<3bF_;8UG!9b2U3#)YumbF4R;uc9<2{v}^LV
zvAi}lmBh|nN(;R@>#rp+c$x7cRhYM0Ah-Vzp;T^!*rzQpNEe3Gr{2{%@N7Ly-v%20
zS~6URO<!hEuM5*Gg9x&8++ie>?rovnMc#oLo%ZPnA;cc$7i^ZlvF%et6-eouc`C*G
z=d0yzt1K@W#9kn~Q;wr(Ph6@?Ed+Ql82elqMQTHUDJ>2BMazIOH%|4fs%r;T_8=eq
zQ7t3RK9K3J4_RDJ9^a$#Y0J1ST+Z7-AV)qG4<}v_rkNPof+l0cBZCsxxqx%q39bya
zk%{=WVy9oj`LGu$aakR!bJ?%2(FNyvZG;!#I{liCdz3w12*jx%jeKViVIY0J^*mK6
z-i&MkrT&l-=RIf?;$24w{{RI@s-<kp@{&hT0oCnM+W0pGfkF9s;o5dg79cbDP?qyv
zmq&L0A*_l%HEfKup%5cmJp`giZR#so+TAttmKVI_Uj}U*>3nIBO7Th(Y@xXiiQUkw
z@wg~wI*8!zf}pm-hAKBw&;^QW>zVQOs>onapL)*8ywN&YnAUA%t1xHzDekB?RY!`Z
zzjEIAi-!oP`Nnb+pXKEQl<VVX`eJif>J!U&=z`eMpEkNfGwT==&A4?(2q;}@S>zh3
z-be1iUwe4!_xtw--dIBOT~63_&6+f=nHNXOU)2`)Xt?DrG0u#ksz{b89!KqKh$k+;
zHkD*!^h6Z#xX3O>z-z>}K=1rIToa9Kl~e<5zCWAd6~bxEbhOgPW=?(&r9^H`=!G7O
zP`p0B(BMNYzZgf~xKxQ;2Q#&C!Ibj|jlMZ|;F1?}yjAOn-hD$B>bH_a(m-DS5XGpD
z_*CcTN1O!5+ZfJrcxJkFgs{P7z9gDuc`ZP22HmCMHGd6K5KCN%j(=r&p&VZXZvA?V
z3n;gt8P{8#l#Rr0w<S&g<|~a~McUMpzRpDQ@DO!79j8HJ?>49D|EI;hk-x@VG|80T
z%dY>QFY}GRvAha@x{HJ2xwo2{fQ$%JDQ=)`4y^OL7U`BK&-v8flUE?KGi!N(E{fY|
ztqXGEa_aaFOmF9ubMT45h=KvA?&OP~Gbje9SWDH?wV_9ANKmLly$K9;05wf;CY@k8
zX_IC3==)`<dSm%x&mkR!Bp0B|k?7dLC&^}H`PUI1x02)coErLeXQcL5a4V&#mMl}L
zL>d7V(wO*TLHuj7*9NHS5xsh(+d#d2E#)N0p&}#OC0UgLyf__7s#6C><b8>)OPM??
zOnXS`+2Dfp)}efm5y<)XwcQPes*LdH>$&W=O0>HUkhu~bEjq~0i`p}5;Yg%om2@a&
zxy-?ccfS~}&A7MyZFhk#_=CwyY@=18GQ+ovI1lm(y$N`<M0LeXHkWcQNuJ#`c-l^R
zJo8A=X+9lGA~AjF7(sdwo8~KD&Nbvz*gZi<B2sqU;!<vED59N%W6Qa>)c}JDJ*5uV
zH(oy~+0&m!EfoZwt)?qhbsMb2lVz(70wIg&2C~<h(aU92#Wa0rhF|SDnmI{`_Sr$4
zK+S^IlAbx9acFv|s^d=Gxf3$V?SbDX3uJ2YnNYoPhrR2+6X+yn#VQ`!fYjrTps)p?
zU<#ZHMjVgIWgF?z?m8h46S?f;E1#fu&@sT{0Ti`w;i-xBOR7CnS&V~_1p$zA0c;eY
zU`@_2Ll^nG32>V8Anzcz(Prh4V4V!k)&>RRcl;oz88KX29$L=G)<&C>3No!3vo8HA
z`&zm_wc9mj=v_3HX^09fsmnZ!;X>XiR%?lxL&>$b9Y3Z|<<R17Zxu#bC3W-qMrKt(
zZ6#xB1kquZ6l3e_Jz7zxih7>(MUEF~UD@p=G8m)d<Y@fp(=25dY|3kAh%$hB(WU^~
zEp5O<JB|;Sy2AdcKLh(3`K^-G23f2$P#o3LhfAGcX52(Wl(fD!*9;a2g(C%QtLLxF
zWxl3k)=3H~w$rha$oDM{#E8Ycgat4@=9g22j1{0K1Z|YDb;S;qpJ&CiK#$LzWii&Q
zs@1DFHd~AW!%PfW3brH7kB%$kw1p}oa*pUwkAk{AXNPPq+r%Yiqc#lMZY3VN6kz`Q
zL8Vv`vBND{n5XlEX@+19Mk|wga>pMJ{KeItDJ*Hwt5w4YF}kp<L(V^h=2hX%(h5_@
z%efqz3rQ0oGvdbCI+R!GUj>-s+&ZmXc7MbVK2T6Yf0H?2Sff9n3YoWp9<cC28x}FO
z97X+bFo;c{V-7>+DlWta)h^lc2!3kX)DM0fTIewEOJ-wpEL=Wf-ZW2dES~=Iub<3t
zcg@et0O&k?U`^Q1PpvfNj&)g>M2D3(1^&8JTbaSP3bLU#gUJEp@di9uu?Z((8A0jk
z%#FeZ!DnA~%nWEZBD3&0)#^3>qx#zlzf$Fv<zQBkG|I+;RtqZ9z(fO?U-?>%8T<Nn
z3siL@zc(QI*u;2J0dExe9n!M2kSo+M%z7xQ_sh|zUa2(ZIAWJ_hRhW|VLk>Vbys-R
z&Z;LX=>}CMj0f(BD^vSCM7bK)03$-jn6K`@G$v6a-}C>M%XXmSwp<ixnS7DIbl+*V
z{!W5<rRbL8lwUbFw7*0*b9v>~@d~a}N6xbA@43O$bi3PwnIGJQc7%WM--<mvY?X%u
zo+J@Jt5WmSRZ3BN4gVKogtf|G$oj?6`tFIfIU}oj<1ND|{=XDWYbUQA>lk>oUEjp_
zLrM4`)fN(+k8-V|UYbS~_%pgMz$AbADna0T>=b-9-7}%yLK@+JKS`END(Fnh@11$u
zr!bOKSjqkil_W~*J!)l3=uxI=t=-ahr;_QwpZ3%P6W>?QJb;9E+|gbu>{c)>RT*Kh
z8&TA<gFiqSykzoEeh<LF=Tm$0rwF3ui8Tzs|0~<RRH1m}mg|rO`H8v~9<5T{c6J*V
zUIW(%_sVIZgby$OhN`sjWXYa^s#{0Nw5G;p>g5x6v%t}yC4>Msk*-YZ+-Xf3i5dBI
zJw?g$dCy6B_9h#5XCb5tap<V7KqeT|wVC5c9bUF>BSnb>A6e5niGT|r^VFALE@YlZ
z&Sbjbc7Q-ec=8g=n19*)x3?Iub2=2&&$WbzZhDvDkz(X*p}HH4_;7ASreB>CKxqgE
z11cim-zYSwy<n*HGiW*o*8$TT_gTJXqFCz4!)ex49jczsi}AQqU-UvRGS2{Z_y7^5
zHE1vR*rvDl#dsk%o5XaeNl0ep9sDA;#N&=H#}pp=6$F{$p+B*+xZe%C)Z>cSfJNaj
zg_ZDRxgBByd>?-TXn3Axg>2`se341*?{a0aM~C#pXegNg&ynv+@pFdzDontev?==!
zZKfzysHi6Ny!eR$BQ!`9RH@jfm*Lor2h3{{chYe>5Jk2?Lkq4bZPM?>7H75&gUJ6y
z$0!$cV4UH37ahEI9*@oQo9JNt2lT*<r|gMhe*OFbWZnUU9bj@<83kMMef0F);fPZV
zS8A?6&fb1RY^ZWZnK-uhA`sT)vQb9!C_HZ$t8H$bM`2_h7!$=g6be66uRDtQiars0
zx6Wzv#T)=xDl4S^v~Fg0q<dlpD7c5)oA)*2zPQ-}prr6*scx}}6>D~gJ<{nA1AIlh
z8}<l<HTXIln8OgIR}YY!>;SQT_R~MvX;Y+*7K=lssi#`}_=AVtMyM)xUv`n@w$&5K
z&3U>MsV%zV;Mm+F5HthgnhX0yDSsEEO-HKuuMF)b`};s)RMn_CP(!c;r?Y?W!P>zo
z;$$Tc0J1)px#`$JF(Ci=e48_9t(mD<sQ<l4G5^)(ZLEF(FUdmYOV#F$+jc*AZkHk*
zV~R}51KQxu2JtPIX^9N(KW@Qj0fK=Jbf}TuHH5+^3?`_!61~q`&XH;fWPYK9OsiTV
zFaQ(%3XE7W9TSBdds4y85guKj7?;b+TV0LGhI5gUybg{|+?Nr7_nsu51#m-RfV)6h
zK}8C<oPsmz>1h^YA(+vlcpnmV9rH`;&N-I=OF%acSx{Z!3Rzqsj#&#Z(j}n9z`+EI
z%fQfUh&L9D1eaWxTU=OO0T2B=X0yAv3N6B;n-L4n?4_M!DGxXW=u!6DV>7{(rVH`c
z4R9UDDt%Y9l4>4;C3ji>kiw%^R2!h+6UE3>ye4qOPpP_XDOGZ@HpLkkxIKr$fWx5S
zZKPxV28hLxGUc~bZ=AH*I~4yP5=toW;zVFXJP}z0y8+@#;J9ICOFg+|uBa$MRp2h|
zuxAG@3g|%+4UcxH!wp*U(4n5~$SPb%fd@z4jK&Rb(V?cAnN!<-t5*gGp{rNfopZ$R
zw#S;D6)H0tgr$hx!>ph1-E+eDR1<vffuVt8hFU(`hw~Kk<=sXww(U`>uE6cBGel(u
z741m~7}ce8I}(>h93U>u?x^2rxb6M6*`5uXy@TMQx?1qIudg%zWh-oP3+@%5WGacd
zQ=6hn87^uHP~?um^Z#`1M9$1qibcCuBB{%AZWahxR9&H*w>$?2s)cI+)PEbN*)rp5
z*eWKI98{$S90Sg^ffc0KLRFxkmIW8H!6h-$NfzV5gvx%6@4)H*jx!BdvW-i*1V_~c
zYkHdH8wEHLIl+_>ubg4!N%7Er4+SG4abee{9EECyYpFXD<=^02abr0h))oRA;0Ylg
zrmBG{xLBAOr6dpY&>qk!>_o)gK$?j@Z}4A%_f&&*3aiu}`vzQDZ=whp$QT<51ZD}9
z^Sp@>$V~r@#54hU@(uUmXVofK#<h#nsM_hIJKK0^B~~rw;D0eBb~x{HdgyTI%>Mx=
CA_}Mg

literal 44788
zcmZr(30O_(|36I>BgGgBrL2)Cdqg$EP@+uCpwP`aO(>+I(#=xVgpi@dC`~`o#iWS3
zB-y2?kTzS<N-CxLf4=WIw|g`Hc^=Pj&pGdT-|zbQF7JDG&9Rx$_4_{Ga~#*z%5s_=
z$EoIVT*qCVRPf8Vn)}D`zYZIIwwl)o|M_%Uz7zlM>}I)e1ILXVNPm>PqRl<<V{i9g
z7P!xKUFq)Ww0;HW>FGJrd9BNaWlnA@M!K$Fb-Z$NACA-Gtfu`m&+9~azE$ws`o)Dc
zg{k8P_TGQ@h`~|up?S|bT-A1~o2O@zC*3i4!n~dbMUs5m`n_v<_dTB8cg>xq0n2us
ze=_C5U<dy}b-N^sxVga=27U8vzE`s{S$-^hUb@=pyZvHU<+p0*54|wf+UQYsMB%6A
z)Fm;o6Yu-j&RyL4=xagR>hVp>T`E-jaKloQ5)wXZWX~{m)R<f?b#z>~@QY_$!l5z;
zZpizYE)`Yh;^LauHg?0xxc3X3<HDTdnj>oab3N*sFFq?*rRQR7BU-Ml(>4!IQ5M~>
z`8UVx(&fu#=9850gz<#o4h{~jo>~D3^o(cWu`#P!mNs^J>#}OqyNbAk)`RrSl6?E7
zJGI^E6;IA**}EJ+emphPzG+@VFY&OZF7wYVdNxz{y3fmvxr_H#RaUmlaj96}*h}2m
z`^DS0ZwoDT=|vV@hubzL%$sa+WS-AYb~W5O{K0?sAM{X8#;=-DC0!2gR^91cW2|O=
z*z7x862GZ`tyzxSHrds5v`SZgz3)}S@3CI=RM4Mq3{v%bY6K7N=@^WsPt2Q4KhLQ9
z*MG4=zsN5912^#yesvo(-~0MV+^o;v94_3v?y0};{{Ku!`}sIkk6179$P<el9sO*G
z5=K2+BeFfYS)u%cf$Ohnmao~c;ge>7Q^V_ZI?B@Q{7cEnO%}qvABXhR=r*vY23{?7
zTI4BmjZ0Xk?f5jRMCqWg$V0nTaj{6c)<j~RuI&DkL5d#UXu_{e{dIt{w+oi76TI8V
z(x9K7twBHBE#8)wD=qj7^Hs$tlYAR%s}gbwB8WQ}88_r5`f3oh7UQwfnhf34WGsIW
zPXdWiQ@=b1ytY)#Q-9Mdla$Z-mpAy0@ujJ7zNVSN;3<9^H-6TQ*)K}Luq8I-m6coO
z@e}wkv06%GoS>HWXl8mYR@e<Jz{ApwI$k2z*&w{Kz$t<7Qv&<6d#k|nMcF4Ai6_T4
z{Ixc<xh`=6RzHYe{kiv<^3|6HnO5c<*sXdSl7aUW{TVb?k_hT%D#bQzZJS>0p@^@q
zACyg{b(CftXd9YtSmIMt@(Vw5xZ7+0Yvb@Hb<1?kK^SC5q9v1$>UVEPw;z@#sMn2r
z6_Ny+CXL1a`bXS@bt2b_GqDXh&r?sli|8!%&mSN3YFpXBP$S$tk{{E!(BJpbnd9Kr
zeUqR<2p$QVAf=yl^P)?XK1P+ekihe@5SsMMRnbwb^bq4YNiZ#^$E9FiMuX@1%*Iaw
z0ef7Mkeov@QikB2yx@p;*}v{0%$JCBMUOGZ_@^#9c@8cWukRd+{}V%udS$Yu@cHxS
z=2nH*eJY|$3XjS~XviPM%1zHMu1dwD!Q+BnHQUvE&fn5h;VEa3c-O)Pxfo&rrCXU+
zNVjX><A49F{Z!YlX8Il8{?~P@<y?l0x2@OhEdRT+UClTMk)Xk|q~|rtS3L@EzF`t{
z@l}hrQbTJy>J6>TQ?1LfH}$N{Po*_l@nQ(YBF%}E-2VS&wj;eAcS%yxCq(ZjvWr@l
z%BRPKuy;UlAn9J#aj*_|yx*l>9)}4=S*7QWJ^sKf8w7`T)1~isGc|;U6|~-+pYqWt
zx{B8&{_^f!8s%|Q4(x8#EHmYXlwUf&_DY$5ZTI^}F*=MO8=-6|8I42wwkcPL2$t!&
zkXJ$3=2%Yne+c@E`<QkjEHHnL#e6wEAFRCiNG+|ppjL<L0VTpz=U8~Qjg|P)<HZ!{
zu$~non&{5P3IE@SlABkwnNC~w&8TVmeg6Db=SKCn)_Bf_e{R=CQ!;9=yQaBC%=4Kd
z7h3E8y=bq09hqK=2S52NEqLA|wxJ6Ma(X5&(n&p%laqCM-B>X4rAE1TY(oMjK6kuY
z8c8Lz?56J?Uh>wLZ4s=`qa(ZHXUL_=digMwx*X6ntDUqg7+^hyO%c44(^WF)$jWv`
zOpqQ?XTzuepZHjd%G%_o&aNiHx=_j339H3_VGdXPuO-BvF3DK;^&R8#v*E*sYn+Bn
z#hpg3yoA!7Iu3VnXU^J`FK=_lLX)Ga4zm>q#Ee{K%@dQPEa=tCxP-#l^qRtt`hFkv
zU2T|Sm1d8qkZYv9gG2IUwX`te<Vvl83A`n)T@?!j0VO8s^>oYxw3y{mF@<I}i`S5;
z*5(35j&8IC)h&60TY5hW!ipi>EqE6-nP*u_h!$_xrS$|p=D_jEB_ML(3PzZ#>$Iz2
z%^*&CxQN9@_E^EQgC;><yTDk@b#wJ~)z;q|)p1=MJA7O_kt?x*xc<t&^6dIHNqzC+
zg`z={te5NRAIp}#+KrKqFv+m^{Z2cH6EvvXJP(n%cU?K$cW87K7dpC~egF9`G&=zR
z>B}DQ>DP7+ZFxw0FDjU0r8n(-4zI*P3%|%;{_pwo>sDxI%qJde@e6u2ZkNLKl$4fd
z(8*xPBPijvcgX)Ep>DJAYhvBgc|I-`?|3}IkQCq%p5Zc<*?|yoVUss~JjV~E0F9)h
zLi3sPhATP*0_7(zy6ROkq71;8;|z}H%LRx``VCuNYz!X`QV^TQ#>Q0{>wG*L)y16!
z&5XRGE&#M~i<8`n!{tkm=pBOF!EG|c0a!vle1X_X5UC>XRTrP#BY2AWuhR#XYVfUp
z>1oZ7ta#=SCXw#NX@a(2D?Q?{cGHH&P8ft;RRjVuUpGUgPOvxx7zOWf{{ZhpWe}5}
zduR{krbA>#tavmaSfh!?67%$j4<DYfcWE{CRh4e%FAJh$tg2EM<MsN$j23sTfNWAA
z8-tX{YxBPP&6KPEjOC)#@0nX}*b0639FM>A=texySmL-1<Ub)`V7BTs4fC&i0lx9y
zz1z|)T|th;4b_Ch*9(eO`HQKksq0Lp?vlM~<+<lcJkyN7E+Srd*S)!SG`eIDfRfA^
z_t(mEEdmDg+la;Pg!A%_D*1rx0@^U?pxo3IYj2M{#mb{4RkGRH&P=b0a#ad7=A~8H
zSW-oD1Moik!-o$MYsf0R=CO{p*xxq-LJuZ5X4ci!nKDPYXQX4w*SCDka8D}T!V#AR
zZ32)##0%|&l_GP(zGt1ZQdR+Y24;Km^1xqi67iR>I%#d0ZjjQCQI#S9abIJJE|7<e
zl7bH8t`eDp)MCSSDt#_Zy2TO$;wA-9v1prrb0<t2xQ-%^+wf=liI*<5c<{!kKr3%Q
zp>J!MLwaR0lflKwJN%n>_S^LOfVob_x+xHm5W$bs|IE`WeuXGv+lF@!n-5}sPc9mP
z4v%x52b*pGLQs~Mz6N`hx{379J^{ta^XJcZ3{Tni1+x$s<n@Dc(+N=bb$b_;AvK$!
zKt^6keGdEkKEygMv~zNQsMKA?tMIybvcSA^4xOyr^xX--q@$2-L%DPZ^EiH1n7{8&
z9v&V`2+b^QH{6g1(iFY_knqq7ks}|uFgOlK3-}_A9W60JsKjK2pDh?B9n?Ed6W&IK
zS(7v?%ge70_U%B|){U0vDl^`)ajsPNz;pN=Zf5^3jFe-nR(S2wrMk2-)6jTmTXI%g
zG-eDJzia?SB|)zOA>_{r3bw4m!UYdD1gzgHXR@Fl#+~udrK7uB9Tgx4kD^6CsFi1|
zHtOj&NrAIGc|ul+G+@NQA_~g{$ZFxNQrGQUi4$k3mG}P-wN~`b+a^rqd0t-9g$oxx
z?v@+OkmVu`V%Wjm@y<|$4RR<p^p3P2-6xoCK8lzV<bO>WplAj;g1n3Ii!OgWKcuH4
zIX@mnitW_O!}6XzyL<*>GRXI+A{Mg%(QN)BULj7Rs-1XVFiwKOo@p%coX#XjAxMqv
zpzOU0YXQd<f|w)W{@14R94GTD0H_6js?=?{cACv1_x=0#`=fw^036K`N1DpRYRMDK
z7ja4B-#o+X5n^s=`TE6^LbfO-E#r7;ani~&1wCMrnS;~ZvWUTp1=CgPTJV<T?JTz8
zU}f)j|D9=&zi(#{puO=I#cJgp4aDo)r6{C!qa;SV;^N|rF6HFVe4iPs>4HnEkQUHY
znEzO{a_i+TE+39k)R%RUWYIdk@EP8H5PzT-(ISzf8OXDcw}N;#Whbn!OH-ErXM$H&
zi5!3a4=GFk^7q~JpC!6OH=}3-xKP4&!=WV<it+*->7Y_K_!2Tm_Yn9EAf2CbCZX<e
zds!LTJMU<|u^OZGAR)HqCrwu%aTe|3Hw#a-@{a!@U*vF=x&e4fFsOnlyRuYd^s`*=
zg-P{Qsry-etDu&d9hJRD(V`0zpzOO56p_5Vvv;YoZ1b)bnrh|gB)a=vdBsDf0S2qq
z;u$L=pRY9;g-2NCD0IBCw~%A%xMub0MZGg>-ozzjWG8a7o&s}*FeGwNt^60zl0@KN
zz^|sb1kckzgS^AjyDME1@}Fhz^}mM8AgrRf`%&4OaG>DZ1g>^hsRJ3l(T^b5*YD)3
zzTG#Vcps(o3att$?3)$n?>j(#d8g_53m0J7a7DYXa?>;geXakFd77dmtvr1uat<!K
zwnU;wf5!QqwMswwF>2n|Wk?VroFe3HGE$|kY||Pti;Xt14V!^Vs^ox0dfr%KyZ770
zN^kVe(<cWAghMu-hyJ3+YUSC3VT{@(-XwEW>UNP2ZRc$kXel>s7bpx|D>xa$-Tpcl
z?rhbG2P-`(B+ALn_4CutP$0gjzgl?@*xbw=8e{~DZ|tZi;LKwvQKecrPYO!n2!q}~
z?jL53C)!WTc)p5<J!R6ugiKmxN8l*)FeW4aT$euVA*Z&?Gia)KguhQf-t(B*ca&LU
zNy%hBCJt3qHg#ME6$kXf6qb|Zz=>$c11Xcy%BHp#0nUc=<~t>F-@bi_{f1)_P<yaK
zdO$1haxbg~5M?Wc&lVuDz@;CQP3MEQnH}3{;M6ga4MOfm!K#}4sBAic{9ZdoxD8eD
zIEQHKn+&MxO3}N3@e?Nat<VaX!TU}YIS3|R{igI`%HCHEr-Vt%laWOhYUSk!v)j_M
z5Fsq0?g1W<a~2aOOeS(vE7z7ekTYk__+{FA&yWWTb?MTF{^ijnRjcFnQSN#ckaI;v
zMZFvz7X@H|Jfw`{)zhkL_%wxJ;=lT<_G`Gr(4<8w?jk>z?|JUrxs=hq9X^3*-4e;4
zBC5nh+(xK)sQ&`Gx@rYzAbCQW%KEMMjvBc}vGh*ka?!g?IqM1e?c<sAR4Z@d4`7a<
z;iSSa+-F8hHVncI?eU}SGSR!+3Zw9(3BN0SxCp{QW<{P{@ad{-x}iT4R~CNpKD@dE
ze&y4sY?*vwy84}3`TfIKpDajVQ?qaZ%};>luiHUFt-NEY4<0;lToX5iCF;Y+simdO
zHc0sqi{Ld@Dt-9()pNuwa2TQPW`4?8m#9Ro+;IE1dT;Ec;?YaN;q#+}j#M_?Lr!;)
z5I^3<e^cuVysL7fHOP1c9rX{}p<n_kJ0=!v{$Lx!2+l5oJ_2+SGTNszqz~5t19$3^
zQM1Cu#pR5E?i3OeLvBeQo(JY478PX2*qR&ps(wnicC9%@4xD-{6}`(NiibUa`Ep8b
zREc#P%odj!OE%<V!CMt^ig*`(J&Rvu=*9bb?A(~~Su?N<ZqEvgrXbooCSYh(FV?7d
z*!^c95OCV+HEVp=wT1Qync_%eWz$jb9)>j~@N?xQ8Dk(5GE~_V8BPv9N*<6{{Ho&d
zx5BKLJc+lel|z(d;*_~#!s@kaTbh|7NWW_3mF)okWXa*-allGg!_b>j8v=oC>q}v3
z@x)0K(-)8tF&5P_6fA&vfLeL&+s~x_h_d7<<)JsEHuDt*;-~bTTDd#2Y%<5dXS}5c
z$4Ih=L+bPpdXZfdX$2(9(UIXqWz)ric$9tp@~KLm1e4svczpVZIU3n`qb1o14r?#J
z*+|n`shx2Y`OAgva*anq{KL+@^lNSQBgw4)shx0l?wwZ#g_3CzZ|cN@mx)#lgAr;a
z!xRe?Cl8K}?DY?emK@!kdJ*&<1od?X`mEPTtFEGD<bARYoAkMkCwz-m-oifMANhP9
zU;K(We#l_V6-~rd16+l{9|zdzy9C#G3x8xgUIC-s-olGI<AF)SaCo<Xn<uTpRPoQ{
z?G!$2jO1bn-gBk;`m@z_`-G|kkE%*TG5p5L{L79|mu2LY%AXjkISA%}r>jK_ls;kA
z<X64pi3NaL3KB@y2yWw61>>bNT5_=#uY@%uZzy<5_ghk%&I+qcNqGBtkVO!aG}$!}
z-Kezgg)0>{@FYxWkXGKXsl4n&npP&gBF9MRiQ_UmE1O1>S4DE*LIVD))nPet-c-6n
z5{KbFWYxDI7b#B!l#2bs*8gX6+k58?;}eex(%fl`WG;o|?VxP8<)Rovxy2U}N&Qtk
zW<uC07?TUg&uZl%9<9ywtq1_(|G;Eq#GBH3?2*sgmn@kk`V)600s(x$4ZjNcj;?9d
zo0(>sEK%_of~tfptHATkWTo(HyLyhvbo?sNN)EtG%<wDuHX$z|j4(v_wfzVx_;nQu
zmASx&EO8uT@A3}y8AeG)b%_^lDMM!M3!+Dj;99$OI&@vFe3p!21hfHI6BTqi*gxzJ
z*h*F%iPvSGu!7{wwb)V@Xe*l@BE3YImWjCTUB<e6IgFR+;k~5TnDFT?nj^0|;_tkY
z^n%BNlarY|0pWdGB?`o7nf^x~uDtkJsF(1vasQaV4yBy*3yc)&Y)Jd*)X6=uY@B7H
zKz%p}nJeNGBX4g?)ouT)n3jK(T$c3$sH>G%{|K5vS_y{H41wkz_s%Oekc%HiB`F^`
zT9Wn~UM<V7CB2K7wDEm7Gaiz&YUOT}<D-G54D0DP%(shl`!#+Z>KRh?T;K#ov?T^D
z6>?~)euux*-gXpq!)VG>jyF?Fo66s<XhoHJ=Q-(8d0_&NpjqI;!<r(oTDe366Co|-
zfj-3w>QbqC6OUYYkF^9<wac!yEcu8;p1LZEgKbQ8aOq1gUA@B7b3O|->aO#5uxVaO
zOf;vvKR;l?=C(}5!$cupBq-YiktlE~C04x45bl+=<88j!Uq_u322idZhEQH~&UM05
zg7nGLF>YP)3PeZk5nNFpP^kmvKnQM)tE*pRLY=EThqP#izfO=4>JVUm8SnE(j@YYz
zRPhLvWv3pVnD{A>hsi{&@EcO~4Q|XPR905*=hOQN7@){Xt=w2&V@hpi4C;pP?g|F9
ze3T?jTQ27yDTR98cz|+zGOX$QDK4>~F^Gvy@JdnOL`axSc3rhIbPtojiQa>i3JKPm
zOgN1<sdy~lKnr9~3q0S2dA2-lXHyShxQ?4jPX?O3O!;f5ir%Xyckk|==L4%oZ^v9_
zL9u$3W<^`ayT&!IBZrA>r754-XmxKx_M!`TyTyL9#?qr65Ccko>_wUw219o>#<AkZ
zI*73-|JN>@JbhcLo<R{%J8L!sTEKp7XU&GB<JW2b83CG`LA-O(3aAQwuyR$FkU$=e
z0^)w3k{%Hzhs`L-*y{m*V`LXujjeLi{wZ~Ng4sq~>vmtR$hVmyi@sMY??$z71X+~*
z=Iza!-g*5oXAFdJmj^<S1<Lt#g9+(YKa01aKwp4*|J;|VQ!0YM0MBfgjX6jBb++O%
zWz4A%mj7ww;w$d9thNz4LD_V>Tr4to<g&E$oPGW}lm0sut-O=yxoEG#l=;itg)}M3
zYE-FF$W|i77Z|kYihEfG8BF359)=+Teb^-ho5ed8WdEj8qOT<UGQz9dw{8VQ9Qq#S
zv-F0Gu21##qb#5jpQ<j_nnck!qL0KdbH5e{$J-D0kB#v&QA>M4ik5fRSWN?EVUCmB
z$L#t;DhXr|#PTMAftSG?tihwO|LC;g2;IFWmk|vCUdOacZXE$3Cy`s&LFvLa;~=#g
zEtyJLzxI&DIwNrDg70V`ff;eAFIJ=9!F9GSH5@gq5CskfjoVCYxM#`DUCG%L7)ZCk
zl3K~#3GN}NeI!8RreqrODXmlqn5PKUq*=z2v>%WId_=T9sMz&n*iqTku(#Yw@rKZ%
z-bX87Fp;sHxV;>MVL%k%F1~T<k?FdUn^PFtD6)s@QSMK+&>M>xGi&dvIxSeLuu^6a
zGDqOGqXg2o1*aBAF~;kDn@dmH?thhZEQK``DcGr(HT|`|_bNZ1Q9v>CQbbadHoU#B
zdnu>jFaBOgd1;Wp&i63kY>uS(LKg-o<PNp{<v(=0QmkzJqmaH}^+?Fae%u8dsH|*C
zSL93>PKMD!L#=!cC8^qFr}Z8NIt~@I-}MDj|Gy~)2x1cqMf5~%fC^x!4YXvM1hrCX
zpHz(Fx{Zs{;CfNv$=^wfC3l~i1f@2gcsKdo;J$tPCYL#cMgYRQ_RFXl6PFNgUHF~x
zugPega`*LZPRt6#@{Fe}kxX?GD2)ikT)y&~P)^AVUEf;kxP+&Kga#^Fk?ud#7%P3t
zA-D3YqQK4+@G2rt@iKrP_N!ukO}uPyca0tjG~}&Q#;q<Mq5r8!n2d)LqhC>#FT9BC
z>TE%elHL`#XV0!;J$e?tnA1;a8XOpxz>1sYo+-tBQ;J_im$>kdiF{2lO%Wy}t1nA*
zCqnVY9DmUAhjvC{R9pVE*F&j#4<bF#U-phJnyB6h_)fgz;Lbp*AIrQLLq6giHCuJ4
z8$sqDc=OZi7KQ=oXc)Nx?$W<I(mDjeSd@}zs+M+d<;7>NrzsN=scw{~L<@DD;@9%^
zjI6#q{FRBBAqkRna&LCs?5cxe9PxJMfPP*I1x4N{-ruKLE>*}9^7u})R*nBvX1{sL
zZ*UT+rrgTO$#MNRr{64=j@8bnIk0bESM!*j7tWtQ50BK87MEZYjk@apoV1o)q`ppA
zM;OI?pQMiALe?d6%&Lc9YfOS%<t-)J@WftyzSUgHCHkL{+e<#L0&9G|R}vq@E5JRI
zvC5`yWbWI+J@M3066IXVp9$3zJ_i+8JavSdLMev_6mB9FkD>q=0ol6qH`tyqsd>o2
ziJ^wFsl*7qq^YCS(v%gE=v8|{hT`Ur{=M=Njr_jcGcUjx2LXndAxTs;Bzf?D5(-Rd
zmVbDAH>Kh4zv2(amGAM_F(DBal5@P#ly?1M+(nzpjqTE9`N6oEa`o*(S?R{EWy<0=
zs4jSTXlKBcAVT&Wx#ViYL0jMVa~-X8Z+!K6Jy3U3!R!eyYcJ<KkF6cS^+;$hUgk?A
z$`pxotB*s=)Nvj!@zS#B5MD|ckN_8K_#+g<107sa54YLLB!gXEMG8qnUY?4auZmQI
zP;_i9R7lS9V@@UsTy!=*-Y)|PGv>J8e9kTf4L*)9^7FsOmrV_g0AM{F-`W`8x-aLs
zbrwn-dA>-d#m`1VF6@!(>bPsBz8O#VzJe=ubD-LG(R(!~X}(~RDS^G(<w2L3Vzt<Y
zzki=U-*1anfL}-ojN^ilKh!AR=ZB{mo_PQExa*eLE)_r1Xrjvy!poa#AJ0hr7b)21
z_I-siOBGs?noa|8<|>jQ+#4>H<^3OqPiflWq_q-UK&$V7?i%;Q+Hvt0%s#>;u35z1
zGSTb0`nNa8T3sL;pnRw)C@=5TBoBsY=H~(Z7K9>GaxpGpJ~jJD{JhcUhm1r#1<?Sb
zL&=Ye%)x<PZvl19ACqjhAV)9-Xd{uY2sQkTA0ffU66G!c8O*3*QN9!ilwH=h4fmPP
zcWR&uS7Vo#s2H~k9+|8hi))km8Rhx!XlM86-Qw1ahu0=MZ$475lUfz-WWVd)$mzdD
zso7f=B;EDU?rZSdR&#00^6oE&8I^1s6k3@WvrE;m|Ms8s`tOw-;G7cT%IYh6bqWd7
zT=*rpD9u3B>!*>r2Mv;cC?C`*-f-%7c8RB(9^UBM&uYvmv&qd%>b<8#JaTmV?epKs
z;f{rlT+wtGvRImve$NQ9uTZV+Y^i+@>{NYA_6S-<bx5q}5F_Zh^e!Hv@Jb4g4iu~h
ze6xN$!<Z5%Zgw?R73lqLvb#I~?<(kP<5H38+m+*w`_9EM`OxDp5V`G#cH5T5#)LOE
z*?-uK3_oY#IH<&*Iu$x$3YjpT_2pGnt<L0b2K0<T2@dJ}aiCl$yzqQfNe}zQi<{Te
z)j@4nl}(L3aTONBmY{$zV@~=MBOCK`?}53~3!Wem;rB;e^CI?YLySv(AvCV+2DJVd
zp*+KJT2quwyS>%x={JAa3Uf5GcgM^XhqoB^Lk+cJE8Vb4*C#M#V_-InJvafw_9OK=
z*!F}S-ohELRq?>=STRNRK31^UdwkmD%&t5QI|G*xk(kWfy3@rYQeT)MTY22)=Et7g
zUSx0iA#GGVBKzWo#a><jG2W;4ixxaGYbu{EP>3J?5QY!Cv;4xZGry#lnsU=;8JH0O
zCyo&ck|sg7YD=e(LI9>JvRk|k?%^c{BVflaq`WJCb}_Y&Z-=za?_*<HQW88yG5s_H
zvDXT77s$lVP#yMi3W?a@o)Hx5K*R{Jaw2WDa*IU#4R$;t^CyFXdsbo-yBb<QCpEFW
zsr*t93VJB%cbDeJcb0!_dK_qc7XNo2_U7Fw5;B`Wn8yK>JotR%)4NBh0~<R9kT*Mb
zDQ6`l4&CcZC>6^EBTy)%bg(8+Km;{o%S2so0u<Is5KWr-BG{a~^gWv9n!cUVNan>S
z$T(0R3Tk$w9ygxapW(^D1;g+x&|(Z&U|^<8R86!>e+MJMaTBd>DtDpy@EaWxFQV}d
zD2xXQ!lXHlOz93ho4I5E*|TST9BaF)QDR&s(ZPGBO_oUhACbF#9ZGosl#_|vqPT>I
z;XWVlRP8m}?xYh{(rQZrFTF$K<4rU^64QRd`1xzFgX4=O{`EnxXKFv%5#Tl&w*Q91
z;>EsKb2bly-B%EQ##c!mEn-RB=c7~}M9;u>_>R;?GcTJ9H!}h5bsXgJBJw~vOV2nq
zzjvj|6qJtV^U^~*RkOf7(#>|lF>2Fw^(ab&L95!y>eA5?WoK{;sWtvW;^NEe-^?e$
zCq7F;A&2hmNfZl#d1iOlXc|@7wSzRvEhyPuT(JJrg9)i)1cAYOVqd;|>51vV^Jzg-
zsY>k?mk=0T@(Btc%#h;@d+qYl8^NnjJ7w*)4I|sr$Z~U%OWA&oLkOqrOzb(d`w``n
ziJ^emE;QpzbBs6T{~53GZAa7Kf}adp;$cp;MhT(^;bNkqgCWbvzhBC!Bnfx2chNnt
z`;koCX!PiiJ+KuVmpi1p#@+zA$dkchWB7jDs-xB3?mS|xx|5cRRHsww8E()<z9LR+
z29Z8RVfHs{v2cVmOqabJwO_}zao3D^Nf3sFH()o=kbX^xeoe;}><yQx2`fGm=rO`5
z`s;KE>%dEkW^VepYRlVI52xwga5HPTu2E?;V#KwCkdLi@yDDj&Pjp2gjAYhj{PAWF
zmx_yQttuX(`~nB!|Gzl}a!rr=Gp=eVQM()BlD+5-wg6B#LASlEE7@bzV$W*=oR$dF
zB)2Z;T+N?xA9&BjSxi<o730aF!jm#8o`(-D{f4>hRrjRobMT5uux}*W!W%g~#L7jw
zc%Z|dao4_}7MA*>uPPZD5;5lRZUSd$Q#5@;!E3@aaokd^Jf(9GDH;8}5^_G5xi_AA
z>`6YD<3i1qO{K$W?1Q|dEgBI$ix*%{`~|9Wl|pFL2HW|c`$sXOJ_<@>Yhb3&hSSAx
zpB07!Rd}netKuR4KvR_Y1%61p1ar?PG70vz1Okf<5?hi(J|2Vb;q=B}$TMWx;lQ(z
z?>&0Y{A*B0y?}W>OR5ZsZf>ZcaPcMooA-4I;P=2G@DB4+8=vY^$)D^D=E)VgBZyOX
zLMz6ngx{e%g5wbM3vOXQRuqiJA;Kw6Q6(D$@?w(($DQ~NQ|OOXwb>AvIYPNuS=+z;
z<l)*mE)CkIEm&+OHZnCt%PfC^X!_TzA*l;p7`Pbd@#66C`DWxNnG12ke1j;DO>&ix
zgT(j*D#9EXIa6>JX>hdK1i{YcJU{N(^gOpf2U210=-B#!_-$oi7Vmk)uEmpLElDXT
zltGvyKBv(sw!ueW9q63$y9;H6#XT^u6AEl#PS$-=a~QKn`cOs_GOMte6F~?74qi)b
zkl%MBKVKuK8DtkU+v~3*q6{+`w<`ucTm4Q!3CSp(&MvEZVjr=aB8FZlxrnGu6o_iW
zB+K+vW&+Mcha8*dV-}a-$Xv18a>$PVeVDEsd&Y4Ye>~w-sXvZ$n~Xb@X2)b3kz3|b
z6m_)lJ_98eB^3(5teKR`Va#JF2fM(FFJ0&i-)9tJXAeQ*B%MID7)mw^x=lXmk4a%$
z&gC>R(G+#Z05*c3KcS8useK6CZVJd(OdL8v%^^@ajreotS}baH)Lcd%n@nzMCi6z<
zv_jQOI_xi-7{{T}tKo2rm)?VbHY^8+hy{$6S0~|~vgA}OZrYW_0&0+9v3*#b%`wP<
z%s}zzlH<@Rt;)&}v@E&sa$J%bhWm=aWX@lvq;BY05L1)!P8b#vtt5x~y1IV5%(gn=
zc}|*uSG`q$v^DlF@JL@~#biG^Y!}WLx*38JYEFWZ7=g5Ic<DebGM>=wtCb^(Rn_br
zQ0LMc@s>=K1=GZFUc;14EvWn;Ot?)sTOcKR51XSyQum_A3iOp3Bc`3`YqAL4Ht*|V
z1@|C$R8H&%^9;iww|{X72?*|%$?PBWx0X1J22O@n|8!Yn&@+N1mrsFyogg-pS0o!E
zz;;fW2Qt7$%g5w(f-^={R=h=^>mNw?#k<6%Y9n>HQ&4{CP<j&FXF~%17$Lz;;`#@I
zp16d%OQdVk+YqWr>w|auO;$ir<OC^I;z-6!t2dVHS3rLsz;l~uhz?GUn~vmZCMAlI
z#*hUW&|8kXg~S-kqAL)$Os{8a8QEA-KS+8r?2ZEFzFJB4hTDsJTI5{(jR`+OhV{eV
zn9m?N71YbP7gim_+XUNxa-P@K*XNSu)#AM#r-k&a#k-VOrYWyl$S{@F5$ql=M^S9v
zcCeT3mFF}1c~kR4eqa=jp*%mpDE8YY2w-p+tc4P(I3HR?cEKhvvSr+D6ip<0C?*xo
zpZTRq2zVGnp^WxRmZT)(DJ~c}9??&eKR=mk^u*ps0awy^v=a!Po8y)P%Pb(9BnXkr
zWAPV^Rbv}kd+|(_5jYmo*UH2{0OG%ZZaFO2U;&CUv%-+#K}eh-l{CNA%F(bEh7{k^
zg}C_m){Vp7Oi>KomLprZV2+FvqmQjd)Y%4%gHe$b`3qctiZbiBX3d)BEiM&v3Ft_z
zAXdF7m=ydhiSx#6<gMls0T&=sC+<isl;2AG-{8z3<1icAzWrGt7!(AIlMbL8Y5<Db
z2_)jF)BDX^8a#i|y+IKOw_qOLFbIDW%o>c#(W6IoWyVGF4@7X6z*~qB>ZW6u!xM0V
zs5^A$pn$70(Mwh+@Xv}&ljILPeFsl}>!H~NvVLtMBZ#fU5>HsYq*OM!`~z!Kzq~zO
zB}m%#GjR#}=FMfcspA{FQFzEn{|4U%B_JnDU>5z*XrUt4Q@r-s%a_f65UM2kNytg;
zN!o^1998u&Yn&*+p9^3~iR%3Iai1?9y7PJ*Vp45V(X;U7W5R5xqmvUC(E14G)StHh
zFhwCpLhH*kg%Yhtfx)z?sYz2oy<|qoq6*6yC_$rJ24;1VCmNI7?6O*onZs<SQ!JAU
z@zm-p7d|4&pPM#)A=Al;)iHzV)Or04h>t{9thl>8q_NQaeF9oTC-W-IS?s4*3mE_8
z;lqbho#S3=l7>9B|8Pn0(6ul>#-lMc_zaE3*hv;Kqwu-}*_+b}R-0pY{fu&u-=djc
zmNQU)H8r)hcWlEVx!`cz6sXGHCm%n4Y*u&}+IonPQzRO4#Rtfi!HH!fee-WZU4%kF
z#Fdh&z=<$}KF?(hwh1q0A|Oawq$&-dkV}BVM3DsVghSAp2<jm|6+jRrcsTJNDjpne
zDB*3fOoO<cFeH&7Fa(+Y6As%I^yHyk8)*L(WDBvwbCYV&h$e$%gdQ#6(zrrGEJD;I
z(=`k9e{x3uPn2uyiYY7s?_{WFd-4h#$8dmmzZ~}oQ!nZ%teMAwSCB1x1c0~A{(}d_
z`g^ze>xf-IH=3X<w0;<7>gfv3b0T!JaEk~Nd>adVf=m@%Q5ael3%o^RhqSApdVj1~
z@y2!Lu&N*hfK>D^1TKjzB&~1ku~|sK$V8W87rlNX7329LU=ogtL0^mXq}&S-I%6@$
ziC&;iAkkaFhG8RR&FALk=0ujGQz1HJ0!+6i<uop66R?H6fPsPU{)Gw!;;oz-O3Ts%
zwD*ZgSytaY^L$tuK#(&LaXkp_1#Kkfof0QLiDj9LmTTEfK8WYU{pkW(ZNc`F`cc+H
zd=j>qUHH~(lRqiSYfs!5^gx>%Mz8(_8ZBK4<Lfqns8o<=pFBbCRb$^p0DjrsZQTo;
zElyv7ai(FMlBf2%A$-)IKY|(_rt4mpgl}mqb43<4p3x|X=(|hcTPdQdTp4o5^PCB~
z?zn9xmg%j(5cw$BLdGElj^P%vge(XQLL4jA8$W)$$4s)|{@+9f8JLU682N@hxJZ`j
ze+idzp6{@`TQ~#NQW>mp(*}7}V0uXhPJaIUIX=X$pa-l<D40Y_BK;NA)S@jH1bl}a
zx<fb<q4st*O9Psvf(~o`j(VT%G%S`~{vMZO$kYkQ9#+Xgh}zv2;Ker7C41HW!#0>}
z)l*e0RV2tES0sTdocIeUGTrX3K3SIYZ|v@(=V1dBr41}-2SA<XCS1Mx)n5S$2$qAZ
zrjYf7fnZB!4>=TPcee@*ZCgHn!z4jgp4z`?X=#~>@hOW9f^Pu=!5JKg*^D)b`GSh%
z+P~ObvP=IV+17BsmM@;n8J#0VWG&`GHYtC^s)r{w4HE3P^fRO{w69z&1s}?B=Kv<9
zi%1f@mkoRKQt(M_Ygi9Ly@mWnc0qBKGMH^hehHE$(tJULWM~BcL}ng@?++FTeyf|z
zSft=p7M(B$nFdrIxwz_4TR2?g0D5g#a6wmdo<qqQ_8Ur%Qsqw2DpEH>w&qk+pxlX=
zfhMmxZGjV^F@17*qJL>v5);pJmgzCH1Yttrbx<tWkv2Hy7oD@&5fZ-)5)U)TNxdL`
z;5Kg%k!pWQ;mrZThiDmLoi7#glq92Mb|eYo5hL=cl}vD_ZPG4rYpm1XeY(-bD4()X
z49Hu|$KTrE68g$nn%Ec(o!pfT!Mj_%1PxS77TqFh96bVLMd>SHJ~G=W^#ZF)sX_A_
zE6!gKA~n(=GKHjN#_IGk1y>~F{%atdNEf_<;sS-3ko!V(p~Sg>Gi4(MBeN^sL19zn
zzUUvVYL+X!B^dc6b}e%U3M8`ZX=b*qdGkKIyMK}cvP6rQ^u{+7g-%mmjC;KdCPmRD
z2ndGzg7q#SLda&B-<KNl&I^9gf=Jm5Ey%LTUa1}rsiI*I+l{Asfk<myBZBlG>!Tw_
zRF#*1&9%F$F^$YrRm6jp8Z%%|kj|JnY{hVj)x14iU8^Een=4%XMgli}x|DdW!t_!2
zl;kBYpQrTVMAyG;Qy1?TcWl;L<SdWc-91+7z)k-%G328WHnv9)P^R3-5xXrc@@t~n
z(~i=CD0a?2xKmX`F}UC{V78EAalZ?a{Oqt~$(G2FkD3%J<n^^4R{skog)LI4b~875
zlECKJzu3YX1t7qyAw=m*z_D{@UY;}a*`Ab+qMQ9fXALpe0z5$h_Ql9(q|sp6>jKbK
z;A2QFW<}9Z6T_=y@pAssu;tc0JZxt+TvinU+$}}2NBkqsB{{81$^9r@=t3DhG*l6(
zr4%s1vKWQ28N=SB(~{vRP9kKg0wyJchm>}AsEac)JVpsQX5EG0Dj_vB)gD4JfH-WS
zk10fvB^4kM<Pgtce-#(o9`@r`CHzXSZ%3^TQ0QP1{UqIU2`T!5r({PZErrNhQks2<
zONBD;2FNIIVhe~zmH>&Kz|CFe;~(Tzx6+zqX<x*9P2>m05cJ=PFinqo;ss6NN8)HC
z!5@*&V%;jCNNsYb+@Q&yguse9IwYcz$|FaIoQn^6xgDTZ7-3yB;Mr&zE%CX4)lJ)+
zhAsbQ{b-NtUSL}BV?jG;{3LYQ(9@WvmZF(q%c7L4F{RezNjs!0Hy~9al2t-@$BTv9
zppiuUs{$-!+j~qFV?EPlB*S*K)&Y&`td7Q-b8L{X5kLOx!AeJi=!WVJ-QMMAWo5xb
zewv6=G?*K!&A}!lKR{wW-WEN9#WG*Ob6ejX8~9eC{dMV6`$YW2iO_S-u_QYf<d5Ra
z=~7c6tptLbbfl|bq+Y%Y0v$d-3NgXt3GRsr5GwJw0JaE3A^%Nz_RYwz5u#<h&_Zs2
zQ&$k0d<O(Mt+Oe88tjj2EQ?+lXgv%m9hRfrIp4(>5CSBEx8vrM^S>dtULYurKv0(6
zQy7wI?Fo9(Iay|xX9Dum%P}dpt`y-}TU%36No*<is`L^hS~+%%!z_XU?w8=N2*|T_
z5@h2h2q~$P=#HQ4;BsvOOwuUE?^lSIq{8tHW+y?vSW=|2u6R?#PTJep3%#P;62d$}
ztOLqdf#;m~6g}EsSOb}P*6yQC_fwa(0`|qtIIIFUuUWg+Y_3Z)L)RXcLOu@T{q#~s
z`(lW5Q742I^>b($wNrmFFk^KyQfD_4aFR7+%TNGYojULfH-ld+Rm{Z;5^|DZDfyUo
z3iMh!N<KrH5{6Qyp;U0QY^ci5>~~-KoqC;s7ASRq94Kb~fd=VJgEXDYdCschxEoFb
z*IZ~-bnWJu1Z*YYYqo4Gw2pHuE8cFb`9Nh-iU)7B#e<O2B<y14RES0LWHYAO6Ba;?
zdX$AA26=D@gD$8fvVd7J-;=@;$~~^Q72iNdiYH;j_4M*NkQd{BzOf5m-HE8=w>iK7
zZW~&Dd`@d|+<>qV(fOLb9b!sOmMU|%%7KpJ$-9Xyu>!5U>u2sn?4%cYSPvtg7VBjU
zr*{`{fa8{t3Mrx4*!gk@6-8aBmUhPeLp-cCX1C1=S@**wx_R8@>P9$>$-PLWr;*f%
zmv|NL2%I_0yc-$xW-FJ9Q$Ubsv8%EWu4xdO08%O*q84@N@eFizP-LsNeDtxau{oQm
z_B`;C!_3Re#vi|?g`&E>z5R28=-b_uYu_Myfn+ASz&YjM0BBrbRPm<+_zRotDMZ|2
zCCfCh@z8+&;SYc6)AAUWHEAS0G#v<n(;w6oI@8B2cH7vmE+7HxPUEzQ4JX872^SUj
zI2fSHD)ii5;+c&_A8==^&(B%a92Ms|@naH*Q2^~PT;l4P56h~yvPx4nWc!V$leA{I
z1qb+D2w6Xb^??M~TK4J3{5NO(J;_W!SXh`wPiN@(qaU3c+@p$>dNI8!BkkCUSf(O6
zgt2;Qa&(Akbn&N!AizjWU=JyT7zZD4ZXNK?#lZo#rFvakU%~miF;5yr>>3Elbkgq{
z5sU><$jU__<PuNCy6D$AE^#x{l%r~Iq9N%4(O#NK<8>0o`@_Y>8Y_;;t*WT-9YF41
z>o2D50vV3tc#`OZx9`3WX4&^Lc$lK!h~$U(WsW5Ywj}YJpw|_lxHBTMVkIgLbK-gQ
zB4xa&m?yIqRG;I}_N*-3s4&F8YzU%bE)B6m;IUR*ZdFy4Ig_vxz%j6*m{b0k=#Uvy
z&Bw5>a_p1Yi+%w*6(5CM2xQ=3n2~~{kUeR)oXtfjcyU}8MEbDb@|)+o#JwDa5~Kk&
zs+g!lHnimw<#My^n`YCzsd&ZFX!`tWiYBp_kWLMaE(chgi7|H$Vtn9e>oszv6tQhq
zb#Cxx87ZDNCTeUn*i`Yahak#Zd12FLRfsO2r1T$1mq1_fDKbhTG;%6wjerEXWmR{^
zRX1(ovmwQ`ry$}ovXiC5M7J^@E?=NNQb?E#=x#iTxZ$yTtPlM~4JMt>L~4<Aj`XqY
zV;1pj^(A|7&;*$;j=KW+63xRuZ&;=2yMOuk#$o0#T|_iuZCZONfrZBkw2EN^E+Gul
zkp{F(BL$QW+tgf8P@sQmKTOb3m|o-W<uXwe(u}Bz<F3Jm1c!sVCOnlwRq6ekf%Nsp
zVJK>};8kB_!(I(t6+fYgO<~RljWB)siD~l-7ugpa$r7X=I>B{k4-jMu!2=~$Y40#8
z3v`NNeE>mvgXMJXhQuu=cB26V0fGAD*hd&*!X3zU=s`KeL=YMV_0->8;vk`_+$q|f
zV}WhETr8c4nFR5kc93a^_#u1=*9{3#i#|v%)a5*X$*}uFU?iQa>dUw@b0E#-Z^D=)
z;y^to0hi48!`y<`nXGH<XW3Q3Hn}s?a2eE;R15qeQd6rFCn|vA8IC2gWmQi^6UZ)5
zp$khpUxq|VGKB|_{PJ}f_T~U=W>GK^DYP#Z(8UGGy9ZeCNyz!1aZiWOKR3&ISYc1!
zE}S+qyPwvNR}7M{fDQ)(9$A6@9Y4p-`>I1dSjkl>O%Xn?`W7~%+n>o;%2{asS*ygk
zX`}OWKRQxa;WT_$bbjUM%_ETjPOPk`Xm+mItRwFDn@e*UFpDmwVL-23>tR)JR$Szd
zyS%twWa0z?xeebOSC5jn0gM)HY2ge*DQrU%2#6+|(V!)%iHY?e$P*!+d64sbadb#C
zf)bAI4?#nZ#!<Tz){^9XI;W8W#T?klII=NSoY?>CSDcp;OTXg3cL0NkR`4@os{XuV
zIe8|ly0AA$qXuMyt{+bC1YKozOk-x+yMd52WGks8!A*ezO1cs4r_7!C#fw@>K(p6E
z4&iTTO{szcXeq}wkYyAbLmICPkt;be`Yh|kyg6MU2iM=(i<|!T9VO}~35g!^%9#o_
z!+1JXnorP>BsQ5O_A(8%^iAY5_slUbe*Wy)CMLp-b_W7%XJD2{khA1B?LOjOE?l^9
z(}rPhj<Rf6SaftWoYn>?3>VvQlZ{WWW+sKV09^Esu?-<~WfSC&T@ehK)S53`a`(}_
zEnX}43fvO3G!Q|Ho)BTS3RWDIa~Fta_4fizKS6;by9nmwc|k!+LQbP4@C1~GCsH;n
z82ovg*c3grN{^uu&xt-*2}B$j7v5y!%m|;K=SP>+1M+Ymv4U<h1s{mv-Eh7`XB60c
zQ*sROuo_|j3oW_bkUmBN<%zwwBLEo-L-e-em6TD;s{VpSNzeP#Q)zR*P}+=vx3lO(
z&pYBo7P#Gj!Cf`DjQK9j6M6W|vdW>R3U9b0q-fMAU%Ln*e)AAhI!>iO-#1`92n*VP
zab)tK6~uRENeMjO-zU((-ese!tLyJrxX4(jWKSi}povx1L=|r!3P*>Kk>^l<V@%f~
zhjJP4PSeZ|&kcYtfUV(TX7Cx{q9}}i;tEPZ6LRgL41j+X|K?N%2R!<vPe0DaF>d3h
zxe<*|KK#umR#|D%<TrZVpK%&%QM5#AnN)#$Te6XI)RfU6SviDhx&4pyMR?(-fqXK~
zZ4p$$Mz$bYNlO%K;o*YPK%7{3q@6%M*{jDVFQBW~PS69<Y2n#~f`v3N1ukv|!oY$N
zM2i$B)dG#jqV@^g&S{gwxQ@*|*RTq`5Z+14@`Xi1v1GOP=m)<SmryYPG@stbOdmQZ
zO9)GUC665<m%B(^f!Kj8A1+8Nyp*`blFz-d6!K3H78zr&Ao)uTA#Uh41efuW$~}Jd
zo__T#p9Pa%iw>6<Kx!n@sU?mMKH*M;;+;uh$gmeS#ua|d8q%F+g_Bn8>orN6Ceb~&
z7kj?kc!+LP<(;Z{NA(p=N1qyibJi$Ejo-M<Wyz<%0{7s)C?m7_{0+KHd?C$0e?bX_
zva#Y1&=a@S3ad#6kH||@6Y>oL=}0>XvPggC8+EuOs@r4`&0x1qQhdOK@mD^4;;xbb
z9SC3~fY*^DM$E<(I72koGJEI><K;F8uOv7Oq|Mp!DM>DgeDlDG*p57dVA>!aNa!7o
z2z#)yb-Z8|eaOyCMQ??-^{_WO<cULh)&|?UR9u+nGZVmy415~QnGBjCkHp$Va4eb!
zrw&Ia3lM^_SN><=f%yuWcN;+;*)FY7Sn34m3Ik}DE?vr@l`Q8gZrol<k@gjUN+!-|
zbVX;eJs3&ZdwmM)UQr$Aih>5b%C=AT0Sxm4=Gc~;8uIZdA^J~r+h6Kg)waE0Ff0Xn
z552b5*}06lG~}`<pTV7?`V!q($O^WCTAf0Uo8)XSn&QOs72q5aCdA6UJMsHbBn?|p
zTb)NBw^qp+>@QYAvV}Fz>?NWeZE_p-2C*~>BurY6Yd|AWnlj}|m>Ic6%9)5?1Z>NB
z!PpT?MI9h*sErn*TZXsAZe8O|v563nk=0^YS~`XF@CeT=>F0lQTEgJ65Hx2{XiE)!
z92O72(>WpMJu+o0$@nCx;|;7)K@WQyrMK~N_n#njQ0vb*&-YWuulsDiHS0DN0MqCl
z2ZeVa1Iv=)o8W+^m+N))<NKU>p))by=dRZu<62_euYPrvBX56fI`^rmYQ&k4X|i5`
z!afiFC=YpKV0yUh&dT9K?tJIq;C3MJe-{0Ey~r0yHIJ{bx^Q9e*zA`V#@0O-E8Vg9
zBnj^L;zl2rCmIL4-+6oI^1`$W6GCGKi4M)H`0WQZtJMZ~eqZxH?#|60Hfw!0*Zg<i
zlRnO;lOIitC~R%=yH<JH=ydA*n71b$eJzZE;&mkY>+`#axhDvhLybTrLuc&!0{2ir
zr{gQQ_fX>d1g(HAe}ZC3ov}}~_SS@ynv*C6a4TTSR!-+Nxg)BP*K9#qlfgKIs^6A|
zVsjkcAttNx30Nn1a9797W!N?ye<^3ncwi-CUw$jCg$}Chy-9Ws1sIXiE*Oh*U?^pv
ziVaXWrJgg<0U>8;pDy-`#iR#WrD>9nG4#i#R$H?#uQ#L_=f5CX!8U5{Q%${tOY8K;
zPU7CO;d=2WdWsrxc?{rJH~p@T1pX!1Vm?mibV+L>DHa;sm39k37hCD~w8=Phcj^-w
z`XHYDjF&GLUVavcfOf<gBmF790g9DG6?cKYa=+uq6biLMhoDd6S5S<O9hufAr5|jq
z9)A=ve{C_YEljPiMQP)N+17M=7A*i&b{Cg{=s#kKvWW)c#Jxk%wpq}nNP-rVopDeA
zxTOAd4^VT2rS5ggsY(CE65fN5w-54!EWIskZRWC(iXJ)*0&LSKMGrHHoWRpwI+j)q
zy}o@YARg9>D@8X8?Kw9_MoT;Zrve@$6gfsM?Ok;72Mo<&%d}%Awv)ZPwXQZopNqt~
z4C3!_K3MC^b=tagNXN2Ai8)cld+6THw1abxQA)!c1YhE{(3K%Jm;=rp*pEo4kvkiD
z?b@}bXe{I*zaNwHg#n*MkPON^JJ7iyf{wRy>yqM$76x;CCxVvAd|3~gmcU2jadf5{
z?dN25&{^bK!|^<cYlmyUv8|e1DRx_k{sz%5L>0Rbv9V*6PP^brVID+V>BQL)cmNz@
ziZPd_uH%_sBVtnrm4>WDTTj<C<H^r3$WmbtY+N=fegE{#Bed^Xm_tT-2$G)d)Td<?
z&O6}@g|8-LVvnPAJGpR3Q0;}WUsHoqI&vZepp4~a^oE~79NRuALx@2*3u!9^FH!^a
z-9-#K$TMiDFzwq!Daum`ifOS?&?f9wiQIsdEcUYGrB0+$a0R<|EgL)a`ao0F)z)U}
zqK5-0GABZsaDc8^>yx>*&DfOJ%f-*Hb<J!@LTF$rHXT2Dh1RW2Ak%FCBllUn1ku@R
z3EQ@9b0qIBoyDIq&-KPkZJ;8sqA8Im)7K~Dw4_0^xZybXi=4=EtZ@=tAz1<-49<8N
ze;$hTJtSk2g1pn7EIRQ(`X^lgMaf5Q1=*2H9Zm}J6rn=xyH&@r{JlJ*IY&%3lP3Em
z=db!voa8&qCTLNL&ld-KiV7wQe7y>PJsT%$dH+M>XVLgI7sg)AT`AVaD@HC#a`S@?
zVD5*=FB-Skgli_h2l6`;X>fA#EF^=(>Vm}HLw>1Lfe&0ffAR#jK*9hJ;zA;kS%xIU
z9c;|Ydna<6Feg}<ab$$^akLt{un7W0re~cnS?&FpER<1#4hV5Ka0)RQGktEbTy&C*
zbiLL_ZaoMC;xM5$L0dH&ss=+TDGYT2fS(P8o(6GGERjx-{K*+dx`C=Tuvw%E3k+YW
zOW$Kk9dPQ<7xU(9^X6#~3BunZC+xW;(x<~VomFrM+#deK0nQL@4x(Q$+(%(93z8Dm
z)7)_ID(=wW_Bg#(TA+h9=<&9TJF*O?ZX95zU~o2%(6srT!gLLB<}6LuZ4#zCn5HY(
zCsCO&kL*!(oZ&O<$X|%7mW|MYDR`bc)1Nn$Cjb>iyO>tPJJ6?2ZiVXx6vKa$mUCx>
zNweN`D`C>;nD>h$hMa|vkP&nnJzZBkSny1L5clH}m_rh+g=Gv!iXb&CWm`It<rUP?
z&|j{O+`3$x8i0^bOeGgXk^{jc$xZ>1)@b>0y#$RSn=CeiBGop$+E3eP>7X^~k5HIi
z$ijYbfQ|e+93()z%|)7m`C(JM>jt9g$gM@`SE7e%k*kS`iPwcqYdX@I-Tej5UV&DS
z>gD$t*iE_>9<=o{G;+)k-T_+R=xt_wj??TFh4^LiC3M>vMei3;8KUSj^u&h1tzezR
zmDfH;A6>F}kigvdM_L`+W-9P+);6Ah)z2Y^F$z9cii5wIrKX;A6Qm}@BPS2->bM`~
zK;hDl-?2+ckEWnQ*X-tSAPi3QmoVA+m@LcC3zm;N#P2`nuHu}SqEIjsVLNm1(%08E
zYG=Hx?QTd|_3FWOo!I3PK_UNf!qK7D?CcND523T0n!*Y~$euVEwD`@22XclKItW;u
z*`d1!1iKGkSE3X;Wngz{T$3uyrk)k=V8t}s=PzC~VS5($7AXO@F2MLH2?=#6#DKc|
z>({Se%c@R*L*PP$`EP(JN$Si<(f~1N-9i?-Bz@2Pzd#*}6}-wDd)^u#K290|C(mT^
zl?k1hg7ZZ9gK)UF=zy-C1TvJg_-JP&M;E)0FAmk=Eko#V_#qcqw9*?>(Lw4LDqs)!
z^;6xYF2eYP#zf)5O0MNR&mgHZfH173Qb^@OLCRLb<VDh{<$u6giYPvufpxhT56r6m
zObfh^CJfT2`}=A-6+Okw;Deb-j2su+@INA84@~Nw;2a6tNxKWHr54VqU<(2|h7H97
zdHolS+-u4Ckw{we1n1UH<AK*(lt(FxISE3L2`_vHNP&~?<IT0jM(pycBN3?%hQ$EF
zXw{?ssh0=YQ8(iEd#yOU%{jswJ5<l%h}rYFmrLr&`=dEXYKKzF8F@w~21u$ibNdgJ
z@ct16TMs#7<}%XY)DOn1%yTiyL1E2BgKn+!sYlYgKB|go*FPv>-Os{IdC4d@R;xN3
z5KkeBI9n^D=2!kmpns4hz8^%d=!df^n+vmNNEYBU{VG>Xmpg%)ArW}qvPIv$1=ENq
zk<{v#kh8^r)|V|H$ivvhxlk}@#9Z+&JkA#zU?<vYVj7$`86#LG-Y5Lec(l?6MC9bO
z2{d!}5Hb)L?MXxB;n3~laS8RbJ${rxlm#FPq+cl%dsXHXIQ7|*nlPR|2het1aCdaw
zSQXP>D7ZTbGI!+mjqwqXNJ>%5$h-gn1sf5)d~+1ZEJ_!o;eXf=yh359U`#R_+Dj)H
z7Mb9p6)wu$D!!EAn0<M}yDd2GSlJlo^+ldYuDtSLA3cwwJ_K{bISC>-j&8tCh1PA5
zq~O}iF%erD50wpEaMmUFobO_23a1BJ5#~RQ1EoSJdjVidUo&{VCh=w69s*PJ;iy~y
zROviWZ8W4o<|HG>2yf|$x2P$sx%2>UL1&@kU?`>j1?0|c7Fc-=X7G?cW`vg!n&QIv
z<C>^_-2aYuTHk`|4P=nYJO$(~`kn+2o78b;Gy~F^XgV==M!v&ugLXy}j*qyXcM;BV
zL{~>jMR0RRtEK5jGbcuU-y$e2n>KAMv!G>*CJ90=yGn+2(yX-B<$Se_XId$0W1)i-
zRu&5W6E{my<_guu1tFT@LeX+S;HB*X@n1c=+8l>qAdH{N6PflE4Osy!{sQy)8*kja
zuult}3XDeK04J|`Jlx-mfM>|7bIFyPm$?uXfQ1QGbGtX8d6&NPQ491t>lU=mk&a4P
zCWzo1f$Fs|BC{y5Eb}q*1ggUmM0!I|fZrH)n<Hpm6o_64>_F(A88B_0;TG^orLf;@
zAXGCDuDRHbr<troFi1j!@&xv>lSLwPNvCz-_)|Y~(%Q4P9n{s;>$0Hgm~j+DXDz*=
zxe{B<qxld^bUFoR(S#$8D#XE^ry%a3*bd7Q_(`h*oszt94vL;{r#%4Cob-fMdaiqh
zj^|e|veP^8Vo!Q88A^Phg#xj^Q=Zs2y+NnTn7ShX_%q1L1jaVh|C_U9R^fNj$(TZ=
zV5Z$e16s?-m*ER$NzYnJl9#p?){er1Xw>=e44y9rf$wB2gYxiK1g#+8sCkZdqddo1
z&AK=twFS>?5QuvQti6I{CWHIH;??!U;+9gJ24?>8srl;Ft9`B{)D?EDQVLB@)YjH6
z7x2jf6zwzjk&602E-m30OP?pWIN~D#wsZ)`d7QDk&%5eceXHrmPxaK06;)M$2^I*z
z;0#Srg6?p@yEr*Kl1=on?pkaYt||7spxkYA&?`YDM9)Azic~duyS~%=mp(23AbIp?
zEM6cSguh@s4uXJ=3X!TszDsoRe!xW>(PV@c8u1FmF_a?^ER%b2fOEqsXaLTCBU~n0
zh<EH&e8<bNU+F{}obN*LUt);8=D<dRZ4f6p%udq<*cJ}<=I&u(13*I3ON6|oH%17r
z$5~Ki#ywk8ap+PcirSL(n1kS9^(q(eb0~pwPnwmUiZcn6>Bvpd8(}0uH7*E)=oG)+
zrp|p@XsZ%3u%x;RP-u|Y2`j>BiSatx+LH_HO(W1;c*`avz#L7&!e>0VUZ`iErPbkE
zPUeOT16t(AW>wF?3vp-=p+qSPpZ<r*Up2i%M9IXF2H!KY-8%PRoxfA?%-cvn$}2m0
zLQ(SN<Kr2+*MfPRUW7JZX%>{|wN+X!MV$3Br~%q-q2J|sI7`m~Euj~W6C&EJ+IFj;
z(%llz@?+uzI7)RjX9EwxXd2H3ZDJLvjP=tRaK==wJI=qXK%z|A84HQVLWDR*uX6u6
z$JCaAXBq+PWbAaa!${6J**0iDEQC08ownZ$7Q%~@NP?THQd@@)Z@GpCXbO0P+YfkP
z7~1Po)@Z5po+>`EN<&?p&%Ko1034Uif+)ET25JYvI>dc}5nd&`S_k^7?n%Jc3x2}8
z{yBV_2__vmLxTAVg4u<f3%q_du!<wn&+~}i)`A2zR-$pG)r80Y(sfwf4oH}g!Hev2
zKp=mb@gn}KWMT&-qI;37@*#vc$!KtP^$aST;e2M>7{U*{2qpc7MLB_<@HZ6G?ljd3
zC=N$rI^G!HZ=*&_D;}Aw-4Qd(e@7Bd6MK=HlVkSc>NzfIa#NPIk?+NrTo)YJwj>#?
zQm&ge>*&2dgkw(UXU)jJ4fmHE=+rO+hH_=OE%9JNWom1SU%1)!bQ}h8_wu`N?@C>q
zA^#TperwBSHFBaxV1siL@UgOrajzz^d;@To?&`SSxk~G=KoD`>@aJQohAphw6!@W)
z@9}|0&lnA-b?S3#{O}<t?5EtRYC~QKunb;EoHP<k=cQa(dLOi#dzn@d=#)oCe=U2|
z4;dO*bYFb;C!N+|ipcJ2f`=JSd)>SEMP6P*MQ!&9^r?W1S0<ZnRl1E;OM6O(#nGWk
zqH&P$U4n$u$0>d)OjhsqbfaLLaF9DQ+V~V05-@0uE4nF=`ie)z^V|uTT@>PBGE#KF
zl=v9ZKKkE48cMz4m8a%f@>)p!4P@klu*AqN=7YLAK7u<z^0sveiA+-#r2s{ZJ84ta
zPVak2z{8~hNJ1j$5j_{}jKa%aH6=K<*^tm({vd%o`0~tT?g;`#Di+C<`)VvNs<&x+
z2rs20Ak|ckVVRRdHf&Bfl1zi!0g-ng%*N-NEEer*v!2`>bPXj9mYd$!zgfu_GY$_P
zCxc0&qRIB_9C9lLhk5fw-4)+MKPGI%5k~td9ME!Z`0L!_<hsuY#ejXpy@wy;Z>>zm
zM%30r@TbxeusL^QSypsnV$OKNTBt42j5qzpFV?-dJHWs{sDoT35fL&y-R4i~>PKC?
z)G+!Z+~X2JJ(e7$sbAz7z!v)p#;1ajpn`g?BY889O#>QSM_i<~rZzHN<P9i$Qg%_u
zFzT&6(&hk^=$wD)aCu-BJRz5-AvHvbI|G6`ZU_x1q#y(cn=+?2A7I8$&=Ro<--%j7
z#2`M&?rgmR|B6C1Ay#<LuluHC!fW6>Hzm>E@O1>$B9-}p+=~xE=V3c(?*$jCr))}{
z6KI&)O13t|y}9voVAhOUawx=+A&8<d&+UR;*YE1*f>AHf$V+i9E@ebzUiPOxExpiq
zgUu~?43Hh^5VV$QSf}LzCBaqusqr?Mqu2mp3o@i>W4|JlSYU|11C;jgs!7*uJBHr4
zd$|3MV|1#aV29MdwL=a-%oT6THj1NWAX9E0Y_@baK9yB4MJ>&oKBcnE7Ae`U`<g0~
zt0L%&2uqIZ=Q#ynl`>>jKLLj4;MlLjsP**PrZsD3zfq%&rGdS{@Z0zVLL!2VbI}MV
znH0t)M6g7BR&^KZG9^_A!$F|;>F`#3mU$mbK$If^@h0bas9<7}D=xk0=NcDgiyaNi
zBJz0~Gq+x<tnu}ZNzidJmz9sPC%fFyMpuc;5B1ksiE;uJa2eCB(u|O1Vp8gk^uriB
z-D^J?6H*Q0S5)y)+FW0mjG4A%lR})qp{PTE?vEm;AX5fl5XY^m{k)271DvWqFXeuM
z`?dp@8gcS=Z^~K7)I6)&nzr-Z<K00&4yVqr8)PzU(`QRZupSsjDRPX8$51LeRQBf6
z6`*SBci`|Q{GqdBeq`*|MS>UEHCUM~J7iA|#FLbu6U;U^&&5IjAdaQm{dIOLYMXY(
znXKwFAayX2+ZRXQl5)3UDr=)_wOKQ=X54>@pfnXl4a$A9?Fm%pkr^li8>;x0Y`Q9c
z>g!|<XVIUedJo=AQjegq2^?jwScth%K?lVYx#SkYhOqf{!XdW(F#*K0EjcYMDH;=Z
z^HG15j7{5d!YFl_C=3mlz=lR5e<<a51W%1SXj4A~Pb(k{oHL#vT$huD9WY7<Jfl@#
zlmK;us>#$1NXvE`WP{pT&!RXnr2OvT;jVPRUphIGfdClr78(@qqb%Q<+Lp;;^u#&n
z+pksM=%TwOt{I0<Bd|D*_y{RXI!69}-gT28PwO;W+GIk>y|dWeHH4ZjTy-;Q?8xkR
zpKeZ{?{1l<Ny!VG;`$WWyw%KCH3NIQ*fP)HK;zD&KnR@D5GS>+;&a_30yhK^5Ou_2
zm}6-ZbWOL=-L3R#*0+Bmft~;C*_UMeBNAWlnMGh$2pAW8P3yCz5deTx=k02(fHUB?
z1c#G^QXXH3czG+Pi{loTl4gU*(jTA|Kl2Jhkeyj`=nWmMbOc??J?QI=>KI`tFA-!R
zh@(VY!$6Rrh=>b|Fqa(bbRKSifo<#QjP)o9%)ya+Tc+{>Q-o41VR)1Pa8i*wX$zn<
zEAu#MVK#tbt4Mumk4!J@>C_=0iFC9xj<!&}weD*UA2pc|L>@X7CrtW<QNkTG6#3)C
zX0o7yn86OLD&3*EBq<9Qm(mUEaKkY94Oo!*R6#i<Xl^NG5#yFQJPyVv<W87?bcBwf
z?^CH{%LZ51M}g|;yqBV#dsLZ@fq8r=cU%Z5z3{q8z>rUo7)!+$Z@AOQ+Udx=qUOj&
z4Gakz%}o15n~m4GZYhgC+Rqy1ZY~aY4id)t7YDJT3i#EFWXu%#ITUu6zyUE9(f*Gx
z*r_%goK=05w&)XksMIitT$oVH0x5Qk_H&f=0&Jpk2c6sLhRRi`^wT5r*7Jm2fToB9
zh%_hgksW%$urvv}Kt0h(h3vE}dEs8%Bda=}{}|U~P8(%SvKdT5FhIU$JizWUeDp&F
ztR@>~qM~ftfjl-+76|4GZTO+I>1ba1YU1U@M9=v^l%Y8DNU?CKLl}2fpYUbi1nCap
zmLz<mr2{A=qz}PvFB|?uUQ{TM!TPS9NWY_!I=SYew>Up~soYlJ@$k9cMgFQS%MtJp
zR3KKyqdGJkX0nZPDPC|dP@A8+(m^P+gM}(g@xV@WTU)RV6H$Nl-IS_LLwq}Jgn}(6
z1#^KX+}&O-dJ+3zM@dDi|HQ%fN{~kx0MqaKD2tTy<uG~$j=k?G=P#5bJesHgU@Jyh
zBJH3+PJXgpM`&QunI)($Sd*bgN<za@hBF@B#Rq_zXS!6RG88~>AC0#Uz}u4w^HE(Q
z!$2eI;KaR`Bf35^xYkgzhvAM<bTb{kP0da+TvOZw9r-P~Su>1{aGBg&HNJQ!>3~}(
zU4@fG{1!m7XZ8u#f(Rs;B3SeQ5Vt^Y)R7_tK22UwYpNbih${X-hgk%m4~9i%&R*n6
zOK>o)hBO}*>N;RdA<pV$dEfJ^)IXifs@~z#m>q#YG{Essyl@m$1o<;(VIuc&UP~`Z
zOv9&~jtSrVUKQWB_GBqX%_;=Ex==IWW6}M@3qi^6u<qq;SkBgyUXMSabPV}UrVl)N
z&Z@4Zy+|Ok82!s>-+{AmI4rc+?`lhX#@J(n@fg*&sI7pfm^*C~t6Yqax>Z?0#m@jh
z%)NsCDO1XV@%a*1xK-a{1biIP3mbF96Y<rBVT%wY&PEr&V@UK;Awq3Rqpv>bVw^<U
zNe-@y7t+0$jBE{_5*!>{HdVJVGa^RA-(h22`LiYjNc17qy%0-dG^VqXmtZI1>5u*G
zU3vLk8NP%~3CdL<<bAXqvOOqmj@fGn90UJ892nnO;e8NW<R6$%nG=prR8XZv$c{{Q
z_A&r^r}!xnDR}K|po?aTqs+p3-Ni++u#q_RnO%f2NIjpJn0S<OD9pIU(4i${L+*m+
zBLqK1M=p~GL<rXtucp_}Iqa{qma3wZB)j5O^EZEa1tkFQqISDNhz}x>Hp>4Fa*y_-
zzYsE|qB5r|<YhzX8zOCp=#5rh@esK&!7+DP)$;_{Wr0k+7y9PquuCIi)7xV(6iR0V
zAWUs~UOKR?U(?z-NUxQ203k7MG``i+hw8=;bDq=J#8#FcLx6v8cAu0VF+W&^F(|(>
z<(dcl(3cg`>dou&mO0K6wACtY3{DVWwmbx%C!t&9ur&M`C`;58eZ*HIs1sNQ7=i;<
z)se7~l!Gl-74v?F0s_e?l6#m1ZCyfnls5F`WkNz%xfuPiRah#gPhU6Tg`BWCY-+zC
zu(b4sJ`FuU+4SG|=wfp!!yV-1d}ougvscn6fu%!Wt14Wa8~g@CHqlI+`!6cNR2%tK
zH4ee9myT>ALH=RS$Y7w&idcXD`gP)TP8w1zt;-ral|GwNpZ}>AACV#|5^1eQNybnw
z2BG3o)HTiX?3);vLv=j=Z=6N#hf~(cluME7K1P8xi388<VieSPRaR3ry-59(eDe=U
z7Q04qu5=Kdi^f2t#1~Mary3tm33f6aqu*Blu*;2YmJY&JpY183EkiJ)Zq(vQcey{3
zJ}j4e3Br#V(Z$8?n8cOpUC6aON&A&^zbAcoRxmh}X(=XuU8{;ibkFYYWGKCL>z4W2
zxMpgB8RPM;BC&8}PYsJie4vlIlQFZ|D8Clw*?;m)rS24o2&d0nW3UK-N*%hjd4*`z
zc)6&<8U?09aOk7~Zt-Zz7{p$(G6Y<B+Cc$AX2RBOsBt6C9AGU&(EENz$Qi>{i2LE|
zR#nDb{pd^VLW3M^a=#<6hHSeeKDl7y+<xHQvVoChe+q%>&}LsXhQmDvj|+O`Szb}`
z5}1#($9J-**Fg|!xE;x6kP~Ux7MeD;Im|tX%R(yzD9%260{x|Lv(6*70`Ks-fyvup
zK*(j&R~_Eq({)?Cu_j9H^M0fsX$t+Z#5?bT*kP#MDOzRF%SM=bw-ut8K9DD&_oO7M
z_$2CXlt$(7ZRufCp-z>LZmqi-W0iK4!UbeLn-PeRiPQr@Iuk*#1SvA1t%uvJV4w|V
zck|_@riw)KQ9-93ZC6@=bL(ga9QDui1$*H=Sp}J1xB+#PR{j4g>)PXTzT5vdd1{`;
zJ!^>MFw|pg-4vlDGmN5*O=&;e4y&lAn5Ial%^|0fL&8IO<}fP7G%eIUIs9g*he@mx
zQdudK`z}e(`~5xC&9m3*{$sx1zTfZXx~|W4y|2UPy11t>rR*^-)&aX|&q89MkQIEK
z^#owK>Q6X{Oa>GEXpi+Q+)d|*J_8Q(NALvLz?NU_@|@})JQ{#f09l{lWWL)zS+bDV
zj^#iFJS>5>p2&XIZ`$jyMk3sk@rihir?_WfzUDw&D{p75IriZ@V2pMuzVIMss2>pD
zo7J|X)Z8beU<!8BZ+FmAUbn1w%YaV(D)YSjN^c*$=PE&KCpW~dL<Ic1x5j4%1RBOo
z4D5nI@54iCohVxY%~33Y<=L|IKs-LXiV-WNrQkB11y9seZfCK3``$mm<#7q|T!OqA
zB@n2ZNcP~Djwwvm?I~1((|-_|A?_GhT3n1C_ohMy<{|QgO}jQ;PvAh)?}=?Q5fcTe
zkQB%5;Jx|QxXfETak7h9U>Wmsw^dYf0$emCNE62ah3&Q%_9OQyWqG!|A14k=zsb`!
z1`j^0JoqinJ$&uKP~&d_YihdUsT|Jc2${v#144*d$NaUiQ*(3AV#zeVOTA21WPJl*
z&v3)?Qd>F0($}f}s@<QE98gWP;nN}E9@I18VQ5;hfk`ou5Kc=Oc!YN;9O3jwNkb|Y
zC1foe5ZluQKNG{D=cHhREk=zbD);ki-yT<lN5a5FS>A<caE1xe?kepD&{@f=QvYGH
zzy#U{gjq7#tgs(gIUNK0m|1J*h3Q;Gf<+lZ%OD$^y)g(p8K35%>Due;QGs9}6Ad<x
z&1v1GQXI0oEE6<6Spo>JO&y+Y&d|9Psuq|Wl&ccpCaHQem_S$U^cC%Nnr5OFGN2h>
zy!2g8N*e>;cE9Y~W)9+9&$eQgXhi8p!PZar?|oVCfTi#ZFsiezUoqHpYhz1-OT%)u
zJ9kLHNn}xQ12Cs_DsC}woiyx=L)i*Jb@41N1;#!JDTbVnApFphL&=#UN4;K8@amFi
zR+DlS8t@Dg%_wmjk3_T2y7?0DFzwC|DQj*~qq-C!tyv3@JilJRdjW^XLsvu$kz~l&
zl?}zX={xr<oW0W>h4fR~3#lpDo@`V^;5QfBjd`>SlH}2`$#cy${#}kCX)%yA-jGjW
z_lC@Cy5f$RPk+e@tE?L)MzVsFA0Y{scB;H%p8(0l8zeTNAvL!^k7uZ0;C3v)pW@&m
zGlz`Z`5+82nd`aHBOs?mhwO;d)bt!G*u{HMUglDeR)=`U2gq1u{PYvY8mh$HFtXg=
zyW#*#-ttEiB3H_34~!AKZ?HI+gM;#>(rA2mFsxmLnG$%AX6oe_ek=0|6*LsPq#;m`
zRFihld`xM<4p5+A%1u`>3<X$`3)mJh0vae8Gdugg@n}%<9sS{gyXJUCJ;smr$NCTA
z!v==U>Xp48L1|_0R54-*J*zeASvWca2q+j9Xg`sM&L=e^bg%vD!M3isi5x=YapQ?g
z9chVQ1;*$eeO+m~!A^@$LSAZgH*p<O#2s6CiX5CvK$8|52Jd7&48^G)fls8%SwCM>
z`N`|cuwD#R<$+p$j0O>-Lf+@K*Eis`vhd(BDz{=0;@@x#2Ku)}=Ky4fDhu05R&_oP
z>z+w90#Un+IO7t`w&vMexf0_-*gZ@a7#HW<p^WE7xO+CrchEn6Tvrz{)9>*B5z!w4
z&-FO@z83I+2;)7>xQ>_k%`;yWWo2a>3hv%P3eZkhuP+WRZQX%(v!BaU`wKIjUAaU6
zwItX>wqZ#pSMVDoOYnR6{CF-gYz68@d$5jz>drpqfx@yMX@UUBl91VOcpcD25eAY!
zIDJu{^*S-Vk+q<sl4N1*m}X#EAa0rf{K-lD{*FJBaWlmYQFA9XMUnjZ7Bj^AgRSib
zCu+7V^%&WE-S3yXcpvn(sQ4hK6}85gXzm!+QS?*a(`YKcM8dh`me(0kX|&uyIxjm-
z!c7daX$lY<$Z?AK0b&H(p>60{xDx-&;Zfs49^W0|zVkgP%c9En`V-Y-HVolEnwFa3
z4$8S<67&yv|H=0EhYUK3{7W!6#fxcD6q^uGJlbh12XlE0L#*>2yR{ATmYIMQlmlxh
zVGr<Tk)*5M37*rdPuaJ49eMADNu(=qY^sj6>{I5&uS=^`cWymO>9&jc!QM&BR^<eO
z34M&4uVP|v(P*>Wg%G0(=y?_J67pZI4q`~U2b-CoGE7)?8Yy9S?A76-Ud2lg`vVQ+
z!!^(XMltg(*5#l?*l1e`T<hRK98?b25*2m{mkgA|s6JTyN2>weHNDJg>>wq8rV2im
zI+1V*YofxkU#HqA_A7&)j_jmP&y(VZO1wm1b2G7@+4Y`<J{3qhh5tnL2vxd6Ql$r^
zxT8uL3(4$J9)Vb2dInPx5t$0Z==4o!%hU?SnMw&9Cv69O%LV+90dhtylM<II2kD0v
z0MeFJoO_$o`Z!0}4lqtxOHmyx$Iuew4ATIOT}3zm0iS82+YJ+@;HugeYS!nvGTaAs
zo8RBK*{ofMP?hEd`uo4k!=E36K#L98e9USt;_dhXIU=M=XXb}0dEc<~9>IvhBvWOh
z1Yw?3T}>mWQ4&C77HDj1APvDHdv^uqw5%9?aRDfu^@RDvWQCB^EebbDYMp0j`qk>u
z>8p7r1VJ2w!_8`LqWibRAwL|TZmN(ejFITlVvLMKl`I3QW)cyD+hA~u$St*T=rFug
zQFmBY5JU3RB3HF@rNE04+!Cy0O^rMd^B;<$2B2weT~T{z@{Q!|2aPMI?(b>o`nkzx
z_dj1TWyLQ`@0>I`**SfR+eh2_uQ-<cTbZ@RH`~A4t?~EoFxyORS3I_3&Hp_dbh`7d
zvrz-j$8=0y)OFB|lP*8UZB2N4`N^bmi_l9qcO84NuhJ<o&$6nu;?%L{)h{~Ovn^&P
z(7V5hZu(GU`+yhScH6H`lmy+V7rSgepK+xJNQ}YaPA<_==gfb%f0@UM(hn9lI%Ay|
z@H_SRdv?8gbX%v_qd2ak_796fCWNuFQmQj+h=M(xT(q@kW1wrp(_@Jt;b|ta&s!xc
z2*4aoM_DP1gpjiAY4(jLVP2?<XC!V7UbI=xC}~Z47EYF{^BGN<22r$NdX2F8+OYIk
zo-)D=6V;)6&9XvM^Smcz%W{FHFLN3xUe&jO(GuNCe_bN4V>6@cNLXo2ED9&nkws9h
z?ePr3@bS;>(qqX`e!NVlF*3?X_cqbRjsEtpKYV!h7KdMy8(v^vpzceRKFLJab$4E6
z&RoBiVgLXfl#&SK#KJn2@&+t`2v>PScIdP6-(ru%3YrX=J_Q%F&hN_fAqIvis8YVY
z7rvbdLW6IwBJY5md6vhLg+t&A4m}eEMKU`W-F(!mx(A*;>$0|l{|H^E@Yana&sUpq
z*0-mXacFM$O&1-pZtNIGda51yjM+oG+hPh?#M9H=Fnkp6u_&~BUZT&|AMr~Sg~vds
zta)a_lJWuosF`S1vxU3!SVs6iVT(5*kI&Wz{D{TS>u(`%`55WHdJt=&k0y}XvgmD_
z>HjL6-dALsJzPi4d3^ewCmzfaH6aIzUPys&aENB&Oz6nHj{&oL?~6Le%}U{tiC1<A
zPxubM7!ZItKty`GKq&b1$R5y|_Au;a(fC#fnlIXiwTYE>$k3Tj=PC2ACoj?jl5?|C
zpZnpfQQ!!ciAKXHWQ2+h-slmdS(n2b94d?F5+FuPKQ+;*@d4N}!IA{_iTqQB0HX#P
zhcbQxOs)tPd(zM?;}8Q=Ns7fk!&GI2#EeF<`p+8Xx%bwnu`CHdu*510Ra9a>fNj~F
z*@n73LCvO^+#IHhG^)`npOshA)4$<??Xw(JF#vVg&0DdPv~iruBkpz#5i8S})fjEM
zc;D*K4$+UDZ(EePY(lSWJKHI_sB-9_X0w3amr>TG2PUMo56IPK&*z41)Z*N9>yWUH
z$r8F!X-~)os%TwQSgu4g3K(>VN_$1df|#(-Y$7kyclSDs(7+A+tPd0(bvLWA#6LnT
z8@qgX^GP7{W_)1^;~d1`A6gVT$Y(9(IINIzZFslVM3|<-aK@PRvNX_L@NR^H#k)5~
zB;gwd;x%VCM}=MEjJqtaYL-xK*uJh#P67&kuzj?DNEPWuoI%Z2(~K*OQ(L=9iUeR+
z@MjXRV0br94@~NY`y?3@p8>2c?1kCMU*irzeVGsyHVu^6(@)Y8nRU>k>CD=YRj&9`
zrECDqDthjfjKA)RD~$V$^VZBm;8+pla(En#sO}htj1kZ3h_dFkKPv1Zo{u<6Vcfbp
z`eD$@!ZPITN<Cja_)zFM<Egg1XQ2l*ZEZ4qA$QdDDgy0$NfptUyPg?TtVsQ>iLRT$
zO3a<1(OiZoZ;Fo!lTV*D2UT3%E%qk35j=grQ<EpaRS1m&01*dH50NZl=>hbFId@>k
zvm+Au`b2tz_QZt9_s%nFUzxZ?d5v2%p|^4KFvtfmg<eXk^ogv%H3FaQ3pL{oCwruY
z9|jc%PHEp>?8nF?;o(c#a5G9XvSTa2*iJHI%|Rk@nv(VERR~D;KvvHGyQr3EQVxoM
zGOFK)W;;%M(4(&lrz_RgdR0T+s{dx98z9ppAJIumT7?_Wy{bb|V08ST$|#aEWW-mW
z*M>6_2>GxYgOrL@MnPT=tPz#@!X&yOFw!o1vzqmInSt__+9?8LRPB#y*^2K0I#u?J
zivws6e<KPf4pj4<6LV&QiBsF{S&}8PYo%!!;vxHOxDO|QRaNlP(k$1_cYwX!VL-!L
zf6P|rxIb)=s`#ju$T!}_R31Y5A<Z~@{678`VNsQ$;UG3P((Oj<{>HFCB9@H~Q8}Hl
zM5))xoEM)$mOovkYj||CFGtc>%it^MvNl|dZp|w$Ep6S~&^1LYLIe?w^(CQow;K8j
z=>d|=y9Aomq{)TG+}bNM3NGWt34e!h!Eh(pnCQM@)CFw4iJ{e`??E3<<Z&kBMlMF0
zWbdIJdCaM*al55-J8WxRersI$KLnx6h$)|p|ALJ4ON~H{0_+YRp90pe{t?RI0)FSz
z>7{bsh~*EE4<nqYklt@<qGPKwzF!Wa^KhJ~FE)dJU$Z>y4y7Llx)JhIfQ#TNEsyg|
z<}Cmtf7<bkSsUw`wS8NvCfB*b5RPqWxM|~;Dz=fZfXp;T;BVkiY7=@E?vlQvx#4Af
zUc|v2&ywX0CCrt^()O|V(72g#e*?2p)?F5!6M(3olL@R5^lij3VtV|vOb3_ax6r;R
z3Jx1H$L;`zY2u(@d_ZPrEIRXy>)>X7gj={~7Z$!vT6od(JN_$jplFJ)M_hQ?IcnJM
z1}&p!`m^?{Blx{bQe&@G)<^Jw`9fI5t)SE9-xitbzU~!nOWC~T6>LDE^|G*Rz9ioA
zif6mscD7r|vS=&^<|pd&gmUpcGA^ZVA2mi|kH*Z}Asw!cf$9)q*f|y3%eSQ5WCh4z
z0E@I@;^iFtfk3+7scuWSL<$RSfq9>uXb^J?ipBT*Jal+X-E)=iWpw2G8&6uOwnHiE
zv4>)X$o-TZ(DIsm6K1V@urd{G7!>0u_{oly{o;3x&)@}!zEZwm8C2r6{Em>=(Z#A7
z$~|z+DrBeoe1!j*f?qlt_QPbjEYIp&$mAPHcM9FLF3q^oSCn>;q3|7$0V+6Y@Eq|W
z)I?BSzKBi;{?XtQh9yUN2RXh;qLKdGHW>xKi&6zrO*(DdoZ)xd84}DCyr>>w!iD}G
zX>(ha!t?nQn}1LKLv6NOZVtoaYsQW<`(AZsABZBpZ4JmlT^?N>AW98N;(vuLXhBkJ
z7DFni6vTmdJcNnb`&pLCih?ly)qydwgVktS4+|kMFu<Gsoz;ssQ8_lCqeJ4qu6c_)
zh1%73jl8x54DrMtBl4mkUzdfl)X0|%xbMPqAQY(Rk4$tI7d$<VZHr={HfKk?PB`aZ
zRAs6|hxF{@1zCHcF|HU;WQ+WHBLf;lo*L{w%|QA2TY5b=6j(Y^+D~Ny6(;<ri^6Zo
z%9uvR$*$!{?^FNt%!7Pp36BnEH*|Groiv)fydW7u0z*MPgC+qDvvWLf>w+bzi90r$
z7W^~FxEbDmH3bLL_I9nS%Uhl|R{tMq$tq!hLt<VI^HKPv6jzz(&}5&6?yA~s-W}-d
zGYwWL1;abHvZ^0A2<4!196ROKk0QwxtbOkRz9HWfatLj$**D3~P}XX9-#p?T@jhaY
z>1>q=Y1ZD|?5(lIpM2hq<I&<k+Dm@JHi~-5zzGtsQD;@>zZ5rPyAvc-6|Ht|orQU@
zlt<h$<n~LgGump1D0o-96DgQ4yFDj(>=#p;Vny!_EB@l9ar1%`As(sEOZZPZG@h%!
z_mdsIi%x0ehD<cn3s>*GRzZ&k8rSoXx9J;#rlsYe1{iX)#*o`^f`kMjctWE=dwMHE
zEW2IOHP}xZTU12AbBbK%Cv6!63nS+Dii#ZqilB^Q4*g<C6{1m>!The&f)}%nhLnxk
z)3#B9P{cJ8*W2z%`Wr~T%)X5&kN!A1Q?#MnMP)Yf3MLnbicWF-xq>pL%m_q&ShB!S
zM*;`LLYxH$IZD`j;%Z*@J&%LSuV`n`AQD<s2#}TVs8fw1ar6&y`Xa|&a{n&OVSo3b
z-8cC?njl2}3>q%F<yD#m<z@<cJdGANh^)(Ccuj>aKrl(2-0``l-9*(vaD8CAjeGbh
zyc4j{SR7445Z~L=U-{mAoarmYsR|zacY_Niwv{8!){dWOD8n!w#=>N51nT3mpGP`V
zgn>}SC;~~TJs}h7^v*_;=CuZDBeVL@4j%H0d>~`O0G}Tu$r}97!J)~{sIgP&nFleB
zKjXlm7oM~dWlkqOhrVKVLLH7RF|G077fwruSW2r(UykP7ty5$w@w0|-kLr8jyJn4S
z>MWZxI=N5*#)2O<B_k9?S0=SB2>z2h6)F*hW)8SWjdu3@T~U7Npwb0<D1|XpLdq@p
zG`mDpbU(_Y@PdP^m=!=O_+LQxvgZeA$-wfnMPA}_<lQe)ZZEEhl$+?+#+&~50E&@D
zRJn7PKe)8TcE4kAfce+HNz1BVPNZWxNYcE#tsl#6k_%qMBjb1$P+{xocteq&)=2K*
z0J8WV&2v#n0^o}usdpRv@F}a`gCIxTkA6)iG`3L8G`6rGMxrylh+Ea_&D|&l(xz?Q
zxW3a@cSQXn8+*oseo>UAJ$D-rg|+`q)jSxp>fZs6TemuYcMAnr_xGYnE2|CZu)1vL
zwuwh?X#^MiOQyDQ1>B;~Blt2{YrY>Zd^B2TsL(P40ojBkoRFrPRF6*%d4lI5+ChUJ
zeP-^|m4N1gZ!w(SI_P9Ny@xA3{|8oVJ`a9=iI0GDF#qEiCqr$FI4qhmOPVQR>jS4C
zFewF2zupH9(lt4nCs;5$fa->Xm;s$@>YHAckO~dw9BVTd#$m-{B3`{bI^)Xr*KS9!
zBDZ7jRhrVfcUQHj%_?s%GZRb)w1uk#4XaaOdFOYCd8U=HjL5s-RO%8d$(39G%IXa`
z25=#)lDS@081<$G7Um!*SK3Q*d|&`3T<%hzZt!#hn4m}39qV2a!Ju|veYlmcq8teL
z5NljWrp3y;#477C0ZxRs`DI}#!qH-&sadBsW0F<y>>-h^Dt~;R1~dW8OKE-wdd@&i
z41}71m`#Y7`>o+?7#~oh-vMmP#`Q5p-|(8DKcOBhF+D%dBlQ0bnLcLkwGzZh1h*{^
z8bqf)WK#7`gO&DaaggB)u#UK<)vx?fSsXbH_=E=%mmLkU$nh`}p+-i5-ZfWWNlI)|
zWZF$mZw8fhQ)L#cIzc@e#&$e?ky!JBd<P!SaAtP#{PFl1wN%1~85f6Jd#MgSS<~w9
zI@B=6jWH1xH}-*amt*!30*bBiC|T;q1Qg1jE<L{3=4W7CRHf2@E$Hb1y8F2>6bklc
z2tzwfqF-*vH4ObY;d%Be?6to_VFe4(r)r6zVvF3%mbc-bP2EkVAUtPr<PPDEUuxye
z^@7`M3}$EHZmEo7Ton{k_9d)N1Yzj5jqAJak@Tn%vJ=YKSRO`i{_0n%VHp_<PxhGn
Rv4H=kOq~A7@sBm%{TEqigY5tS

diff --git a/haskelloids.cabal b/haskelloids.cabal
index e5aac0a..aec1e0e 100644
--- a/haskelloids.cabal
+++ b/haskelloids.cabal
@@ -58,6 +58,7 @@ executable haskelloids
                     , Commons
                     , StateMachine
                     , Menu
+                    , InGame
                     , Init
   
   default-extensions: OverloadedStrings
diff --git a/src/Commons.hs b/src/Commons.hs
index 4628ca4..ba9a293 100644
--- a/src/Commons.hs
+++ b/src/Commons.hs
@@ -38,23 +38,25 @@ wrapAround (V2 nx ny) width = (V2 nnx nny)
       | otherwise       = ny
     half = width / 2
 
-newHaskelloids :: Image -> Affection UserData [Haskelloid]
-newHaskelloids img = liftIO $ mapM (\_ -> do
-  posx <- randomRIO (0, 800)
-  posy <- randomRIO (0, 600)
-  velx <- randomRIO (-10, 10)
-  vely <- randomRIO (-10, 10)
-  rot <- randomRIO (-180, 180)
-  pitch <- randomRIO (-pi, pi)
-  div <- randomRIO (1, 2)
-  return $ Haskelloid
-    (V2 posx posy)
-    (V2 velx vely)
-    rot
-    pitch
-    div
-    img
-  ) [1..10]
+newHaskelloids :: Affection UserData [Haskelloid]
+newHaskelloids = do
+  img <- haskImage <$> getAffection
+  liftIO $ mapM (\_ -> do
+    posx <- randomRIO (0, 800)
+    posy <- randomRIO (0, 600)
+    velx <- randomRIO (-10, 10)
+    vely <- randomRIO (-10, 10)
+    rot <- randomRIO (-180, 180)
+    pitch <- randomRIO (-pi, pi)
+    div <- randomRIO (1, 2)
+    return $ Haskelloid
+      (V2 posx posy)
+      (V2 velx vely)
+      rot
+      pitch
+      div
+      img
+    ) [1..10]
 
 updateHaskelloid :: Double -> Haskelloid -> Haskelloid
 updateHaskelloid dsec has =
diff --git a/src/InGame.hs b/src/InGame.hs
index 5a5979c..c369b4d 100644
--- a/src/InGame.hs
+++ b/src/InGame.hs
@@ -1,235 +1,81 @@
+{-# LANGUAGE RecordWildCards #-}
 module InGame where
 
-import Affection
+import Affection as A
 import qualified SDL
-import GEGL
 
 import qualified Data.Map as M
 import Data.Maybe (catMaybes, isJust, fromJust, isNothing)
 
-import Control.Monad (when, foldM)
+import Control.Monad (when)
+import Control.Monad.IO.Class (liftIO)
 
 import System.Random (randomRIO)
 
-import Debug.Trace
+import Linear
 
 import Types
 import Commons
 import Menu
 
-loadGame :: Affection UserData ()
-loadGame = do
-  liftIO $ traceIO "loading game"
+loadGame :: Affection UserData () -> Affection UserData ()
+loadGame stateChange = do
+  liftIO $ logIO A.Debug "loading game"
   ud <- getAffection
-  _ <- liftIO $ gegl_node_connect_to
-    (nodeGraph ud M.! KeyShipTranslate)
-    "output"
-    (nodeGraph ud M.! KeyShipOver)
-    "aux"
-  liftIO $ traceIO "nodes connected"
-  hs <- liftIO $ catMaybes <$> foldM (\acc _ -> do
-    coords <- liftIO excludeShip
-    insertHaskelloid acc Nothing coords
-    ) [] ([0..9] :: [Int])
-  liftIO $ traceIO "inserted haskelloids"
-  liftIO $ gegl_node_link_many $ map hFlange hs
-  liftIO $ gegl_node_link (last $ map hFlange hs) (nodeGraph ud M.! KeyHNop)
-  liftIO $ gegl_node_disconnect
-    (nodeGraph ud M.! KeyFGOver)
-    "aux"
-  liftIO $ traceIO "nodes linked"
+  nhs <- newHaskelloids
+  kid <- partSubscribe (subKeyboard $ subsystems ud)
+    (\kbdev -> when (msgKbdKeyMotion kbdev == SDL.Pressed) $
+      case SDL.keysymKeycode (msgKbdKeysym kbdev) of
+        SDL.KeycodeSpace -> do
+          liftIO $ logIO Debug "TODO: PEW!"
+        SDL.KeycodeR -> do
+          liftIO $ logIO Debug "Reloading"
+          putAffection ud
+            { stateUUIDs = UUIDClean [] []
+            }
+          loadGame stateChange
+        SDL.KeycodeEscape -> do
+          liftIO $ logIO Debug "Leave to Menu"
+          stateChange
+        _ -> return ()
+    )
   putAffection ud
-    { haskelloids = hs
-    , wonlost = Nothing
-    , shots = ParticleSystem
-      (ParticleStorage Nothing [])
-      (nodeGraph ud M.! KeyPNop)
-      (buffer ud)
-    , ship = Ship
-      { sPos = (375, 275)
-      , sVel = (0, 0)
+    { stateUUIDs = UUIDClean [] [kid]
+    , haskelloids = nhs
+    , ship = (ship ud)
+      { sPos = V2 400 300
+      , sVel = V2 0 0
       , sRot = 0
-      , sFlange = nodeGraph ud M.! KeyShipRotate
       }
-    , pixelSize = 3
     , state = InGame
     }
-  liftIO $ traceIO "game loaded"
-  present
-    (GeglRectangle 0 0 800 600)
-    (buffer ud)
-    True
 
-excludeShip :: IO (Double, Double)
-excludeShip = do
-  px <- randomRIO (0, 800)
-  py <- randomRIO (0, 600)
-  inter <- gegl_rectangle_intersect
-    (GeglRectangle px py 100 100)
-    (GeglRectangle 350 250 100 100) -- Ship's starting position and size
-  case inter of
-    Just _ ->
-      excludeShip
-    Nothing ->
-      return (fromIntegral px, fromIntegral py)
 
 updateGame :: Double -> Affection UserData ()
 updateGame sec = do
-  ad <- get
   ud <- getAffection
-  when (((floor $ elapsedTime ad :: Int) * 100) `mod` 10 < 2 && pixelSize ud > 3) $ do
-    pd <- getAffection
-    liftIO $ gegl_node_set (nodeGraph pd M.! KeyPixelize) $ Operation "gegl:pixelize"
-      [ Property "size-x" $ PropertyInt $ pixelSize pd - 1
-      , Property "size-y" $ PropertyInt $ pixelSize pd - 1
-      ]
-    putAffection ud
-      { pixelSize = pixelSize ud -1
-      }
-  let nx = fst (sPos $ ship ud) + fst (sVel $ ship ud) * sec
-      ny = snd (sPos $ ship ud) + snd (sVel $ ship ud) * sec
-      (nnx, nny) = wrapAround (nx, ny) 50
-  liftIO $ gegl_node_set (nodeGraph ud M.! KeyShipTranslate) $ Operation "gegl:translate"
-    [ Property "x" $ PropertyDouble nnx
-    , Property "y" $ PropertyDouble nny
-    ]
-  liftIO $ gegl_node_set (nodeGraph ud M.! KeyShipRotate) $ Operation "gegl:rotate"
-    [ Property "degrees" $ PropertyDouble $ sRot $ ship ud
-    ]
-  td <- getAffection
-  putAffection td
-    { ship = (ship ud)
-      { sPos = (nnx, nny)
-      }
-    }
-  ud2 <- getAffection
-  nhs <- mapM (updateHaskelloid sec) (haskelloids ud2)
-  ud3 <- getAffection
-  putAffection ud3
+  let nhs = map (updateHaskelloid sec) (haskelloids ud)
+  putAffection ud
     { haskelloids = nhs
+    , ship = updateShip sec (ship ud)
     }
-  ud3 <- getAffection
-  ups <- updateParticleSystem (shots ud3) sec shotsUpd
-  ud4 <- getAffection
-  when (isJust $ wonlost ud3) (winlose $ fromJust $ wonlost ud3)
-  putAffection ud4
-    { shots = ups
-    }
+
+updateShip :: Double -> Ship -> Ship
+updateShip ddt s@Ship{..} = s
+  { sPos = wrapAround (sPos + fmap (dt *) sVel) 40
+  }
+  where
+    dt = realToFrac ddt
 
 drawGame :: Affection UserData ()
 drawGame = do
   ud <- getAffection
-  liftIO $ gegl_node_process $ nodeGraph ud M.! KeySink
-  present
-    (GeglRectangle 0 0 800 600)
-    (buffer ud)
-    True
+  mapM_ drawHaskelloid (haskelloids ud)
+  drawShip (ship ud)
 
-handleGameEvent :: SDL.EventPayload -> Affection UserData ()
-handleGameEvent e = do
-  ad <- get
-  wd <- getAffection
-  sec <- getDelta
-  case e of
-    SDL.KeyboardEvent dat ->
-      case SDL.keysymKeycode $ SDL.keyboardEventKeysym dat of
-        SDL.KeycodeLeft -> do
-          ud <- getAffection
-          when (SDL.keyboardEventKeyMotion dat == SDL.Pressed
-            && (isNothing $ wonlost ud)) $ do
-              let rawRot = (sRot $ ship ud) + 15 * sec
-                  newRot
-                    | rawRot > 360 = rawRot - 360
-                    | rawRot < 0 = rawRot + 360
-                    | otherwise = rawRot
-              putAffection ud
-                { ship = (ship ud)
-                  { sRot = newRot
-                  }
-                }
-        SDL.KeycodeRight -> do
-          ud <- getAffection
-          when (SDL.keyboardEventKeyMotion dat == SDL.Pressed
-            && (isNothing $ wonlost ud)) $ do
-              let rawRot = (sRot $ ship ud) - 15 * sec
-                  newRot
-                    | rawRot > 360 = rawRot - 360
-                    | rawRot < 0 = rawRot + 360
-                    | otherwise = rawRot
-              putAffection ud
-                { ship = (ship ud)
-                  { sRot = newRot
-                  }
-                }
-        SDL.KeycodeUp ->
-          when (SDL.keyboardEventKeyMotion dat == SDL.Pressed
-            && (isNothing $ wonlost wd)) $ do
-              ud <- getAffection
-              let vx = -10 * sin (toR $ sRot $ ship ud) + fst (sVel $ ship ud)
-                  vy = -10 * cos (toR $ sRot $ ship ud) + snd (sVel $ ship ud)
-              putAffection ud
-                { ship = (ship ud)
-                  { sVel = (vx, vy)
-                  }
-                }
-              -- traceM $ show (vx, vy) ++ " " ++ show (sRot $ ship ud)
-        SDL.KeycodeSpace ->
-          when (SDL.keyboardEventKeyMotion dat == SDL.Pressed
-            && (isNothing $ wonlost wd)) $ do
-              ud <- getAffection
-              liftIO $ gegl_node_set (nodeGraph ud M.! KeyPixelize) $
-                Operation "gegl:pixelize"
-                  [ Property "size-x" $ PropertyInt 8
-                  , Property "size-y" $ PropertyInt 8
-                  ]
-              -- ad <- get
-              let posX = fst (sPos $ ship ud) + 23 - 35 * sin (toR $ sRot $ ship ud)
-                  posY = snd (sPos $ ship ud) + 23 - 35 * cos (toR $ sRot $ ship ud)
-              tempRoot <- liftIO gegl_node_new
-              tempRect <- liftIO $ gegl_node_new_child tempRoot $
-                Operation "gegl:rectangle"
-                  [ Property "x" $ PropertyDouble posX
-                  , Property "y" $ PropertyDouble posY
-                  , Property "width" $ PropertyDouble 4
-                  , Property "height" $ PropertyDouble 4
-                  , Property "color" $ PropertyColor $ GEGL.RGBA 1 1 1 1
-                  ]
-              tempOver <- liftIO $ gegl_node_new_child tempRoot defaultOverOperation
-              _ <- liftIO $ gegl_node_connect_to tempRect "output" tempOver "aux"
-              ips <- insertParticle (shots ud)
-                Particle
-                  { particleTimeToLive = 5
-                  , particleCreation = elapsedTime ad
-                  , particlePosition = (posX, posY)
-                  , particleRotation = 0
-                  , particleVelocity =
-                    ( (floor $ -200 * (sin $ toR $ sRot $ ship ud))
-                    , (floor $ -200 * (cos $ toR $ sRot $ ship ud))
-                    )
-                  , particlePitchRate = 0
-                  , particleRootNode = tempRoot
-                  , particleNodeGraph = M.fromList
-                    [ ("root", tempRoot)
-                    , ("over", tempOver)
-                    , ("rect", tempRect)
-                    ]
-                  , particleStackCont = tempOver
-                  , particleDrawFlange = tempOver
-                  }
-              putAffection $ ud
-                { shots = ips
-                , pixelSize = 8
-                }
-        SDL.KeycodeR ->
-          when (SDL.keyboardEventKeyMotion dat == SDL.Pressed
-            && isJust (wonlost wd)) $ do
-              liftIO $ traceIO "reloading"
-              liftIO $ clean wd
-              nd <- liftIO $ load
-              putAffection nd
-              loadGame
-        _ -> return ()
-    SDL.WindowClosedEvent _ -> do
-      traceM "seeya!"
-      quit
-    _ -> return ()
+drawShip :: Ship -> Affection UserData ()
+drawShip Ship{..} = do
+  ctx <- nano <$> getAffection
+  liftIO $ drawImage ctx (sImg) (sPos - fmap (/2) dim) dim sRot 255
+  where
+    dim = V2 40 40
diff --git a/src/Main.hs b/src/Main.hs
index 4a1e68b..668b0a9 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -49,6 +49,7 @@ pre = do
   liftIO $ logIO A.Debug "Setting global resize event listener"
   _ <- partSubscribe (subWindow subs) $ \msg -> case msg of
     MsgWindowResize _ _ (V2 w h) -> do
+      liftIO $ logIO A.Debug "Window has been resized"
       let nw = floor $ fromIntegral h * (800/600)
           dw = floor $ (fromIntegral w - fromIntegral nw) / 2
       GL.viewport $= (GL.Position dw 0, GL.Size nw h)
diff --git a/src/Menu.hs b/src/Menu.hs
index 2436a6a..fa12dcb 100644
--- a/src/Menu.hs
+++ b/src/Menu.hs
@@ -24,32 +24,27 @@ import Foreign.C.Types
 import Types
 import Commons
 
-handleMenuEvent :: (Affection UserData ()) -> [SDL.EventPayload] -> Affection UserData ()
-handleMenuEvent _ es = do
-  (Subsystems w k) <- subsystems <$> getAffection
-  _ <- consumeSDLEvents w =<< consumeSDLEvents k es
-  return ()
-
-loadMenu :: Affection UserData ()
-loadMenu = do
+loadMenu :: (Affection UserData ()) -> Affection UserData ()
+loadMenu stateChange = do
   liftIO $ logIO A.Debug "Loading Menu"
   ud <- getAffection
-  hs <- newHaskelloids (haskImage ud)
-  _ <- partSubscribe (subKeyboard $ subsystems ud)
-    (\kbdev -> case SDL.keysymKeycode (msgKbdKeysym kbdev) of
-      SDL.KeycodeEscape -> do
-        liftIO $ logIO A.Debug "seeya"
-        quit
-      SDL.KeycodeF -> do
-        when (msgKbdKeyMotion kbdev == SDL.Pressed) $ do
-          liftIO $ logIO A.Debug "screen toggling"
-          toggleScreen
-      _ -> return ()
+  hs <- newHaskelloids
+  kbdUUID <- partSubscribe (subKeyboard $ subsystems ud)
+    (\kbdev -> when (msgKbdKeyMotion kbdev == SDL.Pressed) $
+      case SDL.keysymKeycode (msgKbdKeysym kbdev) of
+        SDL.KeycodeEscape -> do
+          liftIO $ logIO A.Debug "seeya"
+          quit
+        SDL.KeycodeSpace -> do
+          liftIO $ logIO A.Debug "Leaving Menu to Game"
+          stateChange
+        _ -> return ()
       )
   putAffection ud
     { haskelloids = hs
     , fade = FadeIn 1
     , state = Menu
+    , stateUUIDs = UUIDClean [] [kbdUUID]
     -- , shots = (shots ud)
     --   { partSysParts = ParticleStorage Nothing [] }
     }
@@ -83,12 +78,9 @@ drawMenu = do
     fontSize ctx 120
     fontFace ctx "modulo"
     textAlign ctx (S.fromList [AlignCenter,AlignTop])
-    -- (Bounds (V4 b0 b1 b2 b3)) <- textBoxBounds ctx x y' 150 "HASKELLOIDS"
     fillColor ctx (rgba 255 255 255 255)
     textBox ctx 0 200 800 "HASKELLOIDS"
     fillColor ctx (rgba 255 128 0 (alpha $ fade ud))
     fontSize ctx 40
     textBox ctx 0 350 800 "Press [Space] to Play\nPress [Esc] to exit"
     restore ctx
-  -- t <- getElapsedTime
-  -- liftIO $ drawSpinner (nano ud) 100 100 100 t
diff --git a/src/StateMachine.hs b/src/StateMachine.hs
index 0758306..ad5dffd 100644
--- a/src/StateMachine.hs
+++ b/src/StateMachine.hs
@@ -14,20 +14,30 @@ import System.Random (randomRIO)
 
 import Types
 import Commons
--- import InGame
+import InGame
 import Menu
 
 instance StateMachine State UserData where
-  smLoad Menu = loadMenu
+  smLoad Menu = loadMenu (smClean Menu >> smLoad InGame)
 
-  -- smLoad InGame = loadGame
+  smLoad InGame = loadGame (smClean InGame >> smLoad Menu)
 
   smUpdate Menu = updateMenu
 
-  -- smUpdate InGame sec = updateGame sec
+  smUpdate InGame = updateGame
 
   smDraw Menu = drawMenu
 
-  -- smDraw InGame = drawGame
+  smDraw InGame = drawGame
 
   smEvent _ _ = return ()
+
+  smClean _ = do
+    ud <- getAffection
+    let (UUIDClean uuwin uukbd) = stateUUIDs ud
+        (Subsystems win kbd)    = subsystems ud
+    mapM_ (partUnSubscribe win) uuwin
+    mapM_ (partUnSubscribe kbd) uukbd
+    putAffection ud
+      { stateUUIDs = UUIDClean [] []
+      }
diff --git a/src/Types.hs b/src/Types.hs
index c063c6b..017e6d5 100644
--- a/src/Types.hs
+++ b/src/Types.hs
@@ -23,6 +23,7 @@ data UserData = UserData
   , font :: Font
   , subsystems :: Subsystems
   , haskImage :: Image
+  , stateUUIDs :: UUIDClean
   }
 
 data Ship = Ship
@@ -60,6 +61,11 @@ data Subsystems = Subsystems
   , subKeyboard :: Keyboard
   }
 
+data UUIDClean = UUIDClean
+  { uuWindow   :: [MsgId WindowMessage]
+  , uuKeyboard :: [MsgId KeyboardMessage]
+  }
+
 newtype Window = Window (TVar [(UUID, WindowMessage -> Affection UserData ())])
 
 instance Participant Window WindowMessage UserData where
@@ -67,10 +73,16 @@ instance Participant Window WindowMessage UserData where
     subTups <- liftIO $ readTVarIO t
     return $ map snd subTups
 
-  partSubscribe (Window t) = generalSubscribe t
+  partSubscribe (Window t) funct = do
+    uuid <- genUUID
+    liftIO $ atomically $ modifyTVar' t ((uuid, funct) :)
+    return $ MsgId uuid MsgWindowEmptyEvent
 
-  partUnSubscribe (Window t) uuid =
-    liftIO $ atomically $ modifyTVar' t (filter (\(u, _) -> u /= uuid))
+  partUnSubscribe (Window t) (MsgId uuid _) =
+    liftIO $ atomically $ modifyTVar' t (filter (flip filterMsg uuid))
+    where
+      filterMsg :: (UUID, WindowMessage -> Affection UserData ()) -> UUID -> Bool
+      filterMsg (u, _) p = u /= p
 
 instance SDLSubsystem Window UserData where
   consumeSDLEvents = consumeSDLWindowEvents
@@ -82,15 +94,16 @@ instance Participant Keyboard KeyboardMessage UserData where
     subTups <- liftIO $ readTVarIO t
     return $ map snd subTups
 
-  partSubscribe (Keyboard t) = generalSubscribe t
+  partSubscribe (Keyboard t) funct = do
+    uuid <- genUUID
+    liftIO $ atomically $ modifyTVar' t ((uuid, funct) :)
+    return $ MsgId uuid MsgKeyboardEmptyEvent
 
-  partUnSubscribe (Keyboard t) uuid =
-    liftIO $ atomically $ modifyTVar' t (filter (\(u, _) -> u /= uuid))
+  partUnSubscribe (Keyboard t) (MsgId uuid _) =
+    liftIO $ atomically $ modifyTVar' t (filter (flip filterMsg uuid))
+    where
+      filterMsg :: (UUID, KeyboardMessage -> Affection UserData ()) -> UUID -> Bool
+      filterMsg (u, _) p = u /= p
 
 instance SDLSubsystem Keyboard UserData where
   consumeSDLEvents = consumeSDLKeyboardEvents
-
-generalSubscribe t funct = do
-  uuid <- genUUID
-  liftIO $ atomically $ modifyTVar' t ((uuid, funct) :)
-  return uuid