From e63c2287afb1681fec0c1101e5aeaaf8f56b4310 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20Hru=C5=A1ka?= <ondra@ondrovo.com>
Date: Sat, 13 Nov 2021 18:33:51 +0100
Subject: [PATCH] more stack ops, fix ( in compile mode

---
 CMakeLists.txt     |   1 +
 forth              | Bin 27072 -> 31640 bytes
 include/fh_stack.h |  28 ++++++++++++
 src/fh_builtins.c  | 106 ++++++++++++++++++++++++++++++++++++++++++---
 src/fh_error.c     |  28 ++++++++++++
 src/fh_mem.c       |   3 +-
 src/fh_runtime.c   |  31 +------------
 src/fh_stack.c     |  49 +++++++++++++++++++++
 8 files changed, 209 insertions(+), 37 deletions(-)
 create mode 100644 src/fh_error.c

diff --git a/CMakeLists.txt b/CMakeLists.txt
index c44851b..c850d4c 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -9,6 +9,7 @@ add_executable(forth
     src/fh_runtime.c
     src/fh_stack.c
     src/fh_mem.c
+    src/fh_error.c
 )
 
 target_include_directories(forth PRIVATE include)
diff --git a/forth b/forth
index b4f3a2d26b7c9951bbea6ceb38c2b41f7bbd92e7..ce9449ae009bc374fc735a315ace6cb417eb9026 100755
GIT binary patch
literal 31640
zcmeHw4R}=5)$W;)5sW4i6f~8z3<wrfLO`MX)&w$gq9KWp2(7>{BomUFWa4B-f&~eN
zRK{_xx%RW#mZzmZU!}F})oZm85raPje;cc{(WaW(SZ55{RH<L8(fQuB_u6O99B24!
z?|tsQ&vQ9XGVAR1x7S{K?ccL!&MsHk<ry}crmk_?mo-WiPL!A;CgcV92B1h=q-Ept
z3)<(k(~!;-I7u&(091MPXC%W3j2{O`a(Q%<0_ID!rl7KrAjze>+Ru~}1+`q6COJFZ
za@q>*b0wdGif-grB<V)MI9=(Gcm>UJ<eTV5Nsl%q!vkFIC_^Pj?jpHSmK$X`1qay?
z3Mzk+Pw0OU>$Acl(C8`>pPFWsYhyVpEMa~HDG$2Vz8R?fSMsZ5xtCm0j};Da`4m+7
zT?IMv%V)h*HLv0P($zyA$ESjvy*9V8Vavix=Qh^PX>4c?w#{i<v~bSCOAA_k1@nao
zWLF{nDW+DHS8EyVS`XoryiKzur877U7I6{pB>a=xN&dDAesbX#AOGNyOMmrN>$<WH
z->&+`tOtmP%0W7bhc3d=zq-i$bMQ|*!ap{r)~;!yRD`dq_T(;pFRYpoFv(X1l4m8O
zL@Fl@{siz&!IAty`KQuzX&QWS8a&yYO3!U+@Om2jFVf(bron$J4L%nIbAo2Q<^Yk(
z&dq7?JJR5(9j4N=Hw}Jj8hgG6{^|I)UR!}krT>e-Pt-oA?Y~Y+sQw_x_#O*hYYq5o
zTDEI-z7}sYC7LPacDDvRHP^ap>aTUzc^Vo)sBIABfUi+&X!QgF5ZUStw30|8B%8cV
zt=<3xy?%eQ&)w*&@dO%t0xuQT1h%($-CKx4+Q24r^R#+vnp(8FZT^OUmrynJeyy&>
z-_RVWgSwhFkGrm++0)o?gBMA(-WsyaA8<E$U=gLM@h;R>m6fho>7HM3iE%gYQsXvp
zH@{$k<}R&T?S=*3tqrXKufJ;b%0^$ax5~4nk+Rs@<ZI?E+>$jVBm9{mnj?K?puJ0|
zaG9JYF1xsw^<hIRe-yW>A3M9DA)9)erx^Ed|NUEN?wQ()oSr1;<FwZ}9Xzk$bkZ3`
znl3f|sCssCP>k^SqVRn@?jLB8atg1~Jr?|}MUwBB1%Dgk`z-kHGQQt}znk%c7X1B;
zk6Q3Oj32S!pJV)}1^+7JHA`F%F@Ayt|1RTmE%=WZpJ&0JP8}L9rv-m5<7Zj$PR18m
z@QWC)TktCwUunT#!T8M<{94A>Tkz`{-(taUVSJkf-@y2G3*OK8y%zi~#`pWAKWI!+
zQyjt!n($eYMSMn0cm%p}jhOIf8(7SbOn4ec)wQ4Pp>dhU5_R>M@aHNdU>?WGc--4e
zc&7<322-ZZGU3hRaG?oLd8=!Y2`|QHCKQ?Ql()Kc6JE7FqE(vkXxPTJ-h@BHz-roN
z6P~BUf?99F(-^O=78Bl~kbrF_e69)KZo*GA;rE*G=5eRXgr98UKXrS`1E)Ojf6oK&
zJHGIt-f?__9=5;Y)-=7dCy){E(>tD+@VGE4zTgd@<1>fw>6luCJ4)9REjAd(HS<+U
zQ`Z^m6Y1Yln!3zbk4QgFX&M4z_lopml%}pTwqK+VQkuHVSeHouPfAl)8EY5mpHZ5+
z$XJU=|B%wuHO4lJ^miytU1F?Kq;ID*4K1-Ek-mk})HTKmMfxU6Q<oTXiu4VXrXeSm
zE7E>SQ`Z>NMEYx#rY<oy@<}{S{+jnrY3PMbdgu+kV`!wZsw`sv$sD*Yl08>|<xkCm
z$0pyjNz+br>5=8LHxto5oxtMJz+||36KLe>)8m7VsqN6MJ<bsP|3HR%WWjp`W`ClG
zM)V`^UZx)z9jDul>Mwi}m;?n2Siyw&V4Y)XNkX3NYhV5jWVPTW)q2PBv%sn8p*I8B
zdU*MRNW>>=_>9(|a7XP=fYG+`@wx)X)IDT|_IO?5p6Z+Q#kPXC8afatxq4{ls2&QA
z=;77)ca0t-DLwSO9_o!AnWkw^J<gnk;Owu}!<jST4sf_e=k@fujuU&YYlMIvsXh)B
z{d(wSlD_zSO$)hBbnHB#1?*whiQy~2KzS&JGpr1=!_~*bt`XZ~#KcNwT9nwkMONYJ
z(OUhYNy3(ZJ=*zkJpQj+dJ|S!NtTvbEcI9!E(*Jj!(p?Jg-o`#&#<UTZR;yz|0}k>
zj5<lO^-7Da4_Fy4lwNiGkG_Oke`j@lYEui$rpi!3h=kkAMw}YLJ*!)^Lt1M?_2@wx
zZVuB2Rlg5yjIiN$9o);~=rXP!-%SmDxSsHOxNA|N)5L-Z91R_%_F?PMZD=KfnY!(m
zZV!Mfl$%hcqwYgT^w2TEcTDp2>Gpck7MZ+}@(tyRFga;RKx4lwO2?=zFkX~pxQ=7F
z*LA{%PEC)9R?&Zu?B-T+A3B?m>v+e`<07t)56>q}qTL(@mngg+9gfsbg^yI)C=u$S
zM9TPm@<UThIMLFgpK58UiBSuRaufR!>L)1}W`soxi^|6HS8FJwu4VmS%e-u=B@$C>
zfBPTSqEP{iF!>s`vO=!0j-6w|n`6ULi&1mJ8A5`_APTHSpG6{_`$Tm{MWk|d4hVIo
zZYtS__c%XODKpKb{HME0+ZPg<Oh8u|>!7kG_m+SBe1b=Gr(4jj;TY~H$64)MDMNwD
zL)OYdDNWK(TFI&F@(ZJ;y8Ne0ImKFnE6|Ig1LZcx^-(s(QckW9F36P6W@+F*OqPE3
z2GwQ_h6^wri9Vj2)We^%SeM#SfB)cL%KjhLvd`k|?L+G*AhM@jKy82qXVHyBpF=(=
zJCuOgfPcECuCv;)-V%(JR)#N;p*?z}tFRCjA}aOBnHeI)?6ZaG3j!F)4ZA0&v-{BB
zO^)Lc$NtvUBzoi^jW)95h}bWc>Y`JWCZoqtQun2h%3`TEkxlXlA!4N0HHIv-;e{wc
zG+aHV*ZfxB{a7Xjg7Bm+n&*+qNcMLz(3@*v6|{A@#%y61Bxsb4>f!cWG)R5%WBy+y
z=fl>yMh~n0Y&XW1bUYX|$!XDzC*iR(&*GEtpaeqC<n%mp08>WYhZ(xrsNKi+gQSNZ
zsmDyq(z)u9JMINmus@`WoPPhleh=ozcVn8NhdPOh)Q6aFBh`)6(as)x+JL-SvK*5v
zA4!%z!P3txTP4e&WGTVq6<VS)RUv7kGIbRy0yK@ZMC=PBEmx*qm$W>Ynj&elWXgvi
zf?T0Y*(9w<rnaKb15KBy*mO~%^)hu#(l*P~ZzZiorm`?1K(0-u9+tGdGUb%CE}8m~
zr0tifg_3qarf!wAZkgIAX+1I(l(asXs>3Lb{Q6~TlcYsu>V%|?$kZxHqvenuv9J3`
z$W4%`Ig*wqQ->st7FOUqN7887h17b?J&@lbnfe%04Wx9L@=F>m;K2Eoq-~a|TP3Yt
zrurnUO{Q)ab>wP?&_jaY!h*}bNYsw&uA{E~6fr-LlmoaO5xQLW9(8pSB_t{6hU_0o
z%CV!aK2T%?qB0OB!#C<-aifQGL20MRk<+Ezzu{KViYDlx&ix=B?L2@_OyGo&<H4fb
zy`4WLq3|8l7LrvIj>GWK834ZH5&F~u6T%`nJWcNq3i8Z3boMwpn^APpbZA~{Uenw+
zqPoJ+PMRNOUw=9ZrlX9*=TJ`*ne-&u8u}x9ZzVuDGh?G%t6}zt72Tj7s_y5$sIV|s
z>*yKRF*t^)7WHdk*Pw3e)0fi&3CzlAIX+wfY(I#hToVVRbcpG44AevD-*aWhz?pR%
zchV9v6g+|aqM_9zn08<Wqeu4gNHD6~jtDboZvUI;Qk1I8=&K89s!PU(ss}8+N_h1E
z4?18F%h9RuRMKpBN;o(|Y~kubnL}@s!YZXVYyPUdiB+#MIaECoT8$;=ahfYdZlSVK
zE$FtV^@x8$xEjR(lAKG(7sv}JLK{@6B7EA{w5a*t<ZDtT3iBC!O_pO(g#}YY$L<d;
z5rn^=c{gEf$MJv4-%~z=ziZR^`~7zef6MTIugO9<l^1jHePw2sQ8YO)ik%482rnAx
z(Rh#-jaNaM@ev)(5#qPddW!0#Pb>xd#8NQQRRp&YGex*`#^^y*BKjxck%wTJ@Tw7o
zGHbC`t%SzTo?yA-LHiBmnzpCMvFAr5Du}e~rAdy_@Sa~yq)8c=8mt62rUv6NlQ&Nd
zE=Fd<wa|94&=&ZL)I`}NY5K9ybS5;Z^>q^2o5<)@x{WOO879-lbn57Fb0v%7ph22E
z-bJPh-EdnM<xUBjS^NWIf(mBd4x+Y9W}v2$Sf5W~Eke^hW@)n!JBF#xdeR?47t^tG
zPzz>ti`}^<)Fu2d1Lp7P2~0-?4#I6`iqd2cW8Q6c+uw(&gLNGXtI9kkyXfEHnNi5~
zQpe7hsAqM(6gwAM!8jPMyqNey27kDn!hjnhZPI*-Mh+I;84)Q~I(jC+YRuh`uaJ&Z
zQcGgNURNIifijDRY4hU}>>4;aZ%2nOP?ed2RqT9i!;=!W(y_;f7DARbDbAwIkgI?9
z&VJfoaO{cOG)*OLs>#4i)73vG10+&^^BN#Xue2wX#bM+$0KYzarSR)C__Q0h;cE1r
z*>_`_Zg%VU-e$LQ@ubbdXRv{Cb#%UgLdw3EX0pe)@BI;G9!ZY>p0Z3xhl72hBPRad
z=(jN4fJuv`N%O<5KDJyIhL#2}bD}bH!Rf+GUebIRgTJap-m=bTPc*zK>->E363Rza
zBm6zy%3(`3&NU#m6uBZ}e-xv4TBoAR5Zdi6SHRxLf{ydZiEP~lScjr*0*U&D+y6^d
zDCjIOi~3lw%B*T4RK>1>0_e*T`U2;J`@>So?#RJB)Pq{=Tp;D51rQOHVsvuww{SrR
zHk^{`=Mx#L9624MamSuFfr<^%#E4=TVVJJxG_?lmvqv!LnT0mH5{7zV9XDT)?5oMx
zNcQ)!DmKU2!l=ju9F<OCZ>Tr^+n5(wL&fxD6<Jb6t3}28Z+%8PxsmFjF6wq-+c9PB
zN;w1YK%>#+JH^BUemJ-pQpUdBM$VO@IP-l9dDG6++2prg(R9$JEn`R#6k=mL*oSG5
zwOj0U4Z-!)ka@$A=6!JkL)~%5XhtBbV{}~LhS-lKL2NCrrgi|eV*Yas^I)~{I02KE
z*hA<$!qr2>BBS7wY>EQ8H7Pjm1P91T+tjZlm>hdrNCi|iE5@U!)orUt3T-g-Lg+oT
zfZce)ZnS`}{sm#XM6#nepBl+ty_|%_m^hd8M6$bucw*Bck2H*;ln92&U_m@l;M<5B
zfse*)1pYlT=jZ~6P%&kGa8@u+kGMt-QkP{^-fh_P89qng$C>flfEP|c-=1PW_fICb
zVq@+2u$P!IbI8Q}Q#hCXe}<KDSvWWZ9vU(FA3~1gr05!2t&q!)gk3|C7Id+qGeafz
zMi+uMY)c)Uj}4i^vyui^L{kr<sk=7$p$kUU?y1*jb!Q>N*tfW+)9rep6ZyLad7O$B
zh$>n=i2S=@4>XA&dIs50_?;%mV&dG5!O!s^^=F+UR0tSv?28AtBRPl;V0Ood4Hfk@
z)S1U+^a0RrFGUiyeAYQs{zNU$M@Ce1RFhFd@6h^AR>3jzmii{(Rqs_tgXN>J4mtft
zNm5R)BZ-_I#eoBJPRIT%J&uwNayLLmCv`qb`vlVNfp*bF#MY4)I$VQ=9kfmqLPbtI
z$#Zlb!DJ`;+8gnBFI+;|uBOFQ&q0xpuG~!dV!{ypHP~oQ5X=HgzrNVj6TB36-I#BN
z?H7{K;cEC_Hm380^*o$pLq#{*qZWIPGD-40x%z{Z$^rH_a0@*M;p~YP2lOI;$VSnj
zlebYO_@_6z>qKgAkBE*<PNJ&dkKrohbZa7~wnR>ca2Chx>Wzt<D8$9k6FNOH^q~E`
z#5?$~HEB8f#-CJther3h#@cs|Wd%;dXErAIWHF0%4C48v`H`dOQ!#}gPs7ePS72&H
zq3GE2%sBFh{V8CO86quvhQ-`pBG1^5!R9#Z`ZGLoBf4!0^9O;7{tZOh10b4QKRAA^
zIey(UQ*&xG!OKEmL~Svz$R*MB*d2TRghtmfYIodxCTJa_nT|b61t!yR^M~TbcKyVT
zXoi@<#ej&FQkbEF4nwo3nl}eU=!~K*k7|J&&_?x(XwBvt8O|k6s=xh`38SdW9U<m{
z4+e`xR9pzch={SHK#17j7@LJ@GBk)7kN%X@h=&2IMNh>Y!R;6*L$0BYokN&~-U_?W
zUBzC7wa9=@eW9@@GVoe5co{QXBLiJzKsKIqJ=Slm$K*3AUXI=JI+^F{H#&*y5T3#>
zjy)4$4rp*wkB#a-)^8Jt=;7(?$bBS@XVEMWCbY?!D9imtma=>s2(z=Mo6E98SVIOT
zIqO_(^s%#O4muROPa2Z2`r-FPF%qWE5ghi5C^w91*tj=FwO$NyRKad!7Q0jxX*M_r
z`_yZuA_Xc@gptcc5onMcz%8l6xM-;RKC8>Mdh&}_o4!q1gza~-l8a1AT3N|6$UU|n
z1mxQ$@^$QqNU_Z<M(4fM%(R}x{taT{xo)Z{LGPC-TQMcbCmoUORYEK=SlFq|2zv}e
zdtHBS-}z@P@CBryj25mK?;V|sF?$?7y=!=U*KlSR22t4854}8jc!IKkU(PVu_Hi!Z
zdZVL%v`*HXH2Vu-@TQg)?#gwF=-2PUe*LyZP`oRl_*zy>hu>78?`6f`C&hLUVt3#}
zDiizun3T=#>xkMYFp&lA9`R#@%r4r2bB$sjYZ!+JPRK{Y(NNNJ21u+vq3=FI4<163
z_IBV|H0?zRV~ytuw5EmeG99TD?!$JKcvyi=yh(dS>ra~Sj-oFe35n-^u#1a*To!u)
zioF;6f$Yx!Zpoi?7E=}bS@C4OH+o=zi#<FKHb4`X`8Yi;nT>u}7-JNfo}8ecvOJNe
zDzMn&EEIFmggv9n410!fYqjSpwkMD5p%X@iJwg-8X|-np9)E}@IiJZMI;@TPV8WjI
zggsR$?0Fe$Fp9Ume}FxxI&GLbQ1Xw^WVI)aA-T#iCf{O45~K=xYpLOo7ja7tK|?Ys
z=xc1icrt+Ea=6K?MAb`3)V!o5ZcWd*$UDewyUc9{I7cu}hV5?3Gm<@7WRqyT`m4we
zxh2jDS<686p~`T6q704{Wq2I3A#&nMQYtD{l|d*;ltCngd%KL=-H#>JFv{@265+8#
z8NLey%FrybNt9vFEB{p)s18*b+)^ub$XAj+OFiUs8FrCU5eRi$4?;<z3?eDZpl*$*
zfbpY?EylkF1dM+k8*1iRS#N(z<FStiCHG4uv@!I3+=@-@>^m(QI-$WFD$9B272~fq
z>@id1-YZ(}E!1mb93910zvy&aCqkLGNY<`AK{NUW^sBAsFiDDm6cSu10!P~Y(IQcJ
zvimLEO1p>Azne?`-0uy$MGz>vF)vHlEdxjF8I#>IT7=yqTFiFOqCk~xR<N1umSVzg
z;!11x%7oo>4ZAP1*gZL6x2Sk!H|7G`@K@Oa87zj~GD50HF*bzGyotRzfub_e$(S9j
zA_|TsF0;YAkKa2oO$$A;!SNbqPY+ZASQnX*&MrahjXsSh2zaK26rO3}QwuD@GcDYp
zm2P^I<|-J9>?^+nLn7I=Se2S9=;D_VnpCRTW2lp(_8DLkUxd-3_x(<+MDOU?YtJR&
zu>JLgB;45s-MyWS_!NRS;xjCg=!w<dd$^N~rWs`zGZk&w97pHl(0o!pnng<9J$HT<
zUYOF3OomGwhdZyuO~>f<!PAf0J+RU?JlApf4no3goy?A8-->mRx#;syK3Vi$F^v_<
zFgRi+dk5*IxsK4={s<}3f_KHlH2h>m#rd{kk&Re+IgkVU>!|&i1t^o=@d$ZO3%X9`
z3F^zg33eDgh7r+h^p2O5(PzQv4p|FQ*V0Z37ssvie7m=^g|fjFD@65lh$KB|9f^Me
zlX{~=FTym;fMDKUa1Kw>BX<Z|Sfo*LN3jHJMsDIUY$S<x46ebl45t9`*O#;^3;x>i
zpvYuTPtYFw6&0BktAG`rc^Hp!lVUbF6J`GXrBv7>2dPU|lbWf*0lm=|Ves%)Bd|MZ
zp)1x_UxQHi4k~U44*+R9Y;-)S;nmfZkV7w94lcPvk|pb$zQ_fCP$N2s+r%!_I&5Wy
zI|tw=+VjJ}bO+TKyY4U^8I$hl&~K4H?L+(k-iH2nE)l)q`Y?LxPtfx8aObhhaDyF&
z&YsKOjThrYWVrLLsjuO#2Y20<!Cpcgn2Q@~pg)9$byvguub9ohmGbF$f+Au!7|1&`
zaZuiAlf2Ofz$Q8n>hR4Esm}!ADbsmlI$vD8t}L?rnz@=*e06E)<>Knn(BF%zibG@7
zdSp%+&}++Pe@ti8qZKb8^CKUR3rwB&2R<)d7J9EN^lnM$t>XBk*Y%FaZTjLr2H&Rh
z>(^{7-cY=;cvG?4e5RT5qlQmVoO?G;x|7rY|GRAXj^LDQF1cjsyr!A8&MDV48L5H`
zTTRI<)4gD8ovsy3*S2i;Y8Pp9v<tP`V2f7k_qAxP+dM6r-xtt)*L(e1AXsy)*3y6v
zzpt@TE70icomvgP)Y;;x@j?pU>0F{M)i!9ew2CXWm22G<SG(3+URJSAD>2=#G2Mfw
zy1XR8lt_Rpk<eYmmF~-{%gVHp(v?;6Ze_*l%F;5IOq3U|cDbu6D%@oi<*T&P@~ex>
zN=w{ptBR{!NL9Jkloyw2)#X=~SF9^{ud7&7qE$Cv+w9xcOi>~jD%ZHGG}fuD)vK#Y
zz^av3l)He1R?0zJdsTG>G?r9U$(zdJHLh|9t#*}HX=SD5E_IKus|LKz<<6O{S@?dd
zx-X#Qnqadt*y{B=xB2|FOPIso=$wh+)79p!S>p6G;tR8L@U>Xy^qHu+=~>o#lx*bv
zBrb_2wR619wa!^6QT3Yg*-Gt}U_)b|p?MB5h-@W4*`jdHSu2an${-;w#L_&((h5(l
zvo*Ly7NeoriErt8{VjfPz}e)h^->8CPg&YZUsFp%qu1$i!t#dZtqF|Cum+`)r7bn&
z6CN<<$2BAT<Mf~)^lfBkz~^l7_*<dB)!7_u+T!&?n~dv3P6nY7&P?Q!ghr|6H?hq+
z)Wc-u=5p^gnQODBiE2;buL}ACUN}LNYl(qo|5Q_Xn(%#P;<?VuI!!pHq@lIO1D7{6
z<L3vw&Kh4+leaklAE%N>89}V~wl=gX&LkztDpJ)D7p;u)s`WK{3$oDqoYZ2SMuQTl
z7O(eOce5F}X07wn$d##((AeT@G0QTBqL|bq6B$E9QkP6*3=v65u(e*a1(H$s#G>vE
zzq$N=pC4Xz*7^K_dfYSwj9@feD;l}8uF<m<v>M?`zl?5+9{Mgkq84iE5XFWfr|(*B
z4GI1=Ybw?t>Ycu3r>KsZwL-6!wZ_}(3;Jukt<=ELwo#m!wd*c+q9_8Q7y{ONJuSFf
zaj~<-@7wD4G|5D5Lrnm8ZCP2`itSWyxNK9#Egi%x3#(<V?CE%X5@u!_o{7iDfUABs
z9$$v^F2D_dv!9E{cL4qla35g%^YQp0z-7OQ#|HpofMbAleerlcX5>!*E(81ka0B2h
z49PnHe+IY@unXh+A;2Y=<_rKn1UN=%%-r%Zk9rSq8Q?5TMK=I$0^9+36mTEl+kl4v
zbFdB=0Gtmv26#1KK4u!b0G9!NjHU7hz>Bc#-vM|R;6A{Y01p9Pi7kx*z&ioQ05h@Y
zlaK9z62N7E4+Cxhd>wEH;8(FVw-0bOHWm*7)&dRy-Uc`ZxEc>$@-eyj9^f*-<5<XS
z0DKltu6F>w2e=RLN}S(01o&kvf(8Je2OI<3gfn3Im^!`%xD4<f9BbPE=)=Tw2jIo;
zK^|}j@DSj>_aP6s`UK<we~u01e9YwYajv2ka1sZk?S?g)tu5C!<;?LDx=_D_&&U7z
zr{Zx;olxNMSj%bJ4E$rtsTCfJ$8*7_<>X$TlXr#VjBOLzwad<1df_EArUNTvHvmpV
z++0YA;+))XWUS0S&5I0}z5{Ry=sz>lGyYvLP~Q9S|L>sxJc)j{K|ciiJjCNYN%Wr>
z^a0=xflhoz{u#eE=wm>yNBsUGiGIMK=c9aYg1$3}-e%C3fxZIqzA1_R6@$J3^mfqa
zo9Ru0Ec~+r^xIED-v|1SLBGi?pRv=>e+cx`(9ZsnME{dP9{~MX(9`*M4D_qfE_Wr#
z-(bk+qrE-=`tBt94uif7^mEXD#ROf|Z^r!weFNyf1RcxNg#WJ-WLbXDsUJv3-v|1u
zpx2w_GinU|hd`f>{(@rCs9$$N{{ZM0oP<6G`h_Q<=cB(VI0=0j=<`9JZO*?ok^ctJ
zmx6vHpkd#*?c<0eAE+I`e;fT+fmyyGA-@mwyFqU<(=+M?1IZr({RH)cX8N{-`~c{=
z=m)o%=^1`Qehl=jpqC}lR~htt^q1cRJzf6GKpzCX$SnW$ME)B<*U-<V%YO&x>p-7j
zmN(VkKG3fL{p)6W#`T7Mhd_T2^xq`WpEl?NpnI|5MdO#@e<?2fKL&a`=ogvkbqV|P
z(cgzbKMX!Ye%wQu#6kXF2KsFD`&XIeGs=woH-P?C(902L3Hj0tCBFmoy%-k;ljwgi
z==(s|@v!&;vwly)zC)mwgZ`By`>G8420*_V<IDSI`HXiB`^G@0Q#D;l^sqtC$9VPh
zN$AT!UxI^6p(Ob|hWrN5e+2pyN%Thz`VP=nVZ2L6-v|0I=#M1HcN_ADK;Mg#Y3cf(
z0nnXqr>BpB-VOSFN&0_o=+DP^TRM!dEGPN5Quwz7GRr{Ui*eXX@|Wl2-j-3CllR}o
zxpJJ5OjpjVTkRz|h2J<$&so$lepOCUbIzjToWkOqSu1j!D{}Hy<m9f%nLvA`+8*e+
z7kW?~r>;{TIOTy;9ysNJQyw_wfm0qh<$+TkIOTy;9ysNJQy%z#!UO8}Ui&6WbFhUd
zu16W3$xtk8agP&e;u^(qR=PeXf$=-CQ#eg~!gQS{fu?>>miAfbQuM!n68BNM2YXj^
zsWtN~tmWxqpsC+O7Y{OkU(AN$Je0Wd7}A+y^Tld4twmyKYlg0NmRI}bSh9=jT!tDe
zR`@92D7*7mF}B>rrSktMF3SU?VEu&Ccd>k&)5^~yoZiB8Y~u@mD8I4#|KmXYuDmtl
zh2p6JwnrFV&9IK)^$fqk@LLRj!tg<cM;X4%@GlHMV0aqG<2ej3U}&}HK#LV4)3+8$
zcpJm-GQ6AN{S12;KF9D?hC>YBW%v<8^?SbR_j}dv^=g)DQL#j<V5okNSFx$z;a$)4
zEezG~>iRjYem8g3%9Tr;v+!&0vz_zi70fFrREp9-8}OOh-^9@>GYhq6`VDE?i>Avd
zKIL!XrsDrR=&A6tfX~o!w9S@!p=U#c@3P>RGhX#GNQ!GMK5ghlj$J3yWH()I{M+!<
zO7$B8iH~pKpY*GKOW|+FjZHh-=!X>kKHQ|TpZYh_Gn>xi<08B1>cv0d*D_u_YXR;#
z#(&KCpCe7zi})x0pPns}ns|1F+gBK0#U0EcN!I?v_+0L&e!=*682<?4cQT&#dP)D1
zb0k7Mo5JmfjK7QV^CelMS9TEp(-!=A#*Z=nCg#s!{Egi4{e|(98DGmCoAN_G<8!#<
z-^KjrGd{xj-He~D__;&tW;~ttBRh{Wej(!*Fn-K}U(WdXJiyd5e+lEi!}uADFK7H=
z3;wH&f5U>WWBh46Kq)=VjK7fa;@J@L2mqfdu66-$)AF<)?w3^ebW0lkZ>GWT2cG<M
z+jLnVWzR2Je-XDAHSXNQ_|1%0{R4fqm-G~zFZGCLE4Y1}@qR9lc%}jT9~j>w9-`oR
z5D%DdGk(8#xP|9%Ql0i!;8XeG!!-DG{Rw^3-lm<Ul~u4}6G)}sA?!N)Q~iTe=$Wip
z$FJGUuYT`dsb41W6E*d|5rwZ1deA6T1u|h8`ppaty=boDl+X+Qv*70uo)@WkOi<vH
zc`0>!8vIXKPu_GXBc8S4_5t9X5|#A%3hZ$r-u7GUd?AhgA=bZ$1B$Czdp`~TY0#hQ
zeGoMN$wj_h9B;~~slbyTrg2<d#RMPe&v0mJ-l+J$$ozP9khoO;FjwFeR|2j`gWs42
z-@^L)r%4?}tZFyo@1HIaUuS$Ijh_9?|1gd_)AfV|+TCgRpG<@QJ@Di=Ykdu|{$1P=
zD*eN0^w7_sI@ty@$jMCoUXN+OPt3^Etn;OUH2g&ZpQHVd4u|0Cl0dtH@ij9fLOe^w
z?bX0fq()IB@kolx%lv0q^!OOx&h5p^{JR966DDvc^B?8@M?511{cgrz%k|sDGE)$5
zxtLe<S>lt<Y*T!8TjK4H?Ek`vQo&r-^BD6_W&LH0r)SZmr_m`9%NYMQ<3B!MB9=1#
z1K`OXYkSE+M?rd~ULqN3yr(OR@za*bw0LHTTL<G`m@4t?4(&XFmpJq1#mqmS<2J;^
zg^Z809_6>o8Q-#4GTz7h<!SVLfTy^!ma7SPC(D|_&8+_b6IK8AO~%vLKj?Zy0_{7%
za}#BZ1P?I(S{|3hnGBGg1)ln=r?}n`2IBg?;OB%1{FV9Ddmz;MPV;POnA41-ngum@
zrwbD9fM=^l=K_JK@dsK1LHr_ijh1)~j62ZeuAvvfv_hcP=ib`r+u~_-*9Lt4R<|eE
zrs1$=OQRPDJ281r$w4owX>fb|e$RF{4sQDKiX5Eh^SW^ux{2PYV@kQnl4RC;Hy_Gv
zC9_)Hbox@;=JwRq;uB|X@!1q?#Al5URuazJ)S&L^l=e2aIHwH)oz&jurnB1H+~TzM
zHn%vhz0EC7Y!eA*w!tqr#K~=_^#dbMZ-YYTw~=&<Gpv%;xZi?T1GP4KTI+!qXH)^{
zz<6Cfz5U1Mhy4Q5$=O!I;^jcV;l>|q4m31ToisG#1g-Fbrp^;f_SSmeHgUX|`0K@)
zT$yn#UdlsfiA{JqGmN(pH8&CtLN(VyGrboG!0o<#4IKn`m6y2j9-m}~*J|#PuizAS
z>B?jZbol8dMp&o0T{>&fOV()aRb>?`ip$&;mtVftRpqWKUV+o*U=;5os%Z_1sz(~-
zHog6*NWGMZ-Z}*9>D@|6IG9aQg+r$9mLM`d$%}~~o<bV$TvG1i*D@vP7q4wf!nnP)
zo`8q^MG+|C42NmSIK0IvnNxbycn6e0yp*`{mL>y1r8AX8zR3v)gsxjuk$gE+5<dkv
zzEtq3H##LTi8o9oVbJbizI;8ChIUCh_+?QRzNFVU!C<_&%ED3G>f->Tw^x~+i#JD+
zZgD0Wu}!DqWkKAf704T}!XjL)YNhUGRSt>-;a6nXTq9p?m6R*If@8io72Jx@X%<aJ
z1%Tg+Y_9i;oT*B{N@s%+AT8U`b@<Rb$xtyUhNCG8=!*p~V+%CPD29hcGZ*j4s;ft2
zx~YZ9H+>};Rb!M@<*95Tim*jwl_cbL<Gop`by3`=d`p&6NYPEoM3tN0>6N5YsZc$k
zaJuM0WM@o0v*|rzhU_JXNP44~fuM-g3R<@}1w2~-QTqbct2_C%1+72~5L=sr1*nu3
zuOBZpOQ5JXuAS3R%c$ZNrE_QqDIoTG>ii07w>KjT2?Ksf!FOX?>Ah!yjT3Ir{N6?n
z3GiJ@V?Zkqkx~%ww&9+J4$yp}bryK*d9bLjg{(?R2{~#=33U&}9t;M^6+JqA6o?F@
zGK7RyfY_mL8kk1Tf9;l*-8THIaarx7D#*jRp`3Wl7fq{Zt5nG^!n}<x1&c%~@nMYT
zjH2naS-y?s6`YX}6?d4nC0(URndQ|!nu5+GZdw~BU+a+k0DHX3ezotdAnmKsb(#dm
zJ~<~f4{m5{TFI+@aRrN*KsJ)^RQc6DK?879WF@cm*%eg#>R=I<)&DfDqCIRSulB7K
zEMz%lzv5HyM$l<bT&2~%xPp}|Z?&J%S_C)bQzftV<rU21`c(N_%YP@!uTTofnRGF1
z=K_=bx%jur{{T2*QTl1gBQA!#t;EPr*Z)3H%<@i_Q&612H>7FJATI^)w#cjXih@th
zF$v>V$tmnFEb?kSu3)xeWN3}w`&nN3Un^ophA&_~ZN8NM6z*Z%Q2CX-+ILY<z28;w
zTl0U)BHz7Aaw@3eNXc9Ce-VTn{BxKX`^D-#uvUJRR`7MmI!y9ve|lsikhm0|OeN9^
zKMVrJj>=!{Q>pj*4w7?lQT)@T<WxPL0FGFcyn3Hrzni%6{TT_2PbIJ5KR_|d8~a<E
zrN~`|q`Xmb3T8mqEU)%4_OtwmMc!#iPk=D#QugoXby}B4G8S6+otAVq=Wpdx^1MB7
zNRh2{nW2h3Ns*riIREwB570P7Yj;&{)qkE2oU&a?@@JET8Ait-(<)!ZI}taj<TF|&
L$2k@OOH%t!eIClr

delta 9172
zcmZu%3sjWV+TQcQpd!dc5ac3P<$e)G5g|dP#sb9>wK5%4)XK~dO)<}CMmmjC*3L5X
z{8_nHrdArQj&VvSkEtC=@sgpLd3Po~g{H~xZ_WR_d+!g%S!b`syzl$Gx4qwe`Sv%%
z+FJ(4QN!v~tz_z}>8JhkQ<!M^DLmAWowp-EiaKS%QZ|72;m=tiW#?l$<+X;C5QVlY
zwEZ!@*>Esnc9}Htrganzt&YE?RqDPT5pQcRhsBO|2RxKAs^I44ed#ARynCcIeE*}3
z>wRjp-qq5%t0ZhbXb9`g9Mz3ceuoSe)dgK0A1dwIyzrI~iElDXs@v<b!wX+nBJK8j
z;fodCqHv2IXoXU=dO2`~pYg)qQMl6!->UF7FZ>IIx8IFh*j}YzUWIB=cvmm{q{4%}
z@XHF1^uli{Jl+fUDP?FD#!|f$0Ybr8t{0x5@B%M9L*XS}_yC2Qz3?K1&mtW8nLY)j
zN-@{V;Q@s&^uixh_);(YQH8Jc!e=SGbqbAKZV-!)<i+P14~4%6?)1O|J@7UUyr&1=
z?tzDS;2TtjjKF$H+#-m>LlNQO5NVb|7Z8I79`Au`9(bw;?(2c)df=2?Zv|$VpHTuj
zFZ5PomK@>qr#F*Xa)jyAMo6WZKBa9p$%@a3W+{+;cgc!RvsnsVD8D+x1TsrkK<Xh7
z`7zf65Awhldf@8p6WXO7xH>unzS0Ayqo!k;SDPE32zbxOGKMizgQHG!x0sgi>H06>
z<jy|_*xmO6K7-;)z>z$QbgnaQw7w@vrWtaz2>A%fG&3%TkpE4x56Rnvyqjd2A=d^W
zH<3&;V{xq(z^4SzjJTExc{9mWMb}&*zeh67fXgi8btF^eU6n$9jbs{}t3=2zkxVn-
z$`$hSBvavC@j|XA8EZR=xq<~yO90J)iwXIOF+4dWG4FU^)W;q;MUdi~@hD69^P?HN
zvD#!WPOBuPF_FlS_PTJB%{X~9Ul<b86~RpQ{Oe=*`j8mIX#Pb=pL9TM{(vge^5RhV
zGn4gVU7*QU{5b@7IK!uN8WQg{?is@kp*cJvJd9f+W3}g_xji&atB&R$hbC&z$MT?F
zeYH>i<mSjCtu=}d?ir{3BZ^P#nXDa;5jr2COUjI5%vyG1`H~x~&S)#UapeJ%y{gS*
zD{D1bkDILfoZX|iZ&;F+A-oI|`IxYwTD3o46}G^C3<_zo2Jc{uj|q+A8Q}%m{4TsE
zJW-q8ja$RBwcl=Y|K9mpTqJk&j_iH<0UB*!bUJw*L~J->IQwq%YrP}1Ik!b$-;Cg<
zs5osw1b;j#y;qWO$)A%(F3LVg*yn%#zi#)p|EfZLOv|qZo2*OPQP#8fli}A*G^0Cd
z-J$H+(%Bh)+wJDt3wkEOZp(kM^Hp{~BQV(op$P3eX|YlnwsheMF}?Z0=x*8y!FJzC
z>ylK{luYZE<Y6R-TY^3}{yK`W7aVnz@g!L4SrCl$o()Tt4n2^Ok~KlcIx>EQWiBeD
zM!D>&10yn7zcT&hc276ieEY&3a#?$ShsnNXHBe#xMV5dqKm2amg5h6DA)^LTLuw{s
zZCDGkw_yW54FC^FlTFg(J87~_nCws{Tcn9Yn)Jd7M3ntf;!@WtrAKKn)`l|{DK3)A
zHYvHJvRz73q^>JPvl|y-e&9&k3{siY(JqA4_5Xw}RZ1CBS0JTLQb+rFZ-WV+G$j8N
zoS=wCyB=cR9pOJwN^SjwZkCkZl)AZ6Iw5prOW`!=PjV_-33jhU*Mc1{(G6ffm*_UI
zJ0-dU?0XWm><8a0;TDr!PJp#xB8GnDZzh{yOtxTX%v24z*-U?c)paFZP1c5`Q0{G5
ziBE%41bto-yt2VcPPR3)7VZv_i{sSVFzzo@ZuwW^pk{SlZIF>R!L(eYjTDji2XV<p
z*G=pq{#V@l+PgRT`|%63Z*TDEgi(H{Z@As7NfF7PPk2S^e}nf-T%bMtJGUifrdpTW
zS-#{>;DT-#;f^H6uJp2%-7(q2zM=IC?12#=HeZczPptL5c3o~KUYHc3eL8|yBqe11
zF`Nv-H0+DTWNQyhMHtURVLH67Ove_QK7zlU6sw&Y&YO~A6YQOip~5l$Kq5J+qv5Y>
zygli|l1Z?_wo5eGs?H$ANOH0V1_;Z}b0_N>Rj_QoZFNa*Ji1f1U(Ugh5Pmj!qxNGE
zU(vTV#kW+%N<f^p62@#*rx0p?{N24h{u__)S74aWAMTggZ5GxsI{r)vf4N_5`Y7Eg
zKV3Mfp631LcH632I<wk)@bCM@YftvzxB6AZZW=~i&fgeEd6diRzlykT4C9ZdWR#m>
zAv%*k%hPBSj9g=}>d=FGVWLi-Jg{{7M6%A)=RWD@obf9^lM<<2?#^$g%&`3Zo{rk#
zDPU}XhygqLkbh_G=KM$04i=U1GzN6ieZ*CRorJuP+#O=L4Dq^GhzuFRX)E!y?lxIl
zOa_O^(87OCEz;h)%45?Kd#t%Ck~ry1?RtY(q`hKT$A3yo(57~OEj>vq?#}zB$M^fB
z2wkI6S`S;Vqh{~LP*+vWUb}*F6yn(Af6I%Q5GqW?vYSb)J+M_6caE!)?AuW!45I=j
zs(eGp8s(!KlYV#~5U%^2PhH_B(vu9;{Ll1=_))jynzEKTP4)`$7;U24h^(Enkq^vB
z)qc9kCubzbCX2m}Rrj^6?1Fu+uNZ`Q?qaz7os4Mhwu^t6QKR|%!jm#fhrU(VF*CHP
zmqEk`@}l+V;_!Dq;gSo>Ue>k~iK!IMUHqNQh>~1vb!*wN<x7sSx*4{zW3FAO3&xpq
zciadW_vfg)<1!cjBXgqG%gHOVV#?M!F-{E9`P*frV-1e^{#XXBrXgjH`2)f2u<k_{
zrw&03Ta`nfnnDp%O--4TZ_ny8EE_g*uNtGIIVu;}-z&QtX%N<ll|lnU$Hl<L-ryTD
zdyU=wd*{f;VPsdvVOV<#Is$J4i+)hxQ@!sV)|$@19S6XF{P_IrzFO2}zCODwCl=1j
z+YB!_f?hb_Lvf4-84ibf;7G4<moD+(oM<iWGSAAX*J3a64|9^V){FdLPDF0xV9}v;
zjH6AI=dVGkTWaN+BB^hxJZCTR@ZA2n|9}n3)9LhgFQ-57Uew{V^deu7Tcqv2z(30^
zdhpl<F-h&F<xARG&<i#y8g3b;3@lD-SsQ9}CEqLhVF031s!PK?qkndR5AQ$5GL3Ao
z8St3v*bJBP+D0qwO{8=U#PrZ)?Zkyjpa##5)KwyJs!U85qc9bY-tY9iwM&IFkt5bs
z$4XAQ?&iUH;Z=tQ%06UxIC16VLw(o)1@dfz9nG8_B66)&Zs8toE0tUGd0w9vo$MY!
zmg0;UN7nYhnZls+j3_?OzsMVy5iCNByWJh~K}EWIgpE~UbI+^C-<ZMO^Mm7Ih|Q9Z
zuKg2E>UjA;`FkEO$IwTr=#S@kmqBHj71BDH77s2BHsb*Du?Jd&S!d^B&UvJZ&+SZi
zE3YHnd9dE6S(Zu{agHBAI;*tqO!qYT;JgeY*Uoek&vvAXNE^_ZBJRJWcv1N7b3SyI
zzcToq%;x^0L!Bu;1%MO<UMb!_BU1EESs@+hNjwj%t?CA>4PMp{pW#CaUQIcKk)ya|
z`%kdawyNjdoqzXdehsz}owhz5wjYMxZR<MCKOC}o_6*z^tPOQRr*XHUPgYl86C!5n
z<6mgI?MBLo95E95ZqBn<>@;rZbac6P;~?2<Y|jS23xCYn@RQr!;0RjdSZTZf6fqjJ
z`L4o^>G_ZhS8{@Ou6YvafX9&99@rjycWmQN+&;7_>LUS*_qOw=s5=b{;kMWKP8Pp2
zG^_Vayc)oHmX~woDL%aDUTw#Z{H3B~ZTKm^t!RQ}0&akJ4RwBBq@R~bdB1L=cO8AV
z+VD<8OZ9^vac7&^QIGHGXcY(DJ#ezEnTwuS51Yh8db)JkAqF1@KWvCZSc!wS&L36c
zFBZpWzdQNH;^fdBClLwdX?Pd6SXh3Y!A};K3|oNRKVdu``QP*q9gxw?WW0P2?U5=N
zP-p2yP4DalY3sC}q_@ryXHL*t<c#c~xEH7|;%kiGgZkVqoltHsruU4}@uRHAORGj%
zZ<dZLwce>R*|TB*KUALfC*C`|I^#|>esa%PL!)_2OPAM53XAKi>uQQ0GF6QmIcCCW
ze>N|XWhb(!i)vT~%VO!QkPT(otZvcV8aAz#&6`_2t%glv^dd)%+e$V!7L-O9`1KKC
zjnjwkFz`7e>-nXT*DZ6gaOlPEvwyqY8^P~6;C8P9{i@mRZU&wCo!fmCwC6#$J3zyD
zK{G+?54qjtpeZeG_iWHjpsPU5hu!Y2pl^USgEoU+1#JTj!14?`0)Nl~&~hJqA2|uk
zYygd*t3b29M*z@upv|DiL9c>V97g~wkGDWGLH&L}0ML6uXM=tPx(f6x=vL66R``Ry
z1bP+pVa!MXX6$v)Owe7R<wgr*OR#-r12_n}3N!|1&sNYoIANPX6LIce1zn80Nq`??
z!*CPI1ogqbEC+Rf&IVnGJKieLTwE`=f}RC!1|4|~{-B?M4(x&oh$+GLtACIg_&4|U
zjLJprv9)2^1v`kbWc&@pU)OK>_51o6TzrTr+V434^A7MwOi{-5VBLHXz%RkQ)XdkJ
zqWn&Q?e`sT0(%E+<9Gbzs3^Y}OkLPPej98N*sTY7)csL@lfdpKHrfcT^&l@S7u>0X
zydLT=0iGdNfENz(b@xY?0dr#RCm=Q}?GgN<HX_hZdoZ92uAwo2Vlc;XSQGW29eSVn
z8X1tj2>7DI{E-Kc9qiu2ydLaxV9y=q>%guDJLCv&0{bP{nj^yY6xdIX@Y_J|fIV_V
z*v4Qzq#fla@9(2!9p!~kP69IYD1W3JF~PoZl-Gk@54P+WUkCO}u;ydD3G6AbPafkZ
z!QKJe?F7FKHU?{?@C1*lK&8OW`jHocodh=ZG=Bu_b6~Si^LnuB!OlF#qedex*zV^A
zdkX9)=lLT*?|?18Aj%$trE@{DMPQ%1$eUm=32fjceiH0+U@L#&w?_}}wg>D&EGJ{*
zvVfrm?tH8uFLf}AhlUHGX!`F!xSoqfZvoVBu@$ZDG5+9Wi^1G@WO9zd@EG5&_2QA{
zR}E(3EDKAd)nY|gD9RPpe`VRK<S!K6t7wa&Cl$S{=uJiCj~w`lxs-{Pps4!I!iNng
zML+ta6)C(_QT-<e{U-+fCxuzuTJ6+-(lW@HYzn9W+XzE_X=)C}*fe#JWwTO#1FGSx
z?4x+lQrjvCI{-?!1rKX#TO?tJK?zS++wx0=pHTQEg@2^*iwfs-*F#$-iG^JOLxI9@
zL8B&~8lczlM|iWs2ayu(7XAp=B813v+^z5eg(pij>xSWz{Uk3uT;L;mu%%v#1m&>N
z3r|z{euYm^337NsO@yI<J}tD{DOp;qRO+3m1a4rF%wd-JT;)4i;ree_kqUoQ;pS=y
z<SP7e;1vH475|XJ=Sh4xD^wXrW7AW!DTkH)q<lu<>l8kV-U-l@n!O_ivzeF9$noC}
z8v_evpOy3a8T~BudWz>6mJiX+)*{Tpnf@!St~sIX^_{2V^i-tZR`s86b=)oDptxoo
zk@PUStg!%mODzuhPGvY0p(sZDV2K%(sxPme8DSVspS{N`n@{O1MSE5fR>NO~){0{+
z9@DbHtYAf!3E$V1FN>2fZZD#}Pg=|8(9#dY8>%I$A1M2Q2P5Wcg)1j^NJVocNo1^2
z#1XCqG5x^O?SD}AnQHF!eetuv8J{^b#Bg1VG>|Ww712K)W1(u)s*#qcK>ZcISS^{w
z3NI$F-jzywneH-Zdn92KNQ*DfDDn!}(1<pel~R${mG2f@fvM@fZwuc~_`8os7<P&*
zhhZ6_MY2t1Vc79;nzR*dDo%!~^G;uBKo6M^n)DJWE0}c$LnGa$wtkI@7fm>h$)42%
zl*P+xbw8|JM=0E=YV?%yJb<MajJa&_nzQlB{({#W*!i_5A}o`Y_6zk)DOb@JD%?-u
zMGAjW;osn!H)=yAVXpzF?A|Npf0TVio;0k2OznM%_hJ=lN>%;Y$E2VF<U5q>Tk7$q
z541($>-)=4+a+PGx@YVaa5Pokow)@(Uc?T;KBMvvSHsh{RII|E7FRM{ELH4e;ECkf
zf0(j}Q^%aR^T296aN0`Ws`6uni&o9IKN;b_NNF9_{QB(g_`avodOcmoo}D5t?axk`
zRtsKS-1&$(1G#-pAOD)#+NW#hR6kWSuW|F7H#C0#GtvC%XE^t-O>7)go2YSz=GQo}
z&g`Sz?8}>;&Gy&#Ug}_e{n>jBkMki5b3*j<NvCyu(ZZb2Gxy5A>9p0zn-=B-t20sm
zKbEfi8Dmc#uqaknv{gtqsVH9*+f8}2SMb_JgM;bWjMh3v(p2H!41co(Sf!+EW#IbQ
zZc4GClIPVA?xrfYdMvN4ALdJE3pe=o<c?}z-dx`|OdU3D-DDJ6{<++^IKzMKqY_zV
T<b{g|`6sJ5y$rm*uFwAiCEVgA

diff --git a/include/fh_stack.h b/include/fh_stack.h
index e513de7..579c8e1 100644
--- a/include/fh_stack.h
+++ b/include/fh_stack.h
@@ -7,9 +7,37 @@
 #ifndef FORTH_FH_STACK_H
 #define FORTH_FH_STACK_H
 
+enum fh_error ds_roll(struct fh_thread_s *fh, int n);
+
+/** Peek n-th element of data stack */
+enum fh_error ds_peek_n(struct fh_thread_s *fh, uint32_t *out, int n);
+/** Peek n-th element of return stack */
+enum fh_error rs_peek_n(struct fh_thread_s *fh, uint32_t *out, int n);
+/** Peek n-th element of control stack */
+enum fh_error cs_peek_n(struct fh_thread_s *fh, uint32_t *out, int n);
+
+/** Peek top of data stack */
+static inline enum fh_error ds_peek(struct fh_thread_s *fh, uint32_t *out)
+{
+  return ds_peek_n(fh, out, 0);
+}
+
+/** Peek top of return stack */
+static inline enum fh_error rs_peek(struct fh_thread_s *fh, uint32_t *out)
+{
+  return rs_peek_n(fh, out, 0);
+}
+
+/** Peek top of control stack */
+static inline enum fh_error cs_peek(struct fh_thread_s *fh, uint32_t *out)
+{
+  return cs_peek_n(fh, out, 0);
+}
+
 enum fh_error ds_pop(struct fh_thread_s *fh, uint32_t *out);
 enum fh_error rs_pop(struct fh_thread_s *fh, uint32_t *out);
 enum fh_error cs_pop(struct fh_thread_s *fh, uint32_t *out);
+
 enum fh_error ds_push(struct fh_thread_s *fh, uint32_t in);
 enum fh_error rs_push(struct fh_thread_s *fh, uint32_t in);
 enum fh_error cs_push(struct fh_thread_s *fh, uint32_t in);
diff --git a/src/fh_builtins.c b/src/fh_builtins.c
index 9c00a65..b56314b 100644
--- a/src/fh_builtins.c
+++ b/src/fh_builtins.c
@@ -73,6 +73,79 @@ static enum fh_error w_semicolon(struct fh_thread_s *fh)
   return FH_OK;
 }
 
+static enum fh_error w_dup(struct fh_thread_s *fh)
+{
+  enum fh_error rv;
+  uint32_t a = 0;
+  TRY(ds_peek(fh, &a));
+  TRY(ds_push(fh, a));
+  return FH_OK;
+}
+
+static enum fh_error w_drop(struct fh_thread_s *fh)
+{
+  enum fh_error rv;
+  uint32_t a = 0;
+  TRY(ds_pop(fh, &a));
+  return FH_OK;
+}
+
+static enum fh_error w_swap(struct fh_thread_s *fh)
+{
+  enum fh_error rv;
+  TRY(ds_roll(fh, 1));
+  return FH_OK;
+}
+
+static enum fh_error w_rot(struct fh_thread_s *fh)
+{
+  enum fh_error rv;
+  TRY(ds_roll(fh, 2));
+  return FH_OK;
+}
+
+static enum fh_error w_over(struct fh_thread_s *fh)
+{
+  enum fh_error rv;
+  uint32_t a = 0;
+  TRY(ds_peek_n(fh, &a, 1));
+  TRY(ds_push(fh, a));
+  return FH_OK;
+}
+
+static enum fh_error w_tuck(struct fh_thread_s *fh)
+{
+  enum fh_error rv;
+  uint32_t a = 0;
+  uint32_t b = 0;
+  TRY(ds_pop(fh, &a));
+  TRY(ds_pop(fh, &b));
+  TRY(ds_push(fh, a));
+  TRY(ds_push(fh, b));
+  TRY(ds_push(fh, a));
+  return FH_OK;
+}
+
+static enum fh_error w_pick(struct fh_thread_s *fh)
+{
+  enum fh_error rv;
+  uint32_t nth = 0;
+  uint32_t a = 0;
+  TRY(ds_pop(fh, &nth));
+  TRY(ds_peek_n(fh, &a, nth));
+  TRY(ds_push(fh, a));
+  return FH_OK;
+}
+
+static enum fh_error w_roll(struct fh_thread_s *fh)
+{
+  enum fh_error rv;
+  uint32_t n = 0;
+  TRY(ds_pop(fh, &n));
+  TRY(ds_roll(fh, n));
+  return FH_OK;
+}
+
 static enum fh_error w_dot(struct fh_thread_s *fh)
 {
   enum fh_error rv;
@@ -108,6 +181,15 @@ static enum fh_error w_space(struct fh_thread_s *fh)
   return FH_OK;
 }
 
+static enum fh_error w_dump(struct fh_thread_s *fh)
+{
+  (void) fh;
+  for (int i = 0; i < fh->data_stack_top; i++) {
+    FHPRINT("%d ", fh->data_stack[i]);
+  }
+  return FH_OK;
+}
+
 static enum fh_error w_s_quote(struct fh_thread_s *fh)
 {
   fh_setsubstate(fh, FH_SUBSTATE_SQUOTE);
@@ -134,7 +216,6 @@ static enum fh_error w_paren(struct fh_thread_s *fh)
 
 static enum fh_error w_bye(struct fh_thread_s *fh)
 {
-  LOG("state=SHUTDOWN");
   fh_setstate(fh, FH_STATE_SHUTDOWN, 0);
   return FH_OK;
 }
@@ -153,19 +234,30 @@ enum fh_error register_builtin_words(struct fh_thread_s *fh)
       {".\"",   w_dot_quote, 1},
       /* Compiler control words */
       {"bye",   w_bye,       0},
-      /* Basic arithmetics */
+      /* Arithmetics */
       {"+",     w_add,       0},
       {"-",     w_sub,       0},
       {"*",     w_mul,       0},
-      /* Control words */
-      {":",     w_colon,     0},
-      {";",     w_semicolon, 1},
+      /* Stack manip */
+      {"dup",   w_dup,       0},
+      {"drop",  w_drop,      0},
+      {"swap",  w_swap,      0},
+      {"rot",   w_rot,       0},
+      {"over",  w_over,      0},
+      {"tuck",  w_tuck,      0},
+      {"pick",  w_pick,      0},
+      {"roll",  w_roll,      0},
+      /* Printing */
       {".",     w_dot,       0},
       {"type",  w_type,      0},
       {"cr",    w_cr,        0},
       {"space", w_space,     0},
-      {"\\",    w_backslash, 0}, // line comment
-      {"(",     w_paren,     0}, // enclosed comment
+      {"dump",  w_dump,      0},
+      /* Control words */
+      {":",     w_colon,     0},
+      {";",     w_semicolon, 1},
+      {"\\",    w_backslash, 1}, // line comment
+      {"(",     w_paren,     1}, // enclosed comment
       { /* end marker */ }
   };
 
diff --git a/src/fh_error.c b/src/fh_error.c
new file mode 100644
index 0000000..fddbf3b
--- /dev/null
+++ b/src/fh_error.c
@@ -0,0 +1,28 @@
+#include "fh_error.h"
+
+/** Error names */
+static const char *errornames[] = {
+    [FH_OK] = "OK",
+    [FH_ERR_CS_OVERFLOW] = "CS_OVERFLOW",
+    [FH_ERR_DS_OVERFLOW] = "DS_OVERFLOW",
+    [FH_ERR_RS_OVERFLOW] = "RS_OVERFLOW",
+    [FH_ERR_CS_UNDERFLOW] = "CS_UNDERFLOW",
+    [FH_ERR_DS_UNDERFLOW] = "DS_UNDERFLOW",
+    [FH_ERR_RS_UNDERFLOW] = "RS_UNDERFLOW",
+    [FH_ERR_HEAP_FULL] = "HEAP_FULL",
+    [FH_ERR_DICT_FULL] = "DICT_FULL",
+    [FH_ERR_COMPILE_FULL] = "COMPILE_FULL",
+    [FH_ERR_NAME_TOO_LONG] = "NAME_TOO_LONG",
+    [FH_ERR_INVALID_STATE] = "INVALID_STATE",
+    [FH_ERR_INTERNAL] = "INTERNAL",
+    [FH_ERR_UNKNOWN_WORD] = "UNKNOWN_WORD",
+};
+
+/** Get error name from code, returns Unknown if not defined */
+const char *fherr_name(enum fh_error e)
+{
+  if (e >= FH_ERR_MAX) {
+    return "Unknown";
+  }
+  return errornames[e];
+}
diff --git a/src/fh_mem.c b/src/fh_mem.c
index 706e193..bca4561 100644
--- a/src/fh_mem.c
+++ b/src/fh_mem.c
@@ -1,5 +1,6 @@
 #include <string.h>
-#include "forth.h"
+
+#include "fh_error.h"
 #include "fh_runtime.h"
 #include "fh_mem.h"
 
diff --git a/src/fh_runtime.c b/src/fh_runtime.c
index 6c03b16..15465e3 100644
--- a/src/fh_runtime.c
+++ b/src/fh_runtime.c
@@ -2,7 +2,7 @@
 #include <errno.h>
 #include <ctype.h>
 
-#include "forth.h"
+#include "fh_error.h"
 #include "fh_runtime.h"
 #include "fh_builtins.h"
 #include "fh_stack.h"
@@ -12,33 +12,6 @@
 
 struct fh_global_s fh_globals = {};
 
-/** Error names */
-static const char *errornames[] = {
-    [FH_OK] = "OK",
-    [FH_ERR_CS_OVERFLOW] = "CS_OVERFLOW",
-    [FH_ERR_DS_OVERFLOW] = "DS_OVERFLOW",
-    [FH_ERR_RS_OVERFLOW] = "RS_OVERFLOW",
-    [FH_ERR_CS_UNDERFLOW] = "CS_UNDERFLOW",
-    [FH_ERR_DS_UNDERFLOW] = "DS_UNDERFLOW",
-    [FH_ERR_RS_UNDERFLOW] = "RS_UNDERFLOW",
-    [FH_ERR_HEAP_FULL] = "HEAP_FULL",
-    [FH_ERR_DICT_FULL] = "DICT_FULL",
-    [FH_ERR_COMPILE_FULL] = "COMPILE_FULL",
-    [FH_ERR_NAME_TOO_LONG] = "NAME_TOO_LONG",
-    [FH_ERR_INVALID_STATE] = "INVALID_STATE",
-    [FH_ERR_INTERNAL] = "INTERNAL",
-    [FH_ERR_UNKNOWN_WORD] = "UNKNOWN_WORD",
-};
-
-/** Get error name from code, returns Unknown if not defined */
-const char *fherr_name(enum fh_error e)
-{
-  if (e >= FH_ERR_MAX) {
-    return "Unknown";
-  }
-  return errornames[e];
-}
-
 /** State names */
 static const char *statenames[] = {
     [FH_STATE_INTERPRET] = "INTERPRET",
@@ -46,7 +19,6 @@ static const char *statenames[] = {
     [FH_STATE_SHUTDOWN] = "SHUTDOWN",
 };
 
-
 /** Sub-state names */
 static const char *substatenames[] = {
     [FH_SUBSTATE_NONE] = "NONE",
@@ -92,6 +64,7 @@ void fh_setsubstate(struct fh_thread_s *fh, enum fh_substate substate)
   showstate(fh);
 }
 
+/** Execute a user word */
 enum fh_error w_user_word(struct fh_thread_s *fh)
 {
   enum fh_error rv;
diff --git a/src/fh_stack.c b/src/fh_stack.c
index aa2de25..d8df4ce 100644
--- a/src/fh_stack.c
+++ b/src/fh_stack.c
@@ -4,6 +4,55 @@
 #include "fh_stack.h"
 #include "fh_print.h"
 
+enum fh_error ds_roll(struct fh_thread_s *fh, int n)
+{
+  if (fh->data_stack_top <= n) {
+    LOG("DS roll UNDERFLOW");
+    return FH_ERR_DS_UNDERFLOW;
+  }
+
+  uint32_t yn = fh->data_stack_top - 1 - n;
+  uint32_t yoinked = fh->data_stack[yn];
+  for (uint32_t i = yn; i < fh->data_stack_top; i++) {
+    fh->data_stack[i] = fh->data_stack[i+1];
+  }
+  fh->data_stack[fh->data_stack_top - 1] = yoinked;
+  return FH_OK;
+}
+
+/** Peek top of data stack */
+enum fh_error ds_peek_n(struct fh_thread_s *fh, uint32_t *out, int n)
+{
+  if (fh->data_stack_top <= n) {
+    LOG("DS peek_n UNDERFLOW");
+    return FH_ERR_DS_UNDERFLOW;
+  }
+  *out = fh->data_stack[fh->data_stack_top - 1 - n];
+  return FH_OK;
+}
+
+/** Peek top of return stack */
+enum fh_error rs_peek_n(struct fh_thread_s *fh, uint32_t *out, int n)
+{
+  if (fh->return_stack_top <= n) {
+    LOG("RS peek_n UNDERFLOW");
+    return FH_ERR_RS_UNDERFLOW;
+  }
+  *out = fh->return_stack[fh->return_stack_top - 1 - n];
+  return FH_OK;
+}
+
+/** Peek top of control stack */
+enum fh_error cs_peek_n(struct fh_thread_s *fh, uint32_t *out, int n)
+{
+  if (fh->control_stack_top <= n) {
+    LOG("CS peek_n UNDERFLOW");
+    return FH_ERR_CS_UNDERFLOW;
+  }
+  *out = fh->control_stack[fh->control_stack_top - 1 - n];
+  return FH_OK;
+}
+
 /** Pop from data stack */
 enum fh_error ds_pop(struct fh_thread_s *fh, uint32_t *out)
 {