ELFP8@(@8@!PrPryȿxxxqqqQtd c9^"WG,<Y/S?8rk L5yqflp`[I3c'^dudM=Tn9<?$Wn7HvXw1X JCfFR]G:bwv&~3}O\]3>=4sfn$iy P=iEtexg%:b$F?X)QR_j{`Mo[DHP{U 0BQs# V"oGULe| pp>mf_Z8zm1<G_3K2,aSKyY%++(.!@hxA7u!Kw;/Sd>P[lzF}vOj A$< 9Z(EPJ'*HdUga^c~Y)e[o-#T r}"{B2M&b.Xl#5;8-64@VtyI.\]b `D,,za(]L;Ze 'RI0{  *m+!C rEuDN^j5 6n?` JsW )7UO|YqHVJR_h70A:toq/.L~4QC)CFk\ q2*4}9!gw&; B"O %%&prjgu|h=2'61E(0M/Dh@N BmzvxKV  Q:+N8i\kSZT*-sT~tcNW@AxI>|6a-i#51k l P8 6 $O1 w 8h-* @ <% W@X?0p3 Pi Pm  u }L$ y p % V8! 4 l , l {   Dz tgX;  @ 1) P6 XK f   & 4`l- y R! |  |  |" |X" (dw+ -  lb1  X08z  H0- LH@4 4| n7?0|- -  A 0 4$  ;( LtQ( ,t1 2# T P (Tl3 |  Q/" bB&  l6 M d l` 8) |f q ,d) $0F" 4YH  86 G  t* X sM  + l,& h]8R  % # H D|W' la t  $D fl( x6 H x0  Hj|t xt    $  \ J t5" U( hh H<%/ Wt. /l+ P / Z fXH ! 8m 0k A) P.Y T ,&  < 8- pZ6 x7 * * P! \S  |M Db  + v % 9   / (/C \ V ll u*7 l& 0  4 P 0   (p` x\3 TG 2. h  t&t2 ԩg& p 8 |%  x     v@5 r  dp b `$V5 q.2  DQU,  vxt0 p \ $. LP) Tlz' T  \+  ؐX @ dz7 Y 3 C+ QB <f s N Dd n  H 0 6 D a  L) F U# ,]8 @vC `6 PW 3 LP4 ē-   Z7 [ \ 8d/!   T g+ @  i |3 r# T8 {b) h  (5^ G 26 L `4   84L$ xH!! ,( Dz6 t+ {  tx ~ 1   0 H p { rn |8# ]t 8* h p h* l - X{ T m% I   T   Q  8  y H<0 `P d}`" !  `D' ħX] `9 . ^( dgX0 1a$ h$ f <& `N&% $ ` !i  ~x1 ^( Q H s S2^ TqxY Dp `|0 (t U8 d\ (    7 hX5  X   h8H . 2} k w  z 1 O/ 0Xt XD0 ! H I7 D  tK% 2 p  DH1 ܳ \8@( .hL L |  = / ; :$ ). Dx 9 p  @ x? Lz  ] W0  De n xP  - `TX$ N ~6 @ xQ  4 c   ܞ| Ht4 `<c# T4 % dV8  <# i ]  I" h t ;<. ^r7 ] P+ ` Z ` , {@2 T  |  = 042 Ĵ) #@   \  D1H" Z  </ @1 H} 8 lO|k' \, `Pp 45 2 k_  |' | 0B q) Dm  }T' 46 V ; 3U" c HA (  X +  | 9 p*o |+ R DDn  xd!  6 h D  hl  " `TJ ]#' Ժ\L I  %2 U+ P  5  ! . d^(& v gX & XQ* * P- l |~ @`4 P : YX>0   B- 8oL 8?@H S V ,|| | tb 4 xb. ^(3 L~ ܣ!  O4    P  d  1 ( `" W=$ x  Du" Q| \  Ж 4  , ,h tE tg67/ Kf ! \| 0   d\ ( # S G \I + T A8_ # m O 1- D   4=7?0r) tPg  d 9< '_   , -  0 XRW7 Hs N X~h& x6 `M <  ~15 04 $ L | `Z <#dT ' <``7 P] H, xU 4+ `# [n  XI R t. ] lrDV&" ]# U8) 0&w Y( P  2 _7 \T h  |< x u  g 7& ]8  E  4dda hNL/3 h' ܬW n84 % T ,< $ =0 X^  P- "L { t) I xp" <^   * T,  * <pV 8pV  PU lL  eI $X$H * ; z  D\ \H< py! $ - pj3 (L   y($  @ |7>7 y #* g* + |  /7 Dw  u3' 0' ? dO _ $) ' D a( pg  =  p x , l X`{ lx&   $@V |!+ t #kK h' `h 4X$ ,n , 4H" 8Qc0  |u/ $@A! t]>1 + m2 <^(-  w% J  P6( ,$ "  4 w b  L* h* yg @  ̡   1( h' \n ,j)" 8XD p2  8 {/i7 \  5' P/4 @L/ P) lu  M z l Q   | p%$ xF# PUP9% r Prpc" Rt% W8  G x$1 P|3 <L7 | 7 d40!1  D  `z   8N. ^Q dO/ X0X5 {D t% _ \  G # l4 4/, L   h% U8 K0 \ L5 h 3  T a~ F \" [D 8cD6 x! ,  k I" T7?0;  h` 8w  } d&  x) 4 H5 D  i [l P0 B" Tp( hr 8 * 04 t(2 ^(5 | 8qd?0 N% (:  Ԇ   e\* >   8% tY N,  MtO6 @) L5 a d 0/ Ay, tQ0 \K2  ! (    # ,r 3 X6 E  a % V86 *   ,  ` d lx ) w* p0  D h!q  <L  ;     T 3 \2| HU  # U8 2 \S\5C )  ,0 3d r  >  ,P\ ,")    q$  x > og. ](__cxa_finalize__cxa_atexitEXITCODEZ__sF__stack_chk_failactfflushfunchex2bufluaL_loadstringluaL_openlibslua_atpaniclua_closelua_gclua_newstatelua_pcallklua_pushcclosurelua_pushintegerlua_setgloballua_tolstringmallocmemsetmutt_snprintfmutt_vsnprintfnoticepush_buffer_to_octetrng_allocz_set_separatorsz_snprintfz_sprintfz_vsnprintfz_vsprintfz_vsprintfcbzconf_printfzconf_rngseedzen_add_iozen_add_parsezen_add_randomzen_conf_parsezen_exec_scriptzen_exec_zencodezen_initzen_lua_initzen_memory_freezen_memory_managerzen_require_overridezen_setenvzen_teardownzencode_execzencode_exec_tobufzenroom_execzenroom_exec_tobufANSI_BLUEANSI_CYANANSI_GREENANSI_MAGENTAANSI_REDANSI_RESETANSI_YELLOW__android_log_vprintlerrorluaL_wherelua_concatlua_errorlua_getgloballua_gettoplua_pushvfstringlua_settopset_colorwarningzencode_traceback__strncat_chkluaL_errorluaL_newmetatableluaL_setfuncslua_createtablelua_getfieldlua_pushlstringlua_pushnillua_pushstringlua_pushvaluelua_rawgetlua_rawgetilua_rotatelua_setfieldlua_settablelua_typememcpystrchrstrlenzen_add_classzen_add_functionzen_unsetluaL_loadbufferxluaL_requireflua_callklua_tonumberxlualibsluaopen_aesluaopen_bigluaopen_coroutineluaopen_debugluaopen_ecdhluaopen_ecpluaopen_ecp2luaopen_fp12luaopen_hashluaopen_mathluaopen_octetluaopen_stringluaopen_tableluaopen_utf8nopstrcasecmpstrcmpzen_exec_extensionzen_exitcodezen_extensionszen_load_stringzen_requirecrypto_bitcoincrypto_bitcoin_lencrypto_credentialcrypto_credential_lencrypto_elgamalcrypto_elgamal_lencrypto_ethereumcrypto_ethereum_lencrypto_lagrange_interpolationcrypto_lagrange_interpolation_lencrypto_petitioncrypto_petition_lencrypto_schnorr_signaturecrypto_schnorr_signature_lenhdwallethdwallet_leninit_leninspectinspect_lensemversemver_lenstatemachinestatemachine_lenstatsstats_lentimetabletimetable_lenzencode_arrayzencode_array_lenzencode_bitcoinzencode_bitcoin_lenzencode_credentialzencode_credential_lenzencode_datazencode_data_lenzencode_debugzencode_debug_lenzencode_dictionaryzencode_dictionary_lenzencode_dp3tzencode_dp3t_lenzencode_ecdhzencode_ecdh_lenzencode_ethereumzencode_ethereum_lenzencode_givenzencode_given_lenzencode_hashzencode_hash_lenzencode_httpzencode_http_lenzencode_keyszencode_keys_lenzencode_lenzencode_petitionzencode_petition_lenzencode_randomzencode_random_lenzencode_reflowzencode_reflow_lenzencode_secsharezencode_secshare_lenzencode_thenzencode_then_lenzencode_verifyzencode_verify_lenzencode_w3czencode_w3c_lenzencode_whenzencode_when_lenzenroom_benchzenroom_bench_lenzenroom_bigzenroom_big_lenzenroom_cborzenroom_cbor_lenzenroom_commonzenroom_common_lenzenroom_ecdhzenroom_ecdh_lenzenroom_ecpzenroom_ecp2zenroom_ecp2_lenzenroom_ecp_lenzenroom_hashzenroom_hash_lenzenroom_jsonzenroom_json_lenzenroom_msgpackzenroom_msgpack_lenzenroom_octetzenroom_octet_lenluaL_checkversion_lua_fatallua_loadluaopen_ioB64decoded_lenB64encoded_lenHASH256_hashHASH256_initHASH256_processU64decodeU64encode__memcpy_chkb45decodeb45encodebuf2hexis_base45is_url64mnemonic_check_and_bitsmnemonic_from_datamnemonic_to_bitsmnemonic_wordlistsha256_rawstrcpyb58digits_mapb58digits_orderedb58encb58tobinRMD160_compressRMD160_finishRMD160_hashRMD160_initRMD160_process__assert2bech32_decodebech32_encodesegwit_addr_decodesegwit_addr_encodestrncmpsystem_allocsystem_freesystem_realloczen_memory_alloczen_memory_realloc__vsnprintf_chk__errnoo_argstrerrorvfprintfzen_write_errzen_write_err_vazen_write_outzen_write_out_vaisspaceluaL_checklstringlua_pushbooleantolowerstb_c_lexer_get_locationstb_c_lexer_get_tokenstb_c_lexer_initstrncasecmpstrtolOCT_chopOCT_copyOCT_frombase64OCT_joctetOCT_jstringOCT_padOCT_randOCT_toStrOCT_tobase64OCT_xor__strlen_chk_ecp2_to_octet_ecp_to_octetis_base58is_base64is_binis_hexisalnumisxdigitlog2luaL_argerrorluaL_checkudataluaL_optintegerluaL_optlstringluaL_optnumberluaL_testudatalua_newuserdatalua_pushnumberlua_setmetatablelua_tointegerxlua_typenamenew_octet_from_bigo_destroyo_dupo_newpush_octet_to_hex_stringto_hexBIG_384_29_copyBIG_384_29_rcopyCURVE_Order_BLS381ECP_BLS381_PUBLIC_KEY_VALIDATEECP_BLS381_addECP_BLS381_affineECP_BLS381_copyECP_BLS381_dblECP_BLS381_equalsECP_BLS381_fromOctetECP_BLS381_generatorECP_BLS381_infECP_BLS381_isinfECP_BLS381_mapitECP_BLS381_negECP_BLS381_setxECP_BLS381_subECP_BLS381_toOctetFP_BLS381_redcModulus_BLS381PAIR_BLS381_G1mul_fp_to_bigbig_argbig_newecp_argecp_destroyecp_dupecp_newECP2_BLS381_addECP2_BLS381_affineECP2_BLS381_copyECP2_BLS381_equalsECP2_BLS381_fromOctetECP2_BLS381_generatorECP2_BLS381_infECP2_BLS381_isinfECP2_BLS381_mapitECP2_BLS381_negECP2_BLS381_subECP2_BLS381_toOctetFP_BLS381_copyFP_BLS381_reducePAIR_BLS381_G2mulPAIR_BLS381_atePAIR_BLS381_fexpecp2_argecp2_destroyecp2_dupecp2_newfp12_newBIG_384_29_addBIG_384_29_compBIG_384_29_daddBIG_384_29_dcompBIG_384_29_dcopyBIG_384_29_ddivBIG_384_29_decBIG_384_29_diszilchBIG_384_29_dmodBIG_384_29_dnbitsBIG_384_29_dnormBIG_384_29_dscopyBIG_384_29_dshlBIG_384_29_dshrBIG_384_29_dsubBIG_384_29_dzeroBIG_384_29_fshlBIG_384_29_fshrBIG_384_29_incBIG_384_29_invmodpBIG_384_29_iszilchBIG_384_29_jacobiBIG_384_29_modBIG_384_29_moddivBIG_384_29_modmulBIG_384_29_modnegBIG_384_29_modsqrBIG_384_29_montyBIG_384_29_nbitsBIG_384_29_normBIG_384_29_parityBIG_384_29_pmulBIG_384_29_randomnumBIG_384_29_sdivBIG_384_29_shrBIG_384_29_sqrBIG_384_29_subBIG_384_29_zeroMConst_BLS381_bitsize_octet_to_bigbig_destroybig_dupdbig_initlua_tobooleanFP12_BLS381_copyFP12_BLS381_equalsFP12_BLS381_fromOctetFP12_BLS381_invFP12_BLS381_mulFP12_BLS381_sqrFP12_BLS381_toOctetPAIR_BLS381_GTpowfp12_argfp12_destroyfp12_dupAMCL_RAND_seedRAND_byterandombytesruntime_random256timeAMCL_HMACHASH384_hashHASH384_initHASH384_processHASH512_hashHASH512_initHASH512_processKECCAK_hashPBKDF2SHA3_hashSHA3_initSHA3_process__strncpy_chk2hash_arghash_destroyhash_newstrncpystrnlenECDHECP_SECP256K1_ECIES_DECRYPTECP_SECP256K1_ECIES_ENCRYPTECP_SECP256K1_KEY_PAIR_GENERATEECP_SECP256K1_PUBLIC_KEY_VALIDATEECP_SECP256K1_SP_DSAECP_SECP256K1_SP_DSA_NOHASHECP_SECP256K1_SVDP_DHECP_SECP256K1_VP_DSAECP_SECP256K1_VP_DSA_NOHASHECP_SECP256K1_addECP_SECP256K1_fromOctetECP_SECP256K1_toOctetecdh_addecdh_initAES_GCM_DECRYPTAES_GCM_ENCRYPTecdh_argecdh_destroyAES_endAES_initAMCL_AES_encryptsyscallJava_decode_zenroom_Zenroom_zenroom__android_log_printlua_absindexlua_arithlua_checkstacklua_comparelua_copylua_dumplua_getallocflua_getilua_getmetatablelua_gettablelua_getupvaluelua_getuservaluelua_identlua_iscfunctionlua_isintegerlua_isnumberlua_isstringlua_isuserdatalua_lenlua_nextlua_pushfstringlua_pushlightuserdatalua_pushthreadlua_rawequallua_rawgetplua_rawlenlua_rawsetlua_rawsetilua_rawsetplua_setallocflua_setilua_setupvaluelua_setuservaluelua_statuslua_stringtonumberlua_tocfunctionlua_topointerlua_tothreadlua_touserdatalua_upvalueidlua_upvaluejoinlua_versionlua_xmovelua_gethooklua_gethookcountlua_gethookmasklua_getinfolua_getlocallua_getstacklua_sethooklua_setlocalabortlongjmplua_isyieldablelua_resumelua_yieldksetjmp__strcpy_chkfmodflocaleconvpowfstrpbrkstrspnstrtoflua_newthreadmemcmpfrexpfstrcollluaL_addlstringluaL_addstringluaL_addvalueluaL_buffinitluaL_buffinitsizeluaL_callmetaluaL_checkanyluaL_checkintegerluaL_checknumberluaL_checkoptionluaL_checkstackluaL_checktypeluaL_execresultluaL_fileresultluaL_getmetafieldluaL_getsubtableluaL_gsubluaL_lenluaL_openlibluaL_prepbuffsizeluaL_pushmoduleluaL_pushresultluaL_pushresultsizeluaL_refluaL_setmetatableluaL_tolstringluaL_tracebackluaL_unrefstrstr__fgets_chkfwriteacosfasinfatan2flog10flog2flogfsqrtfsrandtanf__strchr_chkisalphaiscntrlisgraphislowerispunctisuppermemchrtoupperluaopen_baseluaopen_bit32BIG_384_29_bitBIG_384_29_cmoveBIG_384_29_cswapBIG_384_29_dcmoveBIG_384_29_dfromBytesLenBIG_384_29_div3BIG_384_29_dmod2mBIG_384_29_doutputBIG_384_29_drawoutputBIG_384_29_dsucopyBIG_384_29_fromBytesBIG_384_29_fromBytesLenBIG_384_29_imulBIG_384_29_invmod2mBIG_384_29_isunityBIG_384_29_lastbitsBIG_384_29_mod2mBIG_384_29_mulBIG_384_29_oneBIG_384_29_orBIG_384_29_outputBIG_384_29_pxmulBIG_384_29_randomBIG_384_29_rawoutputBIG_384_29_sdcopyBIG_384_29_sducopyBIG_384_29_shlBIG_384_29_smulBIG_384_29_splitBIG_384_29_ssnBIG_384_29_toBytesputcharFP_BLS381_addFP_BLS381_cmoveFP_BLS381_cswapFP_BLS381_div2FP_BLS381_equalsFP_BLS381_imulFP_BLS381_invFP_BLS381_iszilchFP_BLS381_modFP_BLS381_mulFP_BLS381_negFP_BLS381_normFP_BLS381_nresFP_BLS381_oneFP_BLS381_outputFP_BLS381_powFP_BLS381_qrFP_BLS381_rawoutputFP_BLS381_rcopyFP_BLS381_sqrFP_BLS381_sqrtFP_BLS381_subFP_BLS381_zeroR2modp_BLS381CURVE_A_BLS381CURVE_B_BLS381CURVE_B_I_BLS381CURVE_Cof_BLS381CURVE_Cof_I_BLS381CURVE_Gx_BLS381CURVE_Gy_BLS381ECP_BLS381_cfpECP_BLS381_getECP_BLS381_mulECP_BLS381_mul2ECP_BLS381_outputECP_BLS381_outputxyzECP_BLS381_pinmulECP_BLS381_rawoutputECP_BLS381_rhsECP_BLS381_setputsAES_CBC_IV0_DECRYPTAES_CBC_IV0_ENCRYPTECP_BLS381_ECIES_DECRYPTECP_BLS381_ECIES_ENCRYPTECP_BLS381_KEY_PAIR_GENERATEECP_BLS381_SP_DSAECP_BLS381_SP_DSA_NOHASHECP_BLS381_SVDP_DHECP_BLS381_VP_DSAECP_BLS381_VP_DSA_NOHASHOCT_jintOCT_ncompOCT_shlehashitCURVE_BB_BLS381CURVE_Bnx_BLS381CURVE_Cru_BLS381CURVE_Pxa_BLS381CURVE_Pxb_BLS381CURVE_Pya_BLS381CURVE_Pyb_BLS381CURVE_SB_BLS381CURVE_WB_BLS381CURVE_W_BLS381Fra_BLS381Frb_BLS381FP12_BLS381_cmoveFP12_BLS381_compowFP12_BLS381_conjFP12_BLS381_frobFP12_BLS381_from_FP4FP12_BLS381_from_FP4sFP12_BLS381_isunityFP12_BLS381_iszilchFP12_BLS381_normFP12_BLS381_oneFP12_BLS381_outputFP12_BLS381_pinpowFP12_BLS381_powFP12_BLS381_pow4FP12_BLS381_reduceFP12_BLS381_smulFP12_BLS381_ssmulFP12_BLS381_traceFP12_BLS381_usqrFP12_BLS381_zeroFP2_BLS381_addFP2_BLS381_from_BIGsFP2_BLS381_mulFP2_BLS381_mul_ipFP2_BLS381_negFP2_BLS381_normFP2_BLS381_sqrFP2_BLS381_zeroFP4_BLS381_addFP4_BLS381_cmoveFP4_BLS381_conjFP4_BLS381_copyFP4_BLS381_equalsFP4_BLS381_frobFP4_BLS381_from_FP2HFP4_BLS381_from_FP2sFP4_BLS381_imulFP4_BLS381_invFP4_BLS381_isunityFP4_BLS381_iszilchFP4_BLS381_mulFP4_BLS381_nconjFP4_BLS381_negFP4_BLS381_normFP4_BLS381_oneFP4_BLS381_outputFP4_BLS381_pmulFP4_BLS381_reduceFP4_BLS381_sqrFP4_BLS381_subFP4_BLS381_times_iFP4_BLS381_xtr_powFP4_BLS381_xtr_pow2FP4_BLS381_zeroECP2_BLS381_dblECP2_BLS381_frobECP2_BLS381_getECP2_BLS381_mulECP2_BLS381_mul4ECP2_BLS381_outputECP2_BLS381_outputxyzECP2_BLS381_rhsECP2_BLS381_setECP2_BLS381_setxFP2_BLS381_cmoveFP2_BLS381_conjFP2_BLS381_copyFP2_BLS381_equalsFP2_BLS381_from_BIGFP2_BLS381_imulFP2_BLS381_invFP2_BLS381_isunityFP2_BLS381_iszilchFP2_BLS381_oneFP2_BLS381_outputFP2_BLS381_reduceFP2_BLS381_sqrtFP2_BLS381_subFP2_BLS381_from_FPsFP2_BLS381_pmulPAIR_BLS381_anotherPAIR_BLS381_double_atePAIR_BLS381_initmpPAIR_BLS381_millerPAIR_BLS381_nbitsFP2_BLS381_div2FP2_BLS381_div_ipFP2_BLS381_div_ip2FP2_BLS381_from_FPFP2_BLS381_powFP2_BLS381_rawoutputFP2_BLS381_times_iFP4_BLS381_div2FP4_BLS381_from_FP2FP4_BLS381_isrealFP4_BLS381_powFP4_BLS381_qmulFP4_BLS381_rawoutputFP4_BLS381_xtr_AFP4_BLS381_xtr_DBIG_256_28_addBIG_256_28_cmoveBIG_256_28_copyBIG_256_28_decBIG_256_28_fromBytesBIG_256_28_fshrBIG_256_28_incBIG_256_28_iszilchBIG_256_28_jacobiBIG_256_28_lastbitsBIG_256_28_modBIG_256_28_nbitsBIG_256_28_normBIG_256_28_outputBIG_256_28_parityBIG_256_28_rcopyBIG_256_28_toBytesCURVE_A_SECP256K1CURVE_B_I_SECP256K1CURVE_B_SECP256K1CURVE_Cof_I_SECP256K1CURVE_Cof_SECP256K1CURVE_Gx_SECP256K1CURVE_Gy_SECP256K1ECP_SECP256K1_affineECP_SECP256K1_cfpECP_SECP256K1_copyECP_SECP256K1_dblECP_SECP256K1_equalsECP_SECP256K1_generatorECP_SECP256K1_getECP_SECP256K1_infECP_SECP256K1_isinfECP_SECP256K1_mapitECP_SECP256K1_mulECP_SECP256K1_mul2ECP_SECP256K1_negECP_SECP256K1_outputECP_SECP256K1_outputxyzECP_SECP256K1_pinmulECP_SECP256K1_rawoutputECP_SECP256K1_rhsECP_SECP256K1_setECP_SECP256K1_setxECP_SECP256K1_subFP_SECP256K1_addFP_SECP256K1_cmoveFP_SECP256K1_copyFP_SECP256K1_cswapFP_SECP256K1_equalsFP_SECP256K1_imulFP_SECP256K1_invFP_SECP256K1_iszilchFP_SECP256K1_mulFP_SECP256K1_negFP_SECP256K1_normFP_SECP256K1_nresFP_SECP256K1_oneFP_SECP256K1_rcopyFP_SECP256K1_redcFP_SECP256K1_reduceFP_SECP256K1_sqrFP_SECP256K1_sqrtFP_SECP256K1_subFP_SECP256K1_zeroModulus_SECP256K1BIG_256_28_compBIG_256_28_fromBytesLenBIG_256_28_invmodpBIG_256_28_isunityBIG_256_28_modmulBIG_256_28_oneBIG_256_28_randomnumBIG_256_28_sdivBIG_256_28_shlCURVE_Order_SECP256K1MConst_SECP256K1R2modp_SECP256K1BIG_256_28_bitBIG_256_28_cswapBIG_256_28_daddBIG_256_28_dcmoveBIG_256_28_dcompBIG_256_28_dcopyBIG_256_28_ddivBIG_256_28_dfromBytesLenBIG_256_28_diszilchBIG_256_28_div3BIG_256_28_dmodBIG_256_28_dmod2mBIG_256_28_dnbitsBIG_256_28_dnormBIG_256_28_doutputBIG_256_28_drawoutputBIG_256_28_dscopyBIG_256_28_dshlBIG_256_28_dshrBIG_256_28_dsubBIG_256_28_dsucopyBIG_256_28_dzeroBIG_256_28_fshlBIG_256_28_imulBIG_256_28_invmod2mBIG_256_28_mod2mBIG_256_28_moddivBIG_256_28_modnegBIG_256_28_modsqrBIG_256_28_montyBIG_256_28_mulBIG_256_28_orBIG_256_28_pmulBIG_256_28_pxmulBIG_256_28_randomBIG_256_28_rawoutputBIG_256_28_sdcopyBIG_256_28_sducopyBIG_256_28_shrBIG_256_28_smulBIG_256_28_splitBIG_256_28_sqrBIG_256_28_ssnBIG_256_28_subBIG_256_28_zeroFP_SECP256K1_div2FP_SECP256K1_modFP_SECP256K1_outputFP_SECP256K1_powFP_SECP256K1_qrFP_SECP256K1_rawoutputAMCL_SHA3_squeezeSHA3_shakeRAND_cleanAES_ecb_decryptAES_ecb_encryptAES_getregAES_resetAMCL_AES_decryptOCT_clearOCT_compOCT_emptyOCT_fromHexOCT_jbyteOCT_jbytesOCT_outputOCT_output_stringOCT_toHexOCT_xorbyte__vsprintf_chkGCM_add_cipherGCM_add_headerGCM_add_plainGCM_finishGCM_initGET_TIMEHASH_ALLHASH_IDmhashittodaylibm.soliblog.solibdl.solibc.so_edata__bss_start__bss_start____bss_end____end__LIBC7 c 77c 7`8P8 k @ Pk p x(06<CJSZ`ȀgЀp؀xq (082@HPX`hpx ȁЁ؁&,28@Fr L(S0Y8_@gHlPrXy`hpxȂЂ؂  ('0z8-@4H9P?X`EhKpQxIV^e0lu|LȃЃ؃ (08@HPX`hpx #(06>CHQȄWЄ]؄aiqv} (08@HPX`hpx ȅЅ&؅-5<DHMRZ_ e(l0r8x@~HPX`hpxAȆІ؆  ( 0&8,@2H8P>XE`KhRpXx_ekt{ȇЇ؇ (08@HP X`hp#x*/?49@EKRȈXЈ_؈els{ (08@HPX` hpx ȉ!Љ)؉08>D MS[ b(g0#8m@tHyPX`hpx>ȊЊ؊  %(,0288@?HDPJXO`Uh[paxglrzxJȋ[Ћ؋ (08@HPX`h!p(x-38=EJQW_fȌmЌ.،t{ (08@HPX`hpx !%ȍ-Ѝ2؍:>GOW_em, (t0x8@HPX`hpkxȎЎ؎$+2: ?(F0M8U@[HbPiXr`yhpxȏЏ؏  (!0*82@7H?PHXj`PhWp^xfls|ȐАؐm (08@HPX`hp x %+39?ȑEБKؑRW\aiqy (0[8@HPX`hpxkAȒВؒ$,3:B H(O0V8]@dHkPqXx`~hpRx<J ȓГؓ  (0"8)@1H:PBXJ`PhVp[xbipw ȔДؔ (08@HPkX` hpx (1#!9>EKTȕZЕ`ؕdjrx (08@HPX`hpx> ȖЖؖ $(B- 4(90&8>@EHLPQXY`_hgpnxu{ȗЗؗ  (08@ HPRX`h%p-x16;BHMU\biȘqИyؘ (08@HPX`hpx %,1ș6Й<ؙBHNT\bhms x(08@HPX`hpx9IȚКcؚ  (!0(8@-H2P9X>`Ch4pHxMU[bgov{țЛ؛z (08@HPX`hpx   '/7Ȝ=МE؜MT[bjrw @(08@HPX`hpxȝН&؝-6;BIQV]_ e(j0p8w@~HPX`hpxm?DȞО؞^ (08@$H+P0X5`;hAp xFLRY^chqiRxȟ~П؟ (08@H)PX`hpx '/7Ƞ<РؠA3FLQJXb _(f0k8p@DLSY `(d0k8s@zHPX`hpxIȤФؤ" 9((0/86@<H/PCXH`MhMTpRxZbioft|ȥХإ (08B@HnPX`hpx $,28@EȦIЦOئV\Cagot y(08{@HPX@`hpxOȧUЧا/- V ($08)@0H5P;XA`GhOpUx\chouzCKȩPЩWة]cjrKx (08@HPX`hpx5ȪЪت '/7>FLR Z(`0i8p@xH~P!X`hpxȫЫlث %+ (0078?@GHOPWX``fhkppxv}|!ȬЬجHS a(+08@HPX`hpx#*29?GȭЭNحU^els^y (0k 8@HPX`hpx GXȮMЮLخY#f*1 7(=0B8H@NHUP\X`dhpkx'TpIv|mȯЯد (08@HPX`hpx%-3:AIR[Ȱaаgذ ntx (h 08@HPX`hpxR# #ȱбر&/T-38?EJP H(U0^8d@kHqPyX}`hpx}$ȲвزG ( 08@H"P(X.`5h:pAxFKQW]cipv|ȳгس (08@HPX`hpx $,28ȴ>дEشKRX]djpx~ (08@HPX`hpxSoȵеص $*O0 6(?0F8M@TH]PeXk`shypxȶжض  (08$@*H/P5X;`AhGpLxRY5_gm#t{ȷзط (X08@HPTXU `hpx ȸи$ظ,38>CJOTX ^(e0k8q@yHPX`hpx%+tȹйع  ('0.84@=HBPHX!`hOpTxZ`flty~Ⱥкغzl (08@HPX`hp x&,&49@GȻOлWػ^clt{ (08@HP Xg `hpxc ȼмؼ!(/7=# B(J0O8V@^HePmXu`}hpxȽнؽ ( 080@HP#X(`.h4p$x9@6GNVZbjpȾxо}ؾG@; (08@HPXM`hpxȿZпwؿ%+06>D J(O0T8[@_HePkX[`hqxZL^`pgq`qp\ (t0t8@LHPDh}px[ . \X;h \ )d 0\  d ("0 8.@H:PXE`hQp<x]<f\r{' ?JT=<b<w (08HPX`hpxd HD!"P#$ &(04(8@+X`Xh;px <, -w'?J3-T=l b- (08A@.H P/X`0hp"xP#$& 4(4  1" + \2 .7 <  8}@5HP8X`8hpt9xO:_:P <w <2<;t>I @>AKLB B(MT0D8m@FHPt9X`t9hl pHx2<FJJ<;t> t>I @ @AtK2 tK7 (< 0LH}PQXP`RhwpRx_STTUK6UUUVMTX Z(0Z8l @d[HP0\X`]hp]x^_*`2papa;c cAd2 dIe e(7 8< @gX}`Lthdp|xxyA{2d|;~IPRȇT ܉ (08@ HMPlX`hp$xHН̞JԠ4?dXl |xw8 (0d|8 @~HPX`Phpx2 {" T ܉̩1=̩ ܉Rȇ (08@ HMPlX`hpx2Н̞JԠ7 < 8}еl еA (I08R@H[PphApxIR[pl Pr2 7 & (08@H PX`hpxH$8}l   [  Y _  8l @H!PpX#!`h-!pxp  [  Y 7 !!" ("08!@H!PX!`h!pxR#!d#d>d}$ ##\M$!L!L287 X!`@h!p<x$8$8V0[0a0h0q0y0000000000 0(00080@0H0P0X0`0h0p0x00001110 1111 191'1/181A1I1Q1X1(80_888@>9HnPT=X#`5h>9p8x8u 87 8 2  &888+ 8888 (80" 88@>HXP?Xܟ`!Shp>x+>>0?X)?ا1?9?B? N?(0[?8H@f?HPr?X `|?hвp?xH??? D?r?@ @A (A0\8 A@ܼH@PXA`hAp`xAH#A $x(A@,A1AHL5A (A08@A@dHAPX`0h@x@@eJD@D$<DD ( 08@0HDPXD`4h px;hkDDI  Ik I e  (I0$ 8@XJ` h"JpxD` KJ85QQ5 QQ (  R(|0 @R`RhSpxr SSST88\8- XTT&T (.T008@ĞH5TPXT`x@@P X ` h p# x) / f*#T=  0(@ Xp6=JTgx0H`x (86PChP`m| (@Xp %30@H `hxO`YHY(Xo@r 0B @0 8 @H%P,X>`_hdpyx}.2<?E_lyy z(~08@HPX`hpx0MM]imux{ (08 @(HHPXXY`eh}pxWW 08HP:`hFxg=@1 (8P@PXh%p&Hz!yS(g0@ HX&`XptxGbN>swBp 0:8HPZ`h`xQ'p4jw|V (8;@hP*X}hp-R  !(#0$8&@'H(P)X*`+h-p.x/01345678<=?@ACEHIJKL M(O0R8S@UHXP`Xa`bhcpexfiklmnopqstuxz~ (08@HPX`hpx (08@HPX`hpx (08@HPX ` h px !"#$() *(,0-8/@0H3P6X7`8h;p=x>ACDLMNOUVXY]^`acefhi j(k0q8r@sHtPuX{`}hpx (08@HPX`hpx (08@HPX`hpx     "($0&8'@)H*P+X,`.h/p1x56789:;<?ADEFHIJKLOPR S(T0V8W@[H\P`Xa`bhdpexfhjklnopqrsvwy|~ (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx    !"# $()0+8,@.H/P0X1`2h4p5x679;<?@ABDGIJKLNPQRST U(Z0\8]@_HdPfXg`hhlpmxqtuvxz{~ (08@HPX`hpx (08{pVA    pZA p^A pbA pfA" pjAB pnAb prA pvA pzA p~A pA pA" pAB pAb pA pA pA pA pA pA" pAB pAb pA pA pA pA pA pA" pAB pAb pA pA pA pA pA pA" pAB pAb pA pA pA pA pB pB" p BB pBb pB pB pB pB p"B p&B" p*BB p.Bb p2B p6B p:B p>B pBB pFB" pJBB pNBb pRB pVB pZB p^B pbB pfB" pjBB pnBb prB pvB pzB p~B pB pB" pBB pBb pB pB pB pB pB pB" pBB pBb pB pB pB pB pB pB" pBB pBb pB pB pB pB pB pB" pBB pBb pB pB pB pB pC pC" p CB pCb pC pC pC pC p"C p&C" p*CB p.Cb p2C p6C p:C p>C pBC pFC" pJCB pNCb pRC pVC pZC p^C pbC pfC" pjCB pnCb prC pvC pzC p~C pC pC" pCB pCb pC pC pC pC pC pC" pCB pCb pC pC pC pC pC pC" pCB pCb pC pC pC pC pC pC" pCB pCb pC pC pC pC pD pD" p DB pDb pD pD pD pD p"D! p&D"! p*DB! p.Db! p2D! p6D! p:D! p>D! pBD" pFD"" pJDB" pNDb" pRD" pVD" pZD" p^D" pbD# pfD"# pjDB# pnDb# prD# pvD# pzD# p~D# pD$ pD"$ pDB$ pDb$ pD$ pD$ pD$ pD$ pD% pD"% pDB% pDb% pD% pD% pD% pD% pD& pD"& pDB& pDb& pD& pD& pD& pD& pD' pD"' pDB' pDb' pD' pD' pD' pD' pE( pE"( p EB( pEb( pE( pE( pE( pE( p"E) p&E") p*EB) p.Eb) p2E) p6E) p:E) p>E) pBE* pFE"* pJEB* pNEb* pRE* pVE* pZE* p^E* pbE+ pfE"+ pjEB+ pnEb+ prE+ pvE+ pzE+ p~E+ pE, pE", pEB, pEb, pE, pE, pE, pE, pE- pE"- pEB- pEb- pE- pE- pE- pE- pE. pE". pEB. pEb. pE. pE. pE. pE. pE/ pE"/ pEB/ pEb/ pE/ pE/ pE/ pE/ pF0 pF"0 p FB0 pFb0 pF0 pF0 pF0 pF0 p"F1 p&F"1 p*FB1 p.Fb1 p2F1 p6F1 p:F1 p>F1 pBF2 pFF"2 pJFB2 pNFb2 pRF2 pVF2 pZF2 p^F2 pbF3 pfF"3 pjFB3 pnFb3 prF3 pvF3 pzF3 p~F3 pF4 pF"4 pFB4 pFb4 pF4 pF4 pF4 pF4 pF5 pF"5 pFB5 pFb5 pF5 pF5 pF5 pF5 pF6 pF"6 pFB6 pFb6 pF6 pF6 pF6 pF6 pF7 pF"7 pFB7 pFb7 pF7 pF7 pF7 pF7 pG8 pG"8 p GB8 pGb8 pG8 pG8 pG8 pG8 p"G9 p&G"9 p*GB9 p.Gb9 p2G9 p6G9 p:G9 p>G9 pBG: pFG": pJGB: pNGb: pRG: pVG: pZG: p^G: pbG; pfG"; pjGB; pnGb; prG; pvG; pzG; p~G; pG< pG"< pGB< pGb< pG< pG< pG< pG< pG= pG"= pGB= pGb= pG= pG= pG= pG= pG> pG"> pGB> pGb> pG> pG> pG> pG> pG? pG"? pGB? pGb? pG? pG? pG? pG? p@ p@" p @B p@b p@ p@ p@ p@ p"@ p&@" p*@B p.@b p2@ p6@ p:@ p>@ pB@ pF@" pJ@B pN@b pR@ pV@ pZ@ p^@ pb@ pf@" pj@B pn@b pr@ pv@ pz@ p~@ p@ p@" p@B p@b p@ p@ p@ p@ p@ p@" p@B p@b p@ p@ p@ p@ p@ p@" p@B p@b p@ p@ p@ p@ p@ p@" p@B p@b p@ p@ p@ p@ pA pA" p AB pAb pA pA pA pA p"A p&A" p*AB p.Ab p2A p6A p:A p>A pBA pFA" pJAB pNAb pRA pVA pZA p^A pbA pfA" pjAB pnAb prA pvA pzA p~A pA pA" pAB pAb pA pA pA pA pA pA" pAB pAb pA pA pA pA pA pA" pAB pAb pA pA pA pA pA pA" pAB pAb pA pA pA pA pB pB" p BB pBb pB pB pB pB `_@_!bB{H; @jC@!9@@ T{A_^og_WO{CC K;k@ߟRR *߿r2r22`)@H@#68@T@9 ?qT%@FO@ Ji( J _ jT  ? jTK K?qjT ?q@TrTKI?qTZ ?`@92`2kA>!@x2kA>@aT@FO@ Ji( J _ jAT  ? jT@948@T@9q`T(52@* 2h_8 Q?qHTiy* 2@22 2 @7222(  1 *sh_8 Q?q Tsq/T6 !?q T@ !@h@8qT%Qq T)A(y 12s]h@912q/`T Q?%qT*KR )( h@8<Q Q_)qCTqAT(@8qT6 !?qT@ !@h.@8%QqT7*q`T Q_%qT* KRI| )( h@8"Q Q_)qCTh@812qs  @8?qT?qTi @9?qT12s12s* %Qq T @(i @9?qaTs12h@93 Q?qh(TJaIy) ֈ@6AqT@!*992{ 'o(76 !?qT@ !i@9@*2?qq맟 j Z qA ) )9q72(76 !?q-T@ !i@9@*2?q맟 j Q*qT8aT Q9*8T RrH?T; ʚi RLRr"ё07Rm=r R(}e kyS k@y?q* xT407 })c+ k2)q 8 *"T *5 T1772*^? "T3@2`*  q@T })c( 28 *5 Q9* 8(53@(@ ) ) T2@*ѿT @899?q@I187'@o@27@6hR'@@o@R2(-@9JRy92(66K!qMT@K!J@995*9q6(RyfR) /7)v122aqA ) )96(A@9JRy9R/76K!qmT@K!J@9107 }S @!Q}@{M -im8J%˚m9j_k T Q9ml8 }S!kQk}@K -ik8J%̚m8_kT HJ rT- S  y*** 9996 !?q-T@ !@*99 9 @2`6 !?qMT@ !@) ;b7@T KI kT)}S 4jE@L * _ jM h5) K5@T @95?@T jE@L * _ jM im5 K5 *@8 5K_k9T09*6 !?qMT@ !@/@KI 2@299TkaTr822 B| A9A9_kH  k 8KHK7/@2 71z /@2@kÈ*@2W+,T'7qTs*KK k9o4+*Q?kыZ{2(K**@`T?kQ9!T2KHqT'@Z ?22@o@kKqT*)? q3TKw2GvG@/@2)4 *25Q3@22@KHqTo@kKqTA9o4'@ @KIK kJK94)*KQ kiZ{2I K+ bT  T   bT-/p BCK ˀ?΁aT4l@8q 8T X KHqKTZ ?{2@A954*A9oj5.@JIQ, 9bT   T   bTM0 AC JK ΁?aT4@8Jq 8TA9 x 5@W@*}S 06@](  H K@_q T/@XG  qT(K+u32 v+@W@3@@22H5KHq+ TKK_ k:074**Q?kъZ{2)K* *@TkQ9!T2KHqkTG@'@  G/@?րi2@W@JK_qLT$*4 QK06 Q9?kJq*8AT *2@22KHqTW@JK_qTG@/@'@o@A94 @KIK kJK94)*KQ kiZ{2I K+bT  T  bT-/k ˬBB  K  ˀ?΁aT4l@8q8T W KHqKTZ ?[2@A95.@JIQ,9bT   T  bTM0 AB J K   ΁?aT4@8Jq8TA9 w 5T&4qT4*!1s2єZ Qk ul}Sj qJT!1єZ un IT  HTmG@QqmET 7 !4Q })TjJ TJ #Tk lCB  K{  ˀk?aT4j@8q8T7A95ߟRR߿rrW@f6q2fT+KK k448*Q?kјZ{2(K****@T?kQ 9!TߟR߿r2** KHq+TZ ?@D22@K85)? q3 TK(w2v)Rr2)4 *25QEߟR߿r22@**KHq*TKx5* 5KHqkTZ ? <2@K5i /k mCB  Kk  ˠ?΁aT 5O q m}1Q~, KoC{ KB1"?aT TKK k5qkT4*Q k Z{2 K u }Sk Mqj)Tk k T k "T*mG@Q qmET 7 4 Q+})Tl  bT  Tl@8q8Th W KHqTK5A94ߟRR߿rr @KIK kJK94)*KQ kiZ{2I K+bT  T  bT-/k ˌBB  K  ˀ?΁aT4l@8q8T W KHqKTZ ?`%2@A95.@JIQ,9bT   T  bTM0 AB J K   ΁?aT4@8Jq8TA9 w 5W@7Q**@@T?kQ 9!TߟR߿rQ**@T?k9Q 9!T*2A9oJ5-+ 07HQ **@` T?kQ9!T/@'@o@2A95)? q3TKv2Kv2ߟR߿r4 *24Q=w)? qTKv21(w2i 4 *25Q%*co@UQ 07 *2o@@2&@(*_ qmTGKHw32W@3@vJG@@2o@24UQK76 Q9?k)Jq 8AT/@'@A95@j J@9`@j J@9 `o m} pu~QnC{KB ΁"?aT AT3@2@*3@2@A9o 5{@(@(@(@( @(`KHqTZ ?9G@@@Z aTK@ C {EODWC_BgAoƨ_O{   S;n@cCC C=m*@@ `TA_22-@@ T6"*@@ T-"B,A"B@"B@"Bh@ "BT@ "B8@"B@"BD@2!={2@@ T*{DOCWB @C_ {S;h@2@*J!A 8q(ZHh@@ T{B @*_ֻ O{U;ը@*!>&4!!@*{2^@@ T{COB @2_֗WO{V;@!>#(Q@@@4R@ 4A2*F!,?@@ T*@@ T{COBWA_c{(!A22 wO{T;Ո@R(qG**'!!*^!!`2B1{2!! *M{2@@ T{BOA2_({S;h@!7#h@@ T{C@_{H; @C)@iI @?@@ !T{A_@@ T{I;(@C+@9 4,*2MQ-m8k@ykym 8+j8J 5(@@ !T{A_*(@@ T{H; @C* J6,@8kDӌ Mim8LIl8-8,%8TIh)8@@ T{A_ָ{H; @C@@ TɪRr}){A ` 2u3_֡{H; @C@@ T{A } _֐{I;*@C @94**J.k@Kik8qT `8K5*(@@ !T{A_*(@@ Tm{H; @C)).K@8+ik8qTMKQ_q TQl}Snu /l 0@91@9JQ_q0ip81iq8~S *90@91@90ip81iq8~S*90@91 @9!0ip81iq80* 9 TQ JK_ qT$_ q Tm@9n@9_ q/im8.in8 }S *8aT m @9n@9_q-im8.in8}S*9KTj @9k @9*ij8)ik8) * 9  9@@ T{AKQ_{H; @JQ_qC*KT+k6,}@-hl8.}@}SmIm8 9-hn8,hl8}S3lIm8- ) ? k 9}@-hl8.hn8}S 3mIm8 9,hl8@mil8  9 kT ?kT,}@*hl8K}S*J6MIk8m8,hl8MQ? kSaT2 ))}@+hi8K*k@Kik8 9)hi8 , S2@Jil8 j99@@ T{A_ֲ{I;(@_qCH@ _qT-R./R2̂rR7]r2PQ1j80p8J _k30~`#KC ~S 2~Ic8R`1KQQ rQ28~R`KRC R~SP 1~ SIp8Iq8c+8k #8 TkQ_kT*2_kTJQ*j8-R̂rRL}`N KN }S. 7J@ij8Il8m +8k  -8+8)@@? aT u{A y2I KH +y3` _Q{I;(@C/@9o4+*2k2R-R21n8q@2p8pio8qiq8Qrir80B PB ~S/8 8 /o8~S?qJ O5Q5*(@@ `T+*qTR+B qCT2R+B  /8J4(@@ T{A_ {H; @C @94+**k2@mil8) i8qJL5_q*2˪Rr+}+mk`k myS ) K@@?q?q)_ j Z T{A_WO{V;@#*qT*@8#<T#@\ T{[OZWY@_ָog_WO{CJ;H@I@Q**C?AqhHT5*jv8aTss`s@9~@s#Rk"8I ( ?q?q T}* 2[R27Qk+QjQqKr}r8kqK #l'Qjh Qq }qr8L Q#m#QjiQq-}qr8M Q#nQjqn}qr8N Q#oQjq拏}qr8O Q#pQjq q0~rq8P Q#oQjpq}qp8O Q#jo_q걊O}Jqo8J JQ#_jl33jqH }q j8H !Q# jk?qi*} 3)q j8y3I Qz3)%Q0z3# z3? jmy3q y3 } j8qH )Q# j(y3hk觟siSZ/Q?kh8{/AT@2CH@i@ !T{EODWC_BgAoƨ_og_WO{ U;ը@C**Jh8?qTJh8?q`T5^qT2 R!Ir j*Tocy9@9h4,**89 2)?qT*_!THk*8( Jh8K 2_q TI  r*  ?94{![{a{2;P7H7@78707(7 7 7 7 7 7Jx8.h5v~Sih87*J j!) *i(8[O6 }Sii8(* h!H*i)8[G6  }Sii8(* h!H*i)8[?6 }Sii8(* h!H*i)8[76 }Sii8(* h!H*i)8[/6 }Sii8(* h!H*i)8['6 }Sii8(* h!H*i)8[6 }Sii8(* h!H*i)8[6" }Sii8(* h!H*i)8[6& }Sii8(* h!H*i)8[6* }Sii8(* h!H*i)8Jx8.5*@@ T{IOHWG_FgEoD_*hR~-k*T@9*(9= == =9@@ Tg_WO{CW;@o9*qT"qTq*ThtRz>ErHaiURIUr}a34ku8_/qT@8&Ty+qT@9JAqhQ)qHT@9Jq'@Z Th"Q)q*T@9k@Z T{EODWC_BgAF_{H; @C@@ T{A_xog_WO{CCH;ը@9@8BI~)=)| ˿;rThsS} RIzr= @@C T{A_:og_WO{ H; @|RWrC (A) @)4LB)1@)8**"JJ @B Jx B  B  2*J'@B`9[z [ J BJ B BLXZ b &*XJeX   [|JJ \ ",@GZ U)* J5 @^ _{[  J9 J9 9WY9 JJ  JJEZ[ J :*KJ6(@ O f [<J73J !F)k km[k @8* `J) K9[ J)  J)eJY ) |** <JZ E[ JZ { JZgkY{ Z >+* ^J{kX { J9 J9 9gY9 ~J  Jc)Y  ^)* J_{[J  >J JJ  JUZ[J :*` ^J9[ k  . * k  kI[k X.* xJ) 83RXPr e[  ( )  * )IJYl ) {** ;J Z iX Z  , ZSkY{*Z >+*. ^J  9  i9 )Y 9cW)  Y9 w*; 9 {*J   $RrJ J]Z[J : ^ { *{OK Y{ k ~ ; k  * kM Yk @. |  *U  9[ )  >- ) * )E JY) `* <  *] {[ @ * ~(   7@*d kY :+   *e Y   ,  * Q9 )Y )  9 *9G Y9 J < 9 J *: JaZ XJ  \ Z *Zgk YZ k \ : k * k] Yk [. |  3@*Q 9[ )  >- ) * )U JY) {* <  *E@ Z[   ^(  *l d kY ;+   *]. Y   ,  *y e9 )Y )  9 *9W Y9 J < 9 J *Z JQZ XJ  \ Z *Zg+ YZ k \ : k *M ke Yk [. |  *M <[ )  - ) 9* )i JY)  x* 9 8*  Q  X[-*D  9JkY  9+  Y*  9tR9ۭr U  Y(*M { J)Y Z )  *j J Z ZOJ Z JUY[,*J X {JXW.* + Jk  j Y:*  J xއRrk k]k  Y{**ei {J ) Z[7* {J)  )e)  JY;+*I { J  Z-*, {J  D  kY)*] { J  Y(* { J Z U Z )Y *ZO { JZ J Y[,* {JJ  JaJ  X[.*FK {J k Y:*m { Jk  kik  Y{**I {J ) Z[7* {J)  )i )  7@JY;+*a { J  Z-*, {J  H  kY)*MN { J  Y(* { J Z Q Z )Y *Zk { JZ J Y[,* {JJ  JMJ  X[.*n+ {J k Y:*M { Jk  kmk  Y{**Qi {J ) Z[7*h {J)  )I)  JY;+*e { J  Z-*, J  m Y L-   7*kY)*. 9 J  9 Rwr9 9W Y9 M( <  *)Y *   Jz J Z ZSJ YZ Je;, \ J *X\.* Jk M k  kmYk  x + I*9[  [9  ) 8ݎR* Mr ) )E JY) E*; \) Z[ {*:  * ,   l kY I | Y {*-   *  9  a9 )Y 9G <. Y9 {*( > *J : Z J JUZ XJ Z_[ * YZ {*<, ^  *k   k kI Yk a{ + 9[ {*\9  I *)  * ) @)I JY) ]; \) Z[ {*:   *    h kY I | Y {*-  . *  9  I9 )Y 9o <. Y9 {*( > j *J  Z J JiZ XJ Zk[ * YZ {*<, ^ + *k M  k k] Yk a{ + 9[ {*\9  i *) h  ) )Q JY) i; \) Z[ {*:  *   \ kY m | Y {*-  *3@y 9 7    Q)Y  ;. RY9*  (*zJ שR w*rJ Y 9_YJ 9 z,*Jm- :JXJ  Z * Z* k  Ez[k  ;:*kEh JYk  { + {*I )  ) m8[ 8* J )aJY) y J  9 JUY   -*J9 `kY : J9  ZJ9kY ! 8 (*Jm)Y!   JJ 9JJ JQt J X J! J!`Y ! ,*m 4J  M  \Y @J) J) [6 *)QJYJs )  J k Jk  sR!Xs !*L tJkmY k 4 J  J  mYI  @ )Y n(*Jd J J  hkYQ  A J eZ!J %*J ! aJY!L#   (  JY! Ja ,*JX!L c + !J! Ja  IY!h R * .*C )YJa c Jc JR ! !TkYRn , YR A J (*!JJ1 ` 1F/ )  JY1b . Q J1 J @@Y@  -* J  @Y M ,*Ym a    MZ1  - J@ J-  JU)Y  O   i JkY  @*5)( J U( !)ii@ ) @@ !T{IOHWG_FgEoD_C+WO{V;@**oHr<<<<T*@#-hj8Ouio.J! kJ)!i/TS#J~lij 223!rS Jqii*#T#Vo<<<RIzr= @@ T{A_{I;(@C.@94{RKRmVR͑RQ?RJrKmrBrʤr1ԣr22*Quq%TQiq*#TeSKaS JiSK JmSK JqSKuS JEjl8K JGJ52hi*TJReSJmrKaS1 ͑R0JiS ʤrK1 L?RJmS,ԣrK1 {RJqSKrhVRuSKBrK1 J J40eSKaSR QJiSKR 1JmSKR 1JqS8KuS 1J@8K /JJ5.R8c08Qhn8?~qTeSKaS! 2JJq8iSK h.8mSKRJ! RJqSuSKK!  RJOJJcTqTqTdRyreSiSKaS KJmS1 JqSKuSK K1 J JJeSKaS1 0JiSK1 JmSqSKKuS1  KJ JJeSKaS1 0JiSK1 JmSqSKKuS1  KJ JJeSKaS1 0JiSK1 JmSqSKKuS1  KJ JJeSKaS1 /JjSK1 JmSKrS1 KuSJ K JJiSqSK eSKK  aS mSKJJuS J JKJ J J JHJ1J189 uS aS MS 9 S%S(Jh8*Jj8+Jk8,Jl8-Jm8.Jn892 9 9 9 99)@@? AT{A*_*)@@? Tw "C8B8c(!RC WO{W;@< I*T@@? T{DOCWB @*C_i)*@9_qT)#T T  *T ˨{RJRlVR͑RN?RHrJmrBr ʤr.ԣr**2rjq8AQ?tqTAQ?hqbT2AQB?hq)%R0fSKbSB AJjSKB !JnSKB !JrSvSKKB  !Jj1810J?RJ#T**2fSKj18bSR QJjSKR 1JnSKR 1JrSvSKKR 1J 0JOfSKbSB AJjSKB !JnSKB !JrSKB !JB@8vSK B0J1JT2_T92_T/2R6a!9"@a7Aj8CQBQcBhqk%_hq)%?1`TfSKbSc bJjSKc BJnSKc BJrSvSKc KBJ #PJJbTA9! 1?#Tk4*i5qT2@@? T*@@? @ThRyrkyS@@? T+{S;h@*_@q T4*TrPT* T*,@Q=*U=,BY=]=R**9j@roOo *i@8!?q]3T*A }bAqT *. 3NQ    i|K' NpNqNrNsN M 4NvNNWNֺnnnnDnDnDnDn*a*a*aN*aN*!*!N%NsNRN1N1B<NT@TQ/%nq9 T_q2dՋ4RhK(!Hi-8 5*h@^ T{F+@*_Cg _ WO{X;@C#j` 4@**?TC R**5A9*AqHTq`T*4 q`T*H5**J@M@89!q *KT Q@.%!qj-8JTk  ***qT2J K2j%I *5@** _HT42h@[ T*@[ T{POOWN_MgLC_?T?Q* T{ {S;h@h@@ T{B @_j {S;h@h@@ T{B @_Y {S;h@Uh@@ T{B @_H {S;h@h@@ T{B @_7 {S;h@sh@@ T{B @_& {S;h@"h@@ T{B @_O{T;Ո@ASL@@ @Tsp !!|9@@ T{BOA_Oio g_W{@;) =+,#=`=-.== @/0==6 N==19;==2**==** =w$@ = 29CQ684NUN*Nu*N*a*aN*!>Q684NUN*Nu*N*a*aN*!>Q684NUN*Nu*N*a*aN*!>Q684NUN*Nu*N*a*aN*!> Q684NUN*Nu*N*a*aN*!> Q684NUN*Nu*N*a*aN*!> Q68*Nr*NP*a0*aN*!>Q696n6n1*R*6n6n4NUN*Nu*N*a*aN*!>Q694NUN*Nu*N*a*aN*!>Q6 94NUN*Nu*N*a*aN*!>Q6 94NUN*Nu*N*a*aN*!>Q694NUN*Nu*N*a*aN*!> Q694NUN*Nu*N*a*aN*!> Q694NUN*Nu*N*a*aN*!> Q69*Nr*NP*a0*aN*!>Q6!9 NBNƄNNNcNBN!NNAT4 *BTbj-8Q qkT k *T kT@94YBTnj-8@8k kJT5J6l k T_ kYM-*=hTCBA@@ K  N NNNNNNNNk J 6n6n1*R*6n6n4NUN*Nu*N*a*aN*!>P684NUN*Nu*N*a*aN*!>P684NUN*Nu*N*a*aN*!>P684NUN*Nu*N*a*aN*!>P684NUN*Nu*N*a*aN*!> P684NUN*Nu*N*a*aN*!> P684NUN*Nu*N*a*aN*!> P68*Nr*NP*a0*aN*!>P696n6n1*R*6n6n4NUN*Nu*N*a*aN*!>P694NUN*Nu*N*a*aN*!>P6 94NUN*Nu*N*a*aN*!>P6 94NUN*Nu*N*a*aN*!>P694NUN*Nu*N*a*aN*!> P694NUN*Nu*N*a*aN*!> P694NUN*Nu*N*a*aN*!> P69*Nr*NP*a0*aN*!>P6!9 NANƄNNNcNBN!NNAT4kBTbj,8_ 1T kkJT q T@*" q T*"@* 2u q T"@YKN q T@*"*b qmT*"@*ZK@*SK@**$ K@ $ * Y?루TFK@ $ * @1ATFK@**$C@ K@**$ K@*$ qmT"@YKy q T"@YK* %K@**$C@ K@*$ K@**$ K@***$C@  DR<R<**@8****_qATMK@**$ K@*$ K@*$ ?r _qT*{K*`*_q!T@82_qAT-+Qk%qT@8| j)FQ2_qT!+Qk%qHT@8(EQ2_qaT*_qT@82_qaT*KQAq2Tk{k`֩@822_qTY 1j(8WY@Z !T{ROQWP_OgNoM_O{  GS;i@Cc# Ck+;3:}*>h@^ T{QOP_W{H; @07'7pS**˪RjR ΁6r| *o̚ ip8 i+8kTYTlQYq, ki_q K) K} )}  k-r)r)Zk}@?qi+8k T,@.2bTh,8,@Qq, T* 4.@bT h.8.@*qT*@2_bTh*8*@QJq* TqT*@k_Tik8h*8*@nJk*T 6*@)* qZ)2_bT h*8*@J)q*!T@_ T{B_ *j5C{S;h@2 == =A!0=h@^ T{D@C_ֲ_WO { W;@O@@ @ @j@!`S*@\ T_====@a* 5@ @9= -Aa@==V   =?*@7kmT@!*@&@2  @) 5@@@!!A@\ T@~@ @) 5====@a*@\ T*{JOIWH_G_6O{   GS;l@c# CJk';/:}A!02>h@^ T{ROQ_ O{   OS;l@cCc CJk=<@ѡ=>h@@ T{SOR_O{T;Ո@A!>S!*{2!8:G!*{2@@ T{BOA_־ g_WO{Y;(@ARJ 5 *!$qK Tb2_22a!T@2@{2B q+T62V  qT22*7-**22,` qT*6@2j{2 k*T!!8,22[(@@ AT{FOEWD_CgB @*_9 g_WO{Y;(@P 5*!$qK T222=!T_@2@{2 q+T62V I qT22*7*22` qT*6@2{2k*T!!8,22(@@ AT{FOEWD_CgB @*_ֵ O{U;ը@2D**h52A!|*7*22C` qT*6@2!{2k*T!!8,22(@@ AT{FOEWD_CgB @*_ g_WO{Y;(@ 5S*!$R!22qK T222!T@2@{2p q+T62V  qT22*7[*X22Z` qT*6@2{2:k*T!!8,22(@@ AT{FOEWD_CgB @*_g g_WO{[;h@*N@@h @I !A* T*!$q T222b!T@* {2 qT2V?9C*22; q TZ qJT*{2kT2h@@ TA!|CU*R22TBR q+TBR q*TC{21kmT2H@@ TA!|! *^{2@@ T{BOA_:g_WO{V;@2C @jx84hT(T?q?@TTZC'jy8*`5*I@k989?TT#A!|}@R)@@ `T[!`k@@ @T!8*aC WO{W;@**B*@Oqm T!*!hPT P52E 42?`4B* A!|8*!!| 2!!|@@* k _!q T@@J}S_qLT*7i~ A.A/ObOO /΁&n''noo!N1!NƄnn"N"N~o~o"N"NƄNN|o|o#N#Nxoxopopo`o`o(($$儥aT  &Tl} il,ilk  ʍAӭ ˍBӌ L!LAL`Ӭ  cT/@@ T{COBWA2_ք _WO{W;@2C,@H42G@4*24* Fq"T@HQqT@9h4 Q ?aqH19@9H4 Q ?aqH192?i(8jh8( 5<!!|R 2) RB8ar f{2Ӵ22(t DBD2յ!!|2!@H 4*@@qT!2"2+ RBarW{2ĨI,RRlr2 29 yRyRy!BP.@@iR@y4!TȮM@@@@%@a2@@ !T{DOCWB @C_2@_qT!P 2*@@ T!BP!|!|@@\ T!( 2A2Ry_WO{W;@2!|{2 FgR yHRhjr!T6ZR9 @@ !T{COB @_֡Т!`5B5 @@ TWO{V;@B6*@P qT@q TТ!7B|72B6*r@P qTТ!6B|7ZRܞ@@ T{COBWA_ּWO{V;@!|9=2= = =====@] T{GOFWE_WO{T;Ո@!>!`<*{2Же@N@@%@Sj38sAT@@ T{COBWA_O{T;Ո@M@@%@7|@@ T{BOA2_Ҙ O{U;ը@N@@%@@*%@"*=Z@@ T{COB @2_֯WO{U;ը@N@@%@@*%@@"*%@@B*%@b*.@@ T{COBWA2_փC WO{T;Ո@**Rе@"jv8 {2qT@@ T{DOCWB @2C_ZCWO{V;@ R>@RBL?arj{2ה#2!>B>I@@ A T{DOCWBC_֡!?#22 2ؖ!?2ӕ4!?2͕@4!?2Ǖ4!? 2 4!? 2 4!"R@ 4!D"R 4!l @@ T2G-R` B` @@ Tߗ2G[R` 2`@@@ T2sG[R` "`t@@ T2cGR` a@`2WGR` a@` 2KGR` a@`"#@@ T2:GR` `&@@ TWO{V;@BL?*B*@@ T{COBWA_g O{U;ը@BL?2h@q`T qaT`@B2!|R!#28#h@^ T{WOV2_ O{U;ը@B?2 !@@ !T{COB @2_!|(y ֈ@qK T@`@iv8B+TPq T2qT6qA T@qT@`@iv8×+T=@qKT@`@iv8+T0@qT@`"@iv8+T#@q T@`@iv8+T`&@@@Ǔ@@ @T@qKT@`@iv8+T@@ T{COBWA_p {S;Ո@i@J)@ka@=A)@(@ 0J@ @! q@$ ȗh@@ T{B @_C_WO{W;@C2#!|==h @ Ai  @@@? T{COB @ _+@i @?Yq);Tk@HK Qj)@9k,k k)kCO{T;Ո@?q@+T@i @J;! 1  Rir*? kT? kTh@h @!2@u @#>==h @ Ai  @@@? T{DOC@ C_ @H @Yq;TJ@)K,QK)@9J,J? k$WO{V;@**d<h @Rq h @Ah lTqT**:h@ @kTv@@ T{COBWA_{H; @?qC @T)@ @k;)!? )1* @K qTC RjrK? kJT? kAT @)* @K qT5 @)!* @K qTqT)@))@ @RIK @)A 2@@ T{A_ @J )M*))@+@i @?Yq);`Tk@JKMQl)@9k-k_ k)* @K qaT)@)A)@*@@ T{H; @?qC @+T)@ @k;)!? )1  RjrK? kT? kT @) @)!)@ @+@K))@9I @*A ) @@@ T{A _+@i @?Yq); Tk@JKMQl)@9k-k_ k)X O{U;ը@2 @!@E= @@ T{COB @_<C_WO{W;@9 @q!T@r=@h4A _8i06@)$@9 6 _)%@9?rTh @<=A"@9)2 @H@C@A @(@@ T{DOCWB_AC_~C WO{V;@?q @T(@i @J;! 1 @qT<Rhr ? k*T?kTh@ @qT/h @! @qAT@AR=@4@ _8i06@)$@9 6 _)%@9?rTh @<=)@;* @_YqT)@K Q*)@9)+) k‰ @qTwBh @AA@@@ T{DOCWB @C_֋~ {S;h@?q@+T@ @J;! 1  Rir*? kT? kT @@!0h@@ T{B @_ @H @Yq; TJ@)K,QK)@9J,J? kS~C_WO{W;@?q* @T(@i @J;! 1 @qT?Rhr ? kJT?kTh@ @qT1h @! @qaT@*<@4A _8i06@)$@9 6 _)%@9?rTh @<=!)@;* @_YqT)@K Q*)@9)+) k‰ @qTAiR @H@C@l@ @(@@ T{DOCWB_AC_} O{T;Ո@?q @+T(@i @J;! 1 Rhr ? kT?kTh@h @!h @@9h @<=@)9h @ _8i06@)$@9 6 _)%@9?rTzh @h @@ T{COB @_)@;* @_Yq T)@K Q*)@9)+) k‰} O{T;Ո@?q @+T(@i @jJ;! 1 Rhr ? kT?kaTh@h @!h @@AF9h @ _8i06@)$@9 6 _)%@9?rT-h @Ah @@ T{COB @_)@u;* @_YqT)@K Q*)@9)+) k‰@}CO{T;Ո@?q @+T(@i @jJ;! 1 Rhr ? kT?kTh@h @!2@#-9h @<=h @ _8i06@)$@9 6 _)%@9?rTh @Ah @@ T{DOC@C_)@u;* @_Yq T)@K Q*)@9)+) k‰|WO{U;ը@?q @T(@i @jJ;! 1h @ _5=Rhr ? k*T?kTh@h @ _50h @!h @ _i4_ @ ?q`T?qT@@($@96&@9rT'i@ (M(')@v֢;* @_YqT)@K Q*)@9)+) k‰h @ _5 @ ?qT@ @($@96&@9rT@h @Ah @@ T{COBWA2_x|O{T;Ո@?q@+T@i @jJ;! 1  Rir*? kT? kaTh@h @!i @ @+_K)_I)9i @*_8j06@($@96"_H$@9rTi @(Ah @@ T{BOA_ @H @Yqh;TJ@)K,QK)@9J,J? k,| O{U;ը@)*@)dhAy4*} 1!T h@*h@I 1Th@i @ @_ BT @@ T{COB @_{CWO{U;ը@*4h@qkT@i @jJ;# 1 Rir* kT kTh@h @#i@ i @*!*eiAy4i@## !` 1ATv@*i@) iZ@hZȆ@yi2C9y *2Ȇy Ȇ@y@*yȆyiZ1Th@i @ @_ BT @@ T{DOCWBC_ @H @Yqh;TJ@)K,QK)@9J,J? k{ {S;h@(@"@ h@@ T{B @_w{WO{V;@jJ9&UCM*`4@@ T*{EODWC_h @_*@9h4h@2!@F9@=@=@(@ !@976)@ T$@@ @T9{ {S;h@@ _?qT_* @\h@@ T{B @_h@@ T2{B @_{{H; @C0@9@@ T{A_{C WO{V;@?$qH Ti*)q(y@ *^9@@ Tc**@@ TZw^A92h^9" 4h@I|@) -0@ @kTGw^9 T 02*h^9@@ T;`@b@@ @T4`@_qRHh@@ T*h&A(J@@ T"h@i@( %@@ T`^A9@@ T{DOCWB @C_+/w^9hVA9@@q? Tz{O{T;Ո@?q@+T@i @jJ;! 1  Rir*? kT? k!Th@h @!i @@"AѦ4h @q|) h @@ T{BOA_ @H @Yqh;TJ@)K,QK)@9J,J? kDz O{T;Ո@?q T?h@ @T5u @a!I3 @92 h @Ah h@ @kT@@ T{COB @_zO{T;Ո@?q @+T(@i @jJ;! 1 Rhr ? kT?kTh@h @!a @J@h @Ah @@ T{BOA_)@bB;* @_YqT)@K Q*)@9)+) kBy{H; @C @)@) @ @@@ T{A_y{H; @C @! @@ T{A_ֳy O{U;ը@3 @R &AA ( @kT@@ T`{COB @_֑y{I;(@?qC @TH@ @kk;! 1H @qTKqTL@ @H@k T+J-@ @h}|Hih@aERhr ? kT?kaT @ H @q@TqTKqkTJ@H)@9kTH+ h#)@@? TIy@ !H @qTK@j @_YqjJ;Tk@K Ql)@9k-k kJH @qaTh1 @@=`= @JA )@@? AT{A_O{T;Ո@?q@T@ @jJ;! 1 @)?q!TIqT @H @ @k+ TJ)-@A@)}|ii)@Ha @ Rir*? kT? kT @ @)?q T?q TIqT@ )@9_kT )s)s#@@ Tx@! @)?qT @H @Yqh;TJ@)K,QK)@9J,J? k @)?qATss2 @KA @< =( @*!@906 %@96"@I$@9?rT@@ T(@ !@906)@ AT@@ AT{BOA_{I;(@?qC @TH@ @lЌ;! 1 @kqT> Rkrh?kJT? kT @ @kqT0@! @kq@TqT?q+TH@ @kk;! 1( Rkrh?k*T? kT @L@ @Yqh;T@kKnQ)@9. k @kqT@JQ*)@@? T@!@JQ*@)@@? T{A_J@H @Yqh;TJ@kKmQL)@9J-J kxWO{T;Ո@?q@+T @j @kk;)!? )1  RjrI? kT? kTi@)i @)!)@JQq)*5+T@i @jJ;# 1  Rir* kT kATh@h @#@Q)B@?T @($@*@) )T2(@(@ !@906)@ aT@@ T{COBWA_ @i @?Yqi);Tk@JKMQl)@9k-k_ k) @H @Yqh;TJ@)K,QK)@9J,J? kw{H; @?C @_qL A9) *?ql6J@ J?q T) @@ T{A_zw{H; @CT@@@ T{A_kw{H; @C@@@ T{A_\w{H; @C@@@ T{A_Mw{H; @C7 @ 4? T) @?q!QjTa5? * T2I<@@ T*@@ !T{A_*@@ T$wC WO{U;ը@*0@9q!Th@i@ @ @* i  7<@ A97@Ah@T@qT@~@D +T`%h @ _?q!T_** @%+T7@*@ @"B @ BQ@Q(i @= =h @Ah hBqT@@ @JJD) @))@9* K_kT `4%h2@9q!Th@i@ @ @* i  @@ T{DOCWB @C_֭vC WO{U;ը@*0@9q!Th@i@ @ @* i  7<@ A9h7@Ah@`T@qkT@~@D T`% T7@*@ @"B @ BQQ(i @ <=h @Ah hBqT@@ @JJD) @))@9* K_kT `4%h2@9q!Th@i@ @ @* i  @@ T{DOCWB @C_Bv+og_W O { H;@'0@9q!Th@i@ @ @* i  @9qTh @ Ai >@@( @qAT:@hy{o"29c{&/N =@9 1Q?qT({֚H#@9q Th-&Y A9h6@@ @(%@@)@I `Iy )^ii*@9 1Q?qTZH+@99H#@9qTH@-@99H@)@99@9 1Q?qTz@yh@7(7 @ @y7 ==j< A99@9 1Q?q Te*]92RxY*9VH@ 5@*a?i)5&!@I)A=&qh,(2@jJ$kkA&ʮ:7 @@)@ @ @ BQ)a( Q_qTkkjyL kkm& (Qi@( q@ ajkJ9&ky?2"5S RhR2HRRRR@9 1Q?qiTh4* @ R{v@h @ ==h @Ah h2@9q!Th@i@ @ @* i   RevH#@9qTh @ Ah H@%@w1h @R h @2Ah ;CH@@qTzw0H@T@@'@ aT*{KOJWI_HgGoF+@_uWO{(5Oa!`#WO{  AC @kTNcC(i'8|; A96@@ @I%@H5@ as2 @J@j `jy J^5ij2Cxa!%s*O{T;Ո@@ A96 @)@*)@9J4*,+@@`Tk k#T @* _=KT @ _ T @@BD @ BQ&@@@@ AT{BOA_( @i}@)|b-@Bx=iii)9& a#a!&9@@ TYt{(@  Q qA0bB#OWO{(@ qT@=35q4O{(@MqT@3*5qxa!#,O{A4=4ru5a!$a!%WO{V;@*A`322ya!%3*@] T{GOFWE_s{X@Ci @j@2 < =i @@i< O{T;Ո@Ay Ay ( =?!q yyTT=q"TN`56hAyiAyQ)Qhyiy@@ T{BOA_tna!,(2 g_WO{X;@0@9Ayq@T5h@i Th @a! '(Ay =?!qhycTh @a!,(h @a!'"t %( @922 h @Ah @@ T*{FOEWD_CgB @_2hy!?y1 T*q+TthR) r{@{ h A9 7{ @Th@i@ qTqTh@m@!@9R' @92 h @<=B{h i A9y)i29*@ H1i@j@ D !q) -k_kT_#HQkT {#HQkTh@kT*h@hZ*qlT$2! qTt @qv29@TqaTh@m@!@92 a!)R& @92 @<=h@Bi hAyyyQhy@@ @Tm O{U;ը@#@ 0@94t@29h@@ A9 J7@@2?h @* A@654@@ `T4 @@ T{COB @_WmC WO{U;ը@!!@B@y 6@yyiZy1T@h @?BT@@?h @* t@wT,vt@wT&@@2?h @* j@T@y7 6@yyiZy1!T@h @?T44@AT@@ T{DOCWB @C_l{H; @C Ay@@?q T{A_l{I;(@CAyH5@2 09 @ @ A9J  6(@@ T{A*_ @e@TA!)C @)!)A2 ]lA!p(g_WO{V;@C@0C9AyX@X*4h@JqTqTh@m@!@9A!)R% @92 h @<=Bxy29h zy @ (1i@j@hR r D !?q) -k_kT!Q?kTh@k*T*f"Q?kTwZ@@ !T*{EODWC_BgA_Ql;O{ U;ը@CAyy7G'W@ @X@!` #~ @@* 7@  G@} W'@} hAyQhy@] T*{IOH;@_ lC WO{W;@ @@  @  @9*@Rm`@.@"*P8@@ T{DOCWB @C_=**@kA! *BT2nWO{W;@A !,2 ?h R952?95#@ @2?42929292929ϊR'R(wr'h@95#@ @2?W@@@ ! T{FOEWD@_#@ @A!$,2?29@5#@ @2?29`5#@ @2?295#@ @2?95#@ @2?295#@ @2?ϊR'5#@ @2?R(wr' 5#@ @2?h@9 54kog_WO{U;ը@H@H4#9A5`"@c @#2?`*@ 4.@ 4*@9#9`4.@9#9 42@9#9 4@ 4@ q T6@T"@9q=T.@9=T2S9A5`"@c @S2?`5`"@c @#2?`@a<T`"@c @#2?`.@ 5`"@c @#2?`*@9#95`"@c @#2?`.@9#9 5`"@c @#2?`2@9#9`5`"@c @#2?`@ 5`"@c @#2?`@5@4@`&@c @}@~ ?`@ 5`"@c @#2?`q+ TY*9*2@| @ #95`"@c @#2?` @QMq T({{kwh#@9qaTh/@9iTS95`"@c @S2?`5`"@c @#2?`@`4)hkw 5`"@c @#2hkw#95#9`5`"@c @#2h @TS95`"@c @S2?`5`"@c @ac?`BT@ 5`"@c @#2?`qkT.@ )!@9#9 4%@9#94CT`"@c @#2?`.@%@9#9@5`"@c @#2?`CT"@ 5`"@c @#2?`qKT"@6@yx!Th@*4 @5@ @5`"@c @#2?`45&@`"@c @~~?`h@*4 4qTi&@ `5`"@c @#2?`q T*2*@ivy(#@9qT(/@9_TS95`"@c @S2?`5`"@c @#2?`@4#9`5`"@c @#2( @_hTS95`"@c @S2?`5B`"@c @!c?`*@ ) @ 4 @ 4BT`"@c @#2?`*@ @ @5`"@c @#2?`BTh@*4 4qTK@ `5`"@c @#2?`q T*2.@ivy(#@9qT(/@9_TS95`"@c @S2?`5`"@c @#2?`@4#9`5`"@c @#2( @_hTS95`"@c @S2?`5B`"@c @!c?`BT@@ T{GOFWE_DgCoB_ @TS9A5`"@c @S2?`T5`"@c @bhO{T;Ո@)lS)*"}@R(9@@ T{BOA_hO{T;Ո@)pS)*"}@2 (94qcTiQ)7jv*i K Kom kQQ k -<h@i@`2 hRhV92@@ -T~a2@t@ R(h@i@`2 h@h2ga2@A,t@ Rh@i@`2 h*uJR@@ )TZh>af@}h:($@9r`Th"A906a"@($@9r`TtN@4&@9rT@4u@V9@@ @$T3h:@h:@@2V9&@9 >@rT}"A906"@($@9r`Tt{J! !@A@ %@9? r T )@ !@)@h4@ !@906@($@9r`TV @t@(:@@::@F@F*@5ty:@25B@2YRT @76@ q)$@9(T4cT04c@9 h76 @%@9rT.@9@@ #)}@ 4 @I+ @K06Aiwk q*$@9JATj4@C(BTJ4? C(BT@cT@VJ@2YRT @76@ q)$@9(T4cT04c@9 h76 @%@9rT.@9@@ #)}@ 4 @I+ @K06Aiwk q*$@9JATj4@C(BTJ4? C(BT@cT@VJ@E@@ T=hf@jRA9 %@9)I3 %9hZA9q`Ti"G)t@ qJ? kTq}i@h@)(h2hN@hZA9q+T 2hV9@@ aT{GOFWE_DgCoB_hb2iV9h2@@ TcB@@b )@*F K%@9r@TK@+ @K  *@ *@JN@2&@9rT:@6w:@hF@F4*@5te:@25F@2[R.@9@H#}@T @(4@06 @ q)$@9(T4 @h5(4 b@906 @%@9r@TT@J@2[R.@9@H#}@T @(4@06 @ q)$@9(T4 @h5(4 b@906 @%@9r@TT@B@_ T2\RT @76@ q)$@9(T4cT04b@9 h76 @%@9rTI/@9W@H@i#)}@ 4J @I+ @K06Aiwk q*$@9JATj4H@B(BTJ4? B(BTW@cTZ@_!TJ@? T2[RT @76@ q)$@9(T4ncT04b@9 h76 @%@9rT)/@97@(@I#)}@ 4* @I+ @K06Aiwk q*$@9JATj4J(@B(BTJ4? B(BT7@cT9@?!TRA9@2RR9@2 @U bV9}2h&A @(h@@ @T*h@kT2hN@ySh~@~}5@@ TWO{U;ը@ @@KTi Q򊺀Cө}ɛ@Bi ʚ }  V^A94VA9~%+Tq!T^A95᷋qT@k҈&A Q򌶀JBJ}˛(@JB) ʚJ ? AI @@ T{COBWA_ֈ RȚ} t@N@@kT2tN@yS@@ @T(bC WO{U;ը@ @a42hZ9^E8qITqaT2"?yr@TqAT*2ab2hV9`2@^E8qTl@9qT@^E82"?yrTa@9"yr`T@^E8q@TW@9qT@^E8qTN@9qTj@kh&A QlJBJ}˛(@JB) ʚJ ? AI Z9@@ T{DOCWB @C_ֿa_WO{U;ը@*C @N@.@ @N . %@9*y %9VA9J Q_ qTRA9) I3 %9!@9#22!@ qaTw2C9^A929^9h @=!=h @<=h @i@ j *@yJ2*yi@ h@ @y)y yw29^9t4*5@@ T{EODWC_B_ha?qTh @ _) ?qT_aBB@3A!l33R {S;h@*@Ѯh@@ T{B @_Aa _WO{W;@C8@"@9&@9)Q 2?q&9,TJJ!1Iy) ֈ@h:@(" )@97b~@2 @(&@j>@yi:&t>@&9 @TBBT"@976@)$@9?rT @ @h:@($@9r`Tv*@942zuIA? TjVA9_!qT(!@906!@($@9r`T`*@9T*@9T}:@h:2@%@9r@T26@($@9r`TD@qKT@*J!@9 06!iu)$@9?rT5@(BKT@q T.@!iu)$@9?rT#@(BT"@qT"@!yu)$@9?rT"@(T&@?q+T*@iu($@9rT&@)BT"@B)@@qSI  )   }@ @h:*@94@9 06_)$@9?rT*@9(BT@|hVA9!qT@ T BT*@T"@hV@*tV 2u2shZA9q`T@y R}  Ag %@9?rT5 @ qT@a RaPaRLaH&@9y&9U hJ@tJ=.@9@@2I!)}@ h4 @*J!@9 06!iv)$@9?rT@C(BCT@"TXR @@4 06 @)$@9?rTl @(06@($@9rTdւT 06 @%@9r@TւCT@@|.@92I!)}{ i@(h@@ T{EODWC_B @_ֈ.@9@@2H!}@?qTXR @@406 @($@9r`T)5 @h06@ q)$@9(T4(06 @%@9rT#T 42cT*ThVA9H44hB@tBWh>@t>z_O{T;Ո@@($@9r`Ta@($@9r`Ta@($@9r`Ta@($@9r`Ta@($@9r`Ta@($@9r`Ta@($@9r`Ta@($@9r`Ta@($@9r`T@@ T{BOA_*_ g_WO{V;@2),@98 @( @I!)}@ h 4*i @*J!@9*06!ix)$@9?rTh@29?C(C#Tx@T**[R @ @406 @) ?q*$@9IT4m @06 @%@9r T#T&4072CT06@($@9rTS2TCT@2%@9r9#T*CT**VA944"4B @i@@ AT*{FOEWD_CgB @_֤^g_WO{Y;(@q*HkCT yS?q23kT@}h~@}I@ ?ָHk@2SH@?`H@  (H(@@ aT{EODWC_BgA_2^^A!3*kC_WO{W;@ @@?ֳk@H2@? @)(@@ AT{DOCWB_AC_2'^{A!L45{H; @ qCTq#T* <@}S_q)T@qT @}S_}q)T)qS)! Q  *@@ T{A_*@qT]{H; @ qCT2 |S 3JQ !@@ T{A_]{H; @ Q_qC*TK}SL}S)! *5 *@@ TH;Ik8{A  _] _WO{X;@*?4qChT2! R j T @MqT@ @MqT*y4@ *r 4 @MqAT@@*hR`4rT @ qT@ @ qT 4@@qTaN @ qTMqT @MqaT@@ 4 @ qT@'@qTq'AT!b2h @@ T{EODWC_B @_@4 @ qT@'2q'T0@ @ qT4@2q'hT)*)5(y@  ((`J@@ `T$] 8(` (` NNX ) ( @L ` NN>a` (` (@%` @!` {S;i@*?4q T**J5Iy) ` h@@ TPKh@@ TJ`|h@@ TD` h@@ `T>"*h@@ T8@Kh@@ T2`*h@@ T,`Jh@@ `T&**#h@@ @T**j#h@@ TK*#h@@ T **#h@@ T{B @_֟\{H; @J J50Ii8@@ 2 Q]Q?r` CT{A_ֈ\s_WO{V;@W60 @8 J@97?q`T?qT2 @9!T @9J2_qT -@8 L@9 6*mQn2 @8r]Q @9 '7+* @9 T J@9J7*2 @96 @8 @9755?qIZiRelR*r-NR_ koQT_ kT klT @8J= @97* @97A!@[@92q T#q`@`T @9 J@96 @8 J@97)4R9]^ T#"R#_Y@#@9k)8N`@@T @9 J@96 @8 J@97?qh(* @9T2 2) @[ T{ROQWP_Os@_H@[ `T[{I;(@?CT2 222 *k}S,3!F !? Q -8T** !Lj}@! Kh*8)@@? T{A*_֟[#WO{V;@(@MqATd@#c?ARBR.|@`@#c?"ARBR#!|@!?Xj`8(5cY@ 2@9*9(9` @92h @@ T{GOFWE#@_][{CO98S;i@c CѫC)ѩ3=A@*=Wh@@ T{QOP_3[Cog_WO{Z;H@6*ֲ6#RI\{  RB\@w @- @92 @9HQ9qhTz։h @6*!_qT@*!)@ iR:6 !?q T@ !@I)%9]w @6 !?qM T@ !@I)50))@997A!@h @6*A_qT@*! @2@b }h @Aw @A2!XO6 !?qT@ !@T92<6 !?qMT@ !@CRRc52w @|@+w @2'@I @(@( @I @(@T2 2 *k}S 3F-! )Q-8T**J+! *+8 Kw @}@| @92 =@(h@i @ }T2&]t @c @92 qTa2h @_I@@? T{HOGWF_EgDoCaC_A!`:&ZO{   S;l@cCC CJk=<@ѡ=h@@ T{ROQ_ZC WO{W;@\h@9qTqTaT^]j38@@ `TE TR2j 9hHŅRyARZH  @IR>щ"9늖T9]a3]@@ T{DOCWB @C_ ? ]RŅR 9 5xIR 9 y@@ TYCog_WO{[;h@2*h @R FKh @R =Q&@96&@9rTK6*GO+ g;@;(e=I3 =9; @7&@966I$@9?r T?@'A@9@-@*229x8 )@2@+CU-9`i=W@CѠ<1@($@96W@H$@9r`T?@|gRWrS@QuqT"jTJqTS@߆qATrh @Ah h@Z T{TOSWR_QgPoOC_!$R XC_WO{W;@@X A@9q Tk*lTh @.@%5@227@..@ kT @)}@+   Tl  A  T T  J_ T@`@9?!q !9@ %9&@9H6&@9rTh @@ `@9h9@@ T{DOCWB_AC_"B52bXC WO{V;@**LC@>Xy"@~#~)"&@~#~ &"@@.|#|.@"@"2}#} "2@*@"&ry|#|*ry.@&@9|#|.@9@h@ @kT@@ T{DOCWB @C_9XWO{@ @)@6@*5$X!!!!*h @Veog_WO { [;h@' C@ Ay)*=_%q yvT @( QyqT))A(y aW*\?q6T!h@q`Tq[T2 Keh@t@* Q?uqH[T2I!RJr? jZT**Wh@q1T5eh@qKTv@eu@#2 @5a6@#2 `@8Y2/)#u_h@qT# h@q`TqBT# 2eh@%q!CTeh@qETu@t@~eM h@* @9 @ 5@ @) 9J-@) )Qk)@J@!@I٩xi ( c@ @7@6@@-@i J)@@٩x"@H  #h@q`TqATMev@ 9R2@9Xr9 @-@ )@@9#)@y@(QuqT"jT.?KqT6h@qa^T*e @W2 9@99 @-@ )@@9#)@eh@q!7Tx@eh@q@&T1q&TqA[Tw@!!bR@9d!!8bRd!!hBRdh@qA_Td#*`@#Yh@q!^Td#*`@#Yh@qKTd#*`@#Y^V2 9@9*9.A)-@*)@)@c99')')#xdRYrx@QuqT"jTKqTx@WqNTd*#@qaT2#`@\g@9/@4c@9*W**Vdh@q$Tx@|du@w.@@*@ @ kJT@2 }+,il@DT kKTh@qJTgdEVHB*Y:_k T`@@%2;2Sdu@ 9R2@9Wr9 @-@ )@@9#)@x@QuqT"jT4KqT<h@qAT0d-d V**3@qaT23`@z\2k9@9?@c9 @-@ )@@g9#)@#h@ q>T dx@ 9@99 @-@ )@@9#)@RZr|@QuqT(#jTKqTeU** Vh@q9Tc*UUw@!!2@9vc!!bRnc!!Rfch@2qTch@q Ty@ch@q@T1qa3Tcy@#*h@2qTc`@#X#*h@ZqT2#*! 2V****Q h@q!$Tc**`@#3[`@*`qaT*2t@hc7h@q T_ch@q T$R @2( i@)@9 A9*h@}qT Ch@}qTq@TqTqT@ Q qT@@2A@9 *' HA9h@v.@ @ @@kT25' @~7)ij@? Tk T*@k Tq Tc*h@2q T c`@ X*h@qT?;@5q T@?@)~ iiJY J2 i)jq*T*h@2qTb`@W*h@qT3@5QqTWqT3@5q!T@7R@)~ iij3 i)@9*3**M i@1+@9h (9T( @*@,5@ -@(!@I)@@w4m - QKkTz2zK K *QRٯxQٱx q 21( H T k*@Tk + Km M٭x1- aTh@ @9 9h@ Ay)Q yh@'@ aT{JOIWH_GgFoE_@92V**U2U22**1h@q Th@k Tu@ Rza!RXqTAY*UW@9 @}@2% @@ @!c!<4 @"B`ROTh@k@Tu@ RSaa!R1!!|ah@kT"Rh@kTu@ R?aa Ra Rh@k!T R$R!Ru@"R)a!"Ru@ R"a"Ra!!*Da!!@aRRg_WO{W;@C*@@a*qTh@q Tv@a`@!! y.@4HA_kmT`@! @%Х2;21 k.@ @268 `@ @95 *A9: @l)@* @_ kTi @~k@-im U-(@ TJ_ kKTH}@2& - A@9A@9_kT2& @'T*@@ T{EODWC_BgA_֘S$R?g_WO{W;@@ra*c@Mq Tia@2)qAT@Z9h@99h @-@ )@@9#)h@C i @i@qTMa@qTQuqT2(!R r jTF@@ T{GOFWE_DgC_֠@Y9h@99h @-@ )@@9#)h@C i@R*R2Yr@HQuqT#jT_KqT@yqTR*MR*R@@ TSa"Rog_WO{W;@`A@G@9h4aRC@9**vS*RK@94@!! .@@*!@IB kT@@%Х2;2:@.@@)} U_ @9Z KA9* @ @(@kT*@2V ) @~:)ij@? Tk T*(@k T @h @n@9i-@C@9* @ kj * Tm@Qj"@k6@,@K)@P? q#To/ 2K_kT0*P1KKK`/ r2 ٠xٲx1 q QJ T04Qp ٰxk (T*h9n9 @.@K)@))@ k*T2C@9) @~@&:A8_k)T G@94h' @RC@99t @@.@ @j)@ @? kTh @lk@ il 6-:@ T)? kKT(@k+T)}@j#)-JA@9"A@9_kTh# @R*(@kTH@kT@@ !T{FOEWD_CgBoA_'RH @~@2!! `g_WO{Y;(@ C Ay)*=_%q yTh@*qT Q?yqT(1 y2((m=>q Tq Tq!TD2*qT2w@_2`@**Y0,(q=_c@*K!@-@94R2**P/ 2(y=(u== (}==h@a@6S/2)_i@R(Qeq(T))! (y  * 2.(QyqH T))(y hR$(R"(R 2 22R2 22R2HR R hR222HR:Z**Hkh8k Tw@W_`@*ZH@9#Ch@*#**ZWq*Th@ Ay)Q y(@@ T*{FOEWD_CgB_"B`R CQ!!z^_WO{X;@aR@@***JP/(#=2)*=@T@qT_@qT*(5@4S#@qT @@CR@k\#@mqTqTfq!T]@qTq`Tq T^@q!T *A@qT^#@4@ 5Q? qTS @@@5\@Q 4S#@ @@@'\h@~~@@ith@ 3@i4@h@ 3@i4@@ !T{GOFWE_D@_֨@kTRHaREP@R]aR]!!*f]3g_W O { Z;H@**/`Cy@h3@W Bk Tk*MT!#@%@ 2G2(#@ #k*T~@}@*#@+ _y) aT4h3)#@ j3 y(('@96&@9rT**h@@e=ciO2/)RH@/@ T{KOJWI_HgG3@_.{,K*Q٭xPٰx q 10(  T?kTR!R!!p\kT RgOu@ Rn\!!Rj\!!*3\_WO{Y;(@@@@q@TqaT*]*h@qT!]`@Qx@]w@2 @(5a6@2`@P2/)# V/2h@iqT*rh@iqTq`TqTqT\h@qaTw@\`@xP)# T%h@iqmTmq Tq`TqTQT\#*`@#Th@uqAT\#Vh@iqT(@@ aT{FOEWD_C@@_ց$Rd Ra!![Nh@kT!RVu@!R[R[!!*x[_WO{W;@@@x@9qT@r\@P/2)h\c*Y@cS@uqT\\@@q!TT\cS*#*A @#@S*AR**uMx9@@ AT{FOEWD_C_֡RGN R _WO{W;@C@,@@YLBry?kT*@*?kT'`@*@%02;2&@*?kT,@}@|?h*T J _ TK  )   T_ T   _Try |h)&@9=)6&@9rT`@Vr@y(ry @6@ * K_%qTJ@  kT`@@%02{2@ @ @ (x@@ T{EODWC_B @_"B0RMWO{W;@C@R[@q!T@[@1O2/)# nU@@ AT{EODWC@_ց$RGMWO{W;@*@@Cq Tq`TqA Tq[@qT %j[@#lP#*X@qT#O@q@T@kAT!R#' @N/2 )F[ @@* 5Q? qT4#AP@9KR2*iLR/)*X9@@ aT{EODWC@_!!nZ2M@!R9ZR5Z!!*[ZWO{V;@@9 @ hQ qT @6@-@k k Q@٫x,)@k|Ӌik*!T/2`i*)#5b)@*A@9 kT2(E9@@ @T.(=`=@@ @T&@94)-@* ||*ij_TkCT6@*h@(4/(R`h)@@ T{COBWA_L{)@C(!@9q(AT*)@9+k_q`@# @"aQWO{T;Ո@*v~@,@2K@@9 @ ($( A@9@_ kcT2& ! @B@L@ Q?kT}ө @)*@ <a* =@)Q)T@@ T{COBWA_ @ 5@@!k-@ )@!k@j٪x2& +@J| ij@# @baDa:[L{YO{@C\Y!!'Yog_WO{ Z;H@C@@9 @6@@ 9)-@H( j)@ Q)@"@+٫xK l Q+٫xQK l (٨xH @ qT****ZO)4R?2*KwKk9@9*c9 @-@ )@@g9#)@#)@(@9  +94( @*@-5@k -@(!@I)@q@ *TmKlQ k* TzK*Q٭xPٰx q 10(  TkT Km M٭x1- aT*7M:@9R2H@9Sr9H @-@ )@@9#)H@I;@hQuqT#jTKqT*K@4R?2*LK@!R***J@*V AR?2;K*K*V@@ T{IOHWG_FgEoD_a R-K _WO{Y;(@**h@@6KC 5Q? qT} *M qTQLkKT4MNq+T@9*L**8JkT@ @9) 9(@@ T{EODWC_B @_AK_WO{X;@Ch@!Q q"T@*qTqTY! @)qT@*2@9 @)qaT>@9 kT:@9@ kT2>9:9!qTy@ kaT2y@Vi4@!qR*J2^L@Ay %qT$X*@2qTX@M*@qTkT@>M@ **M@/ 2@9Q#)oP@@ T{EODWC_B_!!WR]J@"B`Ru{H; @C (AI A* _J) (@@ T{A_֗JO{T;Ո@ R4h@ |h@yhy@@ T{BOA_|J O{T;Ո@@ @ 5 @ Rh@yQhy@@ T{COB @_[JC WO{T;Ո@@A!7 @ Rh@yQhyAA@@ T{DOCWB @C_3JC WO{V;@ @@kT2R2RA9@9 RD9.@oPR. @ @2A =|$yX P9 P9<@@V@ Xf@_R `"h(8HXhx(8HXhx(8HXhxi @hi @Vy`6i:h@@ T{DOCWB @C_ְIC WO{V;@!@"L@>@> @ R=@yQy@|2R-@@ T{DOCWB @C_yIWO{V;@2€R?!R2h hBi9~ s~hVi29iB 29uR s&@M&@*M&@"*M&@B*Mb*i 2` R*9~~h"*yL =!CR`  R*h`:=aL!p4@@ T{COBWA_I_WO{U;ը@PR @CR `h(8HXhx(8HXhx(8HXhxi @hi @Fy~`2i6h"R2*J~ R2#2 2#:lT^9FLj@@ T{EODWC_B_֢HWO{T;Ո@@ @A'h@ =@"}6a@h>@ii> @ R)h@yQhya@h|@a"€R?ֈ@@ T{COBWA_fH {S;h@ @e@h@@ T{B @_SH {S;i@ T@)@*_ Ta!`Gqh@@ T 2h@@ T{B @_0H{I;+@*E_ JCbT* _8 hS @ !  ? JT(@@ T{A_H{I;(@C(@9H4 @)@@? T{A*_ @ @KE  JbT+ ]@9iS H J  _ JT2 (9)@@? TGWO{U;ը@* @>@kT@}@}c~}>@kT }@i~@j_ x+T@y*J? TqTjQ@-}Ӌimi-h @@m @ }ӌihl @i( >@)?(TkT@}}c~}Q>@@ T{COBWA_֜G{H; @C Kiik%@9r`T l@Ki)K l@%@9r`T l@l)A?A !T@@ T{A_|G O{T;Ո@2 @!"Rngn@?  T_ h T N =b@=" =@= =b @=" = @= =b @=" = @= =b @=" = @= =b @=" = @= =b @=" = @= =b@=" =@= =b@=" =@= =b@=" =@= =b@=" =@= =b@=" =@= =b@=" =@= =b@=" =R@= RJi H?)JAT@@ T{COB @_F g_WO{W;@_( T@hE S@9JT( k_8,kS Y J  _yJT?@@iQ) )V@v.@9TbhF 4 @w2kT;@k+Ta{S?@ @Q :(bf2 (9`h38J.9H@ V;@;@@ T-RrBT@bfRQ@ (9`h38 I@@ T{FOEWD_CgB @_&@9 SA9R)R) ?rT&9@@ T^F6 O{T;Ո@"dR @Q@e@ (9!9@@ T{COB @_>F{H; @C @+ @*=@,@JQJ *K@T K AT+@K*9@JQ*9@@ T{A_F _WO{V;@iR(|@)r} `iK @I }SR S9@CbiG@4@!ccG4H@@ T{EODWC_B @_@@ TEO{T;Ո@ Rr? T" 2; @ @L (9@@ T{BOA_֘EC_WO{X;@H@MqTh5@  kT7h@qT@ kiT2@B7 5@)qTh"@906@i@ T5!!@@E(   kT @JQ(J @J4iRhi @Q Y<.@92*(!_kT@ *, @L5J_kKT*@@ Th{) =`=@ i<2`=@@ T{DOCWB_AC_LEog_WO{ Y;(@**(@7 @C.@92:!@kT$*@kT @*||@ kT? T* Hka  T? T!)T!c# 5kIT;{R2* @ Q6* @* 4@ 6? kT)6kAT#.@9@#Q }@ @MqT@kT5T ==kAT +3c ==kT @*||p @UqT~@hA;Ȃ_4ETE<=Qւ56_qTB{P(@@ T{IOHWG_FgEoD_*25DWO{U;ը@**( @!@||,@ kT? T* Hka  T? T )!?T@@ T{COBWA_`DC WO{U;ը@(@6@4*l|q*T2!*{~@   @)? +T.9 ) .9@@ T{DOCWB @C_'D!0"6O{T;Ո@) @HQ kT)@(((,@92) @H!Q }@( @?MqT @?kT  5 ); T hR#`==@@ T{COB_CWO{V;@k;Ti@@ T{COBWA_C {S;h@(@(,@92#!*sh@@ T{B @_ֵC {S;h@R 2 ) o2 N y-@9 @!Q }@@MqT@ kT5 @n4n}S.4 2;2Q kT @ @.5R-@9 @n!Q }@@MqT@ kT5 @5= *(@@ T>lK qT2{2Ρ;o }SQ kT @00-@9 @!  0@?NqT@?kT5 @qoKqHT_ q*T* }S QlQ, @q HKqT(@@ T{A_H@WO{T;Ո@juh@qh@q@1"aT@@ T{COBWA_$@ O{U;ը@*@@5h*@92)! *h*9@@ T{COB @_@ {S;h@(@ ?qT?qT(@@H @)M"!q@h@@ AT{B @_(@A@h@@ T;{B @_ @ (M(@? O{U;ը@(@qTqTh@@Rh@ @!$@ qT@a@@ Th @R ) Yh@@ T{COB @_֙?C WO{V;@*@=@ =@= =`= = @(%4@ A97*5) `==@ A96*4 @@ Aъ C WO{W;@*x`4@@ aT{DOCWB @C_6QqbT @ qT@h @ q@T>NqTZqTZD`4h @ qTh@ :5c,$Pgc$FO{T;Ո@*@/4h @ @4qAT@q@@ T@@ AT{BOA_2@@ Tl>CO{U;ը@@MqAT@!^2`@@ T' q*T@#a@ !@9?qT-@9*T@@ AT{DOC@C_ @*aT @@"'?Mq !/>CWO{V;@* @Mq`T qT qT@#a@ !@9?qT-@9#T @#T*@@ T!@ @% T4.(!q G !T}G* !T8@h2@@ T{DOCWBC_= _WO{X;@*C@@ (@97@*q@@@ ?q TqT@I@59?CqT**@4 ?q!T2 @@ T @@ T{EODWC_B @_ր=`=@@ T=!+B g_WO{Z;H@*@ @ (@97h@2u@E@@ ?q TqT@@5{CqTL2K@H 4 ?q!T*H@@ T?;T==?+9"@906('@9H6@%@9rTH@@ `T#"@9H06@($@96@%@9r`T==H@@ AT{FOEWD_CgB @_!P,B@ TTs˔:@4qয়@@ T%RT`7@@ aT{DOCWB @C_֨@R @y)2 y@@ @y)R y@ 7q@@ T;@? qaTa@ !@@ T5 @ !@9a?q!T-@9: 4`@2*R  @r? k"T" !ෟ@@ @T Th@2*R @r  ? kbT" !ן+ !}G !T !G* !T 8k*@@ T !}G ! T !G* !T 8 k駟2@@ T2 R@@ TICWO{V;@)@H@  J_r`T* _ qaT _ k*AT?Mq!T@MqTh@k|@#?MqT? qT( qT@#a@ !@9?qT-@9T{ @Tv(Yq(T(@ )!%(y2 ֈ@i@ R@i@ kN@h@? T @@ (@9 (7@R@ h@@@h@?T5 @@ (@9 (7@R@h@ @ )@9*(7@R"@ @2H @ @4qAT@q@@ T@a@~@@ T:@a@ !@@ T2@@ T@h @MqTr@ @% `T*@@ aT{DOCWBC_G !kT}G !T8h @MqTW@#Mq`T qT qTh@#ah@ !@9?qT-@9T  @Ta@ @% T*@@ `TG !T}G !eT8)og_WO{ H;@*{2@CH^  qAT2=2=2H^VUC  Qq(TH_ ?qT? qaTH_qT@-@94H^qT@-@94@ !@9?qT-@9 q T2TFRA2] @ qKT~@2 @ qT qTr@ !@9?qT-@9) TZ @) T{BTT*XS;@ !@9?qaT-@9 @C ad=C TC*`YS;(@ !@9?qaT-@9 @aE=9C,T{2H;"@9)2 h @iQ Kq)z T@@@ T{IOHWG_FgEoD_!,9C WO{W;@H@qTQq TqAT@@ (@9 7@2@ihR`h @@ T,@iR @i h@@ T"@iR-@9i h@@ `T2c@H42@@ T{DOCWB @C_T9BX-O{H; @J_qCT4K@@ TIJ  7@@ T{A_ @@q? TK{A_)9!-9{I;(@J_qCT*b5!-+( qJJ@@zJH )@@? T{A*_9{H; @Ca7@@ ?|qÊ T{A_@@K $?|1೉ T8WO{T;Ո@@@_QqT)&*y@I i @*Aj <6SY<@@ T{COBWA_i @(_h4qaT(_q)Ai @y86)Ry6S?kT "rT2)Ai @yi?7R6S?k@T@@@ Ti @~S Q*( <  AD?q <Th *h @@<6S Y<@h @@ T8*)Ai @y)?7#mog_WO { H;@9(@h@y2hyh@h B@# @@uBu@9(@ i"C9@?rTu@7SR:q@(T({ֈSZ<=@ =Ȃ[S =h z @H@U@h H@ I@7SR(@4==: Sh4R(h @<4u@SR( @#rT),4?q!T @5\[SSQh4R(h ?44 @@h u@SR) @2*4_qT)|өji?q @#rTh'4qT@56 @MqsT"@@@qH +T k,T@S{SqiQ)R(7 @WS[SjQ*R) r8 qTMqT @MqT@ ?qhT*5 @S{SqiQ)R(7 @WS[SjQ*R) r8 qTMqT @MqT@ @kR K}@S{SqWS[SQ)R(Q*R+! rbj@k! T@6S4h@Q)AB@IRr)9U )S[SR * ʂ4*****1 S[S4(4@JRa Q@ kT*qKT@*Q>#@9H06&@96@%@9rT&9?CьT @9(@h S ? qT*! K ka  T_ `T(*"1?TSR(@=WS[SQ)R* r8@= @q!T@n@ 5@S=(M(@(@=(@ !@976)@ ATSR( @ qTMqT@jRK@S{SqiQ)R(7 @WS[SjQ*R) r8MqaTT@ @MqT@kdT(#?}qÈ@ @}S.@S{SqiQ)R(7 @WS[SjQ*R) r8 q`}TMqT @Mq!T@ @kR(}S2#r* T@\SR(@WSQ)S@ Y<=Q@S{SqWS[SQ)R(Q*R+! rbB@k Tu@;@S{SqiQ)R(7 @WS[SjQ*R) r8 q!KT@ @ qKT@`@S{SqiQ)R(7 @WS[SjQ*R) r8MqJT@ @MqT@ @S(M(@@==@S{SqiQ)R(7 @WS[SjQ*R) r8MqJT@ @MqT@*@S{SqiQ)R(7 @WS[SjQ*R) r8 qmTMqapT @MqaT@ @kR( K @S(M(@@@WS(Q( @[SR) r8_qAT@@4==3u@@S{SqiQ)R(7 @WS[SjQ*R) r8 qDT@ @ qDT@'@BMqT*@MqT"@H @MqT qT qTH@a_H@ !@9?qT-@9T7 @T1@S{SqiQ)R(9) @WS[SjQ*R( r?q+T@M@+4"@9H06@($@96@%@9r`T=9(=NAS{Sq @jQ*R)Y@WS[ShQ( @ rR*V?qA'T@#@&4"@9H06@($@96@%@9r`TZ=9(=$4h@A)@S{SqWS[SQ)R(Q*R+! rbp@kT@S{SqiQ)R(7 @WS[SjQ*R) r8Mq1T@ @MqT@JjR* 9(@S{SqiQ)R(7 @WS[SjQ*R) r8 q`RTMqRT @MqhT @@I?qhT*4K@S{SqiQ)R(7 @WS[SjQ*R) r8Mq.T@ @MqT@h7)#}qÉCSR(iu@S[S2R()KJA! j u@R6= =j@J @_8T*A?1h j @(@h 5@h SR( @Mq!+T@(*jR* @S @!@Yi'2@@ `T* O{U;ը@*a41T(@.*( 2).!X5+*'@@ T{COB @2_k* O{U;ը@Rar(**(5{2*2*/'+B${2,'Rar ,2@@ T{COB @_8*O{T;Ո@RarP({2&@@ T{BOA_ *C WO{W;@*'`*-@4Rar,({2(+q{2)@@ T{DOCWB @C_@@ T)C_WO{X;@*i'*-4Rar'{2**{2)5*@@ T{DOCWB_AC_ּ)C WO{W;@*_-`4!$"+{2)4*{2u%{2Z)q!Td,{2P)*U+qTc8*M+*&(!8&*@@ T{DOCWB @C_q)C_WO{X;@**$+qT*&, @*, 2'*@**@4w`!D3%*[@@ T @@ T*{DOCWB_AC_&)C WO{W;@**qmT*+@2'*N@@ `T+@@ T{DOCWB @C_@@ T(WO{V;@*+2}'*@@ T{COBWA_(WO{V;@***kT*]'*@@ T{COBWA_֯( O{U;ը@*h*1TB3*@@ T{COB @_֓( O{U;ը@*:%@N52 '*@@ TN{COB@ @_p( O{U;ը@N*'*qT*%@N52&*@@ TN{COB@ @_G(WO{V;@*&@*H5**4BD9*S@@ AT*{COBWA_2&*c@@ T(WO{V;@**)q+T*%@*H5*)4BD9*@@ AT*{COBWA_2&*/@@ T'WO{V;@ @*_T)u@* _t1cT#T B?T<-u@@@? T3! 4. B?T2&|!x:D`4!p9*D%B${2k){24$a@b @+h @uR@@? T{COBWA_֋'_WO{Y;(@*#)*%@ @?sVC(*$ @ @?~!9N(@@ !T{FOEWD_C@_Q'WO{V;@_* @ @@ T{COBWA_3'WO{V;@*`>*h @h @@ T{COBWA_'WO{V;@LA@y)@ T({2$@ @?֠~{2"{2&@@ T{COBWA_& {S;h@@h@@ T{B @_&C_WO{W;@ @)@T{22"@V'* @ @{2y"{2^&@@ T{DOCWB_AC_֗&{H; @`=*C * <@@ T{A_փ& {S;h@@=) ) <h@@ T{B @_j&WO{V;@*"(`4*%***))$*{2 &*54* )**% {2%@@ T=(**t%@@ T*{COBWA_)&WO{V;@7*E%***(**T%*"**M%@@ T{COBWA_& O{U;ը@(q%@@ T{COB @_% O{U;ը@)4P'{2&*4{2!{2*@@ T{2%@@ T*{COB @_ֹ%WO{V;@$**Z) 4'{2%4{2r!{2W%*X"222(@@ @T%{2E%*@@ T*{COBWA_ O{U;ը@$H#@*5!d4{2"%@@ T*{COB @_[%C_WO{X;@B$*@4@!5!4o*'qT*)A0(y !|!*'4*#*!l5!S*_&ЩM")7q!&G*!C*(@4!$&{2;%*`4{2 {2$qT'*!"!7!*{2$*&*#*z%!x5x!4{2 {2$'@@ T{DOCWB_AC_$WO{V;@*RB1ar22"q`T{2g$Rar2j'**!2X!{2\&{2d {2I$@@ T{COBWA_փ$C_WO{X;@*a44!R%I'&{2$4$&qT+{2$@9*q0!&{2 !w2#{2 {2#@8qT@@ T{DOCWB_AC_{2#@@ `T+$C_WO{X;@*''T!6@qG !T"F!7zV5* @ABT*43*2*H@@ T{DOCWB_AC_3*#@@ T# O{U;ը@Nh'T!5=_'@T!65@@ T@ (T"!"!7'@@ T{COB@ @_֨# _WO{X;@*C*#5!3B5@H{2qKmTK**G 9qT@*!@*E%A( B_*!_*9%A4*(#@@ T{EODWC_B @_`#WO{V;@*x!qT2@@ T{2#*n"*** *%*@@ T{COBWA_/#C_WO{X;@RB1ar*A!qT{2"Rar<"***B1*$'!<$5{2"* m$22&{2${2{2"4B @@ T{DOCWB_AC_"og_WO{C@Z;H@%=C !;!'!@@ T*{COBWA_o  O{U;ը@Rar_*@6"qaT2#{22#2!!@@ T{COB @_@ O{T;Ո@RqG 2* !*C @@ T{BOA2_! og_WO{Z;H@#h@>aR2#SARCR#`>?>0S`!4SARdSn 5***"4"@#*aR2#SARCR#H@i@ AT{WOVWU_TgSoR*_ֻO{T;Ո@2u!q!T2 @@ T #@@ T{BOA2_֛WO{V;@2T! qT2*!$ T!T? *6h R92u76  R+(8 *?(8 t*@@ T{COBWA2_)JR*9U7#*7RBar! T25!4("%2{2f{2{2*7+K_ W O { X;@C2  qT22B?22"T22a@4*2B?22"22 2!4(G"*22* qT!?*2 **#`4#Q 4**a R@@= B>{2 #4 B{2 7@TBT{2w ;@LBD{2o @ B{2g R 3@8B{2[ R @9,B{2O @9$B{2G @9B{2? R  @B${23 @B {2+ R @9B0{2 Ry4{22"B?*@[ T,"2B\{2 R`4{222B{22@[ T{MOLWK_JK@_CKW O { W;@2* qT222**qT**f2@\ T{LOKWJK@C_**#@4 T2.5!4(%!#*2<{222@\ `TB*U@\ T! {S;h@Rarch@@ T{B @2_֙O{T;Ո@2 2*[@@ T{DOCWB @2C_֏#mO{T;Ո@224<'GN$A%!  L" !!+T}G ! T!8  N9)!)' @@ T{COB#Am2_WO{T;Ո@2@!@@ T{BOA2_>C WO{V;@m@b(`qT*q@TA5Ab@@ T9*2*2*kTB|2T6{2 kTB2bn(a `x @@ AT2 !E@@ T{DOCWB@ @C_ {S;h@2P8nMh@@ T{B @*_O{T;Ո@29b@@ T{BOA2_ָO{T;Ո@2"N! gT NF@@ T{BOA2_֜O{T;Ո@2/@@ T{BOA2_օO{T;Ո@2?2 qT4!4 @@ @T! @@ T{BOA2_[O{T;Ո@RqG"R*'!"*^2*!{2{2{2{2B1{2{2@@ T{BOA2_  _WO{V;@2C22* 6@) * cT 2*@*6)  *cT  )qƟ?kk*+T{2 kaT!;*@@ T B*qT*~@ h8qKT@@ !T*{EODWC_B @_g_WO{@Y;(@(*~@#qT2F*Y*\rT*>Qk(8MT#(@[ AT2@{DOCWB_AgŨ_ֈWO{@U;ը@2*2220#-!@,#*4!@] T@{BOAWè_#2@] TT {S;h@2h@@ T{B @_Bog_WO{@H;@*2C @7T@2RD{kT*Bl"(@9(42K`@8H5T!0U @8)Q?)q1*@8JQ_)q61@9qT @8 )Q?)q2)%ji8H1)Q?)q%@9Q%qT!4R92_k78@8HQq.T)(y *~*2621h _8 8h 89R*L =2)@9+@#@  +Ii(8#T8*2N2 h _8 8h 9 8"22h _8 8h * 89"R *+@5+T*0qCT qTqTc*.D@ T2+@#@ +JR*i(87 @9?+qT?sq`T?qTD T2m+@#@ + R*i(8D T2a+@@9#@ +Ii(8&*`4@9ARBRQ)qbTcD T2E@9+@#@ +9i(8w c* ѵ7D T2-+@#@ +JR**i(8*@9h4XT*B8R2)X"TRx *{2f**R**UR*2@4*2k?)q*#RJ |@"*BJ*4*X"Rcd6 |@R,@@@9%`R9+@*+@9qAT(@8qTD TRD? T2@9+@#@++Hi)8T(2@@Y T@{FOEWD_CgBoAG_֡!VCWO{V;@2C2#2HR.@ RP 8 T!052@@ T{DOCWB2C_%og_WO{C@C H;@222+@*2@9hQq*TB2zqT@@@@@*c; R) {/37k T@`9 T;Hq T2q T@9;HBq$ @*{4*@`* kT2*@4@5i*B!3H?bT#D T2'@)@8@ 'Ii(8zqAT@9H 4GH TCH T[P(KmC@ hku8q!Thku8 Q?)qTqaT@TA'D? T2hku8'@@+'Hi)8@T0qTR!#D T2i'@iku8@ 'Ii(8@T@Q`{2{2s@T@! !h;HCH@2C`5{2sM@czqT3H^@*@@@ aT2@C {EODWC_BgAoƨ_O{T;Ո@2b@o@@ T{BOA2_WO{@U;ը@2G@#@h`jv8j68@CT#@\ !T2@{COBWAD_֖ {S;h@*h@@ T{B @_ք_WO{@X;@2C2%*B2#nq-T@  T{2k _ T!@[ T6!$~@Q)} j}@% c= @ q+T@@Q qLTcP2@[ !T@{DOCWB_AE_"WO{@U;ը@2@#@Ai*ia8) h(8@?HT##@] T2@{BOAWè_WO{U;ը@2{2* 6@) * cT 2a@*6)  *cT  )qƟ?k kJT!=@@ TB*}@!.@@ T{COBWA2_֯WO{@U;ը@21@#@h`jv8j68@CT#@\ !T2@{COBWAD_րog_WO{C@H;@2O #@9H.4 22cC3#ggA)*( q( +TD T2u+@#@Q q+?i(8lTQ #qT*{;@*?q*T(sSQ2(!K kkTkT*B(#@K(Qq }@? qoh)8+$T*64) *k}S)K8T+ Q)J}S? +8aT)q!T!64"Q2*?qT@)sS2I!ɚ T*B,@#@(Qq}@? qh(8T4( ~S68T( Q9~S?(8aT+@@+:@ @*@9(5*4 ?#q T?q+#@q!T4 @89qi8T*>@_T*BE@ #@ +?i(8@  TD T2+@*@?q*lT(sS2(!kT*Bl#@(Qq}@? qh(8KT4( S<8Tr( Q9ќS?(8aTk*;@T*B8 @ D T2t+@#@ +?i(8@ @*@9(5LD T2a+@#@ +?i(8* @*@95;"#@q T4)Qi) @89q*8T+@(+ @*@9H5%,џ}T*+ K k TK`2*sK ˊ ))Q< C_WO{X;@Rar@@*T`@9E @aT@siT*@@ `T!@9@Bqd @* V4**[k!T@@ T*{DOCWB_AC_  _WO{X;@C;@*q!T@@9(4/@ q@T5@B2mqT? q*kT@?kmT*7QjT@B\2[ (K *h@@ !T*{EODWC_B @_֨  O{U;ը@(@ )@9JQ_iq Tk jyRJ @2 y2J2:2N2L2J2h2@@ T@)@9)Q?%qI T2` _ 2@@ T2)@9)Q?%q T2u)@9)Q?%q T22`@@ T2)@9)Q?%q Th2h2@@ `T)@9)Q?%qT22h2@@ T; 2*h@@ T@! R*r JR( _8K, bQ_ kT @8kQ)qTHQAqT@! 2k *2@@ T{COB @_։R*r JR( _8K, bQ_ kT @8kQ)qTHQAqT@! 2H **b@@ TR*r JR( _8K, bQ_ kT @8kQ)qTHQAqT@! 2) *b2@@ TR*r KR( _8)1 )Q? kT @8Q)qT?1iT@! 2@@ `TvR*r JR( _8K, bQ_ kT @8kQ)qTHQAqT@! 2 *bWg_WO{X; @hQq2*CH74*}@jh84]3*6*q-T5*?1{2)ѕZ *)i8q)T]3*eTqTD4rSQ2(!J4K@@ T3qT1@z2*4n#H@9?kT* ZT}n# h8?kT* ZT@@ !T*{EODWC_BgA_*O{T;Ո@RhqG 2*a!`'*-@@ T{BOA2_ _WO{@X;@2RO2 *B2 22u*2*p*# k TB$2*5 *r*! # @#3kTT2*5{ *T!@$* ##f@[ AT2@{DOCWB_AE_֜C WO{W;@2 22h *qT qT25*qkTkTB%2kT2*l2*kQT*2*@@ !T* !p% @@ T{DOCWB @C_NWO{V;@*2*22q T*2*lqlT*B,'2@@ T{COBWA2_C WO{W;@22*2qT2*k*T@@ AT**2*k*Tw2 kT*I`4k T2*kAT2*@@ T!&. @@ T{DOCWB @C_C WO{W;@2 22*2*B*k`TqTkTB%2M2*kT2*2*k*T* 2*@@ T{DOCWB @2C_ֈ g_WO{Y;(@2.*2**2&*RR1*q2Ɵ+qT2 4!1{24{22R*qT* 4!"{2q4{2kTq{2,T kTBt&2hKkTB&2klTk-TqT2** 47K2*b *JQ qTHqT2***8kTR*GkjT*(@@ AT{FOEWD_CgB @2_ O{U;ը@2 2+2qkT{2*kTB<'2j2qT222z2**X@@ T{COB @*_֮C WO{V;@**eq`T*L `47277!1 {2426!"7*4U6a!p$7*@47*2@@ @TR*@@ T{DOCWB @C_bog_WO{\;Ո@_kT***v'2*G2*C{242*v2*rKqTq#T4S ySj I    }S2*#2*{2`42*R2*N qT{2KqT{22*{242*42*0 qT~{2 q T2*Q2*2*2*** 2* 2* ;2*{2^49 kT{2z2*{2L959Q*{2iZQ2*{2:_k'4(6h6{2T2*2*8KKkT"Q**&6!**5Q*k}SksZkHT@@ !T{FOEWD_CgBoA_kWO{V;@*2*"42Q Q22v*{2@@ !T* 2**@@ T{COBWA_2O{T;Ո@RHqG2*a!`)*5!( 2B<({2@@ T{BOA2_ C WO{V;@222@q*2⦈x@*7qkT?k * T4w8qT!)3@@ ` TP)  *T  7qTB(2l5q+T7 @9)?qTQq,T'7QqkT@ kTw8J_qTQqTqKTQqTw8q@T 1Tq*T*462@@ T{DOCWB @C_֊C_WO{W;@2 22* 6@) * cT 2*@*6)  *cT  8qTkLTk* T{2 kT!LBp2@k TBp2k*jT>B!Q8(*bT*ւ*9607** q T"**h8+qaTIe3*!xS */7 qT*  J!A *)|S?AqTh? kIT(TT!)Z*@@ T*{DOCWB_AC_g_WO{C@Y;(@_qT2*@DqTBD2~~@!)u(@Z T0*#qKT2:R)F*y*kT*^@V#kT#o(@Z aT2@{EODWC_BgAF_֤C_WO{U;ը@2'22* 6@) * cT 2 @*6)  *cT  8qkTk* TQkTk*T?BT"2 @*QkkTB*2k*T**6*9*6K07**_ q T-**J,j8qTe3 *kyS */7_ qTkM k!k *l}SAqT j kT)*)@T6Kk! T2@@ !T{DOCWB_AC_i2@@ TO{T;Ո@2!9*2*@@ T{BOA2_ O{U;ը@2|2@qT kT k*kT@@ T{COB @_ֈ`8qTQ k*T(*9T 7) T)@9)?qT`*]2@@ T1* k*T07**_ q T**J+j8mqTe3*zS */7_ q TM ! *~SAq(Tk*kj kT)*)!T!)@@ TO{T;Ո@b!>B@2{21bB@!)2{2'bBl@!D2{2bB$@a!8:2v{2bB@!P52l{2 bB A!:2b{2bB@!;2X{2bB@@A!2N{2bB@!*2D{2@@ T{BOA_ {S;h@ D)?kmT@*Q@ j+qT+5SM kl]I TkTkKT k TQkk ki3 KJ}@i! 3 y*h@@ `TH S`Q*2h@@ T{B @_ {S;h@)*)]*!9*xh@@ T{B @_{H; @_1C@T+@1T @?2 )@*k *9J  11!T}@+*+UZ@qJTC29 L53,y+@@ !T{A_"@@ T@!/  O{T;Ո@Rr(@(.1@T1 Th@?2 *@ m *M9I  1m1!T}@** +lUZ@qTC29 +53 y*@@ aT{COB @_*@@ Tc` @!/ {S;h@)*!9*h@@ T{B @_L {S;H Si@`R* *h@@ T{B @_6{I;*@C @%(@@ T{A_%{H; @?1C @ $@T (@1T @?2 )@*k *9J  11!T}@+*+UZ@qJTC29 L53,y+@@ !T{A_(@@ T@!/, {H; @C @?kAT?1$` T (@1 T @?2 )@*k *9J  11!T}@+*+UZ@qj TC29 L53,y+@@ @TA?1`T @?2 J@MRC2O!@09Q 2 1p?qTC_d@i8d7*dqTq|S!*c 1"!+q*#TZ1 *@qQjT@!*A+2TZ_@qT9 2631*T@@ !T{A_(@@ T@!/ {H; @?1C`T @JdSJJ)@?2 -|~.im]n9N 0 1 *?1/i-T@@ T{A_`WO{U;ը@*(@@ @?1T@?2 MRC2/1@P9R  1p?qT_"@i8b7*"_qT2|S1*! R"+2*!VZR *?@qT@9 R61*+TZ?@qTQ69 Q*1*Th"@ i*IA _ kTh @@Х/@2{2jh"@@(h"@IA _ kTh @&@Х/@2{2W&h"@&@i @) @ (`"@h"@@ AT{COBWA_` @!/ WO{V;@*_Aq(dSJT9*2r@@ T2jR*f3e@@ T*{COBWA_ֹ{H; @C @ @9+1@9J _ kT_qJT*19@@ T{A_֢@!. {H; @C @ @9K1@9) ? kT?qjTI19 9@@ T{A_ֆ@!. {S;h@#( @9#2 h@@ T{C@_kg_WO{Y;(@@@C@)@k@MqAT@BkTh@~@ (@ @(JrT 5ֲZL@hR I@ kTa@Х 02g2i@`_ k~@T `@_ k~@T)}@J _  T+k Tl J   T T  k!J_ T=x<@"@9H06h&@96@H$@9rTY(@@ !T*{EODWC_BgA_C{S;h@)|@2kR c##sh@^ T{D@C_{H; @C)@?9q@T?5qT @*LDS@)@J~ӌ}S+ij!3+i*@@ T @*Rr+@L~N S`jilM @9*M3mi,+1@9_ kKT_qbT+19 9@@ T{A_֜@!. {H; @C)@?9qT?5qT 2) @*)@)yj)5S)@@ T @*22)@J~+ijlY3,i*-@@ T{A_nO{T;Ո@(@!QqH T)*(y  2h@@ @TEh y@7 @9?kT@9Q9h@9!qATh@9 @9?kT@9Q9 2"h@R! 3" 2h@i@yi5Sh@@ T @i22@)~ iiKY3 i)l@@ T2i@9j y] *9 *2h)@@ T{BOA_ O{U;ը@h@q!Th@@7@9 kT@9Q9@@9(1@9_kHT_qBT(199Q@@ T{COB @_ @!.  _WO{X;@C*g@-qT@_1@T @1@Ti@?2)@+l *9K  11!T}@,*J +MUZ@q*1TC29 j53*y, @@_ k@.T_1 Tk@?2k@_qo*T_@i8Q7@qT@9O J 1_1T?1 Tj@k?2J@?qM)T_@oi8O7@ߍqAT@9M ) 1 ?1T^-qTv*@Rrw*1*T1 Th@?2 *@ m *M9I  1m1!T}@** +lUZ@qJ%TC29 +53 y* 5 @_ kT*h"@fSiR! *h&h"@iR r*! *h&h"@1h&Tj*@_1Th@?2 @ j *j9I  _1_1!T}@** +lUZ@qTC29 +53 y*w*h"@h&@_1 Ti@q)@AT?2 NRC20*@q9R A ?1_qT"_C@i8c7*CqTR|S**B R"  +R*BUZR*_@q2JT@** +AUZ?@qjT9 J63?1 *T7fS?2 ΅ORpC22*B@9B C ?1_qTd_@i8e7*qT|S_kaT B *B* ** +CUZ@qkT\B***  +DUZ@qbTB@*: J43?1J*aT @_1 Ti@q)@AT?2 NRC20*@q9R A ?1_qT"_C@i8c7*CqTR|S**B R"  +R*BUZR*_@q2 T@** +AUZ?@q T9 J63?1 *T7fS?2 ΅ORpC22*B@9B C ?1_qTd_@i8e7*qT|S_kaT B *B* ** +CUZ@qkT\B***  +DUZ@qbTB@*: J43?1J*aT/ 2R)@@ T{EODWC_B @_` @!/d(WO{U;ը@h@q!TN@Ȧ@) k`T@9_kJTh@q!Th@@7@9 kT@9Q9@@9(1@9_kHT_q"T(199Qv@@@ aT{COBWA*_  @!. {S;h@(@%qT($A) k@Th@@ T{B @_ {S;h@($A) kTQh@@ T h@@ T{B @_֯O{U;ը@C($A) kT4h@QqTth@QqHT)Q+(y  @R)@#'h@2#2`@2qhmTT@@ !T{EOD@_2#cc h2jR# c#`2qhT2@@ TVC WO{V;@(@)q@T%qT!qT@q!T@@7i@9 kTh@9Qh9@W@@ T.@ dS(]*)R *@92!qHRp@9 @yD33^ *@q!T@@7i@9 kTh@9Qh9@@ T{DOCWB @C_C WO{V;@^@)qT@7h@9kTh@9Qh9h@9 2")i@h@9*1@9  kTqbT(19h9@+" S*9*2t@q!T@@7i@9 kTh@9Qh9@@ T{DOCWB @C_ֽ` @!. O{U;ը@Ah@ Q? qT qT-qT@i@?q TI_+@i87 @$*X1Tj@_1T@?2 @ j *j9I  _1_1!T}@** +lUZ@qTC29 +53 y* `  ?r*]*3 `@1Th @"@1&T*@1T@?2 )@*k *9J  11!T}@+* + UZ@qjTC29 H53(y+*h @@ T{COB @_@ @!/wWO{V;@*(@q T1qTh@@yi ?mqTi"@}Sq!JR9 *)Q *i"t*@Rrh*1 T1 Th@?2 *@ m *M9I  1m1!T<i@j@9(1@9_kHT_q" T(19h9Q@qATN@(@7i@9 kTh@9Qh9@FS(]*iR *~t*@Rrh*w1@T1 Th@?2 *@ m *M9I  1m1!T}@** +lUZ@qTC29 +53 y*@@ aT{COBWA_*@@ T` @!/` @!. O{U;ը@,h@q@T qT-qT`@1`Tj @_1T@?2 @ j *j9I  _1_1!T}@** +lUZ@qJTC29 +53 y* 261!T` h@"@1&T*@1T@?2 )@*k *9J  11!T}@+* + UZ@qjTC29 H53(y+*h@@ T{COB @_A @!/xO{T;Ո@(@(9h@2JR` y%q(jh9@@ T{BOA_ C WO{W;@**?qT Tq T}2c.5f@q!T@@7i@9 kTh@9Qh9^*2)h@i"@%@)Q)@@ Tx@Q-qT)+(y 2"A)?1&)`Th@jJKR@?2 ?q)T_@Qi8q7@?qT~S1""* *@9N ) 1?1T @1@Ti@jJKR)@?2 q.(T_@Qi8q7@?qT~S1""* *@9N  11T@@ T{DOCWB @C_2"A)?1&)Th@@?q TI_l+@i8+7 @(i@j@9(1@9_kHT_qbT(19h9Q@q!T@@7i@9 kTh@9Qh9@aR! 32)"A)?1&)T ?r*]*3 "A)?1&)T?` @!.vWO{V;@*H$A) k! TH@*qTq*! T2hRi@3*+j,A)_ k Tj@_qT_q*! T2jRk@6q#T2! R jTMqT _Mq!T Rj@T`"a'_Mq ! T*@] T0#*¸@4#@_MqTc#*@4 @c#@*@MqT2h @h  @* TTR`h2@] T{FOEWD_ O{U;ը@?0qTh&A) kTh@Q qT@@ AT{COB @_րT?Pq@T?LqT@@ T@@ T!h@q!Th@@7@9 kT@9Q9@@9(1@9_kHT_qT(199Q@@ T @!.C_WO{X;@?PqT*)q,(y* **56*G@@ TDi"@) 2?qWh@qTh@@?qT  kT@7@9? kT@9)Q9H@7@9 kT@?qT@ kT@7@9 kT@9Q9@7@9?kT@9Q9FQ qT>]*9*2*@Rr*1` T1 T@?2 *@ m *M9I  1m1!T?BqTDS]*2*@Rr*1`T1T@?2 *@ m *M9I  1m1!TJ9*]*2k*@Rr*d1T1 T@?2 *@ m *M9I  1m1!T}@** +lUZ@qJTC29 +53 y**hRh)@@ T{DOCWB_AC_֨&A) kT'@1qT] h @1 T @1`T@?2 )@*k *9J  11!T h@1` T@1 T@?2 )@*k *9J  11!T}@+* + UZ@q TC29 H53(y+I2@1qaT@ @H  @+uqaTk@qTk@K@7@9 kT@9Q9H  @j@2I! 3 k@h@@ T@q!T@@7@9 kT@9Q9@@9(1@9_kHT_qT(199Q:R =`=@@ T @a!/B @a!.> _WO{Y;(@*C*D*@@qT@ @?qT  kT@7@9? kT@9)Q9H@7@9 kT @?qT @ kT@7@9 kT@9Q9@7@9?kT@9Q9:*]*`2)@"@%@)Q)(@@ T{EODWC_B @_֬{H; @C @ @)%@JQ!*@@ T{A_֙飐RWO{U;HQi=rj S1yR k@}) d iRJ**A *lT!8*Rf3h9@@ T{COBWA_jWO{W;@*@ Q?-qh TjJ-Iy)  qifS(]*2T2jR# c#?"D)?kT@*Q@ j+qT+5Skl]I TkTkTm kLTkkki3 KJ}@i! 3 y*,@k T! S*$@@)~ iij3 i)@AqhfSkT2Rf3@2cc#*AqhfST9*22af3 2N)@@ T{FOEWD@_WO{U;ը@a!&22یa!T#ӌa2!*9ɌA2!P*9A2!/*9!*9AR! *9A2!7*9 2!*9va2! *9l(R!,*9bzHR!*9Xp!hR!<<*9Nfa2!<*9D\aШR!|!*9:Ra 2!$*90Ha2!p#*9&>A2!>*94A(R!p?*9*!HR!\*9 AhR!L"*9AЈR!%*9 R!@*9R*9@@ T{COBWA_ {S;h@*?qT@a! Øh@@ T{B @_IHQ)!+(h_qlT@!x2h@@ T i@@? T{B @_{@WO{*@b2@c@~4u@ȊQ qTw&@@ ?)Tw2_cT!*q,Ta! *x@IQ)!+#h߂q T!x2@V3@ h(8h&@`@!x2@Y!\S`@2WO{V;@@h @ Ai  @9)2 h @*@Ap@h4@ 2h@ @kTÏh @Ah @@ T{COBWA_A O{T;Ո@ ($R??$( " @#0a!&2Ih&@`6`@2@ @2̓h&@ @@ T{COB @_O{T;Ո@ B A^?q ATab`@@ @T =($Rh"`=@@ T{BOA_og_WO{X;@vHDB4{22Y#<R@  @9hu@q#Tz $R)  @@  ` @@  @  @94q`T(q`TB @@  (@  @9q`TV4q`TkT @@  @  @9$q`AT @@  (@  @9lq`Tlq`Th&@ Th&@`h@khT[`@9qIT @  @9`9qTh#jaT @@  (f`9qTR@@ 4TOW@@ ?Tw2_납T`@@V@ 0 @@  H&@  @9q`%T @@  ȓ@  @9 @@  $@  @9q``$TqT @@  @  @9@h(8 @@  (@  @9kvT @@  !@  @9q`!!T @@  @  @9d @@   @  @9q`TqT @@  (@  @9 @@  @  @9q`aT @@  H@  @9>w60h8 7 @@  @  @98 @@  @  @9q`!T @@  @  @9IV@Ȋ@ ? Tw2_낒T`@@U3@ ScT@$R@@ T(*kv`qT Rsw2T@@ ?T_뢍T`@@V @ @h(8 @@  @  @9\*h8urTh&@u@ @c @ A  @9)2 @a*@AL@y4@@R h(8 @@  ( @  @9q` T @@  {@  @9q`zT @@  ~@  @9"` R@@ Tq``TR@@ @ Tq`T @@  w@  @9q` T@R@@ @Tq`T @@  v@  @9q`T2@@ @T~q` TR@@ Ttq`Ti)50(h87R@@ Te@@@ T{GOFWE_DgCoB_ְh&@`C @); דqKT|@];T@i`C\ii8@ ?Tw2_rT`@@V/@ @h(8`{T Rv@kT*i)50(h8Qv72q TT@@ ? Ts2_lT`@@W@  ``h@{2 khgT[RK@h(8 @IRt[ @  @  @9G*i)50(h8Qv72qTW@@ ?Ts2_eT`@@Tː@ @h(8 @IRi[ ;Q@  H@  @9v2qTm*v2qlTI@*@H(nqTrq!TW@@ ?iTw2_^T`@@V@ '1`[T*qZT6q@ZTT@@ ?Tw2_[T`@@W~@ @h(8 @@  @  @9@h(8 @@  @  @9qwTc`v@kT*qw Ti)A< )y 2) * @@  @  @94q` T(q@ T<{RR~W@@ ? Tw2_PT`@@V&@ P;Rj2hW@@ ? Tw2_"NT`@@V@ KH@ @)  @@  (@  @9[RF2Di)50(h8X6T@@ ?Tw2_"IT`@@V@ 1E4q`Tk@T @@  h@  @9@R h(8 @@  @  @9qv@TU@2 h(8 @@  (@  @9@h(8 @@  @  @9 *qvFTW@@ ?Tw2_>T`@@V@ @iR h(8 @@  @  @9*i)50(h8v; 6*1|@2t&@|@@ ?Tw2_"9T`@@Wh@ @h(8 @@  @  @9*i)50(h8w( 6*{| BDCTqDT @@  H@  @9*i)50(h8v66q`T*q!T @@  @  @94q``T(q T*" @@  @  @9v4q`Tk@T @@  H@  @9f*v b*vh@{2 kh 'Ti)50(h8(7^S*i)50(h8v) 6*{&@t@*h@ ?Tw2_"'T`@a@W؎h@`w `@ih(8 @@  @  @9(*i)50(h8w, 6*nStH@ @)  @@  @  @9`W@@ Tw2_T`@@V@ (@h)8v@kaTW@@ ?Tw2_T`@@V@ @h(8 @@  @  @9Ծh&@`u@ !@! ޥ @ A  @9)2 @a*@AǨ@h4@ 2@ @kT @$RAѨ @@@ TL2@@ @TF2@@ 뀜T@`"R@@ 뀛T8`$R@@ 뀚T0`#R@@ 뀙T(`*@@ 뀘T 2@ @kTډ @AѨ @"@9q!T*@942@@ `T$R@@ 렔T[`@#R@@ 렓TSq`T#R@@ `TI`#R@@ `TA`#R@@ `T9``#R@@ `T1`#R@@ `T)` #R@@ `Ta!d*Pa!$RKa!"$RFu@1`TV@Ȋ@ ?)Tw2_Ta!*6@1TU@@ ?Tw2_T`@@T@ `@@T@ h(8 @@  hܽ@  @9`a!$R1TU@@ ?I Tw2_T`@@T_@ V1 TU@@ ? Tw2_T`@@TK@ L1 TU@@ ? Tw2_T`@@T7@ [1TU@@ ? Tw2_T`@@T#@ Q1 TU@@ ? Tw2_T`@@T@ $@h(8@h(8 @@  H`<@h(8 @@  hV@  @9`a!4$R~@h(8 @@  B(a!$Ro@h(8 @@  (3#@h(8 @@  ()#@  @9`a!$RQ@  @9`a!( $RG@  @9`a!X $R=@  @9`a!$R3O{T;Ո@`"@@ T{BOA_g_WO{U;ը@C$@@@ ?Tw2_b T`@@Tp@ @h(8`"@@  H@  @9q`T0q`aTw2Rz&@H@ ?T_"T`@A@TFH@@T @@Ih(8`"@@  H@  @9q`Tq`@T@@ k? T{EODWC_BgA_a!*log_WO{Y;(@$@h@)@ ?Tw2_&T`@@W@ @ h(8`"@@  @  @96qw@T*qT0C*6qwT`"@@  @  @94q` T(qT*-4q`!TkT`"@@  @  @9*wh@{2 khTw2[R{2h&@2qmT6q`Tvq!Tw@Ti*qTv&@Ȋ@ ?T_"T`@@W@ @h(8`"@v@@  h@  @96qw T*qT<ܻ*6qw!Tk*T`"@@  @  @9)1Tv&@Ȋ@ ?T_T`@@XY@ @h(8`"@@  @  @9w*`*wh@kh Tx&@@ ?Tw2_B T`@@V+@ @ h(8`"@@  @  @9`)y`h&@v@ !@!˂ @ A  @9)2 @a*@Ak@h4@ 2@ @kT @A (@@ AT{FOEWD_CgBoA_`@@HiQ5)a"! "$Rja!d*ea!*` og_WO{W;@$@@@ ?Tw2_!T`@@U@ @ h(8`"@@  @  @9quaT2qTx&@@ ?Tw2_BT`@@V@  *quTx @ h(8`"@@  @  @9Һ*x uzw2Z70R@9kT@9kT @  @9u@9kT|&@@ ?T_T`@@VL@ @h(8`"@@  @  @9quTqTHh8H 7v&@qȊ@  T? T_T`@@U%@ =*quT|&@@ ?T_ T`@@V@ @h(8`"@@  @  @9uHh8'6|&@@ ?T_ T`@@V@ @h(8@h(8`"@@  ?*`@9kT8*uHh8'6?Tw2_T`@@Uʼn@ @h(8h&@#@ @@@@?MqI$R  aT{GOFWE_DgCoB_a!*7a! B$R2O{T;Ո@Rar2!!/*B>{2a!0 MbBP {2@@ T{BOA2_O{T;Ո@2`4-@@ T{BOA_22~{2ca! 2\M@@ TWO{V;@"#Bc52fh`2* **K&q*TqTqT2*@hB""@ (! @@ T*@@ T{COBWA2_*@@ TR O{U;ը@22*22qTqAT*22@@ T{COB @_&O{T;Ո@2424bB 27@@ T{BOA2_P@@ TO{T;Ո@2!*2*@@ T{BOA2_C_WO{X;@2bB 2221*2@< 4{222@@ !T*{DOCWB_AC_bB 222RW!L 51T*N{222I{2A2@@ T O{U;ը@2R22+252@@ T*{COB @_]O{T;Ո@2kbB 2r`42 22l@@ T{BOA2_! 1*2y@@ T,O{T;Ո@2:2g22Q*q T*T{2@@ T2{BOA_r@@ T{BOA_O{T;Ո@2222*)@@ T{BOA2_O{T;Ո@22qTbB2e2_@@ T{BOA2_ֵO{T;Ո@2R22`2@@ T{BOA2_֗O{T;Ո@2R222?2@@ T{BOA2_vWO{U;ը@*2,q!T2.@9qATQ2@@ T2k €qqTbB2K@@ T{COBWA_< O{U;ը@2*2R|4qTBB2bB 2C@4a!n@@ T22@@ T2{COB @_ g_WO{X;@2qT2*22<2 QqTbB\2a!(@9q@TqT926@9*L59222 qT@@ TP*96@9*55"*6@9*/4*Q)qcTQk7jT@9{#9*@5a!_qaZ@  AT*@  aT.@@ `TRN@`T@@ AT{FOEWD_CgB @2_nO{T;Ո@2|2(@@ T{BOA2_V O{U;ը@2*1TBB32*@@ T{COB @2_2 O{U;ը@*22s2h222 Q22qT*T{22@@ T uQ@@ T{COB @_WO{U;ը@2*2*2@@q T{COBWA_ O{U;ը@bB 222* 45a!h R{2hRt@@ `T{2\@@ T{COB @_֔ O{U;ը@?qT*{2C2@@ @TK@@ T{COB @_oO{T;Ո@RqG2*;!!6*r@@ T{BOA2_P O{U;ը@2*2467|qT&)$)* kT"}qÉ&|qÈ@@ T{COB @2_"C WO{W;@qT*2*k MT*@@ T{DOCWB @2C_O{T;Ո@2 *@@ T{BOA2_C WO{W;@LqT**2*k*MT**g@@ T{DOCWB @2C_ֻC WO{W;@$qT**2*\kJMT**?@@ T{DOCWB @2C_֓C WO{V;@qT*2*4k MTq2@@ T{DOCWB @2C_jC WO{W;@2*2*22*7q-T qTa!Q{2&I!) @@ T{DOCWB @2C_bB2q,TbBX2 qT' O{U;ը@2*2r*T2(K!,@@ T{COB @2_ O{U;ը@2*27"|qÈK&}qÉ@@ T{COB @2_C_WO{X;@2*2*2*22O*7qT qTa!Q{2(!(*( )!) !!*Q@@ T{DOCWB_A2C_bB2AqTbBX2: q T O{T;Ո@2>K2:r*T2(K!,@@ T{COB @2_s O{U;ը@2*2kT"}qÉ&|qÈ@@ T{COB @2_N{CH; @ @)5 @5 @5 @i5 @)5 @5 @5 @i5 @)5 $@5 (@5 ,@i5 0@)4@@ T*{A_ 4@@@?q T{CI;(@ @* 5 @*5 @*J5 @*5 @*5 @**5 @*5 @*j5 $@* 5 (@*5 ,@*J5 0@*5 4@*5@q)@@? T{A*_{CH; @ @5 @i5 @)5 @5 @5 @i5 @)5 @5 @5 $@i5 (@)5 ,@5 0@5 4@i5 8@)5 <@5 @@5 D@i5 H@)5 L@5 P@5 T@i5 X@)5 \@5 `@5 d@i5 h@)4@@ T*{A_ l@@@?q Tog_WO { H;@' qr}q2qTC8aRT𸧱rR 2R2~BB1. ~/~ '?''_ '7 7@q}` N NCEB@aB@aF@aJ@aN@aR@aV@aZ@a^@ab@af@aj@an@@d@@ T{COB @_{CH; @)@ )@ )@ ) @ )@ )@ )@ )@ ) @ )$@ $)(@ (),@ ,)0@ 0)4@ 4@@ T{A_{CH; @)@ )@ )@ ) @ )@ )@ )@ )@ ) @ )$@ $)(@ (),@ ,)0@ 0)4@)q 4)4@l@)}@@ 8@@ T{A_ָ{CH; @o=)@ 8)@ <)@ @) @ D)@ H)@ L)@ P)@ T) @ X)$@ \)(@ `),@ d)0@ h)4@ l@@ T{A_֊{CH; @)@ )@ )@ ) @ )@ )@ )@ )@ ) @ )$@ $)(@ (),@ ,)0@ 0)4@ 4@@ T{A_`{CH; @)8@ )<@ )@@ )D@ )H@ )L@ )P@ )T@ )X@ )\@ $)`@ ()d@ ,)h@ 0)l@ 4@@ T{A_6 {S;h@ 2*h@@ T{B @_#{CH; @2 4@@@@@ T{A_ {CH; @)@J@I )@J@I )@J@I ) @J @I )@J@I )@J@I )@J@I )@J@I ) @J @I )$@J$@I $)(@J(@I (),@J,@I ,)0@J0@I 0)4@J4@I 4@@ T{A_{CH; @)(@)+0A)Ju )q)Iqju )),B)u Jq*q)u * *0C)ku )q)iqJu )),D)u Jq*q)u **0E)ku )q) iqJu )$),F)u Jq*(q)u *,*qiu *$)I(@)K0A)Ju ku JqJu kqKL,B))qIu JqJ ju qLK0C)ku JqJu kqKL,D)u JqJju qL K0E)ku JqJ$u kqK(L,F)u JqJ,ju qK()*@) * )@J@I * )@J@I * ) @J @I * )@J@I * )@J@I * )@J@I * )@J@I * ) @J @I * )$@J$@I * $)(@J(@I * (),@J,@I * ,)0@J0@I * 0)4@J4@I * 4@@ T{A_%{CH; @ (@) 0A)Ju )q) ku Jq () (B)u kq q)u 0C)Ju )q Iqju  ,D)u Jq q)u  0E)ku )q iqJu $ ,F)u Jq (q)u ,*qiu $)@@ T{A_{CH; @)@J@) K )@J@) K )@J@) K ) @J @) K )@J@) K )@J@) K )@J@) K )@J@) K ) @J @) K )$@J$@) K $)(@J(@) K (),@J,@) K ,)0@J0@) K 0)4@J4@) K 4@@ T{A_֣{CH; @)@J@) K )@J@) K )@J@) K ) @J @) K )@J@) K )@J@) K )@J@) K )@J@) K ) @J @) K )$@J$@) K $)(@J(@) K (),@J,@) K ,)0@J0@) K 0)4@J4@) K 4)8@J8@) K 8)<@J<@) K <)@@J@@) K @)D@JD@) K D)H@JH@) K H)L@JL@) K L)P@JP@) K P)T@JT@) K T)X@JX@) K X)\@J\@) K \)`@J`@) K `)d@Jd@) K d)h@Jh@) K h)l@Jl@) K l@@ T{A_%{CH; @)@J@I )@J@I )@J@I ) @J @I )@J@I )@J@I )@J@I )@J@I ) @J @I )$@J$@I $)(@J(@I (),@J,@I ,)0@J0@I 0)4@J4@I 4)8@J8@I 8)<@J<@I <)@@J@@I @)D@JD@I D)H@JH@I H)L@JL@I L)P@JP@I P)T@JT@I T)X@JX@I X)\@J\@I \)`@J`@I `)d@Jd@I d)h@Jh@I h)l@Jl@I l@@ T{A_֧{CH; @ (@) 0A)Ju )q)Kku Jq () (B)u kq q)u 0C)Ju )q Iqju  ,D)u Jq q)u  0E)ku )q iqJu $ ,F)u Jq (q)u ,*qiu $)@@ T{A_k{CH; @)@)} )@)} )@)} ) @)} )@)} )@)} )@)} )@)} ) @)} )$@)} $)(@)} (),@)} ,)0@)} 0)4@)} 4@@ T{A_3{CH; @*I|@J} Kq +J]k} j*Kq +J]k} j*Kq + J]k} j*Kq +J]k} j*Kq +J]k} j*Kq +J]k} j*Kq +J]k} j*Kq + J]k} j*Kq +$J]k} j*Kq $+(J]k} j*Kq (+,J]k} j*Kq ,+0J]k} j*Kq 0+4J]i} )**q 4@@ T{A ]_{CH; @ɪRr ,@) 4A)q u @[@JC J|pv WJ:q u S@@Jypu  J/Q)@<}SRZ J@JK)J9 J@    J7@  1  H 3@R ! B  Z ) J      s     c 9 { @ J|J@@ J@J@ J@ J@/J@J@J@PJKR)HJCU@2JJHJCUBJJTJTJCTJCTJShJSJCSJC@J@WN)J@hJ@_@(J@cQqhJT@CU U T T CT T S S CS !@ %@ )@ -@ 1@ 5@@Z !T{ZOYWX_WgVoU_{CI;(@@*@@q _ T{A)y K_{CH;)aRr @)|))`) *}I}I R*  i@@2j!? j T{A_ֲ{CI;(@(@) 0A)Ju ku Jq u kq  ,B)qu Jq ju q  0C)ku Jq u kq  ,D)u Jq ju q 0E)ku Jq $u kq ( ,F)u Jq ,ju q ())@@? T2{A)!)Q _rC WO{U;գ@***************o2=w4| &D).C)6B)>A)B@)E)*@#~1nS$lSEnS1r*p*$mSp*mSp*dmSp*EmSp*mSp*mSp*mSp*mSp*nSp*p*El36@qb*6*))))))aT@@ T{DOCWB @C_og_WO{CS;h@ 2*xSqKTg])SR)OQ))@[P)**w@/s@o@k@g@c@_@[@W@S@O@K@C@G@?@;@7#S)34/@|@ **+O)w@xo3(})mS*mS)q*s@{ZmSq*o@wmS)q*k@smSq*g@omS)q*c@kmSq*_@gmS)q*[@cmSq*W@_mS)q*S@[mSq*O@WmS)q*K@SmSq*OHmS)q*C@KImSq*G@HmS)q*?@CImSq*;@GHmS)q*7@?ImSq*3@;HmS)q*q*7oS)nS@TM>+@k~ ˿=T=7+@ ˮ  <T<7   H<T2,<77B13@nRї k    '. ' ' '87l 287@,}2Nk  N *AI)6H).G)s|PS *%PSFPST*PST*%RST*FRST*RST*QST*QST*QST*eQST*QST*DQST*E) )D) )C)J )B)B )A)T*T*: )@)&QS2)@*)PSdPST*PSEPSkU*#PST*PST*ERS`T*#RST*RST*QSpT*QST*QSJU*T*QSmT*T*6))))))j@9ъQ3@@ T{COBWA_CWO{CU;ը@!X@##!@љ A@2:@] T{QOPWO_#O{U;ը@!@x A@ݴ@] T{FOE#@_[O { CU;ը@h!@T A@@] T{MOL[@_״O{ CT;Ո@!@7#t#U#@^ T{IOH_ֺ O{U;ը@[h:@:@@ T{COB @_֣CO{T;Ո@!X@ !@ A@]2h:@] T{TOS@C_yWO{V;@*=:@:@K)J) (J::@ J:@@ T{COBWA_YWO{U;ը@K:@i:@)J) (J:@@ T{COBWA_=O{T;Ո@D2h:@@ T{BOA_)KO { U;ը@#ȶ:@#öh:@#C###V@]q T{KOJK@_WO { U;ը@!@a÷h:@EqKT#N)k&F)#MS)MSE*)E*" ?@#u ?22tQH* H*H*!H*AH* }S) K }S H 2} }S*^42#K#QqT2h:@] T{JOIWH_֨{O{CT;Ո@A!@ A#@g#@] T{QOP{@_փ {S;h@h@@ T{B @_rW O { CV;@(8I8(}2 kT^ױ!@ö A@(2h:@] T{MOLWK_D_WO{W;@_qVTZc2(8@*} kLT*:@}:3635*V!X@!@р A@*2;:@2 kkT|!@h*ϲ:6@[ T{ZOYWX_W@_WO{V;@!@B:@QH* H*H*!H*AH* }S) K }S H 2} }S*\|2!2 kh:kT@] T{FOEWD_֩ {S;h@qh@@ T{B @_֘[O { CU;ը@(8}Yh%!@ A@R2h:@] T{MOL[@_nWO{V;@:@:@( 2 kh:kTX@@ T{COBWA_O+O{U;ը@#_#:@C@( 2 kh:kT4@] T{GOF+@_+#O{U;ը@!@ƴ:@h:f4]ߵ2\@] T{FOE#@_og_WO{CH; @cc­ _q_1}+TCc28c6cc2%aT!X@8Dֆ@c/ ACc@C*2a:@R2 }@:@92}@(}kTcc*o:@2C}@Ci8 ) 6:_qh:T}Yh@cc*K2w:c״c*>w:c˴c*2w:cc*&w:Ci82C2b9@ kkTA2b!@cѥc* _#qw: T@ 2C2C2ưcc*w:cc*w:cwc*ްw:ckc*Ұw:k8 (o9@kkT"oicVc*w:V6 @@Z !T{EODWC_BgAoƨ_ҰCO{T;Ո@!X@/;!@' A@2h:@] T{TOS@C_֨#O{U;ը@!@2e@] T{FOE#@_և_WO{CW;@@ܳ A#@*@#!X@*̳#خų*,2h:@\q T{YOXWW_V_ECO { U;ը@!@##IJ#ݲ2b2y$@] T{JOIC@_O{T;Ո@Z4`Wq@@ T{BOA_CKW O { W;@4####4#a###q@\ T{LOKWJK@C_ӯ O{U;ը@aa@@ T{COB @_ָO{T;Ո@G@@ T{BOA_֢O{T;Ո@ݲ`;`ٲ@@ T{BOA_֌+O{U;ը@###|@@ 1!TȮ26##!d@##@] T{GOF+@_PCc_ WO{X;@#{@4x4@[ Tt*@[ !T*{POOWN_Mc@C_W O { V;@Qt4M@5##5##u#(&#;@] T{KOJWI_W O { V;@#######=##ɫ`4```2@] !T{KOJWI_`R`*@] TW O {V;@!@#*hѡ~#qTZuoͮkṰ`2@] T``*@] T{NOMWL_]O{CT;5@@@qT!qTqT!@@@^ T  @^ T{EOD_1_WO{CW;@@@4@@5!d@#Ӯ8t4u0# ########## 4*_tu Ѣ|v@ѡ@ #ϩ#Ѣk#eũѡѢaѡѢ]ѡѢS##ѳ###OEѢA;#####ث###0#*###*##ʫ# ## ####z###v#Ѣѡ###4*1#f##Ѧ##Ѣ#########Ѣѡ#ѡѢъѡ#@##ܭ8ѡѢԭΰ##.##nѡѢƭѡѢѺѢ#e@\ TC{COBWA_Ĩ_og_WO{CC#U;ը@@4`=@5ګ`43``/@Z $TC#{EODWC_BgAoƨ_)v$w   rb R B 2 ܰ" ذѰͰɰ°cc*c2cc*CcC2zCcC*t*@*@* ##|8x6tc _q(BcRU_1KT*@Qc8lcޯc2[cRD{AT Q?q}R`k78 Q)I@F @C_1T(}@bk8JT# ## )%"#i# 4@Z TëCO { U;ը@#!@ӧ!@#@t#*#2ܧ#v4@5B4@5@] T{JOIC@_֎[O { CU;ը@̮t4Ȯ4gbs\R­`R\RX @] T{MOL[@_SO{ CT;Ո@4`4/.a#+R/R#+ܬ@^ T{IOH_'CO { T;Ո@C a aRlC RhRd@^ T{LOKC_CO { U;ը@*#h@62# 9:qTh@2 9h@)Ri 2 9h@) Ri+h@#'@] T{JOIC@_ɪWO { U;ը@!@6@8צqaT@#Ѧ#@52 qT42@] T*@] aT{JOIWH_g_WO{CC ѨZ;@I@@J@W@H 45!d@#6cztctu#n# ######^#cѢc###########D#c#####֭#֪#Э#Ъ#ʭ###*#c#ƪ###f###4*c tcu# ########cѢcѕ###5########ߥ#c#{####q#q#k#k#e###ť#c#a####W#cѢcWcѡc#ScM##*u#c#I#Ccѡc#c=##*e#####cѕ##է##cэcѡc##c%cѡc####}#cq#x########## #c####c###4*!#Vc####c#####cъ#c####cܩ#֬cѡcѢc֩cѡcѢcҩcѡc#rcȬc##(#c#$### ######cX###c#c #cH@Z !TC {EODWC_BgAF_cW O{V;@7a3a01wB@\ T{OONWMc@_ͨog_WO{H;@**##[CCwx|qT&C##C*B*>*:C׬ԬѬ#O#C*+*'*#qT#T@@Z !T{^O]W\_[gZoY_Xcg _WO{CY;X|(@ J)}B *Q_q(}HQ}S*t*u*HRQ}S***HRQ}S**ܫ*ثHRQ}Sr*ѫb *ͫR *ɫHRQ}SB *«2 *" *RHJQ}S***HRQ}S***H RQ}S***W*v*r*n(@Z !T{QOPWO_NgMc@_֡og_WO{C*H;/@&;#%8׫u;ѫt 7˫ǫ+3'ڢ#c!c!c!@ @c!3@|}êro@b k@R gc!~`;@\7@XRNJaC?;RB 42 1" .c!+@'@3@#$j5ײc!(& *&2&&*C$&\C$2C${&C$*ۤ*c@;@*^@7@*Y##ݪ#%ۦ*#%2#%U#%Ӧ*C$#%+C$2C$J#%C$*#@c!*2+@*.'@**#c!C$&#%C$1C$7q~A&21* T*Q&*&&2#%2Q#%*#%#%2  &2H8s9*T#%2m (i88 Q?q}R))s;@p7@m1KT~}@j8wlT&#&VROP&a/@@Z !T*{EODWC_BgAoƨ_O{ CT;Ո@!,@G!DA#C#@^ T{IOH_ʥWO{V;@!@$ѡ @ˡѡ<@2шѰ*@\ T{VOUWT@*_֔WO{CT;Ո@Ѩ!@!@c#*q{2H4Q*hiq(}ccѤ 5#G2 4[5#c#-q{2@] T{YOXWW_HWO{CU;ը@@cV#˦4!@ўcѡѿ#c8#`4{2@] T{YOXWW_#7`@2hj*@] T_WO{CX; @ YB##* yCۡ!@[@c  @ @2 q 8#4cCšcc { \ 4@5!#ߡGc ֡ #͡ȡ 5 2h@`@*@[ TC{DOCWB_AE_@cCqcc '  ^5 c  сG4{2@[ TXg_WO{C Z;H@,!@CѬ!@#Y@@2qv cCCc3?# ̦# Cѭ# 4C `5 ccC1ccCљC ## C(C C PC C CC cC CC `5@G 22h@# ?`@C <*H@Z T {EODWC_BgAF_@ccCecۧ# t# CU# 5ccCJC ## C٠C C C cC CРC 4{2H@Z T_WO{C W;@!@@Q|@Qx@ѥ@@@2qOe5ѡ6^4w2@\ `ToѴ7w2@\ T*C {COBWA_Ĩ_ѡvq`4w2`5\ͥтq@\ T{2@\ TWO{ V;@ YB*#!@{@Q@Q@ @@@2qʡ5<6١4w2@\ `T/7w2@\ T* {COBWAD_bC]`4C#Cw2`5CסHq@\ T{2@\ Tog_WO{C[;i@aBB+B#]BeBC7/3'**3 (5cACҢCC2*ݞ'@2#3 @99 A@99 @99 E@99 @99 I@99 @99 M@99 @99 Q@99 @99 U@99 @9 9 Y@99 @99 ]@99 !@99 a@99 %@99 e@99 )@99 i@99 -@99 m@99@1@9(19'@@q@9(19'@@5@9(59'@@u@9(59'@@9@9(99'@@y@9(99'@@=@9(=9'@@}@9(=9@C2@ZCW**h@Z !T{EODWC_BgAoƨ_g_WO{CZ;I@]BaB7B/BeB#;3+#s*' o**5ccc2#*#+@2+; @99 A@99 @99 E@99 @99 I@99 @99 M@99 @99 Q@99 @99 U@99 @99 Y@99 @99 ]@99 !@99 a@99 %@99 e@99 )@99 i@99 -@99 m@99#@1@9(19+@@q@9(19+@#@5@9(59+@@u@9(59+@#@9@9(99+@@y@9(99+@#@=@9(=9+@@}@9(=9 4@c2+@cc@#*b@#qH@Z !T{EODWC_BgAF_*O{T;Ո@4`@4`42@@ T *@@ T{BOA_ O{T;Ո@4`@4`42@@ T *@@ T{BOA_ O{U;ը@?Ta|ayhB@@ T{COB @_ɠO{T;Ո@``2h@@ T{BOA_ֱO{T;Ո@`ޢ`ܢ@@ T{BOA_֚ O{U;ը@4a`4a42@@ T *@@ T{COB @_uC WO{W;@?T tuBhtu ߜ@@ T{DOCWB @C_DO{T;Ո@ߢ`q`o2h@@ T{BOA_,WO{V;@Ģ2@@ T{COBWA__WO{CW;@c ##ܛc c c c c c ##ݡ#٢#բvWˢtwâ2h@\ TC{COBWA_Ĩ_֠O{T;Ո@k`i`g@@ T{BOA_֊_WO{CX;@(BqlT` T``Bh@[ Tfc n$dB_####WuRN,Ic c c Bc c c +8C" #3 -C"-t''oY QqT@ 88ф`a##3#3c?c>[ # ***K1TqT@ 8C"ф`B##3 @ 8-ф`7##3'c?c>1 #m QqT(@[ !T@C{DOCWB_AgŨ_sO{=T;Ո@acѨ!0AҎa!<@9a!@898-?؈---َ#"#"cc2c cc c c2ʉc c c֊c c c cϊčѾc ѻc Ѹc c cѭc c vc #"c c }c Fc џc t=[@] T={BOAC_ъ {S;h@Վh@@ T{B @_ {S;h@h@@ T{B @_֯og_WO{C7[;h@a!<@Va!@Rc‰u@Ca!0ACCc2c.CcCc$CcCcCcCcClChCR Ccc!c*cIckTcCC*c6ckTcό*c#ckTcۍ*ccڅkTc~ȍCh@Z !T7{EODWC_BgAoƨ_O{T;Ո@&@4`#42@@ T *@@ T{BOA_ʉWO{V;@*~*z@@ T{COBWA_ְO{T;Ո@#J#@4`42@^ T *@^ T{FOE_֏O{T;Ո@`@@ T{BOA_{ O{U;ը@t`4ap42@@ T *@@ T{COB @_Z O{U;ը@@@ T{COB @_B O{U;ը@ @@ T{COB @_*O{T;Ո@q`c@@ T{BOA_O{T;Ո@`O@@ T{BOA_ O{U;ը@TCa@@@ T{COB @_O{T;Ո@!`@@ T{BOA_҈O{T;Ո@#l#`@^ T{FOE_ֺW O { V;@5#L####E#A#@] T{KOJWI_֔ O{U;ը@ٌaه@@ T{COB @_yWO{V;@ b @@ T{COBWA___WO{W;@Vѡџڈֈ@\ T{SORWQ_P_+WO{V;@@@ T{COBWA_WO{V;@*̈́*Ʉ@@ T{COBWA_CkWO{V;@5#9##{#ۃ#wqoσ@\ T{POOWNk@C_ć_WO{ X;@a!@:@v@:@v@  j J},2_ KT? qTكv@ qkTԃۆ]ՆW#c'NJѡ##cً2#h:ҋ`#2hv@[ T {DOCWB_AE_YCO { U;ը@t9#6` R:R#6 R # @] T{JOIC@_,O{T;Ո@` RzĆRv` Rr@@ T{BOA_W O { V;@u#######}###B##@] T{KOJWI_ކO{T;Ո@q`o@@ T{BOA_ʆ O{U;ը@a@@ T{COB @_ֲcW O{W;@먃@Tuu-)@\ T{OONWMc@_~CW O { V;@t  T@\ T{KOJWIC@_OWO { V;@tމ݆|҉Љa^@] T{JOIWH_$_WO{W;@ T]YPuAIычс߁-*2m45@\ T{COBWA_Ĩ_KO { U;ը@먃Ta4@5#ņ#†###>#4####4#.###5##̃#"###4###ʉ######o2@] T{KOJK@_*@] `T[+O{U;ը@#t#@] T{GOF+@_>O{T;Ո@@4`42@@ T *@@ T{BOA_!O{T;Ո@0@4`Շ42@@ T *@@ T{BOA_ {S;h@h@@ T{B @_ O{U;ը@`4a42@@ T *@@ T{COB @_ф O{U;ը@b_@@ T{COB @_ֹO{T;Ո@L`@@ T{BOA_֥O{T;Ո@7@@ T{BOA_֐ O{U;ը@Ta@@ T{COB @_tO{T;Ո@π`̀@@ T{BOA_`O{T;Ո@s`@@ T{BOA_LWO{V;@uA##Ņki@\ T{SORWQ@_O{T;Ո@U`S@@ T{BOA_WO{V;@a97@@ T{COBWA_WO{V;@!w@@ T{COBWA_ʃWO{V;@b@@ T{COBWA_ְ_WO{W;@vcѡѤ\#V#'#̈́˄#KG@\ T{COBWA_Ĩ_tO{T;Ո@/`-@@ T{BOA_`WO{V;@؂Ԃ@@ T{COBWA_FWO{V;@@@ T{COBWA_,WO{V;@**@@ T{COBWA_WO{V;@5ąj86rY't@\ T{ZOYWX@_Ȃ_WO{X;@=7w#s###'Ѭ##d#ރt#ZT΃̃@[ T{DOCWB_AE_|O{T;Ո@` Rʄ@RƄ`< R„@@ T{BOA_aO{T;Ո@` RR` R@@ T{BOA_FWO{V;@Au#=##u#5~/e@\ T{SORWQ@_WO{V;@##MMF###.,@\ T{WOVWU@_݁ O{U;ը@%!M@@ T{COB @_ֿWO{V;@#Z| TB>t}*2!4#}5FD@\ T{ZOYWX@_ug_WO{CZ;H@먃 TuuЀ̀## 9#~####H@Z !T{EODWC_BgAF_WO{V;@먃 Ttt###31####$"#+@\ T{SORWQ@_ˀog_WO{C[;h@c~c2|cцc}C C K} TB>40߀*c7cYc2~5c2ބcPcV|q T:c*@4C zC YPqT3[QC ԁAwu C C qETW4T` T``h@Z !T{EODWC_BgAoƨ_og_WO{CZ;H@CcCѼcѺc Tc }TwtTnk#T#ebc*5*C`5c2O}C2L}c{4cѡC{`04#c #5VwycѡC{q TC2jc{qTc 4Cq TcѡcѢCJcXc2}#c # c c n#k####xccѡCCC C.#c ##^#Kc2|#݀J~#c ###ʀǀc c cѡCm{6<ćcѡCɁc2|CÁ##PN###FD#c c #cѡC6{7cѡC2{5c2<C'{qTC+` 4c(qTCCѡc|cь~csc2X|#c #JWā#c ##J#c #=HCѡCѢc[~Ci#c ##,)c &+c1cѡC.c2|C(#k###u##Tc c #cѡCћz5$c2{#T#c #-#c c $cѡCwz@5c #qT{qTcSH@Z !T{EODWC_BgAoƨ_~WO{V;@*L|*H|@@ T{COBWA_} O{U;ը@a@@ T{COB @_}O{T;Ո@|4`b~|q@@ T{BOA_};WO { W;@4`{b#{#s|4{a# {#g|q@\ T{JOIWH;@_֖} O{U;ը@abab@@ T{COB @_{}O{T;Ո@{ր@@ T{BOA_e}O{T;Ո@`:`b@@ T{BOA_O}#O{U;ը@#}##zH@@ 1!Tc{2}##A!@#x#m@] T{FOE#@_}C_ W O { X;@ղbb"{@4{4@\ Txz*x@\ T*{LOKWJ_IC_|WO{ CV;@z{tb4v{@5{5#z# zu#z@@] T{IOHWG_֦|WO{ CV;@#~##|#~~?#N{`4~`~`ba2@] !T{IOHWG_`S`b*@] Tk|W O { V;@A!x@#*ycy~cccgx#\xqTk~uc~XxzkTiz~`b2@] T``b*@] T{KOJWI_"|CO{HT;@@@qT!qTqTA!HAy@@^ T  @^ T{DOCC_{C_WO{HW;@@@4H)A@5A!@#wA|tc=|ub#9|#5y###~#3+y~)# 4*|_t|ubcy#|Ѣ~}~y~H)A#ѡ#@ {c#xѢ#h~~cxcѡ#Ѣ#^~#ѡ#ѢcZ~ѡѢ#Ѳ{~xcL~cx~Ѣcx>~~~#x{c-~c~c'~cc{c~c~~cxcc#x##Ѣ#~#ѡ## ~4*{#x#[{W{~#}#}~#Ѣ}ѡ#}ѡѢ#?{q~ѡix}axѡѢ}_~Wxc#{ѡѢ}Q~cѡcѢcѽ}cK~ѢcCxE~j~@~>~@\ T{\O[WZ_YC_zog_WO{CU;ը@iy4`bfy@5#}`4 ~`}`b~@Z $T{EODWC_BgAoƨ_CC.~v)~wbb$~C~~b~~~r ~C"~}}C 2}}}CB}} }CR } } }Cb } } }Cr}"}}CcXwcw*c2Bvcvcw*cJw27vvc*{C*w@*w@* wC}8}}6cy}cy _q(BcRz_1KT*@Qc8 zcWvc2ucRz{AT Q?q}R`k78 Q)N}@K} @bH}_1T(}@bk8CCJT.}*}b'}w|4@Z TyC3O{U;ը@#!@yA!x@v#utb#*#2u#ux4x@5B x4 x@5@] T{HOG3@C_SyCO { U;ը@wtb4w4{CPu{Kus{EuR{CxR{xR{xz@] T{JOIC@_yO{T;Ո@w4`bw4/ua#uRV{xRR{#xz@^ T{GOF_xO{ CT;Ո@tatabtR1{ѧxR-{xR){xxz@^ T{IOH_xC3O{U;ը@*#h@62# 9ovqTh@2 9h@)Ri 2 9h@)Riwh@#|w@] T{HOG3@C_֎xCWO{U;ը@!@6@8xqaT@#x#@52 qT42@] Tfx*@] aT{HOGWFC_g_WO{CHZ;@JI@@J)AW@H 45A!@#t#utٲuubbu{{#{#{#u##Ѣz#Ox{#z#{{czcu{##cmucѢz##c5x#g{czca{z[{ccSu#ѢzcxM{ї4*utٲ8uubb2uz0{#z#*{#"u##Ѣђz#w{#z#{czc{##cucѢxz##cw#{cnzczhzzcct#Ѣ^zcwzc#Ѣ#Tz#ѡ#cPz#zѡ*wѢFzzѡѢќwz*wc#tѾtcw#Ѷtѡt"z#ѡ#t#t#q#tcmwczcc zcczc_wzccycz4*zw#tѡѢyѡѢyCw#?wqzyygzѡ#Ѣ#y#ѡ#Ѣy#ѡ#Ѣ'w#Yz#Qtѡ#MtcItyccAtc w#9t#5ty3z1z/zH@Z !T{EODWC_BgAF_ֺvCKW O { V;@p~vc#5pn,p'pt 5#2h@Hq`@Eq*@[ T {DOCWB_AE_@ronc`oc)qCCcs#C~o#_n#t5#3vc#o]not4{2@[ Trg_WO{C Z;H@#oA!Ao!@dr@@2CqUqv #rCr#o#prs#oѡnNt4Kt`5 ##Cѐo##uѢѣчoCmC~o#yo+t`5@pHR2h@шp`@p*H@Z T {EODWC_BgAF_@#q#Ѽm#n#vpsnѡѬms5##сuѢѣ8oCm#/os4{2H@Z Tnq_WO{W;@#onA!An@QCt@Q?t@Ѱq@cѭq@@2#qpѰs5ѡp6cѩs4w2@\ `T6qcѡp7w2@\ T*{COBWA_Ĩ_֠cѡcѢu#ѡ#ѢcѣnѡѢcѣnr`4#ѣ#?tumw2`5cѡcrcѡ$mcѡoq@\ T{2@\ TWO{ V;i@ YB*`tcmA!ANn@Qs@Qs@+q@#(q@@2cqp+s5яo6#$s4w2@\ `Tp#тo7w2@\ T* {COBWAD_##љtcc#Pn#KnCr`4CccsClw2`5##C r#џl#Poq@\ T{2@\ TCog_WO{[;hi@FHBHЩ+BheB7s/'sS**3# *5cACpClC2*l'@2#3 @99 A@9s9 @99 E@9w9 @99 I@9{9 @99 M@99 @99 Q@99 @99 U@99 @99 Y@99 @99 ]@99 !@99 a@99 %@99 e@99 )@99 i@99 -@99 m@99@1@9(19'@@q@9(19'@@5@9(59'@@u@9(59'@@9@9(99'@@y@9(99'@@=@9(=9'@@}@9(=9_n@C2q@#lC l**nmh@Z !T{\O[WZ_YgXoWC_ִoCg_WO{Z;hI@FHBHЩ/BheB;s3+#s*7' s**5cockc2#*k+@2+; @99 A@99 @99 E@99 @99 I@99 @99 M@99 @99 Q@99 @99 U@99 @99 Y@99 @99 ]@99 !@99 a@99 %@99 e@99 )@99 i@99 -@99 m@99#@1@9(19+@@q@9(19+@#@5@9(59+@@u@9(59+@#@9@9(99+@@y@9(99+@#@=@9(=9+@@}@9(=9q 4@c2p@jkcgkc@#*lb@#lmqH@Z !T{\O[WZ_YgX@C_n{CH; @ @)5 @5 @5 @i5 @)5 @5 @5 @i5 @)4@@ T*{A_ $@@@?q Tn{CI;(@ @*5 @**5 @*5 @*j5 @* 5 @*5 @*J5 @*5 $@*5@q)@@? T{A*_֠n{CH; @ @5 @i5 @)5 @5 @5 @i5 @)5 @5 @5 $@i5 (@)5 ,@5 0@5 4@i5 8@)5 <@5 @@5 D@i5 H@)4@@ T*{A_ L@@@?q Tdnog_WO{ CH;@ qr}q2qkTCxRt8Ir 2ZR;R|R~BB1. ~/~ '?''_ '7 7@q}` N NCEBh {hR(Ir(|(S;`j@ }Rk}H 2h}@) KmRj ? qˋTK!q KT)1")1n.*ET L@?pq) x+T)R)K?QqR) UQ~*kh@@ T{B @_  '_ ?'7 7q}A N N@~!nDB@caB@caF@caJ@caN@`dc@@ T{COB @_wg{CH; @)@ )@ )@ ) @ )@ )@ )@ )@ ) @ )$@ $@@ T{A_Ug{CH; @)@ )@ )@ ) @ )@ )@ )@ )@ ) @ )$@)m $)$@L@)}@ (@@ T{A_*g{CH; @o)@ ()@ ,)@ 0) @ 4)@ 8)@ <)@ @)@ D) @ H)$@ L@@ T{A_g{CH; @)@ )@ )@ ) @ )@ )@ )@ )@ ) @ )$@ $@@ T{A_f{CH; @)(@ ),@ )0@ )4@ )8@ )<@ )@@ )D@ )H@ )L@ $@@ T{A_f {S;h@ R*cjh@@ T{B @_֮f{CH; @2 $@@@@ T{A_֙f{CH; @)@J@I )@J@I )@J@I ) @J @I )@J@I )@J@I )@J@I )@J@I ) @J @I )$@J$@I $@@ T{A_cf{CH; @)(@)+0A)Jq )m)Imjq )),B)q Jm*m)q * *0C)kq )m)imJq )),D)q Jm*m)q **miq *$)I(@)K0A)Jq kq JmJq kmKL,B))mIq JmJ jq mLK0C)kq JmJq kmKL,D)q JmJjq mK()*@) * )@J@I * )@J@I * ) @J @I * )@J@I * )@J@I * )@J@I * )@J@I * ) @J @I * )$@J$@I * $@@ T{A_e{CH; @ (@) 0A)Jq )m) kq Jm () (B)q km m)q 0C)Jq )m Imjq  ,D)q Jm m)q *miq $)@@ T{A_e{CH; @)@J@) K )@J@) K )@J@) K ) @J @) K )@J@) K )@J@) K )@J@) K )@J@) K ) @J @) K )$@J$@) K $@@ T{A_֊e{CH; @)@J@) K )@J@) K )@J@) K ) @J @) K )@J@) K )@J@) K )@J@) K )@J@) K ) @J @) K )$@J$@) K $)(@J(@) K (),@J,@) K ,)0@J0@) K 0)4@J4@) K 4)8@J8@) K 8)<@J<@) K <)@@J@@) K @)D@JD@) K D)H@JH@) K H)L@JL@) K L@@ T{A_,e{CH; @)@J@I )@J@I )@J@I ) @J @I )@J@I )@J@I )@J@I )@J@I ) @J @I )$@J$@I $)(@J(@I (),@J,@I ,)0@J0@I 0)4@J4@I 4)8@J8@I 8)<@J<@I <)@@J@@I @)D@JD@I D)H@JH@I H)L@JL@I L@@ T{A_d{CH; @ (@) 0A)Jq )m)Kkq Jm () (B)q km m)q 0C)Jq )m Imjq  ,D)q Jm m)q *miq $)@@ T{A_֠d{CH; @)@)} )@)} )@)} ) @)} )@)} )@)} )@)} )@)} ) @)} )$@)} $@@ T{A_td{CH; @*I|@J} Km +J\k} j*Km +J\k} j*Km + J\k} j*Km +J\k} j*Km +J\k} j*Km +J\k} j*Km +J\k} j*Km + J\k} j*Km +$J\i} )**m $@@ T{A \_*d{CH; @ʪRr ,@) 4A)lq Jl J}SRZJKZ BJGJ@B J9J{JCJ*** *@JJJ  9 { !    ZQJJ$JfJ5JJJ_qJLT@ )))Q)M)@@@ !T{GOFWE_DgCoB_Zog_WO{W;@/=/=@ =W@S@O@K"@G&@ m}))BB]!7 =*********<2#C)#_)J#*}H*jSC@jSRm*JkSem*+kSDm* kScm*kjSBm*jSam*iS@m*?@)iS)m*#)iSpm*G@#W)*)iSQm*K@iSm*iSom*O@)iS @ )iSNm*S@**iSmm*W@K)*iSLm*jm**@)**4m*@iS)G)m*A)F@)2})iSH*riSAiS)m*Kn*iS*l*iSMn*iS,l*iSOn*.l*2jSj3qQn*W*").)6)>)F)!T@@ T{DOCWB @C_Uo g _WO{CS;h@ R*X)xSqTo@sU)WT))k@@**7#L)*/+4*`@*YE)KG)CH)~jS;I)*jS6m*ijS3J)m*jS3m*ihSm*hS)m*/)jSm*;iS)m*CiSm*+K)KHjS)m*S jSm*F)?iS)m*GiSm*OhiS)m*WIiSm*[HhS)m**@_)hSm*3hS)m*7m*+Xk34 9?k*T/@W)@s)_);@C@K@S@?@G@O@W@{[@w3@o_@s7@k+@# )@~h@Z !T{QOPWO_NgMoL_\T[O { CU;ը@ == ==( @S($@W@==@==H @#H$@'B?ccI@] T{MOL[@_*TCO { U;ը@ == ==( @#($@'#@] T{JOIC@_TO{CU;ը@ == ==( @#($@'h@@ Kh@@ Kh @ @ K h@@ Kh@@ Kh@@ Kh@@ Kh@@ Kh"@#@ K"h&@'@ K&@@ T{EOD@_ֽSCWO{U;ը@ == ==( @S($@W@==@==H @#H$@' @] T{POOWNC_֊So g _ W O {H;@|@&@).A):B)BC)FD)S@_qO @K@G@C@?@;@7"@3&@#)T*****h*H*(*5*********2 )S@ )**kI)***gG@***kG)***o;@***s7@***C3@2*'/@'s)Q *CY1 *s@1 *o@1*1 *k@1 *g@1 *1*5Z?qKT *+@*C, 7********* * *3K)SqSK*[c@jSL*SK*SM*SN* SO**S )*P*S,*I*h7*********'S@  O@ K@  G@a C@ ?@ ;@ 7@ 3@ /@ Hm*r ^m p @m*p Amjp Cmp Dmp Emp Fmp Gmr SH* S^**S@*jSA*SC*SD*SE*SF*SG*~:6)'@Z+ 7g@ct)S S8*Ck@J*S,*go@S8*QS,*os@k*S8*CYQS,*sYS2*CYQS,*3)R~ *k7W@'K@I)W@B G@ q Lm C@*r KmJp  ?@Bmr Tm9 ;@r Um*s { 7@Ymjs [m 3@s \m /@r Vms sr jSL*JSK*SB*ST**SU*jSY*S[*S\*jS*WV*s~ *6'YC)jk *TY *?k!TCY*kTs@*k!T**kTo@*k!Tc@k@_kT_@g@_k!T[@CZ_kT+@Z_k`T_kT#+@Z[@L)KJ KCZk1 K_@z Kc@l Ko@  Ks@* KCY KY2 KIm*r QmJs Kmq / )Kmq +Mmq #@Nmq Om r PmJr Lm2q **cTk**!Tk**Tk**!T?k**Tk**!Tk**T_k**!TW@*?kT'@*?kT_kTS@ O@ K@ G@! C@c ?@ ;@ 7@ 3@ /@ W@'@K!K K  KHm*r ^m p cK@m*p KAmjp KCmp CZKDmp KEmp KFmp Gmr *+@?qT^RKs@+@ *ZRKsCYj K[@CZRK*qK******* *_@L)CYZ Kc@R KY K*o@RKRm*r QmJs  KG4)Qmjq Kmq )Kmo@***jq Kms@***jq KmsCY**@jq KmCYxk**jq KmYjq '@Tk**!Tk**Tk**!T?k**Tk**!Tk**T_k**!TW@*_kTk **`T_kTW@zKBKKRKK9K{KKK S@JKZ O@W@JKR K@JKB G@JKT C@JKU ?@JKY ;@JK[ 7@JK\ 3@JKV /@JKX Jo'Jr KmJp Bmr Tmr Um*s Ymjs [ms \mr Ws C)CZVm *+@?qT *  * *c@ * * *j */K)j * ** *j5 '@W@******** @(y) )#)%)'])@@Z !T{NOMWL_KgJoI_֗PCog_ W O { L;Ո@*@* 6 $@i5 @(5@5@5@h5@(5 @5@5@h5@H4($@(5( @5(@5(@h5(@(5(@5( @5(@h5(@4* k*T(@) 0A) 8B)@C)mHq mhq mq  @ mq mq mq mr m(r m(q () 0) 8)@) )+)3);)C)#)4p@);hA)5XB)7`C)9LD)C9****S 5=p r sQoK)lQq G)nP~q mqq mq  mkq +hmJq )m/Hm)q gC ) )c?)') ='J)sB) C)=<[D)cE)OF)_q')Hy@s|LS&LS *ELSP*LSP*NSP*MSMSP*P*MSP*MSP*gMSP*FMSP*%MSP*MSP*P*P*A) ) )@)@FNS)LSP*LSeLSP*DLSP*P*%LSP*>)6).)&)J)))`@91 L3@@ T{COBWA_J[O { CU;ը@!8A#]H#mK!x@CUH@C@K2*@] T{MOL[@_JO{CU;ը@!x@4H@@K@@ T{EOD@_֫JCO { U;ը@MH!x@CH@C@K@] T{JOIC@_ևJO{T;Ո@!x@G#G#F#L@^ T{GOF_jJ O{U;ը@Gh*@*@@ T{COB @_SJO {T;Ո@G!8AGCJ!x@ѵG@C@:K2h*@^ T{NOM_+JWO{V;@*K*@*@K)J) (J**@ J*@@ T{COBWA_ JWO{U;ը@KK*@i*@)J) (J*@@ T{COBWA_IO{T;Ո@fM2h*@@ T{BOA_I;O{ CU;ը@ G*@#cGh*@3##H@]q T{IOH;@_ִICWO{U;ը@!x@G)Fh*@EqKT#J)k&D)#MS)MSA*)A*" _M/@#q /HMF22EQH* H*H*!H*AH* }S) K }S H 2} }S*E42#HK#MKQqT2h*@] T{HOGWFC_ZICO { T;Ո@|LUG!x@F@#@FJ#I@^ T{LOKC_7I {S;h@Fh@@ T{B @_&IWO { V;@((I((}2 kT`I!x@CF@C@J2h*@] T{JOIWH_HC_WO{W;@_qVTZ_2((@*} kLT*L*@}*62YL*EXE!8AcHFcXI!x@@F@@*I2+*@`qkTAI!x@)F*I*6)E@[ T{TOSWR_Q@C_֙HWO{CV;@!x@F*@QH* H*H*!H*AH* }S) K }S H 2} }S*D)L2!2 kh*kT@@ T{EODWC_^H {S;h@Dh@@ T{B @_MHCO { U;ը@((}Xh.L!x@CE@C@3I2h*@] T{JOIC@_#HWO{V;@GD*@*@( 2 kh*kT[@@ T{COBWA_H#O{U;ը@#_##D*@3@( 2 kh*kT7@] T{FOE#@_GO{CU;ը@!x@JE E*@h*E4CHD2C@@ T{EOD@_ַGog_WO{CH; @*D(DcDcG _q_1}+T c2[H8cGcDc2zCaT# F!8ADc#  Hz@#D@#ѣc@*sH2kD*@bR2 }@*@92}@(}kTcG#D#ѣc*PH*@R}@ i8 ) {D*_qh*kT}Xhc&Kеz@#D#ѣc*,H2cw*K#D#ѣc*Hcw* K#D#ѣc*Hcw*J#D#ѣc*Hw* i8Rb)@`qkTERbcG!x@#gD#ѣc*G_#qw* Tеz@ 2 RcJ#RD#ѣc*Gcw*J#FD#ѣc*Gcw*J#:D#ѣc*Gcw*J#.D#ѣc*Gw*k8 (o)@`qkT"oc0G#D#ѣc*Gw*V6 @@Z !T{EODWC_BgAoƨ_։FO {T;Ո@E!8ACCG!x@C@C@pG2h*@^ T{NOM_aFO{CU;ը@!x@C2FB@@ T{EOD@_@F_WO{W;@z@Cc[Ic4D#C@##c@*%G#*B!8A*ёCc#ѡF#C#c*G2h*@\q T{SORWQ_P_EC3O{U;ը@!x@#hC# B#&C2BiB2A(@] T{HOG3@C_EO{T;Ո@2*tI()j5=!=j* |2jkj`@@ T{BOA_ֳE {S;h@@ !S H)*)@!1A]3!)T!rT@ ) h@@ T{B @_֓EC_WO{H; @ (@ 0L @@)?k ^M)MJEJk I NJJk *T$A) ,B) 4C)* *** * * * *****.JfJ** % J J  6JJXhqZJ Wjq  1 ?  ****T  n / $) ,) 4)<)@@ T{DOCWB_AC_+EC WO{U;ը@2\@)"S H(*)@"1K]3+)T !rT")}h@ !?qT !SiJ)*)@!1J]S*)hT!rTh@wZ )hhjAqT**}Bj J @(*k!J%j)8jj)? T`2*H()j5=!=j* |2jkj`@@ T{DOCWB @C_DO{T;Ո@@PR*nH(=(=(=(`=2~hb@@ T{BOA_֬D {S;h@+@ %F *)@!Kx+)T%@T@ h@@ T{B @_֋D {S;h@+@ %F *)@!Kx+)T%@T@ h@@ T{B @_jD {S;h@ h@@ T{B @_YDC WO{U;ը@2\@&F *)@"Kx+)T %@T"eh@ %@?T %Fi *)@!Jx*)hT%@Th@wZ PhBqT*}Cj J @(*k }!J%˚j)8j҂)? T`BPR*G(=(=(=(`=2~hb@@ T{DOCWB @C_CO{T;Ո@@PR*G(=(=(=(`=2~hb@@ T{BOA_CC_WO{H; @ (@ `L @@)!?k\͓MMk !ΓNʭk T$A ,B 4Ceϓ/6 P9.!;ʐr@ ( ik  //`<*k!#ʛ T@+Ce '@ +@3@ E/@ I#@  @@Z !T{LOKWJ_IgHoGC_>BC_WO{V;@**  K@ k88 T@ ͱ M 4 nHӿk,8* T@ ̵ 4 nPӟk-8T@ ͱ  4 nXӿk,8T@ ̵ l4 n`ӟk-8JT@ ͱ 4 nhӿk,8T@ ̵ ,4 npӟk-8 T@ ͱ 4#kxk,8T@   4)?JTTkkT *kT *kkT@@ T{DOCWB_AC_A O{U;ը@̌R̬r @ @(}@L Țq}}+e ~+* K Klkak dk _q  KqSAT RM))**@R!˚J *G RM-*L@2!˚ Kj@JK Țkj gi@j@(}@K ȚkL  -Q k@TJK ȚhjVj@i@H  +Q k(}@ATI Ț+iq̌R)̬r-}l}*)e}*i KKJaJ J ӌd K R JM+J,K@)qS2!ɚi Ii@)* ȚHih)b@t@R*DRKh@@ T{COB @_3AWO{V;@̌R̬r* @ @(}@L Țq}}+e ~+* K Klkak dk _q  KqSAT RU))**@R!˚J *G RU-*L@2!˚ K@JK Țk @@(}@K ȚkL  -Q k@TJK Țh@@H  +Q k(}@ATI Ț+iq̌R)̬r-}l}*)e}*i KKJaJ J ӌd K R JU+J,K@)qS2!ɚi I@)* ȚHh*u@@ T{COBWA_֨@ O{U;ը@̌R̬r @ @(}@L Țq}}+e ~+* K Klkak dk _q  KqSAT RM))**@R!˚J *G RM-*L@2!˚ Kj@JK Țkj Ji@j@(}@K ȚkL  -Q k@TJK Țhj9j@i@H  +Q k(}@ATI Ț+iq̌R)̬r-}l}*)e}*i KKJaJ J ӌd K R JM+J,K@)qS2!ɚi Ii@)* ȚHih b@t@R*CRKh@@ T{COB @_@_WO{C V;@* R*\CqT#*@*@8#rDT#AtbuR2 R2~2bD) ~~jn8jm82jo8~jp8BRb"b@)3qJA)3m>H)`E)3JQ.KJRJBKpmBmBI)r2Jr.rC)KJBKpNPJprBG)KBKJRJKcJdc&cB)r:rR@BKKJBKoFoJKRJr~ )RKKJp>PKKoc>F)1JKJmJKq J J  K**cJ!J Jc2aq*nZm6UqKT@UqT2UqomnjlpZ@KKk`Tnj,Q!Tk kT!TuRtbc?*@QqlTh(2?UqkijjhlZ@j KJ K_ k`T뗟jj(Q)!T@cCqTacA^@\ TC {COBWA_Ĩ_A? {S;h@2*Bh@@ T{B @_.?WO{U;ը@\  \A9?q+T#C?*V@QqVlT(2V?UqijhZ@j KJ K_ k`T뗟Zj(Q)!T@#pCqT#@^@\ T*{[OZWY@_>{CH; @  _A4"I@9 9I@9 9I@9 9I @9 9I@9 9I@9 9I@9 9I@9 9I @9 9I$@9 9I(@9 9I,@9 9I0@9 9I4@9 9I8@9 9I<@9 9@@ T{A_ִ>{CH; @ G9)9 G9)9 G9)9 G9) 9 G9)9 G9)9 G9)9 G9)9 G9) 9 G9)$9 G9)(9 G9),9 G9)09 G9)49 G9)89 G9)<9@@ T{A_ֆ>Cg_WO{U;ժ@H _qIt**?q(:T2I!ɚ* *? `9T}hiwj)?A4$@9h9@9h9@9h9 @9h9@9h9@9h9@9h9@9h9 @9h9$@9h9(@9h9,@9h90@9h94@9h98@9h9<@9h9vSqs+T*i #+_)KETqTQ~`2#AkjT*01*~@k2R2&1 @Q``AK"haa|X@<S\SJ`8Je8Jc8jd8AJ3e33"Jrqb2T"q T`-B B_k* T c2D bbcd$ bJ#x!+TDCk*TaK`2aA ?kBJ#*T"KCbcB_kcJ! T@Ka2C  `#c`J "@kjTa2B"bK#cE@F<SD|XB\SJf8je8Jb8Jd83E33J" `,B B_kTD  c2bbcd$ bJ#x! TR    _k Th@ cj gH)h@ o?qH+h@ kH+k@(}@K,+T+,R- Q2k r>O o/ @_rTOoIo8}g^S0KKIo8@>SO~S4qI`81!~!g"\SAK1KIq8Q^S4aIq8!"|BgD\SK!KIa84aIo8!|$|gӅ\SK!KIa8_r TDdId8|gӦ\SKKId8 4eI`8|g\SKKIe8 4eIq8||g\SKKIe8/ 4eIo8|gӗ^SKKIe8_r@ TTtIt8~g^SKKIt8@ 4wI`8~~g_S8KKIw8q4wIq8~g_SXKKIw84wIo8~Zg[_SzKKIw8_rTRrIr8R~Z~Zg[_SzKRKIr8pJJ$J4`I`8|g\SKKI`8%*@>SO~S5*Q^S5*5*_raT*`5*Q5*/5*_rT*5*5*5*_rT*pJJ$J5*J`JJJQ4qIq812~RgD^SK1KIq8*JJQJ`J/4oIo8}!g"\SAKKIo8RS3J  23p O*TJ k),TkT~i2*ih ~+ ~jj@jj@j(ihh 2@@ !T{HOGWF_EgD@C_֕@9(J>9@9*h9@9h9 @9h9@9h9@9h9@9h9@9h9@9h9"@9h9&@9h9*@9h9.@9h92@9h96@9h9:@9h9>@9h9@@ Tn9+E J kK  L@8 @9n+)k J 8̱9T@@ T*{EODWC_B__WO{V;@*@qH,T y(a6QqTq*CTi)?Tj_ #T i{jB @bJ@ na!n`?kT?*@'Tk  k i@8L@9 JI8aTh=CvQ=vqTq*#T(i{CJAB@bJ@ na!n`?kT `TCk(i@8L@9 JI8aT2 Qj)IG9=q*)I9T?rTQ**j JG9) ^3 *ATi =Cq=T2,K @T72kKN noεn Tk kϱ T     [pk΁ ==T4k LjK(KI@8l+qk9aTCq+TqT(R K  _kT*`)R)K)}@*j J_Ti )? T k{CBkA @m(==`Bk@ na!n@?J!T?T*@@ `TdhG9C9@9iG9h9G9@9iG9h9K9 @9iG9h9O9@9iG9h9S9@9iG9h9W9@9h9h@C @9wG9xG9=h9@9h9"@9h9&@9h9*@9h9.@9h92@9h96@9h9:@9h9>@9h9oC@9@9/=*(J9@9G@9(J9 @9K@9(J 9@9O@9(J9@9S@9(J9@9W@9(J9 ;yb@:@9!.Jb:9?y>@9J>9@@ T7C+E J kK  @9m+)k9L@8 @9 J 8T@@ aT*{FOEWD_C_{CH; @ @)uS*_qT_qJ}@TI} 0o `?`8!kT? T  )?  kT  _?@@ T{A_֬7WO{U;ը@@qTh@iv84h+T@R9@@ T{COBWA_։7 O{T;Ո@@q+Th@iu89hKT@@ T{COB @_k7{CH; @*@9 4  -  JT @ i+8 @kJ *k85@@ T{A_L7{CI;*@ @+@*_ kT_q+T@+@ il8nil8kAT kKT2(@@ T2(@@ !T{A_*(@@ T 7{CI;(@(@k*kT@k*T_q+T @(@_q*AT*2)@@? T'ly**O _8%@8_8&@81 2J@J**T  *@TJ  k L@8@8k J *aTq)@@? T{A*_6{CH; @ @)kT?q T* @L ll8li)8 )? +T@@ T{A_ֻ6{CH; @_qKT K|@ M  jT @-hi8 i)8 @)?  kT@@ T{A_֚6{CH; @+@ @qT @IA)? kjT+@ @kij8J)8+ @_ T+ @@ T{A_w6{CH; @_q T  ,  JT @k ai*8 @J_kk T@@ T{A_X6{CH; @)@?qT ? jT*@ @Jii8lii8 Jji)8*)? T@@ T{A_96{CH; @@@ T{A_*6{CH; @ @?q T @_i)8 )? kT@@ T{A_6{CH; @_qT ,@)J}@I ? kT_ kT+}@ @i*8J T?q T?qKT)}@ @? J A8T!|S)!5@@ T{A_5{CI;(@ @*kT@k* TkT( K*Q_k+TkQ @k8kQ*8JQ_kJTqT}@ @_i(8Ѩ62)@@? T{A*_ָ5{H; @0ɪRr ~ *)`) ) q  K*K T#*2lRRkT1@2o8kT*kQkT*kQ *kQkT1@"o8kT1@#o8D|Se|SQ~ScqD3E 3)T * * *CF@BdhqdhQehq0dQeQ(q0qq"80@i kT Jq+TR,J_ q )8 *kT *,8@_ T{B_I5CO{U;ը@8qT**2322r@kTi8"2a@?qbT*cQhqa0#Q$\Qhq0#Q$0Q(q0?q?q4q1B|@jb8B@qcTQhq0dQe\Qhq0dQe0Q(q0qq4q!jb8"2@qcTQhq0dQe\Qhq0dQe0Q(q0qq4q!b8b@_qcTcQhqb0CQD\Qhq0CQD0Q(q0_q_q_4q!~}AK)*B*c*?q)Tk}@ T!|@d@eybCh"8jTbDT*?k T ?kkT*h@@ T{DOC@C_֢4{CH; @ @?q T @?i*8 J_ kT*@_ k)?q KT*@ @Jii8ji)8 )? +T@@ T{A_z4{CH; @ @?qKT @Kii8kJKi)8 )? +T@@ T{A_`4{CH; @ @)kT))@?qKT*+? T @L kl8,@i)8+)? TA?@@ !T{A_@@ T34C WO{U;ը@@kqKT}@v8@i68KT@@ T{DOCWB @C_4C_WO{V;@@q T*h@7ix8h T@@ T{DOCWB_AC_3O{98S;j@cC# CѬ=6h@@ T{ROQ_ֽ3{CH; @ @?q T @_i)8 )? kT+@9K4*2lQ)qTlQqhTlQlQk]Qql1+Q.k8mSQ)qCTQqhTQ̅Q]Qq1 @ *8+i8L)  *k5* @@ T{A_w3C WO{V;@@qT> h@iw8{hT@@ T{DOCWB @C_Q3g_WO{CY;(@**qTqTqaTc c3qT~S^S>Sq Tq@TqaT0*0*0*0J1qT1q*T 2* 2*2*2@q+Tq@TqAT@iv8\0+T#c m7c *j7c *g7c *d7@c iv8]7+T qT@iv81@(TqT**6qTqTqTc 4&5R03b@Hk-T**4*.(@[ TC{DOCWB_AgŨ_֦2 {S;h@1h@@ AT須R|@Er{B @} p_֏2og_WO{C[;h@  @ @*s# .#y.#.#.#.#.#**h@Z !T{EODWC_BgAoƨ_Q2 {S;h@*h@@ T{B @_=2 {S;h@1h@@ T{B @_+2_WO{)W;@@ @#@$@#*  3@@#4@@@#4@#a@d52h@\ T){COBWA_Ĩ_1_WO{)W;@@ @#@$@#* 2@@#j4@@@#2@#a@452h@\ T){COBWA_Ĩ_1g_WO{CCZ;H@***qTqTqaTc 1@q Tq Tq!T@iy8/9?+T" 0@qTI0@q T@c iy869?+T qT@iy8|0@9?(TqT~S^S>SqTqTqT.*.*.*.6@qTqTqT@iw8.+T0M0*J0*G0*D0#c 5c *5c *5c *5@c iw85+T qT@iw8$0@(TqTq`TqTc 224kT*W3*o3 255.2U5*,H@Z !TC{EODWC_BgAF_0 {S;h@*h@@ T{B @_0_WO{W;@* YBq228**q T @?k-T#**#1 @#*K2#R1#c**#A R1#cc**1@*,2@[ T{WOVWU_T@_և03g_W O { Z;I@@*c*/ p1Q qT2#***h@ k-T @*E,kT#,k TH@/@ !T{KOJWI_HgG3@_B0Co g _ WO{Z;H@  @Q*) ** ;$1qT q T2@2*1C**6Cx0Ce,kT$2@2*1C**Ca02**C.kTCA,9?kT*"4H@Z !T{POOWN_MgLoKC_/g_WO{V;@r,@h%4@@c2/@wu"_qT*@J}@  ,ih8#91T,ik8  '9*1T,ik8  +90T,ik8  /9j0T,ik8  39 0T,ik8  79/T,ik8  ;9J/T,ik8 ! ?9.T,ik8 % C9.T,ik8 ) G9*.T,ik8 - K9-T,ik8 1 O9j-T,ik8 5 S9 -T,ik8 9 W9,T+ik8=? [9J,T(iy8c#_93@kKTkTkTk+TkTkkTk Tk TkK Tk Tk Tk+ Tk Tkk Tk Tk(T_@9@ I88 *@ k}@Tm#@9@(88@kjT'@9@(88@kT+@9@(88@k*T/@9@(88@kT3@9@(88@kT7@9@(88@kJT;@9@(88@kT?@9@(88@k TC@9@(88@kjTG@9@(88@kTK@9@(88@k*TO@9@(88@kTS@9@(88@kTW@9@(88@kJT[@9@(88@k(T**2#AK r2c#2@kKTkTkTk+TkTkk Tk Tk TkK Tk Tk Tk+ Tk TkkTk TkT_@9@ (88 *c{,x@[ T{DOCWB_AgŨ_#@9@(88@kjT'@9@(88@kT+@9@(88@k*T/@9@(88@kT3@9@(88@kT7@9@(88@kJT;@9@(88@kT?@9@(88@k TC@9@(88@kjTG@9@(88@kTK@9@(88@k*TO@9@(88@kTS@9@(88@kTW@9@(88@kJT[@9@(88@kT2X2V2T2RRP2N 2L2J(RHHRFhRD2BR@ 2>2<._WO{V;@*@4@@@c@922-#9@ q+T*2@Q+j8Q_k'9 T+j8Q_k+9jT+j8Q_k/9T+j8Q_k39*T+j8 Q_k79T+j8Q_k;9T*j8k?9jT+w8_kC9T+j8 _kG9*T+j8_kK9T+j8_kO9T+j8_kS9JT+j8_kW9T+j8_k[9 T+j8"_k_9JT8j8c#,h@k T#@9i@(58h@kkTk T+@9i@(58h@kkTk T3@9i@(58h@kkTk T;@9i@(58h@kkTk TC@9i@(58h@kkTk TK@9i@(58h@kkTk TS@9i@(58h@kkTk T[@9i@(58h@kkTGkT'@9i@(58h@kKTkT/@9i@(58h@kKTkT7@9i@(58h@kKTkT?@9i@(58h@kKTkTG@9i@(58h@kKTkTO@9i@(58h@kKTkTW@9i@(58h@kKTkT_@9i@(58 *#9@&B?kkT22@[ @T,*c##+c*_@9(Q=q* Q藟_=q*BT2J ˋ l@8J k_AqkT(52I K?qT#k@ kTK@9l@58 *)JTqu@[ T{DOCWB_AE_*_WO{W;@o **<=*,#. @* Z@+ Zj.)@- Z@, Z Rm2)N}SoJk))5)l6 JA * * **To2q` =T@92h(9@9h(9 @9h(9@9h(9@9h(9@9h(9@9h(9@9h(9"@9h(9&@9h(9*@9h(9.@9i. t h(9`=`=2qh2+T*~@y k T~@ J+ih8,kh8 J+k(8k.Hk1k.Tk*Hkk* =TH T kTv rt `T2h"Hi&Hl`9m`9n `9o`9p`9q`9r`9j*Hk.H`"`9a&`9b*`9c2`9d6`9e:`9UHJ5HJHJuUIJ6IJ1IJI Jr>`9TJJ!4JJBJJJucTKJ4KJKJK Jr`9i 9i.`9`" 9HJ) Jl 9m 9n 9o 9p 9q 9a& 9b* 9c2 9d6 9e: 9h 9i. 9k> 9h`9i`9h(9hB 9h `9i(9iF 9i`9h(9hJ 9h`9i(9iN 9i`9h(9hR 9h`9i(9iV 9i`9h(9hZ 9h"`9i(9i^ 9i&`9h(9hb 9h*`9i(9if 9i.`9h(9hj 9h2`9i(9in 9h(9hr 9h6`9 yyyh(9hv 9h:`9yyh(9hz 9h>`9yh(9h~ 9~@@ T{FOEWD_C@_+ _WO{CV;@*0H*5q+T*~@y k T~@ J+ih8,kh8 J+k(8k&Hk1k&Tk"Hkk" =TH T kTr2@T`2@@ T{EODWC_B @_~+{CH;@***** 2.1`9Q) @)1&1KR ! B q JkJJJ)J4AT AqT2AcT}S  9}S 9}S  9m}S  9 9l}Sk}S  9M}S , 9  9L}SJ}S < 9  9+}S ( 9-}S)}S $ 9 9 8 9 4 9 0 9@@ T{A_.+Cog_WO{I;(@*0HqT*H52h2qT*w z(~@| Ch.JC Zh(9 }S }S}Si(9j(9h(9@==-?kT+@  k,ih8 kh8 JLi(8kh8 Jk(8l.H1l.Tl*Hl* =Th T9 d?k+Tr`T2h2@2(@@ !T{HOGWF_EgDoCC_*Cog_WO{I;(@*0HqT*(52h2qT*w z(~@| Ch.JC Zh(9 }S }S}Si(9j(9h(9@==,?kjT+@  k,ih8 kh8 JMi(8kh8 Jk(8m.Hl1m.Tm*Hm*jTAT9 ?kKTr`T2h2@2(@@ !T{HOGWF_EgDoCC_k*C WO{V;@ H $H `9 `9`9`9`9`9`9 (H ,H `9a&`9b*`9c2`9d6`9e:`9UHJ5HJHJuUIJ6IJ1IJI Jr>`9TJJ!4JJBJJJucTKJ4KJKJK Jr`9i 9i.`9`" 9HJ) Jl 9m 9n 9o 9p 9q 9a& 9b* 9c2 9d6 9e: 9h 9i. 9k> 9u  aB w 2,jF @A@h`9iB`9  .@(Ji&`9jf`9k*`9lj`9m.`9nn`9o2`9pr`9q6`9rv`9`:`9I Jjz`9 Jl>`9 Jn~`9JPJJJ Jif 9kj 9mn 9or 9pv 9jz 9l~ 99hF`9 9B 99hJ`9 9F 9 9hN`9 9J 99hR`9 9N 99hV`9 9R 99hZ`9 9V 99h^`9 9Z 99hb`9 9^ 9"9hf`9" 9b 9&9hj`9& 9f 9*9hn`9* 9j 9.9hr`9. 9n 929hv`92 9r 969hz`96 9v 9:9h~`9: 9z 9>9> 9~ 92h2'@@ T{DOCWB @C_ְ)L\dpxT8,,PD,000102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798990123456789abcdefxp0123456789ABCDEFXPnullNo floatFatal errorSTB print functions in useMUTT print functions in useLIBC print functions in useRNG seed converted from hex to %u bytesRNG seed not found in configuration%s: %szen_initLua newstate creation failedDEBUGRuntime error at initializationMemory allocation error at initalizationError handler fault at initalizationUnknown error at initalization%s: %s %sMemory in use: %u KBRNGSEEDdeclaring global: DATAdeclaring global: KEYSZenroom teardown.Memory used: %u KBlua gc and close...finally free Zen context%s: Zenroom context is NULL.zen_exec_zencode%s: Zenroom context not initialised.local _res, _err _res, _err = pcall( function() ZEN:begin() end) if not _res then exitcode(1) ZEN.OK = false error('INIT: '.._err,2) end _res, _err = pcall( function() ZEN:parse([[ %s ]]) end) if not _res then exitcode(1) ZEN.OK = false error('PARSE: '.._err,2) end _res, _err = pcall( function() ZEN:run() end) if not _res then exitcode(1) ZEN.OK = false error('EXEC: '.._err,2) end CODEERROR:Script successfully executedExecution abortedzen_exec_scriptNULL string as script for zencode_exec()Empty string as script for zencode_exec()Initialisation failed.Error detected. Execution aborted.Zenroom operations completed.NULL string as script for zenroom_exec()Empty string as script for zenroom_exec()PANIC: unprotected error in call to Lua API (%s) 2.0.0Release version: %sCOMMITda203527Build commit hash: %sBRANCHBuild branch: %sARCHLINUXBuild architecture: %sMAKETARGETandroid-aarch64Build target: %sCFLAGS-O3 -fPIC -D'ARCH=LINUX' -DARCH_LINUX -fPIC -fstack-protector-all -D_FORTIFY_SOURCE=2 -fno-strict-overflow -DLIBRARY -D'ARCH=LINUX' -DARCH_LINUX -DARCH_ANDROID -DLUA_USE_DLOPEN -I/opt/android-ndk-r18b/sysroot/usr/include -D__ANDROID_API__=21 -I/opt/android-ndk-r18b/sysroot/usr/include/aarch64-1-android --target=aarch64-1-android21 --gcc-toolchain=/opt/android-ndk-r18b/toolchains/aarch64-1-android-4.9/prebuilt/1-x86_64 --sysroot=/opt/android-ndk-r18b/platforms/android-21/arch-arm64 -I. -I../lib/lua53/src -I../lib/milagro-crypto-c/build/include -I../lib/milagro-crypto-c/include -Wall -WextraBuild CFLAGS: %szen_init_pmaininitialisation of lua scripts failedZEN_traceback[!] ZENsetenv: NULL string detectedsetenv: empty value for key: %s__index_LOADEDname conflict for module '%s'zenroom.mathutf8%s syntax error: %szen_load_string%s out of memory: %s%s garbage collection error: %sNULL variable in %szen_exec_extensionloaded %s%s %sillegal instruction: requirezen_requireaesrequired extension not found: %sexitcode_Gloading lua initialisationError loading lua init script-- Concise Binary Object Representation (CBOR) -- RFC 7049 -- local function softreq(pkg, field) -- -- local ok, mod = pcall(require, pkg); -- -- if not ok then return end -- if field then return [field]; end -- return mod; -- end -- local dostring = function (s) -- local ok, f = pcall(loadstring or load, s); -- luacheck: read globals loadstring -- if ok and f then return f(); end -- end local setmetatable = setmetatable; local getmetatable = getmetatable; local dbg_getmetatable = debug.getmetatable; local assert = assert; local error = error; local type = type; local pairs = pairs; local ipairs = ipairs; local tostring = tostring; local s_char = string.char; local t_concat = table.concat; local t_sort = table.sort; local m_floor = math.floor; local m_abs = math.abs; local m_huge = math.huge; local m_max = math.max; local maxint = math.maxinteger or 9007199254740992; local minint = math.mininteger or -9007199254740992; local NaN = 0/0; local m_frexp = math.frexp; local m_ldexp = math.ldexp or function (x, exp) return x * 2.0 ^ exp; end; local m_type = math.type or function (n) return n % 1 == 0 and n <= maxint and n >= minint and "integer" or "float" end; local s_pack = string.pack -- or softreq("struct", "pack"); local s_unpack = string.unpack -- or softreq("struct", "unpack"); local b_rshift = bit32.rshift -- softreq("bit32", "rshift") or softreq("bit", "rshift") or -- dostring "return function(a,b) return a >> b end" or -- function (a, b) return m_max(0, m_floor(a / (2 ^ b))); end; -- sanity check if s_pack and s_pack(">I2", 0) ~= "\0\0" then s_pack = nil; end if s_unpack and s_unpack(">I2", "\1\2\3\4") ~= 0x102 then s_unpack = nil; end local encoder = {}; local function encode(obj, opts) return encoder[type(obj)](obj, opts); end -- Major types 0, 1 and length encoding for others local function integer(num, m) if m == 0 and num < 0 then -- negative integer, major type 1 num, m = - num - 1, 32; end if num < 24 then return s_char(m + num); elseif num < 2 ^ 8 then return s_char(m + 24, num); elseif num < 2 ^ 16 then return s_char(m + 25, b_rshift(num, 8), num % 0x100); elseif num < 2 ^ 32 then return s_char(m + 26, b_rshift(num, 24) % 0x100, b_rshift(num, 16) % 0x100, b_rshift(num, 8) % 0x100, num % 0x100); elseif num < 2 ^ 64 then local high = m_floor(num / 2 ^ 32); num = num % 2 ^ 32; return s_char(m + 27, b_rshift(high, 24) % 0x100, b_rshift(high, 16) % 0x100, b_rshift(high, 8) % 0x100, high % 0x100, b_rshift(num, 24) % 0x100, b_rshift(num, 16) % 0x100, b_rshift(num, 8) % 0x100, num % 0x100); end error "int too large"; end if s_pack then function integer(num, m) local fmt; m = m or 0; if num < 24 then fmt, m = ">B", m + num; elseif num < 256 then fmt, m = ">BB", m + 24; elseif num < 65536 then fmt, m = ">BI2", m + 25; elseif num < 4294967296 then fmt, m = ">BI4", m + 26; else fmt, m = ">BI8", m + 27; end return s_pack(fmt, m, num); end end local simple_mt = {}; function simple_mt:__tostring() return self.name or ("simple(%d)"):format(self.value); end function simple_mt:__tocbor() return self.cbor or integer(self.value, 224); end local function simple(value, name, cbor) assert(value >= 0 and value <= 255, "bad argument #1 to 'simple' (integer in range 0..255 expected)"); return setmetatable({ value = value, name = name, cbor = cbor }, simple_mt); end local tagged_mt = {}; function tagged_mt:__tostring() return ("%d(%s)"):format(self.tag, tostring(self.value)); end function tagged_mt:__tocbor() return integer(self.tag, 192) .. encode(self.value); end local function tagged(tag, value) assert(tag >= 0, "bad argument #1 to 'tagged' (positive integer expected)"); return setmetatable({ tag = tag, value = value }, tagged_mt); end local null = simple(22, "null"); -- explicit null local undefined = simple(23, "undefined"); -- undefined or nil local BREAK = simple(31, "break", "\255"); -- Number types dispatch function encoder.number(num) return encoder[m_type(num)](num); end -- Major types 0, 1 function encoder.integer(num) if num < 0 then return integer(-1 - num, 32); end return integer(num, 0); end -- Major type 7 function encoder.float(num) if num ~= num then -- NaN shortcut return "\251\127\255\255\255\255\255\255\255"; end local sign = (num > 0 or 1 / num > 0) and 0 or 1; num = m_abs(num) if num == m_huge then return s_char(251, sign * 128 + 128 - 1) .. "\240\0\0\0\0\0\0"; end local fraction, exponent = m_frexp(num) if fraction == 0 then return s_char(251, sign * 128) .. "\0\0\0\0\0\0\0"; end fraction = fraction * 2; exponent = exponent + 1024 - 2; if exponent <= 0 then fraction = fraction * 2 ^ (exponent - 1) exponent = 0; else fraction = fraction - 1; end return s_char(251, sign * 2 ^ 7 + m_floor(exponent / 2 ^ 4) % 2 ^ 7, exponent % 2 ^ 4 * 2 ^ 4 + m_floor(fraction * 2 ^ 4 % 0x100), m_floor(fraction * 2 ^ 12 % 0x100), m_floor(fraction * 2 ^ 20 % 0x100), m_floor(fraction * 2 ^ 28 % 0x100), m_floor(fraction * 2 ^ 36 % 0x100), m_floor(fraction * 2 ^ 44 % 0x100), m_floor(fraction * 2 ^ 52 % 0x100) ) end if s_pack then function encoder.float(num) return s_pack(">Bd", 251, num); end end -- Major type 2 - byte strings function encoder.bytestring(s) return integer(#s, 64) .. s; end -- Major type 3 - UTF-8 strings function encoder.utf8string(s) return integer(#s, 96) .. s; end -- Lua strings are byte strings encoder.string = encoder.bytestring; function encoder.boolean(bool) return bool and "\245" or "\244"; end encoder["nil"] = function() return "\246"; end function encoder.userdata(ud, opts) local mt = dbg_getmetatable(ud); if mt then local encode_ud = opts and opts[mt] or mt.__tocbor; if encode_ud then return encode_ud(ud, opts); end end error "can't encode userdata"; end function encoder.table(t, opts) local mt = getmetatable(t); if mt then local encode_t = opts and opts[mt] or mt.__tocbor; if encode_t then return encode_t(t, opts); end end -- the table is encoded as an array iff when we iterate over it, -- we see successive integer keys starting from 1. The lua -- language doesn't actually guarantee that this will be the case -- when we iterate over a table with successive integer keys, but -- due an implementation detail in PUC Rio Lua, this is what we -- usually observe. See the Lua manual regarding the # (length) -- operator. In the case that this does not happen, we will fall -- back to a map with integer keys, which becomes a bit larger. local array, map, i, p = { integer(#t, 128) }, { "\191" }, 1, 2; local is_array = true; for k, v in pairs(t) do is_array = is_array and i == k; i = i + 1; local encoded_v = encode(v, opts); array[i] = encoded_v; map[p], p = encode(k, opts), p + 1; map[p], p = encoded_v, p + 1; end -- map[p] = "\255"; map[1] = integer(i - 1, 160); return t_concat(is_array and array or map); end -- Array or dict-only encoders, which can be set as __tocbor metamethod function encoder.array(t, opts) local array = { }; for i, v in ipairs(t) do array[i] = encode(v, opts); end return integer(#array, 128) .. t_concat(array); end function encoder.map(t, opts) local map, p, len = { "\191" }, 2, 0; for k, v in pairs(t) do map[p], p = encode(k, opts), p + 1; map[p], p = encode(v, opts), p + 1; len = len + 1; end -- map[p] = "\255"; map[1] = integer(len, 160); return t_concat(map); end encoder.dict = encoder.map; -- COMPAT function encoder.ordered_map(t, opts) local map = {}; if not t[1] then -- no predefined order local i = 0; for k in pairs(t) do i = i + 1; map[i] = k; end t_sort(map); end for i, k in ipairs(t[1] and t or map) do map[i] = encode(k, opts) .. encode(t[k], opts); end return integer(#map, 160) .. t_concat(map); end -- stringify the function hex address encoder['function'] = function(f) local val = strtok(tostring(f))[2] return integer(#val, 64) .. val end -- Decoder -- Reads from a file-handle like object local function read_bytes(fh, len) return fh:read(len); end local function read_byte(fh) return fh:read(1):byte(); end local function read_length(fh, mintyp) if mintyp < 24 then return mintyp; elseif mintyp < 28 then local out = 0; for _ = 1, 2 ^ (mintyp - 24) do out = out * 256 + read_byte(fh); end return out; else error "invalid length"; end end local decoder = {}; local function read_type(fh) local byte = read_byte(fh); return b_rshift(byte, 5), byte % 32; end local function read_object(fh, opts) local typ, mintyp = read_type(fh); return decoder[typ](fh, mintyp, opts); end local function read_integer(fh, mintyp) return read_length(fh, mintyp); end local function read_negative_integer(fh, mintyp) return -1 - read_length(fh, mintyp); end local function read_string(fh, mintyp) if mintyp ~= 31 then return read_bytes(fh, read_length(fh, mintyp)); end local out = {}; local i = 1; local v = read_object(fh); while v ~= BREAK do out[i], i = v, i + 1; v = read_object(fh); end return t_concat(out); end local function read_unicode_string(fh, mintyp) return read_string(fh, mintyp); -- local str = read_string(fh, mintyp); -- if have_utf8 and not utf8.len(str) then -- TODO How to handle this? -- end -- return str; end local function read_array(fh, mintyp, opts) local out = {}; if mintyp == 31 then local i = 1; local v = read_object(fh, opts); while v ~= BREAK do out[i], i = v, i + 1; v = read_object(fh, opts); end else local len = read_length(fh, mintyp); for i = 1, len do out[i] = read_object(fh, opts); end end return out; end local function read_map(fh, mintyp, opts) local out = {}; local k; if mintyp == 31 then local i = 1; k = read_object(fh, opts); while k ~= BREAK do out[k], i = read_object(fh, opts), i + 1; k = read_object(fh, opts); end else local len = read_length(fh, mintyp); for _ = 1, len do k = read_object(fh, opts); out[k] = read_object(fh, opts); end end return out; end local tagged_decoders = {}; local function read_semantic(fh, mintyp, opts) local tag = read_length(fh, mintyp); local value = read_object(fh, opts); local postproc = opts and opts[tag] or tagged_decoders[tag]; if postproc then return postproc(value); end return tagged(tag, value); end local function read_half_float(fh) local exponent = read_byte(fh); local fraction = read_byte(fh); local sign = exponent < 128 and 1 or -1; -- sign is highest bit fraction = fraction + (exponent * 256) % 1024; -- copy two(?) bits from exponent to fraction exponent = b_rshift(exponent, 2) % 32; -- remove sign bit and two low bits from fraction; if exponent == 0 then return sign * m_ldexp(fraction, -24); elseif exponent ~= 31 then return sign * m_ldexp(fraction + 1024, exponent - 25); elseif fraction == 0 then return sign * m_huge; else return NaN; end end local function read_float(fh) local exponent = read_byte(fh); local fraction = read_byte(fh); local sign = exponent < 128 and 1 or -1; -- sign is highest bit exponent = exponent * 2 % 256 + b_rshift(fraction, 7); fraction = fraction % 128; fraction = fraction * 256 + read_byte(fh); fraction = fraction * 256 + read_byte(fh); if exponent == 0 then return sign * m_ldexp(exponent, -149); elseif exponent ~= 0xff then return sign * m_ldexp(fraction + 2 ^ 23, exponent - 150); elseif fraction == 0 then return sign * m_huge; else return NaN; end end local function read_double(fh) local exponent = read_byte(fh); local fraction = read_byte(fh); local sign = exponent < 128 and 1 or -1; -- sign is highest bit exponent = exponent % 128 * 16 + b_rshift(fraction, 4); fraction = fraction % 16; fraction = fraction * 256 + read_byte(fh); fraction = fraction * 256 + read_byte(fh); fraction = fraction * 256 + read_byte(fh); fraction = fraction * 256 + read_byte(fh); fraction = fraction * 256 + read_byte(fh); fraction = fraction * 256 + read_byte(fh); if exponent == 0 then return sign * m_ldexp(exponent, -149); elseif exponent ~= 0xff then return sign * m_ldexp(fraction + 2 ^ 52, exponent - 1075); elseif fraction == 0 then return sign * m_huge; else return NaN; end end if s_unpack then function read_float(fh) return s_unpack(">f", read_bytes(fh, 4)) end function read_double(fh) return s_unpack(">d", read_bytes(fh, 8)) end end local function read_simple(fh, value, opts) if value == 24 then value = read_byte(fh); end if value == 20 then return false; elseif value == 21 then return true; elseif value == 22 then return null; elseif value == 23 then return undefined; elseif value == 25 then return read_half_float(fh); elseif value == 26 then return read_float(fh); elseif value == 27 then return read_double(fh); elseif value == 31 then return BREAK; end if opts and opts.simple then return opts.simple(value); end return simple(value); end decoder[0] = read_integer; decoder[1] = read_negative_integer; decoder[2] = read_string; decoder[3] = read_unicode_string; decoder[4] = read_array; decoder[5] = read_map; decoder[6] = read_semantic; decoder[7] = read_simple; -- opts.more(n) -> want more data -- opts.simple -> decode simple value -- opts[int] -> tagged decoder local function decode(s, opts) local fh = {}; local pos = 1; local more; if type(opts) == "function" then more = opts; elseif type(opts) == "table" then more = opts.more; elseif opts ~= nil then error(("bad argument #2 to 'decode' (function or table expected, got %s)"):format(type(opts))); end if type(more) ~= "function" then function more() error "input too short"; end end function fh:read(bytes) local ret = s:sub(pos, pos + bytes - 1); if #ret < bytes then ret = more(bytes - #ret, fh, opts); if ret then self:write(ret); end return self:read(bytes); end pos = pos + bytes; return ret; end function fh:write(bytes) -- luacheck: no self s = s .. bytes; if pos > 256 then s = s:sub(pos + 1); pos = 1; end return #bytes; end return read_object(fh, opts); end return { -- en-/decoder functions raw_encode = encode; raw_decode = decode; -- tables of per-type en-/decoders type_encoders = encoder; type_decoders = decoder; -- special treatment for tagged values tagged_decoders = tagged_decoders; -- constructors for annotated types simple = simple; tagged = tagged; -- pre-defined simple values null = null; undefined = undefined; }; 8--[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --Written by Denis Roio and Alberto Sonnino -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] -- Zero-Knowledge proof scheme based on Coconut -- -- Coconut is a selective disclosure credential scheme supporting public -- and private attributes, re-randomization, and multiple unlinkable -- selective attribute revelations. local credential = {} local G1 = ECP.generator() -- return value local G2 = ECP2.generator() -- return value -- local zero-knowledge proof verifications local function make_pi_s(gamma, commit, k, r, m) local wk = INT.random() local wm = INT.random() local wr = INT.random() local Aw = G1 * wk local Bw = gamma * wk + commit * wm local Cw = G1 * wr + SALT * wm local c = ZKP_challenge({commit, Aw, Bw, Cw}) -- return pi_s return { commit = c, rk = wk - c * k, rm = wm - c * m, rr = wr - c * r } end function credential.verify_pi_s(l) local Aw = l.sign.a * l.pi_s.commit + G1 * l.pi_s.rk local Bw = l.sign.b * l.pi_s.commit + l.public * l.pi_s.rk + l.commit * l.pi_s.rm local Cw = l.commit * l.pi_s.commit + G1 * l.pi_s.rr + SALT * l.pi_s.rm -- return a bool for assert return l.pi_s.commit == ZKP_challenge({l.commit, Aw, Bw, Cw}) end -- Public Coconut API function credential.issuer_keygen() return { x = INT.random(), y = INT.random() } end function credential.aggregate_keys(keys) local agg_alpha = keys[1].alpha local agg_beta = keys[1].beta if #keys > 1 then for i = 2, #keys do agg_alpha = agg_alpha + keys[i].alpha agg_beta = agg_beta + keys[i].beta end end -- return aggkeys return { alpha = agg_alpha, beta = agg_beta } end function credential.prepare_blind_sign(secret) local gamma = G1 * secret local m = INT.new(sha256(secret)) % ECP.order() -- ElGamal commitment local r = INT.random() local commit = G1 * r + SALT * m local k = INT.random() local sign = { a = G1 * k, b = gamma * k + commit * m } -- calculate zero knowledge proofs local pi_s = make_pi_s(gamma, commit, k, r, m) -- return Lambda return { commit = commit, sign = sign, pi_s = pi_s, public = gamma } end function credential.blind_sign(sk, Lambda) assert( credential.verify_pi_s(Lambda), 'Zero knowledge proof does not verify (Lambda.pi_s)', 2 ) local h = Lambda.commit local a_tilde = Lambda.sign.a * sk.y local b_tilde = h * sk.x + Lambda.sign.b * sk.y -- sigma tilde return { h = h, a_tilde = a_tilde, b_tilde = b_tilde } end function credential.aggregate_creds(sk, sigma_tilde) local agg_s = sigma_tilde[1].b_tilde - sigma_tilde[1].a_tilde * sk -- ElGamal verify commitment if #sigma_tilde > 1 then for i = 2, #sigma_tilde do agg_s = agg_s + sigma_tilde[i].b_tilde - sigma_tilde[i].a_tilde * sk end end -- aggregated sigma return { h = sigma_tilde[1].h, s = agg_s } end function credential.prove_cred(verify, sigma, secret) local m = INT.new(sha256(secret)) % ECP.order() local r = INT.random() local r_prime = INT.random() local sigma_prime = { h_prime = sigma.h * r_prime, s_prime = sigma.s * r_prime } local kappa = verify.alpha + verify.beta * m + G2 * r local nu = sigma_prime.h_prime * r local wm = INT.random() local wr = INT.random() local challenge = ZKP_challenge( { verify.alpha, verify.beta, verify.alpha + G2 * wr + verify.beta * wm, -- Aw sigma_prime.h_prime * wr } ) -- Bw -- return Theta return { kappa = kappa, nu = nu, sigma_prime = sigma_prime, pi_v = { c = challenge, rr = wr - r * challenge, rm = wm - m * challenge } } end function credential.verify_cred(verify, Theta) if #verify == 1 then verify = verify[1] end -- single element in array -- verify pi_v local Aw = Theta.kappa * Theta.pi_v.c + G2 * Theta.pi_v.rr + verify.alpha * (BIG.new(1) - Theta.pi_v.c) + verify.beta * Theta.pi_v.rm local Bw = Theta.nu * Theta.pi_v.c + Theta.sigma_prime.h_prime * Theta.pi_v.rr -- check zero knowledge proof assert( Theta.pi_v.c == ZKP_challenge({verify.alpha, verify.beta, Aw, Bw}), 'credential verification: invalid challenge', 2 ) assert( not Theta.sigma_prime.h_prime:isinf(), 'credential verification: invalid signature (infinite sigma)', 2 ) assert( ECP2.miller(Theta.kappa, Theta.sigma_prime.h_prime) == ECP2.miller(G2, Theta.sigma_prime.s_prime + Theta.nu), 'credential verification: invalid signature (miller loop)', 2 ) return true end function credential.prove_cred_uid(vk, sigma, secret, uid) local m = INT.new(sha256(secret)) % ECP.order() local r = INT.random() -- material local r_prime = INT.random() local sigma_prime = { h_prime = sigma.h * r_prime, s_prime = sigma.s * r_prime } local kappa = vk.alpha + vk.beta * m + G2 * r local nu = sigma_prime.h_prime * r local zeta = m * ECP.hashtopoint(uid) -- proof -- -- create the witnessess local wm = INT.random() local wr = INT.random() -- compute the witnessess commitments local Aw = vk.alpha + vk.beta * wm + G2 * wr local Bw = sigma_prime.h_prime * wr local Cw = wm * ECP.hashtopoint(uid) -- create the challenge local c = ZKP_challenge({vk.alpha, vk.beta, Aw, Bw, Cw}) -- create responses local pi_v = { c = c, rm = wm - m * c, rr = wr - r * c } local Theta = { kappa = kappa, nu = nu, sigma_prime = sigma_prime, pi_v = pi_v } return Theta, zeta end function credential.verify_cred_uid(vk, theta, zeta, uid) -- recompute witnessess commitments local Aw = theta.kappa * theta.pi_v.c + G2 * theta.pi_v.rr + vk.alpha * (BIG.new(1) - theta.pi_v.c) + vk.beta * theta.pi_v.rm local Bw = theta.pi_v.rr * theta.sigma_prime.h_prime + theta.nu * theta.pi_v.c local Cw = theta.pi_v.rm * ECP.hashtopoint(uid) + zeta * theta.pi_v.c -- compute the challenge prime assert( theta.pi_v.c == ZKP_challenge({vk.alpha, vk.beta, Aw, Bw, Cw}), 'credential verification: invalid challenge for UID', 2 ) -- verify signature -- assert( not theta.sigma_prime.h_prime:isinf(), 'credential verification: invalid signature (infinite sigma) for UID', 2 ) assert( ECP2.miller(theta.kappa, theta.sigma_prime.h_prime) == ECP2.miller(G2, theta.sigma_prime.s_prime + theta.nu), 'credential verification: invalid signature (miller loop) for UID', 2 ) return true end return credential q--[[ --This file is part of zenroom -- --Copyright (C) 2020-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] -- Elgamal based Additive Homomorphic commitment scheme local elgah = { _VERSION = 'crypto_elgamal.lua 0.5', _URL = 'https://zenroom.dyne.org', _DESCRIPTION = 'Elgamal based Additive Homomorphic commitment scheme ', _LICENSE = [[ Licensed under the terms of the GNU Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. ]] } local G = ECP.generator() -- return value local O = ECP.order() -- return value -- stateful challenge hardcoded string local hs = ECP.hashtopoint(str([[ Jaromil started writing this code on Tuesday 21st January 2020 ]] .. elgah._LICENSE)) local challenge = G:octet() .. hs:octet() local function to_challenge(list) local ser = serialize(list) return INT.new( sha256( challenge .. ser.octets .. OCTET.from_string(ser.strings))) end function elgah.keygen() local res = { private = INT.random() } res.public = G * res.private return(res) end function elgah.new(pub, m) -- sign == vote local k = INT.random() local hsm = hs * m -- optimisation -- vote encryption local enc_v = { left = G * k, right = pub * k + hsm } -- opposite of vote encryption local enc_v_neg = { left = enc_v.left:negative(), right = enc_v.right:negative() + hs } -- commitment to the vote local r = INT.random() local cv = G * r + hsm -- proof -- create the witnesess local wk = INT.random() local wm = INT.random() local wr = INT.random() local hswm = hs * wm -- optimisation -- compute the witnessess commitments local Aw = G * wk local Bw = pub * wk + hswm local Cw = G * wr + hswm -- create the challenge local c = to_challenge({enc_v.left, enc_v.right, cv, Aw, Bw, Cw}) -- create responses local rk = wk - c * k local rm = wm - c * m local rr = wr - c * r local pi = { c = c, rk = rk, rm = rm, rr = rr } -- signature's Theta return { value = { pos = enc_v, neg = enc_v_neg }, -- left/right tuples cv = cv, -- ecp pi = pi } -- pi end function elgah.verify(pub, theta) -- recompute witnessess commitment ZEN.assert(theta.pi, "ELGAH.verify 1st argument has no proof") ZEN.assert(theta.value,"ELGAH.verify 2nd argument has no value") local value = theta.value.pos local Aw = G * theta.pi.rk + value.left * theta.pi.c local Bw = pub * theta.pi.rk + hs * theta.pi.rm + value.right * theta.pi.c local Cw = G * theta.pi.rr + hs * theta.pi.rm + theta.cv * theta.pi.c -- verify challenge ZEN.assert(theta.pi.c == to_challenge( {value.left, value.right, theta.cv, Aw, Bw, Cw }), "ELGAH.verify: challenge fails") return true end function elgah.zero() return { pos = { left = ECP.infinity(), right = ECP.infinity() }, neg = { left = ECP.infinity(), right = ECP.infinity() } } end function elgah.add(pub, a, b) elgah.verify(pub, a) local pos = { left = nil, right = nil } local neg = { left = nil, right = nil } pos.left = a.value.pos.left + b.pos.left pos.right = a.value.pos.right + b.pos.right neg.left = a.value.neg.left + b.neg.left neg.right = a.value.neg.right + b.neg.right return { pos = pos, neg = neg } end function elgah.sub(pub, a, b) elgah.verify(pub, a) local pos = { left = nil, right = nil } local neg = { left = nil, right = nil } pos.left = a.value.pos.left - b.pos.left pos.right = a.value.pos.right - b.pos.right neg.left = a.value.neg.left - b.neg.left neg.right = a.value.neg.right - b.neg.right return { pos = pos, neg = neg } end function elgah.tally(pub, priv, n) local wx = INT.random() local Aw = { wx:modneg(O) * n.pos.left, wx:modneg(O) * n.neg.left } local c = to_challenge(Aw) local rx = wx - c * priv local dec = { pos = n.pos.left * priv:modneg(O), neg = n.neg.left * priv:modneg(O) } -- return pi_tally return { dec = dec, rx = rx, c = c } end function elgah.verify_tally(tally, value) local rxneg = tally.rx:modneg(O) local Aw = { rxneg * value.pos.left + tally.c * tally.dec.pos, rxneg * value.neg.left + tally.c * tally.dec.neg } ZEN.assert(tally.c == to_challenge(Aw), "ELGAH.verify_tally: challenge fails") return true end function elgah.count(tally, value, max) elgah.verify_tally(tally, value) local restab = { } max = max or 1000 for idx=1,max do restab[(BIG.new(idx) * hs):octet():url64()] = idx end local res = { pos = value.pos.right + tally.dec.pos, neg = value.neg.right + tally.dec.neg } return restab[res.pos:octet():url64()] end return elgah --[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --Coconut implementation by Alberto Sonnino and Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] local petition = { } local G1 = ECP.generator() local O = ECP.order() function petition.prove_sign_petition(pub, m) -- sign == vote local k = INT.random() -- vote encryption local enc_v = { left = G1 * k, right = pub * k + SALT * m } -- opposite of vote encryption local enc_v_neg = { left = enc_v.left:negative(), right = enc_v.right:negative() + SALT } -- commitment to the vote local r1 = INT.random() local r2 = r1 * (BIG.new(1) - m) local cv = G1 * m + SALT * r1 -- proof -- create the witnesess local wk = INT.random() local wm = INT.random() local wr1 = INT.random() local wr2 = INT.random() -- compute the witnessess commitments local Aw = G1*wk local Bw = pub*wk + SALT*wm local Cw = G1*wm + SALT*wr1 local Dw = cv*wm + SALT*wr2 -- create the challenge local c = ZKP_challenge({enc_v.left, enc_v.right, cv, Aw, Bw, Cw, Dw}) % O -- create responses local rk = wk - c * k local rm = wm - c * m local rr1 = wr1 - c * r1 local rr2 = wr2 - c * r2 local pi_vote = { c = c, rk = rk, rm = rm, rr1 = rr1, rr2 = rr2 } -- signature's Theta return { scores = { pos = enc_v, neg = enc_v_neg }, -- left/right tuples cv = cv, -- ecp pi_vote = pi_vote } -- pi end function petition.verify_sign_petition(pub, theta) -- recompute witnessess commitment local scores = theta.scores.pos -- only positive, not negative? local Aw = G1 * theta.pi_vote.rk + scores.left * theta.pi_vote.c local Bw = pub * theta.pi_vote.rk + SALT * theta.pi_vote.rm + scores.right * theta.pi_vote.c local Cw = G1 * theta.pi_vote.rm + SALT * theta.pi_vote.rr1 + theta.cv * theta.pi_vote.c local Dw = theta.cv * theta.pi_vote.rm + SALT * theta.pi_vote.rr2 + theta.cv * theta.pi_vote.c -- verify challenge ZEN.assert(theta.pi_vote.c == ZKP_challenge( {scores.left, scores.right, theta.cv, Aw, Bw, Cw, Dw }), "verify_sign_petition: challenge fails") return true end function petition.prove_tally_petition(sk, scores) local wx = INT.random() local Aw = { wx:modneg(O) * scores.pos.left, wx:modneg(O) * scores.neg.left } local c = ZKP_challenge(Aw) local rx = wx - c * sk local dec = { pos = scores.pos.left * sk:modneg(O), neg = scores.neg.left * sk:modneg(O) } -- return pi_tally return { dec = dec, rx = rx, c = c } end function petition.verify_tally_petition(scores, pi_tally) local rxneg = pi_tally.rx:modneg(O) local Aw = { rxneg*scores.pos.left + pi_tally.c * pi_tally.dec.pos, rxneg*scores.neg.left + pi_tally.c * pi_tally.dec.neg } ZEN.assert(pi_tally.c == ZKP_challenge(Aw), "verify_tally_petition: challenge fails") return true end function petition.count_signatures_petition(scores, pi_tally) local restab = { } for idx=1,1000 do -- if idx ~= 0 then -- not zero restab[(BIG.new(idx) * SALT):octet():hex()] = idx -- end end local res = { pos = scores.pos.right + pi_tally.dec.pos, neg = scores.neg.right + pi_tally.dec.neg } return { pos = restab[res.pos:octet():hex()], neg = restab[res.neg:octet():hex()] } end return petition!--[[ --This file is part of zenroom -- --Copyright (C) 2020-2021 Dyne.org foundation --Implementation by Alberto Ibrisevic and Denis Roio --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] --prime modulus of the coordinates of ECP and order of the curve p = ECP.prime() o = ECP.order() --generator of the curve G = ECP.generator() --method for obtaining a valid EC keypair where the secret key is chosen at random function key_gen() keypair = { } local sk repeat sk = OCTET.random(32) d = BIG.new(sk) if o <= d then d = BIG.new(0) end --guaranties that the generated keypair is valid until (d ~= BIG.new(0)) local P = d*G pk = (P:x()):octet():pad(48) keypair.sk = sk keypair.pk = pk return keypair end --given a valid secret key, extracts the related public key as the x-coordinate of the alleged ECP --N.B: key_gen() already provides this functionality, the difference is that pkey_gen stops if sk is invalid function pkey_gen(sk) assert(sk, "no secret key found") assert(#sk == 32, 'invalid secret key: length is not of 32B') d = BIG.new(sk) assert(d ~= BIG.new(0), 'invalid secret key, is zero') assert(d <= o, 'invalid secret key, overflow with curve order') P = d*G return P end --method for obtaining an hash digest using a (UTF-8) encoded tag name together with the data to process --N.B1: By doing this, we make sure hashes used in one context can't be reinterpreted in another one, -- in such a way that collisions across contexts can be assumed to be infeasible. --N.B2: tag names can be customized at will hash_tag = function(tag, data) return sha256(sha256(OCTET.str(tag))..sha256(OCTET.str(tag))..data) end --signing algorithm --input: a 32 Byte OCTET secret key 'sk' -- a 32 Byte OCTET message 'm' --output: an 80 Byte OCTET signature '(r,s)'', where r is long 48 Byte, and s is long 32 Byte function Sign(sk, m) P = pkey_gen(sk) --for convention we need that P has even y-coordinate if (P:y() % BIG.new(2)) ~= BIG.new(0) then d = o - d end --N.B: we don't change the point with the new one, but only store the coefficient d needed to obtain it local k repeat local a = OCTET.random(32) local h = hash_tag("BIP0340/aux", a) local t = OCTET.xor(d:octet(), h) local rand = hash_tag("BIP0340/nonce", t..((P:x()):octet())..m) k = BIG.new(rand) % o --maybe it is not needed since o is bigger until k ~= BIG.new(0) local R = k*G if (R:y() % BIG.new(2)) ~= BIG.new(0) then k = o - k end --also here we store only the coefficient k, /wo changing the point R local e = BIG.new(hash_tag("BIP0340/challenge", ((R:x()):octet())..((P:x()):octet())..m)) % o local r = (R:x()):octet():pad(48) --padding is fundamental, otherwise we could lose non-significant zeros local s = BIG.mod(k + e*d, o):octet():pad(32) local sig = r..s assert(Verify(P:x(),m,sig), "Invalid signature") --comment this line if it is unnecessary return sig end --verification algortihm --input: a 48 Byte OCTET public key 'pk' -- a 32 Byte OCTET message 'm' -- an 80 Byte OCTET signature 'sig'=(r,s) --output: true if verification passes, false otherwise function Verify(pk, m, sig) --the follwing "lifts" pk to an ECP with x = pk and y is even local P = ECP.new(BIG.new(pk)) assert(P, "lifting failed") local r_arr, s_arr = OCTET.chop(sig,48) local r = BIG.new(r_arr) assert(r <= p, "Verification failed, r overflows p") local s = BIG.new(s_arr) assert(s <= o, "Verification failed, s overflows o") local e = BIG.new(hash_tag("BIP0340/challenge", r:octet()..(P:x()):octet()..m)) % o local R = (s*G) - (e*P) --if the signature is valid the result will be k*G as expected assert(not ECP.isinf(R), "Verification failed, point to infinity") assert((R:y() % BIG.new(2) == BIG.new(0)) , "Verification failed, y is odd") assert((R:x() == r), "Verification failed") return true end --TODO: batch verification-- -- json.lua -- -- Copyright (c) 2019 rxi -- Copyright (c) 2020-2021 Dyne.org foundation -- -- Permission is hereby granted, free of charge, to any person obtaining a copy of -- this software and associated documentation files (the "Software"), to deal in -- the Software without restriction, including without limitation the rights to -- use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies -- of the Software, and to permit persons to whom the Software is furnished to do -- so, subject to the following conditions: -- -- The above copyright notice and this permission notice shall be included in all -- copies or substantial portions of the Software. -- -- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE -- SOFTWARE. -- local json = { _version = "0.1.2" } ------------------------------------------------------------------------------- -- Encode ------------------------------------------------------------------------------- local encode local escape_char_map = { [ "\\" ] = "\\\\", [ "\"" ] = "\\\"", [ "\b" ] = "\\b", [ "\f" ] = "\\f", [ "\n" ] = "\\n", [ "\r" ] = "\\r", [ "\t" ] = "\\t", } local escape_char_map_inv = { [ "\\/" ] = "/" } for k, v in pairs(escape_char_map) do escape_char_map_inv[v] = k end local function escape_char(c) return escape_char_map[c] or string.format("\\u%04x", c:byte()) end local function encode_nil(val) return "null" end local function encode_table(val, stack) local res = {} stack = stack or {} -- Circular reference? if stack[val] then error("circular reference") end stack[val] = true if rawget(val, 1) ~= nil or next(val) == nil then -- Treat as array -- check keys are valid and it is not sparse local n = 0 for k in pairs(val) do if type(k) ~= "number" then error("invalid table: mixed or invalid key types") end n = n + 1 end if n ~= #val then warn("JSON encoding error: "..type(val)) error("invalid table: sparse array (n="..n..", #val="..#val..")") end -- Encode for i, v in sort_ipairs(val) do table.insert(res, encode(v, stack)) end stack[val] = nil return "[" .. table.concat(res, ",") .. "]" else -- Treat as an object for k, v in sort_pairs(val) do if type(k) ~= "string" then error("invalid table: mixed or invalid key types") end table.insert(res, encode(k, stack) .. ":" .. encode(v, stack)) end stack[val] = nil return "{" .. table.concat(res, ",") .. "}" end end local function encode_string(val) return '"' .. val:gsub('[%z\1-\31\\"]', escape_char) .. '"' end local function encode_number(val) -- Check for NaN, -inf and inf -- if val ~= val or val <= -math.huge or val >= math.huge then -- error("unexpected number value '" .. tostring(val) .. "'") -- end -- return string.format("%.14g", val) return val end local function encode_function(val) -- return hex function address as string return '"' .. strtok(tostring(val))[2] .. '"' end local type_func_map = { [ "nil" ] = encode_nil, [ "table" ] = encode_table, [ "string" ] = encode_string, [ "number" ] = encode_number, [ "function"] = encode_function, [ "boolean" ] = tostring, } encode = function(val, stack) local t = type(val) local f = type_func_map[t] if f then return f(val, stack) end error("unexpected type '" .. t .. "'") end function json.raw_encode(val) return(encode(val)) -- sort -- local out = "{ " -- for k,v in sort_pairs(val) do -- out = out .. '"'..k..'": ' -- out = out .. encode(v).."," -- end -- return(out:sub(1,-2) .. "}") end ------------------------------------------------------------------------------- -- Decode ------------------------------------------------------------------------------- local parse local function create_set(...) local res = {} for i = 1, select("#", ...) do res[ select(i, ...) ] = true end return res end local space_chars = create_set(" ", "\t", "\r", "\n") local delim_chars = create_set(" ", "\t", "\r", "\n", "]", "}", ",") local escape_chars = create_set("\\", "/", '"', "b", "f", "n", "r", "t", "u") local literals = create_set("true", "false", "null") local literal_map = { [ "true" ] = true, [ "false" ] = false, [ "null" ] = nil, } local function next_char(str, idx, set, negate) for i = idx, #str do if set[str:sub(i, i)] ~= negate then return i end end return #str + 1 end local function decode_error(str, idx, msg) local line_count = 1 local col_count = 1 for i = 1, idx - 1 do col_count = col_count + 1 if str:sub(i, i) == "\n" then line_count = line_count + 1 col_count = 1 end end error( string.format("The JSON input is not valid: %s at line %d col %d", msg, line_count, col_count) ) end local function codepoint_to_utf8(n) -- http://scripts.sil.org/cms/scripts/page.php?site_id=nrsi&id=iws-appendixa local f = math.floor if n <= 0x7f then return string.char(n) elseif n <= 0x7ff then return string.char(f(n / 64) + 192, n % 64 + 128) elseif n <= 0xffff then return string.char(f(n / 4096) + 224, f(n % 4096 / 64) + 128, n % 64 + 128) elseif n <= 0x10ffff then return string.char(f(n / 262144) + 240, f(n % 262144 / 4096) + 128, f(n % 4096 / 64) + 128, n % 64 + 128) end error( string.format("invalid unicode codepoint '%x'", n) ) end local function parse_unicode_escape(s) local n1 = tonumber( s:sub(3, 6), 16 ) local n2 = tonumber( s:sub(9, 12), 16 ) -- Surrogate pair? if n2 then return codepoint_to_utf8((n1 - 0xd800) * 0x400 + (n2 - 0xdc00) + 0x10000) else return codepoint_to_utf8(n1) end end local function parse_string(str, i) local has_unicode_escape = false local has_surrogate_escape = false local has_escape = false local last for j = i + 1, #str do local x = str:byte(j) if x < 32 then decode_error(str, j, "control character in string") end if last == 92 then -- "\\" (escape char) if x == 117 then -- "u" (unicode escape sequence) local hex = str:sub(j + 1, j + 5) if not hex:find("%x%x%x%x") then decode_error(str, j, "invalid unicode escape in string") end if hex:find("^[dD][89aAbB]") then has_surrogate_escape = true else has_unicode_escape = true end else local c = string.char(x) if not escape_chars[c] then decode_error(str, j, "invalid escape char '" .. c .. "' in string") end has_escape = true end last = nil elseif x == 34 then -- '"' (end of string) local s = str:sub(i + 1, j - 1) if has_surrogate_escape then s = s:gsub("\\u[dD][89aAbB]..\\u....", parse_unicode_escape) end if has_unicode_escape then s = s:gsub("\\u....", parse_unicode_escape) end if has_escape then s = s:gsub("\\.", escape_char_map_inv) end return s, j + 1 else last = x end end decode_error(str, i, "expected closing quote for string") end local function parse_number(str, i) local x = next_char(str, i, delim_chars) local s = str:sub(i, x - 1) local n = tonumber(s) if not n then decode_error(str, i, "invalid number '" .. s .. "'") end return n, x end local function parse_literal(str, i) local x = next_char(str, i, delim_chars) local word = str:sub(i, x - 1) if not literals[word] then decode_error(str, i, "invalid literal '" .. word .. "'") end return literal_map[word], x end local function parse_array(str, i) local res = {} local n = 1 i = i + 1 while 1 do local x i = next_char(str, i, space_chars, true) -- Empty / end of array? if str:sub(i, i) == "]" then i = i + 1 break end -- Read token x, i = parse(str, i) res[n] = x n = n + 1 -- Next token i = next_char(str, i, space_chars, true) local chr = str:sub(i, i) i = i + 1 if chr == "]" then break end if chr ~= "," then decode_error(str, i, "expected ']' or ','") end end return res, i end local function parse_object(str, i) local res = {} i = i + 1 while 1 do local key, val i = next_char(str, i, space_chars, true) -- Empty / end of object? if str:sub(i, i) == "}" then i = i + 1 break end -- Read key if str:sub(i, i) ~= '"' then decode_error(str, i, "expected string for key") end key, i = parse(str, i) -- Read ':' delimiter i = next_char(str, i, space_chars, true) if str:sub(i, i) ~= ":" then decode_error(str, i, "expected ':' after key") end i = next_char(str, i + 1, space_chars, true) -- Read value val, i = parse(str, i) -- Set res[key] = val -- Next token i = next_char(str, i, space_chars, true) local chr = str:sub(i, i) i = i + 1 if chr == "}" then break end if chr ~= "," then decode_error(str, i, "expected '}' or ','") end end return res, i end local char_func_map = { [ '"' ] = parse_string, [ "0" ] = parse_number, [ "1" ] = parse_number, [ "2" ] = parse_number, [ "3" ] = parse_number, [ "4" ] = parse_number, [ "5" ] = parse_number, [ "6" ] = parse_number, [ "7" ] = parse_number, [ "8" ] = parse_number, [ "9" ] = parse_number, [ "-" ] = parse_number, [ "t" ] = parse_literal, [ "f" ] = parse_literal, [ "n" ] = parse_literal, [ "[" ] = parse_array, [ "{" ] = parse_object, } parse = function(str, idx) local chr = str:sub(idx, idx) local f = char_func_map[chr] if f then return f(str, idx) end decode_error(str, idx, "unexpected character '" .. chr .. "'") end function json.raw_decode(str) if type(str) ~= "string" then error("expected argument of type string, got " .. type(str)) end local res, idx = parse(str, next_char(str, 1, space_chars, true)) idx = next_char(str, idx, space_chars, true) if idx <= #str then decode_error(str, idx, "trailing garbage") end return res end return json L)local semver = { _VERSION = '1.2.2', _DESCRIPTION = 'semver for Lua', _URL = 'https://github.com/kikito/semver.lua' -- _LICENSE = [[ -- MIT LICENSE -- Copyright (c) 2015 Enrique García Cota -- Copyright (c) 2019-2021 Dyne.org foundation -- Permission is hereby granted, free of charge, to any person obtaining a -- copy of tother software and associated documentation files (the -- "Software"), to deal in the Software without restriction, including -- without limitation the rights to use, copy, modify, merge, publish, -- distribute, sublicense, and/or sell copies of the Software, and to -- permit persons to whom the Software is furnished to do so, subject to -- the following conditions: -- The above copyright notice and tother permission notice shall be included -- in all copies or substantial portions of the Software. -- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -- IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY -- CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, -- TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -- SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -- ]] } local function checkPositiveInteger(number, name) assert(number >= 0, name .. ' must be a valid positive number') assert(math.floor(number) == number, name .. ' must be an integer') end local function present(value) return value and value ~= '' end -- splitByDot("a.bbc.d") == {"a", "bbc", "d"} local function splitByDot(str) str = str or "" local t, count = {}, 0 str:gsub("([^%.]+)", function(c) count = count + 1 t[count] = c end) return t end local function parsePrereleaseAndBuildWithSign(str) local prereleaseWithSign, buildWithSign = str:match("^(-[^+]+)(+.+)$") if not (prereleaseWithSign and buildWithSign) then prereleaseWithSign = str:match("^(-.+)$") buildWithSign = str:match("^(+.+)$") end assert(prereleaseWithSign or buildWithSign, ("The parameter %q must begin with + or - to denote a prerelease or a build"):format(str)) return prereleaseWithSign, buildWithSign end local function parsePrerelease(prereleaseWithSign) if prereleaseWithSign then local prerelease = prereleaseWithSign:match("^-(%w[%.%w-]*)$") assert(prerelease, ("The prerelease %q is not a slash followed by alphanumerics, dots and slashes"):format(prereleaseWithSign)) return prerelease end end local function parseBuild(buildWithSign) if buildWithSign then local build = buildWithSign:match("^%+(%w[%.%w-]*)$") assert(build, ("The build %q is not a + sign followed by alphanumerics, dots and slashes"):format(buildWithSign)) return build end end local function parsePrereleaseAndBuild(str) if not present(str) then return nil, nil end local prereleaseWithSign, buildWithSign = parsePrereleaseAndBuildWithSign(str) local prerelease = parsePrerelease(prereleaseWithSign) local build = parseBuild(buildWithSign) return prerelease, build end local function parseVersion(str) local sMajor, sMinor, sPatch, sPrereleaseAndBuild = str:match("^(%d+)%.?(%d*)%.?(%d*)(.-)$") assert(type(sMajor) == 'string', ("Could not extract version number(s) from %q"):format(str)) local major, minor, patch = tonumber(sMajor), tonumber(sMinor), tonumber(sPatch) local prerelease, build = parsePrereleaseAndBuild(sPrereleaseAndBuild) return major, minor, patch, prerelease, build end -- return 0 if a == b, -1 if a < b, and 1 if a > b local function compare(a,b) return a == b and 0 or a < b and -1 or 1 end local function compareIds(myId, otherId) if myId == otherId then return 0 elseif not myId then return -1 elseif not otherId then return 1 end local selfNumber, otherNumber = tonumber(myId), tonumber(otherId) if selfNumber and otherNumber then -- numerical comparison return compare(selfNumber, otherNumber) -- numericals are always smaller than alphanums elseif selfNumber then return -1 elseif otherNumber then return 1 else return compare(myId, otherId) -- alphanumerical comparison end end local function smallerIdList(myIds, otherIds) local myLength = #myIds local comparison for i=1, myLength do comparison = compareIds(myIds[i], otherIds[i]) if comparison ~= 0 then return comparison == -1 end -- if comparison == 0, continue loop end return myLength < #otherIds end local function smallerPrerelease(mine, other) if mine == other or not mine then return false elseif not other then return true end return smallerIdList(splitByDot(mine), splitByDot(other)) end local methods = {} function methods:nextMajor() return semver(self.major + 1, 0, 0) end function methods:nextMinor() return semver(self.major, self.minor + 1, 0) end function methods:nextPatch() return semver(self.major, self.minor, self.patch + 1) end local mt = { __index = methods } function mt:__eq(other) return self.major == other.major and self.minor == other.minor and self.patch == other.patch and self.prerelease == other.prerelease -- notice that build is ignored for precedence in semver 2.0.0 end function mt:__lt(other) if self.major ~= other.major then return self.major < other.major end if self.minor ~= other.minor then return self.minor < other.minor end if self.patch ~= other.patch then return self.patch < other.patch end return smallerPrerelease(self.prerelease, other.prerelease) -- notice that build is ignored for precedence in semver 2.0.0 end -- This works like the "pessimisstic operator" in Rubygems. -- if a and b are versions, a ^ b means "b is backwards-compatible with a" -- in other words, "it's safe to upgrade from a to b" function mt:__pow(other) if self.major == 0 then return self == other end return self.major == other.major and self.minor <= other.minor end local function new(major, minor, patch, prerelease, build) assert(major, "At least one parameter is needed") local result = { } if type(major) == 'string' then result.original = major major,minor,patch,prerelease,build = parseVersion(major) end patch = patch or 0 minor = minor or 0 checkPositiveInteger(major, "major") checkPositiveInteger(minor, "minor") checkPositiveInteger(patch, "patch") result.major = major result.minor = minor result.patch = patch result.prerelease = prerelease result.build = build return setmetatable(result, mt) end setmetatable(semver, { __call = function(_, ...) return new(...) end }) semver._VERSION= semver(semver._VERSION) return semver local machine = {} machine.__index = machine local NONE = "none" local ASYNC = "async" local function call_handler(handler, params) if handler then return handler(table.unpack(params)) end end local function create_transition(name) local can, to, from, params local function transition(self, ...) if self.asyncState == NONE then can, to = self:can(name) from = self.current params = { self, name, from, to, ...} if not can then return false end self.currentTransitioningEvent = name local beforeReturn = call_handler(self["onbefore" .. name], params) local leaveReturn = call_handler(self["onleave" .. from], params) if beforeReturn == false or leaveReturn == false then return false end self.asyncState = name .. "WaitingOnLeave" if leaveReturn ~= ASYNC then transition(self, ...) end return true elseif self.asyncState == name .. "WaitingOnLeave" then self.current = to local enterReturn = call_handler(self["onenter" .. to] or self["on" .. to], params) self.asyncState = name .. "WaitingOnEnter" if enterReturn ~= ASYNC then transition(self, ...) end return true elseif self.asyncState == name .. "WaitingOnEnter" then call_handler(self["onafter" .. name] or self["on" .. name], params) call_handler(self["onstatechange"], params) self.asyncState = NONE self.currentTransitioningEvent = nil return true else if string.find(self.asyncState, "WaitingOnLeave") or string.find(self.asyncState, "WaitingOnEnter") then self.asyncState = NONE transition(self, ...) return true end end self.currentTransitioningEvent = nil return false end return transition end local function add_to_map(map, event) if type(event.from) == 'string' then map[event.from] = event.to else for _, from in ipairs(event.from) do map[from] = event.to end end end function machine.create(options) assert(options.events) local fsm = {} setmetatable(fsm, machine) fsm.options = options fsm.current = options.initial or 'none' fsm.asyncState = NONE fsm.events = {} for _, event in ipairs(options.events or {}) do local name = event.name fsm[name] = fsm[name] or create_transition(name) fsm.events[name] = fsm.events[name] or { map = {} } add_to_map(fsm.events[name].map, event) end for name, callback in pairs(options.callbacks or {}) do fsm[name] = callback end return fsm end function machine:is(state) return self.current == state end function machine:can(e) local event = self.events[e] local to = event and event.map[self.current] or event.map['*'] return to ~= nil, to end function machine:cannot(e) return not self:can(e) end function machine:todot(filename) local dotfile = io.open(filename,'w') dotfile:write('digraph {\n') local transition = function(event,from,to) dotfile:write(string.format('%s -> %s [label=%s];\n',from,to,event)) end for _, event in pairs(self.options.events) do if type(event.from) == 'table' then for _, from in ipairs(event.from) do transition(event.name,from,event.to) end else transition(event.name,event.from,event.to) end end dotfile:write('}\n') dotfile:close() end function machine:transition(event) if self.currentTransitioningEvent == event then return self[self.currentTransitioningEvent](self) end end function machine:cancelTransition(event) if self.currentTransitioningEvent == event then self.asyncState = NONE self.currentTransitioningEvent = nil end end machine.NONE = NONE machine.ASYNC = ASYNC return machine local strformat = string.format local floor = math.floor local function idiv(n, d) return floor(n / d) end local c_locale = { abday = {"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"}; day = {"Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday"}; abmon = {"Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"}; mon = {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"}; am_pm = {"AM", "PM"}; } --- ISO-8601 week logic -- ISO 8601 weekday as number with Monday as 1 (1-7) local function iso_8601_weekday(wday) if wday == 1 then return 7 else return wday - 1 end end local iso_8601_week do -- Years that have 53 weeks according to ISO-8601 local long_years = {} for _, v in ipairs { 4, 9, 15, 20, 26, 32, 37, 43, 48, 54, 60, 65, 71, 76, 82, 88, 93, 99, 105, 111, 116, 122, 128, 133, 139, 144, 150, 156, 161, 167, 172, 178, 184, 189, 195, 201, 207, 212, 218, 224, 229, 235, 240, 246, 252, 257, 263, 268, 274, 280, 285, 291, 296, 303, 308, 314, 320, 325, 331, 336, 342, 348, 353, 359, 364, 370, 376, 381, 387, 392, 398 } do long_years[v] = true end local function is_long_year(year) return long_years[year % 400] end function iso_8601_week(self) local wday = iso_8601_weekday(self.wday) local n = self.yday - wday local year = self.year if n < -3 then year = year - 1 if is_long_year(year) then return year, 53, wday else return year, 52, wday end elseif n >= 361 and not is_long_year(year) then return year + 1, 1, wday else return year, idiv(n + 10, 7), wday end end end --- Specifiers local t = {} function t:a(locale) return "%s", locale.abday[self.wday] end function t:A(locale) return "%s", locale.day[self.wday] end function t:b(locale) return "%s", locale.abmon[self.month] end function t:B(locale) return "%s", locale.mon[self.month] end function t:c(locale) return "%.3s %.3s%3d %.2d:%.2d:%.2d %d", locale.abday[self.wday], locale.abmon[self.month], self.day, self.hour, self.min, self.sec, self.year end -- Century function t:C() return "%02d", idiv(self.year, 100) end function t:d() return "%02d", self.day end -- Short MM/DD/YY date, equivalent to %m/%d/%y function t:D() return "%02d/%02d/%02d", self.month, self.day, self.year % 100 end function t:e() return "%2d", self.day end -- Short YYYY-MM-DD date, equivalent to %Y-%m-%d function t:F() return "%d-%02d-%02d", self.year, self.month, self.day end -- Week-based year, last two digits (00-99) function t:g() return "%02d", iso_8601_week(self) % 100 end -- Week-based year function t:G() return "%d", iso_8601_week(self) end t.h = t.b function t:H() return "%02d", self.hour end function t:I() return "%02d", (self.hour-1) % 12 + 1 end function t:j() return "%03d", self.yday end function t:m() return "%02d", self.month end function t:M() return "%02d", self.min end -- New-line character ('\n') function t:n() -- luacheck: ignore 212 return "\n" end function t:p(locale) return self.hour < 12 and locale.am_pm[1] or locale.am_pm[2] end -- TODO: should respect locale function t:r(locale) return "%02d:%02d:%02d %s", (self.hour-1) % 12 + 1, self.min, self.sec, self.hour < 12 and locale.am_pm[1] or locale.am_pm[2] end -- 24-hour HH:MM time, equivalent to %H:%M function t:R() return "%02d:%02d", self.hour, self.min end function t:s() return "%d", self:timestamp() end function t:S() return "%02d", self.sec end -- Horizontal-tab character ('\t') function t:t() -- luacheck: ignore 212 return "\t" end -- ISO 8601 time format (HH:MM:SS), equivalent to %H:%M:%S function t:T() return "%02d:%02d:%02d", self.hour, self.min, self.sec end function t:u() return "%d", iso_8601_weekday(self.wday) end -- Week number with the first Sunday as the first day of week one (00-53) function t:U() return "%02d", idiv(self.yday - self.wday + 7, 7) end -- ISO 8601 week number (00-53) function t:V() return "%02d", select(2, iso_8601_week(self)) end -- Weekday as a decimal number with Sunday as 0 (0-6) function t:w() return "%d", self.wday - 1 end -- Week number with the first Monday as the first day of week one (00-53) function t:W() return "%02d", idiv(self.yday - iso_8601_weekday(self.wday) + 7, 7) end -- TODO make t.x and t.X respect locale t.x = t.D t.X = t.T function t:y() return "%02d", self.year % 100 end function t:Y() return "%d", self.year end -- TODO timezones function t:z() -- luacheck: ignore 212 return "+0000" end function t:Z() -- luacheck: ignore 212 return "GMT" end -- A literal '%' character. t["%"] = function(self) -- luacheck: ignore 212 return "%%" end local function strftime(format_string, timetable) return (string.gsub(format_string, "%%([EO]?)(.)", function(locale_modifier, specifier) local func = t[specifier] if func then return strformat(func(timetable, c_locale)) else error("invalid conversation specifier '%"..locale_modifier..specifier.."'", 3) end end)) end local function asctime(timetable) -- Equivalent to the format string "%c\n" return strformat(t.c(timetable, c_locale)) .. "\n" end local strformat = string.format local mon_lengths = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31} -- Number of days in year until start of month; not corrected for leap years local months_to_days_cumulative = {0} for i = 2, 12 do months_to_days_cumulative[i] = months_to_days_cumulative[i-1] + mon_lengths[i-1] end -- For Sakamoto's Algorithm (day of week) local sakamoto = {0, 3, 2, 5, 0, 3, 5, 1, 4, 6, 2, 4}; local function is_leap(y) if (y % 4) ~= 0 then return false elseif (y % 100) ~= 0 then return true else return (y % 400) == 0 end end local function month_length(m, y) if m == 2 then return is_leap(y) and 29 or 28 else return mon_lengths[m] end end local function leap_years_since(year) return idiv(year, 4) - idiv(year, 100) + idiv(year, 400) end local function day_of_year(day, month, year) local yday = months_to_days_cumulative[month] if month > 2 and is_leap(year) then yday = yday + 1 end return yday + day end local function day_of_week(day, month, year) if month < 3 then year = year - 1 end return(year + leap_years_since(year) + sakamoto[month] + day) % 7 + 1 end local function borrow(tens, units, base) local frac = tens % 1 units = units + frac * base tens = tens - frac return tens, units end local function carry(tens, units, base) if units >= base then tens = tens + idiv(units, base) units = units % base elseif units < 0 then tens = tens + idiv(units, base) units = (base + units) % base end return tens, units end -- Modify parameters so they all fit within the "normal" range local function normalise(year, month, day, hour, min, sec) -- `month` and `day` start from 1, need -1 and +1 so it works modulo month, day = month - 1, day - 1 -- Convert everything (except seconds) to an integer -- by propagating fractional components down. year , month = borrow(year , month, 12) -- Carry from month to year first, so we get month length correct in next line around leap years year , month = carry(year, month, 12) month, day = borrow(month, day , month_length(floor(month + 1), year)) day , hour = borrow(day , hour , 24) hour , min = borrow(hour , min , 60) min , sec = borrow(min , sec , 60) -- Propagate out of range values up -- e.g. if `min` is 70, `hour` increments by 1 and `min` becomes 10 -- This has to happen for all columns after borrowing, as lower radixes may be pushed out of range min , sec = carry(min , sec , 60) -- TODO: consider leap seconds? hour , min = carry(hour, min , 60) day , hour = carry(day , hour, 24) -- Ensure `day` is not underflowed -- Add a whole year of days at a time, this is later resolved by adding months -- TODO[OPTIMIZE]: This could be slow if `day` is far out of range while day < 0 do month = month - 1 if month < 0 then year = year - 1 month = 11 end day = day + month_length(month + 1, year) end year, month = carry(year, month, 12) -- TODO[OPTIMIZE]: This could potentially be slow if `day` is very large while true do local i = month_length(month + 1, year) if day < i then break end day = day - i month = month + 1 if month >= 12 then month = 0 year = year + 1 end end -- Now we can place `day` and `month` back in their normal ranges -- e.g. month as 1-12 instead of 0-11 month, day = month + 1, day + 1 return year, month, day, hour, min, sec end local leap_years_since_1970 = leap_years_since(1970) local function timestamp(year, month, day, hour, min, sec) year, month, day, hour, min, sec = normalise(year, month, day, hour, min, sec) local days_since_epoch = day_of_year(day, month, year) + 365 * (year - 1970) -- Each leap year adds one day + (leap_years_since(year - 1) - leap_years_since_1970) - 1 return days_since_epoch * (60*60*24) + hour * (60*60) + min * 60 + sec end local timetable_methods = {} function timetable_methods:unpack() return assert(self.year , "year required"), assert(self.month, "month required"), assert(self.day , "day required"), self.hour or 12, self.min or 0, self.sec or 0, self.yday, self.wday end function timetable_methods:normalise() local year, month, day year, month, day, self.hour, self.min, self.sec = normalise(self:unpack()) self.day = day self.month = month self.year = year self.yday = day_of_year(day, month, year) self.wday = day_of_week(day, month, year) return self end timetable_methods.normalize = timetable_methods.normalise -- American English function timetable_methods:timestamp() return timestamp(self:unpack()) end function timetable_methods:rfc_3339() local year, month, day, hour, min, fsec = self:unpack() local sec, msec = borrow(fsec, 0, 1000) msec = math.floor(msec) return strformat("%04u-%02u-%02uT%02u:%02u:%02d.%03d", year, month, day, hour, min, sec, msec) end function timetable_methods:strftime(format_string) return strftime(format_string, self) end local timetable_mt local function coerce_arg(t) if getmetatable(t) == timetable_mt then return t:timestamp() end return t end timetable_mt = { __index = timetable_methods; __tostring = timetable_methods.rfc_3339; __eq = function(a, b) return a:timestamp() == b:timestamp() end; __lt = function(a, b) return a:timestamp() < b:timestamp() end; __sub = function(a, b) return coerce_arg(a) - coerce_arg(b) end; } local function cast_timetable(tm) return setmetatable(tm, timetable_mt) end local function new_timetable(year, month, day, hour, min, sec, yday, wday) return cast_timetable { year = year; month = month; day = day; hour = hour; min = min; sec = sec; yday = yday; wday = wday; } end function timetable_methods:clone() return new_timetable(self:unpack()) end local function new_from_timestamp(ts) if type(ts) ~= "number" then error("bad argument #1 to 'new_from_timestamp' (number expected, got " .. type(ts) .. ")", 2) end return new_timetable(1970, 1, 1, 0, 0, ts):normalise() end --- Parse an RFC 3339 datetime at the given position -- Returns a time table and the `tz_offset` -- Return value is not normalised (this preserves a leap second) -- If the timestamp is only partial (i.e. missing "Z" or time offset) then `tz_offset` will be nil -- TODO: Validate components are within their boundarys (e.g. 1 <= month <= 12) local function rfc_3339(str, init) local year, month, day, hour, min, sec, patt_end = str:match("^(%d%d%d%d)%-(%d%d)%-(%d%d)[Tt](%d%d%.?%d*):(%d%d):(%d%d)()", init) -- luacheck: ignore 631 if not year then return nil, "Invalid RFC 3339 timestamp" end year = tonumber(year, 10) month = tonumber(month, 10) day = tonumber(day, 10) hour = tonumber(hour, 10) min = tonumber(min, 10) sec = tonumber(sec, 10) local tt = new_timetable(year, month, day, hour, min, sec) local tz_offset if str:match("^[Zz]", patt_end) then tz_offset = 0 else local hour_offset, min_offset = str:match("^([+-]%d%d):(%d%d)", patt_end) if hour_offset then tz_offset = tonumber(hour_offset, 10) * 3600 + tonumber(min_offset, 10) * 60 else -- luacheck: ignore 542 -- Invalid RFC 3339 timestamp offset (should be Z or (+/-)hour:min) -- tz_offset will be nil end end return tt, tz_offset end return { -- used in zenroom from_string = rfc_3339; to_string = function(a) return a:normalise():rfc_3339() end; from_seconds = new_from_timestamp; to_seconds = function(a) return a:normalise():timestamp() end; -- original from luatz is_leap = is_leap; day_of_year = day_of_year; day_of_week = day_of_week; normalise = normalise; timestamp = timestamp; new = new_timetable; new_from_timestamp = new_from_timestamp; cast = cast_timetable; timetable_mt = timetable_mt; } S2--[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] -- ABC/COCONUT implementation in Zencode local CRED = require_once('crypto_credential') -- local G1 = ECP.generator() local G2 = ECP2.generator() -- exported function (non local) for use in zencode_petition function import_credential_proof_f(obj) return { nu = ZEN.get(obj, 'nu', ECP.new), kappa = ZEN.get(obj, 'kappa', ECP2.new), pi_v = { c = ZEN.get(obj.pi_v, 'c', INT.new), rm = ZEN.get(obj.pi_v, 'rm', INT.new), rr = ZEN.get(obj.pi_v, 'rr', INT.new) }, sigma_prime = { h_prime = ZEN.get(obj.sigma_prime, 'h_prime', ECP.new), s_prime = ZEN.get(obj.sigma_prime, 's_prime', ECP.new) } } end function key_import_issuer_verifier_f(obj) return { alpha = ZEN.get(obj, 'alpha', ECP2.new), beta = ZEN.get(obj, 'beta', ECP2.new) } end -- credential keypair operations When( 'create the credential key', function() initkeys'credential' ACK.keys.credential = INT.random() end ) When( "create the credential key with secret key ''", function(sec) initkeys'credential' ACK.keys.credential = INT.new(secret) % ECP.modulo() end ) When( 'create the issuer key', function() initkeys'issuer' ACK.keys.issuer = CRED.issuer_keygen() end ) When( 'create the issuer public key', function() havekey'issuer' ACK.issuer_public_key = { alpha = G2 * ACK.keys.issuer.x, beta = G2 * ACK.keys.issuer.y } end ) -- request credential signatures ZEN.add_schema( { issuer_public_key = key_import_issuer_verifier_f, -- lambda credential_request = function(obj) local req = { sign = { a = ZEN.get(obj.sign, 'a', ECP.new), b = ZEN.get(obj.sign, 'b', ECP.new) }, pi_s = { rr = ZEN.get(obj.pi_s, 'rr', INT.new), rm = ZEN.get(obj.pi_s, 'rm', INT.new), rk = ZEN.get(obj.pi_s, 'rk', INT.new), commit = ZEN.get(obj.pi_s, 'commit', INT.new) }, commit = ZEN.get(obj, 'commit', ECP.new), public = ZEN.get(obj, 'public', ECP.new) } ZEN.assert( CRED.verify_pi_s(req), 'Error in credential request: proof is invalid (verify_pi_s)' ) return req end } ) When( 'create the credential request', function() havekey'credential' ACK.credential_request = CRED.prepare_blind_sign(ACK.keys.credential) end ) -- issuer's signature of credentials ZEN.add_schema( { -- sigmatilde credential_signature = function(obj) return { h = ZEN.get(obj, 'h', ECP.new), b_tilde = ZEN.get(obj, 'b_tilde', ECP.new), a_tilde = ZEN.get(obj, 'a_tilde', ECP.new) } end, -- aggsigma: aggregated signatures of ca issuers credentials = function(obj) return { h = ZEN.get(obj, 'h', ECP.new), s = ZEN.get(obj, 's', ECP.new) } end } ) When( 'create the credential signature', function() have 'credential request' havekey'issuer' ACK.credential_signature = CRED.blind_sign(ACK.keys.issuer, ACK.credential_request) ACK.verifier = { alpha = G2 * ACK.keys.issuer.x, beta = G2 * ACK.keys.issuer.y } end ) When( 'create the credentials', function() have 'credential signature' havekey'credential' -- prepare output with an aggregated sigma credential -- requester signs the sigma with private key ACK.credentials = CRED.aggregate_creds(ACK.keys.credential, {ACK.credential_signature}) end ) ZEN.add_schema( { -- theta: blind proof of certification credential_proof = function(obj) return { nu = ZEN.get(obj, 'nu', ECP.new), kappa = ZEN.get(obj, 'kappa', ECP2.new), pi_v = { c = ZEN.get(obj.pi_v, 'c', INT.new), rm = ZEN.get(obj.pi_v, 'rm', INT.new), rr = ZEN.get(obj.pi_v, 'rr', INT.new) }, sigma_prime = { h_prime = ZEN.get(obj.sigma_prime, 'h_prime', ECP.new), s_prime = ZEN.get(obj.sigma_prime, 's_prime', ECP.new) } } end } ) When( 'aggregate the issuer public keys', function() have 'issuer public key' if not ACK.verifiers then ACK.verifiers = {} end for k, v in pairs(ACK.issuer_public_key) do ACK.verifiers[k] = v end -- TODO: aggregate all array end ) When( 'create the credential proof', function() have 'verifiers' have 'credentials' empty 'credential proof' havekey'credential' ACK.credential_proof = CRED.prove_cred(ACK.verifiers, ACK.credentials, ACK.keys.credential) end ) IfWhen( 'verify the credential proof', function() have 'credential proof' have 'verifiers' ZEN.assert( CRED.verify_cred(ACK.verifiers, ACK.credential_proof), 'Credential proof does not validate' ) end ) --[[ --This file is part of zenroom -- --Copyright (C) 2020-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] local CRED = require_once'crypto_credential' local PET = require_once'crypto_petition' local function petition_scores_f(o) local obj = deepmap(CONF.input.encoding.fun, o) return ({ pos = { left = ZEN.get(obj.pos, 'left', ECP.new), right = ZEN.get(obj.pos, 'right', ECP.new) }, neg = { left = ZEN.get(obj.neg, 'left', ECP.new), right = ZEN.get(obj.neg, 'right', ECP.new) } }) end -- petition ZEN.add_schema( { petition_scores = petition_scores_f, petition = function(obj) local res = { uid = ZEN.get(obj, 'uid'), scores = petition_scores_f(obj.scores) } if obj.owner then res.owner = ZEN.get(obj, 'owner', ECP.new) end if obj.issuer_public_key then res.issuer_public_key = key_import_issuer_verifier_f(obj.issuer_public_key) end if obj.list then res.list = deepmap( function(o) return ZEN.get(o, '.', ECP.new) end, obj.list ) end if obj.signature then res.signature = { r = ZEN.get(obj.signature, 'r'), s = ZEN.get(obj.signature, 's') } end return res end, petition_signature = function(obj) return { -- from zencode_credential proof = import_credential_proof_f(obj.proof), uid_signature = ZEN.get(obj, 'uid_signature', ECP.new), uid_petition = ZEN.get(obj, 'uid_petition') } end, petition_tally = function(obj) local dec = {} dec.neg = ZEN.get(obj.dec, 'neg', ECP.new) dec.pos = ZEN.get(obj.dec, 'pos', ECP.new) return { uid = ZEN.get(obj, 'uid'), c = ZEN.get(obj, 'c', INT.new), dec = dec, rx = ZEN.get(obj, 'rx', INT.new) } end } ) When( "create the petition ''", function(uid) havekey'credential' -- ZEN.assert(ACK.keys.credential,"Credential key not found") ACK.petition = { uid = OCTET.from_string(uid), -- TODO: take UID from HEAP not STACK owner = ECP.generator() * ACK.keys.credential, scores = { pos = { left = ECP.infinity(), right = ECP.infinity() }, neg = { left = ECP.infinity(), right = ECP.infinity() } } } ZEN.CODEC.petition = { name = 'petition', encoding = check_codec('petition'), zentype = 'schema' } -- generate an ECDH signature of the (encoded) petition using the -- credential keys -- ecdh = ECDH.new() -- ecdh:private(ACK.cred_kp.private) -- ACK.petition_ecdh_sign = { ecdh:sign(MSG.pack(OUT.petition)) } -- OUT.petition_ecdh_sign = map(ACK.petition_ecdh_sign, hex) end ) When( 'verify the new petition to be empty', function() ZEN.assert( ECP.isinf(ACK.petition.scores.pos.left), 'Invalid new petition: positive left score is not zero' ) ZEN.assert( ECP.isinf(ACK.petition.scores.pos.right), 'Invalid new petition: positive right score is not zero' ) ZEN.assert( ECP.isinf(ACK.petition.scores.neg.left), 'Invalid new petition: negative left score is not zero' ) ZEN.assert( ECP.isinf(ACK.petition.scores.neg.right), 'Invalid new petition: negative right score is not zero' ) end ) When( "create the petition signature ''", function(uid) have'credentials' have'issuer public key' havekey'credential' local Theta local zeta local ack_uid = OCTET.from_string(uid) Theta, zeta = CRED.prove_cred_uid( ACK.issuer_public_key, ACK.credentials, ACK.keys.credential, ack_uid ) ACK.petition_signature = { proof = Theta, uid_signature = zeta, -- ECP uid_petition = ack_uid } end ) IfWhen( 'verify the signature proof is correct', function() ZEN.assert( CRED.verify_cred_uid( ACK.issuer_public_key, ACK.petition_signature.proof, ACK.petition_signature.uid_signature, ACK.petition_signature.uid_petition ), 'Petition signature is invalid' ) end ) IfWhen( 'the petition signature is not a duplicate', function() if luatype(ACK.petition.list) == 'table' then ZEN.assert( (not array_contains( ACK.petition.list, ACK.petition_signature.uid_signature )), 'Duplicate petition signature detected' ) else ACK.petition.list = {} end table.insert(ACK.petition.list, ACK.petition_signature.uid_signature) end ) IfWhen( 'the petition signature is just one more', function() -- verify that the signature is +1 (no other value supported) ACK.petition_signature.one = PET.prove_sign_petition(ACK.petition.owner, BIG.new(1)) ZEN.assert( PET.verify_sign_petition( ACK.petition.owner, ACK.petition_signature.one ), 'ABC petition signature adds more than one signature' ) end ) When( 'add the signature to the petition', function() -- add the signature to the petition count local scores = ACK.petition.scores local psign = ACK.petition_signature.one scores.pos.left = scores.pos.left + psign.scores.pos.left scores.pos.right = scores.pos.right + psign.scores.pos.right scores.neg.left = scores.neg.left + psign.scores.neg.left scores.neg.right = scores.neg.right + psign.scores.neg.right -- TODO: ZEN:push({'petition' ,'scores'} ACK.petition.scores = scores end ) When( 'create a petition tally', function() havekey'credential' ZEN.assert(ACK.petition, 'Petition not found') ACK.petition_tally = PET.prove_tally_petition( ACK.keys.credential, ACK.petition.scores ) ACK.petition_tally.uid = ACK.petition.uid end ) When( 'count the petition results', function() ZEN.assert(ACK.petition, 'Petition not found') ZEN.assert(ACK.petition_tally, 'Tally not found') ZEN.assert( ACK.petition_tally.uid == ACK.petition.uid, 'Tally does not correspond to petition' ) ACK.petition_results = PET.count_signatures_petition( ACK.petition.scores, ACK.petition_tally ).pos end ) X--[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Sunday, 11th July 2021 --]] -- generic comparison using overloaded __eq on values local function _eq(left, right) if luatype(left) == 'number' and luatype(right) == 'number' then return (left == right) elseif luatype(left) == 'table' and luatype(right) == 'table' then if(#left ~= #right) then return false end -- optimization return (ZEN.serialize(left) == ZEN.serialize(right)) elseif iszen(type(left)) and iszen(type(right)) then return (left:octet() == right:octet()) else error("Comparison between incompatible types: " ..type(left).." and "..type(right), 2) end end local function _neq(left, right) if luatype(left) == 'number' and luatype(right) == 'number' then return (left ~= right) elseif luatype(left) == 'table' and luatype(right) == 'table' then if(#left == #right) then return false end -- optimization return (ZEN.serialize(left) ~= ZEN.serialize(right)) elseif iszen(type(left)) and iszen(type(right)) then return (left:octet() ~= right:octet()) else error("Comparison between incompatible types: " ..type(left).." and "..type(right), 2) end end IfWhen( "verify '' is equal to ''", function(l, r) local left = have(l) local right = have(r) ZEN.assert( _eq(left, right), 'Verification fail: elements are not equal: ' .. l .. ' == ' .. r ) end ) IfWhen( "verify '' is not equal to ''", function(l, r) local left = have(l) local right = have(r) ZEN.assert( _neq(left, right), 'Verification fail: elements are equal: ' .. l .. ' == ' .. r ) end ) -- comparison inside dictionary IfWhen( "verify '' is equal to '' in ''", function(l, tr, tt) local left = have(l) local tab = have(tt) local right = tab[tr] ZEN.assert( _eq(left, right), 'Verification fail: elements are not equal: ' .. l .. ' == ' .. tt .. '.' .. tr ) end ) IfWhen( "verify '' is not equal to '' in ''", function(l, tr, tt) local left = have(l) local tab = have(tt) local right = tab[tr] ZEN.assert( _neq(left, right), 'Verification fail: elements are equal: ' .. l .. ' == ' .. tt .. '.' .. tr ) end ) -- check a tuple of numbers before comparison, convert to BIG or number local function numcheck(left, right) local al, ar -- if left == nil then error('1st argument of numerical comparison is nil', 2) end local tl = type(left) if not iszen(tl) then if tl ~= 'number' then error('1st argument invalid numeric type: ' .. tl, 2) end end if tl == 'zenroom.octet' then al = BIG.new(left) elseif tl == 'zenroom.big' or tl == 'number' then al = left else al = left:octet() end -- if right == nil then error('2nd argument of numerical comparison is nil', 2) end local tr = type(right) if not iszen(tr) then if tr ~= 'number' then error('2nd argument invalid numeric type: ' .. tr, 2) end end if tr == 'zenroom.octet' then ar = BIG.new(right) elseif tr == 'zenroom.big' or tr == 'number' then ar = right else ar = right:octet() end return al, ar end IfWhen( "number '' is less than ''", function(left, right) local l, r = numcheck(ACK[left], ACK[right]) ZEN.assert( l < r, 'Comparison fail: ' .. left .. ' is not less than ' .. right ) end ) IfWhen( "number '' is less or equal than ''", function(left, right) local l, r = numcheck(ACK[left], ACK[right]) ZEN.assert( l <= r, 'Comparison fail: ' .. left .. ' is not less or equal than ' .. right ) end ) IfWhen( "number '' is more than ''", function(left, right) local l, r = numcheck(ACK[left], ACK[right]) ZEN.assert( r < l, 'Comparison fail: ' .. left .. ' is not more than ' .. right ) end ) IfWhen( "number '' is more or equal than ''", function(left, right) local l, r = numcheck(ACK[left], ACK[right]) ZEN.assert( r <= l, 'Comparison fail: ' .. left .. ' is not more or equal than ' .. right ) end ) -- TODO: substitute with RFC2047 compliant code (take from jaromail) local function validemail(str) if str == nil then return nil end if (type(str) ~= 'string') then error('Expected string') return nil end local lastAt = str:find('[^%@]+$') local localPart = str:sub(1, (lastAt - 2)) -- Returns the substring before '@' symbol local domainPart = str:sub(lastAt, #str) -- Returns the substring after '@' symbol -- we werent able to split the email properly if localPart == nil then return nil, 'Local name is invalid' end if domainPart == nil then return nil, 'Domain is invalid' end -- local part is maxed at 64 characters if #localPart > 64 then return nil, 'Local name must be less than 64 characters' end -- domains are maxed at 253 characters if #domainPart > 253 then return nil, 'Domain must be less than 253 characters' end -- somthing is wrong if lastAt >= 65 then return nil, 'Invalid @ symbol usage' end if string.sub(domainPart, 1, 1) == '.' then return false, 'first character in domainPart is a dot' end -- quotes are only allowed at the beginning of a the local name local quotes = localPart:find('["]') if type(quotes) == 'number' and quotes > 1 then return nil, 'Invalid usage of quotes' end -- no @ symbols allowed outside quotes if localPart:find('%@+') and quotes == nil then return nil, 'Invalid @ symbol usage in local part' end -- no dot found in domain name if not domainPart:find('%.') then return nil, 'No TLD found in domain' end -- only 1 period in succession allowed if domainPart:find('%.%.') then return nil, 'Too many periods in domain' end if localPart:find('%.%.') then return nil, 'Too many periods in local part' end -- just a general match if not str:match('[%w]*[%p]*%@+[%w]*[%.]?[%w]*') then return nil, 'Email pattern test failed' end if (lastAt == nil) then lastAt = #str + 1 end -- all our tests passed, so we are ok return true end IfWhen( "verify '' is a email", function(name) local A = ACK[name] ZEN.assert(A, 'Object not found: ' .. name) local res, err = validemail(O.to_string(A)) ZEN.assert(res, err) end ) IfWhen( "verify '' contains a list of emails", function(name) local A = ACK[name] ZEN.assert(A, 'Object not found: ' .. name) ZEN.assert( luatype(A) == 'table', 'Object is not a container: ' .. name ) local res, err for k, v in pairs(A) do res, err = validemail(O.to_string(v)) ZEN.assert(res, (err or 'OK') .. ' on email: ' .. O.to_string(v)) end end ) O--[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Wednesday, 14th July 2021 --]] ZEN.add_schema( { -- flexible verifiable credential -- only internal 'jws' member has peculiar encoding verifiable_credential = function(obj) ZEN.CODEC.verifiable_credential = { name = 'verifiable_credential', encoding = 'string', zentype = 'schema', luatype = 'table' } return (deepmap(OCTET.from_string, obj)) end } ) -- return { r , s } table suitable for signature verification local function jws_octet_to_signature(obj) local toks = strtok(OCTET.to_string(obj), '[^.]*') -- header parsing may be skipped -- local header = JSON.decode( OCTET.from_url64(toks[1]):to_string() ) local res = {} res.r, res.s = OCTET.chop(OCTET.from_url64(toks[3]), 32) return (res) end -- return octet string suitable for JWS encapsulation local function jws_signature_to_octet(obj) local header = OCTET.from_string( JSON.encode( { alg = 'ES256K', b64 = true, crit = 'b64' } ) ) return (OCTET.to_url64(header) .. '..' .. OCTET.to_url64(obj.r .. obj.s)) end When( "set the verification method in '' to ''", function(vc, meth) local cred = have(vc) ZEN.assert(cred.proof, 'The object is not signed: ' .. vc) local m = have(meth) ACK[vc].proof.verificationMethod = m end ) When( "get the verification method in ''", function(vc) empty 'verification_method' local cred = have(vc) ZEN.assert(cred.proof, 'The object is not signed: ' .. vc) ACK.verification_method = cred.proof.verificationMethod end ) When( "sign the verifiable credential named ''", function(vc) local cred = have(vc) local keypair = have 'keypair' ZEN.assert( not cred.proof, 'The object is already signed: ' .. vc ) local proof = { type = 'Zenroom', -- .. VERSION, -- , "Signature", -- TODO: check what to write here for secp256k1 -- created = "2018-06-18T21:19:10Z", proofPurpose = 'authenticate' -- assertionMethod", -- TODO: check } local cred_str = JSON.encode(cred) proof.jws = jws_signature_to_octet( ECDH.sign(keypair.private_key, OCTET.from_string(cred_str)) ) ACK[vc].proof = deepmap(OCTET.from_string, proof) end ) IfWhen( "verify the verifiable credential named ''", function(vc) local cred = have(vc) local public_key = have 'public_key' ZEN.assert(cred.proof, 'The object has no signature: ' .. vc) ZEN.assert( cred.proof.jws, 'The object has no signature: ' .. vc ) local sign = jws_octet_to_signature(cred.proof.jws) -- omit the proof subtable from verification local proof = cred.proof cred.proof = nil local cred_str = JSON.encode(cred) -- restore proof in HEAP (cred is still a pointer here) cred.proof = proof -- if public_key is a table then use the first value: support 'from' -- extraction, but not multiple keys local pub if luatype(public_key) == 'table' then _, pub = next(public_key) else pub = public_key end ZEN.assert( ECDH.verify(pub, OCTET.from_string(cred_str), sign), 'The signature does not validate: ' .. vc ) end ) --[[ --This file is part of zenroom -- --Copyright (C) 2019-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] local _cbor = require('cbor') _cbor.decode = _cbor.raw_decode _cbor.encode = function(tab) -- encodes zencode types according to CODEC assert(luatype(tab) == 'table', "CBOR encode argument needs to be a table") local fun local res = { } for k,v in pairs(tab) do fun = guess_outcast( check_codec(k) ) if luatype(v) == 'table' then res[k] = deepmap(fun, v) else res[k] = fun(v) end end return _cbor.raw_encode( res ) end _cbor.auto = function(obj) local t = luatype(obj) if t == 'table' then -- export table to JSON return _cbor.encode(obj) elseif t == 'string' then -- import JSON string to table return _cbor.decode(obj) else error("CBOR.auto unrecognised input type: "..t, 3) return nil end end return _cbor --[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] local ecp = require'ecp' function ecp.hashtopoint(s) return ecp.mapit(sha512(s)) end function ecp.random() return ecp.mapit(OCTET.random(64)) end return ecp --[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] local ecp2 = require'ecp2' require'fp12' -- FP12 implicit function ecp2.hashtopoint(s) return ecp2.mapit(sha512(s)) end function ecp2.random() return ecp2.mapit(OCTET.random(64)) end return ecp2 --[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] local octet = require'octet' --- implicit convertion functions going both ways -- if input is an encoded string, will become an octet -- if input is a non-encoded string, it will become a base64 string -- if input is an octet, will become an encoded string function hex(data) local t = type(data) if(t == "string") then if O.is_hex(data) then return O.from_hex(data) else return O.from_str(data):hex() end elseif(t == "number") then return data elseif(t == "table") then return data elseif iszen(t) then return data:octet():hex() -- any zenroom type to octet end end function str(data) local t = type(data) if(t == "string") and data ~= "" then if OCTET.is_url64(data) then -- return decoded string format for JSON.decode return OCTET.from_url64(data):str() elseif OCTET.is_base64(data) then -- return decoded string format for JSON.decode return OCTET.from_base64(data):str() elseif OCTET.is_base58(data) then -- return decoded string format for JSON.decode return OCTET.from_base58(data):str() elseif OCTET.is_hex(data) then -- return decoded string format for JSON.decode return OCTET.from_hex(data):str() elseif OCTET.is_bin(data) then -- return decoded string format for JSON.decode return OCTET.from_bin(data):str() else -- its already a string (we suppose, this is not deterministic) return data end elseif iszen(t) then return data:octet():str() else error("automatic str() conversion failed for type: "..t) end end function bin(data) local t = type(data) if(t == "string") then if O.is_bin(data) then return O.from_bin(data) else return O.from_str(data):bin() end elseif(t == "number") then return data elseif(t == "table") then return data elseif iszen(t) then return data:octet():bin() -- any zenroom type to octet end end function base64(data) if not data then error("Internal data conversion on nil",2) end local t = type(data) if(t == "string") then if O.is_base64(data) then return O.from_base64(data) else return O.from_str(data):base64() end elseif(t == "number") then return data elseif(t == "table") then return data elseif iszen(t) then return data:octet():base64() -- any zenroom type to octet end end function url64(data) if not data then error("Internal data conversion on nil",2) end local t = type(data) if(t == "string") then if O.is_url64(data) then return O.from_url64(data) else return O.from_str(data):url64() end elseif(t == "number") then return data elseif(t == "table") then return data elseif iszen(t) then return data:octet():url64() -- any zenroom type to octet end end function base58(data) local t = type(data) if(t == "string") then if O.is_base58(data) then return O.from_base58(data) else return O.from_str(data):base58() end elseif iszen(t) then return data:octet():base58() -- any zenroom type to octet end end return octet --[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] -- Decentralized Privacy-Preserving Proximity Tracing scenarion in Zencode SHA256 = HASH.new('sha256') -- ZEN.add_schema({ -- -- secret_day_key = function(obj) -- -- ZEN.assert(#obj == 32, "Secret day key has wrong size (not 32 bytes / 256 bits)") -- -- return obj -- -- end -- -- TODO: -- -- list of infected (array of 32 byte random hashes) -- -- ephemeral ids (array of 16 byte AES-GCM checksums) -- }) When("renew the secret day key to a new day", function() ZEN.assert(ACK.secret_day_key, "Secret day key not found") local sk = SHA256:process(ACK.secret_day_key) ZEN.assert(sk, "Error renewing secret day key (SHA256)") ACK.secret_day_key = sk end) When("create the ephemeral ids for today", function() ZEN.assert(ACK.secret_day_key, "Secret day key not found") ZEN.assert(ACK.broadcast_key, "Broadcast key not found") ZEN.assert(type(ACK.epoch) == 'number', "Epoch length (minutes) not found") local PRF = SHA256:hmac(ACK.secret_day_key, ACK.broadcast_key) local epd = (24*60)/ACK.epoch -- num epochs per day local zero = OCTET.zero(epd*16) -- 0 byte buffer ACK.ephemeral_ids = { } for i = 0,epd,1 do local PRG = AES.ctr(PRF, zero, O.from_number(i)) local l,r = OCTET.chop(PRG,16) table.insert(ACK.ephemeral_ids, l) end end) When("create the proximity tracing of infected ids", function() ZEN.assert(type(ACK.epoch) == 'number', "Number of moments not found") ZEN.assert(type(ACK.list_of_infected) == 'table', "List of infected not found") ZEN.assert(type(ACK.ephemeral_ids) == 'table', "List of ephemeral ids not found") ZEN.assert(ACK.broadcast_key, "Broadcast key not found") ACK.proximity_tracing = { } local epd = (24*60)/ACK.epoch -- num epochs per day local zero = OCTET.zero(epd*16) -- 0 byte buffer for n,sk in ipairs(ACK.list_of_infected) do local PRF = SHA256:hmac(sk, ACK.broadcast_key) for i = 0,epd,1 do local PRG = OCTET.chop( AES.ctr(PRF, zero, O.from_number(i)), 16) for nn,eph in next, ACK.ephemeral_ids, nil do if eph == PRG then table.insert(ACK.proximity_tracing, sk) end end end end end) g --[[ --This file is part of zenroom -- --Copyright (C) 2020-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] -- Lagrange interpolation implementation in Zencode LAG = require_once('crypto_lagrange_interpolation') function single_share_f(o) local obj = deepmap(CONF.input.encoding.fun, o) return { x = ZEN.get(obj, 'x', BIG.new), y = ZEN.get(obj, 'y', BIG.new) } end ZEN.add_schema({ -- single share single_share = single_share_f, -- array of single shares secret_shares = function(obj) local res = { } for k,v in pairs(obj) do res[k] = single_share_f(v) end return res end }) When("create the secret shares of '' with '' quorum ''", function(sec, tot, q) local soct = have(sec) -- this check is relative to the BIG size, established by curve's size -- it is made inside the crypto function, but could also be made here -- local sbig = BIG.new(soct) % ECP.order() -- ZEN.assert(sbig:octet() == soct, "Secret too big to share: "..#soct.." bytes") local total = tonumber(tot) ZEN.assert(total, "Total shares is not a number: "..tot) local quorum = tonumber(q) ZEN.assert(quorum, "Quorum shares is not a number: "..q) ACK.secret_shares = LAG.create_shared_secret(total,quorum,soct) end) When("compose the secret using ''", function(shares) local sh = have(shares) ACK.secret = LAG.compose_shared_secret(sh) end) 4--[[ --This file is part of zenroom -- --Copyright (C) 2020-2021 Dyne.org foundation -- Implementation by Alberto Ibrisevich and Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Alberto Lerda --on Tuesday, 04th October 2021 --]] local li = { _VERSION = 'crypto_lagrange_interpolation.lua 1.0', _URL = 'https://zenroom.dyne.org', _DESCRIPTION = 'Secret Sharing based on BIG INT using Lagrange Interpolation over 1st order elliptic curves",Attribute-based credential system supporting multiple unlinkable private attribute revelations', _LICENSE = [[ Licensed under the terms of the GNU Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. ]] } -- the biggest prime less than 2^(32*8) -- computed with -- i:=2^(32*8); -- while i ge 2^(31*8) do -- if IsPrime(i) then -- print(i); -- break; -- end if; -- i:=i-1; -- end while; -- at http://magma.maths.usyd.edu.au/calc/ -- 115792089237316195423570985008687907853269984665640564039457584007913129639747 octP = O.from_hex('ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff43') P = BIG.new(octP) assert(P:octet() == octP) function li.create_shared_secret(total, quorum, secret) if quorum >= total then error('Error calling create_shared_secret: quorum ('..quorum..') must be smaller than total ('..total..')', 2) end -- check that BIG can contain the whole secret, depends from curve's size and the choosen prime P local secbig = BIG.new(secret) if secbig:octet() ~= secret or secbig > P then error('Secret exceeds maximum BIG size: '..#O..' bytes or the size of the choosen prime') end secbig = secbig % P -- generation of the coefficients of the secret polynomial local coeff = { } -- take last argument or create random if secret then coeff[1] = BIG.new(secret) else coeff[1] = BIG.modrand(P) end for i=2,quorum,1 do coeff[i] = BIG.modrand(P) end --generation of the shares local shares = { } for i=1,total,1 do local x repeat x = BIG.modrand(P) if x ~=0 then --checking for duplicates in shares for _, k in pairs(shares) do if x == k then x = 0 end end end until x ~= 0 --this part provides trivial unleakability: x coordinate is never zero local y = coeff[1] --a_0 local x_n = BIG.new(1) for n=2,quorum,1 do x_n = x_n:modmul(x, P) -- x^(n-1) y = BIG.add(y, coeff[n]:modmul(x_n, P)) y = BIG.mod(y, P) -- +a_(n-1)x^(n-1) end table.insert(shares, {x = x, y = y}) end -- for i,total -- overwrite secret for secure disposal return shares, coeff[1] end function li.compose_shared_secret(shares) local sec = BIG.new(0) local num local den local quorum = #shares for i = 1,quorum,1 do num = BIG.new(1) if quorum % 2 == 0 then num = P - num end den = BIG.new(1) for j = 1,quorum,1 do if j~=i then num = num:modmul(shares[j].x, P) den = den:modmul((shares[i].x):modsub(shares[j].x, P), P) end end sec = BIG.add(sec, (shares[i].y):modmul(num:moddiv(den, P), P)) sec = BIG.mod(sec, P) end return sec end return li --[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Alberto Lerda -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --]] local btc = {} -- A bitcoin address is unique given the public key -- address = RIPEMD160(SHA256(public_key)) -- the composition of RIPEMD160 and SHA256 is known as HASH160 function btc.address_from_public_key(public_key) return HASH.hash160(public_key) end -- The user knows his private key in the WIF format (base58) -- This function compute the bytes of the private key (an octet) -- from the WIF format -- @param wif Private key in WIF format -- @return Private key octet function btc.wif_to_sk(wif) if not type(wif) == 'zenroom.octet' then error("invalid bitcoin key type, not an octet: "..type(wif), 3) end local len = #wif if not (len == 32+6) then error("Invalid bitcoin key, wrong WIF size: "..len.." bytes", 3) end local ver = wif:chop(1):hex() if not(ver == 'ef' or ver == '80') then error("Invalid bitcoin key version: "..ver, 3) end local compress = wif:sub(34,34):hex() if not(compress == '01') then error("Invalid bitcoin key compression byte: "..wif:sub(len, len):hex(), 3) end local data = wif:sub(1, len-4) local check = HASH.dsha256(data):chop(4) if not(wif:sub(len-3, len) == check) then error("Invalid bitcoin key: checksum mismatch", 3) end return wif:sub(2,len-5) end -- 0x80 = Mainnet -- 0xEF = Testnet function btc.sk_to_wif(sk, vs) local ver if vs == 'testnet' then ver = O.from_hex('EF') else ver = O.from_hex('80') end local res = ver..sk res = res..O.from_hex('01') -- compressed public key res = res..HASH.dsha256(res):chop(4) -- checksum return res end -- variable length encoding for integer based on the -- actual length of the number function btc.encode_compact_size(n) local res, padding, prefix, le -- littleEndian; if type(n) ~= "zenroom.big" then n = INT.new(n) end padding = 0 res = O.new() if n <= INT.new(252) then res = n:octet() else le = n:octet():reverse() prefix = O.new() if n <= INT.new('0xffff') then prefix = O.from_hex('fd') padding = 2 elseif n <= INT.new('0xffffffff') then prefix = O.from_hex('fe') padding = 4 elseif n <= INT.new('0xffffffffffffffff') then prefix = O.from_hex('ff') padding = 8 else padding = #le end res = prefix .. le padding = padding - #le end if padding > 0 then res = res .. O.zero(padding) end return res end local function decode_compact_size_at_index(raw, i) local b1 b1 = tonumber(raw:sub(i,i):hex(), 16) local s, e -- start and end index if b1 < 0xfd then s, e = 1, 1 elseif b1 == 0xfd then s, e = 2, 3 elseif b1 == 0xfe then s, e = 2, 5 else s, e = 2, 9 end return INT.new(raw:sub(i+s-1, i+e-1)), i+e end -- fixed size encoding for integer function btc.to_uint(num, nbytes) if type(num) ~= "zenroom.big" then num = INT.new(num) end num = num:octet():reverse() if #num < nbytes then num = num .. O.zero(nbytes - #num) end return num end -- read little endian number from transaction raw at position i local function read_uint(raw, i, nbytes) return tonumber(raw:sub(i,i+nbytes-1):reverse():hex(), 16), i+nbytes end -- The sender address is not in the raw transaction function btc.decode_raw_transaction(raw, sender_address, amounts_spent) local SCRIPT_SIZE_LIMIT = BIG.from_decimal('10000') local tx local i=1 local scriptBytes tx = {} -- version (little endian) tx.version, i = read_uint(raw, i, 4) assert(tx.version == 1 or tx.version == 2) -- check if this is segwit, BIP 141 segwit = (raw:sub(i, i+1) == O.from_hex('0001')) if segwit then i=i+2 end -- read txin local n_txin n_txin, i = decode_compact_size_at_index(raw, i) tx.txIn = {} for j=1,tonumber(n_txin:octet():hex(), 16),1 do local currIn = {} -- previous output currIn.txid = raw:sub(i, i+32-1):reverse() i=i+32 currIn.vout, i = read_uint(raw, i, 4) currIn.amountSpent = amounts_spent[j] scriptBytes, i = decode_compact_size_at_index(raw, i) assert(scriptBytes < SCRIPT_SIZE_LIMIT) scriptBytes = tonumber(scriptBytes:octet():hex(), 16) if scriptBytes > 0 then -- empty script i = i + scriptBytes end currIn.sequence = raw:sub(i, i+3):reverse() i = i + 4 currIn.address = sender_address table.insert(tx.txIn, currIn) end -- read txout n_txout, i = decode_compact_size_at_index(raw, i) tx.txOut = {} for j=1,tonumber(n_txout:octet():hex(), 16),1 do local currOut = {} currOut.amount = BIG.new(raw:sub(i,i+8-1):reverse()) i=i+8 scriptBytes, i = decode_compact_size_at_index(raw, i) assert(scriptBytes < SCRIPT_SIZE_LIMIT) scriptBytes = tonumber(scriptBytes:octet():hex(), 16) if scriptBytes > 0 then -- decode the script -- the script is 00 ADDRESS_LEN ADDRESS -- test segwit ver 0 script assert(raw:sub(i,i) == O.from_hex('00')) local addressLen = tonumber(raw:sub(i+1,i+1):hex(), 16) assert(2+addressLen == scriptBytes) currOut.address = raw:sub(i+2, i+scriptBytes-1) i = i + scriptBytes end table.insert(tx.txOut, currOut) end -- read witness (if segwit) if segwit then tx.witness = {} for j=1,#tx.txIn,1 do stackSize, i = decode_compact_size_at_index(raw, i) stackSize = tonumber(stackSize:octet():hex(), 16) items = {} for k=1,stackSize,1 do itemBytes, i = decode_compact_size_at_index(raw, i) itemBytes = tonumber(itemBytes:octet():hex(), 16) item = raw:sub(i, i+itemBytes-1) i=i+itemBytes table.insert(items, item) end table.insert(tx.witness, items) end end -- read nlocktime tx.nLockTime, i = read_uint(raw, i, 4) return tx end -- create an octet which is a raw transaction -- works only with Bech32 v0 addresses -- with not coinbase input -- @param tx table which reppresent a transaction -- @return octet raw transaction function btc.build_raw_transaction(tx) local raw, script raw = O.new() sigwit = (tx["witness"] and #tx["witness"]>0) -- version raw = raw .. O.from_hex('02000000') if sigwit then -- marker + flags raw = raw .. O.from_hex('0001') end raw = raw .. btc.encode_compact_size(INT.new(#tx.txIn)) -- txIn for _, v in pairs(tx.txIn) do -- outpoint (hash and index of the transaction) raw = raw .. v.txid:reverse() .. btc.to_uint(v.vout, 4) -- the script depends on the signature script = O.new() raw = raw .. btc.encode_compact_size(#script) .. script -- Sequence number disabled raw = raw .. O.from_hex('ffffffff') end raw = raw .. btc.encode_compact_size(INT.new(#tx.txOut)) -- txOut for k, v in pairs(tx.txOut) do --raw = raw .. btc.to_uint(v.amount, 8) assert(v.address, "Address not found in txout["..k.."]") local amount = O.new(v.amount) raw = raw .. amount:reverse() if #v.amount < 8 then raw = raw .. O.zero(8 - #amount) end -- fixed script to send bitcoins -- OP_DUP OP_HASH160 20byte --script = O.from_hex('76a914') --script = script .. v.address -- OP_EQUALVERIFY OP_CHECKSIG --script = script .. O.from_hex('88ac') -- Bech32 script = O.from_hex('0014') -- readBech32Address(v.address) script = script .. fif(v.address.raw, v.address.raw, v.address) raw = raw .. btc.encode_compact_size(#script) .. script end if sigwit then -- Documentation https://bitcoincore.org/en/segwit_wallet_dev/ -- The documentation talks about "stack items" but it doesn't specify -- which are they, I think that It depends on the type of transaction -- (P2SH or P2PKH) -- The size of witnesses is not necessary because it is equal to the number of -- txin --raw = raw .. btc.encode_compact_size(#tx["witness"]) for _, v in pairs(tx["witness"]) do -- encode all the stack items for the witness raw = raw .. btc.encode_compact_size(#v) for _, s in pairs(v) do raw = raw .. btc.encode_compact_size(#s) raw = raw .. s end end end raw = raw .. O.from_hex('00000000') return raw end local function encode_with_prepend(bytes) if tonumber(bytes:sub(1,1):hex(), 16) >= 0x80 then bytes = O.from_hex('00') .. bytes end return bytes end -- DER is the format used by bitcoin to encode -- ECDSA signatures -- @param sig signature table (with r and s) -- @return octet encoded with DER format function btc.encode_der_signature(sig) local res, tmp; res = O.new() -- r tmp = encode_with_prepend(sig.r) res = res .. O.from_hex('02') .. INT.new(#tmp):octet() .. tmp -- s tmp = encode_with_prepend(sig.s) res = res .. O.from_hex('02') .. INT.new(#tmp):octet() .. tmp res = O.from_hex('30') .. INT.new(#res):octet() .. res return res end local function read_number_from_der(raw, pos) local size assert(raw:sub(pos, pos) == O.from_hex('02')) pos= pos+1 size = tonumber(raw:sub(pos, pos):hex(), 16) pos = pos +1 -- If the first byte is a 0 do not consider it if raw:sub(pos, pos) == O.from_hex('00') then pos = pos +1 size = size -1 end data = raw:sub(pos, pos+size-1) return { data, pos+size } end -- DER is the format used by bitcoin to encode -- ECDSA signatures -- @param raw octet encoded with DER format -- @return signature table (with r and s) function btc.decode_der_signature(raw) local sig, tmp, size; sig = {} assert(raw:chop(1) == O.from_hex('30')) size = tonumber(raw:sub(2,2):hex(), 16) tmp = read_number_from_der(raw, 3) sig.r = tmp[1] tmp = tmp[2] tmp = read_number_from_der(raw, tmp) sig.s = tmp[1] return sig end -- Hash required in the raw transaction (is exposed to be able to use it -- in the tests) local function _hash_prevouts(tx) local raw local H H = HASH.new('sha256') raw = O.new() for _, v in pairs(tx.txIn) do raw = raw .. v.txid:reverse() .. btc.to_uint(v.vout, 4) end return H:process(H:process(raw)) end -- Hash required in the raw transaction (is exposed to be able to use it -- in the tests) local function _hash_sequence(tx) local raw local H local seq H = HASH.new('sha256') raw = O.new() for _, v in pairs(tx.txIn) do seq = v['sequence'] if not seq then -- default value, not enabled seq = O.from_hex('ffffffff') end raw = raw .. btc.to_uint(seq, 4) end return H:process(H:process(raw)) end -- Hash required in the raw transaction (is exposed to be able to use it -- in the tests) local function _hash_outputs(tx) local raw local H H = HASH.new('sha256') raw = O.new() for _, v in pairs(tx.txOut) do amount = O.new(v.amount) raw = raw .. amount:reverse() if #v.amount < 8 then raw = raw .. O.zero(8 - #amount) end -- This is specific to Bech32 addresses, we should be able to verify the kind of address raw = raw .. O.from_hex('160014') .. fif( v.address.raw, v.address.raw, v.address) end return H:process(H:process(raw)) end -- BIP0143 -- Double SHA256 of the serialization of: -- 1. nVersion of the transaction (4-byte little endian) -- 2. hash_prevouts (32-byte hash) -- 3. hash_sequence (32-byte hash) -- 4. outpoint (32-byte hash + 4-byte little endian) -- 5. scriptCode of the input (serialized as scripts inside CTxOuts) -- 6. value of the output spent by this input (8-byte little endian) -- 7. nSequence of the input (4-byte little endian) -- 8. hash_outputs (32-byte hash) -- 9. nLocktime of the transaction (4-byte little endian) -- 10. sighash type of the signature (4-byte little endian) local function build_transaction_to_sign(tx, i) local raw local amount local address = fif(tx.txIn[i].address.raw, tx.txIn[i].address.raw, tx.txIn[i].address) assert(address, "Cannot sign or verify transaction: no address provided") raw = O.new() -- 1. nVersion of the transaction (4-byte little endian) raw = raw .. btc.to_uint(tx.version, 4) -- 2. hash_prevouts (32-byte hash) raw = raw .. _hash_prevouts(tx) -- 3. hash_sequence (32-byte hash) raw = raw .. _hash_sequence(tx) -- 4. outpoint (32-byte hash + 4-byte little endian) raw = raw .. tx.txIn[i].txid:reverse() .. btc.to_uint(tx.txIn[i].vout, 4) -- 5. scriptCode of the input (serialized as scripts inside CTxOuts) raw = raw .. O.from_hex('1976a914') .. address .. O.from_hex('88ac') -- 6. value of the output spent by this input (8-byte little endian) amount = O.new(tx.txIn[i].amountSpent) raw = raw .. amount:reverse() if #amount < 8 then raw = raw .. O.zero(8 - #amount) end -- 7. nSequence of the input (4-byte little endian) raw = raw .. tx.txIn[i].sequence:reverse() -- 8. hash_outputs (32-byte hash) raw = raw .. _hash_outputs(tx) -- 9. nLocktime of the transaction (4-byte little endian) raw = raw .. btc.to_uint(tx.nLockTime, 4) -- 10. sighash type of the signature (4-byte little endian) raw = raw .. btc.to_uint(tx.nHashType, 4) return raw end -- Here I sign the transaction function btc.build_witness(tx, sk) local pk = ECDH.compress_public_key(ECDH.pubgen(sk)) local witness = {} for i=1,#tx.txIn,1 do if tx.txIn[i].sigwit then -- fill address generated from sk if not present in txin local rawTx = build_transaction_to_sign(tx, i) local sigHash = HASH.dsha256(rawTx) local sig = ECDH.sign_ecdh(sk, sigHash) witness[i] = { btc.encode_der_signature(sig) .. O.from_hex('01'), pk } else witness[i] = O.zero(1) end end return witness end function btc.verify_witness(tx) tx.nHashType = O.from_hex('00000001') if tx.witness == nil then return false end for i, v in pairs(tx.witness) do local rawTx = build_transaction_to_sign(tx, i) local sigHash = HASH.dsha256(rawTx) local sig = btc.decode_der_signature(v[1]) if not ECDH.verify_hashed(ECDH.uncompress_public_key(v[2]), sigHash, sig, #sigHash) then return false end end return true end -- Pay attention to the amount, it has to be multiplied for 10^8 -- @param unspent list of unspent transactions -- @param to receiver bitcoin address (must be segwit/Bech32!) -- @param amount satoshi to transfer (BIG integer) -- @param fee satoshi of fee we want to pay -- @return nil if the transaction cannot built -- (for example if there are not enough founds) function btc.build_tx_from_unspent(unspent, to, amount, fee, from) local tx, i, currentAmount tx = { version=2, txIn = {}, txOut = {}, nLockTime=0, nHashType=O.from_hex('00000001') } i=1 currentAmount = INT.new(0) while i <= #unspent and currentAmount < amount+fee do assert(unspent[i].address or from, "No sender address specified") -- amount should be already converted to a zenroom type, if not -- then we assume it is a string value expressed in satoshis local amount = unspent[i].amount if not iszen( type( amount ) ) then amount = BIG.from_decimal( amount ) end currentAmount = currentAmount + amount tx.txIn[i] = { txid = unspent[i].txid, vout = unspent[i].vout, sigwit = O.from_hex('01'), -- this should be true address = unspent[i].address or from, amountSpent = amount, sequence = O.from_hex('ffffffff'), --scriptPubKey = unspent[i].scriptPubKey } i=i+1 end if currentAmount < amount+fee or i==1 then -- Not enough BTC return nil end -- Add exactly two outputs, one for the receiver and one for the exceding amount tx.txOut[1] = { amount = amount, address = to } if currentAmount > amount+fee then tx.txOut[2] = { amount = currentAmount-amount-fee, address = tx.txIn[1].address } end return tx end -- 1 BTC = 1e8 satoshi -- @param value number of BTC as string (digits with a dot) -- @return number of sathosi as zenroom.big function btc.value_btc_to_satoshi(value) pos = value:find("%.") decimals = value:sub(pos+1, #value) if #decimals > 8 then error("Satoshi is the smallest unit of measure") end decimals = decimals .. string.rep("0", 8-#decimals) return BIG.from_decimal(value:sub(1, pos-1) .. decimals) end -- 1 BTC = 1e8 satoshi -- @param value number of sathosi as zenroom.big -- @return number of BTC as string (digits with a dot) function btc.value_satoshi_to_btc(value) local str_value = value:decimal() local len = #str_value local str_btc; if len <= 8 then str_btc = '0.'; for i=1,8-len,1 do str_btc = str_btc .. '0' end str_btc = str_btc .. str_value else str_btc = string.sub(str_value, 1, len-8) .. '.' .. string.sub(str_value, len-7, len) end str_btc = string.gsub(str_btc, '%.?0*$', '') return str_btc end -- function rawTransactionFromJSON(data, sk) -- local obj = JSON.decode(data) -- local sk = btc.read_wif_private_key(sk) -- for k, v in pairs(obj.unspent) do -- v.txid = O.from_hex(v.txid) -- v.amount = valueSatoshiToBTC(v.amount) -- end -- local tx = btc.build_tx_from_unspent(obj.unspent, sk, obj.to, btc.big_from_string(obj.amount), btc.big_from_string(obj.fee)) -- tx.witness = btc.build_witness(tx, sk) -- local rawTx = btc.build_raw_transaction(tx) -- return rawTx -- end return btc H--[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Alberto Lerda -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --]] local HDW = {} -- an extended key is a table with the fields -- secret, chain_code, level, fingerprint_parent, child_number -- a private key may have public=nil -- a public key have secret=nil -- parse extended key -- @param data octet to be parsed -- @return extended key function HDW.parse_extkey(data) data = O.from_base58(data) -- check checksum assert(#data == 82 and data:sub(#data-3, #data) == HASH.dsha256(data:sub(1, #data-4)):chop(4), "Wrong input key", 2) local extkey = {} local i = 1 version = data:sub(i,i+3) i = i + 4 assert(version == HDW.MAINPK or version == HDW.MAINSK or version == HDW.TESTPK or version == HDW.TESTSK, "Unknown version", 2) local public = HDW.isPublic(version) extkey.level = tonumber(data:sub(i,i):hex(), 16) i = i + 1 extkey.fingerprint_parent = data:sub(i, i+3) i = i + 4 -- big endian 4 bytes integer extkey.child_number = BIG.new(data:sub(i, i+3)) i = i + 4 extkey.chain_code = data:sub(i, i+31) i = i + 32 if public then extkey.public = data:sub(i,i+32) else extkey.secret = data:sub(i+1,i+32) end return extkey end HDW.MAINPK = O.from_hex('0488B21E') HDW.TESTPK = O.from_hex('043587CF') HDW.MAINSK = O.from_hex('0488ADE4') HDW.TESTSK = O.from_hex('04358394') function HDW.isPublic(version) return version == HDW.MAINPK or version == HDW.TESTPK end function HDW.getPublic(extkey) if not extkey.public then extkey.public = ECDH.sk_to_pubc(extkey.secret) end assert(extkey.public ~= nil) return extkey.public end function HDW.format_extkey(extkey, version) local data = O.new() assert(version == HDW.MAINPK or version == HDW.MAINSK or version == HDW.TESTPK or version == HDW.TESTSKK, "Unknown version", 2) local public = HDW.isPublic(version) data = data .. version data = data .. O.from_hex(string.format("%02x", extkey.level)) data = data .. BIG.new(extkey.fingerprint_parent):fixed(4) data = data .. BIG.new(extkey.child_number):fixed(4) data = data .. extkey.chain_code if public then data = data .. HDW.getPublic(extkey) else assert(extkey.secret, "From a public key it is not possible to print a private key") data = data .. O.from_hex('00') .. extkey.secret end local check = HASH.dsha256(data):sub(1,4) data = data .. check return data:base58() end -- Child key derivation private key -- @param parent_key extended key object -- @param i index function HDW.ckd_priv(parent_key, i) local newkey = {} local l local s512 = HASH.new('sha512') local pk -- check validity of index assert(i <= BIG.new(O.from_hex('ffffffff')), "Invalid index") -- we cannot derive a private key from a public key assert(parent_key.secret, "Cannot derive a private key from a public key") newkey.child_number = i local i_oct = i:octet() if #i_oct < 4 then i_oct = O.zero(4 - #i_oct) .. i_oct end if i >= BIG.new(O.from_hex('80000000')) then l = O.zero(1) .. parent_key.secret .. i_oct; else pk = HDW.getPublic(parent_key) l = pk .. i_oct; end l = HASH.hmac(s512, parent_key.chain_code, l) lL = BIG.new(l:sub( 1,32)) lR = l:sub(33,64) -- On BIP32 there is a mod, if I add it, it doesn't work -- TODO improve arithmetics modulo order of curve secp256k1 newkey.secret = ((lL + BIG.new(parent_key.secret)) % (BIG.new(O.from_hex('FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEBAAEDCE6AF48A03BBFD25E8CD0364141')))):octet() -- check if lR >= order curve, in that case return ckd_priv(parent_key, i+1) if newkey.secret == INT.new(0) then return ckd_priv(parent_key, i+1) end -- compute fingerprint -- parent_key is a private key pk = HDW.getPublic(parent_key) newkey.fingerprint_parent = HASH.hash160(pk):sub(1,4) newkey.chain_code = lR newkey.level = parent_key.level + 1 return newkey end -- the "neutered" version, as it removes the ability to sign transactions function HDW.neutered(parent_key) local newkey = {} for k, v in pairs(parent_key) do newkey[k] = v end HDW.getPublic(newkey) newkey.secret = nil return newkey end -- Child key derivation public key -- @param parent_key extended key object -- @param i it is only defined for non-hardened child keys (i <= 0x80000000) function HDW.ckd_pub(parent_key, i) local newkey = {} local l, lR, lL local s512 = HASH.new('sha512') -- check validity of index --assert(i <= BIG.new(O.from_hex('ffffffff')), "Invalid index") assert(i < BIG.new(O.from_hex('80000000')), "Public key derivation is only defined for non-hardened child keys") if parent_key.secret then newkey = HDW.neutered(HDW.ckd_priv(parent_key, i)) else pk = HDW.getPublic(parent_key) newkey.child_number = i l = parent_key.public .. i:fixed(4) l = HASH.hmac(s512, parent_key.chain_code, l) lL = BIG.new(l:sub( 1,32)) lR = l:sub(33,64) local nG = ECDH.pubgen(lL) -- = n * G newkey.public = ECDH.compress_public_key(ECDH.add(nG, parent_key.public)) -- check if lR >= order curve, in that case return ckd_priv(parent_key, i+1) if newkey.secret == INT.new(0) then return ckd_priv(parent_key, i+1) end newkey.fingerprint_parent = HASH.hash160(pk):sub(1,4) newkey.chain_code = lR newkey.level = parent_key.level + 1 end return newkey end function HDW.master_key_generation(seed) if not seed then seed = O.random(32) end local s512 = HASH.new('sha512') local l = HASH.hmac(s512, O.from_string('Bitcoin seed'), seed) local lL = l:sub( 1,32) -- check Ll < order of the curve local lR = l:sub(33,64) return { secret = lL, chain_code = lR, level = 0, fingerprint_parent = O.from_hex('00000000'), child_number = O.from_hex('00000000'), } end -- Implements the default wallet layout -- only external keys are supported -- @param parent_key parent private key -- @param i bignum i >= 0 and i <= 80000000 -- @param wallet bignum or the string '' (the dafult wallet), optional -- @param nohardened by default child keys are hardened (if there is not the parameter -- nohardned = nil which is the same as false) function HDW.standard_child(parent_key, i, wallet, nohardened) local HARDNED = BIG.new(O.from_hex('80000000')) assert(i < HARDNED) if not nohardened then i = i + HARDNED end if not wallet or wallet=='' then wallet = INT.new(0) end assert(wallet < HARDNED) wallet_key = HDW.ckd_priv(parent_key, wallet+HARDNED) external_key = HDW.ckd_priv(wallet_key, INT.new(0)) address_key = HDW.ckd_priv(external_key, i) return address_key end function HDW.mnemonic_master_key(mnemonic, password) return HDW.master_key_generation(HASH.mnemonic_seed(mnemonic, password)) end return HDW --[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] local hash = require'hash' -- when using facility functions, global hashers are created only once SHA256 = nil SHA512 = nil local function init(bits) local h if bits == 256 or bits == 32 then if SHA256==nil then SHA256 = hash.new('sha256') end h = SHA256 elseif bits == 512 or bits == 64 then if SHA512==nil then SHA512 = hash.new('sha512') end h = SHA512 else error("HASH bits not supported: "..bits) end return h end function sha256(data) return init(256):process(data) end function sha512(data) return init(512):process(data) end function KDF(data, bits) local b = bits or 256 return init(b):kdf2(data) end function hash.dsha256(msg) local SHA256 = HASH.new('sha256') return SHA256:process(SHA256:process(msg)) end function hash.hash160(msg) local SHA256 = HASH.new('sha256') local RMD160 = HASH.new('ripemd160') return RMD160:process(SHA256:process(msg)) end return hash --[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 13th November 2021 --]] -- limit output of string if too long function limit(anystr) local t = luatype(anystr) ZEN.assert(t=='string',"Argument to limit on-screen not a string") if #anystr > 32 then return(string.sub(anystr,1,32).."..") end return(anystr) end -- debug functions function debug_traceback() for k,v in pairs(ZEN.traceback) do warn(v) end end Given("backtrace", function() debug_traceback() end) When("backtrace", function() debug_traceback() end) Then("backtrace", function() debug_traceback() end) Given("trace", function() debug_traceback() end) When("trace", function() debug_traceback() end) Then("trace", function() debug_traceback() end) function debug_heap_dump() local HEAP = ZEN.heap() I.warn({a_GIVEN_in = HEAP.IN, b_GIVEN_in = HEAP.KIN, c_WHEN_ack = HEAP.ACK, d_THEN_out = HEAP.OUT}) end function debug_heap_schema() I.schema({SCHEMA = ZEN.heap()}) -- print only keys without values end -- local function debug_obj_dump() -- local function debug_obj_schema() Given("debug", function() ZEN.debug() end) When("debug", function() ZEN.debug() end) Then("debug", function() ZEN.debug() end) Given("schema", function() debug_heap_schema() end) When("schema", function() debug_heap_schema() end) Then("schema", function() debug_heap_schema() end) function debug_codec() I.warn({CODEC = ZEN.CODEC}) end Given("codec", function() debug_codec() end) When("codec", function() debug_codec() end) Then("codec", function() debug_codec() end) Given("config", function() I.warn(_G["CONF"]) end) When("config", function() I.warn(_G["CONF"]) end) Then("config", function() I.warn(_G["CONF"]) end)| --[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Friday, 26th November 2021 --]] -- hashing single strings When( "create the hash of ''", function(s) local src = have(s) if luatype(src) == 'table' then src = ZEN.serialize(src) -- serialize tables using zenroom's algo end ACK.hash = HASH.new(CONF.hash):process(src) new_codec('hash', { zentype = 'element' }) end ) When( "create the hash of '' using ''", function(s, h) local src = have(s) if luatype(src) == 'table' then src = ZEN.serialize(src) end if strcasecmp(h, 'sha256') then ACK.hash = sha256(src) elseif strcasecmp(h, 'sha512') then ACK.hash = sha512(src) end ZEN.assert(ACK.hash, 'Invalid hash: ' .. h) new_codec('hash', { zentype = 'element' }) end ) When( "create the hash to point '' of each object in ''", function(what, arr) local F = _G[what] ZEN.assert( luatype(F.hashtopoint) == 'function', 'Hash type ' .. what .. ' is invalid (no hashtopoint)' ) local A = have(arr) local count = isarray(A) ZEN.assert(count > 0, 'Object is not an array: ' .. arr) ACK.hash_to_point = deepmap(F.hashtopoint, A) new_codec('hash_to_point', { luatype='table', zentype='array' }) end ) When( "create the hashes of each object in ''", function(arr) local A = have(arr) local count = isarray(A) ZEN.assert(count > 0, 'Object is not an array: ' .. arr) ACK.hashes = deepmap(sha256, A) new_codec('hashes', { luatype='table', zentype='array' }) end ) -- HMAC from RFC2104. When( "create the HMAC of '' with key ''", function(obj, key) local src = have(obj) if luatype(src) == 'table' then src = ZEN.serialize(src) end local hkey = have(key) -- static int hash_hmac(lua_State *L) { -- hash *h = hash_arg(L,1); -- octet *k = o_arg(L, 2); -- octet *in = o_arg(L, 3); ACK.HMAC = HASH.new(CONF.hash):hmac(hkey, obj) new_codec('HMAC', { zentype = 'element' }) end ) When( "create the key derivation of ''", function(obj) local src = have(obj) if luatype(src) == 'table' then src = ZEN.serialize(src) end ACK.key_derivation = HASH.new(CONF.hash):kdf(src) new_codec('key_derivation', { zentype = 'element' }) end ) When( "create the key derivation of '' with password ''", function(obj, salt) local src = have(obj) if luatype(src) == 'table' then src = ZEN.serialize(src) end local pass = have(salt) ACK.key_derivation = HASH.new('sha512'):pbkdf2(src, {salt = pass, iterations = 5000, length = 32}) new_codec('key derivation', { zentype = 'element' }) end ) ;--[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 27th November 2021 --]] local _UNRESERVED = "A-Za-z0-9%-._~" local _GEN_DELIMS = ":/?#%[%]@" local _SUB_DELIMS = "!$&'()*+,;=" local _RESERVED = _GEN_DELIMS .. _SUB_DELIMS local _REG_NAME = "^[" .. _UNRESERVED .. "%%" .. _SUB_DELIMS .. "]*$" local _IP_FUTURE_LITERAL = "^v[0-9A-Fa-f]+%." .. "[" .. _UNRESERVED .. _SUB_DELIMS .. "]+$" local function _normalize_percent_encoding (s) if s:find("%%$") or s:find("%%.$") then error("unfinished percent encoding at end of URI '" .. s .. "'") end return s:gsub("%%(..)", function (hex) if not hex:find("^[0-9A-Fa-f][0-9A-Fa-f]$") then error("invalid percent encoding '%" .. hex .. "' in URI '" .. s .. "'") end -- Never percent-encode unreserved characters, and always use uppercase -- hexadecimal for percent encoding. RFC 3986 section 6.2.2.2. local char = string.char(tonumber("0x" .. hex)) return char:find("^[" .. _UNRESERVED .. "]") and char or "%" .. hex:upper() end) end local function _is_ip4_literal (s) if not s:find("^[0-9]+%.[0-9]+%.[0-9]+%.[0-9]+$") then return false end for dec_octet in s:gmatch("[0-9]+") do if dec_octet:len() > 3 or dec_octet:find("^0.") or tonumber(dec_octet) > 255 then return false end end return true end local function _is_ip6_literal (s) local had_elipsis = false -- true when '::' found local num_chunks = 0 while s ~= "" do num_chunks = num_chunks + 1 local p1, p2 = s:find("::?") local chunk if p1 then chunk = s:sub(1, p1 - 1) s = s:sub(p2 + 1) if p2 ~= p1 then -- found '::' if had_elipsis then return false end -- two of '::' had_elipsis = true if chunk == "" then num_chunks = num_chunks - 1 end else if chunk == "" then return false end -- ':' at start if s == "" then return false end -- ':' at end end else chunk = s s = "" end -- Chunk is neither 4-digit hex num, nor IPv4address in last chunk. if (not chunk:find("^[0-9a-f]+$") or chunk:len() > 4) and (s ~= "" or not _is_ip4_literal(chunk)) and chunk ~= "" then return false end -- IPv4address in last position counts for two chunks of hex digits. if chunk:len() > 4 then num_chunks = num_chunks + 1 end end if had_elipsis then if num_chunks > 7 then return false end else if num_chunks ~= 8 then return false end end return true end local function _is_valid_host (host) if string.find(host,"^%[.*%]$") then local ip_literal = host:sub(2, -2) if ip_literal:find("^v") then if not ip_literal:find(_IP_FUTURE_LITERAL) then return "invalid IPvFuture literal '" .. ip_literal .. "'" end else if not _is_ip6_literal(ip_literal) then return "invalid IPv6 address '" .. ip_literal .. "'" end end elseif not _is_ip4_literal(host) and not host:find(_REG_NAME) then return "invalid host value '" .. host .. "'" end return nil end When("create the url from ''", function(src) local obj = have(src) local url = obj:str():lower() empty'url' local proto if url:sub(1,7)=='http://' then proto = 'http://' end if url:sub(1,8)=='https://' then proto = 'https://' end ZEN.assert(proto, "Invalid http prefix in url: "..obj:str()) local toks = strtok(url, '[^/]+') -- second is the host local res = _is_valid_host(toks[2]) ZEN.assert(not res, res) ACK.url = obj new_codec('url',{zentype='element',content='url', encoding='string'}) end) When("append '' as http request to ''", function(ele, dst) local arg = have(ele):str():lower() local url = have(dst):str():lower() local codec = ZEN.CODEC[dst] ZEN.assert(codec.content=='url', "Cannot append http request to invalid url: "..dst) local separator = fif( url:find('?'), '&', '?' ) ACK[dst] = O.from_string( url .. separator .. _normalize_percent_encoding(ele) .. '=' .. _normalize_percent_encoding(arg) ) end) ~--[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Alberto Lerda and Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 13th November 2021 --]] local btc -- mostly loaded at init if not BTC then btc = require_once('crypto_bitcoin') else btc = BTC end -- TODO: any mean to verify that the content of address and txid is valid local function _get_addr(obj) local res = ZEN.get(obj, '.', O.from_base58, tostring) if not res then error("invalid segwit address",2) end return res end local function _bitcoin_unspent_import(obj) local res = {} for _,v in pairs(obj) do -- compatibility with electrum and bitcoin core local n_amount = fif( v.amount, 'amount', 'value') local n_txid = fif( v.txid, 'txid', 'prevout_hash') local n_vout = fif( v.vout, 'vout', 'prevout_n') local address if v.address then address = ZEN.get(v,'address', O.from_segwit, tostring) end local amount = ZEN.get(v,n_amount, btc.value_btc_to_satoshi, tostring) local txid = ZEN.get(v,n_txid, OCTET.from_hex, tostring) local vout = v[n_vout] -- number table.insert(res, { address = address, amount = amount, txid = txid, vout = vout }) end return(res) end local function _bitcoin_unspent_export(obj) local res = { } for _,v in pairs(obj) do -- to_segwit: octet, version number(0), 'bc' or 'tc' local address = v.address:segwit(0, 'tb') local amount = btc.value_satoshi_to_btc(v.amount) local txid = v.txid:hex() local vout = v.vout table.insert(res, { address = address, amount = amount, txid = txid, vout = vout }) end return res end local function _satoshi_unspent_import(obj) local res = {} for _,v in pairs(obj) do -- compatibility with electrum and bitcoin core table.insert(res, { amount = ZEN.get(v,'value', BIG.from_decimal, tostring), txid = ZEN.get(v,'txid', OCTET.from_hex, tostring), vout = v.vout }) end return(res) end local function _satoshi_unspent_export(obj) local res = { } for _,v in pairs(obj) do -- to_segwit: octet, version number(0), 'bc' or 'tc' local address = v.address:segwit(0, 'tb') local amount = BIG.to_decimal(v.amount) local txid = v.txid:hex() local vout = v.vout table.insert(res, { amount = amount, txid = txid, vout = vout }) end return res end local function _address_import(obj) return { raw = ZEN.get(obj, '.', O.from_segwit, tostring) } end local function _address_export(obj) return O.to_segwit(obj.raw, obj.version, O.to_string(obj.network)) end local function _wif_import(obj) return ZEN.get(obj, '.', BTC.wif_to_sk, O.from_base58) end local function _wif_bitcoin_export(obj) return O.to_base58( BTC.sk_to_wif( obj, 'bitcoin') ) end local function _wif_testnet_export(obj) return O.to_base58( BTC.sk_to_wif( obj, 'testnet') ) end ZEN.add_schema( { bitcoin_key = { import = _wif_import, export = _wif_bitcoin_export }, testnet_key = { import = _wif_import, export = _wif_testnet_export }, satoshi_amount = function(obj) return ZEN.get(obj, '.', BIG.from_decimal, tostring) end, satoshi_fee = function(obj) return ZEN.get(obj, '.', BIG.from_decimal, tostring) end, satoshi_unspent = { import = _satoshi_unspent_import, export = _satoshi_unspent_export }, bitcoin_unspent = { import = _bitcoin_unspent_import, export = _bitcoin_unspent_export }, testnet_unspent = { import = _bitcoin_unspent_import, export = _bitcoin_unspent_export }, bitcoin_address = { import = _address_import, export = _address_export }, testnet_address = { import = _address_import, export = _address_export }, }) -- generate a keypair in "bitcoin" format (only x coord, 03 prepended) local function _keygen(name) initkeys(name) local kp = ECDH.keygen() ACK.keys[name] = kp.private end When('create the bitcoin key', function() _keygen('bitcoin') end) When('create the testnet key', function() _keygen('testnet') end) local function _import_wif(sec, name) local sk = have(sec) local res if #sk == 32+6 then -- wif btc.wif_to_sk(sk) -- checks res = sk elseif #sk == 32 then res = sk -- TODO: import from hdwallet xpriv format else error("Invalid "..name.." key size for "..sec..": "..#sk) end initkeys(name) ACK.keys[name] = res end When("create the bitcoin key with secret key ''", function(sec) _import_wif(sec, 'bitcoin') end) When("create the testnet key with secret key ''", function(sec) _import_wif(sec, 'testnet') end) local function _get_pub(name) empty(name..' public key') local sk = havekey(name) ACK[name..'_public_key'] = ECDH.sk_to_pubc(sk) new_codec(name..' public key', { zentype = 'schema' }) end When("create the bitcoin public key", function() _get_pub('bitcoin') end) When("create the testnet public key", function() _get_pub('testnet') end) local function _create_addr(name,pfx) empty(name..' address') local pk if ACK[name..'_public_key'] then pk = have(name..' public key') else pk = ECDH.sk_to_pubc( havekey(name) ) end ACK[name..'_address'] = { raw = btc.address_from_public_key(pk), version = 0, network = O.from_string(pfx) } new_codec(name..' address', { zentype = 'schema', encoding = 'complex' }) end When("create the bitcoin address", function() _create_addr('bitcoin','bc') end) When("create the testnet address", function() _create_addr('testnet','tb') end) local function _create_tx(name, recipient) local to = have(recipient or 'recipient') if not to then error("Cannot create "..name.." transaction: recipient not specified") end local q = have'satoshi amount' local fee = have'satoshi fee' local unspent = have(name..' unspent') local tx = btc.build_tx_from_unspent(unspent, to, q, fee, ACK.sender) ZEN.assert(tx, "Not enough "..name.." in the unspent list") ACK[name..'_transaction'] = tx end When('create the bitcoin transaction', function() _create_tx('bitcoin') end) When('create the testnet transaction', function() _create_tx('testnet') end) When("create the bitcoin transaction to ''", function(recipient) _create_tx('bitcoin', recipient) end) When("create the testnet transaction to ''", function(recipient) _create_tx('testnet', recipient) end) local function _sign_tx(name) local sk = havekey(name) local tx = have(name..'_transaction') ZEN.assert(not tx.witness, "The "..name.." transaction is already signed") tx.witness = btc.build_witness(tx, sk) end When("sign the bitcoin transaction", function() _sign_tx('bitcoin') end) When("sign the testnet transaction", function() _sign_tx('testnet') end) local function _toraw_tx(name) local tx = have(name..' transaction') empty(name..' raw transaction') ACK[name..'_raw_transaction'] = btc.build_raw_transaction(tx) end When("create the bitcoin raw transaction", function() _toraw_tx('bitcoin') end) When("create the testnet raw transaction", function() _toraw_tx('testnet') end) I--[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 4th September 2021 --]] -- defined outside because reused across different schemas local function public_key_f(o) local res = CONF.input.encoding.fun(o) ZEN.assert( ECDH.pubcheck(res), 'Public key is not a valid point on curve' ) return res end local function warn_keypair() warn("Use of 'keypair' is deprecated in favor of 'keyring'") warn("Examples: I have my 'keyring' or I create the keyring") end ZEN.add_schema( { -- keypair (ECDH) public_key = public_key_f, ecdh_public_key = public_key_f, keypair = function(obj) local pub = public_key_f(obj.public_key) local sec = ZEN.get(obj, 'private_key') ZEN.assert( pub == ECDH.pubgen(sec), 'Public key does not belong to secret key in keypair' ) warn_keypair() return { public_key = pub, private_key = sec } end, secret_message = function(obj) return { checksum = ZEN.get(obj, 'checksum'), header = ZEN.get(obj, 'header'), iv = ZEN.get(obj, 'iv'), text = ZEN.get(obj, 'text') } end, signature = function(obj) return { r = ZEN.get(obj, 'r'), s = ZEN.get(obj, 's') } end } ) -- generate keypair local function f_keygen() empty'keypair' local kp = ECDH.keygen() ACK.keypair = { public_key = kp.public, private_key = kp.private } new_codec('keypair', { zentype = 'schema' }) warn_keypair() end When('create the keypair', f_keygen) When( "create the ecdh key", function() initkeys'ecdh' ACK.keys.ecdh = ECDH.keygen().private end ) When( "create the ecdh public key", function() empty'ecdh public key' local sk = havekey'ecdh' ACK.ecdh_public_key = ECDH.pubgen(sk) end ) When( "create the ecdh key with secret key ''", function(sec) local sk = have(sec) initkeys'ecdh' ECDH.pubgen(sk) ACK.keys.ecdh = sk end ) When( "create the keypair with secret key ''", function(sec) local sk = have(sec) empty'keypair' local pub = ECDH.pubgen(sk) ACK.keypair = { public_key = pub, private_key = sk } warn_keypair() end ) -- encrypt with a header and secret When( "encrypt the secret message '' with ''", function(msg, sec) local text = have(msg) local sk = have(sec) empty'secret message' -- KDF2 sha256 on all secrets local secret = KDF(sk) ACK.secret_message = { header = ACK.header or OCTET.from_string('DefaultHeader'), iv = O.random(32) } ACK.secret_message.text, ACK.secret_message.checksum = ECDH.aead_encrypt( secret, text, ACK.secret_message.iv, ACK.secret_message.header ) new_codec('secret message', { zentype = 'dictionary' }) end ) -- decrypt with a secret When( "decrypt the text of '' with ''", function(msg, sec) local sk = have(sec) local text = have(msg) empty'text' empty'checksum' local secret = KDF(sk) -- KDF2 sha256 on all secrets, this way the -- secret is always 256 bits, safe for direct aead_decrypt ACK.text, ACK.checksum = ECDH.aead_decrypt( secret, text.text, text.iv, text.header ) ZEN.assert( ACK.checksum == text.checksum, 'Decryption error: authentication failure, checksum mismatch' ) end ) local function _havekey_compat() initkeys() local sk = ACK.keys.ecdh if sk then return sk else local kp = have'keypair' if not kp then goto fail else warn_keypair() end sk = kp.private_key if not sk then goto fail end return sk end ::fail:: ZEN.assert(sk, "ECDH Private key not found anywhere in keyring or keypair") end -- check various locations to find the public key local function _pubkey_compat(_key) local pubkey = ACK[_key] if not pubkey then local pubkey_arr pubkey_arr = ACK.public_key or ACK.public_key_session or ACK.ecdh_public_key if luatype(pubkey_arr) == 'table' then pubkey = pubkey_arr[_key] else pubkey = pubkey_arr end ZEN.assert(pubkey, 'Public key not found for: ' .. _key) end return pubkey end -- encrypt to a single public key When( "encrypt the secret message of '' for ''", function(msg, _key) local sk = _havekey_compat() have(msg) local pk = _pubkey_compat(_key) empty'secret message' local key = ECDH.session(sk, pk) ACK.secret_message = { header = ACK.header or OCTET.from_string('DefaultHeader'), iv = O.random(32) } ACK.secret_message.text, ACK.secret_message.checksum = ECDH.aead_encrypt( key, ACK[msg], ACK.secret_message.iv, ACK.secret_message.header ) new_codec('secret message', { zentype = 'dictionary' }) end ) When( "decrypt the text of '' from ''", function(secret, _key) local sk = _havekey_compat() have(secret) local pk = _pubkey_compat(_key) local message = ACK[secret][_key] or ACK[secret] local session = ECDH.session(sk, pk) local checksum ACK.text, checksum = ECDH.aead_decrypt(session, message.text, message.iv, message.header) ZEN.assert( checksum == message.checksum, 'Failed verification of integrity for secret message' ) end ) -- sign a message and verify When( "create the signature of ''", function(doc) local sk = _havekey_compat() empty'signature' local obj = have(doc) ACK.signature = ECDH.sign(sk, ZEN.serialize(obj)) ZEN.CODEC.signature = CONF.output.encoding.name end ) IfWhen( "verify the '' has a signature in '' by ''", function(msg, sig, by) local pk = _pubkey_compat(by) local obj = have(msg) local s = have(sig) ZEN.assert( ECDH.verify(pk, ZEN.serialize(obj), s), 'The signature by ' .. by .. ' is not authentic' ) end ) --[[ --This file is part of zenroom -- --Copyright (C) 2020-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Friday, 14th January 2022 --]] load_scenario('zencode_credential') ABC = require_once('crypto_credential') G2 = ECP2.generator() local function import_reflow_seal_fingerprints_f(o) if not o then return {} end local rawarr = deepmap(CONF.input.encoding.fun, o) local arr = {} for _, v in ipairs(rawarr) do table.insert(arr, ECP.new(v)) end return arr end local function import_reflow_seal_f(obj) local f if obj.fingerprints then f = import_reflow_seal_fingerprints_f(obj.fingerprints) else f = nil end return { identity = ZEN.get(obj, 'identity', ECP.new), SM = ZEN.get(obj, 'SM', ECP.new), verifier = ZEN.get(obj, 'verifier', ECP2.new), fingerprints = f } end ZEN.add_schema( { reflow_public_key = function(obj) return ZEN.get(obj, '.', ECP2.new) end, reflow_seal = import_reflow_seal_f, reflow_signature = function(obj) return { identity = ZEN.get(obj, 'identity', ECP.new), signature = ZEN.get(obj, 'signature', ECP.new), proof = import_credential_proof_f(obj.proof), zeta = ZEN.get(obj, 'zeta', ECP.new) } end, reflow_identity = function(obj) return ZEN.get(obj, '.', ECP.new) end, material_passport = function(obj) return { seal = import_reflow_seal_f(obj.seal), proof = import_credential_proof_f(obj.proof), zeta = ZEN.get(obj, 'zeta', ECP.new) } end } ) local function _makeuid(src) local uid if luatype(src) == 'table' then uid = ECP.hashtopoint(ZEN.serialize(src)) else uid = ECP.hashtopoint(src) end return(uid) end When( 'create the reflow key', function() -- keygen: δ = r.O ; γ = δ.G2 initkeys 'reflow' ACK.keys.reflow = INT.random() -- BLS secret signing key end ) When( 'create the reflow public key', function() empty 'reflow public key' havekey 'reflow' ACK.reflow_public_key = G2 * ACK.keys.reflow end ) When( "aggregate the reflow public key from array ''", function(arr) empty 'reflow public key' local s = have(arr) ZEN.assert(#s ~= 0, "Empty array: "..arr) local val for k, v in pairs(s) do if k == 'reflow_public_key' then val = v -- tolerate about named arrays elseif v.reflow_public_key then val = v.reflow_public_key else ZEN.assert(false, "Reflow public key not found in array: " ..arr.."["..#s.."] at key "..k) end if not ACK.reflow_public_key then ACK.reflow_public_key = val else ACK.reflow_public_key = ACK.reflow_public_key + val end end end ) When( "create the reflow identity of ''", function(doc) empty 'reflow identity' ACK.reflow_identity = _makeuid(have(doc)) end ) When( "create the reflow identity of objects in ''", function(doc) empty 'reflow identity' local arr = have(doc) ZEN.assert(luatype(arr)=='table', "Object is not an array or dictionary: "..doc) local first = { } for k,v in pairs(arr) do -- if reflow_id already present then check if ECP and use that if v.reflow_identity then local rid = ECP.new(v.reflow_identity) ZEN.assert(not rid:isinfinity(), "Object "..doc.."["..k.."] has an invalid reflow identity") table.insert(first, rid) else table.insert(first, _makeuid(v)) end end local res for _,v in pairs(first) do if not res then res = v else res = res + v end end ACK.reflow_identity = res end ) local function _create_reflow_seal_f(uid) empty 'reflow seal' have(uid) have 'reflow public key' local UID = ACK[uid] ZEN.assert(type(UID) == 'zenroom.ecp', "Invalid reflow identity: " ..uid.." ("..type(UID)..")") local r = INT.random() ACK.reflow_seal = { identity = UID, SM = UID * r, verifier = ACK.reflow_public_key + G2 * r } end When( "create the reflow seal with identity ''", _create_reflow_seal_f) When("create the reflow seal", function() _create_reflow_seal_f('reflow identity') end) When( 'create the reflow signature', function() empty 'reflow signature' have 'reflow seal' have 'issuer public key' havekey 'reflow' havekey 'credential' -- aggregate all credentials local pubcred = false for _, v in pairs(ACK.issuer_public_key) do if not pubcred then pubcred = v else pubcred = { pubcred.alpha + v.alpha, pubcred.beta + v.beta } end end local p, z = ABC.prove_cred_uid( pubcred, ACK.credentials, ACK.keys.credential, ACK.reflow_seal.identity ) ACK.reflow_signature = { identity = ACK.reflow_seal.identity, signature = ACK.reflow_seal.identity * ACK.keys.reflow, proof = p, zeta = z } end ) When( 'prepare credentials for verification', function() have 'credential' local res = false for _, v in pairs(ACK.issuer_public_key) do if not res then res = {alpha = v.alpha, beta = v.beta} else res.alpha = res.alpha + v.alpha res.beta = res.beta + v.beta end end ACK.verifiers = res end ) IfWhen( 'verify the reflow signature credential', function() have 'reflow_signature' have 'verifiers' have 'reflow_seal' ZEN.assert( ABC.verify_cred_uid( ACK.verifiers, ACK.reflow_signature.proof, ACK.reflow_signature.zeta, ACK.reflow_seal.identity ), 'Signature has an invalid credential to sign' ) end ) IfWhen( 'check the reflow signature fingerprint is new', function() have 'reflow_signature' have 'reflow_seal' if not ACK.reflow_seal.fingerprints then return end ZEN.assert( not ACK.reflow_seal.fingerprints[ACK.reflow_signature.zeta], 'Signature fingerprint is not new' ) end ) When( 'add the reflow fingerprint to the reflow seal', function() have 'reflow_signature' have 'reflow_seal' if not ACK.reflow_seal.fingerprints then ACK.reflow_seal.fingerprints = { ACK.reflow_signature.zeta } else table.insert( ACK.reflow_seal.fingerprints, ACK.reflow_signature.zeta ) end end ) When( 'add the reflow signature to the reflow seal', function() have 'reflow_seal' have 'reflow_signature' ACK.reflow_seal.SM = ACK.reflow_seal.SM + ACK.reflow_signature.signature end ) IfWhen( 'verify the reflow seal is valid', function() have 'reflow_seal' ZEN.assert( ECP2.miller(ACK.reflow_seal.verifier, ACK.reflow_seal.identity) == ECP2.miller(G2, ACK.reflow_seal.SM), "reflow seal doesn't validates" ) end ) When( "aggregate the reflow seal array in ''", function(arr) have(arr) empty 'reflow seal' local dst = {} for _, v in pairs(ACK[arr]) do if not dst.UID then dst.UID = v.UID else dst.UID = dst.UID + v.UID end if not dst.SM then dst.SM = v.SM else dst.SM = dst.SM + v.SM end if not dst.verifier then dst.verifier = v.verifier else dst.verifier = dst.verifier + v.verifier end end ACK.reflow_seal = dst end ) -------------------- -- MATERIAL PASSPORT -- -- Simplified flow to generate and verify material passports, which -- are a particular use-case of reflow signatures. Statements here do -- implicit things and reduce complexity of operations, in particular -- there is no multi-party computation in this process so credential -- use is omitted. -- aggregation supports single element arrays and fixes off-by-one local function _aggregate_array(arr) assert(isarray(arr), "Cannot aggregate invalid array", 2) local res = arr[1] if #arr > 1 then for i = 2, #arr do res = res + arr[i] end end return(res) end When( "create the material passport of ''", function(obj) local key = havekey'reflow' local cred = have'credentials' local id = have'reflow identity' local issuer_pub = have'issuer public key' -- object to sign local src = have(obj) empty('material passport') -- append agent id to track and trace if not ACK.fingerprints then ACK.fingerprints = { } end table.insert(ACK.fingerprints, id) -- calculate object uid local UID = _makeuid(src) -- reflow unique ID of object -- calculate signing uid (aggregation of all fingerprints) local SID = UID + _aggregate_array(ACK.fingerprints) local r = INT.random() -- blinding factor local p, z = ABC.prove_cred_uid(issuer_pub, cred, ACK.keys.credential, SID) ACK.material_passport = { seal = { identity = UID, fingerprints = ACK.fingerprints, -- optional SM = (SID * r) + (SID * key), -- blinding factor verifier = (G2 * r) + (G2 * key) }, proof = p, zeta = z } end) IfWhen( "verify the material passport of ''", function(obj) local src = have(obj) local mp = have'material passport' local pub = have'issuer public key' ZEN.assert(mp.seal.fingerprints, "No fingerprints found in material passport seal: "..obj) local UID = _makeuid(src) ZEN.assert(UID == mp.seal.identity, "Object does not match material passport identity (needs track and trace?): "..obj) local SID = UID + _aggregate_array(mp.seal.fingerprints) ZEN.assert( ECP2.miller(mp.seal.verifier, SID) == ECP2.miller(G2, mp.seal.SM), "Object matches, but seal is invalid: "..obj) ZEN.assert( ABC.verify_cred_uid(pub, mp.proof, mp.zeta, SID), "Object and seal are valid, but proof of issuance fails: "..obj) end) -- Complex check calculates UID of object and compares to seal, if -- correct then validates, else searches for .track array of seals and -- calculates aggregated UID, if correct then validates IfWhen( "verify the material passport of '' is valid", function(obj) have(obj) have(obj..'.seal') -- TODO end) ---[[ --This file is part of zenroom -- --Copyright (C) 2019-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] local bench = { } bench.entropy = function() act("Benchmark: entropy of random generators (Shannon ratios)") -- use standard ECP size local s = #ECP.random():octet() return { SEED = RNGSEED:entropy(), PRNG = OCTET.random(256):entropy(), OCTET = OCTET.random(s):entropy(), BIG = BIG.random():octet():entropy(), ECP = ECP.random():octet():entropy(), ECP2 = ECP2.random():octet():entropy() } end bench.random_hamming_freq = function (s, q) local _s = s or 97 local _q = q or 5000 act("Benchmark: hamming distance between random, arguments: ".._s.." ".._q) -- ECP coordinates are 97 bytes local new = O.random(_s) local tot = 0 local old for i=_q,1,-1 do old = new new = O.random(_s) tot = tot + O.hamming(old,new) end return tot / _q end bench.random_kdf = function() act("Benchmark: KDF2 SHA256 and SHA512 on random") -- KDF2 input can be any, output local r = O.random(64) HASH.kdf2(HASH.new('SHA256'),r) HASH.kdf2(HASH.new('SHA512'),r) end -- find primes local square = {} for i=0,9 do square[i]=i*i end local function sqrsum(n) local sum = 0 while n > 0 do sum, n = sum + square[n % 10], math.floor(n / 10) end return sum end local function isHappy(n) while n ~= 1 and n ~= 4 do n = sqrsum(n) end return n == 1 end local prime_numbers = { 2, 3 } local function isPrime(n) if n == 1 then return true end for _,i in ipairs(prime_numbers) do if n == i then return true end if n%i == 0 then return false end end for i = prime_numbers[#prime_numbers], math.floor(n/2)+1, 2 do if n%i == 0 then return false end end if n > prime_numbers[#prime_numbers] then table.insert(prime_numbers, n) end return true end bench.math = function(a, b, c) local _a = a or 50000 local _b = b or _a+50000 local _c = c or 1 act("Benchmark: math based prime number, args: ".._a.." ".._b.." ".._c) local res = { } for n=_a,_b,_c do if isHappy(n) and isPrime(n) then table.insert(res, n) end end return res end function bench.bit32(N) N = N or 1000 act("Benchmark: bit32 based Mandelbrot generation, iterations: "..N) local bit = bit32 local bor, band = bit.bor, bit.band local shl, shr, rol = bit.lshift, bit.rshift, bit.lrotate local char, unpack = string.char, table.unpack local M, buf = 2/N, {} for y=0,N-1 do local Ci, b, p = y*M-1, -16777216, 0 local Ciq = Ci*Ci for x=0,N-1,2 do local Cr, Cr2 = x*M-1.5, (x+1)*M-1.5 local Zr, Zi, Zrq, Ziq = Cr, Ci, Cr*Cr, Ciq local Zr2, Zi2, Zrq2, Ziq2 = Cr2, Ci, Cr2*Cr2, Ciq b = rol(b, 2) for i=1,49 do Zi = Zr*Zi*2 + Ci; Zi2 = Zr2*Zi2*2 + Ci Zr = Zrq-Ziq + Cr; Zr2 = Zrq2-Ziq2 + Cr2 Ziq = Zi*Zi; Ziq2 = Zi2*Zi2 Zrq = Zr*Zr; Zrq2 = Zr2*Zr2 if band(b, 2) ~= 0 and Zrq+Ziq > 4.0 then b = band(b, -3) end if band(b, 1) ~= 0 and Zrq2+Ziq2 > 4.0 then b = band(b, -2) end if band(b, 3) == 0 then break end end if b >= 0 then p = p + 1; buf[p] = b; b = -16777216; end end if b ~= -16777216 then if band(N, 1) ~= 0 then b = shr(b, 1) end p = p + 1; buf[p] = shl(b, 8-band(N, 7)) end -- write(char(unpack(buf, 1, p))) -- write('.') end -- print('.') end return bench ---

Debug inspection facility

-- -- The INSPECT class provides a number of functions to ease -- development and debugging. It mainly consists of an advanced -- @{print} function that can represent complex data structures (Lua -- tables) and tag their encoding formats and size. Another @{spy} -- function prints the same as pass-through. -- -- @module INSPECT -- @version inspect.lua 3.1.0 -- @author Kikito github.com/kikito/inspect.lua -- @license MIT local inspect ={ _VERSION = 'inspect.lua 3.1.0', _URL = 'http://github.com/kikito/inspect.lua', _DESCRIPTION = 'human-readable representations of tables' -- _LICENSE = [[ -- MIT LICENSE -- Copyright (c) 2013 Enrique García Cota -- Copyright (c) 2018-2021 Dyne.org foundation -- Permission is hereby granted, free of charge, to any person obtaining a -- copy of this software and associated documentation files (the -- "Software"), to deal in the Software without restriction, including -- without limitation the rights to use, copy, modify, merge, publish, -- distribute, sublicense, and/or sell copies of the Software, and to -- permit persons to whom the Software is furnished to do so, subject to -- the following conditions: -- The above copyright notice and this permission notice shall be included -- in all copies or substantial portions of the Software. -- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -- IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY -- CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, -- TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE -- SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. -- ]] } local tostring = tostring inspect.KEY = setmetatable({}, {__tostring = function() return 'inspect.KEY' end}) inspect.METATABLE = setmetatable({}, {__tostring = function() return 'inspect.METATABLE' end}) --- -- Convert a data object to the desired format (argument name provided -- as string), or use CONF.encoding when called without argument -- -- @function export_obj(object, format) -- @param object data element to be converted -- @param format pointer to a converter function -- @return object converted to format local function export_arr(object, format) ZEN.assert( iszen(type(object)), 'export_arr called on a ' .. type(object) ) local conv_f = nil local ft = type(format) if format and ft == 'function' then conv_f = format goto ok end if format and ft == 'string' then conv_f = guess_outcast(format) goto ok end if not CONF.output.encoding then error('CONF.output.encoding is not configured', 2) end conv_f = CONF.debug.encoding.fun -- fallback to configured conversion function ::ok:: ZEN.assert( type(conv_f) == 'function', 'export_arr conversion function not configured' ) return conv_f(object) -- TODO: protected call? deepmap? end local function export_obj(object, format) -- CONF { encoding = , -- encoding_prefix = "u64" } assert(object, 'export_obj object not found') if luatype(object) == 'table' then local tres = {} for k, v in pairs(object) do -- only flat tables support recursion table.insert(tres, export_arr(v, format)) end return tres end return export_arr(object, format) end -- Apostrophizes the string if it has quotes, but not aphostrophes -- Otherwise, it returns a regular quoted string local function smartQuote(str) if str:match('"') and not str:match("'") then return "'" .. str .. "'" end return '"' .. str:gsub('"', '\\"') .. '"' end -- \a => '\\a', \0 => '\\0', 31 => '\31' local shortControlCharEscapes = { ["\a"] = "\\a", ["\b"] = "\\b", ["\f"] = "\\f", ["\n"] = "\\n", ["\r"] = "\\r", ["\t"] = "\\t", ["\v"] = "\\v" } local longControlCharEscapes = {} -- \a => nil, \0 => \000, 31 => \031 for i=0, 31 do local ch = string.char(i) if not shortControlCharEscapes[ch] then shortControlCharEscapes[ch] = "\\"..i longControlCharEscapes[ch] = string.format("\\%03d", i) end end local function escape(str) return (str:gsub("\\", "\\\\") :gsub("(%c)%f[0-9]", longControlCharEscapes) :gsub("%c", shortControlCharEscapes)) end local function isIdentifier(str) return type(str) == 'string' and str:match( "^[_%a][_%a%d]*$" ) end local function isSequenceKey(k, sequenceLength) return type(k) == 'number' and 1 <= k and k <= sequenceLength and math.floor(k) == k end local defaultTypeOrders = { ['number'] = 1, ['boolean'] = 2, ['string'] = 3, ['table'] = 4, ['function'] = 5, ['userdata'] = 6, ['thread'] = 7 } local function sortKeys(a, b) local ta, tb = type(a), type(b) -- strings and numbers are sorted numerically/alphabetically if ta == tb and (ta == 'string' or ta == 'number') then return a < b end local dta, dtb = defaultTypeOrders[ta], defaultTypeOrders[tb] -- Two default types are compared according to the defaultTypeOrders table if dta and dtb then return defaultTypeOrders[ta] < defaultTypeOrders[tb] elseif dta then return true -- default types before custom ones elseif dtb then return false -- custom types after default ones end -- custom types are sorted out alphabetically return ta < tb end -- For implementation reasons, the behavior of rawlen & # is "undefined" when -- tables aren't pure sequences. So we implement our own # operator. local function getSequenceLength(t) local len = 1 local v = rawget(t,len) while v ~= nil do len = len + 1 v = rawget(t,len) end return len - 1 end local function getNonSequentialKeys(t) local keys = {} local sequenceLength = getSequenceLength(t) for k,_ in pairs(t) do if not isSequenceKey(k, sequenceLength) then table.insert(keys, k) end end table.sort(keys, sortKeys) return keys, sequenceLength end local function getToStringResultSafely(t, mt) local __tostring = type(mt) == 'table' and rawget(mt, '__tostring') local str, ok if type(__tostring) == 'function' then ok, str = pcall(__tostring, t) str = ok and str or 'error: ' .. tostring(str) end if type(str) == 'string' and #str > 0 then return str end end local function countTableAppearances(t, tableAppearances) tableAppearances = tableAppearances or {} if type(t) == 'table' then if not tableAppearances[t] then tableAppearances[t] = 1 for k,v in pairs(t) do countTableAppearances(k, tableAppearances) countTableAppearances(v, tableAppearances) end countTableAppearances(getmetatable(t), tableAppearances) else tableAppearances[t] = tableAppearances[t] + 1 end end return tableAppearances end local copySequence = function(s) local copy, len = {}, #s for i=1, len do copy[i] = s[i] end return copy, len end local function makePath(path, ...) local keys = {...} local newPath, len = copySequence(path) for i=1, #keys do newPath[len + i] = keys[i] end return newPath end local function processRecursive(process, item, path, visited) if item == nil then return nil end if visited[item] then return visited[item] end local processed = process(item, path) if type(processed) == 'table' then local processedCopy = {} visited[item] = processedCopy local processedKey for k,v in pairs(processed) do processedKey = processRecursive(process, k, makePath(path, k, inspect.KEY), visited) if processedKey ~= nil then processedCopy[processedKey] = processRecursive(process, v, makePath(path, processedKey), visited) end end local mt = processRecursive(process, getmetatable(processed), makePath(path, inspect.METATABLE), visited) if type(mt) ~= 'table' then mt = nil end -- ignore not nil/table __metatable field setmetatable(processedCopy, mt) processed = processedCopy end return processed end ------------------------------------------------------------------- local Inspector = {} local Inspector_mt = {__index = Inspector} function Inspector:puts(...) local args = {...} local buffer = self.buffer local len = #buffer for i=1, #args do len = len + 1 buffer[len] = args[i] end end function Inspector:down(f) self.level = self.level + 1 f() self.level = self.level - 1 end function Inspector:tabify() self:puts(self.newline, string.rep(self.indent, self.level)) end function Inspector:alreadyVisited(v) return self.ids[v] ~= nil end function Inspector:getId(v) local id = self.ids[v] if not id then local tv = type(v) id = (self.maxIds[tv] or 0) + 1 self.maxIds[tv] = id self.ids[v] = id end return tostring(id) end function Inspector:putKey(k) if isIdentifier(k) then return self:puts(k) end self:puts("[") self:putValue(k) self:puts("]") end function Inspector:putTable(t, exp) if t == inspect.KEY or t == inspect.METATABLE then self:puts(tostring(t)) -- self:puts("["..#t.."]") elseif self:alreadyVisited(t) then self:puts('') -- self:puts("["..#t.."]") elseif self.level >= self.depth then self:puts('{...}') else if self.tableAppearances[t] > 1 then self:puts('<', self:getId(t), '>') end local nonSequentialKeys, sequenceLength = getNonSequentialKeys(t) local mt = getmetatable(t) local toStringResult = getToStringResultSafely(t, mt) self:puts('{') self:down(function() if toStringResult then self:puts(' -- ', escape(toStringResult)) if sequenceLength >= 1 then self:tabify() end end local count = 0 for i=1, sequenceLength do if count > 0 then self:puts(',') end self:puts(' ') self:putValue(t[i], exp) count = count + 1 end for _,k in ipairs(nonSequentialKeys) do if count > 0 then self:puts(',') end self:tabify() self:putKey(k) self:puts(' = ') self:putValue(t[k], exp) count = count + 1 end if type(mt) == 'table' then if count > 0 then self:puts(',') end self:tabify() self:puts(' = ') self:putValue(mt, exp) end end) if #nonSequentialKeys > 0 or type(mt) == 'table' then -- result is multi-lined. Justify closing } self:tabify() elseif sequenceLength > 0 then -- array tables have one extra space before closing } self:puts(' ') end self:puts('}') end end function Inspector:putValue(v, exp) local tv = type(v) local exporter = exp or export_obj if tv == 'string' then self:puts(smartQuote(escape(v))) elseif tv == 'number' or tv == 'boolean' or tv == 'nil' or tv == 'cdata' or tv == 'ctype' then self:puts(tostring(v)) elseif tv == 'table' then if #v > 0 then self:puts("["..#v.."] ") end self:putTable(v, exporter) elseif iszen(tv) then if tv == "zenroom.octet" then if #v == 0 then self:puts("octet[0] (null)") else self:puts("octet[" .. #v .. "] " .. exporter(v)) end elseif tv == "zenroom.big" then local i = v:octet() self:puts("int[" .. #i.. "] " .. exporter(i)) elseif tv == "zenroom.ecp" then local i = v:octet() if v == "Infinity" or v == ECP.infinity() then self:puts("ecp[...] (Infinity)") else self:puts("ecp[" .. #i.. "] " .. exporter(i)) end elseif tv == "zenroom.ecp2" then local i = v:octet() if v == "Infinity" or v == ECP2.infinity() then self:puts("ecp[...] (Infinity)") else self:puts("ecp2[" ..#i.. "] ".. exporter(i)) end elseif tv == "zenroom.fp12" then local i = v:octet() self:puts("fp12[" ..#i.. "] ".. exporter(i)) elseif tv == "zenroom.ecdh" then local pk = v:public() local sk = v:private() if not pk and not sk then self:puts("ecdh keyring is empty\n") else if pk then self:puts("ecdh.public["..#pk.."] ".. exporter(pk).."\n") end if sk then self:puts("ecdh.private["..#sk.."] ".. exporter(sk).."\n") end end else self:puts(exporter(v:octet())) end else self:puts('<',tv,' ',self:getId(v),'>') end end ------------------------------------------------------------------- function inspect.inspect(root, options) options = options or {} local depth = options.depth or math.huge local newline = options.newline or '\n' local indent = options.indent or ' ' local process = options.process local schema = options.schema or false if process then root = processRecursive(process, root, {}, {}) end local inspector = setmetatable({ depth = depth, level = 0, buffer = {}, ids = {}, maxIds = {}, newline = newline, indent = indent, tableAppearances = countTableAppearances(root) }, Inspector_mt) -- option schema only (don't print contents) if schema then local _f = function(_) return("") end inspector:putValue(root, _f) else inspector:putValue(root) end return table.concat(inspector.buffer) end -- apply conversion wrapper to all values of a table function inspect.process(item, format) return processRecursive(function(item) if iszen(type(item)) then return export_obj(item, format) else return item end end, item, {}, {}) end --- Print all contents of a table in a tree representation, works with -- complex data structures and prints to STDOUT. -- -- @function INSPECT.print(object) -- @param object complex table data structure function inspect.print(root, options) print(inspect.inspect(root, options)) return root end --- Print the prototype (no contents only schema) of a table in a tree --- representation, works with complex data structures and prints to --- STDOUT. -- -- @function INSPECT.schema(object) -- @param object complex table data structure function inspect.schema(root, options) warn(inspect.inspect(root, { schema = true })) return root end --- Print all contents of a table to STDERR. Works same way as @{print}. -- -- @function INSPECT.warn(object) -- @param object complex table data structure function inspect.warn(root, options) if luatype(options) == 'string' then warn('Spy on: '..options) warn(inspect.inspect(root, {})) else warn(inspect.inspect(root, options)) end return root end --- Print all contents of a table to STDERR and return same object as --- passthrough. Works same way as @{print}. -- -- @function INSPECT.spy(object) -- @param object complex table data structure -- @return object itself (passthrough for nesting) inspect.spy = inspect.warn setmetatable(inspect, { __call = function(_, ...) return inspect.print(...) end }) return inspect :--[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 13th November 2021 --]] ---

Zencode language parser

-- -- Zencode is a Domain -- Specific Language (DSL) made to be understood by humans. Its -- purpose is detailed in the -- Zencode Whitepaper and DECODE EU project. -- -- @module ZEN -- -- @author Denis "Jaromil" Roio -- @license AGPLv3 -- @copyright Dyne.org foundation 2018-2020 -- -- The Zenroom VM is capable of parsing specific scenarios written in -- Zencode and execute high-level cryptographic operations described -- in them; this is to facilitate the integration of complex -- operations in software and the non-literate understanding of what a -- distributed application does. -- -- This section doesn't provide the documentation on how to write -- Zencode. Refer to the links above to learn it. This documentation -- continues to illustrate internals: how the Zencode direct-syntax -- parser is made, how it integrates in the Zenroom memory model. -- This is also the reference implementation to learn how to code -- Zencode simple scenario using Zeroom's Lua. -- -- @module ZEN local zencode = { given_steps = {}, when_steps = {}, if_steps = {}, then_steps = {}, schemas = {}, branch = false, branch_valid = false, id = 0, AST = {}, traceback = {}, -- execution backtrace eval_cache = {}, -- zencode_eval if...then conditions checks = {version = false}, -- version, scenario checked, etc. OK = true -- set false by asserts } -- set_sentence -- set_rule local function set_sentence(self, event, from, to, ctx) local index = self.current if self.current == 'whenif' then index = 'when' end if self.current == 'thenif' then index = 'then' end local reg = ctx.Z[index .. '_steps'] ctx.Z.OK = false xxx('Zencode parser from: ' .. from .. " to: "..to, 3) assert(reg,'Callback register not found: ' .. self.current) assert(#reg,'Callback register empty: '..self.current) local gsub = string.gsub -- optimization -- TODO: optimize in C -- remove '' contents, lower everything, expunge prefixes -- ignore 'the' only in Then statements local tt = gsub(ctx.msg, "'(.-)'", "''") -- msg trimmed on parse tt = gsub(tt, ' I ', ' ', 1) -- eliminate first person pronoun tt = tt:lower() -- lowercase all statement if to == 'then' then tt = gsub(tt, ' the ', ' ', 1) end if to == 'given' then tt = gsub(tt, ' the ', ' a ', 1) tt = gsub(tt, ' have ', ' ', 1) end -- prefixes found at beginning of statement tt = gsub(tt, '^when ', '', 1) tt = gsub(tt, '^then ', '', 1) tt = gsub(tt, '^given ', '', 1) tt = gsub(tt, '^if ', '', 1) tt = gsub(tt, '^and ', '', 1) -- TODO: expunge only first 'and' -- generic particles tt = gsub(tt, '^that ', ' ', 1) tt = gsub(tt, ' valid ', ' ', 1) -- backward compat tt = gsub(tt, ' known as ', ' ', 1) tt = gsub(tt, ' all ', ' ', 1) tt = gsub(tt, ' inside ', ' in ', 1) -- equivalence tt = gsub(tt, '^an ', 'a ', 1) tt = gsub(tt, ' +', ' ') -- eliminate multiple internal spaces -- TODO: OPTIMIZE here to avoid iteration over all zencode language every time for pattern, func in pairs(reg) do if (type(func) ~= 'function') then error('Zencode function missing: ' .. pattern, 2) return false end -- xxx(tt .. ' == ' ..pattern) if strcasecmp(tt, pattern) then local args = {} -- handle multiple arguments in same string for arg in string.gmatch(ctx.msg, "'(.-)'") do -- convert all spaces to underscore in argument strings arg = uscore(arg, ' ', '_') table.insert(args, arg) end ctx.Z.id = ctx.Z.id + 1 -- AST data prototype table.insert( ctx.Z.AST, { id = ctx.Z.id, -- ordered number args = args, -- array of vars source = ctx.msg, -- source text section = self.current, from = from, to = to, hook = func } ) -- function ctx.Z.OK = true break end end if not ctx.Z.OK and CONF.parser.strict_match then debug_traceback() exitcode(1) error('Zencode pattern not found ('..index..'): ' .. trim(ctx.msg), 1) return false elseif not ctx.Z.OK and not CONF.parser.strict_match then warn('Zencode pattern ignored: ' .. trim(ctx.msg), 1) end end local function set_rule(text) local res = false local tr = text.msg:gsub(' +', ' ') -- eliminate multiple internal spaces local rule = strtok(trim(tr):lower()) if rule[2] == 'check' and rule[3] == 'version' and rule[4] then -- TODO: check version of running VM -- elseif rule[2] == 'load' and rule[3] then -- act("zencode extension: "..rule[3]) -- require("zencode_"..rule[3]) local ver = V(rule[4]) -- SEMVER if ver == ZENROOM_VERSION then act('Zencode version match: ' .. ZENROOM_VERSION.original) res = true elseif ver < ZENROOM_VERSION then warn('Zencode written for an older version: ' .. ver.original) res = true elseif ver > ZENROOM_VERSION then warn('Zencode written for a newer version: ' .. ver.original) res = true else error('Version check error: ' .. rule[4]) end text.Z.checks.version = res elseif rule[2] == 'input' and rule[3] then -- rule input encoding|format '' if rule[3] == 'encoding' and rule[4] then CONF.input.encoding = input_encoding(rule[4]) res = true and CONF.input.encoding elseif rule[3] == 'format' and rule[4] then CONF.input.format = get_format(rule[4]) res = true and CONF.input.format elseif rule[3] == 'untagged' then res = true CONF.input.tagged = false end elseif rule[2] == 'output' and rule[3] then -- TODO: rule debug [ format | encoding ] -- rule input encoding|format '' if rule[3] == 'encoding' then CONF.output.encoding = { fun = guess_outcast(rule[4]), name = rule[4] } res = true and CONF.output.encoding elseif rule[3] == 'format' then CONF.output.format = get_format(rule[4]) res = true and CONF.output.format elseif rule[3] == 'versioning' then CONF.output.versioning = true res = true elseif strcasecmp(rule[3], 'ast') then CONF.output.AST = true res = true end elseif rule[2] == 'unknown' and rule[3] then if rule[3] == 'ignore' then CONF.parser.strict_match = false res = true end elseif rule[2] == 'collision' and rule[3] then if rule[3] == 'ignore' then CONF.heap.check_collision = false res = true end -- alias of unknown ignore for specific callers elseif rule[2] == 'caller' and rule[3] then if rule[3] == 'restroom-mw' then CONF.parser.strict_match = false CONF.heap.check_collision = false res = true end elseif rule[2] == 'set' and rule[4] then CONF[rule[3]] = fif( tonumber(rule[4]), tonumber(rule[4]), fif( rule[4]=='true', true, fif( rule[4]=='false', false, rule[4]))) res = true end if not res then error('Rule invalid: ' .. text.msg, 3) else act(text.msg) end return res end local function new_state_machine() -- stateDiagram -- [*] --> Given -- Given --> When -- When --> Then -- state branch { -- IF -- when then -- -- -- EndIF -- } -- When --> branch -- branch --> When -- Then --> [*] local machine = MACHINE.create( { initial = 'init', events = { {name = 'enter_rule', from = {'init', 'rule', 'scenario'}, to = 'rule'}, {name = 'enter_scenario', from = {'init', 'rule', 'scenario'}, to = 'scenario'}, {name = 'enter_given', from = {'init', 'rule', 'scenario'}, to = 'given'}, {name = 'enter_given', from = {'given'}, to = 'given'}, {name = 'enter_when', from = {'given', 'when', 'then', 'endif'}, to = 'when'}, {name = 'enter_then', from = {'given', 'when', 'then', 'endif'}, to = 'then'}, {name = 'enter_if', from = {'if', 'given', 'when', 'then', 'endif'}, to = 'if'}, {name = 'enter_whenif', from = {'if', 'whenif', 'thenif'}, to = 'whenif'}, {name = 'enter_thenif', from = {'if', 'whenif', 'thenif'}, to = 'thenif'}, {name = 'enter_endif', from = {'whenif', 'thenif'}, to = 'endif'}, {name = 'enter_and', from = 'given', to = 'given'}, {name = 'enter_and', from = 'when', to = 'when'}, {name = 'enter_and', from = 'then', to = 'then'}, {name = 'enter_and', from = 'whenif', to = 'whenif'}, {name = 'enter_and', from = 'thenif', to = 'thenif'}, {name = 'enter_and', from = 'if', to = 'if'} }, -- graph TD -- Given --> When -- IF --> When -- Then --> When -- Given --> IF -- When --> IF -- Then --> IF -- IF --> Then -- When --> Then -- Given --> Then callbacks = { -- msg is a table: { msg = "string", Z = ZEN (self) } onscenario = function(self, event, from, to, msg) -- first word until the colon local scenarios = strtok(string.match(trim(msg.msg):lower(), '[^:]+')) for k, scen in ipairs(scenarios) do if k ~= 1 then -- skip first (prefix) load_scenario('zencode_' .. trimq(scen)) ZEN:trace('Scenario ' .. scen) return end end end, onrule = function(self, event, from, to, msg) -- process rules immediately if msg then set_rule(msg) end end, ongiven = set_sentence, onwhen = set_sentence, onif = set_sentence, onendif = set_sentence, onthen = set_sentence, onand = set_sentence, onwhenif = set_sentence, onthenif = set_sentence } } ) return machine end -- Zencode HEAP globals IN = {} -- Given processing, import global DATA from json KIN = {} -- Given processing, import global KEYS from json TMP = TMP or {} -- Given processing, temp buffer for ack*->validate->push* ACK = ACK or {} -- When processing, destination for push* OUT = OUT or {} -- print out AST = AST or {} -- AST of parsed Zencode WHO = nil -- init statements zencode.endif_steps = { endif = function() return end } --nop function Given(text, fn) assert( not ZEN.given_steps[text], 'Conflicting GIVEN statement loaded by scenario: ' .. text, 2 ) ZEN.given_steps[text] = fn end function When(text, fn) assert( not ZEN.when_steps[text], 'Conflicting WHEN statement loaded by scenario: ' .. text, 2 ) ZEN.when_steps[text] = fn end function IfWhen(text, fn) assert( not ZEN.if_steps[text], 'Conflicting IF-WHEN statement loaded by scenario: ' .. text, 2 ) assert( not ZEN.when_steps[text], 'Conflicting IF-WHEN statement loaded by scenario: ' .. text, 2 ) ZEN.if_steps[text] = fn ZEN.when_steps[text] = fn end function Then(text, fn) assert( not ZEN.then_steps[text], 'Conflicting THEN statement loaded by scenario : ' .. text, 2 ) ZEN.then_steps[text] = fn end --- -- Declare 'my own' name that will refer all uses of the 'my' pronoun -- to structures contained under this name. -- -- @function Iam(name) -- @param name own name to be saved in WHO function Iam(name) if name then ZEN.assert(not WHO, 'Identity already defined in WHO') ZEN.assert(type(name) == 'string', 'Own name not a string') WHO = name else ZEN.assert(WHO, 'No identity specified in WHO') end assert(ZEN.OK) end -- init schemas function zencode.add_schema(arr) local _illegal_schemas = { -- const whoami = true } for k, v in pairs(arr) do -- check overwrite / duplicate to avoid scenario namespace clash if ZEN.schemas[k] then error('Add schema denied, already registered schema: ' .. k, 2) end if _illegal_schemas[k] then error('Add schema denied, reserved name: ' .. k, 2) end ZEN.schemas[k] = v end end function have(obj) -- accepts arrays for depth checks local res if luatype(obj) == 'table' then local prev = ACK for k, v in ipairs(obj) do res = prev[uscore(v)] if not res then error('Cannot find object: ' .. v, 2) end prev = res end else res = ACK[uscore(obj)] if not res then error('Cannot find object: ' .. obj, 2) end end return res end function empty(obj) -- convert all spaces to underscore in argument if ACK[uscore(obj)] then error('Cannot overwrite existing object: ' .. obj, 2) end end --------------------------------------------------------------- -- ZENCODE PARSER local function zencode_iscomment(b) local x = string.char(b:byte(1)) if x == '#' then return true else return false end end local function zencode_isempty(b) if b == nil or b == '' then return true else return false end end -- returns an iterator for newline termination local function zencode_newline_iter(text) s = trim(text) -- implemented in zen_io.c if s:sub(-1) ~= '\n' then s = s .. '\n' end return s:gmatch('(.-)\n') -- iterators return functions end function zencode:begin() self.id = 0 self.AST = {} self.eval_cache = {} self.checks = {version = false} -- version, scenario checked, etc. self.OK = true -- set false by asserts self.traceback = {} -- Reset HEAP self.machine = {} IN = {} -- Given processing, import global DATA from json KIN = {} -- Given processing, import global KEYS from json TMP = {} -- Given processing, temp buffer for ack*->validate->push* ACK = {} -- When processing, destination for push* OUT = {} -- print out AST = {} -- AST of parsed Zencode self.CODEC = {} -- saves input conversions for to decode using same WHO = nil collectgarbage 'collect' -- Zencode init traceback self.machine = new_state_machine() end function zencode:parse(text) if #text < 9 then -- strlen("and debug") == 9 warn("Zencode text too short to parse") return false end local linenum=0 -- xxx(text,3) local prefix local branching = false local parse_prefix = parse_prefix -- optimization for line in zencode_newline_iter(text) do linenum = linenum + 1 local tline = trim(line) -- saves trims in isempty / iscomment if zencode_isempty(tline) then goto continue end if zencode_iscomment(tline) then goto continue end -- xxx('Line: '.. text, 3) -- max length for single zencode line is #define MAX_LINE -- hard-coded inside zenroom.h prefix = parse_prefix(line) -- trim is included assert(prefix, "Invalid Zencode line "..linenum..": "..line) self.OK = true exitcode(0) if prefix == 'if' then branching = true end if branching and (prefix == 'when') then prefix = prefix..'if' end if branching and (prefix == 'then') then prefix = prefix..'if' end if prefix == 'endif' then branching = false end -- try to enter the machine state named in prefix -- xxx("Zencode machine enter_"..prefix..": "..text, 3) local fm = self.machine["enter_"..prefix] assert(fm, "Invalid Zencode line "..linenum..": '"..line.."'") assert(fm(self.machine, { msg = tline, Z = self }), line.."\n ".. "Invalid transition from: "..self.machine.current) ::continue:: end collectgarbage'collect' return true end function zencode:trace(src) -- take current line of zencode local tr = trim(src) -- TODO: tabbing, ugly but ok for now if string.sub(tr, 1, 1) == '[' then table.insert(self.traceback, tr) else table.insert(self.traceback, ' . ' .. tr) end end -- trace function execution also on success function zencode:ftrace(src) -- take current line of zencode table.insert(self.traceback, ' D ZEN:' .. trim(src)) end -- log zencode warning in traceback function zencode:wtrace(src) -- take current line of zencode table.insert(self.traceback, ' W ZEN:' .. trim(src)) end local function IN_uscore(i) -- convert all element keys of IN to underscore local res = {} for k,v in pairs(i) do if luatype(v) == 'table' then res[uscore(k)] = IN_uscore(v) -- recursion else res[uscore(k)] = v end end return setmetatable(res, getmetatable(i)) end -- return true: caller skip execution and go to ::continue:: -- return false: execute statement local function manage_branching(x) if x.section == 'if' then xxx("START conditional execution: "..x.source, 2) if not ZEN.branch then ZEN.branch_valid = true end ZEN.branch = true return false end if x.section == 'endif' then xxx("END conditional execution: "..x.source, 2) ZEN.branch = false return true end if not ZEN.branch then return false end if not ZEN.branch_valid then xxx('skip execution in false conditional branch: '..x.source, 2) return true end return false end function zencode:run() -- runtime checks if not ZEN.checks.version then warn( 'Zencode is missing version check, please add: rule check version N.N.N' ) end -- HEAP setup IN = {} -- import global DATA from json if DATA then -- if plain array conjoin into associative IN = CONF.input.format.fun(DATA) or {} DATA = nil end KIN = {} -- import global KEYS from json if KEYS then KIN = CONF.input.format.fun(KEYS) or {} KEYS = nil end collectgarbage 'collect' -- convert all spaces in keys to underscore IN = IN_uscore(IN) KIN = IN_uscore(KIN) -- check name collisions between DATA and KEYS if CONF.heap.check_collision then for k in pairs(IN) do if KIN[k] then error("Object name collision in input: "..k) end end end -- EXEC zencode for _, x in pairs(self.AST) do -- ZEN:trace(x.source) if manage_branching(x) then goto continue end -- trigger upon switch to when or then section if x.from == 'given' and x.to ~= 'given' then -- delete IN memory KIN = {} IN = {} collectgarbage 'collect' end -- HEAP integrity guard if CONF.heapguard then -- guard ACK's contents on section switch deepmap(zenguard, ACK) end ZEN.OK = true exitcode(0) local ok, err = pcall(x.hook, table.unpack(x.args)) if not ok or not ZEN.OK then if err then ZEN:trace('[!] ' .. err) end fatal(x.source) -- traceback print inside end collectgarbage 'collect' ::continue:: end -- PRINT output ZEN:trace('--- Zencode execution completed') if type(OUT) == 'table' then ZEN:trace('<<< Encoding { OUT } to JSON ') -- this is all already encoded -- needs to be formatted -- was used CONF.output.format.fun -- suspended until more formats are implemented print( JSON.encode(OUT) ) ZEN:trace('>>> Encoding successful') else -- this should never occur in zencode, OUT is always a table ZEN:trace('<<< Printing OUT (plain format, not a table)') print(OUT) end end function zencode.serialize(A) local t = luatype(A) if t == 'table' then local res res = serialize(A) return OCTET.from_string(res.strings) .. res.octets elseif t == 'number' then return O.from_string(tostring(A)) elseif t == 'string' then return O.from_string(A) else local zt = type(A) if not iszen(zt) then error('Cannot convert value to octet: '..zt, 2) end -- all zenroom types have :octet() method to export return A:octet() end error('Unknown type, cannot convert to octet: '..type(A), 2) end function zencode.heap() return ({ IN = IN, KIN = KIN, TMP = TMP, ACK = ACK, OUT = OUT }) end function zencode.debug() debug_traceback() debug_heap_dump() -- I.warn(ZEN.traceback) -- I.warn({ HEAP = { IN = IN, -- TMP = TMP, -- ACK = ACK, -- OUT = OUT }}) end function zencode.debug_json() write( JSON.encode( { TRACE = ZEN.traceback, HEAP = { IN = IN, TMP = TMP, ACK = ACK, OUT = OUT } } ) ) end function zencode.assert(condition, errmsg) if condition then return true else ZEN.branch_valid = false end -- in conditional branching ZEN.assert doesn't quit if ZEN.branch then ZEN:trace(errmsg) xxx(errmsg) else -- ZEN.debug() -- prints all data in memory ZEN:trace('ERR ' .. errmsg) ZEN.OK = false exitcode(1) error(errmsg, 3) end end return zencode O--[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Friday, 12th November 2021 --]] local J = require('json') J.decode = function(data) if not data then error("JSON.decode called without argument", 2) end assert(#data > 1,"JSON.decode argument is empty string") assert(luatype(data) == "string", "JSON.decode argument of unsopported type: "..luatype(data)) local res = {} local right = tostring(data) local left local tmp while right do left, right = jsontok(right) -- function in zen_parser.c if not left then break end tmp = JSON.raw_decode(left) if luatype(tmp) == 'table' then for k,v in pairs(tmp) do -- adds all unnamed array elements into 'array' if luatype(k)=='number' then res.array = fif(res.array, res.array, {}) table.insert(res.array, v) else res[k] = v end end else error("JSON decode has not returned a table", 2) end end return res end J.encode = function(tab,enc) return JSON.raw_encode( -- process encodes zencode types -- it is part of inspect.lua INSPECT.process(tab, enc or CONF.output.encoding.name) ) end J.auto = function(obj) local t = type(obj) if t == 'table' then -- export table to JSON return JSON.encode(obj) elseif t == 'string' then -- import JSON string to table return JSON.decode(obj) else error("JSON.auto unrecognised input type: "..t, 3) return nil end end return J --[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 13th November 2021 --]] -- override type to recognize zenroom's types luatype = type _G['type'] = function(var) local simple = luatype(var) if simple == "userdata" then local meta = getmetatable(var) if meta then return(meta.__name) else return("unknown") end else return(simple) end end -- TODO: optimise in C function iszen(n) for _ in n:gmatch("zenroom") do return true end return false end -- workaround for a ternary conditional operator function fif(condition, if_true, if_false) if condition then return if_true else return if_false end end function uscore(input) local it = luatype(input) if it == 'string' then return string.gsub(input, ' ', '_') elseif it == 'number' then return input else error("Underscore transform not a string or number: "..it, 2) end end function space(input) local it = luatype(input) if it == 'string' then return string.gsub(input, '_', ' ') elseif it == 'number' then return input else error("Whitespace transform not a string or number: "..it, 2) end end -- debugging facility function xxx(s, n) n = n or 3 if DEBUG >= n then printerr("LUA "..s) end end -- sorted iterator for deterministic ordering of tables -- from: https://www.lua.org/pil/19.3.html _G["lua_pairs"] = _G["pairs"] _G["lua_ipairs"] = _G["ipairs"] local function _pairs(t) local a = {} for n in lua_pairs(t) do table.insert(a, n) end table.sort(a) local i = 0 -- iterator variable return function () -- iterator function i = i + 1 -- if a[i] == nil then return nil return a[i], t[a[i]] end end local function _ipairs(t) local a = {} for n in lua_ipairs(t) do table.insert(a, n) end table.sort(a) local i = 0 -- iterator variable return function () -- iterator function i = i + 1 -- if a[i] == nil then return nil return a[i] end end -- Switch to deterministic (sorted) table iterators: this breaks lua -- tests in particular those stressing i/pairs and pack/unpack, which -- are anyway unnecessary corner cases in zenroom, which exits cleanly -- and signaling a stack overflow. Please report back if this -- generates problems leading to the pairs for loop in function above. _G["sort_pairs"] = _pairs _G["sort_ipairs"] = _pairs function deepcopy(orig) local orig_type = type(orig) local copy if orig_type == 'table' then copy = {} for orig_key, orig_value in next, orig, nil do copy[deepcopy(orig_key)] = deepcopy(orig_value) end setmetatable(copy, deepcopy(getmetatable(orig))) else -- number, string, boolean, etc copy = orig end return copy end -- deep recursive map on a tree structure -- for usage see test/deepmap.lua -- operates only on strings, passes numbers through function deepmap(fun,t,...) local luatype = luatype if luatype(fun) ~= 'function' then error("Internal error: deepmap 1st argument is not a function", 3) return nil end -- if luatype(t) == 'number' then -- return t end if luatype(t) ~= 'table' then error("Internal error: deepmap 2nd argument is not a table", 3) return nil end local res = {} for k,v in pairs(t) do if luatype(v) == 'table' then res[k] = deepmap(fun,v,...) -- recursion else res[k] = fun(v,k,...) end end return setmetatable(res, getmetatable(t)) end function isarray(obj) if not obj then warn("Argument of isarray() is nil") return false end if luatype(obj) == 'string' then -- seach HEAD for ACK[obj] and check its CODEC local o = ACK[obj] if not o then return false end if luatype(o) ~= 'table' then return false end if ZEN.CODEC[obj].zentype == 'array' then return true end return false end if luatype(obj) ~= 'table' then -- warn("Argument of isarray() is not a table") return false end local count = 0 for k, v in pairs(obj) do -- check that all keys are numbers -- don't check sparse ratio (cjson's lua_array_length) if luatype(k) ~= "number" then return false end count = count + 1 end return count end function isdictionary(obj) if not obj then warn("Argument of isdictionary() is nil") return false end if luatype(obj) == 'string' then -- seach HEAD for ACK[obj] and check its CODEC local o = ACK[obj] if not o then return false end if luatype(o) ~= 'table' then return false end if ZEN.CODEC[obj].zentype == 'dictionary' or ZEN.CODEC[obj].zentype == 'schema' then return true end -- TRUE return false end -- check the object itself if luatype(obj) ~= 'table' then return false end -- error("Argument is not a table: "..type(obj) local count = 0 for k, v in pairs(obj) do -- check that all keys are not numbers -- don't check sparse ratio (cjson's lua_array_length) if luatype(k) ~= "string" then return false end count = count + 1 end return count end function array_contains(arr, obj) assert(luatype(arr) == 'table', "Internal error: array_contains argument is not a table") for k, v in pairs(arr) do assert(luatype(k) == 'number', "Internal error: array_contains argument is not an array") if v == obj then return true end end return false end function help(module) if module == nil then print("usage: help(module)") print("example > help(octet)") print("example > help(ecdh)") print("example > help(ecp)") return end for k,v in pairs(module) do if type(v)~='table' and string.sub(k,1,1)~='_' then print("class method: "..k) end end -- local inst = module.new() -- if inst == nil then return end -- for s,f in pairs(getmetatable(inst)) do -- if(string.sub(s,1,2)~='__') then print("object method: "..s) end -- end end -- TODO: optimize in C using strtok local function split(src,pat) local tbl = {} src:gsub(pat, function(x) tbl[#tbl+1]=x end) return tbl end function strtok(src, pat) if not src then return { } end pat = pat or "%S+" ZEN.assert(luatype(src) == "string", "strtok error: argument is not a string") return split(src, pat) end -- assert all values in table are converted to zenroom types -- used in zencode when transitioning out of given memory function zenguard(val) local tv = type(val) if not (tv == 'number' or tv == 'boolean' or iszen(tv)) then I.print(ZEN.heap().ACK) -- xxx("Invalid value: "..val) debug_heap_dump() error("Zenguard detected an invalid value in HEAP: type "..type(val), 2) return nil end end --[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 13th November 2021 --]] -- TODO: use strict table -- https://stevedonovan.github.io/Penlight/api/libraries/pl.strict.html -- the main security concern in this Zencode module is that no data -- passes without validation from IN to ACK or from inline input. -- GIVEN local function gc() TMP = {} collectgarbage 'collect' end -- safely take any zenroom object as index local function _index_to_string(what) local t = type(what) if t == 'string' then return what elseif iszen(t) then return what:octet():string() end error("Invalid type to index variable in heap: "..t, 3) return nil end --- -- Pick a generic data structure from the IN memory -- space. Looks for named data on the first and second level and makes -- it ready in TMP for @{validate} or @{ack}. -- -- @function pick(name, data, encoding) -- @param what string descriptor of the data object -- @param conv[opt] optional encoding spec (default CONF.input.encoding) -- @return true or false local function pick(what, conv) local guess local data local raw local name = _index_to_string(what) raw = KIN[name] or IN[name] if not raw then error("Cannot find '" .. name .. "' anywhere (null value?)", 2) end if raw == '' then error("Found empty string in '" .. name) end -- if not conv and ZEN.schemas[what] then conv = what end TMP = guess_conversion(raw, conv or name) if not TMP then error('Cannot guess any conversion for: ' .. luatype(raw) .. ' ' .. (conv or name or '(nil)')) end TMP.name = name TMP.schema = conv assert(ZEN.OK) if DEBUG > 1 then ZEN:ftrace('pick found ' .. name .. '('..TMP.zentype..')') end end --- -- Pick a data structure named 'what' contained under a 'section' key -- of the at the root of the IN memory space. Looks for named -- data at the first and second level underneath IN[section] and moves -- it to TMP[what][section], ready for @{validate} or @{ack}. If -- TMP[what] exists already, every new entry is added as a key/value -- -- @function pickin(section, name) -- @param section string descriptor of the section containing the data -- @param what string descriptor of the data object -- @param conv string explicit conversion or schema to use -- @param fail bool bail out or continue on error -- @return true or false local function pickin(section, what, conv, fail) ZEN.assert(section, 'No section specified') local root -- section local raw -- data pointer local bail -- fail local name = _index_to_string(what) root = KIN[section] if root then raw = root[name] if raw then goto found end end root = IN[section] if root then raw = root[name] if raw then goto found end end -- TODO: check all corner cases to make sure TMP[name] is a k/v map ::found:: if not raw then error("Cannot find '" .. name .. "' inside '" .. section .. "' (null value?)",2) end if raw == '' then error("Found empty string '" .. name .."' inside '"..section.."'", 2) end -- conv = conv or name -- if not conv and ZEN.schemas[name] then conv = name end -- if no encoding provided then conversion is same as name (schemas etc.) TMP = guess_conversion(raw, conv or name) TMP.name = name TMP.root = section TMP.schema = conv assert(ZEN.OK) if DEBUG > 1 then ZEN:ftrace('pickin found ' .. name .. ' in ' .. section) end end local function ack_table(key, val) ZEN.assert( type(key) == 'string', 'ZEN:table_add arg #1 is not a string' ) ZEN.assert( type(val) == 'string', 'ZEN:table_add arg #2 is not a string' ) if not ACK[key] then ACK[key] = {} end ACK[key][val] = operate_conversion(TMP) ZEN.CODEC[key] = { name = TMP.name, luatype = 'table', zentype = 'dictionary', encoding = TMP.encoding, root = TMP.root } -- name of schema may differ from name of object if TMP.schema and ( TMP.schema ~= TMP.encoding ) then ZEN.CODEC[key].schema = TMP.schema end end --- -- Final step inside the Given block towards the When: -- pass on a data structure into the ACK memory space, ready for -- processing. It requires the data to be present in TMP[name] and -- typically follows a @{pick}. In some restricted cases it is used -- inside a When block following the inline insertion of data -- from zencode. -- -- @function ack(name) -- @param name string key of the data object in TMP[name] local function ack(what) local name = _index_to_string(what) ZEN.assert(TMP, 'No valid object found: ' .. name) -- CODEC[what] = CODEC[what] or { -- name = guess.name, -- istable = guess.istable, -- isschema = guess.isschema } ZEN.assert( not ACK[name], 'Destination already exists, cannot overwrite: ' .. name, 2 ) assert(ZEN.OK) ACK[name] = operate_conversion(TMP) -- also creates codec insice operate conversion -- name of schema may differ from name of object if TMP.schema and ( TMP.schema ~= TMP.encoding ) then ZEN.CODEC[name].schema = TMP.schema end -- ACK[name] already holds an object -- not a table? -- if not (dsttype == 'table') then -- convert single object to array -- ACK[name] = { ACK[name] } -- table.insert(ACK[name], operate_conversion(TMP)) -- goto done -- end -- -- it is a table already -- if isarray(ACK[name]) then -- plain array -- table.insert(ACK[name], operate_conversion(TMP)) -- goto done -- else -- associative map (dictionary) -- table.insert(ACK[name], operate_conversion(TMP)) -- TODO: associative map insertion -- goto done -- end -- ::done:: -- assert(ZEN.OK) end Given( 'nothing', function() ZEN.assert( not DATA and not KEYS, 'Undesired data passed as input' ) end ) -- maybe TODO: Given all valid data -- convert and import data only when is known by schema and passes validation -- ignore all other data structures that are not known by schema or don't pass validation Given( "am ''", function(name) Iam(name) end ) Given( "my name is in a '' named ''", function(sc, name) pick(name, sc) assert(TMP.name, 'No name found in: ' .. name) Iam(O.to_string(operate_conversion(TMP))) end ) -- variable names: -- s = schema of variable (or encoding) -- n = name of variable -- t = table containing the variable -- TODO: I have a '' as '' Given( "a ''", function(n) pick(n) ack(n) gc() end ) Given( "a '' in ''", function(s, t) pickin(t, s) ack(s) -- save it in ACK.obj gc() end ) -- public keys for keyring arrays -- returns a special array for upcoming session: -- public_key_session : { name : value } Given( "a '' public key from ''", function(s, t) -- if not pickin(t, s, nil, false) then -- pickin(s, t) -- end pickin(t, s..'_public_key', s..'_public_key', false) ack_table('public_key_session', t) end ) Given( "a '' from ''", function(s, t) -- if not pickin(t, s, nil, false) then -- pickin(s, t) -- end pickin(t, s, s, false) ack_table(s, t) gc() end ) Given( "a '' named ''", function(s, n) -- ZEN.assert(encoder, "Invalid input encoding for '"..n.."': "..s) pick(n, s) ack(n) gc() end ) Given( "a '' named by ''", function(s, n) -- local name = have(n) local name = _index_to_string(KIN[n] or IN[n]) -- ZEN.assert(encoder, "Invalid input encoding for '"..n.."': "..s) pick(name, s) ack(name) gc() end ) Given( "a '' named '' in ''", function(s, n, t) pickin(t, n, s) ack(n) -- save it in ACK.name gc() end ) Given( "a '' named by '' in ''", function(s, n, t) local name = _index_to_string(KIN[n] or IN[n]) pickin(t, name, s) ack(name) -- save it in ACK.name gc() end ) Given( "my ''", function(n) ZEN.assert(WHO, 'No identity specified, use: Given I am ...') pickin(WHO, n) ack(n) gc() end ) Given( "my '' named ''", function(s, n) -- ZEN.assert(encoder, "Invalid input encoding for '"..n.."': "..s) pickin(WHO, n, s) ack(n) gc() end ) Given( "my '' named by ''", function(s, n) -- ZEN.assert(encoder, "Invalid input encoding for '"..n.."': "..s) local name = _index_to_string(KIN[n] or IN[n]) pickin(WHO, name, s) ack(name) gc() end ) Given( "a '' is valid", function(n) pick(n) gc() end ) Given( "my '' is valid", function(n) pickin(WHO, n) gc() end ) N%--[[ --This file is part of zenroom -- --Copyright (C) 2020-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Wednesday, 6th October 2021 --]] -- this is a map reduce function processing a single argument as -- values found, it uses function pointers and conditions from the -- params structure. -- param.target = key name of the value to find -- param.op = single argument function to run on found value -- param.cmp = dual argument comparison for dictionary eligibility -- param.conditions = k/v list of elements to compare in dictionary local function dicts_reduce(dicts, params) local found local arr for ak,av in pairs(dicts) do if luatype(av) == 'table' then found = false -- apply params filters, boolean just check key presence if params.conditions and params.cmp then for pk,pv in pairs(params.conditions) do local tv = av[pk] if tv then if params.cmp(tv, pv) then found = true end end end else found = true end -- no filters, apply everywhere -- apply sum of selected key/value if found then for k,v in pairs(av) do if k == params.target then params.op(v) end end end end -- av is a table end end When("create the new dictionary", function() empty'new dictionary' ACK.new_dictionary = { } new_codec('new dictionary', { zentype = 'dictionary' }) end) When("create the new dictionary named ''", function(name) empty(name) ACK[name] = { } new_codec(name, { zentype = 'dictionary' }) end) When("create the array of elements named '' for dictionaries in ''", function(name, dict) empty'array' local src = have(dict) ZEN.assert(luatype(src)=='table', "Object is not a table: "..dict) local res = { } for k, v in pairs(src) do if k == name then table.insert(res, v) end -- dict is most oftern an array of dictionaries for kk, vv in pairs(v) do if kk == name then table.insert(res, vv) end end end ACK.array = res new_codec('array', {luatype='table',zentype='array'}, dict) end) When("create the pruned dictionary of ''", function(dict) empty'pruned dictionary' local d = have(dict) ZEN.assert(luatype(d) == 'table', 'Object is not a table: '..dict) ACK.pruned_dictionary = prune(d) new_codec('pruned dictionary', nil, dict) end) When("find the max value '' for dictionaries in ''", function(name, arr) ZEN.assert(luatype(have(arr)) == 'table', 'Object is not a table: '..arr) empty'max value' local max = 0 local params = { target = name, op = function(v) if max < v then max = v end end } dicts_reduce(ACK[arr],params) -- optimization? operate directly on ACK ZEN.assert(max, "No max value "..name.." found across dictionaries in"..arr) ACK.max_value = max new_codec('max value', { zentype = 'element', -- introduce scalar? luatype = 'number' }, arr) -- clone array's encoding end) When("find the min value '' for dictionaries in ''", function(name, arr) ZEN.assert(luatype(have(arr)) == 'table', 'Object is not a table: '..arr) empty'min value' local min -- init min with any value for k,v in pairs(ACK[arr]) do min = v[name] -- suppose existance of key break end local params = { target = name, op = function(v) if v < min then min = v end end } dicts_reduce(ACK[arr],params) ACK.min_value = min new_codec('min value', { zentype = 'element', -- introduce scalar? luatype = 'number' }, arr) -- clone array's encoding end) When("create the sum value '' for dictionaries in ''", function(name,arr) ZEN.assert(luatype(have(arr)) == 'table', 'Object is not a table: '..arr) empty'sum value' local sum -- result of reduction local params = { target = name, op = function(v) if not sum then sum = v else sum = sum + v end end } dicts_reduce(ACK[arr], params) ZEN.assert(sum, "No sum of value "..name .." found across dictionaries in "..arr) ACK.sum_value = sum new_codec('sum value', { zentype = type(sum), -- introduce scalar? }) -- clone array's encoding end) When("create the sum value '' for dictionaries in '' where '' > ''", function(name,arr, left, right) ZEN.assert(luatype(have(arr)) == 'table', 'Object is not a table: '..arr) have(right) empty'sum value' local sum = 0 -- result of reduction local params = { target = name, conditions = { }, cmp = function(l,r) return l > r end, op = function(v) sum = sum + v end } params.conditions[left] = ACK[right] -- used in cmp dicts_reduce(ACK[arr], params) ZEN.assert(sum, "No sum of value "..name .." found across dictionaries in"..arr) ACK.sum_value = sum new_codec('sum value', { zentype = 'element', -- introduce scalar? luatype = 'number' }, arr) -- clone array's encoding end) When("find the '' for dictionaries in '' where '' = ''",function(name, arr, left, right) ZEN.assert(luatype(have(arr)) == 'table', 'Object is not a table: '..arr) have(right) empty(name) local val = { } local params = { target = name, conditions = { }, cmp = function(l,r) return l == r end, op = function(v) table.insert(val, v) end } params.conditions[left] = ACK[right] dicts_reduce(ACK[arr], params) ZEN.assert(val, "No value found "..name.." across dictionaries in "..arr) if #val == 1 then ACK[name] = val[1] new_codec(name, { luatype = luatype(ACK[name]), zentype = 'element' }, arr) else ACK[name] = val new_codec(name, { luatype = 'table', zentype = 'array' }, arr) end end) local function create_copy_f(root, in1, in2) local r = have(root) empty'copy' ZEN.assert(luatype(r) == 'table', "Object is not a table:"..root) ZEN.assert(in1, "Undefined key or index: "..in1.." in "..root) local res if tonumber(in1) then ZEN.assert(isarray(r), "Invalid index "..in1.." as object is not an array: "..root) else ZEN.assert(isdictionary(r), "Invalid key "..in1.." as object is not a dictionary:"..root) end ACK.copy = r[in1] ZEN.assert(ACK.copy, "Member not found: "..in1.." in "..root) if in2 then if tonumber(in2) then ZEN.assert(isarray(ACK.copy), "Invalid index "..in2.." as object is not an array: "..in1.." in "..root) else ZEN.assert(isdictionary(ACK.copy), "Invalid key "..in2.." as object is not a dictionary:"..in1.." in "..root) end ACK.copy = ACK.copy[in2] ZEN.assert(ACK.copy, "Member not found: "..in2.." in "..in1.." in "..root) end new_codec('copy', { luatype = luatype(ACK.copy) }, root) if ZEN.CODEC.copy.luatype == 'table' then if isdictionary(ACK.copy) then ZEN.CODEC.copy.zentype = 'dictionary' elseif isarray(ACK.copy) then ZEN.CODEC.copy.zentype = 'array' else ZEN.assert(false, "Unknown zentype for lua table element: "..dict.."."..name) end else ZEN.CODEC.copy.zentype = 'element' end end When("create the copy of '' from dictionary ''", function(name, dict) create_copy_f(dict, name) end) When("create the copy of '' from ''", function(name, dict) create_copy_f(dict, name) end) When("create the copy of '' in ''", function(name, dict) create_copy_f(dict, name) end) When("create the copy of '' in '' in ''", function(obj, branch, root) create_copy_f(root, branch, obj) end) When("create the copy of object named by '' from dictionary ''", function(name, dict) local label = have(name) create_copy_f(dict, label:string()) end) When("for each dictionary in '' append '' to ''", function(arr, right, left) local dicts = have(arr) ZEN.assert(luatype(dicts) == 'table', 'Object is not a table: '..arr) for kk,vv in pairs(dicts) do local l, r for k,v in pairs(vv) do if k == right then r = v end if k == left then l = v end end ZEN.assert(l, "Object not found: "..kk.."."..left) ZEN.assert(r, "Object not found: "..kk.."."..right) vv[left] = l..r end end) When("move '' in ''", function(src, dict) local s = have(src) local d = have(dict) ZEN.assert(luatype(d) == 'table', "Object is not a table: "..dict) ZEN.assert(ZEN.CODEC[dict].zentype == 'dictionary' or ZEN.CODEC[dict].zentype == 'schema', "Object is not a schema or dictionary: "..dict) d[src] = s ACK[src] = nil end) When("filter '' fields from ''", function(filters, target) local t = have(target) ZEN.assert(isdictionary(target), "Object is not a dictionary: "..target) local f = have(filters) ZEN.assert(isarray(filters), "Object is not an array: "..filters) if isarray(t) then -- array of dictionaries for ak,av in pairs(t) do for k,_ in pairs(av) do keep = false for _, fv in pairs(f) do if fv:str() == k then keep = true end end if not keep then t[ak][k] = nil end end end else for k,_ in pairs(t) do for _, fv in pairs(f) do if k ~= fv then t[k] = nil end end end end end) $--[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Friday, 12th November 2021 --]] --- THEN combinations: -- the -- the from -- the as -- the in -- my -- my from -- my as -- the from as -- the from in -- the as in -- the from as in -- my from as ---------------------- -- executes a guess_outcast and then operates it -- sch may be fed with check_codec() result (name of encoding) local function then_outcast(val, sch) if not val then error("Then outcast called on empty variable", 2) end local fun = guess_outcast(sch) if luatype(val) == 'table' then local codec = ZEN.CODEC[sch] if codec and codec.zentype == 'schema' and codec.encoding == 'complex' then if not isdictionary(val) then error('Complex schema value is not a dictionary: '..sch, 2) end -- check that the schema has an hardcoded encoding if ZEN.CODEC[sch] and ZEN.CODEC[sch].encoding and ZEN.CODEC[sch].encoding ~= 'complex' then local res = fun(val) local enc = guess_outcast( ZEN.CODEC[sch].encoding ) if luatype(res) == 'table' then return deepmap(enc, res) else return enc(res) end else return fun(val) end else if luatype(val) == 'table' then return deepmap(fun, val) else return fun(val) end end else return fun(val) end end local function then_insert(dest, val, key) if not ACK[dest] then OUT[dest] = val elseif luatype(OUT[dest]) == 'table' then if isarray(OUT[dest]) then table.insert(OUT[dest], val) else assert(key, 'Then statement targets dictionary with empty key: '..dest) OUT[dest][key] = val end else -- extend string to array local tmp = OUT[dest] OUT[dest] = { tmp } table.insert(OUT[dest], val) end end local function iterate_data(t) local a = {} for k,v in lua_pairs(t) do if k ~= 'keys' then table.insert(a, n) end end local i = 0 -- iterator variable return function () -- iterator function i = i + 1 return a[i], t[a[i]] end end Then("nothing", function() return end) -- nop to terminate if Then("print string ''", function(k) if not OUT.output then OUT.output = {} end table.insert(OUT.output, k) -- raw string value end) Then("print ''", function(name) local val = have(name) OUT[name] = then_outcast( val, check_codec(name) ) end) Then("print '' as ''",function(k, s) local val = have(k) OUT[k] = then_outcast( val, s ) end) Then("print '' from ''",function(k, f) local val = have({f,k}) -- use array to check in depth OUT[k] = then_outcast( val, check_codec(f) ) end) Then("print '' from '' as ''",function(k, f, s) local val = have({f,k}) -- use array to check in depth OUT[k] = then_outcast( val, s ) end) Then("print '' from '' as '' in ''",function(k, f, s, d) local val = have({f,k}) -- use array to check in depth then_insert( d, then_outcast( val, s ), k) end) Then("print '' as '' in ''",function(k, s, d) local val = have(k) -- use array to check in depth then_insert( d, then_outcast( val, s ), k) end) Then("print my '' from '' as ''",function(k, f, s) Iam() local val = have({f,k}) -- use array to check in depth then_insert( WHO, then_outcast( val, s ), k) end) Then("print my '' from ''",function(k, f) Iam() local val = have({f,k}) -- use array to check in depth -- my statements always print to a dictionary named after WHO if not OUT[WHO] then OUT[WHO] = { } end OUT[WHO][k] = then_outcast( val, check_codec(f) ) end) Then("print my '' as ''",function(k, s) Iam() local val = have(k) -- use array to check in depth then_insert( WHO, then_outcast( val, s ), k) end) Then("print my ''",function(k) Iam() local val = have(k) -- my statements always print to a dictionary named after WHO if not OUT[WHO] then OUT[WHO] = { } end OUT[WHO][k] = then_outcast( val, check_codec(k) ) end) Then('print keys',function() OUT.keys = ZEN.schemas.keys.export(ACK.keys) end) Then("print keys for ''", function(k) local keys = ZEN.schemas.keys.export(ACK.keys) if not OUT.keys then OUT.keys = { } end OUT.keys[k] = keys[k] end) Then('print my keys',function() Iam() OUT[WHO] = { keys = ZEN.schemas.keys.export(ACK.keys) } end) Then("print my keys for ''", function(k) Iam() local keys = ZEN.schemas.keys.export(ACK.keys) if not OUT[WHO] then OUT[WHO] = { keys = { } } end OUT[WHO].keys[k] = keys[k] end) -- data -- data as -- data from -- data from as -- my data -- my data as -- my data from -- my data from as Then('print data',function() for k, v in pairs(ACK) do OUT[k] = then_outcast(v, check_codec(k)) end end ) Then("print data as ''",function(e) local fun for k, v in pairs(ACK) do OUT[k] = then_outcast(v, e) end end ) Then("print data from ''", function(src) local obj = have(src) for k,v in pairs(obj) do ACK[k] = true -- to legitimate new_codec creation OUT[k] = then_outcast( v, check_codec(src) ) end end) Then("print data from '' as ''", function(src, e) local obj = have(src) for k,v in pairs(obj) do ACK[k] = true -- to legitimate new_codec creation OUT[k] = then_outcast( v, e ) end end) Then('print my data',function() Iam() -- sanity checks OUT[WHO] = { } for k, v in pairs(ACK) do OUT[WHO][k] = then_outcast( v, check_codec(k) ) end end) Then("print my data as ''",function(e) Iam() -- sanity checks OUT[WHO] = { } for k, v in pairs(ACK) do OUT[WHO][k] = then_outcast( v, e ) end end ) Then("print my data from ''",function(src) Iam() -- sanity checks OUT[WHO] = { } local obj = have(src) for k, v in pairs(obj) do OUT[WHO][k] = then_outcast( v, check_codec(k) ) end end ) Then("print my data from '' as ''",function(src, e) Iam() -- sanity checks OUT[WHO] = { } local obj = have(src) for k, v in pairs(obj) do OUT[WHO][k] = then_outcast( v, e ) end end ) Then("print object named by ''", function(name) local val = have(name):string() local real_name = have(val) OUT[val] = then_outcast( real_name, check_codec(val) ) end) --[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Alberto Lerda -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --]] -- Tables supplied as arguments are not changed. -- Table to hold statistical functions stats={} -- Get the mean value of a table function stats.average( t ) local zero = BIG.new(0) local one = BIG.new(1) local sum = zero local count = zero for k,v in pairs(t) do local t = type(v) if t == 'number' then v = BIG.from_decimal(tostring(v)) elseif iszen(t) then v = BIG.from_decimal(v:octet():string()) else error("Unknown type for number", 2) end if type(v) == 'zenroom.big' then local newsum = sum + v count = count + one ZEN.assert(newsum > sum, "Overflow in sum") sum = newsum end end ZEN.assert(count > zero, "No numbers in array") return (sum / count) end -- Get the variance of a table function stats.variance( t ) local zero = BIG.new(0) local one = BIG.new(1) local m local vm local sum = zero local count = zero local result m = stats.average( t ) for k,v in pairs(t) do local t = type(v) if t == 'number' then v = BIG.from_decimal(tostring(v)) elseif iszen(t) then v = BIG.from_decimal(v:octet():string()) else error("Unknown type for number", 2) end if type(v) == 'zenroom.big' then local newsum vm = v - m newsum = sum + (vm * vm) ZEN.assert(newsum > sum, "Overflow in sum") count = count + one sum = newsum end end ZEN.assert(count > one, "Not enough numbers (at least 2)") result = sum / (count-one) return result end function stats.standardDeviation( t ) return BIG.sqrt(stats.variance( t )) end return stats  local big = require'big' -- optimization: we could implement it in C function big.sqrt(num) local two = BIG.new(2) local xn = num local xnn; if xn ~= BIG.new(0) then xnn = (xn + (num / xn)) / two while xnn < xn do xn = xnn xnn = (xn + (num / xn)) / two end end return xn end return big I--[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Alberto Lerda -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --]] local ETH = {} -- number to octet (n2o), were number is a big integer -- in RLP the 0 is reppresented as the empty octet function ETH.n2o(num) if num == INT.new(0) then return O.new() else return num:octet() end end -- idem for octet to number (o2n) function ETH.o2n(o) if #o == 0 then return INT.new(0) else return INT.new(o) end end -- the empty octect is encoded as nil -- a table contains in the first position (i.e. 1) the number of elements function ETH.encodeRLP(data) local header = nil local res = nil local byt = nil if type(data) == 'zenroom.big' then data = ETH.n2o(data) end if type(data) == 'table' then -- empty octet res = O.new() for _, v in pairs(data) do res = res .. ETH.encodeRLP(v) end if #res < 56 then res = INT.new(192+#res):octet() .. res else -- Length of the result to be saved before the bytes themselves byt = INT.new(#res):octet() header = INT.new(247+#byt):octet() .. byt end elseif iszen(type(data)) then res = data:octet() -- index single bytes of an octet local byt = INT.new(0) if #res > 0 then byt = INT.new( res:chop(1) ) end if #res ~= 1 or byt >= INT.new(128) then if #res < 56 then header = INT.new(128+#res):octet() else -- Length of the result to be saved before the bytes themselves byt = INT.new(#res):octet() header = INT.new(183+#byt):octet() .. byt end end else error("Invalid data type for ETH RLP encoder: "..type(data)) end if header then res = header .. res end return res end -- i is the position from which we start to parse -- return a table with -- * res which is the content read -- * idx which is the position of the next byte to read local function decodeRLPgeneric(rlp, i) local byt, res, idx local u128 u128 = INT.new(128) byt = rlp:sub(i, i) idx=i+1 bytInt = tonumber(byt:hex(), 16) if bytInt < 128 then res = byt elseif bytInt <= 183 then idx = i+bytInt-128+1 if bytInt == 128 then res = O.new() else res = rlp:sub(i+1, idx-1) end elseif bytInt < 192 then local sizeEnd = bytInt-183; local size = tonumber(rlp:sub(i+1, i+sizeEnd):hex(), 16) idx = i+sizeEnd+size+1 res = rlp:sub(i+sizeEnd+1, idx-1) else -- it is a tuple local j if bytInt <= 247 then idx = i+bytInt-192+1 -- total number of bytes else -- decode big endian encoding local sizeEnd sizeEnd = bytInt-247; local size = tonumber(rlp:sub(i+1, i+sizeEnd):hex(), 16) idx = i+sizeEnd+size+1 i=i+sizeEnd end i=i+1 -- initial position j=1 -- index inside res res = {} -- decode the tuple in a table while i < idx do local readNext readNext = decodeRLPgeneric(rlp, i) res[j] = readNext.res j = j+1 i = readNext.idx end end return { res=res, idx=idx } end function ETH.decodeRLP(rlp) return decodeRLPgeneric(rlp, 1).res end function ETH.encodeTransaction(tx) local fields = {tx["nonce"], tx["gas_price"], tx["gas_limit"], tx["to"], tx["value"], tx["data"], tx["v"], tx["r"], tx["s"]} return ETH.encodeRLP(fields) end function ETH.decodeTransaction(rlp) local t = ETH.decodeRLP(rlp) return { nonce=ETH.o2n(t[1]), gas_price=ETH.o2n(t[2]), gas_limit=ETH.o2n(t[3]), to=t[4], value=ETH.o2n(t[5]), data=t[6], v=ETH.o2n(t[7]), r=t[8], s=t[9] } end -- modify the input transaction function ETH.encodeSignedTransaction(sk, tx) local H, txHash, sig, pk, x, y, two, res H = HASH.new('keccak256') txHash = H:process(ETH.encodeTransaction(tx)) sig, y = ECDH.sign_ecdh(sk, txHash) two = INT.new(2) res = tx res.v = two * INT.new(tx.v) + INT.new(35) + INT.new(y) % two res.r = INT.new(sig.r) res.s = INT.new(sig.s) return ETH.encodeTransaction(res) end -- Verify the signature of a transaction which implements EIP-155 -- Simple replay attack protection -- https://github.com/ethereum/EIPs/blob/master/EIPS/eip-155.md function ETH.verifySignatureTransaction(pk, txSigned) local fields, H, txHash, tx fields = {"nonce", "gasPrice", "gasLimit", "to", "value", "data"} -- construct the transaction which was signed tx = {} for _, v in pairs(fields) do tx[v] = txSigned[v] end tx["v"] = (txSigned["v"]-INT.new(35))/INT.new(2) tx["r"] = O.new() tx["s"] = O.new() H = HASH.new('keccak256') txHash = H:process(ETH.encodeTransaction(tx)) sig = { r=txSigned["r"], s=txSigned["s"] } return ECDH.verify_hashed(pk, txHash, sig, #txHash) end -- Assume we are given a smart contract with a function with the -- following signature -- function writeString(string memory) -- We send a string and the smart contract signals an event -- Smart contract -- // SPDX-License-Identifier: GPL-3.0 -- pragma solidity ^0.8.4; -- contract SaveString { -- event StringSaveEvent(address user, string content); -- function writeString(string memory content) public { -- emit StringSaveEvent(msg.sender, content); -- } -- } -- Taken from https://docs.soliditylang.org/en/v0.5.6/abi-spec.html#function-selector-and-argument-encoding function ETH.make_storage_data(src) local fId, offset, paddingLength, padding, bytLen, paddingLen -- local H = HASH.new('keccak256') -- string.sub(hex(H:process('storage(string)')), 1, 8) fId = O.from_hex('b374012b') -- dynamic parameter are saved at the end of string, this is at which offset they are saved offset = O.from_hex('0000000000000000000000000000000000000000000000000000000000000020') -- length as a 256 unsigned integer bytLen = INT.new(#src):octet() paddingLength = 32-#bytLen paddingLen = O.zero(paddingLength) paddingLength = #src % 32 if paddingLength > 0 then paddingLength = 32 - paddingLength padding = O.zero(paddingLength) else padding = O.new() end -- done with padding return fId .. offset .. paddingLen .. bytLen .. src .. padding end -- generate an ethereum keypair function ETH.keygen() local kp = ECDH.keygen() -- the address is the keccak hash of the x concatenated with -- the y of the public key (without 04 at the beginning!) -- Taken from https://github.com/ethereumbook/ethereumbook/blob/develop/04keys-addresses.asciidoc -- in the section Ethereum Address -- or in the Yellow Paper -- Warning: we take only the last 20bytes of the hash (...) return { address=ETH.address_from_public_key(kp.public), private=kp.private, } end function ETH.address_from_public_key(pk) local H = HASH.new('keccak256') return H:process(pk:sub(2, #pk)):sub(13, 32) end -- Really simple data encoder, it only works with elementary types (for -- example ERC-20 only uses this kind of data types) function ETH.data_contract_builder(fz_name, params) local H = HASH.new('keccak256') if type(params) ~= 'table' then params = {} end local signature = fz_name .. '(' .. table.concat(params, ",") .. ')' local f_id = O.from_hex(string.sub(hex(H:process(signature)), 1, 8)) return function(...) local args = table.pack(...) local res = f_id for i, v in ipairs(params) do -- I don't check the range of values (for bool the input should be 0 or 1), -- while for int should be 0 ... 2^()-1 if string.match(v, 'uint%d+') or v == 'address' then res = res .. BIG.new(args[i]):fixed(32) elseif v == 'bool' then res = res .. BIG.new(fif(args[i], 1, 0)):fixed(32) end end return res end end function ETH.contract_return_builder(params) if type(params) ~= 'table' then params = {} end -- @param val string or octet with the value returned by the contract return function(val) if type(val) == 'string' then val = string.gsub(val, '^0x', '') val = O.from_hex(val) end assert(type(val) == 'zenroom.octet') local res = {} for i, v in ipairs(params) do -- I don't check the range of values (for bool the input should be 0 or 1), -- while for int should be 0 ... 2^()-1 if v == 'address' or string.match(v, '^uint%d+$') then table.insert(res, BIG.new(val:sub(32 * (i-1)+1, 32 * i))) elseif v == 'bool' then table.insert(res, BIG.new(val:sub(32 * (i-1)+1, 32 * i)) ~= BIG.new(0)) elseif v == 'string' then -- TODO: don't know the maximum size of argument -- there could be an overflow local offset = tonumber(val:sub(32 * (i-1)+1, 32 * i):hex(), 16) local slen = tonumber(val:sub(1+offset, 32+offset):hex(), 16) local s = val:sub(1+offset+32, offset+32+slen):string() table.insert(res, s) else assert(false, "Unknown data type") end end return res end end -- methods with the modifier "view" have to be executed (locally) with -- eth_call, they don't change the blockchain -- the i property are the input parameter -- the o property is (are) the output return types local ERC20_SIGNATURES = { balanceOf = { i={'address'}, o={'uint256'}, view=true }, transfer = { i={'address', 'uint256'}, o={'bool'} }, approve = { i={'address', 'uint256'}, o={'bool'} }, allowance = { i={'address', 'address'}, view=true, o={'uint256'} }, transferFrom = { i={'address', 'address', 'uint256'}, o={'bool'} }, decimals = { o={'uint8'}, view=true }, name = { o={'string'}, view=true }, symbol = { o={'string'}, view=true }, totalSupply = { o={'uint256'}, view=true }, } ETH.erc20 = {} for k, v in pairs(ERC20_SIGNATURES) do ETH.erc20[k] = ETH.data_contract_builder(k, v.i) end ETH.erc20return = {} for k, v in pairs(ERC20_SIGNATURES) do ETH.erc20return[k] = ETH.contract_return_builder(v.o) end local FAUCET_SIGNATURES = { transfer = { i={'address'} }, } ETH.faucet = {} for k, v in pairs(FAUCET_SIGNATURES) do ETH.faucet[k] = ETH.data_contract_builder(k, v.i) end return ETH u* --[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 13th November 2021 --]] --- Zencode data internals -- Used in scenario's schema declarations to cast to zenroom. type ZEN.get = function(obj, key, conversion, encoding) if type(key) ~= 'string' then error('ZEN.get key is not a string', 2) end if conversion and type(conversion) ~= 'function' then error('ZEN.get invalid conversion function', 2) end if encoding and type(encoding) ~= 'function' then error('ZEN.get invalid encoding function', 2) end local k if not obj then -- take from IN root -- does not support to pick in WHO (use of 'my') k = KIN[key] or IN[key] else if key == '.' then k = obj else k = obj[key] end end if not k then error('Key not found in object conversion: ' .. key, 2) end local res = nil local t = type(k) if iszen(t) and conversion then res = conversion(k) goto ok end if iszen(t) and not conversion then res = k goto ok end if t == 'string' then if encoding then res = encoding(k) else res = CONF.input.encoding.fun(k) end if conversion then res = conversion(res) end goto ok end if t == 'number' then res = k end if t == 'table' then if encoding then res = deepmap(encoding, k) else res = deepmap(CONF.input.encoding.fun, k) end if conversion then res = deepmap(conversion, res) end end ::ok:: assert( ZEN.OK and res, 'ZEN.get on invalid key: ' .. key .. ' (' .. t .. ')', 2) return res end -- return leftmost and rightmost if definition string indicates -- a lua table: dictionary, array or schema local function expect_table(definition) local toks = strtok(definition, '[^_]+') local res = { rightmost = toks[#toks] } if res.rightmost == 'array' or res.rightmost == 'dictionary' then res.leftwords = '' -- concat all left words in toks minus the last for i = 1, #toks - 2 do res.leftwords = res.leftwords .. toks[i] .. '_' end res.leftwords = uscore( res.leftwords .. toks[#toks - 1] ) -- no trailing underscore return res end -- schemas may or may be not tables end --- Given block (IN read-only memory) -- @section Given --- -- Guess how to convert the object, using what format or schema -- check the definition string (coming straight from zencode) -- considering the type of the object: -- ``` -- type def conv -- ------------------------------------------------------ -- schema schema_f(===, default_encoding) -- str format input_encoding(format) -- num input_encoding(number) -- table f dict deepmap(table, input_encoding(f)) -- table f array deepmap(table, input_encoding(f)) -- ``` -- returns a table with function pointers and string desc that -- will be used by @{operate_conversion} -- { fun = conversion function pointer -- conversion = conversion string description -- check = check function pointer -- raw = raw data pointer -- (name) = key name of data (set externally) -- (root) = root section name (set externally) -- luatype = type of raw data for lua -- zentype = type of data for zenroom (array, dict, element, schema) -- } function guess_conversion(obj, definition) local t local objtype = luatype(obj) local res if not definition then error("Cannot take undefined object, found a "..type(obj), 3) end -- a defined schema overrides any other conversion t = ZEN.schemas[definition] if t then -- complex schema is a table specfying in/out conversions as: {import=fun, export=fun} local c = fif(luatype(t)=='table', 'complex', CONF.output.encoding.name) -- default is always the configured output encoding return ({ fun = t, zentype = 'schema', luatype = objtype, raw = obj, encoding = c }) end if objtype == 'string' then if expect_table(definition) then error("Cannot take object: expected '"..definition.."' but found '"..objtype.."' (not a table)",3) end res = input_encoding(definition) res.luatype = 'string' res.zentype = 'element' res.raw = obj return (res) end -- definition: value_encoding .. data_type -- value_encoding: base64, hex, etc. -- data_type: array, dictionary, structure if objtype == 'table' then local def = expect_table(definition) if not def then -- check if the last word is among zentype collections error("Cannot take object: expected '"..definition .."' but found '"..objtype.."' (not a dictionary or array)",3) end -- schema type in array or dict t = ZEN.schemas[ def.leftwords ] if t then return ({ fun = t, zentype = 'schema', schema = def.leftwords, luatype = objtype, raw = obj, encoding = def.rightmost }) end -- normal type in input encoding: string, base64 etc. res = input_encoding(def.leftwords) if res then res.luatype = 'table' res.zentype = def.rightmost -- zentypes couples with table res.raw = obj return (res) end error("Cannot take object: invalid "..def.rightmost.." with encoding "..def.leftwords, 3) return nil end if objtype == 'number' or tonumber(obj) then if expect_table(definition) then error("Cannot take object: expected '"..definition.."' but found '"..objtype.."' (not a table)",3) elseif definition ~= 'number' then error("Cannot take object: expected '"..definition.."' but found '"..objtype.."'",3) end res = input_encoding(objtype) res.luatype = 'number' res.zentype = 'element' if obj > 2147483647 then error('Overflow of number object over 32bit signed size', 3) -- TODO: maybe support unsigned native here end res.raw = obj -- any type of additional conversion from a native number -- detected at input can happen here, for instance using a new -- native unsigned integer return (res) end error('Cannot take object: invalid conversion for type '..objtype..': '..definition, 3) return nil end -- takes a data object and the guessed structure, operates the -- conversion and returns the resulting raw data to be used inside the -- WHEN block in HEAP. function operate_conversion(guessed) if not guessed.fun then error('No conversion operation guessed', 2) return nil end -- carry guessed detection in CODEC ZEN.CODEC[guessed.name] = { name = guessed.name, encoding = guessed.encoding, zentype = guessed.zentype, luatype = guessed.luatype, root = guessed.root } -- TODO: make xxx print to stderr! -- xxx('Operating conversion on: '..guessed.name) if guessed.zentype == 'schema' then -- error('Invalid schema conversion for encoding: '..guessed.encoding, 2) local res = {} if guessed.encoding == 'array' then for _,v in pairs(guessed.raw) do table.insert(res, guessed.fun(v)) end return(res) elseif guessed.encoding == 'dictionary' then for k, v in pairs(guessed.raw) do res[k] = guessed.fun(v[guessed.schema]) end return (res) elseif guessed.encoding == 'complex' then return guessed.fun.import(guessed.raw) else return guessed.fun(guessed.raw) end elseif guessed.luatype == 'table' then -- TODO: better error checking on deepmap? if luatype(guessed.check) == 'function' then deepmap(guessed.check, guessed.raw) end return deepmap(guessed.fun, guessed.raw) else -- object if guessed.check then guessed.check(guessed.raw) end return guessed.fun(guessed.raw) end end -- factory function to generate a function and return its pointer the -- function is generated using another pointer to function which is -- the encoder, plus it applies common safety checks for data types -- that must be excluded for encoding, as for instance numbers and -- booleans. -- arguments: encoder's name, conversion and check functions local function f_factory_encoder(encoder_n, encoder_f, encoder_c) return { fun = function(data) local dt = luatype(data) if dt == 'number' then return data elseif dt == 'boolean' then return data end return encoder_f(data) end, encoding = encoder_n, check = encoder_c } end -- gets a string and returns the associated function, string and prefix -- comes before schema check function input_encoding(what) if not luatype(what) == 'string' then error("Call to input_encoding argument is not a string: "..type(what),2) end if what == 'u64' or what == 'url64' then return f_factory_encoder('url64', O.from_url64, O.is_url64) elseif what == 'b64' or what =='base64' then return f_factory_encoder('base64', O.from_base64, O.is_base64) elseif what == 'b58' or what =='base58' then return f_factory_encoder('base58', O.from_base58, O.is_base58) elseif what == 'hex' then return f_factory_encoder('hex', O.from_hex, O.is_hex) elseif what == 'bin' or what == 'binary' then return f_factory_encoder('binary', O.from_bin, O.is_bin) elseif what == 'str' or what == 'string' then -- string has no check function return f_factory_encoder('string', O.from_string, nil) elseif what =='mnemonic' then -- mnemonic has no check function (TODO:) return f_factory_encoder('mnemonic', O.from_mnemonic, nil) elseif what == 'num' or what == 'number' then return f_factory_encoder('number', function(data) return tonumber(data) end, function(data) if not tonumber(data) then error("Invalid encoding, not a number: " ..type(data), 3) end end) end error("Input encoding not found: " .. what, 2) return nil end -- factory function returns a small outcast function that applies -- return guessed.fun(guessed.raw)safety checks on values like -- exceptions for numbers and booleans local function f_factory_outcast(fun) return function(data) local dt = luatype(data) -- passthrough native number data if dt == 'number' or dt == 'boolean' then return data elseif iszen(dt) and dt ~= 'zenroom.octet' then -- leverage first class citizen method on zenroom data return fun(data:octet()) end return fun(data) end end -- takes a string returns the function, good for use in deepmap(fun,table) function guess_outcast(cast) if not cast then error('guess_outcast called with nil argument', 2) end if luatype(cast) ~= 'string' then error('guess_outcast called with wrong argument: '..type(cast), 3) end if cast == 'string' then return f_factory_outcast(O.to_string) elseif cast == 'hex' then return f_factory_outcast(O.to_hex) elseif cast == 'base64' then return f_factory_outcast(O.to_base64) elseif cast == 'url64' then return f_factory_outcast(O.to_url64) elseif cast == 'base58' then return f_factory_outcast(O.to_base58) elseif cast == 'binary' or cast == 'bin' then return f_factory_outcast(O.to_bin) elseif cast == 'mnemonic' then return f_factory_outcast(O.to_mnemonic) elseif cast == 'number' then return f_factory_outcast(tonumber) elseif cast == 'boolean' then return function(data) return data end end -- try schemas local fun = ZEN.schemas[uscore(cast, ' ', '_')] if luatype(fun) == 'table' then -- complex schema encoding assert(luatype(fun.export) == 'function', "Guess outcast cannot find schema export") return fun.export else return CONF.output.encoding.fun end error('Invalid output conversion: ' .. cast, 2) return nil end function get_format(what) if what == 'json' or what == 'JSON' then return { fun = JSON.auto, name = 'json' } elseif what == 'cbor' or what == 'CBOR' then return { fun = CBOR.auto, name = 'cbor' } end error("Conversion format not supported: "..what, 2) return nil end -- CODEC format: -- { name: string, -- encoding: encoder name string or 'complex' handled by schema -- zentype: zencode type: element, array, dictionary or schema -- luatype: lua type (string, number, table or userdata) -- schema: schema name used to import (may differ from name) -- } -- return: name of codec encoding function check_codec(name) if not ZEN.CODEC then return CONF.output.encoding.name end if not ZEN.CODEC[name] then xxx('Object has no CODEC registration: ' .. name) return CONF.output.encoding.name end local codec = ZEN.CODEC[name] if codec.zentype == 'schema' then if codec.encoding == 'complex' then local sch = codec.schema or codec.name assert(ZEN.schemas[sch], "Complex export for schema not found: "..name) assert(luatype(ZEN.schemas[sch].export) == 'function', "Complex export for schema is not a function: "..name) return name -- name of schema itself as it contains export end else return codec.encoding or CONF.output.encoding.name end return CONF.output.encoding.name end function new_codec(cname, parameters, clone) if not cname then error("Missing name in new codec", 2) end local name = fif(luatype(cname) == 'string', uscore(cname), cname) -- may be a numerical index if not ACK[name] then error("Cannot create codec, object not found: "..name, 2) end if ZEN.CODEC[name] then error("Cannot overwrite ZEN.CODEC."..name, 2) end local res if clone and not ZEN.CODEC[clone] then error("Clone not found in ZEN.CODEC."..clone, 2) end if ZEN.CODEC[clone] then res = deepcopy(ZEN.CODEC[clone]) res.name = name else res = { name = name } end -- overwrite with paramenters in argument if parameters then for k,v in pairs(parameters) do res[k] = v end end -- detect zentype and luatype if not res.luatype then res.luatype = luatype(ACK[name]) end if not res.zentype then if res.luatype == 'table' then if isdictionary(ACK[name]) then res.zentype = 'dictionary' elseif isarray(ACK[name]) then res.zentype = 'array' else error("Unknown zentype for lua table: "..name, 2) end else res.zentype = 'element' end end ZEN.CODEC[name] = res return(res) -- redundant, should not use return value for efficiency end -- Crawls a whole table structure and collects all strings and octets -- contained in its keys and values. Converts numbers to -- strings. Structure returned is: -- { octets = zenroom.octet -- strings = string } -- calling function may want to convert all to octet or string -- -- apply a function on all keys and values of a tree structure -- uses sorted listing for deterministic order local function sort_apply(fun,t,...) if luatype(fun) ~= 'function' then error("Internal error: apply 1st argument is not a function", 3) return nil end -- if luatype(t) == 'number' then -- return t end if luatype(t) ~= 'table' then error("Internal error: apply 2nd argument is not a table", 3) return nil end for k,v in sort_pairs(t) do -- OPTIMIZATION: was sort_pairs if luatype(v) == 'table' then sort_apply(fun,v,...) -- recursion else fun(v,k,...) end end end function serialize(tab) assert(luatype(tab) == 'table', 'Cannot serialize: not a table', 2) local octets = OCTET.zero(1) local strings = { 'K' } sort_apply( function(v, k) table.insert(strings, tostring(k)) if iszen(type(v)) then -- TODO: optimize octet concatenation in C -- to avoid reallocation of new octets in this loop -- should count total length allocate one and insert octets = octets.. v:octet() else -- number table.insert(strings, tostring(v)) end end, tab ) return { octets = octets, -- string concatenation is optimized strings = table.concat(strings) } end -- eliminate all empty string objects "" and all empty dictionaries -- (containing only empy objects), uses recursion into tables function prune(tab) assert(luatype(tab) == 'table', 'Cannot prune: not a table', 2) local pruned_values = deepmap(function(v) if #v == 0 then return nil else return v end end, tab) local function prune_in(ttab) local res = { } local next = next local luatype = luatype for k,v in pairs(ttab) do if luatype(v) == 'table' then if next(v) == nil then res[k] = nil -- {} to nil else res[k] = prune_in(v) -- recursion end else res[k] = v end end return setmetatable(res, getmetatable(ttab)) end pruned_tables = prune_in(pruned_values) return pruned_tables end --- -- Compare equality of two data objects (TODO: octet, ECP, etc.) -- @function ZEN:eq(first, second) --- -- Check that the first object is greater than the second (TODO) -- @function ZEN:gt(first, second) --- -- Check that the first object is lesser than the second (TODO) -- @function ZEN:lt(first, second) --- Then block (OUT write-only memory) -- @section Then --- -- Move a generic data structure from ACK to OUT memory space, ready -- for its final JSON encoding and print out. -- @function ZEN:out(name) --- -- Move 'my own' data structure from ACK to OUT.whoami memory space, -- ready for its final JSON encoding and print out. -- @function ZEN:outmy(name) eI--[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Friday, 12th November 2021 --]] -- DESCRIPTION: Special keys schema has optional members common to -- multiple scenarios, it provides a common interface to create keys, -- verifiers and check their existance. It does not use the keys, that's -- up to the specific scenarios. One single scenario may require and use -- the same key types (one or more) as others do, for instance reflow -- uses bls and credential, petition uses credential and ecdh. function initkeys(ktype) if luatype(ACK.keys) == 'table' then -- TODO: check that curve types match elseif ACK.keys == nil then -- initialise empty ACK.keys ACK.keys = {} -- TODO: save curve types new_codec('keys', { zentype = 'schema', luatype = 'table', encoding = 'complex' }) else error('Keys table is corrupted', 2) end -- if ktype is specified then check overwriting if ktype then ZEN.assert( not ACK.keys[uscore(ktype)], 'Cannot overwrite existing key: ' .. ktype ) end end When("create the keys", function() empty'keys' initkeys() end) -- KNOWN KEY TYPES FOUND IN ACK.keys local keytypes = { ecdh = true, credential = true, issuer = true, bls = true, reflow = true, bitcoin = true, testnet = true, ethereum = true } function havekey(ktype) local kname = uscore(ktype) ZEN.assert(keytypes[kname], 'Unknown key type: ' .. ktype) -- check that keys exist and are a table initkeys() local res = ACK.keys[kname] ZEN.assert(res, 'Key not found: ' .. ktype) return res end local function nop(x) return(x) end local function _keys_import(obj) -- ecdh_curve -- bls_curve local res = {} if obj.ecdh then res.ecdh = ZEN.get(obj, 'ecdh') end if obj.credential then res.credential = ZEN.get(obj, 'credential', INT.new) end if obj.issuer then res.issuer = { x = ZEN.get(obj.issuer, 'x', INT.new), y = ZEN.get(obj.issuer, 'y', INT.new) } end if obj.bls then res.bls = ZEN.get(obj, 'bls', INT.new) end if obj.reflow then res.reflow = ZEN.get(obj, 'reflow', INT.new) end if obj.bitcoin then res.bitcoin = ZEN.get(obj, 'bitcoin', BTC.wif_to_sk, O.from_base58) end if obj.testnet then res.testnet = ZEN.get(obj, 'testnet', BTC.wif_to_sk, O.from_base58) end if obj.ethereum then res.ethereum = ZEN.get(obj, 'ethereum', nop, O.from_hex) end return (res) end local function _default_export(obj) local fun = guess_outcast(CONF.output.encoding.name) return fun(obj) end local function _keys_export(obj) -- ecdh_curve -- bls_curve local res = {} if obj.ecdh then res.ecdh = _default_export(obj.ecdh) end if obj.credential then res.credential = _default_export(obj.credential) end if obj.issuer then local fun = guess_outcast(CONF.output.encoding.name) res.issuer = deepmap(fun, obj.issuer) end if obj.bls then res.bls = _default_export(obj.bls) end if obj.reflow then res.reflow = _default_export(obj.reflow) end if obj.bitcoin then res.bitcoin = O.to_base58( BTC.sk_to_wif(obj.bitcoin, 'bitcoin') ) end if obj.testnet then res.testnet = O.to_base58( BTC.sk_to_wif(obj.testnet, 'testnet') ) end if obj.ethereum then res.ethereum = O.to_hex(obj.ethereum) end return (res) end ZEN.add_schema( { keys = { import = _keys_import, export = _keys_export } } ) a--[[ --This file is part of zenroom -- --Copyright (C) 2021 Dyne.org foundation --designed, written and maintained by Alberto Lerda and Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Tuesday, 20th July 2021 --]] local ecdh = require'ecdh' function ecdh.compress_public_key(public) local x, y = ECDH.pubxy(public) local pfx = fif( BIG.parity(BIG.new(y) ), OCTET.from_hex('03'), OCTET.from_hex('02') ) local pk = pfx .. x return pk end function ecdh.uncompress_public_key(public) local p = BIG.new(O.from_hex('fffffffffffffffffffffffffffffffffffffffffffffffffffffffefffffc2f')) local e = BIG.new(O.from_hex('3fffffffffffffffffffffffffffffffffffffffffffffffffffffffbfffff0c')) local parity = public:sub(1,1) assert(parity == O.from_hex('02') or parity == O.from_hex('03')) local x = BIG.new(public:sub(2, #public)) -- y*y = x*x*x + 7 local rhs = BIG.mod(BIG.modmul(BIG.modmul(x,x,p),x,p)+BIG.new(7),p) local sqrt_rhs = rhs:modpower(e, p) assert(BIG.modmul(sqrt_rhs,sqrt_rhs, p) == rhs) if sqrt_rhs:parity() ~= (parity == O.from_hex('03')) then -- this is a xor sqrt_rhs = sqrt_rhs:modneg(p) end return O.from_hex('04') .. x .. sqrt_rhs end -- it is similar to sign eth, s < order/2 function ecdh.sign_ecdh(sk, data) local halfSecp256k1n = INT.new(hex('7fffffffffffffffffffffffffffffff5d576e7357a4501ddfe92f46681b20a0')) local sig sig = nil repeat sig, y = ECDH.sign_hashed(sk, data, #data) until(INT.new(sig.s) < halfSecp256k1n); return sig, y end -- Compute the compressed public key (pubc) from the secret key function ecdh.sk_to_pubc(sk) if not #sk == 32 then error("Invalid ecdh private key size: "..#sk) end return( ECDH.compress_public_key( ECDH.pubgen(sk) ) ) end return ecdh --[[ --This file is part of zenroom -- --Copyright (C) 2018-2022 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 27th November 2021 --]] local stats = require('stats') -- array operations local function check_container(name) ZEN.assert(ACK[name], "Invalid container, not found: "..name) ZEN.assert(luatype(ACK[name]) == 'table', "Invalid container, not a table: "..name) if ZEN.CODEC[name] then ZEN.assert(ZEN.CODEC[name].zentype ~= 'element', "Invalid container: "..name.." is a "..ZEN.CODEC[name].zentype) else xxx("Object has no CODEC registration: "..name) end end local function check_element(name) local o = ACK[name] ZEN.assert(o, "Invalid element, not found: "..name) ZEN.assert(iszen(type(o)), "Invalid element, not a zenroom object: "..name.." ("..type(o)..")") if ZEN.CODEC[name] then ZEN.assert(ZEN.CODEC[name].zentype == 'element', "Invalid element: "..name.." is a "..ZEN.CODEC[name].zentype) else xxx("Object has no CODEC registration: "..name) end return o end local function _when_remove_dictionary(ele, from) -- ele is just the name (key) of object to remove local dict = have(from) ZEN.assert(dict, "Dictionary not found: "..from) if dict[ele] then ACK[from][ele] = nil -- remove from dictionary elseif ZEN.CODEC[ele].name ~= ele and dict[ZEN.CODEC[ele].name] then -- it may be a copy or random object with different name ACK[from][ZEN.CODEC[ele].name] = nil else error("Object not found in dictionary: "..ele.." in "..from) end end local function _when_remove_array(ele, from) local obj = have(ele) local arr = have(from) local found = false local newdest = { } for k,v in next,arr,nil do if not (v == obj) then table.insert(newdest,v) else found = true end end ZEN.assert(found, "Element to be removed not found in array") ACK[from] = newdest end When("remove the '' from ''", function(ele,from) local codec = ZEN.CODEC[from] ZEN.assert(codec, "No codec registration for target: "..from) if codec.zentype == 'dictionary' or codec.zentype == 'schema' then _when_remove_dictionary(ele, from) elseif codec.zentype == 'array' then _when_remove_array(ele, from) else I.warn({ CODEC = codec}) error("Invalid codec registration for target: "..from) end end) When("create the new array", function() ACK.new_array = { } new_codec('new array', {zentype='array', luatype='table'}) end) When("create the length of ''", function(arr) local obj = have(arr) ACK.length = #obj new_codec('length', {luatype='number',zentype='element'}) end) When("create the size of ''", function(arr) local obj = have(arr) ACK.size = #obj new_codec('size', {zentype='element',luatype='number'}) end) When("create the copy of element '' in array ''", function(pos, arr) ZEN.assert(ACK[arr], "No array found in: "..arr) ZEN.assert(isarray(ACK[arr]), "Not an array: "..arr) local num = tonumber(pos) ZEN.assert(num, "Argument is not a position number: "..pos) ZEN.assert(ACK[arr][num], "No element found in: "..arr.."["..pos.."]") ACK.copy = ACK[arr][num] -- TODO: support nested arrays or dictionaries new_codec('copy',{zentype='element',luatype=luatype(ACK.copy)},arr) end) When("insert string '' in ''", function(st, dest) local d = have(dest) ZEN.assert(luatype(d) == 'table', "Invalid destination, not a table: "..dest) ZEN.assert(ZEN.CODEC[dest].zentype == 'array', "Invalid destination, not an array: "..dest) table.insert(ACK[dest], O.from_string(st)) end) When("insert '' in ''", function(ele, dest) local d = have(dest) local e = have(ele) ZEN.assert(luatype(d) == 'table', "Invalid destination, not a table: "..dest) ZEN.assert(ZEN.CODEC[dest].zentype ~= 'element', "Invalid destination, not a container: "..dest) if ZEN.CODEC[dest].zentype == 'array' then table.insert(ACK[dest], e) elseif ZEN.CODEC[dest].zentype == 'dictionary' then ACK[dest][ele] = e elseif ZEN.CODEC[dest].zentype == 'schema' then ACK[dest][ele] = e else ZEN.assert(false, "Invalid destination type: " ..ZEN.CODEC[dest].zentype) end ZEN.CODEC[dest][ele] = ZEN.CODEC[ele] ACK[ele] = nil ZEN.CODEC[ele] = nil end) -- When("insert the '' in ''", function(ele,arr) -- ZEN.assert(ACK[ele], "Element not found: "..ele) -- ZEN.assert(ACK[arr], "Array not found: "..arr) -- ZEN.assert(ZEN.CODEC[arr].zentype == 'array', -- "Object is not an array: "..arr) -- table.insert(ACK[arr], ACK[ele]) -- end) IfWhen("the '' is not found in ''", function(ele, arr) local obj = ACK[ele] ZEN.assert(obj, "Element not found: "..ele) ZEN.assert(ACK[arr], "Array not found: "..arr) if ZEN.CODEC[arr].zentype == 'array' then for k,v in pairs(ACK[arr]) do ZEN.assert(v ~= obj, "Element '"..ele.."' is contained inside: "..arr) end elseif ZEN.CODEC[arr].zentype == 'dictionary' then for k,v in pairs(ACK[arr]) do local val = k if luatype(k) == 'string' then val = O.from_string(k) end ZEN.assert(val ~= obj, "Element '"..ele.."' is contained inside: "..arr) end else ZEN.assert(false, "Invalid container type: "..arr.." is "..ZEN.CODEC[arr].zentype) end end) IfWhen("the '' is found in ''", function(ele, arr) local obj = ACK[ele] ZEN.assert(obj, "Element not found: "..ele) ZEN.assert(ACK[arr], "Array not found: "..arr) local found = false if ZEN.CODEC[arr].zentype == 'array' then for k,v in pairs(ACK[arr]) do if v == obj then found = true end end elseif ZEN.CODEC[arr].zentype == 'dictionary' then for k,v in pairs(ACK[arr]) do local val = k if luatype(k) == 'string' then val = O.from_string(k) end if val == obj then found = true end end else ZEN.assert(false, "Invalid container type: "..arr.." is "..ZEN.CODEC[arr].zentype) end ZEN.assert(found, "The content of element '"..ele.."' is not found inside: "..arr) end) IfWhen("the '' is found in '' at least '' times", function(ele, arr, times) local obj = have(ele) ZEN.assert( luatype(obj) ~= 'table', "Invalid use of table in object comparison: "..ele) local num = have(times) ZEN.assert( luatype(num) == 'number', "Not a number: "..times) local list = have(arr) ZEN.assert( luatype(list) == 'table', "Not a table: "..arr) ZEN.assert( isarray(list), "Not an array: "..arr) local found = 0 for _,v in pairs(list) do if v == obj then found = found + 1 end end ZEN.assert(found >= num, "Object "..ele.." found only "..found.." times instead of "..num.." in array "..arr) end) local function _aggr_array(arr) local A = have(arr) local codec = ZEN.CODEC[arr] ZEN.assert(codec.zentype == 'array' or (codec.zentype == 'schema' and codec.encoding == 'array'), "Object is not a valid array: "..arr) local count = isarray(A) ZEN.assert( count > 0, "Array is empty or invalid: "..arr) local res, par if luatype(A[1]) == 'number' then res = 0 for k,v in next,A,nil do res = res + tonumber(v) end par = {encoding='number',zentype='element'} elseif type(A[1]) == 'zenroom.big' then res = BIG.new(0) for k,v in next,A,nil do res = res + v end par = {zentype = 'element'} elseif type(A[1]) == 'zenroom.ecp' then res = ECP.generator() for k,v in next,A,nil do res = res + v end par = {zentype = 'element'} elseif type(A[1]) == 'zenroom.ecp2' then res = ECP2.generator() for k,v in next,A,nil do res = res + v end par = {zentype = 'element'} else error("Unknown aggregation for type: "..type(A[1])) end return res, par end When("create the aggregation of array ''", function(arr) empty'aggregation' local params ACK.aggregation, params = _aggr_array(arr) new_codec('aggregation', params) end) When("create the sum value of elements in array ''", function(arr) empty'sum value' local params ACK.sum_value, params = _aggr_array(arr) new_codec('sum value', params) end) When("create the average of elements in array ''", function(arr) empty'average' local data = have(arr) ACK.average = O.from_string(stats.average(data):decimal()) new_codec('average', { encoding="string" }) end) When("create the variance of elements in array ''", function(arr) empty'variance' local data = have(arr) ACK.variance = O.from_string(stats.variance(data):decimal()) new_codec('variance', { encoding="string" }) end) When("create the standard deviation of elements in array ''", function(arr) empty'standard_deviation' local data = have(arr) ACK.standard_deviation = O.from_string(stats.standardDeviation(data):decimal()) new_codec('standard_deviation', { encoding="string" }) end) $--[[ --This file is part of zenroom -- --Copyright (C) 2018-2021 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Friday, 26th November 2021 --]] --- WHEN -- nop to terminate IF blocks When("done", function() end) IfWhen("'' is found", function(n) have(n) end) IfWhen("'' is not found", function(n) ZEN.assert(ACK[n] == nil, "Object should not be found: "..n) end) When("append '' to ''", function(src, dest) local val = have(src) local dst = have(dest) -- if the destination is a number, fix the encoding to string if luatype(dst) == 'number' then dst = tostring(dst) ZEN.CODEC[dest].encoding = "string" ZEN.CODEC[dest].luatype = "string" ZEN.CODEC[dest].zentype = "element" end dst = dst .. val if luatype(dst) == 'string' then ACK[dest] = O.from_string(dst) else ACK[dest] = dst end end) When("create the ''", function(dest) empty (dest) ACK[dest] = { } ZEN.CODEC[dest] = guess_conversion(ACK[dest], dest) ZEN.CODEC[dest].name = dest end) When("create the '' named ''", function(sch, name) empty(name) ACK[name] = { } ZEN.CODEC[name] = guess_conversion(ACK[name], sch) ZEN.CODEC[name].name = name end) -- simplified exception for I write: import encoding from_string ... When("write string '' in ''", function(content, dest) empty(dest) ACK[dest] = O.from_string(content) ZEN.CODEC[dest] = new_codec(dest, {encoding = 'string', luatype = 'string', zentype = 'element' }) end) -- ... and from a number When("write number '' in ''", function(content, dest) empty(dest) -- TODO: detect number base 10 local num = tonumber(content) ZEN.assert(num, "Cannot convert value to number: "..content) if num > 2147483647 then error('Overflow of number object over 32bit signed size') -- TODO: maybe support unsigned native here end ACK[dest] = num ZEN.CODEC[dest] = new_codec(dest, {encoding = 'number', luatype = 'number', zentype = 'element' }) end) When("create the number from ''", function(from) empty'number' local get = have(from) local num = tonumber(O.to_string(get)) ZEN.assert(num, "Cannot convert object to number: "..from) if num > 2147483647 then error('Overflow of number object over 32bit signed size') -- TODO: maybe support unsigned native here end ACK.number = num ZEN.CODEC.number = new_codec('number', {encoding = 'number', luatype = 'number', zentype = 'element' }) end) When("set '' to '' as ''", function(dest, content, format) empty(dest) local guess = input_encoding(format) guess.raw = content guess.name = dest if format == 'number' then ACK[dest] = tonumber( operate_conversion(guess) ) else ACK[dest] = operate_conversion(guess) end -- ZEN.CODEC[dest] = new_codec(dest, { luatype = luatype(ACK[dest]), zentype = 'element' }) end) When("create the cbor of ''", function(src) have(src) empty'cbor' ACK.cbor = OCTET.from_string( CBOR.encode(ACK[src]) ) end) When("create the json of ''", function(src) have(src) empty'json' ACK.json = OCTET.from_string( JSON.encode(ACK[src]) ) end) -- numericals When("set '' to '' base ''", function(dest, content, base) empty(dest) local bas = tonumber(base) ZEN.assert(bas, "Invalid numerical conversion for base: "..base) local num = tonumber(content,bas) ZEN.assert(num, "Invalid numerical conversion for value: "..content) ACK[dest] = num ZEN.CODEC[dest] = new_codec(dest, {encoding = 'number', luatype = 'number', zentype = 'element' }) end) local function _delete_f(name) have(name) ACK[name] = nil ZEN.CODEC[name] = nil end When("delete ''", _delete_f) When("remove ''", _delete_f) When("rename the '' to ''", function(old,new) have(old) empty(new) ACK[new] = ACK[old] ACK[old] = nil ZEN.CODEC[new] = ZEN.CODEC[old] ZEN.CODEC[old] = nil end) When("rename '' to ''", function(old,new) have(old) empty(new) ACK[new] = ACK[old] ACK[old] = nil ZEN.CODEC[new] = ZEN.CODEC[old] ZEN.CODEC[old] = nil end) When("rename the object named by '' to ''", function(old,new) local oldo = have(old) local olds = oldo:octet():string() have(olds) empty(new) ACK[new] = ACK[olds] ACK[olds] = nil ZEN.CODEC[new] = ZEN.CODEC[olds] ZEN.CODEC[olds] = nil end) When("rename '' to named by ''", function(old,new) have(old) local newo = have(new) local news = newo:octet():string() empty(news) ACK[news] = ACK[old] ACK[old] = nil ZEN.CODEC[news] = ZEN.CODEC[old] ZEN.CODEC[old] = nil end) When("rename the object named by '' to named by ''", function(old,new) local oldo = have(old) local olds = oldo:octet():string() have(olds) local newo = have(new) local news = newo:octet():string() empty(news) ACK[news] = ACK[olds] ACK[olds] = nil ZEN.CODEC[news] = ZEN.CODEC[olds] ZEN.CODEC[olds] = nil end) When("copy the '' to ''", function(old,new) have(old) empty(new) ACK[new] = deepcopy(ACK[old]) new_codec(new, { }, old) end) When("copy '' to ''", function(old,new) have(old) empty(new) ACK[new] = deepcopy(ACK[old]) new_codec(new, { }, old) end) When("copy contents of '' in ''", function(src,dst) local obj = have(src) have(dst) for k, v in pairs(obj) do ACK[dst][k] = v -- no deepcopy -- no new codec (using dst) end end) When("copy contents of '' named '' in ''", function(src,name,dst) local obj = have(src) have(dst) for k, v in pairs(obj) do if k == name then ACK[dst][k] = v -- no deepcopy end -- no new codec (using dst) end end) When("copy the '' in '' to ''", function(old,inside,new) ZEN.assert(ACK[inside][old], "Object not found: "..old.." inside "..inside) empty(new) ACK[new] = deepcopy(ACK[inside][old]) new_codec(new, { }, inside) end) When("split the rightmost '' bytes of ''", function(len, src) local obj = have(src) empty'rightmost' local s = tonumber(len) ZEN.assert(s, "Invalid number arg #1: "..type(len)) local l,r = OCTET.chop(obj,#obj-s) ACK.rightmost = r ACK[src] = l new_codec('rightmost', { }, src) end) When("split the leftmost '' bytes of ''", function(len, src) local obj = have(src) empty'leftmost' local s = tonumber(len) ZEN.assert(s, "Invalid number arg #1: "..type(len)) local l,r = OCTET.chop(obj,s) ACK.leftmost = l ACK[src] = r new_codec('leftmost', { }, src) end) local function _numinput(num) local t = type(num) if not iszen(t) then if t == 'table' then -- TODO: only numbers supported, not zenroom.big local aggr = 0 for _,v in pairs(num) do aggr = aggr + _numinput(v) end return aggr, false elseif t ~= 'number' then error('Invalid numeric type: ' .. t, 2) end return num, false end if t == 'zenroom.octet' then return BIG.new(num), true elseif t == 'zenroom.big' then return num, true else return BIG.new(num:octet()), true -- may give internal errors end error("Invalid number", 2) return nil, false end -- escape math function overloads for pointers local function _add(l,r) return(l + r) end local function _sub(l,r) return(l - r) end local function _mul(l,r) return(l * r) end local function _div(l,r) return(l / r) end local function _mod(l,r) return(l % r) end local function _math_op(op, l, r) local left, lz = _numinput(l) local right, rz = _numinput(r) if lz ~= rz then error("Incompatible numeric arguments", 2) end local codec ACK.result = true -- new_codec checks existance if lz and rz then codec = new_codec('result', {encoding = CONF.output.encoding.name, luatype = 'string', zentype = 'big' }) else codec = new_codec('result', {encoding = 'number', luatype = 'number', zentype = 'element' }) end return op(left, right), codec end When("create the result of '' inverted sign", function(left) local l = have(left) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_sub, 0, l) end) When("create the result of '' + ''", function(left,right) local l = have(left) local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_add, l, r) end) When("create the result of '' in '' + ''", function(left, dict, right) local d = have(dict) local l = d[left] local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_add, l, r) end) When("create the result of '' in '' + '' in ''", function(left, ldict, right, rdict) local ld = have(ldict) local l = ld[left] local rd = have(rdict) local r = rd[right] empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_add, l, r) end) When("create the result of '' - ''", function(left,right) local l = have(left) local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_sub, l, r) end) When("create the result of '' in '' - ''", function(left, dict, right) local d = have(dict) local l = d[left] local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_sub, l, r) end) When("create the result of '' in '' - '' in ''", function(left, ldict, right, rdict) local ld = have(ldict) local l = ld[left] local rd = have(rdict) local r = rd[right] empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_sub, l, r) end) When("create the result of '' * ''", function(left,right) local l = have(left) local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_mul, l, r) end) When("create the result of '' in '' * ''", function(left, dict, right) local d = have(dict) local l = d[left] local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_mul, l, r) end) When("create the result of '' * '' in ''", function(left, right, dict) local l = have(left) local d = have(dict) local r = d[right] empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_mul, l, r) end) When("create the result of '' in '' * '' in ''", function(left, ldict, right, rdict) local ld = have(ldict) local l = ld[left] local rd = have(rdict) local r = rd[right] empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_mul, l, r) end) When("create the result of '' / ''", function(left,right) local l = have(left) local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_div, l, r) end) When("create the result of '' in '' / ''", function(left, dict, right) local d = have(dict) local l = d[left] local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_div, l, r) end) When("create the result of '' / '' in ''", function(left, right, dict) local l = have(left) local d = have(dict) local r = d[right] empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_div, l, r) end) When("create the result of '' in '' / '' in ''", function(left, ldict, right, rdict) local ld = have(ldict) local l = ld[left] local rd = have(rdict) local r = rd[right] empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_div, l, r) end) When("create the result of '' % ''", function(left,right) local l = have(left) local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_mod, l, r) end) When("create the result of '' in '' % ''", function(left, dict, right) local d = have(dict) local l = d[left] local r = have(right) empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_mod, l, r) end) When("create the result of '' in '' % '' in ''", function(left, ldict, right, rdict) local ld = have(ldict) local l = ld[left] local rd = have(rdict) local r = rd[right] empty 'result' ACK.result, ZEN.CODEC.result = _math_op(_mod, l, r) end) -- TODO: -- When("set '' as '' with ''", function(dest, format, content) end) -- When("append '' as '' to ''", function(content, format, dest) end) -- When("write '' as '' in ''", function(content, dest) end) -- implicit conversion as string -- https://github.com/dyne/Zenroom/issues/175 When("remove zero values in ''", function(target) have(target) ACK[target] = deepmap(function(v) if luatype(v) == 'number' then if v == 0 then return nil else return v end else return v end end, ACK[target]) end) -- When("remove all empty strings in ''", function(target) -- have(target) -- ACK[target] = deepmap(function(v) if trim(v) == '' then return nil end, ACK[target]) -- end) %2--[[ --This file is part of zenroom -- --Copyright (C) 2018-2022 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Saturday, 27th November 2021 --]] -- random operations, mostly on arrays and schemas supported When("create the random ''", function(dest) ZEN.assert(not ACK[dest], "Cannot overwrite existing value: "..dest) ACK[dest] = OCTET.random(32) -- TODO: right now hardcoded 256 bit random secrets end) function shuffle_array_f(tab) -- do not enforce CODEC detection since some schemas are also 1st level arrays local count = isarray(tab) ZEN.assert( count > 0, "Randomized object is not an array") local res = { } for i = count,2,-1 do local r = (random_int16() % i)+1 table.insert(res,tab[r]) -- limit 16bit lenght for arrays table.remove(tab, r) end table.insert(res,tab[1]) return res end -- random and hashing operations When("create the random object of '' bits", function(n) empty'random object' local bits = tonumber(n) ZEN.assert(bits, 'Invalid number of bits: ' .. n) ACK.random_object = OCTET.random(math.ceil(bits / 8)) new_codec('random_object', { zentype = 'element' }) end ) When("create the random object of '' bytes",function(n) empty'random object' local bytes = math.ceil(tonumber(n)) ZEN.assert(bytes, 'Invalid number of bytes: ' .. n) ACK.random_object = OCTET.random(bytes) new_codec('random_object', { zentype = 'element' }) end ) When("randomize the '' array", function(arr) local A = ACK[arr] ZEN.assert(A, "Object not found: "..arr) -- ZEN.assert(ZEN.CODEC[arr].zentype == 'array', "Object is not an array: "..arr) ACK[arr] = shuffle_array_f(A) end) When("create the array of '' random objects", function(s) ZEN.assert(not ACK.array, "Cannot overwrite existing object: ".."array") ACK.array = { } for i = s,1,-1 do table.insert(ACK.array,OCTET.random(64)) end new_codec('array', { luatype = 'table', zentype = 'array'}) end) When("create the array of '' random objects of '' bits", function(s, b) empty'array' ACK.array = { } local q = tonumber(s) ZEN.assert(q, "Argument is not a number: "..s) local bits = tonumber(b) local bytes = math.ceil(bits/8) for i = q,1,-1 do table.insert(ACK.array,OCTET.random(bytes)) end new_codec('array', { luatype = 'table', zentype = 'array'}) end) When("create the array of '' random objects of '' bytes", function(s, b) empty'array' ACK.array = { } local q = tonumber(s) ZEN.assert(q, "Argument is not a number: "..s) local bytes = math.ceil(tonumber(b)) for i = q,1,-1 do table.insert(ACK.array,OCTET.random(bytes)) end new_codec('array', { luatype = 'table', zentype = 'array'}) end) When("create the array of '' random numbers", function(s) ZEN.assert(not ACK.array, "Cannot overwrite existing object: ".."array") ACK.array = { } for i = s,1,-1 do table.insert(ACK.array,tonumber(random_int16())) end new_codec('array', { luatype = 'table', zentype = 'array', encoding = 'number' }) end) When("create the array of '' random numbers modulo ''", function(s,m) ZEN.assert(not ACK.array, "Cannot overwrite existing object: ".."array") ACK.array = { } for i = s,1,-1 do table.insert(ACK.array,math.floor(random_int16() % m)) end new_codec('array', { luatype = 'table', zentype = 'array', encoding = 'number' }) end) When("pick the random object in ''", function(arr) local A = have(arr) empty'random object' ZEN.assert(luatype(A) == 'table', "Object is not a table: "..arr) local tmp = { } local keys = { } for k,v in pairs(A) do table.insert(keys, k) table.insert(tmp, v) end local r = (random_int16() % #tmp) +1 ACK.random_object = tmp[r] new_codec('random_object', {name=keys[r]}) end) When("create the random dictionary with '' random objects from ''", function(num, from) local n = tonumber(num) if not n then n = tonumber(have(num)) end ZEN.assert(n, "Not a number and object not found"..num) local src = have(from) local dst = { } ZEN.assert(luatype(src) == 'table', "Object is not a table: "..from) for k,v in pairs(src) do if n == 0 then break end if tonumber(k) then table.insert(dst, v) else dst[k] = v end n = n - 1 end ACK.random_dictionary = dst new_codec('random_dictionary') end) /-- This file is part of Zenroom (https://zenroom.dyne.org) -- -- Copyright (C) 2018-2021 Dyne.org foundation designed, written and -- maintained by Denis Roio -- -- This program is free software: you can redistribute it and/or modify -- it under the terms of the GNU Affero General Public License as -- published by the Free Software Foundation, either version 3 of the -- License, or (at your option) any later version. -- -- This program is distributed in the hope that it will be useful, but -- WITHOUT ANY WARRANTY; without even the implied warranty of -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -- Affero General Public License for more details. -- -- You should have received a copy of the GNU Affero General Public -- License along with this program. If not, see -- . -- init script embedded at compile time. executed in -- zen_load_extensions(L) usually after zen_init() -- -- remap fatal and error function fatal(msg) if type(msg) == 'string' then warn(trim(msg), 2) end debug.traceback() -- if ZEN_traceback ~= "" then ZEN:debug() end if DEBUG > 1 then -- TODO: ZEN:backtrace() and traceback as sorted array warn(ZEN_traceback) end if DEBUG > 2 then -- TODO: ZEN:dump() I.warn( { HEAP = { IN = IN, TMP = TMP, ACK = ACK, OUT = OUT } } ) end ZEN:debug() msg = msg or 'fatal error' error(msg, 2) end -- global REQUIRED = {} -- avoid duplicating requires (internal includes) function require_once(ninc) local class = REQUIRED[ninc] local _res if not class then _res, class = pcall( function() return require(ninc) end ) assert(_res, class) REQUIRED[ninc] = class end return class end SCENARIOS = {} function load_scenario(scen) local s = SCENARIOS[scen] if not s then local _res, _err _res, _err = pcall( function() require(scen) end) assert(_res, _err) SCENARIOS[scen] = true end end -- error = zen_error -- from zen_io -- ZEN = { assert = assert } -- zencode shim when not loaded require('zenroom_common') INSPECT = require('inspect') CBOR = require('zenroom_cbor') JSON = require('zenroom_json') MPACK = require('msgpack') OCTET = require('zenroom_octet') BIG = require('zenroom_big') ECDH = require('zenroom_ecdh') -- ECDH public keys cannot function as ECP because of IANA 7303 AES = require'aes' ECP = require('zenroom_ecp') ECP2 = require('zenroom_ecp2') HASH = require('zenroom_hash') BENCH = require('zenroom_bench') MACHINE = require('statemachine') TIME = require('timetable') -- BITCOIN primitives are imported by default BTC = require('crypto_bitcoin') O = OCTET -- alias INT = BIG -- alias I = INSPECT -- alias H = HASH -- alias PAIR = ECP2 -- alias PAIR.ate = ECP2.miller --alias V = require('semver') ZENROOM_VERSION = V(VERSION) ZEN = require('zencode') -- the global ZEN context -- base zencode functions and schemas load_scenario('zencode_data') -- pick/in, conversions etc. load_scenario('zencode_given') load_scenario('zencode_when') load_scenario('zencode_hash') -- when extension load_scenario('zencode_array') -- when extension load_scenario('zencode_random') -- when extension load_scenario('zencode_dictionary') -- when extension load_scenario('zencode_verify') -- when extension load_scenario('zencode_then') load_scenario('zencode_keys') -- this is to evaluate expressions or derivate a column -- it would execute lua code inside the zencode and is -- therefore dangerous, switched off by default -- require('zencode_eval') load_scenario('zencode_debug') -- bitcoin is loaded by default load_scenario('zencode_bitcoin') -- scenario are loaded on-demand -- scenarios can only implement "When ..." steps _G['Given'] = nil _G['Then'] = nil ----------- -- defaults _G['CONF'] = { input = { encoding = input_encoding('base64'), format = { fun = JSON.auto, name = 'json' }, tagged = false }, output = { encoding = { fun = guess_outcast('base64'), name = 'base64' }, format = { fun = JSON.auto, name = 'json' }, versioning = false }, debug = { encoding = { fun = guess_outcast('hex'), name = 'hex' } }, parser = {strict_match = true}, heap = { check_collision = true }, hash = 'sha256', } -- turn on heapguard when DEBUG or linux-debug build if DEBUG > 1 or MAKETARGET == "linux-debug" then _G['CONF'].heapguard = true else _G['CONF'].heapguard = false end -- do not modify _G['LICENSE'] = [[ Licensed under the terms of the GNU Public License as published by the Free Software Foundation; either version 3 of the License, or (at your option) any later version. Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. ]] _G['COPYRIGHT'] = [[ Forked by Jaromil on 18 January 2020 from Coconut Petition ]] SALT = ECP.hashtopoint(OCTET.from_string(COPYRIGHT .. LICENSE)) -- Calculate a system-wide crypto challenge for ZKP operations -- returns a BIG INT -- this is a sort of salted hash for advanced ZKP operations and -- should not be changed. It may be made configurable in future. function ZKP_challenge(list) local challenge = ECP.generator():octet() .. ECP2.generator():octet() .. SALT:octet() local ser = serialize(list) return INT.new( sha256(challenge .. ser.octets .. OCTET.from_string(ser.strings)) ) % ECP.order() end collectgarbage 'collect' d--[[---------------------------------------------------------------------------- MessagePack encoder / decoder written in pure Lua 5.3 / Lua 5.4 written by Sebastian Steinhauer This is free and unencumbered software released into the public domain. Anyone is free to copy, modify, publish, use, compile, sell, or distribute this software, either in source code form or as a compiled binary, for any purpose, commercial or non-commercial, and by any means. In jurisdictions that recognize copyright laws, the author or authors of this software dedicate any and all copyright interest in the software to the public domain. We make this dedication for the benefit of the public at large and to the detriment of our heirs and successors. We intend this dedication to be an overt act of relinquishment in perpetuity of all present and future rights to this software under copyright law. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. For more information, please refer to --]]---------------------------------------------------------------------------- local pack, unpack = string.pack, string.unpack local mtype, utf8len = math.type, utf8.len local tconcat, tunpack = table.concat, table.unpack local ssub = string.sub local type, pcall, pairs, select = type, pcall, pairs, select --[[---------------------------------------------------------------------------- Encoder --]]---------------------------------------------------------------------------- local encode_value -- forward declaration local function is_an_array(value) local expected = 1 for k in pairs(value) do if k ~= expected then return false end expected = expected + 1 end return true end local encoder_functions = { ['nil'] = function() return pack('B', 0xc0) end, ['boolean'] = function(value) if value then return pack('B', 0xc3) else return pack('B', 0xc2) end end, ['number'] = function(value) if mtype(value) == 'integer' then if value >= 0 then if value < 128 then return pack('B', value) elseif value <= 0xff then return pack('BB', 0xcc, value) elseif value <= 0xffff then return pack('>BI2', 0xcd, value) elseif value <= 0xffffffff then return pack('>BI4', 0xce, value) else return pack('>BI8', 0xcf, value) end else if value >= -32 then return pack('B', 0xe0 + (value + 32)) elseif value >= -128 then return pack('Bb', 0xd0, value) elseif value >= -32768 then return pack('>Bi2', 0xd1, value) elseif value >= -2147483648 then return pack('>Bi4', 0xd2, value) else return pack('>Bi8', 0xd3, value) end end else local test = unpack('f', pack('f', value)) if test == value then -- check if we can use float return pack('>Bf', 0xca, value) else return pack('>Bd', 0xcb, value) end end end, ['string'] = function(value) local len = #value if utf8len(value) then -- check if it is a real utf8 string or just byte junk if len < 32 then return pack('B', 0xa0 + len) .. value elseif len < 256 then return pack('>Bs1', 0xd9, value) elseif len < 65536 then return pack('>Bs2', 0xda, value) else return pack('>Bs4', 0xdb, value) end else -- encode it as byte-junk :) if len < 256 then return pack('>Bs1', 0xc4, value) elseif len < 65536 then return pack('>Bs2', 0xc5, value) else return pack('>Bs4', 0xc6, value) end end end, ['table'] = function(value) if is_an_array(value) then -- it seems to be a proper Lua array local elements = {} for i, v in pairs(value) do elements[i] = encode_value(v) end local length = #elements if length < 16 then return pack('>B', 0x90 + length) .. tconcat(elements) elseif length < 65536 then return pack('>BI2', 0xdc, length) .. tconcat(elements) else return pack('>BI4', 0xdd, length) .. tconcat(elements) end else -- encode as a map local elements = {} for k, v in pairs(value) do elements[#elements + 1] = encode_value(k) elements[#elements + 1] = encode_value(v) end local length = #elements // 2 if length < 16 then return pack('>B', 0x80 + length) .. tconcat(elements) elseif length < 65536 then return pack('>BI2', 0xde, length) .. tconcat(elements) else return pack('>BI4', 0xdf, length) .. tconcat(elements) end end end, } encode_value = function(value) return encoder_functions[type(value)](value) end local function encode(...) local data = {} for i = 1, select('#', ...) do data[#data + 1] = encode_value(select(i, ...)) end return tconcat(data) end --[[---------------------------------------------------------------------------- Decoder --]]---------------------------------------------------------------------------- local decode_value -- forward declaration local function decode_array(data, position, length) local elements, value = {} for i = 1, length do value, position = decode_value(data, position) elements[i] = value end return elements, position end local function decode_map(data, position, length) local elements, key, value = {} for i = 1, length do key, position = decode_value(data, position) value, position = decode_value(data, position) elements[key] = value end return elements, position end local decoder_functions = { [0xc0] = function(data, position) return nil, position end, [0xc2] = function(data, position) return false, position end, [0xc3] = function(data, position) return true, position end, [0xc4] = function(data, position) return unpack('>s1', data, position) end, [0xc5] = function(data, position) return unpack('>s2', data, position) end, [0xc6] = function(data, position) return unpack('>s4', data, position) end, -- 0xc7 - 0xc9 for userdata [0xca] = function(data, position) return unpack('>f', data, position) end, [0xcb] = function(data, position) return unpack('>d', data, position) end, [0xcc] = function(data, position) return unpack('>B', data, position) end, [0xcd] = function(data, position) return unpack('>I2', data, position) end, [0xce] = function(data, position) return unpack('>I4', data, position) end, [0xcf] = function(data, position) return unpack('>I8', data, position) end, [0xd0] = function(data, position) return unpack('>b', data, position) end, [0xd1] = function(data, position) return unpack('>i2', data, position) end, [0xd2] = function(data, position) return unpack('>i4', data, position) end, [0xd3] = function(data, position) return unpack('>i8', data, position) end, -- 0xd4 - 0xd8 for userdata [0xd9] = function(data, position) return unpack('>s1', data, position) end, [0xda] = function(data, position) return unpack('>s2', data, position) end, [0xdb] = function(data, position) return unpack('>s4', data, position) end, [0xdc] = function(data, position) local length length, position = unpack('>I2', data, position) return decode_array(data, position, length) end, [0xdd] = function(data, position) local length length, position = unpack('>I4', data, position) return decode_array(data, position, length) end, [0xde] = function(data, position) local length length, position = unpack('>I2', data, position) return decode_map(data, position, length) end, [0xdf] = function(data, position) local length length, position = unpack('>I4', data, position) return decode_map(data, position, length) end, } -- add fix-array, fix-map, fix-string, fix-int stuff for i = 0x00, 0x7f do decoder_functions[i] = function(data, position) return i, position end end for i = 0x80, 0x8f do decoder_functions[i] = function(data, position) return decode_map(data, position, i - 0x80) end end for i = 0x90, 0x9f do decoder_functions[i] = function(data, position) return decode_array(data, position, i - 0x90) end end for i = 0xa0, 0xbf do decoder_functions[i] = function(data, position) local length = i - 0xa0 return ssub(data, position, position + length - 1), position + length end end for i = 0xe0, 0xff do decoder_functions[i] = function(data, position) return -32 + (i - 0xe0), position end end decode_value = function(data, position) local byte, value byte, position = unpack('B', data, position) value, position = decoder_functions[byte](data, position) return value, position end --[[---------------------------------------------------------------------------- Interface --]]---------------------------------------------------------------------------- return { _AUTHOR = 'Sebastian Steinhauer ', _VERSION = '0.6.1', encoder_functions = encoder_functions, decoder_functions = decoder_functions, -- primary encode function encode = function(...) local data, ok = {} for i = 1, select('#', ...) do ok, data[i] = pcall(encode_value, select(i, ...)) if not ok then return nil, 'cannot encode MessagePack' end end return tconcat(data) end, -- encode just one value encode_one = function(value) local ok, data = pcall(encode_value, value) if ok then return data else return nil, 'cannot encode MessagePack' end end, -- primary decode function decode = function(data, position) local values, value, ok = {} position = position or 1 while position <= #data do ok, value, position = pcall(decode_value, data, position) if ok then values[#values + 1] = value else return nil, 'cannot decode MessagePack' end end return tunpack(values) end, -- decode just one value decode_one = function(data, position) local value, ok ok, value, position = pcall(decode_value, data, position or 1) if ok then return value, position else return nil, 'cannot decode MessagePack' end end, } --[[---------------------------------------------------------------------------- --]]---------------------------------------------------------------------------- (--[[ --This file is part of zenroom -- --Copyright (C) 2022 Dyne.org foundation --designed, written and maintained by Alberto Lerda and Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt -- --Last modified by Denis Roio --on Monday, 21th February 2022 --]] ETH = require_once'crypto_ethereum' local function big_wei_to_str_wei(x) return x:decimal() end local function str_wei_to_big_wei(x) return BIG.from_decimal(tostring(x)) end -- TODO: these conversions are slow weimult = BIG.new(10):modpower(BIG.new(18), ECP.order()) gweimult = BIG.new(10):modpower(BIG.new(9), ECP.order()) local function str_gwei_to_big_wei(x) return ( BIG.from_decimal(tostring(x)) * gweimult ) end local function big_wei_to_str_gwei(x) return ( x / gweimult ):decimal() end local function str_eth_to_big_wei(x) return ( BIG.from_decimal(tostring(x)) * weimult ) end local function big_wei_to_str_eth(x) return ( ( x / weimult ):decimal() ) end local function import_eth_tx(obj) local res = { } res.nonce = ZEN.get(obj, 'nonce', INT.from_decimal, tostring) res.gas_price = ZEN.get(obj, 'gas_price', INT.from_decimal, tostring) res.gas_limit = ZEN.get(obj, 'gas_limit', INT.from_decimal, tostring) res.value = ZEN.get(obj, 'value', INT.from_decimal, tostring) res.to = ZEN.get(obj, 'to', O.from_hex, tostring) if obj.data then res.data = ZEN.get(obj, 'data', O.from_hex, tostring) else res.data = O.new() end if obj.v then res.v = ZEN.get(obj, 'v', O.from_hex) end if obj.r then res.r = ZEN.get(obj, 'r', O.from_hex) end if obj.s then res.s = ZEN.get(obj, 's', O.from_hex) end return res end local function export_eth_tx(obj) local res = { } res.nonce = obj.nonce:decimal() res.gas_price = obj.gas_price:decimal() res.gas_limit = obj.gas_limit:decimal() res.to = obj.to:hex() if #obj.value == 0 then res.value = '0' elseif type(obj.value) == 'zenroom.big' then res.value = obj.value:decimal() else error("invalid value type: "..type(obj.value)) end if obj.data then res.data = obj.data:octet():hex() end if obj.v then res.v = obj.v:octet():hex() end if obj.r then res.r = obj.r:octet():hex() end if obj.s then res.s = obj.s:octet():hex() end return res end ZEN.add_schema( { ethereum_public_key = { import = O.from_hex, export = O.to_hex }, ethereum_address = { import = O.from_hex, export = O.to_hex }, ethereum_nonce = function(obj) return ZEN.get(obj, '.', INT.new, tonumber) end, ethereum_transaction = { import = import_eth_tx, export = export_eth_tx }, signed_ethereum_transaction = { import = O.from_hex, export = O.to_hex }, gas_price = { import = str_wei_to_big_wei, export = big_wei_to_str_wei }, gas_limit = { import = str_wei_to_big_wei, export = big_wei_to_str_wei }, ethereum_value = { import = str_eth_to_big_wei, export = big_wei_to_str_eth }, gwei_value = { import = str_gwei_to_big_wei, export = big_wei_to_str_gwei }, wei_value = { import = str_wei_to_big_wei, export = big_wei_to_str_wei } }) When('create the ethereum key', function() initkeys'ethereum' ACK.keys.ethereum = ECDH.keygen().private end) When('create the ethereum address', function() empty'ethereum address' local pk = ACK.ethereum_public_key if not pk then pk = ECDH.pubgen( havekey'ethereum' ) end ACK.ethereum_address = ETH.address_from_public_key(pk) new_codec('ethereum address', { zentype = 'element', encoding = 'hex' }) end) When("create the ethereum transaction of '' to ''", function(quantity, destaddr) empty'ethereum transaction' local tx = { } tx.gas_price = have'gas price' tx.gas_limit = have'gas limit' tx.nonce = have'ethereum nonce' tx.value = have(quantity) tx.to = have(destaddr) tx.data = O.new() ACK.ethereum_transaction = tx new_codec('ethereum transaction', { zentype = 'schema', encoding = 'complex'}) end) When("create the ethereum transaction to ''", function(destaddr) empty'ethereum transaction' local tx = { } tx.gas_price = have'gas price' tx.gas_limit = have'gas limit' tx.nonce = have'ethereum nonce' tx.value = O.new() tx.data = O.new() tx.to = have(destaddr) ACK.ethereum_transaction = tx new_codec('ethereum transaction', { zentype = 'schema', encoding = 'complex'}) end) When("use the ethereum transaction to store ''", function(obj) local content = have(obj) local tx = have'ethereum transaction' ZEN.assert(not tx.data or #tx.data == 0, "Cannot overwrite transaction data") tx.data = ETH.make_storage_data(content) end) -- TODO: more contract methods -- use the ethereum transaction to store '' -- use the ethereum transaction to transfer '' to '' -- use the ethereum transaction to elect '' -- use the ethereum transaction to vote '' When("create the signed ethereum transaction", function() local sk = havekey'ethereum' local tx = have'ethereum transaction' tx.v = INT.new(1337) -- default local testnet ACK.signed_ethereum_transaction = ETH.encodeSignedTransaction(sk, tx) new_codec('signed ethereum transaction', { zentype = 'schema', encoding = 'complex'}) end) When("create the signed ethereum transaction for chain ''", function(chainid) local sk = havekey'ethereum' local tx = have'ethereum transaction' local cid = tonumber(chainid) if not cid then cid = INT.new(O.from_string(tostring(chainid))) else cid = INT.new(cid) end ZEN.assert(cid, "Invalid chain id: "..chainid) if not tx.data then tx.data = O.new() end if not tx.value then tx.value = O.new() end tx.v = cid tx.r = O.new() tx.s = O.new() ACK.signed_ethereum_transaction = ETH.encodeSignedTransaction(sk, tx) new_codec('signed ethereum transaction', { zentype = 'schema', encoding = 'complex'}) end) When("verify the signed ethereum transaction from ''", function(pubkey) local pk = have(pubkey) local rawtx = have'signed ethereum transaction' local tx = ETH.decodeTransaction(rawtx) -- TODO: check decode errors ZEN.assert( ETH.verifySignatureTransaction(pk, tx) ) end) --[[ --This file is part of zenroom -- --Copyright (C) 2022 Dyne.org foundation --designed, written and maintained by Denis Roio -- --This program is free software: you can redistribute it and/or modify --it under the terms of the GNU Affero General Public License v3.0 -- --This program is distributed in the hope that it will be useful, --but WITHOUT ANY WARRANTY; without even the implied warranty of --MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the --GNU Affero General Public License for more details. -- --Along with this program you should have received a copy of the --GNU Affero General Public License v3.0 --If not, see http://www.gnu.org/licenses/agpl.txt --]] local mpack = require'msgpack' local pack, unpack = string.pack, string.unpack local to_octenv = O.to_url64 local from_octenv = O.from_url64 -- userdata codes available -- 0xc{7,8,9} mpack.encoder_functions['zenroom.octet'] = function(v) return pack('>Bs4', 0xc7, to_octenv(v)) end mpack.encoder_functions['zenroom.big'] = function(v) return pack('>Bs4', 0xc8, to_octenv(v:octet())) end -- reserved for zenroom 3.0 -- mpack.encoder_functions['zenroom.float'] = function(v) -- return pack('>Bs4', 0xc9, to_octenv(v:octet())) end -- 0xd{4,5,6,7,8} mpack.encoder_functions['zenroom.ecp'] = function(v) return pack('>Bs4', 0xd4, to_octenv(v:octet())) end mpack.encoder_functions['zenroom.ecp2'] = function(v) return pack('>Bs4', 0xd5, to_octenv(v:octet())) end local function decode_octet(data, offset) local value, pos = string.unpack('>s4', data, offset) return from_octenv(value), pos end local function decode_big(data, offset) local value, pos = string.unpack('>s4', data, offset) return BIG.new(from_octenv(value)), pos end local function decode_ecp(data, offset) local value, pos = string.unpack('>s4', data, offset) return ECP.new(from_octenv(value)), pos end local function decode_ecp2(data, offset) local value, pos = string.unpack('>s4', data, offset) return ECP2.new(from_octenv(value)), pos end mpack.decoder_functions[0xc7] = decode_octet mpack.decoder_functions[0xc8] = decode_big mpack.decoder_functions[0xd4] = decode_ecp mpack.decoder_functions[0xd5] = decode_ecp2 return mpack crypto_credentialcrypto_elgamalcrypto_petitioncrypto_schnorr_signaturesemverstatemachinetimetablezencode_credentialzencode_petitionzencode_verifyzencode_w3czenroom_cborzenroom_ecpzenroom_ecp2zenroom_octetzencode_dp3tzencode_secsharecrypto_lagrange_interpolationcrypto_bitcoinhdwalletzenroom_hashzencode_debugzencode_hashzencode_httpzencode_bitcoinzencode_ecdhzencode_reflowzenroom_benchinspectzenroom_jsonzenroom_commonzencode_givenzencode_dictionaryzencode_thenstatszenroom_bigcrypto_ethereumzencode_datazencode_keyszenroom_ecdhzencode_arrayzencode_whenzencode_randomzencode_ethereumzenroom_msgpackCFILE*  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@?456789:;<=@@@@@@@ @@@@?@ !"#$%&'()*+,-./0123@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$@@@%&@@@@'(@)*+ ,@@@@@@  !"#@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@0123456789abcdefABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-_0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ $%*+-./:abandonabilityaboutaboveabsentabsorbabstractabsurdabuseaccessaccidentaccountaccuseachieveacidacousticacquireacrossactionactoractressactualadaptaddictadjustadmitadultadvanceadviceaerobicaffairaffordafraidagainagentaheadairportaislealarmalbumalcoholalertalienalmostalonealphaalreadyalsoalteralwaysamateuramazingamongamountamusedanalystanchorancientangleangryanimalankleannounceannualanotheranswerantennaantiqueanxietyapartapologyappearappleapproveaprilarcticareaarenaarguearmedarmorarmyarrangearrestarriveartefactartistartworkaspectassaultassetassistassumeasthmaathleteatomattackattendattitudeattractauctionauditaugustauntauthorautoautumnaverageavocadoavoidawakeawayawesomeawfulawkwardaxisbabybachelorbaconbadgebagbalancebalconyballbamboobananabannerbarbarelybargainbarrelbasebasicbasketbattlebeachbeanbeautybecausebecomebeefbeforebeginbehavebehindbelievebelowbeltbenefitbestbetraybetterbetweenbeyondbicyclebidbikebindbiologybirdbirthbitterblackbladeblameblanketblastbleakblessblindbloodblossomblouseblueblurblushboatboilbombbonebonusbookboostborderboringborrowbossbottombounceboxboybracketbrainbrandbrassbravebreadbreezebrickbridgebriefbrightbringbriskbroccolibrokenbronzebroombrotherbrownbrushbubblebuddybudgetbuffalobulbbulkbulletbundlebunkerburdenburgerburstbusbusinessbusybutterbuyerbuzzcabbagecabincablecactuscagecakecalmcameracampcanalcancelcandycannoncanoecanvascanyoncapablecapitalcaptaincarcarboncardcargocarpetcarrycartcasecashcasinocastlecasualcatalogcatchcategorycattlecaughtcautioncaveceilingcelerycementcensuscenturycerealcertainchairchalkchampionchaoschapterchargechatcheapcheesechefcherrychestchickenchiefchildchimneychoicechoosechronicchucklechurncigarcinnamoncirclecitizencitycivilclaimclapclarifyclawclaycleanclerkcleverclickclientcliffclimbclinicclipclockclogcloseclothcloudclownclubclumpclusterclutchcoachcoastcoconutcoffeecoilcollectcolorcolumncombinecomfortcomiccompanyconcertconductconfirmcongressconnectconsidercontrolconvincecookcoolcoppercopycoralcorecorncorrectcostcottoncouchcountrycouplecoursecousincoyotecrackcradlecraftcramcranecrashcratercrawlcrazycreamcreditcreekcrewcricketcrimecrispcriticcropcrouchcrowdcrucialcruelcruisecrumblecrunchcrushcrycrystalcubeculturecupcupboardcuriouscurrentcurtaincurvecushioncustomdaddamagedampdancedangerdaringdashdaughterdawndealdebatedebrisdecadedecemberdecidedeclinedecoratedecreasedeerdefensedefinedefydegreedelaydeliverdemanddemisedenialdentistdenydepartdependdepositdepthdeputyderivedescribedesertdesigndeskdespairdetaildetectdevelopdevicedevotediagramdialdiamonddiarydicedieseldietdifferdigitaldignitydilemmadinnerdinosaurdirectdirtdisagreediscoverdiseasedishdismissdisorderdisplaydivertdividedivorcedizzydoctordocumentdogdolldolphindomaindonatedonkeydonordosedovedraftdragondramadrasticdrawdreamdriftdrilldrinkdripdrivedropdrumduckdumbduneduringdustdutchdutydwarfdynamiceagereagleearlyeartheasilyeasteasyechoecologyeconomyeducateefforteggelbowelderelectricelegantelementelephantelevatoreliteelseembarkembodyembraceemergeemotionemployempowerenableenactendlessendorseenemyenergyenforceengageengineenhanceenjoyenlistenoughenrichenrollensureenterentireentryenvelopeepisodeequiperaseerodeerosioneruptescapeessayessenceestateeternalethicsevidenceevilevokeevolveexactexampleexcessexchangeexciteexcludeexcuseexecuteexerciseexhaustexhibitexileexistexitexoticexpandexpectexpireexplainexposeexpressextendeyeeyebrowfabricfacultyfadefaintfaithfallfalsefamefamilyfamousfanfancyfantasyfarmfashionfatfatherfatiguefaultfavoritefeaturefebruaryfederalfeelfemalefencefestivalfetchfeverfewfiberfictionfieldfigurefilefilmfilterfinalfindfingerfinishfirefirstfiscalfishfitnessflagflameflashflatflavorfleeflightflipflockfloorflowerfluidflushflyfoamfocusfogfoilfollowfoodfootforestforgetforkfortuneforumforwardfossilfosterfoundfoxfragileframefrequentfreshfriendfringefrogfrontfrostfrownfrozenfruitfuelfunfunnyfurnacefuryfuturegadgetgalaxygallerygamegapgaragegardengarlicgarmentgasgaspgategathergaugegazegeneralgeniusgenregentlegenuinegestureghostgiantgiftgigglegingergiraffegirlgivegladglanceglareglassglideglimpseglobegloomglorygloveglowgluegoatgoddessgoldgoodgoosegorillagospelgossipgoverngowngrabgracegraingrantgrapegrassgravitygreatgreengridgriefgritgrocerygroupgrowgruntguardguessguideguiltguitargungymhabithalfhammerhamsterhandharborharshharvesthawkhazardhealthheartheavyhedgehogheighthellohelmethelpherohiddenhighhillhinthirehistoryhobbyhockeyholeholidayhollowhomehoneyhoodhopehornhorrorhorsehospitalhotelhourhoverhubhugehumanhumblehumorhundredhungryhunthurdlehurryhurthusbandhybridiconideaidentifyidleignoreillegalillnessimageimitateimmenseimmuneimpactimposeimproveimpulseinchincludeincomeincreaseindicateindoorindustryinfantinflictinforminhaleinheritinitialinjectinjuryinmateinnocentinputinquiryinsaneinsectinsideinspireinstallintactinterestintoinvestinviteinvolveironislandisolateitemivoryjacketjaguarjarjazzjealousjeansjellyjeweljobjokejourneyjudgejuicejumpjunglejuniorjunkkangarookeenkeepketchupkickkidkidneykindkingdomkisskitkitchenkitekittenkiwikneeknifeknockknowlabellaborladderladylakelamplanguagelaptoplaterlatinlaughlaundrylavalawnlawsuitlayerlazyleaderleaflearnleavelectureleftleglegendleisurelemonlendlengthlensleopardlessonletterlevelliarlibertylibrarylicenselifeliftlikelimitlinkliquidlittlelizardloadloanlobsterlogiclonelylotteryloungeloyalluckyluggagelumberlunarlunchluxurylyricsmadmagicmagnetmaidmailmajormakemammalmanagemandatemangomansionmanualmaplemarblemarchmarginmarinemarketmarriagemaskmassmastermaterialmatrixmattermaximummazemeadowmeanmeasuremeatmechanicmedalmediamelodymeltmentionmenumercymeritmerrymeshmetalmiddlemidnightmilkmillionmimicminimumminorminutemiraclemirrormiserymistakemixmixedmixturemobilemodelmodifymommomentmonitormonkeymonstermonthmoonmoralmoremorningmosquitomothermotormountainmousemoviemuchmuffinmulemultiplymusclemuseummushroommusicmustmutualmyselfmysterymythnaivenapkinnarrownastynationnearneckneedneglectneithernephewnervenestnetworkneutralnevernewsnextnicenoblenoisenomineenoodlenormalnorthnosenotablenotenothingnoticenovelnuclearnurseoakobeyobjectobligeobscureobserveobtainobviousoccuroceanoctoberodoroffofferofficeoftenokayoliveolympicomitonceoniononlineonlyoperaopinionopposeorangeorbitorchardordinaryorganorientoriginalorphanostrichoutdoorouteroutsideovalovenowneroxygenoysterozonepaddlepagepalacepalmpandapanelpanicpantherpaperparadeparentparkparrotpartypasspatchpathpatientpatrolpavepaymentpeacepeanutpeasantpelicanpenaltypencilpeoplepepperperfectpermitpersonphonephotophrasephysicalpianopicnicpicturepiecepigpigeonpillpilotpinkpioneerpipepistolpitchpizzaplanetplasticplatepleasepledgepluckplugplungepoempoetpolarpolepolicepondponypoolpopularportionpositionpossiblepostpotatopotterypovertypowderpracticepraisepredictpreferpreparepresentprettypreventpriceprideprimaryprintpriorityprisonprivateprizeproblemproduceprofitprogramprojectpromoteproofpropertyprosperprotectproudprovidepublicpuddingpullpulppumpkinpunchpupilpuppypurchasepuritypurposepursepushpuzzlepyramidqualityquantumquarterquestionquickquitquizquoterabbitraccoonradarradiorailrallyrampranchrapidrareratherravenrazorreasonrebelrebuildrecallreceivereciperecordrecyclereducereflectreformrefuseregionregretregularrejectrelaxreleasereliefremainrememberremindremoverenderrenewreopenrepairrepeatreplacereportrescueresembleresistresourceresponseresultretireretreatreturnreunionrevealreviewrewardrhythmribribbonriflerigidriotrippleritualrivalriverroadroastrobotrobustrocketromancerookieroseroughrouteroyalrubberruderulerunrunwayruralsadsaddlesadnesssafesailsaladsalmonsalonsaltsalutesamesamplesandsatisfysatoshisaucesausagesavescalescanscarescattersceneschemeschoolsciencescissorsscorpionscoutscrapscreenscrubseasearchseasonseatsecondsecretsectionsecurityseeksegmentselectsellseminarseniorsensesentenceseriesservicesettlesetupsevenshadowshaftshallowshellsheriffshieldshineshipshivershockshoeshootshopshouldershoveshrimpshrugshuffleshysiblingsicksiegesightsilentsilksillysilversimilarsimplesincesingsirensistersituatesixskatesketchskiskillskinskirtskullslabslamsleepslendersliceslideslightslimsloganslotslowslushsmallsmartsmilesmokesmoothsnacksnakesnapsniffsnowsoapsoccersocialsocksodasoftsolarsoldiersolidsolutionsolvesomeonesongsoonsorrysortsoulsoundsoupsouthspacesparespatialspawnspeakspecialspeedspellspendspherespicespiderspikespinspiritsplitspoilsponsorspoonsportspotsprayspreadspringspysquaresqueezesquirrelstablestadiumstaffstagestairsstampstandstaysteaksteelstepstereostickstillstingstockstomachstonestoolstovestrategystreetstrikestrongstrugglestudentstuffstumblestylesubjectsubmitsubwaysuccesssuchsuddensuffersugarsuggestsummersunsunnysunsetsupersupplysupremesurfacesurgesurprisesurroundsurveysuspectsustainswallowswampswapswarmswearsweetswiftswimswingswitchswordsymptomsyrupsystemtackletagtalenttalktanktapetargettasktastetattootaxiteachteamtelltenanttennistenttermthankthatthemetheorytheretheythisthoughtthreethrivethrowthumbthundertickettidetigertilttimbertimetinytiptiredtissuetitletoasttobaccotodaytoddlertoetogethertoilettokentomatotomorrowtonguetonighttoothtopictoppletorchtornadotortoisetosstotaltouristtowardtowertowntoytracktradetraffictragictraintransfertraptrashtraveltreetrendtrialtribetricktriggertrimtriptrophytroubletrucktruetrulytrumpettrusttruthtubetuitiontunatunnelturkeyturtletwelvetwentytwicetwintwisttwotypetypicaluglyumbrellaunableunawareuncleuncoverundounfairunfoldunhappyuniformuniqueunituniverseunknownunlockuntilunusualunveilupdateupgradeupholduponupperupseturbanusefuluselessutilityvacantvacuumvaguevalleyvalvevanvanishvaporvariousvastvaultvehiclevelvetvendorventurevenueverbversionveryvesselveteranviablevibrantviciousvictoryvideovillagevintageviolinvirtualvirusvisavisitvisualvitalvividvocalvoicevolcanovolumevoyagewagewagonwaitwalkwallwalnutwantwarfarewarriorwashwaspwastewaterwavewealthweaponweaselweatherwebweddingweekendweirdwelcomewestwetwhalewheatwheelwherewhipwhisperwidewidthwifewildwillwindowwinewinkwinnerwinterwirewisdomwisewishwitnesswolfwomanwonderwoodwoolworldworryworthwrapwreckwrestlewristwrongyardyearyellowyouyoungyouthzebrazoo  !"#$%&'()*+,-./0123456789123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz#EgܺvT2         qpzry9x8gf2tvdw0s3jn54khce6mua7lsegwit_addr.cuint32_t bech32_final_constant(bech32_encoding)Malloc out of memory, requested %u B  d4t@tttttttttttttttttttttttttttttttttttttttttttttttttttttttttt$ttttthttPt t`dpplpppppppTppp0123456789ABCDEFOutput buffer full, result data lostFatal error writing output buffer: %sOutput buffer too small, data truncated: %u bytes (max %u)printerrzen_fatalwarn lua_print_stdout_tobuf %s%c'tostring' must return a string to 'print'lua_print_stderr_tobufzen_write[W] . trimqjsontoklua_parse_prefixlua_strcasecmpstrcasecmp: arg #1 MAX_LINE limit hitstrcasecmp: arg #2 MAX_LINE limit hitJSON doesn't starts with '{', char found: %cJSON as malformed beginning or endxx,xx,,,,,,,,,,,,,,,,,,x,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,%s: error parsing configuration: %szen_conf_parseverboserngseedInvalid length of random seed: %u (must be %u)hex:Invalid rngseed data prefix (must be hex:)stbsysmuttInvalid print function: %sInvalid configuration: %sInvalid integer configurationUndefined config variable%s: Invalid string in configuration: %czJ is_base58invalid base58 digithigh-bit set on invalid digitError in %sis_hexis_binCannot create octet, size less than zeroexecution abortedCannot create octet, size too big: %uError allocating new userdata for octetzenroom.octetError allocating new octet of %u bytesargument %u octet too long: %u bytesoperation abortedinvalid NULL string (zero size)failed implicit conversion from string to octeto_argzenroom.bigzenroom.ecpzenroom.ecp2Error in argument #%u%s: cannot convert %s to zeroom.octeto_duppush_buffer_to_octetchopis_base64is_url64from_numberfrom_base64from_base45from_url64from_base58from_stringfrom_strfrom_rawlenfrom_hexfrom_binfrom_mnemonicto_base64to_url64to_base58to_stringto_strto_arrayto_binto_mnemonicentropypopcount_hammingto_segwitfrom_segwitreversefillpad__len__concat__bxor__eq__gc__tostringnewoctetCannot create a zero length octetCreating a zero filled octet of %u bytesconcat_noctet or string expected in concatxor_ncannot chop octet of size %i to higher length %icannot chop octet with negative size %dinvalid octet:sub() position starts from 1 not %iinvalid octet:sub() to end position %i smaller than start position %iinvalid octet:sub() to end position %i on small octet of len %istring is not a valid base64 sequencestring is not a valid url64 sequencestring is not a valid base58 sequencestring is not a valid hex sequencestring is not a valid binary sequenceO.from_number input is not a numberbase64 string expectedbase64 string contains invalid charactersbase45 string expectedbase45 string contains invalid charactersbase45 invalid stringurl64 string expectedurl64 string contains invalid charactersbase58 string expectedbase58 string contains invalid charactersError in conversion from base58 for string: %s%s: invalid string size: %uO.new 2nd arg is not a number%s :: invalid argumenthex sequence invalidhex string sequence length: %uhex sequence too long: %u bytesbinary string sequence expectedinvalid binary sequence size: %u%s :: words cannot be encoded with bip39 formatbase64 cannot encode an empty stringurl64 cannot encode an empty stringbase64 cannot encode an empty octetbase58 cannot encode octets smaller than 3 bytesarray cannot encode an empty octet%s :: octet bigger than 32 bytes cannot be encoded to mnemonic%s :: cannot be encoded to mnemonicnew_randomentropy_bytefreqbitshift_hamming_distanceCannot measure hamming distance of octets of different lengthspopcount_hamming_distanceto_segwit_addressInvalid segwit version: %dInvalid size for segwit address: %dbcInvalid human readable part: %s%s :: cannot be encoded to segwit formatfrom_segwit_address%s :: not bech32 addressfilloctetto_base45Error allocating new ecp in %secp_newecp class expectedecp_dupecp_destroyisinfinity__add__sub__mulECP curve is %sBLS381lua_new_ecpnew ECP value out of curve (points to infinity)Octet length %u instead of %u bytesInvalid octet length to parse an ECP pointECP point validation returns %iOctet is not a valid ECP (point is not on this curve)Octet doesn't contains a valid ECPecp_get_infinityecp_isinfecp_orderecp_mapitoctet length is %u instead of 64 (need to use sha512)Invalid argument to ECP.mapit(), not an hashmapit on o->len %uecp_generatorecp_addecp_subecp_mulcannot multiply ECP point with double BIG numbers, need moduloecp_validateecp_primeecp_affineecp_negativeecp_doubleecp_octetecp_get_xecp_get_yecp_eqecp_outputpError allocating new ecp2 in %secp2_newecp2 class expectedecp2_dupecp2_destroymillerlua_new_ecp2Octet doesn't contains a valid ECP2ecp2_generatorecp2_mapitInvalid argument to ECP2.mapit(), not an hashecp2_get_infinityecp2_millerloopecp2_affineecp2_negativeecp2_isinfecp2_octetecp2_get_xrecp2_get_xiecp2_get_yrecp2_get_yiecp2_get_zrecp2_get_ziecp2_addecp2_subecp2_eqecp2_mulecp2_outputCannot import BIG numberError allocating new big in %sbig_newbig384big class expectedinvalid big number in argument: not initalizedbig_arginvalib big number in argumentbig_dupfound leftover buffer while freeing double bigfound leftover buffer while freeing bigignoring superflous initialization of bigcannot shrink double big to big in re-initializationanomalous state of big number detected on initializationignoring superflous initialization of double biganomalous state of double big number detected on initializationnew_octet_from_bigInvalid BIG number, cannot convert to octetfrom_decimal__mod__div__lt__ltefixednewbigImport of number to BIG limit exceeded (>16bit)Import of octet to BIG limit exceeded (%u > %u bytes)luabig_to_octetbig_from_decimal_string%s: string is not a number %sbig_equninitialised big in arg1uninitialised big in arg2incompatible sizes: arg1 is double, arg2 is notincompatible sizes: arg2 is double, arg1 is notbig_addADD doublesizebig_subSubtraction error: arg1 smaller than arg2 (consider use of :modsub)big_mulcannot multiply double BIG numbers with ECP point, need modulocannot multiply double BIG numbersbig_modmodulus cannot be a double big (dmod)big_divdivision not supported with double big modulusbig_sqrcannot make square root of a double big numberbig_bitsbig_bytesbig_modmulmodmul not supported on double big numbersbig_moddivmoddiv not supported on double big numbersbig_modsqrmodsqr not supported on double big numbersbig_modnegmodneg not supported on double big numbersbig_modsubbig_modrandbig_modinvbig_jacobijacobi not supported on double big numbersbig_montyno need for montgomery reduction: not a double big numberdouble big modulus in montgomery reductionbig_paritydbiglenmodbytessizeof_BIGsizeof_DBIGlua_bigmaxbig_to_hexbig_to_decimal_stringbig_ltbig_ltebig_concatbig_to_intBIG too big for conversion to integerNumber conversion bigger than 32bit, BIG truncated to 4 bytesbig_modpowerbig_to_fixed_octet Error allocating new fp12 in %sfp12_newzenroom.fp12BLS383new fp12 (%u bytes)fp12 class expected%s: fp12 size mismatch (%u != %u)fp12_arg%s: fp12 chunk size mismatch (%u != %u)fp12_dupfp12_destroy__powfp12_from_octetfp12_eqfp12_mulfp12_sqrfp12_invfp12_to_octetfp12_powrng_allocError allocating new random number generator in %sRandom seed is external, deterministic executionrandom_int8random_int16random_int32random8random16random32runtime_random256 @ @0 8xdLԸԸhash_newError allocating new hash generator in %szenroom.hashsha256sha384sha512sha3_256sha3_512keccak256ripemd160Hash algorithm not known: %shash class expectedhash_destroypbkdfmnemonic_seedlua_new_hashnew hash type %shash_to_octethash_hmac%s: hmac (%u bytes) failed.HMAC is only supported for hash SHA256 or SHA512hash_kdf2hash_pbkdf2iterationshash_processhash_feedhash_yeldECDH curve is SECP256K1ecdh_addInvalid public key passed as argumentzenroom.ecdhecdh class expectedaesgcm_encryptaesgcm_decryptaes_encryptaes_decryptcheckpubpublic_xypubxyecdh_keygenecdh_pubgenecdh_aead_encryptECDH.aead_encrypt accepts only keys of 16,24,32, this is %uECDH encryption abortedECDH.aead_encrypt accepts an iv of 12 bytes minimum, this is %uecdh_aead_decryptECDH.aead_decrypt accepts only keys of 16,24,32, this is %uECDH decryption abortedECDH.aead_decrypt accepts an iv of 12 bytes minimum, this is %uecdh_session%s: public key not found in any argumentecdh_pubcheckecdh_dsa_signecdh_dsa_verifysignature argument invalid: not a tableecdh_dsa_sign_hashedmissing 3rd argument: byte size of octet to signsize of input does not match: %u != %uecdh_dsa_verify_hashedinvalid size zero for material to signecdh_pub_xyctr_processctrAES.ctr_process accepts only keys of 16 or 32 bytes, this is %uAES-CTR process abortedAES.ctr_process accepts an iv of 12 bytes minimum, this is %uZenroom/stderr$LLLLLLLLLLLLLD\x\|4$LuaVersion: Lua 5.3.6 Copyright (C) 1994-2020 Lua.org, PUC-Rio $$LuaAuthors: R. Ierusalimschy, L. H. de Figueiredo, W. Celes $C(*no name)*******h'************************'*0(*****\('(()')'(((((((((((((8)()'0)@)'H)P) )''))'''l(1111111111111111111111111111111111111122112,2,211112attempt to %s a %s value%sconcatenatenumber%s has no integer representationattempt to compare two %s valuesattempt to compare %s with %s%s:%d: %s(*temporary)(*vararg)=[C]C=?metamethodfor iterator_ENVglobalconstant (%s '%s')cannot resume non-suspended coroutinecannot resume dead coroutineC stack overflowattempt to yield across a C-call boundaryattempt to yield from outside a coroutineerror in error handlingattempt to load a %s chunk (mode is '%s')RRQQRRRRRRRRRRRRRRQQLua  ]]] ^^^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^D^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^]bbbXccbtctctctctctctctctctcbtctctctctctctctctctctctctctctctctcbdeddPdi$j8eXuuzuvzzzzzzzzzzzzzzzzzzzzzzzzzzzz8xno messageerror in __gc metamethod (%s)too many %s (limit is %d)memory allocation error: block too big%invalid option '%%%c' to 'lua_pushfstring'[string ""].xXnNMOVELOADKLOADKXLOADBOOLLOADNILGETUPVALGETTABUPGETTABLESETTABUPSETUPVALSETTABLENEWTABLESELFADDSUBMULMODPOWIDIVBANDBORBXORSHLSHRUNMBNOTLENCONCATJMPEQLTTESTTESTSETTAILCALLRETURNFORPREPTFORCALLTFORLOOPSETLISTCLOSUREVARARGEXTRAARG`qATPP\l< or '...' expectedunexpected symbolfunction arguments expectedbreaklabels/gotos at line %d jumps into the scope of local '%s'<%s> at line %d not inside a loopno visible label '%s' for at line %d%s expected (to close %s at line %d)%s expected'=' or 'in' expected(for index)(for limit)(for step)(for generator)(for state)(for control)label '%s' already defined on line %dsyntax errornot enough memoryOtL,LLLLLLLLLLLLLLtLL````````````````table index is niltable index is NaNinvalid key to 'next'table overflowno valuebooleanthreadproto__newindex__mode__idiv__band__bor__shl__shr__unm__bnot__le__call__nameperform bitwise operation onperform arithmetic onuserdata4@ @ X X X X @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ X @  X | | | X X X X X X \ 8pXH X < p xhPP LL  x L 2<  8 $'__index' chain too long; possible loop'__newindex' chain too long; possible loopstring length overflowget length ofattempt to divide by zeroattempt to perform 'n%%0''for' limit must be a number'for' step must be a number'for' initial value must be a numberXUUUdUUp@%s stack traceback: ...Slnt %s:%d: in (...tail calls...)bad argument #%d (%s)calling '%s' on bad self (%s)bad argument #%d to '%s' (%s)Sl%s:%d: invalid option '%s'stack overflow (%s)value expectedbuffer too largeobject length is not an integer'__tostring' must return a string%I%s: %ptoo many upvaluescore and library have incompatible numeric typesmultiple Lua VMs detectedversion mismatch: app. needs %f, Lua core provides %ffunction '%s'%s '%s'main chunkfunction <%s:%d>_G.light userdata%s expected, got %snumber has no integer representationnot enough memory for buffer allocationLUABOXcreatestatusyieldisyieldablethread expectedtoo many arguments to resumetoo many results to resumesuspendeddeadgetuservaluegethookgetinfogetlocalgetregistrygetmetatablegetupvalueupvaluejoinupvalueidsetuservaluesethooksetlocalsetmetatablesetupvaluelua_debug> cont =(debug command)external hooktail callflnStu>%sinvalid optionshort_srclastlinedefinedcurrentlinenupsnparamsisvarargnamewhatistailcallactivelinesfunclevel out of rangeLua function expectedinvalid upvalue indexnil or table expectedI@.eB5<>pimaxintegerminintegerabsacosasinatanceildegexptointegerfmodminmodfradrandomseedsqrtwrong number of argumentsinterval is emptyinterval too largePPP,P,PPPPPPPPPPPPPPPPPPPPPPPPPX,,,PPPPPPPP̐PPPĠܟLlܦܦܦЬȭ ܳ8D, T`lxľ,LLLLLLLLLLLLLLLLLLLLLLLLLLؼؼDLLLLLLLL LLLLLLLLLLLLLLLLLLLLLԽLLd,LLLLLL|LLLL LȾchardumpgmatchgsubreppacksizestring slice too longvalue out of rangeunable to dump given function^$*+?.([%-pattern too complexmissing '[' after '%%f' in patterntoo many capturesinvalid pattern capturemalformed pattern (missing arguments to '%%b')malformed pattern (ends with '%%')malformed pattern (missing ']')invalid capture index %%%dunfinished capturestring contains zerosinvalid option '%%%c' to 'format'-+ #0invalid format (repeated flags)invalid format (width or precision too long)%a0x%xvalue has no literal form\%d\%03dstring/function/table expectedinvalid replacement value (a %s)invalid use of '%c' in replacement stringresulting string too largeinteger overflowunsigned overflowstring longer than given sizestring length does not fit in given sizeinvalid next option for option 'X'format asks for alignment not power of 2missing size for format option 'c'invalid format option '%c'integral size (%d) out of limits [1,%d]format result too largevariable-length formatinitial position out of stringdata string too shorttoo many results%d-byte integer does not fit into Lua Integerinsertinvalid value (%s) at index %d in table for 'concat'position out of boundswrong number of arguments to 'insert'too many results to unpacktoo many elements to movedestination wrap aroundarray too biginvalid order function for sorting[--][-]*charpatternoffsetcodepointposition out of rangeinitial position is a continuation byteinvalid UTF-8 code%Ufinal position out of stringbit324$$(XdD<=<=~=<<>>::%s near %slexical element too longinvalid long string delimiterchunk has too many linescommentunfinished long %s (starting at line %d)unfinished stringinvalid escape sequencehexadecimal digit expectedmissing '{'UTF-8 value too largemissing '}'decimal escape too largeEePpmalformed number:Lua 5.3_VERSIONassertcollectgarbageipairsloadstringrawequalrawgetrawsettonumberxpcallassertion failed!stoprestartsetpausesetstepmulisrunning__metatablebt=(load)too many nested functionsreader function must return a string__pairstable or string expectedindex out of rangecannot change a protected metatablebase out of range  arshiftbtestextractlrotatelshiftrrotatefield cannot be negativewidth must be positivetrying to access non-existent bits%01x%x,%x)Infinity)0H;U 3e s"V ņ8 h`M}X (/s: JQ"E> e l W ;'AUH? 4XUUx&h |vAirY!FnPMpq=D Hz(nI "/+~+*c U'$4?ij$kY{:A4k> (0 x( w# 4 Qqqs2#wR]y_:HjhN U ҙ(>\^4 iNJlbAbX{P Ü pKwdf]4 1#c" ,nMhp%c6GoS x+j _#l;cOzJgO ]=h`o v;M J Pd2 GT@z:e aAA6% ;j (Y(ܲ p\ bU ˝~f  }ThD ]F+hkAكy!~[/BD7q۵[V9Y?^[1$} Ut]rހܛtiGƝ̡ $o,-tJܩ\ڈvRQ>m1'Y GQcg)) '8!.m,M 8STs e jv.,r迢KfpK£Ql$օ5pjl7LwH'4 9JNOʜ[o.htocxxȄnjlPxq"(ט/Be#D7q/;Mۉ۵8H[V9YO?m^BؾopE[N1$} Uo{t]r;ހ5%ܛ&itJi%O8GՌƝew̡ $u+Yo,-ntJAܩ\SڈvfRQ>2-m1?!'Y= % GoQcpn g))/F '&&\8!.*Zm,M߳ 8ScTs ew< jvG.;5,rdL迢0BKfpK0TQlReU$* qW5ѻ2pjҸSAQl7LwH'Hᵼ4cZų 9ˊAJNscwOʜ[o.h]t`/CocxrxȄ9dnj(c#齂lPyƲ+SrxqƜa&>'!Ǹ}xnO}orgȢ}c ?G5 q}#w($@{2 ˾L*~e)Y:o_XGJDl  `````<(((XXXXX @6lM/cc||ww{{ kkooT`00PggV++}bMvvE@}}YYGG Ag_E#Srr[u=L&&jl66Z~??AOh44\Q4qqsb11S*? RF##e^0(7 / $6=&N''iuu X,,t4.6-nnZZ[RRv;;Ma}R)){>^//qSSh,@ `yȶ[[jjFgr99KJJޘLL԰XXJk*OCCŚMMf33UEEPPx<!KKa pp|>>BqffHHaaj55_WWiX:''8+"3iip3-<" IUUP((xzY  e1BBhhAA)Z--w{˨TTm,:c|w{ko0g+׫vʂ}YGԢr&6?4q1#'u ,nZR;ֳ)/S [j˾9JLXCM3EPfHa5WiَU(ߌ BhA-TQP~AeS:'^;kEXK 0UvmvL%O*&5DbޱZI%gE]/uLFk_mzRYԾ-Xt!Ii)Du‰jyxX>k'qݾO f}:cJ1Q3`bSEdwk+pHhXElR{s#rKWfU*(/{70(#j\+yNie4bĦ4.SU2u 9@`^qnQ>!=>MFTq]o`P$ֽ闉@CgٞwB[8yۡ| G|B 2+HplZrN8V=6-9' dh\![T$6.: gWOa ZwKi⓺ *<"C ǭ-WuLݻ`&\rDf;[~4C)v#ܶhc1Bc"@ J$}һ=2)m/Kܲ0 Rw+lpHGd"Ġ?V},"3IN8ʢ 6ϥz(ڷ&?,:Px j_̛T~Fbظ.9^ï]iГ|o-%Ȭ;}cn;{&x nY욷One~!Jo6 )|1*?#1ƥ05ftN7ʦа3JAP/vM֍CM̪MTߞѵLj,FeQ^5]ts A.gZRV3mGa7 zY<Ω'a5zG8$4,£@_r% (Ky xZݨ31Y'_`QJ -zɜ;M*BQ6Z){ 9K|$lR2Kh3d4Lqi}'jMr xe/!$E5ڎ۽6Δ\@F8f0b%"~nHãB:k(T=+y ^NԬsWXPtO,uz Y_Q oIC-v{̻>Z`;RlU)a7?[S9CHQW]aiqv} &-5<DHMRZ_elrx~A  &,28>EKRX_ekt{ #*/?49@EKRX_els{  !)08>D MS[bg#mty> %,28?DJOU[aglrzxJ[!(-38=EJQW_fm.t{ !%-2:>GOW_em,txk$+2:?FMU[biry !*27?HjPW^fls|m  %+39?EKRW\aiqy[kA$,3:BHOV]dkqx~R<J  ")1:BJPV[bipw k  (1#!9>EKTZ`djrx>  $(B-49&>ELQY_gnu{  R%-16;BHMU\biqy %,16<BHNT\bhmsx9Ic !(-29>C4HMU[bgov{z   '/7=EMT[bjrw@&-6;BIQV]_ejpw~m?D^$+05;A FLRY^chqiRx~) '/7<A3FLQJXb_fkpDLSY`dkszI"9(/6</CHMMTRZbioft|Bn $,28@EIOV\Cagoty{@OU/- V$)05;AGOU\chouzCKPW]cjrKx5 '/7>FLRZ`ipx~!l %+07?GOW`fkpv}|!HSa+#*29?GNU^els^yk  GXMLY#f*17=BHNU\dk'TpIv|m%-3:AIR[ag ntxh R# #&/T-38?EJPHU^dkqy}}$G "(.5:AFKQW]cipv| $,28>EKRX]djpx~So $*O06?FMT]eksy $*/5;AGLRY5_gm#t{XTU  $,38>CJOTX^ekqy%+t '.4=BH!OTZ`flty~zl &,&49@GOW^clt{ g c !(/7=#BJOV^emu} 0#(.4$9@6GNVZbjpx}G@;MZw%+06>DJOT[_ek[qZL^`pgq`qp\ttLD}[ . \X;h \ )d 0\ d " .:EQ<]<f\r{' ?JT=<b<wd HD!"P#$&4(+X; <, -w'?J3-T=l b-A. /0"P#$& 4(4  1" + \2 .7 < }588t9O:_:P <w <2<;t>I @>AKLBBMTDmFt9t9l H2<FJJ<;t> t>I @ @AtK2 tK7 < L}QPRwR_STTUK6UUUVMTXZZl d[0\]]^_*`2papa;c cAd2 dIee7 < g}Ltd|xyA{2d|;~IPRȇT ܉ Ml$HН̞JԠ4?dXl |xw8d| ~P2 {" T ܉̩1=̩ ܉Rȇ Ml2Н̞JԠ7 < 8}еl еAIR[pAIR[pl Pr2 7 & H$8}l   [  Y _ l !p#!-!p  [  Y 7 !!""!!!!R#!d#d>d}$ ##\M$!L!L27 !@!<$8$8V0[0a0h0q0y00000000000000000000000001110 1111 191'1/181A1I1Q1X18_88>9nT=#5>988u 87 8 2  &888+ 88888" 8>X?ܟ!S>+>>0?X)?ا1?9?B?N?[?Hf?r? |?в?H??? D?r?@ @AA\ Aܼ@AA`AH#A $x(A@,A1AHL5AA@AdA0@@@eJD@D$<DD 0DD4 ;hkDDI  Ik I e I$ J "JD` KJ85QQ5 QQ R| RRSr SSST88\8- XTT&T.T0Ğ5TTx7777X`t 7 4X(0, oooFo x@,   # ) / f*#T= 0 6=JTgx(6CP`m|  %3@ hO`Android (4751641 based on r328903) clang version 7.0.2 (https://android.googlesource.com/toolchain/clang 003100370607242ddd5815e4a043907ea9004281) (https://android.googlesource.com/toolchain/llvm 1d739ffb0366421d383e04ff80ec2ee591315116) (based on LLVM 7.0.2svn)q5vBIG_384_29_ddivl.BIG_384_29_invmod2m<BIG_384_29_add*BIG_384_29_dadd#BIG_384_29_modmul&"BIG_384_29_randomnum3BIG_384_29_dfromBytesLenBIG_384_29_ssn#BIG_384_29_modsqr*BIG_384_29_parity.BIG_384_29_mod2m93BIG_384_29_dmod2m!BIG_384_29_shlBIG_384_29_dshlEBIG_384_29_splitBIG_384_29_shrBIG_384_29_dshr-invmod256BIG_384_29_outputBIG_384_29_doutput.BIG_384_29_div3BIG_384_29_imulBIG_384_29_montyBIG_384_29_sdiv$BIG_384_29_modnegBIG_384_29_fromBytes7BIG_384_29_norm.&BIG_384_29_invmodpmBIG_384_29_zerob BIG_384_29_dnorm BIG_384_29_or@%BIG_384_29_moddivBIG_384_29_dzero9*BIG_384_29_lastbits BIG_384_29_sducopyk*BIG_384_29_jacobiBIG_384_29_sub#BIG_384_29_dsubnBIG_384_29_mul]BIG_384_29_sdcopyBIG_384_29_isunityBIG_384_29_sqrBIG_384_29_cmoveeBIG_384_29_copy-BIG_384_29_incwBIG_384_29_dcmoveXBIG_384_29_dcopyBIG_384_29_pmul-BIG_384_29_oneF!BIG_384_29_random=muladd_384_29_ BIG_384_29_dsucopyBIG_384_29_toBytesBIG_384_29_dec;BIG_384_29_fshl BIG_384_29_rcopyVBIG_384_29_compBIG_384_29_dscopyBIG_384_29_fshr BIG_384_29_dcomprBIG_384_29_iszilchBIG_384_29_pxmulBIG_384_29_diszilchBIG_384_29_rawoutputlBIG_384_29_fromBytesLenBIG_384_29_cswap BIG_384_29_drawoutputuBIG_384_29_nbitsBIG_384_29_smul` BIG_384_29_bitBIG_384_29_mod BIG_384_29_dnbitsBIG_384_29_dmodq5 FP_BLS381_pow FP_BLS381_sqrFP_BLS381_nresXFP_BLS381_reduceFP_BLS381_cmoveFP_BLS381_copy8FP_BLS381_redc| FP_BLS381_oneFP_BLS381_sqrtFP_BLS381_rcopyrFP_BLS381_invbFP_BLS381_output FP_BLS381_div2FP_BLS381_iszilchFP_BLS381_imul; FP_BLS381_negFP_BLS381_rawoutputFP_BLS381_norm/FP_BLS381_cswapdFP_BLS381_modFP_BLS381_zeroFP_BLS381_qrquologb2b FP_BLS381_add FP_BLS381_sub&FP_BLS381_equalsFP_BLS381_mulMFECP_BLS381_rhsECP_BLS381_output ECP_BLS381_fromOctet ECP_BLS381_pinmulECP_BLS381_negECP_BLS381_mapitECP_BLS381_outputxyz ECP_BLS381_cswapECP_BLS381_get\ ECP_BLS381_rawoutput ECP_BLS381_select} ECP_BLS381_addECP_BLS381_affinetECP_BLS381_subNECP_BLS381_equals<ECP_BLS381_setECP_BLS381_mulECP_BLS381_dbl teqECP_BLS381_isinfJECP_BLS381_cmoveGECP_BLS381_copy]ECP_BLS381_cfp(ECP_BLS381_infECP_BLS381_mul2 ECP_BLS381_toOctetECP_BLS381_setxECP_BLS381_generator ^ jECP_BLS381_VP_DSA_NOHASH+ECP_BLS381_KEY_PAIR_GENERATEECP_BLS381_PUBLIC_KEY_VALIDATEuECP_BLS381_VP_DSAUECP_BLS381_ECIES_DECRYPTECP_BLS381_ECIES_ENCRYPT@ECP_BLS381_SVDP_DHECP_BLS381_SP_DSA$ECP_BLS381_SP_DSA_NOHASHjCURVE_Cof_I_BLS381?CURVE_A_BLS381iCURVE_B_BLS381CURVE_Gy_BLS381CURVE_BB_BLS381CURVE_Bnx_BLS3815CURVE_Pxa_BLS381_CURVE_Pya_BLS381TCURVE_B_I_BLS381tCURVE_Pyb_BLS381 CURVE_Cru_BLS381JCURVE_Pxb_BLS381CURVE_SB_BLS381CURVE_W_BLS381 CURVE_Cof_BLS381CURVE_WB_BLS381CURVE_Order_BLS381CURVE_Gx_BLS381c5lsR2modp_BLS381MConst_BLS381Modulus_BLS381Fra_BLS381Frb_BLS381mFP12_BLS381_equalsFP12_BLS381_invFP12_BLS381_fromOctet1FP12_BLS381_iszilchFP12_BLS381_reduce#FP12_BLS381_copyzFP12_BLS381_from_FP4 FP12_BLS381_pow4FP12_BLS381_mul2FP12_BLS381_traceFP12_BLS381_from_FP4sYFP12_BLS381_output:FP12_BLS381_ssmulZFP12_BLS381_isunityteqFP12_BLS381_sqrFP12_BLS381_compowD FP12_BLS381_pow FP12_BLS381_cmoveFP12_BLS381_norm`FP12_BLS381_pinpowFP12_BLS381_zeroFP12_BLS381_smulLFP12_BLS381_oneFP12_BLS381_selectFP12_BLS381_toOctetYFP12_BLS381_frobFP12_BLS381_conjFP12_BLS381_usqr"ECP2_BLS381_mapit5ECP2_BLS381_outputxyz<ECP2_BLS381_get ECP2_BLS381_selectECP2_BLS381_frobECP2_BLS381_affineECP2_BLS381_equalsECP2_BLS381_set|ECP2_BLS381_subECP2_BLS381_mulECP2_BLS381_addrECP2_BLS381_dblECP2_BLS381_isinfRECP2_BLS381_cmoveECP2_BLS381_copyECP2_BLS381_infECP2_BLS381_toOctetECP2_BLS381_mul4ECP2_BLS381_setx teqECP2_BLS381_generatorrECP2_BLS381_rhsECP2_BLS381_output ECP2_BLS381_fromOctetECP2_BLS381_neg p tPAIR_BLS381_atePAIR_BLS381_GTpowpPAIR_BLS381_G2mulPAIR_BLS381_nbitsXPAIR_BLS381_initmp=PAIR_BLS381_anothergsPAIR_BLS381_double_atePAIR_BLS381_millerPAIR_BLS381_fexp9PAIR_BLS381_G1mulrPAIR_BLS381_line FP2_BLS381_pmulU FP2_BLS381_div_ip FP2_BLS381_onetFP2_BLS381_from_FP FP2_BLS381_sqrtH FP2_BLS381_times_iHFP2_BLS381_invFP2_BLS381_output3 FP2_BLS381_div2h FP2_BLS381_iszilch[FP2_BLS381_imulFP2_BLS381_from_BIGsFP2_BLS381_neg FP2_BLS381_rawoutput2FP2_BLS381_norm FP2_BLS381_zeroFP2_BLS381_from_BIGFP2_BLS381_mul_ip5FP2_BLS381_addFP2_BLS381_conjFP2_BLS381_equals_FP2_BLS381_subFP2_BLS381_mulFP2_BLS381_div_ip2FP2_BLS381_isunity FP2_BLS381_sqr/ FP2_BLS381_powFP2_BLS381_reduceFP2_BLS381_cmoveFP2_BLS381_copyQFP2_BLS381_from_FPsFP4_BLS381_copy FP4_BLS381_from_FP2 FP4_BLS381_pmulFP4_BLS381_oneFFP4_BLS381_from_FP2H<FP4_BLS381_xtr_pow2FP4_BLS381_times_iFP4_BLS381_inv>FP4_BLS381_output' FP4_BLS381_xtr_powFP4_BLS381_div2*FP4_BLS381_iszilchFP4_BLS381_imulFP4_BLS381_negeFP4_BLS381_rawoutputFP4_BLS381_norm FP4_BLS381_xtr_AFP4_BLS381_qmul|FP4_BLS381_isrealFP4_BLS381_zero FP4_BLS381_xtr_D5FP4_BLS381_add FP4_BLS381_conjFP4_BLS381_equalsXFP4_BLS381_frob_FP4_BLS381_subFP4_BLS381_from_FP2sFP4_BLS381_mulSFP4_BLS381_isunity$FP4_BLS381_sqrFP4_BLS381_powFP4_BLS381_reduceFP4_BLS381_nconjLFP4_BLS381_cmovew ECP_SECP256K1_addsECP_SECP256K1_sub<ECP_SECP256K1_setECP_SECP256K1_mulECP_SECP256K1_outputECP_SECP256K1_dbl ECP_SECP256K1_pinmulECP_SECP256K1_isinfIECP_SECP256K1_cmove\ECP_SECP256K1_cfp(ECP_SECP256K1_inf ECP_SECP256K1_select ECP_SECP256K1_toOctetECP_SECP256K1_generatorECP_SECP256K1_affineNECP_SECP256K1_equalsECP_SECP256K1_rhs teq ECP_SECP256K1_fromOctetECP_SECP256K1_negY ECP_SECP256K1_rawoutputGECP_SECP256K1_copyECP_SECP256K1_outputxyz ECP_SECP256K1_cswapECP_SECP256K1_getECP_SECP256K1_mapitECP_SECP256K1_mul2ECP_SECP256K1_setx$$ ECP_SECP256K1_ECIES_ENCRYPT@ECP_SECP256K1_SVDP_DHECP_SECP256K1_SP_DSA$ECP_SECP256K1_SP_DSA_NOHASHjECP_SECP256K1_VP_DSA_NOHASH+ECP_SECP256K1_KEY_PAIR_GENERATEECP_SECP256K1_PUBLIC_KEY_VALIDATEuECP_SECP256K1_VP_DSAUECP_SECP256K1_ECIES_DECRYPT CURVE_B_I_SECP256K1CURVE_Order_SECP256K1CURVE_Gx_SECP256K1CURVE_Cof_I_SECP256K1CURVE_A_SECP256K1CURVE_B_SECP256K1CURVE_Gy_SECP256K1?CURVE_Cof_SECP256K1NsR2modp_SECP256K1MConst_SECP256K1Modulus_SECP256K1Vz5BIG_256_28_toBytesBIG_256_28_sdivBIG_256_28_decOBIG_256_28_split%BIG_256_28_dsub*#BIG_256_28_modmulrBIG_256_28_iszilchBIG_256_28_monty*BIG_256_28_parityeBIG_256_28_copyBIG_256_28_fromBytesBIG_256_28_pmull BIG_256_28_bitb BIG_256_28_dnorm BIG_256_28_modB3BIG_256_28_dmod2mBIG_256_28_dzero$BIG_256_28_modsqr>BIG_256_28_add.BIG_256_28_invmod2m;BIG_256_28_fshl`BIG_256_28_compBIG_256_28_outputBIG_256_28_fshr-invmod256BIG_256_28_ssnBIG_256_28_cmoveBIG_256_28_diszilchlBIG_256_28_fromBytesLenXBIG_256_28_dcopy$BIG_256_28_modneg BIG_256_28_orBIG_256_28_smulK%BIG_256_28_moddivBIG_256_28_dmod !BIG_256_28_shlxBIG_256_28_ddive*BIG_256_28_jacobiBIG_256_28_shr BIG_256_28_rcopy*BIG_256_28_dadd_BIG_256_28_sdcopyBIG_256_28_dcompBIG_256_28_doutputBIG_256_28_pxmulBIG_256_28_rawoutput8&BIG_256_28_invmodpBIG_256_28_cswapwBIG_256_28_dcmoveuBIG_256_28_nbitsR!BIG_256_28_random3BIG_256_28_dfromBytesLen BIG_256_28_sducopyBIG_256_28_subBIG_256_28_dshlwBIG_256_28_mulBIG_256_28_dshrBIG_256_28_dscopy2"BIG_256_28_randomnumBIG_256_28_isunity.BIG_256_28_div3BIG_256_28_imulBIG_256_28_sqr-BIG_256_28_inc7BIG_256_28_norm-.BIG_256_28_mod2mmBIG_256_28_zero .BIG_256_28_one BIG_256_28_dnbits BIG_256_28_drawoutput3*BIG_256_28_lastbits_ BIG_256_28_dsucopy=muladd_256_28bu#FP_SECP256K1_equalsFP_SECP256K1_rcopyjFP_SECP256K1_invFP_SECP256K1_iszilch FP_SECP256K1_nresUFP_SECP256K1_reduce4 FP_SECP256K1_negFP_SECP256K1_copyFP_SECP256K1_rawoutput4FP_SECP256K1_redc,FP_SECP256K1_cswapdFP_SECP256K1_mod[ FP_SECP256K1_add FP_SECP256K1_subFP_SECP256K1_sqrtFP_SECP256K1_mul^FP_SECP256K1_output FP_SECP256K1_div2 FP_SECP256K1_pow FP_SECP256K1_sqrFP_SECP256K1_imulFP_SECP256K1_cmoveFP_SECP256K1_normquologb2FP_SECP256K1_zerou FP_SECP256K1_oneFP_SECP256K1_qrlE1$BHASH512_hashhHASH384_processtK_512b SHA3_initHASH256_hash KECCAK_hashHASH384_hash*K_256SHA3_transformAMCL_SHA3_squeezeSHA3_process HASH512_init SHA3_hashHASH256_initRCHASH384_init6HASH512_transformHASH512_process SHA3_shakeCHASH256_transform HASH256_processki?l}fill_poolGsirand AMCL_RAND_seed~RAND_cleanRAND_byte9sbrandpack4C productunpackltab*rcoG incrementsAES_ecb_encryptptabrbsubtInCo AES_endAES_initftable AMCL_AES_decrypt_bmulfbsubi AMCL_AES_encryptmAES_getreg!InvMixColrtableAES_reset]AES_ecb_decryptSubBytexpackN tOCT_copyZ OCT_toStrOCT_randOCT_shlOCT_toHex)OCT_chopOCT_compJOCT_emptyDOCT_outputstrlenOCT_jintchar2intOCT_padOCT_fromHex5OCT_frombase64WOCT_ncompOCT_jbyteOCT_jstring*sprintfOCT_clearOCT_output_string\OCT_joctetLOCT_tobase64OCT_xorbyteOCT_jbytesOCT_xorruYHASH_IDtoday-AES_GCM_ENCRYPTAES_GCM_DECRYPTHASH_ALLHmhashitGET_TIMEu_AES_CBC_IV0_ENCRYPTHASH7AMCL_HMAC+ehashitKDF2=AES_CBC_IV0_DECRYPTPBKDF2 fOZGCM_wrapGCM_ghashunpackGCM_add_plainvprecomputeGCM_add_headerGCM_finishGCM_add_cipherGCM_initwgf2mulTpackm5 j ,9)<@G(B)`Ck+ mGf `6G̡m#Gf #`%G0m-Gf -`#/G`f ``+`G >#dG bG 7+cG 1  +` f ` Gm7f 7`+94&0:G:GG#U/C;fGe`Fmx1f ` 01 G 1lmGf `4 +G ;1 Gex7e Pl \ hme mx>mt#/;GSmMNf M`OGm\f \`+\`0\G!;_1W^G_1pmF m(}i }` }`0}GG.+1Gf `+G G +1<m:Q+4tf `;4o"GePx7" P)!\J"h#"m7#D#$\D%hi%Phmp&&&' ,@Gf @`7+@G BG<?f ?` AGH0mM (f `0(+4(G;0v(H(T)`mpS(v(xHmm'*vJ*m;o*H*T*`DHmb+f `++4,5G=,0G,Gm`,v,;,H-T(-`Lf `+G G >#G 7+G \ +` f ` Gmz4.f `+4.0G/G/Q0'/31?Xo/`}.k0v,mb 1k 1 4 C4w mf ` 01 G 1tm$GT6f $`'4p:+&GB;(1B&GX)w6k6vb *<w "@ iB TmXB`BkCvlmvEE'E?F3K8m=Ff `FGmH+`Hf 4IGmIJlJJdmK+`Kf ` LGm]VMfyMrM~m2N+2`Nf 2`O4GlLmNPqP\m-P.P .m<PEQQ$Q]GQi,ms}R;s`Rf s`R+s`WuG7DvRD,S\hMTP7w SDAU\bVhVPm-X-X-7  YD-Y\hNZPmB[e[[[m#\,]8']DJ]Pm_;`_f `_+``Gm kb;`b0G7PbDb\hcPmd+` ef `/e;GReG~A1A1A1;A1+A` CUxm)1f+`ff `f;GnhGi1 1=\gV:gniztm9Gj+`pl1nGo1o17 p,kDOk\hmPIf I` KGtmIp;`Bqf `q+GsGs1qs= rV@rn tzHmZ%u;`Huf `ku+`uG!v 1YvGm uvu=yJyVxbxzmjy;` zf `Cz+`0$4fz GW{"U{+"U|5#U$|+%Gxmyjo|;j`|f j`|nU8lGlG+nU@`mf `Ђ `10`8`449U+G̓5U;UaGm! !!-!=9!!!m (mmGf+m`f m`>#m`7+oGp1/oGm1;`q+`0`7+Gڈ1/G1 >#G(mVcَo{mGGf `j+`GGf `+` G;`f `+` G n n` n` 0nG pG +q1m:+:`4:`+<G;>4+=4e8$?Wx7AzD\hơPVBc͢{;@FT`VpIc{MfEP P70 Q:\BPeh RR+`f `  GNf N`+NG 7+QG >#RG PG;`f `+` G&+&`f &` (GmYf Y`Q+Y`;Y`>#\4+\4+[G ^)t]8`bf_r~ h\ ˲ o3#` q,˰87DPb  rk ҷw % l ] wfrۻ~d;d`f d`+d` fG m}!f }`W+}`;}`>#44Ѿ+G40G+4 emx/vB ;T`3]# .,8gDPb Sk w   ý(<@Qxi7 P\h  m*f `u;`+G+4+>#44+4M20G7,D\hPepxmvV{;T`;PYT8`<(Q)+i0_p204~47`_,P,\h7.P.\h*223Lm*$4,* pm GZ4f `}47+G|m9*4F*4R*D7^*74D5\h=6P%-f -`+-G 7+0G >#1G /G|mg7>#`7D4x8G80G8+G39GI;+Gm!7v8!!B8 !9!9!!9-!:9!m*l;>#`;g `<D404p<+G<Gw=G>+G0-=K<@"R=== =A>!m?@+`@H`@K`A>#`04f 4+4e"Bm`AxAe"(BmAxB"mQ#B+#`*CH#`MC>##`80%4f &4e"'2DmCxC<#dmc/VD+/`DH/`D>#/`f 14e#2Fm ExE#4.EdEmG7F$mu9G+9`GH9`GK9` H>#9`~0;4F.<4f =4+=4e0#>ImiHxHe$(?ImHx(I|%mI+`5Jf `kJ1`CL4rd4{N4ׂQ4ы404e`#Jx#LG7+M4TLG+LG*p6P,*V|6pPîc{V@(Pc{7h7Q DM\hnPe8Rmep(S,xǵe(bpm9*(aF*R*^*7P)D \hCPe)e8xe *f\mDxVl:TXc{9*:YR*^*7`*iP\h*^̼#/iG;SV9V{^;`0GmoGf oG wqG ;qG +qG zqG |qGTf T` VG`>#G Z1 G G G<m#f `~z4~w4+4;4Gm*9*<gF*R*^*7<1D\hP-+g-70,P\Bh7P-h\"P-#/[GS;-#v;G!- !0!-!9!!0. !-!9!ep.mxe.mx<.E3Q]i7P/XDP\ he/}m<x/-0a. .@070D;\h\P<06]i- 1---A-- -71ho\P.2#.h/.;.G.S._.7@2YDP\Ch#GGGZ1 G72yD\hP$Om!Bf !`+!45!G0#G#G 3$fP3(c 4:!1"4# 44;!1"4 4$1!U"4 45A%&B5&*GT&1N5X&8G\&+d5`!N5"4Y5!A*)!4"4 { Wdj8Q5C@+R@](B)f Ď0ĎƓG:G   8Qm  ! , 7dQ, dl w  Q|md l w  XRm8 >@ K VdR< l w Rtm_]=C>#ѓѓ \S\m  C0p+HS*<& (G)8{;G SmqCa;?+Sd  ! , 87dT, l w `Tm&f Co+C0];GJGTpmmf C+C0]";GPUPmXCCCUm]CCi H"l H3  33  i]7+>#-*]]G%G];+]F!AQ)9)#+g ] G/o ]r ]V  !!VD g"!. C0pWm+C;8WD @ ,K VdW, l uw 8XDm+C |Xm  N  dX,9 l w ")+)Cf )C+)C0+p"&C4YmA'+ACpf AC;A]+S5C] THYX`  ! , 7dY0 {l Vw ZPa  D  dDZ$9 l 1w |Zh Zm .+Cwf C>#o ]ZD "!,. [Dm O [m r   d0\,{ l 'w  \|mb Kk w  "5+Cf C+C]m &+Cof C+Cm7+Hb <]4 k 7w  ]m" +Cf C>#3 [ "C7+C+"Qn+nCf nC0pp<^m1 +Cf CF+L+I~ r]& ]l^ || 4   P4  K!  ,  7d$_8 s l N w ~4  4   d_ 9 pw ~4  05 T   d5{ l w ~ 5  d 6{ / l w ~ P6  d6{ R l w ~ 6    d@7{ u l  w ~p7 , b  d79 l ) w ~ bm|   (cd   : ! , 87dHc, ^ l w cm?  L+C C(dmM ]8 +C>#+Z ]8dd@  @ K Vdxd, 6 l w ~7  ! 7 ,dd  l w ~0emZ  +CEf C+>#HHD#GU g`w :ku $H  mjeD)B)e\m4fmi d*df dfif f+fflmGO$ZdgXmmgXm(0hm{ "k x xf xf k v r imo<F.qx * <& ()8 : @ *( * fim *  5f  k45 *G0i8 O~Zpiim Wf j   fjm *fh  C {?(|k,'0k$m 3*3f3 G53*6>#6?5(l,@}0lm RRf;U! V*mm 4W4f+7 7w7|7  7Z 7 7 7" 7 7f 7f 07*3 ffB k E  f,r m 2f{  ## $ L+%-$kw"*5"*  "*=0$k "*`r'(r*0Gr82O0ZGs05ROG 89UOJDu@ISRf]0hGu0JOxZG8XOtvLb}/yGv,TO Zv8wm mmf  mCg oo8w/ xm ef8F.0xxm fy ym/ P f8F.LzmD   C f!  {mW *a!f! C!! "*{ml !f"f9"+]" "w"|" E# # # 2$ $ *pmt$}$%G0l%O6%ZĂ%T , ,f ,f 0,*m{ %f5&*~&*&*9( k( k(+*(P$(0Gt<s(O&ZG9r'O(Z 0) ;) _) G$)O'Z H4) ) ) G$'O*Z e A* +A ;A!C"m K7*Kfm* Kf*+K.>#N8/ O3 Mk# ,S/ $ . #J48S*R*]n/h# l T/ / / #Jx0T2+Rh+]/h#  UD0 0 g0 #J0U+R+]0h#  V0 0 0 #J0V,RL,]1h#  W`1 ;1 1 #J,0W,R,]1h# \X1 1 2 #Jl0X,R0-]42h#  Y|2 W2 2 #J0Yl-R-]2h# ؆ Z 3 2 -3 #J0Z-R.]P3h#G0\s3OP.Z#D]3#J\@^.R4]3hm l:4lf4lf4l ?5 l nM.n n oL+p8ok:l0ok<5q*< q*==0ok1>q*|> q*>f q*>+q*G<w7O5ZtXdx7}5&8GX@8O5ZK8G0yp8O*6ZG8{8O`6ZGD,}9O8ZtpD~9}_99Gp$9O:9Z9G0:O;:ZG0q:O6ZG0,:O:ZGl,;O9;ZG$\;O;Zt̊L;};4<G̊,<O;ZY<G$~<O<ZJ8@=R6]=hG0=Oe=ZJl0 >R7]=hG0O7OtL7} ?T?G,/?O>ZHy?tm ? f  k&g 1w : <u $ H S- 0* * |  &   }jmw " ?N "+ 0@" y@ " +$ ~5$ @& @ % 0m D A D g F ~+F +F hAI AR G AU H B H $m h 1Bh TB^ h B h +j ~5j [ j m B l CU k m  ACd  dCN + Ch  C Dj  OD=0 D/ ~R ~+ 5   ; 0  a  L+ DJ D  -El  cE/ m  Ed  EN + Fh  PF FJ F=0 +G/ tGt  ~+ ~5 ~  ; 0  a  q  L+ G  Gl  -H/ m : eHd : H : HJ: @I=0: I/: +> ~ > ~;> 0>  > I? J @ FJl M |JR @ JU A m r Jd r J r /Kj r xK=0r K/r ~tR ~+w  w ;w 0w  w Kx LJu VL y Ll  LR y LU z m  Md  VM  M MN + M  AN  wN  N/ =0 l0 ~F.^  j +  v  v   ^ Nz O  UO  zOh  O PG  #Q  GQ0 jQ  m5  Qd  Q  Q 0R/ fR=0 Rl0 Rz S  ~F.^  j +  v  v     >S  xS  Sh  S "UG  FU  jU0 U  U  B) : $  @ (0 ; A| * T1 X8 \+ ` $  !A )9) $   -0     ri* m* o<F.* qx5 *<& ( )8 $  $ 0 $  $  $ * ƅj 3! T8B)3" T,3# T=~$ T:@8(L~% U_~& LUo~' U~* U~+ U~, ,V~. dV~/ V~0 V~1  W2 DW~3 W~4 X~%5 tY~ 5j3! \8C:OlZ@e(B)3" ,]# d]O3$ h]3% ] j)B)m?*U?BmG*VGBm#gV+V6 `mLVT\mbBWL+bBܣm)l*WlBWlB=O L+OB OB G Rd* $ f & +';(*) Y)% f ' +(x N(x$ f & +'< *<& ( )8 :/ $@ *(pmXfX#09wX+X64`m<YL+BdYf TxmQYL+BYf TY+T#k qkGkG mm5n#p4Lk+pj6#4k+j62$j; lGY:lb/lnTlzyl2:l;lG,Wm2m2Lm;|mG2pn;mGTm2Zn;nGmYnbonXozoԺ\mo+Bpf BIp+8K #qGqL+Gr *)r*_r*#8@p+p6x ]q#:q+q6<$rrl$sr#@p+)s6 ܼ0 B B0*0mNs1Bsg Bs_ ) L+555u*-x*x *x+*Ly*y*y+G#@v+-t6# ;v+4v6#`;v+nv6#;#w+v6#;Yw+v6#<|w+!6#@<w+w6#<w+ x6<'Xzct#<w3z+t6 =)t }z zx "`=+#e * + ;$%m%z %Bz %B{+% )f'G$>#(P -&` =-D{ {   .X" =.{  | }  /À >/H| ~|  H 0Ad p>0| |   1; >1,} b} `  ?2˂ P?2} }  ?3$}G ?3~ F~  @@4Ń p@4~ ~ C #@6+~6`07„ X8*   .  m Q   |m%[,L+[Bm8hu hd hBf jmL B* d+G/ G//B'/ Mw : Xu $  i t- 0* *    ŚjX"B)X`mslm%0$XmN|mY*YY)f [9c+[9*   + h% 9( 9)x F.9* DN(x$ f a& +a'< l*<& ( )8 : @ *(@miik9T k9hl"    0m*x  \8v%@0ҋmu99<?m0s%*0m d+:9t9m * d+ʉ>9x93 ?ۧ ۧ+߉9 9C) )p0m"*B  9g?9rhBz~~p,mrz3Tm2*mǓ9rtlz~8,5h`mmC0*"0k29 29ʔw29|29> 29x 294mSf*ff i*R h9wwh9|h9 h9% h9_ h9 h9ӗ h9S&&m| T0Ә%00/c1 1 1 01*u B !mcS" "" " L+O*œ5* *=0 *ҙ4%00*%#@-%RH<+Z>ep0u%P0#`At%|TQ,,%0v$e 9* +9 ;9;%`msAAў A+A >#D E C Iy & C R8I*Z`eңp  J  = R0JZ̟e`p $ K  ˤ R00KZ>ep ` L6  Y Rl0LzZe|p  Mĥ   R0MZ"e p N- P u R0N^Zep  O   R$0OСZe&p T Pn I  R`0PBZxep0Rק%0S3R@TZzeWpDm0 !@mh" l0"" "L+ "5!* * *+**e* 8)ޫ%G00*%&0 0,K%n0P0.%0$0%0#A25%X0#A4|%0#A6í%088i%}0|pdj"lp4G%R0kZeWp< 9!Hmq۰q$ qd"g s"s"s"s"s"s<t9~xx,8Y%G0p(ݲ%09|X^0̳%0|L;$_%<|dLδ}d$%0=hb  hѵ h@ !Dme [ 99 i t- 0* *  g w : u $ ' l &  jm i|8mW+ շlmj C+ ? Q 7+  B)  @ ( *: 6 m}+  0 7+~Qù  3 mϷ Ϸ ߺ   S$ ѻ"$ DTy(m ,  bb R μR & )) N, s/ f g +g 6;g 2 5 ̾8 ; m+ :  > 7+~Q L      Y $ "$  T&̿md5+d ~ d >d  d YAd 7+f~Qf hi Ij Ki j g g VDg Gg  i bi >i xJi hk$  "k$ 1h\yxmg+ ~f  + $< I $ M$ P$  $ 1 $ Dmi DDm TL+g   m- - >- 1W ~3g 35c S4  V4 D<2 0Y0\0<~~~ $ / d*$f g &+g ';g () r Y) %f '+ (x N( x$f &+ '< * <& ( )8 +h% ( )xF. *  ) r i m o<F. qx $ 66   _Fj5C@+R@](B)tmh Lt hmj$ $ $'0$]m{,]p, .PmXm>]:>>`mGL+GG8G<`mOL+OO O Pmt6|Pm_L+__ <pmWPm  W L+W W N( x$f &+'<* <& (G)8:G `mxL+x hzt$$|2|\m V)lmL+`hm5G=HS  L+ >#  L+  m"L+k >#d)5L03=iHEShm iL+5hmDL+5]hm  h   # 4m+HL+ϓϓϓ~ ф bф d/ф j ф ф =08/1 6 L+6m:L+ Y lmL L+ ]L+] maL+!mh2 j; Pm2; `m3 [< H g L+g g| mp6L+6}9F.8 0:Y#5 B@L mEL+EG2t H8;2 K;  Ln%,L+,, mQ$L+QS2, Tm;2d W;3 t (X< 5H 5 L+ mDp meY+ef e+e 8F.iiL+gh8j] (nzt8qD| Ttx    #  z G]  Zp L+p!@m]L+^6mphd$h t  $tmL+F. G ;G ޵jLLtm)tm%r%4Hm,L+,|m33'3`m"<pL+<< < `Pm % n Tm7LL+LL pmFtPmL]L+]PmEL+  Y) % f #' +#(x .N( x$ f K& +K'< V* <& s( )8 ~:  @ (B)m!jY)8q wPm,tm  # h l|m\L+ 4hm5j=HSUmL+mm>#p#p#dL+mmEL+fB ) qVw5(0=HStPmhm / x  ,hm| L+S5hmL+.w5(mL+ u #|#w# ?$0m L+U w#/|#i # # TlmL+lm $L+ ,mmL+w#9|#m(qL+(+#(5+#bF.*K 8xm=L+= = sTL+TTeL+eL+H(mF+FOf F+FF.IsIs_L+HJ(P:QR4  \L+5 #p m"a+aPL+aaaF.awcr|c ,da f ! g)   5$!(hN=H9SL!i \! j   5! m]H9S5! noS! p|L+||"m3u+uuL+w0",x7 \"4y m "5" z~=ZH6S"|" ~DL+DD #mD+E7+~sSL+#f 5+;N d x#   #({#m#  t$(?  $$ $(   %@  %(  d  0%  X%(    p% PB? %d % 0&mW + + > t  f  +~0s~s L+sp-eG&  < & Kr &   '    `(( h x(( )(C h  * *(  4*P*Ch*h 4)(   L)J ) (( B (g ) L+(*  d+ +(,E ! +i+. -(3   $- X-6" `,(j  x, ,(  ,!,Ej+B E,.hmkAl A A0Al.`m|JGL+JJ K 4 j.4)B).\m(/md*"dfkdff f+f/lmG$OmZX0Xm0Xm(01m"k x xf xf k v8r imo,F.qX +* ,& ()( &: @ *(F* f1m*5~f!  k}5 *G 28 OZ`2Y2mfC 3 Z f3m*gf ?(h4,'B04$m3*3fD 3 53*06>#6 !?5(x5,@ 05m+RF!Rf;U|! V*l6m=4!4f!+7 " 71"w7V"|7{" 7" 7" 7<# 7l7 7f 7f 07*ffB k  f; mO#f# # # $ L+%%$k%"*C'5"*f' "*(=0$k@( "*L;'$(l;*S$0G;82a%O$ZG;05%OGB9&OI0>@I'Q$\'gGp>0J'O'ZG0CX$Os?Lb+%|((G?,(Oc(Z?~$@mam(mf@) m<0g oo `C@c)@mu)f(F.A)Am*f0BN*Bm*f@(F.8Cm* <+fL+ 0 Dm*+f+ <0!! "*Dm,f7,fm,+, ,w,|- O- - - <. . *\Kms.|./GK0s/O=/ZK/, ,f ,f 0,*Km/f<0*0*0*@2 k2 k2+*(4Kft4 Kf4+K8>#N?9 O= Mk$ NS9 % 8 $IN8S4Q5\u9g$ TN T9 9 9 $I`N0T95Qo5\:g$ N UK: &: n: $IN0U5Q5\:g$ N V: : : $IN0V6QS6\;g$ O Wg; B; ; $IO0W6Q6\;g$ DOX; ; < $ITO0X7Q77\;<g$ O Y< ^< < $IO0Ys7Q7\<g$ O Z= < 4= $IO0Z7Q8\W=g$GO0\z=OW8Z$,P]=$IDP@^8Q>\=gPm$lA>lf>lf>lF? ln M.n n oL+pBokDl0okF5q*G q*G=0ok8Hq*H q*Hf q*H+q*GQ<wAO?ZsjXpXm" IN "+ J" [J " +$ 5$ J& J % X0mD K D g F +F +F JKI KR G KU H K H Zmh Lh 6L^ h L h +j 5j [ j m L l MU k Zm #Md  FMN + |Mh  M Mj  1N=0 gN/ ~R ~+ 5   ; 0  a  L+ NJ N  Ol  EO/ ]m# }Od  ON + Oh  2P {PJ P=0  Q/ VQt  + ~5 ~  ~; 0  a  q  L+ Q  Ql  R/ `m?: GRd : jR : RJ: "S=0: kS/: +> ~ > ~;> ~0> ~ > S? S @ (Tl M ^TR @ TU A tbm[r Td r T r Uj r ZU=0r U/r ~tR ~+w  w ;w 0w  w Ux VJu 8V y rVl  VR y VU z dmp Wd  8W  nW WN + W  #X  YX  X/ =0 l0 F.  ^ +  j  j  v  Xz X  7Y  \Yh  Y ZG  [  )[0 L[  tgm p[d  [  [ \/ H\=0 ~\l0 \z \  F. ~ ^ +  j  j  v   ]  Z]  ]h  ] _G  (_  L_0 o_  _  B) &: $  @ (0 ; A| * T1 X8 \+ ` $  !A )9) $   -0     8ri* m* o,F.* qX5 +*,& ( )( $  $ a $  $ r j 3! ]8B)$ T" ]Yd&:p {@8(8 3#  ^J 3$ ^^ T% ^p T& <^ T' d^ T( ^ j!3! ^8C&:Ol Z@e(B)$!3" ^5!# _Ov5. F!2jpj9)<@G(B)`Ck+pjm@#G_f `_GkmS##G`f #`a%Gkmf#-Gaf -`2b/G!`f ``+`G >#dG bG 7+cG 1 ! +` f ` Glmz#7cf 7`+94d0:Gd:GCGe#e/f;fGe DFLemDdxe!1f ` 01 G 18oLm#Gff `4h+Gj;1jGepDgx6g7DiPi\jhpmekm%kxHk qm*l#`l/l;lGSrm#Mmf M`MmOGsm#\nf \`=n+\``n0\Gn;_1n^Go_18umippppqPvm#}q }`q }`r0}G@rGs+1!Gf `+G G +1Dxm#t+4:tf `bu;4CzGeD]txt7ExPQy\zh0EH{{z8ym7m{D{\p|h|PymP}}}v~ !@Gf @`7+@G BG!?f ?` AG{m#~f `~+4JG;pEHT`mE~v%{Dmm_v4|m;H݀T`H}m#f `ہ+45G!0G‚GmEWv;FzHT`"f `+G G >#G 7+G " +` f ` GL~m$׃f `+4i0GGPF7'3?XF` k*vDmb k = ܈ w )"f ` 01 G 1(Lm($$Gzf $`'4t+&Gz;(1&GX G)kvb G*=w  U tmX`kvLm'&?I3KPm:$f `ʔGhmP$i+`f 4Gmחma$+`ܘf `G0m_ht<mt$2+2`Af 2`d4G@LmFiTm .. .m>֜GS_?km$s!;s`Df s`g+s`uG7ЌvDО\hP7PwDE\h7Pm-Ԣ--7GD=\h PDmդxm%. :CFfRxm$;`=f ``+`G m$7;`Z0G7H}D\hmPēm$+`8f `[;G~G:"A1A1A1;A1+A` CUt(m$1`+`f `;GGԯ1 1=ܭVn zm$Gڰ+`1G1178D3\hPH"If I` KGP\m$w;`f ` +GG1@HR= Vn5zdm$;`&f `I+`G 1GmpH lv=HJVbnOzm%;`f `A+`d G>"UE+"U5#U0$4m+%Gm%j;j`f j`=nUlGlG+nU$m#%f ` `91\0`(`44U`+GU5U;UnGԩm !!!!T9!wE!-!m0 Sm4%mG+m`f m`>#m`7+oGAp1ioGTmC%1!`W+`z0`7+G1G:1 >#Gܳm`m+yNĴmT%GEf `h+`GY"Gf `+` Gi";`f `+` G x"n n` n` 0nG pG +q1LHme%:T+:`w:`N+<G;>4+=47IADsP\he@J?xl`pJBm<;JFT``JImKM@KP&7KQUP\h0LRI4"+`f `  G"Nf N`+NG 7+QG >#RG PG";`f `+` G"&+&`f &` (G|mt%Y9f Y`o+Y`;Y`>#\4+\4+[GL^3G_Hbh}tnLhX 0Mo3%`Mq.:}FdRb Mr$k w ;  _ԿwhtI"d;d`f d`+d` fGXm%}Pf }`+}` ;}`>#44+Gw4 0Gp+4N Um v0N M r    ;0OT`P 3PI%Q.:( FRb R$k w &  >RSnkSiML*7TP-\hh m%f `V;`+G= +4)>#4/47=+4I0G7yD(\h Pe@,x)mlv`PU|7;UT^8`;U :T@9`V;2:V<9;W@<>@XSNDk7X0E\GPHh7YFP$G\hZI3J*K[JHMKLm*pK&*pm%GKf `K7+GDm3*K@*"LL*MX*7\ELDhL\h5MP"-f -`+-G 7+0G >#1G /G 8m%N>#`\ND4$OGnO0GO+GOGP+Gm ]NvIO !P]N!PP!!uP-!P9!PE!Dm%Q>#`Qg `XRD404R+GSGSGV+GxqSR]SST=T bTm%$V+`mVH`VK`V>#`040f 4+4e^ XmVxBWe$ .XmWxWm%#RX+#`XH#`X>##`(0%4f &4e0^'YmYx*Y4m%/Y+/`YH/`Z>#/`f 14e`^2Z[mgZxZ4ZZ`\~[Pm&9\+9`\H9`\K9`]>#9`0;4F.<40f =4+=4e^>j^m\]x]e ?^m]x^ m"&^+`^f `3_1``45p4PyN40Q4f4t4e^_xSoedi_x_`_`H߈@\>Pdk7HF\hP`L6>P_Ѝk7_\PhXǏ`dp```m`PO7d`}\hJP7h\Ph`Ҙ7a\Ph`@aɚ(,pa>0b,k7\h\P e("Gf `"Gf `7+G ZGm5&JGf J`1J`M4M4ԡM4(M4|>#LG7+M4qTLG+LG*P%&*` PPHm`bPkm7pQDۤ\hPe<Rm˥ePSx3* ca@*L*ݮX*7c#DP\hedbm'edfkmxe0eeGx`<Xm3*(LYL*X*7(HPh۲\`e^۪#!/G״;S`TVmoGf oG wqG ;qG +qG zqG |qG#;`0G #Tf T` VG/#`>#G Z1 G G G mG&f `~z4~w4+4;4Gme-e--f-չ- -z-3*fT@*L*X*7pgD\hP- h|-7húP\ h7ihľ\Pe0imxڿiE#/;bGeimxiB#;G> jjGSO_Ik7`jD+PN\hejٻmtx@ .j. . !k!}!!9!E!@k#7kHDP\h !lm!?9! E!>0l_Zk7plh\P-.l|6.B.<N.aZ.f.r.7mFDP\h`<m-.6.B.f.r.N.Z.7`mD;\hP<m[&A`d>#GEGhGZ1 G7mD\hwPmm&!f !`+!4B5!G0#Ge#Gn$@0n( )Ns 4&:!1"4 # 44&;!1"4 4$1!U"4 4 5A%&K5&*GT&1W5X&8G\&+m5`!W5"4b5!A*)!4"4 q< &-jx|5C@+R@](B)&f Ď0ĎƓG&:G  xm    0* 5d, *l Mw  |md ql w  m4 < LG Rd< l w (tm']A0>#ѓѓ \m K  'A0n+FQ+*,& (G)(y&;G m'A&;5+  d I  * (5d@, l w @m'f A4+A}0];GGpm'2f A{+A0];GPm'A'AAm']fAAi Fl F`n d  n   .]7+>#-*]]G%G]8+]C!AN)9)thm(f A0>#+g ]Go ]r ]  !e!$ D )!_+,'A0n m(+A;4 D [< G 0Rd , l 7w @h Dm0(+A  m   X d ,9 l w ">')+)Af )A+)A0+n"O'Ad |mG(A+AA1f AAg;A]0+S5C] TF  X` _  * 5d 0 ;l w L La N   dp $9 l w  h  mY(+A7f A>#o ]$ D !+  Dm   m 2 {  d\ ,{ l w   |m[ d Tp | "a'+Af A+A4 mj(+A/f Ax+A-7+F[ h 4 d p e|  m{(+Af A>#n   Q"r'7+A+"'n+nAf nA0pnh m(+Af A+L+?~ hX] ]  <u o Y~   0o 3  ~* ~5dP 8 l#~w ~`o   ro  ~d 9 0w ~o   p  J ~ d`p{ l Uw ~ p ~ dq{ l zw ~ 0q ~ dq{ l w ~ q   ~ d r{ l w ~Pr  " ~dr9 3l w ~ mu V~   H d   * (5dh , l w @ m(AL+AAD m(]+A0>#+]4 @ < G Rd , l w ~ r R + 5 *d  Ol rw ~L m(+Af A0+>#FF:$GK GVw :au $F  , (7j ()?+ _Km@P[!Af)9).) `mPH)DF),4) Q)l 0cmB)  m ) r x m     +  m)M-*M7#Q]f PP+PP;PP%0PP[PP PP PP#PPY|PP|wPPT)-*7s)w)<Gk)MlGd)~IJL+K(l LhPmPmPmP{)x-*x7{ tm)-*7**P/*P s 1   e+  8 g  + P   m) -* , )< -*< s)<!w)? )WQd)DSPTL+\UPl VmmmP m*Q-*ts)"0s     m  # Dm*##-*#F+*#)) -*)!, xm#*Oi-*O+*O*S*S/R"`sV  $` 8W 1$  T` g)5 X m  g) 5  m0*-*2f +;00  .|Qw  hmb tk w  #  m + N q   #% mB*x-*x [+z=0{!/{z+z!b{P L mQ*-* A*0*>#&\+) *) -* )!w)!+!!!s)  )e&_d)aP b)c0dmm) -* )!!0 Hmc* -*  +* g "s P    &    $ @  N   I  "s 9 !  g   $P   D    $b 4! ,  k _w  x! ,mm*-* *0g "0t  ]  n  V $4" @   %   y"t   >  $"     a  # Hmx*6-* +*2g "t  `    =$\$ @   U  "0u     X$$  G   5 {$b % , }k w   *[mh( *Dj% 5!A@)9)+8D8)+8*>*>#>*A1==A  *T 1*X 8\ +` *  B)   +Z*+Z(-2 +!*D!$+$%*+%*+ODO-*SRk)MlG d)I J L+K(l Lh *  *  * P% Tm+bDb0C+byJ+bZ*gf-*i+h_Gpu|OZeqp|{0 9uKE"PD"[|"f"qv|}t( .""9( hUdE4#PY#[#f#q@) Lm.+#D#) m9+$D$+}) h$ %B%9) hU$Ez%[%P%f%q  2   N+Hj* +?z `eKmP[!Af)9) +(m+* o m+> p+} eK m+R i+ j+f n * m&@&c&&t+ m/,+'f + (,+s,(-M+f +M%s M ++M+M+M+T +T `B)Pm<lm l+P+ݐ +f P+0,Pf P+m,PP,,, P P># P P+  ,,, m:,3M)f 3)+3M),3MA*+3sd*%3s,8 +7M-,7M-7MS.,7Mv.+7M pvC***D,!xX- I vN"- #xv$. ,X.%/ ."x /  !wd60.%/:2F @w&p0.0$ 0 /$_0 ,0k41v _pw& k _w& k'_w x&Xl0W1/2 _0x& k|1v _`x& k _x&k'_x x&h01`2 _ y& k1v _Py&k _y& k'_y y&H012 _ z&k 2v _Pz& k$_2 (& k!_3 $'xz3 mC,l2f l3*l01o g o 4nM5nM'6+nMr6o 6o 6o xzs+3 {74x7 mS,]7f 7*01 g  p9M&:M:+M:  ; V; x`{7 {y;9(%, sM; mc,P;f  <*sl.`A<, P<-M<M!G < 0=@ mt,GP?f G?*Gsl.J`,@,KP@-IM@IM!G B 0F m,WCf zCMPmPm P  ,YjG lB)=->4)G mN-CL+6D *!  H xmY-+HDL++6D-*. H |mk-8D86D58oE:*:* I mw-I*4EI6}EI6EK* I m-W*EW6EW6 F7+W*.FY*fFY*J m-dFd6F7+d*Ff*XK m-s Gs6,G+soOG0s*rGu*u*K m-G6G6G**hL |m-(H6KH*nHf.*H**L |m-H6H6H*`M <m-4IL+6 M dm WI zI*N m-I6I*I0*J*wJ7+* N m-*JL+6J7+*J*{K0*dO m-K+oKL+6  Kj.*UL*L+*Lo.*!M*M;*= -*-25=1-2$). Q m-  NL+ 6iN+ o =  DO *O+ *P0 *6P *Ps. *FQ; *  @Q   N O N5-L+6*;F-0* * o.S m-0R06S06S2*S ,3 3S VS*\T hm-<S<6S>#<* T>*T m.DDTD6gTD6T7+D*TF*xU m.VTV6.UN V wU0V*UX* V m.`Ux.`6.V|.`owVb*c V m".H.\*V.\e V=W.\$.]j ._*?-k* H-k.PW mP.wQW|.w6tWx.woWz*Xy*hW ,{ W W*W < uXW 0 XhX m\.Xx.6Y|.oMY* !*" #! " !*"   A0 **T1< X8*\+Y `!< " G !AR )9)!." ou . .]$. ].1].1].1].*].*]|  .!djY 6!AA)9)Y m>/Yd EY7+EZL`ZL+L/#+Zl  EZ/!V[; [ E\/" [ \mF/x+ /{+\ mL/W]d E]/L]/L]/L^/LR^3L^KL^ L JL^l0Q] PmU/,_d EO_/L_/L P] Hm]/+] mf/_h L_/L`JLJ`L`=0L`l0La X^ mv/Jah Lma/LaJLa=0L"bLkbl0Lb  7>@B)Q\-0E E 7k)MlGd)IJL+K(l ELh +> +> +>P E>)WQd)>SgTL+sUPl EV J>UH)D`F),4) J> J>P 7>/0 +/ / / /(/E0f 4 +>> >'++E+E+E+v +v  +>< 7>! /gj_ 0_ \m-0!bd !"c1!8Xc7+!c!8cL+!8 d-!/&idl #d/$v+e#f/%"g;#|tb Tm gd g18gL+8b `m50 hd Ch>#8yh+8h)h 8(n0il Qi+iq0=iJ=(d mA0id jF.8Oj18j)j+8jl 'kt0_k|0kJ=#8n;8*$of \o0o0>p0pw0 ,n mZ0 w+8 x;8 zx>#8 * x0 x0 yf  y uz ~0  ~0  ~0! B)*1@ =H-0  q*k)MlGd)IJL+K(l Lh1!A) 9)11P)WQd);SdTL+pUPl VG1RH)D]F), 4)G1G1P1*1*1+++++ + 1<K" 0RrjHs < 5!A@)9)L+0*+0lqL 0? ?J?G Bm Bm +C* j.C 0C/ 0  +< /U /U /a  /a( /m0 f t4*NNLN*NB)+  +m +m +m + + *N<N* +6f 6*+6G1m >1U0m m m 1p p j t S/uU sm sm*NHs m1 S,m+U^1m%UJU_mvs tQ~^ T|E`@|U/p|(3z>ŅIZPu )bmcxDw m 1m  T(1U0mm1mLx @m/1Vi VYm+>#YmcYm+[*'+YmZx lCy m61m L1U=>1U0mbUGmt0*؎mT| `z ύ{ mD1m Y>1UL1U0mbUmt0*=mub1T|p`{ 4| mS1  U[mZ| bMmx֒6%B$> I: ; .@: ; 'I?: ; I4: ; I.: ;'? : ;I 4: ;I I .: ; '? : ; I 4: ; I.@: ; '?4: ; I1UX Y 141.: ;'I? .@: ;'I?: ;I4: ;I4: ;I1UX Y.@141.@: ;'?1X Y4 1.: ;'I  1 1X Y!I"!I7 #$ > $&I% : ; & I: ; 8 %BI: ; $> .: ; '? : ; I4: ; III !I7 $ > .@1 1 411X Y .@: ; 'I?: ; I4: ; I : ;  I: ; 8 .@: ; '?4: ; I.@: ;'I?: ;I4: ;I1UX Y.: ;'I : ;I4: ;I.@: ;'?4: ;I1X Y 4 1!41".: ;'? #&I%B$> .@11.@: ; 'I?: ; I4: ; I.@: ; '? .: ; '? : ; I I I: ;  : ;  I: ; 8 I!I7 $ > .: ; 'I? .@: ;'I?: ;I4: ;I1X Y.@: ;'?4: ;I.: ; ' .: ;'? : ;I4: ;I1UX Y411UX Y .: ; 'I !4: ; I".@: ; '#1X Y $ 1%B.@: ; 'I?: ; I4: ; I4: ; I4 : ; I.@: ;'I? : ;I 4: ;I 4: ;I .@: ;'? : ;I$> I: ; I!I7 $ > I : ;  I: ; 8 %B4I?: ; &I$> I: ; I!I7 $ > %B4I?: ; &II: ; I!I7 $> $ > %B$> .@: ; 'I?: ; I.@11.@: ; '?.: ; '? : ; I I I: ;  : ; I: ; 8  I: ; 8 : ; I!I7 $ > 1UX Y .: ;'? : ;I4: ; I1X Y 1UX Y.@: ;'?: ;I4: ;I1X Y4: ;I4: ;I41 1X Y!1"1UX Y#.: ; 'I $4: ; I%.@: ; '& 1'!I7%B$> .@11.@: ; 'I?: ; I4: ; I.: ; 'I? : ; I I I: ;  : ; I: ; 8  : ; I!I7 $ > .@: ; '?1X Y .: ; '? 4: ; I4: ; I1X Y4141.@: ;'I?: ;I4: ;I.: ;'? : ;I.: ; ' 4: ;I!.@: ;'?"4: ;I#1UX Y$.: ; 'I %.@: ; '& 1'!I7%B.@1141.@: ; '?: ; I4: ; I.: ; 'I? : ; I 4: ; I $> I I: ; I!I7 $ > 4: ; I1X Y .@: ; '.@: ;'?: ;I4: ;I4: ;I1X Y.: ;' : ;I4: ;I41 : ;  I: ; 8  I: ; 8  : ; %BI: ; $> .@11.@: ; '?: ; I.@: ; 'I? 4: ; I .: ; '? : ; I I  : ;  I: ; 8 I!I7 $ > 1X Y 414: ; I4: ; I.@: ;'?: ;I.: ;'? : ;I4: ;I1X Y1UX Y4: ;I411X Y .: ; 'I? !.@: ;'I?%B.@: ; 'I?: ; I.@: ; '?.@11.: ; '? : ; I I I: ;  : ; I: ; 8 I!I7 $> $ > 411X Y 4: ; I4: ; I.@: ;'?: ;I4: ;I1X Y4: ;I1X Y1UX Y%B$> .@11.@: ; 'I?: ; I4: ; I.@: ; '? .: ; '? : ; I I I: ;  : ;  I: ; 8 I!I7 $ > .: ; 'I? .@: ;'I?: ;I4: ;I1X Y.@: ;'?4: ;I.: ; ' .: ;'? : ;I4: ;I1UX Y411 1UX Y!.: ; 'I "4: ; I#.@: ; '$1X Y % 1%B.@: ; 'I?: ; I4: ; I4: ; I4 : ; I.@: ;'I? : ;I 4: ;I 4: ;I .@: ;'? : ;I$> I: ; I!I7 $ > I : ;  I: ; 8 %B4I?: ; &I$> I: ; I!I7 $ > %B4I?: ; &II: ; I!I7 $> $ > %B$> I: ; .@: ; 'I?: ; I4: ; I.: ;'? : ;I 4: ;I I .: ; '? : ; I 4: ; I.@: ; '?4: ; I1UX Y 141.: ;'I? .@: ;'I?: ;I4: ;I4: ;I1UX Y.@141.@: ;'?1X Y4 1.: ;'I  1 1X Y!I"!I7 #$ > $&I% : ; & I: ; 8 %BI: ; $> .: ; '? : ; I4: ; III !I7 $ > .@1 1 411X Y .@: ; 'I?: ; I4: ; I : ;  I: ; 8 .@: ; '?4: ; I.@: ;'I?: ;I4: ;I1UX Y.: ;'I : ;I4: ;I.@: ;'?4: ;I1X Y 4 1!41".: ;'? #1$&I%B4I: ; I!I7 &II: ; $> $ > 4I: ; .@1 1 41 .@: ; ': ; I4: ; I.: ; '? : ; I4: ; II : ;  I: ; 8  I: ; 8.@: ; '?1UX Y 1X Y  14 1.@: ;'?: ;I4: ;I.: ;'? : ;I!4: ;I"1UX Y#41$1X Y%.@: ;'& : ; %BI: ; $> .: ; ' : ; I4: ; II : ; I: ; 8 I !I7 $ > .: ; 'I &I : ;  I: ; 8.@: ; '?: ; I4: ; I4: ; I1UX Y 1411UX Y 1X Y .@: ; 'I?%B4I: ; I!I7 &II: ; $> $ > 4I: ; !I7  I .@1141.@: ;'?: ;I4: ;I.: ;'? : ;I4: ;I : ;  I: ; 8  I: ; 8.: ; 'I : ; I.: ; ' 4: ; I.: ;'I .@: ;'I?4: ;I 1UX Y!1X Y"1X Y #1UX Y $1X Y%1X Y &1'1UX Y(.: ;' %B$> I: ; .@: ; '?: ; I4: ; I4: ; I .@: ; 'I? .@1 1 41 4: ; I.n: ; 'I : ; II4&II.@: ;'?: ;I4: ;I4: ;I4: ;I1X Y.: ; '?  : ;  I: ; 8 .@n: ; 'II4.: ;'I : ;I!I"!I7 #$ > $ : ; %BI: ; $> .@: ; '?: ; I4: ; I4: ; I .@: ; 'I? 4: ; I : ; I .@: ; 'I? I!I7 $ > I : ;  I: ; 8  : ;  I: ; 8!I7%B.@: ; '?: ; I4: ; I4: ; I.@: ; 'I?4: ; I .@: ;'I? : ;I 4: ;I 4: ;I $> I!I7 $ > II: ;  : ;  I: ; 8  : ;  I: ; 8%BI: ; $> I.: ; 'I : ; I&I .: ; ' 4: ; I  : ; I: ; 8 I: ; 8I!I7 $ > .@: ; '?: ; I4: ; I4: ; I1X Y 1411UX Y .@: ; 'I?.@: ; '1UX Y1X Y.@: ;'?: ;I4: ;Id$ /opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includestdint.hbig_384_29.cbig_384_29.hamcl.h  #  JJJJJJJJJJJJJJJJJJJJJJJJJbJ `J b$#  YJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'J K JX*V.J%  JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJOJ3MJ 1O8 4EJ< P#TJ#K$:# K#Iy~J J {J J {JJyJJ {JJ JJ JJHuI$J:JJ JI L,JNJ/J J JK J-E PzJ{J<{J! ;JK JOJ OKK J MJJ OKKK J nJJ mJzJJJH JJLzJ JK J MJ LzJJJH JJLzJ J IKK J nJJ mJzJJJH JJLzJ JK J MJ LzJJJH JJLzJ J IKK J nJJ mJzJJJH JJLzJ JK J MJ LzJJJH JJLzJ J IKK J nJJ mJzJJJH JJLzJ JK J MJ LzJJJH JJLzJ J IKK J nJJ mJzJJJH JJLzJ JK J MJ LzJJJH JJLzJ J IzJJ zJKO 8I J$J%KJ #I KzJJ"H L H OK J M$JK%J G M#I KzJJz(JJtJJJJ"H L H P InJ mJ KkJ JlJJKKKJMJ0JK KI <z<J xzJJ JKJzJH J JJ I KzJ0zJ-4;A4J3A;J@"0t"J0J-4JAJ-J4J;JAJ3 J@J"JJ JKJ#L H LzJ OLyJP LIyJzJ  I K=JA:JNJAJHJ*J J@JMJ/J J J"K J#I K KzJ KzJRJ<y<J  F N F N  N'LJ'JJ H *IJ K=J.RJL@H+Jy,J*IK2JJ(J J!IJ KIJ JK JJ JKyyJ***2( $yJ"  N"~ N" N)CJJ)JCJJ3J HX,JFJ1JLHLKyJ*IK2JJ(J J"IJ KIJ J JJ JKyyJ***2( $yJ 0JJ J KJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L  JJ JAxJ#  #xJ JxJx\ xJ1J5J&J LH LL3J!MJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIKI.KK < b+I KHLGJHJGJHJGJHJGJHJGJHJGJHJGJHJGJHJGJHJGJHJGJHJGJHJGJHJ#K.KJxtt  J JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJxJ JxxJ"  J JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJwJ JwwJ y $K I IKIK JxJJIKIxJ JxJIKIK IxJ JJIxJ JJIxJJIKIxJ'JGx J$JxJ$xJJxx(JxJxxxxxxx?~JL-L&JJ&JJ&JJ&JJ&JJ&JJ&JJ&JJ&JJ&Jy J~JyJ xJJxJxJxJxJxxxxtxxxxJw68t6J||J6JxJ|6||JJ|J6JxJ|JJJIKIKI{JJI{JJI6JJI6JJIJ|J|JJ}JJIyJJJIxJJIyJJ6JyJ|J&JxJJ}JJI{JJIK'MyJ2JxJyJQ$ <JJJJJJJJJJx xJJwJ J }J@wJ ,w!JwJJyJ J yJ JJ JJ J4M&G$K4M tJ}J0t}J3J*MF}M1GM(JJ(JJ(JJ(JJ(JJ(JJ(JJ(JJ(JJ(JJ(J J(J(J JJ(J*J J(}J *JJ J}J(M *JJ J(*JJ J(*JJ J(*JJ (J*JJ (J*JJ J(*JJ J(J*JJ(J*JJ J(JK I JIwJwJ wJ:J:JJ:JJ:J:JJ:Jt:JJ:JJ $!~JJ$J:JJ JJ:JJ JJJ$JJ:JJ JJ:JJ J:J*KI JK|JJ JJ{JJJK{J JJ{JJIK{J JJJKI{J JJJJI{J JJIKIII{JJJKIKI KI{J =I KI I KI {$JI KJ)MG 4J~J (  J ~J <wJJw JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ J<wJ 4v!JwJ JyJ J yJ JJ JJ4O EL4M&G$KIK4L 3}  JvJ*J@}3J*M8F}M1M(JJ(JJ(JJ(JJ(JJ(J M!*}J(mL2JJ2JJ2J(J J*JJ(mJL(J J*JJoJ-H(J J*JJoJ&J(J J*JJ&oJ( J*JJ&oJJ(J J*JJ&o(J *JJoJ&J(J *JJ&oJJ(J*JJoJJ(J*JJ&oJ(*JJ&oJJ(J*JJoJ&J(J*JJo(J*JJo(J*J&oJJ&oJ(*J }JoJJ&oJK(JK J }Jp  K Jv ~J }J:J:JJJ JxJ$J::JJ!$ ~J6st 6sJ: JJ JJJxJ6J J$JJ:JJ 6sJ JsJ J6sJ :JJ JJ6s J:JJ JJsJ$ J6s <:J6s JsJ*JI J|JJ6JxJJJ|JJ JJJ{JJ{J JJJ|J JJ{JJJJI{J JJ|JJJ&JJ{JJJxJJI KI{JJ IIKI IKI IIKI IK IIKI IK I {JIK )M G!J~J ~J   ~ vJJJ}JJIyJJ JJ ~JJJKyJJ JJJKyJJ J ~JJJJKyJJ JJJKyJJ J ~JJJKyJJ JJJKyJJ J ~JJKyJJ JJJKyJJ J ~JJKyJJ JJ ~JJJKyJJ JJ ~JJKyJJ JJ'GyJJ JJJ JJ wJJ tv$ J! 4 ~K I IKIKIKIKIKIKIKIKIKIKxJ JIK'MG J?xJJ~J }J H}Jx<-J(?JL&J-HL&J&JyJ&JyJJ&yJJ&yJJ&yJ&J&J&J-HL&JJ&JyJ&JyJ&JJ&JyJyJJ&JyJ&JyJ&JyJ&JyJ&JyJJ&JyJ&JyJJyJ0J ~xJxJxxxxxxxxxxxx Jv ~J66JxJ6xJJ6xJJ6x6x6J66xJJ6JxJJ6JxJJ6J&K6IJxJJxJxJJ6J6xtJ6JxJ6Jx6J6||J&xJ6J|6JJxJJJ&{J}JJxJJ|6J|J||J|JJ|J|J|J(||J|W)J|JWt}J}J}JJ}J}J}J}}JIKIKIyJJJyJJIKyJJIyJJJIyJJyJJJKIyJJJIyJIxJJ}JJ~JJyJJJIyJJyJJ{J~JJIKIyJJIJyJJIyJJIJyJJKIyJJIJyJJJJyJJIKIyJ'JyJJIyJJ'MJyJ'MyJJ JwJJJyJQJJtJt 8JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ wJJ ~l v J"  v< J  L L L 'Jv v J$  } JIK J IK JIK JIK J IJK JIK J IJK JIK J IJK JIK J IJK J'MG Jx< Jv Jv J# sv D# xJKvJ J*|.9*M@GM((JJ(JJ(JJ(JJ(JJ(JJ(JJ(JJ(J J(|J J|J JyJ R+|Jy JtzJvJ vt J x4}JJJ|*yJ uJ Ju   LF|JM1GM(JyJJ)J|J(JyJJ(yJJ(yJJ(yJJ(yJJ(yJJ(yJJ(yJJ(yJJ(yJJ(J(yJJ(yJJ(yJJ(yJJ(yJJ(yJJ((|JJ(JJ(JJ(JJ(J KxJ3|*M*M l*(u J uJ JJ JJ JJ JJJ wJJ JJ JJ JJ JJ JJKu u< J uJ JJ JJ JJ JJJ wJJKu u< J uJ JJ JJ JJ JJJ wJJxJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ J<u< J uJ JJ JJ JJ JJJ wJJ JJ JJ JJ JJ JJKu u< J$ t$ JMvJJ y `x0xJxJJ lt6xJ6J6JJxJ6JxJ6JxJ6JxJ6JxJ6JxJ6JxJ6JxJ6JxJ6J&KxJ JttIKIKIKIKIKIKIKIKIKIKIKIK'M6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JJ&KxJ  tJ t6J6JJxJ6JJxJ6JxJ6JxJ6JxJ6JxJ6JxJ6JxJ6JxJ6JxJ6J&KIxJK J=~<J ~JJPJJ lJ/t~<J! ;wMJIKJ K~<~<J! ;!HNKJJJ Ju~<J  =~J X$~JKI IK+J UJ+JK #<}<J |J  J|gI#KIRJJK K KI KK:IJKKKKLJ J K J&JJKJ'J41J " JJ| J=|<J ~JJK JJu}<J% }J}J ,JJ JJ Ju}<J , } JJJ ~J l J < *JL|}J |JKIJKKKKLJ J K J&JJKJ'J4J=J L  LO||<J |J|J (J J~J Ju}<J ;vKJJ K  KO||<J $|JpJJJ K  KO||<J {J} J }J JJQ{{<J ~0|JJ !J!HLLzJJ K JJ*J{= l&JJ ZJ&JKJ |J|J JH LO <JM|J|JJ |JJ}J J~= <H H~J< H~J< H~J <|J J < }JJzJ~< H~J< H~J< H~J <J|J J< }JJRzJ zJJ{JJ lJtz<J zJzz<J zJ{ J{{J l< ztJ zJ yy<UC /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includeecp_BLS381.cstdint.hbig_384_29.hfp_BLS381.hecp_BLS381.hamcl.h e"  (JBJ+J(J]#]J# $JJ#=J  MJJ <tJ" ;>L!JJL!JJ=<J! J!MKz~J! LJMJ@~J ~JK  >&t~<J ~,L!JJ!JJ ~(+J }Jt}J }$(+J K LJ||<J $}K  PJJv~<JMJ~tJ }J J J~JMJt}<J }< J z}}J x %JK   J  J M K J( J" "!J JK   M 􃻃zJ<ztJ x4(JBJ+J JKxJJMJ~JIx!JJ!JJ!LJJ!JJJxJJxJJJ xJJJ xJJJ xJJJ xJJJ xJJJ xJJJ w>v=<JJ !J wJ wJJwK J I KKwJ J J#J!x J!xJ!JJL!JJJw J yJJxJJJ wtJ JKB} J}(+J L }(+J |J|<J }$(+J LJ|<|<J |(JBJ+J JLJ|<|J JJ |J  ({J{J JL KI KJ)/J!I J!I KIK J!K JJ{J<{<J  $ JK K% J"J J Kv$ J{J,< y$ ?JK  (J J (J J M   K K(J J (J J .  M x0xJ y$JL!JJ!JJ JxxtJ <yJJJa!JJ!JJ LyJyJL x x<yJxJ $JJJLJsKtJGJ9L"JJ"JJKK"tJJ"J"JKK"tJJ"J"JKK"tJJ"J"JKK"tJJ"J"JK"tJJ"J"JKK"tJJ"J"JKK"tJJ"J"J=JJ #V[J"J 4wKwJxJ!JJ!JJ!JJ!JJ~!JJ!JJ!JJ xJJJx<JLJJwJJ~ wJ>JJwJJJJwJJJwJJJwJJJ~ wJJJw>E<=J=JJw "JvJ  vJ JvJ JvJ$  K $ KvJ  vJ JvJ J( J' J J#J!w!JJL!JJJv  J JJwJJJ v J vv Jv vD /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includeecdh_BLS381.cstdint.hbig_384_29.hamcl.hfp_BLS381.hecp_BLS381.h " $XJ(L L#@ J IK IKL@J J   M  J   L P %J <J (J  L J< x<#I KI K~tJ (~<~tJLJ!L IK I L N J  v>>>> ~JJJ HLKJ#a J  M=v =~Jt (~JLJ"L IK I L N J  v>>>> }J'JJJ HLKJ#^ J  M> =}Jt }J<LJJJKJJJLJJ"M H N"J:=JS}JVt }J< k=> M>M}t $}ytLJJJKJJJLJJ!M H N"J:=JS|JVt |J< k=> M>M|t ,LHKK}| |OK K|JJyG MNKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJ IJJK JJJI JJJK JJJI JJJK JJJI JJJK JJJMLJ K u|J|J ,MKKK}| |MK LyG M NKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJ IJJK JJJI JJJK JJJI JJJK JJJI JJJK JJJ M JLJ KJ =L J|<|  /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includerom_curve_BLS381.cstdint.hbig_384_29.h  /opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/srcstdint.hbig_384_29.hrom_field_BLS381.ce /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includefp12_BLS381.cstdint.hbig_384_29.hfp_BLS381.hfp2_BLS381.hfp4_BLS381.hfp12_BLS381.hamcl.h ?&  %J@J(JDJ_JGJ JJ,J&  %J@J(JDJ_JGJ JJ,J$ ; J$H LK"JJK"JJK JJ<J# KJKJ =J$ KJKJ K=J% ; >,JFJNJ/JRJlJtJUJ JJ,<J$ s J$$J \JK"JJ"JJ J$KHtJ( KJKJ Ku~J) ;vKJJ u~<J $~JLJJJJ J zJJKzt~tJ& KJKJ=yJ 0 J"JJK"JJK Jt$JJJ󄼻􃻃J J {JKy~J$ KJKJ=yJ ,=%JJ%J%J J {JJK{t}J 0 J~"JJK"JJK Jt J%J+ J}*J4J J JJ8JJ.J )K 9 () J) J) J& JK󃻄%~<-J J ) J) J  } 0J }JJKy|J 00 =*JJ *JJJLJ u{J ${JK%JJ󄻃JJ u{tJ {,JKJJ {J rJ J rJK"JJK"JJK JJJ{J JK"JJ J{J JJJ JJ{J (zJzJK {<"JJK"JJK JJ J"JJK"JJK JJ= ~LJJ J gJKzKHK~~z0J$ $LKuyJ $yJKJJ uytJ 0zJK {"JJ"JJ JKHzJJJ {JJKJ  !  KJ{ {J {JJ JKHtzJ 8zJJ JJ JJ Jz"JK"JK J"KJJzJJJJJ zJJKzJJJJJ zJzJJzJJJJJ zJKzJJJJKJJ zzJJzJJJKJ zJzJzJJKJKJ zJzJzJJKJKJ zJ M K  @ M IKyJ  MGQyJ K$ J~ K$ J~OEJ K$ JuJ JuJyJJJ%JJ#L( J' JKyJ "JJ"JJ%JI \J$K#JKyJyJJJJIJJJ JK^y$&J JLJt<K`JJxK#JJ#JJJxJKKJJ J#FJ F#KJ#JJxJKKJJ J#FJ F#KJ#JJxJKKJJ J#FJ F#KJ#JJxJKKJJ J#FJ F#KJ#JJxJJxJJ J#FJ F#KJ#JxJKaJJxJJ J#FJ F#K#JxJKaJJxJJ J#FJ F#K#J yJJ J yKJJ J$KHJJJ JytGJ% ;vK#JJ#JJJIKJ Jux<J& &HLKJKJKuyJ yLJJJJJKJJJJKJJJJKJJJJKJJJJKJJJJKJJJJKJJJJKJJJJKJJJJKJJJJ=x<J $ JK JJJKJ JJJKJ JJJKJ JJJKJ JJJKJ JJJKJ JJJKJ JJJKJ JJJKJ JJJKJ JJJKJux< U /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includeecp2_BLS381.cstdint.hbig_384_29.hfp_BLS381.hfp2_BLS381.hecp2_BLS381.hamcl.h X$ ; C+Je<Je<!J$ ;>K"JJK"JJ=[<*J# KJKJ=RJ$ $JJ$=J  LJJ <tJ (CJ J+J) JL L  JJytJJ ,^"K"JJ"JJ +) J~J<~J $C+J)J JL󃃃~<~<J ~(CJ J+J) JL~"JJJ~<~tJ (~LJJJJJKJJJKJJJJ Lv~tJ (!JK!JJJKJ!JJJK!JJJKJ ~~tJ (}_J   PJJv~tJKJStJ ~JLu~<J L~JL ! PJJv~<JKJStJ# J#HLKu}J }JJ!JJJLv}J }<JL LK%JJ%JJv|$J |$^J"K"JJ"JJJ||tJ |8CJ J+J) J|J"JJ"JJKJ|JJ|JJJ |JJJ |JJJ |JJJ |JJJ |JJJ |JJJ |=umJJ !J |J |JJ|K J I KK|J J!J$J"| |J"JJ"KJ|!J yJJ|JJJJJ?{{$J $JJJLJuKvJMJ3K#JJ#JJKK#vJJ#J#JKK#vJJ#J#JKK#vJJ#J#JKK#vJJ#J#JK#vJJ#J#JKK#vJJ#J#JKK#vJJ#J#JmJJ$~_J J ${JKJJ{tJ  8{JJ JJ JJ J{"JJ"JJ{JJJJ{JJJJ{JJJJJ{JJJKJJ{J{JJJKJJJ{J{JJJKJJJ{J{JJJKJJJ  K  @ M IK{J  MGQ{J K$ J~ K$ J~OEJ K$ JuJ JuJ{JJJ%JJ#L( J' JK{J"JJ"JJuJJJJJ|3J{$J , JK  N{"JJ"JJzJJ|}JJ||~x򻻻wzJ zJJK=JLzz<| /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includepair_BLS381.cstdint.hbig_384_29.hfp_BLS381.hfp2_BLS381.hfp4_BLS381.hfp12_BLS381.hecp2_BLS381.hecp_BLS381.h  ~J  t~<J% ~~J& ;?R~~<J E$~J  >~JLJJ  !  K~ tqJJJ~J}tJ 88JH8J"K J" J% J"K J" J󻻼# #"J JL󃄄2 =u~J ~$~J  }JLJJ  v!  K} tpJ}tJ ~,~J~ J }JL|JLJJJJ u !  K|$J|J |Jw{<J$ )zJzJ% ,yJyJ  ,yJ~<=  J JJ J J J      x     x     x    y9 /opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includestdint.hfp2_BLS381.cbig_384_29.hfp_BLS381.hfp2_BLS381.h $  $J>J'J JaJ!,_%J# ;vK"JJuX<-J QJ/J K(BJ+J JPJ2,N7J$ KJ=F?J# ; >+JDJLJ.J J@J,<J& ;>KJ<J' ;>KJ<J% KJ=J& KJ=J" ; J"H LK!JJJ<J" KJ=J JJ^JJ#<J# ~JJ=J~<J" ;>K JJu~<J! ;vK J(JJ=~<J# d~J~JK=J JJ t~tJ" ;vK JJu~<J" ;vK!JJu~<J$ ~JJ=J~tJ (~J J+J4JJJ.J$J J  JJ K IKKJ v~J ~$KJ}<J' 'HLKJKu}J }JKJJ}<J" KJ=}J" ;>K!JJ=}<J ~(!JJ ~JJ~}tJ (KJi=J ~}tJ  $KJu=J N*}<J $}JK }!JJJ}J   J }Jt}tJ }$!JJ J$'J J  O  L P|<}<J  J|< I /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includefp4_BLS381.cstdint.hbig_384_29.hfp_BLS381.hfp2_BLS381.hfp4_BLS381.h L$  %J@J(J JaJ!,_&J$  %J@J(J JYJ),W-J# $#H L<R4J# ; >,JFJNJ/J JKJ8,H<=J' ;>KJA@<J& KJ=J' 'HLKuJ" ; J"H LK#JJJ<J" KJ=J! KJ=J :$~JKJIJ2OttJ" KJ=~J" ;>K"JJ)Xt~<J# ;"J#HLK at~<J! ;vK"J+JJ=~<J $~JKJI=J2g"JJ t~tJ$ KJ=~J" ;vK!JJu~<J" ;vK"JJu~<J" ;vK"JJu~<J% ~JJ=JK7t~tJ (~JK%JJJt~J$ $HLKJKu}J' 'HLKJKu}J $}JKJJ}tJ }JJJ~t}tJ" ;}J"JLKJ}}<J $}JL ~#JJIJ    J ~Jt}tJ }<#JJ"E~<J_="J+JJ~+Jt}J }(#JJ"'IJ)g~~t}tJ ,|JK}J #JJIJ  L|J|J }J) uo}&)U) }t) v J|JJJ J#JJJJ<|J 0|<K }#JJJ J#JJJ J#JJJ J#JJ J$|J'J L  N F$J P|J ,  Ju})}t)})u| t|)U)|  LJ 6  J󃻻|t)|)||t|)U)|J |)u| JuJK{J# ;vK#JJu{<J" ;>K"JJ={<]L /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includeecp_SECP256K1.cstdint.hbig_256_28.hfp_SECP256K1.hecp_SECP256K1.hamcl.h .(  +JHJ.J+J]#]J& $JJ&=J  MJJ <tJ( ;>L$JJL$JJ=<J' J'MKz~J' LJMJ@~J ~JK  >&t~<J ~(L$JJ$JJ ~+.J }Jt}J }$+.J K LJ||<J $}K  PJJv~<JMJ~tJ }J J J~JMJt}<J }< J z}}J x %JK # J# J M#K J+ J% %$J JK   M 􃻃zJ<ztJ x4+JHJ.J JKxJJMJ~JIx$JJ$JJ$LJJ$JJJxJJxJJJ xJJJ xJJJ xJJJ xJJJ xJJJ xJJJ w>v=<JJ !J wJ wJJwK J I KKwJ J#J&J$x J$xJ$JJL$JJJw#J yJJxJJJ wtJ JKH} J}+.J L }+.J |J|<J }$+.J LJ|<|<J |+JHJ.J JLJ|<|J JJ |J  ({J{J JL KI KJ)/J!I J!I KIK J!K JJ{J<{<J  $ JK K% J"J J Kv' J{J,< y$ ?JK #+J J#+J J M   K#K+J J#+J J .  M x0xJ y$JL$JJ$JJ JxxtJ <yJJJa$JJ$JJ LyJyJL x x<yJxJ JJJLJsKtJGJ9L%JJ%JJKK%tJJ%J%JKK%tJJ%J%JKK%tJJ%J%JKK%tJJ%J%JK%tJJ%J%JKK%tJJ%J%JKK%tJJ%J%J=JJ &V[J"J 4wKwJxJ$JJ$JJ$JJ$JJ~$JJ$JJ$JJ xJJJx<JLJJwJJ~ wJ>JJwJJJJwJJJwJJJwJJJ~ wJJJw>E<=J=JJw "JvJ  vJ JvJ JvJ$  K $ KvJ  vJ JvJ J( J' J#J&J$w$JJL$JJJv# J JJwJJJ v J vv Jv vM /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includeecdh_SECP256K1.cstdint.hbig_256_28.hamcl.hfp_SECP256K1.hecp_SECP256K1.h X" $XJ(L L#@ J IK IKL@J J   M  J   L P %J <J (J  L J< x<#I KI K~tJ (~<~tJLJ!L IK I L N J  v>>>> ~JJJ HLKJ#a J  M=v =~Jt (~JLJ"L IK I L N J  v>>>> }J'JJJ HLKJ#^ J  M> =}Jt }J<LJJJKJJJLJJ"M H N"J:=JS}JVt }J< k=> M>M}t $}ytLJJJKJJJLJJ!M H N"J:=JS|JVt |J< k=> M>M|t ,IKK}| |LMK K|JJyG MNKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJ IJJK JJJI JJJK JJJI JJJK JJJI JJJK JJJMLJ K u|J|J ,IKK}| |LMK LyG M NKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJIJKJ IJJK JJJI JJJK JJJI JJJK JJJI JJJK JJJ M JLJ KJ =L J|<|# /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/src/opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includerom_curve_SECP256K1.cstdint.hbig_256_28.h# /opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/srcstdint.hbig_256_28.hrom_field_SECP256K1.cR$ /opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includestdint.hbig_256_28.cbig_256_28.hamcl.h pj#  JJJJJJJJJJJJJJJJJbJ `J b$#  YJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'JJYJ'J K JX*V.J%  JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJOJ3MJ 1O8 4EJ< P#TJ#K$:# K#Iy~J J {J J {JJyJJ {JJ JJHuI$J:JJ JI L,J?JNJHJ:J I:KO>JNJ/J J:I?JOJ H:L>JHJOJ I:KNJ:JO/J>JNJ/J /LK J G K:KOJ?JHJ:J H>LOJNJ?J>JHJNJ/J>JNJ/J J:IOJ?JHJ I:K>J?JNJ>JHJNJ/J>JNJ/J J:I?JOJ I:K>JHJOJ:J HNL/J J?IHJ.xJ Q:KOJ:J>JNJ/J /LK J:I?JHJOJ H K>KNJ/JK J?IHJ I I>LNJ/JK HL KIM<{J! !bJJJK JOJ OKK J MJJ OKKK JqJGJM LKK J MJ QyJM LKKK JnJ JMJGMJJ KK JM JMJJGMJJ NF KKK JqJGMJJdJM KK J MJMJ NyJM KKK J$Q JMJJJ#GMJJJJ KK J M$JMJ N#yJM KKK JqJ$GM J#sJMJ KK J$M JMJ N#yJMJJ KKK J$nJ JMJgJ#JMJJ KK J M$J Q#yJM LKKK JqJ$G#JM LKK J M$J#J OKKK JOKKJMJ0JK KI <zJ xzJJ JKJzJH J JJ I KzJ0zJ-4;A4J3A;J@"0t"J0J-4JAJ-J4J;JAJ3 J@J"JJ JKJ#L H LzJ OLyJP LIyJ  JyJA:JNJAJHJ J*J@JMJ/J J J"KJ K K K FyJAJ:JNJAJHJ J*J@JMJ/J J J"KJ K K K FyJAJ:JNJAJHJ J*J@JMJ/J J J"KJ K K K FyJAJ:JNJAJHJ J*J@JMJ/J J J"KJ K K K FyJAJ:JNJAJHJ J*J@JMJ/J J J"KJ K K K FyJAJ:JNJAJHJ J*J@JMJ/J J J"KJ K K K FyJAJ:JNJAJHJ J*J@JMJ/J J J"KJ K K K FyJAJ:JNJAJHJ J*J@JMJ/J J J"KJ K KI K F"LJ K JMJJ<y<J  F N F N  N'LJ'JJ H *IJ K=J.RJL@H+Jy,J*IK2JJ(J J!IJ KIJ JK JJ JKyyJ***2( $yJ"  N"~ N" N)CJJ)JCJJ3J HX,JFJ1JLHLKyJ*IK2JJ(J J"IJ KIJ J JJ JKyyJ***2( $yJ 0JJ J KJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L6JJ JKJJ L  JJ JAxJ#  #xJ JxJx< xJ1J5J&J LH LL3J!MJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIJLHK.JIKI.KK < b+I KHLGJHJGJHJGJHJGJHJGJHJGJHJGJHJGJHJGJHJ#K.KJxtt  J JJ JJ JJ JJ JJ JJ JJ JJ JJxJ JxxJ"  J JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJ JJwJ JwwJ   JzJzJKIK'M !JxJ$<x?~JL-L&JJ&JJ&JJ&JJ&JJ&J ~JyJ xJw6t6|<||IKI{JJIKI{JJIKI&J|JJI{JJK'MyJJyJ2JJxJyJQJ JJJJ J< xJ xJJwJJ }J<wJ ,w!JwJJyJ J yJ }JJ J}JJ J}JJ J}JJ J4M&$K4M J}J<}JJF}1JM(J(JJ(JJ(JJ(JJ(JJ(J(JGM(J J(J(J JJ(J J }JJ(J }(J yJ(J* JyJ(*JJ (JK yJJyJJ K JIwJJw0J wJ:J:JJ:J:JJ:JJ:JJ:JJJ:J:J:JJ:J:JJ*uI J|(JJJJJJJJJIKI KJI KJI KJI KJI KJI KJI KJI KJI KJI KJI KJI KJI KJI{J JJI{J JJI{J JJI KJ)M G4J J Jzw JJ JJ JJ JJ JJ JJ JJ JJ JJ J<wJ 0vJ yJ J yJ JJ4O E4M&$K 6J}  JJ}Jq0}J*MtvFJM(J1GM(JJ(JJ((J JJ(J(J *JJ (J*JJ(mJ*JJGrJ(J*JJoJ(*JJoJ-H(J*JJ&oJJ(J*JoJ&J&oJ J&}JJ&JJoJ&JJyJ J&oJJ&oJK(JK J }Jp  Jv JvtJ tvJ:J$:JJxJ:JJ:JJ $:J6sJ:  J:JJJ:xJ6J: <JsJ J6sxJ6J sJ JsJ JsJ: Js: JsJ: Js*I Jx<J|JJJJJJJJJJJJJK{JJ JIK JIK JIKIK JI KJIK JIK JIK JIK{J JIK{J JIK{J JIK{J JIK J)MG J!J~J  ~JxJ  J&} Jy~JJJ}JJIyJJ JJ ~JJJJKyJJ JJJKyJJ J ~JJJKyJJ JJ ~JJJKyJJ JJ ~JJKyJJ JJ ~JJJKyJJ JJ ~JJJJKyJJ J'JGyJ  JvJ tv J!  ~IKI J KxJJJIxJ JJIxJ JJIxJ JJIxJ JJIxJ JJIK'MxJ JMzJ~< t}J?~<-HL&&JJ&JJ&JJ&JJ(H&LJ-&LJ&JJ&JJ&JJ&JJ&JyJJ&JK&IJ ~JxJxxxxxxxxx Jv  6}4T6J&Ix&JI6xJ6xJJ|J6JxJ|J|JJ}}JJJ|JxJJ|JJ6||JJJJ|J|6|J|J{J}JJ|JW}JJ}J}JJ||JJ}JJIKIKIyJJyJJJyJJyJJIJKIKJIyJJyJJI{JJKIKIyJJyJJIKJIJyJIKIyJIKIyJ'JyJJxJJyJJ'MG'MyJ JwJJJ JwJQwJJJJJtJJ tJ JJJ  JJJ JJJJJJJJJJJJ JvJ ~L v J"  v< J  L L L 'Jv v J$  } JIK J IK JIK JIK J IJK JIK J IJK J'MG Jx< Jv Jv J# sv 8# xJKvJ J.|*M@M+GM((JJ(JJ(JJ(J |J J IzJ(|J JvJ JzJvJ vt J x4}JJJ*|*MyJJ (FuJ JuFM1M(JJ(J(JJ(JJ(JJ(J(J(yJJ(J(yJJ(J(J(J(J(yJ  JF|J(J( J M(|J J )xJJJ |*J*M J*H *u J uJ JJ JJ JJJ wJJ JJ JJ JJ JJKu u< J uJ JJ JJ JJJ wJJKu u< J uJ JJ JJ JJJ wJJxJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ JJJJ J<u< J uJ JJ JJ JJJ wJJ JJ JJ JJ JJKu u< J$ t$ JMvJJ< yJ @xxJxH  tJ60xJ6J6JJ6JJ6JJ6JJ6JxJ6JJ&JtJ(PIKIKIKIKIKIKIKIK'M6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JJ&K JtJ t6xJ6JJxJ6J6JJxJ6JxJ6JJxJ6JxJ6J&xJ<{JKI{JIK{JKI{JIK{JK{JK{J'J6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JJ6JxJ&KxJ  JtJ xxxxxxxxxx {J8IKIKIII'NGIKIKIK'MxJ %Jxtxx|PtIKIxJJIxJJIxJJIxJIxJJIxJJIK'MxJ J{|4|J|(J|JIKI{JJKIKIIuIuIuI %xJK'Mx xpxt|(JW)JWJ)JWJ)JW)JW)JW)JW)JW)JW)JW)JWJIIKIKIKIKIKIKI'xJxJ JxD, (s J ,! }JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJxJ <IKIKI JKIKIKIKIKIK'M Gz<<<utJ}JJ|J zJJ,J|J KJJ|J KJ/J| KJ/J|J J|JI KJI zJJ JJ'M zJ J w wJ JJ   wJ  J w  JuJ xJxJxJxJxJxJxJxtJKIKIKIKIKIKIKIK'J JuJ:J:JJ:JJ:JJ:JJ:JJ:JJ:JJJ|J< JO |J<JJ!JuJ Ju t }$x  w, w |J J IJ JJ|JKIKJ |JJ |J JzJN M|JKJ |J IJ|K JJI K I%JpJ M|JK'MGJ |JM J M |J J|JJt JK'|JJ|JJ |T |M {J~ |KKIKI JKIKI KJ'M Gz  J vJJ JJ JJ J  J vJ  JL {yLHJJJJ<I$J:JJ JI L,K<+JK/J3(zJ {JJ JJ JJ JJtI$J:JJ JI L,JK+I<J+JK/J3, wJJJJJJJJJJJJJ wJJIKI KJI KJI KJI KJI KJI{JJI KJ'M J | JvJ   v  wJ l'J |J'J K*IJ K=J.RJ@H+JyJ*IK2JJ(J J!IJ KIJ JK JK|JJJJJJJJIKI{JJJJ JJI KJI{J JJI KJI{J JJI{J JJI KJ'M G~J K*IJ K=J.RJ@H+JyJ*IK2JJ(J J!IJ KIJ JKJ JK|J"JwJJJJJwJ JJ JJ{#XJ#K$:# K#I#\J#K$:# K#IQyPJy<JyJJyhJ*u*2*J2( $yPJy<JytJ*u*2*J2( $yIKIII JII JIKI KJIK'M J {Jx <t J"  "z {J J{K J {J IL{JKIK J JK JIK J IJK JIK J IJK'MG J JJ KsJ& J*(s s J$  $z {J J{K J {J IL{JKIK J JK JIK J IJK JIK J IJK'MG J JJ KsJ' J+(s s J+ ; v}+ J vJ Jz8*FzJM1M(JJ(JJ(JJ((JJ(JJ(JJ(JJ(JJ(J*G M*J JJ(JJ(J(J(I JG MsJ s< . /opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/src/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includestdint.hfp_SECP256K1.cbig_256_28.hfp_SECP256K1.h x ~JJ lJu~<J ~JJ~J~<J ~JK J~J~<J v~J t~J& ;>K J=~<J ~JJPJJ lJ/t~J' ;wMJIKJ K~<~<J' ;'HNKJJJ Ju~<J&  =~J X$~JKI IK+J UJ+JK #<}<J |J  J|gI#KIRJJK K KI KK:IJKKKKLJ J K J&JJKJ'J41J " JJ| J=|<J ~JJK JJu}J+ }J}J ,JJ JJ Ju}<J , } JJJ ~J l J < *JL|}J |JKIJKKKKLJ J K J&JJKJ'J4J=J L  LO||<J& |J|J (J J~J Ju}<J% ;vKJJ K  KO||<J $|JpJJJ K  KO||<J {J} J }J JJQ{{<J ~0|JJ !J!HLLzJJ K JJ*J{= l&JJ ZJ&JKJ |J|J JH LO <JM|J|JJ |JJ}J J~= <H H~J< H~J< H~J <|J < }JJzJ~< H~J< H~J< H~J <J|J J< }JJRzJ zJJ{JJ lJtzJ zJzz<J zJ{ J{{J l< ztJ zJ yy<q  /opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/src/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includestdint.hhash.camcl.h   "J~"N yJ MNGMvJ <~J !JLJMH KO!~J~J( sL(zJLPIK)JJIJ(K4JJ34JKJLJIMLLLJ( I KIK J$I KJ-IJ#JG,MG R NJ JKKKKKKKyJLLL>tJ ss  O!kJLJMH KO~J!J  JJ!hLJMGKL KOHLKJ~)%MJGJJQ"J DyJ MNGMvJ4<~tJ "J~"N ~PM vJ  JEC}J 'YJ$J JLJMH KO"}J}J xJO JLJMH KO"}J}J }J}J su  O mJLJMH KO}J"J  JJ jLJMGKL KOHLKJ}'#MJGJJS"J ~PM vJ  JE-<}tJ "J}"O ~PM vJ  JEB}J( sL(zJLPIK)JJIJ(K4JJ34JKJLJIMLLL~J~(~ I KIK J$I KJ-IJ#JG,MG R N~J JKKKKKKKyJLLL>}tJ ;|JPL ?|<J  zMJJ uL IKJ$J JJ K!J|J|J"  "H J>K,J&SJ2>HM&JG2K>I2KK2IH0|N~L%IMFM%GL1IM%I1GL=IM1I=GLN=GPHQzJL|JJLQJ4N^JiJLMKK4J^JJOLL4R$J4J^JJ$ J4pJ$J^JN4Jy$Q4J$J4Jr4JcJ4J$J4JE$O4J$4J$4J$J4J$4JjJ$J4JzJ4P$4$4J$J4J$J|JL$4JN42J$JN4JL}JJd|J s zJ|J J| JLM KI K)J$JIP EI K)J$JIP EI K)J$JIP EI K)J$JIP EI K)J$JIP EI K)J$JIP EI K)J$JIP EI K)J$JzJ JJ JH J |J|J||tJ ; V*MJ|J JJR  -J|J J .J SJI$L ,JTJ J J K!J$.JKJJ52 JQK K!J.$JJ2 JKJ 5JKJ I KI LuL IK$J J K!J%1JJ <{<J ; G9MJ{J JC  |JI ~J JI~J~J JI~J JI~JJ J|tGKKILIKG0J/K1L FNJKKIIMIK2GN/G1KL FNJKKIKHM2/KN1GLJ FNJLILIKG2J/K1K HpJ J|JJJ DNNwJII| KKKNNt KKII MIK5GN4G6K L!J FN JKKII MIK7GN4G6K!L F OI JLIKHN7F4K L! KI6H H NLILIKG7J4K6K HQ }J KKK HKKJ JI }J KKK HKKJ JI }J KKK HKKJ JI }J KKK HKKJ J?|J 0J{$< JI KK{*J{J{t*J(JJ(*{J(J(J  %J K%K KK{*J*J(JJ(*{J(J(J {JJ K|J8 J7J K%J K%I K2J{@J$<12<{JJ$<J1 JK{XLJ KG JIH Jp{)t'J K')'J)'J)'J)'J)'J)'J)'J)'J)'J)'J)'J)'J)'J)'J)'J (K'(J'J(J'J(J'J(J'J(J'J(J'J(J'J(J'J(J'J(J'J(J'J(J'J(J'J(J'J(J'J{<t KG G{J 0J{$< JI KK{*J{J{t*J(JJ(*{J(J(J  %J K%K KKz*J*J(JJ(*zJ(J(J zJJ K|J8 J7J K%J K%I K2J{@J$<12<{JJ$<J1 JK{XL JJG i{t MKIKIKIKIKIKIKIKIKIKIKJI JKIJJJJJJJJJJJJJJJJJJ LMJKI<JJJJJuI{ tHKJ {J JzJ sKJ I IJKJILKz  /home/opt/android-ndk-r18b/toolchains/llvm/prebuilt/linux-x86_64/lib64/clang/7.0.2/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/src/opt/android-ndk-r18b/sysroot/usr/include/bits/fortify/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/include/opt/android-ndk-r18b/sysroot/usr/includestddef.hoct.cstring.hamcl.hstdio.hstdint.hstdarg.h G  ;J^$ KJ JGJJuX<,J ;JQ1JK JGJJQ5K<9J  JJJ J GM JCJJ  J  J JJ,t J J$<LL J LHLHL JH NJ  J IKJJKJIJJJJ FNJJ JJ#GJMJJ  L~J  JJxJRxJ  ~J<~J FNJJ JGJM~J~J J~JJ JJJ&JJ~~J  =~J J~!J'JJJJ =~J FN~J~!J'JJJ GM GM~J~J~J   J~JJJIK~J J L~J<~J xG~JJ~J%"J*JJ~JF~J~JF%"J*JJ%"J*J#RKHM K(GKIL K~JJz xJMJ!JJ!JJ xJqJJoJ  J})JJJ,J} J=}J G~J=J}tJJJK}"JJ"JJyJJK"JJ"JJJyJJK"JJ"JJJyJK"JJ"JJJ!KLoJJHKLGL $J J}JJ*GJM J } } J}}<J J~!J'JJJJ J K}J JJJIJJ}}J J}!J'JJJ}}J  JJ KNJ}J J J;8J17JJ*JJ xJ}J z}<J s? J HL}JJ%J$JJJ}}tJ s}JNJ}K J# JGJJJ}}tJ 4,L$ ~J~!J'JJJJ JJ}JI8)nJKI-JJ HLH} J=|J s|JNJ| K JGJJ||tr /opt/android-ndk-r18b/sysroot/usr/include/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/src/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/includestdint.hpbc_support.camcl.h Y  4  KK LI KD  ,` z ,!JJt,JJ)JJwJ'JJt  ,,JJ)JJE'JJ J, J)JJ!tJ'JJ!J w J<J $tJ ,~~< L IJ ~JJ$~J HL~J~J $~J 0J#J+JJ=!JJ J'JJK IKJ Ku~tJ 0J#J+JJ=!JJ!J(JJK IKJ Ku~t  /home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/src/home/jenkins/workspace/zenroom-shared-android-aarch64/lib/milagro-crypto-c/build/include/opt/android-ndk-r18b/sysroot/usr/includeecdh_support.camcl.hstdint.h _ ! @  JIt(?J J%J JxJJJ w J zJI(>>>,>,><> <>L> L>d> d>>Z>>_>> >?`=t>Yx>>\>l?^=>y&>>]>>]8?l?]=H?Y`>d>d>>Z>4?Zl?4DPl?4DQ??Y??Z??Y??Z??Y?@Z @$@Y(@D@ZP@T@Yp@@Z@@Y@@Z@@Y@AZA4AY8ATAZ`AdAYAAZAAYAAZAAYB$BZ,BDBZHBdB[pB|B`BBUBBUB CSCDCTCCTCCTCCSCDY???l@l@@@|A|AB BB BB BC^????[,@0@0@8@[t@x@x@@[@@@@[@AAA[ngUeLdLd<ngUelLdLd:ngUelSLdLd8ngUelSWLdLd6ngUelSWdLdLd4ngUelSWdRLdLd2ngUelSWdRTLdLd0ngUelSWdRTVLde.ngUelSWdRTVQe[n084<`ff?[,084<ffA,084<fgA,084<gg@,0l4<gh?,gl4<hh>,glc<hh<,ghlc<h8h:,ghlcf<8hlh8k,ghlcf<lhh6k,ghlcf<Whh4k,ghlcf<Wehh6k,ghlcf<ehh4k,ghlcf<eUhh6k,ghlcf<Uhh4k,ghlcf<VUhh6k,ghlcf<Uhh8k,ghlcf<hh6k,ghlcf<dhi5k,ghlcfjdi(i3k,ghlcfjdV(iXi2kighlcfjdVXili0kighlcfjdVSlili2kighlcjdVSlij4kighlcjdVjj6ighlcjdVjj7i0hlcjdVj4k9i0lcjdV4kLk:i08cjdVLktk;i084jdVtkxk;i084jdVxkk<i084<dVkk$kk $ll,flRXtt,tt (ttf t uf  uuf uu  @ww4Pww4Pww4ww [(ww[(wwl[(wxl[] xxl[\] x x[\]  xx[\]_xx [\]^_x$x%[\]^_a$x,x&[\]^_`a,x4x+[\]^_`aX4xT~~UVY\n8o>T~~UVZ8op>T~~UVcpDp>T~~UVYDpq>T~~UVZqq@~~UVZqqqqq r  rrj(r@ri@rDr jihDrTr ~ihTrXr ~ihVXrhr ~hVhrlr ~hVUlr|r ~VU|rr ~VUQrr ~UQrr ~UQPrr! ~QPrr$ ~QP^rr& ~P^rr$ ~QP^rr' ~QP^]rr) ~Q^]rr' ~QP^]rr* ~QP^]\rr* ~QPQ]\rs, ~QPQ\ss* ~QPQ]\ss, ~QPQ]ss/ ~QPQ]Xst1 ~QPQ]tt6~QPQ]t tX tttt 0t0t ~gk~~~~~ef~~0opo<hgk~~~~~ef~~poo:jhgk~~~~~ef~~oo8djhgk~~~~~ef~~os:~jhgk~~~~~ef~~s s:~`hgk~~~~~ef~~ s(s8S`hgk~~~~~ef~~(slZQR~~~~~@lZR~~~~~>lZRQ~~~~@ZRQ~~~~BZQ~~~~̉@ZQR~~~̉̉@Z~QR~~~̉ЉBZ~~R~~~Љ܉@Z~~RQ~~܉܉@Z~~~RQ~~܉BZ~~~~Q~~@Z~~~~QR~@Z~~~~QR~BZ~~~~~R~@Z~~~~~RQ@Z~~~~~RQBZ~~~~~~Q @Z~~~~~~QR @Z~~~~~~QR BZ~~~~~~~R@Z~~~~~~~RQ@Z~~~~~~RQ BZ~~~~~~Q ,@Z~~~~~~QR,,@Z~~~~~QR,0BZ~~~~~R0<@Z~~~~~RQ<<@Z~~~~~RQ<@BZ~~~~~Q@P@Z~~~~~QRPTBZ~~~~~RTPDZ~~~~~P`DZ~~~~~``DZ~~~~~`DZ~~~~~ DZ~~~~~ (BcZ~~~~~(,Bcf~~~~~,Џ@cfl~~~~~Џ܏>cfl~~~~~`܏@fl~~~~~`Al~~~~~`C~~~~~`E~~~~~ؔE~~~~~ԄԄ܄܄  $ $, ,4 4< <8 SYĄ SYRZĄȄSYRZ[\Ȅ̄SYRZ[\]^̄ЄSYRZ[\]^_`ЄԄ$SYRZ[\]^_`abԄ*SYRZ[\]^_`abQP<,YRZ[\]^_`abQP<D,\RZ[\]^_`abQPDD.RZ[\]^_`abQPDL,lRZ[\]^_`abQPLL.lR[\]^_`abQPLP,l\R[\]^_`abQPPP.l\R[]^_`abQPPT0lR[]^_`abQPTX.lR\[]^_`abQPXd0R\[]^_`abQPdd2R\]^_`abQPdd2Z\]^_`abQPdl0Z\R]^_`abQPlp0Z\R]^_`abQPpp0Z\R]^_`abQPpt2ZR]^_`abQPt|0ZR\]^_`abQP|2ZR\^_`abQP4R\^_`abQP6\^_`abQP4\R^_`abQP6\R_`abQP8R_`abQP6R\_`abQP8R\`abQP8R\`abQP:\`abQP8\R`abQP:\RabQP:\RabQP<RabQP:R\abQP<R\bQP<R\bQPć>\bQPć̇<\RbQṖЇ>\RQPЇЇ>\RQPЇԇ@RQPԇ܇>R\QP܇@R\P@R\PB\P@\RPB\RB\RDRBR\BR\pDRDR0F0`F`ECcČAcfČЌ@cflЌ\@cfl\\>cflR\`<cfl`R`h>fl`Rht@l`RtA`RA`R(C`(,CZ,AZZԑPAZZAZZ@RZZBRZBRQ88BRQ8DLFLhD`hhB`Thp@`STpt@cSTt|@`ST|>`STd<`STde:`STdeX8`STdeXYЊ6`STdeXY[Њ4`STdeXY[]2`STdeXY[]^0`STdeXY[]^_.`STdeXY[]^_a ,`STdeXY[]^_ab *`STdeXY[]^_abPp*`STdeXY[]^_abPp+ STdeXY[]^_abP+ STdeXY[]^_abcБ*lSTdeXY[]^_abcБԑ+lSTdeXY[]^_ab(̓+lSTdeXY[]^_ab̓̓*lSTdeXY[]^_abcԓ4*lSTdeXY[]^_abc4D*lSTdeXY[]^_abPDF$Dn$$Dn$,Dc,,BcQ,4@cfQ44@cfQ4@@cf\@@@cf\@H>cf\QHH<cf\Q`HP:cf\QR`PX8cf\QR`UX`6cf\QR`UV`h4cf\QR`UVWhp2cf\QR`UVWgpx0cf\QR`UVWghx.cf\QR`UVWghi,cf\QR`UVWghij*cf\QR`UVWghijk*nf\QR`UVWghijkh,n\QR`UVWghijkhl.n\R`UVWghijklp0n\`UVWghijk0n\`UVWghijkX`.nf\`UVWghijk`d,nf\Q`UVWghijkdh,cf\Q`UVWghijkhx,nf\Q`UVWghijkx*nf\QR`UVWghijk,nf\R`UVWghijk.nf\`UVWghijkD8F Ć Ć̆ ̆ԆԆ܆܆8<LLXXddll||̇ ̇܇ ܇ 8 $$,,44@@HHPPXX``hhp px x  8 ĈĈ̈̈ԈԈ܈ ܈  8 c  ((0088@@H HP PX X8 ȉȉ؉؉ ( (8 88 8dhhpp||ЊЊ     8 t̊̊܊܊   4 48x8c488@@HHPPXX``hhppxx   8  Ћ Ћ    00@@PP``pp8ČČЌЌ  0 0@ @P P\ \8 ``hhttЍЍ   8 cd,c$, ,< <L L\ \ll||̎̎܎܎8  ((,,44DDTTddtt   ď ď8 ؏܏܏  ,,<<LL\\l l| | 8 ؏8؏c  А А   00@@PP``pp8 đ đȑȑ̑ ̑Б Б8 ؑ8 nnf nf\ nf\Q nf\QR nf\QR`nf\QR`U$nf\QR`UV$,nf\QR`UVW,4nf\QR`UVWg4<!nf\QR`UVWgh<D$nf\QR`UVWghiDL'nf\QR`UVWghijLP*nf\QR`UVWghijkP*nf\QRZUVWghijk$0*cf\QRZUVWghijk4<*cZ\QRZUVWghijk@H*cZZQRZUVWghijkLT*cZZZRZUVWghijk\d*cZZZZZUVWghijkhp*cZZZZZUVWghijkt|*cZZZZZZVWghijk*cZZZZZZZWghijk*cZZZZZZZZghijk*cZZZZZZZZZhijk*cZZZZZZZZZZijk*cZZZZZZZZZZZjkē*cZZZZZZZZZZZZkȓ̓*cZZZZZZZZZZZZZhpp||ȒȒԒ Ԓ  8 lc8$$4444@@@@LLLL\\\\hhhhtttt        ȓ ȓ8 (8888DDDDPPPP````llllxxxx        ȓ ȓ8̓ԓԓܓܓ    $ $, ,8Г,P,Dl8$PP8PQQXpQXPXpQXpPXpQdFdFd̗̗ԗTԗfT f0<Tpt t| |   ĕĕ̕̕ԕԕܕܕ       $$,,44<<DD\ttЖ Ж   `X           ,,44<<@@DDD DH HH HL L  c , glc,4glc4<glc<@glc@DglcdDH"glcdehHL(glcdehkfLT.glcdehkfjiTX-glcndehkfjiXH-glcndehkUjiL-glcndehkUji$.glcdehkUji$X-glcndehkUjię̙-gVcndehkUji̙-gVWndehkUji-fVWndehkUji,fVWnXdehkUji ,fVWnXdkhkUji (,fVWnXdklkUji(0,fVWnXdklcUji08,fVWnXdklchji8<-fVWnXdklchi<H-fVWnXdklchUH<-fVWnXdklcUULl Ll Ll Ll Ll Ll Ll d  Ę ĘИ Иܘܘ$$00<<HHlle@<epppx xxx||||000 04 44 4@ @ؗؗ    XQPQЗbЗЗaЗؗbؗؗXؗܗaܗ_X]X[$XDHLLPPT TTTXXXX``lll lt txxx x| | Pdd  |HPgX<U`d dt tx x| | ęę̙̙ԙԙܙܙ  ( (0 0 @ h,4hX``hhppxx    Ě ĚXXX؛cܛ P؛ܛcܛ P؛ܛcܛ P؛ܛcܛ P؛ܛcܛ P؛ܛcܛ P؛ܛcܛ P0$$00<<HHXXddpp| |  0 XYY[МYМ$[$$\$4[44]4<\<<a<P]Xa^((8^@T_Th`lp`p^`Xx؜؜44<<HHPPxx   ĝ ĝȝȝ$$((, ,4 40̜<<,dd,0d̜<,<̜<̜<̜<̜<,<̜<(^0D`p`X,@_@pbpt_b8^Q^ĝQĝPDT`Xĝ0ĝPԝ<ԝ<,<0~0~0~0~0~0~0~0~0~0~<i ,,Xi<dXd,0,00HHLLPPTTXX``ll||   0 ,8Q8<P<@b@DaDt[tZXȣȣУУأ أ 0 <d0X0X0X0X,<i0  0 ((, ,` `pp  0 4X4HHTTddtt ̦ ̦ЦЦܦ ܦ0 ̦0 0 ,0xȧ ȧЧ[0@@HHPPTTXX``hhllppx x   0 ĨĨШШܨܨ   0 $XX [ȩ088D DD Dd dh h0 ptt  Ȫ Ȫت تت ت0 tSQbRPa\]_̪[̪ت\ت[ Zx|Q|Pba[b[ЪZЪتXتܪZĪĪĪĪĪԪԪԪ ԪԪԪ  0 Ī00000 0 #0\P0|Q@LPXxx̫̫ثث  ( ( \lYll[lpY\Y[īYīЫ\ЫY[Y\Y$[tPXtPx@DYЭPQP̬$$00@@LL\\hhx x   ЬY[Y\Y([(8Y8D\DTYT`[`pYp|\|Y[ĭXĭxYHPHd(,dDQHc(,c@RH e(,e,@RH e(,e,LPLXd,HPHdL,P,,4444<<<<DDDDTTTT````hhhhȯȯԯԯԯ ԯد دد دܯ ܯܯ ܯ,,,,,P,dd$Q,DcDHQHdHPdPQcS DPLdP LQLXcX\Q4DP\dP\PcQ$HPHpd|d$HQHpc|cPc$(cQPcc(PPPee(PQPdd(PRPcc<PRPdcdZlYPddQccR ff4P4\cdhchPddhQcc|Pd|Qc,P0\chlchpXlxYtxR|PdXXd ,PlPcQPcQ PDlPlccDpQpeeDpRpddc@P@d dx | d0Q0<e(R(0f08c(r%(008%<Q<Lep8 e@P@Ldp8 d@P@Ld8 8  8 d| P X cd h c| Q X dd h d X X \ ed h e 8 eh P P D cP T c Q D dP T d < c < T | P| c cT | Q| e eT | R| d d P P c\ ` c Q P d\ ` d R Q  R P 8 c Q 8 d X \ `  8 ` P c  c` Q d  dt P ct Q d 8 PD cc D QD e D RD d$ D QD e$ @ Q@ e$ @ Q@ e$ 4 P4 c$ 4 P4 c$ 4 P4 c$ 4 P4 c$ 4 P4 c$ 4 P4 c$ 4 P4 c| | | | | ~ <|  T T T T T T T T TTT4T#<cccccP\chlcPTcTTcTlPdPlQcQP ccP,cPc@ddffc$P$pdpxPQ$ccPPcX\c\Pf f\Q c c   DPD|dd DQD|ccPP0c8<c<`Phc(,c<hQhd(,dh$(,,\Phc c,`Qhdd,hRhg gHhRhgll d DPDcc4DPD\c\tPccQeeRdd P \cc4PccQXeeR dPHccPcLXltXPcT T ~ T ~, $ T $ |0 < P T    < P T T P c `cT Q h ht P ct P ct P ct P ct P ct P c   \ D h   XXXdl k j i \l\kj<ih<ilil  \Tg\\\\$\`P$c04c`QtPc4XPXcHXPXpc @P@cc0@P@TcPhcptctP8cDHctQRtR8dDHdHlPlcHtQtd8P8Tc8Q8Hfltt~~8xHx`x4x0xxgPd PQ$c48cQc0488tPtc c8tQtd d8tRtkXxPcXtrtll lXpPpcXpPpcXpPpc  kkDpppk 0P0hc 0Q0df `R,\P\hc,\Q\df,lP!c,lqP!,lP!c,lqP!,lP !c,lq P!,lPT !c,lqT P!,lP !c,lq P!,lP !c,lq P!,lP !!c,lq !P! ,lPZ >p>Zx>>Z>?Z ?0?Y:;;\<`\<< <= =l= l== =>>t>t>>>??d?:;;$;Y0; ?Y ;,;a0;|<a<<Z==Zh=p=Z==Z> >Zp>x>Z>>Z?$?Z<<th<t< t<<\<< <<\ =$= $=8=\d=|= |==\== ==\>,> ,>@>\l>> >>\>> >>\ ?d? d?@P@xBPd?@Q@xBQ??Z?<@<@D@[\@|B|BCPC|EP|BCQC|EQBB\B@C@CHC[`CEE GPGGPEGQEGREG EFy&EEEFF$F$FHFHFlFlFFFFFGGHPHlIPGlIQGlIRGlIS8 @ Q@ L S\ x Sx U S > S U S > S , R, 4 T4 D RD L >L d R( P( Q4 L P@ T T ` Z  Y 0 P 0 Q   Y0 P0 Q0 R` x x Y P ddtxd Q dctxc R8X$<<DfxPccxQddhPQRRXSPQPYZ\\D[T^PXchlcQXdhld8g4P4dd4Q4tff4R4ee4S4cc4P4ddPXX dhQhlhltgtffXft88LfXXXxxff@X <4P4@cpQ4R4dj4S4`i4T4\h4U4Xg4V4Te4W4Pdl,P Q ,R R ,SPQRLfTXfSLeTXeTHdTXdUc@TXXPXQXR ffXS eeXTddXUc@P@DdX\d@Q@@h@R@Hg@S@HfX\f@T@DcX\c@U@HeX\e @P@DdX\d\d8H`dii iH\\||g$$@@Tgpg \x8<Q<@i@HhHg8g\P\Q\xRxTPeQfRXScTdPeh hT`p<P<Dg<Q<\f<R<Xe<S<Td<T<Pc0<P<Dgxhxk $k$PPPdg$PQPf$PRPe$PSPh$PTP|c$PUPxdkkhiiLl DpplP@eQ d dR c c$  44\\t [x  i @ X@ H XH i X[i4  , h, 4 [4 h, h Z h h@\\pp   $  $ 8  8 L  L `  ` t t                     4 4 \ \ x x        < < X  X t  t       , , 4 4 < < D D L L T T \ \ d d l l t  t |  |        < < X X t t       8 8T Tp p @PLe4HeLPeLQLHdL\d(0dLRLc(0cL\\0L e Z,ee]e ed4L (0lh[(Z([LPh(0[|((<<P Pd dx x    <<DD``hh       <<DD``hh     Z0|0lXlY$P$<c$Q$8RPXR$R$4SPXS$S$0e$T$TdLPdc0S0e<P<cTTTd<P<c(  $$,,44< <D DL L     XddppXddpp\dq ld`d||ff|X4y$4\{$\XZZ      ,P,cc,Q,ee,R,dd0PPggPhhXDP8]]D8<<D^8HH`D Xla\ppttxxDpt\tx[x|Z|Ypt\tx[x|Z|Yppp4pD|P|ccDQffD|R|eeD|S|dddxpxdxpx|pixiXX`XP4 cL P c Q 8 fL P fR8 eL P eS4 dL P dppi iXlX\lXlX\P t Pt ( c8 < cP t Qt x dh | P| d c y$ {$ X \ Z \ Z    $  $ ( ( , , 0 0 4 4 8 8 < < @  @ D  D H  H L L P P T T <  <  t            $ $ 4 4 D D T T d d t t         < q5<__int32_t1int32_t`__int64_t*unsigned intUint64_tGint4csprngY5__uint32_tN5uint32_t4BIG_384_29Nunsigned charklong int4DBIG_384_294charq5R__int32_tGint32_t5__int64_t*int64_tQunsigned int]intHFP_BLS381`__int8_tUint8_tF__uint32_t;uint32_tksigned charBIG_384_29@long intpDBIG_384_29F__int32_tFP_BLS381int32_tkECP_BLS3811__int8_t&int8_t<signed charBIG_384_29*int_BoolcharHoctet^  __int32_t* FP_BLS381 int32_t ECP_BLS381 __uint32_t uint32_t unsigned int BIG_384_29 int0 csprng char octet?j__int32_tint32_tBIG_384_298int?5lZ__int32_tOint32_t8BIG_384_29eintm$__int32_tint32_tFP2_BLS381FP4_BLS381*intFP_BLS381M__int8_tGFP12_BLS381Bint8_tXsigned charBIG_384_29charioctet__int32_taFP_BLS381int32_t9FP2_BLS381__int8_tECP2_BLS381int8_tsigned charBIG_384_29*intcharioctetp __int32_t FP_BLS381 int32_t FP2_BLS381$ FP12_BLS381g FP4_BLS381 ECP2_BLS381BIG_384_29int ECP_BLS381 R__int32_tFP_BLS381Gint32_tFP2_BLS3815__int64_t*int64_tBIG_384_29@long int]int DBIG_384_29k__int32_tKFP_BLS381int32_t#FP2_BLS381FP4_BLS381sBIG_384_29int__int32_tint32_t*__int8_t_Boolint8_tBIG_256_285signed charFP_SECP256K1*intkECP_SECP256K1zcharAoctet$  __int32_t int32_t __uint32_t BIG_256_28 uint32_t unsigned int* FP_SECP256K1 int ECP_SECP256K10 csprng char octet? {__int32_tpint32_tYBIG_256_288int?Z__int32_tOint32_t8BIG_256_28eintVz5<__int32_t1int32_t`__int64_t*unsigned intUint64_tGint4csprngb5__uint32_t4BIG_256_28W5uint32_t4DBIG_256_28Nunsigned charklong int4charuR__int32_tGint32_t5__int64_t*int64_tNunsigned int]intV__int8_tC__uint32_tKint8_t8uint32_tFFP_SECP256K1BIG_256_28@long intnDBIG_256_28asigned charE1$<hash256 hash384funsigned intint sha3[__uint32_tPuint32_tlong unsigned intunsigned charhash512uint64_t__uint64_tcharui?lhash2565__uint32_t*uint32_t@unsigned intint2unsigned charcsprng charkC amcl_aes[__uint32_tPuint32_tfunsigned intunsigned charMintlcharN u __builtin_va_listR unsigned int*int csprng2size_t __va_listj va_listG __uint32_t=long unsigned int< uint32_t unsigned char.char;octetuYQoctethash256Aunsigned intEintamcl_aes6__uint32_tgcm`long unsigned int+uint32_tU__uint64_tunsigned charhash512Juint64_t7char_vhash256]long unsigned intamcl_aesR__uint64_t__uint32_tuint32_tunsigned intinthash512Guint64_t*char=octets fOtamcl_aes5__uint32_tgcm*uint32_t@unsigned intLunsigned charmintcharl$4<DPXdx,0<DPXdxxDDHLT,<@PT\hx@PT  0 0  ,4@HT\hp|<@TX  ,4@HT\hp|<@TX,,,-222|38888T:X:`:l:l:x:::8;\;h;;;;;;;<(<L<X<|<<<<<< ==<=H=l===PU$V0V8V$V0V8V W0WWWWWWWXXY Y$Y8YXYpYYYYYYYY$Z(Z0Z4Z8Z@ZY Y$Y8YXYpYYYYYYYYYZZ Z$Z4Z8Z@ZDZPZTZp[t[YYYYYYYYYYYZZZHZPZTZdZYYZZZ Z(Z0ZDZHZdZlZtZ8[@[L[P[`[h[p[t[[,\0\8\\\\\] ]]]]]^^^^__``8`H`P`X`h`x`````````a$a(aaa8`H`P`X`h`x`````````a$a(aaaaaaabc c(clcccdDdLdddddddee e(e8e@ePeXelepeeeeeeeeeeeeef ff f(f,f0f8fLfPfTfXf\fdflfpffffddddee e(e8e@ePeXelepeeeeeeeeeeeeef ff f(f,f0f8fTfXf\fdffffffdghgggggggggggghh h4h8h@hTh`hdhhhlhhggggggggggghh h4h8h@hTh`hdhhhlhhhhhhi$i(iDiHiTiXihhhhhhhhhhiii$i\ Ai 5u   H hN pa V d  R T ] 0\ ^ ] ` _ Z SL U$, ex5 XC d[N g|Z cc Q p \ X hz  d|`  ܉ 0 H { y Н   P0     lL# 0 $< LG lR ̞\ d Ԡo \z ȇX ~    8 ̩4 d X |x Lt0! P X u     е(  p#  ,  \5  >  P0L  v  Y  c  8m  x  l   ! 8 p  u     `8        @  p,          2! %  y!  0  B  T  b  \w    `    L  d      ! X   8  <  @   !$  4% 2 ԝ : C  D% ) lJ  T)T  8PT lH[  &o  & ( Gx  X  S8  * \  v& o  p  * + w  ty  X  + ,   H  P  \@  @  8L         , '  @-  1  иY  ,b  .v ! V0  a1 ! 1 2 n=u ؿ  <  @P  $    @  H  8  `x        H    4  hx%  4*.  X7  @  xM  pW  _  k  {  <\  P7 `7       h7   |7 7 P8 P    08      8 >9 ( $%   >9  7 H9 @ , pn# < < p (< 0< o- \3 p= 8`L 4y,_  T,i! p @ >u ܞt T4~ @  X ܟ X   \ X! p  0 @u D @   ا P# / h? PN H\ Xl HHw l   вx D  <  < (! p @  @u    \ \ \( ܼ2 \; dD `\M HX b k xt @}  d Ld X \ dp \  0 $x ! p A  eJu 1   t0 D   L(   p0+ ; |D @M $V H_ \hl <w   ` 0 H Dx @ 4  h       L! p  u    0     * 2 8: $ @   @H! p X J J Ju |S ^ D$ Xph dq | J `T 0  ,  J K ! , 8R\ XI T 2 TA` ( K! L M )  V <[4! |^& (2 |0C āP zY R  S |d po {  l ,  `H S    8|  H& Ќ1 < pxJ pxV b n lz T 4X `  |! p  Tu       0 \\  Ğ,  x  X$ + T8>DJOT Y8 >dq53JOT 8Qe T8>DmF 8JO5T er  T8>}?^J OOT ! T*j JOƅ! \5l =JO8P>Um09J OT   T8>XDŚs @JOT: X `8 & ,JOT  (8 >FL  B J<OT &8%>޵)PB JOT L3 T8>+D4BJ OT .C MX T80>>IG$ JaO4T Xi! ]r JO! ^Y(JO  T8>1D2_.VCJOTk pj8p<>-<`nJ#O8 T x ! _8 >D@7 _),E1JsOT.&u       _ ` 0c  8C>D(i?puJ'O T %  c8>xDDH&CpvJO (TR *  i e  p o n `e@! j( q8E>YCNJE)O T G . V T q8@I>!dY| uYJ*O T Y b T8J>gb!_JA+OT T _ q8L>Rr" f|J+OT Hs w Lx @~ . $L tzP ] 8 ȳ\  <T R T +# 9 3 (bT= l%DK LW ؿc Vm `ez  '  ,o B t @]  8 <    Ax# t1 Ta= x4O _^  ixr 0t ;d ! #    .| PEt +p |   d8 7 E "O ` <(p ]z x % lZ H2 tUl  Ul , $ # @>  $* ,9 `?G U ,&e *p ؉h  @RL -4( ds XT & pnx  LV .% l6 p\E ;hR .h\ ȷj `{ `5` nD  4Kd SL wd C ?h V\ 0 @ / Ul. l: TdD :\V hg u , 2 k  L  "P %X $Bh @  ( A \" ,1 ,[B T(S pt\ Pf a1/s  L <,\ E T`  p8 p 4 $% %x *0 80  4D<* 2 H^\D (kN uc q | X\  S @\ (X T 8W \8 &  l  `+l"  X/  |c< ?  $Q  d  8hm  @~  <  W X?0p  P  Pm  u  }  y  !p!! -! V8>! 4I! lZ! ,k! l  t! D! tgX! @ ! P! XK !  ! 4`! y! " |" '" |<" |G" |XU" (db" q" " l" " X0"" H0" LH" 4| # n$T?0# # .# =# Y$ h$ $ I $$  $ TI (d % l,% t%% 8y5% G% L ]% 4fo% zl|% 4# $% D% Ę% ph% 4$% ;% Lt% ,t& 2&(& T;& PK& (T[& |k& Q/z& b& & l& M d& l`& 8& |&& & ,d' $0' 4Y'  8+' G  t6' XH' sT' `' ' l' h]8' ' %' # H' D|' l' t' $D ( fl( x)( H x;( N( Hj|a( xr( {(  ( ( \ ( t( U( h( H<( Wt ) /l) /)P8) F) P) fX]) ! 8o) 0ky)) P)))) ,) ) < ) p) x7 P* * P1* \-@* |O* Db\*  y* ** *  * (/* \ * ll u** l+ 0+  ++ P=+ N+  _+ (pm+ x}+ +++ 2+ h+ t++ ԩ+ p,, 8, |%1,  x>, M, `, q, v@, r, d, b `$M, q,, , DQ, , vx - p- \)- $7- LI- Tl[- Tm- \}- - ؐX- @ d- Y - - -- <- s  . Dd . H -. >. D  L)N. F V. ,]8d. @vt. `.. PW . L.. ē.. . Z. [ \/ 8d/ (/ T 5/ @E/ iW/ |`/ r/ T8/ {/ h/ / (5/ G / L /  / 84L0 xH0 , 0 D.0 t+ 90 ?0J0 txW0 ~g0  x0 0 H0 p00 {0 r0 |0 ]0 80 h0 p1 h1 l$1 91 X{N1 T_1m1 I w1 T 1 1 81  1 H<1 `P1 d}`1 1 2 `2 ħX12 `9:2 Q2 ^(d2 dgXs2 12 h2 f <2 `22 $2 ` !2 ~x2 ^(3 3 H.3 s S2(3 Tqx;3 DpG3 `|T3 (ti3 U8|3 d\3 ( 3  3 h3X3 3 X 34 h8 44 224 k <4 L4 1 j4 0X|4 XD4 4 H4 I4 D4 t4 4 p5 DH5 ܳ+5 \8:5 .hK5 L |S5 = f5 ; x5 5 Dx5 5 p 5 @5 x?5 Lz5  6 W06 D6 n$6 xP(6 ;6 `TQ6_6 N g6u6 @ 6x6 4 6 6 ܞ|6 H66 `<U6 T6  7 dV87*7 <>7 iM7 ] ]7 Ij7 hw7 t ;7 ^7 ] P7 `7 Z7 ` 7 {7 T7 | 8 = 88 04(8 Ĵ98 #L8 ]8 \m8 |8 D1H8 ZbP <8 @8 H}8 88 lO|88 \9 `P9 4#9 29 kE9 |O9 | 2a9 ql9 D}9 9 }T9 49 V 9 39 c9 HA 9: X : | : p*+: |=: Q: DDc:q: : x: : : h D: hl : : `T;; ]*; Ժ\:; E; %2R; a; P$ s;  ; ; d^(; ; gX; X; ; P; l < |< @`/< P >< N<X>0`< o< v<< 8oL< 8?@< < V< ,|< |< tb< x< ^(= L~= ܣ-= <= OE= S=  Pv> LA H#> |5> XU> H(d>  r> D> P> > X>  > p> > > T? |"? 4 .? =? \L? { [? 8@l? DWp{? ? ? ? h|? T? j? ? L@ @ l@ M :&@ d |8@ {M@  ^@ l.`n@ Hd {@ 8 I@ x@ @ S @ |@ P@ d@ 1 @ `A W$A0A xBA DRA Q|`A \iA Ж|A A A A ,hAA tA tgAA B K B 4B \|BB SBaB  qB d\B (B SB B \I B TB A8B B mB B 1B DC %C 4=0C?08C tPJC d]C 9<hC|C 'C C , -C CC 0C XRC Hs C X~Dh D x D `M <*D ~7DBD 0TD $eD LoD ||D D`D <#dD D <`D P] HD xU D `D [! XI E  E ]#E lrD3E@E ]OE U8`E 0&tEE EE PE E E _E \T hE E | F x F  g &F ]81F @ 4ddAFOF hNL^F wF ܬFF n8F % TF ,<F $F F=0F X^ F PH p OH ldH < nH DH sH L H H lH ,H H  tH H xI hDII d.I L7I d]EI h XI 8XS OiI zI  I N I 8uI ,I I PI |I I 8I M NM | \M kM Dw zM uM 0M M dO M $M M DMM pN = N (N x7N GN l\N X`nN lN N $@N |N tN #NN hN `hO 4XO ,n #O 4H5O 8QDO  |UO $@iO tzOO O mO <^(O  O J O P6O ,O O 4  P b  PLP h+P y4P @GP ̡ZP nP ~P hP \p) ,jPP 8XDP pP 8P {PP \ P 5Q P Q @LQ P0Q l>Q M PQ laQ Q pQ |Q pQ xQ PUPQ Q PrpQ RtQ W8Q  R GR x$$R P6R <HR | SRZR d40=YkR  D}R RR `zR G 8R ^R dRR X0XRS {DS t S _ \(S G 5S lDS 4VS L iS  hsS U8S KS \S LS h S T a S \S [DS 8cS x! ,T k IT T#T?0/T ;T h`KT 8w\TiT zT d&T x) 4T HT DT T [lT PT BT Tp U hU 8(U 08U t(HU ^(YU |jU 8qdQ.?0tU N%U (:U ԆU U U e\U U U 8UUV tYV*V N3V MtEVRV @) L]V lV dV 0V AV tV \KV  V (WW  W -W ,r o@M((0,WBXX4\@#aP8P84Gg  (oqqh^xx((p@@F0i,4'Zmx$y2HM 0(e1x H/H|?V}M  8Y