diff --git a/lessons/tokens-FA2/03/03.mdx b/lessons/tokens-FA2/03/03.mdx index 39b1b629..d0011dfa 100644 --- a/lessons/tokens-FA2/03/03.mdx +++ b/lessons/tokens-FA2/03/03.mdx @@ -11,7 +11,7 @@ editor: # Import FA2 template - # Define `Cryber_Token` + # Define Cyber_Token @sp.add_test(name = "Fungible Token") @@ -23,13 +23,12 @@ editor: #Add cyber_token to the scenario - - answer: | + answer: | import smartpy as sp # Import FA2 template FA2 = sp.import_script_from_url("https://smartpy.io/dev/templates/FA2.py") - # Define `Cryber_Token` + # Define Cyber_Token class Cyber_Token(FA2.FA2): pass @@ -39,12 +38,13 @@ editor: admin = sp.test_account("Decentralized Dictator") # Initialize Cyber_Token as cyber_token with single_asset = True - cyber_token = Cyber_Token(FA2.FA2_config(single_asset=True), admin.address) + cyber_token = Cyber_Token(FA2.FA2_config(single_asset=True, assume_consecutive_token_ids = False), admin = admin.address, metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Cyber Token"}""")})) #Add cyber_token to the scenario scenario += cyber_token --- ### Intro + By now you know, there are multiple languages in which you can write smart contracts for the Tezos blockchain. How do you maintain uniformity of the FA2 standards in all these languages? Enter, **FA2 template**. @@ -52,6 +52,7 @@ Enter, **FA2 template**. **FA2 template** is your angel from heaven - here to save you from implementing the complexities of the FA2 standard. ### Study time + In the multiple languages through which you can write smart contracts for Tezos, there's an FA2 template implemented in all of those languages by seasoned developers. And good news! There's an awesome template implemented for SmartPy as well which we can directly use to implement our own tokens. @@ -59,33 +60,38 @@ And good news! There's an awesome template implemented for SmartPy as well which To build your own tokens, you don't need to know the very deep details of FA2, but if you're interested - you can read the [proposal for FA2(TZIP-12)](https://gitlab.com/tzip/tzip/-/blob/master/proposals/tzip-12/tzip-12.md), after all, wouldn't it be nice to know about what technology will be supporting your civilization? #### How do you use the FA2 template? + The behavior of your token is controled by a set of values you pass in during the initialization of the contract(tokens are implemented as contracts.) + ```python= def __init__(self, single_asset = False, non_fungible = False, + assume_consecutive_token_ids = True, ..., ... ): ``` -These are the multiple options that you can play around with that I've ommited above, but honestly you can simply use these 2 options - `single_asset` and `non_fungible` to implment what you want to. -If you were looking towards implementing a fungible token like [Dai](https://decrypt.co/resources/dai-explained-guide-ethereum-stablecoin), you'll set `non_fungible` as `False` and `single_asset` as True. +These are the multiple options that you can play around with that I've ommited above, but honestly you can simply use these 3 options - `single_asset`, `non_fungible`, and `assume_consecutive_token_ids` to implment what you want to. + +If you were looking towards implementing a fungible token like [Dai](https://decrypt.co/resources/dai-explained-guide-ethereum-stablecoin), you'll set `non_fungible` as `False`, `single_asset` as True, and `assume_consecutive_token_ids` as True. If you wanted to implement collectibles like [CryptoKitties](https://www.cryptokitties.co/), you'll set `single_asset` as `False` and `non_fungible` as True. But what does `single_asset` mean? It signifies whether the token contract has multiple types of tokens or just one type of token. -> I recommend you go through the [FA2 template](https://smartpy.io/dev/index.html?code=eJztPe2S27iR__0UKLnuLNmSPDOppCqzO1tne8cp1_qr7NmkKi4XRVHQiDFFaklqxrOXS@1b3J_kae5N9kmuu_FBgAAoamaceDdmba01EtBoNPobDfDu3Tt37zL471lel8Vim9RpkcNX@O1bzlm94uzpoyNW1XG@iMsFW_BlmqfY6hjbfL2q6011_PDheVpn8XyaFOuH9Y_pRvxv8nCeFfOH67iqeflwUxabooqzin6cHB49_MYYaV2UnPGP8XqT8erhoki2a57XMY7E4jo0VrUu8gWvHy7jo0m1jst6c_XwGwa4Wh3iquJ1Na1_qPmPRUUdYQDAo_jA80lSwNzjpK4QysPDiQVriiim601R1kx@yeKKVRuJOvz3gtfx5HVZnJfxep3m5@xJkS_T820ZG8Q8A0LOgJJRQj_OWJIBVmxVZIuKqLxGKBsDSmJCITRElwbI8R0GD6wIiyJclCgaVjxbjulr61nw@fY8WhcL7vzE2Al7CovCPd0qwCPjEZFvj255kUfLbX6ezjN3vHC3eLGI1ltYogiWI6@WvOzVreTxIvaNJLqdlVtfr2VRJjzK4qtiW1e9e1XbDXJCVGw4rEtR9usF9ANmxkWreLKt0wseEedFKax9uBeQA4ZZp1UFDFBFC14lZboRo4bJkcU_XkUgOeVVtCnSvK72aQv0z@oUJFB1cvuMju_oL9OlwVnHVltkxOn6KlrHG4BVbabwQTfgAHlH83l6HpldhAQVG9IHs2bUGVvHH7gQoQT5@5znXMgM2xr43wU@Od9mcQntNxVLc1BJ8YIVSwYjTfC7MVvxPOEsrSVIaLPhQiE2UKADDgX6sObqD6VAGI@rlJfThkA0LUuKTiyhsqaXVtZcJMwqvoDhijXMDPQOaDYYuyjjc87mV0b3y6L8gFqjyLMrZG4CIvRbumCzg1kbK0tITyyZNcCe5iQoBA2aTESTNEvrKzV7GgSol075lL5YAtoGiHoV19CojjMSH0BvBROpCzbn7LCNlRbmEy3XLRaYqe9nihuAbjHL@HmcXAGQukYy0KCXnH3gfMPistiCRTAWURFpDiu@Aq1OpNtsS7BPvJo2LY0@31e8nMRJAqBApuISYW9qYBIYXLLQsdF8NtxSh8Wi5KC07@u1GLHJN6y4BCatVmAFUyDwzD_iU7mKj@P5VQbzBONQF0mRjQF_DkRcIBFhlIYkSmpnBhRAsCgXoEtV49ePnnwHtMsJ9gd@VamFlLNoL4mtKU9szdlaHBSYdJkmQv5K_sM2hemzOMsAD_ABgDX4ZFkCbyPBS54AaiYMZO@LuExjpLFgkftler6qwUiv59VX99WaWvwFDLCJwWzyWkwTehE14CN02@BagSIFvNcxCvh_kqKYVOmP3BHVtn4_cVS@o5FkS1KjE6ly4@wyBsKuUHYFQkDgko_ZfFuLj8C1BiTpVXFgyxhXaZLEsFTIoQBC8DNf02QyTq34egMSOKzoVwOQ0g1ISNQXl6DT2Kw9hxnKzIxYZdQmwQ5j1fVzi3dj4Fh@kRbbil0AtyNHSE47@_Oz1zavjFHtXsYmiJwnIDlxeYUUJDlGhfhBa2BQpvARWUtoIOR0U3P6heqs6aq6VUTovLgE6qUALr6I0wwZ6KsWbxlgzrcp2GNw3y4RuxTXBd1VmIWpBJ4t2awG6z5Dtl0U@b0aZsUXQBmQ2MzCgwH9xuwv26qm6SI2ANyABbx7JVkHGNpZNdd3OvE4VAa8RwvAIxdsy4httdmIF@CAplUtGBvQ0TABFrStoVMKhL@y1YxJ_HsVm8cZipsP04Bbc9Lh87Qwx7Fm_pYzUxS_Qr5CA2HZcLIbsACwsrXmJ0t1xZa9SIoKhLptf6tCW5i68U0AXF7UOBOU2zTAhi@BiMJIgQ_VJZ@zMQI3ehqTnhi0m4MuXaPvwJNVDrOA1VH6d9FeAp@L6Hy3o4vpKYZ_DIggWFmyoD__9HfUaSBtSLqff_qHJCKZpLcYbb2@QsNRsBdpsgKvEQMhFySQ0J0SrlQYMdv7LOMUMDr9mHAafuh4vYMncY6rCib4AgR_7@EGo2YJclAmQLQBxHGDPp40tX8AHSbUwupj@pKhXmYbq7Pp8oU650u7j6tSQj2pVWu8Wjt1wfGKSDVx@lqORwcA0cLp3hayDgjFpnK6dxm@DlDQJo9dGvpVVwgOtqZmg06eD3XP@Ka7Y0AsLAjrga0RJBvjP3dkIuTR9iNEBmixn2Cmggup@GOcbXllpEGaFBIYCZ6BpWvsJwn9i@eT@mojuwOHJqItmid0DsGhQFAiKQOeIqPGlCFRKxLhVyKQPHsZ13dk6uS0LIsyWqNbcc5D2ROZeBkd2_MV3wJM8cH@ERydZfpRSnU00JAxnpNQq9ExcH@9LXM2NPs8gF90e4E_BCtIIr6ghtBPPLK3CJUR8ODs1XenL6PvX357@vTZy9NvBw0giF23S7BmKRA1kpZYQ3MBPXv59vunT589eXb68ix6_Oj5o5dPTg1owP9abGycvGi9fHUWvXp9@ubR2as3bSgY@DggwlD@9PLUBKGQqIBGUp4bKrkgFBJvgUZvv3_9@tWbM6KS4sRkW5ZcMhCxF4RycQ2WZtG4PNKxsd0D9CiICZdFBgxcHUv2ns1mRRKvM_xMQA1v7L_xS8Yg@llH7JjJyPAr8W39sTpWLeCvwm3BmGJu@El91L_Fa4xL4RdQNvLL_2EZ@HD4ufkE@GlBhDkIqZBGDbxZngF9KfBKQAvXIoxoEgA0I7DM1TZZMS4kluSOPasxahGZCyvLCaAWQDgwmRCJoPeK36Dfiy2byI5JrT6VgvoYV6FlYm4kqdj5nNcaJCkIyTi6d_3R1BtvKDod4lqILx6J9fDk0cxHr9IJs7TRjm5yAbXKGllmvpnWtMMKNvjLT1PRzPVnhgOY1mBM_woc4Y@BwGEwGlntm78s4tlUEly9D50UypXs9RxYdCjxHo2CmAee4YAwwFkASHMKUitYuNss4eEEpUoUXrQALv@MDIVb87XkSsJkjFMzIF6IaZY2uZqmtGiVgzZ0qSSOEf@4KYcXYxZGRiqhV1JLRhS5zoTBRekkjUSWVYV6s__YbhYg6Vq9V1b4pOTRhnib8ugTQ5u1LBYg@9HFZ2bmJtQmJKLXkjkEorh1OCD8SLAUIsSSSshGHsb0OQsEZqwnM9Z4mjxqcZQijOgZEBuDOBp0oKmHRruZszSZU_KktrXESLPnfHEOHPuBXxl8KRKRjRmm_bAYLG9GrdkQU5MjyrAKFp@wZzm7D@Gjyo1i2ATxI@UHIWwudOoNI2EIsDfTTZx8mE2tziIymojEvAkhiXORisGEKSKDudx7lbLISiqaudySRBgcgCPKZTd647di2W3Ci9YGwxtKm7JLnj70w7inBIQDTRgNggcYAHHo2OHR7WgtUoWzmGFoWH@4KNlPQOwcUrEpLv5QtBcc@VRm_GKIKCA8UV6e5DdwjUQmrll6lc1ir2VOE6HItGblzyGp9IvY2sZEf7mmX75qcmgIhX@EPwScdayzNqwgd2mZ8mzR5jjC@dhVpH4LJvWonEHbxdB8J3_3wijbIFRjLd5Zmn@AaK6@5MBt2piQAylSisSWQtivZANMgtMuCoVzuJFyH0NT9A_vI0lnUqv93_82mgs@652UmVg8Efph_MlUd7EnJDc0wPXEhBNtdWDWCfFR3quZTZZVAwImtSTd8T3I88wxhFoObiz0aZ4H_FF3DXeaP_vpYwztJ2QaO7qM9rZ@OGtYDe@c91EA1NAg36iXLjh7fFXzytW5HsIbiIi96WGNdupE_KKnMAI1JtSIoDNyjC1caCP2MO1YCyIH2s_AO8u@y8wHV33kR8Y2IfKnsbsS19PoEl5_lS47NMQGPaPyLbzuR2xo@E7nDGihwr3eCypsYYH1kCVfFxd831EXPNtv5EZfVNGar@cyjbLHkJqra1yMGvyrath3@NEdHZmT4o@K5bFBgR9AY_axQfv58kE_3dU4ppIx8Ko2mK7tQozCO2vUELqiI80UEGroMLWn70qaa3gb_GVfnIFsZmlJI0m7L3XR8Z3jfqkY9oncmBtaiFv0aaEuUbPi8@CsG3l3J1fh7BQ6g4aVzmjJUIQjCEHjf2FU2S9nU12t50UmwbytS3CJ7QYyJR76GRNhawhOGkawfwc_sIzVry_A2BiADKAGqW8erzbpnw4DMRyIqXc2glY4_@420EhRAZlCzBg5visu1jYHHDQ5KckZaIRMvmjs0xB_8kSjCqbFvX7rb_s_kmdfd@zbfDLWVfq4SfhsiixNpEk@@6MomLFZGreemtyz8kpauZJLMtj9msHwDh6Ov4NPf17smFfop_3zggYhdvCm3c8mzh5d2SBMMCsBZI_QzD28qKIHzGhVFB_C6yXLG8RmS3dbFaP6215rUQOz8n6__3JaJNhvQV2y7LWqHlJZy5lsq7pYGzu7tpR67U583mEvBK2jeJPKRq9EdYKZ5jHcdMyXdSRO3ZigvRhtzkh4etGEHN2tK54vuChM7tFakIpaG_MKETAcTHSwoSQH_mN4izoq3bnu6L0IAvRhErCQRADydGgaA59NQ2w@qVnzBbP4_fZiaG5GGCgBcFlwOazGKrYxdFTDNsMuveYlUTuHGKqkNB8M@Vhb@Tb42NsoIQ6H6aq_HKdWczU0ammTkZene7SU_Eyo5UVuZ0sc5Ds2dFq@tFyjC51l8xQ9VtBqA7oAQgW@YHMsIJ3lcT1D6mMynMpWVBG2SJxR7hLzW0YxC0R9JfXOGUQJ2zhjsyGOBqBGM1kDM9XZ9@_y4lKWpbrVlNuKL7eZTOSXomGcJFvK@HEswWCyBKOS@fjXrTrRXQlVKsvEcXEMVSAikqkQbnGsmYUfhk0aEqvjoR_8PREJ56kVg4CTd3v5PCrN3ZHW6l9MJNZ9gLVbSNsU4rEkLhcpTHcakGdYsuFBv1wYgB3W_m0wO5uCURolGi5uY1ISGg1PR0M@DpsB2AN2OOpCX_VG7C4aZK2cxm1jrCp3LtjXCnIfFDVOF5QpV2ftVLlTXBtF0SpCV7u4dpndTFSxNrWrxi6tOrlyKWur6AzLzz_9Ha1iSrtaVEMKQInpj@@QqbDAD1Xh7liUOytrgeaBl@nyakjcIhTiSVNjjYH71KoXHql@2mYJgFMIl2pgW1Ht7WxVeTqIcgTR9gVia7TMF16wVs_RHfvonTpzN9@meOgubs7Y4LGOkup16wKJbJWw4BZGnJPKtOqi9WagqH9B4cxXQCs62oAb@wpMifXfqzRZNXVulTxEVKa03s3xShqMLfml3P5JZCEd4rVYqC@L9Rr4ZsljYMpm@2PC_oTaWO9YAmMJjfgO9z@NVNLs_VCdjLy8vJzKY43TtHi44BcPSw78gPw0XdXr7K5VKDgSALEQWutd8yzVtiJlj7WysSjaM4@fxFgrJSDYbCzqz5U1IEMna6xp@wtkAeQJWS2qyE8WwsA2WZxwPEFJG4l4ggVXVgxQXQFSa7SN2EjQWwBrsGOXab0COMrKKPMzqVTSZZus9IxnA_lzdHRwdHDwu4OjCM@xRvPfH_5u@ZujweyYBjGOOsDyT_SZ0Vwihm3OQT5xEdNabTzSiYh3gG1RpTD1q2aFfAdrR2TPG3jNYbFVsYUpFnN@NbWOi5YcBVipmNEOUzdm9@9TbiaS67BXMSQ3qyyhjVV1OTT6j@x@hbG3Bt3MrbY@vUj2zX70RUfP2rD9eAzT@LOjV6Y3_aFPUwGwcxyd59RD6W86@vrrhLF0yJ@J6gA1t2rq8OuTVp2dvzPYTNto7igBF3NW4R@1FH6voUiGNoDuwfrUSiMr@9tJxrasmoWuY3jGdsK8ax1Mr33kgL5QO4Wh3hSuuf1geL0kF4QNkQucOj0Pl@LBMzUtyvvbWSsgab@jvlyf5llm8flw4LQe9IIZKD3fBdw8WWH14eoQR4QmZp3@SJo@yvgFx9T94Fu@jKHrc_CSWgXtqAftiFJWg5y4C@TZGFYbwGaJhskenq2tak_QPm0SHqKJfk5c_SpZz@4B9jlSiLkqcioCm1aflmVu9kftZi17Ymxh0Mf_splUWydLM3mEuHFP2d_EIlag9sH3WQxHRuDtlXFXJ3pjcOhLkaxRDy5AWAwrK8kj8vtOdOspFXiaDRW4j2T5VTMs_3ZY4W4zu_qj9GnZN@xgzBrbOjh78@jl26enb6JXT6M_n755NXDVSe9SLpeqMG6zN3aCQw_Mornj5oT514BYj7E7z@CEsNiRfxuqlbf88yZgGY3YX3eBsNfvhDWdd_Z1ZcveoRcxkpbGPVLOzmNieRM4enY3AWLwhmfT234ahnU9xKl1usRjRt3w2pnN58AoN6cBnY3xEMAIwjU_CT3dJBj6rkYnFu3jRx5c6FCz1EUQhB2Ik82YHVyh@s@LS6@LBXrAVmIeTwwf0peqytV2t4XJskTA4sEdqixIE4OoYrB3Gon3U1W78Q2W56u8Qpi@ndT1nsnykBifuuikAs076jP_HnMjJo6rCPOGwZn1ATQxaBRaDWUQDFAGE4tZB3jDi4bs0iDxwFipEBI7NEpwkLZ7p9YiNOfOoTZgQru9n7mutgn5P3eZ8HaocHjN41wk@mVHUcSKX5PNrqpbcZyMGiC3PKnpihNYRpuywFscIllvMYR_W6vbxebQeipr0vCjn9X7aEerd0h8b6Iad3F2gK0NEWzznMXVPs4S5ex@iQ1skZlPU8rWozE@Rrle69RHs0pmWrd3yakXoPp9rIvmOgC6denO6vjl8AsZzach44G1CSlr0rIiiTPcFxdVg1jBJfPtqtAPL_kaOkJvKQWdrPdhLMGpWsHe3mnfAkdLsenYElPopM9bqRYD2V1hqo7JKRQu@Tk6l1efImq1MlPeQhBzavi5iOROhXB0s@UokFLqnGL7mGDH3LxI@@tsvVVO@GDqxzy94GZ6jWDd5RNRk90fwihcY9IdsspwXlAnkBugh7YaRDOQEsw64BVPFSw4bqaU534fQWxQlOeiy3BgkmVAXQFkh7ekGW0I7aZS9ewV3eKzO27yu3uEghMdq03lG8bFekLX6tjrWIS_b7fD3V6xFif@UhfNOORw83zGtZeO3Wz1WGgBPfdRglzHaYarOfR4g_57KEZSh8o76eA_ujPIvGRK7fPiPXB4ynTOme5P1TLb85XaRxa3ZyFAeexD2ojgKbF5UWRDcavbp0WkxVLyGApx1U68ml1JG4rapzT2JvcdSZcnNGxq9e@2cGi2fMN1mO@dImbvMLgYgWES4E260DIH6NHNAnoQ0Wz3fMVQn2SeMjD1TXCN@1Ct@YWwpLa3iOBdLJIQV_ElK558oBIywjXHezrnPMHP7JLfkydFCWRTatU7md4gJ73a6yXSW@OF7@xyxlM3ipywQxjt5dMzNZT8AQY6HIRC6b959n_sQ2OCmfWO0bUyyS3KBEMTE_tE3MSGfMHqyxTClQqP3RAMYzpdaQVFIHnmzEHD5maLBrbzYky_A8j@qYHuZACmuKw1NocKXK3sAPOmslrlU6EZtLMr7am3fBtKdHWi6MB@1wL5vkd8bYTCrd4BttLnuWRz8Xegsbq1D4Leu1iqBzQE7QakxLwaw2s5_f2MQ18HAdDmuS8MoD1@mWU37WizryJt9br10DSUQAmepVSPebusjhRVtiKsVlbgwGT6CNLzeD1fxN2Zlwb4XvvoPjD24RjzGbln6@iom0TXOjEiUqSg0cPZUS@qoZMDlgQBrPeOdpfJrh2NoSFey7mttUaQ2LclXSV8mimMRiarDl12HWsPYOw6gePG_xkzjwMUKFYjGAbhVM9poL12TcS9@Kztkgl46lbDM8xs6eJd65ZDUAPbNfBgq3RX3K2mavJERTyV5tMlanSmVlwKLS_h1ocSsFpXVm2qHNhkHmNn83ZpVXGKtRR4lRO@uoLF82Irb1WjNa7ci7@rhOd4faKS8Ol0OsLr4NgwWRJM9s567cZeVaJpHsURzi1Sw0QjXWX_x5RfUpU1Uqt3IaLZQsuCJmtThGw3oDIeGBUQ2a5DWpd@j5NEaHRPgyb4FUERHstDt0MXPgeyQzuyaHKl1e7fXlm0jrymx_02KWCCRXcXu4dyVR4ID06oh96L6DXDayRDrQrzXknJ9mDBMexJqYXfmy569ftoZITmqdOz0VC0Fb5Hv9nuV@doIx6qRPRNoF1qKNxAaQIUw6ODoA6QdR58DbGZR9LwhSh9fVpPd_HiEqWu_9C8D6RYkjJnb6WG0pfSkkoWF_5UhbrvvUx_bLS2dSKgmP@FJ3QaimrV5wjzMqZ76i_Sahtn0FPc2J9WSvvSDeF5hocznn17Slr36w71@g3oTnkCh7TqUNmuFNeNShgloQy3TzeWzqqKGeGvVsfmD@PuWexpMo6kkvCwLNVuuKjaqKwOh3j5rbaF7CUMe8wG7IGJh6djjdfBgFZD8uKtWNXQjNbV0PLNG@r1LmD3Tr89@u1vD3@PNwlN8EKxCmZRI3ujKRc3oDeTIZNuzESCGw4embbfiB9hEVVpRKsD_mA0nBdzxnwN3xRzXtYDczLPOV6Mv0irTRYLvlIvFHHJPl0dwWDy54GHbtWquBy@o4mNBbpjRMbw45JDlAZwwyxHScW9LkjURsmhmXrYmXUACXj17SvrK5GM8s_nGd77HGfsRUpvAPFNazMcnDnvIFjTHeuHBwcyT3JwjwSL1mLqgSJmMqXkkXoFy4kgkg77O518fR0rjLkjHFBR5L2z7w7u9d6tPRhNy20@1GdMpc_ppdqZVKKVmDC@QOZxMQ9PW2__Wci8c1CDpq0CWLrFVF1Ouge59ATpIlN3pNDTxPTiml3g3_0GtB9j1a7T3VqeXv1bEdb79qIiBT2L6itJg8UwkzTwZzttZa8HoGiUcJ2w3x_c2kDmKrSHOfQM84Xtbo_t@gP4ZJM4_LeSHQsQyRGbwELi_w4_uUS1B4dxH8j_GYM3hrjrGtaw1X2B94_SmTN2hrc_9zaYvVnqeubysL@5POxnLm9rGkf7TOOo_zSO@lr938Cq4QkncV0BUx4A2n00_20n9NNo4r01yk318DVUv_18Hpr4M5rG4ei9ZyK0CXpRZDAIcE12RbEfiyEyWVJWD1@WM58Qa7h1Kl@Yxn4s8d5h1IA4AR__FZ3sfxxXaWIc7RWpCV@YhBoClYHcDtXH00gzUHREe3RfggTn@Tx0xK1N4sZz2M2yY7wTO9UbJgFupEwK1RJpZozzKzoW9IUN3edXxoafxlD9im3NJxfcLt_y9AKcSi2wlgGpi4Ktt8nqi8y6jxnm3Fxq@6xfP9XrbERTVdsTdQM0frBcAbUVC2DtrdnEE_LSossG3nStHv0iLenmOEnhY@a9FvCBqC8QiOqzCWqE0ZR_xH0ca1fTdJTkNuikWJozor2S8pw2r6sIZh8Zh@fU_jqdIgvcgzjsKC@yr9JWqPuLTcK7tMEKGYcWCt9AF2NvELcx23vKgxFuiuURvjPefzZC3@tN5AiKuUHBIGnVso1bQlk57y1oZWA67Nc@fQ9v0Peomfl7H7fJVI@aYntfPZBypYQ9Be0v5K60T5OqbY4LEL@Jrv9YFPKmKhpaXXso7m5sXqISkCrFCAvadaTtRq7KvXFjTu8Bdyj2wDkmZ8CdYmAcTerP91oH7MX3Drq2ANg6gmp@my74XsRh5mgE@8AbUAVLuHCXnu44GQ7ar8iT9QPrBVYPZE7IrA@YaQUCKzt8t16oksOmRcsmMOs4iO6AzDc4@@5gMGJ_Zc7Xhx70JAgDE9GUgPRjB@f0VkhdmgV97w7G7PC9u55N9Z5nRazWITugrvlq3TNERTqHPQ9vmTaUirbU5W2XMRZw4ZupQZzoSE9eNBfMSqjt4mnTJKLFVbex4UESxtHj8r5g_TgARy6Cc_Du3X6OgqTLnvdpeRAJlJ3sku5wTWYQZtR5ts8zRl8Ngk9Ai_gx8d9rHNAvbbr5DYhbsOIsmafexTIbnYza5tLpDjbFWzsO5MlEzbJ4X@51@TIwHMqYklnmqWvAp9gc@CopVLf2BUPF5rCreft0Q7E56mp@FCKUKLQA3PDNOIf4v6N2Za1B0yYNkoCSO@c6I6crpvalq8_66pIr60ToGAG0DrnS_pOXjf0ekr@peXv8YXdby7PzCOIvBvujlmzvCLBpbgYjaDYkZsCXDQaStCB@eO1riP86g258_OHw7QffRJ49A3CayO0G4fg0G3XXhXDN_Bk@7fns5Kndz63Ox9mFwKfNvIB0T9a1skOPi7nm238qv16LaW6DWz@31T3subqdDqFvsY927CV9UU@9n3_Fgh_1XnBRRIhGSZzqx5AkLbWVvFX3pH39wedm43d6KL@ACXQ7KXYZFU2vl6Zv@ShxfkXvMf530QK_erUviwfotQI6wPrsYpOdytgSm4PPKjL5VLgf7hB5q8iE5uUR@AN7p97069i9g3sUkdw7vPfv4ePdeFsXn5uVZODT2h30g_lCw85nf5V5sFNHol201CQlcsOVViaYX0xWZw_d6TTYrZCu4ZzSWTyX7MJZVZmTL2QPk12eCVOEp8OCPe2Cla0StgENgmL5g0kvpv9iHozn8zAPv5K4@rZoeHPzADOqWJNCifG9hEkBsqKlHJVWT4H53P3ro3@SjeirqlAnWemrttL6oqj2fz4jIfuyPO7zr1ieI7vR9coJWuUWdLnyeeClXZ43ydx8W92BdI3Chn6VDTctbbhubcOexQ076hiuQfEOxe275qF5JeofsmIeZ@w0v0jLIsdSQ_ZaXMPBy8p4jye94VG93BFfobjNsUyOV6L4AYtrNlf1qsiZmKW6yhT7cwM42VBAqNK3eOjXWc6MdvrKj6TkNEr75aDnKdb1yLeritcwQ_iCdonKrOhFxuJ9noHRsSjtnCYfbdSEh9AWL1XBK8jFJR1CmmBtrVfZFtVUQn0ne7ynuq4aVmHAvGWu1tUqHSCWKDoBGOJ@ldaXElP6WryDzbmeVDWhObtEVnePqFE0lRs5W_D59jxaFwuspHOoNmh@Bm9ICH8jK@bRWW9vs4Gnv3kHhre_2cDT331toheK28wDC5hxEYfwUD9CPxLHpht4ogmXt_tU3r5WCxdAu5zOT8dWIxdM12uXW6_E8xCoo7NnqKCB2j1QsKtnRZwXFHpJ474jsQck_arDfiCbNyPasPV9dm_V1c8___T3dZzmP__0D_PeOv0yXPwNry6q5K1yWYzEZjnoMvnmYVRuwPUTda9QLW_K03WO87K4xHtYZbXa9A5onAFo7k2GynRAxZowSBTh1UBRJORf32LkUxHCuMg6T5caRZ4hNZp@CEgT4thiCxrD0DKWchFsZF@ahEPiHVh5JOc16oTXUji3ALGlghDi2K9XWlKgn5uMbigdyVc3AtdWRm05uBWcnTUd@3TYJxm6W8kFfdObETXMDLc9kk_h_XMGMvXhdUf8f1AVIg4-) even if it seems overwhelming at first, it's worth spending some time to understand how it's working behind the scenes. - +> I recommend you go through the [FA2 template](https://smartpy.io/ide?code=eJztPe2S28aR__UUc1DlREoktbu5JOW113WytPLt2fqItHZSUVQgCAyXyIIADYC7S@Wc8lvcn6Tqft2D3L2Jn@S6ez4wAwxAcHeVkx2xXBaXmOmZ6env6WncvXvn7l0G_52kZZ5F67CMsxR@wl9fc87KBWdPHx2wogzSKMgjFvF5nMbY6hDbfLYoy1Vx@PDhWVwmwWwSZsuH5bt4Jf43fjhLstnDZVCUPH@4yrNVVgRJQQ_H@wcPPzdGWmY5Z_wqWK4SXjyMsnC95GkZ4EgsKNvGKpZZGvHy4Tw4GBfLIC9Xm4efM5ir1SEoCl4Wk_K7kr_LCuoIA8A8snOejsMM1h6EZYFQHu6PLVgTnGK8XGV5yeSPLChYsZJTh_@e8TIYv8yzszxYLuP0jD3O0nl8ts4DA5mngMgpYNIP6eGUhQnMii2yJCoIy0uEsjKghCYUmoboUgE5vMPgAzvCfB83xfcHBU_mI_rZ@kR8tj7zl1nEG48YO2JPYVO4o1sB80i4T@jboVuapf58nZ7Fs6Q5Xnu3IIr85Rq2yIftSIs5z3t1y3kQBa6RRLfTfO3qNc_ykPtJsMnWZdG7V7FeISX42YrDvmR5v16APyBm3LSCh@syvuA@UZ4fw963jwXwsWEZJD6Om2z6jJUE7zY@ME6@8VdZnJZFB@YabQH9SRkDA6pOzT7Dwzv6x3huENah1RbpcLLc@MtgBbCK1QS@6AYcIG9pPovPfLOLYKBsReJgWo06ZcvgnAsOCpG8z3jKBcuwtTH_u0AmZ@skyKH9qmBxChIpiFg2ZzDSGH8bsQVPQ87iUoKENisu5GEFBTrgUCAOS67@UPKD8aCIeT6pEETLspjoyOIpa3lxYa1FwiyCCxguW8LKQOyAYCO6CM44m22M7pdZfo5CI0uBTIC2CYgQb3HEpnvT@qwsHj2yWNYAe5wSnxA0aDIWTeIkLjdq9TQIYC@e8An9MIdpGyDKRVAyomImqXgBCykzNuNsvz4rzctHmq1rJDBVv08VNQDeApbwsyDcAJCyRDTQoJecnXO@YkGerUEhGJuokDSDHV@AUCfUrdY5qCdeTKqWRp9vCp6PgzAEUMBTQY6wVyUQCQwuSejQaD4drKlDFOUcZPZ9vRdDNv6cZZdApMUClGAMCJ66R3wqd_GLYLZJYJ2gG8oszJIRzJ8DEiNEIoxSoURx7dSAAhPM8ghEqWr88tHjrwB3KcE@55tCbaRcRX1LbEF5ZAvO2uYgw8TzOBT8l_Pv1jEsnwVJAvMAEwBIg4_nOdA2IjznIUzNhIHkfRHkcYA4FiRyP4_PFiXo6OWs@PS@2lOLvoAAVgFoTV6KZUIvwgZ8hW4r3CsQ1zDvZYAM_s8kKMZF_I43WLUu3o8aEr8hkWRLEqNjKXKD5DIAxC6Qd8WEAME5H7HZuhRfgWoNSNKo4kCWAe7SOAxgq5BCAYSgZ76kxSScWvHlCjhwUNBTA5CSDYhIlBeXINPYtL6GKfLMlEhlWEfBFl3V9bhGuwFQLL@Is3XBLoDakSIkpZ3@4eSlTSsjFLuXgQki5SFwTpBvEIPExygQz7UEBmEKX5G0hARCSjclp5upTquuqltBiE6zS8BeDOCCiyBOkIA@rdGWAeZsHUccrbdLnF2M@4LWKqzCFAInczYtQU1PkWyjLL1Xwqp4BJgBjk2seTDA34j9aV2UtFycDQA3YAHtbiTpAEE3CLdpKxw5DAgD3u8WHKHhaNROynJoO5YAECs8CBdygoOUX@HkLNZTOgaN1ygogyY5NW26I4ehZwB9FAGCUsFPjPhJ67MgAsM4LkrBcTBzDRNgQdsSOsVAERtb_plUca9gsyBBOVCfqctwavy2pYtpP7U_bCFM0D2kV3784a_I6UCDyBk__vA3qehIUL9GF@TlBsVpxp7F4QJsKfQOmiDBOGsuCeVC@8RsmywPYpjR8VXIafhBwxb0HgdpmpWomC6AHXYezhtWW5ACiwHSPHBuvD72JbV_AB3G1MLqY1pYbb3MNlZn0xBq65zO7T5Nem7rSa1q45Xa1GkdL_NVk0ZfSx13ABAtGt3rqqEDQrYqGt271EEHKGiTBo7JNARWJ4wS2nid9N7WPeFbOrawhAVh6dnSQJIw_nNHRgYera_AVkYd9hhddy444tsgWfPCiAtUMRWQTjwB2V9pFGL4Z1@Py81KdgfqDEVblItoLoGKRVAiSgG2E6PGFDJQu@HjT8K1On0elHdkLOE4z7PcX6KiPeNt4QQZiRge2usVvwJM8cV@CKp_Hl9JjvY9DRk9HAm1GB4C5ZfrHHSL2ecBPNHtxfzBfEcU8YgaQj_xkb2F84iAvdMXXx0_9795_uT46cnz4ydeBQi8ufUczI0YkOpLFaChNQGdPH_9zdOnJ49Pjp@f@l88@vrR88fHBjSgVs0y9pyc03r@4tR_8fL41aPTF6_qUNAVaIBoh_K758cmCDWJAnAkebnCUhOEmsRrwNHrb16@fPHqlLCkKDFc5zmXBETkBc5NUIKWiSpdKzWqbeujE0ZEOM8SIODiUJL3dDrNwmCZ4HcCapgBf8YfGQN_YOmzQyZ9pU_Fr@VVcahawF9ZswVjirjhkfqqnwVL9NTgCQga@eP3LAHjAb9X32B@mhFhDYIrpEID@44ngF9yRUKQwKUwrCuXmFYEWrlYg5nEBccS37GTEu144ctbYT8AFQHiQF1eGhYYJ7eAVb4OkxJ9Ihn1C9yFmnq5Eadi5zNeapAkICTh6N7llSk3XpG_NsC9ED88EvvhiCyZH71LR8ySRlu6yQ3UImtoqfhqWZMODVjNX36biGZNW2bgwbK8Ef0r5gh_eGIO3nBota_@spBnY0lQ9S54UlMuZK@vgUQHct7DYevMWz4Dj2aAqwCQ5hKkVLDmbpOEgxKUKFHzog1o0s_QELglX0qqpJmMcGkGxAuxzNxGV9WUNq1oTBu6FHKOPr9a5YOLEWufjBRCL6SU9MmXmwqFi9xJEok0q_Ixpr9Yr8CT4Vq8F1PTt1f8aEO8TX50saFNWhYJkP7oojMzltHWpo1Fr8VzCERR68Cj@RFjqYkQSSomGzoI02UsEJiRXsxIz9OkUYuiFGJEzxa2MZCjQbc0deBoO3HmJnFKmtS6lghp@jWPzoBiz_nGoEsRmqvUMB0QBaB5E2rNBhisG1LMUZD4mJ2k7D64jipaiC4T@I4UMQvAR9TBqBBDJlOY6SoIz6cTq7PwisYiVG1CCMEjp@AEhhBxMhjdBF9aamTFFdVabokjDArAEeW2G73xV7HtNuJFa4PgDaFN4QxHH3ow6skB7U4mjAbOAwyAc@g489DtaC9iNWexwrZh3a6iJD8BsXNIRaa4@QPRXlDkUxkDC8CjAPdEWXmS3sA0ErGpautVGIW9lFE@hCIDfTqm7AwIR@KsF0Pf@ZKefFoFbxAKv4I_BJxlsFHdWEbm0jzmSVSnOJrzYVOQujWYlKNyBXUTQ9OdfO6EkddBqMaavZM4PQdvrrzkQG1amZABKWJZRJaC2TeyAYaF6VyB3Dk8WriPrinah_cRpVMp1f73PyvJBd_12cJUbJ5w_dD_ZKq7OCWRIX4wPTHYRMH_QIb@lPVqxlflMbqASS1JdnwD_DxtKELNBzdm@jhNW@zR5h5uVX_2p48ytD9tqrGjy3Bn7Yerht1wrnkXAUANDfQNe8mC0y82JS@aMteBeGMi4rR2UKKeOhJP9BKGIMaEGBF4RoqxmQt1xA6qHePLcqDdFHxj27ep@dZdH7onY6sQ@WjU3InrSXQJr79Ilx0qZIOcUfEWXvZDNjR8o2MGtFHtvd4KLKxhg_WQOV9mF3zXUSOe7DZyJS8Kf8mXMxlG2WFITdUlbkYJ9lUx6Dv88I72zEnw@9n80MDAdyAx@@ig3Wz5Vju9KXFMIWPMq1hhqLZrYuTeWaO2TVd0pJXChCo8TOzlNzmtqXir@cu@uALZzJKSRpB2V@yi4TvDE0Qx7GN5IjSwJm7hpzZ1OTXLP29ddcXvzcUVuDo1Ha8ipVPaMmRhHw_T_k5e5TOQ4vjv6zIHm3ZUaYR223dLnF5Hdc2gkX00KfZ9xNTBocz8KYc9VFYlabTwBUtFeqMSRSiNTQRVgnqAjxxumYkuNSs3sOthA4FMzOVuXyh2cblCIixVIe_Gc6uUam2f5EjdQafaHupZbV@ganpHW82OY_0CWq@AM4H1wXWYYYrENA3KKa4VnVs6glJpRsIQJl8E7VXjYAqkeE69wawOy3UAhuwARwNQw6k8gZpob_or8IVk4kUzXwA8oPk6kY55LhoGYbgmC57jkQqTRyqF9K9f1jIhtjlIlHiA4@IY6sBHOEcgPjlmhcCDQeVW6PQalRgUYYbBZVwu8Dy5Qic49MOJJW5Ahdye6U55KVss2P5nhoIkPDyiRbTHIHrDII9iwMSkhYxhNwd7_cxeADso3REv23BCKiWb4uI2FgUjAxHE881AwmVHR@wCFAJtx_jkCWz8IlsnEaYNGfA8OwgtO9MqKL3yalDNkz1g@52SVPXGRV5Ua7asoNteuNIKF@wzBbmniLAMNHO6khjs6d7iXCXEXuSU8HSgl1Ulh5@ok1zB4ZLtlfGhAtR29gDlZwWpzPsAPjYC0CpN9VIeG1PCKrA4BmJjCtjhAAiUmPzwDukOC_xAJcOMRG6TispXlEnckWLW4NFRlVCFknpi5eAMVT@tXAXASQRWDuyMSO1qROEcHZRKI4MEZ2u0TCMnWKvn8I6dZq_y62frGBPsgyqhFnM4kWzOUEoCkq3TOYzOBClpDyvXSMc5xdEeCqN0AbiiPEY8s1Bgckz2WsThojrCL2TGcB7TfldXKWgwNueXMrIVyhwBnFcUqR@z5RLoZs4DILQqsjNmv0PFpIOxQFhCObzB0K5hJU_fDtQtiMvLy4m8wjCJs4cRv3iYc6AHpKfJolwmd60ciKEAiFnHWgWZidPrgvQepgAFIh_BzDUN8BhYQLDJWOR0KcVIOl8mLVJkD3hBmRMFGaSCGdgqAeWGtyUoRorpqrizYoBiA5NaopmAjQS@BbBqdkIXBlrhKk08LpTZuw4XesVTTz72D_YO9vZ@vXfg450Vf_bJ_q_nvzzwpoc0iJHXCNs_1vdDUjkxbHMG_ImbGJcqpkrpj29gtlkRw9I31Q65LtEMybSp4FWZ4UJLZDO@mVhXQ3KODKxEzHCLaq_MyBG7f59fQSdf7shOGR_cTCWBNlZqycDoP7T7ZUYAEbqZ8cQ@vUgKmP3oh46epWH14DUK48@OXok@2YA@1THH1nG0M6eH0r909J1Zp_3481EtA8DdGfSdrfC2JKaJiapDU2opnDNDDgxsANZgcpgteVc6EXSeBGcDr9Ha6wWzJSVrG3Az29CmV5XY6KN8WsbvSEz4Cb_gCeYtPeHzALp@DSq2luiFTGSHFuQpyVHDT3IFTFVg1Dy6MD1RR8in2BG0iwDbh6i8iKMmS4rEoVoPEO6@mliTqybCC6j1UVLG8BDtBjXhU8VPRJbov9pkqYWaxRE1i4bwpK0a9hexfQXICFCZ0WBopHI0bZKRixcbIQPZl3xBI0NKgLBIVeZW@WQuHOnWE0p5MBsqcFekMFQzTIhqEMHdanXllTSF2Odsb8QqQeydvnr0_PXT41f@i6f@H45fvah5EvjpfbjZxCqMW4Ulj3BozzxGPqxuIX0GE@sxdmdGatssuiMUMsEQdt4y6yo7dzhk_7ENhL1_R6zqvLVvk6vsmLUwrTUf9koUavmYs7wJHL26mwAxaMMRBrY_FcE2zYmJlW85bNJQ0zFrrOZDIJSb44CyRR0IMHw3TU9CQleec9_d6JxFPSHXMRe6@CJlEdjue@L2C8bXFugxpNllc6tg_iAHbCE2dO8oyUuV92HbZkJZWSxg0eAWUdaKEwOpYrA3ehJvJ@o043NMWFPuaDt@O7HrzFJ2oBg_ZdaJBVq332f9PdZGRBwUPobXWlfWB9DYwFHbbiiFYIAyiFisuoU2nNOQXapJPDB2qm0SWyRK6yB1w07tRduaO4dagQrttn5m@vypzf65y4S1Q6k0Sx6kIlQuO4q0DvyZdHZR3IrhZJyKNQ_sqq64gLm_yjO86efLw7EB_Fvb3S4yh9YTeUqLX92k3kc6Wr3b2PcmonEbZbeQtcGCdZqzqNpFWSLBy82x1ZlPK5VXh7s9GuPHOMCu5UFWu2RGA3snYTgBqucjfYzcAbCZqdXYHTcffkSj@anQuGdl7spD8SQLgwTPucU5Oh50yzCtOvrGQhCDBtNbQkHHeF0zluDU6Xlv67Tvkb8l2LRviZFXkueEJIqIDPaGI3OyhpuazefhAnjav4j55WC1zrms12GfMpu3kEh6GdzveR5dSInlFRKj_ZQhWBn9j9BHxIDieP9gAp2cYrl2YvHdqDOlo1dKnU1UdKXMfLwlIaVC8o1E@62I9euK9EoudMtloItODV6_btARx2gGKFrzdb4VVRSau4uhMjMLshlMNUIcTXyJ3K7@EIbtiW_djr4MggjstERU6ENxfdEMyAZjNVg8oQAbBU8u8jO3ZSVOA_Iz0WXgmWjxqCuA7LAxNeUNoN1EssxOMQH8bPc23UYyTaERU1An1jeMJugFXatjr_RKd99uN6W@YzVK_KlumpEsefMo0LW3jt1s91jbBjoqPQFfB3GCuzlwCFz3fdahVK6y2gv8R3UHgrw0CjKJQ1WssIK3VWac6f6UpbM@W6hDW1H@AQHK9FHp1rRmm8@yLBmIeinvdyI1kpLprERVW@dVHQHaUNShoHEQuOtIOhegIlOrf7eGQ7XlGq4jVL@VxewTmeaMQDEJ8CZeaJtb8NFNAnoQ0Wz7esVQ72Wd0p13LRCszvSMV@mLtaV2TRj6GBmP53bOz80mrKbz5hyjIxfmhJd4wNhzltT2FjF6F1MoRFWecMHDc8q1I@SmWLJrxkP8zi75PXlFhkBWiWe9z0yqyUnn5XrnJbXx2guVNMZTV6mP2D6M9vzpqRpKPoCB9r22iMlfHAd8dra84D59JHitA4MaZlo9UHP2oSg_g3TByssYvNICS3AQDK@fi6EQJN2cxjRsarZwYFtbxvI7gOweAer2LTCSae2xOVRLlcUGMGfEspZc1baCurdVX3rNGKN4ZucUG7Df1EC@bTvepmk3qUaXEbATzZoNjfNp2bRKZDYkVjVsm4Tt4f3XgAihBj_aAQD9_ZXMe2@U22LfvDrR94PP4gueigZGbStRiU3neVVpaTKLLtqkwTIOxzhZTDnmy6pinQayzIqSzRN@RdUiw0UWK7ulPlXTS4WpVDElh99cFzh0CRY6sQcgFduPKlx5DRYqLfKBf96alzHuVPoEL_lUHTfLGdZWxPI9IyrRsQS7ytyQf6NiIFUqHKIJc9Aqyvn31y@esxlenVD3MCvEGHciMAKWUP0Tc213YZvFkbAI0C9VcS92SeUQMbk@SPC22EYn2vHIAuGpaXvskMxDnIqfzWUm3cD7ReSxX1SLs5Hs4dJbeuKjenOBsZYO4mGF9@_RhK_YaOCwVkYO_hppK2HUtGxHlVE3YgYj7sKJVM9TSu668Qd0_SUvqcifqL4nMl6CXN6OjmkpjoKDNYYww0S2GjXzl@t6ZLhbQDHKAP8COrBpUbqFyqPiXNedCeRN@JMn6MdQJ5Ngd@HkjjNnGH@3hVQYuLV7BMZE4RsS3WBvxFqQrjo5XdfGequuE3WDerDjgs0rN85d2_FOT_u2kDCcmD23LHcLAdijeVb1SKO4HI@83TAC5rtVXGvEvlvzfNMSDKVnLfrCvIBWD1hvtVN3vFsu@jgvmO9UvafPrfHt6vR9ZRwRtncNMslOO0eXRL@mIW1o8a05zaQyrPPwrzmWAS1QrgMxiuLa9er7FvftLnAoKbUSDVEWYiKeoRbwQwc8dJaDl71EXjo49gOMHKmc@aEutybjSoZpp2HolPBYXHgoZbC0s5SvDSano60MU3WkpRJQjTS6gVTm6xCjV5TQRKXA12Sn6Etx9m0sc50tTshPCTeier5EDnQAv7h03AvUyFHXGfAShKgzZ0KDX@ex6M@vsL48RgVlGTlxjvfrdmwiNDSyhLF@xN40MWscFFoPR3Xjme5dOlrUDQlXG9Nqcj2vttf11BDv@vFbB79tU3R1bNh_P2Bv5Iqr_tYotK@HWOQe9iGPqdomZajtOEpDmv3ZKd@EeX3IvKvxKlkX4_Iy89ySEMz4IsxjonLo0K40vIpLqDoPiTQ6_VJ1gu8VzKglDDTmtQNjpIuTYDmLArp6DIoLr_VMOvr8Mf1j2vH4scjEk@aAekcB3SiStE5@Jyi3dhgxCutlXIjbRuzxo1f_818__vDf7h4tcSMPlwaobHlnBg1j@cUFNG5urPr8mXnaOxtLdqeFQC@Jvytwi7CU6QH73gnmbeNXu131XF@HmmFN@LrXqO4pwcgqLogxsLsg5ZKEbpCSkxUhwYsLW3Pgu2xS40uL5JiL5nQ6QsCiOAKBGoetUQV5H2rU3KMHQGbB5HwSTAQB7O0fjOS8JMVO3CT1QE4Aj1rikF7koSW7LrRpvTGHPPno0EFaDyxUAeQahQ_ryNGXq4ksPDXzMd4NG@O__@K9rfcJ1uUCDCsnHXmv@Yw9oxcXVe8oKvhsIl5mNMnys8@9FnKQ4BdgtKyA7FCg9HstklcHQQIMKdYUaPVGRbbOQxylKdTAIM0SgRG5d16TqgEE5gRJUdZzqhN4bE_3@_q8QGKTTBCs6pictpyb58HCvh5n8J9sNFaJPp6pfuovg0BbRnXWHVwrznnIwaLIccWieZqNF1l27mwtDia2tG0gwNxZJwIsZgCebrSI4rAcvBmAYwc2Q1CWdC@YjGdw2SmqeI4GVhSrB0NEjuf7HklzeHROV1jP2T8dsXviCtK9t8OWaVff9B2qKvjmWULOG9lCrwKpgjyTbVZ_h4ehj8@kXVc_NhT@gqrgfYo5a_o2t1XRG0gPTMi8fpe7YXXScLONCN9S_RgRYJWvYFHEwvD6trzGq7Lbxrj8yHq3iLqCTMZRQS_bAZk8y9aygjD5gkXztS9FyFMsFa6OdSaTyRBLH7NBOCeY7I31zrWdrg2DNx_4uDZfDeMPdZmJb0GukKGN2Op9M9VsoalGo7W6ld4kqwGMChNZ4yUrZxy5cosFh0M7omgdyGsRAFsuouWcRq8FrYwzF2Nahjd6gvYNVehM8QgL9gsD0yK8qNdLxTuX4jUdWBgg5eZl6sm2iRGFKbdgpwyzjkzJvkuUmVzYvS2PywHhwRH10NnNigG_rN7vhR4T5tW@ljSnS@oTk4lyhYBW@f6WPH5X8aF16T@b_YmHVPuFrqPPEOZlQO@duYiLdZBAT_EGnrhQ_IRAsjTB@gsnT46Jjz7rYJjPgRtkURHiEy1qwReKxEVTFQWrDpJ0Y_lmAcNqqXWs_jDCitjT3F2JJRGZspjVqBOoxcRif4Cl@7V0Y89hWNBRtvXk6FhiMTu0J5B4RTzUoHY1tHyTlnpdG0iy4ycHv_rV_idYB3GMJ0EFrKJELY_COUaJaLh_JKSNlUhwA@@RKc2NQ2DYRHWNpdYBHxgNZ9mMMVfDV9kMHH_PXIwIJEVxsUoCQVfqBWFNtE8WBzCYfOw58IbO2@ANLWwkpjvCyRgKNdxHrfXoYFC7h999mIkHTkqbwq6s82SgzTD5uk20wzyX66TQLDIfgnolXU1SwKzhvsODb89RAFZ78eSF9ZOIO7kRd4KvxwgS9iymV4e58LcaeKeNdwQt6TU0@3t78uB07x5xMG36xIACT_f8ZSTwO7FPBq1JqvfU4FB0n5_9ged1R14dsEHDA_uJOBbD_l_teawNkxNKdVHvjjsS1KCTFDqjp_q4G9bc3dIgEbn63tcI9oaTfJ0OVFqYMpkaW4I7dyoN5UIgHd9@90U2c2ygXLpOubcm0_ShoGntZjYVnFd15HdAmV7gVTOk1vUpjKJpOCQw624D2h9j567T3dqeXv1rpvrb@qYiBh2b6rorCZthppXAn_VEG3s_YIrG3cIj9snerQ1k7kJ9mH3HMB_J7vbIrj@A97aI_X8o3rEAER@xMWwk_m__vXNUfXAY94H8nzG4EU_pqJjfrvmfodMjNO0pvqjDVtr7Oyvt10B2aSQgtqvtvVa1vd9fbfcm6usq7f1dlPZ@t9KGlgfXtICei9PA00XO@XVQevA@UXqwG0oPdkHpQV876JdAx1iGaCwybpRNhJYQGkR1H@T96KadZexNNdM1lKH9@TB00we0jP3hW8dCKJH9IktgEKCaZEOuP53TzClMh4k4szGRRjMK_JFo7I_F3lvUPCCnxet5QRl2XwRFHLKX@qhCRKZczitKCBQGMqVdV5IiyUA@K@VKfHSbGp8PQ0bc2iJuvIbtJDvC5ORYn4C0UCMF0ugCmybGIN1QfsRHMmx@fmZk@H4U1c9Y17x3xu2yLY_x4odmWEuBlFnGlutw8ZFnmx_T7bo51_bZv36it3GyTIfxj9XrS_CLZQqos1UAa5@1ho4gAG26bOAMouvRL@KcXpMgMezKpGGYTAO7os4pfdl2oEYYTvgVnqFax4WmoSTPF8fZ3FwRHZXlZ3QaXfiwet@oc6UOzKkqSDF0hRLomk1bpR37PTBq6u4su_bjz9aE8wYu1HxbuhgntuhW1w9rvSHmTac@Zim7C3Lol9IQOlrZ3MBgK2rVto3qmaWNl27VYlId@muXvvs36HtQrfyti9pk8EstsX5g3RKEJmNeZcnbl3EpZWC_ZzUTk79F1qYsHX4ZqBRNHonU5DSrbhFIqPXLuSa7ojRQtcCxsgLjqA3UpUDrOOywBY6kkEYlmje7CTFHrrd1ONe56vqSJ1vWjCmDe7Lui14_Zphed5Etw@GGKQJgjvNb_GSrPdeJsepWL3qbrfa7mtevYmerg67mB22IEgfKMDd8f9k@_u_gbTtOK3tfZIxq11Nhqm1DWvHaEFV4p1yWJbLr7YwQQK2EUMt1XlZdy@lhcFjv_dvvbmuJMIeg_cnM_mC4kyVJazMIQZMhEQO@ErYlGgHsh@l_bfTXaV3ix2333b6VSejZ0dKkhdyutYmfKip9XQjXdBTxU1_PVpra_rnV9TTCbfipEy9MuifpWm7QF9lM0@3flV6vRTS3Qa0f2u7u99zdVuuCFunY7IMtQdOP4qn35_9jww96b7jIH0KlJGqmoX0b51pL3qp5Ui8u96Hp@K0Wyk9gAd1Gip1BQcvrJelrNgrWbcC86X8UKfCzF_vylIzekKYdrA_ON9kqjC222fugPJP3Nff9LSxvnabSuhwMv2cfSZl2Hbu3d488knv79_4xbLwbn1_g52Znj_iphcHdYD7isPOzu8jc2yojUS9aYpKigu0pBSaYn0xUZwfZ2WiwXSBdwzilO0dNtAtjVUVOPqK9He3y7otCfFUayIV3Wy9Y0SqhG1AhKJLfG_ci@o_qwfh8GOrhZ@JX3xYOb64eYEUFq0IoAZZ@pMRozeUotHoyzIduXx_8nXREX1GFMskKX9WF1kdBtfvnA2Kyj9vT_Px_bM9BCzO6rijrGg_syySbBQk7Ti_iPEupLNRLcYWc54XxmnlR_FW@exzf8L1O45BOo@lAG0_fV5tykaVMlNZRxf@xPzeAk1yECRX6BrouMTs12unr6mHOaZT6u@tl_d8FRzBYvYkq86CsEcVo8b68eN18y@j0XiJavL9SCx5AWx_aYElcccFcnPCX@cYqkZcVEwn1jezxFnMqvBJEYr34iMzRQWnZB8QcLe8WGGSV36n9KGdKP4u3PDcK@qsmtOYmktW9eTWKxnLFyhGfrc_8ZRbhZZgG1rzqMWg44TtUdG_ehHL2Nhs4@pvXqp39zQaO_s3XgjuhNJs5YGFB4qBtHuoh9CPdWHUD6yLkvqiKWTj7Wi2aABrVeZx4rDVqgtmhDqADQR2dHTNulLNzz7nRrAmq8ZZzJ6Tmi9ab29f@vvR@IKvXq9uwdQGd1@p9KD_@8NdlEKc__vA3s1COLO0YMnxWVfLKOVasu@AsBXE1B3mHpekyzLlKx6rsRSlL8@hcp1meXWKtf5lkNLmD5YpAOK8SlJe6apHv4xU23xcsrotsuKSA0B8y16uJjSxNEBtVPwSkEXFo8RuNYQgSS36I7bVrelAB3dUkTn25rmEnvJpMuQWINSkjSoQ6RUeNOvXnJqMbckXS1Y3A1eVNnQ9uZc6NPR25xNR7GbpbjrmiV_S5Ic25JNr7Gaqd7m57JJds_fsMZIrea49IfWTxIKP0p18G@RkvqaYP_e6N7FIyLvG3zVK_pSoz1seo7KMSqL3y3f6zTx4_Oy6L3y9_@durR795unz2zcFvF7@5elesv_z9t7PwSU5vlfw_sZ8NBQ--) even if it seems overwhelming at first, it's worth spending some time to understand how it's working behind the scenes. ### Show me an example + To implement a token of your own - you need to import SmartPy's FA2 template and in your own contract, rather than inheriting from `sp.Contract`, you'll inherit from the `FA2` contract. ```python= FA2 = sp.import_script_from_url("https://smartpy.io/dev/templates/FA2.py") ``` + This line is similar to - `import FA2` in plain python. -But because we're writing SmartPy, the rules are different. -You need to use - +But because we're writing SmartPy, the rules are different. +You need to use - 1. `sp.import_script_from_url` - If you're not using SmartPy's online IDE. @@ -106,27 +112,45 @@ def test(): # Creating test accounts. admin = sp.test_account("Elon Musk owns this account.") - your_token = Your_Token(FA2.FA2_config(single_asset = True), admin.address) + your_token = Your_Token(FA2.FA2_config(single_asset = True), admin = admin.address, + metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Your Token"}""")})) ``` + That's all the code needed to implement your own fungible token! -Look at the last line of code in the snippet above - +Look at the last line of code in the snippet above - + ```python= -your_token = Your_Token(FA2.FA2_config(single_asset = True), admin.address) +your_token = Your_Token(FA2.FA2_config(single_asset = True), admin.address, +metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Your Token"}""")})) ``` -On first look, we're initializing a smart contract like we usually do. + +On first look, we're initializing a smart contract like we usually do. But, we're also passing in `FA2.FA2_config(single_asset = True)`. `FA2_config` is one of the helper classes defined in the FA2 template through which we can control the behavior of the token. We're simply telling the config class that we want our contract to be a **single asset** token. As the second argument, we're passing the address to the admin account. +Now, third argument, `metadata`, is where you need to carefully take a look. This `metadata` is neccessary to be passed, and has to be according to [TZIP-16](https://gitlab.com/tzip/tzip/-/blob/master/proposals/tzip-16/tzip-16.md) +Let's deconstruct it! + +``` +metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Your Token"}""")})) +``` + +`metadata` needs to be a big map(`sp.big_map`), and the first key NEEDS to be an empty string(`""`) and it's value needs to be a string which points to the location of the metadata content. +There can be several different ways of specifying the metadata, if you're storing the data in the contract storage itself, then you've to specify it as `"tezos-storage:"`. Over here `"content"` is the key under which data is stored, hence the metadata location specifier is `"tezos-storage:content"`. +And now, the value of `"content"` is in bytes, a string that represents the JSON object. + ### #buidl-ing time - + #### New feature request! + It's time to introduce some order in your chaotic new world order! Take the first steps towards building the universe's most advanced civilization, it's time to make your own economy through fungible tokens 💵 #### Step by step walkthrough + 1. Import the FA2 template using and set it equal to `FA2`. 2. Define a smart contract - `Cyber_Token` that inherits from the core FA2 contract. (Use `Your_Token`) in the example above as a reference. -3. Initialize `Cyber_Token` with `single_asset=True` and the address to the `admin`. -4. Add `cyber_token` to the scenario. \ No newline at end of file +3. Initialize `Cyber_Token` with `single_asset=True`, `assume_consecutive_tokens=False`, address to the `admin`, and in the `metadata`, `name` needs to be equal to `"Cyber Token"`. +4. Add `cyber_token` to the scenario. diff --git a/lessons/tokens-FA2/04/04.mdx b/lessons/tokens-FA2/04/04.mdx index 4efcc6c9..9e166733 100644 --- a/lessons/tokens-FA2/04/04.mdx +++ b/lessons/tokens-FA2/04/04.mdx @@ -11,7 +11,7 @@ editor: # Import FA2 template FA2 = sp.import_script_from_url("https://smartpy.io/dev/templates/FA2.py") - # Define `Cryber_Token` + # Define Cryber_Token class Cyber_Token(FA2.FA2): pass @@ -24,7 +24,7 @@ editor: elon = sp.test_account("tesla") # Initialize Cyber_Token as cyber_token with single_asset = True - cyber_token = Cyber_Token(FA2.FA2_config(single_asset=True), admin.address) + cyber_token = Cyber_Token(FA2.FA2_config(single_asset=True), admin = admin.address, metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Cyber Token"}""")})) scenario += cyber_token # mint 5 tokens to mark @@ -49,14 +49,13 @@ editor: requests = reqs)) # call the entry point balance_of to check elon's balance. - - answer: | + answer: | import smartpy as sp # Import FA2 template FA2 = sp.import_script_from_url("https://smartpy.io/dev/templates/FA2.py") - # Define `Cryber_Token` + # Define Cryber_Token class Cyber_Token(FA2.FA2): pass @@ -69,20 +68,26 @@ editor: elon = sp.test_account("tesla") # Initialize Cyber_Token as cyber_token with single_asset = True - cyber_token = Cyber_Token(FA2.FA2_config(single_asset=True), admin.address) + cyber_token = Cyber_Token(FA2.FA2_config(single_asset=True, assume_consecutive_token_ids = False), admin = admin.address, metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Cyber Token"}""")})) scenario += cyber_token # mint 5 tokens to mark - scenario += cyber_token.mint(address = mark.address, + scenario += cyber_token.mint(address = mark.address, amount = 5, - symbol = 'CBT', - token_id = 0 - ).run(sender = admin) + metadata= Cyber_Token.make_metadata( + decimals = 4, + name = "Crypto Bucks", + symbol = "CB" + ), + token_id= 0).run(sender = admin) #mint 10 tokens to elon scenario += cyber_token.mint(address = elon.address, amount = 10, - symbol = 'CBT', - token_id = 0 - ).run(sender = admin) + metadata = Cyber_Token.make_metadata( + decimals = 4, + name = "Crypto Bucks", + symbol = "CB" + ), + token_id = 0).run(sender = admin) #transfer 2 tokens from elon to mark. scenario += cyber_token.transfer([ @@ -93,7 +98,6 @@ editor: token_id = 0) ]) ]).run(sender = elon) - # create the FA2.View_consumer and add it to the scenario. consumer = FA2.View_consumer(cyber_token) @@ -112,11 +116,12 @@ editor: scenario += cyber_token.balance_of(arguments_for_balance_of(consumer, [ sp.record(owner = elon.address, token_id = 0) ])) - + --- ### Intro -In this chapter we'll explore the different entry points FA2 offers to interact with it. + +In this chapter we'll explore the different entry points FA2 offers to interact with it. This is important as it'll help you gain a deeper understanding of the standard and later we'll use this knowledge to even see how you can interact with the `Cyber_Token` through Javascript in Module-3. @@ -128,30 +133,30 @@ To see how to interact with FA2 based tokens, you need to first know what all en **1. `transfer`** This entry point transfers tokens from one account to another. -It accepts two arguments - +It accepts two arguments - 1. `from` - This specifies the address of the account from where the tokens need to be sent. -2. `transactions` - It's a list and every item has is a dictionary that has three items - - - `to` - this holds the address of the account tokens are being sent to. - - `amount` - amount of token to be transferred. - - `token_id` - specifies which token has to be transferred(as an FA2 contract can hold multiple tokens). `token_id` is always 0 in case `single_asset = True` for the contract. +2. `transactions` - It's a list and every item has is a dictionary that has three items - + - `to` - this holds the address of the account tokens are being sent to. + - `amount` - amount of token to be transferred. + - `token_id` - specifies which token has to be transferred(as an FA2 contract can hold multiple tokens). `token_id` is always 0 in case `single_asset = True` for the contract. The `transfer` entry point loops through the transactions and for every item in the transaction, it checks if the tokens can be transferred based on the [`transfer policy`](https://gitlab.com/tzip/tzip/-/blob/master/proposals/tzip-12/tzip-12.md#default-transfer-permission-policy) - if they can be transferred, it sends the `amount` of tokens from the address passed as `from` to the account passed as the `to` in that item. **But, even if one transaction fails in the whole list, it has to cancel all others - either all of them happen or none of them happen.** -Let's look at an example - +Let's look at an example - + - Jon wants to sends Lisa and Mark 2 tokens each. -- We'll call the transfer entry point with - - - Jon's wallet as the address to `from`. - - As `transactions`, we'll send a list of transactions. - 1. First item in the list with hold the address of Lisa's wallet, 2 tokens as the amount and token_id as 0 because we only have one kind of token. - 2. Second item will be the address to Mark's wallet, 2 tokens as amount and 0 as token_id. +- We'll call the transfer entry point with - + - Jon's wallet as the address to `from`. + - As `transactions`, we'll send a list of transactions. + 1. First item in the list with hold the address of Lisa's wallet, 2 tokens as the amount and token_id as 0 because we only have one kind of token. + 2. Second item will be the address to Mark's wallet, 2 tokens as amount and 0 as token_id. - Now, in case Jon has only 3 tokens but total he has to send 4. One scenario could be that he sends 2 tokens to Lisa and then the transaction fails for Mark. But remember, either all transaction will happen or all will fail. Hence, if Jon has less tokens than total needed for all the transactions, it will fail with the message - `"FA2_INSUFFICIENT_BALANCE"`(PS - even the [error messages are specified in the FA2 standard](https://gitlab.com/tzip/tzip/-/blob/master/proposals/tzip-12/tzip-12.md#error-handling).) - **2. `balance_of`** -As the name suggests, it tells you the amount of particular token an account holds. +As the name suggests, it tells you the amount of particular token an account holds. Similar to `transfer`, it accepts a list of requests. Each item in the list holds - @@ -160,7 +165,7 @@ Each item in the list holds - 2. `token_id` - ID of the token for which you want to check the balance. -It goes through the list and sends to a `consumer` a `response` list, each item in the list has 2 fields - +It goes through the list and sends to a `consumer` a `response` list, each item in the list has 2 fields - 1. `balance` - this is the amount of a specific token the account holds. @@ -168,7 +173,6 @@ It goes through the list and sends to a `consumer` a `response` list, each item So, each item in the `response` list ends up looking like - - | balance | request | | ---------------- | --------------- | | amount of tokens | owner, token_id | @@ -180,20 +184,18 @@ Here what happens is, when calling `balance_of`, we also pass in a `consumer`(th > Note - Most of the entry points in FA2 perform **batch operations**; they accept a list of requests and processes it atomically. If one request fails, all of them fail(atomic updates). - **3. `mint`** It creates a specified number of tokens in an account. This is how you'll jump-start your society's economy. FA2 standard doesn't specify any details for `mint` but the FA2 template in SmartPy has built a `mint` entry point that we can use. -It accepts 4 arguments - +It accepts 4 arguments - 1. `address` - Address to the account where you want to mint the tokens. 2. `amount` - Number of tokens you want to create. -3. `symbol` - Symbol to represent this token(Like dollars have $). - -4. `token_id` - 0 in case you only have a single-asset fungible tokens. Used by FA2 standard to differentiate between different tokens. +3. `metadata` - This is similar to a map and has three values - **decimals**, **name**, and **symbol**. +4. `token_id` - 0 in case you only have a single-asset fungible tokens. Used by FA2 standard to differentiate between different tokens. So far we've explored 3 entry points available in entry points, down the line we'll explore a few more 🍪 @@ -205,18 +207,27 @@ def test(): scenario = sp.test_scenario() admin = sp.test_account("Decentralized Dictator") mark = sp.test_account("Mark") - + your_token = Your_Token(FA2.FA2_config(single_asset=True), admin.address) scenario += your_token scenario += your_token.mint(address = mark.address, amount = 10, - symbol = 'YTK', + metadata = Your_Token.make_metadata( + decimals = 4, + name = 'Your Bucks', + symbol = 'YTK' + ), token_id = 0).run(sender = admin) + ``` -Building on the previous example, here we're creating two more test accounts and `mint` 10 tokens each to them. + +Building on the previous example, here we're creating two more test accounts and `mint` 10 tokens to one of them. Keep in mind that `mint` can only be called by the `admin`. +One thing that stands out is `make_metadata`. It's a helper method defined in `FA2 template`, that converts the `metadata` map to the required types. In the required type, values in the `big_map` need to be of type `sp.TBytes`. + Now let's take a look at how you can transfer. + ```python= scenario += your_token.transfer( [ @@ -228,17 +239,18 @@ scenario += your_token.transfer( ]) ]).run(sender = mark) ``` -Here, mark is sending elon 5 tokens. + +Here, mark is sending elon 5 tokens. You need to use `your_token.batch_transfer.item`(another helper implemented in the FA2 template) and pass the arguments `from_` and `txs`. You could choose to do it without `batch_transfer.item` as well, but then you would have to write a bit of logic yourself. -Why write the logic yourself when it's coming baked in to the template directly. +Why write the logic yourself when it's coming baked in to the template directly 😆 + +Now, you'd like to check how much balance `elon` and `mark` have - -Now, you'd like to check how much balance `elon` and `mark` have - ```python= consumer = FA2.View_consumer(your_token) scenario += consumer - - + def arguments_for_balance_of(receiver, reqs): return (sp.record( callback = sp.contract( @@ -246,26 +258,30 @@ def arguments_for_balance_of(receiver, reqs): sp.contract_address(receiver), entry_point = "receive_balances").open_some(), requests = reqs)) - - + + scenario += your_token.balance_of(arguments_for_balance_of(consumer, [ sp.record(owner = elon.address, token_id = 0), sp.record(owner = mark.address, token_id = 0), ])) ``` + First of all, we initialize our `consumer` contract. Remember, this is the contract which will accept the result from `balance_of`. Second, the function `arguments_for_balance_of` abstracts away some of the details for you to not worry about, but feel free to ponder on it for a couple minutes. Third, we call the `balance_of` entry point and as arguments we pass to it the `consumer` contract and a list of records which signify the accounts for which we need the balance. + ### #buidl-ing time - + #### New feature request! + It's time to mint some tokens and bring to life your economy! #### Step by step walkthrough + 1. Minting tokens - 1. Mint 5 tokens with symbol `'CBT'` and token_id as 0 to `mark`. - 2. Mint 10 tokens with symbol `'CBT'` and token_id as 0 to `elon`. + 1. Mint 5 tokens with symbol `'CB'` and token_id as 0 to `mark`. + 2. Mint 10 tokens with symbol `'CB'` and token_id as 0 to `elon`. 2. Transfer 2 tokens from `elon` to `mark`. 3. Check `elon`'s balance. - 1. Create an `FA2.View_consumer` as `consumer` and add it to the scenario - 2. Call `balance_of` with necessary arugments to check `elon`'s balance. \ No newline at end of file + 1. Create an `FA2.View_consumer` as `consumer` and add it to the scenario + 2. Call `balance_of` with necessary arugments to check `elon`'s balance. diff --git a/lessons/tokens-FA2/05/05.mdx b/lessons/tokens-FA2/05/05.mdx index e9dbbc57..eb0b1631 100644 --- a/lessons/tokens-FA2/05/05.mdx +++ b/lessons/tokens-FA2/05/05.mdx @@ -12,7 +12,7 @@ editor: FA2 = sp.import_script_from_url("https://smartpy.io/dev/templates/FA2.py") class Cryptobot(FA2.FA2): - + @sp.entry_point def mint(self, params): sp.verify(sp.sender == self.data.administrator) @@ -31,14 +31,10 @@ editor: sp.if self.data.tokens.contains(params.token_id): pass sp.else: - self.data.tokens[params.token_id] = sp.record( - token_id = params.token_id, - symbol = params.symbol, - name = "", - decimals = 0, - extras = params.extras - ) - + self.data.tokens[params.token_id] = self.token_meta_data.make( + amount = params.amount, + metadata = params.metadata + ) @sp.add_test(name = "Cryptobot") def test(): @@ -49,25 +45,22 @@ editor: mark = sp.test_account("Mark") elon = sp.test_account("Mars") - # (1) Initialize Cryptobot as `cryptobot` with non_fungible set to True. + # (1) Initialize Cryptobot as cryptobot with non_fungible set to True. # (2) Add it to the scenario. - # Mint 1 token to mark with symbol - "CTB", amount - 1, token_id - 0 and extras - {"value": "First bot"} - - - # Mint 1 token to mark with symbol - "CTB", amount - 1, token_id - 1 and extras - {"value": "Second bot"} - + # Mint 1 token to mark with symbol - "CTB", amount - 1, token_id - 0 and name - "Mark bot" + # Mint 1 token to elon with symbol - "CTB", amount - 1, token_id - 1 and name - "Elon bot" - answer: | + answer: | import smartpy as sp FA2 = sp.import_script_from_url("https://smartpy.io/dev/templates/FA2.py") class Cryptobot(FA2.FA2): - + @sp.entry_point def mint(self, params): sp.verify(sp.sender == self.data.administrator) @@ -86,14 +79,11 @@ editor: sp.if self.data.tokens.contains(params.token_id): pass sp.else: - self.data.tokens[params.token_id] = sp.record( - token_id = params.token_id, - symbol = params.symbol, - name = "", - decimals = 0, - extras = params.extras - ) - + self.data.tokens[params.token_id] = self.token_meta_data.make( + amount = params.amount, + metadata = params.metadata + ) + @sp.add_test(name = "Cryptobot") def test(): @@ -104,31 +94,41 @@ editor: mark = sp.test_account("Mark") elon = sp.test_account("Mars") - # (1) Initialize Cryptobot as `cryptobot` with non_fungible set to True. + # (1) Initialize Cryptobot as cryptobot with non_fungible set to True. # (2) Add it to the scenario. - cryptobot = Cryptobot(FA2.FA2_config(non_fungible = True), admin.address) + cryptobot = Cryptobot(FA2.FA2_config(non_fungible = True), admin = admin.address, metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Cryptobot"}""")})) scenario += cryptobot - # Mint 1 token to mark with symbol - "CTB", amount - 1, token_id - 0 and extras - {"value": "First bot"} + # Mint 1 token to mark with symbol - "CTB", amount - 1, token_id - 0 and name - "Mark bot" scenario += cryptobot.mint(address = mark.address, amount = 1, - symbol = 'CTB', - token_id = 0, - extras = { "value": "First bot"}).run(sender = admin) - # Mint 1 token to mark with symbol - "CTB", amount - 1, token_id - 1 and extras - {"value": "Second bot"} + metadata= Cryptobot.make_metadata( + decimals = 0, + name = "Mark bot", + symbol = "CTB" + ), + token_id= 0 + ).run(sender = admin) + + # Mint 1 token to elon with symbol - "CTB", amount - 1, token_id - 0 and name - "Elon bot" scenario += cryptobot.mint(address = elon.address, amount = 1, - symbol = 'CTB', - token_id = 1, - extras = { "value": "Second bot" }).run(sender = admin) - + metadata = Cryptobot.make_metadata( + decimals = 0, + name = "Elon bot", + symbol = "CTB" + ), + token_id = 1).run(sender = admin) + --- So far you've managed to introduce an economy to your society through `Cyber_Token` but you can't expect your civillians to re-build the infrastructure when you've got a good ol' fleet of `Cryptobots` that can be put to good use. ### Study time -Recall when we looked at the configuration options available in the FA2 template - there's an option `non_fungible` which by default is `False`. + +Recall when we looked at the configuration options available in the FA2 template - there's an option `non_fungible` which by default is `False`. To instantiate our FA2 contract to hold non-fungible token, you simply need to pass `non_fungible` as `True`. + ```python= your_bot = YourBot(FA2.FA2_config(non_fungible = True), admin.address) ``` @@ -136,13 +136,15 @@ your_bot = YourBot(FA2.FA2_config(non_fungible = True), admin.address) For fungible tokens, we were pasing `token_id` as 0 throughout. But each and every non-fungible token is different hence there needs to be a way to differentiate them - each non-fungible token will have a different `token_id` - 0, 1, 2, 3, ...etc. -#### Characteristics of a Non-fungible token - +#### Characteristics of a Non-fungible token - + 1. Each token needs to have a unique `token_id`, otherwise you won't even be able to create the token. -2. May or may not have additonal data(`extras`) attached to it. For example, might have an URL which points to an image. +2. Every token also has `metadata`. By default this is only `name`, `symbol`, and `decimal` - but you can add more to these, to store whatever extra data you need for your NFT. -How do we add extra data to an NFT? +How do we add metadata to an NFT? We're going to **override the mint** entry point provided to us in the FA2 template. ( You **don't need** to dive deep into this code but it's good to just go through once ) + ```python= @sp.entry_point def mint(self, params): @@ -162,35 +164,38 @@ def mint(self, params): sp.if self.data.tokens.contains(params.token_id): pass sp.else: - self.data.tokens[params.token_id] = sp.record( - token_id = params.token_id, - symbol = params.symbol, - name = "", - decimals = 0, - extras = params.extras - ) + self.data.tokens[params.token_id] = self.token_meta_data.make( + amount = params.amount, + metadata = params.metadata + ) ``` ### Show me an example + ```python= your_bot = Yourbot(FA2.FA2_config(non_fungible = True), admin.address) +cryptobot = YourBot(FA2.FA2_config(non_fungible = True), admin = admin.address, metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Yourbot"}""")})) scenario += your_bot -scenario += your_bot.mint(address = mark.address, - amount = 1, - symbol = 'YBT', - token_id = 0, - extras = { "value": "I am your first bot."}).run(sender = admin) - +scenario += your_bot.mint(address = mark.address, + amount = 1, + metadata= YourBot.make_metadata( + decimals = 0, + name = 'Yourbot', + symbol = 'YBT' + ), + token_id= 0 + ).run(sender = admin) ``` -The arguments to `mint` are similar to how we did it for fungible tokens, but here we're also passing in `extras` which is of type `sp.TMap`. ### #buidl-ing time - + #### New feature request! + Time to mint some `Cryptobot`s to build out the new world. #### Step by step walkthrough -1. Initialize `Cryptobot` which can hold non-fungible tokens. -2. Mint 1 token for `mark` with extras as ``{"value": "First bot"}` -3. 2. Mint 1 token for `elon` with extras as ``{"value": "Second bot"}` \ No newline at end of file + +1. Initialize `Cryptobot` which can hold non-fungible tokens. Also, in metadata, it's name should be "Cryptobot". Take reference from previous chapters for a refresher on how to add metadata to the contract. +2. Mint 1 token for `mark` with name as `"Mark bot"` in the `name`. +3. 2. Mint 1 token for `elon` with name as `"Elon bot"` in the `name`. diff --git a/lessons/tokens-FA2/06/06.mdx b/lessons/tokens-FA2/06/06.mdx index 38eb04bd..31d300e9 100644 --- a/lessons/tokens-FA2/06/06.mdx +++ b/lessons/tokens-FA2/06/06.mdx @@ -12,7 +12,7 @@ editor: FA2 = sp.import_script_from_url("https://smartpy.io/dev/templates/FA2.py") class Cryptobot(FA2.FA2): - + @sp.entry_point def mint(self, params): sp.verify(sp.sender == self.data.administrator) @@ -31,14 +31,11 @@ editor: sp.if self.data.tokens.contains(params.token_id): pass sp.else: - self.data.tokens[params.token_id] = sp.record( - token_id = params.token_id, - symbol = params.symbol, - name = "", - decimals = 0, - extras = params.extras - ) - + self.data.tokens[params.token_id] = self.token_meta_data.make( + amount = params.amount, + metadata = params.metadata + ) + @sp.add_test(name = "Cryptobot") def test(): @@ -49,37 +46,42 @@ editor: mark = sp.test_account("Mark") elon = sp.test_account("Mars") - - cryptobot = Cryptobot(FA2.FA2_config(non_fungible = True), admin.address) + cryptobot = Cryptobot(FA2.FA2_config(non_fungible = True), admin = admin.address, metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Cryptobot"}""")})) scenario += cryptobot scenario += cryptobot.mint(address = mark.address, amount = 1, - symbol = 'CTB', - token_id = 0, - extras = { "value": "First bot"}).run(sender = admin) + metadata= Cryptobot.make_metadata( + decimals = 0, + name = "Mark bot", + symbol = "CTB" + ), + token_id= 0 + ).run(sender = admin) + scenario += cryptobot.mint(address = elon.address, amount = 1, - symbol = 'CTB', - token_id = 1, - extras = { "value": "Second bot" }).run(sender = admin) + metadata = Cryptobot.make_metadata( + decimals = 0, + name = "Elon bot", + symbol = "CTB" + ), + token_id = 1).run(sender = admin) - # (1) Create a test account `operator` with the seed of "operator". - + # (1) Create a test account operator with the seed of "operator". - # (2) Call entry point `update_operator` and give `operator` the access to transfer token with token_id 0 for `mark`. + # (2) Call entry point update_operator and give operator the access to transfer token with token_id 0 for mark. - - answer: | + answer: | import smartpy as sp FA2 = sp.import_script_from_url("https://smartpy.io/dev/templates/FA2.py") class Cryptobot(FA2.FA2): - + @sp.entry_point def mint(self, params): sp.verify(sp.sender == self.data.administrator) @@ -98,14 +100,11 @@ editor: sp.if self.data.tokens.contains(params.token_id): pass sp.else: - self.data.tokens[params.token_id] = sp.record( - token_id = params.token_id, - symbol = params.symbol, - name = "", - decimals = 0, - extras = params.extras - ) - + self.data.tokens[params.token_id] = self.token_meta_data.make( + amount = params.amount, + metadata = params.metadata + ) + @sp.add_test(name = "Cryptobot") def test(): @@ -116,26 +115,33 @@ editor: mark = sp.test_account("Mark") elon = sp.test_account("Mars") - - cryptobot = Cryptobot(FA2.FA2_config(non_fungible = True), admin.address) + cryptobot = Cryptobot(FA2.FA2_config(non_fungible = True), admin = admin.address, metadata = sp.big_map({"": sp.bytes_of_string("tezos-storage:content"),"content": sp.bytes_of_string("""{"name" : "Cryptobot"}""")})) scenario += cryptobot - + scenario += cryptobot.mint(address = mark.address, amount = 1, - symbol = 'CTB', - token_id = 0, - extras = { "value": "First bot"}).run(sender = admin) + metadata= Cryptobot.make_metadata( + decimals = 0, + name = "Mark bot", + symbol = "CTB" + ), + token_id= 0 + ).run(sender = admin) + scenario += cryptobot.mint(address = elon.address, amount = 1, - symbol = 'CTB', - token_id = 1, - extras = { "value": "Second bot" }).run(sender = admin) + metadata = Cryptobot.make_metadata( + decimals = 0, + name = "Elon bot", + symbol = "CTB" + ), + token_id = 1).run(sender = admin) - # (1) Create a test account `operator` with the seed of "operator". + # (1) Create a test account operator with the seed of "operator". operator = sp.test_account("operator") - # (2) Call entry point `update_operator` and give `operator` the access to transfer token with token_id 0 for `mark`. + # (2) Call entry point update_operator and give operator the access to transfer token with token_id 0 for mark. scenario += cryptobot.update_operators([ sp.variant("add_operator", cryptobot.operator_param.make( @@ -143,22 +149,26 @@ editor: operator = operator.address, token_id = 0)) ]).run(sender = mark) - + --- + ### Intro + Well now the people in your society have their own `Cryptobots`, but - there are only a few experts who know how to operate the `Cryptobot` effectively. Worry not, FA2 to the save here(again) - it allows you to appove `operator` accounts that have the permission to transfer on the `owner`'s behalf. - ### Study time + There's an entry point we haven't explored yet - `update_operator`. -`update_operator` accepts a list, and every item in the list includes - +`update_operator` accepts a list, and every item in the list includes - + 1. `add_operator`/`remove_operater` - accepts a variant to specify whether you want to add an operator or remove an operator. 2. `operator` - this is the address to the `operator`'s account. 3. `owner` - this is the address ot the `owner`'s account. 4. `token_id` - operator can only get access to one kind of token at a time, so you have to specify which token it should have access to. -It's called like this - +It's called like this - + ```python= scenario += your_bot.update_operators([ sp.variant("add_operator", @@ -168,15 +178,17 @@ scenario += your_bot.update_operators([ token_id = 0)) ]).run(sender = mark) ``` + Now, the `operator` account can `transfer` token with `token_id` 0 on behalf of `mark`. To remove an operator, all you have to do is replace `"add_operator"` with `"remove_operator"`. - ### #buidl-ing time - + #### New feature request! + Mark is having troubles using his `Cryptobot` and he wants to hire an `operator`. #### Step by step walkthrough + 1. Create an `operator` account through `sp.test_account` with seed as "operator". -2. Add `operator` as an operator for `mark` and give him the access to handle token with `token_id` 0. \ No newline at end of file +2. Add `operator` as an operator for `mark` and give him the access to handle token with `token_id` 0. diff --git a/src/templates/chapter-new.js b/src/templates/chapter-new.js index 700763f8..5aa946d2 100644 --- a/src/templates/chapter-new.js +++ b/src/templates/chapter-new.js @@ -156,6 +156,7 @@ const ChapterTemplate = ({ data: { mdx: chapter } }) => { chapterSlug={chapter.frontmatter.slug} isCode={chapter.frontmatter.isCode} openMichelsonDrawer={() => setMichelsonDrawer(true)} + michelsonResult={michelsonResult} setMichelsonResult={setMichelsonResult} setResult={setResult} result={result} diff --git a/src/templates/components/chapter/CodingInterface.js b/src/templates/components/chapter/CodingInterface.js index a6db6250..c1ddbe85 100644 --- a/src/templates/components/chapter/CodingInterface.js +++ b/src/templates/components/chapter/CodingInterface.js @@ -6,7 +6,7 @@ import CloseIcon from '@material-ui/icons/Close'; import AddCircleOutlineIcon from '@material-ui/icons/AddCircleOutline'; import { checkCode } from '../../../utils/compiler'; import DisplayResult from './DisplayResult'; - +import { trackEventWithProperties } from 'src/utils/analytics'; import { ControlledEditor, monaco, DiffEditor } from '@monaco-editor/react'; const CodingInterface = ({ @@ -18,6 +18,7 @@ const CodingInterface = ({ chapterSlug, isCode, openMichelsonDrawer, + michelsonResult, setMichelsonResult, setResult, result, @@ -32,6 +33,7 @@ const CodingInterface = ({ setDisplayMichelsonBtn( result.success && isCode && + michelsonResult.success && (module.indexOf('2') !== -1 || module.indexOf('3') !== -1), ), [checkAnswer, result.success], @@ -74,7 +76,10 @@ const CodingInterface = ({ contract.py
- { setCheckAnswer(true); setShowAnswer(false); + let compiledCode = {}; let res = checkCode(editorValue, answer, module); if ( isCode && (module.indexOf('2') !== -1 || module.indexOf('3') !== -1) ) { - let compiledCode = + compiledCode = typeof window !== undefined && window.runCode(editorValue); setMichelsonResult(compiledCode); + setResult({ + error: [...res.error, compiledCode.error], + success: res.success && compiledCode.success, + }); + console.log(typeof res.error, res.error); + return; } + setResult(res); }} > diff --git a/src/templates/components/chapter/DisplayResult.js b/src/templates/components/chapter/DisplayResult.js index 39b94202..1f9f14fc 100644 --- a/src/templates/components/chapter/DisplayResult.js +++ b/src/templates/components/chapter/DisplayResult.js @@ -6,11 +6,13 @@ const ErrorMessage = ({ errors }) => { }, []); return (
    - {errors.map(err => ( -
  • - {'>'} {err} -
    • - ))} + {errors + .filter(err => err !== '') + .map(err => ( +
  • + {'>'} {err} +
    • + ))}
  • {'>'} Click on "Show Answer" for reference.
); diff --git a/src/templates/components/chapter/MichelsonResult.js b/src/templates/components/chapter/MichelsonResult.js index 140a3ee0..09d941d8 100644 --- a/src/templates/components/chapter/MichelsonResult.js +++ b/src/templates/components/chapter/MichelsonResult.js @@ -31,7 +31,7 @@ export default function MichelsonResult({ return ( <> - {drawerOpen ? ( + {drawerOpen && success ? (
++id; +// window.nextId = () => ++id; + +window.editor = { + getValue: () => '', + appendOutput: output => output, +}; + +window.smartpyContext = { + nextId: () => ++id, + setOutput: () => null, + // Bls12: window.Bls12 +}; window.runCode = code => { try { diff --git a/static/smartjs/smart.js b/static/smartjs/smart.js index 073f8ac3..22b4ba04 100644 --- a/static/smartjs/smart.js +++ b/static/smartjs/smart.js @@ -1,28 +1,24 @@ // Copyright 2019-2020 Smart Chain Arena LLC. -function copyMichelson(x) -{ +function copyMichelson(x) { var range = document.createRange(); var children = x.parentNode.parentNode.childNodes; children.forEach(function(child) { - if (child.nodeType != Node.TEXT_NODE) - { - if (child.className.includes("michelson")) - { + if (child.nodeType != Node.TEXT_NODE) { + if (child.className.includes('michelson')) { range.selectNode(child); console.log(child); window.getSelection().removeAllRanges(); window.getSelection().addRange(range); - document.execCommand("copy"); + document.execCommand('copy'); } } }); } -function copyMichelsonTextArea(x) -{ +function copyMichelsonTextArea(x) { document.getElementById(x).select(); - document.execCommand("copy"); + document.execCommand('copy'); } function openTabLazy(evt, id, global_id) { @@ -30,33 +26,33 @@ function openTabLazy(evt, id, global_id) { tabcontent = evt.currentTarget.parentNode.parentNode.childNodes; for (i = 0; i < tabcontent.length; i++) { - if (tabcontent[i].className == "tabcontent") - tabcontent[i].style.display = "none"; + if (tabcontent[i].className == 'tabcontent') + tabcontent[i].style.display = 'none'; } tablinks = evt.currentTarget.parentNode.childNodes; for (i = 0; i < tablinks.length; i++) { - if(tablinks[i].nodeType != Node.TEXT_NODE) - { - tablinks[i].className = tablinks[i].className.replace(" active", ""); + if (tablinks[i].nodeType != Node.TEXT_NODE) { + tablinks[i].className = tablinks[i].className.replace(' active', ''); } } tablinks = evt.currentTarget.parentNode.parentNode.childNodes; k = 0; for (i = 0; i < tablinks.length; i++) { - if(tablinks[i].nodeType != Node.TEXT_NODE) - { - if (id + 1 == k) - { - tablinks[i].style.display = "block"; - lazy_tab = window.smartmlCtx.call_exn_handler('lazy_tab', id, global_id); - if (lazy_tab) - tablinks[i].innerHTML = lazy_tab; + if (tablinks[i].nodeType != Node.TEXT_NODE) { + if (id + 1 == k) { + tablinks[i].style.display = 'block'; + lazy_tab = window.smartmlCtx.call_exn_handler( + 'lazy_tab', + id, + global_id, + ); + if (lazy_tab) tablinks[i].innerHTML = lazy_tab; } k += 1; } } - evt.currentTarget.className += " active"; + evt.currentTarget.className += ' active'; } function openTab(evt, name) { @@ -64,32 +60,29 @@ function openTab(evt, name) { tabcontent = evt.currentTarget.parentNode.parentNode.childNodes; for (i = 0; i < tabcontent.length; i++) { - if (tabcontent[i].className == "tabcontent") - tabcontent[i].style.display = "none"; + if (tabcontent[i].className == 'tabcontent') + tabcontent[i].style.display = 'none'; } tablinks = evt.currentTarget.parentNode.childNodes; for (i = 0; i < tablinks.length; i++) { - if(tablinks[i].nodeType != Node.TEXT_NODE) - { - tablinks[i].className = tablinks[i].className.replace(" active", ""); + if (tablinks[i].nodeType != Node.TEXT_NODE) { + tablinks[i].className = tablinks[i].className.replace(' active', ''); } } tablinks = evt.currentTarget.parentNode.parentNode.childNodes; k = 0; for (i = 0; i < tablinks.length; i++) { - if(tablinks[i].nodeType != Node.TEXT_NODE) - { - if (name + 1 == k) - tablinks[i].style.display = "block"; + if (tablinks[i].nodeType != Node.TEXT_NODE) { + if (name + 1 == k) tablinks[i].style.display = 'block'; k += 1; } } - evt.currentTarget.className += " active"; + evt.currentTarget.className += ' active'; } function initDefaultButtons() { - var defaults = document.getElementsByName("button_default"); + var defaults = document.getElementsByName('button_default'); var i; for (i = 0; i < defaults.length; i++) { defaults[i].click(); @@ -97,186 +90,197 @@ function initDefaultButtons() { } function ppInvocationResult(result) { - var returnMessage = ""; - var originatedContract = "" + var returnMessage = ''; + var originatedContract = ''; + var hasError = false; try { - var contents = result["results"]["contents"]; - contents.forEach(function(content) { - var metadata = content.metadata; - var operation_result = metadata.operation_result; - var status = operation_result["status"]; - returnMessage += "Status: " + status + "\n"; - if (status == "failed" || status == "backtracked") { - operation_result.errors.forEach(function(error) { - returnMessage += "\nError: " + error.id; - if (error.id.endsWith("script_rejected")) { - try { - returnMessage += "\n " + error['with'].string; + console.log(result); + if (result.hasOwnProperty('results')) { + result = result['results']; + } + if (Array.isArray(result) && result.length == 1) { + result = result[0]; + } + if (result.hasOwnProperty('contents')) { + var contents = result['contents']; + contents.forEach(function(content) { + var metadata = content.metadata; + var operation_result = metadata.operation_result; + var status = operation_result['status']; + returnMessage += 'Status: ' + status + '\n'; + if (status == 'failed' || status == 'backtracked') { + hasError = true; + operation_result.errors.forEach(function(error) { + returnMessage += '\nError: ' + error.id; + if (error.id.endsWith('script_rejected')) { + try { + returnMessage += '\n ' + error['with'].string; + } catch (__error) { + console.log(error); + } } - catch(__error) { - console.log(error); + if (error.id.endsWith('storage_exhausted.operation')) { + returnMessage += ' \n (please increase storage limit)'; } - } - if (error.id.endsWith("storage_exhausted.operation")) { - returnMessage += " \n (please increase storage limit)"; - } - }); - } - try { - operation_result.originated_contracts.forEach(function(originated) { - originatedContract = originated - returnMessage += " \nOriginatedContract: " + originated; - }); - } - catch(__error) { - } - }); - } - catch(error){ - returnMessage += "\n(Error while parsing result)"; + }); + } + try { + operation_result.originated_contracts.forEach(function(originated) { + originatedContract = originated; + returnMessage += ' \n\nOriginatedContract: ' + originated; + }); + } catch (__error) { + hasError = true; + } + }); + } else if (result.hasOwnProperty('kind') && result.hasOwnProperty('id')) { + hasError = true; + returnMessage += 'Error: ' + result['id']; + } + } catch (error) { + console.log(error); + hasError = true; + returnMessage += '\n(Error while parsing result)'; } - return {message: returnMessage, contract: originatedContract} + + returnMessage += '\n\n\nDetails:\n\n' + JSON.stringify(result, null, 2); + return { + message: returnMessage, + contract: originatedContract, + hasError: hasError, + }; } -class SmartmlCtx{ - constructor(){} - call(f, ...rest){ - try{ +class SmartmlCtx { + constructor() {} + call(f, ...rest) { + try { return exports[f](...rest); - } - catch(error){ + } catch (error) { var result = 0; - try{ - result = this.call("stringOfException", true, error) - } - catch(_error) { + try { + result = this.call('stringOfException', true, error); + } catch (_error) { throw error; } - if (result != 0) - throw toException(result); - else - throw error; + if (result != 0) throw toException(result); + else throw error; } } - call_exn(f, ...rest){ + call_exn(f, ...rest) { return exports[f](...rest); } - call_exn_handler(f, ...rest){ - try{ + call_exn_handler(f, ...rest) { + try { return exports[f](...rest); - } - catch(error){ - try{ - var result = "" - try{ - result = this.call("stringOfException", false, error) - } - catch(_error) { + } catch (error) { + try { + var result = ''; + try { + result = this.call('stringOfException', false, error); + } catch (_error) { showErrorPre(error); } - console.log(result) + console.log(result); showErrorPre(result); - } - catch(_error){ + } catch (_error) { showErrorPre(error); } } } - } -class SmartmlJS{ - constructor(contract){ +class SmartmlJS { + constructor(contract) { this.ctx = new SmartmlCtx(); this.time = 0; - if (contract != null){ + if (contract != null) { //console.log(contract); //console.log(contract.exp); this.contract = this.ctx.call('importContract', contract.exp()); } } - smartpy(){ + smartpy() { return this.ctx.call('string_of_contract', this.contract); } - string_of_value(s){ + string_of_value(s) { return this.ctx.call('string_of_value', s); } - html(self){ - return this.ctx.call("htmlContract", this.contract); + html(self) { + return this.ctx.call('htmlContract', this.contract); } - fullHtml(){ - var def = "Stripped"; + fullHtml() { + var def = 'Stripped'; var onlyDefault = false; - return this.ctx.call("fullHtmlContract", def, onlyDefault, this.contract); + return this.ctx.call('fullHtmlContract', def, onlyDefault, this.contract); } - messageEffects(result){ - return this.ctx.call("messageEffects", result); + messageEffects(result) { + return this.ctx.call('messageEffects', result); } - messageHtml(result){ - return this.ctx.call("messageHtml", result); + messageHtml(result) { + return this.ctx.call('messageHtml', result); } - messageErrors(result){ - return this.ctx.call("messageErrors", result); + messageErrors(result) { + return this.ctx.call('messageErrors', result); } - messageContract(message){ - return this.ctx.call("messageContract", message); + messageContract(message) { + return this.ctx.call('messageContract', message); } - listLength(l){ - return this.ctx.call("List.length", l); + listLength(l) { + return this.ctx.call('List.length', l); } - listNth(l, n){ - return this.ctx.call("List.nth", l, n); + listNth(l, n) { + return this.ctx.call('List.nth', l, n); } - list_to_ocaml(l){ - result = this.ctx.call("list.[]"); - for(var x in reversed(l)){ - result = this.ctx.call("list.append", x, result); + list_to_ocaml(l) { + result = this.ctx.call('list.[]'); + for (var x in reversed(l)) { + result = this.ctx.call('list.append', x, result); } return result; } - list(l){ + list(l) { r = range(0, this.listLength(l)); return r.map(i => this.listNth(l, i)); } - ocamlString(s){ - return this.ctx.call("string", s); + ocamlString(s) { + return this.ctx.call('string', s); } - of_ocamlString(s){ - return this.ctx.call("of_ocamlString", s); + of_ocamlString(s) { + return this.ctx.call('of_ocamlString', s); } - pair(l1, l2){ - return this.ctx.call("pair", l1, l2); + pair(l1, l2) { + return this.ctx.call('pair', l1, l2); } - list_empty(self){ - return this.ctx.call("list.[]"); + list_empty(self) { + return this.ctx.call('list.[]'); } - list_unit(x){ - return this.ctx.call("list.unit", x); + list_unit(x) { + return this.ctx.call('list.unit', x); } - list_concat(l1, l2){ - return this.ctx.call("list.concat", l1, l2); + list_concat(l1, l2) { + return this.ctx.call('list.concat', l1, l2); } - importValue(value){ - if (isinstance(value, str)) - return this.importSimpleValue("string", value); + importValue(value) { + if (isinstance(value, str)) return this.importSimpleValue('string', value); if (isinstance(value, int)) - return this.importSimpleValue("int", str(value)); + return this.importSimpleValue('int', str(value)); if (isinstance(value, Record)) - return this.ctx.call("importValue", value.export()); + return this.ctx.call('importValue', value.export()); if (isinstance(value, SpExpr)) - return this.ctx.call("importValue", value.export()); - throw "Unsupported type for value ${value}"; + return this.ctx.call('importValue', value.export()); + throw 'Unsupported type for value ${value}'; } - importSimpleValue(t, s){ - return this.ctx.call("importSimpleValue", t, s); + importSimpleValue(t, s) { + return this.ctx.call('importSimpleValue', t, s); } - getVariableType(name){ - return SmartmlType(this.ctx.call("getVariableType", this.contract, name)); + getVariableType(name) { + return SmartmlType(this.ctx.call('getVariableType', this.contract, name)); } - setTime(time){ + setTime(time) { this.time = time; - return "Setting time to [%s].
" % time; + return 'Setting time to [%s].
' % time; } // execMessage(message, sender = "", **kargs){ // kargs_values = [(name, this.importValue(x)) for (name, x) in sorted(kargs.items())] @@ -293,56 +297,58 @@ class SmartmlJS{ // this.contract = this.messageContract(result) // return ExecMessage(this.messageHtml(result), errors, effects); // } - ppMich(mich, indent){ - return this.ctx.call("mich.pp", indent, mich); - } - ppMichStorage(mich, indent = ""){ - return this.ctx.call("mich.ppStorage", indent, mich); - } - ppMichStorageHtml(storage, t){ - return this.ctx.call("mich.htmlStorage", storage, t); - } - ppMichInfos(address, balance, counter, manager, spendable){ - return this.ctx.call("mich.htmlInfos", address, balance, counter, manager, spendable); - } - ppMichStorageType(storageType){ - return this.ctx.call("mich.htmlType", storageType); - } - parseMich(code){ - if (isinstance(code, str)) - return this.ctx.call("mich.string", code); - if (hasattr(code, 'int')) - return this.ctx.call("mich.int", code.int); + ppMich(mich, indent) { + return this.ctx.call('mich.pp', indent, mich); + } + ppMichStorage(mich, indent = '') { + return this.ctx.call('mich.ppStorage', indent, mich); + } + ppMichStorageHtml(storage, t) { + return this.ctx.call('mich.htmlStorage', storage, t); + } + ppMichInfos(address, balance, counter, manager, spendable) { + return this.ctx.call( + 'mich.htmlInfos', + address, + balance, + counter, + manager, + spendable, + ); + } + ppMichStorageType(storageType) { + return this.ctx.call('mich.htmlType', storageType); + } + parseMich(code) { + if (isinstance(code, str)) return this.ctx.call('mich.string', code); + if (hasattr(code, 'int')) return this.ctx.call('mich.int', code.int); if (hasattr(code, 'string')) - return this.ctx.call("mich.string", code.string); - if (!hasattr(code, 'prim')){ + return this.ctx.call('mich.string', code.string); + if (!hasattr(code, 'prim')) { //#alert(str(code) + " " + str(dir(code))) - seq = code.map(c=>this.parseMich(c)); + seq = code.map(c => this.parseMich(c)); seq = this.list_to_ocaml(seq); - return this.ctx.call("mich.sequence", seq); + return this.ctx.call('mich.sequence', seq); } - if (hasattr(code, 'args')) - args = code.args.map(arg=>this.parseMich(arg)); - else - args = []; + if (hasattr(code, 'args')) args = code.args.map(arg => this.parseMich(arg)); + else args = []; argsML = this.list_to_ocaml(args); - if (hasattr(code, 'annots')){ + if (hasattr(code, 'annots')) { annots = code.annots; window.console.log(annots); - } - else{ + } else { annots = []; } - annots = this.list_to_ocaml(annots.map(x=>this.ocamlString(x))); - return this.ctx.call("mich.primitive", code.prim, annots, argsML); + annots = this.list_to_ocaml(annots.map(x => this.ocamlString(x))); + return this.ctx.call('mich.primitive', code.prim, annots, argsML); } - static hashString(s){ - return hashed(window.smartmlCtx.call("hashString", s)); + static hashString(s) { + return hashed(window.smartmlCtx.call('hashString', s)); } } smartmlCtx = new SmartmlCtx(); in_browser = true; -function buildSmartlmJS(x){ +function buildSmartlmJS(x) { return new SmartmlJS(x); } diff --git a/static/smartjs/smartmljs.bc.js b/static/smartjs/smartmljs.bc.js index ce24e44a..7d2af0d2 100644 --- a/static/smartjs/smartmljs.bc.js +++ b/static/smartjs/smartmljs.bc.js @@ -1,13 +1,12 @@ //# 1 "smartmljs.bc.runtime.js" -// Generated by js_of_ocaml 3.5.2 +// Generated by js_of_ocaml 3.6.0 (function(joo_global_object) {"use strict"; - function caml_int64_is_zero(x){return (x[3] | x[2] | x[1]) == 0} + function caml_int64_is_zero(x){return + x.isZero()} function caml_str_repeat(n,s) {if(n == 0)return ""; if(s.repeat)return s.repeat(n); var r="",l=0; - if(n == 0)return r; for(;;) {if(n & 1)r += s; n >>= 1; @@ -15,73 +14,250 @@ s += s; l++; if(l == 9)s.slice(0,1)}} - function caml_int64_of_int32(x) - {return [255,x & 0xffffff,x >> 24 & 0xffffff,x >> 31 & 0xffff]} - function caml_obj_dup(x) - {var l=x.length,a=new Array(l); - for(var i=0;i < l;i++)a[i] = x[i]; - return a} - function caml_int64_sub(x,y) + var caml_int64_offset=Math.pow(2,- 24); + function caml_raise_constant(tag){throw tag} + var caml_global_data=[0]; + function caml_raise_zero_divide() + {caml_raise_constant(caml_global_data.Division_by_zero)} + function MlInt64(lo,mi,hi) + {this.lo = lo & 0xffffff;this.mi = mi & 0xffffff;this.hi = hi & 0xffff} + MlInt64.prototype.caml_custom = "_j"; + MlInt64.prototype.copy + = + function(){return new MlInt64(this.lo,this.mi,this.hi)}; + MlInt64.prototype.ucompare + = + function(x) + {if(this.hi > x.hi)return 1; + if(this.hi < x.hi)return - 1; + if(this.mi > x.mi)return 1; + if(this.mi < x.mi)return - 1; + if(this.lo > x.lo)return 1; + if(this.lo < x.lo)return - 1; + return 0}; + MlInt64.prototype.compare + = + function(x) + {var hi=this.hi << 16,xhi=x.hi << 16; + if(hi > xhi)return 1; + if(hi < xhi)return - 1; + if(this.mi > x.mi)return 1; + if(this.mi < x.mi)return - 1; + if(this.lo > x.lo)return 1; + if(this.lo < x.lo)return - 1; + return 0}; + MlInt64.prototype.neg + = + function() + {var lo=- this.lo,mi=- this.mi + (lo >> 24),hi=- this.hi + (mi >> 24); + return new MlInt64(lo,mi,hi)}; + MlInt64.prototype.add + = + function(x) {var - z1=x[1] - y[1], - z2=x[2] - y[2] + (z1 >> 24), - z3=x[3] - y[3] + (z2 >> 24); - return [255,z1 & 0xffffff,z2 & 0xffffff,z3 & 0xffff]} - function caml_int64_ucompare(x,y) - {if(x[3] > y[3])return 1; - if(x[3] < y[3])return - 1; - if(x[2] > y[2])return 1; - if(x[2] < y[2])return - 1; - if(x[1] > y[1])return 1; - if(x[1] < y[1])return - 1; - return 0} - function caml_int64_lsl1(x) - {x[3] = x[3] << 1 | x[2] >> 23; - x[2] = (x[2] << 1 | x[1] >> 23) & 0xffffff; - x[1] = x[1] << 1 & 0xffffff} - function caml_int64_lsr1(x) - {x[1] = (x[1] >>> 1 | x[2] << 23) & 0xffffff; - x[2] = (x[2] >>> 1 | x[3] << 23) & 0xffffff; - x[3] = x[3] >>> 1} - function caml_int64_udivmod(x,y) + lo=this.lo + x.lo, + mi=this.mi + x.mi + (lo >> 24), + hi=this.hi + x.hi + (mi >> 24); + return new MlInt64(lo,mi,hi)}; + MlInt64.prototype.sub + = + function(x) + {var + lo=this.lo - x.lo, + mi=this.mi - x.mi + (lo >> 24), + hi=this.hi - x.hi + (mi >> 24); + return new MlInt64(lo,mi,hi)}; + MlInt64.prototype.mul + = + function(x) + {var + lo=this.lo * x.lo, + mi=(lo * caml_int64_offset | 0) + this.mi * x.lo + this.lo * x.mi, + hi= + (mi * caml_int64_offset | 0) + + + this.hi + * + x.lo + + + this.mi + * + x.mi + + + this.lo + * + x.hi; + return new MlInt64(lo,mi,hi)}; + MlInt64.prototype.isZero + = + function(){return (this.lo | this.mi | this.hi) == 0}; + MlInt64.prototype.isNeg = function(){return this.hi << 16 < 0}; + MlInt64.prototype.and + = + function(x) + {return new MlInt64(this.lo & x.lo,this.mi & x.mi,this.hi & x.hi)}; + MlInt64.prototype.or + = + function(x) + {return new MlInt64(this.lo | x.lo,this.mi | x.mi,this.hi | x.hi)}; + MlInt64.prototype.xor + = + function(x) + {return new MlInt64(this.lo ^ x.lo,this.mi ^ x.mi,this.hi ^ x.hi)}; + MlInt64.prototype.shift_left + = + function(s) + {s = s & 63; + if(s == 0)return this; + if(s < 24) + return new + MlInt64 + (this.lo << s, + this.mi << s | this.lo >> 24 - s, + this.hi << s | this.mi >> 24 - s); + if(s < 48) + return new + MlInt64 + (0,this.lo << s - 24,this.mi << s - 24 | this.lo >> 48 - s); + return new MlInt64(0,0,this.lo << s - 48)}; + MlInt64.prototype.shift_right_unsigned + = + function(s) + {s = s & 63; + if(s == 0)return this; + if(s < 24) + return new + MlInt64 + (this.lo >> s | this.mi << 24 - s, + this.mi >> s | this.hi << 24 - s, + this.hi >> s); + if(s < 48) + return new + MlInt64 + (this.mi >> s - 24 | this.hi << 48 - s,this.hi >> s - 24,0); + return new MlInt64(this.hi >> s - 48,0,0)}; + MlInt64.prototype.shift_right + = + function(s) + {s = s & 63; + if(s == 0)return this; + var h=this.hi << 16 >> 16; + if(s < 24) + return new + MlInt64 + (this.lo >> s | this.mi << 24 - s, + this.mi >> s | h << 24 - s, + this.hi << 16 >> s >>> 16); + var sign=this.hi << 16 >> 31; + if(s < 48) + return new + MlInt64 + (this.mi >> s - 24 | this.hi << 48 - s, + this.hi << 16 >> s - 24 >> 16, + sign & 0xffff); + return new MlInt64(this.hi << 16 >> s - 32,sign,sign)}; + MlInt64.prototype.lsl1 + = + function() + {this.hi = this.hi << 1 | this.mi >> 23; + this.mi = (this.mi << 1 | this.lo >> 23) & 0xffffff; + this.lo = this.lo << 1 & 0xffffff}; + MlInt64.prototype.lsr1 + = + function() + {this.lo = (this.lo >>> 1 | this.mi << 23) & 0xffffff; + this.mi = (this.mi >>> 1 | this.hi << 23) & 0xffffff; + this.hi = this.hi >>> 1}; + MlInt64.prototype.udivmod + = + function(x) {var offset=0, - modulus=caml_obj_dup(x), - divisor=caml_obj_dup(y), - quotient=[255,0,0,0]; - while(caml_int64_ucompare(modulus,divisor) > 0) - {offset++;caml_int64_lsl1(divisor)} + modulus=this.copy(), + divisor=x.copy(), + quotient=new MlInt64(0,0,0); + while(modulus.ucompare(divisor) > 0){offset++;divisor.lsl1()} while(offset >= 0) {offset--; - caml_int64_lsl1(quotient); - if(caml_int64_ucompare(modulus,divisor) >= 0) - {quotient[1]++;modulus = caml_int64_sub(modulus,divisor)} - caml_int64_lsr1(divisor)} - return [0,quotient,modulus]} - function caml_int64_to_int32(x){return x[1] | x[2] << 24} - function caml_int64_is_negative(x){return x[3] << 16 < 0} - function caml_int64_neg(x) - {var y1=- x[1],y2=- x[2] + (y1 >> 24),y3=- x[3] + (y2 >> 24); - return [255,y1 & 0xffffff,y2 & 0xffffff,y3 & 0xffff]} - function raw_array_sub(a,i,l) - {var b=new Array(l);for(var j=0;j < l;j++)b[j] = a[i + j];return b} - function caml_subarray_to_string(a,i,len) + quotient.lsl1(); + if(modulus.ucompare(divisor) >= 0) + {quotient.lo++;modulus = modulus.sub(divisor)} + divisor.lsr1()} + return {quotient:quotient,modulus:modulus}}; + MlInt64.prototype.div + = + function(y) + {var x=this; + if(y.isZero())caml_raise_zero_divide(); + var sign=x.hi ^ y.hi; + if(x.hi & 0x8000)x = x.neg(); + if(y.hi & 0x8000)y = y.neg(); + var q=x.udivmod(y).quotient; + if(sign & 0x8000)q = q.neg(); + return q}; + MlInt64.prototype.mod + = + function(y) + {var x=this; + if(y.isZero())caml_raise_zero_divide(); + var sign=x.hi; + if(x.hi & 0x8000)x = x.neg(); + if(y.hi & 0x8000)y = y.neg(); + var r=x.udivmod(y).modulus; + if(sign & 0x8000)r = r.neg(); + return r}; + MlInt64.prototype.toInt = function(){return this.lo | this.mi << 24}; + MlInt64.prototype.toFloat + = + function() + {return (this.hi << 16) + * + Math.pow(2,32) + + + this.mi + * + Math.pow(2,24) + + + this.lo}; + MlInt64.prototype.toArray + = + function() + {return [this.hi >> 8, + this.hi & 0xff, + this.mi >> 16, + this.mi >> 8 & 0xff, + this.mi & 0xff, + this.lo >> 16, + this.lo >> 8 & 0xff, + this.lo & 0xff]}; + MlInt64.prototype.lo32 + = + function(){return this.lo | (this.mi & 0xff) << 24}; + MlInt64.prototype.hi32 + = + function(){return this.mi >>> 8 & 0xffff | this.hi << 16}; + function caml_int64_of_int32(x) + {return new MlInt64(x & 0xffffff,x >> 24 & 0xffffff,x >> 31 & 0xffff)} + function caml_int64_to_int32(x){return x.toInt()} + function caml_int64_is_negative(x){return + x.isNeg()} + function caml_int64_neg(x){return x.neg()} + function caml_subarray_to_jsbytes(a,i,len) {var f=String.fromCharCode; if(i == 0 && len <= 4096 && len == a.length)return f.apply(null,a); var s=""; for(;0 < len;i += 1024,len -= 1024) - s += f.apply(null,raw_array_sub(a,i,Math.min(len,1024))); + s += f.apply(null,a.slice(i,i + Math.min(len,1024))); return s} function caml_convert_string_to_bytes(s) {if(s.t == 2) s.c += caml_str_repeat(s.l - s.c.length,"\0"); else - s.c = caml_subarray_to_string(s.c,0,s.c.length); + s.c = caml_subarray_to_jsbytes(s.c,0,s.c.length); s.t = 0} function caml_jsbytes_of_string(s) {if((s.t & 6) != 0)caml_convert_string_to_bytes(s);return s.c} function caml_raise_with_arg(tag,arg){throw [0,tag,arg]} - function caml_is_ascii(s) + function jsoo_is_ascii(s) {if(s.length < 24) {for(var i=0;i < s.length;i++)if(s.charCodeAt(i) > 127)return false; return true} @@ -135,25 +311,26 @@ t += String.fromCharCode(v); if(t.length > 1024){t.substr(0,1);b += t;t = ""}} return b + t} - function caml_to_js_string(s) - {switch(s.t) - {case 9:return s.c; - default:caml_convert_string_to_bytes(s);case 0: - if(caml_is_ascii(s.c)){s.t = 9;return s.c}s.t = 8; - case 8:return caml_utf16_of_utf8(s.c) - }} function MlBytes(tag,contents,length) {this.t = tag;this.c = contents;this.l = length} - MlBytes.prototype.toString = function(){return caml_to_js_string(this)}; + MlBytes.prototype.toString + = + function() + {switch(this.t) + {case 9:return this.c; + default:caml_convert_string_to_bytes(this);case 0: + if(jsoo_is_ascii(this.c)){this.t = 9;return this.c}this.t = 8; + case 8:return caml_utf16_of_utf8(this.c) + }}; MlBytes.prototype.slice = function() {var content=this.t == 4?this.c.slice():this.c; return new MlBytes(this.t,content,this.l)}; - function caml_new_string(s){return new MlBytes(0,s,s.length)} + function caml_bytes_of_jsbytes(s){return new MlBytes(0,s,s.length)} + function caml_string_of_jsbytes(s){return caml_bytes_of_jsbytes(s)} function caml_raise_with_string(tag,msg) - {caml_raise_with_arg(tag,caml_new_string(msg))} - var caml_global_data=[0]; + {caml_raise_with_arg(tag,caml_string_of_jsbytes(msg))} function caml_invalid_argument(msg) {caml_raise_with_string(caml_global_data.Invalid_argument,msg)} function caml_parse_format(fmt) @@ -238,7 +415,7 @@ for(var i=len;i < f.width;i++)buffer += "0"; buffer += rawbuffer; if(f.justify == "-")for(var i=len;i < f.width;i++)buffer += " "; - return caml_new_string(buffer)} + return caml_string_of_jsbytes(buffer)} function caml_int64_format(fmt,x) {var f=caml_parse_format(fmt); if(f.signedconv && caml_int64_is_negative(x)) @@ -248,9 +425,9 @@ wbase=caml_int64_of_int32(f.base), cvtbl="0123456789abcdef"; do - {var p=caml_int64_udivmod(x,wbase); - x = p[1]; - buffer = cvtbl.charAt(caml_int64_to_int32(p[2])) + buffer} + {var p=x.udivmod(wbase); + x = p.quotient; + buffer = cvtbl.charAt(caml_int64_to_int32(p.modulus)) + buffer} while (! caml_int64_is_zero(x)); if(f.prec >= 0) @@ -261,13 +438,14 @@ function caml_expm1_float(x) {var y=Math.exp(x),z=y - 1; return Math.abs(x) > 1?z:z == 0?x:x * z / Math.log(y)} + function caml_jsstring_of_string(s){return s.toString()} if(joo_global_object.process && joo_global_object.process.cwd) var caml_current_dir=joo_global_object.process.cwd().replace(/\\/g,"/"); else var caml_current_dir="/static"; if(caml_current_dir.slice(- 1) !== "/")caml_current_dir += "/"; function caml_make_path(name) - {name = name instanceof MlBytes?name.toString():name; + {name = caml_jsstring_of_string(name); if(name.charCodeAt(0) != 47)name = caml_current_dir + name; var comp=name.split("/"),ncomp=[]; for(var i=0;i < comp.length;i++) @@ -278,13 +456,74 @@ default:ncomp.push(comp[i]);break} ncomp.orig = name; return ncomp} + function caml_is_ml_bytes(s){return s instanceof MlBytes} + function caml_is_ml_string(s){return caml_is_ml_bytes(s)} + function caml_bytes_of_array(a){return new MlBytes(4,a,a.length)} + function caml_bytes_of_string(s){return s} + function caml_utf8_of_utf16(s) + {for(var b="",t=b,c,d,i=0,l=s.length;i < l;i++) + {c = s.charCodeAt(i); + if(c < 0x80) + {for(var j=i + 1;j < l && (c = s.charCodeAt(j)) < 0x80;j++); + if(j - i > 512) + {t.substr(0,1);b += t;t = "";b += s.slice(i,j)} + else + t += s.slice(i,j); + if(j == l)break; + i = j} + if(c < 0x800) + {t += String.fromCharCode(0xc0 | c >> 6); + t += String.fromCharCode(0x80 | c & 0x3f)} + else + if(c < 0xd800 || c >= 0xdfff) + t + += + String.fromCharCode + (0xe0 | c >> 12,0x80 | c >> 6 & 0x3f,0x80 | c & 0x3f); + else + if + (c + >= + 0xdbff + || + i + + + 1 + == + l + || + (d = s.charCodeAt(i + 1)) + < + 0xdc00 + || + d + > + 0xdfff) + t += "\xef\xbf\xbd"; + else + {i++; + c = (c << 10) + d - 0x35fdc00; + t + += + String.fromCharCode + (0xf0 | c >> 18, + 0x80 | c >> 12 & 0x3f, + 0x80 | c >> 6 & 0x3f, + 0x80 | c & 0x3f)} + if(t.length > 1024){t.substr(0,1);b += t;t = ""}} + return b + t} + function caml_bytes_of_utf16_jsstring(s) + {var tag=9; + if(! jsoo_is_ascii(s))tag = 8,s = caml_utf8_of_utf16(s); + return new MlBytes(tag,s,s.length)} + function caml_string_of_jsstring(s) + {return caml_bytes_of_utf16_jsstring(s)} function caml_raise_sys_error(msg) {caml_raise_with_string(caml_global_data.Sys_error,msg)} function caml_raise_no_such_file(name) - {name = name instanceof MlBytes?name.toString():name; + {name = caml_jsbytes_of_string(name); caml_raise_sys_error(name + ": No such file or directory")} - function caml_string_of_array(a){return new MlBytes(4,a,a.length)} - function caml_string_bound_error() + function caml_bytes_bound_error() {caml_invalid_argument("index out of bounds")} function caml_bytes_unsafe_get(s,i) {switch(s.t & 6) @@ -292,13 +531,13 @@ case 4:return s.c[i] }} function caml_bytes_get(s,i) - {if(i >>> 0 >= s.l)caml_string_bound_error(); + {if(i >>> 0 >= s.l)caml_bytes_bound_error(); return caml_bytes_unsafe_get(s,i)} function caml_create_bytes(len) {if(len < 0)caml_invalid_argument("Bytes.create"); return new MlBytes(len?2:9,"",len)} function caml_ml_bytes_length(s){return s.l} - function caml_convert_string_to_array(s) + function caml_convert_bytes_to_array(s) {if(joo_global_object.Uint8Array) var a=new (joo_global_object.Uint8Array)(s.l); else @@ -315,7 +554,7 @@ {s2.c = s1.t == 4 - ?caml_subarray_to_string(s1.c,i1,len) + ?caml_subarray_to_jsbytes(s1.c,i1,len) :i1 == 0 && s1.c.length == len?s1.c:s1.c.substr(i1,len); s2.t = s2.c.length == s2.l?0:2} else @@ -323,11 +562,11 @@ {s2.c += s1.t == 4 - ?caml_subarray_to_string(s1.c,i1,len) + ?caml_subarray_to_jsbytes(s1.c,i1,len) :i1 == 0 && s1.c.length == len?s1.c:s1.c.substr(i1,len); s2.t = s2.c.length == s2.l?0:2} else - {if(s2.t != 4)caml_convert_string_to_array(s2); + {if(s2.t != 4)caml_convert_bytes_to_array(s2); var c1=s1.c,c2=s2.c; if(s1.t == 4) if(i2 <= i1) @@ -339,6 +578,8 @@ for(var i=0;i < l;i++)c2[i2 + i] = c1.charCodeAt(i1 + i); for(;i < len;i++)c2[i2 + i] = 0}} return 0} + function caml_blit_string(a,b,c,d,e) + {caml_blit_bytes(caml_bytes_of_string(a),b,c,d,e);return 0} function MlFile(){} function MlFakeFile(content){this.data = content} MlFakeFile.prototype = new MlFile(); @@ -359,7 +600,7 @@ {var new_str=caml_create_bytes(offset + len),old_data=this.data; this.data = new_str; caml_blit_bytes(old_data,0,this.data,0,clen)} - caml_blit_bytes(buf,pos,this.data,offset,len); + caml_blit_string(buf,pos,this.data,offset,len); return 0}; MlFakeFile.prototype.read = @@ -381,8 +622,10 @@ {if(! this.content[name] && this.lookupFun) {var res= - this.lookupFun(caml_new_string(this.root),caml_new_string(name)); - if(res !== 0)this.content[name] = new MlFakeFile(res[1])}}; + this.lookupFun + (caml_string_of_jsbytes(this.root),caml_string_of_jsbytes(name)); + if(res !== 0) + this.content[name] = new MlFakeFile(caml_bytes_of_string(res[1]))}}; MlFakeDevice.prototype.exists = function(name) @@ -451,82 +694,127 @@ function(name,content) {if(this.content[name]) caml_raise_sys_error(this.nm(name) + " : file already exists"); - if(content instanceof MlBytes) + if(caml_is_ml_bytes(content)) this.content[name] = new MlFakeFile(content); + if(caml_is_ml_string(content)) + this.content[name] = new MlFakeFile(caml_bytes_of_string(content)); else if(content instanceof Array) - this.content[name] = new MlFakeFile(caml_string_of_array(content)); + this.content[name] = new MlFakeFile(caml_bytes_of_array(content)); else - if(content.toString) - {var mlstring=caml_new_string(content.toString()); - this.content[name] = new MlFakeFile(mlstring)}}; + if(typeof content === "string") + this.content[name] = new MlFakeFile(caml_bytes_of_jsbytes(content)); + else + if(content.toString) + {var + bytes= + caml_bytes_of_string(caml_string_of_jsstring(content.toString())); + this.content[name] = new MlFakeFile(bytes)} + else + caml_raise_sys_error + (this.nm(name) + " : registering file with invalid content type")}; MlFakeDevice.prototype.constructor = MlFakeDevice; + function caml_ml_string_length(s){return caml_ml_bytes_length(s)} + function caml_string_unsafe_get(s,i){return caml_bytes_unsafe_get(s,i)} function caml_array_of_string(s) - {if(s.t != 4)caml_convert_string_to_array(s);return s.c} + {var l=caml_ml_string_length(s),a=new Array(l),i=0; + for(;i < l;i++)a[i] = caml_string_unsafe_get(s,i); + return a} + function caml_array_of_bytes(s) + {if(s.t != 4)caml_convert_bytes_to_array(s);return s.c} function caml_bytes_unsafe_set(s,i,c) {c &= 0xff; if(s.t != 4) {if(i == s.c.length) {s.c += String.fromCharCode(c);if(i + 1 == s.l)s.t = 0;return 0} - caml_convert_string_to_array(s)} + caml_convert_bytes_to_array(s)} s.c[i] = c; return 0} function caml_bytes_set(s,i,c) - {if(i >>> 0 >= s.l)caml_string_bound_error(); + {if(i >>> 0 >= s.l)caml_bytes_bound_error(); return caml_bytes_unsafe_set(s,i,c)} - var Buffer=joo_global_object.Buffer; function MlNodeFile(fd){this.fs = require("fs");this.fd = fd} MlNodeFile.prototype = new MlFile(); MlNodeFile.prototype.truncate = - function(len){this.fs.ftruncateSync(this.fd,len | 0)}; + function(len) + {try + {this.fs.ftruncateSync(this.fd,len | 0)} + catch(err){caml_raise_sys_error(err.toString())}}; MlNodeFile.prototype.length = - function(){return this.fs.fstatSync(this.fd).size}; + function() + {try + {return this.fs.fstatSync(this.fd).size} + catch(err){caml_raise_sys_error(err.toString())}}; MlNodeFile.prototype.write = function(offset,buf,buf_offset,len) {var a=caml_array_of_string(buf); if(! (a instanceof joo_global_object.Uint8Array)) a = new (joo_global_object.Uint8Array)(a); - var buffer=Buffer.from(a); - this.fs.writeSync(this.fd,buffer,buf_offset,len,offset); + var buffer=joo_global_object.Buffer.from(a); + try + {this.fs.writeSync(this.fd,buffer,buf_offset,len,offset)} + catch(err){caml_raise_sys_error(err.toString())} return 0}; MlNodeFile.prototype.read = function(offset,buf,buf_offset,len) - {var a=caml_array_of_string(buf); + {var a=caml_array_of_bytes(buf); if(! (a instanceof joo_global_object.Uint8Array)) a = new (joo_global_object.Uint8Array)(a); - var buffer=Buffer.from(a); - this.fs.readSync(this.fd,buffer,buf_offset,len,offset); + var buffer=joo_global_object.Buffer.from(a); + try + {this.fs.readSync(this.fd,buffer,buf_offset,len,offset)} + catch(err){caml_raise_sys_error(err.toString())} for(var i=0;i < len;i++) caml_bytes_set(buf,buf_offset + i,buffer[buf_offset + i]); return 0}; MlNodeFile.prototype.read_one = function(offset) - {var a=new (joo_global_object.Uint8Array)(1),buffer=Buffer.from(a); - this.fs.readSync(this.fd,buffer,0,1,offset); + {var + a=new (joo_global_object.Uint8Array)(1), + buffer=joo_global_object.Buffer.from(a); + try + {this.fs.readSync(this.fd,buffer,0,1,offset)} + catch(err){caml_raise_sys_error(err.toString())} return buffer[0]}; - MlNodeFile.prototype.close = function(){this.fs.closeSync(this.fd)}; + MlNodeFile.prototype.close + = + function() + {try + {this.fs.closeSync(this.fd)} + catch(err){caml_raise_sys_error(err.toString())}}; MlNodeFile.prototype.constructor = MlNodeFile; function MlNodeDevice(root){this.fs = require("fs");this.root = root} MlNodeDevice.prototype.nm = function(name){return this.root + name}; MlNodeDevice.prototype.exists = - function(name){return this.fs.existsSync(this.nm(name))?1:0}; + function(name) + {try + {return this.fs.existsSync(this.nm(name))?1:0} + catch(err){caml_raise_sys_error(err.toString())}}; MlNodeDevice.prototype.readdir = - function(name){return this.fs.readdirSync(this.nm(name))}; + function(name) + {try + {return this.fs.readdirSync(this.nm(name))} + catch(err){caml_raise_sys_error(err.toString())}}; MlNodeDevice.prototype.is_dir = - function(name){return this.fs.statSync(this.nm(name)).isDirectory()?1:0}; + function(name) + {try + {return this.fs.statSync(this.nm(name)).isDirectory()?1:0} + catch(err){caml_raise_sys_error(err.toString())}}; MlNodeDevice.prototype.unlink = function(name) - {var b=this.fs.existsSync(this.nm(name))?1:0; - this.fs.unlinkSync(this.nm(name)); + {try + {var b=this.fs.existsSync(this.nm(name))?1:0; + this.fs.unlinkSync(this.nm(name))} + catch(err){caml_raise_sys_error(err.toString())} return b}; MlNodeDevice.prototype.open = @@ -544,11 +832,15 @@ case "text":res |= consts.O_TEXT;break; case "nonblock":res |= consts.O_NONBLOCK;break } - var fd=this.fs.openSync(this.nm(name),res); - return new MlNodeFile(fd)}; + try + {var fd=this.fs.openSync(this.nm(name),res);return new MlNodeFile(fd)} + catch(err){caml_raise_sys_error(err.toString())}}; MlNodeDevice.prototype.rename = - function(o,n){this.fs.renameSync(this.nm(o),this.nm(n))}; + function(o,n) + {try + {this.fs.renameSync(this.nm(o),this.nm(n))} + catch(err){caml_raise_sys_error(err.toString())}}; MlNodeDevice.prototype.constructor = MlNodeDevice; var caml_root=caml_current_dir.match(/[^\/]*\//)[0]; function fs_node_supported() @@ -600,79 +892,17 @@ function caml_sys_is_directory(name) {var root=resolve_fs_device(name),a=root.device.is_dir(root.rest); return a?1:0} - function caml_string_unsafe_get(s,i) - {switch(s.t & 6) - {default:if(i >= s.c.length)return 0;case 0:return s.c.charCodeAt(i); - case 4:return s.c[i] - }} - function caml_utf8_of_utf16(s) - {for(var b="",t=b,c,d,i=0,l=s.length;i < l;i++) - {c = s.charCodeAt(i); - if(c < 0x80) - {for(var j=i + 1;j < l && (c = s.charCodeAt(j)) < 0x80;j++); - if(j - i > 512) - {t.substr(0,1);b += t;t = "";b += s.slice(i,j)} - else - t += s.slice(i,j); - if(j == l)break; - i = j} - if(c < 0x800) - {t += String.fromCharCode(0xc0 | c >> 6); - t += String.fromCharCode(0x80 | c & 0x3f)} - else - if(c < 0xd800 || c >= 0xdfff) - t - += - String.fromCharCode - (0xe0 | c >> 12,0x80 | c >> 6 & 0x3f,0x80 | c & 0x3f); - else - if - (c - >= - 0xdbff - || - i - + - 1 - == - l - || - (d = s.charCodeAt(i + 1)) - < - 0xdc00 - || - d - > - 0xdfff) - t += "\xef\xbf\xbd"; - else - {i++; - c = (c << 10) + d - 0x35fdc00; - t - += - String.fromCharCode - (0xf0 | c >> 18, - 0x80 | c >> 12 & 0x3f, - 0x80 | c >> 6 & 0x3f, - 0x80 | c & 0x3f)} - if(t.length > 1024){t.substr(0,1);b += t;t = ""}} - return b + t} - function caml_js_to_string(s) - {var tag=9; - if(! caml_is_ascii(s))tag = 8,s = caml_utf8_of_utf16(s); - return new MlBytes(tag,s,s.length)} - function caml_raise_constant(tag){throw tag} function caml_raise_not_found() {caml_raise_constant(caml_global_data.Not_found)} function caml_sys_getenv(name) - {var g=joo_global_object,n=name.toString(); + {var g=joo_global_object,n=caml_jsstring_of_string(name); if(g.process && g.process.env && g.process.env[n] != undefined) - return caml_js_to_string(g.process.env[n]); + return caml_string_of_jsstring(g.process.env[n]); if (joo_global_object.jsoo_static_env && joo_global_object.jsoo_static_env[n]) - return caml_js_to_string(joo_global_object.jsoo_static_env[n]); + return caml_string_of_jsstring(joo_global_object.jsoo_static_env[n]); caml_raise_not_found()} function shift_right_nat(nat1,ofs1,len1,nat2,ofs2,nbits) {if(nbits == 0){nat2.data[ofs2] = 0;return 0} @@ -683,6 +913,20 @@ wrap = a << 32 - nbits} nat2.data[ofs2] = wrap; return 0} + var caml_named_values={}; + function caml_named_value(nm){return caml_named_values[nm]} + var caml_gr_state; + function caml_gr_state_get() + {if(caml_gr_state)return caml_gr_state; + throw [0, + caml_named_value("Graphics.Graphic_failure"), + caml_string_of_jsbytes("Not initialized")]} + function caml_gr_point_color(x,y) + {var + s=caml_gr_state_get(), + im=s.context.getImageData(x,s.height - y,1,1), + d=im.data; + return (d[0] << 16) + (d[1] << 8) + d[2]} var MlObjectTable; if(typeof joo_global_object.WeakMap === "undefined") MlObjectTable @@ -731,7 +975,7 @@ return 2} return isNaN(x)?4:3} function caml_ml_refill_input(chan) - {var str=chan.refill(),str_len=caml_ml_bytes_length(str); + {var str=chan.refill(),str_len=caml_ml_string_length(str); if(str_len == 0)chan.refill = null; chan.file.write(chan.file.length(),str,0,str_len); return str_len} @@ -753,11 +997,1324 @@ if(chan.file.read_one(p) == 10)return p - chan.offset + 1; p++}} function caml_gc_minor(){return 0} + var + bigInt= + function(undefined) + {"use strict"; + var + BASE=1e7, + LOG_BASE=7, + MAX_INT=9007199254740992, + MAX_INT_ARR=smallToArray(MAX_INT), + DEFAULT_ALPHABET="0123456789abcdefghijklmnopqrstuvwxyz", + BigInt=joo_global_object.BigInt, + supportsNativeBigInt=typeof BigInt === "function"; + function Integer(v,radix,alphabet,caseSensitive) + {if(typeof v === "undefined")return Integer[0]; + if(typeof radix !== "undefined") + return + radix === 10 && ! alphabet + ?parseValue(v) + :parseBase(v,radix,alphabet,caseSensitive); + return parseValue(v)} + function BigInteger(value,sign) + {this.value = value; + this.sign = sign; + this.isSmall = false; + this.caml_custom = "_z"} + BigInteger.prototype = Object.create(Integer.prototype); + function SmallInteger(value) + {this.value = value; + this.sign = value < 0; + this.isSmall = true; + this.caml_custom = "_z"} + SmallInteger.prototype = Object.create(Integer.prototype); + function NativeBigInt(value) + {this.value = value;this.caml_custom = "_z"} + NativeBigInt.prototype = Object.create(Integer.prototype); + function isPrecise(n){return - MAX_INT < n && n < MAX_INT} + function smallToArray(n) + {if(n < 1e7)return [n]; + if(n < 1e14)return [n % 1e7,Math.floor(n / 1e7)]; + return [n % 1e7,Math.floor(n / 1e7) % 1e7,Math.floor(n / 1e14)]} + function arrayToSmall(arr) + {trim(arr); + var length=arr.length; + if(length < 4 && compareAbs(arr,MAX_INT_ARR) < 0) + switch(length) + {case 0:return 0; + case 1:return arr[0]; + case 2:return arr[0] + arr[1] * BASE; + default:return arr[0] + (arr[1] + arr[2] * BASE) * BASE} + return arr} + function trim(v){var i=v.length;while(v[--i] === 0);v.length = i + 1} + function createArray(length) + {var x=new Array(length),i=- 1;while(++i < length)x[i] = 0;return x} + function truncate(n) + {if(n > 0)return Math.floor(n);return Math.ceil(n)} + function add(a,b) + {var + l_a=a.length, + l_b=b.length, + r=new Array(l_a), + carry=0, + base=BASE, + sum, + i; + for(i = 0;i < l_b;i++) + {sum = a[i] + b[i] + carry; + carry = sum >= base?1:0; + r[i] = sum - carry * base} + while(i < l_a) + {sum = a[i] + carry; + carry = sum === base?1:0; + r[i++] = sum - carry * base} + if(carry > 0)r.push(carry); + return r} + function addAny(a,b) + {if(a.length >= b.length)return add(a,b);return add(b,a)} + function addSmall(a,carry) + {var l=a.length,r=new Array(l),base=BASE,sum,i; + for(i = 0;i < l;i++) + {sum = a[i] - base + carry; + carry = Math.floor(sum / base); + r[i] = sum - carry * base; + carry += 1} + while(carry > 0) + {r[i++] = carry % base;carry = Math.floor(carry / base)} + return r} + BigInteger.prototype.add + = + function(v) + {var n=parseValue(v); + if(this.sign !== n.sign)return this.subtract(n.negate()); + var a=this.value,b=n.value; + if(n.isSmall) + return new BigInteger(addSmall(a,Math.abs(b)),this.sign); + return new BigInteger(addAny(a,b),this.sign)}; + BigInteger.prototype.plus = BigInteger.prototype.add; + SmallInteger.prototype.add + = + function(v) + {var n=parseValue(v),a=this.value; + if(a < 0 !== n.sign)return this.subtract(n.negate()); + var b=n.value; + if(n.isSmall) + {if(isPrecise(a + b))return new SmallInteger(a + b); + b = smallToArray(Math.abs(b))} + return new BigInteger(addSmall(b,Math.abs(a)),a < 0)}; + SmallInteger.prototype.plus = SmallInteger.prototype.add; + NativeBigInt.prototype.add + = + function(v) + {return new NativeBigInt(this.value + parseValue(v).value)}; + NativeBigInt.prototype.plus = NativeBigInt.prototype.add; + function subtract(a,b) + {var + a_l=a.length, + b_l=b.length, + r=new Array(a_l), + borrow=0, + base=BASE, + i, + difference; + for(i = 0;i < b_l;i++) + {difference = a[i] - borrow - b[i]; + if(difference < 0){difference += base;borrow = 1}else borrow = 0; + r[i] = difference} + for(i = b_l;i < a_l;i++) + {difference = a[i] - borrow; + if(difference < 0) + difference += base; + else + {r[i++] = difference;break} + r[i] = difference} + for(;i < a_l;i++)r[i] = a[i]; + trim(r); + return r} + function subtractAny(a,b,sign) + {var value; + if(compareAbs(a,b) >= 0) + value = subtract(a,b); + else + {value = subtract(b,a);sign = ! sign} + value = arrayToSmall(value); + if(typeof value === "number") + {if(sign)value = - value;return new SmallInteger(value)} + return new BigInteger(value,sign)} + function subtractSmall(a,b,sign) + {var l=a.length,r=new Array(l),carry=- b,base=BASE,i,difference; + for(i = 0;i < l;i++) + {difference = a[i] + carry; + carry = Math.floor(difference / base); + difference %= base; + r[i] = difference < 0?difference + base:difference} + r = arrayToSmall(r); + if(typeof r === "number") + {if(sign)r = - r;return new SmallInteger(r)} + return new BigInteger(r,sign)} + BigInteger.prototype.subtract + = + function(v) + {var n=parseValue(v); + if(this.sign !== n.sign)return this.add(n.negate()); + var a=this.value,b=n.value; + if(n.isSmall)return subtractSmall(a,Math.abs(b),this.sign); + return subtractAny(a,b,this.sign)}; + BigInteger.prototype.minus = BigInteger.prototype.subtract; + SmallInteger.prototype.subtract + = + function(v) + {var n=parseValue(v),a=this.value; + if(a < 0 !== n.sign)return this.add(n.negate()); + var b=n.value; + if(n.isSmall)return new SmallInteger(a - b); + return subtractSmall(b,Math.abs(a),a >= 0)}; + SmallInteger.prototype.minus = SmallInteger.prototype.subtract; + NativeBigInt.prototype.subtract + = + function(v) + {return new NativeBigInt(this.value - parseValue(v).value)}; + NativeBigInt.prototype.minus = NativeBigInt.prototype.subtract; + BigInteger.prototype.negate + = + function(){return new BigInteger(this.value,! this.sign)}; + SmallInteger.prototype.negate + = + function() + {var sign=this.sign,small=new SmallInteger(- this.value); + small.sign = ! sign; + return small}; + NativeBigInt.prototype.negate + = + function(){return new NativeBigInt(- this.value)}; + BigInteger.prototype.abs + = + function(){return new BigInteger(this.value,false)}; + SmallInteger.prototype.abs + = + function(){return new SmallInteger(Math.abs(this.value))}; + NativeBigInt.prototype.abs + = + function() + {return new NativeBigInt(this.value >= 0?this.value:- this.value)}; + function multiplyLong(a,b) + {var + a_l=a.length, + b_l=b.length, + l=a_l + b_l, + r=createArray(l), + base=BASE, + product, + carry, + i, + a_i, + b_j; + for(i = 0;i < a_l;++i) + {a_i = a[i]; + for(var j=0;j < b_l;++j) + {b_j = b[j]; + product = a_i * b_j + r[i + j]; + carry = Math.floor(product / base); + r[i + j] = product - carry * base; + r[i + j + 1] += carry}} + trim(r); + return r} + function multiplySmall(a,b) + {var l=a.length,r=new Array(l),base=BASE,carry=0,product,i; + for(i = 0;i < l;i++) + {product = a[i] * b + carry; + carry = Math.floor(product / base); + r[i] = product - carry * base} + while(carry > 0) + {r[i++] = carry % base;carry = Math.floor(carry / base)} + return r} + function shiftLeft(x,n) + {var r=[];while(n-- > 0)r.push(0);return r.concat(x)} + function multiplyKaratsuba(x,y) + {var n=Math.max(x.length,y.length); + if(n <= 30)return multiplyLong(x,y); + n = Math.ceil(n / 2); + var + b=x.slice(n), + a=x.slice(0,n), + d=y.slice(n), + c=y.slice(0,n), + ac=multiplyKaratsuba(a,c), + bd=multiplyKaratsuba(b,d), + abcd=multiplyKaratsuba(addAny(a,b),addAny(c,d)), + product= + addAny + (addAny(ac,shiftLeft(subtract(subtract(abcd,ac),bd),n)), + shiftLeft(bd,2 * n)); + trim(product); + return product} + function useKaratsuba(l1,l2) + {return - (0.012 * l1) - 0.012 * l2 + 0.000015 * l1 * l2 > 0} + BigInteger.prototype.multiply + = + function(v) + {var + n=parseValue(v), + a=this.value, + b=n.value, + sign=this.sign !== n.sign, + abs; + if(n.isSmall) + {if(b === 0)return Integer[0]; + if(b === 1)return this; + if(b === - 1)return this.negate(); + abs = Math.abs(b); + if(abs < BASE)return new BigInteger(multiplySmall(a,abs),sign); + b = smallToArray(abs)} + if(useKaratsuba(a.length,b.length)) + return new BigInteger(multiplyKaratsuba(a,b),sign); + return new BigInteger(multiplyLong(a,b),sign)}; + BigInteger.prototype.times = BigInteger.prototype.multiply; + function multiplySmallAndArray(a,b,sign) + {if(a < BASE)return new BigInteger(multiplySmall(b,a),sign); + return new BigInteger(multiplyLong(b,smallToArray(a)),sign)} + SmallInteger.prototype._multiplyBySmall + = + function(a) + {if(isPrecise(a.value * this.value)) + return new SmallInteger(a.value * this.value); + return multiplySmallAndArray + (Math.abs(a.value), + smallToArray(Math.abs(this.value)), + this.sign !== a.sign)}; + BigInteger.prototype._multiplyBySmall + = + function(a) + {if(a.value === 0)return Integer[0]; + if(a.value === 1)return this; + if(a.value === - 1)return this.negate(); + return multiplySmallAndArray + (Math.abs(a.value),this.value,this.sign !== a.sign)}; + SmallInteger.prototype.multiply + = + function(v){return parseValue(v)._multiplyBySmall(this)}; + SmallInteger.prototype.times = SmallInteger.prototype.multiply; + NativeBigInt.prototype.multiply + = + function(v) + {return new NativeBigInt(this.value * parseValue(v).value)}; + NativeBigInt.prototype.times = NativeBigInt.prototype.multiply; + function square(a) + {var + l=a.length, + r=createArray(l + l), + base=BASE, + product, + carry, + i, + a_i, + a_j; + for(i = 0;i < l;i++) + {a_i = a[i]; + carry = 0 - a_i * a_i; + for(var j=i;j < l;j++) + {a_j = a[j]; + product = 2 * (a_i * a_j) + r[i + j] + carry; + carry = Math.floor(product / base); + r[i + j] = product - carry * base} + r[i + l] = carry} + trim(r); + return r} + BigInteger.prototype.square + = + function(){return new BigInteger(square(this.value),false)}; + SmallInteger.prototype.square + = + function() + {var value=this.value * this.value; + if(isPrecise(value))return new SmallInteger(value); + return new + BigInteger + (square(smallToArray(Math.abs(this.value))),false)}; + NativeBigInt.prototype.square + = + function(v){return new NativeBigInt(this.value * this.value)}; + function divMod1(a,b) + {var + a_l=a.length, + b_l=b.length, + base=BASE, + result=createArray(b.length), + divisorMostSignificantDigit=b[b_l - 1], + lambda=Math.ceil(base / (2 * divisorMostSignificantDigit)), + remainder=multiplySmall(a,lambda), + divisor=multiplySmall(b,lambda), + quotientDigit, + shift, + carry, + borrow, + i, + l, + q; + if(remainder.length <= a_l)remainder.push(0); + divisor.push(0); + divisorMostSignificantDigit = divisor[b_l - 1]; + for(shift = a_l - b_l;shift >= 0;shift--) + {quotientDigit = base - 1; + if(remainder[shift + b_l] !== divisorMostSignificantDigit) + quotientDigit + = + Math.floor + ((remainder[shift + b_l] * base + remainder[shift + b_l - 1]) + / + divisorMostSignificantDigit); + carry = 0; + borrow = 0; + l = divisor.length; + for(i = 0;i < l;i++) + {carry += quotientDigit * divisor[i]; + q = Math.floor(carry / base); + borrow += remainder[shift + i] - (carry - q * base); + carry = q; + if(borrow < 0) + {remainder[shift + i] = borrow + base;borrow = - 1} + else + {remainder[shift + i] = borrow;borrow = 0}} + while(borrow !== 0) + {quotientDigit -= 1; + carry = 0; + for(i = 0;i < l;i++) + {carry += remainder[shift + i] - base + divisor[i]; + if(carry < 0) + {remainder[shift + i] = carry + base;carry = 0} + else + {remainder[shift + i] = carry;carry = 1}} + borrow += carry} + result[shift] = quotientDigit} + remainder = divModSmall(remainder,lambda)[0]; + return [arrayToSmall(result),arrayToSmall(remainder)]} + function divMod2(a,b) + {var + a_l=a.length, + b_l=b.length, + result=[], + part=[], + base=BASE, + guess, + xlen, + highx, + highy, + check; + while(a_l) + {part.unshift(a[--a_l]); + trim(part); + if(compareAbs(part,b) < 0){result.push(0);continue} + xlen = part.length; + highx = part[xlen - 1] * base + part[xlen - 2]; + highy = b[b_l - 1] * base + b[b_l - 2]; + if(xlen > b_l)highx = (highx + 1) * base; + guess = Math.ceil(highx / highy); + do + {check = multiplySmall(b,guess); + if(compareAbs(check,part) <= 0)break; + guess--} + while + (guess); + result.push(guess); + part = subtract(part,check)} + result.reverse(); + return [arrayToSmall(result),arrayToSmall(part)]} + function divModSmall(value,lambda) + {var + length=value.length, + quotient=createArray(length), + base=BASE, + i, + q, + remainder, + divisor; + remainder = 0; + for(i = length - 1;i >= 0;--i) + {divisor = remainder * base + value[i]; + q = truncate(divisor / lambda); + remainder = divisor - q * lambda; + quotient[i] = q | 0} + return [quotient,remainder | 0]} + function divModAny(self,v) + {var value,n=parseValue(v); + if(supportsNativeBigInt) + return [new NativeBigInt(self.value / n.value), + new NativeBigInt(self.value % n.value)]; + var a=self.value,b=n.value,quotient; + if(b === 0)throw new Error("Cannot divide by zero"); + if(self.isSmall) + {if(n.isSmall) + return [new SmallInteger(truncate(a / b)), + new SmallInteger(a % b)]; + return [Integer[0],self]} + if(n.isSmall) + {if(b === 1)return [self,Integer[0]]; + if(b == - 1)return [self.negate(),Integer[0]]; + var abs=Math.abs(b); + if(abs < BASE) + {value = divModSmall(a,abs); + quotient = arrayToSmall(value[0]); + var remainder=value[1]; + if(self.sign)remainder = - remainder; + if(typeof quotient === "number") + {if(self.sign !== n.sign)quotient = - quotient; + return [new SmallInteger(quotient), + new SmallInteger(remainder)]} + return [new BigInteger(quotient,self.sign !== n.sign), + new SmallInteger(remainder)]} + b = smallToArray(abs)} + var comparison=compareAbs(a,b); + if(comparison === - 1)return [Integer[0],self]; + if(comparison === 0) + return [Integer[self.sign === n.sign?1:- 1],Integer[0]]; + if(a.length + b.length <= 200) + value = divMod1(a,b); + else + value = divMod2(a,b); + quotient = value[0]; + var qSign=self.sign !== n.sign,mod=value[1],mSign=self.sign; + if(typeof quotient === "number") + {if(qSign)quotient = - quotient; + quotient = new SmallInteger(quotient)} + else + quotient = new BigInteger(quotient,qSign); + if(typeof mod === "number") + {if(mSign)mod = - mod;mod = new SmallInteger(mod)} + else + mod = new BigInteger(mod,mSign); + return [quotient,mod]} + BigInteger.prototype.divmod + = + function(v) + {var result=divModAny(this,v); + return {quotient:result[0],remainder:result[1]}}; + NativeBigInt.prototype.divmod + = + SmallInteger.prototype.divmod + = + BigInteger.prototype.divmod; + BigInteger.prototype.divide + = + function(v){return divModAny(this,v)[0]}; + NativeBigInt.prototype.over + = + NativeBigInt.prototype.divide + = + function(v) + {return new NativeBigInt(this.value / parseValue(v).value)}; + SmallInteger.prototype.over + = + SmallInteger.prototype.divide + = + BigInteger.prototype.over + = + BigInteger.prototype.divide; + BigInteger.prototype.mod = function(v){return divModAny(this,v)[1]}; + NativeBigInt.prototype.mod + = + NativeBigInt.prototype.remainder + = + function(v) + {return new NativeBigInt(this.value % parseValue(v).value)}; + SmallInteger.prototype.remainder + = + SmallInteger.prototype.mod + = + BigInteger.prototype.remainder + = + BigInteger.prototype.mod; + BigInteger.prototype.pow + = + function(v) + {var n=parseValue(v),a=this.value,b=n.value,value,x,y; + if(b === 0)return Integer[1]; + if(a === 0)return Integer[0]; + if(a === 1)return Integer[1]; + if(a === - 1)return n.isEven()?Integer[1]:Integer[- 1]; + if(n.sign)return Integer[0]; + if(! n.isSmall) + throw new Error("The exponent " + n.toString() + " is too large."); + if(this.isSmall) + if(isPrecise(value = Math.pow(a,b))) + return new SmallInteger(truncate(value)); + x = this; + y = Integer[1]; + while(true) + {if(b & 1 === 1){y = y.times(x);--b} + if(b === 0)break; + b /= 2; + x = x.square()} + return y}; + SmallInteger.prototype.pow = BigInteger.prototype.pow; + NativeBigInt.prototype.pow + = + function(v) + {var + n=parseValue(v), + a=this.value, + b=n.value, + _0=BigInt(0), + _1=BigInt(1), + _2=BigInt(2); + if(b === _0)return Integer[1]; + if(a === _0)return Integer[0]; + if(a === _1)return Integer[1]; + if(a === BigInt(- 1))return n.isEven()?Integer[1]:Integer[- 1]; + if(n.isNegative())return new NativeBigInt(_0); + var x=this,y=Integer[1]; + while(true) + {if((b & _1) === _1){y = y.times(x);--b} + if(b === _0)break; + b /= _2; + x = x.square()} + return y}; + BigInteger.prototype.modPow + = + function(exp,mod) + {exp = parseValue(exp); + mod = parseValue(mod); + if(mod.isZero()) + throw new Error("Cannot take modPow with modulus 0"); + var r=Integer[1],base=this.mod(mod); + if(exp.isNegative()) + {exp = exp.multiply(Integer[- 1]);base = base.modInv(mod)} + while(exp.isPositive()) + {if(base.isZero())return Integer[0]; + if(exp.isOdd())r = r.multiply(base).mod(mod); + exp = exp.divide(2); + base = base.square().mod(mod)} + return r}; + NativeBigInt.prototype.modPow + = + SmallInteger.prototype.modPow + = + BigInteger.prototype.modPow; + function compareAbs(a,b) + {if(a.length !== b.length)return a.length > b.length?1:- 1; + for(var i=a.length - 1;i >= 0;i--) + if(a[i] !== b[i])return a[i] > b[i]?1:- 1; + return 0} + BigInteger.prototype.compareAbs + = + function(v) + {var n=parseValue(v),a=this.value,b=n.value; + if(n.isSmall)return 1; + return compareAbs(a,b)}; + SmallInteger.prototype.compareAbs + = + function(v) + {var n=parseValue(v),a=Math.abs(this.value),b=n.value; + if(n.isSmall){b = Math.abs(b);return a === b?0:a > b?1:- 1} + return - 1}; + NativeBigInt.prototype.compareAbs + = + function(v) + {var a=this.value,b=parseValue(v).value; + a = a >= 0?a:- a; + b = b >= 0?b:- b; + return a === b?0:a > b?1:- 1}; + BigInteger.prototype.compare + = + function(v) + {if(v === Infinity)return - 1; + if(v === - Infinity)return 1; + var n=parseValue(v),a=this.value,b=n.value; + if(this.sign !== n.sign)return n.sign?1:- 1; + if(n.isSmall)return this.sign?- 1:1; + return compareAbs(a,b) * (this.sign?- 1:1)}; + BigInteger.prototype.compareTo = BigInteger.prototype.compare; + SmallInteger.prototype.compare + = + function(v) + {if(v === Infinity)return - 1; + if(v === - Infinity)return 1; + var n=parseValue(v),a=this.value,b=n.value; + if(n.isSmall)return a == b?0:a > b?1:- 1; + if(a < 0 !== n.sign)return a < 0?- 1:1; + return a < 0?1:- 1}; + SmallInteger.prototype.compareTo = SmallInteger.prototype.compare; + NativeBigInt.prototype.compare + = + function(v) + {if(v === Infinity)return - 1; + if(v === - Infinity)return 1; + var a=this.value,b=parseValue(v).value; + return a === b?0:a > b?1:- 1}; + NativeBigInt.prototype.compareTo = NativeBigInt.prototype.compare; + BigInteger.prototype.equals + = + function(v){return this.compare(v) === 0}; + NativeBigInt.prototype.eq + = + NativeBigInt.prototype.equals + = + SmallInteger.prototype.eq + = + SmallInteger.prototype.equals + = + BigInteger.prototype.eq + = + BigInteger.prototype.equals; + BigInteger.prototype.notEquals + = + function(v){return this.compare(v) !== 0}; + NativeBigInt.prototype.neq + = + NativeBigInt.prototype.notEquals + = + SmallInteger.prototype.neq + = + SmallInteger.prototype.notEquals + = + BigInteger.prototype.neq + = + BigInteger.prototype.notEquals; + BigInteger.prototype.greater + = + function(v){return this.compare(v) > 0}; + NativeBigInt.prototype.gt + = + NativeBigInt.prototype.greater + = + SmallInteger.prototype.gt + = + SmallInteger.prototype.greater + = + BigInteger.prototype.gt + = + BigInteger.prototype.greater; + BigInteger.prototype.lesser + = + function(v){return this.compare(v) < 0}; + NativeBigInt.prototype.lt + = + NativeBigInt.prototype.lesser + = + SmallInteger.prototype.lt + = + SmallInteger.prototype.lesser + = + BigInteger.prototype.lt + = + BigInteger.prototype.lesser; + BigInteger.prototype.greaterOrEquals + = + function(v){return this.compare(v) >= 0}; + NativeBigInt.prototype.geq + = + NativeBigInt.prototype.greaterOrEquals + = + SmallInteger.prototype.geq + = + SmallInteger.prototype.greaterOrEquals + = + BigInteger.prototype.geq + = + BigInteger.prototype.greaterOrEquals; + BigInteger.prototype.lesserOrEquals + = + function(v){return this.compare(v) <= 0}; + NativeBigInt.prototype.leq + = + NativeBigInt.prototype.lesserOrEquals + = + SmallInteger.prototype.leq + = + SmallInteger.prototype.lesserOrEquals + = + BigInteger.prototype.leq + = + BigInteger.prototype.lesserOrEquals; + BigInteger.prototype.isEven + = + function(){return (this.value[0] & 1) === 0}; + SmallInteger.prototype.isEven + = + function(){return (this.value & 1) === 0}; + NativeBigInt.prototype.isEven + = + function(){return (this.value & BigInt(1)) === BigInt(0)}; + BigInteger.prototype.isOdd + = + function(){return (this.value[0] & 1) === 1}; + SmallInteger.prototype.isOdd + = + function(){return (this.value & 1) === 1}; + NativeBigInt.prototype.isOdd + = + function(){return (this.value & BigInt(1)) === BigInt(1)}; + BigInteger.prototype.isPositive = function(){return ! this.sign}; + SmallInteger.prototype.isPositive + = + function(){return this.value > 0}; + NativeBigInt.prototype.isPositive + = + SmallInteger.prototype.isPositive; + BigInteger.prototype.isNegative = function(){return this.sign}; + SmallInteger.prototype.isNegative + = + function(){return this.value < 0}; + NativeBigInt.prototype.isNegative + = + SmallInteger.prototype.isNegative; + BigInteger.prototype.isUnit = function(){return false}; + SmallInteger.prototype.isUnit + = + function(){return Math.abs(this.value) === 1}; + NativeBigInt.prototype.isUnit + = + function(){return this.abs().value === BigInt(1)}; + BigInteger.prototype.isZero = function(){return false}; + SmallInteger.prototype.isZero = function(){return this.value === 0}; + NativeBigInt.prototype.isZero + = + function(){return this.value === BigInt(0)}; + BigInteger.prototype.isDivisibleBy + = + function(v) + {var n=parseValue(v); + if(n.isZero())return false; + if(n.isUnit())return true; + if(n.compareAbs(2) === 0)return this.isEven(); + return this.mod(n).isZero()}; + NativeBigInt.prototype.isDivisibleBy + = + SmallInteger.prototype.isDivisibleBy + = + BigInteger.prototype.isDivisibleBy; + function isBasicPrime(v) + {var n=v.abs(); + if(n.isUnit())return false; + if(n.equals(2) || n.equals(3) || n.equals(5))return true; + if(n.isEven() || n.isDivisibleBy(3) || n.isDivisibleBy(5)) + return false; + if(n.lesser(49))return true} + function millerRabinTest(n,a) + {var nPrev=n.prev(),b=nPrev,r=0,d,t,i,x; + while(b.isEven())b = b.divide(2),r++; + next: + for(i = 0;i < a.length;i++) + {if(n.lesser(a[i]))continue; + x = bigInt(a[i]).modPow(b,n); + if(x.isUnit() || x.equals(nPrev))continue; + for(d = r - 1;d != 0;d--) + {x = x.square().mod(n); + if(x.isUnit())return false; + if(x.equals(nPrev))continue next} + return false} + return true} + BigInteger.prototype.isPrime + = + function(strict) + {var isPrime=isBasicPrime(this); + if(isPrime !== undefined)return isPrime; + var n=this.abs(),bits=n.bitLength(); + if(bits <= 64) + return millerRabinTest(n,[2,3,5,7,11,13,17,19,23,29,31,37]); + var + logN=Math.log(2) * bits.toJSNumber(), + t=Math.ceil(strict === true?2 * Math.pow(logN,2):logN); + for(var a=[],i=0;i < t;i++)a.push(bigInt(i + 2)); + return millerRabinTest(n,a)}; + NativeBigInt.prototype.isPrime + = + SmallInteger.prototype.isPrime + = + BigInteger.prototype.isPrime; + BigInteger.prototype.isProbablePrime + = + function(iterations) + {var isPrime=isBasicPrime(this); + if(isPrime !== undefined)return isPrime; + var n=this.abs(),t=iterations === undefined?5:iterations; + for(var a=[],i=0;i < t;i++) + a.push(bigInt.randBetween(2,n.minus(2))); + return millerRabinTest(n,a)}; + NativeBigInt.prototype.isProbablePrime + = + SmallInteger.prototype.isProbablePrime + = + BigInteger.prototype.isProbablePrime; + BigInteger.prototype.modInv + = + function(n) + {var + t=bigInt.zero, + newT=bigInt.one, + r=parseValue(n), + newR=this.abs(), + q, + lastT, + lastR; + while(! newR.isZero()) + {q = r.divide(newR); + lastT = t; + lastR = r; + t = newT; + r = newR; + newT = lastT.subtract(q.multiply(newT)); + newR = lastR.subtract(q.multiply(newR))} + if(! r.isUnit()) + throw new + Error + (this.toString() + + + " and " + + + n.toString() + + + " are not co-prime"); + if(t.compare(0) === - 1)t = t.add(n); + if(this.isNegative())return t.negate(); + return t}; + NativeBigInt.prototype.modInv + = + SmallInteger.prototype.modInv + = + BigInteger.prototype.modInv; + BigInteger.prototype.next + = + function() + {var value=this.value; + if(this.sign)return subtractSmall(value,1,this.sign); + return new BigInteger(addSmall(value,1),this.sign)}; + SmallInteger.prototype.next + = + function() + {var value=this.value; + if(value + 1 < MAX_INT)return new SmallInteger(value + 1); + return new BigInteger(MAX_INT_ARR,false)}; + NativeBigInt.prototype.next + = + function(){return new NativeBigInt(this.value + BigInt(1))}; + BigInteger.prototype.prev + = + function() + {var value=this.value; + if(this.sign)return new BigInteger(addSmall(value,1),true); + return subtractSmall(value,1,this.sign)}; + SmallInteger.prototype.prev + = + function() + {var value=this.value; + if(value - 1 > - MAX_INT)return new SmallInteger(value - 1); + return new BigInteger(MAX_INT_ARR,true)}; + NativeBigInt.prototype.prev + = + function(){return new NativeBigInt(this.value - BigInt(1))}; + var powersOfTwo=[1]; + while(2 * powersOfTwo[powersOfTwo.length - 1] <= BASE) + powersOfTwo.push(2 * powersOfTwo[powersOfTwo.length - 1]); + var + powers2Length=powersOfTwo.length, + highestPower2=powersOfTwo[powers2Length - 1]; + function shift_isSmall(n){return Math.abs(n) <= BASE} + BigInteger.prototype.shiftLeft + = + function(v) + {var n=parseValue(v).toJSNumber(); + if(! shift_isSmall(n)) + throw new Error(String(n) + " is too large for shifting."); + if(n < 0)return this.shiftRight(- n); + var result=this; + if(result.isZero())return result; + while(n >= powers2Length) + {result = result.multiply(highestPower2);n -= powers2Length - 1} + return result.multiply(powersOfTwo[n])}; + NativeBigInt.prototype.shiftLeft + = + SmallInteger.prototype.shiftLeft + = + BigInteger.prototype.shiftLeft; + BigInteger.prototype.shiftRight + = + function(v) + {var remQuo,n=parseValue(v).toJSNumber(); + if(! shift_isSmall(n)) + throw new Error(String(n) + " is too large for shifting."); + if(n < 0)return this.shiftLeft(- n); + var result=this; + while(n >= powers2Length) + {if(result.isZero() || result.isNegative() && result.isUnit()) + return result; + remQuo = divModAny(result,highestPower2); + result = remQuo[1].isNegative()?remQuo[0].prev():remQuo[0]; + n -= powers2Length - 1} + remQuo = divModAny(result,powersOfTwo[n]); + return remQuo[1].isNegative()?remQuo[0].prev():remQuo[0]}; + NativeBigInt.prototype.shiftRight + = + SmallInteger.prototype.shiftRight + = + BigInteger.prototype.shiftRight; + function bitwise(x,y,fn) + {y = parseValue(y); + var + xSign=x.isNegative(), + ySign=y.isNegative(), + xRem=xSign?x.not():x, + yRem=ySign?y.not():y, + xDigit=0, + yDigit=0, + xDivMod=null, + yDivMod=null, + result=[]; + while(! xRem.isZero() || ! yRem.isZero()) + {xDivMod = divModAny(xRem,highestPower2); + xDigit = xDivMod[1].toJSNumber(); + if(xSign)xDigit = highestPower2 - 1 - xDigit; + yDivMod = divModAny(yRem,highestPower2); + yDigit = yDivMod[1].toJSNumber(); + if(ySign)yDigit = highestPower2 - 1 - yDigit; + xRem = xDivMod[0]; + yRem = yDivMod[0]; + result.push(fn(xDigit,yDigit))} + var sum=fn(xSign?1:0,ySign?1:0) !== 0?bigInt(- 1):bigInt(0); + for(var i=result.length - 1;i >= 0;i -= 1) + sum = sum.multiply(highestPower2).add(bigInt(result[i])); + return sum} + BigInteger.prototype.not = function(){return this.negate().prev()}; + NativeBigInt.prototype.not + = + SmallInteger.prototype.not + = + BigInteger.prototype.not; + BigInteger.prototype.and + = + function(n){return bitwise(this,n,function(a,b){return a & b})}; + NativeBigInt.prototype.and + = + SmallInteger.prototype.and + = + BigInteger.prototype.and; + BigInteger.prototype.or + = + function(n){return bitwise(this,n,function(a,b){return a | b})}; + NativeBigInt.prototype.or + = + SmallInteger.prototype.or + = + BigInteger.prototype.or; + BigInteger.prototype.xor + = + function(n){return bitwise(this,n,function(a,b){return a ^ b})}; + NativeBigInt.prototype.xor + = + SmallInteger.prototype.xor + = + BigInteger.prototype.xor; + var + LOBMASK_I=1 << 30, + LOBMASK_BI=(BASE & - BASE) * (BASE & - BASE) | LOBMASK_I; + function roughLOB(n) + {var + v=n.value, + x= + typeof v === "number" + ?v | LOBMASK_I + :typeof v === "bigint" + ?v | BigInt(LOBMASK_I) + :v[0] + v[1] * BASE | LOBMASK_BI; + return x & - x} + function integerLogarithm(value,base) + {if(base.compareTo(value) <= 0) + {var + tmp=integerLogarithm(value,base.square(base)), + p=tmp.p, + e=tmp.e, + t=p.multiply(base); + return t.compareTo(value) <= 0?{p:t,e:e * 2 + 1}:{p:p,e:e * 2}} + return {p:bigInt(1),e:0}} + BigInteger.prototype.bitLength + = + function() + {var n=this; + if(n.compareTo(bigInt(0)) < 0)n = n.negate().subtract(bigInt(1)); + if(n.compareTo(bigInt(0)) === 0)return bigInt(0); + return bigInt(integerLogarithm(n,bigInt(2)).e).add(bigInt(1))}; + NativeBigInt.prototype.bitLength + = + SmallInteger.prototype.bitLength + = + BigInteger.prototype.bitLength; + function max(a,b) + {a = parseValue(a);b = parseValue(b);return a.greater(b)?a:b} + function min(a,b) + {a = parseValue(a);b = parseValue(b);return a.lesser(b)?a:b} + function gcd(a,b) + {a = parseValue(a).abs(); + b = parseValue(b).abs(); + if(a.equals(b))return a; + if(a.isZero())return b; + if(b.isZero())return a; + var c=Integer[1],d,t; + while(a.isEven() && b.isEven()) + {d = min(roughLOB(a),roughLOB(b)); + a = a.divide(d); + b = b.divide(d); + c = c.multiply(d)} + while(a.isEven())a = a.divide(roughLOB(a)); + do + {while(b.isEven())b = b.divide(roughLOB(b)); + if(a.greater(b)){t = b;b = a;a = t} + b = b.subtract(a)} + while + (! b.isZero()); + return c.isUnit()?a:a.multiply(c)} + function lcm(a,b) + {a = parseValue(a).abs(); + b = parseValue(b).abs(); + return a.divide(gcd(a,b)).multiply(b)} + function randBetween(a,b) + {a = parseValue(a); + b = parseValue(b); + var low=min(a,b),high=max(a,b),range=high.subtract(low).add(1); + if(range.isSmall)return low.add(Math.floor(Math.random() * range)); + var digits=toBase(range,BASE).value,result=[],restricted=true; + for(var i=0;i < digits.length;i++) + {var + top=restricted?digits[i]:BASE, + digit=truncate(Math.random() * top); + result.push(digit); + if(digit < top)restricted = false} + return low.add(Integer.fromArray(result,BASE,false))} + function parseBase(text,base,alphabet,caseSensitive) + {alphabet = alphabet || DEFAULT_ALPHABET; + text = String(text); + if(! caseSensitive) + {text = text.toLowerCase();alphabet = alphabet.toLowerCase()} + var length=text.length,i,absBase=Math.abs(base),alphabetValues={}; + for(i = 0;i < alphabet.length;i++)alphabetValues[alphabet[i]] = i; + for(i = 0;i < length;i++) + {var c=text[i]; + if(c === "-")continue; + if(c in alphabetValues) + if(alphabetValues[c] >= absBase) + {if(c === "1" && absBase === 1)continue; + throw new + Error + (c + " is not a valid digit in base " + base + ".")}} + base = parseValue(base); + var digits=[],isNegative=text[0] === "-"; + for(i = isNegative?1:0;i < text.length;i++) + {var c=text[i]; + if(c in alphabetValues) + digits.push(parseValue(alphabetValues[c])); + else + if(c === "<") + {var start=i; + do i++;while(text[i] !== ">" && i < text.length); + digits.push(parseValue(text.slice(start + 1,i)))} + else + throw new Error(c + " is not a valid character")} + return parseBaseFromArray(digits,base,isNegative)} + function parseBaseFromArray(digits,base,isNegative) + {var val=Integer[0],pow=Integer[1],i; + for(i = digits.length - 1;i >= 0;i--) + {val = val.add(digits[i].times(pow));pow = pow.times(base)} + return isNegative?val.negate():val} + function stringify(digit,alphabet) + {alphabet = alphabet || DEFAULT_ALPHABET; + if(digit < alphabet.length)return alphabet[digit]; + return "<" + digit + ">"} + function toBase(n,base) + {base = bigInt(base); + if(base.isZero()) + {if(n.isZero())return {value:[0],isNegative:false}; + throw new Error("Cannot convert nonzero numbers to base 0.")} + if(base.equals(- 1)) + {if(n.isZero())return {value:[0],isNegative:false}; + if(n.isNegative()) + return {value: + [].concat.apply + ([], + Array.apply(null,Array(- n.toJSNumber())).map + (Array.prototype.valueOf,[1,0])), + isNegative:false}; + var + arr= + Array.apply(null,Array(n.toJSNumber() - 1)).map + (Array.prototype.valueOf,[0,1]); + arr.unshift([1]); + return {value:[].concat.apply([],arr),isNegative:false}} + var neg=false; + if(n.isNegative() && base.isPositive()){neg = true;n = n.abs()} + if(base.isUnit()) + {if(n.isZero())return {value:[0],isNegative:false}; + return {value: + Array.apply(null,Array(n.toJSNumber())).map + (Number.prototype.valueOf,1), + isNegative:neg}} + var out=[],left=n,divmod; + while(left.isNegative() || left.compareAbs(base) >= 0) + {divmod = left.divmod(base); + left = divmod.quotient; + var digit=divmod.remainder; + if(digit.isNegative()) + {digit = base.minus(digit).abs();left = left.next()} + out.push(digit.toJSNumber())} + out.push(left.toJSNumber()); + return {value:out.reverse(),isNegative:neg}} + function toBaseString(n,base,alphabet) + {var arr=toBase(n,base); + return (arr.isNegative?"-":"") + + + arr.value.map(function(x){return stringify(x,alphabet)}).join + ("")} + BigInteger.prototype.toArray + = + function(radix){return toBase(this,radix)}; + SmallInteger.prototype.toArray + = + function(radix){return toBase(this,radix)}; + NativeBigInt.prototype.toArray + = + function(radix){return toBase(this,radix)}; + BigInteger.prototype.toString + = + function(radix,alphabet) + {if(radix === undefined)radix = 10; + if(radix !== 10)return toBaseString(this,radix,alphabet); + var + v=this.value, + l=v.length, + str=String(v[--l]), + zeros="0000000", + digit; + while(--l >= 0) + {digit = String(v[l]);str += zeros.slice(digit.length) + digit} + var sign=this.sign?"-":""; + return sign + str}; + SmallInteger.prototype.toString + = + function(radix,alphabet) + {if(radix === undefined)radix = 10; + if(radix != 10)return toBaseString(this,radix,alphabet); + return String(this.value)}; + NativeBigInt.prototype.toString = SmallInteger.prototype.toString; + NativeBigInt.prototype.toJSON + = + BigInteger.prototype.toJSON + = + SmallInteger.prototype.toJSON + = + function(){return this.toString()}; + BigInteger.prototype.valueOf + = + function(){return parseInt(this.toString(),10)}; + BigInteger.prototype.toJSNumber = BigInteger.prototype.valueOf; + SmallInteger.prototype.valueOf = function(){return this.value}; + SmallInteger.prototype.toJSNumber = SmallInteger.prototype.valueOf; + NativeBigInt.prototype.valueOf + = + NativeBigInt.prototype.toJSNumber + = + function(){return parseInt(this.toString(),10)}; + function parseStringValue(v) + {if(isPrecise(+ v)) + {var x=+ v; + if(x === truncate(x)) + return supportsNativeBigInt + ?new NativeBigInt(BigInt(x)) + :new SmallInteger(x); + throw new Error("Invalid integer: " + v)} + var sign=v[0] === "-"; + if(sign)v = v.slice(1); + var split=v.split(/e/i); + if(split.length > 2) + throw new Error("Invalid integer: " + split.join("e")); + if(split.length === 2) + {var exp=split[1]; + if(exp[0] === "+")exp = exp.slice(1); + exp = + exp; + if(exp !== truncate(exp) || ! isPrecise(exp)) + throw new + Error + ("Invalid integer: " + exp + " is not a valid exponent."); + var text=split[0],decimalPlace=text.indexOf("."); + if(decimalPlace >= 0) + {exp -= text.length - decimalPlace - 1; + text + = + text.slice(0,decimalPlace) + + + text.slice(decimalPlace + 1)} + if(exp < 0) + throw new + Error + ("Cannot include negative exponent part for integers"); + text += new Array(exp + 1).join("0"); + v = text} + var isValid=/^([0-9][0-9]*)$/.test(v); + if(! isValid)throw new Error("Invalid integer: " + v); + if(supportsNativeBigInt) + return new NativeBigInt(BigInt(sign?"-" + v:v)); + var r=[],max=v.length,l=LOG_BASE,min=max - l; + while(max > 0) + {r.push(+ v.slice(min,max));min -= l;if(min < 0)min = 0;max -= l} + trim(r); + return new BigInteger(r,sign)} + function parseNumberValue(v) + {if(supportsNativeBigInt)return new NativeBigInt(BigInt(v)); + if(isPrecise(v)) + {if(v !== truncate(v))throw new Error(v + " is not an integer."); + return new SmallInteger(v)} + return parseStringValue(v.toString())} + function parseValue(v) + {if(typeof v === "number")return parseNumberValue(v); + if(typeof v === "string")return parseStringValue(v); + if(typeof v === "bigint")return new NativeBigInt(v); + return v} + for(var i=0;i < 1000;i++) + {Integer[i] = parseValue(i);if(i > 0)Integer[- i] = parseValue(- i)} + Integer.one = Integer[1]; + Integer.zero = Integer[0]; + Integer.minusOne = Integer[- 1]; + Integer.max = max; + Integer.min = min; + Integer.gcd = gcd; + Integer.lcm = lcm; + Integer.isInstance + = + function(x) + {return x instanceof BigInteger + || + x instanceof SmallInteger + || + x instanceof NativeBigInt}; + Integer.randBetween = randBetween; + Integer.fromArray + = + function(digits,base,isNegative) + {return parseBaseFromArray + (digits.map(parseValue),parseValue(base || 10),isNegative)}; + return Integer} + (); + function ml_z_normalize(x) + {var y=x.toJSNumber() | 0;if(x.equals(bigInt(y)))return y;return x} + function ml_z_pow(z1,i1) + {i1 = bigInt(i1); + if(i1.lt(bigInt(0))) + caml_invalid_argument("Z.pow: exponent must be non-negative"); + return ml_z_normalize(bigInt(z1).pow(i1))} + function ml_z_root(z,i) + {var zero=bigInt(0),one=bigInt(1); + z = bigInt(z); + if(z.equals(zero) || z.equals(one))return ml_z_normalize(z); + var start=zero,end=z,ans=null,two=bigInt(2); + while(start.leq(end)) + {var mid=start.add(end).divide(two),po=mid.pow(i); + if(po.equals(z)) + return ml_z_normalize(mid); + else + if(po.lt(z)){start = mid.next();ans = mid}else end = mid.prev()} + return ml_z_normalize(ans)} function caml_int64_of_bytes(a) - {return [255, - a[7] | a[6] << 8 | a[5] << 16, - a[4] | a[3] << 8 | a[2] << 16, - a[1] | a[0] << 8]} + {return new + MlInt64 + (a[7] << 0 | a[6] << 8 | a[5] << 16, + a[4] << 0 | a[3] << 8 | a[2] << 16, + a[1] << 0 | a[0] << 8)} function caml_ba_uint8_get64(ba,i0) {var ofs=ba.offset(i0); if(ofs + 7 >= ba.data.length)caml_array_bound_error(); @@ -771,49 +2328,14 @@ b7=ba.get(ofs + 6), b8=ba.get(ofs + 7); return caml_int64_of_bytes([b8,b7,b6,b5,b4,b3,b2,b1])} - function caml_int64_to_bytes(x) - {return [x[3] >> 8, - x[3] & 0xff, - x[2] >> 16, - x[2] >> 8 & 0xff, - x[2] & 0xff, - x[1] >> 16, - x[1] >> 8 & 0xff, - x[1] & 0xff]} + function caml_int64_to_bytes(x){return x.toArray()} function caml_int64_marshal(writer,v,sizes) {var b=caml_int64_to_bytes(v); for(var i=0;i < 8;i++)writer.write(8,b[i]); sizes[0] = 8; sizes[1] = 8} function caml_ba_num_dims(ba){return ba.dims.length} - if(! Math.imul) - Math.imul - = - function(x,y){y |= 0;return ((x >> 16) * y << 16) + (x & 0xffff) * y | 0}; - var caml_mul=Math.imul; - function caml_hash_mix_int(h,d) - {d = caml_mul(d,0xcc9e2d51 | 0); - d = d << 15 | d >>> 32 - 15; - d = caml_mul(d,0x1b873593); - h ^= d; - h = h << 13 | h >>> 32 - 13; - return (h + (h << 2) | 0) + (0xe6546b64 | 0) | 0} - function caml_hash_mix_string_arr(h,s) - {var len=s.length,i,w; - for(i = 0;i + 4 <= len;i += 4) - {w = s[i] | s[i + 1] << 8 | s[i + 2] << 16 | s[i + 3] << 24; - h = caml_hash_mix_int(h,w)} - w = 0; - switch(len & 3) - {case 3:w = s[i + 2] << 16; - case 2:w |= s[i + 1] << 8; - case 1:w |= s[i];h = caml_hash_mix_int(h,w) - } - h ^= len; - return h} function caml_return_exn_constant(tag){return tag} - var caml_named_values={}; - function caml_named_value(nm){return caml_named_values[nm]} function caml_wrap_exception(e) {if(e instanceof Array)return e; if @@ -836,7 +2358,7 @@ return caml_return_exn_constant(caml_global_data.Stack_overflow); if(e instanceof joo_global_object.Error && caml_named_value("jsError")) return [0,caml_named_value("jsError"),e]; - return [0,caml_global_data.Failure,caml_js_to_string(String(e))]} + return [0,caml_global_data.Failure,caml_string_of_jsstring(String(e))]} function caml_create_file(name,content) {var root=resolve_fs_device(name); if(! root.device.register)caml_failwith("cannot register file"); @@ -850,7 +2372,15 @@ joo_global_object.caml_create_file = caml_create_file; joo_global_object.caml_fs_tmp = []; return 0} - function caml_hash_mix_string_str(h,s) + function caml_mul(a,b){return Math.imul(a,b)} + function caml_hash_mix_int(h,d) + {d = caml_mul(d,0xcc9e2d51 | 0); + d = d << 15 | d >>> 32 - 15; + d = caml_mul(d,0x1b873593); + h ^= d; + h = h << 13 | h >>> 32 - 13; + return (h + (h << 2) | 0) + (0xe6546b64 | 0) | 0} + function caml_hash_mix_jsbytes(h,s) {var len=s.length,i,w; for(i = 0;i + 4 <= len;i += 4) {w @@ -878,18 +2408,13 @@ h ^= len; return h} function caml_hash_mix_string(h,v) - {switch(v.t & 6) - {default:caml_convert_string_to_bytes(v);case 0: - h = caml_hash_mix_string_str(h,v.c);break; - case 2:h = caml_hash_mix_string_arr(h,v.c) - } - return h} + {return caml_hash_mix_jsbytes(h,caml_jsbytes_of_string(v))} var Base_internalhash_fold_string=caml_hash_mix_string; + function caml_set_parser_trace(){return 0} function caml_list_of_js_array(a) {var l=0; for(var i=a.length - 1;i >= 0;i--){var e=a[i];l = [0,e,l]} return l} - function caml_set_parser_trace(){return 0} function unix_gettimeofday(){return new Date().getTime() / 1000} function num_digits_nat(nat,ofs,len) {for(var i=len - 1;i >= 0;i--)if(nat.data[ofs + i] != 0)return i + 1; @@ -898,31 +2423,31 @@ {var len=num_digits_nat(x,0,x.data.length),h=0; for(var i=0;i < len;i++)h = caml_hash_mix_int(h,x.data[i]); return h} - function raw_array_append_one(a,x) - {var l=a.length,b=new Array(l + 1),i=0; - for(;i < l;i++)b[i] = a[i]; - b[i] = x; - return b} function caml_call_gen(f,args) {if(f.fun)return caml_call_gen(f.fun,args); - var n=f.length,argsLen=args.length,d=n - argsLen; + if(typeof f !== "function")return f; + var n=f.length | 0; + if(n === 0)return f.apply(null,args); + var argsLen=args.length | 0,d=n - argsLen | 0; if(d == 0) return f.apply(null,args); else if(d < 0) - return caml_call_gen - (f.apply(null,raw_array_sub(args,0,n)), - raw_array_sub(args,n,argsLen - n)); + return caml_call_gen(f.apply(null,args.slice(0,n)),args.slice(n)); else - return function(x) - {return caml_call_gen(f,raw_array_append_one(args,x))}} - function caml_js_wrap_callback(f) - {return function() - {return arguments.length > 0 - ?caml_call_gen(f,arguments) - :caml_call_gen(f,[undefined])}} + return function() + {var + extra_args=arguments.length == 0?1:arguments.length, + nargs=new Array(args.length + extra_args); + for(var i=0;i < args.length;i++)nargs[i] = args[i]; + for(var i=0;i < arguments.length;i++) + nargs[args.length + i] = arguments[i]; + return caml_call_gen(f,nargs)}} function caml_js_wrap_callback_arguments(f) - {return function(){return caml_js_wrap_callback(f)(arguments)}} + {return function() + {var len=arguments.length,args=new Array(len); + for(var i=0;i < len;i++)args[i] = arguments[i]; + return caml_call_gen(f,[args])}} function caml_sys_chdir(dir) {var root=resolve_fs_device(dir); if(root.device.exists(root.rest)) @@ -934,6 +2459,21 @@ else caml_raise_no_such_file(dir)} function caml_gc_counters(){return [254,0,0,0]} + function ml_z_div(z1,z2) + {z2 = bigInt(z2); + if(z2.equals(bigInt(0)))caml_raise_zero_divide(); + return ml_z_normalize(bigInt(z1).divide(bigInt(z2)))} + function ml_z_sign(z1){return bigInt(z1).compare(bigInt.zero)} + function ml_z_add(z1,z2) + {return ml_z_normalize(bigInt(z1).add(bigInt(z2)))} + function ml_z_cdiv(z1,z2) + {var z1_pos=ml_z_sign(z1),z2_pos=ml_z_sign(z2); + if(z1_pos * z2_pos > 0) + if(! bigInt(z1).mod(bigInt(z2)).equals(bigInt(0))) + return ml_z_add(ml_z_div(z1,z2),bigInt(1)); + return ml_z_div(z1,z2)} + function caml_gr_synchronize() + {caml_failwith("caml_gr_synchronize not Implemented")} var log2_ok=Math.log2 && Math.log2(1.1235582092889474E+307) == 1020; function jsoo_floor_log2(x) {if(log2_ok)return Math.floor(Math.log2(x)); @@ -946,7 +2486,8 @@ float32a[0] = x; var int32a=new (joo_global_object.Int32Array)(float32a.buffer); return int32a[0] | 0} - function caml_int64_create_lo_mi_hi(lo,mi,hi){return [255,lo,mi,hi]} + function caml_int64_create_lo_mi_hi(lo,mi,hi) + {return new MlInt64(lo,mi,hi)} function caml_int64_bits_of_float(x) {if(! isFinite(x)) {if(isNaN(x))return caml_int64_create_lo_mi_hi(1,0,0x7ff0); @@ -1048,7 +2589,7 @@ var float32a=new (joo_global_object.Float32Array)(int32a.buffer); return float32a[0]} function caml_int64_float_of_bits(x) - {var lo=x[1],mi=x[2],hi=x[3],exp=(hi & 0x7fff) >> 4; + {var lo=x.lo,mi=x.mi,hi=x.hi,exp=(hi & 0x7fff) >> 4; if(exp == 2047) return (lo | mi | hi & 0xf) == 0?hi & 0x8000?- Infinity:Infinity:NaN; var k=Math.pow(2,- 24),res=(lo * k + mi) * k + (hi & 0xf); @@ -1066,12 +2607,13 @@ size = size * dims[i]} return size} function caml_int64_create_lo_hi(lo,hi) - {return [255, - lo & 0xffffff, - lo >>> 24 & 0xff | (hi & 0xffff) << 8, - hi >>> 16 & 0xffff]} - function caml_int64_hi32(v){return v[2] >>> 8 & 0xffff | v[3] << 16} - function caml_int64_lo32(v){return v[1] | (v[2] & 0xff) << 24} + {return new + MlInt64 + (lo & 0xffffff, + lo >>> 24 & 0xff | (hi & 0xffff) << 8, + hi >>> 16 & 0xffff)} + function caml_int64_hi32(v){return v.hi32()} + function caml_int64_lo32(v){return v.lo32()} function Ml_Bigarray(kind,layout,dims,buffer) {this.kind = kind; this.layout = layout; @@ -1365,18 +2907,8 @@ for(var j=0;j < 8;j++)t[j] = reader.read8u(); size[0] = 8; return caml_int64_of_bytes(t)} - function caml_int64_compare(x,y) - {var x3=x[3] << 16,y3=y[3] << 16; - if(x3 > y3)return 1; - if(x3 < y3)return - 1; - if(x[2] > y[2])return 1; - if(x[2] < y[2])return - 1; - if(x[1] > y[1])return 1; - if(x[1] < y[1])return - 1; - return 0} - function caml_int64_hash(x) - {var lo=x[1] | (x[2] & 0xff) << 24,hi=x[2] >>> 8 & 0xffff | x[3] << 16; - return lo ^ hi} + function caml_int64_compare(x,y,total){return x.compare(y)} + function caml_int64_hash(v){return v.lo32() ^ v.hi32()} var caml_custom_ops= {"_j": @@ -1408,38 +2940,42 @@ {if(typeof a === "number") return 1000; else - if(a instanceof MlBytes) + if(caml_is_ml_bytes(a)) return 252; else - if(a instanceof Array && a[0] === a[0] >>> 0 && a[0] <= 255) - {var tag=a[0] | 0;return tag == 254?0:tag} + if(caml_is_ml_string(a)) + return 1252; else - if(a instanceof String) - return 1252; + if(a instanceof Array && a[0] === a[0] >>> 0 && a[0] <= 255) + {var tag=a[0] | 0;return tag == 254?0:tag} else - if(typeof a == "string") - return 1252; + if(a instanceof String) + return 12520; else - if(a instanceof Number) - return 1000; + if(typeof a == "string") + return 12520; else - if(a && a.caml_custom) - return 1255; + if(a instanceof Number) + return 1000; else - if(a && a.compare) - return 1256; + if(a && a.caml_custom) + return 1255; else - if(typeof a == "function") - return 1247; + if(a && a.compare) + return 1256; else - if(typeof a == "symbol")return 1251; + if(typeof a == "function") + return 1247; + else + if(typeof a == "symbol")return 1251; return 1001} function caml_int_compare(a,b) {if(a < b)return - 1;if(a == b)return 0;return 1} - function caml_string_compare(s1,s2) + function caml_bytes_compare(s1,s2) {s1.t & 6 && caml_convert_string_to_bytes(s1); s2.t & 6 && caml_convert_string_to_bytes(s2); return s1.c < s2.c?- 1:s1.c > s2.c?1:0} + function caml_string_compare(s1,s2){return caml_bytes_compare(s1,s2)} function caml_compare_val(a,b,total) {var stack=[]; for(;;) @@ -1469,8 +3005,7 @@ break; case 251:caml_invalid_argument("equal: abstract value");break; case 252: - if(a !== b) - {var x=caml_string_compare(a,b);if(x != 0)return x | 0} + if(a !== b){var x=caml_bytes_compare(a,b);if(x != 0)return x | 0} break; case 253: caml_invalid_argument("equal: got Double_tag, should not happen"); @@ -1480,7 +3015,8 @@ ("equal: got Double_array_tag, should not happen"); break; case 255: - var x=caml_int64_compare(a,b);if(x != 0)return x | 0;break; + caml_invalid_argument("equal: got Custom_tag, should not happen"); + break; case 1247: caml_invalid_argument("compare: functional value");break; case 1255: @@ -1515,6 +3051,10 @@ break; case 1251:if(a !== b){if(! total)return NaN;return 1}break; case 1252: + var a=caml_jsbytes_of_string(a),b=caml_jsbytes_of_string(b); + if(a !== b){if(a < b)return - 1;if(a > b)return 1} + break; + case 12520: var a=a.toString(),b=b.toString(); if(a !== b){if(a < b)return - 1;if(a > b)return 1} break; @@ -1679,16 +3219,7 @@ dst.data.set(src.data); return 0} function is_digit_int(nat,ofs){if(nat.data[ofs] >= 0)return 1;return 0} - function caml_raise_zero_divide() - {caml_raise_constant(caml_global_data.Division_by_zero)} - function caml_int64_div(x,y) - {if(caml_int64_is_zero(y))caml_raise_zero_divide(); - var sign=x[3] ^ y[3]; - if(x[3] & 0x8000)x = caml_int64_neg(x); - if(y[3] & 0x8000)y = caml_int64_neg(y); - var q=caml_int64_udivmod(x,y)[1]; - if(sign & 0x8000)q = caml_int64_neg(q); - return q} + function caml_int64_div(x,y){return x.div(y)} function caml_js_html_entities(s) {var entity=/^&#?[0-9a-zA-Z]+;$/; if(s.match(entity)) @@ -1701,36 +3232,40 @@ caml_failwith("Invalid entity " + s)} function caml_string_unsafe_set(s,i,c) {return caml_bytes_unsafe_set(s,i,c)} - var caml_int64_offset=Math.pow(2,- 24); function caml_int64_of_float(x) {if(x < 0)x = Math.ceil(x); - return [255, - x & 0xffffff, - Math.floor(x * caml_int64_offset) & 0xffffff, - Math.floor(x * caml_int64_offset * caml_int64_offset) & 0xffff]} + return new + MlInt64 + (x & 0xffffff, + Math.floor(x * caml_int64_offset) & 0xffffff, + Math.floor(x * caml_int64_offset * caml_int64_offset) & 0xffff)} function caml_ml_channel_size_64(chanid) {var chan=caml_ml_channels[chanid]; return caml_int64_of_float(chan.file.length())} function caml_ba_set_2(ba,i0,i1,v){ba.set(ba.offset([i0,i1]),v);return 0} + function ml_z_of_int64(i64) + {var neg=false; + if(caml_int64_compare(i64,[255,0,0,0]) < 0) + {neg = true;i64 = caml_int64_neg(i64)} + var + x= + bigInt(i64[1]).add(bigInt(i64[2]).shiftLeft(24)).add + (bigInt(i64[3]).shiftLeft(48)); + if(neg)x = x.negate(); + return ml_z_normalize(x)} var caml_argv= function() {var g=joo_global_object,main="a.out",args=[]; if(g.process && g.process.argv && g.process.argv.length > 1) - {var argv=g.process.argv; - main = argv[1]; - args = raw_array_sub(argv,2,argv.length - 2)} - var p=caml_js_to_string(main),args2=[0,p]; + {var argv=g.process.argv;main = argv[1];args = argv.slice(2)} + var p=caml_string_of_jsstring(main),args2=[0,p]; for(var i=0;i < args.length;i++) - args2.push(caml_js_to_string(args[i])); + args2.push(caml_string_of_jsstring(args[i])); return args2} (), caml_executable_name=caml_argv[1]; - function caml_bytes_compare(s1,s2) - {s1.t & 6 && caml_convert_string_to_bytes(s1); - s2.t & 6 && caml_convert_string_to_bytes(s2); - return s1.c < s2.c?- 1:s1.c > s2.c?1:0} - function caml_js_eval_string(s){return eval(s.toString())} + function caml_js_eval_string(s){return eval(caml_jsstring_of_string(s))} function caml_CamlinternalMod_init_mod(loc,shape) {function undef_module(_x) {caml_raise_with_arg(caml_global_data.Undefined_recursive_module,loc)} @@ -1758,12 +3293,13 @@ sz[0] = len * 4; sz[1] = len * 8} function caml_memprof_set(_control){return 0} + function ml_z_neg(z1){return ml_z_normalize(bigInt(z1).negate())} function caml_sys_exit(code) {var g=joo_global_object; if(g.quit)g.quit(code); if(g.process && g.process.exit)g.process.exit(code); caml_invalid_argument("Function 'exit' not implemented")} - function caml_js_from_array(a){return raw_array_sub(a,1,a.length - 1)} + function caml_js_from_array(a){return a.slice(1)} function caml_ba_reshape(ba,vind) {vind = caml_js_from_array(vind); var new_dim=[],num_dims=vind.length; @@ -1781,41 +3317,40 @@ return caml_ba_create_unsafe(ba.kind,ba.layout,new_dim,ba.data)} var caml_oo_last_id=0; function caml_set_oo_id(b){b[2] = caml_oo_last_id++;return b} + function caml_gr_fill_rect(x,y,w,h) + {var s=caml_gr_state_get(); + s.context.fillRect(x,s.height - y,w,- h); + return 0} function caml_bigstring_blit_string_to_ba(str1,pos1,ba2,pos2,len) {if(12 != ba2.kind) caml_invalid_argument ("caml_bigstring_blit_string_to_ba: kind mismatch"); if(len == 0)return 0; var ofs2=ba2.offset(pos2); - if(pos1 + len > str1.l)caml_array_bound_error(); + if(pos1 + len > caml_ml_string_length(str1))caml_array_bound_error(); if(ofs2 + len > ba2.data.length)caml_array_bound_error(); var slice=caml_array_of_string(str1).slice(pos1,pos1 + len); ba2.data.set(slice,ofs2); return 0} + function caml_gr_set_window_title(name) + {var s=caml_gr_state_get(); + s.title = name; + var jsname=caml_jsstring_of_string(name); + if(s.set_title)s.set_title(jsname); + return 0} function caml_get_global_data(){return caml_global_data} function caml_int64_shift_right_unsigned(x,s) - {s = s & 63; - if(s == 0)return x; - if(s < 24) - return [255, - (x[1] >> s | x[2] << 24 - s) & 0xffffff, - (x[2] >> s | x[3] << 24 - s) & 0xffffff, - x[3] >> s]; - if(s < 48) - return [255, - (x[2] >> s - 24 | x[3] << 48 - s) & 0xffffff, - x[3] >> s - 24, - 0]; - return [255,x[3] >> s - 48,0,0]} + {return x.shift_right_unsigned(s)} function caml_ba_uint8_get16(ba,i0) {var ofs=ba.offset(i0); if(ofs + 1 >= ba.data.length)caml_array_bound_error(); var b1=ba.get(ofs),b2=ba.get(ofs + 1); return b1 | b2 << 8} + function ml_z_of_int(i){return i | 0} + function ml_z_of_int32(i32){return ml_z_of_int(i32)} function caml_compare(a,b){return caml_compare_val(a,b,true)} function caml_fresh_oo_id(){return caml_oo_last_id++} - function caml_int64_to_float(x) - {return (x[3] << 16) * Math.pow(2,32) + x[2] * Math.pow(2,24) + x[1]} + function caml_int64_to_float(x){return x.toFloat()} function caml_ba_get_1(ba,i0){return ba.get(ba.offset(i0))} function caml_bigstring_memcmp(s1,pos1,s2,pos2,len) {for(var i=0;i < len;i++) @@ -1823,7 +3358,7 @@ if(a < b)return - 1; if(a > b)return 1} return 0} - function caml_raw_backtrace_length(){return 0} + function caml_new_string(s){return caml_string_of_jsbytes(s)} function caml_ba_uint8_get32(ba,i0) {var ofs=ba.offset(i0); if(ofs + 3 >= ba.data.length)caml_array_bound_error(); @@ -1833,36 +3368,60 @@ b3=ba.get(ofs + 2), b4=ba.get(ofs + 3); return b1 << 0 | b2 << 8 | b3 << 16 | b4 << 24} + function caml_raw_backtrace_length(){return 0} + function ml_z_shift_right(z1,amt) + {return ml_z_normalize(bigInt(z1).shiftRight(amt))} function caml_obj_block(tag,size) {var o=new Array(size + 1); o[0] = tag; for(var i=1;i <= size;i++)o[i] = 0; return o} + function caml_gr_clear_graph() + {var s=caml_gr_state_get(); + s.canvas.width = s.width; + s.canvas.height = s.height; + return 0} function bigstring_to_array_buffer(bs){return bs.data.buffer} function lxor_digit_nat(nat1,ofs1,nat2,ofs2) {nat1.data[ofs1] ^= nat2.data[ofs2];return 0} function caml_final_release(){return 0} - function raw_array_cons(a,x) - {var l=a.length,b=new Array(l + 1); - b[0] = x; - for(var i=1;i <= l;i++)b[i] = a[i - 1]; + function caml_js_to_array(a) + {var len=a.length,b=new Array(len + 1); + b[0] = 0; + for(var i=0;i < len;i++)b[i + 1] = a[i]; return b} - function caml_js_to_array(a){return raw_array_cons(a,0)} + function ml_z_logor(z1,z2) + {return ml_z_normalize(bigInt(z1).or(bigInt(z2)))} + function caml_gr_plot(x,y) + {var + s=caml_gr_state_get(), + im=s.context.createImageData(1,1), + d=im.data, + color=s.color; + d[0] = color >> 16 & 0xff; + d[1] = color >> 8 & 0xff,d[2] = color >> 0 & 0xff; + d[3] = 0xFF; + s.x = x; + s.y = y; + s.context.putImageData(im,x,s.height - y); + return 0} function caml_bytes_set64(s,i,i64) - {if(i >>> 0 >= s.l - 7)caml_string_bound_error(); + {if(i >>> 0 >= s.l - 7)caml_bytes_bound_error(); var a=caml_int64_to_bytes(i64); - for(var j=0;j < 8;j++)caml_string_unsafe_set(s,i + 7 - j,a[j]); + for(var j=0;j < 8;j++)caml_bytes_unsafe_set(s,i + 7 - j,a[j]); return 0} function caml_bytes_set16(s,i,i16) - {if(i >>> 0 >= s.l - 1)caml_string_bound_error(); + {if(i >>> 0 >= s.l - 1)caml_bytes_bound_error(); var b2=0xFF & i16 >> 8,b1=0xFF & i16; - caml_string_unsafe_set(s,i + 0,b1); - caml_string_unsafe_set(s,i + 1,b2); + caml_bytes_unsafe_set(s,i + 0,b1); + caml_bytes_unsafe_set(s,i + 1,b2); return 0} function caml_string_set16(s,i,i16){return caml_bytes_set16(s,i,i16)} function caml_int64_bswap(x) {var y=caml_int64_to_bytes(x); return caml_int64_of_bytes([y[7],y[6],y[5],y[4],y[3],y[2],y[1],y[0]])} + function ml_z_fits_int(z1){return z1 == (z1 | 0)?1:0} + function ml_z_fits_int32(z1){return ml_z_fits_int(z1)} function caml_fill_bytes(s,i,l,c) {if(l > 0) if(i == 0 && (l >= s.l || s.t == 2 && l >= s.c.length)) @@ -1871,11 +3430,13 @@ else {s.c = caml_str_repeat(l,String.fromCharCode(c));s.t = l == s.l?0:2} else - {if(s.t != 4)caml_convert_string_to_array(s); + {if(s.t != 4)caml_convert_bytes_to_array(s); for(l += i;i < l;i++)s.c[i] = c} return 0} var caml_fill_string=caml_fill_bytes; function caml_gc_major(){return 0} + function ml_z_shift_left(z1,amt) + {return ml_z_normalize(bigInt(z1).shiftLeft(amt))} function caml_lex_array(s) {s = caml_jsbytes_of_string(s); var l=s.length / 2,a=new Array(l); @@ -1908,7 +3469,7 @@ tbl.lex_check = caml_lex_array(tbl[lex_check]); tbl.lex_trans = caml_lex_array(tbl[lex_trans]); tbl.lex_default = caml_lex_array(tbl[lex_default])} - var c,state=start_state,buffer=caml_array_of_string(lexbuf[lex_buffer]); + var c,state=start_state,buffer=caml_array_of_bytes(lexbuf[lex_buffer]); if(state >= 0) {lexbuf[lex_last_pos] = lexbuf[lex_start_pos] = lexbuf[lex_curr_pos]; lexbuf[lex_last_action] = - 1} @@ -1951,6 +3512,7 @@ s1.t & 6 && caml_convert_string_to_bytes(s1); s2.t & 6 && caml_convert_string_to_bytes(s2); return s1.c == s2.c?1:0} + function caml_gr_size_x(){var s=caml_gr_state_get();return s.width} function Base_int_math_int32_clz(x) {var n=32,y; y = x >> 16; @@ -1985,6 +3547,11 @@ h = caml_mul(h,0xc2b2ae35 | 0); h ^= h >>> 16; return h} + function caml_gr_text_size(txt) + {var + s=caml_gr_state_get(), + w=s.context.measureText(caml_jsstring_of_string(txt)).width; + return [0,w,s.text_size]} function caml_lex_run_mem(s,i,mem,curr_pos) {for(;;) {var dst=s.charCodeAt(i); @@ -2039,7 +3606,7 @@ tbl.lex_default_code = caml_lex_array(tbl[lex_default_code])} if(tbl.lex_code == null) tbl.lex_code = caml_jsbytes_of_string(tbl[lex_code]); - var c,state=start_state,buffer=caml_array_of_string(lexbuf[lex_buffer]); + var c,state=start_state,buffer=caml_array_of_bytes(lexbuf[lex_buffer]); if(state >= 0) {lexbuf[lex_last_pos] = lexbuf[lex_start_pos] = lexbuf[lex_curr_pos]; lexbuf[lex_last_action] = - 1} @@ -2088,6 +3655,14 @@ var v=caml_int64_to_bytes(v); for(var i=0;i < 8;i++)ba.set(ofs + i,v[7 - i]); return 0} + function ml_z_popcount(z) + {z = bigInt(z); + var zero=bigInt(0),one=bigInt(1); + if(z.lt(zero))caml_raise_constant(caml_named_value("ml_z_overflow")); + var i; + for(i = 0;! z.equals(zero);i++)z = z.and(z.prev()); + if(i != (i | 0))caml_raise_constant(caml_named_value("ml_z_overflow")); + return i | 0} function caml_sys_executable_name(a){return caml_executable_name} function caml_lessequal(x,y){return + (caml_compare_val(x,y,false) <= 0)} function caml_ml_flush(chanid) @@ -2113,6 +3688,26 @@ {return compare_nat(nat1,0,nat1.data.length,nat2,0,nat2.data.length)} function caml_gc_set(_control){return 0} function caml_js_get(o,f){return o[f]} + function caml_hash_mix_bytes_arr(h,s) + {var len=s.length,i,w; + for(i = 0;i + 4 <= len;i += 4) + {w = s[i] | s[i + 1] << 8 | s[i + 2] << 16 | s[i + 3] << 24; + h = caml_hash_mix_int(h,w)} + w = 0; + switch(len & 3) + {case 3:w = s[i + 2] << 16; + case 2:w |= s[i + 1] << 8; + case 1:w |= s[i];h = caml_hash_mix_int(h,w) + } + h ^= len; + return h} + function caml_hash_mix_bytes(h,v) + {switch(v.t & 6) + {default:caml_convert_string_to_bytes(v);case 0: + h = caml_hash_mix_jsbytes(h,v.c);break; + case 2:h = caml_hash_mix_bytes_arr(h,v.c) + } + return h} function caml_hash(count,limit,seed,obj) {var queue,rd,wr,sz,num,h,v,i,len; sz = limit; @@ -2137,7 +3732,6 @@ switch(v[0]) {case 248:h = caml_hash_mix_int(h,v[2]);num--;break; case 250:queue[--rd] = v[1];break; - case 255:h = caml_hash_mix_int64(h,v);num--;break; default: var tag=v.length - 1 << 10 | v[0]; h = caml_hash_mix_int(h,tag); @@ -2145,13 +3739,19 @@ {if(wr >= sz)break;queue[wr++] = v[i]} break} else - if(v instanceof MlBytes) - {h = caml_hash_mix_string(h,v);num--} + if(caml_is_ml_bytes(v)) + {h = caml_hash_mix_bytes(h,v);num--} else - if(v === (v | 0)) - {h = caml_hash_mix_int(h,v + v + 1);num--} + if(caml_is_ml_string(v)) + {h = caml_hash_mix_string(h,v);num--} else - if(v === + v){h = caml_hash_mix_float(h,v);num--}} + if(typeof v === "string") + {h = caml_hash_mix_jsbytes(h,v);num--} + else + if(v === (v | 0)) + {h = caml_hash_mix_int(h,v + v + 1);num--} + else + if(v === + v){h = caml_hash_mix_float(h,v);num--}} h = caml_hash_mix_final(h); return h & 0x3FFFFFFF} function Base_hash_string(s){return caml_hash(1,1,0,s)} @@ -2163,6 +3763,61 @@ ?0 :x[caml_ephe_key_offset + i]} var caml_ephe_get_key=caml_weak_get; + function caml_string_of_array(a) + {return caml_string_of_jsbytes(caml_subarray_to_jsbytes(a,0,a.length))} + function caml_to_js_string(s){return caml_jsstring_of_string(s)} + function jsoo_z_of_js_string_base(base,s) + {if(base == 0) + {base = 10; + var p=0,sign=1; + if(s[p] == "-"){sign = - 1;p++}else if(s[p] == "+")p++; + if(s[p] == "0") + {p++; + if(s.length == p) + return 0; + else + {var bc=s[p]; + if(bc == "o" || bc == "O") + base = 8; + else + if(bc == "x" || bc == "X") + base = 16; + else + if(bc == "b" || bc == "B")base = 2; + if(base != 10){s = s.substring(p + 1);if(sign == - 1)s = "-" + s}}}} + if(s[0] == "+")s = s.substring(1); + s = s.replace(/^0+/,""); + if(s == "-" || s == "")s = "0"; + function digit(code) + {if(code >= 48 && code <= 57)return code - 48; + if(code >= 97 && code <= 102)return code - 97 + 10; + if(code >= 65 && code <= 70)return code - 65 + 10} + var i=0; + if(s[i] == "-")i++; + for(;i < s.length;i++) + {var c=digit(s.charCodeAt(i)); + if(c == undefined || c >= base) + caml_invalid_argument("Z.of_substring_base: invalid digit")} + return ml_z_normalize(bigInt(s,base))} + function ml_z_of_substring_base(base,s,pos,len) + {if(pos != 0 || len != caml_ml_string_length(s)) + {s = caml_array_of_string(s); + if(s.length - pos < len) + caml_invalid_argument + ("Z.of_substring_base: invalid offset or length"); + s = caml_string_of_array(s.slice(pos,pos + len))} + return jsoo_z_of_js_string_base(base,caml_to_js_string(s))} + function caml_bigstring_blit_bytes_to_ba(str1,pos1,ba2,pos2,len) + {if(12 != ba2.kind) + caml_invalid_argument + ("caml_bigstring_blit_string_to_ba: kind mismatch"); + if(len == 0)return 0; + var ofs2=ba2.offset(pos2); + if(pos1 + len > caml_ml_bytes_length(str1))caml_array_bound_error(); + if(ofs2 + len > ba2.data.length)caml_array_bound_error(); + var slice=caml_array_of_bytes(str1).slice(pos1,pos1 + len); + ba2.data.set(slice,ofs2); + return 0} function win_cleanup(){} function caml_sys_close(fd){delete caml_global_data.fds[fd];return 0} function caml_ml_close_channel(chanid) @@ -2191,41 +3846,69 @@ function is_digit_zero(nat,ofs){if(nat.data[ofs] == 0)return 1;return 0} function unix_inet_addr_of_string(){return 0} function caml_js_set(o,f,v){o[f] = v;return 0} + function ml_z_gcdext_intern(z1,z2) + {z1 = bigInt(z1); + z2 = bigInt(z2); + var + gcd=bigInt.gcd(z1,z2), + a=z1, + b=z2, + x=bigInt(0), + lastx=bigInt(1), + y=bigInt(1), + lasty=bigInt(1), + q, + t, + r; + if(z1.equals(bigInt(0)))caml_raise_zero_divide(); + while(! b.equals(bigInt(0))) + {q = a.divide(b); + r = a.subtract(q.multiply(b)); + t = x; + x = lastx.subtract(q.multiply(x)); + lastx = t; + t = y; + y = lasty.subtract(q.multiply(y)); + lasty = t; + a = b; + b = r} + return a.lt(bigInt(0)) + ?[0,ml_z_normalize(a.negate()),ml_z_normalize(lastx.negate()),1] + :[0,ml_z_normalize(a),ml_z_normalize(lastx),1]} + function ml_z_testbit(z,pos) + {z = bigInt(z);return z.shiftRight(pos).and(bigInt(1)).toJSNumber() | 0} function caml_array_get(array,index) {if(index < 0 || index >= array.length - 1)caml_array_bound_error(); return array[index + 1]} function caml_spacetime_only_works_for_native_code() {caml_failwith("Spacetime profiling only works for native code")} + function caml_int64_sub(x,y){return x.sub(y)} function caml_ml_seek_in_64(chanid,pos) {var chan=caml_ml_channels[chanid]; if(chan.refill != null)caml_raise_sys_error("Illegal seek"); chan.offset = caml_int64_to_float(pos); return 0} + function caml_int64_shift_left(x,s){return x.shift_left(s)} function caml_notequal(x,y){return + (caml_compare_val(x,y,false) != 0)} - function caml_int64_shift_left(x,s) - {s = s & 63; - if(s == 0)return x; - if(s < 24) - return [255, - x[1] << s & 0xffffff, - (x[2] << s | x[1] >> 24 - s) & 0xffffff, - (x[3] << s | x[2] >> 24 - s) & 0xffff]; - if(s < 48) - return [255, - 0, - x[1] << s - 24 & 0xffffff, - (x[2] << s - 24 | x[1] >> 48 - s) & 0xffff]; - return [255,0,0,x[1] << s - 48 & 0xffff]} + function ml_z_abs(z1){return ml_z_normalize(bigInt(z1).abs())} function caml_sys_const_int_size(){return 32} function caml_js_wrap_meth_callback(f) {return function() - {return caml_call_gen(f,raw_array_cons(arguments,this))}} + {var len=arguments.length,args=new Array(len + 1); + args[0] = this; + for(var i=0;i < len;i++)args[i + 1] = arguments[i]; + return caml_call_gen(f,args)}} function caml_is_js(){return 1} var Base_internalhash_fold_float=caml_hash_mix_float; function caml_ba_dim(ba,i) {if(i < 0 || i >= ba.dims.length)caml_invalid_argument("Bigarray.dim"); return ba.dims[i]} function caml_ba_dim_1(ba){return caml_ba_dim(ba,0)} + function ml_z_sqrt(z1) + {var z=bigInt(z1),zero=bigInt(0); + if(z.lt(zero)) + caml_invalid_argument("Z.sqrt: square root of a negative number"); + return ml_z_root(z,2)} function unix_localtime(t) {var d=new Date(t * 1000), @@ -2247,14 +3930,15 @@ doy, d.getTimezoneOffset() < stdTimezoneOffset | 0]} function caml_js_meth_call(o,f,args) - {return o[f.toString()].apply(o,caml_js_from_array(args))} + {return o[caml_jsstring_of_string(f)].apply(o,caml_js_from_array(args))} function caml_weak_create(n) {if(n < 0)caml_invalid_argument("Weak.create"); var x=[251,"caml_ephe_list_head"]; x.length = caml_ephe_key_offset + n; return x} var caml_ephe_create=caml_weak_create; - function caml_js_to_byte_string(s){return caml_new_string(s)} + function caml_js_to_byte_string(s){return caml_string_of_jsbytes(s)} + function ml_z_probab_prime(z,i){return bigInt(z).isProbablePrime(i)?1:0} function unix_mktime(tm) {var d=new Date(tm[6] + 1900,tm[5],tm[4],tm[3],tm[2],tm[1]).getTime(), @@ -2267,10 +3951,14 @@ {res = res.joo_tramp.apply(null,res.joo_args);c++} return res} function caml_bytes_get64(s,i) - {if(i >>> 0 >= s.l - 7)caml_string_bound_error(); + {if(i >>> 0 >= s.l - 7)caml_bytes_bound_error(); var a=new Array(8); - for(var j=0;j < 8;j++)a[7 - j] = caml_string_unsafe_get(s,i + j); + for(var j=0;j < 8;j++)a[7 - j] = caml_bytes_unsafe_get(s,i + j); return caml_int64_of_bytes(a)} + function ml_z_rem(z1,z2) + {z2 = bigInt(z2); + if(z2.equals(bigInt(0)))caml_raise_zero_divide(); + return ml_z_normalize(bigInt(z1).mod(z2))} function caml_weak_set(x,i,v) {if(i < 0 || caml_ephe_key_offset + i >= x.length) caml_invalid_argument("Weak.set"); @@ -2280,8 +3968,10 @@ {var root=resolve_fs_device(name),ok=root.device.unlink(root.rest); if(ok == 0)caml_raise_no_such_file(name); return 0} + function caml_string_bound_error() + {caml_invalid_argument("index out of bounds")} function caml_string_get32(s,i) - {if(i >>> 0 >= s.l - 3)caml_string_bound_error(); + {if(i >>> 0 >= caml_ml_string_length(s) - 3)caml_string_bound_error(); var b1=caml_string_unsafe_get(s,i), b2=caml_string_unsafe_get(s,i + 1), @@ -2300,10 +3990,22 @@ function caml_sys_const_max_wosize(){return 0x7FFFFFFF / 4 | 0} function caml_ephe_unset_key(x,i){return caml_weak_set(x,i,0)} function Base_am_testing(x){return 0} + function ml_z_to_int(z1) + {if(z1 == (z1 | 0))return z1 | 0; + caml_raise_constant(caml_named_value("ml_z_overflow"))} function caml_bytes_lessthan(s1,s2) {s1.t & 6 && caml_convert_string_to_bytes(s1); s2.t & 6 && caml_convert_string_to_bytes(s2); return s1.c < s2.c?1:0} + function caml_gr_fill_poly(ar) + {var s=caml_gr_state_get(); + s.context.beginPath(); + s.context.moveTo(ar[1][1],s.height - ar[1][2]); + for(var i=2;i < ar.length;i++) + s.context.lineTo(ar[i][1],s.height - ar[i][2]); + s.context.lineTo(ar[1][1],s.height - ar[1][2]); + s.context.fill(); + return 0} function caml_gc_quick_stat(){return [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]} function caml_raise_end_of_file() {caml_raise_constant(caml_global_data.End_of_file)} @@ -2329,13 +4031,15 @@ file.read_one(o + 3); chan.offset += 4; return r} + function caml_gr_display_mode() + {caml_failwith("caml_gr_display_mode not Implemented")} + function nth_digit_nat(nat,ofs){return nat.data[ofs]} function caml_array_blit(a1,i1,a2,i2,len) {if(i2 <= i1) for(var j=1;j <= len;j++)a2[i2 + j] = a1[i1 + j]; else for(var j=len;j >= 1;j--)a2[i2 + j] = a1[i1 + j]; return 0} - function nth_digit_nat(nat,ofs){return nat.data[ofs]} function caml_float_of_string(s) {var res; s = caml_jsbytes_of_string(s); @@ -2355,13 +4059,13 @@ if(/^\+?inf(inity)?$/i.test(s))return Infinity; if(/^-inf(inity)?$/i.test(s))return - Infinity; caml_failwith("float_of_string")} - function caml_sys_getcwd(){return caml_new_string(caml_current_dir)} + function caml_sys_getcwd() + {return caml_string_of_jsbytes(caml_current_dir)} function caml_sys_const_big_endian(){return 0} function caml_list_to_js_array(l) {var a=[];for(;l !== 0;l = l[2])a.push(l[1]);return a} - var caml_legacy_custom_code=false; - function caml_ml_string_length(s){return s.l} var + caml_legacy_custom_code=false, caml_output_val= function() {function Writer(){this.chunk = []} @@ -2426,10 +4130,10 @@ else {intern_obj_table.store(v);return false}} function extern_rec(v) - {if(v.caml_custom || v instanceof Array && v[0] === 255) + {if(v.caml_custom) {if(memo(v))return; var - name=v.caml_custom || "_j", + name=v.caml_custom, ops=caml_custom_ops[name], sz_32_64=[0,0]; if(! ops.serialize) @@ -2477,9 +4181,12 @@ writer.size_64 += v.length; if(v.length > 1)stack.push(v,1)} else - if(v instanceof MlBytes) - {if(memo(v))return; - var len=caml_ml_string_length(v); + if(caml_is_ml_bytes(v)) + {if(! caml_is_ml_bytes(caml_string_of_jsbytes(""))) + caml_failwith + ("output_value: [Bytes.t] cannot safely be marshaled with [--enable use-js-string]"); + if(memo(v))return; + var len=caml_ml_bytes_length(v); if(len < 0x20) writer.write(8,0x20 + len); else @@ -2488,25 +4195,39 @@ else writer.write_code(32,0x0A,len); for(var i=0;i < len;i++) - writer.write(8,caml_string_unsafe_get(v,i)); + writer.write(8,caml_bytes_unsafe_get(v,i)); writer.size_32 += 1 + ((len + 4) / 4 | 0); writer.size_64 += 1 + ((len + 8) / 8 | 0)} else - if(v != (v | 0)) - {var type_of_v=typeof v; - caml_failwith - ("output_value: abstract value (" + type_of_v + ")")} + if(caml_is_ml_string(v)) + {var len=caml_ml_string_length(v); + if(len < 0x20) + writer.write(8,0x20 + len); + else + if(len < 0x100) + writer.write_code(8,0x09,len); + else + writer.write_code(32,0x0A,len); + for(var i=0;i < len;i++) + writer.write(8,caml_string_unsafe_get(v,i)); + writer.size_32 += 1 + ((len + 4) / 4 | 0); + writer.size_64 += 1 + ((len + 8) / 8 | 0)} else - if(v >= 0 && v < 0x40) - writer.write(8,0X40 + v); + if(v != (v | 0)) + {var type_of_v=typeof v; + caml_failwith + ("output_value: abstract value (" + type_of_v + ")")} else - if(v >= - (1 << 7) && v < 1 << 7) - writer.write_code(8,0x00,v); + if(v >= 0 && v < 0x40) + writer.write(8,0X40 + v); else - if(v >= - (1 << 15) && v < 1 << 15) - writer.write_code(16,0x01,v); + if(v >= - (1 << 7) && v < 1 << 7) + writer.write_code(8,0x00,v); else - writer.write_code(32,0x02,v)} + if(v >= - (1 << 15) && v < 1 << 15) + writer.write_code(16,0x01,v); + else + writer.write_code(32,0x02,v)} extern_rec(v); while(stack.length > 0) {var i=stack.pop(),v=stack.pop(); @@ -2520,11 +4241,10 @@ function caml_output_value_to_string(v,flags) {return caml_string_of_array(caml_output_val(v,flags))} function caml_raise_not_a_dir(name) - {name = name instanceof MlBytes?name.toString():name; + {name = caml_jsbytes_of_string(name); caml_raise_sys_error(name + ": Not a directory")} function caml_sys_system_command(cmd) - {var cmd=cmd.toString(); - joo_global_object.console.log(cmd); + {var cmd=caml_jsstring_of_string(cmd); if (typeof require != @@ -2533,9 +4253,16 @@ require("child_process") && require("child_process").execSync) - try {require("child_process").execSync(cmd);return 0}catch(e){return 1} + try + {require("child_process").execSync(cmd,{stdio:"inherit"});return 0} + catch(e){return 1} else return 127} + function unix_isatty(fileDescriptor) + {if(fs_node_supported()) + {var tty=require("tty");return tty.isatty(fileDescriptor)} + else + return false} function caml_js_error_of_exception(exn) {if(exn.js_error)return exn.js_error;return null} function deserialize_nat(reader,sz) @@ -2547,6 +4274,9 @@ {caml_custom_ops["_nat"] = {deserialize:deserialize_nat,serialize:serialize_nat,hash:caml_hash_nat}} + function ml_z_succ(z1){return ml_z_normalize(bigInt(z1).next())} + function caml_gr_open_subwindow(a,b,c,d) + {caml_failwith("caml_gr_open_subwindow not Implemented")} function js_print_stdout(s) {var s=caml_utf16_of_utf8(s),g=joo_global_object; if(g.process && g.process.stdout && g.process.stdout.write) @@ -2557,21 +4287,162 @@ v && v.log && v.log(s)}} function caml_copysign_float(x,y) {if(y == 0)y = 1 / y;x = Math.abs(x);return y < 0?- x:x} + function caml_gr_set_text_size(size) + {var s=caml_gr_state_get(); + s.text_size = size; + s.context.font = s.text_size + "px " + caml_jsstring_of_string(s.font); + return 0} + var + caml_md5_bytes= + function() + {function add(x,y){return x + y | 0} + function xx(q,a,b,x,s,t) + {a = add(add(a,q),add(x,t));return add(a << s | a >>> 32 - s,b)} + function ff(a,b,c,d,x,s,t){return xx(b & c | ~ b & d,a,b,x,s,t)} + function gg(a,b,c,d,x,s,t){return xx(b & d | c & ~ d,a,b,x,s,t)} + function hh(a,b,c,d,x,s,t){return xx(b ^ c ^ d,a,b,x,s,t)} + function ii(a,b,c,d,x,s,t){return xx(c ^ (b | ~ d),a,b,x,s,t)} + function md5(buffer,length) + {var i=length; + buffer[i >> 2] |= 0x80 << 8 * (i & 3); + for(i = (i & ~ 0x3) + 8;(i & 0x3F) < 60;i += 4) + buffer[(i >> 2) - 1] = 0; + buffer[(i >> 2) - 1] = length << 3; + buffer[i >> 2] = length >> 29 & 0x1FFFFFFF; + var w=[0x67452301,0xEFCDAB89,0x98BADCFE,0x10325476]; + for(i = 0;i < buffer.length;i += 16) + {var a=w[0],b=w[1],c=w[2],d=w[3]; + a = ff(a,b,c,d,buffer[i + 0],7,0xD76AA478); + d = ff(d,a,b,c,buffer[i + 1],12,0xE8C7B756); + c = ff(c,d,a,b,buffer[i + 2],17,0x242070DB); + b = ff(b,c,d,a,buffer[i + 3],22,0xC1BDCEEE); + a = ff(a,b,c,d,buffer[i + 4],7,0xF57C0FAF); + d = ff(d,a,b,c,buffer[i + 5],12,0x4787C62A); + c = ff(c,d,a,b,buffer[i + 6],17,0xA8304613); + b = ff(b,c,d,a,buffer[i + 7],22,0xFD469501); + a = ff(a,b,c,d,buffer[i + 8],7,0x698098D8); + d = ff(d,a,b,c,buffer[i + 9],12,0x8B44F7AF); + c = ff(c,d,a,b,buffer[i + 10],17,0xFFFF5BB1); + b = ff(b,c,d,a,buffer[i + 11],22,0x895CD7BE); + a = ff(a,b,c,d,buffer[i + 12],7,0x6B901122); + d = ff(d,a,b,c,buffer[i + 13],12,0xFD987193); + c = ff(c,d,a,b,buffer[i + 14],17,0xA679438E); + b = ff(b,c,d,a,buffer[i + 15],22,0x49B40821); + a = gg(a,b,c,d,buffer[i + 1],5,0xF61E2562); + d = gg(d,a,b,c,buffer[i + 6],9,0xC040B340); + c = gg(c,d,a,b,buffer[i + 11],14,0x265E5A51); + b = gg(b,c,d,a,buffer[i + 0],20,0xE9B6C7AA); + a = gg(a,b,c,d,buffer[i + 5],5,0xD62F105D); + d = gg(d,a,b,c,buffer[i + 10],9,0x02441453); + c = gg(c,d,a,b,buffer[i + 15],14,0xD8A1E681); + b = gg(b,c,d,a,buffer[i + 4],20,0xE7D3FBC8); + a = gg(a,b,c,d,buffer[i + 9],5,0x21E1CDE6); + d = gg(d,a,b,c,buffer[i + 14],9,0xC33707D6); + c = gg(c,d,a,b,buffer[i + 3],14,0xF4D50D87); + b = gg(b,c,d,a,buffer[i + 8],20,0x455A14ED); + a = gg(a,b,c,d,buffer[i + 13],5,0xA9E3E905); + d = gg(d,a,b,c,buffer[i + 2],9,0xFCEFA3F8); + c = gg(c,d,a,b,buffer[i + 7],14,0x676F02D9); + b = gg(b,c,d,a,buffer[i + 12],20,0x8D2A4C8A); + a = hh(a,b,c,d,buffer[i + 5],4,0xFFFA3942); + d = hh(d,a,b,c,buffer[i + 8],11,0x8771F681); + c = hh(c,d,a,b,buffer[i + 11],16,0x6D9D6122); + b = hh(b,c,d,a,buffer[i + 14],23,0xFDE5380C); + a = hh(a,b,c,d,buffer[i + 1],4,0xA4BEEA44); + d = hh(d,a,b,c,buffer[i + 4],11,0x4BDECFA9); + c = hh(c,d,a,b,buffer[i + 7],16,0xF6BB4B60); + b = hh(b,c,d,a,buffer[i + 10],23,0xBEBFBC70); + a = hh(a,b,c,d,buffer[i + 13],4,0x289B7EC6); + d = hh(d,a,b,c,buffer[i + 0],11,0xEAA127FA); + c = hh(c,d,a,b,buffer[i + 3],16,0xD4EF3085); + b = hh(b,c,d,a,buffer[i + 6],23,0x04881D05); + a = hh(a,b,c,d,buffer[i + 9],4,0xD9D4D039); + d = hh(d,a,b,c,buffer[i + 12],11,0xE6DB99E5); + c = hh(c,d,a,b,buffer[i + 15],16,0x1FA27CF8); + b = hh(b,c,d,a,buffer[i + 2],23,0xC4AC5665); + a = ii(a,b,c,d,buffer[i + 0],6,0xF4292244); + d = ii(d,a,b,c,buffer[i + 7],10,0x432AFF97); + c = ii(c,d,a,b,buffer[i + 14],15,0xAB9423A7); + b = ii(b,c,d,a,buffer[i + 5],21,0xFC93A039); + a = ii(a,b,c,d,buffer[i + 12],6,0x655B59C3); + d = ii(d,a,b,c,buffer[i + 3],10,0x8F0CCC92); + c = ii(c,d,a,b,buffer[i + 10],15,0xFFEFF47D); + b = ii(b,c,d,a,buffer[i + 1],21,0x85845DD1); + a = ii(a,b,c,d,buffer[i + 8],6,0x6FA87E4F); + d = ii(d,a,b,c,buffer[i + 15],10,0xFE2CE6E0); + c = ii(c,d,a,b,buffer[i + 6],15,0xA3014314); + b = ii(b,c,d,a,buffer[i + 13],21,0x4E0811A1); + a = ii(a,b,c,d,buffer[i + 4],6,0xF7537E82); + d = ii(d,a,b,c,buffer[i + 11],10,0xBD3AF235); + c = ii(c,d,a,b,buffer[i + 2],15,0x2AD7D2BB); + b = ii(b,c,d,a,buffer[i + 9],21,0xEB86D391); + w[0] = add(a,w[0]); + w[1] = add(b,w[1]); + w[2] = add(c,w[2]); + w[3] = add(d,w[3])} + var t=new Array(16); + for(var i=0;i < 4;i++) + for(var j=0;j < 4;j++)t[i * 4 + j] = w[i] >> 8 * j & 0xFF; + return t} + return function(s,ofs,len) + {var buf=[]; + switch(s.t & 6) + {default:caml_convert_string_to_bytes(s);case 0: + var b=s.c; + for(var i=0;i < len;i += 4) + {var j=i + ofs; + buf[i >> 2] + = + b.charCodeAt(j) + | + b.charCodeAt(j + 1) + << + 8 + | + b.charCodeAt(j + 2) + << + 16 + | + b.charCodeAt(j + 3) + << + 24} + for(;i < len;i++) + buf[i >> 2] |= b.charCodeAt(i + ofs) << 8 * (i & 3); + break; + case 4: + var a=s.c; + for(var i=0;i < len;i += 4) + {var j=i + ofs; + buf[i >> 2] + = + a[j] + | + a[j + 1] + << + 8 + | + a[j + 2] + << + 16 + | + a[j + 3] + << + 24} + for(;i < len;i++)buf[i >> 2] |= a[i + ofs] << 8 * (i & 3) + } + return caml_string_of_array(md5(buf,len))}} + (); function caml_ba_set_generic(ba,i,v) {ba.set(ba.offset(caml_js_from_array(i)),v);return 0} function caml_ephe_set_key(x,i,v){return caml_weak_set(x,i,[0,v])} - function caml_string_lessequal(s1,s2) + function caml_bytes_lessequal(s1,s2) {s1.t & 6 && caml_convert_string_to_bytes(s1); s2.t & 6 && caml_convert_string_to_bytes(s2); return s1.c <= s2.c?1:0} + function caml_string_lessequal(s1,s2){return caml_bytes_lessequal(s1,s2)} function caml_string_greaterequal(s1,s2) {return caml_string_lessequal(s2,s1)} - function caml_int64_add(x,y) - {var - z1=x[1] + y[1], - z2=x[2] + y[2] + (z1 >> 24), - z3=x[3] + y[3] + (z2 >> 24); - return [255,z1 & 0xffffff,z2 & 0xffffff,z3 & 0xffff]} + function caml_int64_add(x,y){return x.add(y)} function caml_nextafter_float(x,y) {if(isNaN(x) || isNaN(y))return NaN; if(x == y)return y; @@ -2582,28 +4453,10 @@ else bits = caml_int64_sub(bits,one); return caml_int64_float_of_bits(bits)} + function caml_gr_size_y(){var s=caml_gr_state_get();return s.height} function caml_ml_pos_in(chanid){return caml_ml_channels[chanid].offset} - function caml_int64_and(x,y) - {return [255,x[1] & y[1],x[2] & y[2],x[3] & y[3]]} - function caml_int64_mul(x,y) - {var - z1=x[1] * y[1], - z2=(z1 * caml_int64_offset | 0) + x[2] * y[1] + x[1] * y[2], - z3= - (z2 * caml_int64_offset | 0) - + - x[3] - * - y[1] - + - x[2] - * - y[2] - + - x[1] - * - y[3]; - return [255,z1 & 0xffffff,z2 & 0xffffff,z3 & 0xffff]} + function caml_int64_and(x,y){return x.and(y)} + function caml_int64_mul(x,y){return x.mul(y)} function Base_int_math_int64_pow_stub(base,exponent) {var one=[255,1,0,0],mul=[one,base,one,one],res=one; while(! caml_int64_is_zero(exponent)) @@ -2617,7 +4470,7 @@ function caml_std_output(chanid,s) {var chan=caml_ml_channels[chanid], - str=caml_new_string(s), + str=caml_string_of_jsbytes(s), slen=caml_ml_string_length(str); chan.file.write(chan.offset,str,0,slen); chan.offset += slen; @@ -2660,12 +4513,12 @@ flags = flags[2]} if(f.rdonly && f.wronly) caml_raise_sys_error - (name.toString() + (caml_jsbytes_of_string(name) + " : flags Open_rdonly and Open_wronly are not compatible"); if(f.text && f.binary) caml_raise_sys_error - (name.toString() + (caml_jsbytes_of_string(name) + " : flags Open_text and Open_binary are not compatible"); var @@ -2679,8 +4532,11 @@ (1,js_print_stdout,new MlFakeFile(caml_create_bytes(0))); caml_sys_open_internal (2,js_print_stderr,new MlFakeFile(caml_create_bytes(0))); - function MlBytesReader(s,i){this.s = caml_jsbytes_of_string(s);this.i = i} - MlBytesReader.prototype + function ml_z_gcd(z1,z2) + {return ml_z_normalize(bigInt.gcd(bigInt(z1),bigInt(z2)).abs())} + function MlStringReader(s,i) + {this.s = caml_jsbytes_of_string(s);this.i = i} + MlStringReader.prototype = {read8u:function(){return this.s.charCodeAt(this.i++)}, read8s:function(){return this.s.charCodeAt(this.i++) << 24 >> 24}, @@ -2734,7 +4590,7 @@ function(len) {var i=this.i; this.i = i + len; - return caml_new_string(this.s.substring(i,i + len))}}; + return caml_string_of_jsbytes(this.s.substring(i,i + len))}}; function caml_float_of_bytes(a) {return caml_int64_float_of_bits(caml_int64_of_bytes(a))} function caml_input_value_from_reader(reader,ofs) @@ -2884,10 +4740,240 @@ v[d] = intern_rec()} if(typeof ofs != "number")ofs[0] = reader.i; return res} + function caml_string_of_bytes(s){return s} function caml_input_value_from_bytes(s,ofs) - {var reader=new MlBytesReader(s,typeof ofs == "number"?ofs:ofs[0]); + {var + reader= + new + MlStringReader + (caml_string_of_bytes(s),typeof ofs == "number"?ofs:ofs[0]); return caml_input_value_from_reader(reader,ofs)} - function caml_js_from_string(s){return s.toString()} + function ml_z_hamdist(z1,z2) + {if(bigInt(z1).isNegative() != bigInt(z2).isNegative()) + caml_raise_constant(caml_named_value("ml_z_overflow")); + if + ((z1 != (z1 | 0) || z2 != (z2 | 0)) + && + (bigInt(z1).isNegative() || bigInt(z2).isNegative())) + caml_invalid_argument("Z.hamdist: negative arguments"); + return ml_z_popcount(bigInt(z1).xor(bigInt(z2)))} + function ml_z_mul(z1,z2) + {return ml_z_normalize(bigInt(z1).multiply(bigInt(z2)))} + function caml_string_get(s,i) + {if(i >>> 0 >= caml_ml_string_length(s))caml_string_bound_error(); + return caml_string_unsafe_get(s,i)} + var + re_match= + function() + {var + re_word_letters= + [0x00, + 0x00, + 0x00, + 0x00, + 0x00, + 0x00, + 0xFF, + 0x03, + 0xFE, + 0xFF, + 0xFF, + 0x87, + 0xFE, + 0xFF, + 0xFF, + 0x07, + 0x00, + 0x00, + 0x00, + 0x00, + 0x00, + 0x00, + 0x00, + 0x00, + 0xFF, + 0xFF, + 0x7F, + 0xFF, + 0xFF, + 0xFF, + 0x7F, + 0xFF], + opcodes= + {CHAR:0, + CHARNORM:1, + STRING:2, + STRINGNORM:3, + CHARCLASS:4, + BOL:5, + EOL:6, + WORDBOUNDARY:7, + BEGGROUP:8, + ENDGROUP:9, + REFGROUP:10, + ACCEPT:11, + SIMPLEOPT:12, + SIMPLESTAR:13, + SIMPLEPLUS:14, + GOTO:15, + PUSHBACK:16, + SETMARK:17, + CHECKPROGRESS:18}; + function is_word_letter(c) + {return re_word_letters[c >> 3] >> (c & 7) & 1} + function in_bitset(s,i) + {return caml_string_get(s,i >> 3) >> (i & 7) & 1} + function re_match_impl(re,s,pos,partial) + {var + prog=caml_js_from_array(re[1]), + cpool=caml_js_from_array(re[2]), + normtable=caml_jsbytes_of_string(re[3]), + numgroups=re[4] | 0, + numregisters=re[5] | 0, + startchars=re[6] | 0, + s=caml_array_of_string(s), + pc=0, + quit=false, + stack=[], + groups=new Array(numgroups), + re_register=new Array(numregisters); + for(var i=0;i < groups.length;i++)groups[i] = {start:- 1,end:- 1}; + groups[0].start = pos; + function backtrack() + {while(stack.length) + {var item=stack.pop(); + if(item.undo) + item.undo.obj[item.undo.prop] = item.undo.value; + else + if(item.pos){pc = item.pos.pc;pos = item.pos.txt;return}} + quit = true} + function push(item){stack.push(item)} + function accept() + {groups[0].end = pos; + var result=new Array(1 + groups.length * 2); + result[0] = 0; + for(var i=0;i < groups.length;i++) + {var g=groups[i]; + if(g.start < 0 || g.end < 0)g.start = g.end = - 1; + result[2 * i + 1] = g.start; + result[2 * i + 1 + 1] = g.end} + return result} + function prefix_match() + {if(partial)return accept();else backtrack()} + while(! quit) + {var + op=prog[pc] & 0xff, + sarg=prog[pc] >> 8, + uarg=sarg & 0xff, + c=s[pos], + group; + pc++; + switch(op) + {case opcodes.CHAR: + if(pos === s.length){prefix_match();break} + if(c === uarg)pos++;else backtrack(); + break; + case opcodes.CHARNORM: + if(pos === s.length){prefix_match();break} + if(normtable.charCodeAt(c) === uarg)pos++;else backtrack(); + break; + case opcodes.STRING: + for + (var arg=caml_jsbytes_of_string(cpool[uarg]),i=0; + i + < + arg.length; + i++) + {if(pos === s.length){prefix_match();break} + if(c === arg.charCodeAt(i)) + c = s[++pos]; + else + {backtrack();break}} + break; + case opcodes.STRINGNORM: + for + (var arg=caml_jsbytes_of_string(cpool[uarg]),i=0; + i + < + arg.length; + i++) + {if(pos === s.length){prefix_match();break} + if(normtable.charCodeAt(c) === arg.charCodeAt(i)) + c = s[++pos]; + else + {backtrack();break}} + break; + case opcodes.CHARCLASS: + if(pos === s.length){prefix_match();break} + if(in_bitset(cpool[uarg],c))pos++;else backtrack(); + break; + case opcodes.BOL: + if(pos > 0 && s[pos - 1] != 10)backtrack();break; + case opcodes.EOL: + if(pos < s.length && s[pos] != 10)backtrack();break; + case opcodes.WORDBOUNDARY: + if(pos == 0) + {if(pos === s.length){prefix_match();break} + if(is_word_letter(s[0]))break; + backtrack()} + else + if(pos === s.length) + {if(is_word_letter(s[pos - 1]))break;backtrack()} + else + {if(is_word_letter(s[pos - 1]) != is_word_letter(s[pos])) + break; + backtrack()} + break; + case opcodes.BEGGROUP: + group = groups[uarg]; + push({undo:{obj:group,prop:"start",value:group.start}}); + group.start = pos; + break; + case opcodes.ENDGROUP: + group = groups[uarg]; + push({undo:{obj:group,prop:"end",value:group.end}}); + group.end = pos; + break; + case opcodes.REFGROUP: + group = groups[uarg]; + if(group.start < 0 || group.end < 0){backtrack();break} + for(var i=group.start;i < group.end;i++) + {if(pos === s.length){prefix_match();break} + if(s[i] != s[pos]){backtrack();break} + pos++} + break; + case opcodes.SIMPLEOPT:if(in_bitset(cpool[uarg],c))pos++;break; + case opcodes.SIMPLESTAR: + while(in_bitset(cpool[uarg],c))c = s[++pos];break; + case opcodes.SIMPLEPLUS: + if(pos === s.length){prefix_match();break} + if(in_bitset(cpool[uarg],c)) + do c = s[++pos];while(in_bitset(cpool[uarg],c)); + else + backtrack(); + break; + case opcodes.ACCEPT:return accept(); + case opcodes.GOTO:pc = pc + sarg;break; + case opcodes.PUSHBACK:push({pos:{pc:pc + sarg,txt:pos}});break; + case opcodes.SETMARK: + push + ({undo:{obj:re_register,prop:uarg,value:re_register[uarg]}}); + re_register[uarg] = pos; + break; + case opcodes.CHECKPROGRESS: + if(re_register[uarg] === pos)backtrack();break; + default:throw new Error("Invalid bytecode")}} + return 0} + return re_match_impl} + (); + function re_search_backward(re,s,pos) + {if(pos < 0 || pos > caml_ml_string_length(s)) + caml_invalid_argument("Str.search_backward"); + while(pos >= 0){var res=re_match(re,s,pos,0);if(res)return res;pos--} + return [0]} + function ml_z_logand(z1,z2) + {return ml_z_normalize(bigInt(z1).and(bigInt(z2)))} + function caml_js_from_string(s){return caml_jsstring_of_string(s)} function caml_ba_sub(ba,ofs,len) {var changed_dim,mul=1; if(ba.layout == 0) @@ -2907,19 +4993,18 @@ return caml_ba_create_unsafe(ba.kind,ba.layout,new_dims,new_data)} function caml_gc_full_major(){return 0} function caml_bytes_set32(s,i,i32) - {if(i >>> 0 >= s.l - 3)caml_string_bound_error(); + {if(i >>> 0 >= s.l - 3)caml_bytes_bound_error(); var b4=0xFF & i32 >> 24, b3=0xFF & i32 >> 16, b2=0xFF & i32 >> 8, b1=0xFF & i32; - caml_string_unsafe_set(s,i + 0,b1); - caml_string_unsafe_set(s,i + 1,b2); - caml_string_unsafe_set(s,i + 2,b3); - caml_string_unsafe_set(s,i + 3,b4); + caml_bytes_unsafe_set(s,i + 0,b1); + caml_bytes_unsafe_set(s,i + 1,b2); + caml_bytes_unsafe_set(s,i + 2,b3); + caml_bytes_unsafe_set(s,i + 3,b4); return 0} - function caml_int64_is_minus_one(x) - {return x[3] == 0xffff && (x[1] & x[2]) == 0xffffff} + function caml_gr_sigio_signal(){return 0} function caml_ba_uint8_set32(ba,i0,v) {var ofs=ba.offset(i0); if(ofs + 3 >= ba.data.length)caml_array_bound_error(); @@ -2928,177 +5013,135 @@ ba.set(ofs + 2,v >>> 16 & 0xff); ba.set(ofs + 3,v >>> 24 & 0xff); return 0} + function ml_z_div_rem(z1,z2){return [0,ml_z_div(z1,z2),ml_z_rem(z1,z2)]} function caml_sys_const_ostype_unix(){return 1} function caml_signbit_float(x){if(x == 0)x = 1 / x;return x < 0?1:0} + function caml_gr_current_x(){var s=caml_gr_state_get();return s.x} + function caml_gr_set_line_width(w) + {var s=caml_gr_state_get(); + s.line_width = w; + s.context.lineWidth = w; + return 0} + function caml_gr_set_font(f) + {var s=caml_gr_state_get(); + s.font = f; + s.context.font = s.text_size + "px " + caml_jsstring_of_string(s.font); + return 0} + function caml_gr_set_color(color) + {var s=caml_gr_state_get(); + function convert(number) + {var str="" + number.toString(16); + while(str.length < 2)str = "0" + str; + return str} + var r=color >> 16 & 0xff,g=color >> 8 & 0xff,b=color >> 0 & 0xff; + s.color = color; + var c_str="#" + convert(r) + convert(g) + convert(b); + s.context.fillStyle = c_str; + s.context.strokeStyle = c_str; + return 0} + function caml_gr_moveto(x,y) + {var s=caml_gr_state_get();s.x = x;s.y = y;return 0} + function caml_gr_resize_window(w,h) + {var s=caml_gr_state_get(); + s.width = w; + s.height = h; + s.canvas.width = w; + s.canvas.height = h; + return 0} + function caml_gr_state_init() + {caml_gr_moveto(caml_gr_state.x,caml_gr_state.y); + caml_gr_resize_window(caml_gr_state.width,caml_gr_state.height); + caml_gr_set_line_width(caml_gr_state.line_width); + caml_gr_set_text_size(caml_gr_state.text_size); + caml_gr_set_font(caml_gr_state.font); + caml_gr_set_color(caml_gr_state.color); + caml_gr_set_window_title(caml_gr_state.title); + caml_gr_state.context.textBaseline = "bottom"} + function caml_ba_kind_of_typed_array(ta) + {var g=joo_global_object,kind; + if(ta instanceof g.Float32Array) + kind = 0; + else + if(ta instanceof g.Float64Array) + kind = 1; + else + if(ta instanceof g.Int8Array) + kind = 2; + else + if(ta instanceof g.Uint8Array) + kind = 3; + else + if(ta instanceof g.Int16Array) + kind = 4; + else + if(ta instanceof g.Uint16Array) + kind = 5; + else + if(ta instanceof g.Int32Array) + kind = 6; + else + if(ta instanceof g.Uint32Array) + kind = 6; + else + caml_invalid_argument + ("caml_ba_kind_of_typed_array: unsupported kind"); + return kind} + function caml_ba_from_typed_array(ta) + {var kind=caml_ba_kind_of_typed_array(ta); + return caml_ba_create_unsafe(kind,0,[ta.length],ta)} function caml_ml_seek_out(chanid,pos) {caml_ml_flush(chanid);caml_ml_channels[chanid].offset = pos;return 0} - function caml_restore_raw_backtrace(exn,bt){return 0} function caml_js_typeof(o){return typeof o} + function caml_restore_raw_backtrace(exn,bt){return 0} + function caml_gr_lineto(x,y) + {var s=caml_gr_state_get(); + s.context.beginPath(); + s.context.moveTo(s.x,s.height - s.y); + s.context.lineTo(x,s.height - y); + s.context.stroke(); + s.x = x; + s.y = y; + return 0} function caml_js_wrap_meth_callback_unsafe(f) - {return function(){f.apply(null,raw_array_cons(arguments,this))}} + {return function() + {var len=arguments.length,args=new Array(len + 1); + args[0] = this; + for(var i=0;i < len;i++)args[i + 1] = arguments[i]; + return f.apply(null,args)}} function caml_ba_dim_3(ba){return caml_ba_dim(ba,2)} var caml_ephe_data_offset=2; function caml_ephe_check_data(x) {return x[caml_ephe_data_offset] === undefined?0:1} function caml_bytes_get16(s,i) - {if(i >>> 0 >= s.l - 1)caml_string_bound_error(); - var b1=caml_string_unsafe_get(s,i),b2=caml_string_unsafe_get(s,i + 1); + {if(i >>> 0 >= s.l - 1)caml_bytes_bound_error(); + var b1=caml_bytes_unsafe_get(s,i),b2=caml_bytes_unsafe_get(s,i + 1); return b2 << 8 | b1} function caml_obj_make_forward(b,v){b[0] = 250;b[1] = v;return 0} function caml_js_from_bool(x){return ! ! x} function caml_ml_set_channel_name(){return 0} + function caml_gr_close_graph() + {var s=caml_gr_state_get(); + s.canvas.width = 0; + s.canvas.height = 0; + return 0} var Base_internalhash_fold_int=caml_hash_mix_int; function caml_create_string(len) {if(len < 0)caml_invalid_argument("String.create"); return new MlBytes(len?2:9,"",len)} function Base_int_math_nativeint_clz(x){return Base_int_math_int32_clz(x)} - var - caml_md5_string= - function() - {function add(x,y){return x + y | 0} - function xx(q,a,b,x,s,t) - {a = add(add(a,q),add(x,t));return add(a << s | a >>> 32 - s,b)} - function ff(a,b,c,d,x,s,t){return xx(b & c | ~ b & d,a,b,x,s,t)} - function gg(a,b,c,d,x,s,t){return xx(b & d | c & ~ d,a,b,x,s,t)} - function hh(a,b,c,d,x,s,t){return xx(b ^ c ^ d,a,b,x,s,t)} - function ii(a,b,c,d,x,s,t){return xx(c ^ (b | ~ d),a,b,x,s,t)} - function md5(buffer,length) - {var i=length; - buffer[i >> 2] |= 0x80 << 8 * (i & 3); - for(i = (i & ~ 0x3) + 8;(i & 0x3F) < 60;i += 4) - buffer[(i >> 2) - 1] = 0; - buffer[(i >> 2) - 1] = length << 3; - buffer[i >> 2] = length >> 29 & 0x1FFFFFFF; - var w=[0x67452301,0xEFCDAB89,0x98BADCFE,0x10325476]; - for(i = 0;i < buffer.length;i += 16) - {var a=w[0],b=w[1],c=w[2],d=w[3]; - a = ff(a,b,c,d,buffer[i + 0],7,0xD76AA478); - d = ff(d,a,b,c,buffer[i + 1],12,0xE8C7B756); - c = ff(c,d,a,b,buffer[i + 2],17,0x242070DB); - b = ff(b,c,d,a,buffer[i + 3],22,0xC1BDCEEE); - a = ff(a,b,c,d,buffer[i + 4],7,0xF57C0FAF); - d = ff(d,a,b,c,buffer[i + 5],12,0x4787C62A); - c = ff(c,d,a,b,buffer[i + 6],17,0xA8304613); - b = ff(b,c,d,a,buffer[i + 7],22,0xFD469501); - a = ff(a,b,c,d,buffer[i + 8],7,0x698098D8); - d = ff(d,a,b,c,buffer[i + 9],12,0x8B44F7AF); - c = ff(c,d,a,b,buffer[i + 10],17,0xFFFF5BB1); - b = ff(b,c,d,a,buffer[i + 11],22,0x895CD7BE); - a = ff(a,b,c,d,buffer[i + 12],7,0x6B901122); - d = ff(d,a,b,c,buffer[i + 13],12,0xFD987193); - c = ff(c,d,a,b,buffer[i + 14],17,0xA679438E); - b = ff(b,c,d,a,buffer[i + 15],22,0x49B40821); - a = gg(a,b,c,d,buffer[i + 1],5,0xF61E2562); - d = gg(d,a,b,c,buffer[i + 6],9,0xC040B340); - c = gg(c,d,a,b,buffer[i + 11],14,0x265E5A51); - b = gg(b,c,d,a,buffer[i + 0],20,0xE9B6C7AA); - a = gg(a,b,c,d,buffer[i + 5],5,0xD62F105D); - d = gg(d,a,b,c,buffer[i + 10],9,0x02441453); - c = gg(c,d,a,b,buffer[i + 15],14,0xD8A1E681); - b = gg(b,c,d,a,buffer[i + 4],20,0xE7D3FBC8); - a = gg(a,b,c,d,buffer[i + 9],5,0x21E1CDE6); - d = gg(d,a,b,c,buffer[i + 14],9,0xC33707D6); - c = gg(c,d,a,b,buffer[i + 3],14,0xF4D50D87); - b = gg(b,c,d,a,buffer[i + 8],20,0x455A14ED); - a = gg(a,b,c,d,buffer[i + 13],5,0xA9E3E905); - d = gg(d,a,b,c,buffer[i + 2],9,0xFCEFA3F8); - c = gg(c,d,a,b,buffer[i + 7],14,0x676F02D9); - b = gg(b,c,d,a,buffer[i + 12],20,0x8D2A4C8A); - a = hh(a,b,c,d,buffer[i + 5],4,0xFFFA3942); - d = hh(d,a,b,c,buffer[i + 8],11,0x8771F681); - c = hh(c,d,a,b,buffer[i + 11],16,0x6D9D6122); - b = hh(b,c,d,a,buffer[i + 14],23,0xFDE5380C); - a = hh(a,b,c,d,buffer[i + 1],4,0xA4BEEA44); - d = hh(d,a,b,c,buffer[i + 4],11,0x4BDECFA9); - c = hh(c,d,a,b,buffer[i + 7],16,0xF6BB4B60); - b = hh(b,c,d,a,buffer[i + 10],23,0xBEBFBC70); - a = hh(a,b,c,d,buffer[i + 13],4,0x289B7EC6); - d = hh(d,a,b,c,buffer[i + 0],11,0xEAA127FA); - c = hh(c,d,a,b,buffer[i + 3],16,0xD4EF3085); - b = hh(b,c,d,a,buffer[i + 6],23,0x04881D05); - a = hh(a,b,c,d,buffer[i + 9],4,0xD9D4D039); - d = hh(d,a,b,c,buffer[i + 12],11,0xE6DB99E5); - c = hh(c,d,a,b,buffer[i + 15],16,0x1FA27CF8); - b = hh(b,c,d,a,buffer[i + 2],23,0xC4AC5665); - a = ii(a,b,c,d,buffer[i + 0],6,0xF4292244); - d = ii(d,a,b,c,buffer[i + 7],10,0x432AFF97); - c = ii(c,d,a,b,buffer[i + 14],15,0xAB9423A7); - b = ii(b,c,d,a,buffer[i + 5],21,0xFC93A039); - a = ii(a,b,c,d,buffer[i + 12],6,0x655B59C3); - d = ii(d,a,b,c,buffer[i + 3],10,0x8F0CCC92); - c = ii(c,d,a,b,buffer[i + 10],15,0xFFEFF47D); - b = ii(b,c,d,a,buffer[i + 1],21,0x85845DD1); - a = ii(a,b,c,d,buffer[i + 8],6,0x6FA87E4F); - d = ii(d,a,b,c,buffer[i + 15],10,0xFE2CE6E0); - c = ii(c,d,a,b,buffer[i + 6],15,0xA3014314); - b = ii(b,c,d,a,buffer[i + 13],21,0x4E0811A1); - a = ii(a,b,c,d,buffer[i + 4],6,0xF7537E82); - d = ii(d,a,b,c,buffer[i + 11],10,0xBD3AF235); - c = ii(c,d,a,b,buffer[i + 2],15,0x2AD7D2BB); - b = ii(b,c,d,a,buffer[i + 9],21,0xEB86D391); - w[0] = add(a,w[0]); - w[1] = add(b,w[1]); - w[2] = add(c,w[2]); - w[3] = add(d,w[3])} - var t=new Array(16); - for(var i=0;i < 4;i++) - for(var j=0;j < 4;j++)t[i * 4 + j] = w[i] >> 8 * j & 0xFF; - return t} - return function(s,ofs,len) - {var buf=[]; - switch(s.t & 6) - {default:caml_convert_string_to_bytes(s);case 0: - var b=s.c; - for(var i=0;i < len;i += 4) - {var j=i + ofs; - buf[i >> 2] - = - b.charCodeAt(j) - | - b.charCodeAt(j + 1) - << - 8 - | - b.charCodeAt(j + 2) - << - 16 - | - b.charCodeAt(j + 3) - << - 24} - for(;i < len;i++) - buf[i >> 2] |= b.charCodeAt(i + ofs) << 8 * (i & 3); - break; - case 4: - var a=s.c; - for(var i=0;i < len;i += 4) - {var j=i + ofs; - buf[i >> 2] - = - a[j] - | - a[j + 1] - << - 8 - | - a[j + 2] - << - 16 - | - a[j + 3] - << - 24} - for(;i < len;i++)buf[i >> 2] |= a[i + ofs] << 8 * (i & 3) - } - return caml_string_of_array(md5(buf,len))}} - (); + function caml_md5_string(s,ofs,len) + {return caml_md5_bytes(caml_bytes_of_string(s),ofs,len)} function caml_md5_chan(chanid,len) {var chan=caml_ml_channels[chanid],chan_len=chan.file.length(); if(len < 0)len = chan_len - chan.offset; if(chan.offset + len > chan_len)caml_raise_end_of_file(); var buf=caml_create_bytes(len); chan.file.read(chan.offset,buf,0,len); - return caml_md5_string(buf,0,len)} + return caml_md5_string(caml_string_of_bytes(buf),0,len)} + function caml_obj_dup(x) + {var l=x.length,a=new Array(l); + for(var i=0;i < l;i++)a[i] = x[i]; + return a} function caml_weak_get_copy(x,i) {if(i < 0 || caml_ephe_key_offset + i >= x.length) caml_invalid_argument("Weak.get_copy"); @@ -3111,13 +5154,14 @@ {var chan=caml_ml_channels[chanid]; if(! chan.opened) caml_raise_sys_error("Cannot output to a closed channel"); - var string; + var bytes; if(offset == 0 && caml_ml_bytes_length(buffer) == len) - string = buffer; + bytes = buffer; else - {string = caml_create_bytes(len); - caml_blit_bytes(buffer,offset,string,0,len)} + {bytes = caml_create_bytes(len); + caml_blit_bytes(buffer,offset,bytes,0,len)} var + string=caml_string_of_bytes(bytes), jsstring=caml_jsbytes_of_string(string), id=jsstring.lastIndexOf("\n"); if(id < 0) @@ -3128,7 +5172,8 @@ chan.buffer += jsstring.substr(id + 1)} return 0} function caml_ml_output(chanid,buffer,offset,len) - {return caml_ml_output_bytes(chanid,buffer,offset,len)} + {return caml_ml_output_bytes + (chanid,caml_bytes_of_string(buffer),offset,len)} function caml_ephe_get_data(x) {return x[caml_ephe_data_offset] === undefined ?0 @@ -3157,19 +5202,45 @@ for(;i < l1;i++)a[i] = a1[i]; for(;i < l;i++,j++)a[i] = a2[j]; return a} - function caml_string_of_bytes(s){return s} function caml_ml_set_channel_refill(chanid,f) {caml_ml_channels[chanid].refill = f;return 0} + function ml_z_nextprime(z1) + {z1 = bigInt(z1); + var one=bigInt(1),two=bigInt(2); + if(z1.lt(one) || z1.equals(one))return 2; + if(z1.and(one).equals(one))z1 = z1.add(two);else z1 = z1.add(one); + while(true) + if(z1.isProbablePrime(25)) + return ml_z_normalize(z1); + else + z1 = z1.add(two)} function caml_js_expr(s) - {js_print_stderr("caml_js_expr: fallback to runtime evaluation"); - return eval(s.toString())} + {js_print_stderr("caml_js_expr: fallback to runtime evaluation\n"); + return eval(caml_jsstring_of_string(s))} + function caml_js_to_string(s){return caml_string_of_jsstring(s)} function caml_ojs_iterate_properties(o,f) {var name; for(name in o)if(o.hasOwnProperty(name))f(caml_js_to_string(name))} function caml_ml_runtime_warnings_enabled(_unit) {return caml_runtime_warnings} + function ml_z_sub(z1,z2) + {return ml_z_normalize(bigInt(z1).subtract(bigInt(z2)))} + function ml_z_fdiv(z1,z2) + {var z1_pos=ml_z_sign(z1),z2_pos=ml_z_sign(z2); + if(z1_pos * z2_pos < 0) + if(! bigInt(z1).mod(bigInt(z2)).equals(bigInt(0))) + return ml_z_sub(ml_z_div(z1,z2),bigInt(1)); + return ml_z_div(z1,z2)} + function ml_z_to_bits(z1) + {z1 = bigInt(z1).abs(); + var res=""; + while(! z1.equals(bigInt(0))) + {res += String.fromCharCode(z1.mod(bigInt(256))); + z1 = z1.divide(bigInt(256))} + while(res.length % 4 != 0)res += String.fromCharCode(0); + return caml_new_string(res)} function caml_output_value_to_bytes(v,flags) - {return caml_string_of_array(caml_output_val(v,flags))} + {return caml_bytes_of_array(caml_output_val(v,flags))} function caml_hash_univ_param(count,limit,obj) {var hash_accu=0; function hash_aux(obj) @@ -3179,69 +5250,106 @@ switch(obj[0]) {case 248:count--;hash_accu = hash_accu * 65599 + obj[2] | 0;break; case 250:limit++;hash_aux(obj);break; - case 255: - count--; - hash_accu = hash_accu * 65599 + obj[1] + (obj[2] << 24) | 0; - break; default: count--; hash_accu = hash_accu * 19 + obj[0] | 0; for(var i=obj.length - 1;i > 0;i--)hash_aux(obj[i])} else - if(obj instanceof MlBytes) + if(caml_is_ml_bytes(obj)) {count--; switch(obj.t & 6) {default:caml_convert_string_to_bytes(obj);case 0: - for(var b=obj.c,l=obj.l,i=0;i < l;i++) + for(var b=obj.c,l=caml_ml_bytes_length(obj),i=0;i < l;i++) hash_accu = hash_accu * 19 + b.charCodeAt(i) | 0; break; case 2: - for(var a=obj.c,l=obj.l,i=0;i < l;i++) + for(var a=obj.c,l=caml_ml_bytes_length(obj),i=0;i < l;i++) hash_accu = hash_accu * 19 + a[i] | 0 }} else - if(obj === (obj | 0)) - {count--;hash_accu = hash_accu * 65599 + obj | 0} + if(caml_is_ml_string(obj)) + {var jsbytes=caml_jsbytes_of_string(obj); + for(var b=jsbytes,l=jsbytes.length,i=0;i < l;i++) + hash_accu = hash_accu * 19 + b.charCodeAt(i) | 0} else - if(obj === + obj) - {count--; - var p=caml_int64_to_bytes(caml_int64_bits_of_float(obj)); - for(var i=7;i >= 0;i--)hash_accu = hash_accu * 19 + p[i] | 0} + if(typeof obj === "string") + for(var b=obj,l=obj.length,i=0;i < l;i++) + hash_accu = hash_accu * 19 + b.charCodeAt(i) | 0; else - if(obj && obj.caml_custom) - if - (caml_custom_ops[obj.caml_custom] - && - caml_custom_ops[obj.caml_custom].hash) - {var h=caml_custom_ops[obj.caml_custom].hash(obj) | 0; - hash_accu = hash_accu * 65599 + h | 0}} + if(obj === (obj | 0)) + {count--;hash_accu = hash_accu * 65599 + obj | 0} + else + if(obj === + obj) + {count--; + var p=caml_int64_to_bytes(caml_int64_bits_of_float(obj)); + for(var i=7;i >= 0;i--)hash_accu = hash_accu * 19 + p[i] | 0} + else + if(obj && obj.caml_custom) + if + (caml_custom_ops[obj.caml_custom] + && + caml_custom_ops[obj.caml_custom].hash) + {var h=caml_custom_ops[obj.caml_custom].hash(obj) | 0; + hash_accu = hash_accu * 65599 + h | 0}} hash_aux(obj); return hash_accu & 0x3FFFFFFF} - function caml_string_equal(s1,s2) - {if(s1 === s2)return 1; - s1.t & 6 && caml_convert_string_to_bytes(s1); - s2.t & 6 && caml_convert_string_to_bytes(s2); - return s1.c == s2.c?1:0} - function raw_array_copy(a) - {var l=a.length,b=new Array(l); - for(var i=0;i < l;i++)b[i] = a[i]; - return b} + function caml_string_equal(s1,s2){return caml_bytes_equal(s1,s2)} + function ml_z_divexact(z1,z2){return ml_z_div(z1,z2)} function caml_output_value_to_buffer(s,ofs,len,v,flags) {var t=caml_output_val(v,flags); if(t.length > len)caml_failwith("Marshal.to_buffer: buffer overflow"); caml_blit_bytes(t,0,s,ofs,t.length); return 0} + function re_replacement_text(repl,groups,orig) + {var + repl=caml_jsbytes_of_string(repl), + len=repl.length, + orig=caml_jsbytes_of_string(orig), + res="", + n=0, + cur, + start, + end, + c; + while(n < len) + {cur = repl.charAt(n++); + if(cur != "\\") + res += cur; + else + {if(n == len) + caml_failwith("Str.replace: illegal backslash sequence"); + cur = repl.charAt(n++); + switch(cur) + {case "\\":res += cur;break; + case "0": + case "1": + case "2": + case "3": + case "4": + case "5": + case "6": + case "7": + case "8": + case "9": + c = + cur; + if(c * 2 >= groups.length - 1) + caml_failwith("Str.replace: reference to unmatched group"); + start = caml_array_get(groups,c * 2); + end = caml_array_get(groups,c * 2 + 1); + if(start == - 1) + caml_failwith("Str.replace: reference to unmatched group"); + res += orig.slice(start,end); + break; + default:res += "\\" + cur}}} + return caml_string_of_jsbytes(res)} function caml_pure_js_expr(s) - {js_print_stderr("caml_pure_js_expr: fallback to runtime evaluation"); - return eval(s.toString())} - function caml_blit_string(s1,i1,s2,i2,len) - {return caml_blit_bytes(s1,i1,s2,i2,len)} + {js_print_stderr("caml_pure_js_expr: fallback to runtime evaluation\n"); + return eval(caml_jsstring_of_string(s))} function blit_nat(nat1,ofs1,nat2,ofs2,len) {for(var i=0;i < len;i++)nat1.data[ofs1 + i] = nat2.data[ofs2 + i]; return 0} - function caml_int64_ult(x,y){return caml_int64_ucompare(x,y) < 0} - function caml_int64_xor(x,y) - {return [255,x[1] ^ y[1],x[2] ^ y[2],x[3] ^ y[3]]} + function caml_int64_ult(x,y){return x.ucompare(y) < 0} + function caml_int64_xor(x,y){return x.xor(y)} function caml_bigstring_blit_ba_to_bytes(ba1,pos1,bytes2,pos2,len) {if(12 != ba1.kind) caml_invalid_argument @@ -3249,9 +5357,9 @@ if(len == 0)return 0; var ofs1=ba1.offset(pos1); if(ofs1 + len > ba1.data.length)caml_array_bound_error(); - if(pos2 + len > bytes2.l)caml_array_bound_error(); + if(pos2 + len > caml_ml_bytes_length(bytes2))caml_array_bound_error(); var slice=ba1.data.slice(ofs1,ofs1 + len); - caml_blit_bytes(caml_string_of_array(slice),0,bytes2,pos2,len); + caml_blit_bytes(caml_bytes_of_array(slice),0,bytes2,pos2,len); return 0} function caml_register_named_value(nm,v) {caml_named_values[caml_jsbytes_of_string(nm)] = v;return 0} @@ -3269,7 +5377,7 @@ case 98: case 66:base = 2;i += 2;break; case 117: - case 85:sign = 0;i += 2;break + case 85:i += 2;break } return [i,sign,base]} function caml_parse_digit(c) @@ -3284,7 +5392,8 @@ sign=r[1], base=r[2], base64=caml_int64_of_int32(base), - threshold=caml_int64_udivmod([255,0xffffff,0xfffffff,0xffff],base64)[1], + threshold= + new MlInt64(0xffffff,0xfffffff,0xffff).udivmod(base64).quotient, c=caml_string_unsafe_get(s,i), d=caml_parse_digit(c); if(d < 0 || d >= base)caml_failwith("int_of_string"); @@ -3300,11 +5409,17 @@ res = caml_int64_add(caml_int64_mul(base64,res),d); if(caml_int64_ult(res,d))caml_failwith("int_of_string")} if(i != caml_ml_string_length(s))caml_failwith("int_of_string"); - if(r[2] == 10 && caml_int64_ult([255,0,0,0x8000],res)) + if(base == 10 && caml_int64_ult(new MlInt64(0,0,0x8000),res)) caml_failwith("int_of_string"); if(sign < 0)res = caml_int64_neg(res); return res} var caml_blit_string_to_bigstring=caml_bigstring_blit_string_to_ba; + function re_search_forward(re,s,pos) + {if(pos < 0 || pos > caml_ml_string_length(s)) + caml_invalid_argument("Str.search_forward"); + while(pos <= caml_ml_string_length(s)) + {var res=re_match(re,s,pos,0);if(res)return res;pos++} + return [0]} function caml_make_vect(len,init) {if(len < 0)caml_array_bound_error(); var len=len + 1 | 0,b=new Array(len); @@ -3322,10 +5437,10 @@ a=root.device.readdir(root.rest), l=new Array(a.length + 1); l[0] = 0; - for(var i=0;i < a.length;i++)l[i + 1] = caml_new_string(a[i]); + for(var i=0;i < a.length;i++)l[i + 1] = caml_string_of_jsbytes(a[i]); return l} function caml_ml_output_char(chanid,c) - {var s=caml_new_string(String.fromCharCode(c)); + {var s=caml_string_of_jsbytes(String.fromCharCode(c)); caml_ml_output(chanid,s,0,1); return 0} function caml_sys_const_ostype_win32(){return 0} @@ -3338,7 +5453,7 @@ chan.offset++; return res} function caml_js_var(x) - {var x=x.toString(); + {var x=caml_jsstring_of_string(x); if(! x.match(/^[a-zA-Z_$][a-zA-Z_$0-9]*(\.[a-zA-Z_$][a-zA-Z_$0-9]*)*$/)) js_print_stderr ('caml_js_var: "' @@ -3348,19 +5463,33 @@ '" is not a valid JavaScript variable. continuing ..'); return eval(x)} function caml_trunc_float(x){return Math.trunc(x)} + function caml_zarith_marshal(writer,v,sz) + {v = bigInt(v); + var bits=v.toArray(Math.pow(2,32)); + writer.write(8,bits.isNegative?1:0); + var block=bits.value.length,len=block * 4; + writer.write(32,len); + for(var i=block - 1;i >= 0;i--) + {writer.write(8,bits.value[i] >>> 0 & 0xff); + writer.write(8,bits.value[i] >>> 8 & 0xff); + writer.write(8,bits.value[i] >>> 16 & 0xff); + writer.write(8,bits.value[i] >>> 24 & 0xff)} + sz[0] = 4 * (1 + ((len + 3) / 4 | 0)); + sz[1] = 8 * (1 + ((len + 7) / 8 | 0))} function caml_ephe_blit_data(src,dst) {dst[caml_ephe_data_offset] = src[caml_ephe_data_offset];return 0} var Base_internalhash_fold_int64=caml_hash_mix_int64; function caml_is_printable(c){return + (c > 31 && c < 127)} - function caml_bytes_lessequal(s1,s2) - {s1.t & 6 && caml_convert_string_to_bytes(s1); - s2.t & 6 && caml_convert_string_to_bytes(s2); - return s1.c <= s2.c?1:0} function caml_equal(x,y){return + (caml_compare_val(x,y,false) == 0)} - function caml_final_register_called_without_value(){return 0} + function re_partial_match(re,s,pos) + {if(pos < 0 || pos > caml_ml_string_length(s)) + caml_invalid_argument("Str.partial_match"); + var res=re_match(re,s,pos,1); + return res?res:[0]} function caml_sys_random_seed() {var now=new Date().getTime(),x=now ^ 0xffffffff * Math.random(); return [0,x]} + function caml_final_register_called_without_value(){return 0} function caml_ba_get_2(ba,i0,i1){return ba.get(ba.offset([i0,i1]))} function win_handle_fd(x){return x} function caml_ba_uint8_set16(ba,i0,v) @@ -3396,7 +5525,8 @@ function caml_list_mount_point() {var prev=0; for(var i=0;i < jsoo_mount_point.length;i++) - {var old=prev;prev = [0,caml_new_string(jsoo_mount_point[i].path),old]} + {var old=prev; + prev = [0,caml_string_of_jsbytes(jsoo_mount_point[i].path),old]} return prev} var caml_marshal_constants= @@ -3427,6 +5557,68 @@ CODE_CUSTOM_FIXED:0x19}; function caml_js_equals(x,y){return + (x == y)} function bigstring_to_typed_array(bs){return bs.data} + function ml_z_fits_nativeint(z1){return ml_z_fits_int(z1)} + function caml_gr_arc_aux(ctx,cx,cy,ry,rx,a1,a2) + {while(a1 > a2)a2 += 360; + a1 /= 180; + a2 /= 180; + var + rot=0, + xPos, + yPos, + xPos_prev, + yPos_prev, + space=2, + num=(a2 - a1) * Math.PI * ((rx + ry) / 2) / space | 0, + delta=(a2 - a1) * Math.PI / num, + i=a1 * Math.PI; + for(var j=0;j <= num;j++) + {xPos + = + cx + - + rx + * + Math.sin(i) + * + Math.sin(rot * Math.PI) + + + ry + * + Math.cos(i) + * + Math.cos(rot * Math.PI); + xPos = xPos.toFixed(2); + yPos + = + cy + + + ry + * + Math.cos(i) + * + Math.sin(rot * Math.PI) + + + rx + * + Math.sin(i) + * + Math.cos(rot * Math.PI); + yPos = yPos.toFixed(2); + if(j == 0) + ctx.moveTo(xPos,yPos); + else + if(xPos_prev != xPos || yPos_prev != yPos)ctx.lineTo(xPos,yPos); + xPos_prev = xPos; + yPos_prev = yPos; + i -= delta} + return 0} + function caml_gr_fill_arc(x,y,rx,ry,a1,a2) + {var s=caml_gr_state_get(); + s.context.beginPath(); + caml_gr_arc_aux(s.context,x,s.height - y,rx,ry,a1,a2); + s.context.fill(); + return 0} function caml_ba_slice(ba,vind) {vind = caml_js_from_array(vind); var num_inds=vind.length,index=[],sub_dims=[],ofs; @@ -3449,6 +5641,7 @@ ba.data.subarray (ofs * size_per_element,(ofs + size) * size_per_element); return caml_ba_create_unsafe(ba.kind,ba.layout,sub_dims,new_data)} + function ml_z_of_nativeint(z){return ml_z_of_int(z)} function caml_marshal_data_size(s,ofs) {function get32(s,i) {return caml_bytes_unsafe_get(s,i) @@ -3467,15 +5660,12 @@ if(get32(s,ofs) != (0x8495A6BE | 0)) caml_failwith("Marshal.data_size: bad object"); return get32(s,ofs + 4)} - function caml_input_value_from_string(s,ofs) - {var reader=new MlBytesReader(s,typeof ofs == "number"?ofs:ofs[0]); - return caml_input_value_from_reader(reader,ofs)} function caml_input_value(chanid) {var chan=caml_ml_channels[chanid],buf=caml_create_bytes(8); chan.file.read(chan.offset,buf,0,8); var len=caml_marshal_data_size(buf,0) + 20,buf=caml_create_bytes(len); chan.file.read(chan.offset,buf,0,len); - var offset=[0],res=caml_input_value_from_string(buf,offset); + var offset=[0],res=caml_input_value_from_bytes(buf,offset); chan.offset = chan.offset + offset[0]; return res} function caml_ba_kind(ba){return ba.kind} @@ -3491,6 +5681,41 @@ case 8:return f(a[1],a[2],a[3],a[4],a[5],a[6],a[7]) } return f.apply(null,caml_js_from_array(a))} + function ml_z_invert(a,n) + {a = bigInt(a); + n = bigInt(n); + var + x=ml_z_gcdext_intern(a,n), + r=bigInt(x[2]), + tmp=bigInt(a).multiply(r).mod(n); + if(tmp.lt(bigInt(0)))tmp = tmp.add(n.abs()); + if(r.lt(bigInt(0)))r = r.add(n.abs()); + if(n.abs().equals(bigInt(1)))return 0; + if(tmp.equals(bigInt(1)))return ml_z_normalize(r); + caml_raise_zero_divide()} + function ml_z_powm(z1,z2,z3) + {var zero=bigInt(0),one=bigInt(1); + z1 = bigInt(z1); + z2 = bigInt(z2); + z3 = bigInt(z3); + if(z3.equals(zero) || z3.abs().equals(one))return 0; + if(z2.equals(zero))return 1; + if(z2.lt(0)) + {var inv=bigInt(ml_z_invert(z1,z3)),r=inv.modPow(z2.negate(),z3); + if(r.lt(zero))r = r.add(z3.abs()); + return ml_z_normalize(r)} + else + {var r=bigInt(z1).modPow(z2,z3); + if(r.lt(zero))r = r.add(z3.abs()); + return ml_z_normalize(r)}} + function ml_z_powm_sec(z1,z2,z3) + {z3 = bigInt(z3).abs(); + var one=bigInt(1); + if(bigInt(z2).lt(one)) + caml_invalid_argument("Z.powm_sec: exponent must be positive"); + if(! bigInt(z3).and(one).equals(one)) + caml_invalid_argument("Z.powm_sec: modulus must be odd"); + return ml_z_powm(z1,z2,z3)} function caml_js_pure_expr(f){return f()} function compare_digits_nat(nat1,ofs1,nat2,ofs2) {if(nat1.data[ofs1] > nat2.data[ofs2])return 1; @@ -3503,8 +5728,12 @@ chan.file.read(chan.offset,s,i,l); chan.offset += l; return l} + function caml_gr_wait_event(_evl) + {caml_failwith + ("caml_gr_wait_event not Implemented: use Graphics_js instead")} + function caml_gr_sigio_handler(){return 0} function caml_hash_mix_bigstring(h,bs) - {return caml_hash_mix_string_arr(h,bs.data)} + {return caml_hash_mix_bytes_arr(h,bs.data)} function caml_record_backtrace(){return 0} function unix_gmtime(t) {var @@ -3522,9 +5751,10 @@ d.getUTCDay(), doy, false | 0]} + function caml_sys_get_config() + {return [0,caml_string_of_jsbytes("Unix"),32,0]} function caml_sys_const_backend_type() - {return [0,caml_new_string("js_of_ocaml")]} - function caml_sys_get_config(){return [0,caml_new_string("Unix"),32,0]} + {return [0,caml_string_of_jsbytes("js_of_ocaml")]} function unix_time(){return Math.floor(unix_gettimeofday())} function caml_ml_out_channels_list() {var l=0; @@ -3537,11 +5767,23 @@ caml_ml_channels[c].out) l = [0,caml_ml_channels[c].fd,l]; return l} + function ml_z_hash(z1) + {var a=bigInt(z1).toArray(Math.pow(2,32)),acc=0; + for(var i=0;i < a.value.length;i++) + acc = caml_hash_mix_int(acc,a.value[i]); + if(a.value.length % 2 != 0)acc = caml_hash_mix_int(acc,0); + if(a.isNegative)acc = acc + 1; + return acc | 0} function bigstring_of_array_buffer(ab) {var ta=new (joo_global_object.Uint8Array)(ab); return caml_ba_create_unsafe(12,0,[ta.length],ta)} function caml_mod(x,y){if(y == 0)caml_raise_zero_divide();return x % y} function caml_ba_init(){return 0} + function re_string_match(re,s,pos) + {if(pos < 0 || pos > caml_ml_string_length(s)) + caml_invalid_argument("Str.string_match"); + var res=re_match(re,s,pos,0); + return res?res:[0]} function BigStringReader(bs,i){this.s = bs;this.i = i} BigStringReader.prototype = @@ -3599,6 +5841,18 @@ for(var j=0;j < len;j++)arr[j] = caml_ba_get_1(this.s,i + j); this.i = i + len; return caml_string_of_array(arr)}}; + function caml_gr_dump_image(im) + {var data=[0]; + for(var i=0;i < im.height;i++) + {data[i + 1] = [0]; + for(var j=0;j < im.width;j++) + {var + o=i * (im.width * 4) + j * 4, + r=im.data[o + 0], + g=im.data[o + 1], + b=im.data[o + 2]; + data[i + 1][j + 1] = (r << 16) + (g << 8) + b}} + return data} function caml_ba_get_generic(ba,i) {var ofs=ba.offset(caml_js_from_array(i));return ba.get(ofs)} function caml_get_exception_backtrace(){return 0} @@ -3663,6 +5917,18 @@ jsoo_mount_point.push({path:name,device:new MlFakeDevice(name,f)}); return 0} function Base_int_math_int_clz(x){return Base_int_math_int32_clz(x)} + function ml_z_fits_int64(z1) + {z1 = bigInt(z1); + return z1.compare(bigInt("9223372036854775807")) + <= + 0 + && + z1.compare(bigInt("-9223372036854775808")) + >= + 0 + ?1 + :0} + function ml_z_equal(z1,z2){return bigInt(z1).equals(bigInt(z2))} function caml_bigstring_blit_ba_to_ba(ba1,pos1,ba2,pos2,len) {if(12 != ba1.kind) caml_invalid_argument("caml_bigstring_blit_ba_to_ba: kind mismatch"); @@ -3676,14 +5942,21 @@ ba2.data.set(slice,pos2); return 0} var caml_blit_bigstring_to_bigstring=caml_bigstring_blit_ba_to_ba; - function caml_div(x,y) - {if(y == 0)caml_raise_zero_divide();return x / y | 0} - function caml_string_lessthan(s1,s2) - {s1.t & 6 && caml_convert_string_to_bytes(s1); - s2.t & 6 && caml_convert_string_to_bytes(s2); - return s1.c < s2.c?1:0} + function ml_z_sqrt_rem(z) + {z = bigInt(z); + var zero=bigInt(0); + if(z.lt(zero)) + caml_invalid_argument("Z.sqrt_rem: square root of a negative number"); + var + root=bigInt(ml_z_root(z,2)), + mul=root.multiply(root), + diff=z.subtract(mul); + return [0,ml_z_normalize(root),ml_z_normalize(diff)]} + function caml_string_lessthan(s1,s2){return caml_bytes_lessthan(s1,s2)} function caml_string_greaterthan(s1,s2) {return caml_string_lessthan(s2,s1)} + function caml_div(x,y) + {if(y == 0)caml_raise_zero_divide();return x / y | 0} function caml_ba_set_1(ba,i0,v){ba.set(ba.offset(i0),v);return 0} function caml_fill_bigstring(buf,buf_off,buf_len,v) {var i; @@ -3693,11 +5966,19 @@ {return x[caml_ephe_data_offset] === undefined ?0 :[0,caml_obj_dup(x[caml_ephe_data_offset])]} + function ml_z_perfect_square(z) + {z = bigInt(z); + if(z.lt(bigInt(0)))return 0; + var root=bigInt(ml_z_root(z,2)); + return root.multiply(root).eq(z)?1:0} function caml_sys_get_argv(a){return [0,caml_argv[1],caml_argv]} function caml_js_to_bool(x){return + x} + function caml_gr_create_image(x,y) + {var s=caml_gr_state_get();return s.context.createImageData(x,y)} var caml_ephe_get_key_copy=caml_weak_get_copy; - function caml_raw_backtrace_next_slot(){return 0} function caml_lessthan(x,y){return + (caml_compare_val(x,y,false) < 0)} + function caml_raw_backtrace_next_slot(){return 0} + function ml_z_to_nativeint(z1){return ml_z_to_int(z1)} function caml_register_global(n,v,name_opt) {if(name_opt && joo_global_object.toplevelReloc) n = joo_global_object.toplevelReloc(name_opt); @@ -3715,13 +5996,13 @@ carry += add_nat(nat1,ofs1,len1,nat1,ofs1,len1,0); carry += mult_nat(nat1,ofs1,len1,nat2,ofs2,len2,nat2,ofs2,len2); return carry} + function caml_js_from_float(x){return x} function caml_floatarray_create(len) {if(len < 0)caml_array_bound_error(); var len=len + 1 | 0,b=new Array(len); b[0] = 254; for(var i=1;i < len;i++)b[i] = 0; return b} - function caml_js_from_float(x){return x} function caml_gc_stat(){return [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]} function caml_sys_modify_argv(arg){caml_argv = arg;return 0} var caml_method_cache=[]; @@ -3779,6 +6060,13 @@ (ba.buffer,ba.byteOffset,ba.length * ba.BYTES_PER_ELEMENT); return caml_ba_create_unsafe(12,0,[ta.length],ta)} function caml_round_float(x){return Math.round(x)} + function ml_z_of_bits(z1) + {var r=bigInt.zero,base1=bigInt(256),base=bigInt.one; + for(var i=0;i < caml_ml_string_length(z1);i++) + {var d=caml_string_unsafe_get(z1,i); + r = bigInt(base).multiply(d).add(r); + base = bigInt(base).multiply(base1)} + return ml_z_normalize(r)} function caml_ojs_new_arr(c,a) {switch(a.length) {case 0:return new c(); @@ -3796,6 +6084,8 @@ function complement_nat(nat,ofs,len) {for(var i=0;i < len;i++) nat.data[ofs + i] = (- 1 >>> 0) - (nat.data[ofs + i] >>> 0)} + function ml_z_logxor(z1,z2) + {return ml_z_normalize(bigInt(z1).xor(bigInt(z2)))} var caml_js_regexps={amp:/&/g,lt:/>> 0); + x = y.shiftLeft(i * 32).add(x)} + if(negate)x = x.negate(); + sz[0] = len + 4; + return ml_z_normalize(x)} + function ml_z_trailing_zeros(z) + {z = bigInt(z).abs(); + var zero=bigInt(0),one=bigInt(1); + if(z.equals(zero))return 0x7fffffff; + var i=0; + z = z.xor(z.prev()).shiftRight(1); + for(i = 0;! z.equals(bigInt.zero);i++)z = z.shiftRight(1); + return i} function caml_js_wrap_callback_strict(arity,f) {return function() {var n=arguments.length; - if(n == arity)return caml_call_gen(f,arguments); - var args=new Array(arity); - for(var i=0;i < n && i < arity;i++)args[i] = arguments[i]; + if(n == arity && f.length == arity)return f.apply(null,arguments); + var args=new Array(arity),len=Math.min(arguments.length,arity); + for(var i=0;i < len;i++)args[i] = arguments[i]; return caml_call_gen(f,args)}} function caml_get_current_callstack(){return [0]} function land_digit_nat(nat1,ofs1,nat2,ofs2) {nat1.data[ofs1] &= nat2.data[ofs2];return 0} - function caml_int64_mod(x,y) - {if(caml_int64_is_zero(y))caml_raise_zero_divide(); - var sign=x[3]; - if(x[3] & 0x8000)x = caml_int64_neg(x); - if(y[3] & 0x8000)y = caml_int64_neg(y); - var r=caml_int64_udivmod(x,y)[2]; - if(sign & 0x8000)r = caml_int64_neg(r); - return r} + function caml_int64_mod(x,y){return x.mod(y)} function caml_obj_set_tag(x,tag){x[0] = tag;return 0} function caml_create_file_extern(name,content) {if(joo_global_object.caml_create_file) @@ -3866,6 +6178,34 @@ function set_digit_nat_native(nat,ofs,digit) {nat.data[ofs] = digit;return 0} function caml_string_set64(s,i,i64){return caml_bytes_set64(s,i,i64)} + function caml_gr_state_create(canvas,w,h) + {var context=canvas.getContext("2d"); + return {context:context, + canvas:canvas, + x:0, + y:0, + width:w, + height:h, + line_width:1, + font:caml_string_of_jsbytes("fixed"), + text_size:26, + color:0x000000, + title:caml_string_of_jsbytes("")}} + function caml_js_wrap_callback(f) + {return function() + {var len=arguments.length; + if(len > 0) + {var args=new Array(len); + for(var i=0;i < len;i++)args[i] = arguments[i]; + return caml_call_gen(f,args)} + else + return caml_call_gen(f,[undefined])}} + function caml_gr_draw_arc(x,y,rx,ry,a1,a2) + {var s=caml_gr_state_get(); + s.context.beginPath(); + caml_gr_arc_aux(s.context,x,s.height - y,rx,ry,a1,a2); + s.context.stroke(); + return 0} function caml_ba_map_file(vfd,kind,layout,shared,dims,pos) {caml_failwith("caml_ba_map_file not implemented")} function caml_ba_map_file_bytecode(argv,argn) @@ -3877,206 +6217,43 @@ return caml_ba_create_unsafe(kind,layout,dims,data1)} function caml_tanh_float(x) {var y=Math.exp(x),z=Math.exp(- x);return (y - z) / (y + z)} - var JSON=joo_global_object.JSON; - if(typeof JSON !== "object")JSON = {}; - (function() - {"use strict"; - var - rx_one=/^[\],:{}\s]*$/, - rx_two=/\\(?:["\\\/bfnrt]|u[0-9a-fA-F]{4})/g, - rx_three= - /"[^"\\\n\r]*"|true|false|null|-?\d+(?:\.\d*)?(?:[eE][+\-]?\d+)?/g, - rx_four=/(?:^|:|,)(?:\s*\[)+/g, - rx_escapable= - /[\\\"\u0000-\u001f\u007f-\u009f\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g, - rx_dangerous= - /[\u0000\u00ad\u0600-\u0604\u070f\u17b4\u17b5\u200c-\u200f\u2028-\u202f\u2060-\u206f\ufeff\ufff0-\uffff]/g; - function f(n){return n < 10?"0" + n:n} - function this_value(){return this.valueOf()} - if(typeof Date.prototype.toJSON !== "function") - {Date.prototype.toJSON - = - function() - {return isFinite(this.valueOf()) - ?this.getUTCFullYear() - + - "-" - + - f(this.getUTCMonth() + 1) - + - "-" - + - f(this.getUTCDate()) - + - "T" - + - f(this.getUTCHours()) - + - ":" - + - f(this.getUTCMinutes()) - + - ":" - + - f(this.getUTCSeconds()) - + - "Z" - :null}; - Boolean.prototype.toJSON = this_value; - Number.prototype.toJSON = this_value; - String.prototype.toJSON = this_value} - var gap,indent,meta,rep; - function quote(string) - {rx_escapable.lastIndex = 0; - return rx_escapable.test(string) - ?'"' - + - string.replace - (rx_escapable, - function(a) - {var c=meta[a]; - return typeof c === "string" - ?c - :"\\u" + ("0000" + a.charCodeAt(0).toString(16)).slice(- 4)}) - + - '"' - :'"' + string + '"'} - function str(key,holder) - {var i,k,v,length,mind=gap,partial,value=holder[key]; - if - (value - && - typeof value - === - "object" - && - typeof value.toJSON - === - "function") - value = value.toJSON(key); - if(typeof rep === "function")value = rep.call(holder,key,value); - switch(typeof value) - {case "string":return quote(value); - case "number":return isFinite(value)?String(value):"null"; - case "boolean": - case "null":return String(value); - case "object": - if(! value)return "null"; - gap += indent; - partial = []; - if(Object.prototype.toString.apply(value) === "[object Array]") - {length = value.length; - for(i = 0;i < length;i += 1) - partial[i] = str(i,value) || "null"; - v - = - partial.length === 0 - ?"[]" - :gap - ?"[\n" + gap + partial.join(",\n" + gap) + "\n" + mind + "]" - :"[" + partial.join(",") + "]"; - gap = mind; - return v} - if(rep && typeof rep === "object") - {length = rep.length; - for(i = 0;i < length;i += 1) - if(typeof rep[i] === "string") - {k = rep[i]; - v = str(k,value); - if(v)partial.push(quote(k) + (gap?": ":":") + v)}} - else - for(k in value) - if(Object.prototype.hasOwnProperty.call(value,k)) - {v = str(k,value); - if(v)partial.push(quote(k) + (gap?": ":":") + v)} - v - = - partial.length === 0 - ?"{}" - :gap - ?"{\n" + gap + partial.join(",\n" + gap) + "\n" + mind + "}" - :"{" + partial.join(",") + "}"; - gap = mind; - return v - }} - if(typeof JSON.stringify !== "function") - {meta - = - {"\b":"\\b", - "\t":"\\t", - "\n":"\\n", - "\f":"\\f", - "\r":"\\r", - '"':'\\"', - "\\":"\\\\"}; - JSON.stringify - = - function(value,replacer,space) - {var i; - gap = ""; - indent = ""; - if(typeof space === "number") - for(i = 0;i < space;i += 1)indent += " "; - else - if(typeof space === "string")indent = space; - rep = replacer; - if - (replacer - && - typeof replacer - !== - "function" - && - (typeof replacer - !== - "object" - || - typeof replacer.length - !== - "number")) - throw new Error("JSON.stringify"); - return str("",{"":value})}} - if(typeof JSON.parse !== "function") - JSON.parse - = - function(text,reviver) - {var j; - function walk(holder,key) - {var k,v,value=holder[key]; - if(value && typeof value === "object") - for(k in value) - if(Object.prototype.hasOwnProperty.call(value,k)) - {v = walk(value,k); - if(v !== undefined)value[k] = v;else delete value[k]} - return reviver.call(holder,key,value)} - text = String(text); - rx_dangerous.lastIndex = 0; - if(rx_dangerous.test(text)) - text - = - text.replace - (rx_dangerous, - function(a) - {return "\\u" - + - ("0000" + a.charCodeAt(0).toString(16)).slice(- 4)}); - if - (rx_one.test - (text.replace(rx_two,"@").replace(rx_three,"]").replace - (rx_four,""))) - {j = eval("(" + text + ")"); - return typeof reviver === "function"?walk({"":j},""):j} - throw new SyntaxError("JSON.parse")}} - ()); - function caml_json(){return JSON} + function caml_gr_draw_str(str) + {var s=caml_gr_state_get(),m=s.context.measureText(str),dx=m.width; + s.context.fillText(str,s.x,s.height - s.y); + s.x += dx | 0; + return 0} + function caml_gr_draw_string(str) + {caml_gr_draw_str(caml_jsstring_of_string(str));return 0} + function caml_gr_draw_char(c) + {caml_gr_draw_str(String.fromCharCode(c));return 0} function caml_unmount(name) {var path=caml_make_path(name),name=path.join("/") + "/",idx=- 1; for(var i=0;i < jsoo_mount_point.length;i++) if(jsoo_mount_point[i].path == name)idx = i; if(idx > - 1)jsoo_mount_point.splice(idx,1); return 0} + function caml_input_value_from_string(s,ofs) + {var reader=new MlStringReader(s,typeof ofs == "number"?ofs:ofs[0]); + return caml_input_value_from_reader(reader,ofs)} function caml_ml_pos_in_64(chanid) {return caml_int64_of_float(caml_ml_channels[chanid].offset)} + function caml_gr_draw_image(im,x,y) + {var s=caml_gr_state_get(); + if(! im.image) + {var canvas=document.createElement("canvas"); + canvas.width = s.width; + canvas.height = s.height; + canvas.getContext("2d").putImageData(im,0,0); + var image=new (joo_global_object.Image)(); + image.onload + = + function() + {s.context.drawImage(image,x,s.height - im.height - y); + im.image = image}; + image.src = canvas.toDataURL("image/png")} + else + s.context.drawImage(im.image,x,s.height - im.height - y); + return 0} function caml_register_channel_for_spacetime(_channel){return 0} function caml_string_set(s,i,c) {if(i >>> 0 >= s.l)caml_string_bound_error(); @@ -4085,10 +6262,11 @@ {caml_ml_flush(chanid);return caml_ml_channels[chanid].offset} function caml_spacetime_enabled(_unit){return 0} function caml_bytes_notequal(s1,s2){return 1 - caml_string_equal(s1,s2)} - function caml_runtime_parameters(_unit){return caml_new_string("")} + function caml_runtime_parameters(_unit){return caml_string_of_jsbytes("")} function caml_js_object(a) {var o={}; - for(var i=1;i < a.length;i++){var p=a[i];o[p[1].toString()] = p[2]} + for(var i=1;i < a.length;i++) + {var p=a[i];o[caml_jsstring_of_string(p[1])] = p[2]} return o} function caml_ba_create(kind,layout,dims_ml) {var @@ -4099,18 +6277,24 @@ {caml_array_blit (a1,caml_ephe_key_offset + i1 - 1,a2,caml_ephe_key_offset + i2 - 1,len); return 0} + function caml_gr_remember_mode() + {caml_failwith("caml_gr_remember_mode not Implemented")} function Base_internalhash_get_hash_value(seed) {var h=caml_hash_mix_final(seed);return h & 0x3FFFFFFF} function caml_bswap16(x){return (x & 0x00FF) << 8 | (x & 0xFF00) >> 8} - function caml_final_register(){return 0} function caml_ml_set_binary_mode(chanid,mode) {var chan=caml_ml_channels[chanid],data=caml_global_data.fds[chan.fd]; data.flags.text = ! mode; data.flags.binary = mode; return 0} + function caml_final_register(){return 0} function caml_check_alignment_bigstring(buf,ofs,alignment){return true} + function caml_gr_draw_rect(x,y,w,h) + {var s=caml_gr_state_get(); + s.context.strokeRect(x,s.height - y,w,- h); + return 0} function caml_string_get16(s,i) - {if(i >>> 0 >= s.l - 1)caml_string_bound_error(); + {if(i >>> 0 >= caml_ml_string_length(s) - 1)caml_string_bound_error(); var b1=caml_string_unsafe_get(s,i),b2=caml_string_unsafe_get(s,i + 1); return b2 << 8 | b1} function caml_ephe_unset_data(x,data) @@ -4121,11 +6305,11 @@ return 0} function caml_ba_get_3(ba,i0,i1,i2){return ba.get(ba.offset([i0,i1,i2]))} var caml_ephe_blit_key=caml_weak_blit; + function ml_z_to_int32(z1){return ml_z_to_int(z1)} function Base_clear_caml_backtrace_pos(x){return 0} function caml_check_bound(array,index) {if(index >>> 0 >= array.length - 1)caml_array_bound_error(); return array} - function caml_bytes_of_string(s){return s} function caml_compare_bigstring(buf1,buf1_off,buf2,buf2_off,len) {var i,r; for(i = 0;i < len;i++) @@ -4135,28 +6319,33 @@ (caml_ba_get_1(buf1,buf1_off + i),caml_ba_get_1(buf2,buf2_off + i)); if(r != 0)return r} return 0} + function ml_z_compare(z1,z2){return bigInt(z1).compare(bigInt(z2))} function caml_obj_tag(x) {if(x instanceof Array && x[0] == x[0] >>> 0) return x[0]; else - if(x instanceof MlBytes) + if(caml_is_ml_bytes(x)) return 252; else - if(x instanceof Function || typeof x == "function") - return 247; + if(caml_is_ml_string(x)) + return 252; else - if(x && x.caml_custom)return 255;else return 1000} + if(x instanceof Function || typeof x == "function") + return 247; + else + if(x && x.caml_custom)return 255;else return 1000} + function caml_ba_to_typed_array(ba){return ba.data} function caml_js_export_var() {return typeof module !== "undefined" && module && module.exports ?module.exports :joo_global_object} function caml_bytes_get32(s,i) - {if(i >>> 0 >= s.l - 3)caml_string_bound_error(); + {if(i >>> 0 >= s.l - 3)caml_bytes_bound_error(); var - b1=caml_string_unsafe_get(s,i), - b2=caml_string_unsafe_get(s,i + 1), - b3=caml_string_unsafe_get(s,i + 2), - b4=caml_string_unsafe_get(s,i + 3); + b1=caml_bytes_unsafe_get(s,i), + b2=caml_bytes_unsafe_get(s,i + 1), + b3=caml_bytes_unsafe_get(s,i + 2), + b4=caml_bytes_unsafe_get(s,i + 3); return b4 << 24 | b3 << 16 | b2 << 8 | b1} function caml_frexp_float(x) {if(x == 0 || ! isFinite(x))return [0,x,0]; @@ -4170,14 +6359,26 @@ return [0,x,exp]} function caml_ojs_wrap_fun_arguments(f) {return function(){return caml_js_wrap_callback(f)(arguments)}} + function ml_z_pred(z1){return ml_z_normalize(bigInt(z1).prev())} function caml_string_get64(s,i) - {if(i >>> 0 >= s.l - 7)caml_string_bound_error(); + {if(i >>> 0 >= caml_ml_string_length(s) - 7)caml_string_bound_error(); var a=new Array(8); for(var j=0;j < 8;j++)a[7 - j] = caml_string_unsafe_get(s,i + j); return caml_int64_of_bytes(a)} function caml_ml_pos_out_64(chanid) {caml_ml_flush(chanid); return caml_int64_of_float(caml_ml_channels[chanid].offset)} + function ml_z_extract(z1,pos,len) + {z1 = bigInt(z1); + return ml_z_normalize + (z1.shiftRight(pos).and(bigInt(2).pow(len).subtract(1)))} + function ml_z_of_float(f1) + {if(f1 == Infinity || f1 == - Infinity || f1 != f1) + caml_raise_constant(caml_named_value("ml_z_overflow")); + return ml_z_normalize(bigInt(f1 < 0?Math.ceil(f1):Math.floor(f1)))} + function ml_z_lognot(z1){return ml_z_normalize(bigInt(z1).not())} + function caml_gr_close_subwindow(a) + {caml_failwith("caml_gr_close_subwindow not Implemented")} function caml_set_static_env(k,v) {if(! joo_global_object.jsoo_static_env) joo_global_object.jsoo_static_env = {}; @@ -4204,8 +6405,10 @@ function F(){return c.apply(this,caml_js_from_array(a))} F.prototype = c.prototype; return new F()} + function caml_gr_current_y(){var s=caml_gr_state_get();return s.y} function caml_format_int(fmt,i) - {if(caml_jsbytes_of_string(fmt) == "%d")return caml_new_string("" + i); + {if(caml_jsbytes_of_string(fmt) == "%d") + return caml_string_of_jsbytes("" + i); var f=caml_parse_format(fmt); if(i < 0)if(f.signedconv){f.sign = - 1;i = - i}else i >>>= 0; var s=i.toString(f.base); @@ -4219,12 +6422,7 @@ if(x.length != s + 1)x.length = s + 1; return 0} function is_digit_odd(nat,ofs){if(nat.data[ofs] & 1)return 1;return 0} - function caml_runtime_variant(_unit){return caml_new_string("")} - function caml_array_concat(l) - {var a=[0]; - while(l !== 0) - {var b=l[1];for(var i=1;i < b.length;i++)a.push(b[i]);l = l[2]} - return a} + function caml_runtime_variant(_unit){return caml_string_of_jsbytes("")} function caml_ml_open_descriptor_out(fd) {var data=caml_global_data.fds[fd]; if(data.flags.rdonly)caml_raise_sys_error("fd " + fd + " is readonly"); @@ -4238,6 +6436,40 @@ buffer:""}; caml_ml_channels[channel.fd] = channel; return channel.fd} + function caml_array_concat(l) + {var a=[0]; + while(l !== 0) + {var b=l[1];for(var i=1;i < b.length;i++)a.push(b[i]);l = l[2]} + return a} + function caml_gr_open_graph(info) + {var g=joo_global_object,info=caml_jsstring_of_string(info); + function get(name) + {var res=info.match("(^|,) *" + name + " *= *([a-zA-Z0-9_]+) *(,|$)"); + if(res)return res[2]} + var specs=[]; + if(! (info == ""))specs.push(info); + var target=get("target"); + if(! target)target = ""; + var status=get("status"); + if(! status)specs.push("status=1"); + var w=get("width"); + w = w?parseInt(w):200; + specs.push("width=" + w); + var h=get("height"); + h = h?parseInt(h):200; + specs.push("height=" + h); + var win=g.open("about:blank",target,specs.join(",")); + if(! win)caml_failwith("Graphics.open_graph: cannot open the window"); + var doc=win.document,canvas=doc.createElement("canvas"); + canvas.width = w; + canvas.height = h; + var ctx=caml_gr_state_create(canvas,w,h); + ctx.set_title = function(title){doc.title = title}; + caml_gr_state_set(ctx); + var body=doc.body; + body.style.margin = "0px"; + body.appendChild(canvas); + return 0} function caml_ephe_set_data(x,data) {x[caml_ephe_data_offset] = data;return 0} function caml_make_float_vect(len) @@ -4248,41 +6480,37 @@ return b} function caml_greaterequal(x,y) {return + (caml_compare_val(x,y,false) >= 0)} + function ml_z_numbits(z1) + {z1 = bigInt(z1).abs(); + var n=0,upperBound=bigInt.one; + while(upperBound.leq(z1)){n += 1;upperBound = upperBound.multiply(2)} + return n} function caml_get_exception_raw_backtrace(){return [0]} function caml_log1p_float(x) {var y=1 + x,z=y - 1;return z == 0?x:x * Math.log(y) / z} - function caml_string_get(s,i) - {if(i >>> 0 >= s.l)caml_string_bound_error(); - return caml_string_unsafe_get(s,i)} - function caml_int64_or(x,y) - {return [255,x[1] | y[1],x[2] | y[2],x[3] | y[3]]} + function caml_int64_or(x,y){return x.or(y)} function caml_lazy_make_forward(v){return [250,v]} function lor_digit_nat(nat1,ofs1,nat2,ofs2) {nat1.data[ofs1] |= nat2.data[ofs2];return 0} + function caml_gr_blit_image(im,x,y) + {var + s=caml_gr_state_get(), + im2= + s.context.getImageData(x,s.height - im.height - y,im.width,im.height); + for(var i=0;i < im2.data.length;i += 4) + {im.data[i] = im2.data[i]; + im.data[i + 1] = im2.data[i + 1]; + im.data[i + 2] = im2.data[i + 2]; + im.data[i + 3] = im2.data[i + 3]} + return 0} + function caml_gr_window_id(a) + {caml_failwith("caml_gr_window_id not Implemented")} function caml_js_on_ie() {var ua= joo_global_object.navigator?joo_global_object.navigator.userAgent:""; return ua.indexOf("MSIE") != - 1 && ua.indexOf("Opera") != 0} - function caml_int64_shift_right(x,s) - {s = s & 63; - if(s == 0)return x; - var h=x[3] << 16 >> 16; - if(s < 24) - return [255, - (x[1] >> s | x[2] << 24 - s) & 0xffffff, - (x[2] >> s | h << 24 - s) & 0xffffff, - x[3] << 16 >> s >>> 16]; - var sign=x[3] << 16 >> 31; - if(s < 48) - return [255, - (x[2] >> s - 24 | x[3] << 48 - s) & 0xffffff, - x[3] << 16 >> s - 24 >> 16 & 0xffffff, - sign & 0xffff]; - return [255, - x[3] << 16 >> s - 32 & 0xffffff, - sign & 0xffffff, - sign & 0xffff]} + function caml_int64_shift_right(x,s){return x.shift_right(s)} function caml_ba_layout(ba){return ba.layout} function caml_convert_raw_backtrace(){return [0]} function caml_array_set(array,index,newval) @@ -4291,6 +6519,18 @@ return 0} function caml_bytes_greaterequal(s1,s2) {return caml_bytes_lessequal(s2,s1)} + function ml_z_perfect_power(z) + {z = bigInt(z); + var zero=bigInt(0),one=bigInt(1); + if(z.equals(zero) || z.equals(one) || z.equals(one.negate()))return 1; + var log2z=ml_z_numbits(z.abs()); + for(var b=2;b <= log2z;b++) + {if(z.lt(zero) && b % 2 == 0)continue; + var zp=z.abs(),p=bigInt(ml_z_root(zp,b)); + if(z.lt(zero))p = p.negate(); + var r=bigInt(ml_z_pow(p,b)); + if(z.equals(r))return 1} + return 0} function set_digit_nat(nat,ofs,digit){nat.data[ofs] = digit;return 0} function caml_update_dummy(x,y) {if(typeof y === "function"){x.fun = y;return 0} @@ -4300,8 +6540,7 @@ return 0} function caml_CamlinternalMod_update_mod(shape,real,x) {if(typeof shape === "number") - switch(shape) - {case 0:real.fun = x;break;case 1:default:caml_update_dummy(real,x)} + switch(shape){case 0:case 1:case 2:default:caml_update_dummy(real,x)} else switch(shape[0]) {case 0: @@ -4310,6 +6549,15 @@ break } return 0} + function ml_z_init(unit) + {caml_custom_ops["_z"] + = + {serialize:caml_zarith_marshal, + deserialize:caml_zarith_unmarshal, + hash:ml_z_hash}; + return 0} + function caml_gr_doc_of_state(state) + {if(state.canvas.ownerDocument)return state.canvas.ownerDocument} function caml_ml_output_int(chanid,i) {var arr=[i >> 24 & 0xFF,i >> 16 & 0xFF,i >> 8 & 0xFF,i & 0xFF], @@ -4329,12 +6577,10 @@ function caml_raw_backtrace_slot() {caml_invalid_argument ("Printexc.get_raw_backtrace_slot: index out of bounds")} - function caml_int64_is_min_int(x) - {return x[3] == 0x8000 && (x[1] | x[2]) == 0} function caml_hexstring_of_float(x,prec,style) {if(! isFinite(x)) - {if(isNaN(x))return caml_js_to_string("nan"); - return caml_js_to_string(x > 0?"infinity":"-infinity")} + {if(isNaN(x))return caml_string_of_jsstring("nan"); + return caml_string_of_jsstring(x > 0?"infinity":"-infinity")} var sign=x == 0 && 1 / x == - Infinity?1:x >= 0?0:1; if(sign)x = - x; var exp=0; @@ -4366,16 +6612,77 @@ x_str += caml_str_repeat(size - x_str.length,"0"); else x_str = x_str.substr(0,size)}} - return caml_js_to_string + return caml_string_of_jsstring (sign_str + "0x" + x_str + "p" + exp_sign + exp.toString(10))} function caml_js_wrap_meth_callback_strict(arity,f) {return function() - {var n=arguments.length; - if(n == arity)return caml_call_gen(f,raw_array_cons(arguments,this)); - var args=new Array(arity + 1); + {var args=new Array(arity + 1),len=Math.min(arguments.length,arity); args[0] = this; - for(var i=1;i < n && i <= arity;i++)args[i] = arguments[i]; + for(var i=0;i < len;i++)args[i + 1] = arguments[i]; return caml_call_gen(f,args)}} + function ml_z_format(fmt,z1) + {z1 = bigInt(z1); + var + fmt=fmt.toString(), + base=10, + cas=0, + width=0, + alt=0, + dir=0, + sign="", + pad=" ", + idx=0, + prefix=""; + while(fmt[idx] == "%")idx++; + for(;;idx++) + if(fmt[idx] == "#") + alt = 1; + else + if(fmt[idx] == "0") + pad = "0"; + else + if(fmt[idx] == "-") + dir = 1; + else + if(fmt[idx] == " " || fmt[idx] == "+")sign = fmt[idx];else break; + if(z1.lt(bigInt(0))){sign = "-";z1 = z1.negate()} + for(;fmt[idx] >= "0" && fmt[idx] <= "9";idx++) + width = 10 * width + + fmt[idx]; + switch(fmt[idx]) + {case "i": + case "d": + case "u":break; + case "b":base = 2;if(alt)prefix = "0b";break; + case "o":base = 8;if(alt)prefix = "0o";break; + case "x":base = 16;if(alt)prefix = "0x";break; + case "X":base = 16;if(alt)prefix = "0X";cas = 1;break; + default:caml_failwith("Unsupported format '" + fmt + "'")} + if(dir)pad = " "; + var res=z1.toString(base); + if(cas === 1)res = res.toUpperCase(); + var size=res.length; + if(pad == " ") + if(dir) + {res = sign + prefix + res;for(;res.length < width;)res = res + pad} + else + {res = sign + prefix + res;for(;res.length < width;)res = pad + res} + else + {var pre=sign + prefix; + for(;res.length + pre.length < width;)res = pad + res; + res = pre + res} + return caml_new_string(res)} + function ml_z_size(z1) + {return bigInt(z1).toArray(Math.pow(2,32)).value.length} + function ml_z_to_int64(z1) + {z1 = bigInt(z1); + if(! ml_z_fits_int64(z1)) + caml_raise_constant(caml_named_value("ml_z_overflow")); + var + a=z1.and(bigInt(0xffffff)).toJSNumber() | 0, + b=z1.shiftRight(24).and(bigInt(0xffffff)).toJSNumber() | 0, + c=z1.shiftRight(48).and(bigInt(0xffff)).toJSNumber() | 0, + x=[255,a,b,c]; + return x} function caml_backtrace_status(){return 0} function caml_install_signal_handler(){return 0} function caml_sys_argv(a){return caml_argv} @@ -4397,6 +6704,8 @@ if(x === x)return 1; if(y === y)return - 1; return 0} + function ml_z_shift_right_trunc(z1,z2) + {return ml_z_div(bigInt(z1),bigInt(2).pow(z2))} function caml_string_set32(s,i,i32){return caml_bytes_set32(s,i,i32)} function caml_parse_engine(tables,env,cmd,arg) {var @@ -4608,8 +6917,29 @@ return res} function caml_array_fill(array,ofs,len,v) {for(var i=0;i < len;i++)array[ofs + i + 1] = v;return 0} + function ml_z_install_frametable(unit){return 0} function caml_string_notequal(s1,s2){return 1 - caml_string_equal(s1,s2)} function caml_bytes_greaterthan(s1,s2){return caml_bytes_lessthan(s2,s1)} + function caml_gr_make_image(arr) + {var + s=caml_gr_state_get(), + h=arr.length - 1, + w=arr[1].length - 1, + im=s.context.createImageData(w,h); + for(var i=0;i < h;i++) + for(var j=0;j < w;j++) + {var c=arr[i + 1][j + 1],o=i * (w * 4) + j * 4; + if(c == - 1) + {im.data[o + 0] = 0; + im.data[o + 1] = 0; + im.data[o + 2] = 0; + im.data[o + 3] = 0} + else + {im.data[o + 0] = c >> 16 & 0xff; + im.data[o + 1] = c >> 8 & 0xff; + im.data[o + 2] = c >> 0 & 0Xff; + im.data[o + 3] = 0xff}} + return im} function Base_int_math_int_popcount(v) {v = v - (v >>> 1 & 0x55555555); v = (v & 0x33333333) + (v >>> 2 & 0x33333333); @@ -4626,7 +6956,7 @@ len=file.length(), buf=caml_create_bytes(len); file.read(0,buf,0,len); - return buf} + return caml_string_of_bytes(buf)} caml_raise_no_such_file(name)} function caml_js_to_float(x){return x} joo_global_object.jsoo_runtime @@ -4655,6 +6985,74 @@ Base_internalhash_fold_float:Base_internalhash_fold_float, Base_internalhash_fold_int:Base_internalhash_fold_int, Base_internalhash_fold_int64:Base_internalhash_fold_int64, + caml_zarith_unmarshal:caml_zarith_unmarshal, + caml_zarith_marshal:caml_zarith_marshal, + ml_z_divexact:ml_z_divexact, + ml_z_size:ml_z_size, + ml_z_hamdist:ml_z_hamdist, + ml_z_popcount:ml_z_popcount, + ml_z_trailing_zeros:ml_z_trailing_zeros, + ml_z_sqrt_rem:ml_z_sqrt_rem, + ml_z_sqrt:ml_z_sqrt, + ml_z_gcdext_intern:ml_z_gcdext_intern, + ml_z_extract:ml_z_extract, + ml_z_nextprime:ml_z_nextprime, + ml_z_probab_prime:ml_z_probab_prime, + ml_z_perfect_square:ml_z_perfect_square, + ml_z_perfect_power:ml_z_perfect_power, + ml_z_invert:ml_z_invert, + ml_z_root:ml_z_root, + ml_z_powm_sec:ml_z_powm_sec, + ml_z_of_bits:ml_z_of_bits, + ml_z_to_bits:ml_z_to_bits, + ml_z_hash:ml_z_hash, + ml_z_pow:ml_z_pow, + ml_z_powm:ml_z_powm, + ml_z_fits_nativeint:ml_z_fits_nativeint, + ml_z_fits_int64:ml_z_fits_int64, + ml_z_fits_int32:ml_z_fits_int32, + ml_z_fits_int:ml_z_fits_int, + ml_z_numbits:ml_z_numbits, + ml_z_gcd:ml_z_gcd, + ml_z_sign:ml_z_sign, + ml_z_equal:ml_z_equal, + ml_z_compare:ml_z_compare, + ml_z_of_substring_base:ml_z_of_substring_base, + jsoo_z_of_js_string_base:jsoo_z_of_js_string_base, + ml_z_format:ml_z_format, + ml_z_to_nativeint:ml_z_to_nativeint, + ml_z_testbit:ml_z_testbit, + ml_z_to_int64:ml_z_to_int64, + ml_z_to_int32:ml_z_to_int32, + ml_z_to_int:ml_z_to_int, + ml_z_of_float:ml_z_of_float, + ml_z_of_int64:ml_z_of_int64, + ml_z_of_nativeint:ml_z_of_nativeint, + ml_z_of_int32:ml_z_of_int32, + ml_z_of_int:ml_z_of_int, + ml_z_shift_right_trunc:ml_z_shift_right_trunc, + ml_z_shift_right:ml_z_shift_right, + ml_z_shift_left:ml_z_shift_left, + ml_z_lognot:ml_z_lognot, + ml_z_logxor:ml_z_logxor, + ml_z_logor:ml_z_logor, + ml_z_logand:ml_z_logand, + ml_z_abs:ml_z_abs, + ml_z_pred:ml_z_pred, + ml_z_succ:ml_z_succ, + ml_z_div_rem:ml_z_div_rem, + ml_z_rem:ml_z_rem, + ml_z_fdiv:ml_z_fdiv, + ml_z_cdiv:ml_z_cdiv, + ml_z_div:ml_z_div, + ml_z_mul:ml_z_mul, + ml_z_sub:ml_z_sub, + ml_z_add:ml_z_add, + ml_z_neg:ml_z_neg, + ml_z_install_frametable:ml_z_install_frametable, + ml_z_init:ml_z_init, + ml_z_normalize:ml_z_normalize, + bigInt:bigInt, caml_ephe_check_data:caml_ephe_check_data, caml_ephe_unset_data:caml_ephe_unset_data, caml_ephe_set_data:caml_ephe_set_data, @@ -4676,6 +7074,7 @@ caml_weak_create:caml_weak_create, caml_ephe_data_offset:caml_ephe_data_offset, caml_ephe_key_offset:caml_ephe_key_offset, + unix_isatty:unix_isatty, win_handle_fd:win_handle_fd, win_cleanup:win_cleanup, win_startup:win_startup, @@ -4684,108 +7083,60 @@ unix_gmtime:unix_gmtime, unix_time:unix_time, unix_gettimeofday:unix_gettimeofday, - caml_is_js:caml_is_js, + re_replacement_text:re_replacement_text, + re_partial_match:re_partial_match, + re_string_match:re_string_match, + re_search_backward:re_search_backward, + re_search_forward:re_search_forward, + re_match:re_match, caml_spacetime_only_works_for_native_code: caml_spacetime_only_works_for_native_code, caml_register_channel_for_spacetime:caml_register_channel_for_spacetime, caml_spacetime_enabled:caml_spacetime_enabled, - caml_sys_isatty:caml_sys_isatty, - caml_runtime_parameters:caml_runtime_parameters, - caml_runtime_variant:caml_runtime_variant, caml_ml_runtime_warnings_enabled:caml_ml_runtime_warnings_enabled, caml_ml_enable_runtime_warnings:caml_ml_enable_runtime_warnings, caml_runtime_warnings:caml_runtime_warnings, - caml_list_to_js_array:caml_list_to_js_array, - caml_list_of_js_array:caml_list_of_js_array, - caml_int64_bswap:caml_int64_bswap, - caml_int32_bswap:caml_int32_bswap, - caml_bswap16:caml_bswap16, - caml_convert_raw_backtrace_slot:caml_convert_raw_backtrace_slot, - caml_install_signal_handler:caml_install_signal_handler, - caml_fresh_oo_id:caml_fresh_oo_id, - caml_set_oo_id:caml_set_oo_id, - caml_oo_last_id:caml_oo_last_id, unix_inet_addr_of_string:unix_inet_addr_of_string, - caml_sys_executable_name:caml_sys_executable_name, - caml_sys_modify_argv:caml_sys_modify_argv, - caml_sys_argv:caml_sys_argv, - caml_sys_get_argv:caml_sys_get_argv, - caml_executable_name:caml_executable_name, - caml_argv:caml_argv, - caml_sys_exit:caml_sys_exit, - caml_sys_getenv:caml_sys_getenv, - caml_set_static_env:caml_set_static_env, - caml_get_current_callstack:caml_get_current_callstack, - caml_restore_raw_backtrace:caml_restore_raw_backtrace, - caml_raw_backtrace_slot:caml_raw_backtrace_slot, - caml_raw_backtrace_next_slot:caml_raw_backtrace_next_slot, - caml_raw_backtrace_length:caml_raw_backtrace_length, - caml_convert_raw_backtrace:caml_convert_raw_backtrace, - caml_record_backtrace:caml_record_backtrace, - caml_get_exception_raw_backtrace:caml_get_exception_raw_backtrace, - caml_get_exception_backtrace:caml_get_exception_backtrace, - caml_backtrace_status:caml_backtrace_status, - caml_final_release:caml_final_release, - caml_final_register_called_without_value: - caml_final_register_called_without_value, - caml_final_register:caml_final_register, - caml_get_public_method:caml_get_public_method, - caml_array_blit:caml_array_blit, - caml_array_concat:caml_array_concat, - caml_array_append:caml_array_append, - caml_array_sub:caml_array_sub, - caml_sys_system_command:caml_sys_system_command, + caml_install_signal_handler:caml_install_signal_handler, + caml_runtime_parameters:caml_runtime_parameters, + caml_runtime_variant:caml_runtime_variant, + caml_sys_isatty:caml_sys_isatty, + caml_sys_get_config:caml_sys_get_config, + caml_sys_const_backend_type:caml_sys_const_backend_type, + caml_sys_const_ostype_cygwin:caml_sys_const_ostype_cygwin, caml_sys_const_ostype_win32:caml_sys_const_ostype_win32, caml_sys_const_ostype_unix:caml_sys_const_ostype_unix, - caml_sys_const_ostype_cygwin:caml_sys_const_ostype_cygwin, caml_sys_const_max_wosize:caml_sys_const_max_wosize, caml_sys_const_int_size:caml_sys_const_int_size, caml_sys_const_word_size:caml_sys_const_word_size, caml_sys_const_big_endian:caml_sys_const_big_endian, caml_sys_random_seed:caml_sys_random_seed, - caml_sys_const_backend_type:caml_sys_const_backend_type, - caml_sys_get_config:caml_sys_get_config, caml_sys_time:caml_sys_time, - caml_hash:caml_hash, - caml_hash_mix_string:caml_hash_mix_string, - caml_hash_mix_string_arr:caml_hash_mix_string_arr, - caml_hash_mix_string_str:caml_hash_mix_string_str, - caml_hash_mix_int64:caml_hash_mix_int64, - caml_hash_mix_float:caml_hash_mix_float, - caml_hash_mix_final:caml_hash_mix_final, - caml_hash_mix_int:caml_hash_mix_int, - caml_hash_univ_param:caml_hash_univ_param, - caml_format_float:caml_format_float, - caml_format_int:caml_format_int, - caml_finish_formatting:caml_finish_formatting, - caml_parse_format:caml_parse_format, + caml_sys_system_command:caml_sys_system_command, + caml_sys_executable_name:caml_sys_executable_name, + caml_sys_modify_argv:caml_sys_modify_argv, + caml_sys_argv:caml_sys_argv, + caml_sys_get_argv:caml_sys_get_argv, + caml_executable_name:caml_executable_name, + caml_argv:caml_argv, + caml_sys_getenv:caml_sys_getenv, + caml_set_static_env:caml_set_static_env, + caml_sys_exit:caml_sys_exit, + caml_raise_sys_error:caml_raise_sys_error, caml_is_printable:caml_is_printable, - caml_float_of_string:caml_float_of_string, - caml_int_of_string:caml_int_of_string, - caml_parse_digit:caml_parse_digit, - caml_parse_sign_and_base:caml_parse_sign_and_base, - caml_lessthan:caml_lessthan, - caml_lessequal:caml_lessequal, - caml_greaterthan:caml_greaterthan, - caml_greaterequal:caml_greaterequal, - caml_notequal:caml_notequal, - caml_equal:caml_equal, - caml_int_compare:caml_int_compare, - caml_compare:caml_compare, - caml_compare_val:caml_compare_val, - caml_compare_val_number_custom:caml_compare_val_number_custom, - caml_compare_val_get_custom:caml_compare_val_get_custom, - caml_compare_val_tag:caml_compare_val_tag, - caml_floatarray_create:caml_floatarray_create, - caml_make_float_vect:caml_make_float_vect, - caml_make_vect:caml_make_vect, - caml_check_bound:caml_check_bound, - caml_array_fill:caml_array_fill, - caml_array_get:caml_array_get, - caml_array_set:caml_array_set, - caml_mod:caml_mod, - caml_div:caml_div, - caml_mul:caml_mul, + caml_get_global_data:caml_get_global_data, + caml_register_global:caml_register_global, + caml_global_data:caml_global_data, + caml_named_value:caml_named_value, + caml_register_named_value:caml_register_named_value, + caml_named_values:caml_named_values, + caml_call_gen:caml_call_gen, + caml_set_parser_trace:caml_set_parser_trace, + caml_parse_engine:caml_parse_engine, + caml_fresh_oo_id:caml_fresh_oo_id, + caml_set_oo_id:caml_set_oo_id, + caml_oo_last_id:caml_oo_last_id, + caml_get_public_method:caml_get_public_method, caml_lazy_make_forward:caml_lazy_make_forward, caml_obj_make_forward:caml_obj_make_forward, caml_obj_truncate:caml_obj_truncate, @@ -4796,35 +7147,6 @@ caml_obj_tag:caml_obj_tag, caml_obj_is_block:caml_obj_is_block, caml_update_dummy:caml_update_dummy, - caml_array_bound_error:caml_array_bound_error, - caml_raise_not_found:caml_raise_not_found, - caml_raise_zero_divide:caml_raise_zero_divide, - caml_raise_end_of_file:caml_raise_end_of_file, - caml_invalid_argument:caml_invalid_argument, - caml_js_error_of_exception:caml_js_error_of_exception, - caml_exn_with_js_backtrace:caml_exn_with_js_backtrace, - caml_wrap_exception:caml_wrap_exception, - caml_failwith:caml_failwith, - caml_raise_sys_error:caml_raise_sys_error, - caml_raise_with_string:caml_raise_with_string, - caml_raise_with_arg:caml_raise_with_arg, - caml_return_exn_constant:caml_return_exn_constant, - caml_raise_constant:caml_raise_constant, - caml_get_global_data:caml_get_global_data, - caml_register_global:caml_register_global, - caml_global_data:caml_global_data, - caml_named_value:caml_named_value, - caml_register_named_value:caml_register_named_value, - caml_named_values:caml_named_values, - caml_call_gen:caml_call_gen, - raw_array_append_one:raw_array_append_one, - raw_array_cons:raw_array_cons, - raw_array_copy:raw_array_copy, - raw_array_sub:raw_array_sub, - caml_json:caml_json, - JSON:JSON, - caml_set_parser_trace:caml_set_parser_trace, - caml_parse_engine:caml_parse_engine, deserialize_nat:deserialize_nat, serialize_nat:serialize_nat, lxor_digit_nat:lxor_digit_nat, @@ -4862,10 +7184,28 @@ caml_hash_nat:caml_hash_nat, MlNat:MlNat, initialize_nat:initialize_nat, + caml_js_to_string:caml_js_to_string, + caml_to_js_string:caml_to_js_string, + caml_js_from_string:caml_js_from_string, + caml_new_string:caml_new_string, + caml_js_to_byte_string:caml_js_to_byte_string, + caml_is_ml_string:caml_is_ml_string, + caml_is_ml_bytes:caml_is_ml_bytes, + caml_string_of_jsstring:caml_string_of_jsstring, + caml_jsstring_of_string:caml_jsstring_of_string, + caml_jsbytes_of_string:caml_jsbytes_of_string, + caml_string_of_jsbytes:caml_string_of_jsbytes, caml_bytes_of_string:caml_bytes_of_string, caml_string_of_bytes:caml_string_of_bytes, - caml_ml_bytes_length:caml_ml_bytes_length, + caml_string_lessthan:caml_string_lessthan, + caml_string_lessequal:caml_string_lessequal, + caml_string_equal:caml_string_equal, + caml_string_compare:caml_string_compare, caml_ml_string_length:caml_ml_string_length, + caml_string_unsafe_set:caml_string_unsafe_set, + caml_string_unsafe_get:caml_string_unsafe_get, + caml_bytes_of_jsbytes:caml_bytes_of_jsbytes, + caml_ml_bytes_length:caml_ml_bytes_length, caml_blit_string:caml_blit_string, caml_blit_bytes:caml_blit_bytes, caml_fill_string:caml_fill_string, @@ -4875,25 +7215,21 @@ caml_bytes_greaterequal:caml_bytes_greaterequal, caml_string_greaterequal:caml_string_greaterequal, caml_bytes_lessthan:caml_bytes_lessthan, - caml_string_lessthan:caml_string_lessthan, caml_bytes_lessequal:caml_bytes_lessequal, - caml_string_lessequal:caml_string_lessequal, caml_bytes_notequal:caml_bytes_notequal, caml_string_notequal:caml_string_notequal, caml_bytes_equal:caml_bytes_equal, - caml_string_equal:caml_string_equal, caml_bytes_compare:caml_bytes_compare, - caml_string_compare:caml_string_compare, + caml_bytes_of_array:caml_bytes_of_array, caml_string_of_array:caml_string_of_array, - caml_new_string:caml_new_string, caml_create_bytes:caml_create_bytes, caml_create_string:caml_create_string, - caml_js_to_string:caml_js_to_string, - caml_jsbytes_of_string:caml_jsbytes_of_string, caml_array_of_string:caml_array_of_string, - caml_convert_string_to_array:caml_convert_string_to_array, + caml_array_of_bytes:caml_array_of_bytes, + caml_convert_bytes_to_array:caml_convert_bytes_to_array, caml_convert_string_to_bytes:caml_convert_string_to_bytes, MlBytes:MlBytes, + caml_bytes_of_utf16_jsstring:caml_bytes_of_utf16_jsstring, caml_bytes_set:caml_bytes_set, caml_string_set64:caml_string_set64, caml_bytes_set64:caml_bytes_set64, @@ -4910,17 +7246,16 @@ caml_bytes_get16:caml_bytes_get16, caml_string_get16:caml_string_get16, caml_string_get:caml_string_get, + caml_bytes_bound_error:caml_bytes_bound_error, caml_string_bound_error:caml_string_bound_error, - caml_string_unsafe_set:caml_string_unsafe_set, caml_bytes_unsafe_set:caml_bytes_unsafe_set, caml_bytes_unsafe_get:caml_bytes_unsafe_get, - caml_string_unsafe_get:caml_string_unsafe_get, - caml_to_js_string:caml_to_js_string, - caml_is_ascii:caml_is_ascii, + jsoo_is_ascii:jsoo_is_ascii, caml_utf16_of_utf8:caml_utf16_of_utf8, caml_utf8_of_utf16:caml_utf8_of_utf16, - caml_subarray_to_string:caml_subarray_to_string, + caml_subarray_to_jsbytes:caml_subarray_to_jsbytes, caml_str_repeat:caml_str_repeat, + caml_md5_bytes:caml_md5_bytes, caml_md5_string:caml_md5_string, caml_md5_chan:caml_md5_chan, caml_output_value_to_buffer:caml_output_value_to_buffer, @@ -4940,7 +7275,7 @@ caml_input_value_from_string:caml_input_value_from_string, caml_float_of_bytes:caml_float_of_bytes, BigStringReader:BigStringReader, - MlBytesReader:MlBytesReader, + MlStringReader:MlStringReader, caml_marshal_constants:caml_marshal_constants, caml_new_lex_engine:caml_new_lex_engine, caml_lex_engine:caml_lex_engine, @@ -4950,7 +7285,6 @@ caml_pure_js_expr:caml_pure_js_expr, caml_js_expr:caml_js_expr, caml_js_eval_string:caml_js_eval_string, - caml_js_to_byte_string:caml_js_to_byte_string, caml_js_equals:caml_js_equals, caml_js_wrap_meth_callback_unsafe:caml_js_wrap_meth_callback_unsafe, caml_js_wrap_meth_callback_strict:caml_js_wrap_meth_callback_strict, @@ -4965,13 +7299,18 @@ caml_js_fun_call:caml_js_fun_call, caml_js_call:caml_js_call, caml_js_var:caml_js_var, + caml_list_to_js_array:caml_list_to_js_array, + caml_list_of_js_array:caml_list_of_js_array, caml_js_to_array:caml_js_to_array, caml_js_from_array:caml_js_from_array, - caml_js_from_string:caml_js_from_string, caml_js_to_float:caml_js_to_float, caml_js_from_float:caml_js_from_float, caml_js_to_bool:caml_js_to_bool, caml_js_from_bool:caml_js_from_bool, + caml_js_error_of_exception:caml_js_error_of_exception, + caml_exn_with_js_backtrace:caml_exn_with_js_backtrace, + caml_wrap_exception:caml_wrap_exception, + caml_is_js:caml_is_js, js_print_stderr:js_print_stderr, js_print_stdout:js_print_stdout, caml_trampoline_return:caml_trampoline_return, @@ -5021,6 +7360,16 @@ caml_sys_open:caml_sys_open, caml_std_output:caml_std_output, caml_sys_close:caml_sys_close, + caml_int64_bswap:caml_int64_bswap, + caml_int32_bswap:caml_int32_bswap, + caml_bswap16:caml_bswap16, + caml_mod:caml_mod, + caml_div:caml_div, + caml_mul:caml_mul, + caml_int_of_string:caml_int_of_string, + caml_parse_digit:caml_parse_digit, + caml_parse_sign_and_base:caml_parse_sign_and_base, + caml_format_int:caml_format_int, caml_CamlinternalMod_update_mod:caml_CamlinternalMod_update_mod, caml_CamlinternalMod_init_mod:caml_CamlinternalMod_init_mod, caml_int64_hash:caml_int64_hash, @@ -5038,17 +7387,12 @@ caml_int64_of_int32:caml_int64_of_int32, caml_int64_mod:caml_int64_mod, caml_int64_div:caml_int64_div, - caml_int64_udivmod:caml_int64_udivmod, - caml_int64_lsr1:caml_int64_lsr1, - caml_int64_lsl1:caml_int64_lsl1, caml_int64_shift_right:caml_int64_shift_right, caml_int64_shift_right_unsigned:caml_int64_shift_right_unsigned, caml_int64_shift_left:caml_int64_shift_left, caml_int64_xor:caml_int64_xor, caml_int64_or:caml_int64_or, caml_int64_and:caml_int64_and, - caml_int64_is_minus_one:caml_int64_is_minus_one, - caml_int64_is_min_int:caml_int64_is_min_int, caml_int64_is_negative:caml_int64_is_negative, caml_int64_is_zero:caml_int64_is_zero, caml_int64_mul:caml_int64_mul, @@ -5057,8 +7401,10 @@ caml_int64_neg:caml_int64_neg, caml_int64_compare:caml_int64_compare, caml_int64_ult:caml_int64_ult, - caml_int64_ucompare:caml_int64_ucompare, + MlInt64:MlInt64, caml_int64_offset:caml_int64_offset, + caml_float_of_string:caml_float_of_string, + caml_format_float:caml_format_float, caml_round_float:caml_round_float, caml_tanh_float:caml_tanh_float, caml_sinh_float:caml_sinh_float, @@ -5082,6 +7428,67 @@ caml_int32_bits_of_float:caml_int32_bits_of_float, caml_int64_bits_of_float:caml_int64_bits_of_float, jsoo_floor_log2:jsoo_floor_log2, + caml_hash:caml_hash, + caml_hash_mix_string:caml_hash_mix_string, + caml_hash_mix_bytes:caml_hash_mix_bytes, + caml_hash_mix_bytes_arr:caml_hash_mix_bytes_arr, + caml_hash_mix_jsbytes:caml_hash_mix_jsbytes, + caml_hash_mix_int64:caml_hash_mix_int64, + caml_hash_mix_float:caml_hash_mix_float, + caml_hash_mix_final:caml_hash_mix_final, + caml_hash_mix_int:caml_hash_mix_int, + caml_hash_univ_param:caml_hash_univ_param, + caml_gr_close_subwindow:caml_gr_close_subwindow, + caml_gr_open_subwindow:caml_gr_open_subwindow, + caml_gr_window_id:caml_gr_window_id, + caml_gr_display_mode:caml_gr_display_mode, + caml_gr_remember_mode:caml_gr_remember_mode, + caml_gr_synchronize:caml_gr_synchronize, + caml_gr_wait_event:caml_gr_wait_event, + caml_gr_sigio_signal:caml_gr_sigio_signal, + caml_gr_sigio_handler:caml_gr_sigio_handler, + caml_gr_blit_image:caml_gr_blit_image, + caml_gr_create_image:caml_gr_create_image, + caml_gr_draw_image:caml_gr_draw_image, + caml_gr_dump_image:caml_gr_dump_image, + caml_gr_make_image:caml_gr_make_image, + caml_gr_text_size:caml_gr_text_size, + caml_gr_set_text_size:caml_gr_set_text_size, + caml_gr_set_font:caml_gr_set_font, + caml_gr_draw_string:caml_gr_draw_string, + caml_gr_draw_char:caml_gr_draw_char, + caml_gr_draw_str:caml_gr_draw_str, + caml_gr_fill_arc:caml_gr_fill_arc, + caml_gr_fill_poly:caml_gr_fill_poly, + caml_gr_fill_rect:caml_gr_fill_rect, + caml_gr_set_line_width:caml_gr_set_line_width, + caml_gr_draw_arc:caml_gr_draw_arc, + caml_gr_arc_aux:caml_gr_arc_aux, + caml_gr_draw_rect:caml_gr_draw_rect, + caml_gr_lineto:caml_gr_lineto, + caml_gr_current_y:caml_gr_current_y, + caml_gr_current_x:caml_gr_current_x, + caml_gr_moveto:caml_gr_moveto, + caml_gr_point_color:caml_gr_point_color, + caml_gr_plot:caml_gr_plot, + caml_gr_set_color:caml_gr_set_color, + caml_gr_size_y:caml_gr_size_y, + caml_gr_size_x:caml_gr_size_x, + caml_gr_clear_graph:caml_gr_clear_graph, + caml_gr_resize_window:caml_gr_resize_window, + caml_gr_set_window_title:caml_gr_set_window_title, + caml_gr_close_graph:caml_gr_close_graph, + caml_gr_doc_of_state:caml_gr_doc_of_state, + caml_gr_state_create:caml_gr_state_create, + caml_gr_state_init:caml_gr_state_init, + caml_gr_open_graph:caml_gr_open_graph, + caml_gr_state_set:caml_gr_state_set, + caml_gr_state_get:caml_gr_state_get, + caml_gr_state:caml_gr_state, + caml_final_release:caml_final_release, + caml_final_register_called_without_value: + caml_final_register_called_without_value, + caml_final_register:caml_final_register, caml_memprof_set:caml_memprof_set, caml_gc_get:caml_gc_get, caml_gc_set:caml_gc_set, @@ -5121,7 +7528,32 @@ MlFile:MlFile, caml_root:caml_root, caml_current_dir:caml_current_dir, + caml_finish_formatting:caml_finish_formatting, + caml_parse_format:caml_parse_format, + caml_array_bound_error:caml_array_bound_error, + caml_raise_not_found:caml_raise_not_found, + caml_raise_zero_divide:caml_raise_zero_divide, + caml_raise_end_of_file:caml_raise_end_of_file, + caml_invalid_argument:caml_invalid_argument, + caml_failwith:caml_failwith, + caml_raise_with_string:caml_raise_with_string, + caml_raise_with_arg:caml_raise_with_arg, + caml_return_exn_constant:caml_return_exn_constant, + caml_raise_constant:caml_raise_constant, + caml_lessthan:caml_lessthan, + caml_lessequal:caml_lessequal, + caml_greaterthan:caml_greaterthan, + caml_greaterequal:caml_greaterequal, + caml_notequal:caml_notequal, + caml_equal:caml_equal, + caml_int_compare:caml_int_compare, + caml_compare:caml_compare, + caml_compare_val:caml_compare_val, + caml_compare_val_number_custom:caml_compare_val_number_custom, + caml_compare_val_get_custom:caml_compare_val_get_custom, + caml_compare_val_tag:caml_compare_val_tag, caml_bigstring_blit_ba_to_bytes:caml_bigstring_blit_ba_to_bytes, + caml_bigstring_blit_bytes_to_ba:caml_bigstring_blit_bytes_to_ba, caml_bigstring_blit_string_to_ba:caml_bigstring_blit_string_to_ba, caml_bigstring_blit_ba_to_ba:caml_bigstring_blit_ba_to_ba, caml_bigstring_memcmp:caml_bigstring_memcmp, @@ -5130,6 +7562,9 @@ bigstring_to_typed_array:bigstring_to_typed_array, bigstring_to_array_buffer:bigstring_to_array_buffer, caml_hash_mix_bigstring:caml_hash_mix_bigstring, + caml_ba_from_typed_array:caml_ba_from_typed_array, + caml_ba_kind_of_typed_array:caml_ba_kind_of_typed_array, + caml_ba_to_typed_array:caml_ba_to_typed_array, caml_ba_hash:caml_ba_hash, caml_ba_create_from:caml_ba_create_from, caml_ba_deserialize:caml_ba_deserialize, @@ -5169,30 +7604,59 @@ caml_ba_create_buffer:caml_ba_create_buffer, caml_ba_get_size_per_element:caml_ba_get_size_per_element, caml_ba_get_size:caml_ba_get_size, - caml_ba_init:caml_ba_init}; + caml_ba_init:caml_ba_init, + caml_convert_raw_backtrace_slot:caml_convert_raw_backtrace_slot, + caml_get_current_callstack:caml_get_current_callstack, + caml_restore_raw_backtrace:caml_restore_raw_backtrace, + caml_raw_backtrace_slot:caml_raw_backtrace_slot, + caml_raw_backtrace_next_slot:caml_raw_backtrace_next_slot, + caml_raw_backtrace_length:caml_raw_backtrace_length, + caml_convert_raw_backtrace:caml_convert_raw_backtrace, + caml_record_backtrace:caml_record_backtrace, + caml_get_exception_raw_backtrace:caml_get_exception_raw_backtrace, + caml_get_exception_backtrace:caml_get_exception_backtrace, + caml_backtrace_status:caml_backtrace_status, + caml_floatarray_create:caml_floatarray_create, + caml_make_float_vect:caml_make_float_vect, + caml_make_vect:caml_make_vect, + caml_check_bound:caml_check_bound, + caml_array_fill:caml_array_fill, + caml_array_get:caml_array_get, + caml_array_set:caml_array_set, + caml_array_blit:caml_array_blit, + caml_array_concat:caml_array_concat, + caml_array_append:caml_array_append, + caml_array_sub:caml_array_sub}; caml_fs_init(); caml_register_global - (0,[248,caml_new_string("Out_of_memory"),0],"Out_of_memory"); - caml_register_global(1,[248,caml_new_string("Sys_error"),-1],"Sys_error"); - caml_register_global(2,[248,caml_new_string("Failure"),-2],"Failure"); + (0,[248,caml_string_of_jsbytes("Out_of_memory"),0],"Out_of_memory"); + caml_register_global + (1,[248,caml_string_of_jsbytes("Sys_error"),-1],"Sys_error"); + caml_register_global + (2,[248,caml_string_of_jsbytes("Failure"),-2],"Failure"); caml_register_global - (3,[248,caml_new_string("Invalid_argument"),-3],"Invalid_argument"); + (3, + [248,caml_string_of_jsbytes("Invalid_argument"),-3], + "Invalid_argument"); caml_register_global - (4,[248,caml_new_string("End_of_file"),-4],"End_of_file"); + (4,[248,caml_string_of_jsbytes("End_of_file"),-4],"End_of_file"); caml_register_global - (5,[248,caml_new_string("Division_by_zero"),-5],"Division_by_zero"); - caml_register_global(6,[248,caml_new_string("Not_found"),-6],"Not_found"); + (5, + [248,caml_string_of_jsbytes("Division_by_zero"),-5], + "Division_by_zero"); caml_register_global - (7,[248,caml_new_string("Match_failure"),-7],"Match_failure"); + (6,[248,caml_string_of_jsbytes("Not_found"),-6],"Not_found"); caml_register_global - (8,[248,caml_new_string("Stack_overflow"),-8],"Stack_overflow"); + (7,[248,caml_string_of_jsbytes("Match_failure"),-7],"Match_failure"); caml_register_global - (9,[248,caml_new_string("Sys_blocked_io"),-9],"Sys_blocked_io"); + (8,[248,caml_string_of_jsbytes("Stack_overflow"),-8],"Stack_overflow"); caml_register_global - (10,[248,caml_new_string("Assert_failure"),-10],"Assert_failure"); + (9,[248,caml_string_of_jsbytes("Sys_blocked_io"),-9],"Sys_blocked_io"); + caml_register_global + (10,[248,caml_string_of_jsbytes("Assert_failure"),-10],"Assert_failure"); caml_register_global (11, - [248,caml_new_string("Undefined_recursive_module"),-11], + [248,caml_string_of_jsbytes("Undefined_recursive_module"),-11], "Undefined_recursive_module"); return} (function(){return this}())); @@ -5243,7 +7707,7 @@ caml_format_float=runtime.caml_format_float, caml_format_int=runtime.caml_format_int, caml_fresh_oo_id=runtime.caml_fresh_oo_id, - caml_get_exception_raw_backtrace=runtime.caml_get_exception_raw_backtrace, + caml_get_exception_raw_backtra=runtime.caml_get_exception_raw_backtrace, caml_get_public_method=runtime.caml_get_public_method, caml_greaterequal=runtime.caml_greaterequal, caml_greaterthan=runtime.caml_greaterthan, @@ -5285,7 +7749,6 @@ caml_ml_string_length=runtime.caml_ml_string_length, caml_mod=runtime.caml_mod, caml_mul=runtime.caml_mul, - caml_new_string=runtime.caml_new_string, caml_nextafter_float=runtime.caml_nextafter_float, caml_notequal=runtime.caml_notequal, caml_obj_block=runtime.caml_obj_block, @@ -5298,13 +7761,14 @@ caml_set_oo_id=runtime.caml_set_oo_id, caml_signbit_float=runtime.caml_signbit_float, caml_spacetime_enabled=runtime.caml_spacetime_enabled, - caml_spacetime_only_works_for_native_code= + caml_spacetime_only_works_for_= runtime.caml_spacetime_only_works_for_native_code, caml_string_compare=runtime.caml_string_compare, caml_string_equal=runtime.caml_string_equal, caml_string_get=runtime.caml_string_get, caml_string_notequal=runtime.caml_string_notequal, caml_string_of_bytes=runtime.caml_string_of_bytes, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, caml_string_unsafe_get=runtime.caml_string_unsafe_get, caml_sys_argv=runtime.caml_sys_argv, caml_sys_getenv=runtime.caml_sys_getenv, @@ -5333,539 +7797,565 @@ :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5])} var global_data=runtime.caml_get_global_data(), - cst$0=caml_new_string("%,"), - cst_really_input=caml_new_string("really_input"), - cst_input=caml_new_string("input"), - cst_output_substring=caml_new_string("output_substring"), - cst_output=caml_new_string("output"), - cst_12g=caml_new_string("%.12g"), - cst=caml_new_string("."), - cst_false$1=caml_new_string("false"), - cst_true$1=caml_new_string("true"), - cst_false$0=caml_new_string("false"), - cst_true$0=caml_new_string("true"), - cst_bool_of_string=caml_new_string("bool_of_string"), - cst_true=caml_new_string("true"), - cst_false=caml_new_string("false"), - cst_char_of_int=caml_new_string("char_of_int"), - cst_Stdlib_Exit=caml_new_string("Stdlib.Exit"), - cst_Stdlib_Pervasives_Exit=caml_new_string("Stdlib.Pervasives.Exit"), - cst_option_is_None=caml_new_string("option is None"), - cst_result_is_Ok=caml_new_string("result is Ok _"), - cst_result_is_Error=caml_new_string("result is Error _"), - cst_true$2=caml_new_string("true"), - cst_false$2=caml_new_string("false"), - cst$1=caml_new_string("\\\\"), - cst$2=caml_new_string("\\'"), - cst_b=caml_new_string("\\b"), - cst_t=caml_new_string("\\t"), - cst_n=caml_new_string("\\n"), - cst_r=caml_new_string("\\r"), - cst_Char_chr=caml_new_string("Char.chr"), + cst$0=caml_string_of_jsbytes("%,"), + cst_really_input=caml_string_of_jsbytes("really_input"), + cst_input=caml_string_of_jsbytes("input"), + cst_output_substring=caml_string_of_jsbytes("output_substring"), + cst_output=caml_string_of_jsbytes("output"), + cst_12g=caml_string_of_jsbytes("%.12g"), + cst=caml_string_of_jsbytes("."), + cst_false$1=caml_string_of_jsbytes("false"), + cst_true$1=caml_string_of_jsbytes("true"), + cst_false$0=caml_string_of_jsbytes("false"), + cst_true$0=caml_string_of_jsbytes("true"), + cst_bool_of_string=caml_string_of_jsbytes("bool_of_string"), + cst_true=caml_string_of_jsbytes("true"), + cst_false=caml_string_of_jsbytes("false"), + cst_char_of_int=caml_string_of_jsbytes("char_of_int"), + cst_Stdlib_Exit=caml_string_of_jsbytes("Stdlib.Exit"), + cst_Stdlib_Pervasives_Exit= + caml_string_of_jsbytes("Stdlib.Pervasives.Exit"), + cst_option_is_None=caml_string_of_jsbytes("option is None"), + cst_result_is_Ok=caml_string_of_jsbytes("result is Ok _"), + cst_result_is_Error=caml_string_of_jsbytes("result is Error _"), + cst_true$2=caml_string_of_jsbytes("true"), + cst_false$2=caml_string_of_jsbytes("false"), + cst$1=caml_string_of_jsbytes("\\\\"), + cst$2=caml_string_of_jsbytes("\\'"), + cst_b=caml_string_of_jsbytes("\\b"), + cst_t=caml_string_of_jsbytes("\\t"), + cst_n=caml_string_of_jsbytes("\\n"), + cst_r=caml_string_of_jsbytes("\\r"), + cst_Char_chr=caml_string_of_jsbytes("Char.chr"), cst_is_not_a_latin1_character= - caml_new_string(" is not a latin1 character"), - cst_04X=caml_new_string("%04X"), - cst_U=caml_new_string("U+"), - cst_is_not_an_Unicode_scalar_value= - caml_new_string(" is not an Unicode scalar value"), - cst_X=caml_new_string("%X"), - err_no_pred=caml_new_string("U+0000 has no predecessor"), - err_no_succ=caml_new_string("U+10FFFF has no successor"), - cst_Stdlib_Sys_Break=caml_new_string("Stdlib.Sys.Break"), - ocaml_version=caml_new_string("4.09.1"), - cst_List_map2=caml_new_string("List.map2"), - cst_List_iter2=caml_new_string("List.iter2"), - cst_List_fold_left2=caml_new_string("List.fold_left2"), - cst_List_fold_right2=caml_new_string("List.fold_right2"), - cst_List_for_all2=caml_new_string("List.for_all2"), - cst_List_exists2=caml_new_string("List.exists2"), - cst_List_combine=caml_new_string("List.combine"), - cst_List_rev_map2=caml_new_string("List.rev_map2"), - cst_List_init=caml_new_string("List.init"), - cst_List_nth$0=caml_new_string("List.nth"), - cst_nth=caml_new_string("nth"), - cst_List_nth=caml_new_string("List.nth"), - cst_tl=caml_new_string("tl"), - cst_hd=caml_new_string("hd"), - cst_Bytes_of_seq_cannot_grow_bytes= - caml_new_string("Bytes.of_seq: cannot grow bytes"), - cst_String_rcontains_from_Bytes_rcontains_from= - caml_new_string("String.rcontains_from / Bytes.rcontains_from"), - cst_String_contains_from_Bytes_contains_from= - caml_new_string("String.contains_from / Bytes.contains_from"), - cst_String_rindex_from_opt_Bytes_rindex_from_opt= - caml_new_string("String.rindex_from_opt / Bytes.rindex_from_opt"), - cst_String_rindex_from_Bytes_rindex_from= - caml_new_string("String.rindex_from / Bytes.rindex_from"), - cst_String_index_from_opt_Bytes_index_from_opt= - caml_new_string("String.index_from_opt / Bytes.index_from_opt"), - cst_String_index_from_Bytes_index_from= - caml_new_string("String.index_from / Bytes.index_from"), - cst_Bytes_concat=caml_new_string("Bytes.concat"), - cst_String_blit_Bytes_blit_string= - caml_new_string("String.blit / Bytes.blit_string"), - cst_Bytes_blit=caml_new_string("Bytes.blit"), - cst_String_fill_Bytes_fill=caml_new_string("String.fill / Bytes.fill"), - cst_Bytes_extend=caml_new_string("Bytes.extend"), - cst_String_sub_Bytes_sub=caml_new_string("String.sub / Bytes.sub"), - cst_String_rcontains_from_Bytes_rcontains_from$0= - caml_new_string("String.rcontains_from / Bytes.rcontains_from"), - cst_String_contains_from_Bytes_contains_from$0= - caml_new_string("String.contains_from / Bytes.contains_from"), - cst_String_rindex_from_opt_Bytes_rindex_from_opt$0= - caml_new_string("String.rindex_from_opt / Bytes.rindex_from_opt"), - cst_String_rindex_from_Bytes_rindex_from$0= - caml_new_string("String.rindex_from / Bytes.rindex_from"), - cst_String_index_from_opt_Bytes_index_from_opt$0= - caml_new_string("String.index_from_opt / Bytes.index_from_opt"), - cst_String_index_from_Bytes_index_from$0= - caml_new_string("String.index_from / Bytes.index_from"), - cst$4=caml_new_string(""), - cst$3=caml_new_string(""), - cst_String_concat=caml_new_string("String.concat"), - cst$5=caml_new_string("()"), - cst_Marshal_from_bytes=caml_new_string("Marshal.from_bytes"), - cst_Marshal_from_bytes$0=caml_new_string("Marshal.from_bytes"), - cst_Marshal_data_size=caml_new_string("Marshal.data_size"), - cst_Marshal_to_buffer_substring_out_of_bounds= - caml_new_string("Marshal.to_buffer: substring out of bounds"), - cst_Obj_Ephemeron_blit_key=caml_new_string("Obj.Ephemeron.blit_key"), - cst_Obj_Ephemeron_check_key=caml_new_string("Obj.Ephemeron.check_key"), - cst_Obj_Ephemeron_unset_key=caml_new_string("Obj.Ephemeron.unset_key"), - cst_Obj_Ephemeron_set_key=caml_new_string("Obj.Ephemeron.set_key"), + caml_string_of_jsbytes(" is not a latin1 character"), + cst_04X=caml_string_of_jsbytes("%04X"), + cst_U=caml_string_of_jsbytes("U+"), + cst_is_not_an_Unicode_scalar_v= + caml_string_of_jsbytes(" is not an Unicode scalar value"), + cst_X=caml_string_of_jsbytes("%X"), + err_no_pred=caml_string_of_jsbytes("U+0000 has no predecessor"), + err_no_succ=caml_string_of_jsbytes("U+10FFFF has no successor"), + cst_Stdlib_Sys_Break=caml_string_of_jsbytes("Stdlib.Sys.Break"), + ocaml_version=caml_string_of_jsbytes("4.09.1"), + cst_List_map2=caml_string_of_jsbytes("List.map2"), + cst_List_iter2=caml_string_of_jsbytes("List.iter2"), + cst_List_fold_left2=caml_string_of_jsbytes("List.fold_left2"), + cst_List_fold_right2=caml_string_of_jsbytes("List.fold_right2"), + cst_List_for_all2=caml_string_of_jsbytes("List.for_all2"), + cst_List_exists2=caml_string_of_jsbytes("List.exists2"), + cst_List_combine=caml_string_of_jsbytes("List.combine"), + cst_List_rev_map2=caml_string_of_jsbytes("List.rev_map2"), + cst_List_init=caml_string_of_jsbytes("List.init"), + cst_List_nth$0=caml_string_of_jsbytes("List.nth"), + cst_nth=caml_string_of_jsbytes("nth"), + cst_List_nth=caml_string_of_jsbytes("List.nth"), + cst_tl=caml_string_of_jsbytes("tl"), + cst_hd=caml_string_of_jsbytes("hd"), + cst_Bytes_of_seq_cannot_grow_b= + caml_string_of_jsbytes("Bytes.of_seq: cannot grow bytes"), + cst_String_rcontains_from_Byte= + caml_string_of_jsbytes("String.rcontains_from / Bytes.rcontains_from"), + cst_String_contains_from_Bytes= + caml_string_of_jsbytes("String.contains_from / Bytes.contains_from"), + cst_String_rindex_from_opt_Byt= + caml_string_of_jsbytes("String.rindex_from_opt / Bytes.rindex_from_opt"), + cst_String_rindex_from_Bytes_r= + caml_string_of_jsbytes("String.rindex_from / Bytes.rindex_from"), + cst_String_index_from_opt_Byte= + caml_string_of_jsbytes("String.index_from_opt / Bytes.index_from_opt"), + cst_String_index_from_Bytes_in= + caml_string_of_jsbytes("String.index_from / Bytes.index_from"), + cst_Bytes_concat=caml_string_of_jsbytes("Bytes.concat"), + cst_String_blit_Bytes_blit_str= + caml_string_of_jsbytes("String.blit / Bytes.blit_string"), + cst_Bytes_blit=caml_string_of_jsbytes("Bytes.blit"), + cst_String_fill_Bytes_fill= + caml_string_of_jsbytes("String.fill / Bytes.fill"), + cst_Bytes_extend=caml_string_of_jsbytes("Bytes.extend"), + cst_String_sub_Bytes_sub=caml_string_of_jsbytes("String.sub / Bytes.sub"), + cst_String_rcontains_from_Byte$0= + caml_string_of_jsbytes("String.rcontains_from / Bytes.rcontains_from"), + cst_String_contains_from_Bytes$0= + caml_string_of_jsbytes("String.contains_from / Bytes.contains_from"), + cst_String_rindex_from_opt_Byt$0= + caml_string_of_jsbytes("String.rindex_from_opt / Bytes.rindex_from_opt"), + cst_String_rindex_from_Bytes_r$0= + caml_string_of_jsbytes("String.rindex_from / Bytes.rindex_from"), + cst_String_index_from_opt_Byte$0= + caml_string_of_jsbytes("String.index_from_opt / Bytes.index_from_opt"), + cst_String_index_from_Bytes_in$0= + caml_string_of_jsbytes("String.index_from / Bytes.index_from"), + cst$4=caml_string_of_jsbytes(""), + cst$3=caml_string_of_jsbytes(""), + cst_String_concat=caml_string_of_jsbytes("String.concat"), + cst$5=caml_string_of_jsbytes("()"), + cst_Marshal_from_bytes=caml_string_of_jsbytes("Marshal.from_bytes"), + cst_Marshal_from_bytes$0=caml_string_of_jsbytes("Marshal.from_bytes"), + cst_Marshal_data_size=caml_string_of_jsbytes("Marshal.data_size"), + cst_Marshal_to_buffer_substrin= + caml_string_of_jsbytes("Marshal.to_buffer: substring out of bounds"), + cst_Obj_Ephemeron_blit_key= + caml_string_of_jsbytes("Obj.Ephemeron.blit_key"), + cst_Obj_Ephemeron_check_key= + caml_string_of_jsbytes("Obj.Ephemeron.check_key"), + cst_Obj_Ephemeron_unset_key= + caml_string_of_jsbytes("Obj.Ephemeron.unset_key"), + cst_Obj_Ephemeron_set_key=caml_string_of_jsbytes("Obj.Ephemeron.set_key"), cst_Obj_Ephemeron_get_key_copy= - caml_new_string("Obj.Ephemeron.get_key_copy"), - cst_Obj_Ephemeron_get_key=caml_new_string("Obj.Ephemeron.get_key"), - cst_Obj_Ephemeron_create=caml_new_string("Obj.Ephemeron.create"), + caml_string_of_jsbytes("Obj.Ephemeron.get_key_copy"), + cst_Obj_Ephemeron_get_key=caml_string_of_jsbytes("Obj.Ephemeron.get_key"), + cst_Obj_Ephemeron_create=caml_string_of_jsbytes("Obj.Ephemeron.create"), cst_Obj_extension_constructor$0= - caml_new_string("Obj.extension_constructor"), + caml_string_of_jsbytes("Obj.extension_constructor"), cst_Obj_extension_constructor= - caml_new_string("Obj.extension_constructor"), - cst_Array_map2_arrays_must_have_the_same_length= - caml_new_string("Array.map2: arrays must have the same length"), - cst_Array_iter2_arrays_must_have_the_same_length= - caml_new_string("Array.iter2: arrays must have the same length"), - cst_Array_blit=caml_new_string("Array.blit"), - cst_Array_fill=caml_new_string("Array.fill"), - cst_Array_sub=caml_new_string("Array.sub"), - cst_Array_init=caml_new_string("Array.init"), - cst_Stdlib_Array_Bottom=caml_new_string("Stdlib.Array.Bottom"), - cst_Float_Array_map2_arrays_must_have_the_same_length= - caml_new_string("Float.Array.map2: arrays must have the same length"), - cst_Float_Array_iter2_arrays_must_have_the_same_length= - caml_new_string("Float.Array.iter2: arrays must have the same length"), - cst_Float_array_blit=caml_new_string("Float.array.blit"), - cst_Float_array_blit$0=caml_new_string("Float.array.blit"), - cst_Float_Array_fill=caml_new_string("Float.Array.fill"), - cst_Float_Array_sub=caml_new_string("Float.Array.sub"), - cst_Float_Array_concat=caml_new_string("Float.Array.concat"), - cst_Float_Array_init=caml_new_string("Float.Array.init"), + caml_string_of_jsbytes("Obj.extension_constructor"), + cst_Array_map2_arrays_must_hav= + caml_string_of_jsbytes("Array.map2: arrays must have the same length"), + cst_Array_iter2_arrays_must_ha= + caml_string_of_jsbytes("Array.iter2: arrays must have the same length"), + cst_Array_blit=caml_string_of_jsbytes("Array.blit"), + cst_Array_fill=caml_string_of_jsbytes("Array.fill"), + cst_Array_sub=caml_string_of_jsbytes("Array.sub"), + cst_Array_init=caml_string_of_jsbytes("Array.init"), + cst_Stdlib_Array_Bottom=caml_string_of_jsbytes("Stdlib.Array.Bottom"), + cst_Float_Array_map2_arrays_mu= + caml_string_of_jsbytes + ("Float.Array.map2: arrays must have the same length"), + cst_Float_Array_iter2_arrays_m= + caml_string_of_jsbytes + ("Float.Array.iter2: arrays must have the same length"), + cst_Float_array_blit=caml_string_of_jsbytes("Float.array.blit"), + cst_Float_array_blit$0=caml_string_of_jsbytes("Float.array.blit"), + cst_Float_Array_fill=caml_string_of_jsbytes("Float.Array.fill"), + cst_Float_Array_sub=caml_string_of_jsbytes("Float.Array.sub"), + cst_Float_Array_concat=caml_string_of_jsbytes("Float.Array.concat"), + cst_Float_Array_init=caml_string_of_jsbytes("Float.Array.init"), cst_Stdlib_Float_Array_Bottom= - caml_new_string("Stdlib.Float.Array.Bottom"), - cst_d=caml_new_string("%d"), - cst_d$0=caml_new_string("%d"), + caml_string_of_jsbytes("Stdlib.Float.Array.Bottom"), + cst_d=caml_string_of_jsbytes("%d"), + cst_d$0=caml_string_of_jsbytes("%d"), zero$2=runtime.caml_int64_create_lo_mi_hi(0,0,0), one$2=runtime.caml_int64_create_lo_mi_hi(1,0,0), minus_one$2=runtime.caml_int64_create_lo_mi_hi(16777215,16777215,65535), min_int$2=runtime.caml_int64_create_lo_mi_hi(0,0,32768), max_int$2=runtime.caml_int64_create_lo_mi_hi(16777215,16777215,32767), - cst_d$1=caml_new_string("%d"), - cst_Lexing_lex_refill_cannot_grow_buffer= - caml_new_string("Lexing.lex_refill: cannot grow buffer"), - dummy_pos=[0,caml_new_string(""),0,0,-1], - zero_pos=[0,caml_new_string(""),1,0,0], - cst_syntax_error=caml_new_string("syntax error"), - cst_Stdlib_Parsing_YYexit=caml_new_string("Stdlib.Parsing.YYexit"), + cst_d$1=caml_string_of_jsbytes("%d"), + cst_Lexing_lex_refill_cannot_g= + caml_string_of_jsbytes("Lexing.lex_refill: cannot grow buffer"), + dummy_pos=[0,caml_string_of_jsbytes(""),0,0,-1], + zero_pos=[0,caml_string_of_jsbytes(""),1,0,0], + cst_syntax_error=caml_string_of_jsbytes("syntax error"), + cst_Stdlib_Parsing_YYexit=caml_string_of_jsbytes("Stdlib.Parsing.YYexit"), cst_Stdlib_Parsing_Parse_error= - caml_new_string("Stdlib.Parsing.Parse_error"), - cst_Set_remove_min_elt=caml_new_string("Set.remove_min_elt"), - cst_Set_bal=caml_new_string("Set.bal"), - cst_Set_bal$0=caml_new_string("Set.bal"), - cst_Set_bal$1=caml_new_string("Set.bal"), - cst_Set_bal$2=caml_new_string("Set.bal"), - cst_Map_remove_min_elt=caml_new_string("Map.remove_min_elt"), - cst_Map_bal=caml_new_string("Map.bal"), - cst_Map_bal$0=caml_new_string("Map.bal"), - cst_Map_bal$1=caml_new_string("Map.bal"), - cst_Map_bal$2=caml_new_string("Map.bal"), - cst_Stdlib_Stack_Empty=caml_new_string("Stdlib.Stack.Empty"), - cst_Stdlib_Queue_Empty=caml_new_string("Stdlib.Queue.Empty"), + caml_string_of_jsbytes("Stdlib.Parsing.Parse_error"), + cst_Set_remove_min_elt=caml_string_of_jsbytes("Set.remove_min_elt"), + cst_Set_bal=caml_string_of_jsbytes("Set.bal"), + cst_Set_bal$0=caml_string_of_jsbytes("Set.bal"), + cst_Set_bal$1=caml_string_of_jsbytes("Set.bal"), + cst_Set_bal$2=caml_string_of_jsbytes("Set.bal"), + cst_Map_remove_min_elt=caml_string_of_jsbytes("Map.remove_min_elt"), + cst_Map_bal=caml_string_of_jsbytes("Map.bal"), + cst_Map_bal$0=caml_string_of_jsbytes("Map.bal"), + cst_Map_bal$1=caml_string_of_jsbytes("Map.bal"), + cst_Map_bal$2=caml_string_of_jsbytes("Map.bal"), + cst_Stdlib_Stack_Empty=caml_string_of_jsbytes("Stdlib.Stack.Empty"), + cst_Stdlib_Queue_Empty=caml_string_of_jsbytes("Stdlib.Queue.Empty"), cst_CamlinternalLazy_Undefined= - caml_new_string("CamlinternalLazy.Undefined"), - cst_count=caml_new_string("{count = "), - cst_data=caml_new_string("; data = "), - cst$6=caml_new_string("}"), - cst_Sempty=caml_new_string("Sempty"), - cst_Scons=caml_new_string("Scons ("), - cst$7=caml_new_string(", "), - cst$8=caml_new_string(")"), - cst_Sapp=caml_new_string("Sapp ("), - cst$9=caml_new_string(", "), - cst$10=caml_new_string(")"), - cst_Slazy=caml_new_string("Slazy"), - cst_Sgen=caml_new_string("Sgen"), - cst_Sbuffio=caml_new_string("Sbuffio"), - cst_Stdlib_Stream_Failure=caml_new_string("Stdlib.Stream.Failure"), - cst_Stdlib_Stream_Error=caml_new_string("Stdlib.Stream.Error"), - cst_Buffer_truncate=caml_new_string("Buffer.truncate"), - cst_Buffer_add_channel=caml_new_string("Buffer.add_channel"), - cst_Buffer_add_substring_add_subbytes= - caml_new_string("Buffer.add_substring/add_subbytes"), - cst_Buffer_add_cannot_grow_buffer= - caml_new_string("Buffer.add: cannot grow buffer"), - cst_Buffer_nth=caml_new_string("Buffer.nth"), - cst_Buffer_blit=caml_new_string("Buffer.blit"), - cst_Buffer_sub=caml_new_string("Buffer.sub"), - cst_c=caml_new_string("%c"), - cst_s=caml_new_string("%s"), - cst_i=caml_new_string("%i"), - cst_li=caml_new_string("%li"), - cst_ni=caml_new_string("%ni"), - cst_Li=caml_new_string("%Li"), - cst_f=caml_new_string("%f"), - cst_B=caml_new_string("%B"), - cst$21=caml_new_string("%{"), - cst$22=caml_new_string("%}"), - cst$23=caml_new_string("%("), - cst$24=caml_new_string("%)"), - cst_a=caml_new_string("%a"), - cst_t$0=caml_new_string("%t"), - cst$25=caml_new_string("%?"), - cst_r$0=caml_new_string("%r"), - cst_r$1=caml_new_string("%_r"), - cst_u$0=caml_new_string("%u"), - cst_Printf_bad_conversion=caml_new_string("Printf: bad conversion %["), - cst_Printf_bad_conversion$0=caml_new_string("Printf: bad conversion %_"), - cst$29=caml_new_string("@{"), - cst$30=caml_new_string("@["), - cst$31=caml_new_string("@{"), - cst$32=caml_new_string("@["), - cst$33=caml_new_string("@{"), - cst$34=caml_new_string("@["), - cst_0=caml_new_string("0"), - cst_padding=caml_new_string("padding"), - cst_precision=caml_new_string("precision"), - cst$39=caml_new_string("'*'"), - cst$37=caml_new_string("'-'"), - cst_0$2=caml_new_string("'0'"), - cst$38=caml_new_string("'*'"), - cst_0$0=caml_new_string("0"), - cst_0$1=caml_new_string("0"), - cst_precision$0=caml_new_string("precision"), - cst_precision$1=caml_new_string("precision"), - cst$40=caml_new_string("'+'"), - cst$41=caml_new_string("'#'"), - cst$42=caml_new_string("' '"), - cst_padding$0=caml_new_string("`padding'"), - cst_precision$2=caml_new_string("`precision'"), - cst$43=caml_new_string("'+'"), - cst$44=caml_new_string("'_'"), - sub_format=[0,0,caml_new_string("")], - formatting_lit=[0,caml_new_string("@;"),1,0], - cst_digit=caml_new_string("digit"), - cst_character=caml_new_string("character ')'"), - cst_character$0=caml_new_string("character '}'"), - cst$48=caml_new_string("'#'"), - cst$47=caml_new_string("'+'"), - cst$46=caml_new_string("'+'"), - cst$45=caml_new_string("' '"), - cst$49=caml_new_string("'+'"), - cst_non_zero_widths_are_unsupported_for_c_conversions= - caml_new_string("non-zero widths are unsupported for %c conversions"), - cst_unexpected_end_of_format=caml_new_string("unexpected end of format"), - cst$35=caml_new_string(""), - cst$36=caml_new_string(""), - cst_b$0=caml_new_string("b"), - cst_h=caml_new_string("h"), - cst_hov=caml_new_string("hov"), - cst_hv=caml_new_string("hv"), - cst_v=caml_new_string("v"), - cst_nan=caml_new_string("nan"), - cst$28=caml_new_string("."), - cst_neg_infinity=caml_new_string("neg_infinity"), - cst_infinity=caml_new_string("infinity"), - cst_nd$0=caml_new_string("%+nd"), - cst_nd$1=caml_new_string("% nd"), - cst_ni$1=caml_new_string("%+ni"), - cst_ni$2=caml_new_string("% ni"), - cst_nx=caml_new_string("%nx"), - cst_nx$0=caml_new_string("%#nx"), - cst_nX=caml_new_string("%nX"), - cst_nX$0=caml_new_string("%#nX"), - cst_no=caml_new_string("%no"), - cst_no$0=caml_new_string("%#no"), - cst_nd=caml_new_string("%nd"), - cst_ni$0=caml_new_string("%ni"), - cst_nu=caml_new_string("%nu"), - cst_ld$0=caml_new_string("%+ld"), - cst_ld$1=caml_new_string("% ld"), - cst_li$1=caml_new_string("%+li"), - cst_li$2=caml_new_string("% li"), - cst_lx=caml_new_string("%lx"), - cst_lx$0=caml_new_string("%#lx"), - cst_lX=caml_new_string("%lX"), - cst_lX$0=caml_new_string("%#lX"), - cst_lo=caml_new_string("%lo"), - cst_lo$0=caml_new_string("%#lo"), - cst_ld=caml_new_string("%ld"), - cst_li$0=caml_new_string("%li"), - cst_lu=caml_new_string("%lu"), - cst_Ld$0=caml_new_string("%+Ld"), - cst_Ld$1=caml_new_string("% Ld"), - cst_Li$1=caml_new_string("%+Li"), - cst_Li$2=caml_new_string("% Li"), - cst_Lx=caml_new_string("%Lx"), - cst_Lx$0=caml_new_string("%#Lx"), - cst_LX=caml_new_string("%LX"), - cst_LX$0=caml_new_string("%#LX"), - cst_Lo=caml_new_string("%Lo"), - cst_Lo$0=caml_new_string("%#Lo"), - cst_Ld=caml_new_string("%Ld"), - cst_Li$0=caml_new_string("%Li"), - cst_Lu=caml_new_string("%Lu"), - cst_d$3=caml_new_string("%+d"), - cst_d$4=caml_new_string("% d"), - cst_i$1=caml_new_string("%+i"), - cst_i$2=caml_new_string("% i"), - cst_x=caml_new_string("%x"), - cst_x$0=caml_new_string("%#x"), - cst_X$0=caml_new_string("%X"), - cst_X$1=caml_new_string("%#X"), - cst_o=caml_new_string("%o"), - cst_o$0=caml_new_string("%#o"), - cst_d$2=caml_new_string("%d"), - cst_i$0=caml_new_string("%i"), - cst_u=caml_new_string("%u"), - cst$26=caml_new_string("%!"), - cst$27=caml_new_string("@{"), - cst_0c=caml_new_string("0c"), - cst$20=caml_new_string("%%"), - cst$12=caml_new_string("@]"), - cst$13=caml_new_string("@}"), - cst$14=caml_new_string("@?"), - cst$15=caml_new_string("@\n"), - cst$16=caml_new_string("@."), - cst$17=caml_new_string("@@"), - cst$18=caml_new_string("@%"), - cst$19=caml_new_string("@"), - cst$11=caml_new_string(".*"), - cst_CamlinternalFormat_Type_mismatch= - caml_new_string("CamlinternalFormat.Type_mismatch"), - cst$57=caml_new_string(""), - cst$58=caml_new_string("\n"), - cst_a_boolean=caml_new_string("a boolean"), - cst_an_integer=caml_new_string("an integer"), - cst_an_integer$0=caml_new_string("an integer"), - cst_a_float=caml_new_string("a float"), - cst_a_float$0=caml_new_string("a float"), - cst$54=caml_new_string(""), - cst$55=caml_new_string(" "), - cst$56=caml_new_string(""), - cst_one_of=caml_new_string("one of: "), - cst_Arg_Expand_is_is_only_allowed_with_Arg_parse_and_expand_argv_dynamic= - caml_new_string + caml_string_of_jsbytes("CamlinternalLazy.Undefined"), + cst_count=caml_string_of_jsbytes("{count = "), + cst_data=caml_string_of_jsbytes("; data = "), + cst$6=caml_string_of_jsbytes("}"), + cst_Sempty=caml_string_of_jsbytes("Sempty"), + cst_Scons=caml_string_of_jsbytes("Scons ("), + cst$7=caml_string_of_jsbytes(", "), + cst$8=caml_string_of_jsbytes(")"), + cst_Sapp=caml_string_of_jsbytes("Sapp ("), + cst$9=caml_string_of_jsbytes(", "), + cst$10=caml_string_of_jsbytes(")"), + cst_Slazy=caml_string_of_jsbytes("Slazy"), + cst_Sgen=caml_string_of_jsbytes("Sgen"), + cst_Sbuffio=caml_string_of_jsbytes("Sbuffio"), + cst_Stdlib_Stream_Failure=caml_string_of_jsbytes("Stdlib.Stream.Failure"), + cst_Stdlib_Stream_Error=caml_string_of_jsbytes("Stdlib.Stream.Error"), + cst_Buffer_truncate=caml_string_of_jsbytes("Buffer.truncate"), + cst_Buffer_add_channel=caml_string_of_jsbytes("Buffer.add_channel"), + cst_Buffer_add_substring_add_s= + caml_string_of_jsbytes("Buffer.add_substring/add_subbytes"), + cst_Buffer_add_cannot_grow_buf= + caml_string_of_jsbytes("Buffer.add: cannot grow buffer"), + cst_Buffer_nth=caml_string_of_jsbytes("Buffer.nth"), + cst_Buffer_blit=caml_string_of_jsbytes("Buffer.blit"), + cst_Buffer_sub=caml_string_of_jsbytes("Buffer.sub"), + cst_c=caml_string_of_jsbytes("%c"), + cst_s=caml_string_of_jsbytes("%s"), + cst_i=caml_string_of_jsbytes("%i"), + cst_li=caml_string_of_jsbytes("%li"), + cst_ni=caml_string_of_jsbytes("%ni"), + cst_Li=caml_string_of_jsbytes("%Li"), + cst_f=caml_string_of_jsbytes("%f"), + cst_B=caml_string_of_jsbytes("%B"), + cst$21=caml_string_of_jsbytes("%{"), + cst$22=caml_string_of_jsbytes("%}"), + cst$23=caml_string_of_jsbytes("%("), + cst$24=caml_string_of_jsbytes("%)"), + cst_a=caml_string_of_jsbytes("%a"), + cst_t$0=caml_string_of_jsbytes("%t"), + cst$25=caml_string_of_jsbytes("%?"), + cst_r$0=caml_string_of_jsbytes("%r"), + cst_r$1=caml_string_of_jsbytes("%_r"), + cst_u$0=caml_string_of_jsbytes("%u"), + cst_Printf_bad_conversion= + caml_string_of_jsbytes("Printf: bad conversion %["), + cst_Printf_bad_conversion$0= + caml_string_of_jsbytes("Printf: bad conversion %_"), + cst$29=caml_string_of_jsbytes("@{"), + cst$30=caml_string_of_jsbytes("@["), + cst$31=caml_string_of_jsbytes("@{"), + cst$32=caml_string_of_jsbytes("@["), + cst$33=caml_string_of_jsbytes("@{"), + cst$34=caml_string_of_jsbytes("@["), + cst_0=caml_string_of_jsbytes("0"), + cst_padding=caml_string_of_jsbytes("padding"), + cst_precision=caml_string_of_jsbytes("precision"), + cst$39=caml_string_of_jsbytes("'*'"), + cst$37=caml_string_of_jsbytes("'-'"), + cst_0$2=caml_string_of_jsbytes("'0'"), + cst$38=caml_string_of_jsbytes("'*'"), + cst_0$0=caml_string_of_jsbytes("0"), + cst_0$1=caml_string_of_jsbytes("0"), + cst_precision$0=caml_string_of_jsbytes("precision"), + cst_precision$1=caml_string_of_jsbytes("precision"), + cst$40=caml_string_of_jsbytes("'+'"), + cst$41=caml_string_of_jsbytes("'#'"), + cst$42=caml_string_of_jsbytes("' '"), + cst_padding$0=caml_string_of_jsbytes("`padding'"), + cst_precision$2=caml_string_of_jsbytes("`precision'"), + cst$43=caml_string_of_jsbytes("'+'"), + cst$44=caml_string_of_jsbytes("'_'"), + sub_format=[0,0,caml_string_of_jsbytes("")], + formatting_lit=[0,caml_string_of_jsbytes("@;"),1,0], + cst_digit=caml_string_of_jsbytes("digit"), + cst_character=caml_string_of_jsbytes("character ')'"), + cst_character$0=caml_string_of_jsbytes("character '}'"), + cst$48=caml_string_of_jsbytes("'#'"), + cst$47=caml_string_of_jsbytes("'+'"), + cst$46=caml_string_of_jsbytes("'+'"), + cst$45=caml_string_of_jsbytes("' '"), + cst$49=caml_string_of_jsbytes("'+'"), + cst_non_zero_widths_are_unsupp= + caml_string_of_jsbytes + ("non-zero widths are unsupported for %c conversions"), + cst_unexpected_end_of_format= + caml_string_of_jsbytes("unexpected end of format"), + cst$35=caml_string_of_jsbytes(""), + cst$36=caml_string_of_jsbytes(""), + cst_b$0=caml_string_of_jsbytes("b"), + cst_h=caml_string_of_jsbytes("h"), + cst_hov=caml_string_of_jsbytes("hov"), + cst_hv=caml_string_of_jsbytes("hv"), + cst_v=caml_string_of_jsbytes("v"), + cst_nan=caml_string_of_jsbytes("nan"), + cst$28=caml_string_of_jsbytes("."), + cst_neg_infinity=caml_string_of_jsbytes("neg_infinity"), + cst_infinity=caml_string_of_jsbytes("infinity"), + cst_nd$0=caml_string_of_jsbytes("%+nd"), + cst_nd$1=caml_string_of_jsbytes("% nd"), + cst_ni$1=caml_string_of_jsbytes("%+ni"), + cst_ni$2=caml_string_of_jsbytes("% ni"), + cst_nx=caml_string_of_jsbytes("%nx"), + cst_nx$0=caml_string_of_jsbytes("%#nx"), + cst_nX=caml_string_of_jsbytes("%nX"), + cst_nX$0=caml_string_of_jsbytes("%#nX"), + cst_no=caml_string_of_jsbytes("%no"), + cst_no$0=caml_string_of_jsbytes("%#no"), + cst_nd=caml_string_of_jsbytes("%nd"), + cst_ni$0=caml_string_of_jsbytes("%ni"), + cst_nu=caml_string_of_jsbytes("%nu"), + cst_ld$0=caml_string_of_jsbytes("%+ld"), + cst_ld$1=caml_string_of_jsbytes("% ld"), + cst_li$1=caml_string_of_jsbytes("%+li"), + cst_li$2=caml_string_of_jsbytes("% li"), + cst_lx=caml_string_of_jsbytes("%lx"), + cst_lx$0=caml_string_of_jsbytes("%#lx"), + cst_lX=caml_string_of_jsbytes("%lX"), + cst_lX$0=caml_string_of_jsbytes("%#lX"), + cst_lo=caml_string_of_jsbytes("%lo"), + cst_lo$0=caml_string_of_jsbytes("%#lo"), + cst_ld=caml_string_of_jsbytes("%ld"), + cst_li$0=caml_string_of_jsbytes("%li"), + cst_lu=caml_string_of_jsbytes("%lu"), + cst_Ld$0=caml_string_of_jsbytes("%+Ld"), + cst_Ld$1=caml_string_of_jsbytes("% Ld"), + cst_Li$1=caml_string_of_jsbytes("%+Li"), + cst_Li$2=caml_string_of_jsbytes("% Li"), + cst_Lx=caml_string_of_jsbytes("%Lx"), + cst_Lx$0=caml_string_of_jsbytes("%#Lx"), + cst_LX=caml_string_of_jsbytes("%LX"), + cst_LX$0=caml_string_of_jsbytes("%#LX"), + cst_Lo=caml_string_of_jsbytes("%Lo"), + cst_Lo$0=caml_string_of_jsbytes("%#Lo"), + cst_Ld=caml_string_of_jsbytes("%Ld"), + cst_Li$0=caml_string_of_jsbytes("%Li"), + cst_Lu=caml_string_of_jsbytes("%Lu"), + cst_d$3=caml_string_of_jsbytes("%+d"), + cst_d$4=caml_string_of_jsbytes("% d"), + cst_i$1=caml_string_of_jsbytes("%+i"), + cst_i$2=caml_string_of_jsbytes("% i"), + cst_x=caml_string_of_jsbytes("%x"), + cst_x$0=caml_string_of_jsbytes("%#x"), + cst_X$0=caml_string_of_jsbytes("%X"), + cst_X$1=caml_string_of_jsbytes("%#X"), + cst_o=caml_string_of_jsbytes("%o"), + cst_o$0=caml_string_of_jsbytes("%#o"), + cst_d$2=caml_string_of_jsbytes("%d"), + cst_i$0=caml_string_of_jsbytes("%i"), + cst_u=caml_string_of_jsbytes("%u"), + cst$26=caml_string_of_jsbytes("%!"), + cst$27=caml_string_of_jsbytes("@{"), + cst_0c=caml_string_of_jsbytes("0c"), + cst$20=caml_string_of_jsbytes("%%"), + cst$12=caml_string_of_jsbytes("@]"), + cst$13=caml_string_of_jsbytes("@}"), + cst$14=caml_string_of_jsbytes("@?"), + cst$15=caml_string_of_jsbytes("@\n"), + cst$16=caml_string_of_jsbytes("@."), + cst$17=caml_string_of_jsbytes("@@"), + cst$18=caml_string_of_jsbytes("@%"), + cst$19=caml_string_of_jsbytes("@"), + cst$11=caml_string_of_jsbytes(".*"), + cst_CamlinternalFormat_Type_mi= + caml_string_of_jsbytes("CamlinternalFormat.Type_mismatch"), + cst$57=caml_string_of_jsbytes(""), + cst$58=caml_string_of_jsbytes("\n"), + cst_a_boolean=caml_string_of_jsbytes("a boolean"), + cst_an_integer=caml_string_of_jsbytes("an integer"), + cst_an_integer$0=caml_string_of_jsbytes("an integer"), + cst_a_float=caml_string_of_jsbytes("a float"), + cst_a_float$0=caml_string_of_jsbytes("a float"), + cst$54=caml_string_of_jsbytes(""), + cst$55=caml_string_of_jsbytes(" "), + cst$56=caml_string_of_jsbytes(""), + cst_one_of=caml_string_of_jsbytes("one of: "), + cst_Arg_Expand_is_is_only_allo= + caml_string_of_jsbytes ("Arg.Expand is is only allowed with Arg.parse_and_expand_argv_dynamic"), - cst_no_argument=caml_new_string("no argument"), - cst$53=caml_new_string("(?)"), - cst_help$3=caml_new_string("--help"), - cst_help$4=caml_new_string("-help"), - cst_help$2=caml_new_string("-help"), - cst_Display_this_list_of_options= - caml_new_string(" Display this list of options"), - cst_help=caml_new_string("-help"), - cst_help$1=caml_new_string("--help"), - cst_Display_this_list_of_options$0= - caml_new_string(" Display this list of options"), - cst_help$0=caml_new_string("--help"), - cst$50=caml_new_string("}"), - cst$51=caml_new_string("|"), - cst$52=caml_new_string("{"), - cst_none=caml_new_string(""), - cst_Stdlib_Arg_Bad=caml_new_string("Stdlib.Arg.Bad"), - cst_Stdlib_Arg_Help=caml_new_string("Stdlib.Arg.Help"), - cst_Stdlib_Arg_Stop=caml_new_string("Stdlib.Arg.Stop"), - cst$60=caml_new_string(""), - cst_Program_not_linked_with_g_cannot_print_stack_backtrace= - caml_new_string + cst_no_argument=caml_string_of_jsbytes("no argument"), + cst$53=caml_string_of_jsbytes("(?)"), + cst_help$3=caml_string_of_jsbytes("--help"), + cst_help$4=caml_string_of_jsbytes("-help"), + cst_help$2=caml_string_of_jsbytes("-help"), + cst_Display_this_list_of_optio= + caml_string_of_jsbytes(" Display this list of options"), + cst_help=caml_string_of_jsbytes("-help"), + cst_help$1=caml_string_of_jsbytes("--help"), + cst_Display_this_list_of_optio$0= + caml_string_of_jsbytes(" Display this list of options"), + cst_help$0=caml_string_of_jsbytes("--help"), + cst$50=caml_string_of_jsbytes("}"), + cst$51=caml_string_of_jsbytes("|"), + cst$52=caml_string_of_jsbytes("{"), + cst_none=caml_string_of_jsbytes(""), + cst_Stdlib_Arg_Bad=caml_string_of_jsbytes("Stdlib.Arg.Bad"), + cst_Stdlib_Arg_Help=caml_string_of_jsbytes("Stdlib.Arg.Help"), + cst_Stdlib_Arg_Stop=caml_string_of_jsbytes("Stdlib.Arg.Stop"), + cst$60=caml_string_of_jsbytes(""), + cst_Program_not_linked_with_g_= + caml_string_of_jsbytes ("(Program not linked with -g, cannot print stack backtrace)\n"), - cst_Raised_at=caml_new_string("Raised at"), - cst_Re_raised_at=caml_new_string("Re-raised at"), - cst_Raised_by_primitive_operation_at= - caml_new_string("Raised by primitive operation at"), - cst_Called_from=caml_new_string("Called from"), - cst_inlined=caml_new_string(" (inlined)"), - cst$63=caml_new_string(""), + cst_Raised_at=caml_string_of_jsbytes("Raised at"), + cst_Re_raised_at=caml_string_of_jsbytes("Re-raised at"), + cst_Raised_by_primitive_operat= + caml_string_of_jsbytes("Raised by primitive operation at"), + cst_Called_from=caml_string_of_jsbytes("Called from"), + cst_inlined=caml_string_of_jsbytes(" (inlined)"), + cst$63=caml_string_of_jsbytes(""), partial=[4,0,0,0,0], - cst_Out_of_memory=caml_new_string("Out of memory"), - cst_Stack_overflow=caml_new_string("Stack overflow"), - cst_Pattern_matching_failed=caml_new_string("Pattern matching failed"), - cst_Assertion_failed=caml_new_string("Assertion failed"), + cst_Out_of_memory=caml_string_of_jsbytes("Out of memory"), + cst_Stack_overflow=caml_string_of_jsbytes("Stack overflow"), + cst_Pattern_matching_failed= + caml_string_of_jsbytes("Pattern matching failed"), + cst_Assertion_failed=caml_string_of_jsbytes("Assertion failed"), cst_Undefined_recursive_module= - caml_new_string("Undefined recursive module"), - cst$61=caml_new_string(""), - cst$62=caml_new_string(""), - cst$59=caml_new_string("_"), + caml_string_of_jsbytes("Undefined recursive module"), + cst$61=caml_string_of_jsbytes(""), + cst$62=caml_string_of_jsbytes(""), + cst$59=caml_string_of_jsbytes("_"), locfmt= [0, [11, - caml_new_string('File "'), + caml_string_of_jsbytes('File "'), [2, 0, [11, - caml_new_string('", line '), + caml_string_of_jsbytes('", line '), [4, 0, 0, 0, [11, - caml_new_string(", characters "), - [4,0,0,0,[12,45,[4,0,0,0,[11,caml_new_string(": "),[2,0,0]]]]]]]]]], - caml_new_string('File "%s", line %d, characters %d-%d: %s')], + caml_string_of_jsbytes(", characters "), + [4, + 0, + 0, + 0, + [12,45,[4,0,0,0,[11,caml_string_of_jsbytes(": "),[2,0,0]]]]]]]]]], + caml_string_of_jsbytes('File "%s", line %d, characters %d-%d: %s')], cst_Stdlib_Fun_Finally_raised= - caml_new_string("Stdlib.Fun.Finally_raised"), - cst_Digest_from_hex$0=caml_new_string("Digest.from_hex"), - cst_Digest_from_hex=caml_new_string("Digest.from_hex"), - cst_Digest_to_hex=caml_new_string("Digest.to_hex"), - cst_Digest_substring=caml_new_string("Digest.substring"), - cst_Random_int64=caml_new_string("Random.int64"), - cst_Random_int32=caml_new_string("Random.int32"), - cst_Random_int=caml_new_string("Random.int"), - cst_x$1=caml_new_string("x"), - cst_OCAMLRUNPARAM=caml_new_string("OCAMLRUNPARAM"), - cst_CAMLRUNPARAM=caml_new_string("CAMLRUNPARAM"), - cst$64=caml_new_string(""), - cst_Weak_Make_hash_bucket_cannot_grow_more= - caml_new_string("Weak.Make: hash bucket cannot grow more"), - cst_Weak_fill=caml_new_string("Weak.fill"), - cst_Weak_blit=caml_new_string("Weak.blit"), - cst_Weak_check=caml_new_string("Weak.check"), - cst_Weak_get_copy=caml_new_string("Weak.get_copy"), - cst_Weak_get=caml_new_string("Weak.get"), - cst_Weak_set=caml_new_string("Weak.set"), - cst_Weak_create=caml_new_string("Weak.create"), - cst$82=caml_new_string(""), - cst$83=caml_new_string(""), - cst$81=caml_new_string("."), - cst$78=caml_new_string(">"), - cst$79=caml_new_string("<\/"), - cst$80=caml_new_string(""), - cst$75=caml_new_string(">"), - cst$76=caml_new_string("<"), - cst$77=caml_new_string(""), - cst$74=caml_new_string("\n"), - cst_Format_pp_set_geometry_max_indent_2= - caml_new_string("Format.pp_set_geometry: max_indent < 2"), - cst_Format_pp_set_geometry_margin_max_indent= - caml_new_string("Format.pp_set_geometry: margin <= max_indent"), - cst$70=caml_new_string(""), - cst$71=caml_new_string(""), - cst$72=caml_new_string(""), - cst$73=caml_new_string(""), - cst$66=caml_new_string(""), - cst$67=caml_new_string(""), - cst$68=caml_new_string(""), - cst$69=caml_new_string(""), - cst$65=caml_new_string(""), - cst_Stdlib_Format_String_tag=caml_new_string("Stdlib.Format.String_tag"), - cst_end_of_input_not_found=caml_new_string("end of input not found"), - cst_scanf_bad_conversion_a=caml_new_string('scanf: bad conversion "%a"'), - cst_scanf_bad_conversion_t=caml_new_string('scanf: bad conversion "%t"'), - cst_scanf_missing_reader=caml_new_string("scanf: missing reader"), - cst_scanf_bad_conversion_custom_converter= - caml_new_string('scanf: bad conversion "%?" (custom converter)'), - cst_scanf_bad_conversion=caml_new_string('scanf: bad conversion "%*"'), - cst_scanf_bad_conversion$1=caml_new_string('scanf: bad conversion "%*"'), - cst_scanf_bad_conversion$0=caml_new_string('scanf: bad conversion "%-"'), - cst_scanf_bad_conversion$2=caml_new_string('scanf: bad conversion "%*"'), - cst$89=caml_new_string('"'), - cst$90=caml_new_string('"'), - cst$87=caml_new_string('"'), - cst$88=caml_new_string('"'), - cst$86=caml_new_string('"'), - cst_in_format=caml_new_string(' in format "'), - cst_an=caml_new_string("an"), - cst_x$2=caml_new_string("x"), - cst_nfinity=caml_new_string("nfinity"), - cst_digits=caml_new_string("digits"), - cst_decimal_digits=caml_new_string("decimal digits"), - cst_0b=caml_new_string("0b"), - cst_0o=caml_new_string("0o"), - cst_0u=caml_new_string("0u"), - cst_0x=caml_new_string("0x"), - cst_false$3=caml_new_string("false"), - cst_true$3=caml_new_string("true"), - cst_not_a_valid_float_in_hexadecimal_notation= - caml_new_string("not a valid float in hexadecimal notation"), - cst_no_dot_or_exponent_part_found_in_float_token= - caml_new_string("no dot or exponent part found in float token"), - cst$85=caml_new_string("-"), - cst_unnamed_function=caml_new_string("unnamed function"), - cst_unnamed_character_string=caml_new_string("unnamed character string"), - cst_unnamed_Stdlib_input_channel= - caml_new_string("unnamed Stdlib input channel"), - cst$84=caml_new_string("-"), + caml_string_of_jsbytes("Stdlib.Fun.Finally_raised"), + cst_Digest_from_hex$0=caml_string_of_jsbytes("Digest.from_hex"), + cst_Digest_from_hex=caml_string_of_jsbytes("Digest.from_hex"), + cst_Digest_to_hex=caml_string_of_jsbytes("Digest.to_hex"), + cst_Digest_substring=caml_string_of_jsbytes("Digest.substring"), + cst_Random_int64=caml_string_of_jsbytes("Random.int64"), + cst_Random_int32=caml_string_of_jsbytes("Random.int32"), + cst_Random_int=caml_string_of_jsbytes("Random.int"), + cst_x$1=caml_string_of_jsbytes("x"), + cst_OCAMLRUNPARAM=caml_string_of_jsbytes("OCAMLRUNPARAM"), + cst_CAMLRUNPARAM=caml_string_of_jsbytes("CAMLRUNPARAM"), + cst$64=caml_string_of_jsbytes(""), + cst_Weak_Make_hash_bucket_cann= + caml_string_of_jsbytes("Weak.Make: hash bucket cannot grow more"), + cst_Weak_fill=caml_string_of_jsbytes("Weak.fill"), + cst_Weak_blit=caml_string_of_jsbytes("Weak.blit"), + cst_Weak_check=caml_string_of_jsbytes("Weak.check"), + cst_Weak_get_copy=caml_string_of_jsbytes("Weak.get_copy"), + cst_Weak_get=caml_string_of_jsbytes("Weak.get"), + cst_Weak_set=caml_string_of_jsbytes("Weak.set"), + cst_Weak_create=caml_string_of_jsbytes("Weak.create"), + cst$82=caml_string_of_jsbytes(""), + cst$83=caml_string_of_jsbytes(""), + cst$81=caml_string_of_jsbytes("."), + cst$78=caml_string_of_jsbytes(">"), + cst$79=caml_string_of_jsbytes("<\/"), + cst$80=caml_string_of_jsbytes(""), + cst$75=caml_string_of_jsbytes(">"), + cst$76=caml_string_of_jsbytes("<"), + cst$77=caml_string_of_jsbytes(""), + cst$74=caml_string_of_jsbytes("\n"), + cst_Format_pp_set_geometry_max= + caml_string_of_jsbytes("Format.pp_set_geometry: max_indent < 2"), + cst_Format_pp_set_geometry_mar= + caml_string_of_jsbytes("Format.pp_set_geometry: margin <= max_indent"), + cst$70=caml_string_of_jsbytes(""), + cst$71=caml_string_of_jsbytes(""), + cst$72=caml_string_of_jsbytes(""), + cst$73=caml_string_of_jsbytes(""), + cst$66=caml_string_of_jsbytes(""), + cst$67=caml_string_of_jsbytes(""), + cst$68=caml_string_of_jsbytes(""), + cst$69=caml_string_of_jsbytes(""), + cst$65=caml_string_of_jsbytes(""), + cst_Stdlib_Format_String_tag= + caml_string_of_jsbytes("Stdlib.Format.String_tag"), + cst_end_of_input_not_found= + caml_string_of_jsbytes("end of input not found"), + cst_scanf_bad_conversion_a= + caml_string_of_jsbytes('scanf: bad conversion "%a"'), + cst_scanf_bad_conversion_t= + caml_string_of_jsbytes('scanf: bad conversion "%t"'), + cst_scanf_missing_reader=caml_string_of_jsbytes("scanf: missing reader"), + cst_scanf_bad_conversion_custo= + caml_string_of_jsbytes('scanf: bad conversion "%?" (custom converter)'), + cst_scanf_bad_conversion= + caml_string_of_jsbytes('scanf: bad conversion "%*"'), + cst_scanf_bad_conversion$1= + caml_string_of_jsbytes('scanf: bad conversion "%*"'), + cst_scanf_bad_conversion$0= + caml_string_of_jsbytes('scanf: bad conversion "%-"'), + cst_scanf_bad_conversion$2= + caml_string_of_jsbytes('scanf: bad conversion "%*"'), + cst$89=caml_string_of_jsbytes('"'), + cst$90=caml_string_of_jsbytes('"'), + cst$87=caml_string_of_jsbytes('"'), + cst$88=caml_string_of_jsbytes('"'), + cst$86=caml_string_of_jsbytes('"'), + cst_in_format=caml_string_of_jsbytes(' in format "'), + cst_an=caml_string_of_jsbytes("an"), + cst_x$2=caml_string_of_jsbytes("x"), + cst_nfinity=caml_string_of_jsbytes("nfinity"), + cst_digits=caml_string_of_jsbytes("digits"), + cst_decimal_digits=caml_string_of_jsbytes("decimal digits"), + cst_0b=caml_string_of_jsbytes("0b"), + cst_0o=caml_string_of_jsbytes("0o"), + cst_0u=caml_string_of_jsbytes("0u"), + cst_0x=caml_string_of_jsbytes("0x"), + cst_false$3=caml_string_of_jsbytes("false"), + cst_true$3=caml_string_of_jsbytes("true"), + cst_not_a_valid_float_in_hexad= + caml_string_of_jsbytes("not a valid float in hexadecimal notation"), + cst_no_dot_or_exponent_part_fo= + caml_string_of_jsbytes("no dot or exponent part found in float token"), + cst$85=caml_string_of_jsbytes("-"), + cst_unnamed_function=caml_string_of_jsbytes("unnamed function"), + cst_unnamed_character_string= + caml_string_of_jsbytes("unnamed character string"), + cst_unnamed_Stdlib_input_chann= + caml_string_of_jsbytes("unnamed Stdlib input channel"), + cst$84=caml_string_of_jsbytes("-"), cst_Stdlib_Scanf_Scan_failure= - caml_new_string("Stdlib.Scanf.Scan_failure"), - cst_binary=caml_new_string("binary"), - cst_octal=caml_new_string("octal"), - cst_hexadecimal=caml_new_string("hexadecimal"), - cst_a_Char=caml_new_string("a Char"), - cst_a_String=caml_new_string("a String"), - cst$91=caml_new_string(""), - cst$92=caml_new_string(""), - cst$93=caml_new_string(""), - cst$94=caml_new_string(""), - cst$95=caml_new_string(""), - cst$97=caml_new_string(""), - cst$96=caml_new_string(""), - cst_Illegal_character=caml_new_string("Illegal character "), - cst_Filename_chop_extension=caml_new_string("Filename.chop_extension"), - cst$108=caml_new_string(""), - cst_Filename_chop_suffix=caml_new_string("Filename.chop_suffix"), - cst$107=caml_new_string(""), - cst$105=caml_new_string("./"), - cst$104=caml_new_string(".\\"), - cst$103=caml_new_string("../"), - cst$102=caml_new_string("..\\"), - cst$101=caml_new_string("./"), - cst$100=caml_new_string("../"), - cst$99=caml_new_string(""), - cst$98=caml_new_string(""), - current_dir_name=caml_new_string("."), - parent_dir_name=caml_new_string(".."), - dir_sep=caml_new_string("/"), - cst_TMPDIR=caml_new_string("TMPDIR"), - cst_tmp=caml_new_string("/tmp"), - quotequote=caml_new_string("'\\''"), - current_dir_name$0=caml_new_string("."), - parent_dir_name$0=caml_new_string(".."), - dir_sep$0=caml_new_string("\\"), - cst_TEMP=caml_new_string("TEMP"), - cst$106=caml_new_string("."), - current_dir_name$1=caml_new_string("."), - parent_dir_name$1=caml_new_string(".."), - dir_sep$1=caml_new_string("/"), - cst_Cygwin=caml_new_string("Cygwin"), - cst_Win32=caml_new_string("Win32"), + caml_string_of_jsbytes("Stdlib.Scanf.Scan_failure"), + cst_binary=caml_string_of_jsbytes("binary"), + cst_octal=caml_string_of_jsbytes("octal"), + cst_hexadecimal=caml_string_of_jsbytes("hexadecimal"), + cst_a_Char=caml_string_of_jsbytes("a Char"), + cst_a_String=caml_string_of_jsbytes("a String"), + cst$91=caml_string_of_jsbytes(""), + cst$92=caml_string_of_jsbytes(""), + cst$93=caml_string_of_jsbytes(""), + cst$94=caml_string_of_jsbytes(""), + cst$95=caml_string_of_jsbytes(""), + cst$97=caml_string_of_jsbytes(""), + cst$96=caml_string_of_jsbytes(""), + cst_Illegal_character=caml_string_of_jsbytes("Illegal character "), + cst_Filename_chop_extension= + caml_string_of_jsbytes("Filename.chop_extension"), + cst$108=caml_string_of_jsbytes(""), + cst_Filename_chop_suffix=caml_string_of_jsbytes("Filename.chop_suffix"), + cst$107=caml_string_of_jsbytes(""), + cst$105=caml_string_of_jsbytes("./"), + cst$104=caml_string_of_jsbytes(".\\"), + cst$103=caml_string_of_jsbytes("../"), + cst$102=caml_string_of_jsbytes("..\\"), + cst$101=caml_string_of_jsbytes("./"), + cst$100=caml_string_of_jsbytes("../"), + cst$99=caml_string_of_jsbytes(""), + cst$98=caml_string_of_jsbytes(""), + current_dir_name=caml_string_of_jsbytes("."), + parent_dir_name=caml_string_of_jsbytes(".."), + dir_sep=caml_string_of_jsbytes("/"), + cst_TMPDIR=caml_string_of_jsbytes("TMPDIR"), + cst_tmp=caml_string_of_jsbytes("/tmp"), + quotequote=caml_string_of_jsbytes("'\\''"), + current_dir_name$0=caml_string_of_jsbytes("."), + parent_dir_name$0=caml_string_of_jsbytes(".."), + dir_sep$0=caml_string_of_jsbytes("\\"), + cst_TEMP=caml_string_of_jsbytes("TEMP"), + cst$106=caml_string_of_jsbytes("."), + current_dir_name$1=caml_string_of_jsbytes("."), + parent_dir_name$1=caml_string_of_jsbytes(".."), + dir_sep$1=caml_string_of_jsbytes("/"), + cst_Cygwin=caml_string_of_jsbytes("Cygwin"), + cst_Win32=caml_string_of_jsbytes("Win32"), zero$4=[254,0.,0.], one$4=[254,1.,0.], i=[254,0.,1.], - cst_Series_is_closed$0=caml_new_string("Series is closed"), - cst_Series_is_closed=caml_new_string("Series is closed"), - cst_Bigarray_array3_of_genarray= - caml_new_string("Bigarray.array3_of_genarray"), - cst_Bigarray_array2_of_genarray= - caml_new_string("Bigarray.array2_of_genarray"), - cst_Bigarray_array1_of_genarray= - caml_new_string("Bigarray.array1_of_genarray"), - cst_Bigarray_array0_of_genarray= - caml_new_string("Bigarray.array0_of_genarray"), - cst_Bigarray_Array3_of_array_non_cubic_data= - caml_new_string("Bigarray.Array3.of_array: non-cubic data"), - cst_Bigarray_Array3_of_array_non_cubic_data$0= - caml_new_string("Bigarray.Array3.of_array: non-cubic data"), - cst_Bigarray_Array2_of_array_non_rectangular_data= - caml_new_string("Bigarray.Array2.of_array: non-rectangular data"), + cst_Series_is_closed$0=caml_string_of_jsbytes("Series is closed"), + cst_Series_is_closed=caml_string_of_jsbytes("Series is closed"), + cst_Bigarray_array3_of_genarra= + caml_string_of_jsbytes("Bigarray.array3_of_genarray"), + cst_Bigarray_array2_of_genarra= + caml_string_of_jsbytes("Bigarray.array2_of_genarray"), + cst_Bigarray_array1_of_genarra= + caml_string_of_jsbytes("Bigarray.array1_of_genarray"), + cst_Bigarray_array0_of_genarra= + caml_string_of_jsbytes("Bigarray.array0_of_genarray"), + cst_Bigarray_Array3_of_array_n= + caml_string_of_jsbytes("Bigarray.Array3.of_array: non-cubic data"), + cst_Bigarray_Array3_of_array_n$0= + caml_string_of_jsbytes("Bigarray.Array3.of_array: non-cubic data"), + cst_Bigarray_Array2_of_array_n= + caml_string_of_jsbytes("Bigarray.Array2.of_array: non-rectangular data"), Invalid_argument=global_data.Invalid_argument, Failure=global_data.Failure, Match_failure=global_data.Match_failure, @@ -5891,76 +8381,78 @@ _e_=runtime.caml_int64_create_lo_mi_hi(0,0,16), _f_=runtime.caml_int64_create_lo_mi_hi(0,0,15536), _o_=[0,0,0], - _p_=[0,caml_new_string("list.ml"),282,11], - _t_=[0,caml_new_string("array.ml"),236,4], - _v_=[0,caml_new_string("float.ml"),381,6], - _u_=[0,caml_new_string("float.ml"),208,14], + _p_=[0,caml_string_of_jsbytes("list.ml"),282,11], + _t_=[0,caml_string_of_jsbytes("array.ml"),236,4], + _v_=[0,caml_string_of_jsbytes("float.ml"),381,6], + _u_=[0,caml_string_of_jsbytes("float.ml"),208,14], _G_=runtime.caml_int64_create_lo_mi_hi(16777215,16777215,65535), _F_=runtime.caml_int64_create_lo_mi_hi(0,0,0), _E_=runtime.caml_int64_create_lo_mi_hi(1,0,0), _D_=runtime.caml_int64_create_lo_mi_hi(1,0,0), _H_=[0,0,0,0], _I_=[0,0,0], - _J_=[0,caml_new_string("set.ml"),547,18], + _J_=[0,caml_string_of_jsbytes("set.ml"),547,18], _K_=[0,0,0,0], - _L_=[0,caml_new_string("map.ml"),398,10], + _L_=[0,caml_string_of_jsbytes("map.ml"),398,10], _M_=[0,0,0], - _N_=[0,caml_new_string("stream.ml"),53,12], + _N_=[0,caml_string_of_jsbytes("stream.ml"),53,12], _O_=[0,0], - _P_=[0,caml_new_string("stream.ml"),82,12], - _Z_=[0,caml_new_string("buffer.ml"),282,9], - _Y_=[0,caml_new_string("buffer.ml"),263,2], - _X_=[0,caml_new_string("buffer.ml"),195,19], - _W_=[0,caml_new_string("buffer.ml"),213,8], - _V_=[0,caml_new_string("buffer.ml"),174,19], - _U_=[0,caml_new_string("buffer.ml"),192,8], - _T_=[0,caml_new_string("buffer.ml"),138,19], - _S_=[0,caml_new_string("buffer.ml"),171,8], - _R_=[0,caml_new_string("buffer.ml"),93,2], - _Q_=[0,caml_new_string("buffer.ml"),94,2], - _$_=[0,caml_new_string("camlinternalFormat.ml"),847,23], - _ak_=[0,caml_new_string("camlinternalFormat.ml"),811,21], - _ac_=[0,caml_new_string("camlinternalFormat.ml"),812,21], - _al_=[0,caml_new_string("camlinternalFormat.ml"),815,21], - _ad_=[0,caml_new_string("camlinternalFormat.ml"),816,21], - _am_=[0,caml_new_string("camlinternalFormat.ml"),819,19], - _ae_=[0,caml_new_string("camlinternalFormat.ml"),820,19], - _an_=[0,caml_new_string("camlinternalFormat.ml"),823,22], - _af_=[0,caml_new_string("camlinternalFormat.ml"),824,22], - _ao_=[0,caml_new_string("camlinternalFormat.ml"),828,30], - _ag_=[0,caml_new_string("camlinternalFormat.ml"),829,30], - _ai_=[0,caml_new_string("camlinternalFormat.ml"),833,26], - _aa_=[0,caml_new_string("camlinternalFormat.ml"),834,26], - _aj_=[0,caml_new_string("camlinternalFormat.ml"),843,28], - _ab_=[0,caml_new_string("camlinternalFormat.ml"),844,28], - _ah_=[0,caml_new_string("camlinternalFormat.ml"),848,23], - _aq_=[0,caml_new_string("camlinternalFormat.ml"),1555,4], - _ar_=[0,caml_new_string("camlinternalFormat.ml"),1623,39], - _as_=[0,caml_new_string("camlinternalFormat.ml"),1646,31], - _at_=[0,caml_new_string("camlinternalFormat.ml"),1647,31], - _au_=[0,caml_new_string("camlinternalFormat.ml"),1827,8], + _P_=[0,caml_string_of_jsbytes("stream.ml"),82,12], + _Z_=[0,caml_string_of_jsbytes("buffer.ml"),282,9], + _Y_=[0,caml_string_of_jsbytes("buffer.ml"),263,2], + _X_=[0,caml_string_of_jsbytes("buffer.ml"),195,19], + _W_=[0,caml_string_of_jsbytes("buffer.ml"),213,8], + _V_=[0,caml_string_of_jsbytes("buffer.ml"),174,19], + _U_=[0,caml_string_of_jsbytes("buffer.ml"),192,8], + _T_=[0,caml_string_of_jsbytes("buffer.ml"),138,19], + _S_=[0,caml_string_of_jsbytes("buffer.ml"),171,8], + _R_=[0,caml_string_of_jsbytes("buffer.ml"),93,2], + _Q_=[0,caml_string_of_jsbytes("buffer.ml"),94,2], + _$_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),847,23], + _ak_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),811,21], + _ac_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),812,21], + _al_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),815,21], + _ad_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),816,21], + _am_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),819,19], + _ae_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),820,19], + _an_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),823,22], + _af_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),824,22], + _ao_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),828,30], + _ag_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),829,30], + _ai_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),833,26], + _aa_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),834,26], + _aj_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),843,28], + _ab_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),844,28], + _ah_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),848,23], + _aq_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),1555,4], + _ar_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),1623,39], + _as_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),1646,31], + _at_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),1647,31], + _au_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),1827,8], _aY_= [0, [11, - caml_new_string("bad input: format type mismatch between "), - [3,0,[11,caml_new_string(" and "),[3,0,0]]]], - caml_new_string("bad input: format type mismatch between %S and %S")], + caml_string_of_jsbytes("bad input: format type mismatch between "), + [3,0,[11,caml_string_of_jsbytes(" and "),[3,0,0]]]], + caml_string_of_jsbytes + ("bad input: format type mismatch between %S and %S")], _aX_= [0, [11, - caml_new_string("bad input: format type mismatch between "), - [3,0,[11,caml_new_string(" and "),[3,0,0]]]], - caml_new_string("bad input: format type mismatch between %S and %S")], + caml_string_of_jsbytes("bad input: format type mismatch between "), + [3,0,[11,caml_string_of_jsbytes(" and "),[3,0,0]]]], + caml_string_of_jsbytes + ("bad input: format type mismatch between %S and %S")], _aA_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(": at character number "), - [4,0,0,0,[11,caml_new_string(", duplicate flag "),[1,0]]]]]], - caml_new_string + caml_string_of_jsbytes(": at character number "), + [4,0,0,0,[11,caml_string_of_jsbytes(", duplicate flag "),[1,0]]]]]], + caml_string_of_jsbytes ("invalid format %S: at character number %d, duplicate flag %C")], _aB_=[0,1,0], _aC_=[0,0], @@ -5971,247 +8463,260 @@ _aK_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(": at character number "), + caml_string_of_jsbytes(": at character number "), [4, 0, 0, 0, [11, - caml_new_string(", flag "), + caml_string_of_jsbytes(", flag "), [1, [11, - caml_new_string(" is only allowed after the '"), + caml_string_of_jsbytes(" is only allowed after the '"), [12, 37, - [11,caml_new_string("', before padding and precision"),0]]]]]]]]], - caml_new_string + [11, + caml_string_of_jsbytes("', before padding and precision"), + 0]]]]]]]]], + caml_string_of_jsbytes ("invalid format %S: at character number %d, flag %C is only allowed after the '%%', before padding and precision")], _aH_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(": at character number "), + caml_string_of_jsbytes(": at character number "), [4, 0, 0, 0, [11, - caml_new_string(', invalid conversion "'), + caml_string_of_jsbytes(', invalid conversion "'), [12,37,[0,[12,34,0]]]]]]]], - caml_new_string + caml_string_of_jsbytes ('invalid format %S: at character number %d, invalid conversion "%%%c"')], _aI_=[0,0], _aJ_=[0,0], _aL_=[0,[12,64,0]], - _aM_=[0,caml_new_string("@ "),1,0], - _aN_=[0,caml_new_string("@,"),0,0], + _aM_=[0,caml_string_of_jsbytes("@ "),1,0], + _aN_=[0,caml_string_of_jsbytes("@,"),0,0], _aO_=[2,60], _aP_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(": '"), + caml_string_of_jsbytes(": '"), [12, 37, [11, - caml_new_string("' alone is not accepted in character sets, use "), + caml_string_of_jsbytes + ("' alone is not accepted in character sets, use "), [12, 37, [12, 37, [11, - caml_new_string(" instead at position "), + caml_string_of_jsbytes(" instead at position "), [4,0,0,0,[12,46,0]]]]]]]]]], - caml_new_string + caml_string_of_jsbytes ("invalid format %S: '%%' alone is not accepted in character sets, use %%%% instead at position %d.")], _aQ_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(": integer "), + caml_string_of_jsbytes(": integer "), [4, 0, 0, 0, - [11,caml_new_string(" is greater than the limit "),[4,0,0,0,0]]]]]], - caml_new_string + [11, + caml_string_of_jsbytes(" is greater than the limit "), + [4,0,0,0,0]]]]]], + caml_string_of_jsbytes ("invalid format %S: integer %d is greater than the limit %d")], - _aR_=[0,caml_new_string("camlinternalFormat.ml"),2842,11], + _aR_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),2842,11], _aS_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(': unclosed sub-format, expected "'), + caml_string_of_jsbytes(': unclosed sub-format, expected "'), [12, 37, - [0,[11,caml_new_string('" at character number '),[4,0,0,0,0]]]]]]], - caml_new_string + [0, + [11,caml_string_of_jsbytes('" at character number '),[4,0,0,0,0]]]]]]], + caml_string_of_jsbytes ('invalid format %S: unclosed sub-format, expected "%%%c" at character number %d')], - _aT_=[0,caml_new_string("camlinternalFormat.ml"),2904,34], - _aU_=[0,caml_new_string("camlinternalFormat.ml"),2940,28], - _aV_=[0,caml_new_string("camlinternalFormat.ml"),2961,11], + _aT_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),2904,34], + _aU_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),2940,28], + _aV_=[0,caml_string_of_jsbytes("camlinternalFormat.ml"),2961,11], _aW_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(": at character number "), + caml_string_of_jsbytes(": at character number "), [4, 0, 0, 0, [11, - caml_new_string(", "), + caml_string_of_jsbytes(", "), [2, 0, [11, - caml_new_string(" is incompatible with '"), - [0,[11,caml_new_string("' in sub-format "),[3,0,0]]]]]]]]]], - caml_new_string + caml_string_of_jsbytes(" is incompatible with '"), + [0,[11,caml_string_of_jsbytes("' in sub-format "),[3,0,0]]]]]]]]]], + caml_string_of_jsbytes ("invalid format %S: at character number %d, %s is incompatible with '%c' in sub-format %S")], _az_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(": at character number "), + caml_string_of_jsbytes(": at character number "), [4, 0, 0, 0, [11, - caml_new_string(", "), - [2,0,[11,caml_new_string(" expected, read "),[1,0]]]]]]]], - caml_new_string + caml_string_of_jsbytes(", "), + [2,0,[11,caml_string_of_jsbytes(" expected, read "),[1,0]]]]]]]], + caml_string_of_jsbytes ("invalid format %S: at character number %d, %s expected, read %C")], _ay_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(": at character number "), + caml_string_of_jsbytes(": at character number "), [4, 0, 0, 0, [11, - caml_new_string(", '"), - [0,[11,caml_new_string("' without "),[2,0,0]]]]]]]], - caml_new_string + caml_string_of_jsbytes(", '"), + [0,[11,caml_string_of_jsbytes("' without "),[2,0,0]]]]]]]], + caml_string_of_jsbytes ("invalid format %S: at character number %d, '%c' without %s")], _ax_= [0, [11, - caml_new_string("invalid format "), + caml_string_of_jsbytes("invalid format "), [3, 0, [11, - caml_new_string(": at character number "), - [4,0,0,0,[11,caml_new_string(", "),[2,0,0]]]]]], - caml_new_string("invalid format %S: at character number %d, %s")], + caml_string_of_jsbytes(": at character number "), + [4,0,0,0,[11,caml_string_of_jsbytes(", "),[2,0,0]]]]]], + caml_string_of_jsbytes("invalid format %S: at character number %d, %s")], _aw_= [0, - [11,caml_new_string("invalid box description "),[3,0,0]], - caml_new_string("invalid box description %S")], + [11,caml_string_of_jsbytes("invalid box description "),[3,0,0]], + caml_string_of_jsbytes("invalid box description %S")], _av_=[0,0,4], _ap_=[0,103], ___=[0,0,0], - _bi_=[0,[2,0,[0,0]],caml_new_string("%s%c")], - _bc_=[0,[2,0,0],caml_new_string("%s")], - _bd_=[0,[2,0,0],caml_new_string("%s")], - _ba_=[0,[2,0,0],caml_new_string("%s")], - _bb_=[0,[2,0,0],caml_new_string("%s")], - _a__=[0,[2,0,0],caml_new_string("%s")], - _a$_=[0,[2,0,0],caml_new_string("%s")], + _bi_=[0,[2,0,[0,0]],caml_string_of_jsbytes("%s%c")], + _bc_=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _bd_=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _ba_=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _bb_=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _a__=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _a$_=[0,[2,0,0],caml_string_of_jsbytes("%s")], _a4_= [0, [2, 0, [11, - caml_new_string(": unknown option '"), - [2,0,[11,caml_new_string("'.\n"),0]]]], - caml_new_string("%s: unknown option '%s'.\n")], + caml_string_of_jsbytes(": unknown option '"), + [2,0,[11,caml_string_of_jsbytes("'.\n"),0]]]], + caml_string_of_jsbytes("%s: unknown option '%s'.\n")], _a7_= [0, [2, 0, [11, - caml_new_string(": wrong argument '"), + caml_string_of_jsbytes(": wrong argument '"), [2, 0, [11, - caml_new_string("'; option '"), + caml_string_of_jsbytes("'; option '"), [2, 0, [11, - caml_new_string("' expects "), - [2,0,[11,caml_new_string(".\n"),0]]]]]]]], - caml_new_string("%s: wrong argument '%s'; option '%s' expects %s.\n")], + caml_string_of_jsbytes("' expects "), + [2,0,[11,caml_string_of_jsbytes(".\n"),0]]]]]]]], + caml_string_of_jsbytes + ("%s: wrong argument '%s'; option '%s' expects %s.\n")], _a8_= [0, [2, 0, [11, - caml_new_string(": option '"), - [2,0,[11,caml_new_string("' needs an argument.\n"),0]]]], - caml_new_string("%s: option '%s' needs an argument.\n")], + caml_string_of_jsbytes(": option '"), + [2,0,[11,caml_string_of_jsbytes("' needs an argument.\n"),0]]]], + caml_string_of_jsbytes("%s: option '%s' needs an argument.\n")], _a9_= [0, - [2,0,[11,caml_new_string(": "),[2,0,[11,caml_new_string(".\n"),0]]]], - caml_new_string("%s: %s.\n")], - _a5_=[0,caml_new_string("-help")], - _a6_=[0,caml_new_string("--help")], - _a3_=[0,[2,0,0],caml_new_string("%s")], - _a2_=[0,[2,0,[12,10,0]],caml_new_string("%s\n")], - _a1_=[0,caml_new_string("-help")], + [2, + 0, + [11, + caml_string_of_jsbytes(": "), + [2,0,[11,caml_string_of_jsbytes(".\n"),0]]]], + caml_string_of_jsbytes("%s: %s.\n")], + _a5_=[0,caml_string_of_jsbytes("-help")], + _a6_=[0,caml_string_of_jsbytes("--help")], + _a3_=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _a2_=[0,[2,0,[12,10,0]],caml_string_of_jsbytes("%s\n")], + _a1_=[0,caml_string_of_jsbytes("-help")], _aZ_= [0, - [11,caml_new_string(" "),[2,0,[12,32,[2,0,[12,10,0]]]]], - caml_new_string(" %s %s\n")], + [11,caml_string_of_jsbytes(" "),[2,0,[12,32,[2,0,[12,10,0]]]]], + caml_string_of_jsbytes(" %s %s\n")], _a0_= [0, - [11,caml_new_string(" "),[2,0,[12,32,[2,0,[2,0,[12,10,0]]]]]], - caml_new_string(" %s %s%s\n")], + [11,caml_string_of_jsbytes(" "),[2,0,[12,32,[2,0,[2,0,[12,10,0]]]]]], + caml_string_of_jsbytes(" %s %s%s\n")], _bn_= - [0,[11,caml_new_string(", "),[2,0,[2,0,0]]],caml_new_string(", %s%s")], - _bw_=[0,[2,0,[12,10,0]],caml_new_string("%s\n")], - _bu_=[0,[2,0,[12,10,0]],caml_new_string("%s\n")], + [0, + [11,caml_string_of_jsbytes(", "),[2,0,[2,0,0]]], + caml_string_of_jsbytes(", %s%s")], + _bw_=[0,[2,0,[12,10,0]],caml_string_of_jsbytes("%s\n")], + _bu_=[0,[2,0,[12,10,0]],caml_string_of_jsbytes("%s\n")], _bv_= [0, [11, - caml_new_string + caml_string_of_jsbytes ("(Program not linked with -g, cannot print stack backtrace)\n"), 0], - caml_new_string + caml_string_of_jsbytes ("(Program not linked with -g, cannot print stack backtrace)\n")], _bs_= [0, [2, 0, [11, - caml_new_string(' file "'), + caml_string_of_jsbytes(' file "'), [2, 0, [12, @@ -6219,100 +8724,102 @@ [2, 0, [11, - caml_new_string(", line "), + caml_string_of_jsbytes(", line "), [4, 0, 0, 0, - [11,caml_new_string(", characters "),[4,0,0,0,[12,45,partial]]]]]]]]]], - caml_new_string('%s file "%s"%s, line %d, characters %d-%d')], + [11, + caml_string_of_jsbytes(", characters "), + [4,0,0,0,[12,45,partial]]]]]]]]]], + caml_string_of_jsbytes('%s file "%s"%s, line %d, characters %d-%d')], _bt_= [0, - [2,0,[11,caml_new_string(" unknown location"),0]], - caml_new_string("%s unknown location")], + [2,0,[11,caml_string_of_jsbytes(" unknown location"),0]], + caml_string_of_jsbytes("%s unknown location")], _br_= [0, - [11,caml_new_string("Uncaught exception: "),[2,0,[12,10,0]]], - caml_new_string("Uncaught exception: %s\n")], + [11,caml_string_of_jsbytes("Uncaught exception: "),[2,0,[12,10,0]]], + caml_string_of_jsbytes("Uncaught exception: %s\n")], _bq_= [0, - [11,caml_new_string("Uncaught exception: "),[2,0,[12,10,0]]], - caml_new_string("Uncaught exception: %s\n")], - _bo_=[0,[12,40,[2,0,[2,0,[12,41,0]]]],caml_new_string("(%s%s)")], - _bp_=[0,[12,40,[2,0,[12,41,0]]],caml_new_string("(%s)")], - _bm_=[0,[4,0,0,0,0],caml_new_string("%d")], - _bl_=[0,[3,0,0],caml_new_string("%S")], + [11,caml_string_of_jsbytes("Uncaught exception: "),[2,0,[12,10,0]]], + caml_string_of_jsbytes("Uncaught exception: %s\n")], + _bo_=[0,[12,40,[2,0,[2,0,[12,41,0]]]],caml_string_of_jsbytes("(%s%s)")], + _bp_=[0,[12,40,[2,0,[12,41,0]]],caml_string_of_jsbytes("(%s)")], + _bm_=[0,[4,0,0,0,0],caml_string_of_jsbytes("%d")], + _bl_=[0,[3,0,0],caml_string_of_jsbytes("%S")], _bF_= [0, - [11,caml_new_string("minor_collections: "),[4,0,0,0,[12,10,0]]], - caml_new_string("minor_collections: %d\n")], + [11,caml_string_of_jsbytes("minor_collections: "),[4,0,0,0,[12,10,0]]], + caml_string_of_jsbytes("minor_collections: %d\n")], _bG_= [0, - [11,caml_new_string("major_collections: "),[4,0,0,0,[12,10,0]]], - caml_new_string("major_collections: %d\n")], + [11,caml_string_of_jsbytes("major_collections: "),[4,0,0,0,[12,10,0]]], + caml_string_of_jsbytes("major_collections: %d\n")], _bH_= [0, - [11,caml_new_string("compactions: "),[4,0,0,0,[12,10,0]]], - caml_new_string("compactions: %d\n")], - _bI_=[0,[12,10,0],caml_new_string("\n")], - _bJ_=[0,[8,[0,0,0],0,[0,0],0],caml_new_string("%.0f")], + [11,caml_string_of_jsbytes("compactions: "),[4,0,0,0,[12,10,0]]], + caml_string_of_jsbytes("compactions: %d\n")], + _bI_=[0,[12,10,0],caml_string_of_jsbytes("\n")], + _bJ_=[0,[8,[0,0,0],0,[0,0],0],caml_string_of_jsbytes("%.0f")], _bK_= [0, [11, - caml_new_string("minor_words: "), + caml_string_of_jsbytes("minor_words: "), [8,[0,0,0],[1,1],[0,0],[12,10,0]]], - caml_new_string("minor_words: %*.0f\n")], + caml_string_of_jsbytes("minor_words: %*.0f\n")], _bL_= [0, [11, - caml_new_string("promoted_words: "), + caml_string_of_jsbytes("promoted_words: "), [8,[0,0,0],[1,1],[0,0],[12,10,0]]], - caml_new_string("promoted_words: %*.0f\n")], + caml_string_of_jsbytes("promoted_words: %*.0f\n")], _bM_= [0, [11, - caml_new_string("major_words: "), + caml_string_of_jsbytes("major_words: "), [8,[0,0,0],[1,1],[0,0],[12,10,0]]], - caml_new_string("major_words: %*.0f\n")], - _bN_=[0,[12,10,0],caml_new_string("\n")], - _bO_=[0,[4,0,0,0,0],caml_new_string("%d")], + caml_string_of_jsbytes("major_words: %*.0f\n")], + _bN_=[0,[12,10,0],caml_string_of_jsbytes("\n")], + _bO_=[0,[4,0,0,0,0],caml_string_of_jsbytes("%d")], _bP_= [0, - [11,caml_new_string("top_heap_words: "),[4,0,[1,1],0,[12,10,0]]], - caml_new_string("top_heap_words: %*d\n")], + [11,caml_string_of_jsbytes("top_heap_words: "),[4,0,[1,1],0,[12,10,0]]], + caml_string_of_jsbytes("top_heap_words: %*d\n")], _bQ_= [0, - [11,caml_new_string("heap_words: "),[4,0,[1,1],0,[12,10,0]]], - caml_new_string("heap_words: %*d\n")], + [11,caml_string_of_jsbytes("heap_words: "),[4,0,[1,1],0,[12,10,0]]], + caml_string_of_jsbytes("heap_words: %*d\n")], _bR_= [0, - [11,caml_new_string("live_words: "),[4,0,[1,1],0,[12,10,0]]], - caml_new_string("live_words: %*d\n")], + [11,caml_string_of_jsbytes("live_words: "),[4,0,[1,1],0,[12,10,0]]], + caml_string_of_jsbytes("live_words: %*d\n")], _bS_= [0, - [11,caml_new_string("free_words: "),[4,0,[1,1],0,[12,10,0]]], - caml_new_string("free_words: %*d\n")], + [11,caml_string_of_jsbytes("free_words: "),[4,0,[1,1],0,[12,10,0]]], + caml_string_of_jsbytes("free_words: %*d\n")], _bT_= [0, - [11,caml_new_string("largest_free: "),[4,0,[1,1],0,[12,10,0]]], - caml_new_string("largest_free: %*d\n")], + [11,caml_string_of_jsbytes("largest_free: "),[4,0,[1,1],0,[12,10,0]]], + caml_string_of_jsbytes("largest_free: %*d\n")], _bU_= [0, - [11,caml_new_string("fragments: "),[4,0,[1,1],0,[12,10,0]]], - caml_new_string("fragments: %*d\n")], - _bV_=[0,[12,10,0],caml_new_string("\n")], + [11,caml_string_of_jsbytes("fragments: "),[4,0,[1,1],0,[12,10,0]]], + caml_string_of_jsbytes("fragments: %*d\n")], + _bV_=[0,[12,10,0],caml_string_of_jsbytes("\n")], _bW_= [0, - [11,caml_new_string("live_blocks: "),[4,0,0,0,[12,10,0]]], - caml_new_string("live_blocks: %d\n")], + [11,caml_string_of_jsbytes("live_blocks: "),[4,0,0,0,[12,10,0]]], + caml_string_of_jsbytes("live_blocks: %d\n")], _bX_= [0, - [11,caml_new_string("free_blocks: "),[4,0,0,0,[12,10,0]]], - caml_new_string("free_blocks: %d\n")], + [11,caml_string_of_jsbytes("free_blocks: "),[4,0,0,0,[12,10,0]]], + caml_string_of_jsbytes("free_blocks: %d\n")], _bY_= [0, - [11,caml_new_string("heap_chunks: "),[4,0,0,0,[12,10,0]]], - caml_new_string("heap_chunks: %d\n")], + [11,caml_string_of_jsbytes("heap_chunks: "),[4,0,0,0,[12,10,0]]], + caml_string_of_jsbytes("heap_chunks: %d\n")], _b1_=runtime.caml_int64_create_lo_mi_hi(1,0,0), _b2_=runtime.caml_int64_create_lo_mi_hi(0,0,0), _b3_= @@ -6373,102 +8880,106 @@ 409934019, 801085050], _b7_=[0,0], - _b6_=[0,caml_new_string("hashtbl.ml"),108,23], + _b6_=[0,caml_string_of_jsbytes("hashtbl.ml"),108,23], _b__=[3,0,3], - _b9_=[0,caml_new_string("")], - _b8_=[0,caml_new_string(""),0,caml_new_string("")], + _b9_=[0,caml_string_of_jsbytes("")], + _b8_=[0,caml_string_of_jsbytes(""),0,caml_string_of_jsbytes("")], _co_=[0,91], _cn_=[0,123], - _cp_=[0,caml_new_string("scanf.ml"),1453,13], - _cq_=[0,[3,0,[10,0]],caml_new_string("%S%!")], - _cm_=[0,37,caml_new_string("")], + _cp_=[0,caml_string_of_jsbytes("scanf.ml"),1453,13], + _cq_=[0,[3,0,[10,0]],caml_string_of_jsbytes("%S%!")], + _cm_=[0,37,caml_string_of_jsbytes("")], _cl_= [0, [11, - caml_new_string("scanf: bad input at char number "), - [4,3,0,0,[11,caml_new_string(": "),[2,0,0]]]], - caml_new_string("scanf: bad input at char number %i: %s")], + caml_string_of_jsbytes("scanf: bad input at char number "), + [4,3,0,0,[11,caml_string_of_jsbytes(": "),[2,0,0]]]], + caml_string_of_jsbytes("scanf: bad input at char number %i: %s")], _ck_= [0, [11, - caml_new_string("the character "), - [1,[11,caml_new_string(" cannot start a boolean"),0]]], - caml_new_string("the character %C cannot start a boolean")], + caml_string_of_jsbytes("the character "), + [1,[11,caml_string_of_jsbytes(" cannot start a boolean"),0]]], + caml_string_of_jsbytes("the character %C cannot start a boolean")], _cj_= [0, - [11,caml_new_string("bad character hexadecimal encoding \\"),[0,[0,0]]], - caml_new_string("bad character hexadecimal encoding \\%c%c")], + [11, + caml_string_of_jsbytes("bad character hexadecimal encoding \\"), + [0,[0,0]]], + caml_string_of_jsbytes("bad character hexadecimal encoding \\%c%c")], _ci_= [0, - [11,caml_new_string("bad character decimal encoding \\"),[0,[0,[0,0]]]], - caml_new_string("bad character decimal encoding \\%c%c%c")], + [11, + caml_string_of_jsbytes("bad character decimal encoding \\"), + [0,[0,[0,0]]]], + caml_string_of_jsbytes("bad character decimal encoding \\%c%c%c")], _ch_= [0, [11, - caml_new_string("character "), + caml_string_of_jsbytes("character "), [1, [11, - caml_new_string(" is not a valid "), - [2,0,[11,caml_new_string(" digit"),0]]]]], - caml_new_string("character %C is not a valid %s digit")], + caml_string_of_jsbytes(" is not a valid "), + [2,0,[11,caml_string_of_jsbytes(" digit"),0]]]]], + caml_string_of_jsbytes("character %C is not a valid %s digit")], _cg_= [0, [11, - caml_new_string("character "), - [1,[11,caml_new_string(" is not a decimal digit"),0]]], - caml_new_string("character %C is not a decimal digit")], - _cf_=[0,caml_new_string("scanf.ml"),555,9], + caml_string_of_jsbytes("character "), + [1,[11,caml_string_of_jsbytes(" is not a decimal digit"),0]]], + caml_string_of_jsbytes("character %C is not a decimal digit")], + _cf_=[0,caml_string_of_jsbytes("scanf.ml"),555,9], _ce_= [0, - [11,caml_new_string("invalid boolean '"),[2,0,[12,39,0]]], - caml_new_string("invalid boolean '%s'")], + [11,caml_string_of_jsbytes("invalid boolean '"),[2,0,[12,39,0]]], + caml_string_of_jsbytes("invalid boolean '%s'")], _cd_= [0, [11, - caml_new_string("looking for "), - [1,[11,caml_new_string(", found "),[1,0]]]], - caml_new_string("looking for %C, found %C")], + caml_string_of_jsbytes("looking for "), + [1,[11,caml_string_of_jsbytes(", found "),[1,0]]]], + caml_string_of_jsbytes("looking for %C, found %C")], _cc_= [0, [11, - caml_new_string("scanning of "), + caml_string_of_jsbytes("scanning of "), [2, 0, [11, - caml_new_string + caml_string_of_jsbytes (" failed: premature end of file occurred before end of token"), 0]]], - caml_new_string + caml_string_of_jsbytes ("scanning of %s failed: premature end of file occurred before end of token")], _cb_= [0, [11, - caml_new_string("scanning of "), + caml_string_of_jsbytes("scanning of "), [2, 0, [11, - caml_new_string + caml_string_of_jsbytes (" failed: the specified length was too short for token"), 0]]], - caml_new_string + caml_string_of_jsbytes ("scanning of %s failed: the specified length was too short for token")], _ca_= [0, - [11,caml_new_string("illegal escape character "),[1,0]], - caml_new_string("illegal escape character %C")], - _cx_=[0,caml_new_string("camlinternalOO.ml"),438,17], - _cw_=[0,caml_new_string("camlinternalOO.ml"),420,13], - _cv_=[0,caml_new_string("camlinternalOO.ml"),417,13], - _cu_=[0,caml_new_string("camlinternalOO.ml"),414,13], - _ct_=[0,caml_new_string("camlinternalOO.ml"),411,13], - _cs_=[0,caml_new_string("camlinternalOO.ml"),408,13], - _cr_=[0,caml_new_string("camlinternalOO.ml"),281,50], + [11,caml_string_of_jsbytes("illegal escape character "),[1,0]], + caml_string_of_jsbytes("illegal escape character %C")], + _cx_=[0,caml_string_of_jsbytes("camlinternalOO.ml"),438,17], + _cw_=[0,caml_string_of_jsbytes("camlinternalOO.ml"),420,13], + _cv_=[0,caml_string_of_jsbytes("camlinternalOO.ml"),417,13], + _cu_=[0,caml_string_of_jsbytes("camlinternalOO.ml"),414,13], + _ct_=[0,caml_string_of_jsbytes("camlinternalOO.ml"),411,13], + _cs_=[0,caml_string_of_jsbytes("camlinternalOO.ml"),408,13], + _cr_=[0,caml_string_of_jsbytes("camlinternalOO.ml"),281,50], _cA_=[0,0], _cz_=[0,0], _cy_=[0,0], _cE_=[0,7,0], _cD_=[0,1,[0,3,[0,5,0]]], - _cC_=[0,[2,0,[4,6,[0,2,6],0,[2,0,0]]],caml_new_string("%s%06x%s")], + _cC_=[0,[2,0,[4,6,[0,2,6],0,[2,0,0]]],caml_string_of_jsbytes("%s%06x%s")], _cF_=[254,0.,0.]; function erase_rel(param) {if(typeof param === "number") @@ -6615,7 +9126,7 @@ caml_blit_string(s2,0,s,l1,l2); return caml_string_of_bytes(s)} function char_of_int(n) - {if(0 <= n)if(! (255 < n))return n;return invalid_arg(cst_char_of_int)} + {if(0 <= n && ! (255 < n))return n;return invalid_arg(cst_char_of_int)} function string_of_bool(b){return b?cst_true:cst_false} function bool_of_string(param) {return caml_string_notequal(param,cst_false$0) @@ -6627,32 +9138,34 @@ {return caml_string_notequal(param,cst_false$1) ?caml_string_notequal(param,cst_true$1)?0:_g_ :_h_} - function string_of_int(n){return caml_new_string("" + n)} + function string_of_int(n){return caml_string_of_jsbytes("" + n)} function int_of_string_opt(s) {try - {var _AF_=[0,caml_int_of_string(s)];return _AF_} - catch(_AG_) - {_AG_ = caml_wrap_exception(_AG_); - if(_AG_[1] === Failure)return 0; - throw _AG_}} + {var _AB_=[0,caml_int_of_string(s)];return _AB_} + catch(_AC_) + {_AC_ = caml_wrap_exception(_AC_); + if(_AC_[1] === Failure)return 0; + throw _AC_}} function valid_float_lexem(s) {var l=caml_ml_string_length(s),i=0; for(;;) {if(l <= i)return symbol(s,cst); - var - match=caml_string_get(s,i), - switch$0=48 <= match?58 <= match?0:1:45 === match?1:0; + var match=caml_string_get(s,i),switch$0=0; + if(48 <= match) + {if(! (58 <= match))switch$0 = 1} + else + if(45 === match)switch$0 = 1; if(switch$0){var i$0=i + 1 | 0,i=i$0;continue} return s}} function to_string(f) {return valid_float_lexem(caml_format_float(cst_12g,f))} function of_string_opt(s) {try - {var _AD_=[0,caml_float_of_string(s)];return _AD_} - catch(_AE_) - {_AE_ = caml_wrap_exception(_AE_); - if(_AE_[1] === Failure)return 0; - throw _AE_}} + {var _Az_=[0,caml_float_of_string(s)];return _Az_} + catch(_AA_) + {_AA_ = caml_wrap_exception(_AA_); + if(_AA_[1] === Failure)return 0; + throw _AA_}} function append(l1,l2) {if(l1){var tl=l1[2],hd=l1[1];return [0,hd,append(tl,l2)]}return l2} var @@ -6673,10 +9186,10 @@ {var l=param$0[2],a=param$0[1]; try {caml_ml_flush(a)} - catch(_AC_) - {_AC_ = caml_wrap_exception(_AC_); - if(_AC_[1] !== Sys_error)throw _AC_; - var _AB_=_AC_} + catch(_Ay_) + {_Ay_ = caml_wrap_exception(_Ay_); + if(_Ay_[1] !== Sys_error)throw _Ay_; + var _Ax_=_Ay_} var param$0=l; continue} return 0}} @@ -6686,24 +9199,31 @@ function output_string(oc,s) {return caml_ml_output(oc,s,0,caml_ml_string_length(s))} function output(oc,s,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(s) - len | 0) < ofs)) - return caml_ml_output_bytes(oc,s,ofs,len); + {if + (0 <= ofs && 0 <= len && ! ((caml_ml_bytes_length(s) - len | 0) < ofs)) + return caml_ml_output_bytes(oc,s,ofs,len); return invalid_arg(cst_output)} function output_substring(oc,s,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_string_length(s) - len | 0) < ofs)) - return caml_ml_output(oc,s,ofs,len); + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_string_length(s) - len | 0) < ofs)) + return caml_ml_output(oc,s,ofs,len); return invalid_arg(cst_output_substring)} function output_value(chan,v){return caml_output_value(chan,v,0)} function close_out(oc){caml_ml_flush(oc);return caml_ml_close_channel(oc)} function close_out_noerr(oc) - {try {caml_ml_flush(oc)}catch(_AA_){} + {try {caml_ml_flush(oc)}catch(_Aw_){} try - {var _Ay_=caml_ml_close_channel(oc);return _Ay_} - catch(_Az_){return 0}} + {var _Au_=caml_ml_close_channel(oc);return _Au_} + catch(_Av_){return 0}} function open_in_gen(mode,perm,name) {var c=caml_ml_open_descriptor_in(caml_sys_open(name,mode,perm)); caml_ml_set_channel_name(c,name); @@ -6711,10 +9231,9 @@ function open_in(name){return open_in_gen(_k_,0,name)} function open_in_bin(name){return open_in_gen(_l_,0,name)} function input(ic,s,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(s) - len | 0) < ofs)) - return caml_ml_input(ic,s,ofs,len); + {if + (0 <= ofs && 0 <= len && ! ((caml_ml_bytes_length(s) - len | 0) < ofs)) + return caml_ml_input(ic,s,ofs,len); return invalid_arg(cst_input)} function unsafe_really_input(ic,s,ofs,len) {var ofs$0=ofs,len$0=len; @@ -6726,10 +9245,9 @@ continue} return 0}} function really_input(ic,s,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(s) - len | 0) < ofs)) - return unsafe_really_input(ic,s,ofs,len); + {if + (0 <= ofs && 0 <= len && ! ((caml_ml_bytes_length(s) - len | 0) < ofs)) + return unsafe_really_input(ic,s,ofs,len); return invalid_arg(cst_really_input)} function really_input_string(ic,len) {var s=caml_create_bytes(len); @@ -6750,7 +9268,7 @@ {var n=runtime.caml_ml_input_scan_line(chan); if(0 === n) {if(! accu)throw End_of_file; - var _Ax_=build_result(caml_create_bytes(len),len,accu)} + var _At_=build_result(caml_create_bytes(len),len,accu)} else {if(! (0 < n)) {var beg=caml_create_bytes(- n | 0); @@ -6763,19 +9281,19 @@ if(accu) var len$0=(len + n | 0) - 1 | 0, - _Ax_=build_result(caml_create_bytes(len$0),len$0,[0,res,accu]); + _At_=build_result(caml_create_bytes(len$0),len$0,[0,res,accu]); else - var _Ax_=res} - return caml_string_of_bytes(_Ax_)}} + var _At_=res} + return caml_string_of_bytes(_At_)}} function close_in_noerr(ic) {try - {var _Av_=caml_ml_close_channel(ic);return _Av_} - catch(_Aw_){return 0}} + {var _Ar_=caml_ml_close_channel(ic);return _Ar_} + catch(_As_){return 0}} function print_char(c){return caml_ml_output_char(stdout,c)} function print_string(s){return output_string(stdout,s)} function print_bytes(s){return output_bytes(stdout,s)} function print_int(i) - {return output_string(stdout,caml_new_string("" + i))} + {return output_string(stdout,caml_string_of_jsbytes("" + i))} function print_float(f){return output_string(stdout,to_string(f))} function print_endline(s) {output_string(stdout,s); @@ -6787,7 +9305,7 @@ function prerr_string(s){return output_string(stderr,s)} function prerr_bytes(s){return output_bytes(stderr,s)} function prerr_int(i) - {return output_string(stderr,caml_new_string("" + i))} + {return output_string(stderr,caml_string_of_jsbytes("" + i))} function prerr_float(f){return output_string(stderr,to_string(f))} function prerr_endline(s) {output_string(stderr,s); @@ -6801,14 +9319,14 @@ function read_float(param){return caml_float_of_string(read_line(0))} function read_float_opt(param){return of_string_opt(read_line(0))} function string_of_format(param){var str=param[2];return str} - function symbol$0(param,_At_) + function symbol$0(param,_Ap_) {var - str2=_At_[2], - fmt2=_At_[1], + str2=_Ap_[2], + fmt2=_Ap_[1], str1=param[2], fmt1=param[1], - _Au_=symbol(str1,symbol(cst$0,str2)); - return [0,concat_fmt(fmt1,fmt2),_Au_]} + _Aq_=symbol(str1,symbol(cst$0,str2)); + return [0,concat_fmt(fmt1,fmt2),_Aq_]} var exit_function=[0,flush_all]; function at_exit(f) {var g=exit_function[1],f_already_ran=[0,0]; @@ -7053,8 +9571,8 @@ {var next=match[2], x=match[1], - _Ar_=function(_As_){return map(f,next,_As_)}; - return [0,caml_call1(f,x),_Ar_]} + _An_=function(_Ao_){return map(f,next,_Ao_)}; + return [0,caml_call1(f,x),_An_]} return 0} function filter_map(f,seq,param) {var seq$0=seq; @@ -7064,7 +9582,7 @@ {var next=match[2],x=match[1],match$0=caml_call1(f,x); if(match$0) {var y=match$0[1]; - return [0,y,function(_Aq_){return filter_map(f,next,_Aq_)}]} + return [0,y,function(_Am_){return filter_map(f,next,_Am_)}]} var seq$0=next; continue} return 0}} @@ -7075,29 +9593,29 @@ if(match) {var next=match[2],x=match[1]; if(caml_call1(f,x)) - return [0,x,function(_Ap_){return filter(f,next,_Ap_)}]; + return [0,x,function(_Al_){return filter(f,next,_Al_)}]; var seq$0=next; continue} return 0}} function flat_map$0(counter,f,seq,param) {var match=caml_call1(seq,0); if(match) - {var next=match[2],x=match[1],_Ao_=caml_call1(f,x),_An_=0; + {var next=match[2],x=match[1],_Ak_=caml_call1(f,x),_Aj_=0; if(counter < 50) {var counter$0=counter + 1 | 0; - return flat_map_app$0(counter$0,f,_Ao_,next,_An_)} - return caml_trampoline_return(flat_map_app$0,[0,f,_Ao_,next,_An_])} + return flat_map_app$0(counter$0,f,_Ak_,next,_Aj_)} + return caml_trampoline_return(flat_map_app$0,[0,f,_Ak_,next,_Aj_])} return 0} function flat_map_app$0(counter,f,seq,tail,param) {var match=caml_call1(seq,0); if(match) {var next=match[2],x=match[1]; - return [0,x,function(_Am_){return flat_map_app(f,next,tail,_Am_)}]} - var _Al_=0; + return [0,x,function(_Ai_){return flat_map_app(f,next,tail,_Ai_)}]} + var _Ah_=0; if(counter < 50) {var counter$0=counter + 1 | 0; - return flat_map$0(counter$0,f,tail,_Al_)} - return caml_trampoline_return(flat_map$0,[0,f,tail,_Al_])} + return flat_map$0(counter$0,f,tail,_Ah_)} + return caml_trampoline_return(flat_map$0,[0,f,tail,_Ah_])} function flat_map(f,seq,param) {return caml_trampoline(flat_map$0(0,f,seq,param))} function flat_map_app(f,seq,tail,param) @@ -7137,7 +9655,7 @@ return invalid_arg(cst_option_is_None)} function bind(o,f){if(o){var v=o[1];return caml_call1(f,v)}return 0} function join(param) - {if(param){var _Ak_=param[1];if(_Ak_)return _Ak_}return 0} + {if(param){var _Ag_=param[1];if(_Ag_)return _Ag_}return 0} function map$0(f,o){if(o){var v=o[1];return [0,caml_call1(f,v)]}return 0} function fold(none,some,param) {if(param){var v=param[1];return caml_call1(some,v)}return none} @@ -7153,15 +9671,15 @@ return 0} function compare(cmp,o0,o1) {if(o0) - {var _Aj_=o0[1]; - if(o1){var v1=o1[1];return caml_call2(cmp,_Aj_,v1)} + {var _Af_=o0[1]; + if(o1){var v1=o1[1];return caml_call2(cmp,_Af_,v1)} return 1} return o1?-1:0} function to_result(none,param) {if(param){var v=param[1];return [0,v]}return [1,none]} function to_list(param){if(param){var v=param[1];return [0,v,0]}return 0} function to_seq(param) - {if(param){var v=param[1];return function(_Ai_){return return$0(v,_Ai_)}} + {if(param){var v=param[1];return function(_Ae_){return return$0(v,_Ae_)}} return empty} var Stdlib_option= @@ -7213,28 +9731,28 @@ function is_error(param){return 0 === param[0]?0:1} function equal$0(ok,error,r0,match) {if(0 === r0[0]) - {var _Ag_=r0[1]; - if(0 === match[0]){var v1=match[1];return caml_call2(ok,_Ag_,v1)}} + {var _Ac_=r0[1]; + if(0 === match[0]){var v1=match[1];return caml_call2(ok,_Ac_,v1)}} else - {var _Ah_=r0[1]; - if(0 !== match[0]){var e1=match[1];return caml_call2(error,_Ah_,e1)}} + {var _Ad_=r0[1]; + if(0 !== match[0]){var e1=match[1];return caml_call2(error,_Ad_,e1)}} return 0} function compare$0(ok,error,r0,match) {if(0 === r0[0]) - {var _Ae_=r0[1]; - if(0 === match[0]){var v1=match[1];return caml_call2(ok,_Ae_,v1)} + {var _Aa_=r0[1]; + if(0 === match[0]){var v1=match[1];return caml_call2(ok,_Aa_,v1)} return -1} - var _Af_=r0[1]; + var _Ab_=r0[1]; if(0 === match[0])return 1; var e1=match[1]; - return caml_call2(error,_Af_,e1)} + return caml_call2(error,_Ab_,e1)} function to_option(param) {if(0 === param[0]){var v=param[1];return [0,v]}return 0} function to_list$0(param) {if(0 === param[0]){var v=param[1];return [0,v,0]}return 0} function to_seq$0(param) {if(0 === param[0]) - {var v=param[1];return function(_Ad_){return return$0(v,_Ad_)}} + {var v=param[1];return function(_z$_){return return$0(v,_z$_)}} return empty} var Stdlib_result= @@ -7259,7 +9777,7 @@ to_list$0, to_seq$0]; caml_register_global(725,Stdlib_result,"Stdlib__result"); - function equal$1(_Ac_,_Ab_){return _Ac_ === _Ab_?1:0} + function equal$1(_z__,_z9_){return _z__ === _z9_?1:0} var compare$1=caml_int_compare; function to_int(param){return 0 === param?0:1} function to_float(param){return 0 === param?0.:1.} @@ -7267,7 +9785,7 @@ var Stdlib_bool= [0, - function(_Aa_){return 1 - _Aa_}, + function(_z8_){return 1 - _z8_}, equal$1, compare$1, to_int, @@ -7275,23 +9793,22 @@ to_string$0]; caml_register_global(726,Stdlib_bool,"Stdlib__bool"); function chr(n) - {if(0 <= n)if(! (255 < n))return n;return invalid_arg(cst_Char_chr)} + {if(0 <= n && ! (255 < n))return n;return invalid_arg(cst_Char_chr)} function escaped(c) - {if(40 <= c) - {if(92 === c)return cst$1;var switch$0=127 <= c?0:1} + {var switch$0=0; + if(40 <= c) + {if(92 === c)return cst$1;if(! (127 <= c))switch$0 = 1} else if(32 <= c) - {if(39 <= c)return cst$2;var switch$0=1} + {if(39 <= c)return cst$2;switch$0 = 1} else - if(14 <= c) - var switch$0=0; - else + if(! (14 <= c)) switch(c) {case 8:return cst_b; case 9:return cst_t; case 10:return cst_n; - case 13:return cst_r; - default:var switch$0=0} + case 13:return cst_r + } if(switch$0) {var s$0=caml_create_bytes(1); caml_bytes_unsafe_set(s$0,0,c); @@ -7303,23 +9820,31 @@ caml_bytes_unsafe_set(s,3,48 + (c % 10 | 0) | 0); return caml_string_of_bytes(s)} function lowercase(c) - {var switch$0=65 <= c?90 < c?0:1:0; - if(! switch$0) - {var switch$1=192 <= c?214 < c?0:1:0; - if(! switch$1) - {var switch$2=216 <= c?222 < c?1:0:1;if(switch$2)return c}} + {var switch$0=0; + if(! (65 <= c) || 90 < c)switch$0 = 1; + if(switch$0) + {var switch$1=0; + if(! (192 <= c) || 214 < c)switch$1 = 1; + if(switch$1) + {var switch$2=0; + if(! (216 <= c) || 222 < c)switch$2 = 1; + if(switch$2)return c}} return c + 32 | 0} function uppercase(c) - {var switch$0=97 <= c?122 < c?0:1:0; - if(! switch$0) - {var switch$1=224 <= c?246 < c?0:1:0; - if(! switch$1) - {var switch$2=248 <= c?254 < c?1:0:1;if(switch$2)return c}} + {var switch$0=0; + if(! (97 <= c) || 122 < c)switch$0 = 1; + if(switch$0) + {var switch$1=0; + if(! (224 <= c) || 246 < c)switch$1 = 1; + if(switch$1) + {var switch$2=0; + if(! (248 <= c) || 254 < c)switch$2 = 1; + if(switch$2)return c}} return c - 32 | 0} function lowercase_ascii(c) - {if(65 <= c)if(! (90 < c))return c + 32 | 0;return c} + {if(65 <= c && ! (90 < c))return c + 32 | 0;return c} function uppercase_ascii(c) - {if(97 <= c)if(! (122 < c))return c - 32 | 0;return c} + {if(97 <= c && ! (122 < c))return c - 32 | 0;return c} function compare$2(c1,c2){return c1 - c2 | 0} function equal$2(c1,c2){return 0 === (c1 - c2 | 0)?1:0} var @@ -7348,19 +9873,18 @@ function pred(u) {return u === 57344?lo_bound:u === 0?invalid_arg(err_no_pred):u - 1 | 0} function is_valid(i) - {var _z8_=0 <= i?1:0,_z9_=_z8_?i <= 55295?1:0:_z8_; - if(_z9_) - var _z__=_z9_; + {var _z4_=0 <= i?1:0,_z5_=_z4_?i <= 55295?1:0:_z4_; + if(_z5_) + var _z6_=_z5_; else - var _z$_=57344 <= i?1:0,_z__=_z$_?i <= 1114111?1:0:_z$_; - return _z__} + var _z7_=57344 <= i?1:0,_z6_=_z7_?i <= 1114111?1:0:_z7_; + return _z6_} function of_int(i) {return is_valid(i) ?i :invalid_arg (symbol - (caml_format_int(cst_X,i), - cst_is_not_an_Unicode_scalar_value))} + (caml_format_int(cst_X,i),cst_is_not_an_Unicode_scalar_v))} function is_char(u){return u < 256?1:0} function of_char(c){return c} function to_char(u) @@ -7371,11 +9895,11 @@ symbol (caml_format_int(cst_04X,u),cst_is_not_a_latin1_character))) :u} - function unsafe_to_char(_z7_){return _z7_} - function equal$3(_z6_,_z5_){return _z6_ === _z5_?1:0} + function unsafe_to_char(_z3_){return _z3_} + function equal$3(_z2_,_z1_){return _z2_ === _z1_?1:0} var compare$3=caml_int_compare; - function hash(_z4_){return _z4_} - function _m_(_z3_){return _z3_} + function hash(_z0_){return _z0_} + function _m_(_zZ_){return _zZ_} var Stdlib_uchar= [0, @@ -7387,7 +9911,7 @@ pred, is_valid, of_int, - function(_z2_){return _z2_}, + function(_zY_){return _zY_}, _m_, is_char, of_char, @@ -7413,11 +9937,11 @@ int_size=32; function getenv_opt(s) {try - {var _z0_=[0,caml_sys_getenv(s)];return _z0_} - catch(_z1_) - {_z1_ = caml_wrap_exception(_z1_); - if(_z1_ === Not_found)return 0; - throw _z1_}} + {var _zW_=[0,caml_sys_getenv(s)];return _zW_} + catch(_zX_) + {_zX_ = caml_wrap_exception(_zX_); + if(_zX_ === Not_found)return 0; + throw _zX_}} var interactive=[0,0]; function set_signal(sig_num,sig_beh){return 0} var @@ -7686,16 +10210,16 @@ {var param$0=param; for(;;) {if(param$0) - {var l=param$0[2],a=param$0[1],_zZ_=caml_call1(p,a); - if(_zZ_){var param$0=l;continue} - return _zZ_} + {var l=param$0[2],a=param$0[1],_zV_=caml_call1(p,a); + if(_zV_){var param$0=l;continue} + return _zV_} return 1}} function exists(p,param) {var param$0=param; for(;;) {if(param$0) - {var l=param$0[2],a=param$0[1],_zY_=caml_call1(p,a); - if(_zY_)return _zY_; + {var l=param$0[2],a=param$0[1],_zU_=caml_call1(p,a); + if(_zU_)return _zU_; var param$0=l; continue} return 0}} @@ -7709,9 +10233,9 @@ a2=l2$0[1], l1$1=l1$0[2], a1=l1$0[1], - _zX_=caml_call2(p,a1,a2); - if(_zX_){var l1$0=l1$1,l2$0=l2$1;continue} - return _zX_}} + _zT_=caml_call2(p,a1,a2); + if(_zT_){var l1$0=l1$1,l2$0=l2$1;continue} + return _zT_}} else if(! l2$0)return 1; return invalid_arg(cst_List_for_all2)}} @@ -7725,8 +10249,8 @@ a2=l2$0[1], l1$1=l1$0[2], a1=l1$0[1], - _zW_=caml_call2(p,a1,a2); - if(_zW_)return _zW_; + _zS_=caml_call2(p,a1,a2); + if(_zS_)return _zS_; var l1$0=l1$1,l2$0=l2$1; continue}} else @@ -7736,8 +10260,8 @@ {var param$0=param; for(;;) {if(param$0) - {var l=param$0[2],a=param$0[1],_zV_=0 === caml_compare(a,x)?1:0; - if(_zV_)return _zV_; + {var l=param$0[2],a=param$0[1],_zR_=0 === caml_compare(a,x)?1:0; + if(_zR_)return _zR_; var param$0=l; continue} return 0}} @@ -7745,8 +10269,8 @@ {var param$0=param; for(;;) {if(param$0) - {var l=param$0[2],a=param$0[1],_zU_=a === x?1:0; - if(_zU_)return _zU_; + {var l=param$0[2],a=param$0[1],_zQ_=a === x?1:0; + if(_zQ_)return _zQ_; var param$0=l; continue} return 0}} @@ -7794,8 +10318,8 @@ l=param$0[2], match=param$0[1], a=match[1], - _zT_=0 === caml_compare(a,x)?1:0; - if(_zT_)return _zT_; + _zP_=0 === caml_compare(a,x)?1:0; + if(_zP_)return _zP_; var param$0=l; continue} return 0}} @@ -7803,8 +10327,8 @@ {var param$0=param; for(;;) {if(param$0) - {var l=param$0[2],match=param$0[1],a=match[1],_zS_=a === x?1:0; - if(_zS_)return _zS_; + {var l=param$0[2],match=param$0[1],a=match[1],_zO_=a === x?1:0; + if(_zO_)return _zO_; var param$0=l; continue} return 0}} @@ -7870,8 +10394,8 @@ {var yes$0=[0,x,yes],yes=yes$0,param$0=l;continue} var no$0=[0,x,no],no=no$0,param$0=l; continue} - var _zR_=rev(no); - return [0,rev(yes),_zR_]}} + var _zN_=rev(no); + return [0,rev(yes),_zN_]}} function split(param) {if(param) {var @@ -7911,29 +10435,28 @@ {function sort(n,l) {if(2 === n) {if(l) - {var _zO_=l[2]; - if(_zO_) - {var x2=_zO_[1],x1=l[1]; + {var _zK_=l[2]; + if(_zK_) + {var x2=_zK_[1],x1=l[1]; return 0 < caml_call2(cmp,x1,x2)?[0,x2,[0,x1,0]]:[0,x1,[0,x2,0]]}}} else - if(3 === n) - if(l) - {var _zP_=l[2]; - if(_zP_) - {var _zQ_=_zP_[2]; - if(_zQ_) - {var x3=_zQ_[1],x2$0=_zP_[1],x1$0=l[1]; - return 0 < caml_call2(cmp,x1$0,x2$0) - ?0 < caml_call2(cmp,x1$0,x3) - ?0 < caml_call2(cmp,x2$0,x3) - ?[0,x3,[0,x2$0,[0,x1$0,0]]] - :[0,x2$0,[0,x3,[0,x1$0,0]]] - :[0,x2$0,[0,x1$0,[0,x3,0]]] - :0 < caml_call2(cmp,x2$0,x3) - ?0 < caml_call2(cmp,x1$0,x3) - ?[0,x3,[0,x1$0,[0,x2$0,0]]] - :[0,x1$0,[0,x3,[0,x2$0,0]]] - :[0,x1$0,[0,x2$0,[0,x3,0]]]}}} + if(3 === n && l) + {var _zL_=l[2]; + if(_zL_) + {var _zM_=_zL_[2]; + if(_zM_) + {var x3=_zM_[1],x2$0=_zL_[1],x1$0=l[1]; + return 0 < caml_call2(cmp,x1$0,x2$0) + ?0 < caml_call2(cmp,x1$0,x3) + ?0 < caml_call2(cmp,x2$0,x3) + ?[0,x3,[0,x2$0,[0,x1$0,0]]] + :[0,x2$0,[0,x3,[0,x1$0,0]]] + :[0,x2$0,[0,x1$0,[0,x3,0]]] + :0 < caml_call2(cmp,x2$0,x3) + ?0 < caml_call2(cmp,x1$0,x3) + ?[0,x3,[0,x1$0,[0,x2$0,0]]] + :[0,x1$0,[0,x3,[0,x2$0,0]]] + :[0,x1$0,[0,x2$0,[0,x3,0]]]}}} var n1=n >> 1, n2=n - n1 | 0, @@ -7956,29 +10479,28 @@ function rev_sort(n,l) {if(2 === n) {if(l) - {var _zL_=l[2]; - if(_zL_) - {var x2=_zL_[1],x1=l[1]; + {var _zH_=l[2]; + if(_zH_) + {var x2=_zH_[1],x1=l[1]; return 0 < caml_call2(cmp,x1,x2)?[0,x1,[0,x2,0]]:[0,x2,[0,x1,0]]}}} else - if(3 === n) - if(l) - {var _zM_=l[2]; - if(_zM_) - {var _zN_=_zM_[2]; - if(_zN_) - {var x3=_zN_[1],x2$0=_zM_[1],x1$0=l[1]; - return 0 < caml_call2(cmp,x1$0,x2$0) - ?0 < caml_call2(cmp,x2$0,x3) - ?[0,x1$0,[0,x2$0,[0,x3,0]]] - :0 < caml_call2(cmp,x1$0,x3) - ?[0,x1$0,[0,x3,[0,x2$0,0]]] - :[0,x3,[0,x1$0,[0,x2$0,0]]] - :0 < caml_call2(cmp,x1$0,x3) - ?[0,x2$0,[0,x1$0,[0,x3,0]]] - :0 < caml_call2(cmp,x2$0,x3) - ?[0,x2$0,[0,x3,[0,x1$0,0]]] - :[0,x3,[0,x2$0,[0,x1$0,0]]]}}} + if(3 === n && l) + {var _zI_=l[2]; + if(_zI_) + {var _zJ_=_zI_[2]; + if(_zJ_) + {var x3=_zJ_[1],x2$0=_zI_[1],x1$0=l[1]; + return 0 < caml_call2(cmp,x1$0,x2$0) + ?0 < caml_call2(cmp,x2$0,x3) + ?[0,x1$0,[0,x2$0,[0,x3,0]]] + :0 < caml_call2(cmp,x1$0,x3) + ?[0,x1$0,[0,x3,[0,x2$0,0]]] + :[0,x3,[0,x1$0,[0,x2$0,0]]] + :0 < caml_call2(cmp,x1$0,x3) + ?[0,x2$0,[0,x1$0,[0,x3,0]]] + :0 < caml_call2(cmp,x2$0,x3) + ?[0,x2$0,[0,x3,[0,x1$0,0]]] + :[0,x3,[0,x2$0,[0,x1$0,0]]]}}} var n1=n >> 1, n2=n - n1 | 0, @@ -8004,50 +10526,49 @@ {function sort(n,l) {if(2 === n) {if(l) - {var _zI_=l[2]; - if(_zI_) - {var x2=_zI_[1],x1=l[1],c$0=caml_call2(cmp,x1,x2); + {var _zE_=l[2]; + if(_zE_) + {var x2=_zE_[1],x1=l[1],c$0=caml_call2(cmp,x1,x2); return 0 === c$0 ?[0,x1,0] :0 <= c$0?[0,x2,[0,x1,0]]:[0,x1,[0,x2,0]]}}} else - if(3 === n) - if(l) - {var _zJ_=l[2]; - if(_zJ_) - {var _zK_=_zJ_[2]; - if(_zK_) - {var - x3=_zK_[1], - x2$0=_zJ_[1], - x1$0=l[1], - c$1=caml_call2(cmp,x1$0,x2$0); - if(0 === c$1) - {var c$2=caml_call2(cmp,x2$0,x3); - return 0 === c$2 - ?[0,x2$0,0] - :0 <= c$2?[0,x3,[0,x2$0,0]]:[0,x2$0,[0,x3,0]]} - if(0 <= c$1) - {var c$3=caml_call2(cmp,x1$0,x3); - if(0 === c$3)return [0,x2$0,[0,x1$0,0]]; - if(0 <= c$3) - {var c$4=caml_call2(cmp,x2$0,x3); - return 0 === c$4 - ?[0,x2$0,[0,x1$0,0]] - :0 <= c$4 - ?[0,x3,[0,x2$0,[0,x1$0,0]]] - :[0,x2$0,[0,x3,[0,x1$0,0]]]} - return [0,x2$0,[0,x1$0,[0,x3,0]]]} - var c$5=caml_call2(cmp,x2$0,x3); - if(0 === c$5)return [0,x1$0,[0,x2$0,0]]; - if(0 <= c$5) - {var c$6=caml_call2(cmp,x1$0,x3); - return 0 === c$6 - ?[0,x1$0,[0,x2$0,0]] - :0 <= c$6 - ?[0,x3,[0,x1$0,[0,x2$0,0]]] - :[0,x1$0,[0,x3,[0,x2$0,0]]]} - return [0,x1$0,[0,x2$0,[0,x3,0]]]}}} + if(3 === n && l) + {var _zF_=l[2]; + if(_zF_) + {var _zG_=_zF_[2]; + if(_zG_) + {var + x3=_zG_[1], + x2$0=_zF_[1], + x1$0=l[1], + c$1=caml_call2(cmp,x1$0,x2$0); + if(0 === c$1) + {var c$2=caml_call2(cmp,x2$0,x3); + return 0 === c$2 + ?[0,x2$0,0] + :0 <= c$2?[0,x3,[0,x2$0,0]]:[0,x2$0,[0,x3,0]]} + if(0 <= c$1) + {var c$3=caml_call2(cmp,x1$0,x3); + if(0 === c$3)return [0,x2$0,[0,x1$0,0]]; + if(0 <= c$3) + {var c$4=caml_call2(cmp,x2$0,x3); + return 0 === c$4 + ?[0,x2$0,[0,x1$0,0]] + :0 <= c$4 + ?[0,x3,[0,x2$0,[0,x1$0,0]]] + :[0,x2$0,[0,x3,[0,x1$0,0]]]} + return [0,x2$0,[0,x1$0,[0,x3,0]]]} + var c$5=caml_call2(cmp,x2$0,x3); + if(0 === c$5)return [0,x1$0,[0,x2$0,0]]; + if(0 <= c$5) + {var c$6=caml_call2(cmp,x1$0,x3); + return 0 === c$6 + ?[0,x1$0,[0,x2$0,0]] + :0 <= c$6 + ?[0,x3,[0,x1$0,[0,x2$0,0]]] + :[0,x1$0,[0,x3,[0,x2$0,0]]]} + return [0,x1$0,[0,x2$0,[0,x3,0]]]}}} var n1=n >> 1, n2=n - n1 | 0, @@ -8071,48 +10592,47 @@ function rev_sort(n,l) {if(2 === n) {if(l) - {var _zF_=l[2]; - if(_zF_) - {var x2=_zF_[1],x1=l[1],c$0=caml_call2(cmp,x1,x2); + {var _zB_=l[2]; + if(_zB_) + {var x2=_zB_[1],x1=l[1],c$0=caml_call2(cmp,x1,x2); return 0 === c$0 ?[0,x1,0] :0 < c$0?[0,x1,[0,x2,0]]:[0,x2,[0,x1,0]]}}} else - if(3 === n) - if(l) - {var _zG_=l[2]; - if(_zG_) - {var _zH_=_zG_[2]; - if(_zH_) - {var - x3=_zH_[1], - x2$0=_zG_[1], - x1$0=l[1], - c$1=caml_call2(cmp,x1$0,x2$0); - if(0 === c$1) - {var c$2=caml_call2(cmp,x2$0,x3); - return 0 === c$2 - ?[0,x2$0,0] - :0 < c$2?[0,x2$0,[0,x3,0]]:[0,x3,[0,x2$0,0]]} - if(0 < c$1) - {var c$3=caml_call2(cmp,x2$0,x3); - if(0 === c$3)return [0,x1$0,[0,x2$0,0]]; - if(0 < c$3)return [0,x1$0,[0,x2$0,[0,x3,0]]]; - var c$4=caml_call2(cmp,x1$0,x3); - return 0 === c$4 - ?[0,x1$0,[0,x2$0,0]] - :0 < c$4 - ?[0,x1$0,[0,x3,[0,x2$0,0]]] - :[0,x3,[0,x1$0,[0,x2$0,0]]]} - var c$5=caml_call2(cmp,x1$0,x3); - if(0 === c$5)return [0,x2$0,[0,x1$0,0]]; - if(0 < c$5)return [0,x2$0,[0,x1$0,[0,x3,0]]]; - var c$6=caml_call2(cmp,x2$0,x3); - return 0 === c$6 - ?[0,x2$0,[0,x1$0,0]] - :0 < c$6 - ?[0,x2$0,[0,x3,[0,x1$0,0]]] - :[0,x3,[0,x2$0,[0,x1$0,0]]]}}} + if(3 === n && l) + {var _zC_=l[2]; + if(_zC_) + {var _zD_=_zC_[2]; + if(_zD_) + {var + x3=_zD_[1], + x2$0=_zC_[1], + x1$0=l[1], + c$1=caml_call2(cmp,x1$0,x2$0); + if(0 === c$1) + {var c$2=caml_call2(cmp,x2$0,x3); + return 0 === c$2 + ?[0,x2$0,0] + :0 < c$2?[0,x2$0,[0,x3,0]]:[0,x3,[0,x2$0,0]]} + if(0 < c$1) + {var c$3=caml_call2(cmp,x2$0,x3); + if(0 === c$3)return [0,x1$0,[0,x2$0,0]]; + if(0 < c$3)return [0,x1$0,[0,x2$0,[0,x3,0]]]; + var c$4=caml_call2(cmp,x1$0,x3); + return 0 === c$4 + ?[0,x1$0,[0,x2$0,0]] + :0 < c$4 + ?[0,x1$0,[0,x3,[0,x2$0,0]]] + :[0,x3,[0,x1$0,[0,x2$0,0]]]} + var c$5=caml_call2(cmp,x1$0,x3); + if(0 === c$5)return [0,x2$0,[0,x1$0,0]]; + if(0 < c$5)return [0,x2$0,[0,x1$0,[0,x3,0]]]; + var c$6=caml_call2(cmp,x2$0,x3); + return 0 === c$6 + ?[0,x2$0,[0,x1$0,0]] + :0 < c$6 + ?[0,x2$0,[0,x3,[0,x1$0,0]]] + :[0,x3,[0,x2$0,[0,x1$0,0]]]}}} var n1=n >> 1, n2=n - n1 | 0, @@ -8154,14 +10674,14 @@ {function aux(l,param) {if(l) {var tail=l[2],x=l[1]; - return [0,x,function(_zE_){return aux(tail,_zE_)}]} + return [0,x,function(_zA_){return aux(tail,_zA_)}]} return 0} - return function(_zD_){return aux(l,_zD_)}} + return function(_zz_){return aux(l,_zz_)}} function of_seq(seq) {function direct(depth,seq) {if(0 === depth) - {var _zC_=0; - return rev(fold_left(function(acc,x){return [0,x,acc]},_zC_,seq))} + {var _zy_=0; + return rev(fold_left(function(acc,x){return [0,x,acc]},_zy_,seq))} var match=caml_call1(seq,0); if(match) {var next=match[2],x=match[1]; @@ -8230,13 +10750,13 @@ function make(n,c) {var s=caml_create_bytes(n);caml_fill_bytes(s,0,n,c);return s} function init$0(n,f) - {var s=caml_create_bytes(n),_zA_=n - 1 | 0,_zz_=0; - if(! (_zA_ < 0)) - {var i=_zz_; + {var s=caml_create_bytes(n),_zw_=n - 1 | 0,_zv_=0; + if(! (_zw_ < 0)) + {var i=_zv_; for(;;) {caml_bytes_unsafe_set(s,i,caml_call1(f,i)); - var _zB_=i + 1 | 0; - if(_zA_ !== i){var i=_zB_;continue} + var _zx_=i + 1 | 0; + if(_zw_ !== i){var i=_zx_;continue} break}} return s} var empty$0=caml_create_bytes(0); @@ -8247,24 +10767,18 @@ function to_string$1(b){return caml_string_of_bytes(copy(b))} function of_string(s){return copy(caml_bytes_of_string(s))} function sub(s,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(s) - len | 0) < ofs)) - {var r=caml_create_bytes(len); - caml_blit_bytes(s,ofs,r,0,len); - return r} + {if + (0 <= ofs && 0 <= len && ! ((caml_ml_bytes_length(s) - len | 0) < ofs)) + {var r=caml_create_bytes(len);caml_blit_bytes(s,ofs,r,0,len);return r} return invalid_arg(cst_String_sub_Bytes_sub)} function sub_string(b,ofs,len) {return caml_string_of_bytes(sub(b,ofs,len))} function symbol$1(a,b) - {var - c=a + b | 0, - _zy_=b < 0?1:0, - match=c < 0?1:0, - switch$0= - 0 === (a < 0?1:0) - ?0 === _zy_?0 === match?0:1:0 - :0 === _zy_?0:0 === match?1:0; + {var c=a + b | 0,_zu_=b < 0?1:0,match=c < 0?1:0,switch$0=0; + if(0 === (a < 0?1:0)) + {if(0 === _zu_ && 0 !== match)switch$0 = 1} + else + if(0 !== _zu_ && 0 === match)switch$0 = 1; return switch$0?invalid_arg(cst_Bytes_extend):c} function extend(s,left,right) {var @@ -8278,45 +10792,70 @@ if(0 < cpylen)caml_blit_bytes(s,srcoff,r,dstoff,cpylen); return r} function fill(s,ofs,len,c) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(s) - len | 0) < ofs)) - return caml_fill_bytes(s,ofs,len,c); + {if + (0 <= ofs && 0 <= len && ! ((caml_ml_bytes_length(s) - len | 0) < ofs)) + return caml_fill_bytes(s,ofs,len,c); return invalid_arg(cst_String_fill_Bytes_fill)} function blit(s1,ofs1,s2,ofs2,len) - {if(0 <= len) - if(0 <= ofs1) - if(! ((caml_ml_bytes_length(s1) - len | 0) < ofs1)) - if(0 <= ofs2) - if(! ((caml_ml_bytes_length(s2) - len | 0) < ofs2)) - return caml_blit_bytes(s1,ofs1,s2,ofs2,len); + {if + (0 + <= + len + && + 0 + <= + ofs1 + && + ! + ((caml_ml_bytes_length(s1) - len | 0) < ofs1) + && + 0 + <= + ofs2 + && + ! + ((caml_ml_bytes_length(s2) - len | 0) < ofs2)) + return caml_blit_bytes(s1,ofs1,s2,ofs2,len); return invalid_arg(cst_Bytes_blit)} function blit$0(s1,ofs1,s2,ofs2,len) - {if(0 <= len) - if(0 <= ofs1) - if(! ((caml_ml_string_length(s1) - len | 0) < ofs1)) - if(0 <= ofs2) - if(! ((caml_ml_bytes_length(s2) - len | 0) < ofs2)) - return caml_blit_string(s1,ofs1,s2,ofs2,len); - return invalid_arg(cst_String_blit_Bytes_blit_string)} + {if + (0 + <= + len + && + 0 + <= + ofs1 + && + ! + ((caml_ml_string_length(s1) - len | 0) < ofs1) + && + 0 + <= + ofs2 + && + ! + ((caml_ml_bytes_length(s2) - len | 0) < ofs2)) + return caml_blit_string(s1,ofs1,s2,ofs2,len); + return invalid_arg(cst_String_blit_Bytes_blit_str)} function iter$3(f,a) - {var _zw_=caml_ml_bytes_length(a) - 1 | 0,_zv_=0; - if(! (_zw_ < 0)) - {var i=_zv_; + {var _zs_=caml_ml_bytes_length(a) - 1 | 0,_zr_=0; + if(! (_zs_ < 0)) + {var i=_zr_; for(;;) {caml_call1(f,caml_bytes_unsafe_get(a,i)); - var _zx_=i + 1 | 0; - if(_zw_ !== i){var i=_zx_;continue} + var _zt_=i + 1 | 0; + if(_zs_ !== i){var i=_zt_;continue} break}} return 0} function iteri$0(f,a) - {var _zt_=caml_ml_bytes_length(a) - 1 | 0,_zs_=0; - if(! (_zt_ < 0)) - {var i=_zs_; + {var _zp_=caml_ml_bytes_length(a) - 1 | 0,_zo_=0; + if(! (_zp_ < 0)) + {var i=_zo_; for(;;) {caml_call2(f,i,caml_bytes_unsafe_get(a,i)); - var _zu_=i + 1 | 0; - if(_zt_ !== i){var i=_zu_;continue} + var _zq_=i + 1 | 0; + if(_zp_ !== i){var i=_zq_;continue} break}} return 0} function concat(sep,l) @@ -8324,31 +10863,31 @@ {var seplen=caml_ml_bytes_length(sep),acc=0,param=l,pos$1=0; for(;;) {if(param) - {var _zn_=param[2],_zo_=param[1]; - if(_zn_) + {var _zj_=param[2],_zk_=param[1]; + if(_zj_) {var - x=(caml_ml_bytes_length(_zo_) + seplen | 0) + acc | 0, + x=(caml_ml_bytes_length(_zk_) + seplen | 0) + acc | 0, acc$0=acc <= x?x:invalid_arg(cst_Bytes_concat), acc=acc$0, - param=_zn_; + param=_zj_; continue} - var _zr_=caml_ml_bytes_length(_zo_) + acc | 0} + var _zn_=caml_ml_bytes_length(_zk_) + acc | 0} else - var _zr_=acc; - var dst=caml_create_bytes(_zr_),pos=pos$1,param$0=l; + var _zn_=acc; + var dst=caml_create_bytes(_zn_),pos=pos$1,param$0=l; for(;;) {if(param$0) - {var _zp_=param$0[2],_zq_=param$0[1]; - if(_zp_) - {caml_blit_bytes(_zq_,0,dst,pos,caml_ml_bytes_length(_zq_)); + {var _zl_=param$0[2],_zm_=param$0[1]; + if(_zl_) + {caml_blit_bytes(_zm_,0,dst,pos,caml_ml_bytes_length(_zm_)); caml_blit_bytes - (sep,0,dst,pos + caml_ml_bytes_length(_zq_) | 0,seplen); + (sep,0,dst,pos + caml_ml_bytes_length(_zm_) | 0,seplen); var - pos$0=(pos + caml_ml_bytes_length(_zq_) | 0) + seplen | 0, + pos$0=(pos + caml_ml_bytes_length(_zm_) | 0) + seplen | 0, pos=pos$0, - param$0=_zp_; + param$0=_zl_; continue} - caml_blit_bytes(_zq_,0,dst,pos,caml_ml_bytes_length(_zq_)); + caml_blit_bytes(_zm_,0,dst,pos,caml_ml_bytes_length(_zm_)); return dst} return dst}}} return empty$0} @@ -8361,88 +10900,89 @@ caml_blit_bytes(s2,0,r,l1,l2); return r} function is_space(param) - {var - _zm_=param - 9 | 0, - switch$0=4 < _zm_ >>> 0?23 === _zm_?1:0:2 === _zm_?0:1; + {var _zi_=param - 9 | 0,switch$0=0; + if(4 < _zi_ >>> 0) + {if(23 === _zi_)switch$0 = 1} + else + if(2 !== _zi_)switch$0 = 1; return switch$0?1:0} function trim(s) {var len=caml_ml_bytes_length(s),i=[0,0]; for(;;) - {if(i[1] < len) - if(is_space(caml_bytes_unsafe_get(s,i[1]))){i[1]++;continue} + {if(i[1] < len && is_space(caml_bytes_unsafe_get(s,i[1]))) + {i[1]++;continue} var j=[0,len - 1 | 0]; for(;;) - {if(i[1] <= j[1]) - if(is_space(caml_bytes_unsafe_get(s,j[1]))){j[1] += -1;continue} + {if(i[1] <= j[1] && is_space(caml_bytes_unsafe_get(s,j[1]))) + {j[1] += -1;continue} return i[1] <= j[1]?sub(s,i[1],(j[1] - i[1] | 0) + 1 | 0):empty$0}}} function escaped$0(s) - {var n=[0,0],_zf_=caml_ml_bytes_length(s) - 1 | 0,_ze_=0; - if(! (_zf_ < 0)) - {var i$0=_ze_; + {var n=[0,0],_zb_=caml_ml_bytes_length(s) - 1 | 0,_za_=0; + if(! (_zb_ < 0)) + {var i$0=_za_; for(;;) - {var match=caml_bytes_unsafe_get(s,i$0); + {var match=caml_bytes_unsafe_get(s,i$0),switch$0=0; if(32 <= match) - {var _zj_=match - 34 | 0; - if(58 < _zj_ >>> 0) - if(93 <= _zj_)var switch$0=0,switch$1=0;else var switch$1=1; + {var _zf_=match - 34 | 0,switch$1=0; + if(58 < _zf_ >>> 0) + {if(93 <= _zf_)switch$1 = 1} else - if(56 < (_zj_ - 1 | 0) >>> 0) - var switch$0=1,switch$1=0; - else - var switch$1=1; - if(switch$1)var _zk_=1,switch$0=2} + if(56 < (_zf_ - 1 | 0) >>> 0){switch$0 = 1;switch$1 = 1} + if(! switch$1){var _zg_=1;switch$0 = 2}} else - var switch$0=11 <= match?13 === match?1:0:8 <= match?1:0; - switch(switch$0){case 0:var _zk_=4;break;case 1:var _zk_=2;break} - n[1] = n[1] + _zk_ | 0; - var _zl_=i$0 + 1 | 0; - if(_zf_ !== i$0){var i$0=_zl_;continue} + if(11 <= match) + {if(13 === match)switch$0 = 1} + else + if(8 <= match)switch$0 = 1; + switch(switch$0){case 0:var _zg_=4;break;case 1:var _zg_=2;break} + n[1] = n[1] + _zg_ | 0; + var _zh_=i$0 + 1 | 0; + if(_zb_ !== i$0){var i$0=_zh_;continue} break}} if(n[1] === caml_ml_bytes_length(s))return copy(s); var s$0=caml_create_bytes(n[1]); n[1] = 0; - var _zh_=caml_ml_bytes_length(s) - 1 | 0,_zg_=0; - if(! (_zh_ < 0)) - {var i=_zg_; + var _zd_=caml_ml_bytes_length(s) - 1 | 0,_zc_=0; + if(! (_zd_ < 0)) + {var i=_zc_; for(;;) - {var c=caml_bytes_unsafe_get(s,i); + {var c=caml_bytes_unsafe_get(s,i),switch$2=0; if(35 <= c) - var switch$2=92 === c?1:127 <= c?0:2; + if(92 === c) + switch$2 = 2; + else + if(127 <= c)switch$2 = 1;else switch$2 = 3; else if(32 <= c) - var switch$2=34 <= c?1:2; + if(34 <= c)switch$2 = 2;else switch$2 = 3; else if(14 <= c) - var switch$2=0; + switch$2 = 1; else switch(c) {case 8: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],98); - var switch$2=3; break; case 9: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],116); - var switch$2=3; break; case 10: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],110); - var switch$2=3; break; case 13: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],114); - var switch$2=3; break; - default:var switch$2=0} + default:switch$2 = 1} switch(switch$2) - {case 0: + {case 1: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],48 + (c / 100 | 0) | 0); @@ -8451,41 +10991,41 @@ n[1]++; caml_bytes_unsafe_set(s$0,n[1],48 + (c % 10 | 0) | 0); break; - case 1: + case 2: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],c); break; - case 2:caml_bytes_unsafe_set(s$0,n[1],c);break + case 3:caml_bytes_unsafe_set(s$0,n[1],c);break } n[1]++; - var _zi_=i + 1 | 0; - if(_zh_ !== i){var i=_zi_;continue} + var _ze_=i + 1 | 0; + if(_zd_ !== i){var i=_ze_;continue} break}} return s$0} function map$3(f,s) {var l=caml_ml_bytes_length(s); if(0 === l)return s; - var r=caml_create_bytes(l),_zc_=l - 1 | 0,_zb_=0; - if(! (_zc_ < 0)) - {var i=_zb_; + var r=caml_create_bytes(l),_y__=l - 1 | 0,_y9_=0; + if(! (_y__ < 0)) + {var i=_y9_; for(;;) {caml_bytes_unsafe_set(r,i,caml_call1(f,caml_bytes_unsafe_get(s,i))); - var _zd_=i + 1 | 0; - if(_zc_ !== i){var i=_zd_;continue} + var _y$_=i + 1 | 0; + if(_y__ !== i){var i=_y$_;continue} break}} return r} function mapi$0(f,s) {var l=caml_ml_bytes_length(s); if(0 === l)return s; - var r=caml_create_bytes(l),_y$_=l - 1 | 0,_y__=0; - if(! (_y$_ < 0)) - {var i=_y__; + var r=caml_create_bytes(l),_y7_=l - 1 | 0,_y6_=0; + if(! (_y7_ < 0)) + {var i=_y6_; for(;;) {caml_bytes_unsafe_set (r,i,caml_call2(f,i,caml_bytes_unsafe_get(s,i))); - var _za_=i + 1 | 0; - if(_y$_ !== i){var i=_za_;continue} + var _y8_=i + 1 | 0; + if(_y7_ !== i){var i=_y8_;continue} break}} return r} function uppercase_ascii$0(s){return map$3(uppercase_ascii,s)} @@ -8516,12 +11056,12 @@ {return index_rec_opt(s,caml_ml_bytes_length(s),0,c)} function index_from(s,i,c) {var l=caml_ml_bytes_length(s); - if(0 <= i)if(! (l < i))return index_rec(s,l,i,c); - return invalid_arg(cst_String_index_from_Bytes_index_from)} + if(0 <= i && ! (l < i))return index_rec(s,l,i,c); + return invalid_arg(cst_String_index_from_Bytes_in)} function index_from_opt(s,i,c) {var l=caml_ml_bytes_length(s); - if(0 <= i)if(! (l < i))return index_rec_opt(s,l,i,c); - return invalid_arg(cst_String_index_from_opt_Bytes_index_from_opt)} + if(0 <= i && ! (l < i))return index_rec_opt(s,l,i,c); + return invalid_arg(cst_String_index_from_opt_Byte)} function rindex_rec(s,i,c) {var i$0=i; for(;;) @@ -8533,8 +11073,8 @@ function rindex(s,c) {return rindex_rec(s,caml_ml_bytes_length(s) - 1 | 0,c)} function rindex_from(s,i,c) - {if(-1 <= i)if(! (caml_ml_bytes_length(s) <= i))return rindex_rec(s,i,c); - return invalid_arg(cst_String_rindex_from_Bytes_rindex_from)} + {if(-1 <= i && ! (caml_ml_bytes_length(s) <= i))return rindex_rec(s,i,c); + return invalid_arg(cst_String_rindex_from_Bytes_r)} function rindex_rec_opt(s,i,c) {var i$0=i; for(;;) @@ -8546,50 +11086,48 @@ function rindex_opt(s,c) {return rindex_rec_opt(s,caml_ml_bytes_length(s) - 1 | 0,c)} function rindex_from_opt(s,i,c) - {if(-1 <= i) - if(! (caml_ml_bytes_length(s) <= i))return rindex_rec_opt(s,i,c); - return invalid_arg(cst_String_rindex_from_opt_Bytes_rindex_from_opt)} + {if(-1 <= i && ! (caml_ml_bytes_length(s) <= i)) + return rindex_rec_opt(s,i,c); + return invalid_arg(cst_String_rindex_from_opt_Byt)} function contains_from(s,i,c) {var l=caml_ml_bytes_length(s); - if(0 <= i) - if(! (l < i)) - try - {index_rec(s,l,i,c);var _y8_=1;return _y8_} - catch(_y9_) - {_y9_ = caml_wrap_exception(_y9_); - if(_y9_ === Not_found)return 0; - throw _y9_} - return invalid_arg(cst_String_contains_from_Bytes_contains_from)} + if(0 <= i && ! (l < i)) + try + {index_rec(s,l,i,c);var _y4_=1;return _y4_} + catch(_y5_) + {_y5_ = caml_wrap_exception(_y5_); + if(_y5_ === Not_found)return 0; + throw _y5_} + return invalid_arg(cst_String_contains_from_Bytes)} function contains(s,c){return contains_from(s,0,c)} function rcontains_from(s,i,c) - {if(0 <= i) - if(! (caml_ml_bytes_length(s) <= i)) - try - {rindex_rec(s,i,c);var _y6_=1;return _y6_} - catch(_y7_) - {_y7_ = caml_wrap_exception(_y7_); - if(_y7_ === Not_found)return 0; - throw _y7_} - return invalid_arg(cst_String_rcontains_from_Bytes_rcontains_from)} + {if(0 <= i && ! (caml_ml_bytes_length(s) <= i)) + try + {rindex_rec(s,i,c);var _y2_=1;return _y2_} + catch(_y3_) + {_y3_ = caml_wrap_exception(_y3_); + if(_y3_ === Not_found)return 0; + throw _y3_} + return invalid_arg(cst_String_rcontains_from_Byte)} var compare$4=runtime.caml_bytes_compare; function uppercase$0(s){return map$3(uppercase,s)} function lowercase$0(s){return map$3(lowercase,s)} function capitalize(s){return apply1(uppercase,s)} function uncapitalize(s){return apply1(lowercase,s)} function to_seq$2(s) - {function aux(i,param) - {if(i === caml_ml_bytes_length(s))return 0; - var x=caml_bytes_get(s,i),_y4_=i + 1 | 0; - return [0,x,function(_y5_){return aux(_y4_,_y5_)}]} - var _y2_=0; - return function(_y3_){return aux(_y2_,_y3_)}} - function to_seqi(s) {function aux(i,param) {if(i === caml_ml_bytes_length(s))return 0; var x=caml_bytes_get(s,i),_y0_=i + 1 | 0; - return [0,[0,i,x],function(_y1_){return aux(_y0_,_y1_)}]} + return [0,x,function(_y1_){return aux(_y0_,_y1_)}]} var _yY_=0; return function(_yZ_){return aux(_yY_,_yZ_)}} + function to_seqi(s) + {function aux(i,param) + {if(i === caml_ml_bytes_length(s))return 0; + var x=caml_bytes_get(s,i),_yW_=i + 1 | 0; + return [0,[0,i,x],function(_yX_){return aux(_yW_,_yX_)}]} + var _yU_=0; + return function(_yV_){return aux(_yU_,_yV_)}} function of_seq$0(i) {var n=[0,0],buf=[0,make(256,0)]; iter @@ -8599,7 +11137,7 @@ new_len= min(2 * caml_ml_bytes_length(buf[1]) | 0,max_string_length); if(caml_ml_bytes_length(buf[1]) === new_len) - failwith(cst_Bytes_of_seq_cannot_grow_bytes); + failwith(cst_Bytes_of_seq_cannot_grow_b); var new_buf=make(new_len,0); blit(buf[1],0,new_buf,0,n[1]); buf[1] = new_buf} @@ -8728,51 +11266,51 @@ {var seplen=caml_ml_string_length(sep),acc=0,param=l,pos$1=0; for(;;) {if(param) - {var _yT_=param[2],_yU_=param[1]; - if(_yT_) + {var _yP_=param[2],_yQ_=param[1]; + if(_yP_) {var - x=(caml_ml_string_length(_yU_) + seplen | 0) + acc | 0, + x=(caml_ml_string_length(_yQ_) + seplen | 0) + acc | 0, acc$0=acc <= x?x:invalid_arg(cst_String_concat), acc=acc$0, - param=_yT_; + param=_yP_; continue} - var _yX_=caml_ml_string_length(_yU_) + acc | 0} + var _yT_=caml_ml_string_length(_yQ_) + acc | 0} else - var _yX_=acc; - var dst=caml_create_bytes(_yX_),pos=pos$1,param$0=l; + var _yT_=acc; + var dst=caml_create_bytes(_yT_),pos=pos$1,param$0=l; for(;;) {if(param$0) - {var _yV_=param$0[2],_yW_=param$0[1]; - if(_yV_) - {caml_blit_string(_yW_,0,dst,pos,caml_ml_string_length(_yW_)); + {var _yR_=param$0[2],_yS_=param$0[1]; + if(_yR_) + {caml_blit_string(_yS_,0,dst,pos,caml_ml_string_length(_yS_)); caml_blit_string - (sep,0,dst,pos + caml_ml_string_length(_yW_) | 0,seplen); + (sep,0,dst,pos + caml_ml_string_length(_yS_) | 0,seplen); var - pos$0=(pos + caml_ml_string_length(_yW_) | 0) + seplen | 0, + pos$0=(pos + caml_ml_string_length(_yS_) | 0) + seplen | 0, pos=pos$0, - param$0=_yV_; + param$0=_yR_; continue} - caml_blit_string(_yW_,0,dst,pos,caml_ml_string_length(_yW_))} + caml_blit_string(_yS_,0,dst,pos,caml_ml_string_length(_yS_))} return caml_string_of_bytes(dst)}}} return cst$3} function iter$4(f,s) - {var _yR_=caml_ml_string_length(s) - 1 | 0,_yQ_=0; - if(! (_yR_ < 0)) - {var i=_yQ_; + {var _yN_=caml_ml_string_length(s) - 1 | 0,_yM_=0; + if(! (_yN_ < 0)) + {var i=_yM_; for(;;) {caml_call1(f,caml_string_unsafe_get(s,i)); - var _yS_=i + 1 | 0; - if(_yR_ !== i){var i=_yS_;continue} + var _yO_=i + 1 | 0; + if(_yN_ !== i){var i=_yO_;continue} break}} return 0} function iteri$1(f,s) - {var _yO_=caml_ml_string_length(s) - 1 | 0,_yN_=0; - if(! (_yO_ < 0)) - {var i=_yN_; + {var _yK_=caml_ml_string_length(s) - 1 | 0,_yJ_=0; + if(! (_yK_ < 0)) + {var i=_yJ_; for(;;) {caml_call2(f,i,caml_string_unsafe_get(s,i)); - var _yP_=i + 1 | 0; - if(_yO_ !== i){var i=_yP_;continue} + var _yL_=i + 1 | 0; + if(_yK_ !== i){var i=_yL_;continue} break}} return 0} function map$4(f,s) @@ -8780,28 +11318,31 @@ function mapi$1(f,s) {return caml_string_of_bytes(mapi$0(f,caml_bytes_of_string(s)))} function is_space$0(param) - {var - _yM_=param - 9 | 0, - switch$0=4 < _yM_ >>> 0?23 === _yM_?1:0:2 === _yM_?0:1; + {var _yI_=param - 9 | 0,switch$0=0; + if(4 < _yI_ >>> 0) + {if(23 === _yI_)switch$0 = 1} + else + if(2 !== _yI_)switch$0 = 1; return switch$0?1:0} function trim$0(s) {if(caml_string_equal(s,cst$4))return s; - if(! is_space$0(caml_string_unsafe_get(s,0))) - if - (! - is_space$0 - (caml_string_unsafe_get(s,caml_ml_string_length(s) - 1 | 0))) - return s; + if + (! + is_space$0(caml_string_unsafe_get(s,0)) + && + ! + is_space$0(caml_string_unsafe_get(s,caml_ml_string_length(s) - 1 | 0))) + return s; return caml_string_of_bytes(trim(caml_bytes_of_string(s)))} function escaped$1(s) {var n=caml_ml_string_length(s),i=0; for(;;) {if(n <= i)return s; - var - match=caml_string_unsafe_get(s,i), - _yL_=match - 32 | 0, - switch$0= - 59 < _yL_ >>> 0?33 < (_yL_ - 61 | 0) >>> 0?1:0:2 === _yL_?1:0; + var match=caml_string_unsafe_get(s,i),_yH_=match - 32 | 0,switch$0=0; + if(59 < _yH_ >>> 0) + {if(33 < (_yH_ - 61 | 0) >>> 0)switch$0 = 1} + else + if(2 === _yH_)switch$0 = 1; if(switch$0) return caml_string_of_bytes(escaped$0(caml_bytes_of_string(s))); var i$0=i + 1 | 0,i=i$0; @@ -8825,12 +11366,12 @@ {return index_rec_opt$0(s,caml_ml_string_length(s),0,c)} function index_from$0(s,i,c) {var l=caml_ml_string_length(s); - if(0 <= i)if(! (l < i))return index_rec$0(s,l,i,c); - return invalid_arg(cst_String_index_from_Bytes_index_from$0)} + if(0 <= i && ! (l < i))return index_rec$0(s,l,i,c); + return invalid_arg(cst_String_index_from_Bytes_in$0)} function index_from_opt$0(s,i,c) {var l=caml_ml_string_length(s); - if(0 <= i)if(! (l < i))return index_rec_opt$0(s,l,i,c); - return invalid_arg(cst_String_index_from_opt_Bytes_index_from_opt$0)} + if(0 <= i && ! (l < i))return index_rec_opt$0(s,l,i,c); + return invalid_arg(cst_String_index_from_opt_Byte$0)} function rindex_rec$0(s,i,c) {var i$0=i; for(;;) @@ -8842,9 +11383,9 @@ function rindex$0(s,c) {return rindex_rec$0(s,caml_ml_string_length(s) - 1 | 0,c)} function rindex_from$0(s,i,c) - {if(-1 <= i) - if(! (caml_ml_string_length(s) <= i))return rindex_rec$0(s,i,c); - return invalid_arg(cst_String_rindex_from_Bytes_rindex_from$0)} + {if(-1 <= i && ! (caml_ml_string_length(s) <= i)) + return rindex_rec$0(s,i,c); + return invalid_arg(cst_String_rindex_from_Bytes_r$0)} function rindex_rec_opt$0(s,i,c) {var i$0=i; for(;;) @@ -8856,31 +11397,29 @@ function rindex_opt$0(s,c) {return rindex_rec_opt$0(s,caml_ml_string_length(s) - 1 | 0,c)} function rindex_from_opt$0(s,i,c) - {if(-1 <= i) - if(! (caml_ml_string_length(s) <= i))return rindex_rec_opt$0(s,i,c); - return invalid_arg(cst_String_rindex_from_opt_Bytes_rindex_from_opt$0)} + {if(-1 <= i && ! (caml_ml_string_length(s) <= i)) + return rindex_rec_opt$0(s,i,c); + return invalid_arg(cst_String_rindex_from_opt_Byt$0)} function contains_from$0(s,i,c) {var l=caml_ml_string_length(s); - if(0 <= i) - if(! (l < i)) - try - {index_rec$0(s,l,i,c);var _yJ_=1;return _yJ_} - catch(_yK_) - {_yK_ = caml_wrap_exception(_yK_); - if(_yK_ === Not_found)return 0; - throw _yK_} - return invalid_arg(cst_String_contains_from_Bytes_contains_from$0)} + if(0 <= i && ! (l < i)) + try + {index_rec$0(s,l,i,c);var _yF_=1;return _yF_} + catch(_yG_) + {_yG_ = caml_wrap_exception(_yG_); + if(_yG_ === Not_found)return 0; + throw _yG_} + return invalid_arg(cst_String_contains_from_Bytes$0)} function contains$0(s,c){return contains_from$0(s,0,c)} function rcontains_from$0(s,i,c) - {if(0 <= i) - if(! (caml_ml_string_length(s) <= i)) - try - {rindex_rec$0(s,i,c);var _yH_=1;return _yH_} - catch(_yI_) - {_yI_ = caml_wrap_exception(_yI_); - if(_yI_ === Not_found)return 0; - throw _yI_} - return invalid_arg(cst_String_rcontains_from_Bytes_rcontains_from$0)} + {if(0 <= i && ! (caml_ml_string_length(s) <= i)) + try + {rindex_rec$0(s,i,c);var _yD_=1;return _yD_} + catch(_yE_) + {_yE_ = caml_wrap_exception(_yE_); + if(_yE_ === Not_found)return 0; + throw _yE_} + return invalid_arg(cst_String_rcontains_from_Byte$0)} function uppercase_ascii$1(s) {return caml_string_of_bytes(uppercase_ascii$0(caml_bytes_of_string(s)))} function lowercase_ascii$1(s) @@ -8894,19 +11433,19 @@ {var r=[0,0], j=[0,caml_ml_string_length(s)], - _yD_=caml_ml_string_length(s) - 1 | 0; - if(! (_yD_ < 0)) - {var i=_yD_; + _yz_=caml_ml_string_length(s) - 1 | 0; + if(! (_yz_ < 0)) + {var i=_yz_; for(;;) {if(caml_string_unsafe_get(s,i) === sep) - {var _yF_=r[1]; - r[1] = [0,sub$0(s,i + 1 | 0,(j[1] - i | 0) - 1 | 0),_yF_]; + {var _yB_=r[1]; + r[1] = [0,sub$0(s,i + 1 | 0,(j[1] - i | 0) - 1 | 0),_yB_]; j[1] = i} - var _yG_=i - 1 | 0; - if(0 !== i){var i=_yG_;continue} + var _yC_=i - 1 | 0; + if(0 !== i){var i=_yC_;continue} break}} - var _yE_=r[1]; - return [0,sub$0(s,0,j[1]),_yE_]} + var _yA_=r[1]; + return [0,sub$0(s,0,j[1]),_yA_]} function uppercase$1(s) {return caml_string_of_bytes(uppercase$0(caml_bytes_of_string(s)))} function lowercase$1(s) @@ -8961,31 +11500,37 @@ to_seqi$0, of_seq$1]; caml_register_global(732,include$1,"Stdlib__string"); - function equal$6(param,_yC_){return 1} - function compare$6(param,_yB_){return 0} + function equal$6(param,_yy_){return 1} + function compare$6(param,_yx_){return 0} function to_string$2(param){return cst$5} var Stdlib_unit=[0,equal$6,compare$6,to_string$2]; caml_register_global(733,Stdlib_unit,"Stdlib__unit"); function to_buffer(buff,ofs,len,v,flags) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(buff) - len | 0) < ofs)) - return runtime.caml_output_value_to_buffer(buff,ofs,len,v,flags); - return invalid_arg(cst_Marshal_to_buffer_substring_out_of_bounds)} + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_bytes_length(buff) - len | 0) < ofs)) + return runtime.caml_output_value_to_buffer(buff,ofs,len,v,flags); + return invalid_arg(cst_Marshal_to_buffer_substrin)} var header_size=20; function data_size(buff,ofs) - {if(0 <= ofs) - if(! ((caml_ml_bytes_length(buff) - 20 | 0) < ofs)) - return caml_marshal_data_size(buff,ofs); + {if(0 <= ofs && ! ((caml_ml_bytes_length(buff) - 20 | 0) < ofs)) + return caml_marshal_data_size(buff,ofs); return invalid_arg(cst_Marshal_data_size)} function total_size(buff,ofs){return 20 + data_size(buff,ofs) | 0} function from_bytes(buff,ofs) - {if(0 <= ofs) - if(! ((caml_ml_bytes_length(buff) - 20 | 0) < ofs)) - {var len=caml_marshal_data_size(buff,ofs); - return (caml_ml_bytes_length(buff) - (20 + len | 0) | 0) < ofs - ?invalid_arg(cst_Marshal_from_bytes$0) - :runtime.caml_input_value_from_bytes(buff,ofs)} + {if(0 <= ofs && ! ((caml_ml_bytes_length(buff) - 20 | 0) < ofs)) + {var len=caml_marshal_data_size(buff,ofs); + return (caml_ml_bytes_length(buff) - (20 + len | 0) | 0) < ofs + ?invalid_arg(cst_Marshal_from_bytes$0) + :runtime.caml_input_value_from_bytes(buff,ofs)} return invalid_arg(cst_Marshal_from_bytes)} function from_string(buff,ofs) {return from_bytes(caml_bytes_of_string(buff),ofs)} @@ -9005,11 +11550,11 @@ var double_field=caml_array_get,set_double_field=caml_array_set; function marshal(obj){return runtime.caml_output_value_to_bytes(obj,0)} function unmarshal(str,pos) - {var _yA_=pos + total_size(str,pos) | 0; - return [0,from_bytes(str,pos),_yA_]} + {var _yw_=pos + total_size(str,pos) | 0; + return [0,from_bytes(str,pos),_yw_]} var - first_non_constant_constructor_tag=0, - last_non_constant_constructor_tag=245, + first_non_constant_constructor=0, + last_non_constant_constructor_=245, lazy_tag=246, closure_tag=247, object_tag=248, @@ -9025,21 +11570,13 @@ out_of_heap_tag=1001, unaligned_tag=1002; function of_val(x) - {if(is_block(x)) - if(caml_obj_tag(x) !== 248) - if(1 <= x.length - 1)var slot=x[1],switch$0=1;else var switch$0=0; - else - var switch$0=0; - else - var switch$0=0; + {var switch$0=0; + if(is_block(x) && caml_obj_tag(x) !== 248 && 1 <= x.length - 1) + {var slot=x[1];switch$0 = 1} if(! switch$0)var slot=x; - if(is_block(slot)) - if(caml_obj_tag(slot) === 248) - var name=slot[1],switch$1=1; - else - var switch$1=0; - else - var switch$1=0; + var switch$1=0; + if(is_block(slot) && caml_obj_tag(slot) === 248) + {var name=slot[1];switch$1 = 1} if(! switch$1)var name=invalid_arg(cst_Obj_extension_constructor$0); return caml_obj_tag(name) === 252 ?slot @@ -9053,13 +11590,13 @@ extension_id=Extension_constructor[3], max_ephe_length=max_array_length - 2 | 0; function create(l) - {var _yy_=0 <= l?1:0,_yz_=_yy_?l <= max_ephe_length?1:0:_yy_; - if(1 - _yz_)invalid_arg(cst_Obj_Ephemeron_create); + {var _yu_=0 <= l?1:0,_yv_=_yu_?l <= max_ephe_length?1:0:_yu_; + if(1 - _yv_)invalid_arg(cst_Obj_Ephemeron_create); return runtime.caml_ephe_create(l)} function length$0(x){return x.length - 1 - 2 | 0} function raise_if_invalid_offset(e,o,msg) - {var _yv_=0 <= o?1:0,_yw_=_yv_?o < length$0(e)?1:0:_yv_,_yx_=1 - _yw_; - return _yx_?invalid_arg(msg):_yx_} + {var _yr_=0 <= o?1:0,_ys_=_yr_?o < length$0(e)?1:0:_yr_,_yt_=1 - _ys_; + return _yt_?invalid_arg(msg):_yt_} function get_key(e,o) {raise_if_invalid_offset(e,o,cst_Obj_Ephemeron_get_key); return runtime.caml_ephe_get_key(e,o)} @@ -9076,15 +11613,28 @@ {raise_if_invalid_offset(e,o,cst_Obj_Ephemeron_check_key); return runtime.caml_ephe_check_key(e,o)} function blit_key(e1,o1,e2,o2,l) - {if(0 <= l) - if(0 <= o1) - if(! ((length$0(e1) - l | 0) < o1)) - if(0 <= o2) - if(! ((length$0(e2) - l | 0) < o2)) - {var - _yt_=0 !== l?1:0, - _yu_=_yt_?runtime.caml_ephe_blit_key(e1,o1,e2,o2,l):_yt_; - return _yu_} + {if + (0 + <= + l + && + 0 + <= + o1 + && + ! + ((length$0(e1) - l | 0) < o1) + && + 0 + <= + o2 + && + ! + ((length$0(e2) - l | 0) < o2)) + {var + _yp_=0 !== l?1:0, + _yq_=_yp_?runtime.caml_ephe_blit_key(e1,o1,e2,o2,l):_yp_; + return _yq_} return invalid_arg(cst_Obj_Ephemeron_blit_key)} var _q_=runtime.caml_ephe_blit_data, @@ -9102,7 +11652,7 @@ runtime.caml_ephe_get_data, runtime.caml_ephe_get_data_copy, runtime.caml_ephe_set_data, - function(_ys_){return runtime.caml_ephe_unset_data(_ys_)}, + function(_yo_){return runtime.caml_ephe_unset_data(_yo_)}, _r_, _q_, max_ephe_length], @@ -9111,8 +11661,8 @@ is_block, double_field, set_double_field, - first_non_constant_constructor_tag, - last_non_constant_constructor_tag, + first_non_constant_constructor, + last_non_constant_constructor_, lazy_tag, closure_tag, object_tag, @@ -9140,24 +11690,24 @@ function init$2(l,f) {if(0 === l)return [0]; if(0 <= l) - {var res=caml_make_vect(l,caml_call1(f,0)),_yq_=l - 1 | 0,_yp_=1; - if(! (_yq_ < 1)) - {var i=_yp_; + {var res=caml_make_vect(l,caml_call1(f,0)),_ym_=l - 1 | 0,_yl_=1; + if(! (_ym_ < 1)) + {var i=_yl_; for(;;) {res[1 + i] = caml_call1(f,i); - var _yr_=i + 1 | 0; - if(_yq_ !== i){var i=_yr_;continue} + var _yn_=i + 1 | 0; + if(_ym_ !== i){var i=_yn_;continue} break}} return res} return invalid_arg(cst_Array_init)} function create_matrix(sx,sy,init) - {var res=caml_make_vect(sx,[0]),_yn_=sx - 1 | 0,_ym_=0; - if(! (_yn_ < 0)) - {var x=_ym_; + {var res=caml_make_vect(sx,[0]),_yj_=sx - 1 | 0,_yi_=0; + if(! (_yj_ < 0)) + {var x=_yi_; for(;;) {res[1 + x] = caml_make_vect(sy,init); - var _yo_=x + 1 | 0; - if(_yn_ !== x){var x=_yo_;continue} + var _yk_=x + 1 | 0; + if(_yj_ !== x){var x=_yk_;continue} break}} return res} function copy$1(a) @@ -9170,101 +11720,109 @@ ?caml_array_sub(a1,0,l1) :runtime.caml_array_append(a1,a2)} function sub$1(a,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((a.length - 1 - len | 0) < ofs)) - return caml_array_sub(a,ofs,len); + {if(0 <= ofs && 0 <= len && ! ((a.length - 1 - len | 0) < ofs)) + return caml_array_sub(a,ofs,len); return invalid_arg(cst_Array_sub)} function fill$0(a,ofs,len,v) - {if(0 <= ofs) - if(0 <= len) - if(! ((a.length - 1 - len | 0) < ofs)) - {var _yk_=(ofs + len | 0) - 1 | 0; - if(! (_yk_ < ofs)) - {var i=ofs; - for(;;) - {a[1 + i] = v; - var _yl_=i + 1 | 0; - if(_yk_ !== i){var i=_yl_;continue} - break}} - return 0} + {if(0 <= ofs && 0 <= len && ! ((a.length - 1 - len | 0) < ofs)) + {var _yg_=(ofs + len | 0) - 1 | 0; + if(! (_yg_ < ofs)) + {var i=ofs; + for(;;) + {a[1 + i] = v; + var _yh_=i + 1 | 0; + if(_yg_ !== i){var i=_yh_;continue} + break}} + return 0} return invalid_arg(cst_Array_fill)} function blit$1(a1,ofs1,a2,ofs2,len) - {if(0 <= len) - if(0 <= ofs1) - if(! ((a1.length - 1 - len | 0) < ofs1)) - if(0 <= ofs2) - if(! ((a2.length - 1 - len | 0) < ofs2)) - return runtime.caml_array_blit(a1,ofs1,a2,ofs2,len); + {if + (0 + <= + len + && + 0 + <= + ofs1 + && + ! + ((a1.length - 1 - len | 0) < ofs1) + && + 0 + <= + ofs2 + && + ! + ((a2.length - 1 - len | 0) < ofs2)) + return runtime.caml_array_blit(a1,ofs1,a2,ofs2,len); return invalid_arg(cst_Array_blit)} function iter$5(f,a) - {var _yi_=a.length - 1 - 1 | 0,_yh_=0; - if(! (_yi_ < 0)) - {var i=_yh_; + {var _ye_=a.length - 1 - 1 | 0,_yd_=0; + if(! (_ye_ < 0)) + {var i=_yd_; for(;;) {caml_call1(f,a[1 + i]); - var _yj_=i + 1 | 0; - if(_yi_ !== i){var i=_yj_;continue} + var _yf_=i + 1 | 0; + if(_ye_ !== i){var i=_yf_;continue} break}} return 0} function iter2$0(f,a,b) {if(a.length - 1 !== b.length - 1) - return invalid_arg(cst_Array_iter2_arrays_must_have_the_same_length); - var _yf_=a.length - 1 - 1 | 0,_ye_=0; - if(! (_yf_ < 0)) - {var i=_ye_; + return invalid_arg(cst_Array_iter2_arrays_must_ha); + var _yb_=a.length - 1 - 1 | 0,_ya_=0; + if(! (_yb_ < 0)) + {var i=_ya_; for(;;) {caml_call2(f,a[1 + i],b[1 + i]); - var _yg_=i + 1 | 0; - if(_yf_ !== i){var i=_yg_;continue} + var _yc_=i + 1 | 0; + if(_yb_ !== i){var i=_yc_;continue} break}} return 0} function map$5(f,a) {var l=a.length - 1; if(0 === l)return [0]; - var r=caml_make_vect(l,caml_call1(f,a[1])),_yc_=l - 1 | 0,_yb_=1; - if(! (_yc_ < 1)) - {var i=_yb_; + var r=caml_make_vect(l,caml_call1(f,a[1])),_x__=l - 1 | 0,_x9_=1; + if(! (_x__ < 1)) + {var i=_x9_; for(;;) {r[1 + i] = caml_call1(f,a[1 + i]); - var _yd_=i + 1 | 0; - if(_yc_ !== i){var i=_yd_;continue} + var _x$_=i + 1 | 0; + if(_x__ !== i){var i=_x$_;continue} break}} return r} function map2$0(f,a,b) {var la=a.length - 1,lb=b.length - 1; - if(la !== lb) - return invalid_arg(cst_Array_map2_arrays_must_have_the_same_length); + if(la !== lb)return invalid_arg(cst_Array_map2_arrays_must_hav); if(0 === la)return [0]; - var r=caml_make_vect(la,caml_call2(f,a[1],b[1])),_x$_=la - 1 | 0,_x__=1; - if(! (_x$_ < 1)) - {var i=_x__; + var r=caml_make_vect(la,caml_call2(f,a[1],b[1])),_x7_=la - 1 | 0,_x6_=1; + if(! (_x7_ < 1)) + {var i=_x6_; for(;;) {r[1 + i] = caml_call2(f,a[1 + i],b[1 + i]); - var _ya_=i + 1 | 0; - if(_x$_ !== i){var i=_ya_;continue} + var _x8_=i + 1 | 0; + if(_x7_ !== i){var i=_x8_;continue} break}} return r} function iteri$2(f,a) - {var _x8_=a.length - 1 - 1 | 0,_x7_=0; - if(! (_x8_ < 0)) - {var i=_x7_; + {var _x4_=a.length - 1 - 1 | 0,_x3_=0; + if(! (_x4_ < 0)) + {var i=_x3_; for(;;) {caml_call2(f,i,a[1 + i]); - var _x9_=i + 1 | 0; - if(_x8_ !== i){var i=_x9_;continue} + var _x5_=i + 1 | 0; + if(_x4_ !== i){var i=_x5_;continue} break}} return 0} function mapi$2(f,a) {var l=a.length - 1; if(0 === l)return [0]; - var r=caml_make_vect(l,caml_call2(f,0,a[1])),_x5_=l - 1 | 0,_x4_=1; - if(! (_x5_ < 1)) - {var i=_x4_; + var r=caml_make_vect(l,caml_call2(f,0,a[1])),_x1_=l - 1 | 0,_x0_=1; + if(! (_x1_ < 1)) + {var i=_x0_; for(;;) {r[1 + i] = caml_call2(f,i,a[1 + i]); - var _x6_=i + 1 | 0; - if(_x5_ !== i){var i=_x6_;continue} + var _x2_=i + 1 | 0; + if(_x1_ !== i){var i=_x2_;continue} break}} return r} function to_list$1(a) @@ -9301,23 +11859,23 @@ return a}} return [0]} function fold_left$1(f,x,a) - {var r=[0,x],_x2_=a.length - 1 - 1 | 0,_x1_=0; - if(! (_x2_ < 0)) - {var i=_x1_; + {var r=[0,x],_xY_=a.length - 1 - 1 | 0,_xX_=0; + if(! (_xY_ < 0)) + {var i=_xX_; for(;;) {r[1] = caml_call2(f,r[1],a[1 + i]); - var _x3_=i + 1 | 0; - if(_x2_ !== i){var i=_x3_;continue} + var _xZ_=i + 1 | 0; + if(_xY_ !== i){var i=_xZ_;continue} break}} return r[1]} function fold_right$0(f,a,x) - {var r=[0,x],_xZ_=a.length - 1 - 1 | 0; - if(! (_xZ_ < 0)) - {var i=_xZ_; + {var r=[0,x],_xV_=a.length - 1 - 1 | 0; + if(! (_xV_ < 0)) + {var i=_xV_; for(;;) {r[1] = caml_call2(f,a[1 + i],r[1]); - var _x0_=i - 1 | 0; - if(0 !== i){var i=_x0_;continue} + var _xW_=i - 1 | 0; + if(0 !== i){var i=_xW_;continue} break}} return r[1]} function exists$0(p,a) @@ -9352,19 +11910,19 @@ {function maxson(l,i) {var i31=((i + i | 0) + i | 0) + 1 | 0,x=[0,i31]; if((i31 + 2 | 0) < l) - {var _xS_=i31 + 1 | 0,_xT_=caml_check_bound(a,_xS_)[1 + _xS_]; - if(caml_call2(cmp,caml_check_bound(a,i31)[1 + i31],_xT_) < 0) + {var _xO_=i31 + 1 | 0,_xP_=caml_check_bound(a,_xO_)[1 + _xO_]; + if(caml_call2(cmp,caml_check_bound(a,i31)[1 + i31],_xP_) < 0) x[1] = i31 + 1 | 0; var - _xU_=i31 + 2 | 0, - _xV_=caml_check_bound(a,_xU_)[1 + _xU_], - _xW_=x[1]; - if(caml_call2(cmp,caml_check_bound(a,_xW_)[1 + _xW_],_xV_) < 0) + _xQ_=i31 + 2 | 0, + _xR_=caml_check_bound(a,_xQ_)[1 + _xQ_], + _xS_=x[1]; + if(caml_call2(cmp,caml_check_bound(a,_xS_)[1 + _xS_],_xR_) < 0) x[1] = i31 + 2 | 0; return x[1]} if((i31 + 1 | 0) < l) - {var _xX_=i31 + 1 | 0,_xY_=caml_check_bound(a,_xX_)[1 + _xX_]; - if(! (0 <= caml_call2(cmp,caml_check_bound(a,i31)[1 + i31],_xY_))) + {var _xT_=i31 + 1 | 0,_xU_=caml_check_bound(a,_xT_)[1 + _xT_]; + if(! (0 <= caml_call2(cmp,caml_check_bound(a,i31)[1 + i31],_xU_))) return i31 + 1 | 0} if(i31 < l)return i31; throw [0,Bottom,i]} @@ -9373,15 +11931,15 @@ for(;;) {var j=maxson(l,i$0); if(0 < caml_call2(cmp,caml_check_bound(a,j)[1 + j],e)) - {var _xR_=caml_check_bound(a,j)[1 + j]; - caml_check_bound(a,i$0)[1 + i$0] = _xR_; + {var _xN_=caml_check_bound(a,j)[1 + j]; + caml_check_bound(a,i$0)[1 + i$0] = _xN_; var i$0=j; continue} caml_check_bound(a,i$0)[1 + i$0] = e; return 0}} function trickle(l,i,e) {try - {var _xQ_=trickledown(l,i,e);return _xQ_} + {var _xM_=trickledown(l,i,e);return _xM_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Bottom) @@ -9390,34 +11948,34 @@ function bubbledown(l,i) {var i$0=i; for(;;) - {var i$1=maxson(l,i$0),_xP_=caml_check_bound(a,i$1)[1 + i$1]; - caml_check_bound(a,i$0)[1 + i$0] = _xP_; + {var i$1=maxson(l,i$0),_xL_=caml_check_bound(a,i$1)[1 + i$1]; + caml_check_bound(a,i$0)[1 + i$0] = _xL_; var i$0=i$1; continue}} function bubble(l,i) {try - {var _xO_=bubbledown(l,i);return _xO_} + {var _xK_=bubbledown(l,i);return _xK_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Bottom){var i$0=exn[2];return i$0} throw exn}} - var l=a.length - 1,_xG_=((l + 1 | 0) / 3 | 0) - 1 | 0; - if(! (_xG_ < 0)) - {var i$2=_xG_; + var l=a.length - 1,_xC_=((l + 1 | 0) / 3 | 0) - 1 | 0; + if(! (_xC_ < 0)) + {var i$2=_xC_; for(;;) {trickle(l,i$2,caml_check_bound(a,i$2)[1 + i$2]); - var _xN_=i$2 - 1 | 0; - if(0 !== i$2){var i$2=_xN_;continue} + var _xJ_=i$2 - 1 | 0; + if(0 !== i$2){var i$2=_xJ_;continue} break}} - var _xH_=l - 1 | 0; - if(! (_xH_ < 2)) - {var i$0=_xH_; + var _xD_=l - 1 | 0; + if(! (_xD_ < 2)) + {var i$0=_xD_; a: for(;;) {var e$0=caml_check_bound(a,i$0)[1 + i$0], - _xL_=caml_check_bound(a,0)[1]; - caml_check_bound(a,i$0)[1 + i$0] = _xL_; + _xH_=caml_check_bound(a,0)[1]; + caml_check_bound(a,i$0)[1 + i$0] = _xH_; var i$1=bubble(i$0,0),i=i$1; for(;;) {var father=(i - 1 | 0) / 3 | 0; @@ -9426,23 +11984,23 @@ (0 <= caml_call2(cmp,caml_check_bound(a,father)[1 + father],e$0)) caml_check_bound(a,i)[1 + i] = e$0; else - {var _xF_=caml_check_bound(a,father)[1 + father]; - caml_check_bound(a,i)[1 + i] = _xF_; + {var _xB_=caml_check_bound(a,father)[1 + father]; + caml_check_bound(a,i)[1 + i] = _xB_; if(0 < father){var i=father;continue} caml_check_bound(a,0)[1] = e$0} - var _xM_=i$0 - 1 | 0; - if(2 !== i$0){var i$0=_xM_;continue a} + var _xI_=i$0 - 1 | 0; + if(2 !== i$0){var i$0=_xI_;continue a} break} break}} - var _xI_=1 < l?1:0; - if(_xI_) - {var e=caml_check_bound(a,1)[2],_xJ_=caml_check_bound(a,0)[1]; - caml_check_bound(a,1)[2] = _xJ_; + var _xE_=1 < l?1:0; + if(_xE_) + {var e=caml_check_bound(a,1)[2],_xF_=caml_check_bound(a,0)[1]; + caml_check_bound(a,1)[2] = _xF_; caml_check_bound(a,0)[1] = e; - var _xK_=0} + var _xG_=0} else - var _xK_=_xI_; - return _xK_} + var _xG_=_xE_; + return _xG_} function fast_sort$0(cmp,a) {function merge(src1ofs,src1len,src2,src2ofs,src2len,dst,dstofs) {var @@ -9480,30 +12038,30 @@ continue} return blit$1(src2,i2,dst,d + 1 | 0,src2r - i2 | 0)}} function isortto(srcofs,dst,dstofs,len) - {var _xx_=len - 1 | 0,_xw_=0; - if(! (_xx_ < 0)) - {var i=_xw_; + {var _xt_=len - 1 | 0,_xs_=0; + if(! (_xt_ < 0)) + {var i=_xs_; a: for(;;) {var - _xy_=srcofs + i | 0, - e=caml_check_bound(a,_xy_)[1 + _xy_], + _xu_=srcofs + i | 0, + e=caml_check_bound(a,_xu_)[1 + _xu_], j=[0,(dstofs + i | 0) - 1 | 0]; for(;;) {if(dstofs <= j[1]) - {var _xz_=j[1]; - if(0 < caml_call2(cmp,caml_check_bound(dst,_xz_)[1 + _xz_],e)) + {var _xv_=j[1]; + if(0 < caml_call2(cmp,caml_check_bound(dst,_xv_)[1 + _xv_],e)) {var - _xA_=j[1], - _xB_=caml_check_bound(dst,_xA_)[1 + _xA_], - _xC_=j[1] + 1 | 0; - caml_check_bound(dst,_xC_)[1 + _xC_] = _xB_; + _xw_=j[1], + _xx_=caml_check_bound(dst,_xw_)[1 + _xw_], + _xy_=j[1] + 1 | 0; + caml_check_bound(dst,_xy_)[1 + _xy_] = _xx_; j[1] += -1; continue}} - var _xD_=j[1] + 1 | 0; - caml_check_bound(dst,_xD_)[1 + _xD_] = e; - var _xE_=i + 1 | 0; - if(_xx_ !== i){var i=_xE_;continue a} + var _xz_=j[1] + 1 | 0; + caml_check_bound(dst,_xz_)[1 + _xz_] = e; + var _xA_=i + 1 | 0; + if(_xt_ !== i){var i=_xA_;continue a} break} break}} return 0} @@ -9525,21 +12083,21 @@ function to_seq$4(a) {function aux(i,param) {if(i < a.length - 1) - {var x=a[1 + i],_xu_=i + 1 | 0; - return [0,x,function(_xv_){return aux(_xu_,_xv_)}]} + {var x=a[1 + i],_xq_=i + 1 | 0; + return [0,x,function(_xr_){return aux(_xq_,_xr_)}]} return 0} - var _xs_=0; - return function(_xt_){return aux(_xs_,_xt_)}} + var _xo_=0; + return function(_xp_){return aux(_xo_,_xp_)}} function to_seqi$1(a) {function aux(i,param) {if(i < a.length - 1) - {var x=a[1 + i],_xq_=i + 1 | 0; - return [0,[0,i,x],function(_xr_){return aux(_xq_,_xr_)}]} + {var x=a[1 + i],_xm_=i + 1 | 0; + return [0,[0,i,x],function(_xn_){return aux(_xm_,_xn_)}]} return 0} - var _xo_=0; - return function(_xp_){return aux(_xo_,_xp_)}} + var _xk_=0; + return function(_xl_){return aux(_xk_,_xl_)}} function of_seq$2(i$2) - {var _xn_=0,l=fold_left(function(acc,x){return [0,x,acc]},_xn_,i$2); + {var _xj_=0,l=fold_left(function(acc,x){return [0,x,acc]},_xj_,i$2); if(l) {var tl=l[2], @@ -9599,93 +12157,98 @@ function is_nan(x){return x != x?1:0} var pi=3.14159265358979312; function is_integer(x) - {var _xm_=x == runtime.caml_trunc_float(x)?1:0; - return _xm_?is_finite(x):_xm_} + {var _xi_=x == runtime.caml_trunc_float(x)?1:0; + return _xi_?is_finite(x):_xi_} function succ$0(x){return caml_nextafter_float(x,infinity)} function pred$0(x){return caml_nextafter_float(x,neg_infinity)} function equal$7(x,y){return 0 === caml_float_compare(x,y)?1:0} function min$1(x,y) {if(! (x < y)) - {var switch$0=caml_signbit_float(y)?1:caml_signbit_float(x)?0:1; + {var switch$0=0; + if(caml_signbit_float(y) || ! caml_signbit_float(x))switch$0 = 1; if(switch$0)return x != x?x:y} return y != y?y:x} function max$1(x,y) {if(! (x < y)) - {var switch$0=caml_signbit_float(y)?1:caml_signbit_float(x)?0:1; + {var switch$0=0; + if(caml_signbit_float(y) || ! caml_signbit_float(x))switch$0 = 1; if(switch$0)return y != y?y:x} return x != x?x:y} function min_max(x,y) - {if(x == x) - if(y == y) - {if(! (x < y)) - {var switch$0=caml_signbit_float(y)?1:caml_signbit_float(x)?0:1; - if(switch$0)return [0,y,x]} - return [0,x,y]} + {if(x == x && y == y) + {if(! (x < y)) + {var switch$0=0; + if(caml_signbit_float(y) || ! caml_signbit_float(x))switch$0 = 1; + if(switch$0)return [0,y,x]} + return [0,x,y]} return [0,nan,nan]} function min_num(x,y) {if(! (x < y)) - {var switch$0=caml_signbit_float(y)?1:caml_signbit_float(x)?0:1; + {var switch$0=0; + if(caml_signbit_float(y) || ! caml_signbit_float(x))switch$0 = 1; if(switch$0)return y != y?x:y} return x != x?y:x} function max_num(x,y) {if(! (x < y)) - {var switch$0=caml_signbit_float(y)?1:caml_signbit_float(x)?0:1; + {var switch$0=0; + if(caml_signbit_float(y) || ! caml_signbit_float(x))switch$0 = 1; if(switch$0)return x != x?y:x} return y != y?x:y} function min_max_num(x,y) {if(x != x)return [0,y,y]; if(y != y)return [0,x,x]; if(! (x < y)) - {var switch$0=caml_signbit_float(y)?1:caml_signbit_float(x)?0:1; + {var switch$0=0; + if(caml_signbit_float(y) || ! caml_signbit_float(x))switch$0 = 1; if(switch$0)return [0,y,x]} return [0,x,y]} function hash$0(x){return caml_hash(10,100,0,x)} function unsafe_fill(a,ofs,len,v) - {var _xk_=(ofs + len | 0) - 1 | 0; - if(! (_xk_ < ofs)) + {var _xg_=(ofs + len | 0) - 1 | 0; + if(! (_xg_ < ofs)) {var i=ofs; for(;;) {a[1 + i] = v; - var _xl_=i + 1 | 0; - if(_xk_ !== i){var i=_xl_;continue} + var _xh_=i + 1 | 0; + if(_xg_ !== i){var i=_xh_;continue} break}} return 0} function unsafe_blit(src,sofs,dst,dofs,len) - {var _xi_=len - 1 | 0,_xh_=0; - if(! (_xi_ < 0)) - {var i=_xh_; + {var _xe_=len - 1 | 0,_xd_=0; + if(! (_xe_ < 0)) + {var i=_xd_; for(;;) {dst[1 + (dofs + i | 0)] = src[1 + (sofs + i | 0)]; - var _xj_=i + 1 | 0; - if(_xi_ !== i){var i=_xj_;continue} + var _xf_=i + 1 | 0; + if(_xe_ !== i){var i=_xf_;continue} break}} return 0} function check(a,ofs,len,msg) - {var _xd_=ofs < 0?1:0; - if(_xd_) - var _xe_=_xd_; + {var _w$_=ofs < 0?1:0; + if(_w$_) + var _xa_=_w$_; else - {var _xf_=len < 0?1:0; - if(_xf_) - var _xe_=_xf_; + {var _xb_=len < 0?1:0; + if(_xb_) + var _xa_=_xb_; else var - _xg_=(ofs + len | 0) < 0?1:0, - _xe_=_xg_ || (a.length - 1 < (ofs + len | 0)?1:0)} - return _xe_?invalid_arg(msg):_xe_} + _xc_=(ofs + len | 0) < 0?1:0, + _xa_=_xc_ || (a.length - 1 < (ofs + len | 0)?1:0)} + return _xa_?invalid_arg(msg):_xa_} function make$1(n,v) {var result=caml_floatarray_create(n); unsafe_fill(result,0,n,v); return result} function init$3(l,f) {if(0 <= l) - {var res=caml_floatarray_create(l),_xb_=l - 1 | 0,_xa_=0; - if(! (_xb_ < 0)) - {var i=_xa_; + {var res=caml_floatarray_create(l),_w9_=l - 1 | 0,_w8_=0; + if(! (_w9_ < 0)) + {var i=_w8_; for(;;) {res[1 + i] = caml_call1(f,i); - var _xc_=i + 1 | 0; - if(_xb_ !== i){var i=_xc_;continue} + var _w__=i + 1 | 0; + if(_w9_ !== i){var i=_w__;continue} break}} return res} return invalid_arg(cst_Float_Array_init)} @@ -9734,7 +12297,7 @@ check(dst,dofs,len,cst_Float_array_blit$0); return unsafe_blit(src,sofs,dst,dofs,len)} function to_list$2(a) - {return init(a.length - 1,function(_w$_){return a[1 + _w$_]})} + {return init(a.length - 1,function(_w7_){return a[1 + _w7_]})} function of_list$0(l) {var result=caml_floatarray_create(length(l)),i=0,l$0=l; for(;;) @@ -9745,90 +12308,87 @@ continue} return result}} function iter$6(f,a) - {var _w9_=a.length - 1 - 1 | 0,_w8_=0; - if(! (_w9_ < 0)) - {var i=_w8_; + {var _w5_=a.length - 1 - 1 | 0,_w4_=0; + if(! (_w5_ < 0)) + {var i=_w4_; for(;;) {caml_call1(f,a[1 + i]); - var _w__=i + 1 | 0; - if(_w9_ !== i){var i=_w__;continue} + var _w6_=i + 1 | 0; + if(_w5_ !== i){var i=_w6_;continue} break}} return 0} function iter2$1(f,a,b) {if(a.length - 1 !== b.length - 1) - return invalid_arg - (cst_Float_Array_iter2_arrays_must_have_the_same_length); - var _w6_=a.length - 1 - 1 | 0,_w5_=0; - if(! (_w6_ < 0)) - {var i=_w5_; + return invalid_arg(cst_Float_Array_iter2_arrays_m); + var _w2_=a.length - 1 - 1 | 0,_w1_=0; + if(! (_w2_ < 0)) + {var i=_w1_; for(;;) {caml_call2(f,a[1 + i],b[1 + i]); - var _w7_=i + 1 | 0; - if(_w6_ !== i){var i=_w7_;continue} + var _w3_=i + 1 | 0; + if(_w2_ !== i){var i=_w3_;continue} break}} return 0} function map$6(f,a) - {var l=a.length - 1,r=caml_floatarray_create(l),_w3_=l - 1 | 0,_w2_=0; - if(! (_w3_ < 0)) - {var i=_w2_; + {var l=a.length - 1,r=caml_floatarray_create(l),_wZ_=l - 1 | 0,_wY_=0; + if(! (_wZ_ < 0)) + {var i=_wY_; for(;;) {r[1 + i] = caml_call1(f,a[1 + i]); - var _w4_=i + 1 | 0; - if(_w3_ !== i){var i=_w4_;continue} + var _w0_=i + 1 | 0; + if(_wZ_ !== i){var i=_w0_;continue} break}} return r} function map2$1(f,a,b) {var la=a.length - 1,lb=b.length - 1; - if(la !== lb) - return invalid_arg - (cst_Float_Array_map2_arrays_must_have_the_same_length); - var r=caml_floatarray_create(la),_w0_=la - 1 | 0,_wZ_=0; - if(! (_w0_ < 0)) - {var i=_wZ_; + if(la !== lb)return invalid_arg(cst_Float_Array_map2_arrays_mu); + var r=caml_floatarray_create(la),_wW_=la - 1 | 0,_wV_=0; + if(! (_wW_ < 0)) + {var i=_wV_; for(;;) {r[1 + i] = caml_call2(f,a[1 + i],b[1 + i]); - var _w1_=i + 1 | 0; - if(_w0_ !== i){var i=_w1_;continue} + var _wX_=i + 1 | 0; + if(_wW_ !== i){var i=_wX_;continue} break}} return r} function iteri$3(f,a) - {var _wX_=a.length - 1 - 1 | 0,_wW_=0; - if(! (_wX_ < 0)) - {var i=_wW_; + {var _wT_=a.length - 1 - 1 | 0,_wS_=0; + if(! (_wT_ < 0)) + {var i=_wS_; for(;;) {caml_call2(f,i,a[1 + i]); - var _wY_=i + 1 | 0; - if(_wX_ !== i){var i=_wY_;continue} + var _wU_=i + 1 | 0; + if(_wT_ !== i){var i=_wU_;continue} break}} return 0} function mapi$3(f,a) - {var l=a.length - 1,r=caml_floatarray_create(l),_wU_=l - 1 | 0,_wT_=0; - if(! (_wU_ < 0)) - {var i=_wT_; + {var l=a.length - 1,r=caml_floatarray_create(l),_wQ_=l - 1 | 0,_wP_=0; + if(! (_wQ_ < 0)) + {var i=_wP_; for(;;) {r[1 + i] = caml_call2(f,i,a[1 + i]); - var _wV_=i + 1 | 0; - if(_wU_ !== i){var i=_wV_;continue} + var _wR_=i + 1 | 0; + if(_wQ_ !== i){var i=_wR_;continue} break}} return r} function fold_left$2(f,x,a) - {var r=[0,x],_wR_=a.length - 1 - 1 | 0,_wQ_=0; - if(! (_wR_ < 0)) - {var i=_wQ_; + {var r=[0,x],_wN_=a.length - 1 - 1 | 0,_wM_=0; + if(! (_wN_ < 0)) + {var i=_wM_; for(;;) {r[1] = caml_call2(f,r[1],a[1 + i]); - var _wS_=i + 1 | 0; - if(_wR_ !== i){var i=_wS_;continue} + var _wO_=i + 1 | 0; + if(_wN_ !== i){var i=_wO_;continue} break}} return r[1]} function fold_right$1(f,a,x) - {var r=[0,x],_wO_=a.length - 1 - 1 | 0; - if(! (_wO_ < 0)) - {var i=_wO_; + {var r=[0,x],_wK_=a.length - 1 - 1 | 0; + if(! (_wK_ < 0)) + {var i=_wK_; for(;;) {r[1] = caml_call2(f,a[1 + i],r[1]); - var _wP_=i - 1 | 0; - if(0 !== i){var i=_wP_;continue} + var _wL_=i - 1 | 0; + if(0 !== i){var i=_wL_;continue} break}} return r[1]} function exists$1(p,a) @@ -9876,14 +12436,16 @@ 0) x[1] = i31 + 2 | 0; return x[1]} - if((i31 + 1 | 0) < l) - if - (! - (0 - <= - caml_call2 - (cmp,caml_array_get(a,i31),caml_array_get(a,i31 + 1 | 0)))) - return i31 + 1 | 0; + if + ((i31 + 1 | 0) + < + l + && + ! + (0 + <= + caml_call2(cmp,caml_array_get(a,i31),caml_array_get(a,i31 + 1 | 0)))) + return i31 + 1 | 0; if(i31 < l)return i31; throw [0,Bottom$0,i]} function trickledown(l,i,e) @@ -9895,7 +12457,7 @@ return caml_array_set(a,i$0,e)}} function trickle(l,i,e) {try - {var _wN_=trickledown(l,i,e);return _wN_} + {var _wJ_=trickledown(l,i,e);return _wJ_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Bottom$0) @@ -9910,22 +12472,22 @@ continue}} function bubble(l,i) {try - {var _wM_=bubbledown(l,i);return _wM_} + {var _wI_=bubbledown(l,i);return _wI_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Bottom$0){var i$0=exn[2];return i$0} throw exn}} - var l=a.length - 1,_wG_=((l + 1 | 0) / 3 | 0) - 1 | 0; - if(! (_wG_ < 0)) - {var i$2=_wG_; + var l=a.length - 1,_wC_=((l + 1 | 0) / 3 | 0) - 1 | 0; + if(! (_wC_ < 0)) + {var i$2=_wC_; for(;;) {trickle(l,i$2,caml_array_get(a,i$2)); - var _wL_=i$2 - 1 | 0; - if(0 !== i$2){var i$2=_wL_;continue} + var _wH_=i$2 - 1 | 0; + if(0 !== i$2){var i$2=_wH_;continue} break}} - var _wH_=l - 1 | 0; - if(! (_wH_ < 2)) - {var i$0=_wH_; + var _wD_=l - 1 | 0; + if(! (_wD_ < 2)) + {var i$0=_wD_; a: for(;;) {var e$0=caml_array_get(a,i$0); @@ -9940,18 +12502,18 @@ {caml_array_set(a,i,caml_array_get(a,father)); if(0 < father){var i=father;continue} caml_array_set(a,0,e$0)} - var _wK_=i$0 - 1 | 0; - if(2 !== i$0){var i$0=_wK_;continue a} + var _wG_=i$0 - 1 | 0; + if(2 !== i$0){var i$0=_wG_;continue a} break} break}} - var _wI_=1 < l?1:0; - if(_wI_) + var _wE_=1 < l?1:0; + if(_wE_) {var e=caml_array_get(a,1); caml_array_set(a,1,caml_array_get(a,0)); - var _wJ_=caml_array_set(a,0,e)} + var _wF_=caml_array_set(a,0,e)} else - var _wJ_=_wI_; - return _wJ_} + var _wF_=_wE_; + return _wF_} function stable_sort(cmp,a) {function merge(src1ofs,src1len,src2,src2ofs,src2len,dst,dstofs) {var @@ -9989,23 +12551,29 @@ continue} return blit$2(src2,i2,dst,d + 1 | 0,src2r - i2 | 0)}} function isortto(srcofs,dst,dstofs,len) - {var _wE_=len - 1 | 0,_wD_=0; - if(! (_wE_ < 0)) - {var i=_wD_; + {var _wA_=len - 1 | 0,_wz_=0; + if(! (_wA_ < 0)) + {var i=_wz_; a: for(;;) {var e=caml_array_get(a,srcofs + i | 0), j=[0,(dstofs + i | 0) - 1 | 0]; for(;;) - {if(dstofs <= j[1]) - if(0 < caml_call2(cmp,caml_array_get(dst,j[1]),e)) - {caml_array_set(dst,j[1] + 1 | 0,caml_array_get(dst,j[1])); - j[1] += -1; - continue} + {if + (dstofs + <= + j[1] + && + 0 + < + caml_call2(cmp,caml_array_get(dst,j[1]),e)) + {caml_array_set(dst,j[1] + 1 | 0,caml_array_get(dst,j[1])); + j[1] += -1; + continue} caml_array_set(dst,j[1] + 1 | 0,e); - var _wF_=i + 1 | 0; - if(_wE_ !== i){var i=_wF_;continue a} + var _wB_=i + 1 | 0; + if(_wA_ !== i){var i=_wB_;continue a} break} break}} return 0} @@ -10024,23 +12592,23 @@ function to_seq$5(a) {function aux(i,param) {if(i < a.length - 1) - {var x=a[1 + i],_wB_=i + 1 | 0; - return [0,x,function(_wC_){return aux(_wB_,_wC_)}]} + {var x=a[1 + i],_wx_=i + 1 | 0; + return [0,x,function(_wy_){return aux(_wx_,_wy_)}]} return 0} - var _wz_=0; - return function(_wA_){return aux(_wz_,_wA_)}} + var _wv_=0; + return function(_ww_){return aux(_wv_,_ww_)}} function to_seqi$2(a) {function aux(i,param) {if(i < a.length - 1) - {var x=a[1 + i],_wx_=i + 1 | 0; - return [0,[0,i,x],function(_wy_){return aux(_wx_,_wy_)}]} + {var x=a[1 + i],_wt_=i + 1 | 0; + return [0,[0,i,x],function(_wu_){return aux(_wt_,_wu_)}]} return 0} - var _wv_=0; - return function(_ww_){return aux(_wv_,_ww_)}} + var _wr_=0; + return function(_ws_){return aux(_wr_,_ws_)}} function of_seq$3(i$2) {var - _wu_=0, - param$0=fold_left(function(acc,x){return [0,x,acc]},_wu_,i$2), + _wq_=0, + param$0=fold_left(function(acc,x){return [0,x,acc]},_wq_,i$2), len=length(param$0), a=caml_floatarray_create(len), i$1=len - 1 | 0, @@ -10056,23 +12624,23 @@ function map_to_array(f,a) {var l=a.length - 1; if(0 === l)return [0]; - var r=caml_make_vect(l,caml_call1(f,a[1])),_ws_=l - 1 | 0,_wr_=1; - if(! (_ws_ < 1)) - {var i=_wr_; + var r=caml_make_vect(l,caml_call1(f,a[1])),_wo_=l - 1 | 0,_wn_=1; + if(! (_wo_ < 1)) + {var i=_wn_; for(;;) {r[1 + i] = caml_call1(f,a[1 + i]); - var _wt_=i + 1 | 0; - if(_ws_ !== i){var i=_wt_;continue} + var _wp_=i + 1 | 0; + if(_wo_ !== i){var i=_wp_;continue} break}} return r} function map_from_array(f,a) - {var l=a.length - 1,r=caml_floatarray_create(l),_wp_=l - 1 | 0,_wo_=0; - if(! (_wp_ < 0)) - {var i=_wo_; + {var l=a.length - 1,r=caml_floatarray_create(l),_wl_=l - 1 | 0,_wk_=0; + if(! (_wl_ < 0)) + {var i=_wk_; for(;;) {r[1 + i] = caml_call1(f,a[1 + i]); - var _wq_=i + 1 | 0; - if(_wp_ !== i){var i=_wq_;continue} + var _wm_=i + 1 | 0; + if(_wl_ !== i){var i=_wm_;continue} break}} return r} var @@ -10081,7 +12649,7 @@ _y_=caml_array_get, _z_= [0, - function(_wn_){return _wn_.length - 1}, + function(_wj_){return _wj_.length - 1}, _y_, _x_, make$1, @@ -10148,7 +12716,7 @@ min_max_num, hash$0, [0, - function(_wm_){return _wm_.length - 1}, + function(_wi_){return _wi_.length - 1}, _C_, _B_, make$1, @@ -10188,9 +12756,9 @@ function abs$0(x){return 0 <= x?x:- x | 0} var max_int$0=2147483647,min_int$0=-2147483648; function lognot(x){return x ^ -1} - function equal$8(_wl_,_wk_){return _wl_ === _wk_?1:0} + function equal$8(_wh_,_wg_){return _wh_ === _wg_?1:0} var compare$7=caml_int_compare; - function to_string$3(x){return caml_new_string("" + x)} + function to_string$3(x){return caml_string_of_jsbytes("" + x)} var Stdlib_int= [0, @@ -10212,17 +12780,22 @@ var min_int$1=-2147483648,max_int$1=2147483647; function lognot$0(n){return n ^ -1} function unsigned_to_int(n) - {if(! (0 < caml_int_compare(0,n))) - if(! (0 < caml_int_compare(n,2147483647)))return [0,n]; + {if + (! + (0 < caml_int_compare(0,n)) + && + ! + (0 < caml_int_compare(n,2147483647))) + return [0,n]; return 0} function to_string$4(n){return caml_format_int(cst_d,n)} function of_string_opt$0(s) {try - {var _wi_=[0,caml_int_of_string(s)];return _wi_} - catch(_wj_) - {_wj_ = caml_wrap_exception(_wj_); - if(_wj_[1] === Failure)return 0; - throw _wj_}} + {var _we_=[0,caml_int_of_string(s)];return _we_} + catch(_wf_) + {_wf_ = caml_wrap_exception(_wf_); + if(_wf_[1] === Failure)return 0; + throw _wf_}} var compare$8=caml_int_compare; function equal$9(x,y){return 0 === caml_int_compare(x,y)?1:0} function unsigned_compare(n,m) @@ -10260,19 +12833,23 @@ function lognot$1(n){return runtime.caml_int64_xor(n,_G_)} var max_int$3=caml_int64_of_int32(2147483647); function unsigned_to_int$0(n) - {if(! (0 < caml_int64_compare(zero$2,n))) - if(! (0 < caml_int64_compare(n,max_int$3))) - return [0,runtime.caml_int64_to_int32(n)]; + {if + (! + (0 < caml_int64_compare(zero$2,n)) + && + ! + (0 < caml_int64_compare(n,max_int$3))) + return [0,runtime.caml_int64_to_int32(n)]; return 0} function to_string$5(n){return caml_int64_format(cst_d$0,n)} function of_string_opt$1(s) {try - {var _wg_=[0,caml_int64_of_string(s)];return _wg_} - catch(_wh_) - {_wh_ = caml_wrap_exception(_wh_); - if(_wh_[1] === Failure)return 0; - throw _wh_}} - var compare$9=caml_int64_compare; + {var _wc_=[0,caml_int64_of_string(s)];return _wc_} + catch(_wd_) + {_wd_ = caml_wrap_exception(_wd_); + if(_wd_[1] === Failure)return 0; + throw _wd_}} + function compare$9(x,y){return caml_int64_compare(x,y)} function equal$10(x,y){return 0 === caml_int64_compare(x,y)?1:0} function unsigned_compare$0(n,m) {return caml_int64_compare @@ -10318,17 +12895,22 @@ var min_int$3=-2147483648,max_int$4=2147483647; function lognot$2(n){return n ^ -1} function unsigned_to_int$1(n) - {if(! (0 < caml_int_compare(0,n))) - if(! (0 < caml_int_compare(n,2147483647)))return [0,n]; + {if + (! + (0 < caml_int_compare(0,n)) + && + ! + (0 < caml_int_compare(n,2147483647))) + return [0,n]; return 0} function to_string$6(n){return caml_format_int(cst_d$1,n)} function of_string_opt$2(s) {try - {var _we_=[0,caml_int_of_string(s)];return _we_} - catch(_wf_) - {_wf_ = caml_wrap_exception(_wf_); - if(_wf_[1] === Failure)return 0; - throw _wf_}} + {var _wa_=[0,caml_int_of_string(s)];return _wa_} + catch(_wb_) + {_wb_ = caml_wrap_exception(_wb_); + if(_wb_[1] === Failure)return 0; + throw _wb_}} var compare$10=caml_int_compare; function equal$11(x,y){return 0 === caml_int_compare(x,y)?1:0} function unsigned_compare$1(n,m) @@ -10364,38 +12946,38 @@ function engine(tbl,state,buf) {var result=runtime.caml_lex_engine(tbl,state,buf), - _wb_=0 <= result?1:0, - _wc_=_wb_?buf[12] !== dummy_pos?1:0:_wb_; - if(_wc_) + _v9_=0 <= result?1:0, + _v__=_v9_?buf[12] !== dummy_pos?1:0:_v9_; + if(_v__) {buf[11] = buf[12]; - var _wd_=buf[12]; - buf[12] = [0,_wd_[1],_wd_[2],_wd_[3],buf[4] + buf[6] | 0]} + var _v$_=buf[12]; + buf[12] = [0,_v$_[1],_v$_[2],_v$_[3],buf[4] + buf[6] | 0]} return result} function new_engine(tbl,state,buf) {var result=runtime.caml_new_lex_engine(tbl,state,buf), - _v__=0 <= result?1:0, - _v$_=_v__?buf[12] !== dummy_pos?1:0:_v__; - if(_v$_) + _v6_=0 <= result?1:0, + _v7_=_v6_?buf[12] !== dummy_pos?1:0:_v6_; + if(_v7_) {buf[11] = buf[12]; - var _wa_=buf[12]; - buf[12] = [0,_wa_[1],_wa_[2],_wa_[3],buf[4] + buf[6] | 0]} + var _v8_=buf[12]; + buf[12] = [0,_v8_[1],_v8_[2],_v8_[3],buf[4] + buf[6] | 0]} return result} function from_function(opt,f) {if(opt)var sth=opt[1],with_positions=sth;else var with_positions=1; var - _vW_=with_positions?zero_pos:dummy_pos, - _vX_=with_positions?zero_pos:dummy_pos, + _vS_=with_positions?zero_pos:dummy_pos, + _vT_=with_positions?zero_pos:dummy_pos, aux_buffer=caml_create_bytes(512), - _vY_=[0], + _vU_=[0], + _vV_=0, + _vW_=0, + _vX_=0, + _vY_=0, _vZ_=0, _v0_=0, _v1_=0, - _v2_=0, - _v3_=0, - _v4_=0, - _v5_=0, - _v6_=caml_create_bytes(1024); + _v2_=caml_create_bytes(1024); return [0, function(lexbuf) {var @@ -10415,7 +12997,7 @@ min (2 * caml_ml_bytes_length(lexbuf[2]) | 0,max_string_length); if(newlen < ((lexbuf[3] - lexbuf[5] | 0) + n | 0)) - failwith(cst_Lexing_lex_refill_cannot_grow_buffer); + failwith(cst_Lexing_lex_refill_cannot_g); var newbuf=caml_create_bytes(newlen); blit(lexbuf[2],lexbuf[5],newbuf,0,lexbuf[3] - lexbuf[5] | 0); lexbuf[2] = newbuf} @@ -10425,59 +13007,59 @@ lexbuf[5] = 0; lexbuf[7] = lexbuf[7] - s | 0; lexbuf[3] = lexbuf[3] - s | 0; - var t=lexbuf[10],_v8_=t.length - 1 - 1 | 0,_v7_=0; - if(! (_v8_ < 0)) - {var i=_v7_; + var t=lexbuf[10],_v4_=t.length - 1 - 1 | 0,_v3_=0; + if(! (_v4_ < 0)) + {var i=_v3_; for(;;) {var v=caml_check_bound(t,i)[1 + i]; if(0 <= v)caml_check_bound(t,i)[1 + i] = v - s | 0; - var _v9_=i + 1 | 0; - if(_v8_ !== i){var i=_v9_;continue} + var _v5_=i + 1 | 0; + if(_v4_ !== i){var i=_v5_;continue} break}}} blit(aux_buffer,0,lexbuf[2],lexbuf[3],n); lexbuf[3] = lexbuf[3] + n | 0; return 0}, - _v6_, - _v5_, - _v4_, - _v3_, _v2_, _v1_, _v0_, _vZ_, _vY_, _vX_, - _vW_]} + _vW_, + _vV_, + _vU_, + _vT_, + _vS_]} function from_channel(with_positions,ic) {return from_function (with_positions,function(buf,n){return input(ic,buf,0,n)})} function from_string$0(opt,s) {if(opt)var sth=opt[1],with_positions=sth;else var with_positions=1; var - _vL_=with_positions?zero_pos:dummy_pos, - _vM_=with_positions?zero_pos:dummy_pos, - _vN_=[0], - _vO_=1, + _vH_=with_positions?zero_pos:dummy_pos, + _vI_=with_positions?zero_pos:dummy_pos, + _vJ_=[0], + _vK_=1, + _vL_=0, + _vM_=0, + _vN_=0, + _vO_=0, _vP_=0, - _vQ_=0, - _vR_=0, - _vS_=0, - _vT_=0, - _vU_=caml_ml_string_length(s), - _vV_=of_string(s); + _vQ_=caml_ml_string_length(s), + _vR_=of_string(s); return [0, function(lexbuf){lexbuf[9] = 1;return 0}, - _vV_, - _vU_, - _vT_, - _vS_, _vR_, _vQ_, _vP_, _vO_, _vN_, _vM_, - _vL_]} + _vL_, + _vK_, + _vJ_, + _vI_, + _vH_]} function with_positions(lexbuf){return lexbuf[12] !== dummy_pos?1:0} function lexeme(lexbuf) {var len=lexbuf[6] - lexbuf[5] | 0; @@ -10499,9 +13081,9 @@ function new_line(lexbuf) {var lcp=lexbuf[12], - _vJ_=lcp !== dummy_pos?1:0, - _vK_=_vJ_?(lexbuf[12] = [0,lcp[1],lcp[2] + 1 | 0,lcp[4],lcp[4]],0):_vJ_; - return _vK_} + _vF_=lcp !== dummy_pos?1:0, + _vG_=_vF_?(lexbuf[12] = [0,lcp[1],lcp[2] + 1 | 0,lcp[4],lcp[4]],0):_vF_; + return _vG_} function flush_input(lb) {lb[6] = 0; lb[4] = 0; @@ -10604,16 +13186,16 @@ case 4: try {var - _vD_=env[13], - _vE_= - caml_call1(caml_check_bound(tables[1],_vD_)[1 + _vD_],env), - _vF_=4, - cmd$0=_vF_, - arg$1=_vE_} - catch(_vI_) - {_vI_ = caml_wrap_exception(_vI_); - if(_vI_ !== Parse_error)throw _vI_; - var cmd$0=5,arg$1=0,_vG_=_vI_} + _vz_=env[13], + _vA_= + caml_call1(caml_check_bound(tables[1],_vz_)[1 + _vz_],env), + _vB_=4, + cmd$0=_vB_, + arg$1=_vA_} + catch(_vE_) + {_vE_ = caml_wrap_exception(_vE_); + if(_vE_ !== Parse_error)throw _vE_; + var cmd$0=5,arg$1=0,_vC_=_vE_} var cmd=cmd$0,arg=arg$1; continue; default: @@ -10633,36 +13215,36 @@ = function(tok) {if(is_block(tok)) - {var _vH_=caml_obj_tag(tok); - return caml_check_bound(tables[3],_vH_)[1 + _vH_] === curr_char + {var _vD_=caml_obj_tag(tok); + return caml_check_bound(tables[3],_vD_)[1 + _vD_] === curr_char ?1 :0} return caml_check_bound(tables[2],tok)[1 + tok] === curr_char?1:0}; throw exn}} function peek_val(env,n) - {var _vC_=env[11] - n | 0;return caml_check_bound(env[2],_vC_)[1 + _vC_]} + {var _vy_=env[11] - n | 0;return caml_check_bound(env[2],_vy_)[1 + _vy_]} function symbol_start_pos(param) {var i=env[12]; for(;;) {if(0 < i) {var - _vz_=(env[11] - i | 0) + 1 | 0, - st=caml_check_bound(env[3],_vz_)[1 + _vz_], - _vA_=(env[11] - i | 0) + 1 | 0, - en=caml_check_bound(env[4],_vA_)[1 + _vA_]; + _vv_=(env[11] - i | 0) + 1 | 0, + st=caml_check_bound(env[3],_vv_)[1 + _vv_], + _vw_=(env[11] - i | 0) + 1 | 0, + en=caml_check_bound(env[4],_vw_)[1 + _vw_]; if(caml_notequal(st,en))return st; var i$0=i - 1 | 0,i=i$0; continue} - var _vB_=env[11]; - return caml_check_bound(env[4],_vB_)[1 + _vB_]}} + var _vx_=env[11]; + return caml_check_bound(env[4],_vx_)[1 + _vx_]}} function symbol_end_pos(param) - {var _vy_=env[11];return caml_check_bound(env[4],_vy_)[1 + _vy_]} + {var _vu_=env[11];return caml_check_bound(env[4],_vu_)[1 + _vu_]} function rhs_start_pos(n) - {var _vx_=env[11] - (env[12] - n | 0) | 0; - return caml_check_bound(env[3],_vx_)[1 + _vx_]} + {var _vt_=env[11] - (env[12] - n | 0) | 0; + return caml_check_bound(env[3],_vt_)[1 + _vt_]} function rhs_end_pos(n) - {var _vw_=env[11] - (env[12] - n | 0) | 0; - return caml_check_bound(env[4],_vw_)[1 + _vw_]} + {var _vs_=env[11] - (env[12] - n | 0) | 0; + return caml_check_bound(env[4],_vs_)[1 + _vs_]} function symbol_start(param){return symbol_start_pos(0)[4]} function symbol_end(param){return symbol_end_pos(0)[4]} function rhs_start(n){return rhs_start_pos(n)[4]} @@ -10683,7 +13265,7 @@ rhs_end_pos, clear_parser, Parse_error, - function(_vv_){return runtime.caml_set_parser_trace(_vv_)}, + function(_vr_){return runtime.caml_set_parser_trace(_vr_)}, YYexit, yyparse, peek_val, @@ -10698,31 +13280,31 @@ function create(l,v,r) {if(l)var h=l[4],hl=h;else var hl=0; if(r)var h$0=r[4],hr=h$0;else var hr=0; - var _vu_=hr <= hl?hl + 1 | 0:hr + 1 | 0; - return [0,l,v,r,_vu_]} + var _vq_=hr <= hl?hl + 1 | 0:hr + 1 | 0; + return [0,l,v,r,_vq_]} function bal(l,v,r) {if(l)var h=l[4],hl=h;else var hl=0; if(r)var h$0=r[4],hr=h$0;else var hr=0; if((hr + 2 | 0) < hl) {if(l) - {var lr=l[3],lv=l[2],ll=l[1],_vp_=height(lr); - if(_vp_ <= height(ll))return create(ll,lv,create(lr,v,r)); + {var lr=l[3],lv=l[2],ll=l[1],_vl_=height(lr); + if(_vl_ <= height(ll))return create(ll,lv,create(lr,v,r)); if(lr) - {var lrr=lr[3],lrv=lr[2],lrl=lr[1],_vq_=create(lrr,v,r); - return create(create(ll,lv,lrl),lrv,_vq_)} + {var lrr=lr[3],lrv=lr[2],lrl=lr[1],_vm_=create(lrr,v,r); + return create(create(ll,lv,lrl),lrv,_vm_)} return invalid_arg(cst_Set_bal)} return invalid_arg(cst_Set_bal$0)} if((hl + 2 | 0) < hr) {if(r) - {var rr=r[3],rv=r[2],rl=r[1],_vr_=height(rl); - if(_vr_ <= height(rr))return create(create(l,v,rl),rv,rr); + {var rr=r[3],rv=r[2],rl=r[1],_vn_=height(rl); + if(_vn_ <= height(rr))return create(create(l,v,rl),rv,rr); if(rl) - {var rlr=rl[3],rlv=rl[2],rll=rl[1],_vs_=create(rlr,rv,rr); - return create(create(l,v,rll),rlv,_vs_)} + {var rlr=rl[3],rlv=rl[2],rll=rl[1],_vo_=create(rlr,rv,rr); + return create(create(l,v,rll),rlv,_vo_)} return invalid_arg(cst_Set_bal$1)} return invalid_arg(cst_Set_bal$2)} - var _vt_=hr <= hl?hl + 1 | 0:hr + 1 | 0; - return [0,l,v,r,_vt_]} + var _vp_=hr <= hl?hl + 1 | 0:hr + 1 | 0; + return [0,l,v,r,_vp_]} function add(x,t) {if(t) {var r=t[3],v=t[2],l=t[1],c=caml_call2(Ord[1],x,v); @@ -10763,8 +13345,8 @@ {var param$0=param; for(;;) {if(param$0) - {var _vo_=param$0[1]; - if(_vo_){var param$0=_vo_;continue} + {var _vk_=param$0[1]; + if(_vk_){var param$0=_vk_;continue} var v=param$0[2]; return v} throw Not_found}} @@ -10772,8 +13354,8 @@ {var param$0=param; for(;;) {if(param$0) - {var _vn_=param$0[1]; - if(_vn_){var param$0=_vn_;continue} + {var _vj_=param$0[1]; + if(_vj_){var param$0=_vj_;continue} var v=param$0[2]; return [0,v]} return 0}} @@ -10781,31 +13363,31 @@ {var param$0=param; for(;;) {if(param$0) - {var _vl_=param$0[3],_vm_=param$0[2]; - if(_vl_){var param$0=_vl_;continue} - return _vm_} + {var _vh_=param$0[3],_vi_=param$0[2]; + if(_vh_){var param$0=_vh_;continue} + return _vi_} throw Not_found}} function max_elt_opt(param) {var param$0=param; for(;;) {if(param$0) - {var _vj_=param$0[3],_vk_=param$0[2]; - if(_vj_){var param$0=_vj_;continue} - return [0,_vk_]} + {var _vf_=param$0[3],_vg_=param$0[2]; + if(_vf_){var param$0=_vf_;continue} + return [0,_vg_]} return 0}} function remove_min_elt(param) {if(param) - {var _vi_=param[1]; - if(_vi_) - {var r=param[3],v=param[2];return bal(remove_min_elt(_vi_),v,r)} + {var _ve_=param[1]; + if(_ve_) + {var r=param[3],v=param[2];return bal(remove_min_elt(_ve_),v,r)} var r$0=param[3]; return r$0} return invalid_arg(cst_Set_remove_min_elt)} function concat(t,match) {if(t) {if(match) - {var _vh_=remove_min_elt(match); - return join(t,min_elt(match),_vh_)} + {var _vd_=remove_min_elt(match); + return join(t,min_elt(match),_vd_)} return t} return match} function split(x,param) @@ -10833,8 +13415,8 @@ v=param$0[2], l=param$0[1], c=caml_call2(Ord[1],x,v), - _vg_=0 === c?1:0; - if(_vg_)return _vg_; + _vc_=0 === c?1:0; + if(_vc_)return _vc_; var param$1=0 <= c?r:l,param$0=param$1; continue} return 0}} @@ -10844,7 +13426,7 @@ if(0 === c) {if(l) {if(r) - {var _vf_=remove_min_elt(r);return bal(l,min_elt(r),_vf_)} + {var _vb_=remove_min_elt(r);return bal(l,min_elt(r),_vb_)} return l} return r} if(0 <= c){var rr=remove(x,r);return r === rr?t:bal(l,v,rr)} @@ -10869,15 +13451,15 @@ match$0=split(v1,match), r2$0=match$0[3], l2$0=match$0[1], - _vd_=union(r1,r2$0); - return join(union(l1,l2$0),v1,_vd_)} + _u$_=union(r1,r2$0); + return join(union(l1,l2$0),v1,_u$_)} if(1 === h1)return add(v1,match); var match$1=split(v2,t1), r1$0=match$1[3], l1$0=match$1[1], - _ve_=union(r1$0,r2); - return join(union(l1$0,l2),v2,_ve_)} + _va_=union(r1$0,r2); + return join(union(l1$0,l2),v2,_va_)} return t1} return match} function inter(s1,match) @@ -10887,13 +13469,13 @@ r1=s1[3], v1=s1[2], l1=s1[1], - _u$_=split(v1,match), - _va_=_u$_[1]; - if(0 === _u$_[2]) - {var r2=_u$_[3],_vb_=inter(r1,r2); - return concat(inter(l1,_va_),_vb_)} - var r2$0=_u$_[3],_vc_=inter(r1,r2$0); - return join(inter(l1,_va_),v1,_vc_)} + _u7_=split(v1,match), + _u8_=_u7_[1]; + if(0 === _u7_[2]) + {var r2=_u7_[3],_u9_=inter(r1,r2); + return concat(inter(l1,_u8_),_u9_)} + var r2$0=_u7_[3],_u__=inter(r1,r2$0); + return join(inter(l1,_u8_),v1,_u__)} return 0} return 0} function split_bis(x,param) @@ -10916,17 +13498,16 @@ function disjoint(s1,s2) {var s1$0=s1,s2$0=s2; for(;;) - {if(s1$0) - if(s2$0) - {var r1=s1$0[3],v1=s1$0[2],l1=s1$0[1]; - if(s1$0 === s2$0)return 0; - var match=split_bis(v1,s2$0); - if(match) - {var r2=match[2],l2=match[1],_u__=disjoint(l1,l2); - if(_u__) - {var s2$1=caml_call1(r2,0),s1$0=r1,s2$0=s2$1;continue} - return _u__} - return 0} + {if(s1$0 && s2$0) + {var r1=s1$0[3],v1=s1$0[2],l1=s1$0[1]; + if(s1$0 === s2$0)return 0; + var match=split_bis(v1,s2$0); + if(match) + {var r2=match[2],l2=match[1],_u6_=disjoint(l1,l2); + if(_u6_) + {var s2$1=caml_call1(r2,0),s1$0=r1,s2$0=s2$1;continue} + return _u6_} + return 0} return 1}} function diff(t1,match) {if(t1) @@ -10935,13 +13516,13 @@ r1=t1[3], v1=t1[2], l1=t1[1], - _u6_=split(v1,match), - _u7_=_u6_[1]; - if(0 === _u6_[2]) - {var r2=_u6_[3],_u8_=diff(r1,r2); - return join(diff(l1,_u7_),v1,_u8_)} - var r2$0=_u6_[3],_u9_=diff(r1,r2$0); - return concat(diff(l1,_u7_),_u9_)} + _u2_=split(v1,match), + _u3_=_u2_[1]; + if(0 === _u2_[2]) + {var r2=_u2_[3],_u4_=diff(r1,r2); + return join(diff(l1,_u3_),v1,_u4_)} + var r2$0=_u2_[3],_u5_=diff(r1,r2$0); + return concat(diff(l1,_u3_),_u5_)} return t1} return 0} function cons_enum(s,e) @@ -10995,16 +13576,16 @@ l1=s1$0[1], c=caml_call2(Ord[1],v1,v2); if(0 === c) - {var _u3_=subset(l1,l2); - if(_u3_){var s1$0=r1,s2$0=r2;continue} - return _u3_} + {var _uZ_=subset(l1,l2); + if(_uZ_){var s1$0=r1,s2$0=r2;continue} + return _uZ_} if(0 <= c) - {var _u4_=subset([0,0,v1,r1,0],r2); - if(_u4_){var s1$0=l1;continue} - return _u4_} - var _u5_=subset([0,l1,v1,0,0],l2); - if(_u5_){var s1$0=r1;continue} - return _u5_} + {var _u0_=subset([0,0,v1,r1,0],r2); + if(_u0_){var s1$0=l1;continue} + return _u0_} + var _u1_=subset([0,l1,v1,0,0],l2); + if(_u1_){var s1$0=r1;continue} + return _u1_} return 0} return 1}} function iter(f,param) @@ -11038,14 +13619,14 @@ r=param$0[3], v=param$0[2], l=param$0[1], - _u0_=caml_call1(p,v); - if(_u0_) - {var _u1_=for_all(p,l); - if(_u1_){var param$0=r;continue} - var _u2_=_u1_} + _uW_=caml_call1(p,v); + if(_uW_) + {var _uX_=for_all(p,l); + if(_uX_){var param$0=r;continue} + var _uY_=_uX_} else - var _u2_=_u0_; - return _u2_} + var _uY_=_uW_; + return _uY_} return 1}} function exists(p,param) {var param$0=param; @@ -11055,14 +13636,14 @@ r=param$0[3], v=param$0[2], l=param$0[1], - _uX_=caml_call1(p,v); - if(_uX_) - var _uY_=_uX_; + _uT_=caml_call1(p,v); + if(_uT_) + var _uU_=_uT_; else - {var _uZ_=exists(p,l); - if(! _uZ_){var param$0=r;continue} - var _uY_=_uZ_} - return _uY_} + {var _uV_=exists(p,l); + if(! _uV_){var param$0=r;continue} + var _uU_=_uV_} + return _uU_} return 0}} function filter(p,t) {if(t) @@ -11073,7 +13654,7 @@ l$0=filter(p,l), pv=caml_call1(p,v), r$0=filter(p,r); - if(pv){if(l === l$0)if(r === r$0)return t;return join(l$0,v,r$0)} + if(pv){if(l === l$0 && r === r$0)return t;return join(l$0,v,r$0)} return concat(l$0,r$0)} return 0} function partition(p,param) @@ -11089,14 +13670,14 @@ match$0=partition(p,r), rf=match$0[2], rt=match$0[1]; - if(pv){var _uV_=concat(lf,rf);return [0,join(lt,v,rt),_uV_]} - var _uW_=join(lf,v,rf); - return [0,concat(lt,rt),_uW_]} + if(pv){var _uR_=concat(lf,rf);return [0,join(lt,v,rt),_uR_]} + var _uS_=join(lf,v,rf); + return [0,concat(lt,rt),_uS_]} return _I_} function cardinal(param) {if(param) - {var r=param[3],l=param[1],_uU_=cardinal(r); - return (cardinal(l) + 1 | 0) + _uU_ | 0} + {var r=param[3],l=param[1],_uQ_=cardinal(r); + return (cardinal(l) + 1 | 0) + _uQ_ | 0} return 0} function elements_aux(accu,param) {var accu$0=accu,param$0=param; @@ -11215,34 +13796,30 @@ l$0=map(f,l), v$0=caml_call1(f,v), r$0=map(f,r); - if(l === l$0)if(v === v$0)if(r === r$0)return t; - if(0 === l$0) - var switch$0=0; - else - var - _uT_=max_elt(l$0), - switch$0=0 <= caml_call2(Ord[1],_uT_,v$0)?1:0; + if(l === l$0 && v === v$0 && r === r$0)return t; + var switch$0=0; + if(0 !== l$0) + {var _uP_=max_elt(l$0); + if(0 <= caml_call2(Ord[1],_uP_,v$0))switch$0 = 1} if(! switch$0) - {if(0 === r$0) - var switch$1=0; - else - var - _uS_=min_elt(r$0), - switch$1=0 <= caml_call2(Ord[1],v$0,_uS_)?1:0; + {var switch$1=0; + if(0 !== r$0) + {var _uO_=min_elt(r$0); + if(0 <= caml_call2(Ord[1],v$0,_uO_))switch$1 = 1} if(! switch$1)return join(l$0,v$0,r$0)} return union(l$0,add(v$0,r$0))} return 0} function of_list(l) {if(l) - {var _uH_=l[2],_uI_=l[1]; - if(_uH_) - {var _uJ_=_uH_[2],_uK_=_uH_[1]; - if(_uJ_) - {var _uL_=_uJ_[2],_uM_=_uJ_[1]; - if(_uL_) - {var _uN_=_uL_[2],_uO_=_uL_[1]; - if(_uN_) - {if(_uN_[2]) + {var _uD_=l[2],_uE_=l[1]; + if(_uD_) + {var _uF_=_uD_[2],_uG_=_uD_[1]; + if(_uF_) + {var _uH_=_uF_[2],_uI_=_uF_[1]; + if(_uH_) + {var _uJ_=_uH_[2],_uK_=_uH_[1]; + if(_uJ_) + {if(_uJ_[2]) {var l$0=sort_uniq(Ord[1],l), sub= @@ -11255,18 +13832,18 @@ break; case 2: if(l) - {var _uP_=l[2]; - if(_uP_) - {var l$4=_uP_[2],x1=_uP_[1],x0$0=l[1]; + {var _uL_=l[2]; + if(_uL_) + {var l$4=_uL_[2],x1=_uL_[1],x0$0=l[1]; return [0,[0,[0,0,x0$0,0,1],x1,0,2],l$4]}} break; default: if(l) - {var _uQ_=l[2]; - if(_uQ_) - {var _uR_=_uQ_[2]; - if(_uR_) - {var l$5=_uR_[2],x2=_uR_[1],x1$0=_uQ_[1],x0$1=l[1]; + {var _uM_=l[2]; + if(_uM_) + {var _uN_=_uM_[2]; + if(_uN_) + {var l$5=_uN_[2],x2=_uN_[1],x1$0=_uM_[1],x0$1=l[1]; return [0,[0,[0,0,x0$1,0,1],x1$0,[0,0,x2,0,1],2],l$5]}}}} var nl=n / 2 | 0,match=sub(nl,l),l$0=match[2],left=match[1]; if(l$0) @@ -11279,24 +13856,24 @@ return [0,create(left,mid,right),l$2]} throw [0,Assert_failure,_J_]}; return sub(length(l$0),l$0)[1]} - var x4=_uN_[1]; - return add(x4,add(_uO_,add(_uM_,add(_uK_,singleton(_uI_)))))} - return add(_uO_,add(_uM_,add(_uK_,singleton(_uI_))))} - return add(_uM_,add(_uK_,singleton(_uI_)))} - return add(_uK_,singleton(_uI_))} - return singleton(_uI_)} + var x4=_uJ_[1]; + return add(x4,add(_uK_,add(_uI_,add(_uG_,singleton(_uE_)))))} + return add(_uK_,add(_uI_,add(_uG_,singleton(_uE_))))} + return add(_uI_,add(_uG_,singleton(_uE_)))} + return add(_uG_,singleton(_uE_))} + return singleton(_uE_)} return empty} function add_seq(i,m) {return fold_left(function(s,x){return add(x,s)},m,i)} function of_seq(i){return add_seq(i,empty)} function seq_of_enum(c,param) {if(c) - {var rest=c[3],t=c[2],x=c[1],_uF_=cons_enum(t,rest); - return [0,x,function(_uG_){return seq_of_enum(_uF_,_uG_)}]} + {var rest=c[3],t=c[2],x=c[1],_uB_=cons_enum(t,rest); + return [0,x,function(_uC_){return seq_of_enum(_uB_,_uC_)}]} return 0} function to_seq(c) - {var _uD_=cons_enum(c,0); - return function(_uE_){return seq_of_enum(_uD_,_uE_)}} + {var _uz_=cons_enum(c,0); + return function(_uA_){return seq_of_enum(_uz_,_uA_)}} function to_seq_from(low,s) {var s$0=s,c=0; for(;;) @@ -11306,10 +13883,10 @@ {if(0 <= n){var c$0=[0,v,r,c],s$0=l,c=c$0;continue} var s$0=r; continue} - var _uB_=[0,v,r,c]} + var _ux_=[0,v,r,c]} else - var _uB_=c; - return function(_uC_){return seq_of_enum(_uB_,_uC_)}}} + var _ux_=c; + return function(_uy_){return seq_of_enum(_ux_,_uy_)}}} return [0, empty, is_empty, @@ -11358,42 +13935,42 @@ function(Ord) {function height(param){if(param){var h=param[5];return h}return 0} function create(l,x,d,r) - {var hl=height(l),hr=height(r),_uA_=hr <= hl?hl + 1 | 0:hr + 1 | 0; - return [0,l,x,d,r,_uA_]} + {var hl=height(l),hr=height(r),_uw_=hr <= hl?hl + 1 | 0:hr + 1 | 0; + return [0,l,x,d,r,_uw_]} function singleton(x,d){return [0,0,x,d,0,1]} function bal(l,x,d,r) {if(l)var h=l[5],hl=h;else var hl=0; if(r)var h$0=r[5],hr=h$0;else var hr=0; if((hr + 2 | 0) < hl) {if(l) - {var lr=l[4],ld=l[3],lv=l[2],ll=l[1],_uv_=height(lr); - if(_uv_ <= height(ll))return create(ll,lv,ld,create(lr,x,d,r)); + {var lr=l[4],ld=l[3],lv=l[2],ll=l[1],_ur_=height(lr); + if(_ur_ <= height(ll))return create(ll,lv,ld,create(lr,x,d,r)); if(lr) {var lrr=lr[4], lrd=lr[3], lrv=lr[2], lrl=lr[1], - _uw_=create(lrr,x,d,r); - return create(create(ll,lv,ld,lrl),lrv,lrd,_uw_)} + _us_=create(lrr,x,d,r); + return create(create(ll,lv,ld,lrl),lrv,lrd,_us_)} return invalid_arg(cst_Map_bal)} return invalid_arg(cst_Map_bal$0)} if((hl + 2 | 0) < hr) {if(r) - {var rr=r[4],rd=r[3],rv=r[2],rl=r[1],_ux_=height(rl); - if(_ux_ <= height(rr))return create(create(l,x,d,rl),rv,rd,rr); + {var rr=r[4],rd=r[3],rv=r[2],rl=r[1],_ut_=height(rl); + if(_ut_ <= height(rr))return create(create(l,x,d,rl),rv,rd,rr); if(rl) {var rlr=rl[4], rld=rl[3], rlv=rl[2], rll=rl[1], - _uy_=create(rlr,rv,rd,rr); - return create(create(l,x,d,rll),rlv,rld,_uy_)} + _uu_=create(rlr,rv,rd,rr); + return create(create(l,x,d,rll),rlv,rld,_uu_)} return invalid_arg(cst_Map_bal$1)} return invalid_arg(cst_Map_bal$2)} - var _uz_=hr <= hl?hl + 1 | 0:hr + 1 | 0; - return [0,l,x,d,r,_uz_]} + var _uv_=hr <= hl?hl + 1 | 0:hr + 1 | 0; + return [0,l,x,d,r,_uv_]} var empty=0; function is_empty(param){return param?0:1} function add(x,data,m) @@ -11525,8 +14102,8 @@ v=param$0[2], l=param$0[1], c=caml_call2(Ord[1],x,v), - _uu_=0 === c?1:0; - if(_uu_)return _uu_; + _uq_=0 === c?1:0; + if(_uq_)return _uq_; var param$1=0 <= c?r:l,param$0=param$1; continue} return 0}} @@ -11534,8 +14111,8 @@ {var param$0=param; for(;;) {if(param$0) - {var _ut_=param$0[1]; - if(_ut_){var param$0=_ut_;continue} + {var _up_=param$0[1]; + if(_up_){var param$0=_up_;continue} var d=param$0[3],v=param$0[2]; return [0,v,d]} throw Not_found}} @@ -11543,8 +14120,8 @@ {var param$0=param; for(;;) {if(param$0) - {var _us_=param$0[1]; - if(_us_){var param$0=_us_;continue} + {var _uo_=param$0[1]; + if(_uo_){var param$0=_uo_;continue} var d=param$0[3],v=param$0[2]; return [0,[0,v,d]]} return 0}} @@ -11552,28 +14129,28 @@ {var param$0=param; for(;;) {if(param$0) - {var _up_=param$0[4],_uq_=param$0[3],_ur_=param$0[2]; - if(_up_){var param$0=_up_;continue} - return [0,_ur_,_uq_]} + {var _ul_=param$0[4],_um_=param$0[3],_un_=param$0[2]; + if(_ul_){var param$0=_ul_;continue} + return [0,_un_,_um_]} throw Not_found}} function max_binding_opt(param) {var param$0=param; for(;;) {if(param$0) - {var _um_=param$0[4],_un_=param$0[3],_uo_=param$0[2]; - if(_um_){var param$0=_um_;continue} - return [0,[0,_uo_,_un_]]} + {var _ui_=param$0[4],_uj_=param$0[3],_uk_=param$0[2]; + if(_ui_){var param$0=_ui_;continue} + return [0,[0,_uk_,_uj_]]} return 0}} function remove_min_binding(param) {if(param) - {var _ul_=param[1]; - if(_ul_) + {var _uh_=param[1]; + if(_uh_) {var r=param[4],d=param[3],v=param[2]; - return bal(remove_min_binding(_ul_),v,d,r)} + return bal(remove_min_binding(_uh_),v,d,r)} var r$0=param[4]; return r$0} return invalid_arg(cst_Map_remove_min_elt)} - function _t0_(t,match) + function _tW_(t,match) {if(t) {if(match) {var match$0=min_binding(match),d=match$0[2],x=match$0[1]; @@ -11583,7 +14160,7 @@ function remove(x,m) {if(m) {var r=m[4],d=m[3],v=m[2],l=m[1],c=caml_call2(Ord[1],x,v); - if(0 === c)return _t0_(l,r); + if(0 === c)return _tW_(l,r); if(0 <= c){var rr=remove(x,r);return r === rr?m:bal(l,v,d,rr)} var ll=remove(x,l); return l === ll?m:bal(ll,v,d,r)} @@ -11595,7 +14172,7 @@ {var match=caml_call1(f,[0,d]); if(match) {var data=match[1];return d === data?m:[0,l,x,data,r,h]} - return _t0_(l,r)} + return _tW_(l,r)} if(0 <= c){var rr=update(x,f,r);return r === rr?m:bal(l,v,d,rr)} var ll=update(x,f,l); return l === ll?m:bal(ll,v,d,r)} @@ -11661,14 +14238,14 @@ d=param$0[3], v=param$0[2], l=param$0[1], - _ui_=caml_call2(p,v,d); - if(_ui_) - {var _uj_=for_all(p,l); - if(_uj_){var param$0=r;continue} - var _uk_=_uj_} + _ue_=caml_call2(p,v,d); + if(_ue_) + {var _uf_=for_all(p,l); + if(_uf_){var param$0=r;continue} + var _ug_=_uf_} else - var _uk_=_ui_; - return _uk_} + var _ug_=_ue_; + return _ug_} return 1}} function exists(p,param) {var param$0=param; @@ -11679,14 +14256,14 @@ d=param$0[3], v=param$0[2], l=param$0[1], - _uf_=caml_call2(p,v,d); - if(_uf_) - var _ug_=_uf_; + _ub_=caml_call2(p,v,d); + if(_ub_) + var _uc_=_ub_; else - {var _uh_=exists(p,l); - if(! _uh_){var param$0=r;continue} - var _ug_=_uh_} - return _ug_} + {var _ud_=exists(p,l); + if(! _ud_){var param$0=r;continue} + var _uc_=_ud_} + return _uc_} return 0}} function add_min_binding(k,x,param) {if(param) @@ -11756,9 +14333,9 @@ r2=match[3], d2=match[2], l2=match[1], - _ub_=merge(f,r1,r2), - _uc_=caml_call3(f,v1,[0,d1],d2); - return concat_or_join(merge(f,l1,l2),v1,_uc_,_ub_)}} + _t9_=merge(f,r1,r2), + _t__=caml_call3(f,v1,[0,d1],d2); + return concat_or_join(merge(f,l1,l2),v1,_t__,_t9_)}} else if(! s2)return 0; if(s2) @@ -11771,9 +14348,9 @@ r1$0=match$0[3], d1$0=match$0[2], l1$0=match$0[1], - _ud_=merge(f,r1$0,r2$0), - _ue_=caml_call3(f,v2,d1$0,[0,d2$0]); - return concat_or_join(merge(f,l1$0,l2$0),v2,_ue_,_ud_)} + _t$_=merge(f,r1$0,r2$0), + _ua_=caml_call3(f,v2,d1$0,[0,d2$0]); + return concat_or_join(merge(f,l1$0,l2$0),v2,_ua_,_t$_)} throw [0,Assert_failure,_L_]} function union(f,s1,s2) {if(s1) @@ -11827,7 +14404,7 @@ pvd=caml_call2(p,v,d), r$0=filter(p,r); if(pvd) - {if(l === l$0)if(r === r$0)return m;return join(l$0,v,d,r$0)} + {if(l === l$0 && r === r$0)return m;return join(l$0,v,d,r$0)} return concat(l$0,r$0)} return 0} function partition(p,param) @@ -11844,9 +14421,9 @@ match$0=partition(p,r), rf=match$0[2], rt=match$0[1]; - if(pvd){var _t$_=concat(lf,rf);return [0,join(lt,v,d,rt),_t$_]} - var _ua_=join(lf,v,d,rf); - return [0,concat(lt,rt),_ua_]} + if(pvd){var _t7_=concat(lf,rf);return [0,join(lt,v,d,rt),_t7_]} + var _t8_=join(lf,v,d,rf); + return [0,concat(lt,rt),_t8_]} return _M_} function cons_enum(m,e) {var m$0=m,e$0=e; @@ -11904,26 +14481,26 @@ r1=e1[3], d1=e1[2], v1=e1[1], - _t8_=0 === caml_call2(Ord[1],v1,v2)?1:0; - if(_t8_) - {var _t9_=caml_call2(cmp,d1,d2); - if(_t9_) + _t4_=0 === caml_call2(Ord[1],v1,v2)?1:0; + if(_t4_) + {var _t5_=caml_call2(cmp,d1,d2); + if(_t5_) {var e2$1=cons_enum(r2,e2$0), e1$1=cons_enum(r1,e1$0), e1=e1$1, e2=e2$1; continue} - var _t__=_t9_} + var _t6_=_t5_} else - var _t__=_t8_; - return _t__} + var _t6_=_t4_; + return _t6_} return 0} return e2?0:1}} function cardinal(param) {if(param) - {var r=param[4],l=param[1],_t7_=cardinal(r); - return (cardinal(l) + 1 | 0) + _t7_ | 0} + {var r=param[4],l=param[1],_t3_=cardinal(r); + return (cardinal(l) + 1 | 0) + _t3_ | 0} return 0} function bindings_aux(accu,param) {var accu$0=accu,param$0=param; @@ -11949,12 +14526,12 @@ function of_seq(i){return add_seq(i,empty)} function seq_of_enum(c,param) {if(c) - {var rest=c[4],t=c[3],v=c[2],k=c[1],_t5_=cons_enum(t,rest); - return [0,[0,k,v],function(_t6_){return seq_of_enum(_t5_,_t6_)}]} + {var rest=c[4],t=c[3],v=c[2],k=c[1],_t1_=cons_enum(t,rest); + return [0,[0,k,v],function(_t2_){return seq_of_enum(_t1_,_t2_)}]} return 0} function to_seq(m) - {var _t3_=cons_enum(m,0); - return function(_t4_){return seq_of_enum(_t3_,_t4_)}} + {var _tZ_=cons_enum(m,0); + return function(_t0_){return seq_of_enum(_tZ_,_t0_)}} function to_seq_from(low,m) {var m$0=m,c=0; for(;;) @@ -11969,10 +14546,10 @@ {if(0 <= n){var c$0=[0,v,d,r,c],m$0=l,c=c$0;continue} var m$0=r; continue} - var _t1_=[0,v,d,r,c]} + var _tX_=[0,v,d,r,c]} else - var _t1_=c; - return function(_t2_){return seq_of_enum(_t1_,_t2_)}}} + var _tX_=c; + return function(_tY_){return seq_of_enum(_tX_,_tY_)}}} return [0, empty, is_empty, @@ -12019,19 +14596,19 @@ function copy$3(s){return [0,s[1],s[2]]} function push(x,s){s[1] = [0,x,s[1]];s[2] = s[2] + 1 | 0;return 0} function pop(s) - {var _tZ_=s[1]; - if(_tZ_) - {var tl=_tZ_[2],hd=_tZ_[1];s[1] = tl;s[2] = s[2] - 1 | 0;return hd} + {var _tV_=s[1]; + if(_tV_) + {var tl=_tV_[2],hd=_tV_[1];s[1] = tl;s[2] = s[2] - 1 | 0;return hd} throw Empty} function pop_opt(s) - {var _tY_=s[1]; - if(_tY_) - {var tl=_tY_[2],hd=_tY_[1];s[1] = tl;s[2] = s[2] - 1 | 0;return [0,hd]} + {var _tU_=s[1]; + if(_tU_) + {var tl=_tU_[2],hd=_tU_[1];s[1] = tl;s[2] = s[2] - 1 | 0;return [0,hd]} return 0} function top(s) - {var _tX_=s[1];if(_tX_){var hd=_tX_[1];return hd}throw Empty} + {var _tT_=s[1];if(_tT_){var hd=_tT_[1];return hd}throw Empty} function top_opt(s) - {var _tW_=s[1];if(_tW_){var hd=_tW_[1];return [0,hd]}return 0} + {var _tS_=s[1];if(_tS_){var hd=_tS_[1];return [0,hd]}return 0} function is_empty(s){return 0 === s[1]?1:0} function length$1(s){return s[2]} function iter$7(f,s){return iter$2(f,s[1])} @@ -12063,27 +14640,27 @@ function create$1(param){return [0,0,0,0]} function clear$0(q){q[1] = 0;q[2] = 0;q[3] = 0;return 0} function add(x,q) - {var cell=[0,x,0],_tV_=q[3]; - return _tV_ - ?(q[1] = q[1] + 1 | 0,_tV_[2] = cell,q[3] = cell,0) + {var cell=[0,x,0],_tR_=q[3]; + return _tR_ + ?(q[1] = q[1] + 1 | 0,_tR_[2] = cell,q[3] = cell,0) :(q[1] = 1,q[2] = cell,q[3] = cell,0)} function peek(q) - {var _tU_=q[2];if(_tU_){var content=_tU_[1];return content}throw Empty$0} + {var _tQ_=q[2];if(_tQ_){var content=_tQ_[1];return content}throw Empty$0} function peek_opt(q) - {var _tT_=q[2];if(_tT_){var content=_tT_[1];return [0,content]}return 0} + {var _tP_=q[2];if(_tP_){var content=_tP_[1];return [0,content]}return 0} function take(q) - {var _tQ_=q[2]; - if(_tQ_) - {var _tR_=_tQ_[1],_tS_=_tQ_[2]; - return _tS_?(q[1] = q[1] - 1 | 0,q[2] = _tS_,_tR_):(clear$0(q),_tR_)} + {var _tM_=q[2]; + if(_tM_) + {var _tN_=_tM_[1],_tO_=_tM_[2]; + return _tO_?(q[1] = q[1] - 1 | 0,q[2] = _tO_,_tN_):(clear$0(q),_tN_)} throw Empty$0} function take_opt(q) - {var _tN_=q[2]; - if(_tN_) - {var _tO_=_tN_[1],_tP_=_tN_[2]; - return _tP_ - ?(q[1] = q[1] - 1 | 0,q[2] = _tP_,[0,_tO_]) - :(clear$0(q),[0,_tO_])} + {var _tJ_=q[2]; + if(_tJ_) + {var _tK_=_tJ_[1],_tL_=_tJ_[2]; + return _tL_ + ?(q[1] = q[1] - 1 | 0,q[2] = _tL_,[0,_tK_]) + :(clear$0(q),[0,_tK_])} return 0} function copy$4(q) {var q_res=[0,q[1],0,0],prev=0,cell=q[2]; @@ -12119,10 +14696,10 @@ continue} return accu}} function transfer(q1,q2) - {var _tL_=0 < q1[1]?1:0; - if(_tL_) - {var _tM_=q2[3]; - return _tM_ + {var _tH_=0 < q1[1]?1:0; + if(_tH_) + {var _tI_=q2[3]; + return _tI_ ?(q2[1] = q2[1] @@ -12130,7 +14707,7 @@ q1[1] | 0, - _tM_[2] + _tI_[2] = q1[2], q2[3] @@ -12138,15 +14715,15 @@ q1[3], clear$0(q1)) :(q2[1] = q1[1],q2[2] = q1[2],q2[3] = q1[3],clear$0(q1))} - return _tL_} + return _tH_} function to_seq$7(q) {function aux(c,param) {if(c) {var x=c[1],next=c[2]; - return [0,x,function(_tK_){return aux(next,_tK_)}]} + return [0,x,function(_tG_){return aux(next,_tG_)}]} return 0} - var _tI_=q[2]; - return function(_tJ_){return aux(_tI_,_tJ_)}} + var _tE_=q[2]; + return function(_tF_){return aux(_tE_,_tF_)}} function add_seq$0(q,i){return iter(function(x){return add(x,q)},i)} function of_seq$5(g){var q=create$1(0);add_seq$0(q,g);return q} var @@ -12203,7 +14780,7 @@ function from_fun(f){var x=caml_obj_block(246,1);x[1] = f;return x} function from_val(v) {var t=caml_obj_tag(v); - if(t !== 250)if(t !== 246)if(t !== 253)return v; + if(t !== 250 && t !== 246 && t !== 253)return v; return runtime.caml_lazy_make_forward(v)} function is_val(l){return caml_obj_tag(l) !== 246?1:0} var @@ -12243,19 +14820,19 @@ case 2: var f=d$0[1], - _tE_=caml_obj_tag(f), - d$1=250 === _tE_?f[1]:246 === _tE_?force_lazy_block(f):f, + _tA_=caml_obj_tag(f), + d$1=250 === _tA_?f[1]:246 === _tA_?force_lazy_block(f):f, d$0=d$1; continue; case 3: - var _tF_=d$0[1],_tG_=_tF_[1]; - if(_tG_) - {var _tH_=_tG_[1]; - if(_tH_){var a$0=_tH_[1];_tF_[1] = 0;return [0,a$0,d$0]} + var _tB_=d$0[1],_tC_=_tB_[1]; + if(_tC_) + {var _tD_=_tC_[1]; + if(_tD_){var a$0=_tD_[1];_tB_[1] = 0;return [0,a$0,d$0]} return 0} - var match$0=caml_call1(_tF_[2],count); + var match$0=caml_call1(_tB_[2],count); if(match$0){var a$1=match$0[1];return [0,a$1,d$0]} - _tF_[1] = _O_; + _tB_[1] = _O_; return 0; case 4: var b=d$0[1]; @@ -12268,12 +14845,12 @@ return d$0}} function peek_data(s) {for(;;) - {var _tz_=s[2]; - if(typeof _tz_ === "number") + {var _tv_=s[2]; + if(typeof _tv_ === "number") return 0; else - switch(_tz_[0]) - {case 0:var a=_tz_[1];return [0,a]; + switch(_tv_[0]) + {case 0:var a=_tv_[1];return [0,a]; case 1: var d=get_data(s[1],s[2]); if(typeof d === "number") @@ -12283,19 +14860,19 @@ throw [0,Assert_failure,_P_]} case 2: var - f=_tz_[1], - _tA_=caml_obj_tag(f), - _tB_=250 === _tA_?f[1]:246 === _tA_?force_lazy_block(f):f; - s[2] = _tB_; + f=_tv_[1], + _tw_=caml_obj_tag(f), + _tx_=250 === _tw_?f[1]:246 === _tw_?force_lazy_block(f):f; + s[2] = _tx_; continue; case 3: - var _tC_=_tz_[1],_tD_=_tC_[1]; - if(_tD_){var a$1=_tD_[1];return a$1} - var x=caml_call1(_tC_[2],s[1]); - _tC_[1] = [0,x]; + var _ty_=_tv_[1],_tz_=_ty_[1]; + if(_tz_){var a$1=_tz_[1];return a$1} + var x=caml_call1(_ty_[2],s[1]); + _ty_[1] = [0,x]; return x; default: - var b=_tz_[1]; + var b=_tv_[1]; if(b[3] <= b[4])fill_buff(b); return 0 === b[3] ?(s[2] = 0,0) @@ -12304,16 +14881,16 @@ {if(param){var s=param[1];return peek_data(s)}return 0} function junk_data(s) {for(;;) - {var _tx_=s[2]; - if(typeof _tx_ !== "number") - switch(_tx_[0]) - {case 0:var d=_tx_[2];s[1] = s[1] + 1 | 0;s[2] = d;return 0; + {var _tt_=s[2]; + if(typeof _tt_ !== "number") + switch(_tt_[0]) + {case 0:var d=_tt_[2];s[1] = s[1] + 1 | 0;s[2] = d;return 0; case 3: - var _ty_=_tx_[1]; - if(_ty_[1]){s[1] = s[1] + 1 | 0;_ty_[1] = 0;return 0} + var _tu_=_tt_[1]; + if(_tu_[1]){s[1] = s[1] + 1 | 0;_tu_[1] = 0;return 0} break; case 4: - var b=_tx_[1]; + var b=_tt_[1]; if(b[3] <= b[4])fill_buff(b); return 0 === b[3] ?(s[2] = 0,0) @@ -12362,8 +14939,8 @@ return 0}} function from(f){return [0,[0,0,[3,[0,0,f]]]]} function of_list$1(l) - {var _tw_=0; - return [0,[0,0,fold_right(function(x,l){return [0,x,l]},l,_tw_)]]} + {var _ts_=0; + return [0,[0,0,fold_right(function(x,l){return [0,x,l]},l,_ts_)]]} function of_string$0(s) {var count=[0,0]; return from @@ -12382,7 +14959,7 @@ :0})} function of_channel(ic) {return [0,[0,0,[4,[0,ic,caml_create_bytes(4096),0,0]]]]} - function iapp(i,s){var _tv_=data(s);return [0,[0,0,[1,data(i),_tv_]]]} + function iapp(i,s){var _tr_=data(s);return [0,[0,0,[1,data(i),_tr_]]]} function icons(i,s){return [0,[0,0,[0,i,data(s)]]]} function ising(i){return [0,[0,0,[0,i,0]]]} function lapp(f,s) @@ -12391,21 +14968,21 @@ 0, [2, [246, - function(_tt_) - {var _tu_=data(s);return [1,data(caml_call1(f,0)),_tu_]}]]]]} + function(_tp_) + {var _tq_=data(s);return [1,data(caml_call1(f,0)),_tq_]}]]]]} function lcons(f,s) {return [0, [0, 0, [2, [246, - function(_tr_) - {var _ts_=data(s);return [0,caml_call1(f,0),_ts_]}]]]]} + function(_tn_) + {var _to_=data(s);return [0,caml_call1(f,0),_to_]}]]]]} function lsing(f) - {return [0,[0,0,[2,[246,function(_tq_){return [0,caml_call1(f,0),0]}]]]]} + {return [0,[0,0,[2,[246,function(_tm_){return [0,caml_call1(f,0),0]}]]]]} var sempty=0; function slazy(f) - {return [0,[0,0,[2,[246,function(_tp_){return data(caml_call1(f,0))}]]]]} + {return [0,[0,0,[2,[246,function(_tl_){return data(caml_call1(f,0))}]]]]} function dump(f,s) {print_string(cst_count); print_int(count(s)); @@ -12471,20 +15048,32 @@ function contents(b){return sub_string(b[1],0,b[2])} function to_bytes(b){return sub(b[1],0,b[2])} function sub$3(b,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((b[2] - len | 0) < ofs))return sub_string(b[1],ofs,len); + {if(0 <= ofs && 0 <= len && ! ((b[2] - len | 0) < ofs)) + return sub_string(b[1],ofs,len); return invalid_arg(cst_Buffer_sub)} function blit$3(src,srcoff,dst,dstoff,len) - {if(0 <= len) - if(0 <= srcoff) - if(! ((src[2] - len | 0) < srcoff)) - if(0 <= dstoff) - if(! ((caml_ml_bytes_length(dst) - len | 0) < dstoff)) - return caml_blit_bytes(src[1],srcoff,dst,dstoff,len); + {if + (0 + <= + len + && + 0 + <= + srcoff + && + ! + ((src[2] - len | 0) < srcoff) + && + 0 + <= + dstoff + && + ! + ((caml_ml_bytes_length(dst) - len | 0) < dstoff)) + return caml_blit_bytes(src[1],srcoff,dst,dstoff,len); return invalid_arg(cst_Buffer_blit)} function nth$0(b,ofs) - {if(0 <= ofs)if(! (b[2] <= ofs))return caml_bytes_unsafe_get(b[1],ofs); + {if(0 <= ofs && ! (b[2] <= ofs))return caml_bytes_unsafe_get(b[1],ofs); return invalid_arg(cst_Buffer_nth)} function length$3(b){return b[2]} function clear$1(b){b[2] = 0;return 0} @@ -12499,7 +15088,7 @@ if((old_pos + more | 0) <= max_string_length) new_len[1] = max_string_length; else - failwith(cst_Buffer_add_cannot_grow_buffer); + failwith(cst_Buffer_add_cannot_grow_buf); var new_buffer=caml_create_bytes(new_len[1]); blit(b[1],0,new_buffer,0,b[2]); b[1] = new_buffer; @@ -12591,14 +15180,14 @@ return 0} throw [0,Assert_failure,_X_]} function add_substring(b,s,offset,len) - {var _tm_=offset < 0?1:0; - if(_tm_) - var _tn_=_tm_; + {var _ti_=offset < 0?1:0; + if(_ti_) + var _tj_=_ti_; else var - _to_=len < 0?1:0, - _tn_=_to_ || ((caml_ml_string_length(s) - len | 0) < offset?1:0); - if(_tn_)invalid_arg(cst_Buffer_add_substring_add_subbytes); + _tk_=len < 0?1:0, + _tj_=_tk_ || ((caml_ml_string_length(s) - len | 0) < offset?1:0); + if(_tj_)invalid_arg(cst_Buffer_add_substring_add_s); var new_position=b[2] + len | 0; if(b[3] < new_position)resize(b,len); caml_blit_string(s,offset,b[1],b[2],len); @@ -12615,13 +15204,13 @@ function add_bytes(b,s){return add_string(b,caml_string_of_bytes(s))} function add_buffer(b,bs){return add_subbytes(b,bs[1],0,bs[2])} function add_channel(b,ic,len) - {var _tk_=len < 0?1:0,_tl_=_tk_ || (max_string_length < len?1:0); - if(_tl_)invalid_arg(cst_Buffer_add_channel); + {var _tg_=len < 0?1:0,_th_=_tg_ || (max_string_length < len?1:0); + if(_th_)invalid_arg(cst_Buffer_add_channel); if(b[3] < (b[2] + len | 0))resize(b,len); - var already_read=0,ofs=b[2],to_read=len,_tj_=b[1]; + var already_read=0,ofs=b[2],to_read=len,_tf_=b[1]; for(;;) {if(0 !== to_read) - {var r=input(ic,_tj_,ofs,to_read); + {var r=input(ic,_tf_,ofs,to_read); if(0 !== r) {var already_read$0=already_read + r | 0, @@ -12649,42 +15238,41 @@ continue} var start=i$7 + 1 | 0; if(lim$1 <= start)throw Not_found; - var opening=caml_string_get(s,start); - if(40 === opening) - var switch$0=0; - else - if(123 === opening) - var switch$0=0; - else - {var i$6=start + 1 | 0,lim$0=caml_ml_string_length(s),i$3=i$6; - for(;;) - {if(lim$0 <= i$3) - var stop=lim$0; - else - {var - match=caml_string_get(s,i$3), - switch$1= - 91 <= match - ?97 <= match?123 <= match?0:1:95 === match?1:0 - :58 <= match?65 <= match?1:0:48 <= match?1:0; - if(switch$1){var i$4=i$3 + 1 | 0,i$3=i$4;continue} - var stop=i$3} - var - match$0=[0,sub$0(s,start,stop - start | 0),stop], - switch$0=1; - break}} + var opening=caml_string_get(s,start),switch$0=0; + if(40 !== opening && 123 !== opening) + {var i$6=start + 1 | 0,lim$0=caml_ml_string_length(s),i$3=i$6; + for(;;) + {if(lim$0 <= i$3) + var stop=lim$0; + else + {var match=caml_string_get(s,i$3),switch$1=0; + if(91 <= match) + {if(97 <= match) + {if(! (123 <= match))switch$1 = 1} + else + if(95 === match)switch$1 = 1} + else + if(58 <= match) + {if(65 <= match)switch$1 = 1} + else + if(48 <= match)switch$1 = 1; + if(switch$1){var i$4=i$3 + 1 | 0,i$3=i$4;continue} + var stop=i$3} + var match$0=[0,sub$0(s,start,stop - start | 0),stop]; + switch$0 = 1; + break}} if(! switch$0) {var i$5=start + 1 | 0,k$2=0; if(40 === opening) - var _th_=41; + var _td_=41; else - {if(123 !== opening)throw [0,Assert_failure,_Z_];var _th_=125} + {if(123 !== opening)throw [0,Assert_failure,_Z_];var _td_=125} var lim=caml_ml_string_length(s),k=k$2,i=i$5; for(;;) {if(lim <= i)throw Not_found; if(caml_string_get(s,i) === opening) {var i$0=i + 1 | 0,k$0=k + 1 | 0,k=k$0,i=i$0;continue} - if(caml_string_get(s,i) !== _th_) + if(caml_string_get(s,i) !== _td_) {var i$2=i + 1 | 0,i=i$2;continue} if(0 !== k) {var i$1=i + 1 | 0,k$1=k - 1 | 0,k=k$1,i=i$1;continue} @@ -12706,27 +15294,27 @@ add_char(b,current); var i$11=i$7 + 1 | 0,previous=current,i$7=i$11; continue} - var _ti_=92 === previous?1:0; - return _ti_?add_char(b,previous):_ti_}} + var _te_=92 === previous?1:0; + return _te_?add_char(b,previous):_te_}} function truncate(b,len) - {if(0 <= len)if(! (b[2] < len)){b[2] = len;return 0} + {if(0 <= len && ! (b[2] < len)){b[2] = len;return 0} return invalid_arg(cst_Buffer_truncate)} function to_seq$8(b) - {function aux(i,param) - {if(b[2] <= i)return 0; - var x=caml_bytes_unsafe_get(b[1],i),_tf_=i + 1 | 0; - return [0,x,function(_tg_){return aux(_tf_,_tg_)}]} - var _td_=0; - return function(_te_){return aux(_td_,_te_)}} - function to_seqi$3(b) {function aux(i,param) {if(b[2] <= i)return 0; var x=caml_bytes_unsafe_get(b[1],i),_tb_=i + 1 | 0; - return [0,[0,i,x],function(_tc_){return aux(_tb_,_tc_)}]} + return [0,x,function(_tc_){return aux(_tb_,_tc_)}]} var _s$_=0; return function(_ta_){return aux(_s$_,_ta_)}} + function to_seqi$3(b) + {function aux(i,param) + {if(b[2] <= i)return 0; + var x=caml_bytes_unsafe_get(b[1],i),_s9_=i + 1 | 0; + return [0,[0,i,x],function(_s__){return aux(_s9_,_s__)}]} + var _s7_=0; + return function(_s8_){return aux(_s7_,_s8_)}} function add_seq$1(b,seq) - {return iter(function(_s__){return add_char(b,_s__)},seq)} + {return iter(function(_s6_){return add_char(b,_s6_)},seq)} function of_seq$6(i){var b=create$2(32);add_seq$1(b,i);return b} function add_int8(b,x) {var new_position=b[2] + 1 | 0; @@ -12818,8 +15406,8 @@ for(;;) {caml_bytes_set (char_set$0,i,char_of_int(caml_string_get(char_set,i) ^ 255)); - var _s9_=i + 1 | 0; - if(31 !== i){var i=_s9_;continue} + var _s5_=i + 1 | 0; + if(31 !== i){var i=_s5_;continue} return caml_string_of_bytes(char_set$0)}} function is_in_char_set(char_set,c) {var str_ind=c >>> 3 | 0,mask=1 << (c & 7); @@ -12852,8 +15440,8 @@ return [0,[7,iconv$2,pad_of_pad_opt(pad_opt$4),0,fmt]]; case 6: var prec_opt=ign[2],pad_opt$5=ign[1]; - if(prec_opt)var ndec=prec_opt[1],_s8_=[0,ndec];else var _s8_=0; - return [0,[8,___,pad_of_pad_opt(pad_opt$5),_s8_,fmt]]; + if(prec_opt)var ndec=prec_opt[1],_s4_=[0,ndec];else var _s4_=0; + return [0,[8,___,pad_of_pad_opt(pad_opt$5),_s4_,fmt]]; case 7: var pad_opt$6=ign[1];return [0,[9,pad_of_pad_opt(pad_opt$6),fmt]]; case 8: @@ -12873,17 +15461,17 @@ {var len=caml_ml_bytes_length(buf[2]), min_len=buf[1] + overhead | 0, - _s6_=len < min_len?1:0; - if(_s6_) + _s2_=len < min_len?1:0; + if(_s2_) {var new_len=max(len * 2 | 0,min_len), new_str=caml_create_bytes(new_len); blit(buf[2],0,new_str,0,len); buf[2] = new_str; - var _s7_=0} + var _s3_=0} else - var _s7_=_s6_; - return _s7_} + var _s3_=_s2_; + return _s3_} function buffer_add_char(buf,c) {buffer_check_size(buf,1); caml_bytes_set(buf[2],buf[1],c); @@ -12932,7 +15520,7 @@ function bprint_pad_opt(buf,pad_opt) {if(pad_opt) {var width=pad_opt[1]; - return buffer_add_string(buf,caml_new_string("" + width))} + return buffer_add_string(buf,caml_string_of_jsbytes("" + width))} return 0} function bprint_padding(buf,pad) {if(typeof pad === "number") @@ -12941,7 +15529,7 @@ {if(0 === pad[0]) {var n=pad[2],padty=pad[1]; bprint_padty(buf,padty); - return buffer_add_string(buf,caml_new_string("" + n))} + return buffer_add_string(buf,caml_string_of_jsbytes("" + n))} var padty$0=pad[1]; bprint_padty(buf,padty$0); return buffer_add_char(buf,42)}} @@ -12950,7 +15538,7 @@ return 0 === prec?0:buffer_add_string(buf,cst$11); var n=prec[1]; buffer_add_char(buf,46); - return buffer_add_string(buf,caml_new_string("" + n))} + return buffer_add_string(buf,caml_string_of_jsbytes("" + n))} function bprint_iconv_flag(buf,iconv) {switch(iconv) {case 1: @@ -13000,13 +15588,13 @@ function bprint_char_literal(buf,chr) {return 37 === chr?buffer_add_string(buf,cst$20):buffer_add_char(buf,chr)} function bprint_string_literal(buf,str) - {var _s4_=caml_ml_string_length(str) - 1 | 0,_s3_=0; - if(! (_s4_ < 0)) - {var i=_s3_; + {var _s0_=caml_ml_string_length(str) - 1 | 0,_sZ_=0; + if(! (_s0_ < 0)) + {var i=_sZ_; for(;;) {bprint_char_literal(buf,caml_string_get(str,i)); - var _s5_=i + 1 | 0; - if(_s4_ !== i){var i=_s5_;continue} + var _s1_=i + 1 | 0; + if(_s0_ !== i){var i=_s1_;continue} break}} return 0} function bprint_fmtty(buf,fmtty) @@ -13263,75 +15851,76 @@ :buffer_add_char(buf,c)}; buffer_add_char(buf,91); var - _sT_= + _sP_= is_in_char_set(char_set,0) ?(buffer_add_char(buf,94),rev_char_set(char_set)) :char_set, is_alone$0= - function(_sY_) + function(_sU_) {function is_alone(c) {var after=chr(c + 1 | 0), before=chr(c - 1 | 0), - _sZ_=is_in_char_set(_sY_,c); - if(_sZ_) + _sV_=is_in_char_set(_sU_,c); + if(_sV_) var - _s0_=is_in_char_set(_sY_,before), - _s1_=_s0_?is_in_char_set(_sY_,after):_s0_, - _s2_=1 - _s1_; + _sW_=is_in_char_set(_sU_,before), + _sX_=_sW_?is_in_char_set(_sU_,after):_sW_, + _sY_=1 - _sX_; else - var _s2_=_sZ_; - return _s2_} + var _sY_=_sV_; + return _sY_} return is_alone}, - is_alone=is_alone$0(_sT_); + is_alone=is_alone$0(_sP_); if(is_alone(93))buffer_add_char(buf,93); var i=1; b: for(;;) {if(i < 256) - {if(! is_in_char_set(_sT_,char_of_int(i))) + {if(! is_in_char_set(_sP_,char_of_int(i))) {var i$0=i + 1 | 0,i=i$0;continue} - var match=char_of_int(i),switcher=match - 45 | 0; + var match=char_of_int(i),switcher=match - 45 | 0,switch$0=0; if(48 < switcher >>> 0) - var switch$0=210 <= switcher?(print_char(buf,255),1):0; + if(210 <= switcher)print_char(buf,255);else switch$0 = 1; else {var switcher$0=switcher - 1 | 0; if(46 < switcher$0 >>> 0){var i$2=i + 1 | 0,i=i$2;continue} - var switch$0=0} - if(! switch$0) + switch$0 = 1} + if(switch$0) {var i$1=i + 1 | 0; - if(! is_in_char_set(_sT_,char_of_int(i$1))) + if(! is_in_char_set(_sP_,char_of_int(i$1))) {print_char(buf,i$1 - 1 | 0); var i$6=i$1 + 1 | 0,i=i$6; continue} - var match$0=char_of_int(i$1),switcher$1=match$0 - 45 | 0; + var + match$0=char_of_int(i$1), + switcher$1=match$0 - 45 | 0, + switch$1=0; if(48 < switcher$1 >>> 0) - var - switch$1= - 210 <= switcher$1 - ?(print_char(buf,254),print_char(buf,255),1) - :0; + if(210 <= switcher$1) + {print_char(buf,254);print_char(buf,255)} + else + switch$1 = 1; else {var switcher$2=switcher$1 - 1 | 0; if(46 < switcher$2 >>> 0) - {if(! is_in_char_set(_sT_,char_of_int(i$1 + 1 | 0))) + {if(! is_in_char_set(_sP_,char_of_int(i$1 + 1 | 0))) {print_char(buf,i$1 - 1 | 0); var i$5=i$1 + 1 | 0,i=i$5; continue} - var switch$1=0} + switch$1 = 1} else - var switch$1=0} - if(! switch$1) - {if(! is_in_char_set(_sT_,char_of_int(i$1 + 1 | 0))) + switch$1 = 1} + if(switch$1) + {if(! is_in_char_set(_sP_,char_of_int(i$1 + 1 | 0))) {print_char(buf,i$1 - 1 | 0); print_char(buf,i$1); var i$4=i$1 + 2 | 0,i=i$4; continue} var j=i$1 + 2 | 0,i$3=i$1 - 1 | 0,j$0=j; for(;;) - {if(256 !== j$0) - if(is_in_char_set(_sT_,char_of_int(j$0))) - {var j$1=j$0 + 1 | 0,j$0=j$1;continue} + {if(256 !== j$0 && is_in_char_set(_sP_,char_of_int(j$0))) + {var j$1=j$0 + 1 | 0,j$0=j$1;continue} print_char(buf,i$3); print_char(buf,45); print_char(buf,j$0 - 1 | 0); @@ -13346,10 +15935,10 @@ buffer_add_char(buf,37); bprint_ignored_flag(buf,ign_flag); switch(counter) - {case 0:var _sU_=108;break; - case 1:var _sU_=110;break; - default:var _sU_=78} - buffer_add_char(buf,_sU_); + {case 0:var _sQ_=108;break; + case 1:var _sQ_=110;break; + default:var _sQ_=78} + buffer_add_char(buf,_sQ_); var fmt=rest$20,ign_flag=0; continue; case 22: @@ -13372,16 +15961,16 @@ var rest$23=fmt[3], arity=fmt[1], - _sW_=int_of_custom_arity(arity), - _sV_=1; - if(! (_sW_ < 1)) - {var i$8=_sV_; + _sS_=int_of_custom_arity(arity), + _sR_=1; + if(! (_sS_ < 1)) + {var i$8=_sR_; for(;;) {buffer_add_char(buf,37); bprint_ignored_flag(buf,ign_flag); buffer_add_char(buf,63); - var _sX_=i$8 + 1 | 0; - if(_sW_ !== i$8){var i$8=_sX_;continue} + var _sT_=i$8 + 1 | 0; + if(_sS_ !== i$8){var i$8=_sT_;continue} break}} var fmt=rest$23,ign_flag=0; continue}} @@ -13410,10 +15999,10 @@ function fmtty_rel_det(param) {if(typeof param === "number") {var - _sv_=function(param){return 0}, - _sw_=function(param){return 0}, - _sx_=function(param){return 0}; - return [0,function(param){return 0},_sx_,_sw_,_sv_]} + _sr_=function(param){return 0}, + _ss_=function(param){return 0}, + _st_=function(param){return 0}; + return [0,function(param){return 0},_st_,_ss_,_sr_]} else switch(param[0]) {case 0: @@ -13424,8 +16013,8 @@ ed=match[3], af=match[2], fa=match[1], - _sy_=function(param){caml_call1(af,0);return 0}; - return [0,function(param){caml_call1(fa,0);return 0},_sy_,ed,de]; + _su_=function(param){caml_call1(af,0);return 0}; + return [0,function(param){caml_call1(fa,0);return 0},_su_,ed,de]; case 1: var rest$0=param[1], @@ -13434,10 +16023,10 @@ ed$0=match$0[3], af$0=match$0[2], fa$0=match$0[1], - _sz_=function(param){caml_call1(af$0,0);return 0}; + _sv_=function(param){caml_call1(af$0,0);return 0}; return [0, function(param){caml_call1(fa$0,0);return 0}, - _sz_, + _sv_, ed$0, de$0]; case 2: @@ -13448,10 +16037,10 @@ ed$1=match$1[3], af$1=match$1[2], fa$1=match$1[1], - _sA_=function(param){caml_call1(af$1,0);return 0}; + _sw_=function(param){caml_call1(af$1,0);return 0}; return [0, function(param){caml_call1(fa$1,0);return 0}, - _sA_, + _sw_, ed$1, de$1]; case 3: @@ -13462,10 +16051,10 @@ ed$2=match$2[3], af$2=match$2[2], fa$2=match$2[1], - _sB_=function(param){caml_call1(af$2,0);return 0}; + _sx_=function(param){caml_call1(af$2,0);return 0}; return [0, function(param){caml_call1(fa$2,0);return 0}, - _sB_, + _sx_, ed$2, de$2]; case 4: @@ -13476,10 +16065,10 @@ ed$3=match$3[3], af$3=match$3[2], fa$3=match$3[1], - _sC_=function(param){caml_call1(af$3,0);return 0}; + _sy_=function(param){caml_call1(af$3,0);return 0}; return [0, function(param){caml_call1(fa$3,0);return 0}, - _sC_, + _sy_, ed$3, de$3]; case 5: @@ -13490,10 +16079,10 @@ ed$4=match$4[3], af$4=match$4[2], fa$4=match$4[1], - _sD_=function(param){caml_call1(af$4,0);return 0}; + _sz_=function(param){caml_call1(af$4,0);return 0}; return [0, function(param){caml_call1(fa$4,0);return 0}, - _sD_, + _sz_, ed$4, de$4]; case 6: @@ -13504,10 +16093,10 @@ ed$5=match$5[3], af$5=match$5[2], fa$5=match$5[1], - _sE_=function(param){caml_call1(af$5,0);return 0}; + _sA_=function(param){caml_call1(af$5,0);return 0}; return [0, function(param){caml_call1(fa$5,0);return 0}, - _sE_, + _sA_, ed$5, de$5]; case 7: @@ -13518,10 +16107,10 @@ ed$6=match$6[3], af$6=match$6[2], fa$6=match$6[1], - _sF_=function(param){caml_call1(af$6,0);return 0}; + _sB_=function(param){caml_call1(af$6,0);return 0}; return [0, function(param){caml_call1(fa$6,0);return 0}, - _sF_, + _sB_, ed$6, de$6]; case 8: @@ -13532,10 +16121,10 @@ ed$7=match$7[3], af$7=match$7[2], fa$7=match$7[1], - _sG_=function(param){caml_call1(af$7,0);return 0}; + _sC_=function(param){caml_call1(af$7,0);return 0}; return [0, function(param){caml_call1(fa$7,0);return 0}, - _sG_, + _sC_, ed$7, de$7]; case 9: @@ -13554,15 +16143,15 @@ dj=match$9[3], ga=match$9[2], ag=match$9[1], - _sH_=function(param){caml_call1(jd,0);caml_call1(de$8,0);return 0}, - _sI_=function(param){caml_call1(ed$8,0);caml_call1(dj,0);return 0}, - _sJ_=function(param){caml_call1(ga,0);caml_call1(af$8,0);return 0}; + _sD_=function(param){caml_call1(jd,0);caml_call1(de$8,0);return 0}, + _sE_=function(param){caml_call1(ed$8,0);caml_call1(dj,0);return 0}, + _sF_=function(param){caml_call1(ga,0);caml_call1(af$8,0);return 0}; return [0, function(param) {caml_call1(fa$8,0);caml_call1(ag,0);return 0}, - _sJ_, - _sI_, - _sH_]; + _sF_, + _sE_, + _sD_]; case 10: var rest$9=param[1], @@ -13571,10 +16160,10 @@ ed$9=match$10[3], af$9=match$10[2], fa$9=match$10[1], - _sK_=function(param){caml_call1(af$9,0);return 0}; + _sG_=function(param){caml_call1(af$9,0);return 0}; return [0, function(param){caml_call1(fa$9,0);return 0}, - _sK_, + _sG_, ed$9, de$9]; case 11: @@ -13585,10 +16174,10 @@ ed$10=match$11[3], af$10=match$11[2], fa$10=match$11[1], - _sL_=function(param){caml_call1(af$10,0);return 0}; + _sH_=function(param){caml_call1(af$10,0);return 0}; return [0, function(param){caml_call1(fa$10,0);return 0}, - _sL_, + _sH_, ed$10, de$10]; case 12: @@ -13599,10 +16188,10 @@ ed$11=match$12[3], af$11=match$12[2], fa$11=match$12[1], - _sM_=function(param){caml_call1(af$11,0);return 0}; + _sI_=function(param){caml_call1(af$11,0);return 0}; return [0, function(param){caml_call1(fa$11,0);return 0}, - _sM_, + _sI_, ed$11, de$11]; case 13: @@ -13613,14 +16202,14 @@ ed$12=match$13[3], af$12=match$13[2], fa$12=match$13[1], - _sN_=function(param){caml_call1(de$12,0);return 0}, - _sO_=function(param){caml_call1(ed$12,0);return 0}, - _sP_=function(param){caml_call1(af$12,0);return 0}; + _sJ_=function(param){caml_call1(de$12,0);return 0}, + _sK_=function(param){caml_call1(ed$12,0);return 0}, + _sL_=function(param){caml_call1(af$12,0);return 0}; return [0, function(param){caml_call1(fa$12,0);return 0}, - _sP_, - _sO_, - _sN_]; + _sL_, + _sK_, + _sJ_]; default: var rest$13=param[1], @@ -13629,263 +16218,260 @@ ed$13=match$14[3], af$13=match$14[2], fa$13=match$14[1], - _sQ_=function(param){caml_call1(de$13,0);return 0}, - _sR_=function(param){caml_call1(ed$13,0);return 0}, - _sS_=function(param){caml_call1(af$13,0);return 0}; + _sM_=function(param){caml_call1(de$13,0);return 0}, + _sN_=function(param){caml_call1(ed$13,0);return 0}, + _sO_=function(param){caml_call1(af$13,0);return 0}; return [0, function(param){caml_call1(fa$13,0);return 0}, - _sS_, - _sR_, - _sQ_]}} + _sO_, + _sN_, + _sM_]}} function trans(ty1,match) - {if(typeof ty1 === "number") + {var switch$0=0; + if(typeof ty1 === "number") if(typeof match === "number") return 0; else switch(match[0]) - {case 10:var switch$0=0;break; - case 11:var switch$0=1;break; - case 12:var switch$0=2;break; - case 13:var switch$0=3;break; - case 14:var switch$0=4;break; - case 8:var switch$0=5;break; - case 9:var switch$0=6;break; + {case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:switch$0 = 4;break; + case 8:switch$0 = 5;break; + case 9:switch$0 = 6;break; default:throw [0,Assert_failure,_$_]} else switch(ty1[0]) {case 0: - var _sc_=ty1[1]; - if(typeof match === "number") - var switch$1=1; - else + var switch$1=0,_r__=ty1[1]; + if(typeof match !== "number") switch(match[0]) - {case 0:var rest2=match[1];return [0,trans(_sc_,rest2)]; - case 8:var switch$0=5,switch$1=0;break; - case 9:var switch$0=6,switch$1=0;break; - case 10:var switch$0=0,switch$1=0;break; - case 11:var switch$0=1,switch$1=0;break; - case 12:var switch$0=2,switch$1=0;break; - case 13:var switch$0=3,switch$1=0;break; - case 14:var switch$0=4,switch$1=0;break; - default:var switch$1=1} - if(switch$1)var switch$0=7; + {case 0:var rest2=match[1];return [0,trans(_r__,rest2)]; + case 8:switch$0 = 5;switch$1 = 1;break; + case 9:switch$0 = 6;switch$1 = 1;break; + case 10:switch$1 = 1;break; + case 11:switch$0 = 1;switch$1 = 1;break; + case 12:switch$0 = 2;switch$1 = 1;break; + case 13:switch$0 = 3;switch$1 = 1;break; + case 14:switch$0 = 4;switch$1 = 1;break + } + if(! switch$1)switch$0 = 7; break; case 1: - var _sd_=ty1[1]; - if(typeof match === "number") - var switch$2=1; - else + var switch$2=0,_r$_=ty1[1]; + if(typeof match !== "number") switch(match[0]) - {case 1:var rest2$0=match[1];return [1,trans(_sd_,rest2$0)]; - case 8:var switch$0=5,switch$2=0;break; - case 9:var switch$0=6,switch$2=0;break; - case 10:var switch$0=0,switch$2=0;break; - case 11:var switch$0=1,switch$2=0;break; - case 12:var switch$0=2,switch$2=0;break; - case 13:var switch$0=3,switch$2=0;break; - case 14:var switch$0=4,switch$2=0;break; - default:var switch$2=1} - if(switch$2)var switch$0=7; + {case 1:var rest2$0=match[1];return [1,trans(_r$_,rest2$0)]; + case 8:switch$0 = 5;switch$2 = 1;break; + case 9:switch$0 = 6;switch$2 = 1;break; + case 10:switch$2 = 1;break; + case 11:switch$0 = 1;switch$2 = 1;break; + case 12:switch$0 = 2;switch$2 = 1;break; + case 13:switch$0 = 3;switch$2 = 1;break; + case 14:switch$0 = 4;switch$2 = 1;break + } + if(! switch$2)switch$0 = 7; break; case 2: - var _se_=ty1[1]; + var switch$3=0,_sa_=ty1[1]; if(typeof match === "number") - var switch$3=1; + switch$3 = 1; else switch(match[0]) - {case 2:var rest2$1=match[1];return [2,trans(_se_,rest2$1)]; - case 8:var switch$0=5,switch$3=0;break; - case 9:var switch$0=6,switch$3=0;break; - case 10:var switch$0=0,switch$3=0;break; - case 11:var switch$0=1,switch$3=0;break; - case 12:var switch$0=2,switch$3=0;break; - case 13:var switch$0=3,switch$3=0;break; - case 14:var switch$0=4,switch$3=0;break; - default:var switch$3=1} - if(switch$3)var switch$0=7; + {case 2:var rest2$1=match[1];return [2,trans(_sa_,rest2$1)]; + case 8:switch$0 = 5;break; + case 9:switch$0 = 6;break; + case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:switch$0 = 4;break; + default:switch$3 = 1} + if(switch$3)switch$0 = 7; break; case 3: - var _sf_=ty1[1]; + var switch$4=0,_sb_=ty1[1]; if(typeof match === "number") - var switch$4=1; + switch$4 = 1; else switch(match[0]) - {case 3:var rest2$2=match[1];return [3,trans(_sf_,rest2$2)]; - case 8:var switch$0=5,switch$4=0;break; - case 9:var switch$0=6,switch$4=0;break; - case 10:var switch$0=0,switch$4=0;break; - case 11:var switch$0=1,switch$4=0;break; - case 12:var switch$0=2,switch$4=0;break; - case 13:var switch$0=3,switch$4=0;break; - case 14:var switch$0=4,switch$4=0;break; - default:var switch$4=1} - if(switch$4)var switch$0=7; + {case 3:var rest2$2=match[1];return [3,trans(_sb_,rest2$2)]; + case 8:switch$0 = 5;break; + case 9:switch$0 = 6;break; + case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:switch$0 = 4;break; + default:switch$4 = 1} + if(switch$4)switch$0 = 7; break; case 4: - var _sg_=ty1[1]; + var switch$5=0,_sc_=ty1[1]; if(typeof match === "number") - var switch$5=1; + switch$5 = 1; else switch(match[0]) - {case 4:var rest2$3=match[1];return [4,trans(_sg_,rest2$3)]; - case 8:var switch$0=5,switch$5=0;break; - case 9:var switch$0=6,switch$5=0;break; - case 10:var switch$0=0,switch$5=0;break; - case 11:var switch$0=1,switch$5=0;break; - case 12:var switch$0=2,switch$5=0;break; - case 13:var switch$0=3,switch$5=0;break; - case 14:var switch$0=4,switch$5=0;break; - default:var switch$5=1} - if(switch$5)var switch$0=7; + {case 4:var rest2$3=match[1];return [4,trans(_sc_,rest2$3)]; + case 8:switch$0 = 5;break; + case 9:switch$0 = 6;break; + case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:switch$0 = 4;break; + default:switch$5 = 1} + if(switch$5)switch$0 = 7; break; case 5: - var _sh_=ty1[1]; + var switch$6=0,_sd_=ty1[1]; if(typeof match === "number") - var switch$6=1; + switch$6 = 1; else switch(match[0]) - {case 5:var rest2$4=match[1];return [5,trans(_sh_,rest2$4)]; - case 8:var switch$0=5,switch$6=0;break; - case 9:var switch$0=6,switch$6=0;break; - case 10:var switch$0=0,switch$6=0;break; - case 11:var switch$0=1,switch$6=0;break; - case 12:var switch$0=2,switch$6=0;break; - case 13:var switch$0=3,switch$6=0;break; - case 14:var switch$0=4,switch$6=0;break; - default:var switch$6=1} - if(switch$6)var switch$0=7; + {case 5:var rest2$4=match[1];return [5,trans(_sd_,rest2$4)]; + case 8:switch$0 = 5;break; + case 9:switch$0 = 6;break; + case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:switch$0 = 4;break; + default:switch$6 = 1} + if(switch$6)switch$0 = 7; break; case 6: - var _si_=ty1[1]; + var switch$7=0,_se_=ty1[1]; if(typeof match === "number") - var switch$7=1; + switch$7 = 1; else switch(match[0]) - {case 6:var rest2$5=match[1];return [6,trans(_si_,rest2$5)]; - case 8:var switch$0=5,switch$7=0;break; - case 9:var switch$0=6,switch$7=0;break; - case 10:var switch$0=0,switch$7=0;break; - case 11:var switch$0=1,switch$7=0;break; - case 12:var switch$0=2,switch$7=0;break; - case 13:var switch$0=3,switch$7=0;break; - case 14:var switch$0=4,switch$7=0;break; - default:var switch$7=1} - if(switch$7)var switch$0=7; + {case 6:var rest2$5=match[1];return [6,trans(_se_,rest2$5)]; + case 8:switch$0 = 5;break; + case 9:switch$0 = 6;break; + case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:switch$0 = 4;break; + default:switch$7 = 1} + if(switch$7)switch$0 = 7; break; case 7: - var _sj_=ty1[1]; + var switch$8=0,_sf_=ty1[1]; if(typeof match === "number") - var switch$8=1; + switch$8 = 1; else switch(match[0]) - {case 7:var rest2$6=match[1];return [7,trans(_sj_,rest2$6)]; - case 8:var switch$0=5,switch$8=0;break; - case 9:var switch$0=6,switch$8=0;break; - case 10:var switch$0=0,switch$8=0;break; - case 11:var switch$0=1,switch$8=0;break; - case 12:var switch$0=2,switch$8=0;break; - case 13:var switch$0=3,switch$8=0;break; - case 14:var switch$0=4,switch$8=0;break; - default:var switch$8=1} - if(switch$8)var switch$0=7; + {case 7:var rest2$6=match[1];return [7,trans(_sf_,rest2$6)]; + case 8:switch$0 = 5;break; + case 9:switch$0 = 6;break; + case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:switch$0 = 4;break; + default:switch$8 = 1} + if(switch$8)switch$0 = 7; break; case 8: - var _sk_=ty1[2],_sl_=ty1[1]; + var switch$9=0,_sg_=ty1[2],_sh_=ty1[1]; if(typeof match === "number") - var switch$9=1; + switch$9 = 1; else switch(match[0]) {case 8: - var rest2$7=match[2],ty2=match[1],_sm_=trans(_sk_,rest2$7); - return [8,trans(_sl_,ty2),_sm_]; - case 10:var switch$0=0,switch$9=0;break; - case 11:var switch$0=1,switch$9=0;break; - case 12:var switch$0=2,switch$9=0;break; - case 13:var switch$0=3,switch$9=0;break; - case 14:var switch$0=4,switch$9=0;break; - default:var switch$9=1} + var rest2$7=match[2],ty2=match[1],_si_=trans(_sg_,rest2$7); + return [8,trans(_sh_,ty2),_si_]; + case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:switch$0 = 4;break; + default:switch$9 = 1} if(switch$9)throw [0,Assert_failure,_ai_]; break; case 9: - var _sn_=ty1[3],_so_=ty1[2],_sp_=ty1[1]; + var switch$10=0,_sj_=ty1[3],_sk_=ty1[2],_sl_=ty1[1]; if(typeof match === "number") - var switch$10=1; + switch$10 = 1; else switch(match[0]) - {case 8:var switch$0=5,switch$10=0;break; + {case 8:switch$0 = 5;break; case 9: var rest2$8=match[3], ty22=match[2], ty21=match[1], - ty=trans(symm(_so_),ty21), + ty=trans(symm(_sk_),ty21), match$0=fmtty_rel_det(ty), f4=match$0[4], f2=match$0[2]; caml_call1(f2,0); caml_call1(f4,0); - return [9,_sp_,ty22,trans(_sn_,rest2$8)]; - case 10:var switch$0=0,switch$10=0;break; - case 11:var switch$0=1,switch$10=0;break; - case 12:var switch$0=2,switch$10=0;break; - case 13:var switch$0=3,switch$10=0;break; - case 14:var switch$0=4,switch$10=0;break; - default:var switch$10=1} + return [9,_sl_,ty22,trans(_sj_,rest2$8)]; + case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:switch$0 = 4;break; + default:switch$10 = 1} if(switch$10)throw [0,Assert_failure,_aj_]; break; case 10: - var _sq_=ty1[1]; + var _sm_=ty1[1]; if(typeof match !== "number" && 10 === match[0]) - {var rest2$9=match[1];return [10,trans(_sq_,rest2$9)]} + {var rest2$9=match[1];return [10,trans(_sm_,rest2$9)]} throw [0,Assert_failure,_ak_]; case 11: - var _sr_=ty1[1]; + var switch$11=0,_sn_=ty1[1]; if(typeof match === "number") - var switch$11=1; + switch$11 = 1; else switch(match[0]) - {case 10:var switch$0=0,switch$11=0;break; - case 11:var rest2$10=match[1];return [11,trans(_sr_,rest2$10)]; - default:var switch$11=1} + {case 10:break; + case 11:var rest2$10=match[1];return [11,trans(_sn_,rest2$10)]; + default:switch$11 = 1} if(switch$11)throw [0,Assert_failure,_al_]; break; case 12: - var _ss_=ty1[1]; + var switch$12=0,_so_=ty1[1]; if(typeof match === "number") - var switch$12=1; + switch$12 = 1; else switch(match[0]) - {case 10:var switch$0=0,switch$12=0;break; - case 11:var switch$0=1,switch$12=0;break; - case 12:var rest2$11=match[1];return [12,trans(_ss_,rest2$11)]; - default:var switch$12=1} + {case 10:break; + case 11:switch$0 = 1;break; + case 12:var rest2$11=match[1];return [12,trans(_so_,rest2$11)]; + default:switch$12 = 1} if(switch$12)throw [0,Assert_failure,_am_]; break; case 13: - var _st_=ty1[1]; + var switch$13=0,_sp_=ty1[1]; if(typeof match === "number") - var switch$13=1; + switch$13 = 1; else switch(match[0]) - {case 10:var switch$0=0,switch$13=0;break; - case 11:var switch$0=1,switch$13=0;break; - case 12:var switch$0=2,switch$13=0;break; - case 13:var rest2$12=match[1];return [13,trans(_st_,rest2$12)]; - default:var switch$13=1} + {case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:var rest2$12=match[1];return [13,trans(_sp_,rest2$12)]; + default:switch$13 = 1} if(switch$13)throw [0,Assert_failure,_an_]; break; default: - var _su_=ty1[1]; + var switch$14=0,_sq_=ty1[1]; if(typeof match === "number") - var switch$14=1; + switch$14 = 1; else switch(match[0]) - {case 10:var switch$0=0,switch$14=0;break; - case 11:var switch$0=1,switch$14=0;break; - case 12:var switch$0=2,switch$14=0;break; - case 13:var switch$0=3,switch$14=0;break; - case 14:var rest2$13=match[1];return [14,trans(_su_,rest2$13)]; - default:var switch$14=1} + {case 10:break; + case 11:switch$0 = 1;break; + case 12:switch$0 = 2;break; + case 13:switch$0 = 3;break; + case 14:var rest2$13=match[1];return [14,trans(_sq_,rest2$13)]; + default:switch$14 = 1} if(switch$14)throw [0,Assert_failure,_ao_]} switch(switch$0) {case 0:throw [0,Assert_failure,_ac_]; @@ -13976,15 +16562,15 @@ var rest$13=fmtty$0[2], fmting_gen=fmtty$0[1], - _sa_=fmtty_of_fmt(rest$13); + _r8_=fmtty_of_fmt(rest$13); if(0 === fmting_gen[0]) - var match=fmting_gen[1],fmt=match[1],_sb_=fmtty_of_fmt(fmt); + var match=fmting_gen[1],fmt=match[1],_r9_=fmtty_of_fmt(fmt); else var match$0=fmting_gen[1], fmt$0=match$0[1], - _sb_=fmtty_of_fmt(fmt$0); - return concat_fmtty(_sb_,_sa_); + _r9_=fmtty_of_fmt(fmt$0); + return concat_fmtty(_r9_,_r8_); case 19:var rest$14=fmtty$0[1];return [13,fmtty_of_fmt(rest$14)]; case 20:var rest$15=fmtty$0[3];return [1,fmtty_of_fmt(rest$15)]; case 21:var rest$16=fmtty$0[2];return [2,fmtty_of_fmt(rest$16)]; @@ -14020,7 +16606,7 @@ {return typeof prec === "number"?0 === prec?fmtty:[2,fmtty]:fmtty} var Type_mismatch= - [248,cst_CamlinternalFormat_Type_mismatch,caml_fresh_oo_id(0)]; + [248,cst_CamlinternalFormat_Type_mi,caml_fresh_oo_id(0)]; function type_padding(pad,match) {if(typeof pad === "number") return [0,0,match]; @@ -14035,15 +16621,15 @@ if(typeof prec === "number") {if(0 === prec) {var rest=match[2],pad$0=match[1];return [0,pad$0,0,rest]} - var _r$_=match[2]; - if(typeof _r$_ !== "number" && 2 === _r$_[0]) - {var rest$0=_r$_[1],pad$1=match[1];return [0,pad$1,1,rest$0]} + var _r7_=match[2]; + if(typeof _r7_ !== "number" && 2 === _r7_[0]) + {var rest$0=_r7_[1],pad$1=match[1];return [0,pad$1,1,rest$0]} throw Type_mismatch} var rest$1=match[2],pad$2=match[1],p=prec[1]; return [0,pad$2,[0,p],rest$1]} function type_format(fmt,fmtty) - {var _r__=type_format_gen(fmt,fmtty); - if(typeof _r__[2] === "number"){var fmt$0=_r__[1];return fmt$0} + {var _r6_=type_format_gen(fmt,fmtty); + if(typeof _r6_[2] === "number"){var fmt$0=_r6_[1];return fmt$0} throw Type_mismatch} function type_ignored_param_one(ign,fmt,fmtty) {var match=type_format_gen(fmt,fmtty),fmtty$0=match[2],fmt$0=match[1]; @@ -14077,31 +16663,31 @@ var fmt_rest$1=fmt[2], pad=fmt[1], - _rF_=type_padding(pad,fmtty), - _rG_=_rF_[2], - _rH_=_rF_[1]; - if(typeof _rG_ !== "number" && 1 === _rG_[0]) + _rB_=type_padding(pad,fmtty), + _rC_=_rB_[2], + _rD_=_rB_[1]; + if(typeof _rC_ !== "number" && 1 === _rC_[0]) {var - fmtty_rest$1=_rG_[1], + fmtty_rest$1=_rC_[1], match$1=type_format_gen(fmt_rest$1,fmtty_rest$1), fmtty$2=match$1[2], fmt$2=match$1[1]; - return [0,[2,_rH_,fmt$2],fmtty$2]} + return [0,[2,_rD_,fmt$2],fmtty$2]} throw Type_mismatch; case 3: var fmt_rest$2=fmt[2], pad$0=fmt[1], - _rI_=type_padding(pad$0,fmtty), - _rJ_=_rI_[2], - _rK_=_rI_[1]; - if(typeof _rJ_ !== "number" && 1 === _rJ_[0]) + _rE_=type_padding(pad$0,fmtty), + _rF_=_rE_[2], + _rG_=_rE_[1]; + if(typeof _rF_ !== "number" && 1 === _rF_[0]) {var - fmtty_rest$2=_rJ_[1], + fmtty_rest$2=_rF_[1], match$2=type_format_gen(fmt_rest$2,fmtty_rest$2), fmtty$3=match$2[2], fmt$3=match$2[1]; - return [0,[3,_rK_,fmt$3],fmtty$3]} + return [0,[3,_rG_,fmt$3],fmtty$3]} throw Type_mismatch; case 4: var @@ -14109,17 +16695,17 @@ prec=fmt[3], pad$1=fmt[2], iconv=fmt[1], - _rL_=type_padprec(pad$1,prec,fmtty), - _rM_=_rL_[3], - _rN_=_rL_[2], - _rO_=_rL_[1]; - if(typeof _rM_ !== "number" && 2 === _rM_[0]) + _rH_=type_padprec(pad$1,prec,fmtty), + _rI_=_rH_[3], + _rJ_=_rH_[2], + _rK_=_rH_[1]; + if(typeof _rI_ !== "number" && 2 === _rI_[0]) {var - fmtty_rest$3=_rM_[1], + fmtty_rest$3=_rI_[1], match$3=type_format_gen(fmt_rest$3,fmtty_rest$3), fmtty$4=match$3[2], fmt$4=match$3[1]; - return [0,[4,iconv,_rO_,_rN_,fmt$4],fmtty$4]} + return [0,[4,iconv,_rK_,_rJ_,fmt$4],fmtty$4]} throw Type_mismatch; case 5: var @@ -14127,17 +16713,17 @@ prec$0=fmt[3], pad$2=fmt[2], iconv$0=fmt[1], - _rP_=type_padprec(pad$2,prec$0,fmtty), - _rQ_=_rP_[3], - _rR_=_rP_[2], - _rS_=_rP_[1]; - if(typeof _rQ_ !== "number" && 3 === _rQ_[0]) + _rL_=type_padprec(pad$2,prec$0,fmtty), + _rM_=_rL_[3], + _rN_=_rL_[2], + _rO_=_rL_[1]; + if(typeof _rM_ !== "number" && 3 === _rM_[0]) {var - fmtty_rest$4=_rQ_[1], + fmtty_rest$4=_rM_[1], match$4=type_format_gen(fmt_rest$4,fmtty_rest$4), fmtty$5=match$4[2], fmt$5=match$4[1]; - return [0,[5,iconv$0,_rS_,_rR_,fmt$5],fmtty$5]} + return [0,[5,iconv$0,_rO_,_rN_,fmt$5],fmtty$5]} throw Type_mismatch; case 6: var @@ -14145,17 +16731,17 @@ prec$1=fmt[3], pad$3=fmt[2], iconv$1=fmt[1], - _rT_=type_padprec(pad$3,prec$1,fmtty), - _rU_=_rT_[3], - _rV_=_rT_[2], - _rW_=_rT_[1]; - if(typeof _rU_ !== "number" && 4 === _rU_[0]) + _rP_=type_padprec(pad$3,prec$1,fmtty), + _rQ_=_rP_[3], + _rR_=_rP_[2], + _rS_=_rP_[1]; + if(typeof _rQ_ !== "number" && 4 === _rQ_[0]) {var - fmtty_rest$5=_rU_[1], + fmtty_rest$5=_rQ_[1], match$5=type_format_gen(fmt_rest$5,fmtty_rest$5), fmtty$6=match$5[2], fmt$6=match$5[1]; - return [0,[6,iconv$1,_rW_,_rV_,fmt$6],fmtty$6]} + return [0,[6,iconv$1,_rS_,_rR_,fmt$6],fmtty$6]} throw Type_mismatch; case 7: var @@ -14163,17 +16749,17 @@ prec$2=fmt[3], pad$4=fmt[2], iconv$2=fmt[1], - _rX_=type_padprec(pad$4,prec$2,fmtty), - _rY_=_rX_[3], - _rZ_=_rX_[2], - _r0_=_rX_[1]; - if(typeof _rY_ !== "number" && 5 === _rY_[0]) + _rT_=type_padprec(pad$4,prec$2,fmtty), + _rU_=_rT_[3], + _rV_=_rT_[2], + _rW_=_rT_[1]; + if(typeof _rU_ !== "number" && 5 === _rU_[0]) {var - fmtty_rest$6=_rY_[1], + fmtty_rest$6=_rU_[1], match$6=type_format_gen(fmt_rest$6,fmtty_rest$6), fmtty$7=match$6[2], fmt$7=match$6[1]; - return [0,[7,iconv$2,_r0_,_rZ_,fmt$7],fmtty$7]} + return [0,[7,iconv$2,_rW_,_rV_,fmt$7],fmtty$7]} throw Type_mismatch; case 8: var @@ -14181,32 +16767,32 @@ prec$3=fmt[3], pad$5=fmt[2], fconv=fmt[1], - _r1_=type_padprec(pad$5,prec$3,fmtty), - _r2_=_r1_[3], - _r3_=_r1_[2], - _r4_=_r1_[1]; - if(typeof _r2_ !== "number" && 6 === _r2_[0]) + _rX_=type_padprec(pad$5,prec$3,fmtty), + _rY_=_rX_[3], + _rZ_=_rX_[2], + _r0_=_rX_[1]; + if(typeof _rY_ !== "number" && 6 === _rY_[0]) {var - fmtty_rest$7=_r2_[1], + fmtty_rest$7=_rY_[1], match$7=type_format_gen(fmt_rest$7,fmtty_rest$7), fmtty$8=match$7[2], fmt$8=match$7[1]; - return [0,[8,fconv,_r4_,_r3_,fmt$8],fmtty$8]} + return [0,[8,fconv,_r0_,_rZ_,fmt$8],fmtty$8]} throw Type_mismatch; case 9: var fmt_rest$8=fmt[2], pad$6=fmt[1], - _r5_=type_padding(pad$6,fmtty), - _r6_=_r5_[2], - _r7_=_r5_[1]; - if(typeof _r6_ !== "number" && 7 === _r6_[0]) + _r1_=type_padding(pad$6,fmtty), + _r2_=_r1_[2], + _r3_=_r1_[1]; + if(typeof _r2_ !== "number" && 7 === _r2_[0]) {var - fmtty_rest$8=_r6_[1], + fmtty_rest$8=_r2_[1], match$8=type_format_gen(fmt_rest$8,fmtty_rest$8), fmtty$9=match$8[2], fmt$9=match$8[1]; - return [0,[9,_r7_,fmt$9],fmtty$9]} + return [0,[9,_r3_,fmt$9],fmtty$9]} throw Type_mismatch; case 10: var @@ -14255,8 +16841,8 @@ fmt_rest$13=fmt[3], sub_fmtty$1=fmt[2], pad_opt$0=fmt[1], - _r8_=[0,erase_rel(sub_fmtty1)]; - if(caml_notequal([0,erase_rel(sub_fmtty$1)],_r8_)) + _r4_=[0,erase_rel(sub_fmtty1)]; + if(caml_notequal([0,erase_rel(sub_fmtty$1)],_r4_)) throw Type_mismatch; var match$13=type_format_gen(fmt_rest$13,erase_rel(fmtty_rest$10)), @@ -14384,17 +16970,17 @@ var sub_fmtty$3=ign[2], pad_opt$2=ign[1], - _r9_=type_ignored_format_substitution(sub_fmtty$3,rest,fmtty), - match$27=_r9_[2], + _r5_=type_ignored_format_substituti(sub_fmtty$3,rest,fmtty), + match$27=_r5_[2], fmtty$22=match$27[2], fmt$22=match$27[1], - sub_fmtty$4=_r9_[1]; + sub_fmtty$4=_r5_[1]; return [0,[23,[9,pad_opt$2,sub_fmtty$4],fmt$22],fmtty$22]; case 10:return type_ignored_param_one(ign,rest,fmtty); default:return type_ignored_param_one(ign,rest,fmtty)} } throw Type_mismatch} - function type_ignored_format_substitution(sub_fmtty,fmt,match) + function type_ignored_format_substituti(sub_fmtty,fmt,match) {if(typeof sub_fmtty === "number") return [0,0,type_format_gen(fmt,match)]; else @@ -14405,7 +16991,7 @@ fmtty_rest=match[1], sub_fmtty_rest=sub_fmtty[1], match$0= - type_ignored_format_substitution(sub_fmtty_rest,fmt,fmtty_rest), + type_ignored_format_substituti(sub_fmtty_rest,fmt,fmtty_rest), fmt$0=match$0[2], sub_fmtty_rest$0=match$0[1]; return [0,[0,sub_fmtty_rest$0],fmt$0]} @@ -14416,7 +17002,7 @@ fmtty_rest$0=match[1], sub_fmtty_rest$1=sub_fmtty[1], match$1= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$1,fmt,fmtty_rest$0), fmt$1=match$1[2], sub_fmtty_rest$2=match$1[1]; @@ -14428,7 +17014,7 @@ fmtty_rest$1=match[1], sub_fmtty_rest$3=sub_fmtty[1], match$2= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$3,fmt,fmtty_rest$1), fmt$2=match$2[2], sub_fmtty_rest$4=match$2[1]; @@ -14440,7 +17026,7 @@ fmtty_rest$2=match[1], sub_fmtty_rest$5=sub_fmtty[1], match$3= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$5,fmt,fmtty_rest$2), fmt$3=match$3[2], sub_fmtty_rest$6=match$3[1]; @@ -14452,7 +17038,7 @@ fmtty_rest$3=match[1], sub_fmtty_rest$7=sub_fmtty[1], match$4= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$7,fmt,fmtty_rest$3), fmt$4=match$4[2], sub_fmtty_rest$8=match$4[1]; @@ -14464,7 +17050,7 @@ fmtty_rest$4=match[1], sub_fmtty_rest$9=sub_fmtty[1], match$5= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$9,fmt,fmtty_rest$4), fmt$5=match$5[2], sub_fmtty_rest$10=match$5[1]; @@ -14476,7 +17062,7 @@ fmtty_rest$5=match[1], sub_fmtty_rest$11=sub_fmtty[1], match$6= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$11,fmt,fmtty_rest$5), fmt$6=match$6[2], sub_fmtty_rest$12=match$6[1]; @@ -14488,7 +17074,7 @@ fmtty_rest$6=match[1], sub_fmtty_rest$13=sub_fmtty[1], match$7= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$13,fmt,fmtty_rest$6), fmt$7=match$7[2], sub_fmtty_rest$14=match$7[1]; @@ -14505,7 +17091,7 @@ throw Type_mismatch; var match$8= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$15,fmt,fmtty_rest$7), fmt$8=match$8[2], sub_fmtty_rest$16=match$8[1]; @@ -14520,11 +17106,11 @@ sub_fmtty_rest$17=sub_fmtty[3], sub2_fmtty$2=sub_fmtty[2], sub1_fmtty$0=sub_fmtty[1], - _rD_=[0,erase_rel(sub1_fmtty)]; - if(caml_notequal([0,erase_rel(sub1_fmtty$0)],_rD_)) + _rz_=[0,erase_rel(sub1_fmtty)]; + if(caml_notequal([0,erase_rel(sub1_fmtty$0)],_rz_)) throw Type_mismatch; - var _rE_=[0,erase_rel(sub2_fmtty$1)]; - if(caml_notequal([0,erase_rel(sub2_fmtty$2)],_rE_)) + var _rA_=[0,erase_rel(sub2_fmtty$1)]; + if(caml_notequal([0,erase_rel(sub2_fmtty$2)],_rA_)) throw Type_mismatch; var sub_fmtty$0=trans(symm(sub1_fmtty),sub2_fmtty$1), @@ -14535,7 +17121,7 @@ caml_call1(f4,0); var match$10= - type_ignored_format_substitution + type_ignored_format_substituti (erase_rel(sub_fmtty_rest$17),fmt,fmtty_rest$8), fmt$9=match$10[2], sub_fmtty_rest$18=match$10[1]; @@ -14549,7 +17135,7 @@ fmtty_rest$9=match[1], sub_fmtty_rest$19=sub_fmtty[1], match$11= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$19,fmt,fmtty_rest$9), fmt$10=match$11[2], sub_fmtty_rest$20=match$11[1]; @@ -14561,7 +17147,7 @@ fmtty_rest$10=match[1], sub_fmtty_rest$21=sub_fmtty[1], match$12= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$21,fmt,fmtty_rest$10), fmt$11=match$12[2], sub_fmtty_rest$22=match$12[1]; @@ -14573,7 +17159,7 @@ fmtty_rest$11=match[1], sub_fmtty_rest$23=sub_fmtty[1], match$13= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$23,fmt,fmtty_rest$11), fmt$12=match$13[2], sub_fmtty_rest$24=match$13[1]; @@ -14585,7 +17171,7 @@ fmtty_rest$12=match[1], sub_fmtty_rest$25=sub_fmtty[1], match$14= - type_ignored_format_substitution + type_ignored_format_substituti (sub_fmtty_rest$25,fmt,fmtty_rest$12), fmt$13=match$14[2], sub_fmtty_rest$26=match$14[1]; @@ -14600,97 +17186,106 @@ padty$0=0 <= width?padty:0, width$0=abs(width); if(width$0 <= len)return str; - var _rC_=2 === padty$0?48:32,res=make(width$0,_rC_); + var _ry_=2 === padty$0?48:32,res=make(width$0,_ry_); switch(padty$0) {case 0:blit$0(str,0,res,0,len);break; case 1:blit$0(str,0,res,width$0 - len | 0,len);break; default: + var switch$0=0; if(0 < len) - {if(43 === caml_string_get(str,0)) - var switch$1=1; - else - if(45 === caml_string_get(str,0)) - var switch$1=1; - else - if(32 === caml_string_get(str,0)) - var switch$1=1; - else - var switch$0=0,switch$1=0; - if(switch$1) + {var switch$1=0; + if + (43 + !== + caml_string_get(str,0) + && + 45 + !== + caml_string_get(str,0) + && + 32 + !== + caml_string_get(str,0)) + {switch$0 = 1;switch$1 = 1} + if(! switch$1) {caml_bytes_set(res,0,caml_string_get(str,0)); - blit$0(str,1,res,(width$0 - len | 0) + 1 | 0,len - 1 | 0); - var switch$0=1}} + blit$0(str,1,res,(width$0 - len | 0) + 1 | 0,len - 1 | 0)}} else - var switch$0=0; - if(! switch$0) - {if(1 < len) - if(48 === caml_string_get(str,0)) - {if(120 === caml_string_get(str,1)) - var switch$3=1; - else - if(88 === caml_string_get(str,1)) - var switch$3=1; - else - var switch$2=0,switch$3=0; - if(switch$3) - {caml_bytes_set(res,1,caml_string_get(str,1)); - blit$0(str,2,res,(width$0 - len | 0) + 2 | 0,len - 2 | 0); - var switch$2=1}} - else - var switch$2=0; + switch$0 = 1; + if(switch$0) + {var switch$2=0; + if(1 < len && 48 === caml_string_get(str,0)) + {var switch$3=0; + if + (120 + !== + caml_string_get(str,1) + && + 88 + !== + caml_string_get(str,1)) + {switch$2 = 1;switch$3 = 1} + if(! switch$3) + {caml_bytes_set(res,1,caml_string_get(str,1)); + blit$0(str,2,res,(width$0 - len | 0) + 2 | 0,len - 2 | 0)}} else - var switch$2=0; - if(! switch$2)blit$0(str,0,res,width$0 - len | 0,len)}} + switch$2 = 1; + if(switch$2)blit$0(str,0,res,width$0 - len | 0,len)}} return caml_string_of_bytes(res)} function fix_int_precision(prec,str) {var prec$0=abs(prec), len=caml_ml_string_length(str), - c=caml_string_get(str,0); + c=caml_string_get(str,0), + switch$0=0; if(58 <= c) - var switch$0=71 <= c?5 < (c - 97 | 0) >>> 0?1:0:65 <= c?0:1; - else - {if(32 === c) - var switch$1=1; + {if(71 <= c) + {if(! (5 < (c - 97 | 0) >>> 0))switch$0 = 1} else + if(65 <= c)switch$0 = 1} + else + {var switch$1=0; + if(32 !== c) if(43 <= c) {var switcher=c - 43 | 0; switch(switcher) {case 5: - if(len < (prec$0 + 2 | 0)) - if(1 < len) - {var - switch$2= - 120 === caml_string_get(str,1) - ?0 - :88 === caml_string_get(str,1)?0:1; - if(! switch$2) - {var res$1=make(prec$0 + 2 | 0,48); - caml_bytes_set(res$1,1,caml_string_get(str,1)); - blit$0(str,2,res$1,(prec$0 - len | 0) + 4 | 0,len - 2 | 0); - return caml_string_of_bytes(res$1)}} - var switch$0=0,switch$1=0; + if(len < (prec$0 + 2 | 0) && 1 < len) + {var switch$2=0; + if + (120 + === + caml_string_get(str,1) + || + 88 + === + caml_string_get(str,1)) + switch$2 = 1; + if(switch$2) + {var res$1=make(prec$0 + 2 | 0,48); + caml_bytes_set(res$1,1,caml_string_get(str,1)); + blit$0(str,2,res$1,(prec$0 - len | 0) + 4 | 0,len - 2 | 0); + return caml_string_of_bytes(res$1)}} + switch$0 = 1; + switch$1 = 1; break; case 0: - case 2:var switch$1=1;break; + case 2:break; case 1: case 3: - case 4:var switch$0=1,switch$1=0;break; - default:var switch$0=0,switch$1=0}} + case 4:switch$1 = 1;break; + default:switch$0 = 1;switch$1 = 1}} else - var switch$0=1,switch$1=0; - if(switch$1) - {if(len < (prec$0 + 1 | 0)) - {var res$0=make(prec$0 + 1 | 0,48); - caml_bytes_set(res$0,0,c); - blit$0(str,1,res$0,(prec$0 - len | 0) + 2 | 0,len - 1 | 0); - return caml_string_of_bytes(res$0)} - var switch$0=1}} - if(! switch$0) - if(len < prec$0) - {var res=make(prec$0,48); - blit$0(str,0,res,prec$0 - len | 0,len); - return caml_string_of_bytes(res)} + switch$1 = 1; + if(! switch$1 && len < (prec$0 + 1 | 0)) + {var res$0=make(prec$0 + 1 | 0,48); + caml_bytes_set(res$0,0,c); + blit$0(str,1,res$0,(prec$0 - len | 0) + 2 | 0,len - 1 | 0); + return caml_string_of_bytes(res$0)}} + if(switch$0 && len < prec$0) + {var res=make(prec$0,48); + blit$0(str,0,res,prec$0 - len | 0,len); + return caml_string_of_bytes(res)} return str} function string_to_caml_string(str) {var @@ -14701,14 +17296,14 @@ return caml_string_of_bytes(res)} function transform_int_alt(iconv,s) {if(13 <= iconv) - {var n=[0,0],_rx_=caml_ml_string_length(s) - 1 | 0,_rw_=0; - if(! (_rx_ < 0)) - {var i$0=_rw_; + {var n=[0,0],_rt_=caml_ml_string_length(s) - 1 | 0,_rs_=0; + if(! (_rt_ < 0)) + {var i$0=_rs_; for(;;) {var match=caml_string_unsafe_get(s,i$0),switcher$0=match - 48 | 0; if(! (9 < switcher$0 >>> 0))n[1]++; - var _rB_=i$0 + 1 | 0; - if(_rx_ !== i$0){var i$0=_rB_;continue} + var _rx_=i$0 + 1 | 0; + if(_rt_ !== i$0){var i$0=_rx_;continue} break}} var digits=n[1], @@ -14718,93 +17313,93 @@ pos=[0,0], put=function(c){caml_bytes_set(buf,pos[1],c);pos[1]++;return 0}, left=[0,((digits - 1 | 0) % 3 | 0) + 1 | 0], - _rz_=caml_ml_string_length(s) - 1 | 0, - _ry_=0; - if(! (_rz_ < 0)) - {var i=_ry_; + _rv_=caml_ml_string_length(s) - 1 | 0, + _ru_=0; + if(! (_rv_ < 0)) + {var i=_ru_; for(;;) {var c=caml_string_unsafe_get(s,i),switcher=c - 48 | 0; if(9 < switcher >>> 0) put(c); else {if(0 === left[1]){put(95);left[1] = 3}left[1] += -1;put(c)} - var _rA_=i + 1 | 0; - if(_rz_ !== i){var i=_rA_;continue} + var _rw_=i + 1 | 0; + if(_rv_ !== i){var i=_rw_;continue} break}} return caml_string_of_bytes(buf)} return s} function convert_int(iconv,n) {switch(iconv) - {case 1:var _rv_=cst_d$3;break; - case 2:var _rv_=cst_d$4;break; - case 4:var _rv_=cst_i$1;break; - case 5:var _rv_=cst_i$2;break; - case 6:var _rv_=cst_x;break; - case 7:var _rv_=cst_x$0;break; - case 8:var _rv_=cst_X$0;break; - case 9:var _rv_=cst_X$1;break; - case 10:var _rv_=cst_o;break; - case 11:var _rv_=cst_o$0;break; + {case 1:var _rr_=cst_d$3;break; + case 2:var _rr_=cst_d$4;break; + case 4:var _rr_=cst_i$1;break; + case 5:var _rr_=cst_i$2;break; + case 6:var _rr_=cst_x;break; + case 7:var _rr_=cst_x$0;break; + case 8:var _rr_=cst_X$0;break; + case 9:var _rr_=cst_X$1;break; + case 10:var _rr_=cst_o;break; + case 11:var _rr_=cst_o$0;break; case 0: - case 13:var _rv_=cst_d$2;break; + case 13:var _rr_=cst_d$2;break; case 3: - case 14:var _rv_=cst_i$0;break; - default:var _rv_=cst_u} - return transform_int_alt(iconv,caml_format_int(_rv_,n))} + case 14:var _rr_=cst_i$0;break; + default:var _rr_=cst_u} + return transform_int_alt(iconv,caml_format_int(_rr_,n))} function convert_int32(iconv,n) {switch(iconv) - {case 1:var _ru_=cst_ld$0;break; - case 2:var _ru_=cst_ld$1;break; - case 4:var _ru_=cst_li$1;break; - case 5:var _ru_=cst_li$2;break; - case 6:var _ru_=cst_lx;break; - case 7:var _ru_=cst_lx$0;break; - case 8:var _ru_=cst_lX;break; - case 9:var _ru_=cst_lX$0;break; - case 10:var _ru_=cst_lo;break; - case 11:var _ru_=cst_lo$0;break; + {case 1:var _rq_=cst_ld$0;break; + case 2:var _rq_=cst_ld$1;break; + case 4:var _rq_=cst_li$1;break; + case 5:var _rq_=cst_li$2;break; + case 6:var _rq_=cst_lx;break; + case 7:var _rq_=cst_lx$0;break; + case 8:var _rq_=cst_lX;break; + case 9:var _rq_=cst_lX$0;break; + case 10:var _rq_=cst_lo;break; + case 11:var _rq_=cst_lo$0;break; case 0: - case 13:var _ru_=cst_ld;break; + case 13:var _rq_=cst_ld;break; case 3: - case 14:var _ru_=cst_li$0;break; - default:var _ru_=cst_lu} - return transform_int_alt(iconv,caml_format_int(_ru_,n))} + case 14:var _rq_=cst_li$0;break; + default:var _rq_=cst_lu} + return transform_int_alt(iconv,caml_format_int(_rq_,n))} function convert_nativeint(iconv,n) {switch(iconv) - {case 1:var _rt_=cst_nd$0;break; - case 2:var _rt_=cst_nd$1;break; - case 4:var _rt_=cst_ni$1;break; - case 5:var _rt_=cst_ni$2;break; - case 6:var _rt_=cst_nx;break; - case 7:var _rt_=cst_nx$0;break; - case 8:var _rt_=cst_nX;break; - case 9:var _rt_=cst_nX$0;break; - case 10:var _rt_=cst_no;break; - case 11:var _rt_=cst_no$0;break; + {case 1:var _rp_=cst_nd$0;break; + case 2:var _rp_=cst_nd$1;break; + case 4:var _rp_=cst_ni$1;break; + case 5:var _rp_=cst_ni$2;break; + case 6:var _rp_=cst_nx;break; + case 7:var _rp_=cst_nx$0;break; + case 8:var _rp_=cst_nX;break; + case 9:var _rp_=cst_nX$0;break; + case 10:var _rp_=cst_no;break; + case 11:var _rp_=cst_no$0;break; case 0: - case 13:var _rt_=cst_nd;break; + case 13:var _rp_=cst_nd;break; case 3: - case 14:var _rt_=cst_ni$0;break; - default:var _rt_=cst_nu} - return transform_int_alt(iconv,caml_format_int(_rt_,n))} + case 14:var _rp_=cst_ni$0;break; + default:var _rp_=cst_nu} + return transform_int_alt(iconv,caml_format_int(_rp_,n))} function convert_int64(iconv,n) {switch(iconv) - {case 1:var _rs_=cst_Ld$0;break; - case 2:var _rs_=cst_Ld$1;break; - case 4:var _rs_=cst_Li$1;break; - case 5:var _rs_=cst_Li$2;break; - case 6:var _rs_=cst_Lx;break; - case 7:var _rs_=cst_Lx$0;break; - case 8:var _rs_=cst_LX;break; - case 9:var _rs_=cst_LX$0;break; - case 10:var _rs_=cst_Lo;break; - case 11:var _rs_=cst_Lo$0;break; + {case 1:var _ro_=cst_Ld$0;break; + case 2:var _ro_=cst_Ld$1;break; + case 4:var _ro_=cst_Li$1;break; + case 5:var _ro_=cst_Li$2;break; + case 6:var _ro_=cst_Lx;break; + case 7:var _ro_=cst_Lx$0;break; + case 8:var _ro_=cst_LX;break; + case 9:var _ro_=cst_LX$0;break; + case 10:var _ro_=cst_Lo;break; + case 11:var _ro_=cst_Lo$0;break; case 0: - case 13:var _rs_=cst_Ld;break; + case 13:var _ro_=cst_Ld;break; case 3: - case 14:var _rs_=cst_Li$0;break; - default:var _rs_=cst_Lu} - return transform_int_alt(iconv,caml_int64_format(_rs_,n))} + case 14:var _ro_=cst_Li$0;break; + default:var _ro_=cst_Lu} + return transform_int_alt(iconv,caml_int64_format(_ro_,n))} function convert_float(fconv,prec$0,x) {if(6 <= fconv[2]) {switch(fconv[1]) @@ -14820,7 +17415,7 @@ buffer_add_char(buf,37); bprint_fconv_flag(buf,fconv); buffer_add_char(buf,46); - buffer_add_string(buf,caml_new_string("" + prec)); + buffer_add_string(buf,caml_string_of_jsbytes("" + prec)); buffer_add_char(buf,symb); var str$0=caml_format_float(buffer_contents(buf),x); if(5 === fconv[2]) @@ -14832,16 +17427,16 @@ var i=0; for(;;) {if(i === len) - var _rr_=0; + var _rn_=0; else - {var - match=caml_string_get(str$0,i), - _rq_=match - 46 | 0, - switch$0= - 23 < _rq_ >>> 0?55 === _rq_?1:0:21 < (_rq_ - 1 | 0) >>> 0?1:0; + {var match=caml_string_get(str$0,i),_rm_=match - 46 | 0,switch$0=0; + if(23 < _rm_ >>> 0) + {if(55 === _rm_)switch$0 = 1} + else + if(21 < (_rm_ - 1 | 0) >>> 0)switch$0 = 1; if(! switch$0){var i$0=i + 1 | 0,i=i$0;continue} - var _rr_=1} - return _rr_?str$0:symbol(str$0,cst$28)}} + var _rn_=1} + return _rn_?str$0:symbol(str$0,cst$28)}} return str$0} function string_of_fmtty(fmtty) {var buf=buffer_create(16); @@ -14863,43 +17458,43 @@ return make_printf(k,[4,acc,str],fmt)}} else {if(0 === pad[0]) - {var _rn_=pad[2],_ro_=pad[1]; + {var _rj_=pad[2],_rk_=pad[1]; if(typeof match === "number") return 0 === match ?function(x) - {var str=fix_padding(_ro_,_rn_,caml_call2(trans,iconv,x)); + {var str=fix_padding(_rk_,_rj_,caml_call2(trans,iconv,x)); return make_printf(k,[4,acc,str],fmt)} :function(p,x) {var str= fix_padding - (_ro_,_rn_,fix_int_precision(p,caml_call2(trans,iconv,x))); + (_rk_,_rj_,fix_int_precision(p,caml_call2(trans,iconv,x))); return make_printf(k,[4,acc,str],fmt)}; var p$0=match[1]; return function(x) {var str= fix_padding - (_ro_,_rn_,fix_int_precision(p$0,caml_call2(trans,iconv,x))); + (_rk_,_rj_,fix_int_precision(p$0,caml_call2(trans,iconv,x))); return make_printf(k,[4,acc,str],fmt)}} - var _rp_=pad[1]; + var _rl_=pad[1]; if(typeof match === "number") return 0 === match ?function(w,x) - {var str=fix_padding(_rp_,w,caml_call2(trans,iconv,x)); + {var str=fix_padding(_rl_,w,caml_call2(trans,iconv,x)); return make_printf(k,[4,acc,str],fmt)} :function(w,p,x) {var str= fix_padding - (_rp_,w,fix_int_precision(p,caml_call2(trans,iconv,x))); + (_rl_,w,fix_int_precision(p,caml_call2(trans,iconv,x))); return make_printf(k,[4,acc,str],fmt)}; var p$1=match[1]; return function(w,x) {var str= fix_padding - (_rp_,w,fix_int_precision(p$1,caml_call2(trans,iconv,x))); + (_rl_,w,fix_int_precision(p$1,caml_call2(trans,iconv,x))); return make_printf(k,[4,acc,str],fmt)}}} function make_padding(k,acc,fmt,pad,trans) {if(typeof pad === "number") @@ -14990,35 +17585,35 @@ return make_printf(k$0,[4,acc$0,str],rest$7)}} else {if(0 === pad$5[0]) - {var _rk_=pad$5[2],_rl_=pad$5[1]; + {var _rg_=pad$5[2],_rh_=pad$5[1]; if(typeof prec$3 === "number") return 0 === prec$3 ?function(x) {var str=convert_float(fconv,default_float_precision(fconv),x), - str$0=fix_padding(_rl_,_rk_,str); + str$0=fix_padding(_rh_,_rg_,str); return make_printf(k$0,[4,acc$0,str$0],rest$7)} :function(p,x) - {var str=fix_padding(_rl_,_rk_,convert_float(fconv,p,x)); + {var str=fix_padding(_rh_,_rg_,convert_float(fconv,p,x)); return make_printf(k$0,[4,acc$0,str],rest$7)}; var p$0=prec$3[1]; return function(x) - {var str=fix_padding(_rl_,_rk_,convert_float(fconv,p$0,x)); + {var str=fix_padding(_rh_,_rg_,convert_float(fconv,p$0,x)); return make_printf(k$0,[4,acc$0,str],rest$7)}} - var _rm_=pad$5[1]; + var _ri_=pad$5[1]; if(typeof prec$3 === "number") return 0 === prec$3 ?function(w,x) {var str=convert_float(fconv,default_float_precision(fconv),x), - str$0=fix_padding(_rm_,w,str); + str$0=fix_padding(_ri_,w,str); return make_printf(k$0,[4,acc$0,str$0],rest$7)} :function(w,p,x) - {var str=fix_padding(_rm_,w,convert_float(fconv,p,x)); + {var str=fix_padding(_ri_,w,convert_float(fconv,p,x)); return make_printf(k$0,[4,acc$0,str],rest$7)}; var p$1=prec$3[1]; return function(w,x) - {var str=fix_padding(_rm_,w,convert_float(fconv,p$1,x)); + {var str=fix_padding(_ri_,w,convert_float(fconv,p$1,x)); return make_printf(k$0,[4,acc$0,str],rest$7)}} case 9: var rest$8=fmt$0[2],pad$6=fmt$0[1]; @@ -15073,11 +17668,11 @@ fmt$0=fmt$4; continue; case 18: - var _ri_=fmt$0[1]; - if(0 === _ri_[0]) + var _re_=fmt$0[1]; + if(0 === _re_[0]) {var rest$13=fmt$0[2], - match=_ri_[1], + match=_re_[1], fmt$5=match[1], k$3= function(acc,k,rest) @@ -15091,7 +17686,7 @@ continue} var rest$14=fmt$0[2], - match$0=_ri_[1], + match$0=_re_[1], fmt$6=match$0[1], k$4= function(acc,k,rest) @@ -15127,12 +17722,12 @@ rest$19=fmt$0[3], f=fmt$0[2], arity=fmt$0[1], - _rj_=caml_call1(f,0); + _rf_=caml_call1(f,0); if(counter < 50) {var counter$0=counter + 1 | 0; - return make_custom$0(counter$0,k$0,acc$0,rest$19,arity,_rj_)} + return make_custom$0(counter$0,k$0,acc$0,rest$19,arity,_rf_)} return caml_trampoline_return - (make_custom$0,[0,k$0,acc$0,rest$19,arity,_rj_])}} + (make_custom$0,[0,k$0,acc$0,rest$19,arity,_rf_])}} function make_ignored_param$0(counter,k,acc,ign,fmt) {if(typeof ign === "number") switch(ign) @@ -15260,7 +17855,7 @@ {return make_from_fmtty(k,acc,concat_fmtty(ty,rest$8),fmt)}; case 10: var rest$9=fmtty[1]; - return function(param,_rh_) + return function(param,_rd_) {return make_from_fmtty(k,acc,rest$9,fmt)}; case 11: var rest$10=fmtty[1]; @@ -15271,21 +17866,21 @@ case 13:throw [0,Assert_failure,_as_]; default:throw [0,Assert_failure,_at_]}} function make_invalid_arg(counter,k,acc,fmt) - {var _rg_=[8,acc,cst_Printf_bad_conversion$0]; + {var _rc_=[8,acc,cst_Printf_bad_conversion$0]; if(counter < 50) {var counter$0=counter + 1 | 0; - return make_printf$0(counter$0,k,_rg_,fmt)} - return caml_trampoline_return(make_printf$0,[0,k,_rg_,fmt])} + return make_printf$0(counter$0,k,_rc_,fmt)} + return caml_trampoline_return(make_printf$0,[0,k,_rc_,fmt])} function make_custom$0(counter,k,acc,rest,arity,f) {if(arity) {var arity$0=arity[1]; return function(x) {return make_custom(k,acc,rest,arity$0,caml_call1(f,x))}} - var _rf_=[4,acc,f]; + var _rb_=[4,acc,f]; if(counter < 50) {var counter$0=counter + 1 | 0; - return make_printf$0(counter$0,k,_rf_,rest)} - return caml_trampoline_return(make_printf$0,[0,k,_rf_,rest])} + return make_printf$0(counter$0,k,_rb_,rest)} + return caml_trampoline_return(make_printf$0,[0,k,_rb_,rest])} function make_printf(k,acc,fmt) {return caml_trampoline(make_printf$0(0,k,acc,fmt))} function make_ignored_param(k,acc,ign,fmt) @@ -15298,32 +17893,32 @@ {if(typeof pad === "number") {if(typeof prec === "number") {if(0 === prec) - {var _qN_=make_iprintf(k,o,fmt);return function(_q5_){return _qN_}} - var _qO_=make_iprintf(k,o,fmt),_qP_=function(_q4_){return _qO_}; - return function(_q3_){return _qP_}} - var _qQ_=make_iprintf(k,o,fmt); - return function(_q2_){return _qQ_}} + {var _qJ_=make_iprintf(k,o,fmt);return function(_q1_){return _qJ_}} + var _qK_=make_iprintf(k,o,fmt),_qL_=function(_q0_){return _qK_}; + return function(_qZ_){return _qL_}} + var _qM_=make_iprintf(k,o,fmt); + return function(_qY_){return _qM_}} else {if(0 === pad[0]) {if(typeof prec === "number") {if(0 === prec) - {var _qR_=make_iprintf(k,o,fmt); - return function(_re_){return _qR_}} - var _qS_=make_iprintf(k,o,fmt),_qT_=function(_rd_){return _qS_}; - return function(_rc_){return _qT_}} - var _qU_=make_iprintf(k,o,fmt); - return function(_rb_){return _qU_}} + {var _qN_=make_iprintf(k,o,fmt); + return function(_ra_){return _qN_}} + var _qO_=make_iprintf(k,o,fmt),_qP_=function(_q$_){return _qO_}; + return function(_q__){return _qP_}} + var _qQ_=make_iprintf(k,o,fmt); + return function(_q9_){return _qQ_}} if(typeof prec === "number") {if(0 === prec) - {var _qV_=make_iprintf(k,o,fmt),_qW_=function(_ra_){return _qV_}; - return function(_q$_){return _qW_}} + {var _qR_=make_iprintf(k,o,fmt),_qS_=function(_q8_){return _qR_}; + return function(_q7_){return _qS_}} var - _qX_=make_iprintf(k,o,fmt), - _qY_=function(_q__){return _qX_}, - _qZ_=function(_q9_){return _qY_}; - return function(_q8_){return _qZ_}} - var _q0_=make_iprintf(k,o,fmt),_q1_=function(_q7_){return _q0_}; - return function(_q6_){return _q1_}}} + _qT_=make_iprintf(k,o,fmt), + _qU_=function(_q6_){return _qT_}, + _qV_=function(_q5_){return _qU_}; + return function(_q4_){return _qV_}} + var _qW_=make_iprintf(k,o,fmt),_qX_=function(_q3_){return _qW_}; + return function(_q2_){return _qX_}}} function make_iprintf$0(counter,k,o,fmt) {var k$0=k,fmt$0=fmt; for(;;) @@ -15332,39 +17927,39 @@ else switch(fmt$0[0]) {case 0: - var rest=fmt$0[1],_p4_=make_iprintf(k$0,o,rest); - return function(_qM_){return _p4_}; + var rest=fmt$0[1],_p0_=make_iprintf(k$0,o,rest); + return function(_qI_){return _p0_}; case 1: - var rest$0=fmt$0[1],_p5_=make_iprintf(k$0,o,rest$0); - return function(_qL_){return _p5_}; + var rest$0=fmt$0[1],_p1_=make_iprintf(k$0,o,rest$0); + return function(_qH_){return _p1_}; case 2: - var _p6_=fmt$0[1]; - if(typeof _p6_ === "number") - {var rest$1=fmt$0[2],_p7_=make_iprintf(k$0,o,rest$1); - return function(_qH_){return _p7_}} + var _p2_=fmt$0[1]; + if(typeof _p2_ === "number") + {var rest$1=fmt$0[2],_p3_=make_iprintf(k$0,o,rest$1); + return function(_qD_){return _p3_}} else - {if(0 === _p6_[0]) - {var rest$2=fmt$0[2],_p8_=make_iprintf(k$0,o,rest$2); - return function(_qK_){return _p8_}} + {if(0 === _p2_[0]) + {var rest$2=fmt$0[2],_p4_=make_iprintf(k$0,o,rest$2); + return function(_qG_){return _p4_}} var rest$3=fmt$0[2], - _p9_=make_iprintf(k$0,o,rest$3), - _p__=function(_qJ_){return _p9_}; - return function(_qI_){return _p__}} + _p5_=make_iprintf(k$0,o,rest$3), + _p6_=function(_qF_){return _p5_}; + return function(_qE_){return _p6_}} case 3: - var _p$_=fmt$0[1]; - if(typeof _p$_ === "number") - {var rest$4=fmt$0[2],_qa_=make_iprintf(k$0,o,rest$4); - return function(_qD_){return _qa_}} + var _p7_=fmt$0[1]; + if(typeof _p7_ === "number") + {var rest$4=fmt$0[2],_p8_=make_iprintf(k$0,o,rest$4); + return function(_qz_){return _p8_}} else - {if(0 === _p$_[0]) - {var rest$5=fmt$0[2],_qb_=make_iprintf(k$0,o,rest$5); - return function(_qG_){return _qb_}} + {if(0 === _p7_[0]) + {var rest$5=fmt$0[2],_p9_=make_iprintf(k$0,o,rest$5); + return function(_qC_){return _p9_}} var rest$6=fmt$0[2], - _qc_=make_iprintf(k$0,o,rest$6), - _qd_=function(_qF_){return _qc_}; - return function(_qE_){return _qd_}} + _p__=make_iprintf(k$0,o,rest$6), + _p$_=function(_qB_){return _p__}; + return function(_qA_){return _p$_}} case 4: var rest$7=fmt$0[4],prec=fmt$0[3],pad=fmt$0[2]; return fn_of_padding_precision(k$0,o,rest$7,pad,prec); @@ -15381,25 +17976,25 @@ var rest$11=fmt$0[4],prec$3=fmt$0[3],pad$3=fmt$0[2]; return fn_of_padding_precision(k$0,o,rest$11,pad$3,prec$3); case 9: - var _qe_=fmt$0[1]; - if(typeof _qe_ === "number") - {var rest$12=fmt$0[2],_qf_=make_iprintf(k$0,o,rest$12); - return function(_qz_){return _qf_}} + var _qa_=fmt$0[1]; + if(typeof _qa_ === "number") + {var rest$12=fmt$0[2],_qb_=make_iprintf(k$0,o,rest$12); + return function(_qv_){return _qb_}} else - {if(0 === _qe_[0]) - {var rest$13=fmt$0[2],_qg_=make_iprintf(k$0,o,rest$13); - return function(_qC_){return _qg_}} + {if(0 === _qa_[0]) + {var rest$13=fmt$0[2],_qc_=make_iprintf(k$0,o,rest$13); + return function(_qy_){return _qc_}} var rest$14=fmt$0[2], - _qh_=make_iprintf(k$0,o,rest$14), - _qi_=function(_qB_){return _qh_}; - return function(_qA_){return _qi_}} + _qd_=make_iprintf(k$0,o,rest$14), + _qe_=function(_qx_){return _qd_}; + return function(_qw_){return _qe_}} case 10:var fmt$1=fmt$0[1],fmt$0=fmt$1;continue; case 11:var fmt$2=fmt$0[2],fmt$0=fmt$2;continue; case 12:var fmt$3=fmt$0[2],fmt$0=fmt$3;continue; case 13: - var rest$15=fmt$0[3],_qj_=make_iprintf(k$0,o,rest$15); - return function(_qy_){return _qj_}; + var rest$15=fmt$0[3],_qf_=make_iprintf(k$0,o,rest$15); + return function(_qu_){return _qf_}; case 14: var rest$16=fmt$0[3],fmtty=fmt$0[2]; return function(param) @@ -15408,19 +18003,19 @@ case 15: var rest$17=fmt$0[1], - _qk_=make_iprintf(k$0,o,rest$17), - _ql_=function(_qx_){return _qk_}; - return function(_qw_){return _ql_}; + _qg_=make_iprintf(k$0,o,rest$17), + _qh_=function(_qt_){return _qg_}; + return function(_qs_){return _qh_}; case 16: - var rest$18=fmt$0[1],_qm_=make_iprintf(k$0,o,rest$18); - return function(_qv_){return _qm_}; + var rest$18=fmt$0[1],_qi_=make_iprintf(k$0,o,rest$18); + return function(_qr_){return _qi_}; case 17:var fmt$4=fmt$0[2],fmt$0=fmt$4;continue; case 18: - var _qn_=fmt$0[1]; - if(0 === _qn_[0]) + var _qj_=fmt$0[1]; + if(0 === _qj_[0]) {var rest$19=fmt$0[2], - match=_qn_[1], + match=_qj_[1], fmt$5=match[1], k$3= function(k,rest) @@ -15431,7 +18026,7 @@ continue} var rest$20=fmt$0[2], - match$0=_qn_[1], + match$0=_qj_[1], fmt$6=match$0[1], k$4= function(k,rest) @@ -15442,18 +18037,18 @@ continue; case 19:throw [0,Assert_failure,_au_]; case 20: - var rest$21=fmt$0[3],_qo_=make_iprintf(k$0,o,rest$21); - return function(_qu_){return _qo_}; + var rest$21=fmt$0[3],_qk_=make_iprintf(k$0,o,rest$21); + return function(_qq_){return _qk_}; case 21: - var rest$22=fmt$0[2],_qp_=make_iprintf(k$0,o,rest$22); - return function(_qt_){return _qp_}; + var rest$22=fmt$0[2],_ql_=make_iprintf(k$0,o,rest$22); + return function(_qp_){return _ql_}; case 22: - var rest$23=fmt$0[1],_qq_=make_iprintf(k$0,o,rest$23); - return function(_qs_){return _qq_}; + var rest$23=fmt$0[1],_qm_=make_iprintf(k$0,o,rest$23); + return function(_qo_){return _qm_}; case 23: - var rest$24=fmt$0[2],ign=fmt$0[1],_qr_=0; + var rest$24=fmt$0[2],ign=fmt$0[1],_qn_=0; return make_ignored_param - (function(param){return caml_call1(k$0,o)},_qr_,ign,rest$24); + (function(param){return caml_call1(k$0,o)},_qn_,ign,rest$24); default: var rest$25=fmt$0[3],arity=fmt$0[1]; if(counter < 50) @@ -15463,8 +18058,8 @@ (fn_of_custom_arity$0,[0,k$0,o,rest$25,arity])}} function fn_of_custom_arity$0(counter,k,o,fmt,param) {if(param) - {var arity=param[1],_p2_=fn_of_custom_arity(k,o,fmt,arity); - return function(_p3_){return _p2_}} + {var arity=param[1],_pY_=fn_of_custom_arity(k,o,fmt,arity); + return function(_pZ_){return _pY_}} if(counter < 50) {var counter$0=counter + 1 | 0; return make_iprintf$0(counter$0,k,o,fmt)} @@ -15488,15 +18083,15 @@ output_acc(o,p); return output_string(o,s); case 1: - var _p0_=acc$0[2],_p1_=acc$0[1]; - if(0 === _p0_[0]) - {var acc$1=_p0_[1]; - output_acc(o,_p1_); + var _pW_=acc$0[2],_pX_=acc$0[1]; + if(0 === _pW_[0]) + {var acc$1=_pW_[1]; + output_acc(o,_pX_); output_string(o,cst$29); var acc$0=acc$1; continue} - var acc$2=_p0_[1]; - output_acc(o,_p1_); + var acc$2=_pW_[1]; + output_acc(o,_pX_); output_string(o,cst$30); var acc$0=acc$2; continue; @@ -15533,15 +18128,15 @@ bufput_acc(b,p); return add_string(b,s); case 1: - var _pY_=acc$0[2],_pZ_=acc$0[1]; - if(0 === _pY_[0]) - {var acc$1=_pY_[1]; - bufput_acc(b,_pZ_); + var _pU_=acc$0[2],_pV_=acc$0[1]; + if(0 === _pU_[0]) + {var acc$1=_pU_[1]; + bufput_acc(b,_pV_); add_string(b,cst$31); var acc$0=acc$1; continue} - var acc$2=_pY_[1]; - bufput_acc(b,_pZ_); + var acc$2=_pU_[1]; + bufput_acc(b,_pV_); add_string(b,cst$32); var acc$0=acc$2; continue; @@ -15576,15 +18171,15 @@ strput_acc(b,p); return add_string(b,s); case 1: - var _pW_=acc$0[2],_pX_=acc$0[1]; - if(0 === _pW_[0]) - {var acc$1=_pW_[1]; - strput_acc(b,_pX_); + var _pS_=acc$0[2],_pT_=acc$0[1]; + if(0 === _pS_[0]) + {var acc$1=_pS_[1]; + strput_acc(b,_pT_); add_string(b,cst$33); var acc$0=acc$1; continue} - var acc$2=_pW_[1]; - strput_acc(b,_pX_); + var acc$2=_pS_[1]; + strput_acc(b,_pT_); add_string(b,cst$34); var acc$0=acc$2; continue; @@ -15618,7 +18213,7 @@ for(;;) {if(i$0 === len)return i$0; var match=caml_string_get(str,i$0); - if(9 !== match)if(32 !== match)return i$0; + if(9 !== match && 32 !== match)return i$0; var i$1=i$0 + 1 | 0,i$0=i$1; continue}} function parse_lword(i,j) @@ -15633,9 +18228,11 @@ {var j$0=j; for(;;) {if(j$0 === len)return j$0; - var - match=caml_string_get(str,j$0), - switch$0=48 <= match?58 <= match?0:1:45 === match?1:0; + var match=caml_string_get(str,j$0),switch$0=0; + if(48 <= match) + {if(! (58 <= match))switch$0 = 1} + else + if(45 === match)switch$0 = 1; if(switch$0){var j$1=j$0 + 1 | 0,j$0=j$1;continue} return j$0}} var @@ -15649,34 +18246,31 @@ else try {var - _pU_=caml_int_of_string(sub$0(str,nstart,nend - nstart | 0)), - indent=_pU_} - catch(_pV_) - {_pV_ = caml_wrap_exception(_pV_); - if(_pV_[1] !== Failure)throw _pV_; + _pQ_=caml_int_of_string(sub$0(str,nstart,nend - nstart | 0)), + indent=_pQ_} + catch(_pR_) + {_pR_ = caml_wrap_exception(_pR_); + if(_pR_[1] !== Failure)throw _pR_; var indent=invalid_box(0)} var exp_end=parse_spaces(nend); if(exp_end !== len)invalid_box(0); - if(caml_string_notequal(box_name,cst$36)) - if(caml_string_notequal(box_name,cst_b$0)) - if(caml_string_notequal(box_name,cst_h)) - if(caml_string_notequal(box_name,cst_hov)) - if(caml_string_notequal(box_name,cst_hv)) - if(caml_string_notequal(box_name,cst_v)) - var box_type=invalid_box(0),switch$0=1; - else - var box_type=1,switch$0=1; - else - var box_type=2,switch$0=1; - else - var box_type=3,switch$0=1; - else - var box_type=0,switch$0=1; - else - var switch$0=0; + var switch$0=0; + if + (caml_string_notequal(box_name,cst$36) + && + caml_string_notequal(box_name,cst_b$0)) + var + box_type= + caml_string_notequal(box_name,cst_h) + ?caml_string_notequal(box_name,cst_hov) + ?caml_string_notequal(box_name,cst_hv) + ?caml_string_notequal(box_name,cst_v)?invalid_box(0):1 + :2 + :3 + :0; else - var switch$0=0; - if(! switch$0)var box_type=4; + switch$0 = 1; + if(switch$0)var box_type=4; return [0,indent,box_type]} function make_padding_fmt_ebb(pad,fmt) {if(typeof pad === "number") @@ -15727,62 +18321,53 @@ if(str_ind$2 === end_ind)unexpected_end_of_format(end_ind); var match$1=caml_string_get(str,str_ind$2), - _pT_= + _pP_= 95 === match$1 ?parse_flags(str_ind,str_ind$2 + 1 | 0,end_ind,1) :parse_flags(str_ind,str_ind$2,end_ind,0), - fmt_rest=_pT_[1]; + fmt_rest=_pP_[1]; return add_literal(lit_start,str_ind,fmt_rest)} if(64 === match) {var str_ind$0=str_ind + 1 | 0; if(str_ind$0 === end_ind) var match$0=_aL_; else - {var c=caml_string_get(str,str_ind$0); + {var c=caml_string_get(str,str_ind$0),switch$0=0; if(65 <= c) if(94 <= c) {var switcher=c - 123 | 0; if(2 < switcher >>> 0) - var switch$0=0; + switch$0 = 1; else switch(switcher) {case 0: - var - match$0=parse_tag(1,str_ind$0 + 1 | 0,end_ind), - switch$0=1; - break; - case 1:var switch$0=0;break; + var match$0=parse_tag(1,str_ind$0 + 1 | 0,end_ind);break; + case 1:switch$0 = 1;break; default: var match$3=parse(str_ind$0 + 1 | 0,end_ind), fmt_rest$2=match$3[1], - match$0=[0,[17,1,fmt_rest$2]], - switch$0=1}} + match$0=[0,[17,1,fmt_rest$2]]}} else if(91 <= c) {var switcher$0=c - 91 | 0; switch(switcher$0) {case 0: - var - match$0=parse_tag(0,str_ind$0 + 1 | 0,end_ind), - switch$0=1; - break; - case 1:var switch$0=0;break; + var match$0=parse_tag(0,str_ind$0 + 1 | 0,end_ind);break; + case 1:switch$0 = 1;break; default: var match$4=parse(str_ind$0 + 1 | 0,end_ind), fmt_rest$3=match$4[1], - match$0=[0,[17,0,fmt_rest$3]], - switch$0=1}} + match$0=[0,[17,0,fmt_rest$3]]}} else - var switch$0=0; + switch$0 = 1; else if(10 === c) var match$5=parse(str_ind$0 + 1 | 0,end_ind), fmt_rest$4=match$5[1], - match$0=[0,[17,3,fmt_rest$4]], - switch$0=1; + match$0=[0,[17,3,fmt_rest$4]]; else if(32 <= c) {var switcher$1=c - 32 | 0; @@ -15791,71 +18376,63 @@ var match$6=parse(str_ind$0 + 1 | 0,end_ind), fmt_rest$5=match$6[1], - match$0=[0,[17,_aM_,fmt_rest$5]], - switch$0=1; + match$0=[0,[17,_aM_,fmt_rest$5]]; break; case 5: - if((str_ind$0 + 1 | 0) < end_ind) - if(37 === caml_string_get(str,str_ind$0 + 1 | 0)) - var + var switch$1=0; + if + ((str_ind$0 + 1 | 0) + < + end_ind + && + 37 + === + caml_string_get(str,str_ind$0 + 1 | 0)) + {var match$7=parse(str_ind$0 + 2 | 0,end_ind), fmt_rest$6=match$7[1], - match$0=[0,[17,6,fmt_rest$6]], - switch$0=1, - switch$1=0; - else - var switch$1=1; - else - var switch$1=1; - if(switch$1) + match$0=[0,[17,6,fmt_rest$6]]; + switch$1 = 1} + if(! switch$1) var match$8=parse(str_ind$0,end_ind), fmt_rest$7=match$8[1], - match$0=[0,[12,64,fmt_rest$7]], - switch$0=1; + match$0=[0,[12,64,fmt_rest$7]]; break; case 12: var match$9=parse(str_ind$0 + 1 | 0,end_ind), fmt_rest$8=match$9[1], - match$0=[0,[17,_aN_,fmt_rest$8]], - switch$0=1; + match$0=[0,[17,_aN_,fmt_rest$8]]; break; case 14: var match$10=parse(str_ind$0 + 1 | 0,end_ind), fmt_rest$9=match$10[1], - match$0=[0,[17,4,fmt_rest$9]], - switch$0=1; + match$0=[0,[17,4,fmt_rest$9]]; break; case 27: - var - match$0=parse_good_break(str_ind$0 + 1 | 0,end_ind), - switch$0=1; + var match$0=parse_good_break(str_ind$0 + 1 | 0,end_ind); break; case 28: - var - match$0=parse_magic_size(str_ind$0 + 1 | 0,end_ind), - switch$0=1; + var match$0=parse_magic_size(str_ind$0 + 1 | 0,end_ind); break; case 31: var match$11=parse(str_ind$0 + 1 | 0,end_ind), fmt_rest$10=match$11[1], - match$0=[0,[17,2,fmt_rest$10]], - switch$0=1; + match$0=[0,[17,2,fmt_rest$10]]; break; case 32: var match$12=parse(str_ind$0 + 1 | 0,end_ind), fmt_rest$11=match$12[1], - match$0=[0,[17,5,fmt_rest$11]], - switch$0=1; + match$0=[0,[17,5,fmt_rest$11]]; break; - default:var switch$0=0}} + default:switch$0 = 1}} else - var switch$0=0; - if(! switch$0) + switch$0 = 1; + if(switch$0) var match$2=parse(str_ind$0 + 1 | 0,end_ind), fmt_rest$1=match$2[1], @@ -15882,7 +18459,7 @@ function get_padprec(param){pad_used[1] = 1;return padprec} function get_int_pad(param) {var pad=get_pad(0),match=get_prec(0); - if(typeof match === "number")if(0 === match)return pad; + if(typeof match === "number" && 0 === match)return pad; if(typeof pad === "number") return 0; else @@ -15934,16 +18511,16 @@ return incompatible_flag(pct_ind,str_ind,c,cst$38)}} function get_pad_opt(c){return opt_of_pad(c,get_pad(0))} function get_padprec_opt(c){return opt_of_pad(c,get_padprec(0))} + var switch$0=0; if(124 <= symb) - var switch$0=0; + switch$0 = 1; else switch(symb) {case 33: var match$6=parse(str_ind,end_ind), fmt_rest$5=match$6[1], - fmt_result=[0,[10,fmt_rest$5]], - switch$0=1; + fmt_result=[0,[10,fmt_rest$5]]; break; case 40: var @@ -15956,19 +18533,18 @@ if(get_ign(0)) var ignored$2=[9,get_pad_opt(95),sub_fmtty], - _pq_=[0,[23,ignored$2,fmt_rest$7]]; + _pm_=[0,[23,ignored$2,fmt_rest$7]]; else - var _pq_=[0,[14,get_pad_opt(40),sub_fmtty,fmt_rest$7]]; - var fmt_result=_pq_,switch$0=1; + var _pm_=[0,[14,get_pad_opt(40),sub_fmtty,fmt_rest$7]]; + var fmt_result=_pm_; break; - case 44:var fmt_result=parse(str_ind,end_ind),switch$0=1;break; + case 44:var fmt_result=parse(str_ind,end_ind);break; case 67: var match$12=parse(str_ind,end_ind), fmt_rest$10=match$12[1], - _ps_=get_ign(0)?[0,[23,1,fmt_rest$10]]:[0,[1,fmt_rest$10]], - fmt_result=_ps_, - switch$0=1; + _po_=get_ign(0)?[0,[23,1,fmt_rest$10]]:[0,[1,fmt_rest$10]], + fmt_result=_po_; break; case 78: var @@ -15976,10 +18552,10 @@ fmt_rest$14=match$16[1], counter$0=2; if(get_ign(0)) - var ignored$6=[11,counter$0],_py_=[0,[23,ignored$6,fmt_rest$14]]; + var ignored$6=[11,counter$0],_pu_=[0,[23,ignored$6,fmt_rest$14]]; else - var _py_=[0,[21,counter$0,fmt_rest$14]]; - var fmt_result=_py_,switch$0=1; + var _pu_=[0,[21,counter$0,fmt_rest$14]]; + var fmt_result=_pu_; break; case 83: var @@ -15989,14 +18565,14 @@ if(get_ign(0)) var ignored$7=[1,get_padprec_opt(95)], - _pz_=[0,[23,ignored$7,fmt_rest$15]]; + _pv_=[0,[23,ignored$7,fmt_rest$15]]; else var match$18=make_padding_fmt_ebb(pad$6,fmt_rest$15), fmt_rest$16=match$18[2], pad$7=match$18[1], - _pz_=[0,[3,pad$7,fmt_rest$16]]; - var fmt_result=_pz_,switch$0=1; + _pv_=[0,[3,pad$7,fmt_rest$16]]; + var fmt_result=_pv_; break; case 91: if(str_ind === end_ind)unexpected_end_of_format(end_ind); @@ -16009,8 +18585,8 @@ {var i=c$0; for(;;) {add_in_char_set(char_set,char_of_int(i)); - var _pS_=i + 1 | 0; - if(c !== i){var i=_pS_;continue} + var _pO_=i + 1 | 0; + if(c !== i){var i=_pO_;continue} break}} return 0}, fail_single_percent= @@ -16027,64 +18603,61 @@ var str_ind$1=str_ind$0 + 1 | 0,str_ind$0=str_ind$1; continue} if(93 === c)return str_ind$0 + 1 | 0; - var _pR_=str_ind$0 + 1 | 0; + var _pN_=str_ind$0 + 1 | 0; if(counter < 50) {var counter$0=counter + 1 | 0; - return parse_char_set_after_char$0(counter$0,_pR_,end_ind,c)} + return parse_char_set_after_char$0(counter$0,_pN_,end_ind,c)} return caml_trampoline_return - (parse_char_set_after_char$0,[0,_pR_,end_ind,c])}}, + (parse_char_set_after_char$0,[0,_pN_,end_ind,c])}}, parse_char_set_after_char$0= function(counter,str_ind,end_ind,c) {var str_ind$0=str_ind,c$0=c; for(;;) {if(str_ind$0 === end_ind)unexpected_end_of_format(end_ind); - var c$1=caml_string_get(str,str_ind$0); + var c$1=caml_string_get(str,str_ind$0),switch$0=0; if(46 <= c$1) - if(64 === c$1) - var switch$0=0; - else - {if(93 === c$1){add_char(c$0);return str_ind$0 + 1 | 0} - var switch$0=1} + {if(64 === c$1) + switch$0 = 1; + else + if(93 === c$1){add_char(c$0);return str_ind$0 + 1 | 0}} else if(37 === c$1) - var switch$0=0; + switch$0 = 1; else - {if(45 <= c$1) - {var str_ind$2=str_ind$0 + 1 | 0; - if(str_ind$2 === end_ind)unexpected_end_of_format(end_ind); - var c$2=caml_string_get(str,str_ind$2); - if(37 === c$2) - {if((str_ind$2 + 1 | 0) === end_ind) - unexpected_end_of_format(end_ind); - var c$3=caml_string_get(str,str_ind$2 + 1 | 0); - if(37 !== c$3) - if(64 !== c$3)return fail_single_percent(str_ind$2); - add_range(c$0,c$3); - var _pP_=str_ind$2 + 2 | 0; - if(counter < 50) - {var counter$2=counter + 1 | 0; - return parse_char_set_content(counter$2,_pP_,end_ind)} - return caml_trampoline_return - (parse_char_set_content,[0,_pP_,end_ind])} - if(93 === c$2) - {add_char(c$0);add_char(45);return str_ind$2 + 1 | 0} - add_range(c$0,c$2); - var _pQ_=str_ind$2 + 1 | 0; - if(counter < 50) - {var counter$1=counter + 1 | 0; - return parse_char_set_content(counter$1,_pQ_,end_ind)} - return caml_trampoline_return - (parse_char_set_content,[0,_pQ_,end_ind])} - var switch$0=1} - if(! switch$0) - if(37 === c$0) - {add_char(c$1); - var _pO_=str_ind$0 + 1 | 0; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return parse_char_set_content(counter$0,_pO_,end_ind)} - return caml_trampoline_return - (parse_char_set_content,[0,_pO_,end_ind])} + if(45 <= c$1) + {var str_ind$2=str_ind$0 + 1 | 0; + if(str_ind$2 === end_ind)unexpected_end_of_format(end_ind); + var c$2=caml_string_get(str,str_ind$2); + if(37 === c$2) + {if((str_ind$2 + 1 | 0) === end_ind) + unexpected_end_of_format(end_ind); + var c$3=caml_string_get(str,str_ind$2 + 1 | 0); + if(37 !== c$3 && 64 !== c$3) + return fail_single_percent(str_ind$2); + add_range(c$0,c$3); + var _pL_=str_ind$2 + 2 | 0; + if(counter < 50) + {var counter$2=counter + 1 | 0; + return parse_char_set_content(counter$2,_pL_,end_ind)} + return caml_trampoline_return + (parse_char_set_content,[0,_pL_,end_ind])} + if(93 === c$2) + {add_char(c$0);add_char(45);return str_ind$2 + 1 | 0} + add_range(c$0,c$2); + var _pM_=str_ind$2 + 1 | 0; + if(counter < 50) + {var counter$1=counter + 1 | 0; + return parse_char_set_content(counter$1,_pM_,end_ind)} + return caml_trampoline_return + (parse_char_set_content,[0,_pM_,end_ind])} + if(switch$0 && 37 === c$0) + {add_char(c$1); + var _pK_=str_ind$0 + 1 | 0; + if(counter < 50) + {var counter$0=counter + 1 | 0; + return parse_char_set_content(counter$0,_pK_,end_ind)} + return caml_trampoline_return + (parse_char_set_content,[0,_pK_,end_ind])} if(37 === c$0)fail_single_percent(str_ind$0); add_char(c$0); var str_ind$1=str_ind$0 + 1 | 0,str_ind$0=str_ind$1,c$0=c$1; @@ -16110,17 +18683,16 @@ if(get_ign(0)) var ignored$9=[10,get_pad_opt(95),char_set$1], - _pE_=[0,[23,ignored$9,fmt_rest$19]]; + _pA_=[0,[23,ignored$9,fmt_rest$19]]; else - var _pE_=[0,[20,get_pad_opt(91),char_set$1,fmt_rest$19]]; - var fmt_result=_pE_,switch$0=1; + var _pA_=[0,[20,get_pad_opt(91),char_set$1,fmt_rest$19]]; + var fmt_result=_pA_; break; case 97: var match$22=parse(str_ind,end_ind), fmt_rest$20=match$22[1], - fmt_result=[0,[15,fmt_rest$20]], - switch$0=1; + fmt_result=[0,[15,fmt_rest$20]]; break; case 99: var @@ -16133,28 +18705,26 @@ if(match$24) {if(0 === match$24[1]) var - _pF_=get_ign(0)?[0,[23,3,fmt_rest$21]]:[0,[22,fmt_rest$21]], - _pG_=_pF_; + _pB_=get_ign(0)?[0,[23,3,fmt_rest$21]]:[0,[22,fmt_rest$21]], + _pC_=_pB_; else var - _pG_= + _pC_= legacy_behavior$0 ?char_format(fmt_rest$21) :invalid_format_message - (str_ind, - cst_non_zero_widths_are_unsupported_for_c_conversions); - var _pH_=_pG_} + (str_ind,cst_non_zero_widths_are_unsupp); + var _pD_=_pC_} else - var _pH_=char_format(fmt_rest$21); - var fmt_result=_pH_,switch$0=1; + var _pD_=char_format(fmt_rest$21); + var fmt_result=_pD_; break; case 114: var match$25=parse(str_ind,end_ind), fmt_rest$22=match$25[1], - _pI_=get_ign(0)?[0,[23,2,fmt_rest$22]]:[0,[19,fmt_rest$22]], - fmt_result=_pI_, - switch$0=1; + _pE_=get_ign(0)?[0,[23,2,fmt_rest$22]]:[0,[19,fmt_rest$22]], + fmt_result=_pE_; break; case 115: var @@ -16164,21 +18734,20 @@ if(get_ign(0)) var ignored$10=[0,get_padprec_opt(95)], - _pJ_=[0,[23,ignored$10,fmt_rest$23]]; + _pF_=[0,[23,ignored$10,fmt_rest$23]]; else var match$27=make_padding_fmt_ebb(pad$9,fmt_rest$23), fmt_rest$24=match$27[2], pad$10=match$27[1], - _pJ_=[0,[2,pad$10,fmt_rest$24]]; - var fmt_result=_pJ_,switch$0=1; + _pF_=[0,[2,pad$10,fmt_rest$24]]; + var fmt_result=_pF_; break; case 116: var match$28=parse(str_ind,end_ind), fmt_rest$25=match$28[1], - fmt_result=[0,[16,fmt_rest$25]], - switch$0=1; + fmt_result=[0,[16,fmt_rest$25]]; break; case 123: var @@ -16191,10 +18760,10 @@ if(get_ign(0)) var ignored$11=[8,get_pad_opt(95),sub_fmtty$0], - _pK_=[0,[23,ignored$11,fmt_rest$26]]; + _pG_=[0,[23,ignored$11,fmt_rest$26]]; else - var _pK_=[0,[13,get_pad_opt(123),sub_fmtty$0,fmt_rest$26]]; - var fmt_result=_pK_,switch$0=1; + var _pG_=[0,[13,get_pad_opt(123),sub_fmtty$0,fmt_rest$26]]; + var fmt_result=_pG_; break; case 66: case 98: @@ -16205,62 +18774,62 @@ if(get_ign(0)) var ignored$3=[7,get_padprec_opt(95)], - _pr_=[0,[23,ignored$3,fmt_rest$8]]; + _pn_=[0,[23,ignored$3,fmt_rest$8]]; else var match$11=make_padding_fmt_ebb(pad$3,fmt_rest$8), fmt_rest$9=match$11[2], pad$4=match$11[1], - _pr_=[0,[9,pad$4,fmt_rest$9]]; - var fmt_result=_pr_,switch$0=1; + _pn_=[0,[9,pad$4,fmt_rest$9]]; + var fmt_result=_pn_; break; case 37: case 64: var match$7=parse(str_ind,end_ind), fmt_rest$6=match$7[1], - fmt_result=[0,[12,symb,fmt_rest$6]], - switch$0=1; + fmt_result=[0,[12,symb,fmt_rest$6]]; break; case 76: case 108: case 110: - if(str_ind === end_ind) - var switch$1=1; - else - {var symb$0=caml_string_get(str,str_ind),_pL_=symb$0 - 88 | 0; - if(32 < _pL_ >>> 0) - var switch$2=0; - else - switch(_pL_) + var switch$1=0; + if(str_ind !== end_ind) + {var + symb$0=caml_string_get(str,str_ind), + _pH_=symb$0 - 88 | 0, + switch$2=0; + if(! (32 < _pH_ >>> 0)) + switch(_pH_) {case 0: case 12: case 17: case 23: case 29: - case 32:var _px_=1,switch$2=1;break; - default:var switch$2=0} - if(! switch$2)var _px_=0; - if(_px_)var switch$0=0,switch$1=0;else var switch$1=1} - if(switch$1) - {var match$15=parse(str_ind,end_ind),fmt_rest$13=match$15[1]; + case 32:var _pt_=1;switch$2 = 1;break + } + if(! switch$2)var _pt_=0; + if(_pt_){switch$0 = 1;switch$1 = 1}} + if(! switch$1) + {var + match$15=parse(str_ind,end_ind), + fmt_rest$13=match$15[1], + switch$3=0; if(108 <= symb) - if(111 <= symb) - var switch$3=0; - else - {var switcher$0=symb - 108 | 0; - switch(switcher$0) - {case 0:var counter=0,switch$3=1;break; - case 1:var switch$3=0;break; - default:var counter=1,switch$3=1}} + {if(! (111 <= symb)) + {var switcher$0=symb - 108 | 0; + switch(switcher$0) + {case 0:var counter=0;switch$3 = 1;break; + case 1:break; + default:var counter=1;switch$3 = 1}}} else - if(76 === symb)var counter=2,switch$3=1;else var switch$3=0; + if(76 === symb){var counter=2;switch$3 = 1} if(! switch$3)throw [0,Assert_failure,_aT_]; if(get_ign(0)) - var ignored$5=[11,counter],_pw_=[0,[23,ignored$5,fmt_rest$13]]; + var ignored$5=[11,counter],_ps_=[0,[23,ignored$5,fmt_rest$13]]; else - var _pw_=[0,[21,counter,fmt_rest$13]]; - var fmt_result=_pw_,switch$0=1} + var _ps_=[0,[21,counter,fmt_rest$13]]; + var fmt_result=_ps_} break; case 32: case 35: @@ -16268,8 +18837,8 @@ case 45: case 95: var - fmt_result=caml_call3(failwith_message(_aK_),str,pct_ind,symb), - switch$0=1; + fmt_result= + caml_call3(failwith_message(_aK_),str,pct_ind,symb); break; case 88: case 100: @@ -16278,25 +18847,25 @@ case 117: case 120: var - _pA_=get_space(0), - _pB_=get_hash(0), + _pw_=get_space(0), + _px_=get_hash(0), iconv$2= - compute_int_conv(pct_ind,str_ind,get_plus(0),_pB_,_pA_,symb), + compute_int_conv(pct_ind,str_ind,get_plus(0),_px_,_pw_,symb), match$19=parse(str_ind,end_ind), fmt_rest$17=match$19[1]; if(get_ign(0)) var ignored$8=[2,iconv$2,get_pad_opt(95)], - _pC_=[0,[23,ignored$8,fmt_rest$17]]; + _py_=[0,[23,ignored$8,fmt_rest$17]]; else var - _pD_=get_prec(0), - match$20=make_padprec_fmt_ebb(get_int_pad(0),_pD_,fmt_rest$17), + _pz_=get_prec(0), + match$20=make_padprec_fmt_ebb(get_int_pad(0),_pz_,fmt_rest$17), fmt_rest$18=match$20[3], prec$4=match$20[2], pad$8=match$20[1], - _pC_=[0,[4,iconv$2,pad$8,prec$4,fmt_rest$18]]; - var fmt_result=_pC_,switch$0=1; + _py_=[0,[4,iconv$2,pad$8,prec$4,fmt_rest$18]]; + var fmt_result=_py_; break; case 69: case 70: @@ -16316,29 +18885,28 @@ ?1 :legacy_behavior$0 ?1 - :incompatible_flag(pct_ind,str_ind,32,cst$49); + :incompatible_flag(pct_ind,str_ind,32,cst$49), + switch$4=0; if(73 <= symb) {var switcher$1=symb - 101 | 0; - if(3 < switcher$1 >>> 0) - var switch$4=0; - else + if(! (3 < switcher$1 >>> 0)) {switch(switcher$1) - {case 0:var _pM_=1;break; - case 1:var _pM_=0;break; - case 2:var _pM_=3;break; - default:var _pM_=6} - var kind=_pM_,switch$4=1}} + {case 0:var _pI_=1;break; + case 1:var _pI_=0;break; + case 2:var _pI_=3;break; + default:var _pI_=6} + var kind=_pI_; + switch$4 = 1}} else if(69 <= symb) {var switcher$2=symb - 69 | 0; switch(switcher$2) - {case 0:var _pN_=2;break; - case 1:var _pN_=5;break; - case 2:var _pN_=4;break; - default:var _pN_=7} - var kind=_pN_,switch$4=1} - else - var switch$4=0; + {case 0:var _pJ_=2;break; + case 1:var _pJ_=5;break; + case 2:var _pJ_=4;break; + default:var _pJ_=7} + var kind=_pJ_; + switch$4 = 1} if(! switch$4)throw [0,Assert_failure,_aV_]; var fconv=[0,flag,kind], @@ -16348,136 +18916,138 @@ {var match=get_prec(0); if(typeof match === "number") var - _pt_= + _pp_= 0 === match?0:incompatible_flag(pct_ind,str_ind,95,cst$39); else - var ndec=match[1],_pt_=[0,ndec]; + var ndec=match[1],_pp_=[0,ndec]; var - ignored$4=[6,get_pad_opt(95),_pt_], - _pu_=[0,[23,ignored$4,fmt_rest$11]]} + ignored$4=[6,get_pad_opt(95),_pp_], + _pq_=[0,[23,ignored$4,fmt_rest$11]]} else var - _pv_=get_prec(0), - match$14=make_padprec_fmt_ebb(get_pad(0),_pv_,fmt_rest$11), + _pr_=get_prec(0), + match$14=make_padprec_fmt_ebb(get_pad(0),_pr_,fmt_rest$11), fmt_rest$12=match$14[3], prec$3=match$14[2], pad$5=match$14[1], - _pu_=[0,[8,fconv,pad$5,prec$3,fmt_rest$12]]; - var fmt_result=_pu_,switch$0=1; + _pq_=[0,[8,fconv,pad$5,prec$3,fmt_rest$12]]; + var fmt_result=_pq_; break; - default:var switch$0=0} - if(! switch$0) - {if(108 <= symb) + default:switch$0 = 1} + if(switch$0) + {var switch$5=0; + if(108 <= symb) if(111 <= symb) - var switch$5=0; + switch$5 = 1; else - {var switcher=symb - 108 | 0; + {var switcher=symb - 108 | 0,switch$6=0; switch(switcher) {case 0: var - _pa_=caml_string_get(str,str_ind), - _pb_=get_space(0), - _pc_=get_hash(0), + _o8_=caml_string_get(str,str_ind), + _o9_=get_space(0), + _o__=get_hash(0), iconv= compute_int_conv - (pct_ind,str_ind + 1 | 0,get_plus(0),_pc_,_pb_,_pa_), + (pct_ind,str_ind + 1 | 0,get_plus(0),_o__,_o9_,_o8_), match$0=parse(str_ind + 1 | 0,end_ind), fmt_rest=match$0[1]; if(get_ign(0)) var ignored=[3,iconv,get_pad_opt(95)], - _pd_=[0,[23,ignored,fmt_rest]]; + _o$_=[0,[23,ignored,fmt_rest]]; else var - _pf_=get_prec(0), - match$1=make_padprec_fmt_ebb(get_int_pad(0),_pf_,fmt_rest), + _pb_=get_prec(0), + match$1=make_padprec_fmt_ebb(get_int_pad(0),_pb_,fmt_rest), fmt_rest$0=match$1[3], prec$0=match$1[2], pad$0=match$1[1], - _pd_=[0,[5,iconv,pad$0,prec$0,fmt_rest$0]]; - var _pe_=_pd_,switch$6=1; + _o$_=[0,[5,iconv,pad$0,prec$0,fmt_rest$0]]; + var _pa_=_o$_; break; - case 1:var switch$5=0,switch$6=0;break; + case 1:switch$5 = 1;switch$6 = 1;break; default: var - _pg_=caml_string_get(str,str_ind), - _ph_=get_space(0), - _pi_=get_hash(0), + _pc_=caml_string_get(str,str_ind), + _pd_=get_space(0), + _pe_=get_hash(0), iconv$0= compute_int_conv - (pct_ind,str_ind + 1 | 0,get_plus(0),_pi_,_ph_,_pg_), + (pct_ind,str_ind + 1 | 0,get_plus(0),_pe_,_pd_,_pc_), match$2=parse(str_ind + 1 | 0,end_ind), fmt_rest$1=match$2[1]; if(get_ign(0)) var ignored$0=[4,iconv$0,get_pad_opt(95)], - _pj_=[0,[23,ignored$0,fmt_rest$1]]; + _pf_=[0,[23,ignored$0,fmt_rest$1]]; else var - _pk_=get_prec(0), - match$3=make_padprec_fmt_ebb(get_int_pad(0),_pk_,fmt_rest$1), + _pg_=get_prec(0), + match$3=make_padprec_fmt_ebb(get_int_pad(0),_pg_,fmt_rest$1), fmt_rest$2=match$3[3], prec$1=match$3[2], pad$1=match$3[1], - _pj_=[0,[6,iconv$0,pad$1,prec$1,fmt_rest$2]]; - var _pe_=_pj_,switch$6=1} - if(switch$6)var fmt_result=_pe_,switch$5=1} + _pf_=[0,[6,iconv$0,pad$1,prec$1,fmt_rest$2]]; + var _pa_=_pf_} + if(! switch$6)var fmt_result=_pa_} else if(76 === symb) {var - _pl_=caml_string_get(str,str_ind), - _pm_=get_space(0), - _pn_=get_hash(0), + _ph_=caml_string_get(str,str_ind), + _pi_=get_space(0), + _pj_=get_hash(0), iconv$1= compute_int_conv - (pct_ind,str_ind + 1 | 0,get_plus(0),_pn_,_pm_,_pl_), + (pct_ind,str_ind + 1 | 0,get_plus(0),_pj_,_pi_,_ph_), match$4=parse(str_ind + 1 | 0,end_ind), fmt_rest$3=match$4[1]; if(get_ign(0)) var ignored$1=[5,iconv$1,get_pad_opt(95)], - _po_=[0,[23,ignored$1,fmt_rest$3]]; + _pk_=[0,[23,ignored$1,fmt_rest$3]]; else var - _pp_=get_prec(0), - match$5=make_padprec_fmt_ebb(get_int_pad(0),_pp_,fmt_rest$3), + _pl_=get_prec(0), + match$5=make_padprec_fmt_ebb(get_int_pad(0),_pl_,fmt_rest$3), fmt_rest$4=match$5[3], prec$2=match$5[2], pad$2=match$5[1], - _po_=[0,[7,iconv$1,pad$2,prec$2,fmt_rest$4]]; - var fmt_result=_po_,switch$5=1} + _pk_=[0,[7,iconv$1,pad$2,prec$2,fmt_rest$4]]; + var fmt_result=_pk_} else - var switch$5=0; - if(! switch$5) + switch$5 = 1; + if(switch$5) var fmt_result= caml_call3(failwith_message(_aH_),str,str_ind - 1 | 0,symb)} if(1 - legacy_behavior$0) - {var _o3_=1 - plus_used[1],plus$0=_o3_?plus:_o3_; + {var _oZ_=1 - plus_used[1],plus$0=_oZ_?plus:_oZ_; if(plus$0)incompatible_flag(pct_ind,str_ind,symb,cst$40); - var _o4_=1 - hash_used[1],hash$0=_o4_?hash:_o4_; + var _o0_=1 - hash_used[1],hash$0=_o0_?hash:_o0_; if(hash$0)incompatible_flag(pct_ind,str_ind,symb,cst$41); - var _o5_=1 - space_used[1],space$0=_o5_?space:_o5_; + var _o1_=1 - space_used[1],space$0=_o1_?space:_o1_; if(space$0)incompatible_flag(pct_ind,str_ind,symb,cst$42); - var _o6_=1 - pad_used[1],_o7_=_o6_?caml_notequal([0,pad],_aI_):_o6_; - if(_o7_)incompatible_flag(pct_ind,str_ind,symb,cst_padding$0); + var _o2_=1 - pad_used[1],_o3_=_o2_?caml_notequal([0,pad],_aI_):_o2_; + if(_o3_)incompatible_flag(pct_ind,str_ind,symb,cst_padding$0); var - _o8_=1 - prec_used[1], - _o9_=_o8_?caml_notequal([0,prec],_aJ_):_o8_; - if(_o9_) - {var _o__=ign?95:symb; - incompatible_flag(pct_ind,str_ind,_o__,cst_precision$2)} + _o4_=1 - prec_used[1], + _o5_=_o4_?caml_notequal([0,prec],_aJ_):_o4_; + if(_o5_) + {var _o6_=ign?95:symb; + incompatible_flag(pct_ind,str_ind,_o6_,cst_precision$2)} var plus$1=ign?plus:ign; if(plus$1)incompatible_flag(pct_ind,str_ind,95,cst$43)} - var _o$_=1 - ign_used[1],ign$0=_o$_?ign:_o$_; + var _o7_=1 - ign_used[1],ign$0=_o7_?ign:_o7_; if(ign$0) - {var - switch$7= - 38 <= symb - ?44 === symb?0:64 === symb?0:1 - :33 === symb?0:37 <= symb?0:1, - switch$8=switch$7?0:legacy_behavior$0?1:0; - if(! switch$8)incompatible_flag(pct_ind,str_ind,symb,cst$44)} + {var switch$7=0; + if(38 <= symb) + {if(44 !== symb && 64 !== symb)switch$7 = 1} + else + if(33 !== symb && ! (37 <= symb))switch$7 = 1; + var switch$8=0; + if(switch$7 || ! legacy_behavior$0)switch$8 = 1; + if(switch$8)incompatible_flag(pct_ind,str_ind,symb,cst$44)} return fmt_result} function parse_after_precision (pct_ind,str_ind,end_ind,minus,plus,hash,space,ign,pad,match) @@ -16496,7 +19066,7 @@ padprec, caml_string_get(str,str_ind))} if(typeof pad === "number") - {if(typeof match === "number")if(0 === match)return parse_conv(0); + {if(typeof match === "number" && 0 === match)return parse_conv(0); if(0 === minus) {if(typeof match === "number")return parse_conv(_aD_); var n=match[1]; @@ -16553,9 +19123,9 @@ case 3: if(legacy_behavior$0) {var - _o2_=str_ind$0 + 1 | 0, + _oY_=str_ind$0 + 1 | 0, minus$0=minus || (45 === symb$0?1:0); - return parse_literal(minus$0,_o2_)} + return parse_literal(minus$0,_oY_)} break }} return legacy_behavior$0 @@ -16586,10 +19156,10 @@ function parse_flags(pct_ind,str_ind,end_ind,ign) {var zero=[0,0],minus=[0,0],plus=[0,0],space=[0,0],hash=[0,0]; function set_flag(str_ind,flag) - {var _oZ_=flag[1],_o0_=_oZ_?1 - legacy_behavior$0:_oZ_; - if(_o0_) - {var _o1_=caml_string_get(str,str_ind); - caml_call3(failwith_message(_aA_),str,str_ind,_o1_)} + {var _oV_=flag[1],_oW_=_oV_?1 - legacy_behavior$0:_oV_; + if(_oW_) + {var _oX_=caml_string_get(str,str_ind); + caml_call3(failwith_message(_aA_),str,str_ind,_oX_)} flag[1] = 1; return 0} var str_ind$0=str_ind; @@ -16620,17 +19190,17 @@ continue } var - _oU_=space[1], - _oV_=hash[1], - _oW_=plus[1], - _oX_=minus[1], - _oY_=zero[1]; + _oQ_=space[1], + _oR_=hash[1], + _oS_=plus[1], + _oT_=minus[1], + _oU_=zero[1]; if(str_ind$0 === end_ind)unexpected_end_of_format(end_ind); var padty= - 0 === _oY_ - ?0 === _oX_?1:0 - :0 === _oX_ + 0 === _oU_ + ?0 === _oT_?1:0 + :0 === _oT_ ?2 :legacy_behavior$0 ?0 @@ -16646,10 +19216,10 @@ (pct_ind, new_ind, end_ind, - _oX_, - _oW_, - _oV_, - _oU_, + _oT_, + _oS_, + _oR_, + _oQ_, ign, [0,padty,width])}} else @@ -16658,10 +19228,10 @@ (pct_ind, str_ind$0 + 1 | 0, end_ind, - _oX_, - _oW_, - _oV_, - _oU_, + _oT_, + _oS_, + _oR_, + _oQ_, ign, [1,padty]); switch(padty) @@ -16669,13 +19239,13 @@ if(1 - legacy_behavior$0) invalid_format_without(str_ind$0 - 1 | 0,45,cst_padding); return parse_after_padding - (pct_ind,str_ind$0,end_ind,_oX_,_oW_,_oV_,_oU_,ign,0); + (pct_ind,str_ind$0,end_ind,_oT_,_oS_,_oR_,_oQ_,ign,0); case 1: return parse_after_padding - (pct_ind,str_ind$0,end_ind,_oX_,_oW_,_oV_,_oU_,ign,0); + (pct_ind,str_ind$0,end_ind,_oT_,_oS_,_oR_,_oQ_,ign,0); default: return parse_after_padding - (pct_ind,str_ind$0,end_ind,_oX_,_oW_,_oV_,_oU_,ign,_aB_)}}} + (pct_ind,str_ind$0,end_ind,_oT_,_oS_,_oR_,_oQ_,ign,_aB_)}}} function parse_tag(is_open_tag,str_ind,end_ind) {try {if(str_ind === end_ind)throw Not_found; @@ -16693,46 +19263,55 @@ if(is_open_tag) var formatting$0=[0,sub_format$0]; else - {if(typeof sub_fmt === "number") - var switch$0=0; - else - if(11 === sub_fmt[0]) - if(typeof sub_fmt[2] === "number") - {var str$0=sub_fmt[1]; - try - {open_box_of_string(str$0);var switch$1=1} - catch(_oT_) - {_oT_ = caml_wrap_exception(_oT_); - if(_oT_[1] !== Failure)throw _oT_; - var switch$0=1,switch$1=0} - if(switch$1)var switch$0=1} - else - var switch$0=0; - else - var switch$0=0; + {var switch$0=0; + if + (typeof sub_fmt + !== + "number" + && + 11 + === + sub_fmt[0] + && + typeof sub_fmt[2] + === + "number") + {var str$0=sub_fmt[1]; + try + {var switch$1=0;open_box_of_string(str$0)} + catch(_oP_) + {_oP_ = caml_wrap_exception(_oP_); + if(_oP_[1] !== Failure)throw _oP_; + switch$0 = 1; + switch$1 = 1} + if(! switch$1)switch$0 = 1} var formatting$0=[1,sub_format$0]} - var _oR_=[0,[18,formatting$0,fmt_rest$0]]; - return _oR_} + var _oN_=[0,[18,formatting$0,fmt_rest$0]]; + return _oN_} throw Not_found} - catch(_oS_) - {_oS_ = caml_wrap_exception(_oS_); - if(_oS_ === Not_found) + catch(_oO_) + {_oO_ = caml_wrap_exception(_oO_); + if(_oO_ === Not_found) {var match=parse(str_ind,end_ind), fmt_rest=match[1], formatting=is_open_tag?[0,sub_format]:[1,sub_format]; return [0,[18,formatting,fmt_rest]]} - throw _oS_}} + throw _oO_}} function parse_good_break(str_ind,end_ind) {try {var - _oK_=str_ind === end_ind?1:0, - _oL_=_oK_ || (60 !== caml_string_get(str,str_ind)?1:0); - if(_oL_)throw Not_found; + _oG_=str_ind === end_ind?1:0, + _oH_=_oG_ || (60 !== caml_string_get(str,str_ind)?1:0); + if(_oH_)throw Not_found; var str_ind_1=parse_spaces(str_ind + 1 | 0,end_ind), match$0=caml_string_get(str,str_ind_1), - switch$0=48 <= match$0?58 <= match$0?0:1:45 === match$0?1:0; + switch$0=0; + if(48 <= match$0) + {if(! (58 <= match$0))switch$0 = 1} + else + if(45 === match$0)switch$0 = 1; if(! switch$0)throw Not_found; var match$1=parse_integer(str_ind_1,end_ind), @@ -16740,18 +19319,18 @@ str_ind_2=match$1[1], str_ind_3=parse_spaces(str_ind_2,end_ind), match$2=caml_string_get(str,str_ind_3), - switcher=match$2 - 45 | 0; + switcher=match$2 - 45 | 0, + switch$1=0; if(12 < switcher >>> 0) if(17 === switcher) var s=sub$0(str,str_ind - 2 | 0,(str_ind_3 - str_ind | 0) + 3 | 0), - _oM_=[0,s,width,0], - _oN_=str_ind_3 + 1 | 0, - next_ind=_oN_, - formatting_lit$0=_oM_, - switch$1=1; + _oI_=[0,s,width,0], + _oJ_=str_ind_3 + 1 | 0, + next_ind=_oJ_, + formatting_lit$0=_oI_; else - var switch$1=0; + switch$1 = 1; else {var switcher$0=switcher - 1 | 0; if(1 < switcher$0 >>> 0) @@ -16764,17 +19343,16 @@ var s$0= sub$0(str,str_ind - 2 | 0,(str_ind_5 - str_ind | 0) + 3 | 0), - _oO_=[0,s$0,width,offset], - _oP_=str_ind_5 + 1 | 0, - next_ind=_oP_, - formatting_lit$0=_oO_, - switch$1=1} + _oK_=[0,s$0,width,offset], + _oL_=str_ind_5 + 1 | 0, + next_ind=_oL_, + formatting_lit$0=_oK_} else - var switch$1=0} - if(! switch$1)throw Not_found} - catch(_oQ_) - {_oQ_ = caml_wrap_exception(_oQ_); - if(_oQ_ !== Not_found)if(_oQ_[1] !== Failure)throw _oQ_; + switch$1 = 1} + if(switch$1)throw Not_found} + catch(_oM_) + {_oM_ = caml_wrap_exception(_oM_); + if(_oM_ !== Not_found && _oM_[1] !== Failure)throw _oM_; var next_ind=str_ind,formatting_lit$0=formatting_lit} var match=parse(next_ind,end_ind),fmt_rest=match[1]; return [0,[17,formatting_lit$0,fmt_rest]]} @@ -16783,7 +19361,11 @@ {var str_ind_1=parse_spaces(str_ind,end_ind), match$2=caml_string_get(str,str_ind_1), - switch$0=48 <= match$2?58 <= match$2?0:1:45 === match$2?1:0; + switch$0=0; + if(48 <= match$2) + {if(! (58 <= match$2))switch$0 = 1} + else + if(45 === match$2)switch$0 = 1; if(switch$0) {var match$3=parse_integer(str_ind_1,end_ind), @@ -16793,17 +19375,17 @@ if(62 !== caml_string_get(str,str_ind_3))throw Not_found; var s=sub$0(str,str_ind - 2 | 0,(str_ind_3 - str_ind | 0) + 3 | 0), - _oI_=[0,[0,str_ind_3 + 1 | 0,[1,s,size]]]} + _oE_=[0,[0,str_ind_3 + 1 | 0,[1,s,size]]]} else - var _oI_=0; - var _oH_=_oI_} - catch(_oJ_) - {_oJ_ = caml_wrap_exception(_oJ_); - if(_oJ_ !== Not_found)if(_oJ_[1] !== Failure)throw _oJ_; - var _oH_=0} - if(_oH_) + var _oE_=0; + var _oD_=_oE_} + catch(_oF_) + {_oF_ = caml_wrap_exception(_oF_); + if(_oF_ !== Not_found && _oF_[1] !== Failure)throw _oF_; + var _oD_=0} + if(_oD_) {var - match=_oH_[1], + match=_oD_[1], formatting_lit=match[2], next_ind=match[1], match$0=parse(next_ind,end_ind), @@ -16913,30 +19495,27 @@ function compute_int_conv(pct_ind,str_ind,plus,hash,space,symb) {var plus$0=plus,hash$0=hash,space$0=space; for(;;) - {if(0 === plus$0) + {var switch$0=0; + if(0 === plus$0) if(0 === hash$0) if(0 === space$0) {var switcher=symb - 88 | 0; - if(32 < switcher >>> 0) - var switch$0=1; - else + if(! (32 < switcher >>> 0)) switch(switcher) {case 0:return 8; case 12:return 0; case 17:return 3; case 23:return 10; case 29:return 12; - case 32:return 6; - default:var switch$0=1}} + case 32:return 6 + }} else - {if(100 === symb)return 2; - if(105 === symb)return 5; - var switch$0=1} + {if(100 === symb)return 2;if(105 === symb)return 5} else if(0 === space$0) {var switcher$0=symb - 88 | 0; if(32 < switcher$0 >>> 0) - var switch$0=0; + switch$0 = 1; else switch(switcher$0) {case 0:return 9; @@ -16945,20 +19524,16 @@ case 23:return 11; case 29:return 15; case 32:return 7; - default:var switch$0=0}} + default:switch$0 = 1}} else - var switch$0=0; + switch$0 = 1; else if(0 === hash$0) - if(0 === space$0) - {if(100 === symb)return 1; - if(105 === symb)return 4; - var switch$0=1} - else - var switch$0=1; + {if(0 === space$0) + {if(100 === symb)return 1;if(105 === symb)return 4}} else - var switch$0=0; - if(! switch$0) + switch$0 = 1; + if(switch$0) {var switcher$1=symb - 88 | 0; if(! (32 < switcher$1 >>> 0)) switch(switcher$1) @@ -16984,13 +19559,13 @@ function format_of_string_fmtty(str,fmtty) {var match=fmt_ebb_of_string(0,str),fmt=match[1]; try - {var _oF_=[0,type_format(fmt,fmtty),str];return _oF_} - catch(_oG_) - {_oG_ = caml_wrap_exception(_oG_); - if(_oG_ === Type_mismatch) - {var _oE_=string_of_fmtty(fmtty); - return caml_call2(failwith_message(_aX_),str,_oE_)} - throw _oG_}} + {var _oB_=[0,type_format(fmt,fmtty),str];return _oB_} + catch(_oC_) + {_oC_ = caml_wrap_exception(_oC_); + if(_oC_ === Type_mismatch) + {var _oA_=string_of_fmtty(fmtty); + return caml_call2(failwith_message(_aX_),str,_oA_)} + throw _oC_}} function format_of_string_format(str,param) {var str$0=param[2], @@ -16998,12 +19573,12 @@ match=fmt_ebb_of_string(0,str), fmt$0=match[1]; try - {var _oC_=[0,type_format(fmt$0,fmtty_of_fmt(fmt)),str];return _oC_} - catch(_oD_) - {_oD_ = caml_wrap_exception(_oD_); - if(_oD_ === Type_mismatch) + {var _oy_=[0,type_format(fmt$0,fmtty_of_fmt(fmt)),str];return _oy_} + catch(_oz_) + {_oz_ = caml_wrap_exception(_oz_); + if(_oz_ === Type_mismatch) return caml_call2(failwith_message(_aY_),str,str$0); - throw _oD_}} + throw _oz_}} var CamlinternalFormat= [0, @@ -17033,23 +19608,23 @@ recast]; caml_register_global(752,CamlinternalFormat,"CamlinternalFormat"); function kfprintf(k,o,param) - {var fmt=param[1],_oB_=0; + {var fmt=param[1],_ox_=0; return make_printf (function(acc){output_acc(o,acc);return caml_call1(k,o)}, - _oB_, + _ox_, fmt)} function kbprintf(k,b,param) - {var fmt=param[1],_oA_=0; + {var fmt=param[1],_ow_=0; return make_printf (function(acc){bufput_acc(b,acc);return caml_call1(k,b)}, - _oA_, + _ow_, fmt)} function ikfprintf(k,oc,param) {var fmt=param[1];return make_iprintf(k,oc,fmt)} - function fprintf(oc,fmt){return kfprintf(function(_oz_){return 0},oc,fmt)} - function bprintf(b,fmt){return kbprintf(function(_oy_){return 0},b,fmt)} + function fprintf(oc,fmt){return kfprintf(function(_ov_){return 0},oc,fmt)} + function bprintf(b,fmt){return kbprintf(function(_ou_){return 0},b,fmt)} function ifprintf(oc,fmt) - {return ikfprintf(function(_ox_){return 0},oc,fmt)} + {return ikfprintf(function(_ot_){return 0},oc,fmt)} function printf(fmt){return fprintf(stdout,fmt)} function eprintf(fmt){return fprintf(stderr,fmt)} function ksprintf(k,param) @@ -17092,82 +19667,82 @@ {var i=index$0(s,61), len=caml_ml_string_length(s), - _ow_=sub$0(s,i + 1 | 0,len - (i + 1 | 0) | 0); - return [0,sub$0(s,0,i),_ow_]} + _os_=sub$0(s,i + 1 | 0,len - (i + 1 | 0) | 0); + return [0,sub$0(s,0,i),_os_]} function make_symlist(prefix,sep,suffix,l) {if(l) - {var t=l[2],h=l[1],_ov_=symbol(prefix,h); + {var t=l[2],h=l[1],_or_=symbol(prefix,h); return symbol (fold_left$0 - (function(x,y){return symbol(x,symbol(sep,y))},_ov_,t), + (function(x,y){return symbol(x,symbol(sep,y))},_or_,t), suffix)} return cst_none} function help_action(param){throw [0,Stop,_a1_]} function add_help(speclist) {try - {assoc3(cst_help$2,speclist);var _os_=0,_oq_=_os_} - catch(_ou_) - {_ou_ = caml_wrap_exception(_ou_); - if(_ou_ !== Not_found)throw _ou_; + {assoc3(cst_help$2,speclist);var _oo_=0,_om_=_oo_} + catch(_oq_) + {_oq_ = caml_wrap_exception(_oq_); + if(_oq_ !== Not_found)throw _oq_; var - _oq_= - [0,[0,cst_help,[0,help_action],cst_Display_this_list_of_options],0]} + _om_= + [0,[0,cst_help,[0,help_action],cst_Display_this_list_of_optio],0]} try - {assoc3(cst_help$1,speclist);var _or_=0,add2=_or_} - catch(_ot_) - {_ot_ = caml_wrap_exception(_ot_); - if(_ot_ !== Not_found)throw _ot_; + {assoc3(cst_help$1,speclist);var _on_=0,add2=_on_} + catch(_op_) + {_op_ = caml_wrap_exception(_op_); + if(_op_ !== Not_found)throw _op_; var add2= [0, - [0,cst_help$0,[0,help_action],cst_Display_this_list_of_options$0], + [0,cst_help$0,[0,help_action],cst_Display_this_list_of_optio$0], 0]} - return append(speclist,append(_oq_,add2))} + return append(speclist,append(_om_,add2))} function usage_b(buf,speclist,errmsg) {caml_call1(bprintf(buf,_a2_),errmsg); - var _on_=add_help(speclist); + var _oj_=add_help(speclist); return iter$2 (function(param) {var doc=param[3], spec=param[2], key=param[1], - _oo_=0 < caml_ml_string_length(doc)?1:0; - if(_oo_) + _ok_=0 < caml_ml_string_length(doc)?1:0; + if(_ok_) {if(11 === spec[0]) - {var l=spec[1],_op_=make_symlist(cst$52,cst$51,cst$50,l); - return caml_call3(bprintf(buf,_a0_),key,_op_,doc)} + {var l=spec[1],_ol_=make_symlist(cst$52,cst$51,cst$50,l); + return caml_call3(bprintf(buf,_a0_),key,_ol_,doc)} return caml_call2(bprintf(buf,_aZ_),key,doc)} - return _oo_}, - _on_)} + return _ok_}, + _oj_)} function usage_string(speclist,errmsg) {var b=create$2(200);usage_b(b,speclist,errmsg);return contents(b)} function usage(speclist,errmsg) - {var _om_=usage_string(speclist,errmsg); - return caml_call1(eprintf(_a3_),_om_)} + {var _oi_=usage_string(speclist,errmsg); + return caml_call1(eprintf(_a3_),_oi_)} var current=[0,0]; function bool_of_string_opt$0(x) {try - {var _ok_=[0,bool_of_string(x)];return _ok_} - catch(_ol_) - {_ol_ = caml_wrap_exception(_ol_); - if(_ol_[1] === Invalid_argument)return 0; - throw _ol_}} + {var _og_=[0,bool_of_string(x)];return _og_} + catch(_oh_) + {_oh_ = caml_wrap_exception(_oh_); + if(_oh_[1] === Invalid_argument)return 0; + throw _oh_}} function int_of_string_opt$0(x) {try - {var _oi_=[0,caml_int_of_string(x)];return _oi_} - catch(_oj_) - {_oj_ = caml_wrap_exception(_oj_); - if(_oj_[1] === Failure)return 0; - throw _oj_}} + {var _oe_=[0,caml_int_of_string(x)];return _oe_} + catch(_of_) + {_of_ = caml_wrap_exception(_of_); + if(_of_[1] === Failure)return 0; + throw _of_}} function float_of_string_opt(x) {try - {var _og_=[0,caml_float_of_string(x)];return _og_} - catch(_oh_) - {_oh_ = caml_wrap_exception(_oh_); - if(_oh_[1] === Failure)return 0; - throw _oh_}} - function parse_and_expand_argv_dynamic_aux + {var _oc_=[0,caml_float_of_string(x)];return _oc_} + catch(_od_) + {_od_ = caml_wrap_exception(_od_); + if(_od_[1] === Failure)return 0; + throw _od_}} + function parse_and_expand_argv_dynamic_ (allow_expand,current,argv,speclist,anonfun,errmsg) {var initpos=current[1]; function convert_error(error) @@ -17179,10 +19754,12 @@ :cst$53; switch(error[0]) {case 0: - var _of_=error[1]; - if(caml_string_notequal(_of_,cst_help$3)) - if(caml_string_notequal(_of_,cst_help$4)) - caml_call2(bprintf(b,_a4_),progname,_of_); + var _ob_=error[1]; + if + (caml_string_notequal(_ob_,cst_help$3) + && + caml_string_notequal(_ob_,cst_help$4)) + caml_call2(bprintf(b,_a4_),progname,_ob_); break; case 1: var expected=error[3],arg=error[2],opt=error[1]; @@ -17191,169 +19768,165 @@ case 2:var s=error[1];caml_call2(bprintf(b,_a8_),progname,s);break; default:var s$0=error[1];caml_call2(bprintf(b,_a9_),progname,s$0)} usage_b(b,speclist[1],errmsg); - if(! caml_equal(error,_a5_)) - if(! caml_equal(error,_a6_))return [0,Bad,contents(b)]; + if(! caml_equal(error,_a5_) && ! caml_equal(error,_a6_)) + return [0,Bad,contents(b)]; return [0,Help,contents(b)]} current[1]++; for(;;) {if(current[1] < argv[1].length - 1) {try - {var _n8_=current[1],s=caml_check_bound(argv[1],_n8_)[1 + _n8_]; - if(1 <= caml_ml_string_length(s)) - if(45 === caml_string_get(s,0)) - {try - {var - follow$1=0, - _n__=assoc3(s,speclist[1]), - action=_n__, - follow$0=follow$1} - catch(_od_) - {_od_ = caml_wrap_exception(_od_); - if(_od_ !== Not_found)throw _od_; - try - {var - match=split$0(s), - arg=match[2], - keyword=match[1], - follow=[0,arg], - _n9_=assoc3(keyword,speclist[1])} - catch(_oe_) - {_oe_ = caml_wrap_exception(_oe_); - if(_oe_ === Not_found)throw [0,Stop,[0,s]]; - throw _oe_; - var _n$_=_oe_} - var action=_n9_,follow$0=follow,_oa_=_od_} - var - no_arg$0= - function(s,follow) - {function no_arg(param) - {if(follow) - {var arg=follow[1];throw [0,Stop,[1,s,arg,cst_no_argument]]} - return 0} - return no_arg}, - no_arg=no_arg$0(s,follow$0), - get_arg$0= - function(s,follow) - {function get_arg(param) - {if(follow){var arg=follow[1];return arg} - if((current[1] + 1 | 0) < argv[1].length - 1) - {var _oc_=current[1] + 1 | 0; - return caml_check_bound(argv[1],_oc_)[1 + _oc_]} - throw [0,Stop,[2,s]]} - return get_arg}, - get_arg=get_arg$0(s,follow$0), - consume_arg$0= - function(follow) - {function consume_arg(param) - {return follow?0:(current[1]++,0)} - return consume_arg}, - consume_arg=consume_arg$0(follow$0), - treat_action$0= - function(s,no_arg,get_arg,consume_arg) - {function treat_action(param) - {switch(param[0]) - {case 0:var f=param[1];no_arg(0);return caml_call1(f,0); - case 1: - var - f$0=param[1], - arg=get_arg(0), - match=bool_of_string_opt$0(arg); - if(match) - {var s$0=match[1];caml_call1(f$0,s$0);return consume_arg(0)} - throw [0,Stop,[1,s,arg,cst_a_boolean]]; - case 2:var r=param[1];no_arg(0);r[1] = 1;return 0; - case 3:var r$0=param[1];no_arg(0);r$0[1] = 0;return 0; - case 4: - var f$1=param[1],arg$0=get_arg(0); - caml_call1(f$1,arg$0); - return consume_arg(0); - case 5: - var r$1=param[1];r$1[1] = get_arg(0);return consume_arg(0); - case 6: - var - f$2=param[1], - arg$1=get_arg(0), - match$0=int_of_string_opt$0(arg$1); - if(match$0) - {var x=match$0[1];caml_call1(f$2,x);return consume_arg(0)} - throw [0,Stop,[1,s,arg$1,cst_an_integer]]; - case 7: - var - r$2=param[1], - arg$2=get_arg(0), - match$1=int_of_string_opt$0(arg$2); - if(match$1) - {var x$0=match$1[1];r$2[1] = x$0;return consume_arg(0)} - throw [0,Stop,[1,s,arg$2,cst_an_integer$0]]; - case 8: - var - f$3=param[1], - arg$3=get_arg(0), - match$2=float_of_string_opt(arg$3); - if(match$2) - {var x$1=match$2[1]; - caml_call1(f$3,x$1); - return consume_arg(0)} - throw [0,Stop,[1,s,arg$3,cst_a_float]]; - case 9: - var - r$3=param[1], - arg$4=get_arg(0), - match$3=float_of_string_opt(arg$4); - if(match$3) - {var x$2=match$3[1];r$3[1] = x$2;return consume_arg(0)} - throw [0,Stop,[1,s,arg$4,cst_a_float$0]]; - case 10: - var specs=param[1]; - no_arg(0); - return iter$2(treat_action,specs); - case 11: - var f$4=param[2],symb=param[1],arg$5=get_arg(0); - if(mem(arg$5,symb)) - {caml_call1(f$4,arg$5);return consume_arg(0)} - throw [0, - Stop, - [1, - s, - arg$5, - symbol(cst_one_of,make_symlist(cst$56,cst$55,cst$54,symb))]]; - case 12: - var f$5=param[1]; - no_arg(0); - for(;;) - {if(current[1] < (argv[1].length - 1 - 1 | 0)) - {var _ob_=current[1] + 1 | 0; - caml_call1(f$5,caml_check_bound(argv[1],_ob_)[1 + _ob_]); - consume_arg(0); - continue} - return 0} - default: - var f$6=param[1]; - if(1 - allow_expand) - throw [0, - Invalid_argument, - cst_Arg_Expand_is_is_only_allowed_with_Arg_parse_and_expand_argv_dynamic]; - var arg$6=get_arg(0),newarg=caml_call1(f$6,arg$6); - consume_arg(0); - var - before=sub$1(argv[1],0,current[1] + 1 | 0), - after= - sub$1 - (argv[1], - current[1] + 1 | 0, - (argv[1].length - 1 - current[1] | 0) - 1 | 0); - argv[1] - = - caml_array_concat([0,before,[0,newarg,[0,after,0]]]); - return 0}} - return treat_action}, - treat_action=treat_action$0(s,no_arg,get_arg,consume_arg); - treat_action(action); - var switch$0=1} - else - var switch$0=0; - else - var switch$0=0; + {var + _n4_=current[1], + s=caml_check_bound(argv[1],_n4_)[1 + _n4_], + switch$0=0; + if(1 <= caml_ml_string_length(s) && 45 === caml_string_get(s,0)) + {try + {var + follow$1=0, + _n6_=assoc3(s,speclist[1]), + action=_n6_, + follow$0=follow$1} + catch(_n$_) + {_n$_ = caml_wrap_exception(_n$_); + if(_n$_ !== Not_found)throw _n$_; + try + {var + match=split$0(s), + arg=match[2], + keyword=match[1], + follow=[0,arg], + _n5_=assoc3(keyword,speclist[1])} + catch(_oa_) + {_oa_ = caml_wrap_exception(_oa_); + if(_oa_ === Not_found)throw [0,Stop,[0,s]]; + throw _oa_; + var _n7_=_oa_} + var action=_n5_,follow$0=follow,_n8_=_n$_} + var + no_arg$0= + function(s,follow) + {function no_arg(param) + {if(follow) + {var arg=follow[1];throw [0,Stop,[1,s,arg,cst_no_argument]]} + return 0} + return no_arg}, + no_arg=no_arg$0(s,follow$0), + get_arg$0= + function(s,follow) + {function get_arg(param) + {if(follow){var arg=follow[1];return arg} + if((current[1] + 1 | 0) < argv[1].length - 1) + {var _n__=current[1] + 1 | 0; + return caml_check_bound(argv[1],_n__)[1 + _n__]} + throw [0,Stop,[2,s]]} + return get_arg}, + get_arg=get_arg$0(s,follow$0), + consume_arg$0= + function(follow) + {function consume_arg(param) + {return follow?0:(current[1]++,0)} + return consume_arg}, + consume_arg=consume_arg$0(follow$0), + treat_action$0= + function(s,no_arg,get_arg,consume_arg) + {function treat_action(param) + {switch(param[0]) + {case 0:var f=param[1];no_arg(0);return caml_call1(f,0); + case 1: + var + f$0=param[1], + arg=get_arg(0), + match=bool_of_string_opt$0(arg); + if(match) + {var s$0=match[1];caml_call1(f$0,s$0);return consume_arg(0)} + throw [0,Stop,[1,s,arg,cst_a_boolean]]; + case 2:var r=param[1];no_arg(0);r[1] = 1;return 0; + case 3:var r$0=param[1];no_arg(0);r$0[1] = 0;return 0; + case 4: + var f$1=param[1],arg$0=get_arg(0); + caml_call1(f$1,arg$0); + return consume_arg(0); + case 5: + var r$1=param[1];r$1[1] = get_arg(0);return consume_arg(0); + case 6: + var + f$2=param[1], + arg$1=get_arg(0), + match$0=int_of_string_opt$0(arg$1); + if(match$0) + {var x=match$0[1];caml_call1(f$2,x);return consume_arg(0)} + throw [0,Stop,[1,s,arg$1,cst_an_integer]]; + case 7: + var + r$2=param[1], + arg$2=get_arg(0), + match$1=int_of_string_opt$0(arg$2); + if(match$1) + {var x$0=match$1[1];r$2[1] = x$0;return consume_arg(0)} + throw [0,Stop,[1,s,arg$2,cst_an_integer$0]]; + case 8: + var + f$3=param[1], + arg$3=get_arg(0), + match$2=float_of_string_opt(arg$3); + if(match$2) + {var x$1=match$2[1]; + caml_call1(f$3,x$1); + return consume_arg(0)} + throw [0,Stop,[1,s,arg$3,cst_a_float]]; + case 9: + var + r$3=param[1], + arg$4=get_arg(0), + match$3=float_of_string_opt(arg$4); + if(match$3) + {var x$2=match$3[1];r$3[1] = x$2;return consume_arg(0)} + throw [0,Stop,[1,s,arg$4,cst_a_float$0]]; + case 10: + var specs=param[1]; + no_arg(0); + return iter$2(treat_action,specs); + case 11: + var f$4=param[2],symb=param[1],arg$5=get_arg(0); + if(mem(arg$5,symb)) + {caml_call1(f$4,arg$5);return consume_arg(0)} + throw [0, + Stop, + [1, + s, + arg$5, + symbol(cst_one_of,make_symlist(cst$56,cst$55,cst$54,symb))]]; + case 12: + var f$5=param[1]; + no_arg(0); + for(;;) + {if(current[1] < (argv[1].length - 1 - 1 | 0)) + {var _n9_=current[1] + 1 | 0; + caml_call1(f$5,caml_check_bound(argv[1],_n9_)[1 + _n9_]); + consume_arg(0); + continue} + return 0} + default: + var f$6=param[1]; + if(1 - allow_expand) + throw [0,Invalid_argument,cst_Arg_Expand_is_is_only_allo]; + var arg$6=get_arg(0),newarg=caml_call1(f$6,arg$6); + consume_arg(0); + var + before=sub$1(argv[1],0,current[1] + 1 | 0), + after= + sub$1 + (argv[1], + current[1] + 1 | 0, + (argv[1].length - 1 - current[1] | 0) - 1 | 0); + argv[1] + = + caml_array_concat([0,before,[0,newarg,[0,after,0]]]); + return 0}} + return treat_action}, + treat_action=treat_action$0(s,no_arg,get_arg,consume_arg); + treat_action(action); + switch$0 = 1} if(! switch$0)caml_call1(anonfun,s)} catch(exn$0) {exn$0 = caml_wrap_exception(exn$0); @@ -17366,11 +19939,11 @@ return 0}} function parse_and_expand_argv_dynamic (current,argv,speclist,anonfun,errmsg) - {return parse_and_expand_argv_dynamic_aux + {return parse_and_expand_argv_dynamic_ (1,current,argv,speclist,anonfun,errmsg)} function parse_argv_dynamic(opt,argv,speclist,anonfun,errmsg) {if(opt)var sth=opt[1],current$0=sth;else var current$0=current; - return parse_and_expand_argv_dynamic_aux + return parse_and_expand_argv_dynamic_ (0,current$0,[0,argv],speclist,anonfun,errmsg)} function parse_argv(opt,argv,speclist,anonfun,errmsg) {if(opt)var sth=opt[1],current$0=sth;else var current$0=current; @@ -17378,7 +19951,7 @@ ([0,current$0],argv,[0,speclist],anonfun,errmsg)} function parse(l,f,msg) {try - {var _n7_=parse_argv(0,caml_sys_argv(0),l,f,msg);return _n7_} + {var _n3_=parse_argv(0,caml_sys_argv(0),l,f,msg);return _n3_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Bad) @@ -17388,7 +19961,7 @@ throw exn}} function parse_dynamic(l,f,msg) {try - {var _n6_=parse_argv_dynamic(0,caml_sys_argv(0),l,f,msg);return _n6_} + {var _n2_=parse_argv_dynamic(0,caml_sys_argv(0),l,f,msg);return _n2_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Bad) @@ -17402,8 +19975,8 @@ argv=[0,caml_sys_argv(0)], spec=[0,l], current$0=[0,current[1]], - _n5_=parse_and_expand_argv_dynamic(current$0,argv,spec,f,msg); - return _n5_} + _n1_=parse_and_expand_argv_dynamic(current$0,argv,spec,f,msg); + return _n1_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Bad) @@ -17422,17 +19995,17 @@ return n$0}} try {var n$0=index$0(s,9)} - catch(_n3_) - {_n3_ = caml_wrap_exception(_n3_); - if(_n3_ === Not_found) + catch(_nZ_) + {_nZ_ = caml_wrap_exception(_nZ_); + if(_nZ_ === Not_found) {try {var n=index$0(s,32)} - catch(_n4_) - {_n4_ = caml_wrap_exception(_n4_); - if(_n4_ === Not_found)return len; - throw _n4_} + catch(_n0_) + {_n0_ = caml_wrap_exception(_n0_); + if(_n0_ === Not_found)return len; + throw _n0_} return loop(n + 1 | 0)} - throw _n3_} + throw _nZ_} return loop(n$0 + 1 | 0)} function max_arg_len(cur,param) {var doc=param[3],spec=param[2],kwd=param[1]; @@ -17443,7 +20016,7 @@ {var seen=[0,0]; return map$4 (function(c) - {if(9 === c)if(! seen[1]){seen[1] = 1;return 32}return c}, + {if(9 === c && ! seen[1]){seen[1] = 1;return 32}return c}, s)} function align(opt,speclist) {if(opt)var sth=opt[1],limit=sth;else var limit=max_int; @@ -17453,21 +20026,21 @@ len$0=min(len,limit); return map$2 (function(ksd) - {var _n1_=ksd[2],_n2_=ksd[1]; + {var _nX_=ksd[2],_nY_=ksd[1]; if(caml_string_notequal(ksd[3],cst$57)) - {if(11 === _n1_[0]) + {if(11 === _nX_[0]) {var msg$0=ksd[3], cutcol$0=second_word(msg$0), spaces$0=make$0(max(0,len$0 - cutcol$0 | 0) + 3 | 0,32); return [0, - _n2_, - _n1_, + _nY_, + _nX_, symbol(cst$58,symbol(spaces$0,replace_leading_tab(msg$0)))]} var msg=ksd[3], cutcol=second_word(msg), - kwd_len=caml_ml_string_length(_n2_), + kwd_len=caml_ml_string_length(_nY_), diff=(len$0 - kwd_len | 0) - cutcol | 0; if(0 < diff) {var @@ -17475,8 +20048,8 @@ prefix=sub$0(replace_leading_tab(msg),0,cutcol), suffix= sub$0(msg,cutcol,caml_ml_string_length(msg) - cutcol | 0); - return [0,_n2_,_n1_,symbol(prefix,symbol(spaces,suffix))]} - return [0,_n2_,_n1_,replace_leading_tab(msg)]} + return [0,_nY_,_nX_,symbol(prefix,symbol(spaces,suffix))]} + return [0,_nY_,_nX_,replace_leading_tab(msg)]} return ksd}, completed)} function read_aux(trim,sep,file) @@ -17484,16 +20057,11 @@ function stash(param) {var s=contents(buf); if(trim) - {var len=caml_ml_string_length(s); - if(0 < len) - if(13 === caml_string_get(s,len - 1 | 0)) - var _n0_=sub$0(s,0,len - 1 | 0),switch$0=1; - else - var switch$0=0; - else - var switch$0=0; - if(! switch$0)var _n0_=s; - var word=_n0_} + {var len=caml_ml_string_length(s),switch$0=0; + if(0 < len && 13 === caml_string_get(s,len - 1 | 0)) + {var _nW_=sub$0(s,0,len - 1 | 0);switch$0 = 1} + if(! switch$0)var _nW_=s; + var word=_nW_} else var word=s; words[1] = [0,word,words[1]]; @@ -17503,25 +20071,25 @@ {var c=caml_ml_input_char(ic); if(c === sep)stash(0);else add_char(buf,c); continue}} - catch(_nZ_) - {_nZ_ = caml_wrap_exception(_nZ_); - if(_nZ_ === End_of_file) + catch(_nV_) + {_nV_ = caml_wrap_exception(_nV_); + if(_nV_ === End_of_file) {if(0 < buf[2])stash(0); caml_ml_close_channel(ic); return of_list(rev(words[1]))} - throw _nZ_}} + throw _nV_}} var _be_=10,_bf_=1; - function read_arg(_nY_){return read_aux(_bf_,_be_,_nY_)} + function read_arg(_nU_){return read_aux(_bf_,_be_,_nU_)} var _bg_=0,_bh_=0; - function read_arg0(_nX_){return read_aux(_bh_,_bg_,_nX_)} + function read_arg0(_nT_){return read_aux(_bh_,_bg_,_nT_)} function write_aux(sep,file,args) {var oc=open_out_bin(file); iter$5(function(s){return caml_call2(fprintf(oc,_bi_),s,sep)},args); return close_out(oc)} var _bj_=10; - function write_arg(_nV_,_nW_){return write_aux(_bj_,_nV_,_nW_)} + function write_arg(_nR_,_nS_){return write_aux(_bj_,_nR_,_nS_)} var _bk_=0; - function write_arg0(_nT_,_nU_){return write_aux(_bk_,_nT_,_nU_)} + function write_arg0(_nP_,_nQ_){return write_aux(_bk_,_nP_,_nQ_)} var Stdlib_arg= [0, @@ -17552,8 +20120,8 @@ :caml_call1(sprintf(_bm_),f)} function other_fields(x,i) {if(x.length - 1 <= i)return cst$60; - var _nR_=other_fields(x,i + 1 | 0),_nS_=field(x,i); - return caml_call2(sprintf(_bn_),_nS_,_nR_)} + var _nN_=other_fields(x,i + 1 | 0),_nO_=field(x,i); + return caml_call2(sprintf(_bn_),_nO_,_nN_)} function use_printers(x) {function conv(param) {var param$0=param; @@ -17561,9 +20129,9 @@ {if(param$0) {var tl=param$0[2],hd=param$0[1]; try - {var val=caml_call1(hd,x),switch$0=0} - catch(_nQ_){var switch$0=1} - if(! switch$0)if(val){var s=val[1];return [0,s]} + {var switch$0=0,val=caml_call1(hd,x);switch$0 = 1} + catch(_nM_){} + if(switch$0 && val){var s=val[1];return [0,s]} var param$0=tl; continue} return 0}} @@ -17610,15 +20178,15 @@ {var constructor=x[1][1],match=x.length - 1; if(2 < match >>> 0) var - _nM_=other_fields(x,2), - _nN_=field(x,1), - _nP_=caml_call2(sprintf(_bo_),_nN_,_nM_); + _nI_=other_fields(x,2), + _nJ_=field(x,1), + _nL_=caml_call2(sprintf(_bo_),_nJ_,_nI_); else switch(match) - {case 0:var _nP_=cst$61;break; - case 1:var _nP_=cst$62;break; - default:var _nO_=field(x,1),_nP_=caml_call1(sprintf(_bp_),_nO_)} - return symbol(constructor,_nP_)} + {case 0:var _nL_=cst$61;break; + case 1:var _nL_=cst$62;break; + default:var _nK_=field(x,1),_nL_=caml_call1(sprintf(_bp_),_nK_)} + return symbol(constructor,_nL_)} return x[1]} function to_string$7(e) {var match=use_printers(e); @@ -17626,21 +20194,21 @@ return to_string_default(e)} function print(fct,arg) {try - {var _nL_=caml_call1(fct,arg);return _nL_} + {var _nH_=caml_call1(fct,arg);return _nH_} catch(x) {x = caml_wrap_exception(x); - var _nK_=to_string$7(x); - caml_call1(eprintf(_bq_),_nK_); + var _nG_=to_string$7(x); + caml_call1(eprintf(_bq_),_nG_); caml_ml_flush(stderr); throw x}} function catch$0(fct,arg) {try - {var _nJ_=caml_call1(fct,arg);return _nJ_} + {var _nF_=caml_call1(fct,arg);return _nF_} catch(x) {x = caml_wrap_exception(x); caml_ml_flush(stdout); - var _nI_=to_string$7(x); - caml_call1(eprintf(_br_),_nI_); + var _nE_=to_string$7(x); + caml_call1(eprintf(_br_),_nE_); return exit(2)}} function convert_raw_backtrace(bt) {return [0,runtime.caml_convert_raw_backtrace(bt)]} @@ -17648,51 +20216,49 @@ {function info(is_raise) {return is_raise ?0 === pos?cst_Raised_at:cst_Re_raised_at - :0 === pos - ?cst_Raised_by_primitive_operation_at - :cst_Called_from} + :0 === pos?cst_Raised_by_primitive_operat:cst_Called_from} if(0 === slot[0]) {var - _nB_=slot[5], - _nC_=slot[4], - _nD_=slot[3], - _nE_=slot[6]?cst_inlined:cst$63, - _nF_=slot[2], - _nG_=info(slot[1]); - return [0,caml_call6(sprintf(_bs_),_nG_,_nF_,_nE_,_nD_,_nC_,_nB_)]} + _nx_=slot[5], + _ny_=slot[4], + _nz_=slot[3], + _nA_=slot[6]?cst_inlined:cst$63, + _nB_=slot[2], + _nC_=info(slot[1]); + return [0,caml_call6(sprintf(_bs_),_nC_,_nB_,_nA_,_nz_,_ny_,_nx_)]} if(slot[1])return 0; - var _nH_=info(0); - return [0,caml_call1(sprintf(_bt_),_nH_)]} + var _nD_=info(0); + return [0,caml_call1(sprintf(_bt_),_nD_)]} function print_raw_backtrace(outchan,raw_backtrace) {var backtrace=convert_raw_backtrace(raw_backtrace); if(backtrace) - {var a=backtrace[1],_nz_=a.length - 1 - 1 | 0,_ny_=0; - if(! (_nz_ < 0)) - {var i=_ny_; + {var a=backtrace[1],_nv_=a.length - 1 - 1 | 0,_nu_=0; + if(! (_nv_ < 0)) + {var i=_nu_; for(;;) {var match=format_backtrace_slot(i,caml_check_bound(a,i)[1 + i]); if(match){var str=match[1];caml_call1(fprintf(outchan,_bu_),str)} - var _nA_=i + 1 | 0; - if(_nz_ !== i){var i=_nA_;continue} + var _nw_=i + 1 | 0; + if(_nv_ !== i){var i=_nw_;continue} break}} return 0} return fprintf(outchan,_bv_)} function print_backtrace(outchan) - {return print_raw_backtrace(outchan,caml_get_exception_raw_backtrace(0))} + {return print_raw_backtrace(outchan,caml_get_exception_raw_backtra(0))} function raw_backtrace_to_string(raw_backtrace) {var backtrace=convert_raw_backtrace(raw_backtrace); if(backtrace) - {var a=backtrace[1],b=create$2(1024),_nw_=a.length - 1 - 1 | 0,_nv_=0; - if(! (_nw_ < 0)) - {var i=_nv_; + {var a=backtrace[1],b=create$2(1024),_ns_=a.length - 1 - 1 | 0,_nr_=0; + if(! (_ns_ < 0)) + {var i=_nr_; for(;;) {var match=format_backtrace_slot(i,caml_check_bound(a,i)[1 + i]); if(match){var str=match[1];caml_call1(bprintf(b,_bw_),str)} - var _nx_=i + 1 | 0; - if(_nw_ !== i){var i=_nx_;continue} + var _nt_=i + 1 | 0; + if(_ns_ !== i){var i=_nt_;continue} break}} return contents(b)} - return cst_Program_not_linked_with_g_cannot_print_stack_backtrace} + return cst_Program_not_linked_with_g_} function backtrace_slot_is_raise(param) {return 0 === param[0]?param[1]:param[1]} function backtrace_slot_is_inline(param){return 0 === param[0]?param[6]:0} @@ -17704,17 +20270,17 @@ {var backtrace=match[1],i$1=backtrace.length - 1 - 1 | 0,i=i$1; for(;;) {if(-1 === i) - var _nu_=0; + var _nq_=0; else {var param=caml_check_bound(backtrace,i)[1 + i], - _nt_=0 === param[0]?1:0; - if(! _nt_){var i$0=i - 1 | 0,i=i$0;continue} - var _nu_=_nt_} - return _nu_?[0,backtrace]:0}} + _np_=0 === param[0]?1:0; + if(! _np_){var i$0=i - 1 | 0,i=i$0;continue} + var _nq_=_np_} + return _nq_?[0,backtrace]:0}} return 0} function get_backtrace(param) - {return raw_backtrace_to_string(caml_get_exception_raw_backtrace(0))} + {return raw_backtrace_to_string(caml_get_exception_raw_backtra(0))} function register_printer(fn){printers[1] = [0,fn,printers[1]];return 0} function exn_slot(x){return 0 === caml_obj_tag(x)?x[1]:x} function exn_slot_id(x){var slot=exn_slot(x);return slot[2]} @@ -17722,11 +20288,11 @@ var uncaught_exception_handler=[0,0]; function set_uncaught_exception_handler(fn) {uncaught_exception_handler[1] = [0,fn];return 0} - function _bx_(_ns_){return runtime.caml_raw_backtrace_next_slot(_ns_)} - function _by_(_nr_){return runtime.caml_convert_raw_backtrace_slot(_nr_)} - function _bz_(_nq_,_np_) - {return runtime.caml_raw_backtrace_slot(_nq_,_np_)} - function _bA_(_no_){return runtime.caml_raw_backtrace_length(_no_)} + function _bx_(_no_){return runtime.caml_raw_backtrace_next_slot(_no_)} + function _by_(_nn_){return runtime.caml_convert_raw_backtrace_slot(_nn_)} + function _bz_(_nm_,_nl_) + {return runtime.caml_raw_backtrace_slot(_nm_,_nl_)} + function _bA_(_nk_){return runtime.caml_raw_backtrace_length(_nk_)} var _bB_= [0, @@ -17734,9 +20300,9 @@ backtrace_slot_is_inline, backtrace_slot_location, format_backtrace_slot]; - function _bC_(_nn_){return runtime.caml_get_current_callstack(_nn_)} - function _bD_(_nm_){return caml_get_exception_raw_backtrace(_nm_)} - function _bE_(_nl_){return runtime.caml_backtrace_status(_nl_)} + function _bC_(_nj_){return runtime.caml_get_current_callstack(_nj_)} + function _bD_(_ni_){return caml_get_exception_raw_backtra(_ni_)} + function _bE_(_nh_){return runtime.caml_backtrace_status(_nh_)} var Stdlib_printexc= [0, @@ -17746,7 +20312,7 @@ catch$0, print_backtrace, get_backtrace, - function(_nk_){return runtime.caml_record_backtrace(_nk_)}, + function(_ng_){return runtime.caml_record_backtrace(_ng_)}, _bE_, register_printer, use_printers, @@ -17773,17 +20339,17 @@ function protect(finally$0,work) {function finally_no_exn(param) {try - {var _nj_=caml_call1(finally$0,0);return _nj_} + {var _nf_=caml_call1(finally$0,0);return _nf_} catch(e) {e = caml_wrap_exception(e); - var bt=caml_get_exception_raw_backtrace(0),exn=[0,Finally_raised,e]; + var bt=caml_get_exception_raw_backtra(0),exn=[0,Finally_raised,e]; caml_restore_raw_backtrace(exn,bt); throw exn}} try {var result=caml_call1(work,0)} catch(work_exn) {work_exn = caml_wrap_exception(work_exn); - var work_bt=caml_get_exception_raw_backtrace(0); + var work_bt=caml_get_exception_raw_backtra(0); finally_no_exn(0); caml_restore_raw_backtrace(work_exn,work_bt); throw work_exn} @@ -17792,45 +20358,45 @@ var Stdlib_fun=[0,const$0,flip,negate,protect,Finally_raised]; caml_register_global(756,Stdlib_fun,"Stdlib__fun"); function print_stat(c) - {var st=runtime.caml_gc_stat(0),_m4_=st[4]; - caml_call1(fprintf(c,_bF_),_m4_); - var _m5_=st[5]; - caml_call1(fprintf(c,_bG_),_m5_); - var _m6_=st[14]; - caml_call1(fprintf(c,_bH_),_m6_); + {var st=runtime.caml_gc_stat(0),_m0_=st[4]; + caml_call1(fprintf(c,_bF_),_m0_); + var _m1_=st[5]; + caml_call1(fprintf(c,_bG_),_m1_); + var _m2_=st[14]; + caml_call1(fprintf(c,_bH_),_m2_); fprintf(c,_bI_); var - _m7_=st[1], - l1=caml_ml_string_length(caml_call1(sprintf(_bJ_),_m7_)), - _m8_=st[1]; - caml_call2(fprintf(c,_bK_),l1,_m8_); - var _m9_=st[2]; - caml_call2(fprintf(c,_bL_),l1,_m9_); - var _m__=st[3]; - caml_call2(fprintf(c,_bM_),l1,_m__); + _m3_=st[1], + l1=caml_ml_string_length(caml_call1(sprintf(_bJ_),_m3_)), + _m4_=st[1]; + caml_call2(fprintf(c,_bK_),l1,_m4_); + var _m5_=st[2]; + caml_call2(fprintf(c,_bL_),l1,_m5_); + var _m6_=st[3]; + caml_call2(fprintf(c,_bM_),l1,_m6_); fprintf(c,_bN_); var - _m$_=st[15], - l2=caml_ml_string_length(caml_call1(sprintf(_bO_),_m$_)), - _na_=st[15]; - caml_call2(fprintf(c,_bP_),l2,_na_); - var _nb_=st[6]; - caml_call2(fprintf(c,_bQ_),l2,_nb_); - var _nc_=st[8]; - caml_call2(fprintf(c,_bR_),l2,_nc_); - var _nd_=st[10]; - caml_call2(fprintf(c,_bS_),l2,_nd_); - var _ne_=st[12]; - caml_call2(fprintf(c,_bT_),l2,_ne_); - var _nf_=st[13]; - caml_call2(fprintf(c,_bU_),l2,_nf_); + _m7_=st[15], + l2=caml_ml_string_length(caml_call1(sprintf(_bO_),_m7_)), + _m8_=st[15]; + caml_call2(fprintf(c,_bP_),l2,_m8_); + var _m9_=st[6]; + caml_call2(fprintf(c,_bQ_),l2,_m9_); + var _m__=st[8]; + caml_call2(fprintf(c,_bR_),l2,_m__); + var _m$_=st[10]; + caml_call2(fprintf(c,_bS_),l2,_m$_); + var _na_=st[12]; + caml_call2(fprintf(c,_bT_),l2,_na_); + var _nb_=st[13]; + caml_call2(fprintf(c,_bU_),l2,_nb_); fprintf(c,_bV_); - var _ng_=st[9]; - caml_call1(fprintf(c,_bW_),_ng_); - var _nh_=st[11]; - caml_call1(fprintf(c,_bX_),_nh_); - var _ni_=st[7]; - return caml_call1(fprintf(c,_bY_),_ni_)} + var _nc_=st[9]; + caml_call1(fprintf(c,_bW_),_nc_); + var _nd_=st[11]; + caml_call1(fprintf(c,_bX_),_nd_); + var _ne_=st[7]; + return caml_call1(fprintf(c,_bY_),_ne_)} function allocated_bytes(param) {var match=runtime.caml_gc_counters(0), @@ -17840,15 +20406,15 @@ return (mi + ma - pro) * 4} function create_alarm(f){return [0,1]} function delete_alarm(a){a[1] = 0;return 0} - function _bZ_(_m3_){return runtime.caml_final_release(_m3_)} - function _b0_(_m2_,_m1_) - {return runtime.caml_final_register_called_without_value(_m2_,_m1_)} + function _bZ_(_mZ_){return runtime.caml_final_release(_mZ_)} + function _b0_(_mY_,_mX_) + {return runtime.caml_final_register_called_without_value(_mY_,_mX_)} var Stdlib_gc= [0, print_stat, allocated_bytes, - function(_m0_,_mZ_){return runtime.caml_final_register(_m0_,_mZ_)}, + function(_mW_,_mV_){return runtime.caml_final_register(_mW_,_mV_)}, _b0_, _bZ_, create_alarm, @@ -17858,10 +20424,18 @@ {return caml_md5_string(str,0,caml_ml_string_length(str))} function bytes(b){return string(caml_string_of_bytes(b))} function substring(str,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_string_length(str) - len | 0) < ofs)) - return caml_md5_string(str,ofs,len); + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_string_length(str) - len | 0) < ofs)) + return caml_md5_string(str,ofs,len); return invalid_arg(cst_Digest_substring)} function subbytes(b,ofs,len) {return substring(caml_string_of_bytes(b),ofs,len)} @@ -17874,7 +20448,7 @@ return d} function output$0(chan,digest){return output_string(chan,digest)} function input$0(chan){return really_input_string(chan,16)} - function char_hex(n){var _mY_=10 <= n?87:48;return n + _mY_ | 0} + function char_hex(n){var _mU_=10 <= n?87:48;return n + _mU_ | 0} function to_hex(d) {if(16 !== caml_ml_string_length(d))invalid_arg(cst_Digest_to_hex); var result=caml_create_bytes(32),i=0; @@ -17882,8 +20456,8 @@ {var x=caml_string_get(d,i); caml_bytes_unsafe_set(result,i * 2 | 0,char_hex(x >>> 4 | 0)); caml_bytes_unsafe_set(result,(i * 2 | 0) + 1 | 0,char_hex(x & 15)); - var _mX_=i + 1 | 0; - if(15 !== i){var i=_mX_;continue} + var _mT_=i + 1 | 0; + if(15 !== i){var i=_mT_;continue} return caml_string_of_bytes(result)}} function from_hex(s) {if(32 !== caml_ml_string_length(s))invalid_arg(cst_Digest_from_hex); @@ -17898,11 +20472,11 @@ throw [0,Invalid_argument,cst_Digest_from_hex$0]} var result=caml_create_bytes(16),i=0; for(;;) - {var i$0=2 * i | 0,_mV_=digit(caml_string_get(s,i$0 + 1 | 0)); + {var i$0=2 * i | 0,_mR_=digit(caml_string_get(s,i$0 + 1 | 0)); caml_bytes_set - (result,i,chr((digit(caml_string_get(s,i$0)) << 4) + _mV_ | 0)); - var _mW_=i + 1 | 0; - if(15 !== i){var i=_mW_;continue} + (result,i,chr((digit(caml_string_get(s,i$0)) << 4) + _mR_ | 0)); + var _mS_=i + 1 | 0; + if(15 !== i){var i=_mS_;continue} return caml_string_of_bytes(result)}} var Stdlib_digest= @@ -17926,27 +20500,27 @@ {var seed$0=0 === seed.length - 1?[0,0]:seed,l=seed$0.length - 1,i$0=0; for(;;) {caml_check_bound(s[1],i$0)[1 + i$0] = i$0; - var _mU_=i$0 + 1 | 0; - if(54 !== i$0){var i$0=_mU_;continue} - var accu=[0,cst_x$1],_mQ_=54 + max(55,l) | 0,_mP_=0; - if(! (_mQ_ < 0)) - {var i=_mP_; + var _mQ_=i$0 + 1 | 0; + if(54 !== i$0){var i$0=_mQ_;continue} + var accu=[0,cst_x$1],_mM_=54 + max(55,l) | 0,_mL_=0; + if(! (_mM_ < 0)) + {var i=_mL_; for(;;) {var j=i % 55 | 0, k=caml_mod(i,l), x=caml_check_bound(seed$0,k)[1 + k]; - accu[1] = string(symbol(accu[1],caml_new_string("" + x))); + accu[1] = string(symbol(accu[1],caml_string_of_jsbytes("" + x))); var - _mR_=accu[1], - _mL_=caml_string_get(_mR_,3) << 24, - _mM_=caml_string_get(_mR_,2) << 16, - _mN_=caml_string_get(_mR_,1) << 8, - _mO_=((caml_string_get(_mR_,0) + _mN_ | 0) + _mM_ | 0) + _mL_ | 0, - _mS_=(caml_check_bound(s[1],j)[1 + j] ^ _mO_) & 1073741823; - caml_check_bound(s[1],j)[1 + j] = _mS_; - var _mT_=i + 1 | 0; - if(_mQ_ !== i){var i=_mT_;continue} + _mN_=accu[1], + _mH_=caml_string_get(_mN_,3) << 24, + _mI_=caml_string_get(_mN_,2) << 16, + _mJ_=caml_string_get(_mN_,1) << 8, + _mK_=((caml_string_get(_mN_,0) + _mJ_ | 0) + _mI_ | 0) + _mH_ | 0, + _mO_=(caml_check_bound(s[1],j)[1 + j] ^ _mK_) & 1073741823; + caml_check_bound(s[1],j)[1 + j] = _mO_; + var _mP_=i + 1 | 0; + if(_mM_ !== i){var i=_mP_;continue} break}} s[2] = 0; return 0}} @@ -17957,26 +20531,25 @@ function bits(s) {s[2] = (s[2] + 1 | 0) % 55 | 0; var - _mI_=s[2], - curval=caml_check_bound(s[1],_mI_)[1 + _mI_], - _mJ_=(s[2] + 24 | 0) % 55 | 0, + _mE_=s[2], + curval=caml_check_bound(s[1],_mE_)[1 + _mE_], + _mF_=(s[2] + 24 | 0) % 55 | 0, newval= - caml_check_bound(s[1],_mJ_)[1 + _mJ_] + caml_check_bound(s[1],_mF_)[1 + _mF_] + (curval ^ (curval >>> 25 | 0) & 31) | 0, newval30=newval & 1073741823, - _mK_=s[2]; - caml_check_bound(s[1],_mK_)[1 + _mK_] = newval30; + _mG_=s[2]; + caml_check_bound(s[1],_mG_)[1 + _mG_] = newval30; return newval30} function int$0(s,bound) - {if(! (1073741823 < bound)) - if(0 < bound) - for(;;) - {var r=bits(s),v=caml_mod(r,bound); - if(((1073741823 - bound | 0) + 1 | 0) < (r - v | 0))continue; - return v} + {if(! (1073741823 < bound) && 0 < bound) + for(;;) + {var r=bits(s),v=caml_mod(r,bound); + if(((1073741823 - bound | 0) + 1 | 0) < (r - v | 0))continue; + return v} return invalid_arg(cst_Random_int)} function int32(s,bound) {if(caml_lessequal(bound,0))return invalid_arg(cst_Random_int32); @@ -18051,18 +20624,18 @@ function hash_param(n1,n2,x){return caml_hash(n1,n2,0,x)} function seeded_hash(seed,x){return caml_hash(10,100,seed,x)} function ongoing_traversal(h) - {var _mG_=h.length - 1 < 4?1:0,_mH_=_mG_ || (h[4] < 0?1:0);return _mH_} + {var _mC_=h.length - 1 < 4?1:0,_mD_=_mC_ || (h[4] < 0?1:0);return _mD_} function flip_ongoing_traversal(h){h[4] = - h[4] | 0;return 0} try {var _cK_=caml_sys_getenv(cst_OCAMLRUNPARAM),params=_cK_} - catch(_mE_) - {_mE_ = caml_wrap_exception(_mE_); - if(_mE_ !== Not_found)throw _mE_; + catch(_mA_) + {_mA_ = caml_wrap_exception(_mA_); + if(_mA_ !== Not_found)throw _mA_; try {var _cJ_=caml_sys_getenv(cst_CAMLRUNPARAM),_b5_=_cJ_} - catch(_mF_) - {_mF_ = caml_wrap_exception(_mF_); - if(_mF_ !== Not_found)throw _mF_; + catch(_mB_) + {_mB_ = caml_wrap_exception(_mB_); + if(_mB_ !== Not_found)throw _mB_; var _b5_=cst$64} var params=_b5_} var @@ -18070,38 +20643,36 @@ randomized=[0,randomized_default]; function randomize(param){randomized[1] = 1;return 0} function is_randomized(param){return randomized[1]} - var prng=[246,function(_mD_){return caml_call1(_b4_[2],0)}]; + var prng=[246,function(_mz_){return caml_call1(_b4_[2],0)}]; function create$3(opt,initial_size) {if(opt)var sth=opt[1],random=sth;else var random=randomized[1]; var x=16; for(;;) - {if(! (initial_size <= x)) - if(! (max_array_length < (x * 2 | 0))) - {var x$0=x * 2 | 0,x=x$0;continue} + {if(! (initial_size <= x) && ! (max_array_length < (x * 2 | 0))) + {var x$0=x * 2 | 0,x=x$0;continue} if(random) var - _mB_=caml_obj_tag(prng), - _mC_=250 === _mB_?prng[1]:246 === _mB_?force_lazy_block(prng):prng, - seed=caml_call1(_b4_[4],_mC_); + _mx_=caml_obj_tag(prng), + _my_=250 === _mx_?prng[1]:246 === _mx_?force_lazy_block(prng):prng, + seed=caml_call1(_b4_[4],_my_); else var seed=0; return [0,0,caml_make_vect(x,0),seed,x]}} function clear$2(h) {h[1] = 0; - var len=h[2].length - 1,_mz_=len - 1 | 0,_my_=0; - if(! (_mz_ < 0)) - {var i=_my_; + var len=h[2].length - 1,_mv_=len - 1 | 0,_mu_=0; + if(! (_mv_ < 0)) + {var i=_mu_; for(;;) {caml_check_bound(h[2],i)[1 + i] = 0; - var _mA_=i + 1 | 0; - if(_mz_ !== i){var i=_mA_;continue} + var _mw_=i + 1 | 0; + if(_mv_ !== i){var i=_mw_;continue} break}} return 0} function reset$0(h) {var len=h[2].length - 1; - if(4 <= h.length - 1) - if(len !== abs(h[4])) - {h[1] = 0;h[2] = caml_make_vect(abs(h[4]),0);return 0} + if(4 <= h.length - 1 && len !== abs(h[4])) + {h[1] = 0;h[2] = caml_make_vect(abs(h[4]),0);return 0} return clear$2(h)} function copy_bucketlist(param) {if(param) @@ -18124,24 +20695,24 @@ return prec$0}} return 0} function copy$6(init) - {var _mv_=init[4],_mw_=init[3],_mx_=map$5(copy_bucketlist,init[2]); - return [0,init[1],_mx_,_mw_,_mv_]} + {var _mr_=init[4],_ms_=init[3],_mt_=map$5(copy_bucketlist,init[2]); + return [0,init[1],_mt_,_ms_,_mr_]} function length$4(h){return h[1]} function resize$0(indexfun,h) {var odata=h[2], osize=odata.length - 1, nsize=osize * 2 | 0, - _mm_=nsize < max_array_length?1:0; - if(_mm_) + _mi_=nsize < max_array_length?1:0; + if(_mi_) {var ndata=caml_make_vect(nsize,0), ndata_tail=caml_make_vect(nsize,0), inplace=1 - ongoing_traversal(h); h[2] = ndata; - var _mo_=osize - 1 | 0,_mn_=0; - if(! (_mo_ < 0)) - {var i$0=_mn_; + var _mk_=osize - 1 | 0,_mj_=0; + if(! (_mk_ < 0)) + {var i$0=_mj_; a: for(;;) {var cell$1=caml_check_bound(odata,i$0)[1 + i$0],cell=cell$1; @@ -18161,27 +20732,27 @@ caml_check_bound(ndata_tail,nidx)[1 + nidx] = cell$0; var cell=next; continue} - var _mu_=i$0 + 1 | 0; - if(_mo_ !== i$0){var i$0=_mu_;continue a} + var _mq_=i$0 + 1 | 0; + if(_mk_ !== i$0){var i$0=_mq_;continue a} break} break}} if(inplace) - {var _mq_=nsize - 1 | 0,_mp_=0; - if(! (_mq_ < 0)) - {var i=_mp_; + {var _mm_=nsize - 1 | 0,_ml_=0; + if(! (_mm_ < 0)) + {var i=_ml_; for(;;) {var match$0=caml_check_bound(ndata_tail,i)[1 + i]; if(match$0)match$0[3] = 0; - var _mt_=i + 1 | 0; - if(_mq_ !== i){var i=_mt_;continue} + var _mp_=i + 1 | 0; + if(_mm_ !== i){var i=_mp_;continue} break}} - var _mr_=0} + var _mn_=0} else - var _mr_=inplace; - var _ms_=_mr_} + var _mn_=inplace; + var _mo_=_mn_} else - var _ms_=_mm_; - return _ms_} + var _mo_=_mi_; + return _mo_} function key_index(h,key) {return 3 <= h.length - 1 ?caml_hash(10,100,h[3],key) & (h[2].length - 1 - 1 | 0) @@ -18193,8 +20764,8 @@ bucket=[0,key,data,caml_check_bound(h[2],i)[1 + i]]; caml_check_bound(h[2],i)[1 + i] = bucket; h[1] = h[1] + 1 | 0; - var _ml_=h[2].length - 1 << 1 < h[1]?1:0; - return _ml_?resize$0(key_index,h):_ml_} + var _mh_=h[2].length - 1 << 1 < h[1]?1:0; + return _mh_?resize$0(key_index,h):_mh_} function remove(h,key) {var i=key_index(h,key),c$0=caml_check_bound(h[2],i)[1 + i],prec=0,c=c$0; for(;;) @@ -18209,7 +20780,7 @@ continue} return 0}} function find$0(h,key) - {var _mk_=key_index(h,key),match=caml_check_bound(h[2],_mk_)[1 + _mk_]; + {var _mg_=key_index(h,key),match=caml_check_bound(h[2],_mg_)[1 + _mg_]; if(match) {var k1=match[1],d1=match[2],next1=match[3]; if(0 === caml_compare(key,k1))return d1; @@ -18231,7 +20802,7 @@ throw Not_found} throw Not_found} function find_opt$0(h,key) - {var _mj_=key_index(h,key),match=caml_check_bound(h[2],_mj_)[1 + _mj_]; + {var _mf_=key_index(h,key),match=caml_check_bound(h[2],_mf_)[1 + _mf_]; if(match) {var k1=match[1],d1=match[2],next1=match[3]; if(0 === caml_compare(key,k1))return [0,d1]; @@ -18262,8 +20833,8 @@ var param$0=next; continue} return 0}} - var _mi_=key_index(h,key); - return find_in_bucket(caml_check_bound(h[2],_mi_)[1 + _mi_])} + var _me_=key_index(h,key); + return find_in_bucket(caml_check_bound(h[2],_me_)[1 + _me_])} function replace(h,key,data) {var i=key_index(h,key), @@ -18275,27 +20846,27 @@ if(0 !== caml_compare(k,key)){var param=next;continue} param[1] = key; param[2] = data; - var _mf_=0} + var _mb_=0} else - var _mf_=1; - if(_mf_) + var _mb_=1; + if(_mb_) {caml_check_bound(h[2],i)[1 + i] = [0,key,data,param$0]; h[1] = h[1] + 1 | 0; - var _mg_=h[2].length - 1 << 1 < h[1]?1:0; - if(_mg_)return resize$0(key_index,h); - var _mh_=_mg_} + var _mc_=h[2].length - 1 << 1 < h[1]?1:0; + if(_mc_)return resize$0(key_index,h); + var _md_=_mc_} else - var _mh_=_mf_; - return _mh_}} + var _md_=_mb_; + return _md_}} function mem$2(h,key) {var - _me_=key_index(h,key), - param$0=caml_check_bound(h[2],_me_)[1 + _me_], + _ma_=key_index(h,key), + param$0=caml_check_bound(h[2],_ma_)[1 + _ma_], param=param$0; for(;;) {if(param) - {var k=param[1],next=param[3],_md_=0 === caml_compare(k,key)?1:0; - if(_md_)return _md_; + {var k=param[1],next=param[3],_l$_=0 === caml_compare(k,key)?1:0; + if(_l$_)return _l$_; var param=next; continue} return 0}} @@ -18312,16 +20883,16 @@ var old_trav=ongoing_traversal(h); if(1 - old_trav)flip_ongoing_traversal(h); try - {var d=h[2],_l$_=d.length - 1 - 1 | 0,_l__=0; - if(! (_l$_ < 0)) - {var i=_l__; + {var d=h[2],_l7_=d.length - 1 - 1 | 0,_l6_=0; + if(! (_l7_ < 0)) + {var i=_l6_; for(;;) {do_bucket(caml_check_bound(d,i)[1 + i]); - var _mc_=i + 1 | 0; - if(_l$_ !== i){var i=_mc_;continue} + var _l__=i + 1 | 0; + if(_l7_ !== i){var i=_l__;continue} break}} - var _ma_=1 - old_trav,_mb_=_ma_?flip_ongoing_traversal(h):_ma_; - return _mb_} + var _l8_=1 - old_trav,_l9_=_l8_?flip_ongoing_traversal(h):_l8_; + return _l9_} catch(exn) {exn = caml_wrap_exception(exn); if(old_trav)throw exn; @@ -18355,16 +20926,16 @@ {var d=h[2],old_trav=ongoing_traversal(h); if(1 - old_trav)flip_ongoing_traversal(h); try - {var _l7_=d.length - 1 - 1 | 0,_l6_=0; - if(! (_l7_ < 0)) - {var i=_l6_; + {var _l3_=d.length - 1 - 1 | 0,_l2_=0; + if(! (_l3_ < 0)) + {var i=_l2_; for(;;) {filter_map_inplace_bucket(f,h,i,0,caml_check_bound(h[2],i)[1 + i]); - var _l9_=i + 1 | 0; - if(_l7_ !== i){var i=_l9_;continue} + var _l5_=i + 1 | 0; + if(_l3_ !== i){var i=_l5_;continue} break}} - var _l8_=0; - return _l8_} + var _l4_=0; + return _l4_} catch(exn) {exn = caml_wrap_exception(exn); if(old_trav)throw exn; @@ -18387,18 +20958,18 @@ var old_trav=ongoing_traversal(h); if(1 - old_trav)flip_ongoing_traversal(h); try - {var d=h[2],accu=[0,init],_l2_=d.length - 1 - 1 | 0,_l1_=0; - if(! (_l2_ < 0)) - {var i=_l1_; + {var d=h[2],accu=[0,init],_lY_=d.length - 1 - 1 | 0,_lX_=0; + if(! (_lY_ < 0)) + {var i=_lX_; for(;;) - {var _l4_=accu[1]; - accu[1] = do_bucket(caml_check_bound(d,i)[1 + i],_l4_); - var _l5_=i + 1 | 0; - if(_l2_ !== i){var i=_l5_;continue} + {var _l0_=accu[1]; + accu[1] = do_bucket(caml_check_bound(d,i)[1 + i],_l0_); + var _l1_=i + 1 | 0; + if(_lY_ !== i){var i=_l1_;continue} break}} if(1 - old_trav)flip_ongoing_traversal(h); - var _l3_=accu[1]; - return _l3_} + var _lZ_=accu[1]; + return _lZ_} catch(exn) {exn = caml_wrap_exception(exn); if(old_trav)throw exn; @@ -18417,18 +20988,18 @@ return accu$0}} function stats(h) {var - _lY_=h[2], - _lZ_=0, + _lU_=h[2], + _lV_=0, mbl= - fold_left$1(function(m,b){return max(m,bucket_length(0,b))},_lZ_,_lY_), + fold_left$1(function(m,b){return max(m,bucket_length(0,b))},_lV_,_lU_), histo=caml_make_vect(mbl + 1 | 0,0), - _l0_=h[2]; + _lW_=h[2]; iter$5 (function(b) {var l=bucket_length(0,b); histo[1 + l] = caml_check_bound(histo,l)[1 + l] + 1 | 0; return 0}, - _l0_); + _lW_); return [0,h[1],h[2].length - 1,mbl,histo]} function to_seq$9(tbl) {var tbl_data=tbl[2]; @@ -18437,7 +21008,7 @@ for(;;) {if(buck$0) {var key=buck$0[1],data=buck$0[2],next=buck$0[3]; - return [0,[0,key,data],function(_lX_){return aux(i$0,next,_lX_)}]} + return [0,[0,key,data],function(_lT_){return aux(i$0,next,_lT_)}]} if(i$0 === tbl_data.length - 1)return 0; var buck$1=caml_check_bound(tbl_data,i$0)[1 + i$0], @@ -18445,16 +21016,16 @@ i$0=i$1, buck$0=buck$1; continue}} - var _lU_=0,_lV_=0; - return function(_lW_){return aux(_lV_,_lU_,_lW_)}} + var _lQ_=0,_lR_=0; + return function(_lS_){return aux(_lR_,_lQ_,_lS_)}} function to_seq_keys(m) - {var _lQ_=to_seq$9(m); - function _lR_(_lT_){return _lT_[1]} - return function(_lS_){return map(_lR_,_lQ_,_lS_)}} - function to_seq_values(m) {var _lM_=to_seq$9(m); - function _lN_(_lP_){return _lP_[2]} + function _lN_(_lP_){return _lP_[1]} return function(_lO_){return map(_lN_,_lM_,_lO_)}} + function to_seq_values(m) + {var _lI_=to_seq$9(m); + function _lJ_(_lL_){return _lL_[2]} + return function(_lK_){return map(_lJ_,_lI_,_lK_)}} function add_seq$2(tbl,i) {return iter (function(param) @@ -18468,16 +21039,16 @@ function of_seq$7(i){var tbl=create$3(0,16);replace_seq(tbl,i);return tbl} function MakeSeeded(H) {function key_index(h,key) - {var _lL_=h[2].length - 1 - 1 | 0; - return caml_call2(H[2],h[3],key) & _lL_} + {var _lH_=h[2].length - 1 - 1 | 0; + return caml_call2(H[2],h[3],key) & _lH_} function add(h,key,data) {var i=key_index(h,key), bucket=[0,key,data,caml_check_bound(h[2],i)[1 + i]]; caml_check_bound(h[2],i)[1 + i] = bucket; h[1] = h[1] + 1 | 0; - var _lK_=h[2].length - 1 << 1 < h[1]?1:0; - return _lK_?resize$0(key_index,h):_lK_} + var _lG_=h[2].length - 1 << 1 < h[1]?1:0; + return _lG_?resize$0(key_index,h):_lG_} function remove(h,key) {var i=key_index(h,key), @@ -18496,7 +21067,7 @@ continue} return 0}} function find(h,key) - {var _lJ_=key_index(h,key),match=caml_check_bound(h[2],_lJ_)[1 + _lJ_]; + {var _lF_=key_index(h,key),match=caml_check_bound(h[2],_lF_)[1 + _lF_]; if(match) {var k1=match[1],d1=match[2],next1=match[3]; if(caml_call2(H[1],key,k1))return d1; @@ -18518,7 +21089,7 @@ throw Not_found} throw Not_found} function find_opt(h,key) - {var _lI_=key_index(h,key),match=caml_check_bound(h[2],_lI_)[1 + _lI_]; + {var _lE_=key_index(h,key),match=caml_check_bound(h[2],_lE_)[1 + _lE_]; if(match) {var k1=match[1],d1=match[2],next1=match[3]; if(caml_call2(H[1],key,k1))return [0,d1]; @@ -18549,8 +21120,8 @@ var param$0=next; continue} return 0}} - var _lH_=key_index(h,key); - return find_in_bucket(caml_check_bound(h[2],_lH_)[1 + _lH_])} + var _lD_=key_index(h,key); + return find_in_bucket(caml_check_bound(h[2],_lD_)[1 + _lD_])} function replace(h,key,data) {var i=key_index(h,key), @@ -18562,27 +21133,27 @@ if(! caml_call2(H[1],k,key)){var param=next;continue} param[1] = key; param[2] = data; - var _lE_=0} + var _lA_=0} else - var _lE_=1; - if(_lE_) + var _lA_=1; + if(_lA_) {caml_check_bound(h[2],i)[1 + i] = [0,key,data,param$0]; h[1] = h[1] + 1 | 0; - var _lF_=h[2].length - 1 << 1 < h[1]?1:0; - if(_lF_)return resize$0(key_index,h); - var _lG_=_lF_} + var _lB_=h[2].length - 1 << 1 < h[1]?1:0; + if(_lB_)return resize$0(key_index,h); + var _lC_=_lB_} else - var _lG_=_lE_; - return _lG_}} + var _lC_=_lA_; + return _lC_}} function mem(h,key) {var - _lD_=key_index(h,key), - param$0=caml_check_bound(h[2],_lD_)[1 + _lD_], + _lz_=key_index(h,key), + param$0=caml_check_bound(h[2],_lz_)[1 + _lz_], param=param$0; for(;;) {if(param) - {var k=param[1],next=param[3],_lC_=caml_call2(H[1],k,key); - if(_lC_)return _lC_; + {var k=param[1],next=param[3],_ly_=caml_call2(H[1],k,key); + if(_ly_)return _ly_; var param=next; continue} return 0}} @@ -18645,8 +21216,8 @@ to_seq_values=include[19], add_seq=include[20], replace_seq=include[21], - _lB_=include[1]; - function create(sz){return caml_call2(_lB_,_b7_,sz)} + _lx_=include[1]; + function create(sz){return caml_call2(_lx_,_b7_,sz)} function of_seq(i) {var tbl=create(16);caml_call2(replace_seq,tbl,i);return tbl} return [0, @@ -18707,13 +21278,13 @@ caml_hash]; caml_register_global(760,Stdlib_hashtbl,"Stdlib__hashtbl"); function weak_create(l) - {var _lz_=0 <= l?1:0,_lA_=_lz_?l <= _s_[15]?1:0:_lz_; - if(1 - _lA_)invalid_arg(cst_Weak_create); + {var _lv_=0 <= l?1:0,_lw_=_lv_?l <= _s_[15]?1:0:_lv_; + if(1 - _lw_)invalid_arg(cst_Weak_create); return runtime.caml_weak_create(l)} function length$5(x){return x.length - 1 - 2 | 0} function raise_if_invalid_offset$0(e,o,msg) - {var _lw_=0 <= o?1:0,_lx_=_lw_?o < length$5(e)?1:0:_lw_,_ly_=1 - _lx_; - return _ly_?invalid_arg(msg):_ly_} + {var _ls_=0 <= o?1:0,_lt_=_ls_?o < length$5(e)?1:0:_ls_,_lu_=1 - _lt_; + return _lu_?invalid_arg(msg):_lu_} function set(e,o,x) {raise_if_invalid_offset$0(e,o,cst_Weak_set); if(x){var x$0=x[1];return caml_ephe_set_key(e,o,x$0)} @@ -18728,29 +21299,40 @@ {raise_if_invalid_offset$0(e,o,cst_Weak_check); return runtime.caml_weak_check(e,o)} function blit$4(e1,o1,e2,o2,l) - {if(0 <= l) - if(0 <= o1) - if(! ((length$5(e1) - l | 0) < o1)) - if(0 <= o2) - if(! ((length$5(e2) - l | 0) < o2)) - {var - _lu_=0 !== l?1:0, - _lv_=_lu_?runtime.caml_weak_blit(e1,o1,e2,o2,l):_lu_; - return _lv_} + {if + (0 + <= + l + && + 0 + <= + o1 + && + ! + ((length$5(e1) - l | 0) < o1) + && + 0 + <= + o2 + && + ! + ((length$5(e2) - l | 0) < o2)) + {var + _lq_=0 !== l?1:0, + _lr_=_lq_?runtime.caml_weak_blit(e1,o1,e2,o2,l):_lq_; + return _lr_} return invalid_arg(cst_Weak_blit)} function fill$2(ar,ofs,len,x) - {if(0 <= ofs) - if(0 <= len) - if(! ((length$5(ar) - len | 0) < ofs)) - {var _ls_=(ofs + len | 0) - 1 | 0; - if(! (_ls_ < ofs)) - {var i=ofs; - for(;;) - {set(ar,i,x); - var _lt_=i + 1 | 0; - if(_ls_ !== i){var i=_lt_;continue} - break}} - return 0} + {if(0 <= ofs && 0 <= len && ! ((length$5(ar) - len | 0) < ofs)) + {var _lo_=(ofs + len | 0) - 1 | 0; + if(! (_lo_ < ofs)) + {var i=ofs; + for(;;) + {set(ar,i,x); + var _lp_=i + 1 | 0; + if(_lo_ !== i){var i=_lp_;continue} + break}} + return 0} throw [0,Invalid_argument,cst_Weak_fill]} function Make$0(H) {var emptybucket=weak_create(0); @@ -18767,20 +21349,20 @@ 0, 0]} function clear(t) - {var _lq_=t[1].length - 1 - 1 | 0,_lp_=0; - if(! (_lq_ < 0)) - {var i=_lp_; + {var _lm_=t[1].length - 1 - 1 | 0,_ll_=0; + if(! (_lm_ < 0)) + {var i=_ll_; for(;;) {caml_check_bound(t[1],i)[1 + i] = emptybucket; caml_check_bound(t[2],i)[1 + i] = [0]; - var _lr_=i + 1 | 0; - if(_lq_ !== i){var i=_lr_;continue} + var _ln_=i + 1 | 0; + if(_lm_ !== i){var i=_ln_;continue} break}} t[3] = limit; t[4] = 0; return 0} function fold(f,t,init) - {var _lo_=t[1],i=0; + {var _lk_=t[1],i=0; return fold_right$0 (function(b,accu$1) {var i$0=i,accu=accu$1; @@ -18797,10 +21379,10 @@ continue} var i$2=i$0 + 1 | 0,i$0=i$2; continue}}, - _lo_, + _lk_, init)} function iter(f,t) - {var _ln_=t[1],i=0; + {var _lj_=t[1],i=0; return iter$5 (function(b) {var i$0=i; @@ -18814,24 +21396,24 @@ continue} var i$2=i$0 + 1 | 0,i$0=i$2; continue}}, - _ln_)} + _lj_)} function count_bucket(i,b,accu) {var i$0=i,accu$0=accu; for(;;) {if(length$5(b) <= i$0)return accu$0; var - _lm_=check$0(b,i$0)?1:0, - accu$1=accu$0 + _lm_ | 0, + _li_=check$0(b,i$0)?1:0, + accu$1=accu$0 + _li_ | 0, i$1=i$0 + 1 | 0, i$0=i$1, accu$0=accu$1; continue}} function count(t) - {var _lh_=0,_li_=t[1],_lj_=0; + {var _ld_=0,_le_=t[1],_lf_=0; return fold_right$0 - (function(_lk_,_ll_){return count_bucket(_lj_,_lk_,_ll_)}, - _li_, - _lh_)} + (function(_lg_,_lh_){return count_bucket(_lf_,_lg_,_lh_)}, + _le_, + _ld_)} function add_aux(t,setter,d,h,index) {var bucket$0=caml_check_bound(t[1],index)[1 + index], @@ -18843,8 +21425,7 @@ {var newsz= min(((3 * sz | 0) / 2 | 0) + 3 | 0,max_array_length - 2 | 0); - if(newsz <= sz) - failwith(cst_Weak_Make_hash_bucket_cannot_grow_more); + if(newsz <= sz)failwith(cst_Weak_Make_hash_bucket_cann); var newbucket$0=weak_create(newsz), newhashes=caml_make_vect(newsz,0); @@ -18854,16 +21435,16 @@ caml_check_bound(newhashes,sz)[1 + sz] = h; caml_check_bound(t[1],index)[1 + index] = newbucket$0; caml_check_bound(t[2],index)[1 + index] = newhashes; - var _ld_=sz <= t[3]?1:0,_le_=_ld_?t[3] < newsz?1:0:_ld_; - if(_le_) + var _k$_=sz <= t[3]?1:0,_la_=_k$_?t[3] < newsz?1:0:_k$_; + if(_la_) {t[4] = t[4] + 1 | 0; var i$4=0; for(;;) {var - _k5_=t[5], - bucket=caml_check_bound(t[1],_k5_)[1 + _k5_], - _k6_=t[5], - hbucket=caml_check_bound(t[2],_k6_)[1 + _k6_], + _k1_=t[5], + bucket=caml_check_bound(t[1],_k1_)[1 + _k1_], + _k2_=t[5], + hbucket=caml_check_bound(t[2],_k2_)[1 + _k2_], n=length$5(bucket), prev_len=(((n - 3 | 0) * 2 | 0) + 2 | 0) / 3 | 0, live=count_bucket(0,bucket,0); @@ -18875,38 +21456,38 @@ {var i$1=i$0 + 1 | 0,i$0=i$1;continue} if(check$0(bucket,j)) {blit$4(bucket,j,bucket,i$0,1); - var _k7_=caml_check_bound(hbucket,j)[1 + j]; - caml_check_bound(hbucket,i$0)[1 + i$0] = _k7_; + var _k3_=caml_check_bound(hbucket,j)[1 + j]; + caml_check_bound(hbucket,i$0)[1 + i$0] = _k3_; var j$0=j - 1 | 0,i$2=i$0 + 1 | 0,i$0=i$2,j=j$0; continue} var j$1=j - 1 | 0,j=j$1; continue} if(0 === prev_len) - {var _k8_=t[5]; - caml_check_bound(t[1],_k8_)[1 + _k8_] = emptybucket; - var _k9_=t[5]; - caml_check_bound(t[2],_k9_)[1 + _k9_] = [0]} + {var _k4_=t[5]; + caml_check_bound(t[1],_k4_)[1 + _k4_] = emptybucket; + var _k5_=t[5]; + caml_check_bound(t[2],_k5_)[1 + _k5_] = [0]} else {var newbucket=weak_create(prev_len); blit$4(bucket,0,newbucket,0,prev_len); - var _la_=t[5]; - caml_check_bound(t[1],_la_)[1 + _la_] = newbucket; - var _lb_=sub$1(hbucket,0,prev_len),_lc_=t[5]; - caml_check_bound(t[2],_lc_)[1 + _lc_] = _lb_} - var _k__=t[3] < n?1:0,_k$_=_k__?prev_len <= t[3]?1:0:_k__; - if(_k$_)t[4] = t[4] - 1 | 0; + var _k8_=t[5]; + caml_check_bound(t[1],_k8_)[1 + _k8_] = newbucket; + var _k9_=sub$1(hbucket,0,prev_len),_k__=t[5]; + caml_check_bound(t[2],_k__)[1 + _k__] = _k9_} + var _k6_=t[3] < n?1:0,_k7_=_k6_?prev_len <= t[3]?1:0:_k6_; + if(_k7_)t[4] = t[4] - 1 | 0; break}} t[5] = caml_mod(t[5] + 1 | 0,t[1].length - 1); - var _lg_=i$4 + 1 | 0; - if(2 !== i$4){var i$4=_lg_;continue} + var _lc_=i$4 + 1 | 0; + if(2 !== i$4){var i$4=_lc_;continue} break}} - var _lf_=((t[1].length - 1) / 2 | 0) < t[4]?1:0; - if(_lf_) + var _lb_=((t[1].length - 1) / 2 | 0) < t[4]?1:0; + if(_lb_) {var n$0=t[1].length - 1, newlen=min(((3 * n$0 | 0) / 2 | 0) + 3 | 0,max_array_length); if(n$0 < newlen) - {var newt=create(newlen),_k4_=t[1],i=0; + {var newt=create(newlen),_k0_=t[1],i=0; iteri$2 (function(j,ob) {var i$0=i; @@ -18925,7 +21506,7 @@ add_aux(newt,setter,0,h,get_index(newt,h)); var i$2=i$0 + 1 | 0,i$0=i$2; continue}}, - _k4_); + _k0_); t[1] = newt[1]; t[2] = newt[2]; t[3] = newt[3]; @@ -18935,7 +21516,7 @@ t[3] = max_int; t[4] = 0; return 0} - return _lf_} + return _lb_} if(check$0(bucket$0,i$3)){var i$5=i$3 + 1 | 0,i$3=i$5;continue} caml_call3(setter,bucket$0,i$3,d); caml_check_bound(hashes,i$3)[1 + i$3] = h; @@ -19013,10 +21594,10 @@ var i$1=i + 1 | 0,i=i$1; continue}} function remove(t,d) - {var _k3_=0; - return find_shadow(t,d,function(w,i){return set(w,i,0)},_k3_)} + {var _kZ_=0; + return find_shadow(t,d,function(w,i){return set(w,i,0)},_kZ_)} function mem(t,d) - {var _k2_=0;return find_shadow(t,d,function(w,i){return 1},_k2_)} + {var _kY_=0;return find_shadow(t,d,function(w,i){return 1},_kY_)} function find_all(t,d) {var h=caml_call1(H[2],d), @@ -19052,15 +21633,15 @@ {var len=t[1].length - 1,lens=map$5(length$5,t[1]); sort(caml_int_compare,lens); var - _kU_=0, + _kQ_=0, totlen= - fold_left$1(function(_k1_,_k0_){return _k1_ + _k0_ | 0},_kU_,lens), - _kV_=len - 1 | 0, - _kX_=len / 2 | 0, - _kW_=caml_check_bound(lens,_kV_)[1 + _kV_], - _kY_=caml_check_bound(lens,_kX_)[1 + _kX_], - _kZ_=caml_check_bound(lens,0)[1]; - return [0,len,count(t),totlen,_kZ_,_kY_,_kW_]} + fold_left$1(function(_kX_,_kW_){return _kX_ + _kW_ | 0},_kQ_,lens), + _kR_=len - 1 | 0, + _kT_=len / 2 | 0, + _kS_=caml_check_bound(lens,_kR_)[1 + _kR_], + _kU_=caml_check_bound(lens,_kT_)[1 + _kT_], + _kV_=caml_check_bound(lens,0)[1]; + return [0,len,count(t),totlen,_kV_,_kU_,_kS_]} return [0, create, clear, @@ -19096,8 +21677,8 @@ state[11] = 0; return 0} function format_string(state,s) - {var _kT_=caml_string_notequal(s,cst$65); - return _kT_?format_pp_text(state,caml_ml_string_length(s),s):_kT_} + {var _kP_=caml_string_notequal(s,cst$65); + return _kP_?format_pp_text(state,caml_ml_string_length(s),s):_kP_} function break_new_line(state,param,width) {var after=param[3],offset=param[2],before=param[1]; format_string(state,before); @@ -19127,9 +21708,9 @@ length$0=match$13[3], token=match$13[2], pending_count=state[13] - state[12] | 0, - _kR_=0 <= size$0?1:0, - _kS_=_kR_ || (state[9] <= pending_count?1:0); - if(_kS_) + _kN_=0 <= size$0?1:0, + _kO_=_kN_ || (state[9] <= pending_count?1:0); + if(_kO_) {take(state[28]); var size$1=0 <= size$0?size$0:pp_infinity; if(typeof token === "number") @@ -19219,17 +21800,17 @@ insertion_point=state[6] - state[9] | 0, match$10=top_opt(state[3]); if(match$10) - {var match$11=match$10[1],tabs$0=match$11[1],_kP_=tabs$0[1]; - if(_kP_) - {var first=_kP_[1],param=tabs$0[1]; + {var match$11=match$10[1],tabs$0=match$11[1],_kL_=tabs$0[1]; + if(_kL_) + {var first=_kL_[1],param=tabs$0[1]; for(;;) {if(param) {var tail=param[2],head=param[1]; if(! (insertion_point <= head)){var param=tail;continue} - var _kQ_=head} + var _kM_=head} else - var _kQ_=first; - var tab=_kQ_; + var _kM_=first; + var tab=_kM_; break}} else var tab=insertion_point; @@ -19268,7 +21849,7 @@ push(tag_name$0,state[5])} state[12] = length$0 + state[12] | 0; continue} - return _kS_} + return _kO_} return 0}} function enqueue_advance(state,tok) {pp_enqueue(state,tok);return advance_left(state)} @@ -19285,20 +21866,20 @@ match$0=match[1], queue_elem=match$0[2], left_total=match$0[1], - _kM_=queue_elem[1]; + _kI_=queue_elem[1]; if(left_total < state[12])return initialize_scan_stack(state[1]); - var _kN_=queue_elem[2]; - if(typeof _kN_ !== "number") - switch(_kN_[0]) + var _kJ_=queue_elem[2]; + if(typeof _kJ_ !== "number") + switch(_kJ_[0]) {case 3: - var _kO_=1 - ty; - return _kO_ - ?(queue_elem[1] = state[13] + _kM_ | 0,pop_opt(state[1]),0) - :_kO_; + var _kK_=1 - ty; + return _kK_ + ?(queue_elem[1] = state[13] + _kI_ | 0,pop_opt(state[1]),0) + :_kK_; case 1: case 2: return ty - ?(queue_elem[1] = state[13] + _kM_ | 0,pop_opt(state[1]),0) + ?(queue_elem[1] = state[13] + _kI_ | 0,pop_opt(state[1]),0) :ty } return 0} @@ -19313,37 +21894,37 @@ if(state[14] < state[15]) {var size=- state[13] | 0,elem=[0,size,[3,indent,br_ty],0]; return scan_push(state,0,elem)} - var _kK_=state[14] === state[15]?1:0; - if(_kK_) - {var _kL_=state[16]; - return enqueue_string_as(state,caml_ml_string_length(_kL_),_kL_)} - return _kK_} + var _kG_=state[14] === state[15]?1:0; + if(_kG_) + {var _kH_=state[16]; + return enqueue_string_as(state,caml_ml_string_length(_kH_),_kH_)} + return _kG_} function pp_close_box(state,param) - {var _kI_=1 < state[14]?1:0; - if(_kI_) + {var _kE_=1 < state[14]?1:0; + if(_kE_) {if(state[14] < state[15]) {pp_enqueue(state,[0,size,1,0]);set_size(state,1);set_size(state,0)} state[14] = state[14] - 1 | 0; - var _kJ_=0} + var _kF_=0} else - var _kJ_=_kI_; - return _kJ_} + var _kF_=_kE_; + return _kF_} function pp_open_stag(state,tag_name) {if(state[22]){push(tag_name,state[4]);caml_call1(state[26],tag_name)} - var _kH_=state[23]; - if(_kH_) + var _kD_=state[23]; + if(_kD_) {var token=[5,tag_name];return pp_enqueue(state,[0,size,token,0])} - return _kH_} + return _kD_} function pp_close_stag(state,param) {if(state[23])pp_enqueue(state,[0,size,5,0]); - var _kF_=state[22]; - if(_kF_) + var _kB_=state[22]; + if(_kB_) {var match=pop_opt(state[4]); if(match){var tag_name=match[1];return caml_call1(state[27],tag_name)} - var _kG_=0} + var _kC_=0} else - var _kG_=_kF_; - return _kG_} + var _kC_=_kB_; + return _kC_} function pp_open_tag(state,s){return pp_open_stag(state,[0,String_tag,s])} function pp_close_tag(state,param){return pp_close_stag(state,0)} function pp_set_print_tags(state,b){state[22] = b;return 0} @@ -19352,9 +21933,9 @@ function pp_get_mark_tags(state,param){return state[23]} function pp_set_tags(state,b) {pp_set_print_tags(state,b);return pp_set_mark_tags(state,b)} - function pp_get_formatter_stag_functions(state,param) + function pp_get_formatter_stag_function(state,param) {return [0,state[24],state[25],state[26],state[27]]} - function pp_set_formatter_stag_functions(state,param) + function pp_set_formatter_stag_function(state,param) {var pct=param[4],pot=param[3],mct=param[2],mot=param[1]; state[24] = mot; state[25] = mct; @@ -19375,8 +21956,8 @@ state[9] = state[6]; return pp_open_box_gen(state,0,3)} function pp_flush_queue(state,b) - {var _kE_=state[4]; - iter$7(function(param){return pp_close_tag(state,0)},_kE_); + {var _kA_=state[4]; + iter$7(function(param){return pp_close_tag(state,0)},_kA_); for(;;) {if(1 < state[14]){pp_close_box(state,0);continue} state[13] = pp_infinity; @@ -19384,14 +21965,14 @@ if(b)pp_output_newline(state); return pp_rinit(state)}} function pp_print_as_size(state,size,s) - {var _kD_=state[14] < state[15]?1:0; - return _kD_?enqueue_string_as(state,size,s):_kD_} + {var _kz_=state[14] < state[15]?1:0; + return _kz_?enqueue_string_as(state,size,s):_kz_} function pp_print_as(state,isize,s) {return pp_print_as_size(state,isize,s)} function pp_print_string(state,s) {return pp_print_as(state,caml_ml_string_length(s),s)} function pp_print_int(state,i) - {return pp_print_string(state,caml_new_string("" + i))} + {return pp_print_string(state,caml_string_of_jsbytes("" + i))} function pp_print_float(state,f) {return pp_print_string(state,to_string(f))} function pp_print_bool(state,b) @@ -19410,18 +21991,18 @@ function pp_print_flush(state,param) {pp_flush_queue(state,0);return caml_call1(state[18],0)} function pp_force_newline(state,param) - {var _kC_=state[14] < state[15]?1:0; - return _kC_?enqueue_advance(state,[0,size,3,0]):_kC_} + {var _ky_=state[14] < state[15]?1:0; + return _ky_?enqueue_advance(state,[0,size,3,0]):_ky_} function pp_print_if_newline(state,param) - {var _kB_=state[14] < state[15]?1:0; - return _kB_?enqueue_advance(state,[0,size,4,0]):_kB_} + {var _kx_=state[14] < state[15]?1:0; + return _kx_?enqueue_advance(state,[0,size,4,0]):_kx_} function pp_print_custom_break(state,fits,breaks) {var after=fits[3], width=fits[2], before=fits[1], - _kA_=state[14] < state[15]?1:0; - if(_kA_) + _kw_=state[14] < state[15]?1:0; + if(_kw_) {var size=- state[13] | 0, token=[1,fits,breaks], @@ -19433,7 +22014,7 @@ 0, elem=[0,size,token,length]; return scan_push(state,1,elem)} - return _kA_} + return _kw_} function pp_print_break(state,width,offset) {return pp_print_custom_break (state,[0,cst$73,width,cst$72],[0,cst$71,offset,cst$70])} @@ -19441,37 +22022,37 @@ function pp_print_cut(state,param){return pp_print_break(state,0,0)} function pp_open_tbox(state,param) {state[14] = state[14] + 1 | 0; - var _kz_=state[14] < state[15]?1:0; - if(_kz_) + var _kv_=state[14] < state[15]?1:0; + if(_kv_) {var elem=[0,size,[4,[0,[0,0]]],0];return enqueue_advance(state,elem)} - return _kz_} + return _kv_} function pp_close_tbox(state,param) - {var _kw_=1 < state[14]?1:0; - if(_kw_) - {var _kx_=state[14] < state[15]?1:0; - if(_kx_) + {var _ks_=1 < state[14]?1:0; + if(_ks_) + {var _kt_=state[14] < state[15]?1:0; + if(_kt_) {var elem=[0,size,2,0]; enqueue_advance(state,elem); state[14] = state[14] - 1 | 0; - var _ky_=0} + var _ku_=0} else - var _ky_=_kx_} + var _ku_=_kt_} else - var _ky_=_kw_; - return _ky_} + var _ku_=_ks_; + return _ku_} function pp_print_tbreak(state,width,offset) - {var _kv_=state[14] < state[15]?1:0; - if(_kv_) + {var _kr_=state[14] < state[15]?1:0; + if(_kr_) {var size=- state[13] | 0,elem=[0,size,[2,width,offset],width]; return scan_push(state,1,elem)} - return _kv_} + return _kr_} function pp_print_tab(state,param){return pp_print_tbreak(state,0,0)} function pp_set_tab(state,param) - {var _ku_=state[14] < state[15]?1:0; - if(_ku_){var elem=[0,size,0,0];return enqueue_advance(state,elem)} - return _ku_} + {var _kq_=state[14] < state[15]?1:0; + if(_kq_){var elem=[0,size,0,0];return enqueue_advance(state,elem)} + return _kq_} function pp_set_max_boxes(state,n) - {var _ks_=1 < n?1:0,_kt_=_ks_?(state[15] = n,0):_ks_;return _kt_} + {var _ko_=1 < n?1:0,_kp_=_ko_?(state[15] = n,0):_ko_;return _kp_} function pp_get_max_boxes(state,param){return state[15]} function pp_over_max_boxes(state,param) {return state[14] === state[15]?1:0} @@ -19479,20 +22060,20 @@ function pp_get_ellipsis_text(state,param){return state[16]} function pp_limit(n){return n < 1000000010?n:1000000009} function pp_set_max_indent(state,n$0) - {var _kr_=1 < n$0?1:0; - if(_kr_) - {var n$1=state[6] - n$0 | 0,_kq_=1 <= n$1?1:0; - if(_kq_) + {var _kn_=1 < n$0?1:0; + if(_kn_) + {var n$1=state[6] - n$0 | 0,_km_=1 <= n$1?1:0; + if(_km_) {var n=pp_limit(n$1); state[7] = n; state[8] = state[6] - state[7] | 0; return pp_rinit(state)} - return _kq_} - return _kr_} + return _km_} + return _kn_} function pp_get_max_indent(state,param){return state[8]} function pp_set_margin(state,n) - {var _kp_=1 <= n?1:0; - if(_kp_) + {var _kl_=1 <= n?1:0; + if(_kl_) {var n$0=pp_limit(n); state[6] = n$0; var @@ -19501,22 +22082,20 @@ ?state[8] :max(max(state[6] - state[7] | 0,state[6] / 2 | 0),1); return pp_set_max_indent(state,new_max_indent)} - return _kp_} + return _kl_} function check_geometry(geometry) {var - _kn_=1 < geometry[1]?1:0, - _ko_=_kn_?geometry[1] < geometry[2]?1:0:_kn_; - return _ko_} + _kj_=1 < geometry[1]?1:0, + _kk_=_kj_?geometry[1] < geometry[2]?1:0:_kj_; + return _kk_} function pp_get_margin(state,param){return state[6]} function pp_set_geometry(state,max_indent,margin) {if(2 <= max_indent) {if(margin <= max_indent) - throw [0, - Invalid_argument, - cst_Format_pp_set_geometry_margin_max_indent]; + throw [0,Invalid_argument,cst_Format_pp_set_geometry_mar]; pp_set_margin(state,margin); return pp_set_max_indent(state,max_indent)} - throw [0,Invalid_argument,cst_Format_pp_set_geometry_max_indent_2]} + throw [0,Invalid_argument,cst_Format_pp_set_geometry_max]} function pp_safe_set_geometry(state,max_indent,margin) {return check_geometry([0,max_indent,margin]) ?pp_set_geometry(state,max_indent,margin) @@ -19532,9 +22111,9 @@ return 0} function pp_get_formatter_out_functions(state,param) {return [0,state[17],state[18],state[19],state[20],state[21]]} - function pp_set_formatter_output_functions(state,f,g) + function pp_set_formatter_output_functi(state,f,g) {state[17] = f;state[18] = g;return 0} - function pp_get_formatter_output_functions(state,param) + function pp_get_formatter_output_functi(state,param) {return [0,state[17],state[18]]} function display_newline(state,param) {return caml_call3(state[17],cst$74,0,1)} @@ -19542,22 +22121,22 @@ function display_indent(state,n) {var n$0=n; for(;;) - {var _km_=0 < n$0?1:0; - if(_km_) + {var _ki_=0 < n$0?1:0; + if(_ki_) {if(80 < n$0) {caml_call3(state[17],blank_line,0,80); var n$1=n$0 - 80 | 0,n$0=n$1; continue} return caml_call3(state[17],blank_line,0,n$0)} - return _km_}} + return _ki_}} function pp_set_formatter_out_channel(state,oc) {state[17] = - function(_kj_,_kk_,_kl_){return output_substring(oc,_kj_,_kk_,_kl_)}; + function(_kf_,_kg_,_kh_){return output_substring(oc,_kf_,_kg_,_kh_)}; state[18] = function(param){return caml_ml_flush(oc)}; - state[19] = function(_ki_){return display_newline(state,_ki_)}; - state[20] = function(_kh_){return display_indent(state,_kh_)}; - state[21] = function(_kg_){return display_indent(state,_kg_)}; + state[19] = function(_ke_){return display_newline(state,_ke_)}; + state[20] = function(_kd_){return display_indent(state,_kd_)}; + state[21] = function(_kc_){return display_indent(state,_kc_)}; return 0} function default_pp_mark_open_tag(param) {if(param[1] === String_tag) @@ -19567,21 +22146,21 @@ {if(param[1] === String_tag) {var s=param[2];return symbol(cst$79,symbol(s,cst$78))} return cst$80} - function default_pp_print_open_tag(_kf_){return 0} - function default_pp_print_close_tag(_ke_){return 0} + function default_pp_print_open_tag(_kb_){return 0} + function default_pp_print_close_tag(_ka_){return 0} function pp_make_formatter(f,g,h,i,j) {var pp_queue=create$1(0),sys_tok=[0,unknown,_b__,0]; add(sys_tok,pp_queue); var scan_stack=create$0(0); initialize_scan_stack(scan_stack); push([0,1,sys_tok],scan_stack); - var _kb_=create$0(0),_kc_=create$0(0),_kd_=create$0(0); + var _j9_=create$0(0),_j__=create$0(0),_j$_=create$0(0); return [0, scan_stack, create$0(0), - _kd_, - _kc_, - _kb_, + _j$_, + _j__, + _j9_, 78, 10, 68, @@ -19609,27 +22188,27 @@ {return pp_make_formatter (out_funs[1],out_funs[2],out_funs[3],out_funs[4],out_funs[5])} function make_formatter(output,flush) - {function _j5_(_ka_){return 0} - function _j6_(_j$_){return 0} + {function _j1_(_j8_){return 0} + function _j2_(_j7_){return 0} var ppf= - pp_make_formatter(output,flush,function(_j__){return 0},_j6_,_j5_); - ppf[19] = function(_j9_){return display_newline(ppf,_j9_)}; - ppf[20] = function(_j8_){return display_indent(ppf,_j8_)}; - ppf[21] = function(_j7_){return display_indent(ppf,_j7_)}; + pp_make_formatter(output,flush,function(_j6_){return 0},_j2_,_j1_); + ppf[19] = function(_j5_){return display_newline(ppf,_j5_)}; + ppf[20] = function(_j4_){return display_indent(ppf,_j4_)}; + ppf[21] = function(_j3_){return display_indent(ppf,_j3_)}; return ppf} function formatter_of_out_channel(oc) - {function _j1_(param){return caml_ml_flush(oc)} + {function _jX_(param){return caml_ml_flush(oc)} return make_formatter - (function(_j2_,_j3_,_j4_) - {return output_substring(oc,_j2_,_j3_,_j4_)}, - _j1_)} + (function(_jY_,_jZ_,_j0_) + {return output_substring(oc,_jY_,_jZ_,_j0_)}, + _jX_)} function formatter_of_buffer(b) - {function _jW_(_j0_){return 0} + {function _jS_(_jW_){return 0} return make_formatter - (function(_jX_,_jY_,_jZ_) - {return add_substring(b,_jX_,_jY_,_jZ_)}, - _jW_)} + (function(_jT_,_jU_,_jV_) + {return add_substring(b,_jT_,_jU_,_jV_)}, + _jS_)} var pp_buffer_size=512; function pp_make_buffer(param){return create$2(pp_buffer_size)} var @@ -19650,94 +22229,94 @@ return items} function add_symbolic_output_item(sob,item) {sob[1] = [0,item,sob[1]];return 0} - function formatter_of_symbolic_output_buffer(sob) + function formatter_of_symbolic_output_b(sob) {function f(s,i,n){return add_symbolic_output_item(sob,[0,sub$0(s,i,n)])} - function g(_jV_){return add_symbolic_output_item(sob,0)} - function h(_jU_){return add_symbolic_output_item(sob,1)} + function g(_jR_){return add_symbolic_output_item(sob,0)} + function h(_jQ_){return add_symbolic_output_item(sob,1)} function i(n){return add_symbolic_output_item(sob,[1,n])} function j(n){return add_symbolic_output_item(sob,[2,n])} return pp_make_formatter(f,g,h,i,j)} - function open_hbox(_jT_){return pp_open_hbox(std_formatter,_jT_)} - function open_vbox(_jS_){return pp_open_vbox(std_formatter,_jS_)} - function open_hvbox(_jR_){return pp_open_hvbox(std_formatter,_jR_)} - function open_hovbox(_jQ_){return pp_open_hovbox(std_formatter,_jQ_)} - function open_box(_jP_){return pp_open_box(std_formatter,_jP_)} - function close_box(_jO_){return pp_close_box(std_formatter,_jO_)} - function open_tag(_jN_){return pp_open_tag(std_formatter,_jN_)} - function close_tag(_jM_){return pp_close_tag(std_formatter,_jM_)} - function open_stag(_jL_){return pp_open_stag(std_formatter,_jL_)} - function close_stag(_jK_){return pp_close_stag(std_formatter,_jK_)} - function print_as(_jI_,_jJ_){return pp_print_as(std_formatter,_jI_,_jJ_)} - function print_string$0(_jH_){return pp_print_string(std_formatter,_jH_)} - function print_int$0(_jG_){return pp_print_int(std_formatter,_jG_)} - function print_float$0(_jF_){return pp_print_float(std_formatter,_jF_)} - function print_char$0(_jE_){return pp_print_char(std_formatter,_jE_)} - function print_bool(_jD_){return pp_print_bool(std_formatter,_jD_)} - function print_break(_jB_,_jC_) - {return pp_print_break(std_formatter,_jB_,_jC_)} - function print_cut(_jA_){return pp_print_cut(std_formatter,_jA_)} - function print_space(_jz_){return pp_print_space(std_formatter,_jz_)} - function force_newline(_jy_){return pp_force_newline(std_formatter,_jy_)} - function print_flush(_jx_){return pp_print_flush(std_formatter,_jx_)} - function print_newline$0(_jw_) - {return pp_print_newline(std_formatter,_jw_)} - function print_if_newline(_jv_) - {return pp_print_if_newline(std_formatter,_jv_)} - function open_tbox(_ju_){return pp_open_tbox(std_formatter,_ju_)} - function close_tbox(_jt_){return pp_close_tbox(std_formatter,_jt_)} - function print_tbreak(_jr_,_js_) - {return pp_print_tbreak(std_formatter,_jr_,_js_)} - function set_tab(_jq_){return pp_set_tab(std_formatter,_jq_)} - function print_tab(_jp_){return pp_print_tab(std_formatter,_jp_)} - function set_margin(_jo_){return pp_set_margin(std_formatter,_jo_)} - function get_margin(_jn_){return std_formatter[6]} - function set_max_indent(_jm_) - {return pp_set_max_indent(std_formatter,_jm_)} - function get_max_indent(_jl_){return std_formatter[8]} - function set_geometry(_jj_,_jk_) - {return pp_set_geometry(std_formatter,_jj_,_jk_)} - function safe_set_geometry(_jh_,_ji_) - {return pp_safe_set_geometry(std_formatter,_jh_,_ji_)} - function get_geometry(_jg_){return pp_get_geometry(std_formatter,_jg_)} - function set_max_boxes(_jf_){return pp_set_max_boxes(std_formatter,_jf_)} - function get_max_boxes(_je_){return std_formatter[15]} - function over_max_boxes(_jd_) - {return pp_over_max_boxes(std_formatter,_jd_)} - function set_ellipsis_text(_jc_) - {return pp_set_ellipsis_text(std_formatter,_jc_)} - function get_ellipsis_text(_jb_){return std_formatter[16]} - function set_formatter_out_channel(_ja_) - {return pp_set_formatter_out_channel(std_formatter,_ja_)} - function set_formatter_out_functions(_i$_) - {return pp_set_formatter_out_functions(std_formatter,_i$_)} - function get_formatter_out_functions(_i__) - {return pp_get_formatter_out_functions(std_formatter,_i__)} - function set_formatter_output_functions(_i8_,_i9_) - {return pp_set_formatter_output_functions(std_formatter,_i8_,_i9_)} - function get_formatter_output_functions(_i7_) - {return pp_get_formatter_output_functions(std_formatter,_i7_)} - function set_formatter_stag_functions(_i6_) - {return pp_set_formatter_stag_functions(std_formatter,_i6_)} - function get_formatter_stag_functions(_i5_) - {return pp_get_formatter_stag_functions(std_formatter,_i5_)} - function set_print_tags(_i4_) - {return pp_set_print_tags(std_formatter,_i4_)} - function get_print_tags(_i3_){return std_formatter[22]} - function set_mark_tags(_i2_){return pp_set_mark_tags(std_formatter,_i2_)} - function get_mark_tags(_i1_){return std_formatter[23]} - function set_tags(_i0_){return pp_set_tags(std_formatter,_i0_)} + function open_hbox(_jP_){return pp_open_hbox(std_formatter,_jP_)} + function open_vbox(_jO_){return pp_open_vbox(std_formatter,_jO_)} + function open_hvbox(_jN_){return pp_open_hvbox(std_formatter,_jN_)} + function open_hovbox(_jM_){return pp_open_hovbox(std_formatter,_jM_)} + function open_box(_jL_){return pp_open_box(std_formatter,_jL_)} + function close_box(_jK_){return pp_close_box(std_formatter,_jK_)} + function open_tag(_jJ_){return pp_open_tag(std_formatter,_jJ_)} + function close_tag(_jI_){return pp_close_tag(std_formatter,_jI_)} + function open_stag(_jH_){return pp_open_stag(std_formatter,_jH_)} + function close_stag(_jG_){return pp_close_stag(std_formatter,_jG_)} + function print_as(_jE_,_jF_){return pp_print_as(std_formatter,_jE_,_jF_)} + function print_string$0(_jD_){return pp_print_string(std_formatter,_jD_)} + function print_int$0(_jC_){return pp_print_int(std_formatter,_jC_)} + function print_float$0(_jB_){return pp_print_float(std_formatter,_jB_)} + function print_char$0(_jA_){return pp_print_char(std_formatter,_jA_)} + function print_bool(_jz_){return pp_print_bool(std_formatter,_jz_)} + function print_break(_jx_,_jy_) + {return pp_print_break(std_formatter,_jx_,_jy_)} + function print_cut(_jw_){return pp_print_cut(std_formatter,_jw_)} + function print_space(_jv_){return pp_print_space(std_formatter,_jv_)} + function force_newline(_ju_){return pp_force_newline(std_formatter,_ju_)} + function print_flush(_jt_){return pp_print_flush(std_formatter,_jt_)} + function print_newline$0(_js_) + {return pp_print_newline(std_formatter,_js_)} + function print_if_newline(_jr_) + {return pp_print_if_newline(std_formatter,_jr_)} + function open_tbox(_jq_){return pp_open_tbox(std_formatter,_jq_)} + function close_tbox(_jp_){return pp_close_tbox(std_formatter,_jp_)} + function print_tbreak(_jn_,_jo_) + {return pp_print_tbreak(std_formatter,_jn_,_jo_)} + function set_tab(_jm_){return pp_set_tab(std_formatter,_jm_)} + function print_tab(_jl_){return pp_print_tab(std_formatter,_jl_)} + function set_margin(_jk_){return pp_set_margin(std_formatter,_jk_)} + function get_margin(_jj_){return std_formatter[6]} + function set_max_indent(_ji_) + {return pp_set_max_indent(std_formatter,_ji_)} + function get_max_indent(_jh_){return std_formatter[8]} + function set_geometry(_jf_,_jg_) + {return pp_set_geometry(std_formatter,_jf_,_jg_)} + function safe_set_geometry(_jd_,_je_) + {return pp_safe_set_geometry(std_formatter,_jd_,_je_)} + function get_geometry(_jc_){return pp_get_geometry(std_formatter,_jc_)} + function set_max_boxes(_jb_){return pp_set_max_boxes(std_formatter,_jb_)} + function get_max_boxes(_ja_){return std_formatter[15]} + function over_max_boxes(_i$_) + {return pp_over_max_boxes(std_formatter,_i$_)} + function set_ellipsis_text(_i__) + {return pp_set_ellipsis_text(std_formatter,_i__)} + function get_ellipsis_text(_i9_){return std_formatter[16]} + function set_formatter_out_channel(_i8_) + {return pp_set_formatter_out_channel(std_formatter,_i8_)} + function set_formatter_out_functions(_i7_) + {return pp_set_formatter_out_functions(std_formatter,_i7_)} + function get_formatter_out_functions(_i6_) + {return pp_get_formatter_out_functions(std_formatter,_i6_)} + function set_formatter_output_functions(_i4_,_i5_) + {return pp_set_formatter_output_functi(std_formatter,_i4_,_i5_)} + function get_formatter_output_functions(_i3_) + {return pp_get_formatter_output_functi(std_formatter,_i3_)} + function set_formatter_stag_functions(_i2_) + {return pp_set_formatter_stag_function(std_formatter,_i2_)} + function get_formatter_stag_functions(_i1_) + {return pp_get_formatter_stag_function(std_formatter,_i1_)} + function set_print_tags(_i0_) + {return pp_set_print_tags(std_formatter,_i0_)} + function get_print_tags(_iZ_){return std_formatter[22]} + function set_mark_tags(_iY_){return pp_set_mark_tags(std_formatter,_iY_)} + function get_mark_tags(_iX_){return std_formatter[23]} + function set_tags(_iW_){return pp_set_tags(std_formatter,_iW_)} function pp_print_list(opt,pp_v,ppf,param) {var opt$0=opt,param$0=param; for(;;) {if(opt$0)var sth=opt$0[1],pp_sep=sth;else var pp_sep=pp_print_cut; if(param$0) - {var _iY_=param$0[2],_iZ_=param$0[1]; - if(_iY_) - {caml_call2(pp_v,ppf,_iZ_); + {var _iU_=param$0[2],_iV_=param$0[1]; + if(_iU_) + {caml_call2(pp_v,ppf,_iV_); caml_call2(pp_sep,ppf,0); - var opt$1=[0,pp_sep],opt$0=opt$1,param$0=_iY_; + var opt$1=[0,pp_sep],opt$0=opt$1,param$0=_iU_; continue} - return caml_call2(pp_v,ppf,_iZ_)} + return caml_call2(pp_v,ppf,_iV_)} return 0}} function pp_print_text(ppf,s) {var len=caml_ml_string_length(s),left=[0,0],right=[0,0]; @@ -19754,13 +22333,13 @@ else if(32 === match){flush(0);pp_print_space(ppf,0)}else right[1]++; continue} - var _iX_=left[1] !== len?1:0; - return _iX_?flush(0):_iX_}} + var _iT_=left[1] !== len?1:0; + return _iT_?flush(0):_iT_}} function pp_print_option(opt,pp_v,ppf,param) {if(opt) var sth=opt[1],none=sth; else - var none=function(param,_iW_){return 0}; + var none=function(param,_iS_){return 0}; if(param){var v=param[1];return caml_call2(pp_v,ppf,v)} return caml_call2(none,ppf,0)} function pp_print_result(ok,error,ppf,param) @@ -19794,7 +22373,8 @@ pp_print_char(ppf,64); return pp_print_char(ppf,c)}} function output_acc$0(ppf,acc) - {if(typeof acc === "number") + {var switch$0=0; + if(typeof acc === "number") return 0; else switch(acc[0]) @@ -19803,118 +22383,62 @@ output_acc$0(ppf,p); return output_formatting_lit(ppf,f); case 1: - var _iM_=acc[2],_iN_=acc[1]; - if(0 === _iM_[0]) - {var acc$0=_iM_[1]; - output_acc$0(ppf,_iN_); + var _iI_=acc[2],_iJ_=acc[1]; + if(0 === _iI_[0]) + {var acc$0=_iI_[1]; + output_acc$0(ppf,_iJ_); return pp_open_stag (ppf,[0,String_tag,compute_tag(output_acc$0,acc$0)])} - var acc$1=_iM_[1]; - output_acc$0(ppf,_iN_); + var acc$1=_iI_[1]; + output_acc$0(ppf,_iJ_); var match=open_box_of_string(compute_tag(output_acc$0,acc$1)), bty=match[2], indent=match[1]; return pp_open_box_gen(ppf,indent,bty); case 2: - var _iO_=acc[1]; - if(typeof _iO_ === "number") - var switch$1=1; - else - if(0 === _iO_[0]) - {var _iP_=_iO_[2]; - if(typeof _iP_ === "number") - var switch$2=1; - else - if(1 === _iP_[0]) - var - p$1=_iO_[1], - size=_iP_[2], - s$0=acc[2], - switch$0=0, - switch$1=0, - switch$2=0; - else - var switch$2=1; - if(switch$2)var switch$1=1} - else - var switch$1=1; - if(switch$1)var p$0=_iO_,s=acc[2],switch$0=2; + var _iK_=acc[1],switch$1=0; + if(typeof _iK_ !== "number" && 0 === _iK_[0]) + {var _iL_=_iK_[2],switch$2=0; + if(typeof _iL_ !== "number" && 1 === _iL_[0]) + {var p$1=_iK_[1],size=_iL_[2],s$0=acc[2]; + switch$1 = 1; + switch$2 = 1}} + if(! switch$1){var p$0=_iK_,s=acc[2];switch$0 = 2} break; case 3: - var _iQ_=acc[1]; - if(typeof _iQ_ === "number") - var switch$3=1; - else - if(0 === _iQ_[0]) - {var _iR_=_iQ_[2]; - if(typeof _iR_ === "number") - var switch$4=1; - else - if(1 === _iR_[0]) - var - p$3=_iQ_[1], - size$0=_iR_[2], - c$0=acc[2], - switch$0=1, - switch$3=0, - switch$4=0; - else - var switch$4=1; - if(switch$4)var switch$3=1} - else - var switch$3=1; - if(switch$3)var p$2=_iQ_,c=acc[2],switch$0=3; + var _iM_=acc[1],switch$3=0; + if(typeof _iM_ !== "number" && 0 === _iM_[0]) + {var _iN_=_iM_[2],switch$4=0; + if(typeof _iN_ !== "number" && 1 === _iN_[0]) + {var p$3=_iM_[1],size$0=_iN_[2],c$0=acc[2]; + switch$0 = 1; + switch$3 = 1; + switch$4 = 1}} + if(! switch$3){var p$2=_iM_,c=acc[2];switch$0 = 3} break; case 4: - var _iS_=acc[1]; - if(typeof _iS_ === "number") - var switch$5=1; - else - if(0 === _iS_[0]) - {var _iT_=_iS_[2]; - if(typeof _iT_ === "number") - var switch$6=1; - else - if(1 === _iT_[0]) - var - p$1=_iS_[1], - size=_iT_[2], - s$0=acc[2], - switch$0=0, - switch$5=0, - switch$6=0; - else - var switch$6=1; - if(switch$6)var switch$5=1} - else - var switch$5=1; - if(switch$5)var p$0=_iS_,s=acc[2],switch$0=2; + var _iO_=acc[1],switch$5=0; + if(typeof _iO_ !== "number" && 0 === _iO_[0]) + {var _iP_=_iO_[2],switch$6=0; + if(typeof _iP_ !== "number" && 1 === _iP_[0]) + {var p$1=_iO_[1],size=_iP_[2],s$0=acc[2]; + switch$5 = 1; + switch$6 = 1}} + if(! switch$5){var p$0=_iO_,s=acc[2];switch$0 = 2} break; case 5: - var _iU_=acc[1]; - if(typeof _iU_ === "number") - var switch$7=1; + var _iQ_=acc[1],switch$7=0; + if(typeof _iQ_ === "number" || ! (0 === _iQ_[0])) + switch$7 = 1; else - if(0 === _iU_[0]) - {var _iV_=_iU_[2]; - if(typeof _iV_ === "number") - var switch$8=1; - else - if(1 === _iV_[0]) - var - p$3=_iU_[1], - size$0=_iV_[2], - c$0=acc[2], - switch$0=1, - switch$7=0, - switch$8=0; - else - var switch$8=1; - if(switch$8)var switch$7=1} - else - var switch$7=1; - if(switch$7)var p$2=_iU_,c=acc[2],switch$0=3; + {var _iR_=_iQ_[2],switch$8=0; + if(typeof _iR_ !== "number" && 1 === _iR_[0]) + {var p$3=_iQ_[1],size$0=_iR_[2],c$0=acc[2]; + switch$0 = 1; + switch$8 = 1} + if(! switch$8)switch$7 = 1} + if(switch$7){var p$2=_iQ_,c=acc[2];switch$0 = 3} break; case 6: var f$0=acc[2],p$4=acc[1]; @@ -19934,7 +22458,8 @@ case 2:output_acc$0(ppf,p$0);return pp_print_string(ppf,s); default:output_acc$0(ppf,p$2);return pp_print_char(ppf,c)}} function strput_acc$0(ppf,acc) - {if(typeof acc === "number") + {var switch$0=0; + if(typeof acc === "number") return 0; else switch(acc[0]) @@ -19943,129 +22468,73 @@ strput_acc$0(ppf,p); return output_formatting_lit(ppf,f); case 1: - var _iA_=acc[2],_iB_=acc[1]; - if(0 === _iA_[0]) - {var acc$0=_iA_[1]; - strput_acc$0(ppf,_iB_); + var _iw_=acc[2],_ix_=acc[1]; + if(0 === _iw_[0]) + {var acc$0=_iw_[1]; + strput_acc$0(ppf,_ix_); return pp_open_stag (ppf,[0,String_tag,compute_tag(strput_acc$0,acc$0)])} - var acc$1=_iA_[1]; - strput_acc$0(ppf,_iB_); + var acc$1=_iw_[1]; + strput_acc$0(ppf,_ix_); var match=open_box_of_string(compute_tag(strput_acc$0,acc$1)), bty=match[2], indent=match[1]; return pp_open_box_gen(ppf,indent,bty); case 2: - var _iC_=acc[1]; - if(typeof _iC_ === "number") - var switch$1=1; - else - if(0 === _iC_[0]) - {var _iD_=_iC_[2]; - if(typeof _iD_ === "number") - var switch$2=1; - else - if(1 === _iD_[0]) - var - p$1=_iC_[1], - size=_iD_[2], - s$0=acc[2], - switch$0=0, - switch$1=0, - switch$2=0; - else - var switch$2=1; - if(switch$2)var switch$1=1} - else - var switch$1=1; - if(switch$1)var p$0=_iC_,s=acc[2],switch$0=2; + var _iy_=acc[1],switch$1=0; + if(typeof _iy_ !== "number" && 0 === _iy_[0]) + {var _iz_=_iy_[2],switch$2=0; + if(typeof _iz_ !== "number" && 1 === _iz_[0]) + {var p$1=_iy_[1],size=_iz_[2],s$0=acc[2]; + switch$1 = 1; + switch$2 = 1}} + if(! switch$1){var p$0=_iy_,s=acc[2];switch$0 = 2} break; case 3: - var _iE_=acc[1]; - if(typeof _iE_ === "number") - var switch$3=1; - else - if(0 === _iE_[0]) - {var _iF_=_iE_[2]; - if(typeof _iF_ === "number") - var switch$4=1; - else - if(1 === _iF_[0]) - var - p$3=_iE_[1], - size$0=_iF_[2], - c$0=acc[2], - switch$0=1, - switch$3=0, - switch$4=0; - else - var switch$4=1; - if(switch$4)var switch$3=1} - else - var switch$3=1; - if(switch$3)var p$2=_iE_,c=acc[2],switch$0=3; + var _iA_=acc[1],switch$3=0; + if(typeof _iA_ !== "number" && 0 === _iA_[0]) + {var _iB_=_iA_[2],switch$4=0; + if(typeof _iB_ !== "number" && 1 === _iB_[0]) + {var p$3=_iA_[1],size$0=_iB_[2],c$0=acc[2]; + switch$0 = 1; + switch$3 = 1; + switch$4 = 1}} + if(! switch$3){var p$2=_iA_,c=acc[2];switch$0 = 3} break; case 4: - var _iG_=acc[1]; - if(typeof _iG_ === "number") - var switch$5=1; - else - if(0 === _iG_[0]) - {var _iH_=_iG_[2]; - if(typeof _iH_ === "number") - var switch$6=1; - else - if(1 === _iH_[0]) - var - p$1=_iG_[1], - size=_iH_[2], - s$0=acc[2], - switch$0=0, - switch$5=0, - switch$6=0; - else - var switch$6=1; - if(switch$6)var switch$5=1} - else - var switch$5=1; - if(switch$5)var p$0=_iG_,s=acc[2],switch$0=2; + var _iC_=acc[1],switch$5=0; + if(typeof _iC_ !== "number" && 0 === _iC_[0]) + {var _iD_=_iC_[2],switch$6=0; + if(typeof _iD_ !== "number" && 1 === _iD_[0]) + {var p$1=_iC_[1],size=_iD_[2],s$0=acc[2]; + switch$5 = 1; + switch$6 = 1}} + if(! switch$5){var p$0=_iC_,s=acc[2];switch$0 = 2} break; case 5: - var _iI_=acc[1]; - if(typeof _iI_ === "number") - var switch$7=1; + var _iE_=acc[1],switch$7=0; + if(typeof _iE_ === "number" || ! (0 === _iE_[0])) + switch$7 = 1; else - if(0 === _iI_[0]) - {var _iJ_=_iI_[2]; - if(typeof _iJ_ === "number") - var switch$8=1; - else - if(1 === _iJ_[0]) - var - p$3=_iI_[1], - size$0=_iJ_[2], - c$0=acc[2], - switch$0=1, - switch$7=0, - switch$8=0; - else - var switch$8=1; - if(switch$8)var switch$7=1} - else - var switch$7=1; - if(switch$7)var p$2=_iI_,c=acc[2],switch$0=3; + {var _iF_=_iE_[2],switch$8=0; + if(typeof _iF_ !== "number" && 1 === _iF_[0]) + {var p$3=_iE_[1],size$0=_iF_[2],c$0=acc[2]; + switch$0 = 1; + switch$8 = 1} + if(! switch$8)switch$7 = 1} + if(switch$7){var p$2=_iE_,c=acc[2];switch$0 = 3} break; case 6: - var _iK_=acc[1]; - if(typeof _iK_ !== "number" && 0 === _iK_[0]) - {var _iL_=_iK_[2]; - if(typeof _iL_ !== "number" && 1 === _iL_[0]) - {var f$1=acc[2],size$1=_iL_[2],p$4=_iK_[1]; + var _iG_=acc[1]; + if(typeof _iG_ !== "number" && 0 === _iG_[0]) + {var _iH_=_iG_[2]; + if(typeof _iH_ !== "number" && 1 === _iH_[0]) + {var f$1=acc[2],size$1=_iH_[2],p$4=_iG_[1]; strput_acc$0(ppf,p$4); return pp_print_as_size(ppf,size$1,caml_call1(f$1,0))}} var f$0=acc[2]; - strput_acc$0(ppf,_iK_); + strput_acc$0(ppf,_iG_); return pp_print_string(ppf,caml_call1(f$0,0)); case 7: var p$5=acc[1];strput_acc$0(ppf,p$5);return pp_print_flush(ppf,0); @@ -20081,28 +22550,28 @@ case 2:strput_acc$0(ppf,p$0);return pp_print_string(ppf,s); default:strput_acc$0(ppf,p$2);return pp_print_char(ppf,c)}} function kfprintf$0(k,ppf,param) - {var fmt=param[1],_iz_=0; + {var fmt=param[1],_iv_=0; return make_printf (function(acc){output_acc$0(ppf,acc);return caml_call1(k,ppf)}, - _iz_, + _iv_, fmt)} function ikfprintf$0(k,ppf,param) {var fmt=param[1];return make_iprintf(k,ppf,fmt)} function ifprintf$0(ppf,param) - {var fmt=param[1],_ix_=0; - return make_iprintf(function(_iy_){return 0},_ix_,fmt)} + {var fmt=param[1],_it_=0; + return make_iprintf(function(_iu_){return 0},_it_,fmt)} function fprintf$0(ppf) - {function _iu_(_iw_){return 0} - return function(_iv_){return kfprintf$0(_iu_,ppf,_iv_)}} + {function _iq_(_is_){return 0} + return function(_ir_){return kfprintf$0(_iq_,ppf,_ir_)}} function printf$0(fmt){return caml_call1(fprintf$0(std_formatter),fmt)} function eprintf$0(fmt){return caml_call1(fprintf$0(err_formatter),fmt)} function kdprintf(k,param) - {var fmt=param[1],_it_=0; + {var fmt=param[1],_ip_=0; return make_printf (function(acc) {return caml_call1 (k,function(ppf){return output_acc$0(ppf,acc)})}, - _it_, + _ip_, fmt)} function dprintf(fmt){return kdprintf(function(i){return i},fmt)} function kprintf(k,param) @@ -20122,18 +22591,17 @@ function flush_standard_formatters(param) {pp_print_flush(std_formatter,0);return pp_print_flush(err_formatter,0)} at_exit(flush_standard_formatters); - function pp_set_all_formatter_output_functions(state,f,g,h,i) - {pp_set_formatter_output_functions(state,f,g); + function pp_set_all_formatter_output_fu(state,f,g,h,i) + {pp_set_formatter_output_functi(state,f,g); state[19] = h; state[20] = i; return 0} - function pp_get_all_formatter_output_functions(state,param) + function pp_get_all_formatter_output_fu(state,param) {return [0,state[17],state[18],state[19],state[20]]} - function set_all_formatter_output_functions(_ip_,_iq_,_ir_,_is_) - {return pp_set_all_formatter_output_functions - (std_formatter,_ip_,_iq_,_ir_,_is_)} - function get_all_formatter_output_functions(_io_) - {return pp_get_all_formatter_output_functions(std_formatter,_io_)} + function set_all_formatter_output_funct(_il_,_im_,_in_,_io_) + {return pp_set_all_formatter_output_fu(std_formatter,_il_,_im_,_in_,_io_)} + function get_all_formatter_output_funct(_ik_) + {return pp_get_all_formatter_output_fu(std_formatter,_ik_)} function bprintf$0(b,param) {var fmt=param[1],ppf=formatter_of_buffer(b); function k(acc){output_acc$0(ppf,acc);return pp_flush_queue(ppf,0)} @@ -20143,24 +22611,24 @@ function stringify(f,e,param) {if(param[1] === String_tag){var s=param[2];return caml_call1(f,s)} return e} - state[24] = function(_in_){return stringify(mot,cst$82,_in_)}; - state[25] = function(_im_){return stringify(mct,cst$83,_im_)}; - var _ii_=0; - state[26] = function(_il_){return stringify(pot,_ii_,_il_)}; - var _ij_=0; - state[27] = function(_ik_){return stringify(pct,_ij_,_ik_)}; + state[24] = function(_ij_){return stringify(mot,cst$82,_ij_)}; + state[25] = function(_ii_){return stringify(mct,cst$83,_ii_)}; + var _ie_=0; + state[26] = function(_ih_){return stringify(pot,_ie_,_ih_)}; + var _if_=0; + state[27] = function(_ig_){return stringify(pct,_if_,_ig_)}; return 0} function pp_get_formatter_tag_functions(fmt,param) - {var funs=pp_get_formatter_stag_functions(fmt,0); + {var funs=pp_get_formatter_stag_function(fmt,0); function mark_open_tag(s){return caml_call1(funs[1],[0,String_tag,s])} function mark_close_tag(s){return caml_call1(funs[2],[0,String_tag,s])} function print_open_tag(s){return caml_call1(funs[3],[0,String_tag,s])} function print_close_tag(s){return caml_call1(funs[4],[0,String_tag,s])} return [0,mark_open_tag,mark_close_tag,print_open_tag,print_close_tag]} - function set_formatter_tag_functions(_ih_) - {return pp_set_formatter_tag_functions(std_formatter,_ih_)} - function get_formatter_tag_functions(_ig_) - {return pp_get_formatter_tag_functions(std_formatter,_ig_)} + function set_formatter_tag_functions(_id_) + {return pp_set_formatter_tag_functions(std_formatter,_id_)} + function get_formatter_tag_functions(_ic_) + {return pp_get_formatter_tag_functions(std_formatter,_ic_)} var Stdlib_format= [0, @@ -20255,17 +22723,17 @@ get_mark_tags, pp_set_formatter_out_channel, set_formatter_out_channel, - pp_set_formatter_output_functions, + pp_set_formatter_output_functi, set_formatter_output_functions, - pp_get_formatter_output_functions, + pp_get_formatter_output_functi, get_formatter_output_functions, pp_set_formatter_out_functions, set_formatter_out_functions, pp_get_formatter_out_functions, get_formatter_out_functions, - pp_set_formatter_stag_functions, + pp_set_formatter_stag_function, set_formatter_stag_functions, - pp_get_formatter_stag_functions, + pp_get_formatter_stag_function, get_formatter_stag_functions, formatter_of_out_channel, std_formatter, @@ -20281,7 +22749,7 @@ get_symbolic_output_buffer, flush_symbolic_output_buffer, add_symbolic_output_item, - formatter_of_symbolic_output_buffer, + formatter_of_symbolic_output_b, pp_print_list, pp_print_text, pp_print_option, @@ -20300,10 +22768,10 @@ kasprintf, bprintf$0, kprintf, - set_all_formatter_output_functions, - get_all_formatter_output_functions, - pp_set_all_formatter_output_functions, - pp_get_all_formatter_output_functions, + set_all_formatter_output_funct, + get_all_formatter_output_funct, + pp_set_all_formatter_output_fu, + pp_get_all_formatter_output_fu, pp_open_tag, open_tag, pp_close_tag, @@ -20322,23 +22790,23 @@ ib[4] = ib[4] + 1 | 0; if(10 === c)ib[5] = ib[5] + 1 | 0; return c} - catch(_if_) - {_if_ = caml_wrap_exception(_if_); - if(_if_ === End_of_file) + catch(_ib_) + {_ib_ = caml_wrap_exception(_ib_); + if(_ib_ === End_of_file) {ib[2] = null_char;ib[3] = 0;ib[1] = 1;return null_char} - throw _if_}} + throw _ib_}} function peek_char(ib){return ib[3]?ib[2]:next_char(ib)} function checked_peek_char(ib) {var c=peek_char(ib);if(ib[1])throw End_of_file;return c} function end_of_input(ib){peek_char(ib);return ib[1]} function beginning_of_input(ib){return 0 === ib[4]?1:0} function name_of_input(ib) - {var _ie_=ib[9]; - if(typeof _ie_ === "number") - return 0 === _ie_?cst_unnamed_function:cst_unnamed_character_string; + {var _ia_=ib[9]; + if(typeof _ia_ === "number") + return 0 === _ia_?cst_unnamed_function:cst_unnamed_character_string; else - {if(0 === _ie_[0])return cst_unnamed_Stdlib_input_channel; - var fname=_ie_[1]; + {if(0 === _ia_[0])return cst_unnamed_Stdlib_input_chann; + var fname=_ia_[1]; return fname}} function char_count(ib){return ib[3]?ib[4] - 1 | 0:ib[4]} function reset_token(ib){return reset(ib[8])} @@ -20373,7 +22841,7 @@ return c} return create$4(1,next)} var _b$_=0; - function from_function$0(_id_){return create$4(_b$_,_id_)} + function from_function$0(_h$_){return create$4(_b$_,_h$_)} var len=1024; function scan_close_at_end(ic) {caml_ml_close_channel(ic);throw End_of_file} @@ -20394,30 +22862,30 @@ {var ic=caml_call1(open_in,fname); return from_ic(scan_close_at_end,[1,fname,ic],ic)} return stdib} - function from_file(_ic_){return open_in_file(open_in,_ic_)} - function from_file_bin(_ib_){return open_in_file(open_in_bin,_ib_)} + function from_file(_h__){return open_in_file(open_in,_h__)} + function from_file_bin(_h9_){return open_in_file(open_in_bin,_h9_)} function from_channel$0(ic){return from_ic(scan_raise_at_end,[0,ic],ic)} function close_in$0(ib) - {var _ia_=ib[9]; - if(typeof _ia_ === "number") + {var _h8_=ib[9]; + if(typeof _h8_ === "number") return 0; else - {if(0 === _ia_[0]){var ic=_ia_[1];return caml_ml_close_channel(ic)} - var ic$0=_ia_[2]; + {if(0 === _h8_[0]){var ic=_h8_[1];return caml_ml_close_channel(ic)} + var ic$0=_h8_[2]; return caml_ml_close_channel(ic$0)}} var memo=[0,0]; function memo_from_ic(scan_close_ic,ic) {try - {var _h__=assq(ic,memo[1]);return _h__} - catch(_h$_) - {_h$_ = caml_wrap_exception(_h$_); - if(_h$_ === Not_found) + {var _h6_=assq(ic,memo[1]);return _h6_} + catch(_h7_) + {_h7_ = caml_wrap_exception(_h7_); + if(_h7_ === Not_found) {var ib=from_ic(scan_close_ic,[0,ic],ic); memo[1] = [0,[0,ic,ib],memo[1]]; return ib} - throw _h$_}} - function memo_from_channel(_h9_) - {return memo_from_ic(scan_raise_at_end,_h9_)} + throw _h7_}} + function memo_from_channel(_h5_) + {return memo_from_ic(scan_raise_at_end,_h5_)} var Scan_failure=[248,cst_Stdlib_Scanf_Scan_failure,caml_fresh_oo_id(0)]; function bad_input(s){throw [0,Scan_failure,s]} function bad_input_escape(c) @@ -20425,9 +22893,9 @@ function bad_token_length(message) {return bad_input(caml_call1(sprintf(_cb_),message))} function bad_float(param) - {return bad_input(cst_no_dot_or_exponent_part_found_in_float_token)} + {return bad_input(cst_no_dot_or_exponent_part_fo)} function bad_hex_float(param) - {return bad_input(cst_not_a_valid_float_in_hexadecimal_notation)} + {return bad_input(cst_not_a_valid_float_in_hexad)} function character_mismatch(c,ci) {return bad_input(caml_call2(sprintf(_cd_),c,ci))} function check_this_char(ib,c) @@ -20443,15 +22911,16 @@ :character_mismatch(10,ci)} if(32 === c$0) for(;;) - {var c=peek_char(ib),_h7_=1 - ib[1]; - if(_h7_) - {var - _h8_=c - 9 | 0, - switch$0= - 4 < _h8_ >>> 0?23 === _h8_?1:0:1 < (_h8_ - 2 | 0) >>> 0?1:0; + {var c=peek_char(ib),_h3_=1 - ib[1]; + if(_h3_) + {var _h4_=c - 9 | 0,switch$0=0; + if(4 < _h4_ >>> 0) + {if(23 === _h4_)switch$0 = 1} + else + if(1 < (_h4_ - 2 | 0) >>> 0)switch$0 = 1; if(switch$0){invalidate_current_char(ib);continue} return 0} - return _h7_} + return _h3_} return check_this_char(ib,c$0)} function token_char(ib){return caml_string_get(token_string(ib),0)} function token_bool(ib) @@ -20482,8 +22951,8 @@ case 5:var tok=symbol(cst_0x,token_string(ib));break; default:var tok=token_string(ib)} var l=caml_ml_string_length(tok); - if(0 !== l) - if(43 === caml_string_get(tok,0))return sub$0(tok,1,l - 1 | 0); + if(0 !== l && 43 === caml_string_get(tok,0)) + return sub$0(tok,1,l - 1 | 0); return tok} function token_float(ib){return caml_float_of_string(token_string(ib))} function scan_decimal_digit_star(width,ib) @@ -20522,22 +22991,21 @@ return bad_input(caml_call2(sprintf(_ch_),c$0,basis))} function is_binary_digit(param) {var switcher=param - 48 | 0;return 1 < switcher >>> 0?0:1} - function scan_binary_int(_h5_,_h6_) - {return scan_digit_plus(cst_binary,is_binary_digit,_h5_,_h6_)} + function scan_binary_int(_h1_,_h2_) + {return scan_digit_plus(cst_binary,is_binary_digit,_h1_,_h2_)} function is_octal_digit(param) {var switcher=param - 48 | 0;return 7 < switcher >>> 0?0:1} - function scan_octal_int(_h3_,_h4_) - {return scan_digit_plus(cst_octal,is_octal_digit,_h3_,_h4_)} + function scan_octal_int(_hZ_,_h0_) + {return scan_digit_plus(cst_octal,is_octal_digit,_hZ_,_h0_)} function is_hexa_digit(param) - {var - _h2_=param - 48 | 0, - switch$0= - 22 < _h2_ >>> 0 - ?5 < (_h2_ - 49 | 0) >>> 0?0:1 - :6 < (_h2_ - 10 | 0) >>> 0?1:0; + {var _hY_=param - 48 | 0,switch$0=0; + if(22 < _hY_ >>> 0) + {if(! (5 < (_hY_ - 49 | 0) >>> 0))switch$0 = 1} + else + if(6 < (_hY_ - 10 | 0) >>> 0)switch$0 = 1; return switch$0?1:0} - function scan_hexadecimal_int(_h0_,_h1_) - {return scan_digit_plus(cst_hexadecimal,is_hexa_digit,_h0_,_h1_)} + function scan_hexadecimal_int(_hW_,_hX_) + {return scan_digit_plus(cst_hexadecimal,is_hexa_digit,_hW_,_hX_)} function scan_sign(width,ib) {var c=checked_peek_char(ib),switcher=c - 43 | 0; if(! (2 < switcher >>> 0)) @@ -20546,13 +23014,13 @@ case 1:break; default:return store_char(width,ib,c)} return width} - function scan_optionally_signed_decimal_int(width,ib) + function scan_optionally_signed_decimal(width,ib) {var width$0=scan_sign(width,ib); return scan_unsigned_decimal_int(width$0,ib)} function scan_int_conversion(conv,width$1,ib) {switch(conv) {case 0:return scan_binary_int(width$1,ib); - case 1:return scan_optionally_signed_decimal_int(width$1,ib); + case 1:return scan_optionally_signed_decimal(width$1,ib); case 2: var width$0=scan_sign(width$1,ib),c=checked_peek_char(ib); if(48 === c) @@ -20560,17 +23028,16 @@ if(0 === width)return width; var c$0=peek_char(ib); if(ib[1])return width; + var switch$0=0; if(99 <= c$0) {if(111 === c$0) return scan_octal_int(store_char(width,ib,c$0),ib); - var switch$0=120 === c$0?1:0} + if(120 === c$0)switch$0 = 1} else if(88 === c$0) - var switch$0=1; + switch$0 = 1; else - {if(98 <= c$0) - return scan_binary_int(store_char(width,ib,c$0),ib); - var switch$0=0} + if(98 <= c$0)return scan_binary_int(store_char(width,ib,c$0),ib); return switch$0 ?scan_hexadecimal_int(store_char(width,ib,c$0),ib) :scan_decimal_digit_star(width,ib)} @@ -20590,8 +23057,8 @@ {if(0 === width)return width; var c=peek_char(ib); if(ib[1])return width; - if(69 !== c)if(101 !== c)return width; - return scan_optionally_signed_decimal_int(store_char(width,ib,c),ib)} + if(69 !== c && 101 !== c)return width; + return scan_optionally_signed_decimal(store_char(width,ib,c),ib)} function scan_float(width$1,precision,ib) {var width=scan_sign(width$1,ib), @@ -20618,124 +23085,111 @@ var len=caml_ml_string_length(str), width$0=[0,width], - _hX_=len - 1 | 0, - _hW_=0; - if(! (_hX_ < 0)) - {var i=_hW_; + _hT_=len - 1 | 0, + _hS_=0; + if(! (_hT_ < 0)) + {var i=_hS_; for(;;) - {var c=peek_char(ib),_hY_=lowercase(caml_string_get(str,i)); - if(lowercase(c) !== _hY_)caml_call1(error,0); + {var c=peek_char(ib),_hU_=lowercase(caml_string_get(str,i)); + if(lowercase(c) !== _hU_)caml_call1(error,0); if(0 === width$0[1])caml_call1(error,0); width$0[1] = store_char(width$0[1],ib,c); - var _hZ_=i + 1 | 0; - if(_hX_ !== i){var i=_hZ_;continue} + var _hV_=i + 1 | 0; + if(_hT_ !== i){var i=_hV_;continue} break}} return width$0[1]} function scan_hex_float(width,precision,ib) - {var _hJ_=0 === width?1:0,_hK_=_hJ_ || end_of_input(ib); - if(_hK_)bad_hex_float(0); + {var _hF_=0 === width?1:0,_hG_=_hF_ || end_of_input(ib); + if(_hG_)bad_hex_float(0); var width$0=scan_sign(width,ib), - _hL_=0 === width$0?1:0, - _hM_=_hL_ || end_of_input(ib); - if(_hM_)bad_hex_float(0); - var c=peek_char(ib); + _hH_=0 === width$0?1:0, + _hI_=_hH_ || end_of_input(ib); + if(_hI_)bad_hex_float(0); + var c=peek_char(ib),switch$0=0; if(78 <= c) {var switcher=c - 79 | 0; if(30 < switcher >>> 0) {if(! (32 <= switcher)) {var width$1=store_char(width$0,ib,c), - _hN_=0 === width$1?1:0, - _hO_=_hN_ || end_of_input(ib); - if(_hO_)bad_hex_float(0); + _hJ_=0 === width$1?1:0, + _hK_=_hJ_ || end_of_input(ib); + if(_hK_)bad_hex_float(0); return check_case_insensitive_string - (width$1,ib,bad_hex_float,cst_an)} - var switch$0=0} + (width$1,ib,bad_hex_float,cst_an)}} else - var switch$0=26 === switcher?1:0} + if(26 === switcher)switch$0 = 1} else {if(48 === c) {var width$3=store_char(width$0,ib,c), - _hR_=0 === width$3?1:0, - _hS_=_hR_ || end_of_input(ib); - if(_hS_)bad_hex_float(0); + _hN_=0 === width$3?1:0, + _hO_=_hN_ || end_of_input(ib); + if(_hO_)bad_hex_float(0); var width$4= check_case_insensitive_string(width$3,ib,bad_hex_float,cst_x$2); - if(0 !== width$4) - if(! end_of_input(ib)) - {var - match=peek_char(ib), - _hT_=match - 46 | 0, - switch$1= - 34 < _hT_ >>> 0?66 === _hT_?1:0:32 < (_hT_ - 1 | 0) >>> 0?1:0, - width$5=switch$1?width$4:scan_hexadecimal_int(width$4,ib); - if(0 !== width$5) - if(! end_of_input(ib)) - {var c$0=peek_char(ib); - if(46 === c$0) - {var width$6=store_char(width$5,ib,c$0); - if(0 === width$6) - var switch$2=0; - else - if(end_of_input(ib)) - var switch$2=0; - else - {var match$0=peek_char(ib); - if(80 === match$0) - var switch$3=0; - else - if(112 === match$0) - var switch$3=0; - else - var - precision$0=min(width$6,precision), - width$10= - width$6 - - - (precision$0 - scan_hexadecimal_int(precision$0,ib) | 0) - | - 0, - switch$3=1; - if(! switch$3)var width$10=width$6; - var width$7=width$10,switch$2=1} - if(! switch$2)var width$7=width$6; - var width$8=width$7} - else - var width$8=width$5; - if(0 !== width$8) - if(! end_of_input(ib)) - {var c$1=peek_char(ib); - if(80 !== c$1)if(112 !== c$1)return width$8; - var - width$9=store_char(width$8,ib,c$1), - _hU_=0 === width$9?1:0, - _hV_=_hU_ || end_of_input(ib); - if(_hV_)bad_hex_float(0); - return scan_optionally_signed_decimal_int(width$9,ib)} - return width$8} - return width$5} + if(0 !== width$4 && ! end_of_input(ib)) + {var match=peek_char(ib),_hP_=match - 46 | 0,switch$1=0; + if(34 < _hP_ >>> 0) + {if(66 === _hP_)switch$1 = 1} + else + if(32 < (_hP_ - 1 | 0) >>> 0)switch$1 = 1; + var width$5=switch$1?width$4:scan_hexadecimal_int(width$4,ib); + if(0 !== width$5 && ! end_of_input(ib)) + {var c$0=peek_char(ib); + if(46 === c$0) + {var width$6=store_char(width$5,ib,c$0),switch$2=0; + if(0 !== width$6 && ! end_of_input(ib)) + {var match$0=peek_char(ib),switch$3=0; + if(80 !== match$0 && 112 !== match$0) + {var + precision$0=min(width$6,precision), + width$10= + width$6 + - + (precision$0 - scan_hexadecimal_int(precision$0,ib) | 0) + | + 0; + switch$3 = 1} + if(! switch$3)var width$10=width$6; + var width$7=width$10; + switch$2 = 1} + if(! switch$2)var width$7=width$6; + var width$8=width$7} + else + var width$8=width$5; + if(0 !== width$8 && ! end_of_input(ib)) + {var c$1=peek_char(ib); + if(80 !== c$1 && 112 !== c$1)return width$8; + var + width$9=store_char(width$8,ib,c$1), + _hQ_=0 === width$9?1:0, + _hR_=_hQ_ || end_of_input(ib); + if(_hR_)bad_hex_float(0); + return scan_optionally_signed_decimal(width$9,ib)} + return width$8} + return width$5} return width$4} - var switch$0=73 === c?1:0} + if(73 === c)switch$0 = 1} if(switch$0) {var width$2=store_char(width$0,ib,c), - _hP_=0 === width$2?1:0, - _hQ_=_hP_ || end_of_input(ib); - if(_hQ_)bad_hex_float(0); + _hL_=0 === width$2?1:0, + _hM_=_hL_ || end_of_input(ib); + if(_hM_)bad_hex_float(0); return check_case_insensitive_string (width$2,ib,bad_hex_float,cst_nfinity)} return bad_hex_float(0)} function scan_caml_float_rest(width,precision,ib) - {var _hF_=0 === width?1:0,_hG_=_hF_ || end_of_input(ib); - if(_hG_)bad_float(0); + {var _hB_=0 === width?1:0,_hC_=_hB_ || end_of_input(ib); + if(_hC_)bad_float(0); var width$0=scan_decimal_digit_star(width,ib), - _hH_=0 === width$0?1:0, - _hI_=_hH_ || end_of_input(ib); - if(_hI_)bad_float(0); + _hD_=0 === width$0?1:0, + _hE_=_hD_ || end_of_input(ib); + if(_hE_)bad_float(0); var c=peek_char(ib),switcher=c - 69 | 0; if(32 < switcher >>> 0) {if(-23 === switcher) @@ -20751,91 +23205,78 @@ if(30 < switcher$0 >>> 0)return scan_exponent_part(width$0,ib)} return bad_float(0)} function scan_caml_float(width,precision,ib) - {var _hr_=0 === width?1:0,_hs_=_hr_ || end_of_input(ib); - if(_hs_)bad_float(0); + {var _hn_=0 === width?1:0,_ho_=_hn_ || end_of_input(ib); + if(_ho_)bad_float(0); var width$0=scan_sign(width,ib), - _ht_=0 === width$0?1:0, - _hu_=_ht_ || end_of_input(ib); - if(_hu_)bad_float(0); + _hp_=0 === width$0?1:0, + _hq_=_hp_ || end_of_input(ib); + if(_hq_)bad_float(0); var c=peek_char(ib); if(49 <= c) {if(! (58 <= c)) {var width$1=store_char(width$0,ib,c), - _hv_=0 === width$1?1:0, - _hw_=_hv_ || end_of_input(ib); - if(_hw_)bad_float(0); + _hr_=0 === width$1?1:0, + _hs_=_hr_ || end_of_input(ib); + if(_hs_)bad_float(0); return scan_caml_float_rest(width$1,precision,ib)}} else if(48 <= c) {var width$2=store_char(width$0,ib,c), - _hx_=0 === width$2?1:0, - _hy_=_hx_ || end_of_input(ib); - if(_hy_)bad_float(0); + _ht_=0 === width$2?1:0, + _hu_=_ht_ || end_of_input(ib); + if(_hu_)bad_float(0); var c$0=peek_char(ib); - if(88 !== c$0) - if(120 !== c$0)return scan_caml_float_rest(width$2,precision,ib); + if(88 !== c$0 && 120 !== c$0) + return scan_caml_float_rest(width$2,precision,ib); var width$3=store_char(width$2,ib,c$0), - _hz_=0 === width$3?1:0, - _hA_=_hz_ || end_of_input(ib); - if(_hA_)bad_float(0); + _hv_=0 === width$3?1:0, + _hw_=_hv_ || end_of_input(ib); + if(_hw_)bad_float(0); var width$4=scan_hexadecimal_int(width$3,ib), - _hB_=0 === width$4?1:0, - _hC_=_hB_ || end_of_input(ib); - if(_hC_)bad_float(0); - var c$1=peek_char(ib),switcher=c$1 - 80 | 0; + _hx_=0 === width$4?1:0, + _hy_=_hx_ || end_of_input(ib); + if(_hy_)bad_float(0); + var c$1=peek_char(ib),switcher=c$1 - 80 | 0,switch$0=0; if(32 < switcher >>> 0) if(-34 === switcher) - {var width$5=store_char(width$4,ib,c$1); - if(0 === width$5) - var switch$1=0; - else - if(end_of_input(ib)) - var switch$1=0; - else - {var match=peek_char(ib); - if(80 === match) - var switch$2=0; - else - if(112 === match) - var switch$2=0; - else - var - precision$0=min(width$5,precision), - width$10= - width$5 - - - (precision$0 - scan_hexadecimal_int(precision$0,ib) | 0) - | - 0, - switch$2=1; - if(! switch$2)var width$10=width$5; - var width$6=width$10,switch$1=1} + {var width$5=store_char(width$4,ib,c$1),switch$1=0; + if(0 !== width$5 && ! end_of_input(ib)) + {var match=peek_char(ib),switch$2=0; + if(80 !== match && 112 !== match) + {var + precision$0=min(width$5,precision), + width$10= + width$5 + - + (precision$0 - scan_hexadecimal_int(precision$0,ib) | 0) + | + 0; + switch$2 = 1} + if(! switch$2)var width$10=width$5; + var width$6=width$10; + switch$1 = 1} if(! switch$1)var width$6=width$5; - var width$7=width$6,switch$0=0} + var width$7=width$6} else - var switch$0=1; + switch$0 = 1; else {var switcher$0=switcher - 1 | 0; - if(30 < switcher$0 >>> 0) - var width$7=width$4,switch$0=0; - else - var switch$0=1} + if(30 < switcher$0 >>> 0)var width$7=width$4;else switch$0 = 1} var width$8=switch$0?bad_float(0):width$7; - if(0 !== width$8) - if(! end_of_input(ib)) - {var c$2=peek_char(ib); - if(80 !== c$2)if(112 !== c$2)return width$8; - var - width$9=store_char(width$8,ib,c$2), - _hD_=0 === width$9?1:0, - _hE_=_hD_ || end_of_input(ib); - if(_hE_)bad_hex_float(0); - return scan_optionally_signed_decimal_int(width$9,ib)} + if(0 !== width$8 && ! end_of_input(ib)) + {var c$2=peek_char(ib); + if(80 !== c$2 && 112 !== c$2)return width$8; + var + width$9=store_char(width$8,ib,c$2), + _hz_=0 === width$9?1:0, + _hA_=_hz_ || end_of_input(ib); + if(_hA_)bad_hex_float(0); + return scan_optionally_signed_decimal(width$9,ib)} return width$8} return bad_float(0)} function scan_string(stp,width,ib) @@ -20849,9 +23290,11 @@ if(c === c$0)return skip_char(width$0,ib); var width$1=store_char(width$0,ib,c),width$0=width$1; continue} - var - _hq_=c - 9 | 0, - switch$0=4 < _hq_ >>> 0?23 === _hq_?1:0:1 < (_hq_ - 2 | 0) >>> 0?1:0; + var _hm_=c - 9 | 0,switch$0=0; + if(4 < _hm_ >>> 0) + {if(23 === _hm_)switch$0 = 1} + else + if(1 < (_hm_ - 2 | 0) >>> 0)switch$0 = 1; if(switch$0)return width$0; var width$2=store_char(width$0,ib,c),width$0=width$2; continue}} @@ -20863,53 +23306,45 @@ {if(0 === width)return bad_token_length(message); var c=peek_char(ib); return ib[1]?bad_input(caml_call1(sprintf(_cc_),message)):c} - function check_next_char_for_char(_ho_,_hp_) - {return check_next_char(cst_a_Char,_ho_,_hp_)} - function check_next_char_for_string(_hm_,_hn_) - {return check_next_char(cst_a_String,_hm_,_hn_)} + function check_next_char_for_char(_hk_,_hl_) + {return check_next_char(cst_a_Char,_hk_,_hl_)} + function check_next_char_for_string(_hi_,_hj_) + {return check_next_char(cst_a_String,_hi_,_hj_)} function scan_backslash_char(width,ib) - {var c0=check_next_char_for_char(width,ib); + {var c0=check_next_char_for_char(width,ib),switch$0=0; if(40 <= c0) - if(58 <= c0) - {var switcher$0=c0 - 92 | 0; - if(28 < switcher$0 >>> 0) - var switch$0=0; - else - switch(switcher$0) - {case 28: - var - get_digit= - function(param) - {var - c=next_char(ib), - _hl_=c - 48 | 0, - switch$0= - 22 < _hl_ >>> 0 - ?5 < (_hl_ - 49 | 0) >>> 0?0:1 - :6 < (_hl_ - 10 | 0) >>> 0?1:0; - return switch$0?c:bad_input_escape(c)}, - c1=get_digit(0), - c2=get_digit(0), - _hh_=hexadecimal_value_of_char(c2), - c$0=(16 * hexadecimal_value_of_char(c1) | 0) + _hh_ | 0; - if(0 <= c$0) - if(255 < c$0) - var switch$1=0; - else - var _hj_=char_of_int(c$0),switch$1=1; - else - var switch$1=0; - if(! switch$1) - var _hj_=bad_input(caml_call2(sprintf(_cj_),c1,c2)); - return store_char(width - 2 | 0,ib,_hj_); - case 0: - case 6: - case 18: - case 22: - case 24:var switch$0=1;break; - default:var switch$0=0}} - else - {if(48 <= c0) + {if(58 <= c0) + {var switcher$0=c0 - 92 | 0; + if(! (28 < switcher$0 >>> 0)) + switch(switcher$0) + {case 28: + var + get_digit= + function(param) + {var c=next_char(ib),_hh_=c - 48 | 0,switch$0=0; + if(22 < _hh_ >>> 0) + {if(! (5 < (_hh_ - 49 | 0) >>> 0))switch$0 = 1} + else + if(6 < (_hh_ - 10 | 0) >>> 0)switch$0 = 1; + return switch$0?c:bad_input_escape(c)}, + c1=get_digit(0), + c2=get_digit(0), + _hd_=hexadecimal_value_of_char(c2), + c$0=(16 * hexadecimal_value_of_char(c1) | 0) + _hd_ | 0, + switch$1=0; + if(0 <= c$0 && ! (255 < c$0)) + {var _hf_=char_of_int(c$0);switch$1 = 1} + if(! switch$1) + var _hf_=bad_input(caml_call2(sprintf(_cj_),c1,c2)); + return store_char(width - 2 | 0,ib,_hf_); + case 0: + case 6: + case 18: + case 22: + case 24:switch$0 = 1;break + }} + else + if(48 <= c0) {var get_digit$0= function(param) @@ -20922,32 +23357,30 @@ + (c2$0 - 48 | 0) | - 0; - if(0 <= c) - if(255 < c)var switch$2=0;else var _hk_=char_of_int(c),switch$2=1; - else - var switch$2=0; + 0, + switch$2=0; + if(0 <= c && ! (255 < c)){var _hg_=char_of_int(c);switch$2 = 1} if(! switch$2) - var _hk_=bad_input(caml_call3(sprintf(_ci_),c0,c1$0,c2$0)); - return store_char(width - 2 | 0,ib,_hk_)} - var switch$0=0} + var _hg_=bad_input(caml_call3(sprintf(_ci_),c0,c1$0,c2$0)); + return store_char(width - 2 | 0,ib,_hg_)}} else - var switch$0=34 === c0?1:39 <= c0?1:0; + if(34 === c0 || 39 <= c0)switch$0 = 1; if(switch$0) - {if(110 <= c0) + {var switch$3=0; + if(110 <= c0) if(117 <= c0) - var switch$3=0; + switch$3 = 1; else {var switcher=c0 - 110 | 0; switch(switcher) - {case 0:var _hi_=10,switch$3=1;break; - case 4:var _hi_=13,switch$3=1;break; - case 6:var _hi_=9,switch$3=1;break; - default:var switch$3=0}} + {case 0:var _he_=10;break; + case 4:var _he_=13;break; + case 6:var _he_=9;break; + default:switch$3 = 1}} else - if(98 === c0)var _hi_=8,switch$3=1;else var switch$3=0; - if(! switch$3)var _hi_=c0; - return store_char(width,ib,_hi_)} + if(98 === c0)var _he_=8;else switch$3 = 1; + if(switch$3)var _he_=c0; + return store_char(width,ib,_he_)} return bad_input_escape(c0)} function scan_caml_char(width,ib) {function find_stop(width) @@ -20973,21 +23406,21 @@ width$1=ignore_char(width$0,ib), match=check_next_char_for_string(width$1,ib); if(10 === match) - {var _hf_=ignore_char(width$1,ib); + {var _hb_=ignore_char(width$1,ib); if(counter < 50) {var counter$0=counter + 1 | 0; - return skip_spaces(counter$0,_hf_)} - return caml_trampoline_return(skip_spaces,[0,_hf_])} + return skip_spaces(counter$0,_hb_)} + return caml_trampoline_return(skip_spaces,[0,_hb_])} if(13 === match) {var width$3=ignore_char(width$1,ib), match$0=check_next_char_for_string(width$3,ib); if(10 === match$0) - {var _hg_=ignore_char(width$3,ib); + {var _hc_=ignore_char(width$3,ib); if(counter < 50) {var counter$1=counter + 1 | 0; - return skip_spaces(counter$1,_hg_)} - return caml_trampoline_return(skip_spaces,[0,_hg_])} + return skip_spaces(counter$1,_hc_)} + return caml_trampoline_return(skip_spaces,[0,_hc_])} var width$5=store_char(width$3,ib,13),width$0=width$5; continue} var width$4=scan_backslash_char(width$1,ib),width$0=width$4; @@ -21013,26 +23446,26 @@ {function scan_chars(i,stp) {var i$0=i; for(;;) - {var c=peek_char(ib),_hb_=0 < i$0?1:0; - if(_hb_) - {var _hc_=1 - ib[1]; - if(_hc_) - var _hd_=is_in_char_set(char_set,c),_he_=_hd_?c !== stp?1:0:_hd_; + {var c=peek_char(ib),_g9_=0 < i$0?1:0; + if(_g9_) + {var _g__=1 - ib[1]; + if(_g__) + var _g$_=is_in_char_set(char_set,c),_ha_=_g$_?c !== stp?1:0:_g$_; else - var _he_=_hc_} + var _ha_=_g__} else - var _he_=_hb_; - if(_he_) + var _ha_=_g9_; + if(_ha_) {store_char(max_int,ib,c);var i$1=i$0 - 1 | 0,i$0=i$1;continue} - return _he_}} + return _ha_}} if(scan_indic) {var c=scan_indic[1]; scan_chars(width,c); - var _ha_=1 - ib[1]; - if(_ha_) + var _g8_=1 - ib[1]; + if(_g8_) {var ci=peek_char(ib); return c === ci?invalidate_current_char(ib):character_mismatch(c,ci)} - return _ha_} + return _g8_} return scan_chars(width,-1)} function scanf_bad_input(ib,x) {if(x[1] === Scan_failure) @@ -21075,28 +23508,28 @@ case 12:var fmt$13=fmt$0[2],fmt$0=fmt$13;continue; case 13:var fmt$14=fmt$0[3],fmt$0=fmt$14;continue; case 14: - var rest=fmt$0[3],fmtty=fmt$0[2],_g__=erase_rel(symm(fmtty)); + var rest=fmt$0[3],fmtty=fmt$0[2],_g6_=erase_rel(symm(fmtty)); if(counter < 50) {var counter$0=counter + 1 | 0; - return take_fmtty_format_readers$0(counter$0,k,_g__,rest)} + return take_fmtty_format_readers$0(counter$0,k,_g6_,rest)} return caml_trampoline_return - (take_fmtty_format_readers$0,[0,k,_g__,rest]); + (take_fmtty_format_readers$0,[0,k,_g6_,rest]); case 15:var fmt$15=fmt$0[1],fmt$0=fmt$15;continue; case 16:var fmt$16=fmt$0[1],fmt$0=fmt$16;continue; case 17:var fmt$17=fmt$0[2],fmt$0=fmt$17;continue; case 18: - var _g$_=fmt$0[1]; - if(0 === _g$_[0]) + var _g7_=fmt$0[1]; + if(0 === _g7_[0]) {var rest$0=fmt$0[2], - match=_g$_[1], + match=_g7_[1], fmt$18=match[1], fmt$19=concat_fmt(fmt$18,rest$0), fmt$0=fmt$19; continue} var rest$1=fmt$0[2], - match$0=_g$_[1], + match$0=_g7_[1], fmt$20=match$0[1], fmt$21=concat_fmt(fmt$20,rest$1), fmt$0=fmt$21; @@ -21206,15 +23639,15 @@ else {if(0 === pad[0]) {if(0 === pad[1])return invalid_arg(cst_scanf_bad_conversion$0); - var _g9_=pad[2]; + var _g5_=pad[2]; if(typeof prec === "number") {if(0 === prec) - {caml_call3(scan,_g9_,max_int,ib); + {caml_call3(scan,_g5_,max_int,ib); var x$1=caml_call1(token,ib); return [0,x$1,make_scanf(ib,fmt,readers)]} return invalid_arg(cst_scanf_bad_conversion$1)} var p$0=prec[1]; - caml_call3(scan,_g9_,p$0,ib); + caml_call3(scan,_g5_,p$0,ib); var x$2=caml_call1(token,ib); return [0,x$2,make_scanf(ib,fmt,readers)]} return invalid_arg(cst_scanf_bad_conversion$2)}} @@ -21236,13 +23669,13 @@ var c$0=token_char(ib); return [0,c$0,make_scanf(ib,rest$0,readers)]; case 2: - var _gU_=fmt$0[2],_gV_=fmt$0[1]; - if(typeof _gU_ !== "number") - switch(_gU_[0]) + var _gQ_=fmt$0[2],_gR_=fmt$0[1]; + if(typeof _gQ_ !== "number") + switch(_gQ_[0]) {case 17: var - rest$1=_gU_[2], - fmting_lit=_gU_[1], + rest$1=_gQ_[2], + fmting_lit=_gQ_[1], match=stopper_of_formatting_lit(fmting_lit), str=match[2], stp=match[1], @@ -21251,13 +23684,13 @@ {return scan_string([0,stp],width,ib)}, str_rest=[11,str,rest$1]; return pad_prec_scanf - (ib,str_rest,readers,_gV_,0,scan$0,token_string); + (ib,str_rest,readers,_gR_,0,scan$0,token_string); case 18: - var _gW_=_gU_[1]; - if(0 === _gW_[0]) + var _gS_=_gQ_[1]; + if(0 === _gS_[0]) {var - rest$2=_gU_[2], - match$0=_gW_[1], + rest$2=_gQ_[2], + match$0=_gS_[1], fmt$1=match$0[1], scan$1= function(width,param,ib){return scan_string(_cn_,width,ib)}; @@ -21265,13 +23698,13 @@ (ib, concat_fmt(fmt$1,rest$2), readers, - _gV_, + _gR_, 0, scan$1, token_string)} var - rest$3=_gU_[2], - match$1=_gW_[1], + rest$3=_gQ_[2], + match$1=_gS_[1], fmt$2=match$1[1], scan$2= function(width,param,ib){return scan_string(_co_,width,ib)}; @@ -21279,13 +23712,13 @@ (ib, concat_fmt(fmt$2,rest$3), readers, - _gV_, + _gR_, 0, scan$2, token_string) } var scan=function(width,param,ib){return scan_string(0,width,ib)}; - return pad_prec_scanf(ib,_gU_,readers,_gV_,0,scan,token_string); + return pad_prec_scanf(ib,_gQ_,readers,_gR_,0,scan,token_string); case 3: var rest$4=fmt$0[2], @@ -21369,12 +23802,12 @@ function(ib) {return caml_int64_of_string(token_int_literal(conv$2,ib))}); case 8: - var _gX_=fmt$0[1][2]; - if(5 === _gX_) + var _gT_=fmt$0[1][2]; + if(5 === _gT_) {var rest$9=fmt$0[4],prec$3=fmt$0[3],pad$4=fmt$0[2]; return pad_prec_scanf (ib,rest$9,readers,pad$4,prec$3,scan_caml_float,token_float)} - if(6 <= _gX_) + if(6 <= _gT_) {var rest$10=fmt$0[4],prec$4=fmt$0[3],pad$5=fmt$0[2]; return pad_prec_scanf (ib,rest$10,readers,pad$5,prec$4,scan_hex_float,token_float)} @@ -21386,7 +23819,7 @@ rest$12=fmt$0[2], pad$7=fmt$0[1], scan$8= - function(param,_g8_,ib) + function(param,_g4_,ib) {var c=checked_peek_char(ib), m= @@ -21401,7 +23834,7 @@ return bad_input(cst_end_of_input_not_found); case 11: var rest$14=fmt$0[2],str$0=fmt$0[1]; - iter$4(function(_g7_){return check_char(ib,_g7_)},str$0); + iter$4(function(_g3_){return check_char(ib,_g3_)},str$0); var fmt$0=rest$14; continue; case 12: @@ -21414,7 +23847,7 @@ scan_caml_string(width_of_pad_opt(pad_opt),ib); var s=token_string(ib); try - {var _gY_=format_of_string_fmtty(s,fmtty),fmt$3=_gY_} + {var _gU_=format_of_string_fmtty(s,fmtty),fmt$3=_gU_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] !== Failure)throw exn; @@ -21431,17 +23864,17 @@ match$3=fmt_ebb_of_string(0,s$0), fmt$7=match$3[1], fmt$8=type_format(fmt$7,erase_rel(symm(fmtty$0))), - _g0_=type_format(fmt$6,erase_rel(fmtty$0)), - fmt$5=_g0_, + _gW_=type_format(fmt$6,erase_rel(fmtty$0)), + fmt$5=_gW_, fmt$4=fmt$8} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] !== Failure)throw exn; var msg$0=exn[2], - _gZ_=bad_input(msg$0), - fmt$5=_gZ_[1], - fmt$4=_gZ_[2]} + _gV_=bad_input(msg$0), + fmt$5=_gV_[1], + fmt$4=_gV_[2]} return [0, [0,fmt$5,s$0], make_scanf(ib,concat_fmt(fmt$4,rest$17),readers)]; @@ -21451,19 +23884,19 @@ var rest$18=fmt$0[2], formatting_lit=fmt$0[1], - _g1_=string_of_formatting_lit(formatting_lit); - iter$4(function(_g6_){return check_char(ib,_g6_)},_g1_); + _gX_=string_of_formatting_lit(formatting_lit); + iter$4(function(_g2_){return check_char(ib,_g2_)},_gX_); var fmt$0=rest$18; continue; case 18: - var _g2_=fmt$0[1]; - if(0 === _g2_[0]) - {var rest$19=fmt$0[2],match$4=_g2_[1],fmt$9=match$4[1]; + var _gY_=fmt$0[1]; + if(0 === _gY_[0]) + {var rest$19=fmt$0[2],match$4=_gY_[1],fmt$9=match$4[1]; check_char(ib,64); check_char(ib,123); var fmt$10=concat_fmt(fmt$9,rest$19),fmt$0=fmt$10; continue} - var rest$20=fmt$0[2],match$5=_g2_[1],fmt$11=match$5[1]; + var rest$20=fmt$0[2],match$5=_gY_[1],fmt$11=match$5[1]; check_char(ib,64); check_char(ib,91); var fmt$12=concat_fmt(fmt$11,rest$20),fmt$0=fmt$12; @@ -21478,22 +23911,22 @@ return [0,x,make_scanf(ib,fmt_rest,readers_rest)]} return invalid_arg(cst_scanf_missing_reader); case 20: - var _g3_=fmt$0[3],_g4_=fmt$0[2],_g5_=fmt$0[1]; - if(typeof _g3_ !== "number" && 17 === _g3_[0]) + var _gZ_=fmt$0[3],_g0_=fmt$0[2],_g1_=fmt$0[1]; + if(typeof _gZ_ !== "number" && 17 === _gZ_[0]) {var - rest$21=_g3_[2], - fmting_lit$0=_g3_[1], + rest$21=_gZ_[2], + fmting_lit$0=_gZ_[1], match$6=stopper_of_formatting_lit(fmting_lit$0), str$1=match$6[2], stp$0=match$6[1], - width$0=width_of_pad_opt(_g5_); - scan_chars_in_char_set(_g4_,[0,stp$0],width$0,ib); + width$0=width_of_pad_opt(_g1_); + scan_chars_in_char_set(_g0_,[0,stp$0],width$0,ib); var s$2=token_string(ib),str_rest$0=[11,str$1,rest$21]; return [0,s$2,make_scanf(ib,str_rest$0,readers)]} - var width=width_of_pad_opt(_g5_); - scan_chars_in_char_set(_g4_,0,width,ib); + var width=width_of_pad_opt(_g1_); + scan_chars_in_char_set(_g0_,0,width,ib); var s$1=token_string(ib); - return [0,s$1,make_scanf(ib,_g3_,readers)]; + return [0,s$1,make_scanf(ib,_gZ_,readers)]; case 21: var rest$22=fmt$0[2], @@ -21512,8 +23945,7 @@ match$8=make_scanf(ib,fmt$13,readers); if(match$8){var arg_rest=match$8[2];return arg_rest} throw [0,Assert_failure,_cp_]; - default: - return invalid_arg(cst_scanf_bad_conversion_custom_converter)}} + default:return invalid_arg(cst_scanf_bad_conversion_custo)}} function kscanf(ib,ef,param) {var str=param[2],fmt=param[1]; function apply(f,args) @@ -21531,30 +23963,34 @@ function k(readers,f) {reset_token(ib); try - {var _gT_=[0,make_scanf(ib,fmt,readers)],_gS_=_gT_} + {var _gP_=[0,make_scanf(ib,fmt,readers)],_gO_=_gP_} catch(exc) {exc = caml_wrap_exception(exc); - if(exc[1] === Scan_failure) - var switch$0=0; - else - if(exc[1] === Failure) - var switch$0=0; - else - if(exc === End_of_file) - var switch$0=0; - else - {if(exc[1] !== Invalid_argument)throw exc; - var - msg=exc[2], - _gR_= - invalid_arg - (symbol - (msg,symbol(cst_in_format,symbol(escaped$1(str),cst$86)))), - switch$0=1} - if(! switch$0)var _gR_=[1,exc]; - var _gS_=_gR_} - if(0 === _gS_[0]){var args=_gS_[1];return apply(f,args)} - var exc=_gS_[1]; + var switch$0=0; + if + (exc[1] + !== + Scan_failure + && + exc[1] + !== + Failure + && + exc + !== + End_of_file) + {if(exc[1] !== Invalid_argument)throw exc; + var + msg=exc[2], + _gN_= + invalid_arg + (symbol + (msg,symbol(cst_in_format,symbol(escaped$1(str),cst$86)))); + switch$0 = 1} + if(! switch$0)var _gN_=[1,exc]; + var _gO_=_gN_} + if(0 === _gO_[0]){var args=_gO_[1];return apply(f,args)} + var exc=_gO_[1]; return caml_call2(ef,ib,exc)} return take_format_readers(k,fmt)} function bscanf(ib,fmt){return kscanf(ib,scanf_bad_input,fmt)} @@ -21566,7 +24002,7 @@ {scan_caml_string(max_int,ib); var str=token_string(ib); try - {var _gQ_=format_of_string_format(str,format),fmt=_gQ_} + {var _gM_=format_of_string_format(str,format),fmt=_gM_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] !== Failure)throw exn; @@ -21575,12 +24011,12 @@ function sscanf_format(s,format,f) {return bscanf_format(from_string$1(s),format,f)} function format_from_string(s,fmt) - {function _gP_(x){return x} + {function _gL_(x){return x} return sscanf_format - (symbol(cst$88,symbol(escaped$1(s),cst$87)),fmt,_gP_)} + (symbol(cst$88,symbol(escaped$1(s),cst$87)),fmt,_gL_)} function unescaped(s) - {function _gO_(x){return x} - return caml_call1(sscanf(symbol(cst$90,symbol(s,cst$89)),_cq_),_gO_)} + {function _gK_(x){return x} + return caml_call1(sscanf(symbol(cst$90,symbol(s,cst$89)),_cq_),_gK_)} function kfscanf(ic,ef,fmt){return kscanf(memo_from_channel(ic),ef,fmt)} function fscanf(ic,fmt) {return kscanf(memo_from_channel(ic),scanf_bad_input,fmt)} @@ -21623,14 +24059,14 @@ function copy$7(o){var o$0=o.slice();return caml_set_oo_id(o$0)} var params$0=[0,1,1,1,3,16],initial_object_size=2,dummy_item=0; function public_method_label(s) - {var accu=[0,0],_gL_=caml_ml_string_length(s) - 1 | 0,_gK_=0; - if(! (_gL_ < 0)) - {var i=_gK_; + {var accu=[0,0],_gH_=caml_ml_string_length(s) - 1 | 0,_gG_=0; + if(! (_gH_ < 0)) + {var i=_gG_; for(;;) - {var _gM_=caml_string_get(s,i); - accu[1] = (223 * accu[1] | 0) + _gM_ | 0; - var _gN_=i + 1 | 0; - if(_gL_ !== i){var i=_gN_;continue} + {var _gI_=caml_string_get(s,i); + accu[1] = (223 * accu[1] | 0) + _gI_ | 0; + var _gJ_=i + 1 | 0; + if(_gH_ !== i){var i=_gJ_;continue} break}} accu[1] = accu[1] & 2147483647; var tag=1073741823 < accu[1]?accu[1] + 2147483648 | 0:accu[1]; @@ -21652,30 +24088,30 @@ len=pub_labels.length - 1, methods=caml_make_vect((len * 2 | 0) + 2 | 0,dummy_met); caml_check_bound(methods,0)[1] = len; - var _gE_=((fit_size(len) * 32 | 0) / 8 | 0) - 1 | 0; - caml_check_bound(methods,1)[2] = _gE_; - var _gG_=len - 1 | 0,_gF_=0; - if(! (_gG_ < 0)) - {var i=_gF_; + var _gA_=((fit_size(len) * 32 | 0) / 8 | 0) - 1 | 0; + caml_check_bound(methods,1)[2] = _gA_; + var _gC_=len - 1 | 0,_gB_=0; + if(! (_gC_ < 0)) + {var i=_gB_; for(;;) {var - _gI_=(i * 2 | 0) + 3 | 0, - _gH_=caml_check_bound(pub_labels,i)[1 + i]; - caml_check_bound(methods,_gI_)[1 + _gI_] = _gH_; - var _gJ_=i + 1 | 0; - if(_gG_ !== i){var i=_gJ_;continue} + _gE_=(i * 2 | 0) + 3 | 0, + _gD_=caml_check_bound(pub_labels,i)[1 + i]; + caml_check_bound(methods,_gE_)[1 + _gE_] = _gD_; + var _gF_=i + 1 | 0; + if(_gC_ !== i){var i=_gF_;continue} break}} return [0,initial_object_size,methods,Meths[1],Labs[1],0,0,Vars[1],0]} function resize$1(array,new_size) - {var old_size=array[2].length - 1,_gC_=old_size < new_size?1:0; - if(_gC_) + {var old_size=array[2].length - 1,_gy_=old_size < new_size?1:0; + if(_gy_) {var new_buck=caml_make_vect(new_size,dummy_met); blit$1(array[2],0,new_buck,0,old_size); array[2] = new_buck; - var _gD_=0} + var _gz_=0} else - var _gD_=_gC_; - return _gD_} + var _gz_=_gy_; + return _gz_} var method_count=[0,0],inst_var_count=[0,0]; function new_method(table) {var index=table[2].length - 1; @@ -21683,17 +24119,17 @@ return index} function get_method_label(table,name) {try - {var _gA_=caml_call2(Meths[27],name,table[3]);return _gA_} - catch(_gB_) - {_gB_ = caml_wrap_exception(_gB_); - if(_gB_ === Not_found) + {var _gw_=caml_call2(Meths[27],name,table[3]);return _gw_} + catch(_gx_) + {_gx_ = caml_wrap_exception(_gx_); + if(_gx_ === Not_found) {var label=new_method(table); table[3] = caml_call3(Meths[4],name,label,table[3]); table[4] = caml_call3(Labs[4],label,1,table[4]); return label} - throw _gB_}} + throw _gx_}} function get_method_labels(table,names) - {return map$5(function(_gz_){return get_method_label(table,_gz_)},names)} + {return map$5(function(_gv_){return get_method_label(table,_gv_)},names)} function set_method(table,label,element) {method_count[1]++; return caml_call2(Labs[27],label,table[4]) @@ -21705,12 +24141,12 @@ :(table[6] = [0,[0,label,element],table[6]],0)} function get_method(table,label) {try - {var _gx_=assoc(label,table[6]);return _gx_} - catch(_gy_) - {_gy_ = caml_wrap_exception(_gy_); - if(_gy_ === Not_found) + {var _gt_=assoc(label,table[6]);return _gt_} + catch(_gu_) + {_gu_ = caml_wrap_exception(_gu_); + if(_gu_ === Not_found) return caml_check_bound(table[2],label)[1 + label]; - throw _gy_}} + throw _gu_}} function to_list$3(arr){return 0 === arr?0:to_list$1(arr)} function narrow(table,vars,virt_meths,concr_meths) {var @@ -21719,31 +24155,31 @@ concr_meths$0=to_list$3(concr_meths), virt_meth_labs= map$2 - (function(_gw_){return get_method_label(table,_gw_)},virt_meths$0), + (function(_gs_){return get_method_label(table,_gs_)},virt_meths$0), concr_meth_labs= map$2 - (function(_gv_){return get_method_label(table,_gv_)},concr_meths$0); + (function(_gr_){return get_method_label(table,_gr_)},concr_meths$0); table[5] = [0, [0,table[3],table[4],table[6],table[7],virt_meth_labs,vars$0], table[5]]; - var _gm_=Vars[1],_gn_=table[7]; - function _go_(lab,info,tvars) + var _gi_=Vars[1],_gj_=table[7]; + function _gk_(lab,info,tvars) {return mem(lab,vars$0)?caml_call3(Vars[4],lab,info,tvars):tvars} - table[7] = caml_call3(Vars[13],_go_,_gn_,_gm_); + table[7] = caml_call3(Vars[13],_gk_,_gj_,_gi_); var by_name=[0,Meths[1]],by_label=[0,Labs[1]]; iter2 (function(met,label) {by_name[1] = caml_call3(Meths[4],met,label,by_name[1]); - var _gr_=by_label[1]; + var _gn_=by_label[1]; try - {var _gt_=caml_call2(Labs[27],label,table[4]),_gs_=_gt_} - catch(_gu_) - {_gu_ = caml_wrap_exception(_gu_); - if(_gu_ !== Not_found)throw _gu_; - var _gs_=1} - by_label[1] = caml_call3(Labs[4],label,_gs_,_gr_); + {var _gp_=caml_call2(Labs[27],label,table[4]),_go_=_gp_} + catch(_gq_) + {_gq_ = caml_wrap_exception(_gq_); + if(_gq_ !== Not_found)throw _gq_; + var _go_=1} + by_label[1] = caml_call3(Labs[4],label,_go_,_gn_); return 0}, concr_meths$0, concr_meth_labs); @@ -21756,14 +24192,14 @@ virt_meth_labs); table[3] = by_name[1]; table[4] = by_label[1]; - var _gp_=0,_gq_=table[6]; + var _gl_=0,_gm_=table[6]; table[6] = fold_right (function(met,hm) {var lab=met[1];return mem(lab,virt_meth_labs)?hm:[0,met,hm]}, - _gq_, - _gp_); + _gm_, + _gl_); return 0} function widen(table) {var @@ -21779,34 +24215,34 @@ = fold_left$0 (function(s,v) - {var _gl_=caml_call2(Vars[27],v,table[7]); - return caml_call3(Vars[4],v,_gl_,s)}, + {var _gh_=caml_call2(Vars[27],v,table[7]); + return caml_call3(Vars[4],v,_gh_,s)}, saved_vars, vars); table[3] = by_name; table[4] = by_label; - var _gk_=table[6]; + var _gg_=table[6]; table[6] = fold_right (function(met,hm) {var lab=met[1];return mem(lab,virt_meths)?hm:[0,met,hm]}, - _gk_, + _gg_, saved_hidden_meths); return 0} function new_slot(table) {var index=table[1];table[1] = index + 1 | 0;return index} function new_variable(table,name) {try - {var _gi_=caml_call2(Vars[27],name,table[7]);return _gi_} - catch(_gj_) - {_gj_ = caml_wrap_exception(_gj_); - if(_gj_ === Not_found) + {var _ge_=caml_call2(Vars[27],name,table[7]);return _ge_} + catch(_gf_) + {_gf_ = caml_wrap_exception(_gf_); + if(_gf_ === Not_found) {var index=new_slot(table); if(caml_string_notequal(name,cst$91)) table[7] = caml_call3(Vars[4],name,index,table[7]); return index} - throw _gj_}} + throw _gf_}} function to_array(arr){return caml_equal(arr,0)?[0]:arr} function new_methods_variables(table,meths,vals) {var @@ -21814,39 +24250,39 @@ nmeths=meths$0.length - 1, nvals=vals.length - 1, res=caml_make_vect(nmeths + nvals | 0,0), - _ga_=nmeths - 1 | 0, - _f$_=0; - if(! (_ga_ < 0)) - {var i$0=_f$_; + _f8_=nmeths - 1 | 0, + _f7_=0; + if(! (_f8_ < 0)) + {var i$0=_f7_; for(;;) {var - _gg_= + _gc_= get_method_label(table,caml_check_bound(meths$0,i$0)[1 + i$0]); - caml_check_bound(res,i$0)[1 + i$0] = _gg_; - var _gh_=i$0 + 1 | 0; - if(_ga_ !== i$0){var i$0=_gh_;continue} + caml_check_bound(res,i$0)[1 + i$0] = _gc_; + var _gd_=i$0 + 1 | 0; + if(_f8_ !== i$0){var i$0=_gd_;continue} break}} - var _gc_=nvals - 1 | 0,_gb_=0; - if(! (_gc_ < 0)) - {var i=_gb_; + var _f__=nvals - 1 | 0,_f9_=0; + if(! (_f__ < 0)) + {var i=_f9_; for(;;) {var - _ge_=i + nmeths | 0, - _gd_=new_variable(table,caml_check_bound(vals,i)[1 + i]); - caml_check_bound(res,_ge_)[1 + _ge_] = _gd_; - var _gf_=i + 1 | 0; - if(_gc_ !== i){var i=_gf_;continue} + _ga_=i + nmeths | 0, + _f$_=new_variable(table,caml_check_bound(vals,i)[1 + i]); + caml_check_bound(res,_ga_)[1 + _ga_] = _f$_; + var _gb_=i + 1 | 0; + if(_f__ !== i){var i=_gb_;continue} break}} return res} function get_variable(table,name) {try - {var _f9_=caml_call2(Vars[27],name,table[7]);return _f9_} - catch(_f__) - {_f__ = caml_wrap_exception(_f__); - if(_f__ === Not_found)throw [0,Assert_failure,_cr_]; - throw _f__}} + {var _f5_=caml_call2(Vars[27],name,table[7]);return _f5_} + catch(_f6_) + {_f6_ = caml_wrap_exception(_f6_); + if(_f6_ === Not_found)throw [0,Assert_failure,_cr_]; + throw _f6_}} function get_variables(table,names) - {return map$5(function(_f8_){return get_variable(table,_f8_)},names)} + {return map$5(function(_f4_){return get_variable(table,_f4_)},names)} function add_initializer(table,f){table[8] = [0,f,table[8]];return 0} function create_table(public_methods) {if(0 === public_methods)return new_table([0]); @@ -21873,20 +24309,20 @@ var init=top?caml_call2(super$0,cla,env):caml_call1(super$0,cla); widen(cla); var - _f3_=0, - _f4_=to_array(concr_meths), - _f5_= + _fZ_=0, + _f0_=to_array(concr_meths), + _f1_= [0, map$5 - (function(nm){return get_method(cla,get_method_label(cla,nm))},_f4_), - _f3_], - _f6_=to_array(vals); + (function(nm){return get_method(cla,get_method_label(cla,nm))},_f0_), + _fZ_], + _f2_=to_array(vals); return caml_array_concat ([0, [0,init], [0, - map$5(function(_f7_){return get_variable(cla,_f7_)},_f6_), - _f5_]])} + map$5(function(_f3_){return get_variable(cla,_f3_)},_f2_), + _f1_]])} function make_class(pub_meths,class_init) {var table=create_table(pub_meths),env_init=caml_call1(class_init,table); init_class(table); @@ -21919,14 +24355,14 @@ continue} return 0}} function run_initializers(obj,table) - {var inits=table[8],_f2_=0 !== inits?1:0; - return _f2_?iter_f(obj,inits):_f2_} + {var inits=table[8],_fY_=0 !== inits?1:0; + return _fY_?iter_f(obj,inits):_fY_} function run_initializers_opt(obj_0,obj,table) {if(obj_0)return obj; var inits=table[8]; if(0 !== inits)iter_f(obj,inits); return obj} - function create_object_and_run_initializers(obj_0,table) + function create_object_and_run_initiali(obj_0,table) {if(obj_0)return obj_0; var obj=create_object(table); run_initializers(obj,table); @@ -21934,17 +24370,17 @@ function get_data$0(param) {if(param)return param[2];throw [0,Assert_failure,_cv_]} function build_path(n,keys,tables) - {var res=[0,0,0,0],r=[0,res],_fY_=0; + {var res=[0,0,0,0],r=[0,res],_fU_=0; if(! (n < 0)) - {var i=_fY_; + {var i=_fU_; for(;;) - {var _f0_=r[1]; - r[1] = [0,caml_check_bound(keys,i)[1 + i],_f0_,0]; - var _f1_=i + 1 | 0; - if(n !== i){var i=_f1_;continue} + {var _fW_=r[1]; + r[1] = [0,caml_check_bound(keys,i)[1 + i],_fW_,0]; + var _fX_=i + 1 | 0; + if(n !== i){var i=_fX_;continue} break}} - var _fZ_=r[1]; - if(tables){tables[2] = _fZ_;return res} + var _fV_=r[1]; + if(tables){tables[2] = _fV_;return res} throw [0,Assert_failure,_cs_]} function lookup_tables(root,keys) {var tables$2=get_data$0(root); @@ -21962,8 +24398,8 @@ {var i$0=i - 1 | 0,i=i$0,tables=tables$1;continue a} throw [0,Assert_failure,_cx_]} if(tables$0) - {var _fX_=tables$0[3]; - if(_fX_){var tables$0=_fX_;continue} + {var _fT_=tables$0[3]; + if(_fT_){var tables$0=_fT_;continue} var v=[0,key,0,0]; if(tables$0) {tables$0[3] = v;return build_path(i - 1 | 0,keys,v)} @@ -21973,14 +24409,15 @@ return tables}} return build_path(keys.length - 1 - 1 | 0,keys,root)} function new_cache(table) - {var n=new_method(table); - if(0 === (n % 2 | 0)) - var switch$0=0; - else - if((2 + ((caml_check_bound(table[2],1)[2] * 16 | 0) / 32 | 0) | 0) < n) - var switch$0=0; - else - var n$0=new_method(table),switch$0=1; + {var n=new_method(table),switch$0=0; + if + (0 + !== + (n % 2 | 0) + && + ! + ((2 + ((caml_check_bound(table[2],1)[2] * 16 | 0) / 32 | 0) | 0) < n)) + {var n$0=new_method(table);switch$0 = 1} if(! switch$0)var n$0=n; caml_check_bound(table[2],n$0)[1 + n$0] = 0; return n$0} @@ -21989,13 +24426,13 @@ for(;;) {if(i[1] < len) {var - _fR_=i[1], - label=caml_check_bound(methods,_fR_)[1 + _fR_], + _fN_=i[1], + label=caml_check_bound(methods,_fN_)[1 + _fN_], next= function(param) {i[1]++; - var _fW_=i[1]; - return caml_check_bound(methods,_fW_)[1 + _fW_]}, + var _fS_=i[1]; + return caml_check_bound(methods,_fS_)[1 + _fS_]}, clo=next(0); if(typeof clo === "number") switch(clo) @@ -22184,8 +24621,8 @@ clo$0= function(n,m) {return function(obj) - {var _fU_=caml_call1(obj[1][1 + m],obj); - return caml_call2(obj[1][1 + n],obj,_fU_)}} + {var _fQ_=caml_call1(obj[1][1 + m],obj); + return caml_call2(obj[1][1 + n],obj,_fQ_)}} (n$15,m$1); break; case 20: @@ -22207,8 +24644,8 @@ clo$0= function(m,n,c) {return function(obj) - {var _fT_=obj[1 + n]; - return caml_call2(caml_get_public_method(_fT_,m,0),_fT_,c)}} + {var _fP_=obj[1 + n]; + return caml_call2(caml_get_public_method(_fP_,m,0),_fP_,c)}} (m$3,n$16,c$0); break; case 22: @@ -22220,8 +24657,8 @@ clo$0= function(m,e,n,c) {return function(obj) - {var _fS_=obj[1 + e][1 + n]; - return caml_call2(caml_get_public_method(_fS_,m,0),_fS_,c)}} + {var _fO_=obj[1 + e][1 + n]; + return caml_call2(caml_get_public_method(_fO_,m,0),_fO_,c)}} (m$4,e$4,n$17,c$1); break; default: @@ -22232,8 +24669,8 @@ clo$0= function(m,n,c) {return function(obj) - {var _fV_=caml_call1(obj[1][1 + n],obj); - return caml_call2(caml_get_public_method(_fV_,m,0),_fV_,c)}} + {var _fR_=caml_call1(obj[1][1 + n],obj); + return caml_call2(caml_get_public_method(_fR_,m,0),_fR_,c)}} (m$5,n$18,c$2)} else var clo$0=clo; @@ -22272,7 +24709,7 @@ create_object_opt, run_initializers, run_initializers_opt, - create_object_and_run_initializers, + create_object_and_run_initiali, lookup_tables, params$0, stats$0]; @@ -22309,75 +24746,79 @@ keywords); function ident_or_keyword(id) {try - {var _fP_=caml_call2(Stdlib_hashtbl[6],kwd_table,id);return _fP_} - catch(_fQ_) - {_fQ_ = caml_wrap_exception(_fQ_); - if(_fQ_ === Not_found)return [1,id]; - throw _fQ_}} + {var _fL_=caml_call2(Stdlib_hashtbl[6],kwd_table,id);return _fL_} + catch(_fM_) + {_fM_ = caml_wrap_exception(_fM_); + if(_fM_ === Not_found)return [1,id]; + throw _fM_}} function keyword_or_error(c) {var s=make$0(1,c); try - {var _fN_=caml_call2(Stdlib_hashtbl[6],kwd_table,s);return _fN_} - catch(_fO_) - {_fO_ = caml_wrap_exception(_fO_); - if(_fO_ === Not_found) + {var _fJ_=caml_call2(Stdlib_hashtbl[6],kwd_table,s);return _fJ_} + catch(_fK_) + {_fK_ = caml_wrap_exception(_fK_); + if(_fK_ === Not_found) throw [0,Error,symbol(cst_Illegal_character,s)]; - throw _fO_}} + throw _fK_}} function end_exponent_part(strm) {for(;;) {var match=peek$0(strm); if(match) - {var _fM_=match[1],switcher=_fM_ - 48 | 0; - if(! (9 < switcher >>> 0)){junk(strm);store(_fM_);continue}} + {var _fI_=match[1],switcher=_fI_ - 48 | 0; + if(! (9 < switcher >>> 0)){junk(strm);store(_fI_);continue}} return [0,[3,caml_float_of_string(get_string(0))]]}} function exponent_part(strm) {var match=peek$0(strm); if(match) - {var _fL_=match[1],switch$0=43 === _fL_?0:45 === _fL_?0:1; + {var _fH_=match[1],switch$0=0; + if(43 !== _fH_ && 45 !== _fH_)switch$0 = 1; if(! switch$0) - {junk(strm);store(_fL_);return end_exponent_part(strm)}} + {junk(strm);store(_fH_);return end_exponent_part(strm)}} return end_exponent_part(strm)} function number(s) {for(;;) {var match=peek$0(s); if(match) - {var _fI_=match[1]; - if(58 <= _fI_) - {var switch$0=69 === _fI_?0:101 === _fI_?0:1; - if(! switch$0){junk(s);store(69);return exponent_part(s)}} + {var _fE_=match[1]; + if(58 <= _fE_) + {var switch$0=0; + if(69 === _fE_ || 101 === _fE_)switch$0 = 1; + if(switch$0){junk(s);store(69);return exponent_part(s)}} else - {if(46 === _fI_) + {if(46 === _fE_) {junk(s); store(46); for(;;) {var match$0=peek$0(s); if(match$0) - {var _fJ_=match$0[1],_fK_=_fJ_ - 69 | 0; - if(32 < _fK_ >>> 0) - {var switcher=_fK_ + 21 | 0; - if(! (9 < switcher >>> 0)){junk(s);store(_fJ_);continue}} + {var _fF_=match$0[1],_fG_=_fF_ - 69 | 0; + if(32 < _fG_ >>> 0) + {var switcher=_fG_ + 21 | 0; + if(! (9 < switcher >>> 0)){junk(s);store(_fF_);continue}} else - {var switcher$0=_fK_ - 1 | 0; + {var switcher$0=_fG_ - 1 | 0; if(30 < switcher$0 >>> 0) {junk(s);store(69);return exponent_part(s)}}} return [0,[3,caml_float_of_string(get_string(0))]]}} - if(48 <= _fI_){junk(s);store(_fI_);continue}}} + if(48 <= _fE_){junk(s);store(_fE_);continue}}} return [0,[2,caml_int_of_string(get_string(0))]]}} function ident2(strm) {for(;;) {var match=peek$0(strm); if(match) - {var _fG_=match[1]; - if(94 <= _fG_) - var - _fH_=_fG_ - 95 | 0, - switch$0=30 < _fH_ >>> 0?32 <= _fH_?1:0:29 === _fH_?0:1; + {var _fC_=match[1],switch$0=0; + if(94 <= _fC_) + {var _fD_=_fC_ - 95 | 0; + if(30 < _fD_ >>> 0) + {if(! (32 <= _fD_))switch$0 = 1} + else + if(29 === _fD_)switch$0 = 1} else - if(65 <= _fG_) - var switch$0=92 === _fG_?0:1; + if(65 <= _fC_) + {if(92 === _fC_)switch$0 = 1} else - if(33 <= _fG_) - switch(_fG_ - 33 | 0) + if(33 <= _fC_) + switch(_fC_ - 33 | 0) {case 0: case 2: case 3: @@ -22392,18 +24833,16 @@ case 28: case 29: case 30: - case 31:var switch$0=0;break; - default:var switch$0=1} - else - var switch$0=1; - if(! switch$0){junk(strm);store(_fG_);continue}} + case 31:switch$0 = 1;break + } + if(switch$0){junk(strm);store(_fC_);continue}} return [0,ident_or_keyword(get_string(0))]}} function neg_number(s) {var match=peek$0(s); if(match) - {var _fF_=match[1],switcher=_fF_ - 48 | 0; + {var _fB_=match[1],switcher=_fB_ - 48 | 0; if(! (9 < switcher >>> 0)) - {junk(s);reset_buffer(0);store(45);store(_fF_);return number(s)}} + {junk(s);reset_buffer(0);store(45);store(_fB_);return number(s)}} reset_buffer(0); store(45); return ident2(s)} @@ -22411,154 +24850,153 @@ {for(;;) {var match=peek$0(strm); if(match) - {var _fD_=match[1]; - if(91 <= _fD_) - var - _fE_=_fD_ - 95 | 0, - switch$0=27 < _fE_ >>> 0?97 <= _fE_?0:1:1 === _fE_?1:0; + {var _fz_=match[1],switch$0=0; + if(91 <= _fz_) + {var _fA_=_fz_ - 95 | 0; + if(27 < _fA_ >>> 0) + {if(97 <= _fA_)switch$0 = 1} + else + if(1 !== _fA_)switch$0 = 1} else - var - switch$0= - 48 <= _fD_?6 < (_fD_ - 58 | 0) >>> 0?0:1:39 === _fD_?0:1; - if(! switch$0){junk(strm);store(_fD_);continue}} + if(48 <= _fz_) + {if(6 < (_fz_ - 58 | 0) >>> 0)switch$0 = 1} + else + if(39 === _fz_)switch$0 = 1; + if(switch$0){junk(strm);store(_fz_);continue}} return [0,ident_or_keyword(get_string(0))]}} function next_token$0(counter,strm) {for(;;) {var match=peek$0(strm); if(match) - {var _ft_=match[1]; - if(124 <= _ft_) - var switch$0=127 <= _ft_?192 <= _ft_?1:0:125 === _ft_?0:2; + {var _fp_=match[1],switch$0=0; + if(124 <= _fp_) + {if(127 <= _fp_) + {if(192 <= _fp_)switch$0 = 1} + else + if(125 !== _fp_)switch$0 = 2} else - {var _fu_=_ft_ - 65 | 0; - if(57 < _fu_ >>> 0) - if(58 <= _fu_) - var switch$0=0; - else - {var switcher=_fu_ + 65 | 0; - switch(switcher) - {case 34: - junk(strm); - reset_buffer(0); - for(;;) - {var match$1=peek$0(strm); - if(match$1) - {var _fw_=match$1[1]; - if(34 === _fw_){junk(strm);return [0,[4,get_string(0)]]} - if(92 === _fw_) - {junk(strm); - try - {var c$0=escape(strm)} - catch(_fC_) - {_fC_ = caml_wrap_exception(_fC_); - if(_fC_ === Failure$0)throw [0,Error,cst$94]; - throw _fC_; - var _fz_=_fC_} - store(c$0); - continue} - junk(strm); - store(_fw_); - continue} - throw Failure$0} - case 39: - junk(strm); - try - {var match$2=peek$0(strm); - if(! match$2)throw Failure$0; - var _fx_=match$2[1]; - if(92 === _fx_) - {junk(strm); - try - {var _fy_=escape(strm)} - catch(_fB_) - {_fB_ = caml_wrap_exception(_fB_); - if(_fB_ === Failure$0)throw [0,Error,cst$95]; - throw _fB_} - var c=_fy_} - else - {junk(strm);var c=_fx_}} - catch(_fA_) - {_fA_ = caml_wrap_exception(_fA_); - if(_fA_ === Failure$0)throw [0,Error,cst$92]; - throw _fA_} - var match$0=peek$0(strm); - if(match$0) - if(39 === match$0[1]){junk(strm);return [0,[5,c]]} - throw [0,Error,cst$93]; - case 40: - junk(strm); - if(counter < 50) - {var counter$0=counter + 1 | 0; - return maybe_comment(counter$0,strm)} - return caml_trampoline_return(maybe_comment,[0,strm]); - case 45:junk(strm);return neg_number(strm); - case 9: - case 10: - case 12: - case 13: - case 26: - case 32:junk(strm);continue; - case 48: - case 49: - case 50: - case 51: - case 52: - case 53: - case 54: - case 55: - case 56: - case 57: - junk(strm);reset_buffer(0);store(_ft_);return number(strm); - case 33: - case 35: - case 36: - case 37: - case 38: - case 42: - case 43: - case 47: - case 58: - case 60: - case 61: - case 62: - case 63: - case 64:var switch$0=2;break; - default:var switch$0=0}} + {var _fq_=_fp_ - 65 | 0; + if(57 < _fq_ >>> 0) + {if(! (58 <= _fq_)) + {var switcher=_fq_ + 65 | 0; + switch(switcher) + {case 34: + junk(strm); + reset_buffer(0); + for(;;) + {var match$1=peek$0(strm); + if(match$1) + {var _fs_=match$1[1]; + if(34 === _fs_){junk(strm);return [0,[4,get_string(0)]]} + if(92 === _fs_) + {junk(strm); + try + {var c$0=escape(strm)} + catch(_fy_) + {_fy_ = caml_wrap_exception(_fy_); + if(_fy_ === Failure$0)throw [0,Error,cst$94]; + throw _fy_; + var _fv_=_fy_} + store(c$0); + continue} + junk(strm); + store(_fs_); + continue} + throw Failure$0} + case 39: + junk(strm); + try + {var match$2=peek$0(strm); + if(! match$2)throw Failure$0; + var _ft_=match$2[1]; + if(92 === _ft_) + {junk(strm); + try + {var _fu_=escape(strm)} + catch(_fx_) + {_fx_ = caml_wrap_exception(_fx_); + if(_fx_ === Failure$0)throw [0,Error,cst$95]; + throw _fx_} + var c=_fu_} + else + {junk(strm);var c=_ft_}} + catch(_fw_) + {_fw_ = caml_wrap_exception(_fw_); + if(_fw_ === Failure$0)throw [0,Error,cst$92]; + throw _fw_} + var match$0=peek$0(strm); + if(match$0 && 39 === match$0[1]) + {junk(strm);return [0,[5,c]]} + throw [0,Error,cst$93]; + case 40: + junk(strm); + if(counter < 50) + {var counter$0=counter + 1 | 0; + return maybe_comment(counter$0,strm)} + return caml_trampoline_return(maybe_comment,[0,strm]); + case 45:junk(strm);return neg_number(strm); + case 9: + case 10: + case 12: + case 13: + case 26: + case 32:junk(strm);continue; + case 48: + case 49: + case 50: + case 51: + case 52: + case 53: + case 54: + case 55: + case 56: + case 57: + junk(strm);reset_buffer(0);store(_fp_);return number(strm); + case 33: + case 35: + case 36: + case 37: + case 38: + case 42: + case 43: + case 47: + case 58: + case 60: + case 61: + case 62: + case 63: + case 64:switch$0 = 2;break + }}} else - {var _fv_=_fu_ - 26 | 0; - if(5 < _fv_ >>> 0) - var switch$0=1; + {var _fr_=_fq_ - 26 | 0; + if(5 < _fr_ >>> 0) + switch$0 = 1; else - switch(_fv_) - {case 4:var switch$0=1;break; - case 1: - case 3:var switch$0=2;break; - default:var switch$0=0}}} + switch(_fr_) + {case 4:switch$0 = 1;break;case 1:case 3:switch$0 = 2;break}}} switch(switch$0) - {case 0:junk(strm);return [0,keyword_or_error(_ft_)]; + {case 0:junk(strm);return [0,keyword_or_error(_fp_)]; case 1: - junk(strm);reset_buffer(0);store(_ft_);return ident(strm); + junk(strm);reset_buffer(0);store(_fp_);return ident(strm); default: - junk(strm);reset_buffer(0);store(_ft_);return ident2(strm)}} + junk(strm);reset_buffer(0);store(_fp_);return ident2(strm)}} return 0}} function maybe_comment(counter,strm) {var match=peek$0(strm); - if(match) - if(42 === match[1]) - {junk(strm); - comment(strm); - if(counter < 50) - {var counter$0=counter + 1 | 0; - return next_token$0(counter$0,strm)} - return caml_trampoline_return(next_token$0,[0,strm])} + if(match && 42 === match[1]) + {junk(strm); + comment(strm); + if(counter < 50) + {var counter$0=counter + 1 | 0;return next_token$0(counter$0,strm)} + return caml_trampoline_return(next_token$0,[0,strm])} return [0,keyword_or_error(40)]} function next_token(strm){return caml_trampoline(next_token$0(0,strm))} function escape(strm) {var match=peek$0(strm); if(match) - {var _fq_=match[1]; - if(58 <= _fq_) - {var switcher=_fq_ - 110 | 0; + {var _fm_=match[1]; + if(58 <= _fm_) + {var switcher=_fm_ - 110 | 0; if(! (6 < switcher >>> 0)) switch(switcher) {case 0:junk(strm);return 10; @@ -22566,32 +25004,32 @@ case 6:junk(strm);return 9 }} else - if(48 <= _fq_) + if(48 <= _fm_) {junk(strm); var match$0=peek$0(strm); if(match$0) - {var _fr_=match$0[1],switcher$0=_fr_ - 48 | 0; + {var _fn_=match$0[1],switcher$0=_fn_ - 48 | 0; if(! (9 < switcher$0 >>> 0)) {junk(strm); var match$1=peek$0(strm); if(match$1) - {var _fs_=match$1[1],switcher$1=_fs_ - 48 | 0; + {var _fo_=match$1[1],switcher$1=_fo_ - 48 | 0; if(! (9 < switcher$1 >>> 0)) {junk(strm); return chr - ((((_fq_ - 48 | 0) * 100 | 0) + ((((_fm_ - 48 | 0) * 100 | 0) + - ((_fr_ - 48 | 0) * 10 | 0) + ((_fn_ - 48 | 0) * 10 | 0) | 0) + - (_fs_ - 48 | 0) + (_fo_ - 48 | 0) | 0)}} throw [0,Error,cst$97]}} throw [0,Error,cst$96]} junk(strm); - return _fq_} + return _fm_} throw Failure$0} function comment(strm) {a: @@ -22615,9 +25053,9 @@ for(;;) {var match$1=peek$0(strm); if(match$1) - {var _fp_=match$1[1]; - if(41 === _fp_){junk(strm);return 0} - if(42 === _fp_){junk(strm);continue} + {var _fl_=match$1[1]; + if(41 === _fl_){junk(strm);return 0} + if(42 === _fl_){junk(strm);continue} junk(strm); continue a} throw Failure$0}} @@ -22629,7 +25067,7 @@ var Stdlib_genlex=[0,make_lexer]; caml_register_global(768,Stdlib_genlex,"Stdlib__genlex"); function MakeSeeded$0(H) - {var prng=[246,function(_fo_){return caml_call1(_b4_[2],0)}]; + {var prng=[246,function(_fk_){return caml_call1(_b4_[2],0)}]; function create(opt,initial_size) {if(opt) var sth=opt[1],random=sth; @@ -22637,26 +25075,25 @@ var random=caml_call1(Stdlib_hashtbl[17],0); var x=16; for(;;) - {if(! (initial_size <= x)) - if(! (max_array_length < (x * 2 | 0))) - {var x$0=x * 2 | 0,x=x$0;continue} + {if(! (initial_size <= x) && ! (max_array_length < (x * 2 | 0))) + {var x$0=x * 2 | 0,x=x$0;continue} if(random) var - _fm_=caml_obj_tag(prng), - _fn_=250 === _fm_?prng[1]:246 === _fm_?force_lazy_block(prng):prng, - seed=caml_call1(_b4_[4],_fn_); + _fi_=caml_obj_tag(prng), + _fj_=250 === _fi_?prng[1]:246 === _fi_?force_lazy_block(prng):prng, + seed=caml_call1(_b4_[4],_fj_); else var seed=0; return [0,0,caml_make_vect(x,0),seed,x]}} function clear(h) {h[1] = 0; - var len=h[2].length - 1,_fk_=len - 1 | 0,_fj_=0; - if(! (_fk_ < 0)) - {var i=_fj_; + var len=h[2].length - 1,_fg_=len - 1 | 0,_ff_=0; + if(! (_fg_ < 0)) + {var i=_ff_; for(;;) {caml_check_bound(h[2],i)[1 + i] = 0; - var _fl_=i + 1 | 0; - if(_fk_ !== i){var i=_fl_;continue} + var _fh_=i + 1 | 0; + if(_fg_ !== i){var i=_fh_;continue} break}} return 0} function reset(h) @@ -22665,8 +25102,8 @@ ?clear(h) :(h[1] = 0,h[2] = caml_make_vect(h[4],0),0)} function copy(init) - {var _fg_=init[4],_fh_=init[3],_fi_=copy$1(init[2]); - return [0,init[1],_fi_,_fh_,_fg_]} + {var _fc_=init[4],_fd_=init[3],_fe_=copy$1(init[2]); + return [0,init[1],_fe_,_fd_,_fc_]} function key_index(h,hkey){return hkey & (h[2].length - 1 - 1 | 0)} function clean(h) {function do_bucket(param) @@ -22679,23 +25116,23 @@ var param$0=rest; continue} return 0}} - var d=h[2],_fd_=d.length - 1 - 1 | 0,_fc_=0; - if(! (_fd_ < 0)) - {var i=_fc_; + var d=h[2],_e$_=d.length - 1 - 1 | 0,_e__=0; + if(! (_e$_ < 0)) + {var i=_e__; for(;;) - {var _fe_=do_bucket(caml_check_bound(d,i)[1 + i]); - caml_check_bound(d,i)[1 + i] = _fe_; - var _ff_=i + 1 | 0; - if(_fd_ !== i){var i=_ff_;continue} + {var _fa_=do_bucket(caml_check_bound(d,i)[1 + i]); + caml_check_bound(d,i)[1 + i] = _fa_; + var _fb_=i + 1 | 0; + if(_e$_ !== i){var i=_fb_;continue} break}} return 0} function resize(h) {var odata=h[2],osize=odata.length - 1,nsize=osize * 2 | 0; clean(h); var - _e8_=nsize < max_array_length?1:0, - _e9_=_e8_?(osize >>> 1 | 0) <= h[1]?1:0:_e8_; - if(_e9_) + _e4_=nsize < max_array_length?1:0, + _e5_=_e4_?(osize >>> 1 | 0) <= h[1]?1:0:_e4_; + if(_e5_) {var ndata=caml_make_vect(nsize,0); h[2] = ndata; var @@ -22710,19 +25147,19 @@ [0,hkey,data,caml_check_bound(ndata,nidx)[1 + nidx]]; return 0} return 0}, - _e$_=osize - 1 | 0, - _e__=0; - if(! (_e$_ < 0)) - {var i=_e__; + _e7_=osize - 1 | 0, + _e6_=0; + if(! (_e7_ < 0)) + {var i=_e6_; for(;;) {insert_bucket(caml_check_bound(odata,i)[1 + i]); - var _fb_=i + 1 | 0; - if(_e$_ !== i){var i=_fb_;continue} + var _e9_=i + 1 | 0; + if(_e7_ !== i){var i=_e9_;continue} break}} - var _fa_=0} + var _e8_=0} else - var _fa_=_e9_; - return _fa_} + var _e8_=_e5_; + return _e8_} function add(h,key,info) {var hkey=caml_call2(H[2],h[3],key), @@ -22731,8 +25168,8 @@ bucket=[0,hkey,container,caml_check_bound(h[2],i)[1 + i]]; caml_check_bound(h[2],i)[1 + i] = bucket; h[1] = h[1] + 1 | 0; - var _e7_=h[2].length - 1 << 1 < h[1]?1:0; - return _e7_?resize(h):_e7_} + var _e3_=h[2].length - 1 << 1 < h[1]?1:0; + return _e3_?resize(h):_e3_} function remove(h,key) {var hkey=caml_call2(H[2],h[3],key); function remove_bucket(param) @@ -22750,14 +25187,14 @@ return 0}} var i=key_index(h,hkey), - _e6_=remove_bucket(caml_check_bound(h[2],i)[1 + i]); - caml_check_bound(h[2],i)[1 + i] = _e6_; + _e2_=remove_bucket(caml_check_bound(h[2],i)[1 + i]); + caml_check_bound(h[2],i)[1 + i] = _e2_; return 0} function find(h,key) {var hkey=caml_call2(H[2],h[3],key), - _e5_=key_index(h,hkey), - param$0=caml_check_bound(h[2],_e5_)[1 + _e5_], + _e1_=key_index(h,hkey), + param$0=caml_check_bound(h[2],_e1_)[1 + _e1_], param=param$0; for(;;) {if(param) @@ -22778,8 +25215,8 @@ function find_opt(h,key) {var hkey=caml_call2(H[2],h[3],key), - _e4_=key_index(h,hkey), - param$0=caml_check_bound(h[2],_e4_)[1 + _e4_], + _e0_=key_index(h,hkey), + param$0=caml_check_bound(h[2],_e0_)[1 + _e0_], param=param$0; for(;;) {if(param) @@ -22818,8 +25255,8 @@ var param$0=rest; continue} return 0}} - var _e3_=key_index(h,hkey); - return find_in_bucket(caml_check_bound(h[2],_e3_)[1 + _e3_])} + var _eZ_=key_index(h,hkey); + return find_in_bucket(caml_check_bound(h[2],_eZ_)[1 + _eZ_])} function replace(h,key,info) {var hkey=caml_call2(H[2],h[3],key); function replace_bucket(param) @@ -22837,21 +25274,21 @@ throw Not_found}} var i=key_index(h,hkey),l=caml_check_bound(h[2],i)[1 + i]; try - {var _e1_=replace_bucket(l);return _e1_} - catch(_e2_) - {_e2_ = caml_wrap_exception(_e2_); - if(_e2_ === Not_found) + {var _eX_=replace_bucket(l);return _eX_} + catch(_eY_) + {_eY_ = caml_wrap_exception(_eY_); + if(_eY_ === Not_found) {var container=caml_call2(H[1],key,info); caml_check_bound(h[2],i)[1 + i] = [0,hkey,container,l]; h[1] = h[1] + 1 | 0; - var _e0_=h[2].length - 1 << 1 < h[1]?1:0; - return _e0_?resize(h):_e0_} - throw _e2_}} + var _eW_=h[2].length - 1 << 1 < h[1]?1:0; + return _eW_?resize(h):_eW_} + throw _eY_}} function mem(h,key) {var hkey=caml_call2(H[2],h[3],key), - _eZ_=key_index(h,hkey), - param$0=caml_check_bound(h[2],_eZ_)[1 + _eZ_], + _eV_=key_index(h,hkey), + param$0=caml_check_bound(h[2],_eV_)[1 + _eV_], param=param$0; for(;;) {if(param) @@ -22865,9 +25302,9 @@ continue} return 0}} function iter$0(f,h) - {var d$0=h[2],_eX_=d$0.length - 1 - 1 | 0,_eW_=0; - if(! (_eX_ < 0)) - {var i=_eW_; + {var d$0=h[2],_eT_=d$0.length - 1 - 1 | 0,_eS_=0; + if(! (_eT_ < 0)) + {var i=_eS_; a: for(;;) {var param$0=caml_check_bound(d$0,i)[1 + i],param=param$0; @@ -22877,58 +25314,45 @@ rest=param[3], c=param[2], match=caml_call1(H[5],c), - match$0=caml_call1(H[4],c); - if(match) - if(match$0) - {var d=match$0[1],k=match[1]; - caml_call2(f,k,d); - var switch$0=1} - else - var switch$0=0; - else - var switch$0=0; + match$0=caml_call1(H[4],c), + switch$0=0; + if(match && match$0) + {var d=match$0[1],k=match[1];caml_call2(f,k,d);switch$0 = 1} var param=rest; continue} - var _eY_=i + 1 | 0; - if(_eX_ !== i){var i=_eY_;continue a} + var _eU_=i + 1 | 0; + if(_eT_ !== i){var i=_eU_;continue a} break} break}} return 0} function fold(f,h,init) - {var d$0=h[2],accu$1=[0,init],_eT_=d$0.length - 1 - 1 | 0,_eS_=0; - if(! (_eT_ < 0)) - {var i=_eS_; + {var d$0=h[2],accu$1=[0,init],_eP_=d$0.length - 1 - 1 | 0,_eO_=0; + if(! (_eP_ < 0)) + {var i=_eO_; a: for(;;) {var - _eU_=accu$1[1], + _eQ_=accu$1[1], b$0=caml_check_bound(d$0,i)[1 + i], b=b$0, - accu=_eU_; + accu=_eQ_; for(;;) {if(b) {var rest=b[3], c=b[2], match=caml_call1(H[5],c), - match$0=caml_call1(H[4],c); - if(match) - if(match$0) - var - d=match$0[1], - k=match[1], - accu$0=caml_call3(f,k,d,accu), - switch$0=1; - else - var switch$0=0; - else - var switch$0=0; + match$0=caml_call1(H[4],c), + switch$0=0; + if(match && match$0) + {var d=match$0[1],k=match[1],accu$0=caml_call3(f,k,d,accu); + switch$0 = 1} if(! switch$0)var accu$0=accu; var b=rest,accu=accu$0; continue} accu$1[1] = accu; - var _eV_=i + 1 | 0; - if(_eT_ !== i){var i=_eV_;continue a} + var _eR_=i + 1 | 0; + if(_eP_ !== i){var i=_eR_;continue a} break} break}} return accu$1[1]} @@ -22943,26 +25367,25 @@ hk=param$0[1], match=caml_call1(H[5],c), match$0=caml_call1(H[4],c); - if(match) - if(match$0) - {var d=match$0[1],k=match[1],match$1=caml_call2(f,k,d); - if(match$1) - {var new_d=match$1[1]; - caml_call3(H[6],c,k,new_d); - return [0,hk,c,do_bucket(rest)]} - var param$0=rest; - continue} + if(match && match$0) + {var d=match$0[1],k=match[1],match$1=caml_call2(f,k,d); + if(match$1) + {var new_d=match$1[1]; + caml_call3(H[6],c,k,new_d); + return [0,hk,c,do_bucket(rest)]} + var param$0=rest; + continue} var param$0=rest; continue} return 0}} - var d=h[2],_eP_=d.length - 1 - 1 | 0,_eO_=0; - if(! (_eP_ < 0)) - {var i=_eO_; + var d=h[2],_eL_=d.length - 1 - 1 | 0,_eK_=0; + if(! (_eL_ < 0)) + {var i=_eK_; for(;;) - {var _eQ_=do_bucket(caml_check_bound(d,i)[1 + i]); - caml_check_bound(d,i)[1 + i] = _eQ_; - var _eR_=i + 1 | 0; - if(_eP_ !== i){var i=_eR_;continue} + {var _eM_=do_bucket(caml_check_bound(d,i)[1 + i]); + caml_check_bound(d,i)[1 + i] = _eM_; + var _eN_=i + 1 | 0; + if(_eL_ !== i){var i=_eN_;continue} break}} return 0} function length(h){return h[1]} @@ -22979,19 +25402,19 @@ return accu$0}} function stats(h) {var - _eL_=h[2], - _eM_=0, + _eH_=h[2], + _eI_=0, mbl= fold_left$1 - (function(m,b){return max(m,bucket_length(0,b))},_eM_,_eL_), + (function(m,b){return max(m,bucket_length(0,b))},_eI_,_eH_), histo=caml_make_vect(mbl + 1 | 0,0), - _eN_=h[2]; + _eJ_=h[2]; iter$5 (function(b) {var l=bucket_length(0,b); histo[1 + l] = caml_check_bound(histo,l)[1 + l] + 1 | 0; return 0}, - _eN_); + _eJ_); return [0,h[1],h[2].length - 1,mbl,histo]} function bucket_length_alive(accu,param) {var accu$0=accu,param$0=param; @@ -23006,20 +25429,20 @@ function stats_alive(h) {var size=[0,0], - _eI_=h[2], - _eJ_=0, + _eE_=h[2], + _eF_=0, mbl= fold_left$1 - (function(m,b){return max(m,bucket_length_alive(0,b))},_eJ_,_eI_), + (function(m,b){return max(m,bucket_length_alive(0,b))},_eF_,_eE_), histo=caml_make_vect(mbl + 1 | 0,0), - _eK_=h[2]; + _eG_=h[2]; iter$5 (function(b) {var l=bucket_length_alive(0,b); size[1] = size[1] + l | 0; histo[1 + l] = caml_check_bound(histo,l)[1 + l] + 1 | 0; return 0}, - _eK_); + _eG_); return [0,size[1],h[2].length - 1,mbl,histo]} function to_seq(tbl) {var tbl_data=tbl[2]; @@ -23032,12 +25455,11 @@ c=buck$0[2], match=caml_call1(H[5],c), match$0=caml_call1(H[4],c); - if(match) - if(match$0) - {var data=match$0[1],key=match[1]; - return [0, - [0,key,data], - function(_eH_){return aux(i$0,next,_eH_)}]} + if(match && match$0) + {var data=match$0[1],key=match[1]; + return [0, + [0,key,data], + function(_eD_){return aux(i$0,next,_eD_)}]} var buck$0=next; continue} if(i$0 === tbl_data.length - 1)return 0; @@ -23047,16 +25469,16 @@ i$0=i$1, buck$0=buck$1; continue}} - var _eE_=0,_eF_=0; - return function(_eG_){return aux(_eF_,_eE_,_eG_)}} + var _eA_=0,_eB_=0; + return function(_eC_){return aux(_eB_,_eA_,_eC_)}} function to_seq_keys(m) - {var _eA_=to_seq(m); - function _eB_(_eD_){return _eD_[1]} - return function(_eC_){return map(_eB_,_eA_,_eC_)}} - function to_seq_values(m) {var _ew_=to_seq(m); - function _ex_(_ez_){return _ez_[2]} + function _ex_(_ez_){return _ez_[1]} return function(_ey_){return map(_ex_,_ew_,_ey_)}} + function to_seq_values(m) + {var _es_=to_seq(m); + function _et_(_ev_){return _ev_[2]} + return function(_eu_){return map(_et_,_es_,_eu_)}} function add_seq(tbl,i) {return iter (function(param) @@ -23152,8 +25574,8 @@ replace_seq=include[21], clean=include[23], stats_alive=include[24], - _ev_=include[1]; - function create(sz){return caml_call2(_ev_,_cy_,sz)} + _er_=include[1]; + function create(sz){return caml_call2(_er_,_cy_,sz)} function of_seq(i) {var tbl=create(16);caml_call2(replace_seq,tbl,i);return tbl} return [0, @@ -23212,20 +25634,19 @@ {var k2=param[2], k1=param[1], - _eu_=caml_call2(H2[2],seed,k2) * 65599 | 0; - return caml_call2(H1[2],seed,k1) + _eu_ | 0} + _eq_=caml_call2(H2[2],seed,k2) * 65599 | 0; + return caml_call2(H1[2],seed,k1) + _eq_ | 0} function equal(c,param) {var k2=param[2],k1=param[1],match=get_key1(c),match$0=get_key2(c); - if(match) - if(match$0) - {var k2$0=match$0[1],k1$0=match[1]; - if(caml_call2(H1[1],k1,k1$0))if(caml_call2(H2[1],k2,k2$0))return 0; - return 1} + if(match && match$0) + {var k2$0=match$0[1],k1$0=match[1]; + if(caml_call2(H1[1],k1,k1$0) && caml_call2(H2[1],k2,k2$0))return 0; + return 1} return 2} function get_key(c) {var match=get_key1(c),match$0=get_key2(c); - if(match) - if(match$0){var k2=match$0[1],k1=match[1];return [0,[0,k1,k2]]} + if(match && match$0) + {var k2=match$0[1],k1=match[1];return [0,[0,k1,k2]]} return 0} function set_key_data(c,param,d) {var k2=param[2],k1=param[1]; @@ -23234,16 +25655,16 @@ set_key2(c,k2); return set_data$0(c,d)} function check_key(c) - {var _et_=check_key1(c);return _et_?check_key2(c):_et_} + {var _ep_=check_key1(c);return _ep_?check_key2(c):_ep_} return MakeSeeded$0 ([0,create,hash,equal,get_data$2,get_key,set_key_data,check_key])} function Make$2(H1,H2) {var equal=H2[1]; function hash(seed,x){return caml_call1(H2[2],x)} - var equal$0=H1[1],_er_=[0,equal,hash]; + var equal$0=H1[1],_en_=[0,equal,hash]; function hash$0(seed,x){return caml_call1(H1[2],x)} var - include=MakeSeeded$2([0,equal$0,hash$0],_er_), + include=MakeSeeded$2([0,equal$0,hash$0],_en_), clear=include[2], reset=include[3], copy=include[4], @@ -23266,8 +25687,8 @@ replace_seq=include[21], clean=include[23], stats_alive=include[24], - _es_=include[1]; - function create(sz){return caml_call2(_es_,_cz_,sz)} + _eo_=include[1]; + function create(sz){return caml_call2(_eo_,_cz_,sz)} function of_seq(i) {var tbl=create(16);caml_call2(replace_seq,tbl,i);return tbl} return [0, @@ -23314,24 +25735,24 @@ {function create(k,d) {var c=create$7(k.length - 1); set_data$1(c,d); - var _ep_=k.length - 1 - 1 | 0,_eo_=0; - if(! (_ep_ < 0)) - {var i=_eo_; + var _el_=k.length - 1 - 1 | 0,_ek_=0; + if(! (_el_ < 0)) + {var i=_ek_; for(;;) {set_key$1(c,i,caml_check_bound(k,i)[1 + i]); - var _eq_=i + 1 | 0; - if(_ep_ !== i){var i=_eq_;continue} + var _em_=i + 1 | 0; + if(_el_ !== i){var i=_em_;continue} break}} return c} function hash(seed,k) - {var h=[0,0],_ek_=k.length - 1 - 1 | 0,_ej_=0; - if(! (_ek_ < 0)) - {var i=_ej_; + {var h=[0,0],_eg_=k.length - 1 - 1 | 0,_ef_=0; + if(! (_eg_ < 0)) + {var i=_ef_; for(;;) - {var _el_=h[1],_em_=caml_check_bound(k,i)[1 + i]; - h[1] = (caml_call2(H[2],seed,_em_) * 65599 | 0) + _el_ | 0; - var _en_=i + 1 | 0; - if(_ek_ !== i){var i=_en_;continue} + {var _eh_=h[1],_ei_=caml_check_bound(k,i)[1 + i]; + h[1] = (caml_call2(H[2],seed,_ei_) * 65599 | 0) + _eh_ | 0; + var _ej_=i + 1 | 0; + if(_eg_ !== i){var i=_ej_;continue} break}} return h[1]} function equal(c,k) @@ -23342,8 +25763,8 @@ {if(0 <= i) {var match=get_key$1(c,i); if(match) - {var ki=match[1],_ei_=caml_check_bound(k,i)[1 + i]; - if(caml_call2(H[1],_ei_,ki)){var i$0=i - 1 | 0,i=i$0;continue} + {var ki=match[1],_ee_=caml_check_bound(k,i)[1 + i]; + if(caml_call2(H[1],_ee_,ki)){var i$0=i - 1 | 0,i=i$0;continue} return 1} return 2} return 0}} @@ -23366,26 +25787,26 @@ return 0} function set_key_data(c,k,d) {unset_data$1(c); - var _eg_=k.length - 1 - 1 | 0,_ef_=0; - if(! (_eg_ < 0)) - {var i=_ef_; + var _ec_=k.length - 1 - 1 | 0,_eb_=0; + if(! (_ec_ < 0)) + {var i=_eb_; for(;;) {set_key$1(c,i,caml_check_bound(k,i)[1 + i]); - var _eh_=i + 1 | 0; - if(_eg_ !== i){var i=_eh_;continue} + var _ed_=i + 1 | 0; + if(_ec_ !== i){var i=_ed_;continue} break}} return set_data$1(c,d)} function check_key(c) {var i$1=length$6(c) - 1 | 0,i=i$1; for(;;) - {var _ec_=i < 0?1:0; - if(_ec_) - var _ed_=_ec_; + {var _d__=i < 0?1:0; + if(_d__) + var _d$_=_d__; else - {var _ee_=check_key$1(c,i); - if(_ee_){var i$0=i - 1 | 0,i=i$0;continue} - var _ed_=_ee_} - return _ed_}} + {var _ea_=check_key$1(c,i); + if(_ea_){var i$0=i - 1 | 0,i=i$0;continue} + var _d$_=_ea_} + return _d$_}} return MakeSeeded$0 ([0,create,hash,equal,get_data$3,get_key,set_key_data,check_key])} function Make$3(H) @@ -23415,8 +25836,8 @@ replace_seq=include[21], clean=include[23], stats_alive=include[24], - _eb_=include[1]; - function create(sz){return caml_call2(_eb_,_cA_,sz)} + _d9_=include[1]; + function create(sz){return caml_call2(_d9_,_cA_,sz)} function of_seq(i) {var tbl=create(16);caml_call2(replace_seq,tbl,i);return tbl} return [0, @@ -23503,9 +25924,9 @@ Make$3, MakeSeeded$3], [0, - function(_ea_) + function(_d8_) {return MakeSeeded$0 - ([0,_ea_[3],_ea_[1],_ea_[2],_ea_[5],_ea_[4],_ea_[6],_ea_[7]])}]]; + ([0,_d8_[3],_d8_[1],_d8_[2],_d8_[5],_d8_[4],_d8_[6],_d8_[7]])}]]; caml_register_global(769,Stdlib_ephemeron,"Stdlib__ephemeron"); function generic_basename(is_dir_sep,current_dir_name,name) {if(caml_string_equal(name,cst$98))return current_dir_name; @@ -23546,37 +25967,37 @@ function is_dir_sep(s,i){return 47 === caml_string_get(s,i)?1:0} function is_relative(n) {var - _d__=caml_ml_string_length(n) < 1?1:0, - _d$_=_d__ || (47 !== caml_string_get(n,0)?1:0); - return _d$_} + _d6_=caml_ml_string_length(n) < 1?1:0, + _d7_=_d6_ || (47 !== caml_string_get(n,0)?1:0); + return _d7_} function is_implicit(n) - {var _d5_=is_relative(n); - if(_d5_) + {var _d1_=is_relative(n); + if(_d1_) {var - _d6_=caml_ml_string_length(n) < 2?1:0, - _d7_=_d6_ || caml_string_notequal(sub$0(n,0,2),cst$101); - if(_d7_) + _d2_=caml_ml_string_length(n) < 2?1:0, + _d3_=_d2_ || caml_string_notequal(sub$0(n,0,2),cst$101); + if(_d3_) var - _d8_=caml_ml_string_length(n) < 3?1:0, - _d9_=_d8_ || caml_string_notequal(sub$0(n,0,3),cst$100); + _d4_=caml_ml_string_length(n) < 3?1:0, + _d5_=_d4_ || caml_string_notequal(sub$0(n,0,3),cst$100); else - var _d9_=_d7_} + var _d5_=_d3_} else - var _d9_=_d5_; - return _d9_} + var _d5_=_d1_; + return _d5_} function check_suffix(name,suff) {var - _d3_=caml_ml_string_length(suff) <= caml_ml_string_length(name)?1:0, - _d4_= - _d3_ + _dZ_=caml_ml_string_length(suff) <= caml_ml_string_length(name)?1:0, + _d0_= + _dZ_ ?caml_string_equal (sub$0 (name, caml_ml_string_length(name) - caml_ml_string_length(suff) | 0, caml_ml_string_length(suff)), suff) - :_d3_; - return _d4_} + :_dZ_; + return _d0_} function chop_suffix_opt(suffix,filename) {var len_s=caml_ml_string_length(suffix), @@ -23589,95 +26010,95 @@ return 0} try {var _cI_=caml_sys_getenv(cst_TMPDIR),_cB_=_cI_} - catch(_d2_) - {_d2_ = caml_wrap_exception(_d2_); - if(_d2_ !== Not_found)throw _d2_; + catch(_dY_) + {_dY_ = caml_wrap_exception(_dY_); + if(_dY_ !== Not_found)throw _dY_; var _cB_=cst_tmp} function quote(s) {var l=caml_ml_string_length(s),b=create$2(l + 20 | 0); add_char(b,39); - var _d0_=l - 1 | 0,_dZ_=0; - if(! (_d0_ < 0)) - {var i=_dZ_; + var _dW_=l - 1 | 0,_dV_=0; + if(! (_dW_ < 0)) + {var i=_dV_; for(;;) {if(39 === caml_string_get(s,i)) add_string(b,quotequote); else add_char(b,caml_string_get(s,i)); - var _d1_=i + 1 | 0; - if(_d0_ !== i){var i=_d1_;continue} + var _dX_=i + 1 | 0; + if(_dW_ !== i){var i=_dX_;continue} break}} add_char(b,39); return contents(b)} - function basename(_dY_) - {return generic_basename(is_dir_sep,current_dir_name,_dY_)} - function dirname(_dX_) - {return generic_dirname(is_dir_sep,current_dir_name,_dX_)} + function basename(_dU_) + {return generic_basename(is_dir_sep,current_dir_name,_dU_)} + function dirname(_dT_) + {return generic_dirname(is_dir_sep,current_dir_name,_dT_)} function is_dir_sep$0(s,i) - {var c=caml_string_get(s,i),_dU_=47 === c?1:0; - if(_dU_) - var _dV_=_dU_; + {var c=caml_string_get(s,i),_dQ_=47 === c?1:0; + if(_dQ_) + var _dR_=_dQ_; else - var _dW_=92 === c?1:0,_dV_=_dW_ || (58 === c?1:0); - return _dV_} + var _dS_=92 === c?1:0,_dR_=_dS_ || (58 === c?1:0); + return _dR_} function is_relative$0(n) {var - _dO_=caml_ml_string_length(n) < 1?1:0, - _dP_=_dO_ || (47 !== caml_string_get(n,0)?1:0); - if(_dP_) + _dK_=caml_ml_string_length(n) < 1?1:0, + _dL_=_dK_ || (47 !== caml_string_get(n,0)?1:0); + if(_dL_) {var - _dQ_=caml_ml_string_length(n) < 1?1:0, - _dR_=_dQ_ || (92 !== caml_string_get(n,0)?1:0); - if(_dR_) + _dM_=caml_ml_string_length(n) < 1?1:0, + _dN_=_dM_ || (92 !== caml_string_get(n,0)?1:0); + if(_dN_) var - _dS_=caml_ml_string_length(n) < 2?1:0, - _dT_=_dS_ || (58 !== caml_string_get(n,1)?1:0); + _dO_=caml_ml_string_length(n) < 2?1:0, + _dP_=_dO_ || (58 !== caml_string_get(n,1)?1:0); else - var _dT_=_dR_} + var _dP_=_dN_} else - var _dT_=_dP_; - return _dT_} + var _dP_=_dL_; + return _dP_} function is_implicit$0(n) - {var _dF_=is_relative$0(n); - if(_dF_) + {var _dB_=is_relative$0(n); + if(_dB_) {var - _dG_=caml_ml_string_length(n) < 2?1:0, - _dH_=_dG_ || caml_string_notequal(sub$0(n,0,2),cst$105); - if(_dH_) + _dC_=caml_ml_string_length(n) < 2?1:0, + _dD_=_dC_ || caml_string_notequal(sub$0(n,0,2),cst$105); + if(_dD_) {var - _dI_=caml_ml_string_length(n) < 2?1:0, - _dJ_=_dI_ || caml_string_notequal(sub$0(n,0,2),cst$104); - if(_dJ_) + _dE_=caml_ml_string_length(n) < 2?1:0, + _dF_=_dE_ || caml_string_notequal(sub$0(n,0,2),cst$104); + if(_dF_) {var - _dK_=caml_ml_string_length(n) < 3?1:0, - _dL_=_dK_ || caml_string_notequal(sub$0(n,0,3),cst$103); - if(_dL_) + _dG_=caml_ml_string_length(n) < 3?1:0, + _dH_=_dG_ || caml_string_notequal(sub$0(n,0,3),cst$103); + if(_dH_) var - _dM_=caml_ml_string_length(n) < 3?1:0, - _dN_=_dM_ || caml_string_notequal(sub$0(n,0,3),cst$102); + _dI_=caml_ml_string_length(n) < 3?1:0, + _dJ_=_dI_ || caml_string_notequal(sub$0(n,0,3),cst$102); else - var _dN_=_dL_} + var _dJ_=_dH_} else - var _dN_=_dJ_} + var _dJ_=_dF_} else - var _dN_=_dH_} + var _dJ_=_dD_} else - var _dN_=_dF_; - return _dN_} + var _dJ_=_dB_; + return _dJ_} function check_suffix$0(name,suff) - {var _dC_=caml_ml_string_length(suff) <= caml_ml_string_length(name)?1:0; - if(_dC_) + {var _dy_=caml_ml_string_length(suff) <= caml_ml_string_length(name)?1:0; + if(_dy_) var s= sub$0 (name, caml_ml_string_length(name) - caml_ml_string_length(suff) | 0, caml_ml_string_length(suff)), - _dD_=lowercase_ascii$1(suff), - _dE_=caml_string_equal(lowercase_ascii$1(s),_dD_); + _dz_=lowercase_ascii$1(suff), + _dA_=caml_string_equal(lowercase_ascii$1(s),_dz_); else - var _dE_=_dC_; - return _dE_} + var _dA_=_dy_; + return _dA_} function chop_suffix_opt$0(suffix,filename) {var len_s=caml_ml_string_length(suffix), @@ -23685,28 +26106,28 @@ if(len_s <= len_f) {var r=sub$0(filename,len_f - len_s | 0,len_s), - _dB_=lowercase_ascii$1(suffix); - return caml_string_equal(lowercase_ascii$1(r),_dB_) + _dx_=lowercase_ascii$1(suffix); + return caml_string_equal(lowercase_ascii$1(r),_dx_) ?[0,sub$0(filename,0,len_f - len_s | 0)] :0} return 0} try {var _cH_=caml_sys_getenv(cst_TEMP),temp_dir_name=_cH_} - catch(_dA_) - {_dA_ = caml_wrap_exception(_dA_); - if(_dA_ !== Not_found)throw _dA_; + catch(_dw_) + {_dw_ = caml_wrap_exception(_dw_); + if(_dw_ !== Not_found)throw _dw_; var temp_dir_name=cst$106} function quote$0(s) {var l=caml_ml_string_length(s),b=create$2(l + 20 | 0); add_char(b,34); function add_bs(n) - {var _dy_=1; + {var _du_=1; if(! (n < 1)) - {var j=_dy_; + {var j=_du_; for(;;) {add_char(b,92); - var _dz_=j + 1 | 0; - if(n !== j){var j=_dz_;continue} + var _dv_=j + 1 | 0; + if(n !== j){var j=_dv_;continue} break}} return 0} function loop$0(counter,i) @@ -23715,17 +26136,17 @@ {if(i$0 === l)return add_char(b,34); var c=caml_string_get(s,i$0); if(34 === c) - {var _dw_=0; + {var _ds_=0; if(counter < 50) {var counter$1=counter + 1 | 0; - return loop_bs(counter$1,_dw_,i$0)} - return caml_trampoline_return(loop_bs,[0,_dw_,i$0])} + return loop_bs(counter$1,_ds_,i$0)} + return caml_trampoline_return(loop_bs,[0,_ds_,i$0])} if(92 === c) - {var _dx_=0; + {var _dt_=0; if(counter < 50) {var counter$0=counter + 1 | 0; - return loop_bs(counter$0,_dx_,i$0)} - return caml_trampoline_return(loop_bs,[0,_dx_,i$0])} + return loop_bs(counter$0,_dt_,i$0)} + return caml_trampoline_return(loop_bs,[0,_dt_,i$0])} add_char(b,c); var i$1=i$0 + 1 | 0,i$0=i$1; continue}} @@ -23737,10 +26158,10 @@ if(34 === match) {add_bs((2 * n$0 | 0) + 1 | 0); add_char(b,34); - var _dv_=i$0 + 1 | 0; + var _dr_=i$0 + 1 | 0; if(counter < 50) - {var counter$1=counter + 1 | 0;return loop$0(counter$1,_dv_)} - return caml_trampoline_return(loop$0,[0,_dv_])} + {var counter$1=counter + 1 | 0;return loop$0(counter$1,_dr_)} + return caml_trampoline_return(loop$0,[0,_dr_])} if(92 === match) {var i$1=i$0 + 1 | 0,n$1=n$0 + 1 | 0,n$0=n$1,i$0=i$1;continue} add_bs(n$0); @@ -23751,18 +26172,19 @@ loop(0); return contents(b)} function drive_and_path(s) - {var _dr_=2 <= caml_ml_string_length(s)?1:0; - if(_dr_) - var - param=caml_string_get(s,0), - switch$0=91 <= param?25 < (param - 97 | 0) >>> 0?0:1:65 <= param?1:0, - _ds_=switch$0?1:0, - _dt_=_ds_?58 === caml_string_get(s,1)?1:0:_ds_; + {var _dn_=2 <= caml_ml_string_length(s)?1:0; + if(_dn_) + {var param=caml_string_get(s,0),switch$0=0; + if(91 <= param) + {if(! (25 < (param - 97 | 0) >>> 0))switch$0 = 1} + else + if(65 <= param)switch$0 = 1; + var _do_=switch$0?1:0,_dp_=_do_?58 === caml_string_get(s,1)?1:0:_do_} else - var _dt_=_dr_; - if(_dt_) - {var _du_=sub$0(s,2,caml_ml_string_length(s) - 2 | 0); - return [0,sub$0(s,0,2),_du_]} + var _dp_=_dn_; + if(_dp_) + {var _dq_=sub$0(s,2,caml_ml_string_length(s) - 2 | 0); + return [0,sub$0(s,0,2),_dq_]} return [0,cst$107,s]} function dirname$0(s) {var @@ -23774,26 +26196,27 @@ function basename$0(s) {var match=drive_and_path(s),path=match[2]; return generic_basename(is_dir_sep$0,current_dir_name$0,path)} - function basename$1(_dq_) - {return generic_basename(is_dir_sep$0,current_dir_name$1,_dq_)} - function dirname$1(_dp_) - {return generic_dirname(is_dir_sep$0,current_dir_name$1,_dp_)} + function basename$1(_dm_) + {return generic_basename(is_dir_sep$0,current_dir_name$1,_dm_)} + function dirname$1(_dl_) + {return generic_dirname(is_dir_sep$0,current_dir_name$1,_dl_)} + var switch$0=0; if(caml_string_notequal(os_type,cst_Cygwin)) if(caml_string_notequal(os_type,cst_Win32)) - var - current_dir_name$2=current_dir_name, - parent_dir_name$2=parent_dir_name, - dir_sep$2=dir_sep, - is_dir_sep$1=is_dir_sep, - is_relative$1=is_relative, - is_implicit$1=is_implicit, - check_suffix$1=check_suffix, - chop_suffix_opt$1=chop_suffix_opt, - temp_dir_name$0=_cB_, - quote$1=quote, - basename$2=basename, - dirname$2=dirname, - switch$0=1; + {var + current_dir_name$2=current_dir_name, + parent_dir_name$2=parent_dir_name, + dir_sep$2=dir_sep, + is_dir_sep$1=is_dir_sep, + is_relative$1=is_relative, + is_implicit$1=is_implicit, + check_suffix$1=check_suffix, + chop_suffix_opt$1=chop_suffix_opt, + temp_dir_name$0=_cB_, + quote$1=quote, + basename$2=basename, + dirname$2=dirname; + switch$0 = 1} else var _cG_= @@ -23809,8 +26232,7 @@ temp_dir_name, quote$0, basename$0, - dirname$0], - switch$0=0; + dirname$0]; else var _cG_= @@ -23826,8 +26248,7 @@ _cB_, quote, basename$1, - dirname$1], - switch$0=0; + dirname$1]; if(! switch$0) var current_dir_name$2=_cG_[1], @@ -23844,9 +26265,8 @@ dirname$2=_cG_[12]; function concat$3(dirname,filename) {var l=caml_ml_string_length(dirname); - if(0 !== l) - if(! is_dir_sep$1(dirname,l - 1 | 0)) - return symbol(dirname,symbol(dir_sep$2,filename)); + if(0 !== l && ! is_dir_sep$1(dirname,l - 1 | 0)) + return symbol(dirname,symbol(dir_sep$2,filename)); return symbol(dirname,filename)} function chop_suffix(name,suff) {var n=caml_ml_string_length(name) - caml_ml_string_length(suff) | 0; @@ -23854,19 +26274,17 @@ function extension_len(name) {var i$4=caml_ml_string_length(name) - 1 | 0,i$1=i$4; for(;;) - {if(0 <= i$1) - if(! is_dir_sep$1(name,i$1)) - {if(46 === caml_string_get(name,i$1)) - {var i$2=i$1 - 1 | 0,i=i$2; - for(;;) - {if(0 <= i) - if(! is_dir_sep$1(name,i)) - {if(46 === caml_string_get(name,i)) - {var i$0=i - 1 | 0,i=i$0;continue} - return caml_ml_string_length(name) - i$1 | 0} - return 0}} - var i$3=i$1 - 1 | 0,i$1=i$3; - continue} + {if(0 <= i$1 && ! is_dir_sep$1(name,i$1)) + {if(46 === caml_string_get(name,i$1)) + {var i$2=i$1 - 1 | 0,i=i$2; + for(;;) + {if(0 <= i && ! is_dir_sep$1(name,i)) + {if(46 === caml_string_get(name,i)) + {var i$0=i - 1 | 0,i=i$0;continue} + return caml_ml_string_length(name) - i$1 | 0} + return 0}} + var i$3=i$1 - 1 | 0,i$1=i$3; + continue} return 0}} function extension(name) {var l=extension_len(name); @@ -23879,13 +26297,13 @@ function remove_extension(name) {var l=extension_len(name); return 0 === l?name:sub$0(name,0,caml_ml_string_length(name) - l | 0)} - var prng$0=[246,function(_do_){return caml_call1(_b4_[2],0)}]; + var prng$0=[246,function(_dk_){return caml_call1(_b4_[2],0)}]; function temp_file_name(temp_dir,prefix,suffix) {var - _dm_=caml_obj_tag(prng$0), - _dn_= - 250 === _dm_?prng$0[1]:246 === _dm_?force_lazy_block(prng$0):prng$0, - rnd=caml_call1(_b4_[4],_dn_) & 16777215; + _di_=caml_obj_tag(prng$0), + _dj_= + 250 === _di_?prng$0[1]:246 === _di_?force_lazy_block(prng$0):prng$0, + rnd=caml_call1(_b4_[4],_dj_) & 16777215; return concat$3(temp_dir,caml_call3(sprintf(_cC_),prefix,rnd,suffix))} var current_temp_dir_name=[0,temp_dir_name$0]; function set_temp_dir_name(s){current_temp_dir_name[1] = s;return 0} @@ -23909,11 +26327,11 @@ continue} throw e}}} return try_name(0)} - function open_temp_file(opt,_dk_,_dj_,prefix,suffix) + function open_temp_file(opt,_dg_,_df_,prefix,suffix) {if(opt)var sth=opt[1],mode=sth;else var mode=_cE_; - if(_dk_)var sth$0=_dk_[1],perms=sth$0;else var perms=384; - if(_dj_) - var sth$1=_dj_[1],temp_dir=sth$1; + if(_dg_)var sth$0=_dg_[1],perms=sth$0;else var perms=384; + if(_df_) + var sth$1=_df_[1],temp_dir=sth$1; else var temp_dir=current_temp_dir_name[1]; function try_name(counter) @@ -23921,8 +26339,8 @@ for(;;) {var name=temp_file_name(temp_dir,prefix,suffix); try - {var _dl_=[0,name,open_out_gen([0,1,[0,3,[0,5,mode]]],perms,name)]; - return _dl_} + {var _dh_=[0,name,open_out_gen([0,1,[0,3,[0,5,mode]]],perms,name)]; + return _dh_} catch(e) {e = caml_wrap_exception(e); if(e[1] === Sys_error) @@ -23979,7 +26397,7 @@ function arg(x){return Math.atan2(x[2],x[1])} function polar(n,a){return [254,Math.cos(a) * n,Math.sin(a) * n]} function sqrt(x) - {if(x[1] == 0.)if(x[2] == 0.)return _cF_; + {if(x[1] == 0. && x[2] == 0.)return _cF_; var r=Math.abs(x[1]),i=Math.abs(x[2]); if(i <= r) var @@ -23995,7 +26413,7 @@ function exp(x) {var e=Math.exp(x[1]);return [254,e * Math.cos(x[2]),e * Math.sin(x[2])]} function log(x) - {var _di_=Math.atan2(x[2],x[1]);return [254,Math.log(norm(x)),_di_]} + {var _de_=Math.atan2(x[2],x[1]);return [254,Math.log(norm(x)),_de_]} function pow(x,y){return exp(mul(y,log(x)))} var Stdlib_complex= @@ -24242,19 +26660,18 @@ function create$8(path) {if(caml_spacetime_enabled(0)) {var channel=open_out(path),t=[0,channel,0]; - caml_spacetime_only_works_for_native_code(t[1]); + caml_spacetime_only_works_for_(t[1]); return t} return [0,stdout,1]} function save_event(time,t,event_name) {return if_spacetime_enabled (function(param) - {return caml_spacetime_only_works_for_native_code - (time,t[1],event_name)})} + {return caml_spacetime_only_works_for_(time,t[1],event_name)})} function save_and_close(time,t) {return if_spacetime_enabled (function(param) {if(t[2])failwith(cst_Series_is_closed); - caml_spacetime_only_works_for_native_code(time,t[1]); + caml_spacetime_only_works_for_(time,t[1]); close_out(t[1]); t[2] = 1; return 0})} @@ -24265,16 +26682,15 @@ (function(param) {if(closed)failwith(cst_Series_is_closed$0); runtime.caml_gc_minor(0); - return caml_spacetime_only_works_for_native_code - (time,channel)})} + return caml_spacetime_only_works_for_(time,channel)})} var Snapshot=[0,take$0]; - function save_event_for_automatic_snapshots(event_name) + function save_event_for_automatic_snaps(event_name) {return if_spacetime_enabled (function(param) - {return caml_spacetime_only_works_for_native_code(event_name)})} + {return caml_spacetime_only_works_for_(event_name)})} var Stdlib_spacetime= - [0,enabled,Series,Snapshot,save_event_for_automatic_snapshots]; + [0,enabled,Series,Snapshot,save_event_for_automatic_snaps]; caml_register_global(778,Stdlib_spacetime,"Stdlib__spacetime"); var float32=0, @@ -24307,23 +26723,19 @@ default:return 1}} var c_layout=0,fortran_layout=1; function dims(a) - {var n=caml_ba_num_dims(a),d=caml_make_vect(n,0),_df_=n - 1 | 0,_de_=0; - if(! (_df_ < 0)) - {var i=_de_; + {var n=caml_ba_num_dims(a),d=caml_make_vect(n,0),_db_=n - 1 | 0,_da_=0; + if(! (_db_ < 0)) + {var i=_da_; for(;;) - {var _dg_=runtime.caml_ba_dim(a,i); - caml_check_bound(d,i)[1 + i] = _dg_; - var _dh_=i + 1 | 0; - if(_df_ !== i){var i=_dh_;continue} + {var _dc_=runtime.caml_ba_dim(a,i); + caml_check_bound(d,i)[1 + i] = _dc_; + var _dd_=i + 1 | 0; + if(_db_ !== i){var i=_dd_;continue} break}} return d} function size_in_bytes(arr) - {var - _c$_=dims(arr), - _da_=1, - _db_= - fold_left$1(function(_dd_,_dc_){return caml_mul(_dd_,_dc_)},_da_,_c$_); - return caml_mul(kind_size_in_bytes(caml_ba_kind(arr)),_db_)} + {var _c$_=fold_left$1(caml_mul,1,dims(arr)); + return caml_mul(kind_size_in_bytes(caml_ba_kind(arr)),_c$_)} var Genarray=[0,dims,size_in_bytes]; function create$9(kind,layout){return caml_ba_create(kind,layout,[0])} function get$1(arr){return runtime.caml_ba_get_generic(arr,[0])} @@ -24378,7 +26790,7 @@ for(;;) {var row=caml_check_bound(data,i)[1 + i]; if(row.length - 1 !== dim2) - invalid_arg(cst_Bigarray_Array2_of_array_non_rectangular_data); + invalid_arg(cst_Bigarray_Array2_of_array_n); var _c0_=dim2 - 1 | 0,_cZ_=0; if(! (_c0_ < 0)) {var j=_cZ_; @@ -24424,14 +26836,14 @@ for(;;) {var row=caml_check_bound(data,i)[1 + i]; if(row.length - 1 !== dim2) - invalid_arg(cst_Bigarray_Array3_of_array_non_cubic_data); + invalid_arg(cst_Bigarray_Array3_of_array_n); var _cO_=dim2 - 1 | 0,_cN_=0; if(! (_cO_ < 0)) {var j=_cN_; for(;;) {var col=caml_check_bound(row,j)[1 + j]; if(col.length - 1 !== dim3) - invalid_arg(cst_Bigarray_Array3_of_array_non_cubic_data$0); + invalid_arg(cst_Bigarray_Array3_of_array_n$0); var _cR_=dim3 - 1 | 0,_cQ_=0; if(! (_cR_ < 0)) {var k=_cQ_; @@ -24455,19 +26867,19 @@ function array0_of_genarray(a) {return 0 === caml_ba_num_dims(a) ?a - :invalid_arg(cst_Bigarray_array0_of_genarray)} + :invalid_arg(cst_Bigarray_array0_of_genarra)} function array1_of_genarray(a) {return 1 === caml_ba_num_dims(a) ?a - :invalid_arg(cst_Bigarray_array1_of_genarray)} + :invalid_arg(cst_Bigarray_array1_of_genarra)} function array2_of_genarray(a) {return 2 === caml_ba_num_dims(a) ?a - :invalid_arg(cst_Bigarray_array2_of_genarray)} + :invalid_arg(cst_Bigarray_array2_of_genarra)} function array3_of_genarray(a) {return 3 === caml_ba_num_dims(a) ?a - :invalid_arg(cst_Bigarray_array3_of_genarray)} + :invalid_arg(cst_Bigarray_array3_of_genarra)} function reshape_0(a){return caml_ba_reshape(a,[0])} function reshape_1(a,dim1){return caml_ba_reshape(a,[0,dim1])} function reshape_2(a,dim1,dim2){return caml_ba_reshape(a,[0,dim1,dim2])} @@ -24525,6 +26937,15 @@ (function(){return this}())); +//# 1 "../../.js/zarith_stubs_js/zarith_stubs_js.cma.js" +(function(joo_global_object) + {"use strict"; + var runtime=joo_global_object.jsoo_runtime,Zarith_stubs_js=[0]; + runtime.caml_register_global(0,Zarith_stubs_js,"Zarith_stubs_js"); + return} + (function(){return this}())); + + //# 1 "../../.js/js_of_ocaml/js_of_ocaml.cma.js" (function(joo_global_object) {"use strict"; @@ -24534,22 +26955,21 @@ caml_fresh_oo_id=runtime.caml_fresh_oo_id, caml_int_of_string=runtime.caml_int_of_string, caml_js_from_array=runtime.caml_js_from_array, - caml_js_from_string=runtime.caml_js_from_string, caml_js_get=runtime.caml_js_get, caml_js_html_escape=runtime.caml_js_html_escape, caml_js_set=runtime.caml_js_set, - caml_js_to_byte_string=runtime.caml_js_to_byte_string, - caml_js_to_string=runtime.caml_js_to_string, caml_js_wrap_callback=runtime.caml_js_wrap_callback, caml_js_wrap_meth_callback=runtime.caml_js_wrap_meth_callback, caml_jsbytes_of_string=runtime.caml_jsbytes_of_string, + caml_jsstring_of_string=runtime.caml_jsstring_of_string, caml_list_of_js_array=runtime.caml_list_of_js_array, caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, caml_register_global=runtime.caml_register_global, caml_string_compare=runtime.caml_string_compare, caml_string_notequal=runtime.caml_string_notequal, caml_string_of_array=runtime.caml_string_of_array, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_string_of_jsstring=runtime.caml_string_of_jsstring, caml_wrap_exception=runtime.caml_wrap_exception; function caml_call1(f,a0) {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} @@ -24567,1014 +26987,1024 @@ :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} var global_data=runtime.caml_get_global_data(), - cst_parseFloat=caml_new_string("parseFloat"), - cst_parseInt=caml_new_string("parseInt"), - cst_Js_of_ocaml_Js_Error=caml_new_string("Js_of_ocaml__Js.Error"), - cst_jsError=caml_new_string("jsError"), - cst_can_t_retrieve_file_name_not_implemented= - caml_new_string("can't retrieve file name: not implemented"), - cst_endings=caml_new_string("endings"), - cst_type=caml_new_string("type"), - cst_loadstart=caml_new_string("loadstart"), - cst_progress=caml_new_string("progress"), - cst_abort=caml_new_string("abort"), - cst_error=caml_new_string("error"), - cst_load=caml_new_string("load"), - cst_loadend=caml_new_string("loadend"), - cst_a$1=caml_new_string("a"), - cst_area$1=caml_new_string("area"), - cst_audio$1=caml_new_string("audio"), - cst_base$1=caml_new_string("base"), - cst_blockquote$1=caml_new_string("blockquote"), - cst_body$1=caml_new_string("body"), - cst_br$1=caml_new_string("br"), - cst_button$1=caml_new_string("button"), - cst_canvas$1=caml_new_string("canvas"), - cst_caption$1=caml_new_string("caption"), - cst_col$1=caml_new_string("col"), - cst_colgroup$1=caml_new_string("colgroup"), - cst_del$1=caml_new_string("del"), - cst_div$1=caml_new_string("div"), - cst_dl$1=caml_new_string("dl"), - cst_embed$1=caml_new_string("embed"), - cst_fieldset$1=caml_new_string("fieldset"), - cst_form$1=caml_new_string("form"), - cst_frame$1=caml_new_string("frame"), - cst_frameset$1=caml_new_string("frameset"), - cst_h1$1=caml_new_string("h1"), - cst_h2$1=caml_new_string("h2"), - cst_h3$1=caml_new_string("h3"), - cst_h4$1=caml_new_string("h4"), - cst_h5$1=caml_new_string("h5"), - cst_h6$1=caml_new_string("h6"), - cst_head$1=caml_new_string("head"), - cst_hr$1=caml_new_string("hr"), - cst_html$1=caml_new_string("html"), - cst_iframe$1=caml_new_string("iframe"), - cst_img$1=caml_new_string("img"), - cst_input$2=caml_new_string("input"), - cst_ins$1=caml_new_string("ins"), - cst_label$1=caml_new_string("label"), - cst_legend$1=caml_new_string("legend"), - cst_li$1=caml_new_string("li"), - cst_link$1=caml_new_string("link"), - cst_map$1=caml_new_string("map"), - cst_meta$1=caml_new_string("meta"), - cst_object$1=caml_new_string("object"), - cst_ol$1=caml_new_string("ol"), - cst_optgroup$1=caml_new_string("optgroup"), - cst_option$1=caml_new_string("option"), - cst_p$1=caml_new_string("p"), - cst_param$1=caml_new_string("param"), - cst_pre$1=caml_new_string("pre"), - cst_q$1=caml_new_string("q"), - cst_script$1=caml_new_string("script"), - cst_select$2=caml_new_string("select"), - cst_style$1=caml_new_string("style"), - cst_table$1=caml_new_string("table"), - cst_tbody$1=caml_new_string("tbody"), - cst_td$1=caml_new_string("td"), - cst_textarea$1=caml_new_string("textarea"), - cst_tfoot$1=caml_new_string("tfoot"), - cst_th$1=caml_new_string("th"), - cst_thead$1=caml_new_string("thead"), - cst_title$1=caml_new_string("title"), - cst_tr$1=caml_new_string("tr"), - cst_ul$1=caml_new_string("ul"), - cst_video$1=caml_new_string("video"), - cst_KeyH=caml_new_string("KeyH"), - cst_Digit6=caml_new_string("Digit6"), - cst_BrowserRefresh=caml_new_string("BrowserRefresh"), - cst_Backslash=caml_new_string("Backslash"), - cst_AltLeft=caml_new_string("AltLeft"), - cst_AltRight=caml_new_string("AltRight"), - cst_ArrowDown=caml_new_string("ArrowDown"), - cst_ArrowLeft=caml_new_string("ArrowLeft"), - cst_ArrowRight=caml_new_string("ArrowRight"), - cst_ArrowUp=caml_new_string("ArrowUp"), - cst_Backquote=caml_new_string("Backquote"), - cst_Backspace=caml_new_string("Backspace"), - cst_BracketLeft=caml_new_string("BracketLeft"), - cst_BracketRight=caml_new_string("BracketRight"), - cst_BrowserBack=caml_new_string("BrowserBack"), - cst_BrowserFavorites=caml_new_string("BrowserFavorites"), - cst_BrowserForward=caml_new_string("BrowserForward"), - cst_BrowserHome=caml_new_string("BrowserHome"), - cst_Delete=caml_new_string("Delete"), - cst_BrowserSearch=caml_new_string("BrowserSearch"), - cst_BrowserStop=caml_new_string("BrowserStop"), - cst_CapsLock=caml_new_string("CapsLock"), - cst_Comma=caml_new_string("Comma"), - cst_ContextMenu=caml_new_string("ContextMenu"), - cst_ControlLeft=caml_new_string("ControlLeft"), - cst_ControlRight=caml_new_string("ControlRight"), - cst_Digit0=caml_new_string("Digit0"), - cst_Digit1=caml_new_string("Digit1"), - cst_Digit2=caml_new_string("Digit2"), - cst_Digit3=caml_new_string("Digit3"), - cst_Digit4=caml_new_string("Digit4"), - cst_Digit5=caml_new_string("Digit5"), - cst_F6=caml_new_string("F6"), - cst_F1=caml_new_string("F1"), - cst_Digit7=caml_new_string("Digit7"), - cst_Digit8=caml_new_string("Digit8"), - cst_Digit9=caml_new_string("Digit9"), - cst_End=caml_new_string("End"), - cst_Enter=caml_new_string("Enter"), - cst_Equal=caml_new_string("Equal"), - cst_Escape=caml_new_string("Escape"), - cst_F10=caml_new_string("F10"), - cst_F11=caml_new_string("F11"), - cst_F12=caml_new_string("F12"), - cst_F2=caml_new_string("F2"), - cst_F3=caml_new_string("F3"), - cst_F4=caml_new_string("F4"), - cst_F5=caml_new_string("F5"), - cst_KeyA=caml_new_string("KeyA"), - cst_F7=caml_new_string("F7"), - cst_F8=caml_new_string("F8"), - cst_F9=caml_new_string("F9"), - cst_Home=caml_new_string("Home"), - cst_Insert=caml_new_string("Insert"), - cst_IntlBackslash=caml_new_string("IntlBackslash"), - cst_IntlYen=caml_new_string("IntlYen"), - cst_KeyB=caml_new_string("KeyB"), - cst_KeyC=caml_new_string("KeyC"), - cst_KeyD=caml_new_string("KeyD"), - cst_KeyE=caml_new_string("KeyE"), - cst_KeyF=caml_new_string("KeyF"), - cst_KeyG=caml_new_string("KeyG"), - cst_Numpad4=caml_new_string("Numpad4"), - cst_KeyX=caml_new_string("KeyX"), - cst_KeyP=caml_new_string("KeyP"), - cst_KeyI=caml_new_string("KeyI"), - cst_KeyJ=caml_new_string("KeyJ"), - cst_KeyK=caml_new_string("KeyK"), - cst_KeyL=caml_new_string("KeyL"), - cst_KeyM=caml_new_string("KeyM"), - cst_KeyN=caml_new_string("KeyN"), - cst_KeyO=caml_new_string("KeyO"), - cst_KeyQ=caml_new_string("KeyQ"), - cst_KeyR=caml_new_string("KeyR"), - cst_KeyS=caml_new_string("KeyS"), - cst_KeyT=caml_new_string("KeyT"), - cst_KeyU=caml_new_string("KeyU"), - cst_KeyV=caml_new_string("KeyV"), - cst_KeyW=caml_new_string("KeyW"), - cst_MetaRight=caml_new_string("MetaRight"), - cst_KeyY=caml_new_string("KeyY"), - cst_KeyZ=caml_new_string("KeyZ"), - cst_MediaPlayPause=caml_new_string("MediaPlayPause"), - cst_MediaStop=caml_new_string("MediaStop"), - cst_MediaTrackNext=caml_new_string("MediaTrackNext"), - cst_MediaTrackPrevious=caml_new_string("MediaTrackPrevious"), - cst_MetaLeft=caml_new_string("MetaLeft"), - cst_Minus=caml_new_string("Minus"), - cst_NumLock=caml_new_string("NumLock"), - cst_Numpad0=caml_new_string("Numpad0"), - cst_Numpad1=caml_new_string("Numpad1"), - cst_Numpad2=caml_new_string("Numpad2"), - cst_Numpad3=caml_new_string("Numpad3"), - cst_PageUp=caml_new_string("PageUp"), - cst_NumpadDivide=caml_new_string("NumpadDivide"), - cst_Numpad5=caml_new_string("Numpad5"), - cst_Numpad6=caml_new_string("Numpad6"), - cst_Numpad7=caml_new_string("Numpad7"), - cst_Numpad8=caml_new_string("Numpad8"), - cst_Numpad9=caml_new_string("Numpad9"), - cst_NumpadAdd=caml_new_string("NumpadAdd"), - cst_NumpadDecimal=caml_new_string("NumpadDecimal"), - cst_NumpadEnter=caml_new_string("NumpadEnter"), - cst_NumpadEqual=caml_new_string("NumpadEqual"), - cst_NumpadMultiply=caml_new_string("NumpadMultiply"), - cst_NumpadSubtract=caml_new_string("NumpadSubtract"), - cst_OSLeft=caml_new_string("OSLeft"), - cst_OSRight=caml_new_string("OSRight"), - cst_PageDown=caml_new_string("PageDown"), - cst_ShiftRight=caml_new_string("ShiftRight"), - cst_Pause=caml_new_string("Pause"), - cst_Period=caml_new_string("Period"), - cst_PrintScreen=caml_new_string("PrintScreen"), - cst_Quote=caml_new_string("Quote"), - cst_ScrollLock=caml_new_string("ScrollLock"), - cst_Semicolon=caml_new_string("Semicolon"), - cst_ShiftLeft=caml_new_string("ShiftLeft"), - cst_Slash=caml_new_string("Slash"), - cst_Space=caml_new_string("Space"), - cst_Tab=caml_new_string("Tab"), - cst_VolumeDown=caml_new_string("VolumeDown"), - cst_VolumeMute=caml_new_string("VolumeMute"), - cst_VolumeUp=caml_new_string("VolumeUp"), - cst_mouseout$0=caml_new_string("mouseout"), - cst_mouseover$0=caml_new_string("mouseover"), - cst_video$0=caml_new_string("video"), - cst_audio$0=caml_new_string("audio"), - cst_ul$0=caml_new_string("ul"), - cst_tr$0=caml_new_string("tr"), - cst_title$0=caml_new_string("title"), - cst_thead$0=caml_new_string("thead"), - cst_th$0=caml_new_string("th"), - cst_tfoot$0=caml_new_string("tfoot"), - cst_textarea$0=caml_new_string("textarea"), - cst_td$0=caml_new_string("td"), - cst_tbody$0=caml_new_string("tbody"), - cst_table$0=caml_new_string("table"), - cst_style$0=caml_new_string("style"), - cst_select$1=caml_new_string("select"), - cst_script$0=caml_new_string("script"), - cst_q$0=caml_new_string("q"), - cst_pre$0=caml_new_string("pre"), - cst_param$0=caml_new_string("param"), - cst_p$0=caml_new_string("p"), - cst_option$0=caml_new_string("option"), - cst_optgroup$0=caml_new_string("optgroup"), - cst_ol$0=caml_new_string("ol"), - cst_object$0=caml_new_string("object"), - cst_meta$0=caml_new_string("meta"), - cst_map$0=caml_new_string("map"), - cst_link$0=caml_new_string("link"), - cst_li$0=caml_new_string("li"), - cst_legend$0=caml_new_string("legend"), - cst_label$0=caml_new_string("label"), - cst_ins$0=caml_new_string("ins"), - cst_input$1=caml_new_string("input"), - cst_img$0=caml_new_string("img"), - cst_iframe$0=caml_new_string("iframe"), - cst_html$0=caml_new_string("html"), - cst_hr$0=caml_new_string("hr"), - cst_head$0=caml_new_string("head"), - cst_h6$0=caml_new_string("h6"), - cst_h5$0=caml_new_string("h5"), - cst_h4$0=caml_new_string("h4"), - cst_h3$0=caml_new_string("h3"), - cst_h2$0=caml_new_string("h2"), - cst_h1$0=caml_new_string("h1"), - cst_frame$0=caml_new_string("frame"), - cst_frameset$0=caml_new_string("frameset"), - cst_form$0=caml_new_string("form"), - cst_embed$0=caml_new_string("embed"), - cst_fieldset$0=caml_new_string("fieldset"), - cst_dl$0=caml_new_string("dl"), - cst_div$0=caml_new_string("div"), - cst_del$0=caml_new_string("del"), - cst_colgroup$0=caml_new_string("colgroup"), - cst_col$0=caml_new_string("col"), - cst_caption$0=caml_new_string("caption"), - cst_canvas$0=caml_new_string("canvas"), - cst_button$0=caml_new_string("button"), - cst_br$0=caml_new_string("br"), - cst_body$0=caml_new_string("body"), - cst_blockquote$0=caml_new_string("blockquote"), - cst_base$0=caml_new_string("base"), - cst_area$0=caml_new_string("area"), - cst_a$0=caml_new_string("a"), - cst_canvas=caml_new_string("canvas"), - cst_video=caml_new_string("video"), - cst_audio=caml_new_string("audio"), - cst_iframe=caml_new_string("iframe"), - cst_frame=caml_new_string("frame"), - cst_frameset=caml_new_string("frameset"), - cst_address=caml_new_string("address"), - cst_noscript=caml_new_string("noscript"), - cst_dt=caml_new_string("dt"), - cst_dd=caml_new_string("dd"), - cst_abbr=caml_new_string("abbr"), - cst_var=caml_new_string("var"), - cst_kbd=caml_new_string("kbd"), - cst_samp=caml_new_string("samp"), - cst_code=caml_new_string("code"), - cst_dfn=caml_new_string("dfn"), - cst_cite=caml_new_string("cite"), - cst_strong=caml_new_string("strong"), - cst_em=caml_new_string("em"), - cst_small=caml_new_string("small"), - cst_big=caml_new_string("big"), - cst_b=caml_new_string("b"), - cst_i=caml_new_string("i"), - cst_tt=caml_new_string("tt"), - cst_span=caml_new_string("span"), - cst_sup=caml_new_string("sup"), - cst_sub=caml_new_string("sub"), - cst_td=caml_new_string("td"), - cst_th=caml_new_string("th"), - cst_tr=caml_new_string("tr"), - cst_tbody=caml_new_string("tbody"), - cst_tfoot=caml_new_string("tfoot"), - cst_thead=caml_new_string("thead"), - cst_colgroup=caml_new_string("colgroup"), - cst_col=caml_new_string("col"), - cst_caption=caml_new_string("caption"), - cst_table=caml_new_string("table"), - cst_script=caml_new_string("script"), - cst_area=caml_new_string("area"), - cst_map=caml_new_string("map"), - cst_param=caml_new_string("param"), - cst_object=caml_new_string("object"), - cst_img=caml_new_string("img"), - cst_a=caml_new_string("a"), - cst_del=caml_new_string("del"), - cst_ins=caml_new_string("ins"), - cst_hr=caml_new_string("hr"), - cst_br=caml_new_string("br"), - cst_pre=caml_new_string("pre"), - cst_blockquote=caml_new_string("blockquote"), - cst_q=caml_new_string("q"), - cst_h6=caml_new_string("h6"), - cst_h5=caml_new_string("h5"), - cst_h4=caml_new_string("h4"), - cst_h3=caml_new_string("h3"), - cst_h2=caml_new_string("h2"), - cst_h1=caml_new_string("h1"), - cst_p=caml_new_string("p"), - cst_embed=caml_new_string("embed"), - cst_div=caml_new_string("div"), - cst_li=caml_new_string("li"), - cst_dl=caml_new_string("dl"), - cst_ol=caml_new_string("ol"), - cst_ul=caml_new_string("ul"), - cst_legend=caml_new_string("legend"), - cst_fieldset=caml_new_string("fieldset"), - cst_label=caml_new_string("label"), - cst_button=caml_new_string("button"), - cst_textarea=caml_new_string("textarea"), - cst_input$0=caml_new_string("input"), - cst_select$0=caml_new_string("select"), - cst_option=caml_new_string("option"), - cst_optgroup=caml_new_string("optgroup"), - cst_form=caml_new_string("form"), - cst_body=caml_new_string("body"), - cst_style=caml_new_string("style"), - cst_base=caml_new_string("base"), - cst_meta=caml_new_string("meta"), - cst_title=caml_new_string("title"), - cst_link=caml_new_string("link"), - cst_head=caml_new_string("head"), - cst_html=caml_new_string("html"), - cst_click=caml_new_string("click"), - cst_dblclick=caml_new_string("dblclick"), - cst_mousedown=caml_new_string("mousedown"), - cst_mouseup=caml_new_string("mouseup"), - cst_mouseover=caml_new_string("mouseover"), - cst_mousemove=caml_new_string("mousemove"), - cst_mouseout=caml_new_string("mouseout"), - cst_keypress=caml_new_string("keypress"), - cst_keydown=caml_new_string("keydown"), - cst_keyup=caml_new_string("keyup"), - cst_mousewheel=caml_new_string("mousewheel"), - cst_DOMMouseScroll=caml_new_string("DOMMouseScroll"), - cst_touchstart=caml_new_string("touchstart"), - cst_touchmove=caml_new_string("touchmove"), - cst_touchend=caml_new_string("touchend"), - cst_touchcancel=caml_new_string("touchcancel"), - cst_dragstart=caml_new_string("dragstart"), - cst_dragend=caml_new_string("dragend"), - cst_dragenter=caml_new_string("dragenter"), - cst_dragover=caml_new_string("dragover"), - cst_dragleave=caml_new_string("dragleave"), - cst_drag=caml_new_string("drag"), - cst_drop=caml_new_string("drop"), - cst_hashchange=caml_new_string("hashchange"), - cst_change=caml_new_string("change"), - cst_input=caml_new_string("input"), - cst_timeupdate=caml_new_string("timeupdate"), - cst_submit=caml_new_string("submit"), - cst_scroll=caml_new_string("scroll"), - cst_focus=caml_new_string("focus"), - cst_blur=caml_new_string("blur"), - cst_load$0=caml_new_string("load"), - cst_unload=caml_new_string("unload"), - cst_beforeunload=caml_new_string("beforeunload"), - cst_resize=caml_new_string("resize"), - cst_orientationchange=caml_new_string("orientationchange"), - cst_popstate=caml_new_string("popstate"), - cst_error$0=caml_new_string("error"), - cst_abort$0=caml_new_string("abort"), - cst_select=caml_new_string("select"), - cst_online=caml_new_string("online"), - cst_offline=caml_new_string("offline"), - cst_checking=caml_new_string("checking"), - cst_noupdate=caml_new_string("noupdate"), - cst_downloading=caml_new_string("downloading"), - cst_progress$0=caml_new_string("progress"), - cst_updateready=caml_new_string("updateready"), - cst_cached=caml_new_string("cached"), - cst_obsolete=caml_new_string("obsolete"), - cst_DOMContentLoaded=caml_new_string("DOMContentLoaded"), - cst_animationstart=caml_new_string("animationstart"), - cst_animationend=caml_new_string("animationend"), - cst_animationiteration=caml_new_string("animationiteration"), - cst_animationcancel=caml_new_string("animationcancel"), - cst_canplay=caml_new_string("canplay"), - cst_canplaythrough=caml_new_string("canplaythrough"), - cst_durationchange=caml_new_string("durationchange"), - cst_emptied=caml_new_string("emptied"), - cst_ended=caml_new_string("ended"), - cst_gotpointercapture=caml_new_string("gotpointercapture"), - cst_loadeddata=caml_new_string("loadeddata"), - cst_loadedmetadata=caml_new_string("loadedmetadata"), - cst_loadstart$0=caml_new_string("loadstart"), - cst_lostpointercapture=caml_new_string("lostpointercapture"), - cst_pause=caml_new_string("pause"), - cst_play=caml_new_string("play"), - cst_playing=caml_new_string("playing"), - cst_pointerenter=caml_new_string("pointerenter"), - cst_pointercancel=caml_new_string("pointercancel"), - cst_pointerdown=caml_new_string("pointerdown"), - cst_pointerleave=caml_new_string("pointerleave"), - cst_pointermove=caml_new_string("pointermove"), - cst_pointerout=caml_new_string("pointerout"), - cst_pointerover=caml_new_string("pointerover"), - cst_pointerup=caml_new_string("pointerup"), - cst_ratechange=caml_new_string("ratechange"), - cst_seeked=caml_new_string("seeked"), - cst_seeking=caml_new_string("seeking"), - cst_stalled=caml_new_string("stalled"), - cst_suspend=caml_new_string("suspend"), - cst_volumechange=caml_new_string("volumechange"), - cst_waiting=caml_new_string("waiting"), - cst_Js_of_ocaml_Dom_html_Canvas_not_available= - caml_new_string("Js_of_ocaml__Dom_html.Canvas_not_available"), - cst_checkbox=caml_new_string("checkbox"), - cst_file=caml_new_string("file"), - cst_password=caml_new_string("password"), - cst_radio=caml_new_string("radio"), - cst_reset=caml_new_string("reset"), - cst_submit$0=caml_new_string("submit"), - cst_text=caml_new_string("text"), - cst_readystatechange=caml_new_string("readystatechange"), - cst_loadstart$1=caml_new_string("loadstart"), - cst_progress$1=caml_new_string("progress"), - cst_abort$1=caml_new_string("abort"), - cst_error$1=caml_new_string("error"), - cst_load$1=caml_new_string("load"), - cst_timeout=caml_new_string("timeout"), - cst_loadend$0=caml_new_string("loadend"), - cst_Worker_onmessage_is_undefined$0= - caml_new_string("Worker.onmessage is undefined"), - cst_Worker_onmessage_is_undefined= - caml_new_string("Worker.onmessage is undefined"), - cst_Worker_import_scripts_is_undefined= - caml_new_string("Worker.import_scripts is undefined"), - cst_webglcontextlost=caml_new_string("webglcontextlost"), - cst_webglcontextrestored=caml_new_string("webglcontextrestored"), + cst_parseFloat=caml_string_of_jsbytes("parseFloat"), + cst_parseInt=caml_string_of_jsbytes("parseInt"), + cst_Js_of_ocaml_Js_Error=caml_string_of_jsbytes("Js_of_ocaml__Js.Error"), + cst_jsError=caml_string_of_jsbytes("jsError"), + cst_can_t_retrieve_file_name_n= + caml_string_of_jsbytes("can't retrieve file name: not implemented"), + cst_endings=caml_string_of_jsbytes("endings"), + cst_type=caml_string_of_jsbytes("type"), + cst_loadstart=caml_string_of_jsbytes("loadstart"), + cst_progress=caml_string_of_jsbytes("progress"), + cst_abort=caml_string_of_jsbytes("abort"), + cst_error=caml_string_of_jsbytes("error"), + cst_load=caml_string_of_jsbytes("load"), + cst_loadend=caml_string_of_jsbytes("loadend"), + cst_a$1=caml_string_of_jsbytes("a"), + cst_area$1=caml_string_of_jsbytes("area"), + cst_audio$1=caml_string_of_jsbytes("audio"), + cst_base$1=caml_string_of_jsbytes("base"), + cst_blockquote$1=caml_string_of_jsbytes("blockquote"), + cst_body$1=caml_string_of_jsbytes("body"), + cst_br$1=caml_string_of_jsbytes("br"), + cst_button$1=caml_string_of_jsbytes("button"), + cst_canvas$1=caml_string_of_jsbytes("canvas"), + cst_caption$1=caml_string_of_jsbytes("caption"), + cst_col$1=caml_string_of_jsbytes("col"), + cst_colgroup$1=caml_string_of_jsbytes("colgroup"), + cst_del$1=caml_string_of_jsbytes("del"), + cst_div$1=caml_string_of_jsbytes("div"), + cst_dl$1=caml_string_of_jsbytes("dl"), + cst_embed$1=caml_string_of_jsbytes("embed"), + cst_fieldset$1=caml_string_of_jsbytes("fieldset"), + cst_form$1=caml_string_of_jsbytes("form"), + cst_frame$1=caml_string_of_jsbytes("frame"), + cst_frameset$1=caml_string_of_jsbytes("frameset"), + cst_h1$1=caml_string_of_jsbytes("h1"), + cst_h2$1=caml_string_of_jsbytes("h2"), + cst_h3$1=caml_string_of_jsbytes("h3"), + cst_h4$1=caml_string_of_jsbytes("h4"), + cst_h5$1=caml_string_of_jsbytes("h5"), + cst_h6$1=caml_string_of_jsbytes("h6"), + cst_head$1=caml_string_of_jsbytes("head"), + cst_hr$1=caml_string_of_jsbytes("hr"), + cst_html$1=caml_string_of_jsbytes("html"), + cst_iframe$1=caml_string_of_jsbytes("iframe"), + cst_img$1=caml_string_of_jsbytes("img"), + cst_input$2=caml_string_of_jsbytes("input"), + cst_ins$1=caml_string_of_jsbytes("ins"), + cst_label$1=caml_string_of_jsbytes("label"), + cst_legend$1=caml_string_of_jsbytes("legend"), + cst_li$1=caml_string_of_jsbytes("li"), + cst_link$1=caml_string_of_jsbytes("link"), + cst_map$1=caml_string_of_jsbytes("map"), + cst_meta$1=caml_string_of_jsbytes("meta"), + cst_object$1=caml_string_of_jsbytes("object"), + cst_ol$1=caml_string_of_jsbytes("ol"), + cst_optgroup$1=caml_string_of_jsbytes("optgroup"), + cst_option$1=caml_string_of_jsbytes("option"), + cst_p$1=caml_string_of_jsbytes("p"), + cst_param$1=caml_string_of_jsbytes("param"), + cst_pre$1=caml_string_of_jsbytes("pre"), + cst_q$1=caml_string_of_jsbytes("q"), + cst_script$1=caml_string_of_jsbytes("script"), + cst_select$2=caml_string_of_jsbytes("select"), + cst_style$1=caml_string_of_jsbytes("style"), + cst_table$1=caml_string_of_jsbytes("table"), + cst_tbody$1=caml_string_of_jsbytes("tbody"), + cst_td$1=caml_string_of_jsbytes("td"), + cst_textarea$1=caml_string_of_jsbytes("textarea"), + cst_tfoot$1=caml_string_of_jsbytes("tfoot"), + cst_th$1=caml_string_of_jsbytes("th"), + cst_thead$1=caml_string_of_jsbytes("thead"), + cst_title$1=caml_string_of_jsbytes("title"), + cst_tr$1=caml_string_of_jsbytes("tr"), + cst_ul$1=caml_string_of_jsbytes("ul"), + cst_video$1=caml_string_of_jsbytes("video"), + cst_KeyH=caml_string_of_jsbytes("KeyH"), + cst_Digit6=caml_string_of_jsbytes("Digit6"), + cst_BrowserRefresh=caml_string_of_jsbytes("BrowserRefresh"), + cst_Backslash=caml_string_of_jsbytes("Backslash"), + cst_AltLeft=caml_string_of_jsbytes("AltLeft"), + cst_AltRight=caml_string_of_jsbytes("AltRight"), + cst_ArrowDown=caml_string_of_jsbytes("ArrowDown"), + cst_ArrowLeft=caml_string_of_jsbytes("ArrowLeft"), + cst_ArrowRight=caml_string_of_jsbytes("ArrowRight"), + cst_ArrowUp=caml_string_of_jsbytes("ArrowUp"), + cst_Backquote=caml_string_of_jsbytes("Backquote"), + cst_Backspace=caml_string_of_jsbytes("Backspace"), + cst_BracketLeft=caml_string_of_jsbytes("BracketLeft"), + cst_BracketRight=caml_string_of_jsbytes("BracketRight"), + cst_BrowserBack=caml_string_of_jsbytes("BrowserBack"), + cst_BrowserFavorites=caml_string_of_jsbytes("BrowserFavorites"), + cst_BrowserForward=caml_string_of_jsbytes("BrowserForward"), + cst_BrowserHome=caml_string_of_jsbytes("BrowserHome"), + cst_Delete=caml_string_of_jsbytes("Delete"), + cst_BrowserSearch=caml_string_of_jsbytes("BrowserSearch"), + cst_BrowserStop=caml_string_of_jsbytes("BrowserStop"), + cst_CapsLock=caml_string_of_jsbytes("CapsLock"), + cst_Comma=caml_string_of_jsbytes("Comma"), + cst_ContextMenu=caml_string_of_jsbytes("ContextMenu"), + cst_ControlLeft=caml_string_of_jsbytes("ControlLeft"), + cst_ControlRight=caml_string_of_jsbytes("ControlRight"), + cst_Digit0=caml_string_of_jsbytes("Digit0"), + cst_Digit1=caml_string_of_jsbytes("Digit1"), + cst_Digit2=caml_string_of_jsbytes("Digit2"), + cst_Digit3=caml_string_of_jsbytes("Digit3"), + cst_Digit4=caml_string_of_jsbytes("Digit4"), + cst_Digit5=caml_string_of_jsbytes("Digit5"), + cst_F6=caml_string_of_jsbytes("F6"), + cst_F1=caml_string_of_jsbytes("F1"), + cst_Digit7=caml_string_of_jsbytes("Digit7"), + cst_Digit8=caml_string_of_jsbytes("Digit8"), + cst_Digit9=caml_string_of_jsbytes("Digit9"), + cst_End=caml_string_of_jsbytes("End"), + cst_Enter=caml_string_of_jsbytes("Enter"), + cst_Equal=caml_string_of_jsbytes("Equal"), + cst_Escape=caml_string_of_jsbytes("Escape"), + cst_F10=caml_string_of_jsbytes("F10"), + cst_F11=caml_string_of_jsbytes("F11"), + cst_F12=caml_string_of_jsbytes("F12"), + cst_F2=caml_string_of_jsbytes("F2"), + cst_F3=caml_string_of_jsbytes("F3"), + cst_F4=caml_string_of_jsbytes("F4"), + cst_F5=caml_string_of_jsbytes("F5"), + cst_KeyA=caml_string_of_jsbytes("KeyA"), + cst_F7=caml_string_of_jsbytes("F7"), + cst_F8=caml_string_of_jsbytes("F8"), + cst_F9=caml_string_of_jsbytes("F9"), + cst_Home=caml_string_of_jsbytes("Home"), + cst_Insert=caml_string_of_jsbytes("Insert"), + cst_IntlBackslash=caml_string_of_jsbytes("IntlBackslash"), + cst_IntlYen=caml_string_of_jsbytes("IntlYen"), + cst_KeyB=caml_string_of_jsbytes("KeyB"), + cst_KeyC=caml_string_of_jsbytes("KeyC"), + cst_KeyD=caml_string_of_jsbytes("KeyD"), + cst_KeyE=caml_string_of_jsbytes("KeyE"), + cst_KeyF=caml_string_of_jsbytes("KeyF"), + cst_KeyG=caml_string_of_jsbytes("KeyG"), + cst_Numpad4=caml_string_of_jsbytes("Numpad4"), + cst_KeyX=caml_string_of_jsbytes("KeyX"), + cst_KeyP=caml_string_of_jsbytes("KeyP"), + cst_KeyI=caml_string_of_jsbytes("KeyI"), + cst_KeyJ=caml_string_of_jsbytes("KeyJ"), + cst_KeyK=caml_string_of_jsbytes("KeyK"), + cst_KeyL=caml_string_of_jsbytes("KeyL"), + cst_KeyM=caml_string_of_jsbytes("KeyM"), + cst_KeyN=caml_string_of_jsbytes("KeyN"), + cst_KeyO=caml_string_of_jsbytes("KeyO"), + cst_KeyQ=caml_string_of_jsbytes("KeyQ"), + cst_KeyR=caml_string_of_jsbytes("KeyR"), + cst_KeyS=caml_string_of_jsbytes("KeyS"), + cst_KeyT=caml_string_of_jsbytes("KeyT"), + cst_KeyU=caml_string_of_jsbytes("KeyU"), + cst_KeyV=caml_string_of_jsbytes("KeyV"), + cst_KeyW=caml_string_of_jsbytes("KeyW"), + cst_MetaRight=caml_string_of_jsbytes("MetaRight"), + cst_KeyY=caml_string_of_jsbytes("KeyY"), + cst_KeyZ=caml_string_of_jsbytes("KeyZ"), + cst_MediaPlayPause=caml_string_of_jsbytes("MediaPlayPause"), + cst_MediaStop=caml_string_of_jsbytes("MediaStop"), + cst_MediaTrackNext=caml_string_of_jsbytes("MediaTrackNext"), + cst_MediaTrackPrevious=caml_string_of_jsbytes("MediaTrackPrevious"), + cst_MetaLeft=caml_string_of_jsbytes("MetaLeft"), + cst_Minus=caml_string_of_jsbytes("Minus"), + cst_NumLock=caml_string_of_jsbytes("NumLock"), + cst_Numpad0=caml_string_of_jsbytes("Numpad0"), + cst_Numpad1=caml_string_of_jsbytes("Numpad1"), + cst_Numpad2=caml_string_of_jsbytes("Numpad2"), + cst_Numpad3=caml_string_of_jsbytes("Numpad3"), + cst_PageUp=caml_string_of_jsbytes("PageUp"), + cst_NumpadDivide=caml_string_of_jsbytes("NumpadDivide"), + cst_Numpad5=caml_string_of_jsbytes("Numpad5"), + cst_Numpad6=caml_string_of_jsbytes("Numpad6"), + cst_Numpad7=caml_string_of_jsbytes("Numpad7"), + cst_Numpad8=caml_string_of_jsbytes("Numpad8"), + cst_Numpad9=caml_string_of_jsbytes("Numpad9"), + cst_NumpadAdd=caml_string_of_jsbytes("NumpadAdd"), + cst_NumpadDecimal=caml_string_of_jsbytes("NumpadDecimal"), + cst_NumpadEnter=caml_string_of_jsbytes("NumpadEnter"), + cst_NumpadEqual=caml_string_of_jsbytes("NumpadEqual"), + cst_NumpadMultiply=caml_string_of_jsbytes("NumpadMultiply"), + cst_NumpadSubtract=caml_string_of_jsbytes("NumpadSubtract"), + cst_OSLeft=caml_string_of_jsbytes("OSLeft"), + cst_OSRight=caml_string_of_jsbytes("OSRight"), + cst_PageDown=caml_string_of_jsbytes("PageDown"), + cst_ShiftRight=caml_string_of_jsbytes("ShiftRight"), + cst_Pause=caml_string_of_jsbytes("Pause"), + cst_Period=caml_string_of_jsbytes("Period"), + cst_PrintScreen=caml_string_of_jsbytes("PrintScreen"), + cst_Quote=caml_string_of_jsbytes("Quote"), + cst_ScrollLock=caml_string_of_jsbytes("ScrollLock"), + cst_Semicolon=caml_string_of_jsbytes("Semicolon"), + cst_ShiftLeft=caml_string_of_jsbytes("ShiftLeft"), + cst_Slash=caml_string_of_jsbytes("Slash"), + cst_Space=caml_string_of_jsbytes("Space"), + cst_Tab=caml_string_of_jsbytes("Tab"), + cst_VolumeDown=caml_string_of_jsbytes("VolumeDown"), + cst_VolumeMute=caml_string_of_jsbytes("VolumeMute"), + cst_VolumeUp=caml_string_of_jsbytes("VolumeUp"), + cst_mouseout$0=caml_string_of_jsbytes("mouseout"), + cst_mouseover$0=caml_string_of_jsbytes("mouseover"), + cst_video$0=caml_string_of_jsbytes("video"), + cst_audio$0=caml_string_of_jsbytes("audio"), + cst_ul$0=caml_string_of_jsbytes("ul"), + cst_tr$0=caml_string_of_jsbytes("tr"), + cst_title$0=caml_string_of_jsbytes("title"), + cst_thead$0=caml_string_of_jsbytes("thead"), + cst_th$0=caml_string_of_jsbytes("th"), + cst_tfoot$0=caml_string_of_jsbytes("tfoot"), + cst_textarea$0=caml_string_of_jsbytes("textarea"), + cst_td$0=caml_string_of_jsbytes("td"), + cst_tbody$0=caml_string_of_jsbytes("tbody"), + cst_table$0=caml_string_of_jsbytes("table"), + cst_style$0=caml_string_of_jsbytes("style"), + cst_select$1=caml_string_of_jsbytes("select"), + cst_script$0=caml_string_of_jsbytes("script"), + cst_q$0=caml_string_of_jsbytes("q"), + cst_pre$0=caml_string_of_jsbytes("pre"), + cst_param$0=caml_string_of_jsbytes("param"), + cst_p$0=caml_string_of_jsbytes("p"), + cst_option$0=caml_string_of_jsbytes("option"), + cst_optgroup$0=caml_string_of_jsbytes("optgroup"), + cst_ol$0=caml_string_of_jsbytes("ol"), + cst_object$0=caml_string_of_jsbytes("object"), + cst_meta$0=caml_string_of_jsbytes("meta"), + cst_map$0=caml_string_of_jsbytes("map"), + cst_link$0=caml_string_of_jsbytes("link"), + cst_li$0=caml_string_of_jsbytes("li"), + cst_legend$0=caml_string_of_jsbytes("legend"), + cst_label$0=caml_string_of_jsbytes("label"), + cst_ins$0=caml_string_of_jsbytes("ins"), + cst_input$1=caml_string_of_jsbytes("input"), + cst_img$0=caml_string_of_jsbytes("img"), + cst_iframe$0=caml_string_of_jsbytes("iframe"), + cst_html$0=caml_string_of_jsbytes("html"), + cst_hr$0=caml_string_of_jsbytes("hr"), + cst_head$0=caml_string_of_jsbytes("head"), + cst_h6$0=caml_string_of_jsbytes("h6"), + cst_h5$0=caml_string_of_jsbytes("h5"), + cst_h4$0=caml_string_of_jsbytes("h4"), + cst_h3$0=caml_string_of_jsbytes("h3"), + cst_h2$0=caml_string_of_jsbytes("h2"), + cst_h1$0=caml_string_of_jsbytes("h1"), + cst_frame$0=caml_string_of_jsbytes("frame"), + cst_frameset$0=caml_string_of_jsbytes("frameset"), + cst_form$0=caml_string_of_jsbytes("form"), + cst_embed$0=caml_string_of_jsbytes("embed"), + cst_fieldset$0=caml_string_of_jsbytes("fieldset"), + cst_dl$0=caml_string_of_jsbytes("dl"), + cst_div$0=caml_string_of_jsbytes("div"), + cst_del$0=caml_string_of_jsbytes("del"), + cst_colgroup$0=caml_string_of_jsbytes("colgroup"), + cst_col$0=caml_string_of_jsbytes("col"), + cst_caption$0=caml_string_of_jsbytes("caption"), + cst_canvas$0=caml_string_of_jsbytes("canvas"), + cst_button$0=caml_string_of_jsbytes("button"), + cst_br$0=caml_string_of_jsbytes("br"), + cst_body$0=caml_string_of_jsbytes("body"), + cst_blockquote$0=caml_string_of_jsbytes("blockquote"), + cst_base$0=caml_string_of_jsbytes("base"), + cst_area$0=caml_string_of_jsbytes("area"), + cst_a$0=caml_string_of_jsbytes("a"), + cst_canvas=caml_string_of_jsbytes("canvas"), + cst_video=caml_string_of_jsbytes("video"), + cst_audio=caml_string_of_jsbytes("audio"), + cst_iframe=caml_string_of_jsbytes("iframe"), + cst_frame=caml_string_of_jsbytes("frame"), + cst_frameset=caml_string_of_jsbytes("frameset"), + cst_address=caml_string_of_jsbytes("address"), + cst_noscript=caml_string_of_jsbytes("noscript"), + cst_dt=caml_string_of_jsbytes("dt"), + cst_dd=caml_string_of_jsbytes("dd"), + cst_abbr=caml_string_of_jsbytes("abbr"), + cst_var=caml_string_of_jsbytes("var"), + cst_kbd=caml_string_of_jsbytes("kbd"), + cst_samp=caml_string_of_jsbytes("samp"), + cst_code=caml_string_of_jsbytes("code"), + cst_dfn=caml_string_of_jsbytes("dfn"), + cst_cite=caml_string_of_jsbytes("cite"), + cst_strong=caml_string_of_jsbytes("strong"), + cst_em=caml_string_of_jsbytes("em"), + cst_small=caml_string_of_jsbytes("small"), + cst_big=caml_string_of_jsbytes("big"), + cst_b=caml_string_of_jsbytes("b"), + cst_i=caml_string_of_jsbytes("i"), + cst_tt=caml_string_of_jsbytes("tt"), + cst_span=caml_string_of_jsbytes("span"), + cst_sup=caml_string_of_jsbytes("sup"), + cst_sub=caml_string_of_jsbytes("sub"), + cst_td=caml_string_of_jsbytes("td"), + cst_th=caml_string_of_jsbytes("th"), + cst_tr=caml_string_of_jsbytes("tr"), + cst_tbody=caml_string_of_jsbytes("tbody"), + cst_tfoot=caml_string_of_jsbytes("tfoot"), + cst_thead=caml_string_of_jsbytes("thead"), + cst_colgroup=caml_string_of_jsbytes("colgroup"), + cst_col=caml_string_of_jsbytes("col"), + cst_caption=caml_string_of_jsbytes("caption"), + cst_table=caml_string_of_jsbytes("table"), + cst_script=caml_string_of_jsbytes("script"), + cst_area=caml_string_of_jsbytes("area"), + cst_map=caml_string_of_jsbytes("map"), + cst_param=caml_string_of_jsbytes("param"), + cst_object=caml_string_of_jsbytes("object"), + cst_img=caml_string_of_jsbytes("img"), + cst_a=caml_string_of_jsbytes("a"), + cst_del=caml_string_of_jsbytes("del"), + cst_ins=caml_string_of_jsbytes("ins"), + cst_hr=caml_string_of_jsbytes("hr"), + cst_br=caml_string_of_jsbytes("br"), + cst_pre=caml_string_of_jsbytes("pre"), + cst_blockquote=caml_string_of_jsbytes("blockquote"), + cst_q=caml_string_of_jsbytes("q"), + cst_h6=caml_string_of_jsbytes("h6"), + cst_h5=caml_string_of_jsbytes("h5"), + cst_h4=caml_string_of_jsbytes("h4"), + cst_h3=caml_string_of_jsbytes("h3"), + cst_h2=caml_string_of_jsbytes("h2"), + cst_h1=caml_string_of_jsbytes("h1"), + cst_p=caml_string_of_jsbytes("p"), + cst_embed=caml_string_of_jsbytes("embed"), + cst_div=caml_string_of_jsbytes("div"), + cst_li=caml_string_of_jsbytes("li"), + cst_dl=caml_string_of_jsbytes("dl"), + cst_ol=caml_string_of_jsbytes("ol"), + cst_ul=caml_string_of_jsbytes("ul"), + cst_legend=caml_string_of_jsbytes("legend"), + cst_fieldset=caml_string_of_jsbytes("fieldset"), + cst_label=caml_string_of_jsbytes("label"), + cst_button=caml_string_of_jsbytes("button"), + cst_textarea=caml_string_of_jsbytes("textarea"), + cst_input$0=caml_string_of_jsbytes("input"), + cst_select$0=caml_string_of_jsbytes("select"), + cst_option=caml_string_of_jsbytes("option"), + cst_optgroup=caml_string_of_jsbytes("optgroup"), + cst_form=caml_string_of_jsbytes("form"), + cst_body=caml_string_of_jsbytes("body"), + cst_style=caml_string_of_jsbytes("style"), + cst_base=caml_string_of_jsbytes("base"), + cst_meta=caml_string_of_jsbytes("meta"), + cst_title=caml_string_of_jsbytes("title"), + cst_link=caml_string_of_jsbytes("link"), + cst_head=caml_string_of_jsbytes("head"), + cst_html=caml_string_of_jsbytes("html"), + cst_click=caml_string_of_jsbytes("click"), + cst_dblclick=caml_string_of_jsbytes("dblclick"), + cst_mousedown=caml_string_of_jsbytes("mousedown"), + cst_mouseup=caml_string_of_jsbytes("mouseup"), + cst_mouseover=caml_string_of_jsbytes("mouseover"), + cst_mousemove=caml_string_of_jsbytes("mousemove"), + cst_mouseout=caml_string_of_jsbytes("mouseout"), + cst_keypress=caml_string_of_jsbytes("keypress"), + cst_keydown=caml_string_of_jsbytes("keydown"), + cst_keyup=caml_string_of_jsbytes("keyup"), + cst_mousewheel=caml_string_of_jsbytes("mousewheel"), + cst_DOMMouseScroll=caml_string_of_jsbytes("DOMMouseScroll"), + cst_touchstart=caml_string_of_jsbytes("touchstart"), + cst_touchmove=caml_string_of_jsbytes("touchmove"), + cst_touchend=caml_string_of_jsbytes("touchend"), + cst_touchcancel=caml_string_of_jsbytes("touchcancel"), + cst_dragstart=caml_string_of_jsbytes("dragstart"), + cst_dragend=caml_string_of_jsbytes("dragend"), + cst_dragenter=caml_string_of_jsbytes("dragenter"), + cst_dragover=caml_string_of_jsbytes("dragover"), + cst_dragleave=caml_string_of_jsbytes("dragleave"), + cst_drag=caml_string_of_jsbytes("drag"), + cst_drop=caml_string_of_jsbytes("drop"), + cst_hashchange=caml_string_of_jsbytes("hashchange"), + cst_change=caml_string_of_jsbytes("change"), + cst_input=caml_string_of_jsbytes("input"), + cst_timeupdate=caml_string_of_jsbytes("timeupdate"), + cst_submit=caml_string_of_jsbytes("submit"), + cst_scroll=caml_string_of_jsbytes("scroll"), + cst_focus=caml_string_of_jsbytes("focus"), + cst_blur=caml_string_of_jsbytes("blur"), + cst_load$0=caml_string_of_jsbytes("load"), + cst_unload=caml_string_of_jsbytes("unload"), + cst_beforeunload=caml_string_of_jsbytes("beforeunload"), + cst_resize=caml_string_of_jsbytes("resize"), + cst_orientationchange=caml_string_of_jsbytes("orientationchange"), + cst_popstate=caml_string_of_jsbytes("popstate"), + cst_error$0=caml_string_of_jsbytes("error"), + cst_abort$0=caml_string_of_jsbytes("abort"), + cst_select=caml_string_of_jsbytes("select"), + cst_online=caml_string_of_jsbytes("online"), + cst_offline=caml_string_of_jsbytes("offline"), + cst_checking=caml_string_of_jsbytes("checking"), + cst_noupdate=caml_string_of_jsbytes("noupdate"), + cst_downloading=caml_string_of_jsbytes("downloading"), + cst_progress$0=caml_string_of_jsbytes("progress"), + cst_updateready=caml_string_of_jsbytes("updateready"), + cst_cached=caml_string_of_jsbytes("cached"), + cst_obsolete=caml_string_of_jsbytes("obsolete"), + cst_DOMContentLoaded=caml_string_of_jsbytes("DOMContentLoaded"), + cst_animationstart=caml_string_of_jsbytes("animationstart"), + cst_animationend=caml_string_of_jsbytes("animationend"), + cst_animationiteration=caml_string_of_jsbytes("animationiteration"), + cst_animationcancel=caml_string_of_jsbytes("animationcancel"), + cst_canplay=caml_string_of_jsbytes("canplay"), + cst_canplaythrough=caml_string_of_jsbytes("canplaythrough"), + cst_durationchange=caml_string_of_jsbytes("durationchange"), + cst_emptied=caml_string_of_jsbytes("emptied"), + cst_ended=caml_string_of_jsbytes("ended"), + cst_gotpointercapture=caml_string_of_jsbytes("gotpointercapture"), + cst_loadeddata=caml_string_of_jsbytes("loadeddata"), + cst_loadedmetadata=caml_string_of_jsbytes("loadedmetadata"), + cst_loadstart$0=caml_string_of_jsbytes("loadstart"), + cst_lostpointercapture=caml_string_of_jsbytes("lostpointercapture"), + cst_pause=caml_string_of_jsbytes("pause"), + cst_play=caml_string_of_jsbytes("play"), + cst_playing=caml_string_of_jsbytes("playing"), + cst_pointerenter=caml_string_of_jsbytes("pointerenter"), + cst_pointercancel=caml_string_of_jsbytes("pointercancel"), + cst_pointerdown=caml_string_of_jsbytes("pointerdown"), + cst_pointerleave=caml_string_of_jsbytes("pointerleave"), + cst_pointermove=caml_string_of_jsbytes("pointermove"), + cst_pointerout=caml_string_of_jsbytes("pointerout"), + cst_pointerover=caml_string_of_jsbytes("pointerover"), + cst_pointerup=caml_string_of_jsbytes("pointerup"), + cst_ratechange=caml_string_of_jsbytes("ratechange"), + cst_seeked=caml_string_of_jsbytes("seeked"), + cst_seeking=caml_string_of_jsbytes("seeking"), + cst_stalled=caml_string_of_jsbytes("stalled"), + cst_suspend=caml_string_of_jsbytes("suspend"), + cst_volumechange=caml_string_of_jsbytes("volumechange"), + cst_waiting=caml_string_of_jsbytes("waiting"), + cst_Js_of_ocaml_Dom_html_Canva= + caml_string_of_jsbytes("Js_of_ocaml__Dom_html.Canvas_not_available"), + cst_checkbox=caml_string_of_jsbytes("checkbox"), + cst_file=caml_string_of_jsbytes("file"), + cst_password=caml_string_of_jsbytes("password"), + cst_radio=caml_string_of_jsbytes("radio"), + cst_reset=caml_string_of_jsbytes("reset"), + cst_submit$0=caml_string_of_jsbytes("submit"), + cst_text=caml_string_of_jsbytes("text"), + cst_readystatechange=caml_string_of_jsbytes("readystatechange"), + cst_loadstart$1=caml_string_of_jsbytes("loadstart"), + cst_progress$1=caml_string_of_jsbytes("progress"), + cst_abort$1=caml_string_of_jsbytes("abort"), + cst_error$1=caml_string_of_jsbytes("error"), + cst_load$1=caml_string_of_jsbytes("load"), + cst_timeout=caml_string_of_jsbytes("timeout"), + cst_loadend$0=caml_string_of_jsbytes("loadend"), + cst_Worker_onmessage_is_undefi$0= + caml_string_of_jsbytes("Worker.onmessage is undefined"), + cst_Worker_onmessage_is_undefi= + caml_string_of_jsbytes("Worker.onmessage is undefined"), + cst_Worker_import_scripts_is_u= + caml_string_of_jsbytes("Worker.import_scripts is undefined"), + cst_webglcontextlost=caml_string_of_jsbytes("webglcontextlost"), + cst_webglcontextrestored=caml_string_of_jsbytes("webglcontextrestored"), cst_webglcontextcreationerror= - caml_new_string("webglcontextcreationerror"), - cst_g=caml_new_string("g"), - cst=caml_new_string("[\\][()\\\\|+*.?{}^$]"), - cst$37=caml_new_string(""), - cst$13=caml_new_string(""), - cst$21=caml_new_string(""), - cst$14=caml_new_string("#"), - cst$15=caml_new_string("?"), - cst$20=caml_new_string(""), - cst$16=caml_new_string("/"), - cst$17=caml_new_string("/"), - cst$19=caml_new_string(":"), - cst$18=caml_new_string(""), - cst_http$1=caml_new_string("http://"), - cst$22=caml_new_string(""), - cst$30=caml_new_string(""), - cst$23=caml_new_string("#"), - cst$24=caml_new_string("?"), - cst$29=caml_new_string(""), - cst$25=caml_new_string("/"), - cst$26=caml_new_string("/"), - cst$28=caml_new_string(":"), - cst$27=caml_new_string(""), - cst_https$1=caml_new_string("https://"), - cst$31=caml_new_string(""), - cst$36=caml_new_string(""), - cst$32=caml_new_string("#"), - cst$33=caml_new_string("?"), - cst$35=caml_new_string(""), - cst$34=caml_new_string("/"), - cst_file$2=caml_new_string("file://"), - cst$12=caml_new_string(""), - cst$11=caml_new_string(""), - cst$10=caml_new_string(""), - cst$9=caml_new_string(""), - cst$8=caml_new_string(""), - cst$7=caml_new_string(""), - cst$6=caml_new_string(""), - cst$4=caml_new_string("="), - cst$5=caml_new_string("&"), - cst$2=caml_new_string(""), - cst$3=caml_new_string(""), - cst_file$0=caml_new_string("file"), - cst_file$1=caml_new_string("file:"), - cst_http=caml_new_string("http"), - cst_http$0=caml_new_string("http:"), - cst_https=caml_new_string("https"), - cst_https$0=caml_new_string("https:"), - cst$1=caml_new_string(" "), - cst_2B=caml_new_string("%2B"), + caml_string_of_jsbytes("webglcontextcreationerror"), + cst_g=caml_string_of_jsbytes("g"), + cst=caml_string_of_jsbytes("[\\][()\\\\|+*.?{}^$]"), + cst$37=caml_string_of_jsbytes(""), + cst$13=caml_string_of_jsbytes(""), + cst$21=caml_string_of_jsbytes(""), + cst$14=caml_string_of_jsbytes("#"), + cst$15=caml_string_of_jsbytes("?"), + cst$20=caml_string_of_jsbytes(""), + cst$16=caml_string_of_jsbytes("/"), + cst$17=caml_string_of_jsbytes("/"), + cst$19=caml_string_of_jsbytes(":"), + cst$18=caml_string_of_jsbytes(""), + cst_http$1=caml_string_of_jsbytes("http://"), + cst$22=caml_string_of_jsbytes(""), + cst$30=caml_string_of_jsbytes(""), + cst$23=caml_string_of_jsbytes("#"), + cst$24=caml_string_of_jsbytes("?"), + cst$29=caml_string_of_jsbytes(""), + cst$25=caml_string_of_jsbytes("/"), + cst$26=caml_string_of_jsbytes("/"), + cst$28=caml_string_of_jsbytes(":"), + cst$27=caml_string_of_jsbytes(""), + cst_https$1=caml_string_of_jsbytes("https://"), + cst$31=caml_string_of_jsbytes(""), + cst$36=caml_string_of_jsbytes(""), + cst$32=caml_string_of_jsbytes("#"), + cst$33=caml_string_of_jsbytes("?"), + cst$35=caml_string_of_jsbytes(""), + cst$34=caml_string_of_jsbytes("/"), + cst_file$2=caml_string_of_jsbytes("file://"), + cst$12=caml_string_of_jsbytes(""), + cst$11=caml_string_of_jsbytes(""), + cst$10=caml_string_of_jsbytes(""), + cst$9=caml_string_of_jsbytes(""), + cst$8=caml_string_of_jsbytes(""), + cst$7=caml_string_of_jsbytes(""), + cst$6=caml_string_of_jsbytes(""), + cst$4=caml_string_of_jsbytes("="), + cst$5=caml_string_of_jsbytes("&"), + cst$2=caml_string_of_jsbytes(""), + cst$3=caml_string_of_jsbytes(""), + cst_file$0=caml_string_of_jsbytes("file"), + cst_file$1=caml_string_of_jsbytes("file:"), + cst_http=caml_string_of_jsbytes("http"), + cst_http$0=caml_string_of_jsbytes("http:"), + cst_https=caml_string_of_jsbytes("https"), + cst_https$0=caml_string_of_jsbytes("https:"), + cst$1=caml_string_of_jsbytes(" "), + cst_2B=caml_string_of_jsbytes("%2B"), cst_Js_of_ocaml_Url_Local_exn= - caml_new_string("Js_of_ocaml__Url.Local_exn"), - cst$0=caml_new_string("+"), - cst_Js_of_ocaml_Url_Not_an_http_protocol= - caml_new_string("Js_of_ocaml__Url.Not_an_http_protocol"), - cst_Hh_Tt_Tt_Pp_Ss_0_9a_zA_Z_0_9a_zA_Z_0_9A_Fa_f_0_9= - caml_new_string + caml_string_of_jsbytes("Js_of_ocaml__Url.Local_exn"), + cst$0=caml_string_of_jsbytes("+"), + cst_Js_of_ocaml_Url_Not_an_htt= + caml_string_of_jsbytes("Js_of_ocaml__Url.Not_an_http_protocol"), + cst_Hh_Tt_Tt_Pp_Ss_0_9a_zA_Z_0= + caml_string_of_jsbytes ("^([Hh][Tt][Tt][Pp][Ss]?)://([0-9a-zA-Z.-]+|\\[[0-9a-zA-Z.-]+\\]|\\[[0-9A-Fa-f:.]+\\])?(:([0-9]+))?(/([^\\?#]*)(\\?([^#]*))?(#(.*))?)?$"), cst_Ff_Ii_Ll_Ee= - caml_new_string + caml_string_of_jsbytes ("^([Ff][Ii][Ll][Ee])://([^\\?#]*)(\\?([^#]*))?(#(.*))?$"), - s=caml_new_string("3.5.2"), - git_version=caml_new_string(""), - cst$38=caml_new_string(""), - cst$41=caml_new_string("+"), - cst_Jstable_keys=caml_new_string("Jstable.keys"), - dummy_string=caml_new_string(""), - cst_is_not_a_valid_length$0=caml_new_string(" is not a valid length"), + s=caml_string_of_jsbytes("3.6.0"), + git_version=caml_string_of_jsbytes(""), + cst$38=caml_string_of_jsbytes(""), + cst$41=caml_string_of_jsbytes("+"), + cst_Jstable_keys=caml_string_of_jsbytes("Jstable.keys"), + dummy_string=caml_string_of_jsbytes(""), + dummy_int64=runtime.caml_int64_create_lo_mi_hi(1,0,0), + cst_is_not_a_valid_length$0= + caml_string_of_jsbytes(" is not a valid length"), cst_d_d_deg_grad_rad_turns= - caml_new_string("^(\\d*(?:\\.\\d*))(deg|grad|rad|turns)$"), + caml_string_of_jsbytes("^(\\d*(?:\\.\\d*))(deg|grad|rad|turns)$"), cst_length_conversion_error$0= - caml_new_string("length conversion error: "), - cst_deg$0=caml_new_string("deg"), - cst_grad$0=caml_new_string("grad"), - cst_rad$0=caml_new_string("rad"), - cst_turns$0=caml_new_string("turns"), - cst_deg=caml_new_string("deg"), - cst_grad=caml_new_string("grad"), - cst_rad=caml_new_string("rad"), - cst_turns=caml_new_string("turns"), - cst_is_not_a_valid_length=caml_new_string(" is not a valid length"), - cst_0$0=caml_new_string("0"), - cst_d_d_s_S=caml_new_string("^(\\d*(?:\\.\\d*)?)\\s*(\\S*)$"), - cst_length_conversion_error=caml_new_string("length conversion error: "), - cst_pc$0=caml_new_string("pc"), - cst_ch$0=caml_new_string("ch"), - cst_cm$0=caml_new_string("cm"), - cst_em$1=caml_new_string("em"), - cst_ex$0=caml_new_string("ex"), - cst_gd$0=caml_new_string("gd"), - cst_in$0=caml_new_string("in"), - cst_mm$0=caml_new_string("mm"), - cst_pt$0=caml_new_string("pt"), - cst_px$0=caml_new_string("px"), - cst_rem$0=caml_new_string("rem"), - cst_vh$0=caml_new_string("vh"), - cst_vm$0=caml_new_string("vm"), - cst_vw$0=caml_new_string("vw"), - cst_0=caml_new_string("0"), - cst_em$0=caml_new_string("em"), - cst_ex=caml_new_string("ex"), - cst_px=caml_new_string("px"), - cst_gd=caml_new_string("gd"), - cst_rem=caml_new_string("rem"), - cst_vw=caml_new_string("vw"), - cst_vh=caml_new_string("vh"), - cst_vm=caml_new_string("vm"), - cst_ch=caml_new_string("ch"), - cst_mm=caml_new_string("mm"), - cst_cm=caml_new_string("cm"), - cst_in=caml_new_string("in"), - cst_pt=caml_new_string("pt"), - cst_pc=caml_new_string("pc"), - cst$40=caml_new_string("): "), - cst_color_conversion_error$0=caml_new_string("color conversion error ("), - cst$39=caml_new_string("): "), - cst_color_conversion_error=caml_new_string("color conversion error ("), - cst_is_not_a_valid_color$0=caml_new_string(" is not a valid color"), + caml_string_of_jsbytes("length conversion error: "), + cst_deg$0=caml_string_of_jsbytes("deg"), + cst_grad$0=caml_string_of_jsbytes("grad"), + cst_rad$0=caml_string_of_jsbytes("rad"), + cst_turns$0=caml_string_of_jsbytes("turns"), + cst_deg=caml_string_of_jsbytes("deg"), + cst_grad=caml_string_of_jsbytes("grad"), + cst_rad=caml_string_of_jsbytes("rad"), + cst_turns=caml_string_of_jsbytes("turns"), + cst_is_not_a_valid_length= + caml_string_of_jsbytes(" is not a valid length"), + cst_0$0=caml_string_of_jsbytes("0"), + cst_d_d_s_S=caml_string_of_jsbytes("^(\\d*(?:\\.\\d*)?)\\s*(\\S*)$"), + cst_length_conversion_error= + caml_string_of_jsbytes("length conversion error: "), + cst_pc$0=caml_string_of_jsbytes("pc"), + cst_ch$0=caml_string_of_jsbytes("ch"), + cst_cm$0=caml_string_of_jsbytes("cm"), + cst_em$1=caml_string_of_jsbytes("em"), + cst_ex$0=caml_string_of_jsbytes("ex"), + cst_gd$0=caml_string_of_jsbytes("gd"), + cst_in$0=caml_string_of_jsbytes("in"), + cst_mm$0=caml_string_of_jsbytes("mm"), + cst_pt$0=caml_string_of_jsbytes("pt"), + cst_px$0=caml_string_of_jsbytes("px"), + cst_rem$0=caml_string_of_jsbytes("rem"), + cst_vh$0=caml_string_of_jsbytes("vh"), + cst_vm$0=caml_string_of_jsbytes("vm"), + cst_vw$0=caml_string_of_jsbytes("vw"), + cst_0=caml_string_of_jsbytes("0"), + cst_em$0=caml_string_of_jsbytes("em"), + cst_ex=caml_string_of_jsbytes("ex"), + cst_px=caml_string_of_jsbytes("px"), + cst_gd=caml_string_of_jsbytes("gd"), + cst_rem=caml_string_of_jsbytes("rem"), + cst_vw=caml_string_of_jsbytes("vw"), + cst_vh=caml_string_of_jsbytes("vh"), + cst_vm=caml_string_of_jsbytes("vm"), + cst_ch=caml_string_of_jsbytes("ch"), + cst_mm=caml_string_of_jsbytes("mm"), + cst_cm=caml_string_of_jsbytes("cm"), + cst_in=caml_string_of_jsbytes("in"), + cst_pt=caml_string_of_jsbytes("pt"), + cst_pc=caml_string_of_jsbytes("pc"), + cst$40=caml_string_of_jsbytes("): "), + cst_color_conversion_error$0= + caml_string_of_jsbytes("color conversion error ("), + cst$39=caml_string_of_jsbytes("): "), + cst_color_conversion_error= + caml_string_of_jsbytes("color conversion error ("), + cst_is_not_a_valid_color$0= + caml_string_of_jsbytes(" is not a valid color"), cst_rgba_d_d_d_d_d= - caml_new_string + caml_string_of_jsbytes ("(rgba?)\\((?:(\\d*),(\\d*),(\\d*)(?:,(\\d*(?:\\.\\d*)?))?)\\)"), cst_rgba_d_d_d_d_d$0= - caml_new_string + caml_string_of_jsbytes ("(rgba?)\\((?:(\\d*)%,(\\d*)%,(\\d*)%(?:,(\\d*(?:\\.\\d*)?))?)\\)"), cst_hsla_d_d_d_d_d= - caml_new_string + caml_string_of_jsbytes ("(hsla?)\\((?:(\\d*),(\\d*)%,(\\d*)%(?:,(\\d*(?:\\.\\d*)?))?)\\)"), - cst_rgb=caml_new_string("rgb"), - cst_rgba=caml_new_string("rgba"), - cst_rgb$0=caml_new_string("rgb"), - cst_rgba$0=caml_new_string("rgba"), - cst_hsl=caml_new_string("hsl"), - cst_hsla=caml_new_string("hsla"), + cst_rgb=caml_string_of_jsbytes("rgb"), + cst_rgba=caml_string_of_jsbytes("rgba"), + cst_rgb$0=caml_string_of_jsbytes("rgb"), + cst_rgba$0=caml_string_of_jsbytes("rgba"), + cst_hsl=caml_string_of_jsbytes("hsl"), + cst_hsla=caml_string_of_jsbytes("hsla"), cst_rgb_s_d_s_d_s_d= - caml_new_string("^rgb\\(\\s*\\d*,\\s*\\d*,\\s*\\d*\\)$"), + caml_string_of_jsbytes("^rgb\\(\\s*\\d*,\\s*\\d*,\\s*\\d*\\)$"), cst_rgb_s_d_s_d_s_d$0= - caml_new_string("^rgb\\(\\s*\\d*%,\\s*\\d*%,\\s*\\d*%\\)$"), + caml_string_of_jsbytes("^rgb\\(\\s*\\d*%,\\s*\\d*%,\\s*\\d*%\\)$"), cst_rgba_s_d_s_d_s_d_d_d= - caml_new_string("^rgba\\(\\s*\\d*,\\s*\\d*,\\s*\\d*,\\d*\\.?\\d*\\)$"), + caml_string_of_jsbytes + ("^rgba\\(\\s*\\d*,\\s*\\d*,\\s*\\d*,\\d*\\.?\\d*\\)$"), cst_rgba_s_d_s_d_s_d_d_d$0= - caml_new_string + caml_string_of_jsbytes ("^rgba\\(\\s*\\d*%,\\s*\\d*%,\\s*\\d*%,\\d*\\.?\\d*\\)$"), cst_hsl_s_d_s_d_s_d= - caml_new_string("^hsl\\(\\s*\\d*,\\s*\\d*%,\\s*\\d*%\\)$"), + caml_string_of_jsbytes("^hsl\\(\\s*\\d*,\\s*\\d*%,\\s*\\d*%\\)$"), cst_hsla_s_d_s_d_s_d_d_d= - caml_new_string("^hsla\\(\\s*\\d*,\\s*\\d*%,\\s*\\d*%,\\d*\\.?\\d*\\)$"), - cst_is_not_a_valid_color=caml_new_string(" is not a valid color"), - cst_is_out_of_valid_range=caml_new_string(" is out of valid range"), + caml_string_of_jsbytes + ("^hsla\\(\\s*\\d*,\\s*\\d*%,\\s*\\d*%,\\d*\\.?\\d*\\)$"), + cst_is_not_a_valid_color=caml_string_of_jsbytes(" is not a valid color"), + cst_is_out_of_valid_range= + caml_string_of_jsbytes(" is out of valid range"), partial=[8,[0,0,0],0,0,[12,41,0]], partial$0=[12,41,0], partial$1=[0,0,0], - cst_lightgrey$0=caml_new_string("lightgrey"), - cst_darkslategray$0=caml_new_string("darkslategray"), - cst_cornsilk$0=caml_new_string("cornsilk"), - cst_blue$0=caml_new_string("blue"), - cst_aliceblue$0=caml_new_string("aliceblue"), - cst_antiquewhite$0=caml_new_string("antiquewhite"), - cst_aqua$0=caml_new_string("aqua"), - cst_aquamarine$0=caml_new_string("aquamarine"), - cst_azure$0=caml_new_string("azure"), - cst_beige$0=caml_new_string("beige"), - cst_bisque$0=caml_new_string("bisque"), - cst_black$0=caml_new_string("black"), - cst_blanchedalmond$0=caml_new_string("blanchedalmond"), - cst_blueviolet$0=caml_new_string("blueviolet"), - cst_brown$0=caml_new_string("brown"), - cst_burlywood$0=caml_new_string("burlywood"), - cst_cadetblue$0=caml_new_string("cadetblue"), - cst_chartreuse$0=caml_new_string("chartreuse"), - cst_chocolate$0=caml_new_string("chocolate"), - cst_coral$0=caml_new_string("coral"), - cst_cornflowerblue$0=caml_new_string("cornflowerblue"), - cst_darkkhaki$0=caml_new_string("darkkhaki"), - cst_crimson$0=caml_new_string("crimson"), - cst_cyan$0=caml_new_string("cyan"), - cst_darkblue$0=caml_new_string("darkblue"), - cst_darkcyan$0=caml_new_string("darkcyan"), - cst_darkgoldenrod$0=caml_new_string("darkgoldenrod"), - cst_darkgray$0=caml_new_string("darkgray"), - cst_darkgreen$0=caml_new_string("darkgreen"), - cst_darkgrey$0=caml_new_string("darkgrey"), - cst_darkmagenta$0=caml_new_string("darkmagenta"), - cst_darkolivegreen$0=caml_new_string("darkolivegreen"), - cst_darkorange$0=caml_new_string("darkorange"), - cst_darkorchid$0=caml_new_string("darkorchid"), - cst_darkred$0=caml_new_string("darkred"), - cst_darksalmon$0=caml_new_string("darksalmon"), - cst_darkseagreen$0=caml_new_string("darkseagreen"), - cst_darkslateblue$0=caml_new_string("darkslateblue"), - cst_greenyellow$0=caml_new_string("greenyellow"), - cst_floralwhite$0=caml_new_string("floralwhite"), - cst_darkslategrey$0=caml_new_string("darkslategrey"), - cst_darkturquoise$0=caml_new_string("darkturquoise"), - cst_darkviolet$0=caml_new_string("darkviolet"), - cst_deeppink$0=caml_new_string("deeppink"), - cst_deepskyblue$0=caml_new_string("deepskyblue"), - cst_dimgray$0=caml_new_string("dimgray"), - cst_dimgrey$0=caml_new_string("dimgrey"), - cst_dodgerblue$0=caml_new_string("dodgerblue"), - cst_firebrick$0=caml_new_string("firebrick"), - cst_forestgreen$0=caml_new_string("forestgreen"), - cst_fuchsia$0=caml_new_string("fuchsia"), - cst_gainsboro$0=caml_new_string("gainsboro"), - cst_ghostwhite$0=caml_new_string("ghostwhite"), - cst_gold$0=caml_new_string("gold"), - cst_goldenrod$0=caml_new_string("goldenrod"), - cst_gray$0=caml_new_string("gray"), - cst_green$0=caml_new_string("green"), - cst_lavenderblush$0=caml_new_string("lavenderblush"), - cst_grey$0=caml_new_string("grey"), - cst_honeydew$0=caml_new_string("honeydew"), - cst_hotpink$0=caml_new_string("hotpink"), - cst_indianred$0=caml_new_string("indianred"), - cst_indigo$0=caml_new_string("indigo"), - cst_ivory$0=caml_new_string("ivory"), - cst_khaki$0=caml_new_string("khaki"), - cst_lavender$0=caml_new_string("lavender"), - cst_lawngreen$0=caml_new_string("lawngreen"), - cst_lemonchiffon$0=caml_new_string("lemonchiffon"), - cst_lightblue$0=caml_new_string("lightblue"), - cst_lightcoral$0=caml_new_string("lightcoral"), - cst_lightcyan$0=caml_new_string("lightcyan"), - cst_lightgoldenrodyellow$0=caml_new_string("lightgoldenrodyellow"), - cst_lightgray$0=caml_new_string("lightgray"), - cst_lightgreen$0=caml_new_string("lightgreen"), - cst_paleturquoise$0=caml_new_string("paleturquoise"), - cst_mediumslateblue$0=caml_new_string("mediumslateblue"), - cst_limegreen$0=caml_new_string("limegreen"), - cst_lightpink$0=caml_new_string("lightpink"), - cst_lightsalmon$0=caml_new_string("lightsalmon"), - cst_lightseagreen$0=caml_new_string("lightseagreen"), - cst_lightskyblue$0=caml_new_string("lightskyblue"), - cst_lightslategray$0=caml_new_string("lightslategray"), - cst_lightslategrey$0=caml_new_string("lightslategrey"), - cst_lightsteelblue$0=caml_new_string("lightsteelblue"), - cst_lightyellow$0=caml_new_string("lightyellow"), - cst_lime$0=caml_new_string("lime"), - cst_linen$0=caml_new_string("linen"), - cst_magenta$0=caml_new_string("magenta"), - cst_maroon$0=caml_new_string("maroon"), - cst_mediumaquamarine$0=caml_new_string("mediumaquamarine"), - cst_mediumblue$0=caml_new_string("mediumblue"), - cst_mediumorchid$0=caml_new_string("mediumorchid"), - cst_mediumpurple$0=caml_new_string("mediumpurple"), - cst_mediumseagreen$0=caml_new_string("mediumseagreen"), - cst_navy$0=caml_new_string("navy"), - cst_mediumspringgreen$0=caml_new_string("mediumspringgreen"), - cst_mediumturquoise$0=caml_new_string("mediumturquoise"), - cst_mediumvioletred$0=caml_new_string("mediumvioletred"), - cst_midnightblue$0=caml_new_string("midnightblue"), - cst_mintcream$0=caml_new_string("mintcream"), - cst_mistyrose$0=caml_new_string("mistyrose"), - cst_moccasin$0=caml_new_string("moccasin"), - cst_navajowhite$0=caml_new_string("navajowhite"), - cst_oldlace$0=caml_new_string("oldlace"), - cst_olive$0=caml_new_string("olive"), - cst_olivedrab$0=caml_new_string("olivedrab"), - cst_orange$0=caml_new_string("orange"), - cst_orangered$0=caml_new_string("orangered"), - cst_orchid$0=caml_new_string("orchid"), - cst_palegoldenrod$0=caml_new_string("palegoldenrod"), - cst_palegreen$0=caml_new_string("palegreen"), - cst_skyblue$0=caml_new_string("skyblue"), - cst_rosybrown$0=caml_new_string("rosybrown"), - cst_palevioletred$0=caml_new_string("palevioletred"), - cst_papayawhip$0=caml_new_string("papayawhip"), - cst_peachpuff$0=caml_new_string("peachpuff"), - cst_peru$0=caml_new_string("peru"), - cst_pink$0=caml_new_string("pink"), - cst_plum$0=caml_new_string("plum"), - cst_powderblue$0=caml_new_string("powderblue"), - cst_purple$0=caml_new_string("purple"), - cst_red$0=caml_new_string("red"), - cst_royalblue$0=caml_new_string("royalblue"), - cst_saddlebrown$0=caml_new_string("saddlebrown"), - cst_salmon$0=caml_new_string("salmon"), - cst_sandybrown$0=caml_new_string("sandybrown"), - cst_seagreen$0=caml_new_string("seagreen"), - cst_seashell$0=caml_new_string("seashell"), - cst_sienna$0=caml_new_string("sienna"), - cst_silver$0=caml_new_string("silver"), - cst_thistle$0=caml_new_string("thistle"), - cst_slateblue$0=caml_new_string("slateblue"), - cst_slategray$0=caml_new_string("slategray"), - cst_slategrey$0=caml_new_string("slategrey"), - cst_snow$0=caml_new_string("snow"), - cst_springgreen$0=caml_new_string("springgreen"), - cst_steelblue$0=caml_new_string("steelblue"), - cst_tan$0=caml_new_string("tan"), - cst_teal$0=caml_new_string("teal"), - cst_tomato$0=caml_new_string("tomato"), - cst_turquoise$0=caml_new_string("turquoise"), - cst_violet$0=caml_new_string("violet"), - cst_wheat$0=caml_new_string("wheat"), - cst_white$0=caml_new_string("white"), - cst_whitesmoke$0=caml_new_string("whitesmoke"), - cst_yellow$0=caml_new_string("yellow"), - cst_yellowgreen$0=caml_new_string("yellowgreen"), + cst_lightgrey$0=caml_string_of_jsbytes("lightgrey"), + cst_darkslategray$0=caml_string_of_jsbytes("darkslategray"), + cst_cornsilk$0=caml_string_of_jsbytes("cornsilk"), + cst_blue$0=caml_string_of_jsbytes("blue"), + cst_aliceblue$0=caml_string_of_jsbytes("aliceblue"), + cst_antiquewhite$0=caml_string_of_jsbytes("antiquewhite"), + cst_aqua$0=caml_string_of_jsbytes("aqua"), + cst_aquamarine$0=caml_string_of_jsbytes("aquamarine"), + cst_azure$0=caml_string_of_jsbytes("azure"), + cst_beige$0=caml_string_of_jsbytes("beige"), + cst_bisque$0=caml_string_of_jsbytes("bisque"), + cst_black$0=caml_string_of_jsbytes("black"), + cst_blanchedalmond$0=caml_string_of_jsbytes("blanchedalmond"), + cst_blueviolet$0=caml_string_of_jsbytes("blueviolet"), + cst_brown$0=caml_string_of_jsbytes("brown"), + cst_burlywood$0=caml_string_of_jsbytes("burlywood"), + cst_cadetblue$0=caml_string_of_jsbytes("cadetblue"), + cst_chartreuse$0=caml_string_of_jsbytes("chartreuse"), + cst_chocolate$0=caml_string_of_jsbytes("chocolate"), + cst_coral$0=caml_string_of_jsbytes("coral"), + cst_cornflowerblue$0=caml_string_of_jsbytes("cornflowerblue"), + cst_darkkhaki$0=caml_string_of_jsbytes("darkkhaki"), + cst_crimson$0=caml_string_of_jsbytes("crimson"), + cst_cyan$0=caml_string_of_jsbytes("cyan"), + cst_darkblue$0=caml_string_of_jsbytes("darkblue"), + cst_darkcyan$0=caml_string_of_jsbytes("darkcyan"), + cst_darkgoldenrod$0=caml_string_of_jsbytes("darkgoldenrod"), + cst_darkgray$0=caml_string_of_jsbytes("darkgray"), + cst_darkgreen$0=caml_string_of_jsbytes("darkgreen"), + cst_darkgrey$0=caml_string_of_jsbytes("darkgrey"), + cst_darkmagenta$0=caml_string_of_jsbytes("darkmagenta"), + cst_darkolivegreen$0=caml_string_of_jsbytes("darkolivegreen"), + cst_darkorange$0=caml_string_of_jsbytes("darkorange"), + cst_darkorchid$0=caml_string_of_jsbytes("darkorchid"), + cst_darkred$0=caml_string_of_jsbytes("darkred"), + cst_darksalmon$0=caml_string_of_jsbytes("darksalmon"), + cst_darkseagreen$0=caml_string_of_jsbytes("darkseagreen"), + cst_darkslateblue$0=caml_string_of_jsbytes("darkslateblue"), + cst_greenyellow$0=caml_string_of_jsbytes("greenyellow"), + cst_floralwhite$0=caml_string_of_jsbytes("floralwhite"), + cst_darkslategrey$0=caml_string_of_jsbytes("darkslategrey"), + cst_darkturquoise$0=caml_string_of_jsbytes("darkturquoise"), + cst_darkviolet$0=caml_string_of_jsbytes("darkviolet"), + cst_deeppink$0=caml_string_of_jsbytes("deeppink"), + cst_deepskyblue$0=caml_string_of_jsbytes("deepskyblue"), + cst_dimgray$0=caml_string_of_jsbytes("dimgray"), + cst_dimgrey$0=caml_string_of_jsbytes("dimgrey"), + cst_dodgerblue$0=caml_string_of_jsbytes("dodgerblue"), + cst_firebrick$0=caml_string_of_jsbytes("firebrick"), + cst_forestgreen$0=caml_string_of_jsbytes("forestgreen"), + cst_fuchsia$0=caml_string_of_jsbytes("fuchsia"), + cst_gainsboro$0=caml_string_of_jsbytes("gainsboro"), + cst_ghostwhite$0=caml_string_of_jsbytes("ghostwhite"), + cst_gold$0=caml_string_of_jsbytes("gold"), + cst_goldenrod$0=caml_string_of_jsbytes("goldenrod"), + cst_gray$0=caml_string_of_jsbytes("gray"), + cst_green$0=caml_string_of_jsbytes("green"), + cst_lavenderblush$0=caml_string_of_jsbytes("lavenderblush"), + cst_grey$0=caml_string_of_jsbytes("grey"), + cst_honeydew$0=caml_string_of_jsbytes("honeydew"), + cst_hotpink$0=caml_string_of_jsbytes("hotpink"), + cst_indianred$0=caml_string_of_jsbytes("indianred"), + cst_indigo$0=caml_string_of_jsbytes("indigo"), + cst_ivory$0=caml_string_of_jsbytes("ivory"), + cst_khaki$0=caml_string_of_jsbytes("khaki"), + cst_lavender$0=caml_string_of_jsbytes("lavender"), + cst_lawngreen$0=caml_string_of_jsbytes("lawngreen"), + cst_lemonchiffon$0=caml_string_of_jsbytes("lemonchiffon"), + cst_lightblue$0=caml_string_of_jsbytes("lightblue"), + cst_lightcoral$0=caml_string_of_jsbytes("lightcoral"), + cst_lightcyan$0=caml_string_of_jsbytes("lightcyan"), + cst_lightgoldenrodyellow$0=caml_string_of_jsbytes("lightgoldenrodyellow"), + cst_lightgray$0=caml_string_of_jsbytes("lightgray"), + cst_lightgreen$0=caml_string_of_jsbytes("lightgreen"), + cst_paleturquoise$0=caml_string_of_jsbytes("paleturquoise"), + cst_mediumslateblue$0=caml_string_of_jsbytes("mediumslateblue"), + cst_limegreen$0=caml_string_of_jsbytes("limegreen"), + cst_lightpink$0=caml_string_of_jsbytes("lightpink"), + cst_lightsalmon$0=caml_string_of_jsbytes("lightsalmon"), + cst_lightseagreen$0=caml_string_of_jsbytes("lightseagreen"), + cst_lightskyblue$0=caml_string_of_jsbytes("lightskyblue"), + cst_lightslategray$0=caml_string_of_jsbytes("lightslategray"), + cst_lightslategrey$0=caml_string_of_jsbytes("lightslategrey"), + cst_lightsteelblue$0=caml_string_of_jsbytes("lightsteelblue"), + cst_lightyellow$0=caml_string_of_jsbytes("lightyellow"), + cst_lime$0=caml_string_of_jsbytes("lime"), + cst_linen$0=caml_string_of_jsbytes("linen"), + cst_magenta$0=caml_string_of_jsbytes("magenta"), + cst_maroon$0=caml_string_of_jsbytes("maroon"), + cst_mediumaquamarine$0=caml_string_of_jsbytes("mediumaquamarine"), + cst_mediumblue$0=caml_string_of_jsbytes("mediumblue"), + cst_mediumorchid$0=caml_string_of_jsbytes("mediumorchid"), + cst_mediumpurple$0=caml_string_of_jsbytes("mediumpurple"), + cst_mediumseagreen$0=caml_string_of_jsbytes("mediumseagreen"), + cst_navy$0=caml_string_of_jsbytes("navy"), + cst_mediumspringgreen$0=caml_string_of_jsbytes("mediumspringgreen"), + cst_mediumturquoise$0=caml_string_of_jsbytes("mediumturquoise"), + cst_mediumvioletred$0=caml_string_of_jsbytes("mediumvioletred"), + cst_midnightblue$0=caml_string_of_jsbytes("midnightblue"), + cst_mintcream$0=caml_string_of_jsbytes("mintcream"), + cst_mistyrose$0=caml_string_of_jsbytes("mistyrose"), + cst_moccasin$0=caml_string_of_jsbytes("moccasin"), + cst_navajowhite$0=caml_string_of_jsbytes("navajowhite"), + cst_oldlace$0=caml_string_of_jsbytes("oldlace"), + cst_olive$0=caml_string_of_jsbytes("olive"), + cst_olivedrab$0=caml_string_of_jsbytes("olivedrab"), + cst_orange$0=caml_string_of_jsbytes("orange"), + cst_orangered$0=caml_string_of_jsbytes("orangered"), + cst_orchid$0=caml_string_of_jsbytes("orchid"), + cst_palegoldenrod$0=caml_string_of_jsbytes("palegoldenrod"), + cst_palegreen$0=caml_string_of_jsbytes("palegreen"), + cst_skyblue$0=caml_string_of_jsbytes("skyblue"), + cst_rosybrown$0=caml_string_of_jsbytes("rosybrown"), + cst_palevioletred$0=caml_string_of_jsbytes("palevioletred"), + cst_papayawhip$0=caml_string_of_jsbytes("papayawhip"), + cst_peachpuff$0=caml_string_of_jsbytes("peachpuff"), + cst_peru$0=caml_string_of_jsbytes("peru"), + cst_pink$0=caml_string_of_jsbytes("pink"), + cst_plum$0=caml_string_of_jsbytes("plum"), + cst_powderblue$0=caml_string_of_jsbytes("powderblue"), + cst_purple$0=caml_string_of_jsbytes("purple"), + cst_red$0=caml_string_of_jsbytes("red"), + cst_royalblue$0=caml_string_of_jsbytes("royalblue"), + cst_saddlebrown$0=caml_string_of_jsbytes("saddlebrown"), + cst_salmon$0=caml_string_of_jsbytes("salmon"), + cst_sandybrown$0=caml_string_of_jsbytes("sandybrown"), + cst_seagreen$0=caml_string_of_jsbytes("seagreen"), + cst_seashell$0=caml_string_of_jsbytes("seashell"), + cst_sienna$0=caml_string_of_jsbytes("sienna"), + cst_silver$0=caml_string_of_jsbytes("silver"), + cst_thistle$0=caml_string_of_jsbytes("thistle"), + cst_slateblue$0=caml_string_of_jsbytes("slateblue"), + cst_slategray$0=caml_string_of_jsbytes("slategray"), + cst_slategrey$0=caml_string_of_jsbytes("slategrey"), + cst_snow$0=caml_string_of_jsbytes("snow"), + cst_springgreen$0=caml_string_of_jsbytes("springgreen"), + cst_steelblue$0=caml_string_of_jsbytes("steelblue"), + cst_tan$0=caml_string_of_jsbytes("tan"), + cst_teal$0=caml_string_of_jsbytes("teal"), + cst_tomato$0=caml_string_of_jsbytes("tomato"), + cst_turquoise$0=caml_string_of_jsbytes("turquoise"), + cst_violet$0=caml_string_of_jsbytes("violet"), + cst_wheat$0=caml_string_of_jsbytes("wheat"), + cst_white$0=caml_string_of_jsbytes("white"), + cst_whitesmoke$0=caml_string_of_jsbytes("whitesmoke"), + cst_yellow$0=caml_string_of_jsbytes("yellow"), + cst_yellowgreen$0=caml_string_of_jsbytes("yellowgreen"), cst_is_not_a_valid_color_name= - caml_new_string(" is not a valid color name"), - cst_aliceblue=caml_new_string("aliceblue"), - cst_antiquewhite=caml_new_string("antiquewhite"), - cst_aqua=caml_new_string("aqua"), - cst_aquamarine=caml_new_string("aquamarine"), - cst_azure=caml_new_string("azure"), - cst_beige=caml_new_string("beige"), - cst_bisque=caml_new_string("bisque"), - cst_black=caml_new_string("black"), - cst_blanchedalmond=caml_new_string("blanchedalmond"), - cst_blue=caml_new_string("blue"), - cst_blueviolet=caml_new_string("blueviolet"), - cst_brown=caml_new_string("brown"), - cst_burlywood=caml_new_string("burlywood"), - cst_cadetblue=caml_new_string("cadetblue"), - cst_chartreuse=caml_new_string("chartreuse"), - cst_chocolate=caml_new_string("chocolate"), - cst_coral=caml_new_string("coral"), - cst_cornflowerblue=caml_new_string("cornflowerblue"), - cst_cornsilk=caml_new_string("cornsilk"), - cst_crimson=caml_new_string("crimson"), - cst_cyan=caml_new_string("cyan"), - cst_darkblue=caml_new_string("darkblue"), - cst_darkcyan=caml_new_string("darkcyan"), - cst_darkgoldenrod=caml_new_string("darkgoldenrod"), - cst_darkgray=caml_new_string("darkgray"), - cst_darkgreen=caml_new_string("darkgreen"), - cst_darkgrey=caml_new_string("darkgrey"), - cst_darkkhaki=caml_new_string("darkkhaki"), - cst_darkmagenta=caml_new_string("darkmagenta"), - cst_darkolivegreen=caml_new_string("darkolivegreen"), - cst_darkorange=caml_new_string("darkorange"), - cst_darkorchid=caml_new_string("darkorchid"), - cst_darkred=caml_new_string("darkred"), - cst_darksalmon=caml_new_string("darksalmon"), - cst_darkseagreen=caml_new_string("darkseagreen"), - cst_darkslateblue=caml_new_string("darkslateblue"), - cst_darkslategray=caml_new_string("darkslategray"), - cst_darkslategrey=caml_new_string("darkslategrey"), - cst_darkturquoise=caml_new_string("darkturquoise"), - cst_darkviolet=caml_new_string("darkviolet"), - cst_deeppink=caml_new_string("deeppink"), - cst_deepskyblue=caml_new_string("deepskyblue"), - cst_dimgray=caml_new_string("dimgray"), - cst_dimgrey=caml_new_string("dimgrey"), - cst_dodgerblue=caml_new_string("dodgerblue"), - cst_firebrick=caml_new_string("firebrick"), - cst_floralwhite=caml_new_string("floralwhite"), - cst_forestgreen=caml_new_string("forestgreen"), - cst_fuchsia=caml_new_string("fuchsia"), - cst_gainsboro=caml_new_string("gainsboro"), - cst_ghostwhite=caml_new_string("ghostwhite"), - cst_gold=caml_new_string("gold"), - cst_goldenrod=caml_new_string("goldenrod"), - cst_gray=caml_new_string("gray"), - cst_grey=caml_new_string("grey"), - cst_green=caml_new_string("green"), - cst_greenyellow=caml_new_string("greenyellow"), - cst_honeydew=caml_new_string("honeydew"), - cst_hotpink=caml_new_string("hotpink"), - cst_indianred=caml_new_string("indianred"), - cst_indigo=caml_new_string("indigo"), - cst_ivory=caml_new_string("ivory"), - cst_khaki=caml_new_string("khaki"), - cst_lavender=caml_new_string("lavender"), - cst_lavenderblush=caml_new_string("lavenderblush"), - cst_lawngreen=caml_new_string("lawngreen"), - cst_lemonchiffon=caml_new_string("lemonchiffon"), - cst_lightblue=caml_new_string("lightblue"), - cst_lightcoral=caml_new_string("lightcoral"), - cst_lightcyan=caml_new_string("lightcyan"), - cst_lightgoldenrodyellow=caml_new_string("lightgoldenrodyellow"), - cst_lightgray=caml_new_string("lightgray"), - cst_lightgreen=caml_new_string("lightgreen"), - cst_lightgrey=caml_new_string("lightgrey"), - cst_lightpink=caml_new_string("lightpink"), - cst_lightsalmon=caml_new_string("lightsalmon"), - cst_lightseagreen=caml_new_string("lightseagreen"), - cst_lightskyblue=caml_new_string("lightskyblue"), - cst_lightslategray=caml_new_string("lightslategray"), - cst_lightslategrey=caml_new_string("lightslategrey"), - cst_lightsteelblue=caml_new_string("lightsteelblue"), - cst_lightyellow=caml_new_string("lightyellow"), - cst_lime=caml_new_string("lime"), - cst_limegreen=caml_new_string("limegreen"), - cst_linen=caml_new_string("linen"), - cst_magenta=caml_new_string("magenta"), - cst_maroon=caml_new_string("maroon"), - cst_mediumaquamarine=caml_new_string("mediumaquamarine"), - cst_mediumblue=caml_new_string("mediumblue"), - cst_mediumorchid=caml_new_string("mediumorchid"), - cst_mediumpurple=caml_new_string("mediumpurple"), - cst_mediumseagreen=caml_new_string("mediumseagreen"), - cst_mediumslateblue=caml_new_string("mediumslateblue"), - cst_mediumspringgreen=caml_new_string("mediumspringgreen"), - cst_mediumturquoise=caml_new_string("mediumturquoise"), - cst_mediumvioletred=caml_new_string("mediumvioletred"), - cst_midnightblue=caml_new_string("midnightblue"), - cst_mintcream=caml_new_string("mintcream"), - cst_mistyrose=caml_new_string("mistyrose"), - cst_moccasin=caml_new_string("moccasin"), - cst_navajowhite=caml_new_string("navajowhite"), - cst_navy=caml_new_string("navy"), - cst_oldlace=caml_new_string("oldlace"), - cst_olive=caml_new_string("olive"), - cst_olivedrab=caml_new_string("olivedrab"), - cst_orange=caml_new_string("orange"), - cst_orangered=caml_new_string("orangered"), - cst_orchid=caml_new_string("orchid"), - cst_palegoldenrod=caml_new_string("palegoldenrod"), - cst_palegreen=caml_new_string("palegreen"), - cst_paleturquoise=caml_new_string("paleturquoise"), - cst_palevioletred=caml_new_string("palevioletred"), - cst_papayawhip=caml_new_string("papayawhip"), - cst_peachpuff=caml_new_string("peachpuff"), - cst_peru=caml_new_string("peru"), - cst_pink=caml_new_string("pink"), - cst_plum=caml_new_string("plum"), - cst_powderblue=caml_new_string("powderblue"), - cst_purple=caml_new_string("purple"), - cst_red=caml_new_string("red"), - cst_rosybrown=caml_new_string("rosybrown"), - cst_royalblue=caml_new_string("royalblue"), - cst_saddlebrown=caml_new_string("saddlebrown"), - cst_salmon=caml_new_string("salmon"), - cst_sandybrown=caml_new_string("sandybrown"), - cst_seagreen=caml_new_string("seagreen"), - cst_seashell=caml_new_string("seashell"), - cst_sienna=caml_new_string("sienna"), - cst_silver=caml_new_string("silver"), - cst_skyblue=caml_new_string("skyblue"), - cst_slateblue=caml_new_string("slateblue"), - cst_slategray=caml_new_string("slategray"), - cst_slategrey=caml_new_string("slategrey"), - cst_snow=caml_new_string("snow"), - cst_springgreen=caml_new_string("springgreen"), - cst_steelblue=caml_new_string("steelblue"), - cst_tan=caml_new_string("tan"), - cst_teal=caml_new_string("teal"), - cst_thistle=caml_new_string("thistle"), - cst_tomato=caml_new_string("tomato"), - cst_turquoise=caml_new_string("turquoise"), - cst_violet=caml_new_string("violet"), - cst_wheat=caml_new_string("wheat"), - cst_white=caml_new_string("white"), - cst_whitesmoke=caml_new_string("whitesmoke"), - cst_yellow=caml_new_string("yellow"), - cst_yellowgreen=caml_new_string("yellowgreen"), - cst_vkern$0=caml_new_string("vkern"), - cst_view$0=caml_new_string("view"), - cst_use$0=caml_new_string("use"), - cst_tspan$0=caml_new_string("tspan"), - cst_tref$0=caml_new_string("tref"), - cst_title$3=caml_new_string("title"), - cst_textpath$0=caml_new_string("textpath"), - cst_text$1=caml_new_string("text"), - cst_symbol$0=caml_new_string("symbol"), - cst_switch$0=caml_new_string("switch"), - cst_svg$0=caml_new_string("svg"), - cst_style$3=caml_new_string("style"), - cst_stop$0=caml_new_string("stop"), - cst_set$0=caml_new_string("set"), - cst_script$3=caml_new_string("script"), - cst_rect$0=caml_new_string("rect"), - cst_radialgradient$0=caml_new_string("radialgradient"), - cst_polyline$0=caml_new_string("polyline"), - cst_polygon$0=caml_new_string("polygon"), - cst_pattern$0=caml_new_string("pattern"), - cst_path$0=caml_new_string("path"), - cst_mpath$0=caml_new_string("mpath"), - cst_missing_glyph$0=caml_new_string("missing-glyph"), - cst_metadata$0=caml_new_string("metadata"), - cst_mask$0=caml_new_string("mask"), - cst_lineargradient$0=caml_new_string("lineargradient"), - cst_line$0=caml_new_string("line"), - cst_image$0=caml_new_string("image"), - cst_hkern$0=caml_new_string("hkern"), - cst_glyphref$0=caml_new_string("glyphref"), - cst_glyph$0=caml_new_string("glyph"), - cst_g$1=caml_new_string("g"), - cst_foreignobject=caml_new_string("foreignobject"), - cst_font_face_uri$0=caml_new_string("font-face-uri"), - cst_font_face_src$0=caml_new_string("font-face-src"), - cst_font_face_name$0=caml_new_string("font-face-name"), - cst_font_face_format$0=caml_new_string("font-face-format"), - cst_font_face$0=caml_new_string("font-face"), - cst_font$0=caml_new_string("font"), - cst_filter$0=caml_new_string("filter"), - cst_ellipse$0=caml_new_string("ellipse"), - cst_desc$0=caml_new_string("desc"), - cst_defs$0=caml_new_string("defs"), - cst_cursor$0=caml_new_string("cursor"), - cst_clippath$0=caml_new_string("clippath"), - cst_circle$0=caml_new_string("circle"), - cst_animatetransform$0=caml_new_string("animatetransform"), - cst_animatemotion$0=caml_new_string("animatemotion"), - cst_animatecolor$0=caml_new_string("animatecolor"), - cst_animate$0=caml_new_string("animate"), - cst_altglyphitem$0=caml_new_string("altglyphitem"), - cst_altglyphdef$0=caml_new_string("altglyphdef"), - cst_altglyph$0=caml_new_string("altglyph"), - cst_a$3=caml_new_string("a"), - cst_vkern=caml_new_string("vkern"), - cst_view=caml_new_string("view"), - cst_use=caml_new_string("use"), - cst_tspan=caml_new_string("tspan"), - cst_tref=caml_new_string("tref"), - cst_title$2=caml_new_string("title"), - cst_textpath=caml_new_string("textpath"), - cst_text$0=caml_new_string("text"), - cst_symbol=caml_new_string("symbol"), - cst_switch=caml_new_string("switch"), - cst_svg=caml_new_string("svg"), - cst_style$2=caml_new_string("style"), - cst_stop=caml_new_string("stop"), - cst_set=caml_new_string("set"), - cst_script$2=caml_new_string("script"), - cst_rect=caml_new_string("rect"), - cst_radialgradient=caml_new_string("radialgradient"), - cst_polyline=caml_new_string("polyline"), - cst_polygon=caml_new_string("polygon"), - cst_pattern=caml_new_string("pattern"), - cst_path=caml_new_string("path"), - cst_mpath=caml_new_string("mpath"), - cst_missing_glyph=caml_new_string("missing-glyph"), - cst_metadata=caml_new_string("metadata"), - cst_mask=caml_new_string("mask"), - cst_lineargradient=caml_new_string("lineargradient"), - cst_line=caml_new_string("line"), - cst_image=caml_new_string("image"), - cst_hkern=caml_new_string("hkern"), - cst_glyphref=caml_new_string("glyphref"), - cst_glyph=caml_new_string("glyph"), - cst_g$0=caml_new_string("g"), - cst_foreignObject=caml_new_string("foreignObject"), - cst_font_face_uri=caml_new_string("font-face-uri"), - cst_font_face_src=caml_new_string("font-face-src"), - cst_font_face_name=caml_new_string("font-face-name"), - cst_font_face_format=caml_new_string("font-face-format"), - cst_font_face=caml_new_string("font-face"), - cst_font=caml_new_string("font"), - cst_filter=caml_new_string("filter"), - cst_ellipse=caml_new_string("ellipse"), - cst_desc=caml_new_string("desc"), - cst_defs=caml_new_string("defs"), - cst_cursor=caml_new_string("cursor"), - cst_clippath=caml_new_string("clippath"), - cst_circle=caml_new_string("circle"), - cst_animatetransform=caml_new_string("animatetransform"), - cst_animatemotion=caml_new_string("animatemotion"), - cst_animatecolor=caml_new_string("animatecolor"), - cst_animate=caml_new_string("animate"), - cst_altglyphitem=caml_new_string("altglyphitem"), - cst_altglyphdef=caml_new_string("altglyphdef"), - cst_altglyph=caml_new_string("altglyph"), - cst_a$2=caml_new_string("a"), - cst_Js_of_ocaml_Dom_svg_SVGError= - caml_new_string("Js_of_ocaml__Dom_svg.SVGError"), + caml_string_of_jsbytes(" is not a valid color name"), + cst_aliceblue=caml_string_of_jsbytes("aliceblue"), + cst_antiquewhite=caml_string_of_jsbytes("antiquewhite"), + cst_aqua=caml_string_of_jsbytes("aqua"), + cst_aquamarine=caml_string_of_jsbytes("aquamarine"), + cst_azure=caml_string_of_jsbytes("azure"), + cst_beige=caml_string_of_jsbytes("beige"), + cst_bisque=caml_string_of_jsbytes("bisque"), + cst_black=caml_string_of_jsbytes("black"), + cst_blanchedalmond=caml_string_of_jsbytes("blanchedalmond"), + cst_blue=caml_string_of_jsbytes("blue"), + cst_blueviolet=caml_string_of_jsbytes("blueviolet"), + cst_brown=caml_string_of_jsbytes("brown"), + cst_burlywood=caml_string_of_jsbytes("burlywood"), + cst_cadetblue=caml_string_of_jsbytes("cadetblue"), + cst_chartreuse=caml_string_of_jsbytes("chartreuse"), + cst_chocolate=caml_string_of_jsbytes("chocolate"), + cst_coral=caml_string_of_jsbytes("coral"), + cst_cornflowerblue=caml_string_of_jsbytes("cornflowerblue"), + cst_cornsilk=caml_string_of_jsbytes("cornsilk"), + cst_crimson=caml_string_of_jsbytes("crimson"), + cst_cyan=caml_string_of_jsbytes("cyan"), + cst_darkblue=caml_string_of_jsbytes("darkblue"), + cst_darkcyan=caml_string_of_jsbytes("darkcyan"), + cst_darkgoldenrod=caml_string_of_jsbytes("darkgoldenrod"), + cst_darkgray=caml_string_of_jsbytes("darkgray"), + cst_darkgreen=caml_string_of_jsbytes("darkgreen"), + cst_darkgrey=caml_string_of_jsbytes("darkgrey"), + cst_darkkhaki=caml_string_of_jsbytes("darkkhaki"), + cst_darkmagenta=caml_string_of_jsbytes("darkmagenta"), + cst_darkolivegreen=caml_string_of_jsbytes("darkolivegreen"), + cst_darkorange=caml_string_of_jsbytes("darkorange"), + cst_darkorchid=caml_string_of_jsbytes("darkorchid"), + cst_darkred=caml_string_of_jsbytes("darkred"), + cst_darksalmon=caml_string_of_jsbytes("darksalmon"), + cst_darkseagreen=caml_string_of_jsbytes("darkseagreen"), + cst_darkslateblue=caml_string_of_jsbytes("darkslateblue"), + cst_darkslategray=caml_string_of_jsbytes("darkslategray"), + cst_darkslategrey=caml_string_of_jsbytes("darkslategrey"), + cst_darkturquoise=caml_string_of_jsbytes("darkturquoise"), + cst_darkviolet=caml_string_of_jsbytes("darkviolet"), + cst_deeppink=caml_string_of_jsbytes("deeppink"), + cst_deepskyblue=caml_string_of_jsbytes("deepskyblue"), + cst_dimgray=caml_string_of_jsbytes("dimgray"), + cst_dimgrey=caml_string_of_jsbytes("dimgrey"), + cst_dodgerblue=caml_string_of_jsbytes("dodgerblue"), + cst_firebrick=caml_string_of_jsbytes("firebrick"), + cst_floralwhite=caml_string_of_jsbytes("floralwhite"), + cst_forestgreen=caml_string_of_jsbytes("forestgreen"), + cst_fuchsia=caml_string_of_jsbytes("fuchsia"), + cst_gainsboro=caml_string_of_jsbytes("gainsboro"), + cst_ghostwhite=caml_string_of_jsbytes("ghostwhite"), + cst_gold=caml_string_of_jsbytes("gold"), + cst_goldenrod=caml_string_of_jsbytes("goldenrod"), + cst_gray=caml_string_of_jsbytes("gray"), + cst_grey=caml_string_of_jsbytes("grey"), + cst_green=caml_string_of_jsbytes("green"), + cst_greenyellow=caml_string_of_jsbytes("greenyellow"), + cst_honeydew=caml_string_of_jsbytes("honeydew"), + cst_hotpink=caml_string_of_jsbytes("hotpink"), + cst_indianred=caml_string_of_jsbytes("indianred"), + cst_indigo=caml_string_of_jsbytes("indigo"), + cst_ivory=caml_string_of_jsbytes("ivory"), + cst_khaki=caml_string_of_jsbytes("khaki"), + cst_lavender=caml_string_of_jsbytes("lavender"), + cst_lavenderblush=caml_string_of_jsbytes("lavenderblush"), + cst_lawngreen=caml_string_of_jsbytes("lawngreen"), + cst_lemonchiffon=caml_string_of_jsbytes("lemonchiffon"), + cst_lightblue=caml_string_of_jsbytes("lightblue"), + cst_lightcoral=caml_string_of_jsbytes("lightcoral"), + cst_lightcyan=caml_string_of_jsbytes("lightcyan"), + cst_lightgoldenrodyellow=caml_string_of_jsbytes("lightgoldenrodyellow"), + cst_lightgray=caml_string_of_jsbytes("lightgray"), + cst_lightgreen=caml_string_of_jsbytes("lightgreen"), + cst_lightgrey=caml_string_of_jsbytes("lightgrey"), + cst_lightpink=caml_string_of_jsbytes("lightpink"), + cst_lightsalmon=caml_string_of_jsbytes("lightsalmon"), + cst_lightseagreen=caml_string_of_jsbytes("lightseagreen"), + cst_lightskyblue=caml_string_of_jsbytes("lightskyblue"), + cst_lightslategray=caml_string_of_jsbytes("lightslategray"), + cst_lightslategrey=caml_string_of_jsbytes("lightslategrey"), + cst_lightsteelblue=caml_string_of_jsbytes("lightsteelblue"), + cst_lightyellow=caml_string_of_jsbytes("lightyellow"), + cst_lime=caml_string_of_jsbytes("lime"), + cst_limegreen=caml_string_of_jsbytes("limegreen"), + cst_linen=caml_string_of_jsbytes("linen"), + cst_magenta=caml_string_of_jsbytes("magenta"), + cst_maroon=caml_string_of_jsbytes("maroon"), + cst_mediumaquamarine=caml_string_of_jsbytes("mediumaquamarine"), + cst_mediumblue=caml_string_of_jsbytes("mediumblue"), + cst_mediumorchid=caml_string_of_jsbytes("mediumorchid"), + cst_mediumpurple=caml_string_of_jsbytes("mediumpurple"), + cst_mediumseagreen=caml_string_of_jsbytes("mediumseagreen"), + cst_mediumslateblue=caml_string_of_jsbytes("mediumslateblue"), + cst_mediumspringgreen=caml_string_of_jsbytes("mediumspringgreen"), + cst_mediumturquoise=caml_string_of_jsbytes("mediumturquoise"), + cst_mediumvioletred=caml_string_of_jsbytes("mediumvioletred"), + cst_midnightblue=caml_string_of_jsbytes("midnightblue"), + cst_mintcream=caml_string_of_jsbytes("mintcream"), + cst_mistyrose=caml_string_of_jsbytes("mistyrose"), + cst_moccasin=caml_string_of_jsbytes("moccasin"), + cst_navajowhite=caml_string_of_jsbytes("navajowhite"), + cst_navy=caml_string_of_jsbytes("navy"), + cst_oldlace=caml_string_of_jsbytes("oldlace"), + cst_olive=caml_string_of_jsbytes("olive"), + cst_olivedrab=caml_string_of_jsbytes("olivedrab"), + cst_orange=caml_string_of_jsbytes("orange"), + cst_orangered=caml_string_of_jsbytes("orangered"), + cst_orchid=caml_string_of_jsbytes("orchid"), + cst_palegoldenrod=caml_string_of_jsbytes("palegoldenrod"), + cst_palegreen=caml_string_of_jsbytes("palegreen"), + cst_paleturquoise=caml_string_of_jsbytes("paleturquoise"), + cst_palevioletred=caml_string_of_jsbytes("palevioletred"), + cst_papayawhip=caml_string_of_jsbytes("papayawhip"), + cst_peachpuff=caml_string_of_jsbytes("peachpuff"), + cst_peru=caml_string_of_jsbytes("peru"), + cst_pink=caml_string_of_jsbytes("pink"), + cst_plum=caml_string_of_jsbytes("plum"), + cst_powderblue=caml_string_of_jsbytes("powderblue"), + cst_purple=caml_string_of_jsbytes("purple"), + cst_red=caml_string_of_jsbytes("red"), + cst_rosybrown=caml_string_of_jsbytes("rosybrown"), + cst_royalblue=caml_string_of_jsbytes("royalblue"), + cst_saddlebrown=caml_string_of_jsbytes("saddlebrown"), + cst_salmon=caml_string_of_jsbytes("salmon"), + cst_sandybrown=caml_string_of_jsbytes("sandybrown"), + cst_seagreen=caml_string_of_jsbytes("seagreen"), + cst_seashell=caml_string_of_jsbytes("seashell"), + cst_sienna=caml_string_of_jsbytes("sienna"), + cst_silver=caml_string_of_jsbytes("silver"), + cst_skyblue=caml_string_of_jsbytes("skyblue"), + cst_slateblue=caml_string_of_jsbytes("slateblue"), + cst_slategray=caml_string_of_jsbytes("slategray"), + cst_slategrey=caml_string_of_jsbytes("slategrey"), + cst_snow=caml_string_of_jsbytes("snow"), + cst_springgreen=caml_string_of_jsbytes("springgreen"), + cst_steelblue=caml_string_of_jsbytes("steelblue"), + cst_tan=caml_string_of_jsbytes("tan"), + cst_teal=caml_string_of_jsbytes("teal"), + cst_thistle=caml_string_of_jsbytes("thistle"), + cst_tomato=caml_string_of_jsbytes("tomato"), + cst_turquoise=caml_string_of_jsbytes("turquoise"), + cst_violet=caml_string_of_jsbytes("violet"), + cst_wheat=caml_string_of_jsbytes("wheat"), + cst_white=caml_string_of_jsbytes("white"), + cst_whitesmoke=caml_string_of_jsbytes("whitesmoke"), + cst_yellow=caml_string_of_jsbytes("yellow"), + cst_yellowgreen=caml_string_of_jsbytes("yellowgreen"), + cst_vkern$0=caml_string_of_jsbytes("vkern"), + cst_view$0=caml_string_of_jsbytes("view"), + cst_use$0=caml_string_of_jsbytes("use"), + cst_tspan$0=caml_string_of_jsbytes("tspan"), + cst_tref$0=caml_string_of_jsbytes("tref"), + cst_title$3=caml_string_of_jsbytes("title"), + cst_textpath$0=caml_string_of_jsbytes("textpath"), + cst_text$1=caml_string_of_jsbytes("text"), + cst_symbol$0=caml_string_of_jsbytes("symbol"), + cst_switch$0=caml_string_of_jsbytes("switch"), + cst_svg$0=caml_string_of_jsbytes("svg"), + cst_style$3=caml_string_of_jsbytes("style"), + cst_stop$0=caml_string_of_jsbytes("stop"), + cst_set$0=caml_string_of_jsbytes("set"), + cst_script$3=caml_string_of_jsbytes("script"), + cst_rect$0=caml_string_of_jsbytes("rect"), + cst_radialgradient$0=caml_string_of_jsbytes("radialgradient"), + cst_polyline$0=caml_string_of_jsbytes("polyline"), + cst_polygon$0=caml_string_of_jsbytes("polygon"), + cst_pattern$0=caml_string_of_jsbytes("pattern"), + cst_path$0=caml_string_of_jsbytes("path"), + cst_mpath$0=caml_string_of_jsbytes("mpath"), + cst_missing_glyph$0=caml_string_of_jsbytes("missing-glyph"), + cst_metadata$0=caml_string_of_jsbytes("metadata"), + cst_mask$0=caml_string_of_jsbytes("mask"), + cst_lineargradient$0=caml_string_of_jsbytes("lineargradient"), + cst_line$0=caml_string_of_jsbytes("line"), + cst_image$0=caml_string_of_jsbytes("image"), + cst_hkern$0=caml_string_of_jsbytes("hkern"), + cst_glyphref$0=caml_string_of_jsbytes("glyphref"), + cst_glyph$0=caml_string_of_jsbytes("glyph"), + cst_g$1=caml_string_of_jsbytes("g"), + cst_foreignobject=caml_string_of_jsbytes("foreignobject"), + cst_font_face_uri$0=caml_string_of_jsbytes("font-face-uri"), + cst_font_face_src$0=caml_string_of_jsbytes("font-face-src"), + cst_font_face_name$0=caml_string_of_jsbytes("font-face-name"), + cst_font_face_format$0=caml_string_of_jsbytes("font-face-format"), + cst_font_face$0=caml_string_of_jsbytes("font-face"), + cst_font$0=caml_string_of_jsbytes("font"), + cst_filter$0=caml_string_of_jsbytes("filter"), + cst_ellipse$0=caml_string_of_jsbytes("ellipse"), + cst_desc$0=caml_string_of_jsbytes("desc"), + cst_defs$0=caml_string_of_jsbytes("defs"), + cst_cursor$0=caml_string_of_jsbytes("cursor"), + cst_clippath$0=caml_string_of_jsbytes("clippath"), + cst_circle$0=caml_string_of_jsbytes("circle"), + cst_animatetransform$0=caml_string_of_jsbytes("animatetransform"), + cst_animatemotion$0=caml_string_of_jsbytes("animatemotion"), + cst_animatecolor$0=caml_string_of_jsbytes("animatecolor"), + cst_animate$0=caml_string_of_jsbytes("animate"), + cst_altglyphitem$0=caml_string_of_jsbytes("altglyphitem"), + cst_altglyphdef$0=caml_string_of_jsbytes("altglyphdef"), + cst_altglyph$0=caml_string_of_jsbytes("altglyph"), + cst_a$3=caml_string_of_jsbytes("a"), + cst_vkern=caml_string_of_jsbytes("vkern"), + cst_view=caml_string_of_jsbytes("view"), + cst_use=caml_string_of_jsbytes("use"), + cst_tspan=caml_string_of_jsbytes("tspan"), + cst_tref=caml_string_of_jsbytes("tref"), + cst_title$2=caml_string_of_jsbytes("title"), + cst_textpath=caml_string_of_jsbytes("textpath"), + cst_text$0=caml_string_of_jsbytes("text"), + cst_symbol=caml_string_of_jsbytes("symbol"), + cst_switch=caml_string_of_jsbytes("switch"), + cst_svg=caml_string_of_jsbytes("svg"), + cst_style$2=caml_string_of_jsbytes("style"), + cst_stop=caml_string_of_jsbytes("stop"), + cst_set=caml_string_of_jsbytes("set"), + cst_script$2=caml_string_of_jsbytes("script"), + cst_rect=caml_string_of_jsbytes("rect"), + cst_radialgradient=caml_string_of_jsbytes("radialgradient"), + cst_polyline=caml_string_of_jsbytes("polyline"), + cst_polygon=caml_string_of_jsbytes("polygon"), + cst_pattern=caml_string_of_jsbytes("pattern"), + cst_path=caml_string_of_jsbytes("path"), + cst_mpath=caml_string_of_jsbytes("mpath"), + cst_missing_glyph=caml_string_of_jsbytes("missing-glyph"), + cst_metadata=caml_string_of_jsbytes("metadata"), + cst_mask=caml_string_of_jsbytes("mask"), + cst_lineargradient=caml_string_of_jsbytes("lineargradient"), + cst_line=caml_string_of_jsbytes("line"), + cst_image=caml_string_of_jsbytes("image"), + cst_hkern=caml_string_of_jsbytes("hkern"), + cst_glyphref=caml_string_of_jsbytes("glyphref"), + cst_glyph=caml_string_of_jsbytes("glyph"), + cst_g$0=caml_string_of_jsbytes("g"), + cst_foreignObject=caml_string_of_jsbytes("foreignObject"), + cst_font_face_uri=caml_string_of_jsbytes("font-face-uri"), + cst_font_face_src=caml_string_of_jsbytes("font-face-src"), + cst_font_face_name=caml_string_of_jsbytes("font-face-name"), + cst_font_face_format=caml_string_of_jsbytes("font-face-format"), + cst_font_face=caml_string_of_jsbytes("font-face"), + cst_font=caml_string_of_jsbytes("font"), + cst_filter=caml_string_of_jsbytes("filter"), + cst_ellipse=caml_string_of_jsbytes("ellipse"), + cst_desc=caml_string_of_jsbytes("desc"), + cst_defs=caml_string_of_jsbytes("defs"), + cst_cursor=caml_string_of_jsbytes("cursor"), + cst_clippath=caml_string_of_jsbytes("clippath"), + cst_circle=caml_string_of_jsbytes("circle"), + cst_animatetransform=caml_string_of_jsbytes("animatetransform"), + cst_animatemotion=caml_string_of_jsbytes("animatemotion"), + cst_animatecolor=caml_string_of_jsbytes("animatecolor"), + cst_animate=caml_string_of_jsbytes("animate"), + cst_altglyphitem=caml_string_of_jsbytes("altglyphitem"), + cst_altglyphdef=caml_string_of_jsbytes("altglyphdef"), + cst_altglyph=caml_string_of_jsbytes("altglyph"), + cst_a$2=caml_string_of_jsbytes("a"), + cst_Js_of_ocaml_Dom_svg_SVGErr= + caml_string_of_jsbytes("Js_of_ocaml__Dom_svg.SVGError"), Stdlib_string=global_data.Stdlib__string, Stdlib_char=global_data.Stdlib__char, Stdlib=global_data.Stdlib, @@ -25586,226 +28016,227 @@ Stdlib_uchar=global_data.Stdlib__uchar, Stdlib_printf=global_data.Stdlib__printf, Js_of_ocaml=[0]; - caml_register_global(1627,Js_of_ocaml,"Js_of_ocaml__"); + caml_register_global(1634,Js_of_ocaml,"Js_of_ocaml__"); var Poly=[0], - _d_=[0,caml_new_string("lib/js_of_ocaml/dom.ml"),351,67], - _e_=[0,caml_new_string("transparent")], - _f_=[0,caml_new_string("native")], - _j_=[0,caml_new_string("lib/js_of_ocaml/dom_html.ml"),2790,58], - _i_=[0,caml_new_string("lib/js_of_ocaml/dom_html.ml"),2789,61], + _d_=[0,caml_string_of_jsbytes("lib/js_of_ocaml/dom.ml"),351,67], + _e_=[0,caml_string_of_jsbytes("transparent")], + _f_=[0,caml_string_of_jsbytes("native")], + _j_=[0,caml_string_of_jsbytes("lib/js_of_ocaml/dom_html.ml"),2792,58], + _i_=[0,caml_string_of_jsbytes("lib/js_of_ocaml/dom_html.ml"),2791,61], _h_= [0, [11, - caml_new_string("getElementById_exn: "), - [3,0,[11,caml_new_string(" not found"),0]]], - caml_new_string("getElementById_exn: %S not found")], - _l_=[0,caml_new_string("lib/js_of_ocaml/form.ml"),177,13], + caml_string_of_jsbytes("getElementById_exn: "), + [3,0,[11,caml_string_of_jsbytes(" not found"),0]]], + caml_string_of_jsbytes("getElementById_exn: %S not found")], + _l_=[0,caml_string_of_jsbytes("lib/js_of_ocaml/form.ml"),177,13], _k_=[0,1], - _m_=[0,caml_new_string("lib/js_of_ocaml/xmlHttpRequest.ml"),129,75], - _n_=[0,caml_new_string("lib/js_of_ocaml/regexp.ml"),34,64], - _o_=[0,caml_new_string(""),0], - _ci_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _cj_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _ck_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _cl_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _b6_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _b7_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _b8_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _b9_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _b__=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _b$_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _ca_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _cb_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _cc_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _cd_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _ce_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _cf_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _cg_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], - _ch_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_new_string("%f%s")], + _m_= + [0,caml_string_of_jsbytes("lib/js_of_ocaml/xmlHttpRequest.ml"),129,75], + _n_=[0,caml_string_of_jsbytes("lib/js_of_ocaml/regexp.ml"),34,64], + _o_=[0,caml_string_of_jsbytes(""),0], + _ci_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _cj_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _ck_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _cl_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _b6_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _b7_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _b8_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _b9_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _b__=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _b$_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _ca_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _cb_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _cc_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _cd_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _ce_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _cf_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _cg_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], + _ch_=[0,[8,[0,0,0],0,0,[2,0,0]],caml_string_of_jsbytes("%f%s")], _b5_= caml_list_of_js_array - ([caml_new_string("aliceblue"), - caml_new_string("antiquewhite"), - caml_new_string("aqua"), - caml_new_string("aquamarine"), - caml_new_string("azure"), - caml_new_string("beige"), - caml_new_string("bisque"), - caml_new_string("black"), - caml_new_string("blanchedalmond"), - caml_new_string("blue"), - caml_new_string("blueviolet"), - caml_new_string("brown"), - caml_new_string("burlywood"), - caml_new_string("cadetblue"), - caml_new_string("chartreuse"), - caml_new_string("chocolate"), - caml_new_string("coral"), - caml_new_string("cornflowerblue"), - caml_new_string("cornsilk"), - caml_new_string("crimson"), - caml_new_string("cyan"), - caml_new_string("darkblue"), - caml_new_string("darkcyan"), - caml_new_string("darkgoldenrod"), - caml_new_string("darkgray"), - caml_new_string("darkgreen"), - caml_new_string("darkgrey"), - caml_new_string("darkkhaki"), - caml_new_string("darkmagenta"), - caml_new_string("darkolivegreen"), - caml_new_string("darkorange"), - caml_new_string("darkorchid"), - caml_new_string("darkred"), - caml_new_string("darksalmon"), - caml_new_string("darkseagreen"), - caml_new_string("darkslateblue"), - caml_new_string("darkslategray"), - caml_new_string("darkslategrey"), - caml_new_string("darkturquoise"), - caml_new_string("darkviolet"), - caml_new_string("deeppink"), - caml_new_string("deepskyblue"), - caml_new_string("dimgray"), - caml_new_string("dimgrey"), - caml_new_string("dodgerblue"), - caml_new_string("firebrick"), - caml_new_string("floralwhite"), - caml_new_string("forestgreen"), - caml_new_string("fuchsia"), - caml_new_string("gainsboro"), - caml_new_string("ghostwhite"), - caml_new_string("gold"), - caml_new_string("goldenrod"), - caml_new_string("gray"), - caml_new_string("green"), - caml_new_string("greenyellow"), - caml_new_string("grey"), - caml_new_string("honeydew"), - caml_new_string("hotpink"), - caml_new_string("indianred"), - caml_new_string("indigo"), - caml_new_string("ivory"), - caml_new_string("khaki"), - caml_new_string("lavender"), - caml_new_string("lavenderblush"), - caml_new_string("lawngreen"), - caml_new_string("lemonchiffon"), - caml_new_string("lightblue"), - caml_new_string("lightcoral"), - caml_new_string("lightcyan"), - caml_new_string("lightgoldenrodyellow"), - caml_new_string("lightgray"), - caml_new_string("lightgreen"), - caml_new_string("lightgrey"), - caml_new_string("lightpink"), - caml_new_string("lightsalmon"), - caml_new_string("lightseagreen"), - caml_new_string("lightskyblue"), - caml_new_string("lightslategray"), - caml_new_string("lightslategrey"), - caml_new_string("lightsteelblue"), - caml_new_string("lightyellow"), - caml_new_string("lime"), - caml_new_string("limegreen"), - caml_new_string("linen"), - caml_new_string("magenta"), - caml_new_string("maroon"), - caml_new_string("mediumaquamarine"), - caml_new_string("mediumblue"), - caml_new_string("mediumorchid"), - caml_new_string("mediumpurple"), - caml_new_string("mediumseagreen"), - caml_new_string("mediumslateblue"), - caml_new_string("mediumspringgreen"), - caml_new_string("mediumturquoise"), - caml_new_string("mediumvioletred"), - caml_new_string("midnightblue"), - caml_new_string("mintcream"), - caml_new_string("mistyrose"), - caml_new_string("moccasin"), - caml_new_string("navajowhite"), - caml_new_string("navy"), - caml_new_string("oldlace"), - caml_new_string("olive"), - caml_new_string("olivedrab"), - caml_new_string("orange"), - caml_new_string("orangered"), - caml_new_string("orchid"), - caml_new_string("palegoldenrod"), - caml_new_string("palegreen"), - caml_new_string("paleturquoise"), - caml_new_string("palevioletred"), - caml_new_string("papayawhip"), - caml_new_string("peachpuff"), - caml_new_string("peru"), - caml_new_string("pink"), - caml_new_string("plum"), - caml_new_string("powderblue"), - caml_new_string("purple"), - caml_new_string("red"), - caml_new_string("rosybrown"), - caml_new_string("royalblue"), - caml_new_string("saddlebrown"), - caml_new_string("salmon"), - caml_new_string("sandybrown"), - caml_new_string("seagreen"), - caml_new_string("seashell"), - caml_new_string("sienna"), - caml_new_string("silver"), - caml_new_string("skyblue"), - caml_new_string("slateblue"), - caml_new_string("slategray"), - caml_new_string("slategrey"), - caml_new_string("snow"), - caml_new_string("springgreen"), - caml_new_string("steelblue"), - caml_new_string("tan"), - caml_new_string("teal"), - caml_new_string("thistle"), - caml_new_string("tomato"), - caml_new_string("turquoise"), - caml_new_string("violet"), - caml_new_string("wheat"), - caml_new_string("white"), - caml_new_string("whitesmoke"), - caml_new_string("yellow"), - caml_new_string("yellowgreen")]), + ([caml_string_of_jsbytes("aliceblue"), + caml_string_of_jsbytes("antiquewhite"), + caml_string_of_jsbytes("aqua"), + caml_string_of_jsbytes("aquamarine"), + caml_string_of_jsbytes("azure"), + caml_string_of_jsbytes("beige"), + caml_string_of_jsbytes("bisque"), + caml_string_of_jsbytes("black"), + caml_string_of_jsbytes("blanchedalmond"), + caml_string_of_jsbytes("blue"), + caml_string_of_jsbytes("blueviolet"), + caml_string_of_jsbytes("brown"), + caml_string_of_jsbytes("burlywood"), + caml_string_of_jsbytes("cadetblue"), + caml_string_of_jsbytes("chartreuse"), + caml_string_of_jsbytes("chocolate"), + caml_string_of_jsbytes("coral"), + caml_string_of_jsbytes("cornflowerblue"), + caml_string_of_jsbytes("cornsilk"), + caml_string_of_jsbytes("crimson"), + caml_string_of_jsbytes("cyan"), + caml_string_of_jsbytes("darkblue"), + caml_string_of_jsbytes("darkcyan"), + caml_string_of_jsbytes("darkgoldenrod"), + caml_string_of_jsbytes("darkgray"), + caml_string_of_jsbytes("darkgreen"), + caml_string_of_jsbytes("darkgrey"), + caml_string_of_jsbytes("darkkhaki"), + caml_string_of_jsbytes("darkmagenta"), + caml_string_of_jsbytes("darkolivegreen"), + caml_string_of_jsbytes("darkorange"), + caml_string_of_jsbytes("darkorchid"), + caml_string_of_jsbytes("darkred"), + caml_string_of_jsbytes("darksalmon"), + caml_string_of_jsbytes("darkseagreen"), + caml_string_of_jsbytes("darkslateblue"), + caml_string_of_jsbytes("darkslategray"), + caml_string_of_jsbytes("darkslategrey"), + caml_string_of_jsbytes("darkturquoise"), + caml_string_of_jsbytes("darkviolet"), + caml_string_of_jsbytes("deeppink"), + caml_string_of_jsbytes("deepskyblue"), + caml_string_of_jsbytes("dimgray"), + caml_string_of_jsbytes("dimgrey"), + caml_string_of_jsbytes("dodgerblue"), + caml_string_of_jsbytes("firebrick"), + caml_string_of_jsbytes("floralwhite"), + caml_string_of_jsbytes("forestgreen"), + caml_string_of_jsbytes("fuchsia"), + caml_string_of_jsbytes("gainsboro"), + caml_string_of_jsbytes("ghostwhite"), + caml_string_of_jsbytes("gold"), + caml_string_of_jsbytes("goldenrod"), + caml_string_of_jsbytes("gray"), + caml_string_of_jsbytes("green"), + caml_string_of_jsbytes("greenyellow"), + caml_string_of_jsbytes("grey"), + caml_string_of_jsbytes("honeydew"), + caml_string_of_jsbytes("hotpink"), + caml_string_of_jsbytes("indianred"), + caml_string_of_jsbytes("indigo"), + caml_string_of_jsbytes("ivory"), + caml_string_of_jsbytes("khaki"), + caml_string_of_jsbytes("lavender"), + caml_string_of_jsbytes("lavenderblush"), + caml_string_of_jsbytes("lawngreen"), + caml_string_of_jsbytes("lemonchiffon"), + caml_string_of_jsbytes("lightblue"), + caml_string_of_jsbytes("lightcoral"), + caml_string_of_jsbytes("lightcyan"), + caml_string_of_jsbytes("lightgoldenrodyellow"), + caml_string_of_jsbytes("lightgray"), + caml_string_of_jsbytes("lightgreen"), + caml_string_of_jsbytes("lightgrey"), + caml_string_of_jsbytes("lightpink"), + caml_string_of_jsbytes("lightsalmon"), + caml_string_of_jsbytes("lightseagreen"), + caml_string_of_jsbytes("lightskyblue"), + caml_string_of_jsbytes("lightslategray"), + caml_string_of_jsbytes("lightslategrey"), + caml_string_of_jsbytes("lightsteelblue"), + caml_string_of_jsbytes("lightyellow"), + caml_string_of_jsbytes("lime"), + caml_string_of_jsbytes("limegreen"), + caml_string_of_jsbytes("linen"), + caml_string_of_jsbytes("magenta"), + caml_string_of_jsbytes("maroon"), + caml_string_of_jsbytes("mediumaquamarine"), + caml_string_of_jsbytes("mediumblue"), + caml_string_of_jsbytes("mediumorchid"), + caml_string_of_jsbytes("mediumpurple"), + caml_string_of_jsbytes("mediumseagreen"), + caml_string_of_jsbytes("mediumslateblue"), + caml_string_of_jsbytes("mediumspringgreen"), + caml_string_of_jsbytes("mediumturquoise"), + caml_string_of_jsbytes("mediumvioletred"), + caml_string_of_jsbytes("midnightblue"), + caml_string_of_jsbytes("mintcream"), + caml_string_of_jsbytes("mistyrose"), + caml_string_of_jsbytes("moccasin"), + caml_string_of_jsbytes("navajowhite"), + caml_string_of_jsbytes("navy"), + caml_string_of_jsbytes("oldlace"), + caml_string_of_jsbytes("olive"), + caml_string_of_jsbytes("olivedrab"), + caml_string_of_jsbytes("orange"), + caml_string_of_jsbytes("orangered"), + caml_string_of_jsbytes("orchid"), + caml_string_of_jsbytes("palegoldenrod"), + caml_string_of_jsbytes("palegreen"), + caml_string_of_jsbytes("paleturquoise"), + caml_string_of_jsbytes("palevioletred"), + caml_string_of_jsbytes("papayawhip"), + caml_string_of_jsbytes("peachpuff"), + caml_string_of_jsbytes("peru"), + caml_string_of_jsbytes("pink"), + caml_string_of_jsbytes("plum"), + caml_string_of_jsbytes("powderblue"), + caml_string_of_jsbytes("purple"), + caml_string_of_jsbytes("red"), + caml_string_of_jsbytes("rosybrown"), + caml_string_of_jsbytes("royalblue"), + caml_string_of_jsbytes("saddlebrown"), + caml_string_of_jsbytes("salmon"), + caml_string_of_jsbytes("sandybrown"), + caml_string_of_jsbytes("seagreen"), + caml_string_of_jsbytes("seashell"), + caml_string_of_jsbytes("sienna"), + caml_string_of_jsbytes("silver"), + caml_string_of_jsbytes("skyblue"), + caml_string_of_jsbytes("slateblue"), + caml_string_of_jsbytes("slategray"), + caml_string_of_jsbytes("slategrey"), + caml_string_of_jsbytes("snow"), + caml_string_of_jsbytes("springgreen"), + caml_string_of_jsbytes("steelblue"), + caml_string_of_jsbytes("tan"), + caml_string_of_jsbytes("teal"), + caml_string_of_jsbytes("thistle"), + caml_string_of_jsbytes("tomato"), + caml_string_of_jsbytes("turquoise"), + caml_string_of_jsbytes("violet"), + caml_string_of_jsbytes("wheat"), + caml_string_of_jsbytes("white"), + caml_string_of_jsbytes("whitesmoke"), + caml_string_of_jsbytes("yellow"), + caml_string_of_jsbytes("yellowgreen")]), _b4_= [0, [12,35,[4,8,[0,2,2],0,[4,8,[0,2,2],0,[4,8,[0,2,2],0,0]]]], - caml_new_string("#%02X%02X%02X")], + caml_string_of_jsbytes("#%02X%02X%02X")], _bY_= [0, [11, - caml_new_string("rgb("), + caml_string_of_jsbytes("rgb("), [4,0,0,0,[12,44,[4,0,0,0,[12,44,[4,0,0,0,[12,41,0]]]]]]], - caml_new_string("rgb(%d,%d,%d)")], + caml_string_of_jsbytes("rgb(%d,%d,%d)")], _bZ_= [0, [11, - caml_new_string("rgb("), + caml_string_of_jsbytes("rgb("), [4, 0, 0, 0, [12,37,[12,44,[4,0,0,0,[12,37,[12,44,[4,0,0,0,[12,37,[12,41,0]]]]]]]]]], - caml_new_string("rgb(%d%%,%d%%,%d%%)")], + caml_string_of_jsbytes("rgb(%d%%,%d%%,%d%%)")], _b0_= [0, [11, - caml_new_string("rgba("), + caml_string_of_jsbytes("rgba("), [4, 0, 0, 0, [12,44,[4,0,0,0,[12,44,[4,0,0,0,[12,44,[8,[0,0,0],0,0,[12,41,0]]]]]]]]], - caml_new_string("rgba(%d,%d,%d,%f)")], + caml_string_of_jsbytes("rgba(%d,%d,%d,%f)")], _b1_= [0, [11, - caml_new_string("rgba("), + caml_string_of_jsbytes("rgba("), [4, 0, 0, @@ -25813,21 +28244,21 @@ [12, 37, [12,44,[4,0,0,0,[12,37,[12,44,[4,0,0,0,[12,37,[12,44,partial]]]]]]]]]], - caml_new_string("rgba(%d%%,%d%%,%d%%,%f)")], + caml_string_of_jsbytes("rgba(%d%%,%d%%,%d%%,%f)")], _b2_= [0, [11, - caml_new_string("hsl("), + caml_string_of_jsbytes("hsl("), [4, 0, 0, 0, [12,44,[4,0,0,0,[12,37,[12,44,[4,0,0,0,[12,37,[12,41,0]]]]]]]]], - caml_new_string("hsl(%d,%d%%,%d%%)")], + caml_string_of_jsbytes("hsl(%d,%d%%,%d%%)")], _b3_= [0, [11, - caml_new_string("hsla("), + caml_string_of_jsbytes("hsla("), [4, 0, 0, @@ -25841,7 +28272,7 @@ [12, 37, [12,44,[4,0,0,0,[12,37,[12,44,[8,partial$1,0,0,partial$0]]]]]]]]]], - caml_new_string("hsla(%d,%d%%,%d%%,%f)")], + caml_string_of_jsbytes("hsla(%d,%d%%,%d%%,%f)")], _v_=[0,240,248,255], _w_=[0,250,235,215], _x_=[0,0,255,255], @@ -26000,7 +28431,7 @@ function max(x,y){return y <= x?x:y} function min(x,y){return x <= y?x:y} var - Int_replace_polymorphic_compare= + Int_replace_polymorphic_compar= [0, symbol, symbol$0, @@ -26109,20 +28540,20 @@ uppercase_ascii$0, compare$1, equal$1], - symbol$5=Int_replace_polymorphic_compare[1], - symbol$6=Int_replace_polymorphic_compare[2], - symbol$7=Int_replace_polymorphic_compare[3], - symbol$8=Int_replace_polymorphic_compare[4], - symbol$9=Int_replace_polymorphic_compare[5], - symbol$10=Int_replace_polymorphic_compare[6], - compare$2=Int_replace_polymorphic_compare[7], - equal$2=Int_replace_polymorphic_compare[8], - max$0=Int_replace_polymorphic_compare[9], - min$0=Int_replace_polymorphic_compare[10], + symbol$5=Int_replace_polymorphic_compar[1], + symbol$6=Int_replace_polymorphic_compar[2], + symbol$7=Int_replace_polymorphic_compar[3], + symbol$8=Int_replace_polymorphic_compar[4], + symbol$9=Int_replace_polymorphic_compar[5], + symbol$10=Int_replace_polymorphic_compar[6], + compare$2=Int_replace_polymorphic_compar[7], + equal$2=Int_replace_polymorphic_compar[8], + max$0=Int_replace_polymorphic_compar[9], + min$0=Int_replace_polymorphic_compar[10], Js_of_ocaml_Import= [0, Poly, - Int_replace_polymorphic_compare, + Int_replace_polymorphic_compar, String, Char, symbol$5, @@ -26135,25 +28566,25 @@ equal$2, max$0, min$0]; - caml_register_global(1630,Js_of_ocaml_Import,"Js_of_ocaml__Import"); + caml_register_global(1637,Js_of_ocaml_Import,"Js_of_ocaml__Import"); var global=joo_global_object, Unsafe=[0,global], no_handler=null, t37=undefined; - function return$0(_gQ_){return _gQ_} + function return$0(_gP_){return _gP_} function map$0(x,f){return x == no_handler?no_handler:caml_call1(f,x)} function bind(x,f){return x == no_handler?no_handler:caml_call1(f,x)} function test(x){return 1 - (x == no_handler?1:0)} function iter$0(x,f) - {var _gP_=1 - (x == no_handler?1:0);return _gP_?caml_call1(f,x):_gP_} + {var _gO_=1 - (x == no_handler?1:0);return _gO_?caml_call1(f,x):_gO_} function case$0(x,f,g) {return x == no_handler?caml_call1(f,0):caml_call1(g,x)} function get(x,f){return x == no_handler?caml_call1(f,0):x} function option(x){if(x){var x$0=x[1];return x$0}return no_handler} function to_option(x) - {function _gO_(x){return [0,x]} - return case$0(x,function(param){return 0},_gO_)} + {function _gN_(x){return [0,x]} + return case$0(x,function(param){return 0},_gN_)} var Opt= [0, @@ -26167,18 +28598,18 @@ get, option, to_option]; - function return$1(_gN_){return _gN_} + function return$1(_gM_){return _gM_} function map$1(x,f){return x === t37?t37:caml_call1(f,x)} function bind$0(x,f){return x === t37?t37:caml_call1(f,x)} function test$0(x){return x !== t37?1:0} function iter$1(x,f) - {var _gM_=x !== t37?1:0;return _gM_?caml_call1(f,x):_gM_} + {var _gL_=x !== t37?1:0;return _gL_?caml_call1(f,x):_gL_} function case$1(x,f,g){return x === t37?caml_call1(f,0):caml_call1(g,x)} function get$0(x,f){return x === t37?caml_call1(f,0):x} function option$0(x){if(x){var x$0=x[1];return x$0}return t37} function to_option$0(x) - {function _gL_(x){return [0,x]} - return case$1(x,function(param){return 0},_gL_)} + {function _gK_(x){return [0,x]} + return case$1(x,function(param){return 0},_gK_)} var Optdef= [0, @@ -26193,13 +28624,13 @@ option$0, to_option$0]; function coerce(x,f,g) - {function _gJ_(param){return caml_call1(g,x)} - var _gK_=caml_call1(f,x); - return caml_call2(Opt[8],_gK_,_gJ_)} + {function _gI_(param){return caml_call1(g,x)} + var _gJ_=caml_call1(f,x); + return caml_call2(Opt[8],_gJ_,_gI_)} function coerce_opt(x,f,g) - {function _gH_(param){return caml_call1(g,x)} - var _gI_=caml_call2(Opt[4],x,f); - return caml_call2(Opt[8],_gI_,_gH_)} + {function _gG_(param){return caml_call1(g,x)} + var _gH_=caml_call2(Opt[4],x,f); + return caml_call2(Opt[8],_gH_,_gG_)} var true$0=true, false$0=false, @@ -26219,8 +28650,8 @@ {return a.map (caml_js_wrap_callback (function(x,idx,param){return caml_call2(f,idx,x)}))} - function str_array(_gG_){return _gG_} - function match_result(_gF_){return _gF_} + function str_array(_gF_){return _gF_} + function match_result(_gE_){return _gE_} var date_ms=Unsafe[1].Date, math=Unsafe[1].Math, @@ -26244,27 +28675,30 @@ return isNaN(s$0)?caml_call1(Stdlib[2],cst_parseFloat):s$0} function _a_(param) {if(param[1] === Error) - {var e=param[2];return [0,caml_js_to_string(e.toString())]} + {var e=param[2];return [0,caml_string_of_jsstring(e.toString())]} return 0} caml_call1(Stdlib_printexc[9],_a_); function _b_(e) - {return e instanceof array_length?0:[0,caml_js_to_string(e.toString())]} + {return e instanceof array_length + ?0 + :[0,caml_string_of_jsstring(e.toString())]} caml_call1(Stdlib_printexc[9],_b_); - function string_of_error(e){return caml_js_to_string(e.toString())} + function string_of_error(e){return caml_string_of_jsstring(e.toString())} function export_js(field,x) {return runtime.caml_js_export_var(0)[field] = x} - function export$0(field,x){return export_js(field.toString(),x)} + function export$0(field,x) + {return export_js(caml_jsstring_of_string(field),x)} function export_all(obj) {var keys=object_keys(obj); return keys.forEach (caml_js_wrap_callback - (function(key,param,_gE_){return export_js(key,obj[key])}))} - function _c_(_gD_){return _gD_} + (function(key,param,_gD_){return export_js(key,obj[key])}))} + function _c_(_gC_){return _gC_} var Js_of_ocaml_Js= [0, no_handler, - function(_gC_){return _gC_}, + function(_gB_){return _gB_}, t37, _c_, Opt, @@ -26313,12 +28747,12 @@ export$0, export_all, Unsafe]; - caml_register_global(1634,Js_of_ocaml_Js,"Js_of_ocaml__Js"); + caml_register_global(1641,Js_of_ocaml_Js,"Js_of_ocaml__Js"); function list_of_nodeList(nodeList) {var length=nodeList.length,acc=0,i=0; for(;;) {if(caml_call2(symbol$5,i,length)) - {var _gB_=nodeList.item(i),match=caml_call1(Opt[10],_gB_); + {var _gA_=nodeList.item(i),match=caml_call1(Opt[10],_gA_); if(match) {var e=match[1],i$0=i + 1 | 0,acc$0=[0,e,acc],acc=acc$0,i=i$0; continue} @@ -26360,7 +28794,7 @@ function cast(e,t){return e.nodeType === t?e:no_handler} function element(e){return cast(e,1)} function text(e) - {if(3 !== e.nodeType)if(4 !== e.nodeType)return no_handler;return e} + {if(3 !== e.nodeType && 4 !== e.nodeType)return no_handler;return e} function attr(e){return cast(e,2)} function handler(f) {return function(e) @@ -26383,26 +28817,26 @@ return res$0})} function invoke_handler(f,this$0,event){return f.call(this$0,event)} function eventTarget(e) - {function _gy_(param) - {function _gA_(param){throw Stdlib[8]} - return caml_call2(Opt[8],e.srcElement,_gA_)} - var target=caml_call2(Opt[8],e.target,_gy_); + {function _gx_(param) + {function _gz_(param){throw Stdlib[8]} + return caml_call2(Opt[8],e.srcElement,_gz_)} + var target=caml_call2(Opt[8],e.target,_gx_); if(target instanceof Unsafe[1].Node) {if(3 === target.nodeType) - {var _gz_=function(param){throw [0,Assert_failure,_d_]}; - return caml_call2(Opt[8],target.parentNode,_gz_)} + {var _gy_=function(param){throw [0,Assert_failure,_d_]}; + return caml_call2(Opt[8],target.parentNode,_gy_)} return target} return target} - var make$0=caml_js_from_string,Event=[0,make$0]; + var make$0=caml_jsstring_of_string,Event=[0,make$0]; function addEventListenerWithOptions(e,typ,capture,once,passive,h) {if(e.addEventListener === t37) {var ev="on".concat(typ), callback= function(e) - {var _gv_=[0,h,e,[0]]; - return function(_gw_,_gx_) - {return runtime.caml_js_call(_gv_,_gw_,_gx_)}}; + {var _gu_=[0,h,e,[0]]; + return function(_gv_,_gw_) + {return runtime.caml_js_call(_gu_,_gv_,_gw_)}}; e.attachEvent(ev,callback); return function(param){return e.detachEvent(ev,callback)}} var opts={}; @@ -26450,7 +28884,7 @@ removeEventListener, preventDefault, createCustomEvent]; - caml_register_global(1637,Js_of_ocaml_Dom,"Js_of_ocaml__Dom"); + caml_register_global(1644,Js_of_ocaml_Dom,"Js_of_ocaml__Dom"); var arrayBuffer=Unsafe[1].ArrayBuffer, int8Array_inBuffer=Unsafe[1].Int8Array, @@ -26472,6 +28906,9 @@ Js_of_ocaml_Typed_array= [0, arrayBuffer, + runtime.caml_ba_kind_of_typed_array, + runtime.caml_ba_to_typed_array, + runtime.caml_ba_from_typed_array, int8Array_inBuffer, int8Array_inBuffer, int8Array_inBuffer, @@ -26524,7 +28961,7 @@ runtime.bigstring_of_typed_array], [0,of_arrayBuffer,caml_string_of_array]]; caml_register_global - (1638,Js_of_ocaml_Typed_array,"Js_of_ocaml__Typed_array"); + (1645,Js_of_ocaml_Typed_array,"Js_of_ocaml__Typed_array"); var blob_constr=Unsafe[1].Blob; function filter_map(f,param) {var param$0=param; @@ -26536,47 +28973,48 @@ continue} return 0}} function blob_raw(contentType,endings,a) - {var _gr_=0; + {var _gq_=0; if(endings) - var _gs_=116179762 <= endings[1]?_e_:_f_,_gt_=_gs_; + var _gr_=116179762 <= endings[1]?_e_:_f_,_gs_=_gr_; else - var _gt_=0; + var _gs_=0; var - _gu_=[0,[0,cst_type,contentType],[0,[0,cst_endings,_gt_],_gr_]], + _gt_=[0,[0,cst_type,contentType],[0,[0,cst_endings,_gs_],_gq_]], options= filter_map (function(param) {var v=param[2],name=param[1]; - if(v){var v$0=v[1];return [0,[0,name,v$0.toString()]]} + if(v) + {var v$0=v[1];return [0,[0,name,caml_jsstring_of_string(v$0)]]} return 0}, - _gu_), + _gt_), options$0= options ?runtime.caml_js_object(caml_call1(Stdlib_array[12],options)) :t37; return new blob_constr(caml_js_from_array(a),options$0)} function blob_from_string(contentType,endings,s) - {return blob_raw(contentType,endings,[0,s.toString()])} + {return blob_raw(contentType,endings,[0,caml_jsstring_of_string(s)])} function blob_from_any(contentType,endings,l) - {function _gp_(param) - {var _gq_=param[1]; - if(155580615 === _gq_){var s=param[2];return s} - if(486041214 <= _gq_) - {if(1037850489 <= _gq_){var a=param[2];return a} + {function _go_(param) + {var _gp_=param[1]; + if(155580615 === _gp_){var s=param[2];return s} + if(486041214 <= _gp_) + {if(1037850489 <= _gp_){var a=param[2];return a} var a$0=param[2]; return a$0} - if(288368849 <= _gq_){var s$0=param[2];return s$0.toString()} + if(288368849 <= _gp_) + {var s$0=param[2];return caml_jsstring_of_string(s$0)} var b=param[2]; return b} - var l$0=caml_call2(Stdlib_list[17],_gp_,l); + var l$0=caml_call2(Stdlib_list[17],_go_,l); return blob_raw(contentType,endings,caml_call1(Stdlib_array[12],l$0))} function filename(file) {var match=caml_call1(Optdef[10],file.name); if(match){var name=match[1];return name} var match$0=caml_call1(Optdef[10],file.fileName); if(match$0){var name$0=match$0[1];return name$0} - return caml_call1 - (Stdlib[2],cst_can_t_retrieve_file_name_not_implemented)} + return caml_call1(Stdlib[2],cst_can_t_retrieve_file_name_n)} var doc_constr=Unsafe[1].Document; function document(e){return e instanceof doc_constr?e:no_handler} function blob(e){return e instanceof blob_constr?e:no_handler} @@ -26595,12 +29033,12 @@ [0, blob_from_string, blob_from_any, - [0,document,blob,function(_go_){return _go_},string,arrayBuffer$0], + [0,document,blob,function(_gn_){return _gn_},string,arrayBuffer$0], ReaderEvent, filename, fileReader, addEventListener]; - caml_register_global(1640,Js_of_ocaml_File,"Js_of_ocaml__File"); + caml_register_global(1647,Js_of_ocaml_File,"Js_of_ocaml__File"); var onIE=runtime.caml_js_on_ie(0) | 0, click=caml_call1(Event[1],cst_click), @@ -26773,61 +29211,64 @@ make$1], d="2d"; function location_origin(loc) - {function _gm_(o){return o} - function _gn_(param) + {function _gl_(o){return o} + function _gm_(param) {var protocol=loc.protocol,hostname=loc.hostname,port=loc.port; - if(caml_call2(symbol$8,protocol.length,0)) - if(caml_call2(symbol$8,hostname.length,0))return ""; + if + (caml_call2(symbol$8,protocol.length,0) + && + caml_call2(symbol$8,hostname.length,0)) + return ""; var origin=protocol.concat("//",hostname); return caml_call2(symbol$9,port.length,0) ?origin.concat(":",loc.port) :origin} - return caml_call3(Optdef[7],loc.origin,_gn_,_gm_)} + return caml_call3(Optdef[7],loc.origin,_gm_,_gl_)} var _g_=Unsafe[1],document$0=_g_.document; function getElementById(id) - {function _gj_(pnode){return pnode} - function _gk_(param){throw Stdlib[8]} - var _gl_=document$0.getElementById(id.toString()); - return caml_call3(Opt[7],_gl_,_gk_,_gj_)} + {function _gi_(pnode){return pnode} + function _gj_(param){throw Stdlib[8]} + var _gk_=document$0.getElementById(caml_jsstring_of_string(id)); + return caml_call3(Opt[7],_gk_,_gj_,_gi_)} function getElementById_exn(id) - {function _gf_(pnode){return pnode} - function _gg_(param) - {var _gi_=caml_call2(Stdlib_printf[4],_h_,id); - return caml_call1(Stdlib[2],_gi_)} - var _gh_=document$0.getElementById(id.toString()); - return caml_call3(Opt[7],_gh_,_gg_,_gf_)} + {function _ge_(pnode){return pnode} + function _gf_(param) + {var _gh_=caml_call2(Stdlib_printf[4],_h_,id); + return caml_call1(Stdlib[2],_gh_)} + var _gg_=document$0.getElementById(caml_jsstring_of_string(id)); + return caml_call3(Opt[7],_gg_,_gf_,_ge_)} function getElementById_opt(id) - {var _ge_=document$0.getElementById(id.toString()); - return caml_call1(Opt[10],_ge_)} + {var _gd_=document$0.getElementById(caml_jsstring_of_string(id)); + return caml_call1(Opt[10],_gd_)} function getElementById_coerce(id,coerce) - {function _ga_(e) - {var _gd_=caml_call1(coerce,e);return caml_call1(Opt[10],_gd_)} - function _gb_(param){return 0} - var _gc_=document$0.getElementById(id.toString()); - return caml_call3(Opt[7],_gc_,_gb_,_ga_)} + {function _f$_(e) + {var _gc_=caml_call1(coerce,e);return caml_call1(Opt[10],_gc_)} + function _ga_(param){return 0} + var _gb_=document$0.getElementById(caml_jsstring_of_string(id)); + return caml_call3(Opt[7],_gb_,_ga_,_f$_)} function opt_iter(x,f){if(x){var v=x[1];return caml_call1(f,v)}return 0} function createElement(doc,name) - {return doc.createElement(name.toString())} + {return doc.createElement(caml_jsstring_of_string(name))} function unsafeCreateElement(doc,name){return createElement(doc,name)} var createElementSyntax=[0,785140586]; function unsafeCreateElementEx(type,name,doc,elt) {for(;;) - {if(0 === type)if(0 === name)return createElement(doc,elt); - var _f6_=createElementSyntax[1]; - if(785140586 === _f6_) + {if(0 === type && 0 === name)return createElement(doc,elt); + var _f5_=createElementSyntax[1]; + if(785140586 === _f5_) {try {var el=document$0.createElement(''), - _f9_=el.tagName.toLowerCase() === "input"?1:0, - _f__=_f9_?el.name === "x"?1:0:_f9_, - _f7_=_f__} - catch(_f$_){var _f7_=0} - var _f8_=_f7_?982028505:-1003883683; - createElementSyntax[1] = _f8_; + _f8_=el.tagName.toLowerCase() === "input"?1:0, + _f9_=_f8_?el.name === "x"?1:0:_f8_, + _f6_=_f9_} + catch(_f__){var _f6_=0} + var _f7_=_f6_?982028505:-1003883683; + createElementSyntax[1] = _f7_; continue} - if(982028505 <= _f6_) + if(982028505 <= _f5_) {var a=new array_length(); - a.push("<",elt.toString()); + a.push("<",caml_jsstring_of_string(elt)); opt_iter (type, function(t){a.push(' type="',caml_js_html_escape(t),'"');return 0}); @@ -26928,7 +29369,7 @@ function createVideo(doc){return unsafeCreateElement(doc,cst_video)} var Canvas_not_available= - [248,cst_Js_of_ocaml_Dom_html_Canvas_not_available,caml_fresh_oo_id(0)]; + [248,cst_Js_of_ocaml_Dom_html_Canva,caml_fresh_oo_id(0)]; function createCanvas(doc) {var c=unsafeCreateElement(doc,cst_canvas); if(1 - caml_call1(Opt[5],c.getContext))throw Canvas_not_available; @@ -26940,8 +29381,8 @@ ?function(e){return e.innerHTML === t37?no_handler:e} :function(e){return e instanceof html_element?e:no_handler}; function unsafeCoerce(tag,e) - {var _f5_=tag.toString(); - return e.tagName.toLowerCase() === _f5_?e:no_handler} + {var _f4_=caml_jsstring_of_string(tag); + return e.tagName.toLowerCase() === _f4_?e:no_handler} function a(e){return unsafeCoerce(cst_a$0,e)} function area(e){return unsafeCoerce(cst_area$0,e)} function base(e){return unsafeCoerce(cst_base$0,e)} @@ -27004,7 +29445,7 @@ function audio(e){return unsafeCoerce(cst_audio$0,e)} function video(e){return unsafeCoerce(cst_video$0,e)} function unsafeCoerceEvent(constr,ev) - {if(constr !== t37)if(ev instanceof constr)return ev;return no_handler} + {if(constr !== t37 && ev instanceof constr)return ev;return no_handler} function mouseEvent(ev){return unsafeCoerceEvent(Unsafe[1].MouseEvent,ev)} function keyboardEvent(ev) {return unsafeCoerceEvent(Unsafe[1].KeyboardEvent,ev)} @@ -27014,27 +29455,27 @@ function popStateEvent(ev) {return unsafeCoerceEvent(Unsafe[1].PopStateEvent,ev)} function eventRelatedTarget(e) - {function _f2_(param) - {var match=caml_js_to_string(e.type); + {function _f1_(param) + {var match=caml_string_of_jsstring(e.type); if(caml_string_notequal(match,cst_mouseout$0)) {if(caml_string_notequal(match,cst_mouseover$0))return no_handler; - var _f3_=function(param){throw [0,Assert_failure,_i_]}; - return caml_call2(Optdef[8],e.fromElement,_f3_)} - function _f4_(param){throw [0,Assert_failure,_j_]} - return caml_call2(Optdef[8],e.toElement,_f4_)} - return caml_call2(Optdef[8],e.relatedTarget,_f2_)} + var _f2_=function(param){throw [0,Assert_failure,_i_]}; + return caml_call2(Optdef[8],e.fromElement,_f2_)} + function _f3_(param){throw [0,Assert_failure,_j_]} + return caml_call2(Optdef[8],e.toElement,_f3_)} + return caml_call2(Optdef[8],e.relatedTarget,_f1_)} function eventAbsolutePosition(e) {var body=document$0.body,html=document$0.documentElement; return [0, (e.clientX + body.scrollLeft | 0) + html.scrollLeft | 0, (e.clientY + body.scrollTop | 0) + html.scrollTop | 0]} function eventAbsolutePosition$0(e) - {function _fY_(x) - {function _f0_(y){return [0,x,y]} - function _f1_(param){return eventAbsolutePosition(e)} - return caml_call3(Optdef[7],e.pageY,_f1_,_f0_)} - function _fZ_(param){return eventAbsolutePosition(e)} - return caml_call3(Optdef[7],e.pageX,_fZ_,_fY_)} + {function _fX_(x) + {function _fZ_(y){return [0,x,y]} + function _f0_(param){return eventAbsolutePosition(e)} + return caml_call3(Optdef[7],e.pageY,_f0_,_fZ_)} + function _fY_(param){return eventAbsolutePosition(e)} + return caml_call3(Optdef[7],e.pageX,_fY_,_fX_)} function elementClientPosition(e) {var r=e.getBoundingClientRect(), @@ -27049,35 +29490,35 @@ body.scrollLeft + html.scrollLeft | 0, body.scrollTop + html.scrollTop | 0]} function buttonPressed(ev) - {function _fW_(x){return x} - function _fX_(param) + {function _fV_(x){return x} + function _fW_(param) {var match=ev.button,switcher=match - 1 | 0; if(! (3 < switcher >>> 0)) switch(switcher) {case 0:return 1;case 1:return 3;case 2:break;default:return 2} return 0} - return caml_call3(Optdef[7],ev.which,_fX_,_fW_)} - function addMousewheelEventListenerWithOptions(e,capture,once,passive,h) + return caml_call3(Optdef[7],ev.which,_fW_,_fV_)} + function addMousewheelEventListenerWith(e,capture,once,passive,h) {var d=createDiv(document$0); d.setAttribute("onmousewheel","return;"); if(typeof d.onmousewheel === "function") {var - _fS_= + _fR_= handler (function(e) - {function _fU_(param){return 0} + {function _fT_(param){return 0} var dx= - (- caml_call2(Optdef[8],e.wheelDeltaX,_fU_) | 0) / 40 | 0; - function _fV_(param){return e.wheelDelta} + (- caml_call2(Optdef[8],e.wheelDeltaX,_fT_) | 0) / 40 | 0; + function _fU_(param){return e.wheelDelta} var dy= - (- caml_call2(Optdef[8],e.wheelDeltaY,_fV_) | 0) / 40 | 0; + (- caml_call2(Optdef[8],e.wheelDeltaY,_fU_) | 0) / 40 | 0; return caml_call3(h,e,dx,dy)}); return addEventListenerWithOptions - (e,Event$0[11],capture,once,passive,_fS_)} + (e,Event$0[11],capture,once,passive,_fR_)} var - _fT_= + _fS_= handler (function(e) {var d=e.detail; @@ -27085,12 +29526,12 @@ ?caml_call3(h,e,d,0) :caml_call3(h,e,0,d)}); return addEventListenerWithOptions - (e,Event$0[12],capture,once,passive,_fT_)} + (e,Event$0[12],capture,once,passive,_fS_)} function addMousewheelEventListener(e,h,capt) - {return addMousewheelEventListenerWithOptions(e,[0,capt],0,0,h)} + {return addMousewheelEventListenerWith(e,[0,capt],0,0,h)} function f(v) {var - match=caml_js_to_string(v), + match=caml_string_of_jsstring(v), switch$0=caml_string_compare(match,cst_KeyH); if(0 <= switch$0) {if(! (0 < switch$0))return 8; @@ -27320,9 +29761,9 @@ function try_key_code_normal(param) {var switcher=param - 8 | 0; if(! (214 < switcher >>> 0)) - {var _fR_=switcher; - if(67 <= _fR_) - switch(_fR_) + {var _fQ_=switcher; + if(67 <= _fQ_) + switch(_fQ_) {case 67:return 11; case 68:return 12; case 69:return 13; @@ -27366,7 +29807,7 @@ case 214:return 50 } else - switch(_fR_) + switch(_fQ_) {case 0:return 43; case 1:return 39; case 5:return 40; @@ -27411,27 +29852,27 @@ function run_next(value,f,v){return 0 === v?caml_call1(f,value):v} function symbol$11(x,f){return caml_call1(f,x)} function of_event(evt) - {var _fK_=evt.keyCode; - function _fL_(_fQ_){return run_next(_fK_,try_key_code_normal,_fQ_)} + {var _fJ_=evt.keyCode; + function _fK_(_fP_){return run_next(_fJ_,try_key_code_normal,_fP_)} var match=evt.location,switcher=match - 1 | 0; if(2 < switcher >>> 0) - var _fM_=make_unidentified; + var _fL_=make_unidentified; else switch(switcher) {case 0: var - _fH_=evt.keyCode, - _fM_=function(_fO_){return run_next(_fH_,try_key_code_left,_fO_)}; + _fG_=evt.keyCode, + _fL_=function(_fN_){return run_next(_fG_,try_key_code_left,_fN_)}; break; case 1: var - _fI_=evt.keyCode, - _fM_=function(_fN_){return run_next(_fI_,try_key_code_right,_fN_)}; + _fH_=evt.keyCode, + _fL_=function(_fM_){return run_next(_fH_,try_key_code_right,_fM_)}; break; default: var - _fJ_=evt.keyCode, - _fM_=function(_fP_){return run_next(_fJ_,try_key_code_numpad,_fP_)}} + _fI_=evt.keyCode, + _fL_=function(_fO_){return run_next(_fI_,try_key_code_numpad,_fO_)}} var value=evt.code; return symbol$11 (symbol$11 @@ -27441,13 +29882,13 @@ {return 0 === v ?caml_call3(Optdef[7],value,make_unidentified,f) :v}), - _fM_), - _fL_)} + _fL_), + _fK_)} function char_of_int(value) {if(caml_call2(symbol$5,0,value)) try - {var _fF_=[0,caml_call1(Stdlib_uchar[8],value)];return _fF_} - catch(_fG_){return 0} + {var _fE_=[0,caml_call1(Stdlib_uchar[8],value)];return _fE_} + catch(_fF_){return 0} return 0} function empty_string(param){return ""} function none(param){return 0} @@ -27456,9 +29897,9 @@ return 0 === match ?caml_call3(Optdef[7],evt.charCode,none,char_of_int) :1 === match?char_of_int(key.charCodeAt(0) | 0):0} - function element$1(_fE_){return _fE_} + function element$1(_fD_){return _fD_} function tagged(e) - {var tag=caml_js_to_byte_string(e.tagName.toLowerCase()); + {var tag=caml_string_of_jsbytes(e.tagName.toLowerCase()); if(caml_call2(symbol$8,caml_ml_string_length(tag),0))return [61,e]; var match=runtime.caml_string_unsafe_get(tag,0),switcher=match - 97 | 0; if(! (21 < switcher >>> 0)) @@ -27584,38 +30025,38 @@ } return [61,e]} function opt_tagged(e) - {function _fC_(e){return [0,tagged(e)]} - function _fD_(param){return 0} - return caml_call3(Opt[7],e,_fD_,_fC_)} + {function _fB_(e){return [0,tagged(e)]} + function _fC_(param){return 0} + return caml_call3(Opt[7],e,_fC_,_fB_)} function taggedEvent(ev) - {function _fn_(ev){return [0,ev]} - function _fo_(param) - {function _fq_(ev){return [1,ev]} - function _fr_(param) - {function _ft_(ev){return [2,ev]} - function _fu_(param) - {function _fw_(ev){return [3,ev]} - function _fx_(param) - {function _fz_(ev){return [4,ev]} - function _fA_(param){return [5,ev]} - var _fB_=popStateEvent(ev); - return caml_call3(Opt[7],_fB_,_fA_,_fz_)} - var _fy_=mouseScrollEvent(ev); - return caml_call3(Opt[7],_fy_,_fx_,_fw_)} - var _fv_=wheelEvent(ev); - return caml_call3(Opt[7],_fv_,_fu_,_ft_)} - var _fs_=keyboardEvent(ev); - return caml_call3(Opt[7],_fs_,_fr_,_fq_)} - var _fp_=mouseEvent(ev); - return caml_call3(Opt[7],_fp_,_fo_,_fn_)} + {function _fm_(ev){return [0,ev]} + function _fn_(param) + {function _fp_(ev){return [1,ev]} + function _fq_(param) + {function _fs_(ev){return [2,ev]} + function _ft_(param) + {function _fv_(ev){return [3,ev]} + function _fw_(param) + {function _fy_(ev){return [4,ev]} + function _fz_(param){return [5,ev]} + var _fA_=popStateEvent(ev); + return caml_call3(Opt[7],_fA_,_fz_,_fy_)} + var _fx_=mouseScrollEvent(ev); + return caml_call3(Opt[7],_fx_,_fw_,_fv_)} + var _fu_=wheelEvent(ev); + return caml_call3(Opt[7],_fu_,_ft_,_fs_)} + var _fr_=keyboardEvent(ev); + return caml_call3(Opt[7],_fr_,_fq_,_fp_)} + var _fo_=mouseEvent(ev); + return caml_call3(Opt[7],_fo_,_fn_,_fm_)} function opt_taggedEvent(ev) - {function _fl_(ev){return [0,taggedEvent(ev)]} - function _fm_(param){return 0} - return caml_call3(Opt[7],ev,_fm_,_fl_)} + {function _fk_(ev){return [0,taggedEvent(ev)]} + function _fl_(param){return 0} + return caml_call3(Opt[7],ev,_fl_,_fk_)} function stopPropagation(ev) - {function _fj_(param){return ev.stopPropagation()} - function _fk_(param){return ev.cancelBubble = true$0} - return caml_call3(Optdef[7],ev.stopPropagation,_fk_,_fj_)} + {function _fi_(param){return ev.stopPropagation()} + function _fj_(param){return ev.cancelBubble = true$0} + return caml_call3(Optdef[7],ev.stopPropagation,_fj_,_fi_)} var requestAnimationFrame= runtime.caml_js_pure_expr @@ -27633,13 +30074,13 @@ [0,_g_.msRequestAnimationFrame,0]]]]]; try {var - _fg_=function(c){return caml_call1(Optdef[5],c)}, - req=caml_call2(Stdlib_list[34],_fg_,l), - _fh_=function(callback){return req(callback)}; - return _fh_} - catch(_fi_) - {_fi_ = caml_wrap_exception(_fi_); - if(_fi_ === Stdlib[8]) + _ff_=function(c){return caml_call1(Optdef[5],c)}, + req=caml_call2(Stdlib_list[34],_ff_,l), + _fg_=function(callback){return req(callback)}; + return _fg_} + catch(_fh_) + {_fh_ = caml_wrap_exception(_fh_); + if(_fh_ === Stdlib[8]) {var now=function(param){return new date_ms().getTime()}, last=[0,now(0)]; @@ -27651,7 +30092,7 @@ last[1] = t; _g_.setTimeout(callback,dt$0); return 0}} - throw _fi_}}); + throw _fh_}}); function hasPushState(param) {return caml_call1(Optdef[5],_g_.history.pushState)} function hasPlaceholder(param) @@ -27668,14 +30109,14 @@ var step$0=overflow_limit,remain=step - 2147483000.; else var step$0=step,remain=0.; - var cb=remain == 0.?callback:function(_ff_){return loop(remain,_ff_)}; + var cb=remain == 0.?callback:function(_fe_){return loop(remain,_fe_)}; id[1] = [0,_g_.setTimeout(caml_js_wrap_callback(cb),step$0)]; return 0} loop(d,0); return id} function clearTimeout(id) - {var _fe_=id[1]; - if(_fe_){var x=_fe_[1];id[1] = 0;return _g_.clearTimeout(x)} + {var _fd_=id[1]; + if(_fd_){var x=_fd_[1];id[1] = 0;return _g_.clearTimeout(x)} return 0} function js_array_of_collection(c){return [].slice.call(c)} var @@ -27699,7 +30140,7 @@ addEventListenerWithOptions, addEventListener, removeEventListener, - addMousewheelEventListenerWithOptions, + addMousewheelEventListenerWith, addMousewheelEventListener, createCustomEvent, buttonPressed, @@ -27874,7 +30315,7 @@ hasPushState, hasPlaceholder, hasRequired]; - caml_register_global(1643,Js_of_ocaml_Dom_html,"Js_of_ocaml__Dom_html"); + caml_register_global(1650,Js_of_ocaml_Dom_html,"Js_of_ocaml__Dom_html"); var formData=Unsafe[1].FormData,formData_form=Unsafe[1].FormData; function filter_map$0(f,param) {var param$0=param; @@ -27887,17 +30328,17 @@ return 0}} function have_content(elt) {var - _fc_=caml_call2(symbol$9,elt.name.length,0), - _fd_=_fc_?1 - (elt.disabled | 0):_fc_; - return _fd_} + _fb_=caml_call2(symbol$9,elt.name.length,0), + _fc_=_fb_?1 - (elt.disabled | 0):_fb_; + return _fc_} function form_elements(get,form) {var length=form.elements.length; - function _e2_(i) - {var _fb_=form.elements.item(i);return caml_call1(Opt[10],_fb_)} + function _e1_(i) + {var _fa_=form.elements.item(i);return caml_call1(Opt[10],_fa_)} var - _e3_=caml_call2(Stdlib_array[2],length,_e2_), - elements=caml_call1(Stdlib_array[11],_e3_); - function _e4_(param) + _e2_=caml_call2(Stdlib_array[2],length,_e1_), + elements=caml_call1(Stdlib_array[11],_e2_); + function _e3_(param) {if(param) {var v=param[1],match$3=tagged(v); switch(match$3[0]) @@ -27906,9 +30347,9 @@ if(get)var sth=get[1],get$0=sth;else var get$0=0; if(have_content(v$0)) {var - name$1=caml_js_to_string(v$0.name), + name$1=caml_string_of_jsstring(v$0.name), value=v$0.value, - match=caml_js_to_byte_string(v$0.type.toLowerCase()); + match=caml_string_of_jsbytes(v$0.type.toLowerCase()); if(caml_string_notequal(match,cst_checkbox)) {if(! caml_string_notequal(match,cst_file)) {if(get$0)return [0,[0,name$1,[0,-976970511,value]],0]; @@ -27918,56 +30359,54 @@ if(caml_call2(symbol$8,list.length,0)) return [0,[0,name$1,[0,-976970511,""]],0]; var match$1=caml_call1(Optdef[10],v$0.multiple); - if(match$1) - if(0 !== match$1[1]) - {var - _e9_=function(i){return list.item(i)}, - _e__=caml_call2(Stdlib_array[2],list.length,_e9_), - _e$_=caml_call1(Stdlib_array[11],_e__); - return filter_map$0 - (function(f) - {var match=caml_call1(Opt[10],f); - if(match) - {var file=match[1];return [0,[0,name$1,[0,781515420,file]]]} - return 0}, - _e$_)} - var _e8_=list.item(0),match$2=caml_call1(Opt[10],_e8_); + if(match$1 && 0 !== match$1[1]) + {var + _e8_=function(i){return list.item(i)}, + _e9_=caml_call2(Stdlib_array[2],list.length,_e8_), + _e__=caml_call1(Stdlib_array[11],_e9_); + return filter_map$0 + (function(f) + {var match=caml_call1(Opt[10],f); + if(match) + {var file=match[1];return [0,[0,name$1,[0,781515420,file]]]} + return 0}, + _e__)} + var _e7_=list.item(0),match$2=caml_call1(Opt[10],_e7_); if(match$2) {var file=match$2[1]; return [0,[0,name$1,[0,781515420,file]],0]} return 0} return 0} + var switch$0=0; if(caml_string_notequal(match,cst_password)) - if(caml_string_notequal(match,cst_radio)) - {if(caml_string_notequal(match,cst_reset)) - if(caml_string_notequal(match,cst_submit$0)) + {if(caml_string_notequal(match,cst_radio)) + {var switch$1=0; + if + (caml_string_notequal(match,cst_reset) + && + caml_string_notequal(match,cst_submit$0)) {if(caml_string_notequal(match,cst_text)) return [0,[0,name$1,[0,-976970511,value]],0]; - var switch$0=1,switch$1=0} - else - var switch$1=1; - else - var switch$1=1; - if(switch$1)return 0} - else - var switch$0=0; + switch$0 = 1; + switch$1 = 1} + if(! switch$1)return 0}} else - var switch$0=1; + switch$0 = 1; if(switch$0)return [0,[0,name$1,[0,-976970511,value]],0]} return v$0.checked | 0?[0,[0,name$1,[0,-976970511,value]],0]:0} return 0; case 48: var v$1=match$3[1]; if(have_content(v$1)) - {var name$0=caml_js_to_string(v$1.name); + {var name$0=caml_string_of_jsstring(v$1.name); if(v$1.multiple | 0) {var - _e6_= + _e5_= function(i) - {var _fa_=v$1.options.item(i); - return caml_call1(Opt[10],_fa_)}, - options=caml_call2(Stdlib_array[2],v$1.options.length,_e6_), - _e7_=caml_call1(Stdlib_array[11],options); + {var _e$_=v$1.options.item(i); + return caml_call1(Opt[10],_e$_)}, + options=caml_call2(Stdlib_array[2],v$1.options.length,_e5_), + _e6_=caml_call1(Stdlib_array[11],options); return filter_map$0 (function(param) {if(param) @@ -27976,47 +30415,46 @@ ?[0,[0,name$0,[0,-976970511,e.value]]] :0} return 0}, - _e7_)} + _e6_)} return [0,[0,name$0,[0,-976970511,v$1.value]],0]} return 0; case 53: var v$2=match$3[1]; if(have_content(v$2)) - {var name=caml_js_to_string(v$2.name); + {var name=caml_string_of_jsstring(v$2.name); return [0,[0,name,[0,-976970511,v$2.value]],0]} return 0; default:return 0}} return 0} var - _e5_=caml_call2(Stdlib_list[17],_e4_,elements), - contents=caml_call1(Stdlib_list[14],_e5_); + _e4_=caml_call2(Stdlib_list[17],_e3_,elements), + contents=caml_call1(Stdlib_list[14],_e4_); return contents} function append(form_contents,form_elt) {if(891486873 <= form_contents[1]) {var list=form_contents[2];list[1] = [0,form_elt,list[1]];return 0} - var f=form_contents[2],_e0_=form_elt[2],_e1_=form_elt[1]; - if(781515420 <= _e0_[1]) - {var file=_e0_[2];return f.append(_e1_.toString(),file)} - var s=_e0_[2]; - return f.append(_e1_.toString(),s)} + var f=form_contents[2],_eZ_=form_elt[2],_e0_=form_elt[1]; + if(781515420 <= _eZ_[1]) + {var file=_eZ_[2];return f.append(caml_jsstring_of_string(_e0_),file)} + var s=_eZ_[2]; + return f.append(caml_jsstring_of_string(_e0_),s)} function empty_form_contents(param) {var match=caml_call1(Optdef[10],formData); if(match){var constr=match[1];return [0,808620462,new constr()]} return [0,891486873,[0,0]]} function post_form_contents(form) - {var contents=empty_form_contents(0),_eX_=form_elements(0,form); - function _eY_(_eZ_){return append(contents,_eZ_)} - caml_call2(Stdlib_list[15],_eY_,_eX_); + {var contents=empty_form_contents(0),_eW_=form_elements(0,form); + function _eX_(_eY_){return append(contents,_eY_)} + caml_call2(Stdlib_list[15],_eX_,_eW_); return contents} function get_form_contents(form) - {var _eT_=form_elements(_k_,form); - function _eU_(param) - {var _eV_=param[2],_eW_=param[1]; - if(typeof _eV_ !== "number") - if(-976970511 === _eV_[1]) - {var s=_eV_[2];return [0,_eW_,caml_js_to_string(s)]} + {var _eS_=form_elements(_k_,form); + function _eT_(param) + {var _eU_=param[2],_eV_=param[1]; + if(typeof _eU_ !== "number" && -976970511 === _eU_[1]) + {var s=_eU_[2];return [0,_eV_,caml_string_of_jsstring(s)]} throw [0,Assert_failure,_l_]} - return caml_call2(Stdlib_list[17],_eU_,_eT_)} + return caml_call2(Stdlib_list[17],_eT_,_eS_)} var Js_of_ocaml_Form= [0, @@ -28027,7 +30465,7 @@ get_form_contents, empty_form_contents, form_elements]; - caml_register_global(1644,Js_of_ocaml_Form,"Js_of_ocaml__Form"); + caml_register_global(1651,Js_of_ocaml_Form,"Js_of_ocaml__Form"); var readystatechange=caml_call1(Event[1],cst_readystatechange), loadstart$1=caml_call1(Event[1],cst_loadstart$1), @@ -28052,47 +30490,48 @@ xmlHttpRequest=Unsafe[1].XMLHttpRequest, activeXObject=Unsafe[1].activeXObject; try - {var _eO_=new xmlHttpRequest();return _eO_} - catch(_eP_) + {var _eN_=new xmlHttpRequest();return _eN_} + catch(_eO_) {try - {var _eN_=new activeXObject("Msxml2.XMLHTTP");return _eN_} - catch(_eQ_) + {var _eM_=new activeXObject("Msxml2.XMLHTTP");return _eM_} + catch(_eP_) {try - {var _eM_=new activeXObject("Msxml3.XMLHTTP");return _eM_} - catch(_eR_) + {var _eL_=new activeXObject("Msxml3.XMLHTTP");return _eL_} + catch(_eQ_) {try - {var _eL_=new activeXObject("Microsoft.XMLHTTP");return _eL_} - catch(_eS_){throw [0,Assert_failure,_m_]}}}}} + {var _eK_=new activeXObject("Microsoft.XMLHTTP");return _eK_} + catch(_eR_){throw [0,Assert_failure,_m_]}}}}} var Js_of_ocaml_XmlHttpRequest=[0,create,Event$1]; caml_register_global - (1645,Js_of_ocaml_XmlHttpRequest,"Js_of_ocaml__XmlHttpRequest"); + (1652,Js_of_ocaml_XmlHttpRequest,"Js_of_ocaml__XmlHttpRequest"); var worker=Unsafe[1].Worker; - function create$0(script){return new worker(script.toString())} + function create$0(script) + {return new worker(caml_jsstring_of_string(script))} function import_scripts(scripts) {if(Unsafe[1].importScripts === t37) - caml_call1(Stdlib[1],cst_Worker_import_scripts_is_undefined); + caml_call1(Stdlib[1],cst_Worker_import_scripts_is_u); var - _eJ_=caml_call1(Stdlib_array[12],scripts), - _eK_=caml_call2(Stdlib_array[15],caml_js_from_string,_eJ_); - return runtime.caml_js_fun_call(Unsafe[1].importScripts,_eK_)} + _eI_=caml_call1(Stdlib_array[12],scripts), + _eJ_=caml_call2(Stdlib_array[15],caml_jsstring_of_string,_eI_); + return runtime.caml_js_fun_call(Unsafe[1].importScripts,_eJ_)} function set_onmessage(handler) {if(Unsafe[1].onmessage === t37) - caml_call1(Stdlib[1],cst_Worker_onmessage_is_undefined); + caml_call1(Stdlib[1],cst_Worker_onmessage_is_undefi); function js_handler(ev){return caml_call1(handler,ev.data)} return Unsafe[1].onmessage = caml_js_wrap_callback(js_handler)} function post_message(msg) {if(Unsafe[1].postMessage === t37) - caml_call1(Stdlib[1],cst_Worker_onmessage_is_undefined$0); + caml_call1(Stdlib[1],cst_Worker_onmessage_is_undefi$0); return Unsafe[1].postMessage(msg)} var Js_of_ocaml_Worker= [0,create$0,import_scripts,set_onmessage,post_message]; - caml_register_global(1646,Js_of_ocaml_Worker,"Js_of_ocaml__Worker"); + caml_register_global(1653,Js_of_ocaml_Worker,"Js_of_ocaml__Worker"); var webSocket=Unsafe[1].WebSocket; function is_supported(param){return caml_call1(Optdef[5],webSocket)} var Js_of_ocaml_WebSockets=[0,webSocket,webSocket,webSocket,is_supported]; caml_register_global - (1647,Js_of_ocaml_WebSockets,"Js_of_ocaml__WebSockets"); + (1654,Js_of_ocaml_WebSockets,"Js_of_ocaml__WebSockets"); var defaultContextAttributes= {"alpha":true$0, @@ -28120,17 +30559,19 @@ var Js_of_ocaml_WebGL= [0,defaultContextAttributes,Event$2,getContext,getContextWithAttributes]; - caml_register_global(1648,Js_of_ocaml_WebGL,"Js_of_ocaml__WebGL"); + caml_register_global(1655,Js_of_ocaml_WebGL,"Js_of_ocaml__WebGL"); function regexp(s) {return new regExp_withFlags(caml_jsbytes_of_string(s),"g")} function regexp_case_fold(s) {return new regExp_withFlags(caml_jsbytes_of_string(s),"gi")} function regexp_with_flag(s,f) - {var _eI_=caml_call2(Stdlib[28],cst_g,f).toString(); - return new regExp_withFlags(caml_jsbytes_of_string(s),_eI_)} + {return new + regExp_withFlags + (caml_jsbytes_of_string(s), + caml_jsstring_of_string(caml_call2(Stdlib[28],cst_g,f)))} function blunt_str_array_get(a,i) {function _eH_(param){throw [0,Assert_failure,_n_]} - return caml_js_to_byte_string(caml_call2(Optdef[8],a[i],_eH_))} + return caml_string_of_jsbytes(caml_call2(Optdef[8],a[i],_eH_))} function string_match(r,s,i) {r.lastIndex = i; var @@ -28146,24 +30587,23 @@ return caml_call1(Opt[10],_eE_)} function matched_string(r){return blunt_str_array_get(r,0)} function matched_group(r,i) - {var _eB_=caml_call2(Optdef[3],r[i],caml_js_to_byte_string); + {var _eB_=caml_call2(Optdef[3],r[i],caml_string_of_jsbytes); return caml_call1(Optdef[10],_eB_)} var quote_repl_re=new regExp_withFlags("[$]","g"); function quote_repl(s) {return caml_jsbytes_of_string(s).replace(quote_repl_re,"$$$$")} function global_replace(r,s,s_by) {r.lastIndex = 0; - var _eA_=quote_repl(s_by); - return caml_js_to_byte_string(caml_jsbytes_of_string(s).replace(r,_eA_))} + return caml_string_of_jsbytes + (caml_jsbytes_of_string(s).replace(r,quote_repl(s_by)))} function replace_first(r,s,s_by) {var match=r.ignoreCase | 0, match$0=r.multiline | 0, flags=0 === match?0 === match$0?"":"m":0 === match$0?"i":"mi", - r$0=new regExp_withFlags(r.source,flags), - _ez_=quote_repl(s_by); - return caml_js_to_byte_string - (caml_jsbytes_of_string(s).replace(r$0,_ez_))} + r$0=new regExp_withFlags(r.source,flags); + return caml_string_of_jsbytes + (caml_jsbytes_of_string(s).replace(r$0,quote_repl(s_by)))} function list_of_js_array(a) {var idx$1=a.length - 1 | 0,accu=0,idx=idx$1; for(;;) @@ -28182,7 +30622,7 @@ return list_of_js_array(caml_jsbytes_of_string(s).split(r,i))} var quote_re=regexp(cst); function quote(s) - {return caml_js_to_byte_string + {return caml_string_of_jsbytes (caml_jsbytes_of_string(s).replace(quote_re,"\\$&"))} function regexp_string(s){return regexp(quote(s))} function regexp_string_case_fold(s){return regexp_case_fold(quote(s))} @@ -28204,7 +30644,7 @@ replace_first, split, bounded_split]; - caml_register_global(1649,Js_of_ocaml_Regexp,"Js_of_ocaml__Regexp"); + caml_register_global(1656,Js_of_ocaml_Regexp,"Js_of_ocaml__Regexp"); var Local_exn=[248,cst_Js_of_ocaml_Url_Local_exn,caml_fresh_oo_id(0)]; function interrupt(param){throw Local_exn} var @@ -28212,86 +30652,90 @@ plus_re_js_string=new regExp_withFlags("\\+","g"); function urldecode_js_string_string(s) {plus_re_js_string.lastIndex = 0; - return caml_js_to_byte_string + return caml_string_of_jsbytes (unescape(s.replace(plus_re_js_string," ")))} function urldecode(s) - {return caml_js_to_byte_string + {return caml_string_of_jsbytes (unescape (caml_jsbytes_of_string(global_replace(plus_re,s,cst$1))))} function urlencode(opt,s) {if(opt)var sth=opt[1],with_plus=sth;else var with_plus=1; if(with_plus) - {var s$0=caml_js_to_byte_string(escape(caml_jsbytes_of_string(s))); + {var s$0=caml_string_of_jsbytes(escape(caml_jsbytes_of_string(s))); return global_replace(plus_re,s$0,cst_2B)} - return caml_js_to_byte_string(escape(caml_jsbytes_of_string(s)))} + return caml_string_of_jsbytes(escape(caml_jsbytes_of_string(s)))} var Not_an_http_protocol= - [248,cst_Js_of_ocaml_Url_Not_an_http_protocol,caml_fresh_oo_id(0)], + [248,cst_Js_of_ocaml_Url_Not_an_htt,caml_fresh_oo_id(0)], default_http_port=80, default_https_port=443; function path_of_path_string(s) {var l=caml_ml_string_length(s); function aux(i) {try - {var _ex_=caml_call3(String[18],s,i,47),j=_ex_} - catch(_ey_) - {_ey_ = caml_wrap_exception(_ey_); - if(_ey_ !== Stdlib[8])throw _ey_; + {var _ez_=caml_call3(String[18],s,i,47),j=_ez_} + catch(_eA_) + {_eA_ = caml_wrap_exception(_eA_); + if(_eA_ !== Stdlib[8])throw _eA_; var j=l} var word=caml_call3(String[4],s,i,j - i | 0); return caml_call2(symbol$10,j,l)?[0,word,0]:[0,word,aux(j + 1 | 0)]} var a=aux(0); - if(a) - if(! caml_string_notequal(a[1],cst$2)) - {var _ew_=a[2]; - if(! _ew_)return 0; - if(! caml_string_notequal(_ew_[1],cst$3))if(! _ew_[2])return _o_} + if(a && ! caml_string_notequal(a[1],cst$2)) + {var _ey_=a[2]; + if(! _ey_)return 0; + if(! caml_string_notequal(_ey_[1],cst$3) && ! _ey_[2])return _o_} return a} function encode_arguments(l) - {function _er_(param) + {function _et_(param) {var v=param[2], n=param[1], - _et_=urlencode(0,v), - _eu_=caml_call2(Stdlib[28],cst$4,_et_), - _ev_=urlencode(0,n); - return caml_call2(Stdlib[28],_ev_,_eu_)} - var _es_=caml_call2(Stdlib_list[17],_er_,l); - return caml_call2(String[7],cst$5,_es_)} + _ev_=urlencode(0,v), + _ew_=caml_call2(Stdlib[28],cst$4,_ev_), + _ex_=urlencode(0,n); + return caml_call2(Stdlib[28],_ex_,_ew_)} + var _eu_=caml_call2(Stdlib_list[17],_et_,l); + return caml_call2(String[7],cst$5,_eu_)} function decode_arguments_js_string(s) - {var arr=s.split(caml_call2(String[1],1,38).toString()),len=arr.length; + {var + arr=s.split(caml_jsstring_of_string(caml_call2(String[1],1,38))), + len=arr.length; function aux(acc,idx) {var idx$0=idx; for(;;) {if(caml_call2(symbol$5,idx$0,0))return acc; try {var - _ej_=idx$0 - 1 | 0, - _ek_= + _el_=idx$0 - 1 | 0, + _em_= function(s) - {function _ep_(param) + {function _er_(param) {var y=param[2], x=param[1], - _eq_=urldecode_js_string_string(y); - return [0,urldecode_js_string_string(x),_eq_]} - var index=s.indexOf(caml_call2(String[1],1,61).toString()); + _es_=urldecode_js_string_string(y); + return [0,urldecode_js_string_string(x),_es_]} + var + index= + s.indexOf + (caml_jsstring_of_string(caml_call2(String[1],1,61))); if(caml_call2(symbol$5,index,0)) - var _eo_=t37; + var _eq_=t37; else var - _en_=s.slice(index + 1 | 0), - _eo_=[0,s.slice(0,index),_en_]; - return caml_call3(Optdef[7],_eo_,interrupt,_ep_)}, - _el_= + _ep_=s.slice(index + 1 | 0), + _eq_=[0,s.slice(0,index),_ep_]; + return caml_call3(Optdef[7],_eq_,interrupt,_er_)}, + _en_= aux - ([0,caml_call3(Optdef[7],arr[idx$0],interrupt,_ek_),acc],_ej_); - return _el_} - catch(_em_) - {_em_ = caml_wrap_exception(_em_); - if(_em_ === Local_exn) + ([0,caml_call3(Optdef[7],arr[idx$0],interrupt,_em_),acc],_el_); + return _en_} + catch(_eo_) + {_eo_ = caml_wrap_exception(_eo_); + if(_eo_ === Local_exn) {var idx$1=idx$0 - 1 | 0,idx$0=idx$1;continue} - throw _em_}}} + throw _eo_}}} return aux(0,len - 1 | 0)} function decode_arguments(s) {return decode_arguments_js_string(caml_jsbytes_of_string(s))} @@ -28299,79 +30743,81 @@ url_re= new regExp_withFlags - (caml_jsbytes_of_string - (cst_Hh_Tt_Tt_Pp_Ss_0_9a_zA_Z_0_9a_zA_Z_0_9A_Fa_f_0_9)), + (caml_jsbytes_of_string(cst_Hh_Tt_Tt_Pp_Ss_0_9a_zA_Z_0)), file_re=new regExp_withFlags(caml_jsbytes_of_string(cst_Ff_Ii_Ll_Ee)); function url_of_js_string(s) - {function _d2_(res) + {function _d4_(res) {var prot_string=caml_call2(Optdef[8],res[1],interrupt), - match=caml_js_to_byte_string(prot_string.toLowerCase()); - if(caml_string_notequal(match,cst_file$0)) - if(caml_string_notequal(match,cst_file$1)) - {if(caml_string_notequal(match,cst_http)) - if(caml_string_notequal(match,cst_http$0)) - {if(caml_string_notequal(match,cst_https)) - if(caml_string_notequal(match,cst_https$0)) - var switch$0=1,switch$1=0; - else - var switch$1=1; - else - var switch$1=1; - if(switch$1)var ssl=1,switch$0=2} - else - var switch$0=0; - else - var switch$0=0; - switch(switch$0) - {case 0:var ssl=0,switch$2=1;break; - case 1:var switch$2=0;break; - default:var switch$2=1} - if(switch$2) - {var - _ea_=function(param){return caml_jsbytes_of_string(cst$7)}, - path_str= - urldecode_js_string_string(caml_call2(Optdef[8],res[6],_ea_)), - _eb_=function(param){return caml_jsbytes_of_string(cst$8)}, - _ec_= - urldecode_js_string_string(caml_call2(Optdef[8],res[10],_eb_)), - _ed_=function(param){return caml_jsbytes_of_string(cst$9)}, - _ee_= - decode_arguments_js_string(caml_call2(Optdef[8],res[8],_ed_)), - _ef_=path_of_path_string(path_str), - _eg_=function(param){return caml_jsbytes_of_string(cst$10)}, - s=caml_js_to_byte_string(caml_call2(Optdef[8],res[4],_eg_)), - _eh_= - caml_string_notequal(s,cst$6)?caml_int_of_string(s):ssl?443:80, - url= - [0, - urldecode_js_string_string - (caml_call2(Optdef[8],res[2],interrupt)), - _eh_, - _ef_, - path_str, - _ee_, - _ec_], - _ei_=ssl?[1,url]:[0,url]; - return [0,_ei_]}} + match=caml_string_of_jsbytes(prot_string.toLowerCase()); + if + (caml_string_notequal(match,cst_file$0) + && + caml_string_notequal(match,cst_file$1)) + {var switch$0=0; + if + (caml_string_notequal(match,cst_http) + && + caml_string_notequal(match,cst_http$0)) + {var switch$1=0; + if + (caml_string_notequal(match,cst_https) + && + caml_string_notequal(match,cst_https$0)) + switch$1 = 1; + if(! switch$1){var ssl=1;switch$0 = 2}} + else + switch$0 = 1; + var switch$2=0; + switch(switch$0) + {case 1:var ssl=0;switch$2 = 1;break; + case 0:break; + default:switch$2 = 1} + if(switch$2) + {var + _ec_=function(param){return caml_jsbytes_of_string(cst$7)}, + path_str= + urldecode_js_string_string(caml_call2(Optdef[8],res[6],_ec_)), + _ed_=function(param){return caml_jsbytes_of_string(cst$8)}, + _ee_= + urldecode_js_string_string(caml_call2(Optdef[8],res[10],_ed_)), + _ef_=function(param){return caml_jsbytes_of_string(cst$9)}, + _eg_= + decode_arguments_js_string(caml_call2(Optdef[8],res[8],_ef_)), + _eh_=path_of_path_string(path_str), + _ei_=function(param){return caml_jsbytes_of_string(cst$10)}, + s=caml_string_of_jsbytes(caml_call2(Optdef[8],res[4],_ei_)), + _ej_= + caml_string_notequal(s,cst$6)?caml_int_of_string(s):ssl?443:80, + url= + [0, + urldecode_js_string_string + (caml_call2(Optdef[8],res[2],interrupt)), + _ej_, + _eh_, + path_str, + _eg_, + _ee_], + _ek_=ssl?[1,url]:[0,url]; + return [0,_ek_]}} throw Not_an_http_protocol} - function _d3_(param) - {function _d5_(res) + function _d5_(param) + {function _d7_(res) {var path_str= urldecode_js_string_string(caml_call2(Optdef[8],res[2],interrupt)); - function _d8_(param){return caml_jsbytes_of_string(cst$11)} - var _d9_=caml_js_to_byte_string(caml_call2(Optdef[8],res[6],_d8_)); - function _d__(param){return caml_jsbytes_of_string(cst$12)} + function _d__(param){return caml_jsbytes_of_string(cst$11)} + var _d$_=caml_string_of_jsbytes(caml_call2(Optdef[8],res[6],_d__)); + function _ea_(param){return caml_jsbytes_of_string(cst$12)} var - _d$_= - decode_arguments_js_string(caml_call2(Optdef[8],res[4],_d__)); - return [0,[2,[0,path_of_path_string(path_str),path_str,_d$_,_d9_]]]} - function _d6_(param){return 0} - var _d7_=file_re.exec(s); - return caml_call3(Opt[7],_d7_,_d6_,_d5_)} - var _d4_=url_re.exec(s); - return caml_call3(Opt[7],_d4_,_d3_,_d2_)} + _eb_= + decode_arguments_js_string(caml_call2(Optdef[8],res[4],_ea_)); + return [0,[2,[0,path_of_path_string(path_str),path_str,_eb_,_d$_]]]} + function _d8_(param){return 0} + var _d9_=file_re.exec(s); + return caml_call3(Opt[7],_d9_,_d8_,_d7_)} + var _d6_=url_re.exec(s); + return caml_call3(Opt[7],_d6_,_d5_,_d4_)} function url_of_string(s) {return url_of_js_string(caml_jsbytes_of_string(s))} function string_of_url(param) @@ -28385,33 +30831,33 @@ port=match[2], host=match[1]; if(caml_string_notequal(frag,cst$13)) - var _dp_=urlencode(0,frag),_dq_=caml_call2(Stdlib[28],cst$14,_dp_); + var _dr_=urlencode(0,frag),_ds_=caml_call2(Stdlib[28],cst$14,_dr_); else - var _dq_=cst$21; + var _ds_=cst$21; if(args) var - _dr_=encode_arguments(args), - _ds_=caml_call2(Stdlib[28],cst$15,_dr_); + _dt_=encode_arguments(args), + _du_=caml_call2(Stdlib[28],cst$15,_dt_); else - var _ds_=cst$20; + var _du_=cst$20; var - _dt_=caml_call2(Stdlib[28],_ds_,_dq_), - _du_=function(x){return urlencode(0,x)}, - _dv_=caml_call2(Stdlib_list[17],_du_,path), - _dw_=caml_call2(String[7],cst$16,_dv_), - _dx_=caml_call2(Stdlib[28],_dw_,_dt_), - _dy_=caml_call2(Stdlib[28],cst$17,_dx_); + _dv_=caml_call2(Stdlib[28],_du_,_ds_), + _dw_=function(x){return urlencode(0,x)}, + _dx_=caml_call2(Stdlib_list[17],_dw_,path), + _dy_=caml_call2(String[7],cst$16,_dx_), + _dz_=caml_call2(Stdlib[28],_dy_,_dv_), + _dA_=caml_call2(Stdlib[28],cst$17,_dz_); if(80 === port) - var _dz_=cst$18; + var _dB_=cst$18; else var - _dD_=caml_call1(Stdlib[33],port), - _dz_=caml_call2(Stdlib[28],cst$19,_dD_); + _dF_=caml_call1(Stdlib[33],port), + _dB_=caml_call2(Stdlib[28],cst$19,_dF_); var - _dA_=caml_call2(Stdlib[28],_dz_,_dy_), - _dB_=urlencode(0,host), - _dC_=caml_call2(Stdlib[28],_dB_,_dA_); - return caml_call2(Stdlib[28],cst_http$1,_dC_); + _dC_=caml_call2(Stdlib[28],_dB_,_dA_), + _dD_=urlencode(0,host), + _dE_=caml_call2(Stdlib[28],_dD_,_dC_); + return caml_call2(Stdlib[28],cst_http$1,_dE_); case 1: var match$0=param[1], @@ -28422,34 +30868,34 @@ host$0=match$0[1]; if(caml_string_notequal(frag$0,cst$22)) var - _dE_=urlencode(0,frag$0), - _dF_=caml_call2(Stdlib[28],cst$23,_dE_); + _dG_=urlencode(0,frag$0), + _dH_=caml_call2(Stdlib[28],cst$23,_dG_); else - var _dF_=cst$30; + var _dH_=cst$30; if(args$0) var - _dG_=encode_arguments(args$0), - _dH_=caml_call2(Stdlib[28],cst$24,_dG_); + _dI_=encode_arguments(args$0), + _dJ_=caml_call2(Stdlib[28],cst$24,_dI_); else - var _dH_=cst$29; + var _dJ_=cst$29; var - _dI_=caml_call2(Stdlib[28],_dH_,_dF_), - _dJ_=function(x){return urlencode(0,x)}, - _dK_=caml_call2(Stdlib_list[17],_dJ_,path$0), - _dL_=caml_call2(String[7],cst$25,_dK_), - _dM_=caml_call2(Stdlib[28],_dL_,_dI_), - _dN_=caml_call2(Stdlib[28],cst$26,_dM_); + _dK_=caml_call2(Stdlib[28],_dJ_,_dH_), + _dL_=function(x){return urlencode(0,x)}, + _dM_=caml_call2(Stdlib_list[17],_dL_,path$0), + _dN_=caml_call2(String[7],cst$25,_dM_), + _dO_=caml_call2(Stdlib[28],_dN_,_dK_), + _dP_=caml_call2(Stdlib[28],cst$26,_dO_); if(443 === port$0) - var _dO_=cst$27; + var _dQ_=cst$27; else var - _dS_=caml_call1(Stdlib[33],port$0), - _dO_=caml_call2(Stdlib[28],cst$28,_dS_); + _dU_=caml_call1(Stdlib[33],port$0), + _dQ_=caml_call2(Stdlib[28],cst$28,_dU_); var - _dP_=caml_call2(Stdlib[28],_dO_,_dN_), - _dQ_=urlencode(0,host$0), - _dR_=caml_call2(Stdlib[28],_dQ_,_dP_); - return caml_call2(Stdlib[28],cst_https$1,_dR_); + _dR_=caml_call2(Stdlib[28],_dQ_,_dP_), + _dS_=urlencode(0,host$0), + _dT_=caml_call2(Stdlib[28],_dS_,_dR_); + return caml_call2(Stdlib[28],cst_https$1,_dT_); default: var match$1=param[1], @@ -28458,41 +30904,40 @@ path$1=match$1[1]; if(caml_string_notequal(frag$1,cst$31)) var - _dT_=urlencode(0,frag$1), - _dU_=caml_call2(Stdlib[28],cst$32,_dT_); + _dV_=urlencode(0,frag$1), + _dW_=caml_call2(Stdlib[28],cst$32,_dV_); else - var _dU_=cst$36; + var _dW_=cst$36; if(args$1) var - _dV_=encode_arguments(args$1), - _dW_=caml_call2(Stdlib[28],cst$33,_dV_); + _dX_=encode_arguments(args$1), + _dY_=caml_call2(Stdlib[28],cst$33,_dX_); else - var _dW_=cst$35; + var _dY_=cst$35; var - _dX_=caml_call2(Stdlib[28],_dW_,_dU_), - _dY_=function(x){return urlencode(0,x)}, - _dZ_=caml_call2(Stdlib_list[17],_dY_,path$1), - _d0_=caml_call2(String[7],cst$34,_dZ_), - _d1_=caml_call2(Stdlib[28],_d0_,_dX_); - return caml_call2(Stdlib[28],cst_file$2,_d1_)}} + _dZ_=caml_call2(Stdlib[28],_dY_,_dW_), + _d0_=function(x){return urlencode(0,x)}, + _d1_=caml_call2(Stdlib_list[17],_d0_,path$1), + _d2_=caml_call2(String[7],cst$34,_d1_), + _d3_=caml_call2(Stdlib[28],_d2_,_dZ_); + return caml_call2(Stdlib[28],cst_file$2,_d3_)}} var _p_=caml_call1(Optdef[2],_g_.location); if(caml_call1(Optdef[5],_p_)) var _q_=_g_.location; else var - t29="", - t40=function(param,_do_){return 0}, - t39=function(param,_dn_){return 0}, + t40=function(param,_dq_){return 0}, + t39=function(param,_dp_){return 0}, t38=function(param){return 0}, _q_= - {"href":t29, - "protocol":t29, - "host":t29, - "hostname":t29, - "port":t29, - "pathname":t29, - "search":t29, - "hash":t29, + {"href":"", + "protocol":"", + "host":"", + "hostname":"", + "port":"", + "pathname":"", + "search":"", + "hash":"", "origin":t37, "reload":caml_js_wrap_meth_callback(t38), "replace":caml_js_wrap_meth_callback(t39), @@ -28504,22 +30949,22 @@ port= function(param) {try - {var _dl_=[0,caml_int_of_string(caml_js_to_byte_string(_q_.port))]; - return _dl_} - catch(_dm_) - {_dm_ = caml_wrap_exception(_dm_); - if(_dm_[1] === Stdlib[7])return 0; - throw _dm_}} + {var _dn_=[0,caml_int_of_string(caml_string_of_jsbytes(_q_.port))]; + return _dn_} + catch(_do_) + {_do_ = caml_wrap_exception(_do_); + if(_do_[1] === Stdlib[7])return 0; + throw _do_}} (_r_), path_string=urldecode_js_string_string(_q_.pathname), path=path_of_path_string(path_string), _s_=_q_.search.charAt(0) === "?"?_q_.search.slice(1):_q_.search, arguments$0=decode_arguments_js_string(_s_); function get_fragment(param) - {function _dh_(res){return caml_js_to_string(res[1])} - function _di_(param){return cst$37} - var _dj_=new regExp_withFlags("#(.*)"),_dk_=_q_.href.match(_dj_); - return caml_call3(Opt[7],_dk_,_di_,_dh_)} + {function _dj_(res){return caml_string_of_jsstring(res[1])} + function _dk_(param){return cst$37} + var _dl_=new regExp_withFlags("#(.*)"),_dm_=_q_.href.match(_dl_); + return caml_call3(Opt[7],_dm_,_dk_,_dj_)} function set_fragment(s) {return _q_.hash = caml_jsbytes_of_string(urlencode(0,s))} function get$2(param){return url_of_js_string(_q_.href)} @@ -28550,10 +30995,10 @@ get$2, set$0, as_string]]; - caml_register_global(1651,Js_of_ocaml_Url,"Js_of_ocaml__Url"); + caml_register_global(1658,Js_of_ocaml_Url,"Js_of_ocaml__Url"); var Js_of_ocaml_Lib_version=[0,s,git_version]; caml_register_global - (1652,Js_of_ocaml_Lib_version,"Js_of_ocaml__Lib_version"); + (1659,Js_of_ocaml_Lib_version,"Js_of_ocaml__Lib_version"); function update_file(name,content) {var oc=caml_call1(Stdlib[60],name); caml_call2(Stdlib[66],oc,content); @@ -28562,7 +31007,7 @@ {var f$0= caml_js_wrap_callback - (function(s){return caml_call1(f,caml_js_to_byte_string(s))}); + (function(s){return caml_call1(f,caml_string_of_jsbytes(s))}); return runtime.caml_ml_set_channel_output(out_channel,f$0)} function set_channel_filler(in_channel,f) {var f$0=caml_js_wrap_callback(f); @@ -28586,14 +31031,14 @@ [0, set_channel_flusher, set_channel_filler, - function(_dg_){return runtime.caml_list_mount_point(_dg_)}, + function(_di_){return runtime.caml_list_mount_point(_di_)}, unmount, mount, _u_, _t_, update_file, js_of_ocaml_version]; - caml_register_global(1653,Js_of_ocaml_Sys_js,"Js_of_ocaml__Sys_js"); + caml_register_global(1660,Js_of_ocaml_Sys_js,"Js_of_ocaml__Sys_js"); function empty_resize_observer_options(param){return {}} var resizeObserver=Unsafe[1].ResizeObserver; function is_supported$0(param) @@ -28609,7 +31054,7 @@ Js_of_ocaml_ResizeObserver= [0,empty_resize_observer_options,resizeObserver,is_supported$0,observe]; caml_register_global - (1654,Js_of_ocaml_ResizeObserver,"Js_of_ocaml__ResizeObserver"); + (1661,Js_of_ocaml_ResizeObserver,"Js_of_ocaml__ResizeObserver"); function empty_mutation_observer_init(param){return {}} var mutationObserver=Unsafe[1].MutationObserver; function is_supported$1(param) @@ -28653,7 +31098,7 @@ is_supported$1, observe$0]; caml_register_global - (1655,Js_of_ocaml_MutationObserver,"Js_of_ocaml__MutationObserver"); + (1662,Js_of_ocaml_MutationObserver,"Js_of_ocaml__MutationObserver"); var obj=Unsafe[1].Object; function create$1(param){return new obj()} function add$0(t,k,v){return t[k.concat("_")] = v} @@ -28663,40 +31108,56 @@ {var key_array=Unsafe[1].Object.keys(t), res=[0,0], - _dc_=key_array.length - 1 | 0, - _db_=0; - if(! (_dc_ < 0)) - {var i=_db_; + _de_=key_array.length - 1 | 0, + _dd_=0; + if(! (_de_ < 0)) + {var i=_dd_; for(;;) {var - _dd_=function(param){return caml_call1(Stdlib[2],cst_Jstable_keys)}, - key=caml_call2(Optdef[8],key_array[i],_dd_), - _de_=res[1]; - res[1] = [0,key.substring(0,key.length - 1 | 0),_de_]; - var _df_=i + 1 | 0; - if(_dc_ !== i){var i=_df_;continue} + _df_=function(param){return caml_call1(Stdlib[2],cst_Jstable_keys)}, + key=caml_call2(Optdef[8],key_array[i],_df_), + _dg_=res[1]; + res[1] = [0,key.substring(0,key.length - 1 | 0),_dg_]; + var _dh_=i + 1 | 0; + if(_de_ !== i){var i=_dh_;continue} break}} return caml_call1(Stdlib_list[9],res[1])} var Js_of_ocaml_Jstable=[0,create$1,add$0,remove,find,keys]; - caml_register_global(1656,Js_of_ocaml_Jstable,"Js_of_ocaml__Jstable"); - var json=runtime.caml_json(0); + caml_register_global(1663,Js_of_ocaml_Jstable,"Js_of_ocaml__Jstable"); + var json=Unsafe[1].JSON; function reviver(this$0,key,value) - {return typeof value == typeof "foo"?caml_js_to_byte_string(value):value} + {if(typeof value == typeof "foo")return caml_string_of_jsbytes(value); + if + (value instanceof array_length + && + 4 + === + value.length + && + 255 + === + value[0]) + return runtime.caml_int64_create_lo_mi_hi(value[1],value[2],value[3]); + return value} var input_reviver=caml_js_wrap_meth_callback(reviver); function unsafe_input(s){return json.parse(s,input_reviver)} - var mlString_constr=dummy_string.constructor; + var + mlString_constr=dummy_string.constructor, + mlInt64_constr=dummy_int64.constructor; function output_reviver(key,value) {return value instanceof mlString_constr ?caml_jsbytes_of_string(value) - :value} + :value instanceof mlInt64_constr + ?caml_js_from_array([0,255,value.lo,value.mi,value.hi]) + :value} function output(obj){return json.stringify(obj,output_reviver)} var Js_of_ocaml_Json=[0,output,unsafe_input]; - caml_register_global(1657,Js_of_ocaml_Json,"Js_of_ocaml__Json"); + caml_register_global(1664,Js_of_ocaml_Json,"Js_of_ocaml__Json"); function string_of_name(param) - {var _da_=param; - if(74 <= _da_) - {if(111 <= _da_) - switch(_da_) + {var _dc_=param; + if(74 <= _dc_) + {if(111 <= _dc_) + switch(_dc_) {case 111:return cst_palevioletred; case 112:return cst_papayawhip; case 113:return cst_peachpuff; @@ -28733,7 +31194,7 @@ case 144:return cst_whitesmoke; case 145:return cst_yellow; default:return cst_yellowgreen} - switch(_da_) + switch(_dc_) {case 74:return cst_lightpink; case 75:return cst_lightsalmon; case 76:return cst_lightseagreen; @@ -28771,8 +31232,8 @@ case 108:return cst_palegoldenrod; case 109:return cst_palegreen; default:return cst_paleturquoise}} - if(37 <= _da_) - switch(_da_) + if(37 <= _dc_) + switch(_dc_) {case 37:return cst_darkslategrey; case 38:return cst_darkturquoise; case 39:return cst_darkviolet; @@ -28810,7 +31271,7 @@ case 71:return cst_lightgray; case 72:return cst_lightgreen; default:return cst_lightgrey} - switch(_da_) + switch(_dc_) {case 0:return cst_aliceblue; case 1:return cst_antiquewhite; case 2:return cst_aqua; @@ -29042,13 +31503,13 @@ if(! caml_string_notequal(s,cst_bisque$0))return 6; if(! caml_string_notequal(s,cst_black$0))return 7; if(! caml_string_notequal(s,cst_blanchedalmond$0))return 8}}}} - var _c$_=caml_call2(Stdlib[28],s,cst_is_not_a_valid_color_name); - throw [0,Stdlib[6],_c$_]} + var _db_=caml_call2(Stdlib[28],s,cst_is_not_a_valid_color_name); + throw [0,Stdlib[6],_db_]} function rgb_of_name(param) - {var _c__=param; - if(74 <= _c__) - {if(111 <= _c__) - switch(_c__) + {var _da_=param; + if(74 <= _da_) + {if(111 <= _da_) + switch(_da_) {case 111:return _bo_; case 112:return _bp_; case 113:return _bq_; @@ -29085,7 +31546,7 @@ case 144:return _bV_; case 145:return _bW_; default:return _bX_} - switch(_c__) + switch(_da_) {case 74:return _aP_; case 75:return _aQ_; case 76:return _aR_; @@ -29123,8 +31584,8 @@ case 108:return _bl_; case 109:return _bm_; default:return _bn_}} - if(37 <= _c__) - switch(_c__) + if(37 <= _da_) + switch(_da_) {case 37:return _ae_; case 38:return _af_; case 39:return _ag_; @@ -29162,7 +31623,7 @@ case 71:return _aM_; case 72:return _aN_; default:return _aO_} - switch(_c__) + switch(_da_) {case 0:return _v_; case 1:return _w_; case 2:return _x_; @@ -29244,14 +31705,14 @@ {var blue=param[3],green=param[2],red=param[1]; function in_range(i) {var - _c6_=caml_call2(symbol$5,i,0), - _c7_=_c6_ || caml_call2(symbol$9,i,255); - if(_c7_) + _c8_=caml_call2(symbol$5,i,0), + _c9_=_c8_ || caml_call2(symbol$9,i,255); + if(_c9_) {var - _c8_=caml_call1(Stdlib[33],i), - _c9_=caml_call2(Stdlib[28],_c8_,cst_is_out_of_valid_range); - throw [0,Stdlib[6],_c9_]} - return _c7_} + _c__=caml_call1(Stdlib[33],i), + _c$_=caml_call2(Stdlib[28],_c__,cst_is_out_of_valid_range); + throw [0,Stdlib[6],_c$_]} + return _c9_} in_range(red); in_range(green); in_range(blue); @@ -29272,25 +31733,37 @@ new regExp_withFlags(caml_jsbytes_of_string(cst_hsl_s_d_s_d_s_d)), hsla_re= new regExp_withFlags(caml_jsbytes_of_string(cst_hsla_s_d_s_d_s_d_d_d)); - if(! (rgb_re.test(s) | 0)) - if(! (rgba_re.test(s) | 0)) - if(! (rgb_pct_re.test(s) | 0)) - if(! (rgba_pct_re.test(s) | 0)) - if(! (hsl_re.test(s) | 0)) - if(! (hsla_re.test(s) | 0)) - {if(caml_call2(Stdlib_list[32],caml_js_to_string(s),_b5_)) - return s; - var - _c5_= - caml_call2 - (Stdlib[28],caml_js_to_string(s),cst_is_not_a_valid_color); - throw [0,Stdlib[6],_c5_]} + if + (! + (rgb_re.test(s) | 0) + && + ! + (rgba_re.test(s) | 0) + && + ! + (rgb_pct_re.test(s) | 0) + && + ! + (rgba_pct_re.test(s) | 0) + && + ! + (hsl_re.test(s) | 0) + && + ! + (hsla_re.test(s) | 0)) + {var _c5_=caml_string_of_jsstring(s); + if(caml_call2(Stdlib_list[32],_c5_,_b5_))return s; + var + _c6_=caml_string_of_jsstring(s), + _c7_=caml_call2(Stdlib[28],_c6_,cst_is_not_a_valid_color); + throw [0,Stdlib[6],_c7_]} return s} function js(c) - {if(0 === c[0]){var n=c[1];return string_of_name(n).toString()} - return string_of_t(c).toString()} + {if(0 === c[0]) + {var n=c[1];return caml_jsstring_of_string(string_of_name(n))} + return caml_jsstring_of_string(string_of_t(c))} function ml(c) - {var s=caml_js_to_string(c); + {var s=caml_string_of_jsstring(c); try {var _cS_=[0,name_of_string(s)];return _cS_} catch(_cT_) @@ -29460,9 +31933,9 @@ default: var f$12=param[1]; return caml_call3(Stdlib_printf[4],_ch_,f$12,cst_pc)}} - function js$0(t){return string_of_t$0(t).toString()} + function js$0(t){return caml_jsstring_of_string(string_of_t$0(t))} function ml$0(t) - {var s=caml_js_to_string(t); + {var s=caml_string_of_jsstring(t); if(caml_call2(String[38],s,cst_0$0))return 0; function fail(param) {var _cz_=caml_call2(Stdlib[28],s,cst_is_not_a_valid_length); @@ -29521,9 +31994,9 @@ default: var f$2=param[1]; return caml_call3(Stdlib_printf[4],_cl_,f$2,cst_turns)}} - function js$1(t){return string_of_t$1(t).toString()} + function js$1(t){return caml_jsstring_of_string(string_of_t$1(t))} function ml$1(j) - {var s=caml_js_to_string(j),re=regexp(cst_d_d_deg_grad_rad_turns); + {var s=caml_string_of_jsstring(j),re=regexp(cst_d_d_deg_grad_rad_turns); function fail(param) {var _cv_=caml_call2(Stdlib[28],s,cst_is_not_a_valid_length$0); throw [0,Stdlib[6],_cv_]} @@ -29570,7 +32043,7 @@ js_t_of_js_string], Length, Angle]; - caml_register_global(1658,Js_of_ocaml_CSS,"Js_of_ocaml__CSS"); + caml_register_global(1665,Js_of_ocaml_CSS,"Js_of_ocaml__CSS"); function listen(opt,target,typ,cb) {if(opt)var sth=opt[1],capture=sth;else var capture=0; var _cr_=! ! capture; @@ -29581,12 +32054,13 @@ _cr_)} var Js_of_ocaml_Dom_events=[0,Event$0,listen,removeEventListener]; caml_register_global - (1659,Js_of_ocaml_Dom_events,"Js_of_ocaml__Dom_events"); + (1666,Js_of_ocaml_Dom_events,"Js_of_ocaml__Dom_events"); var xmlns="http://www.w3.org/2000/svg", - SVGError=[248,cst_Js_of_ocaml_Dom_svg_SVGError,caml_fresh_oo_id(0)]; + SVGError=[248,cst_Js_of_ocaml_Dom_svg_SVGErr,caml_fresh_oo_id(0)]; function createElement$0(doc,name) - {return doc.createElementNS(xmlns,name.toString())} + {return doc.createElementNS + ("http://www.w3.org/2000/svg",caml_jsstring_of_string(name))} function unsafeCreateElement$0(doc,name){return createElement$0(doc,name)} function createA$0(doc){return unsafeCreateElement$0(doc,cst_a$2)} function createAltGlyph(doc) @@ -29669,11 +32143,11 @@ function getElementById$0(id) {function _co_(e){if(e instanceof svg_element)return e;throw Stdlib[8]} function _cp_(param){throw Stdlib[8]} - var _cq_=Unsafe[1].document.getElementById(id.toString()); + var _cq_=Unsafe[1].document.getElementById(caml_jsstring_of_string(id)); return caml_call3(Opt[7],_cq_,_cp_,_co_)} function element$2(e){return e instanceof svg_element?e:no_handler} function unsafeCoerce$0(e,tag) - {var _cn_=tag.toString(); + {var _cn_=caml_jsstring_of_string(tag); return e.tagName.toLowerCase() === _cn_?e:no_handler} function a$0(e){return unsafeCoerce$0(e,cst_a$3)} function altGlyph(e){return unsafeCoerce$0(e,cst_altglyph$0)} @@ -29850,7 +32324,7 @@ use, view, vkern]]; - caml_register_global(1660,Js_of_ocaml_Dom_svg,"Js_of_ocaml__Dom_svg"); + caml_register_global(1667,Js_of_ocaml_Dom_svg,"Js_of_ocaml__Dom_svg"); function withCredentials(b) {var init={};init.withCredentials = ! ! b;return init} var @@ -29859,11 +32333,11 @@ Js_of_ocaml_EventSource= [0,withCredentials,eventSource,eventSource_options,addEventListener]; caml_register_global - (1661,Js_of_ocaml_EventSource,"Js_of_ocaml__EventSource"); + (1668,Js_of_ocaml_EventSource,"Js_of_ocaml__EventSource"); var console=runtime.caml_js_get_console(0), Js_of_ocaml_Firebug=[0,console]; - caml_register_global(1662,Js_of_ocaml_Firebug,"Js_of_ocaml__Firebug"); + caml_register_global(1669,Js_of_ocaml_Firebug,"Js_of_ocaml__Firebug"); function empty_position_options(param){return {}} var x=Unsafe[1].navigator, @@ -29873,7 +32347,7 @@ Js_of_ocaml_Geolocation= [0,empty_position_options,geolocation,is_supported$2]; caml_register_global - (1663,Js_of_ocaml_Geolocation,"Js_of_ocaml__Geolocation"); + (1670,Js_of_ocaml_Geolocation,"Js_of_ocaml__Geolocation"); function object_options(param){return {"localeMatcher":"best fit"}} function options(param) {return {"localeMatcher":"best fit", @@ -29934,9 +32408,9 @@ numberFormat_constr, pluralRules_constr, is_supported$3]; - caml_register_global(1664,Js_of_ocaml_Intl,"Js_of_ocaml__Intl"); + caml_register_global(1671,Js_of_ocaml_Intl,"Js_of_ocaml__Intl"); var Js_of_ocaml$0=[0]; - caml_register_global(1665,Js_of_ocaml$0,"Js_of_ocaml"); + caml_register_global(1672,Js_of_ocaml$0,"Js_of_ocaml"); return} (function(){return this}())); @@ -30184,10 +32658,10 @@ caml_fresh_oo_id=runtime.caml_fresh_oo_id, caml_int_of_string=runtime.caml_int_of_string, caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, caml_register_global=runtime.caml_register_global, caml_string_get=runtime.caml_string_get, caml_string_notequal=runtime.caml_string_notequal, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, caml_string_unsafe_get=runtime.caml_string_unsafe_get, caml_wrap_exception=runtime.caml_wrap_exception; function caml_call1(f,a0) @@ -30206,135 +32680,144 @@ :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} var global_data=runtime.caml_get_global_data(), - cst$11=caml_new_string(""), - cst$2=caml_new_string("("), - cst$3=caml_new_string("()"), - cst$4=caml_new_string(")"), - cst$5=caml_new_string(" "), - cst$6=caml_new_string("("), - cst$7=caml_new_string("()"), - cst$8=caml_new_string(")"), - cst$10=caml_new_string("()"), - cst$9=caml_new_string("()"), - cst=caml_new_string("\\"), - cst_n=caml_new_string("\\n"), - cst$0=caml_new_string(' "'), - cst$1=caml_new_string('"'), + cst$11=caml_string_of_jsbytes(""), + cst$2=caml_string_of_jsbytes("("), + cst$3=caml_string_of_jsbytes("()"), + cst$4=caml_string_of_jsbytes(")"), + cst$5=caml_string_of_jsbytes(" "), + cst$6=caml_string_of_jsbytes("("), + cst$7=caml_string_of_jsbytes("()"), + cst$8=caml_string_of_jsbytes(")"), + cst$10=caml_string_of_jsbytes("()"), + cst$9=caml_string_of_jsbytes("()"), + cst=caml_string_of_jsbytes("\\"), + cst_n=caml_string_of_jsbytes("\\n"), + cst$0=caml_string_of_jsbytes(' "'), + cst$1=caml_string_of_jsbytes('"'), cst_Sexplib0_Sexp_Not_found_s= - caml_new_string("Sexplib0.Sexp.Not_found_s"), - cst_Sexplib0_Sexp_Of_sexp_error= - caml_new_string("Sexplib0.Sexp.Of_sexp_error"), - cst_Assert_failure=caml_new_string("Assert_failure"), - cst_Match_failure=caml_new_string("Match_failure"), - cst_fun_of_sexp_cannot_convert_function_values= - caml_new_string("fun_of_sexp: cannot convert function values"), - cst_opaque_of_sexp_cannot_convert_opaque_values= - caml_new_string("opaque_of_sexp: cannot convert opaque values"), - cst_hashtbl_of_sexp_tuple_list_needed= - caml_new_string("hashtbl_of_sexp: tuple list needed"), - cst_hashtbl_of_sexp_list_needed= - caml_new_string("hashtbl_of_sexp: list needed"), + caml_string_of_jsbytes("Sexplib0.Sexp.Not_found_s"), + cst_Sexplib0_Sexp_Of_sexp_erro= + caml_string_of_jsbytes("Sexplib0.Sexp.Of_sexp_error"), + cst_Assert_failure=caml_string_of_jsbytes("Assert_failure"), + cst_Match_failure=caml_string_of_jsbytes("Match_failure"), + cst_fun_of_sexp_cannot_convert= + caml_string_of_jsbytes("fun_of_sexp: cannot convert function values"), + cst_opaque_of_sexp_cannot_conv= + caml_string_of_jsbytes("opaque_of_sexp: cannot convert opaque values"), + cst_hashtbl_of_sexp_tuple_list= + caml_string_of_jsbytes("hashtbl_of_sexp: tuple list needed"), + cst_hashtbl_of_sexp_list_neede= + caml_string_of_jsbytes("hashtbl_of_sexp: list needed"), cst_array_of_sexp_list_needed= - caml_new_string("array_of_sexp: list needed"), - cst_list_of_sexp_list_needed=caml_new_string("list_of_sexp: list needed"), + caml_string_of_jsbytes("array_of_sexp: list needed"), + cst_list_of_sexp_list_needed= + caml_string_of_jsbytes("list_of_sexp: list needed"), cst_triple_of_sexp_list_needed= - caml_new_string("triple_of_sexp: list needed"), - cst_triple_of_sexp_list_must_contain_exactly_three_elements_only= - caml_new_string + caml_string_of_jsbytes("triple_of_sexp: list needed"), + cst_triple_of_sexp_list_must_c= + caml_string_of_jsbytes ("triple_of_sexp: list must contain exactly three elements only"), - cst_pair_of_sexp_list_needed=caml_new_string("pair_of_sexp: list needed"), - cst_pair_of_sexp_list_must_contain_exactly_two_elements_only= - caml_new_string + cst_pair_of_sexp_list_needed= + caml_string_of_jsbytes("pair_of_sexp: list needed"), + cst_pair_of_sexp_list_must_con= + caml_string_of_jsbytes ("pair_of_sexp: list must contain exactly two elements only"), - cst_None=caml_new_string("None"), - cst_none=caml_new_string("none"), - cst_option_of_sexp_only_none_can_be_atom= - caml_new_string("option_of_sexp: only none can be atom"), - cst_Some=caml_new_string("Some"), - cst_some=caml_new_string("some"), - cst_option_of_sexp_list_must_represent_optional_value= - caml_new_string("option_of_sexp: list must represent optional value"), - cst_None$0=caml_new_string("None"), - cst_none$0=caml_new_string("none"), - cst_option_of_sexp_only_none_can_be_atom$0= - caml_new_string("option_of_sexp: only none can be atom"), - cst_Some$0=caml_new_string("Some"), - cst_some$0=caml_new_string("some"), - cst_option_of_sexp_list_must_be_some_el= - caml_new_string("option_of_sexp: list must be (some el)"), - cst_nativeint_of_sexp=caml_new_string("nativeint_of_sexp: "), - cst_nativeint_of_sexp_atom_needed= - caml_new_string("nativeint_of_sexp: atom needed"), - cst_int64_of_sexp=caml_new_string("int64_of_sexp: "), + cst_None=caml_string_of_jsbytes("None"), + cst_none=caml_string_of_jsbytes("none"), + cst_option_of_sexp_only_none_c= + caml_string_of_jsbytes("option_of_sexp: only none can be atom"), + cst_Some=caml_string_of_jsbytes("Some"), + cst_some=caml_string_of_jsbytes("some"), + cst_option_of_sexp_list_must_r= + caml_string_of_jsbytes + ("option_of_sexp: list must represent optional value"), + cst_None$0=caml_string_of_jsbytes("None"), + cst_none$0=caml_string_of_jsbytes("none"), + cst_option_of_sexp_only_none_c$0= + caml_string_of_jsbytes("option_of_sexp: only none can be atom"), + cst_Some$0=caml_string_of_jsbytes("Some"), + cst_some$0=caml_string_of_jsbytes("some"), + cst_option_of_sexp_list_must_b= + caml_string_of_jsbytes("option_of_sexp: list must be (some el)"), + cst_nativeint_of_sexp=caml_string_of_jsbytes("nativeint_of_sexp: "), + cst_nativeint_of_sexp_atom_nee= + caml_string_of_jsbytes("nativeint_of_sexp: atom needed"), + cst_int64_of_sexp=caml_string_of_jsbytes("int64_of_sexp: "), cst_int64_of_sexp_atom_needed= - caml_new_string("int64_of_sexp: atom needed"), - cst_int32_of_sexp=caml_new_string("int32_of_sexp: "), + caml_string_of_jsbytes("int64_of_sexp: atom needed"), + cst_int32_of_sexp=caml_string_of_jsbytes("int32_of_sexp: "), cst_int32_of_sexp_atom_needed= - caml_new_string("int32_of_sexp: atom needed"), - cst_float_of_sexp=caml_new_string("float_of_sexp: "), + caml_string_of_jsbytes("int32_of_sexp: atom needed"), + cst_float_of_sexp=caml_string_of_jsbytes("float_of_sexp: "), cst_float_of_sexp_atom_needed= - caml_new_string("float_of_sexp: atom needed"), - cst_int_of_sexp=caml_new_string("int_of_sexp: "), - cst_int_of_sexp_atom_needed=caml_new_string("int_of_sexp: atom needed"), - cst_char_of_sexp_atom_string_must_contain_one_character_only= - caml_new_string + caml_string_of_jsbytes("float_of_sexp: atom needed"), + cst_int_of_sexp=caml_string_of_jsbytes("int_of_sexp: "), + cst_int_of_sexp_atom_needed= + caml_string_of_jsbytes("int_of_sexp: atom needed"), + cst_char_of_sexp_atom_string_m= + caml_string_of_jsbytes ("char_of_sexp: atom string must contain one character only"), - cst_char_of_sexp_atom_needed=caml_new_string("char_of_sexp: atom needed"), + cst_char_of_sexp_atom_needed= + caml_string_of_jsbytes("char_of_sexp: atom needed"), cst_bytes_of_sexp_atom_needed= - caml_new_string("bytes_of_sexp: atom needed"), + caml_string_of_jsbytes("bytes_of_sexp: atom needed"), cst_string_of_sexp_atom_needed= - caml_new_string("string_of_sexp: atom needed"), - cst_False=caml_new_string("False"), - cst_True=caml_new_string("True"), - cst_false=caml_new_string("false"), - cst_true=caml_new_string("true"), - cst_bool_of_sexp_unknown_string= - caml_new_string("bool_of_sexp: unknown string"), - cst_bool_of_sexp_atom_needed=caml_new_string("bool_of_sexp: atom needed"), - cst_unit_of_sexp_empty_list_needed= - caml_new_string("unit_of_sexp: empty list needed"), - cst_15G=caml_new_string("%.15G"), - cst_17G=caml_new_string("%.17G"), - cst$13=caml_new_string(" "), - cst_of_sexp_trying_to_convert_an_empty_type= - caml_new_string("_of_sexp: trying to convert an empty type"), - cst_of_sexp_trying_to_convert_a_silly_type= - caml_new_string("_of_sexp: trying to convert a silly type"), - cst_of_sexp_the_empty_list_is_an_invalid_polymorphic_variant= - caml_new_string + caml_string_of_jsbytes("string_of_sexp: atom needed"), + cst_False=caml_string_of_jsbytes("False"), + cst_True=caml_string_of_jsbytes("True"), + cst_false=caml_string_of_jsbytes("false"), + cst_true=caml_string_of_jsbytes("true"), + cst_bool_of_sexp_unknown_strin= + caml_string_of_jsbytes("bool_of_sexp: unknown string"), + cst_bool_of_sexp_atom_needed= + caml_string_of_jsbytes("bool_of_sexp: atom needed"), + cst_unit_of_sexp_empty_list_ne= + caml_string_of_jsbytes("unit_of_sexp: empty list needed"), + cst_15G=caml_string_of_jsbytes("%.15G"), + cst_17G=caml_string_of_jsbytes("%.17G"), + cst$13=caml_string_of_jsbytes(" "), + cst_of_sexp_trying_to_convert_$0= + caml_string_of_jsbytes("_of_sexp: trying to convert an empty type"), + cst_of_sexp_trying_to_convert_= + caml_string_of_jsbytes("_of_sexp: trying to convert a silly type"), + cst_of_sexp_the_empty_list_is_$0= + caml_string_of_jsbytes ("_of_sexp: the empty list is an invalid polymorphic variant"), - cst_of_sexp_a_nested_list_is_an_invalid_polymorphic_variant= - caml_new_string + cst_of_sexp_a_nested_list_is_a$0= + caml_string_of_jsbytes ("_of_sexp: a nested list is an invalid polymorphic variant"), - cst_of_sexp_polymorphic_variant_tag_takes_an_argument= - caml_new_string("_of_sexp: polymorphic variant tag takes an argument"), - cst_of_sexp_polymorphic_variant_does_not_take_arguments= - caml_new_string("_of_sexp: polymorphic variant does not take arguments"), - cst_of_sexp_no_matching_variant_found= - caml_new_string("_of_sexp: no matching variant found"), - cst_of_sexp_cannot_convert_values_of_types_resulting_from_polymorphic_record_fields= - caml_new_string + cst_of_sexp_polymorphic_varian$0= + caml_string_of_jsbytes + ("_of_sexp: polymorphic variant tag takes an argument"), + cst_of_sexp_polymorphic_varian= + caml_string_of_jsbytes + ("_of_sexp: polymorphic variant does not take arguments"), + cst_of_sexp_no_matching_varian= + caml_string_of_jsbytes("_of_sexp: no matching variant found"), + cst_of_sexp_cannot_convert_val= + caml_string_of_jsbytes ("_of_sexp: cannot convert values of types resulting from polymorphic record fields"), - cst_of_sexp_list_instead_of_atom_for_record_expected= - caml_new_string("_of_sexp: list instead of atom for record expected"), - cst_extra_fields=caml_new_string("extra fields"), - cst_duplicate_fields=caml_new_string("duplicate fields"), - cst$12=caml_new_string(" "), - cst_of_sexp_record_conversion_only_pairs_expected_their_first_element_must_be_an_atom= - caml_new_string + cst_of_sexp_list_instead_of_at= + caml_string_of_jsbytes + ("_of_sexp: list instead of atom for record expected"), + cst_extra_fields=caml_string_of_jsbytes("extra fields"), + cst_duplicate_fields=caml_string_of_jsbytes("duplicate fields"), + cst$12=caml_string_of_jsbytes(" "), + cst_of_sexp_record_conversion_= + caml_string_of_jsbytes ("_of_sexp: record conversion: only pairs expected, their first element must be an atom"), cst_of_sexp_unexpected_sum_tag= - caml_new_string("_of_sexp: unexpected sum tag"), - cst_of_sexp_the_empty_list_is_an_invalid_sum= - caml_new_string("_of_sexp: the empty list is an invalid sum"), - cst_of_sexp_a_nested_list_is_an_invalid_sum= - caml_new_string("_of_sexp: a nested list is an invalid sum"), - cst_of_sexp_sum_tag_must_be_a_structured_value= - caml_new_string("_of_sexp: sum tag must be a structured value"), - cst_of_sexp_sum_tag_does_not_take_arguments= - caml_new_string("_of_sexp: sum tag does not take arguments"), - cst_Sexplib0_Sexp_conv_error_No_variant_match= - caml_new_string("Sexplib0.Sexp_conv_error.No_variant_match"), + caml_string_of_jsbytes("_of_sexp: unexpected sum tag"), + cst_of_sexp_the_empty_list_is_= + caml_string_of_jsbytes("_of_sexp: the empty list is an invalid sum"), + cst_of_sexp_a_nested_list_is_a= + caml_string_of_jsbytes("_of_sexp: a nested list is an invalid sum"), + cst_of_sexp_sum_tag_must_be_a_= + caml_string_of_jsbytes("_of_sexp: sum tag must be a structured value"), + cst_of_sexp_sum_tag_does_not_t= + caml_string_of_jsbytes("_of_sexp: sum tag does not take arguments"), + cst_Sexplib0_Sexp_conv_error_N= + caml_string_of_jsbytes("Sexplib0.Sexp_conv_error.No_variant_match"), Stdlib_stringLabels=global_data.Stdlib__stringLabels, Stdlib_format=global_data.Stdlib__format, Stdlib_listLabels=global_data.Stdlib__listLabels, @@ -30365,102 +32848,106 @@ Sexplib0=[0]; caml_register_global(137,Sexplib0,"Sexplib0"); var - _b_=[0,[15,[17,2,0]],caml_new_string("%a@?")], + _b_=[0,[15,[17,2,0]],caml_string_of_jsbytes("%a@?")], _a_=[0,0,0], _aJ_=[0,0], - _aG_=[0,caml_new_string("sexp_conv.ml"),354,17], - _aC_=[0,caml_new_string("Exit")], - _aD_=[0,caml_new_string("sexp_conv.ml"),359,17], - _ay_=[0,caml_new_string("End_of_file")], - _az_=[0,caml_new_string("sexp_conv.ml"),364,17], - _au_=[0,caml_new_string("Failure")], - _av_=[0,caml_new_string("sexp_conv.ml"),369,17], - _aq_=[0,caml_new_string("Not_found")], - _ar_=[0,caml_new_string("sexp_conv.ml"),374,17], - _am_=[0,caml_new_string("Invalid_argument")], - _an_=[0,caml_new_string("sexp_conv.ml"),379,17], - _aj_=[0,caml_new_string("sexp_conv.ml"),384,17], - _af_=[0,caml_new_string("Not_found_s")], - _ag_=[0,caml_new_string("sexp_conv.ml"),389,17], - _ac_=[0,caml_new_string("Sys_error")], - _ad_=[0,caml_new_string("sexp_conv.ml"),394,17], - ___=[0,caml_new_string("Arg.Help")], - _$_=[0,caml_new_string("sexp_conv.ml"),399,17], - _W_=[0,caml_new_string("Arg.Bad")], - _X_=[0,caml_new_string("sexp_conv.ml"),404,17], - _S_=[0,caml_new_string("Lazy.Undefined")], - _T_=[0,caml_new_string("sexp_conv.ml"),409,17], - _O_=[0,caml_new_string("Parsing.Parse_error")], - _P_=[0,caml_new_string("sexp_conv.ml"),414,17], - _K_=[0,caml_new_string("Queue.Empty")], - _L_=[0,caml_new_string("sexp_conv.ml"),419,17], - _G_=[0,caml_new_string("Scanf.Scan_failure")], - _H_=[0,caml_new_string("sexp_conv.ml"),424,17], - _C_=[0,caml_new_string("Stack.Empty")], - _D_=[0,caml_new_string("sexp_conv.ml"),429,17], - _y_=[0,caml_new_string("Stream.Failure")], - _z_=[0,caml_new_string("sexp_conv.ml"),434,17], - _u_=[0,caml_new_string("Stream.Error")], - _v_=[0,caml_new_string("sexp_conv.ml"),439,17], - _q_=[0,caml_new_string("Sys.Break")], - _r_=[0,caml_new_string("sexp_conv.ml"),444,17], - _m_=[0,caml_new_string("Sexplib.Conv.Of_sexp_error")], - _n_=[0,caml_new_string("sexp_conv.ml"),450,17], + _aG_=[0,caml_string_of_jsbytes("sexp_conv.ml"),354,17], + _aC_=[0,caml_string_of_jsbytes("Exit")], + _aD_=[0,caml_string_of_jsbytes("sexp_conv.ml"),359,17], + _ay_=[0,caml_string_of_jsbytes("End_of_file")], + _az_=[0,caml_string_of_jsbytes("sexp_conv.ml"),364,17], + _au_=[0,caml_string_of_jsbytes("Failure")], + _av_=[0,caml_string_of_jsbytes("sexp_conv.ml"),369,17], + _aq_=[0,caml_string_of_jsbytes("Not_found")], + _ar_=[0,caml_string_of_jsbytes("sexp_conv.ml"),374,17], + _am_=[0,caml_string_of_jsbytes("Invalid_argument")], + _an_=[0,caml_string_of_jsbytes("sexp_conv.ml"),379,17], + _aj_=[0,caml_string_of_jsbytes("sexp_conv.ml"),384,17], + _af_=[0,caml_string_of_jsbytes("Not_found_s")], + _ag_=[0,caml_string_of_jsbytes("sexp_conv.ml"),389,17], + _ac_=[0,caml_string_of_jsbytes("Sys_error")], + _ad_=[0,caml_string_of_jsbytes("sexp_conv.ml"),394,17], + ___=[0,caml_string_of_jsbytes("Arg.Help")], + _$_=[0,caml_string_of_jsbytes("sexp_conv.ml"),399,17], + _W_=[0,caml_string_of_jsbytes("Arg.Bad")], + _X_=[0,caml_string_of_jsbytes("sexp_conv.ml"),404,17], + _S_=[0,caml_string_of_jsbytes("Lazy.Undefined")], + _T_=[0,caml_string_of_jsbytes("sexp_conv.ml"),409,17], + _O_=[0,caml_string_of_jsbytes("Parsing.Parse_error")], + _P_=[0,caml_string_of_jsbytes("sexp_conv.ml"),414,17], + _K_=[0,caml_string_of_jsbytes("Queue.Empty")], + _L_=[0,caml_string_of_jsbytes("sexp_conv.ml"),419,17], + _G_=[0,caml_string_of_jsbytes("Scanf.Scan_failure")], + _H_=[0,caml_string_of_jsbytes("sexp_conv.ml"),424,17], + _C_=[0,caml_string_of_jsbytes("Stack.Empty")], + _D_=[0,caml_string_of_jsbytes("sexp_conv.ml"),429,17], + _y_=[0,caml_string_of_jsbytes("Stream.Failure")], + _z_=[0,caml_string_of_jsbytes("sexp_conv.ml"),434,17], + _u_=[0,caml_string_of_jsbytes("Stream.Error")], + _v_=[0,caml_string_of_jsbytes("sexp_conv.ml"),439,17], + _q_=[0,caml_string_of_jsbytes("Sys.Break")], + _r_=[0,caml_string_of_jsbytes("sexp_conv.ml"),444,17], + _m_=[0,caml_string_of_jsbytes("Sexplib.Conv.Of_sexp_error")], + _n_=[0,caml_string_of_jsbytes("sexp_conv.ml"),450,17], _k_= [0, [2,0,[12,32,[2,0,[12,58,[4,0,0,0,[12,58,[4,0,0,0,0]]]]]]], - caml_new_string("%s %s:%d:%d")], + caml_string_of_jsbytes("%s %s:%d:%d")], _j_=[0,2], - _h_=[0,caml_new_string("")], - _g_=[0,caml_new_string("")], - _d_=[0,caml_new_string("some")], + _h_=[0,caml_string_of_jsbytes("")], + _g_=[0,caml_string_of_jsbytes("")], + _d_=[0,caml_string_of_jsbytes("some")], _e_=[1,0], - _f_=[0,caml_new_string("none")], + _f_=[0,caml_string_of_jsbytes("none")], _c_=[1,0], _aO_= [0, [2, 0, [11, - caml_new_string("_of_sexp: polymorphic variant tag "), - [3,0,[11,caml_new_string(" has incorrect number of arguments"),0]]]], - caml_new_string + caml_string_of_jsbytes("_of_sexp: polymorphic variant tag "), + [3, + 0, + [11,caml_string_of_jsbytes(" has incorrect number of arguments"),0]]]], + caml_string_of_jsbytes ("%s_of_sexp: polymorphic variant tag %S has incorrect number of arguments")], _aN_= [0, [2, 0, [11, - caml_new_string + caml_string_of_jsbytes ("_of_sexp: the following record elements were undefined: "), [2,0,0]]], - caml_new_string + caml_string_of_jsbytes ("%s_of_sexp: the following record elements were undefined: %s")], _aM_= [0, [2, 0, [11, - caml_new_string("_of_sexp: "), - [2,0,[11,caml_new_string(": "),[2,0,0]]]]], - caml_new_string("%s_of_sexp: %s: %s")], + caml_string_of_jsbytes("_of_sexp: "), + [2,0,[11,caml_string_of_jsbytes(": "),[2,0,0]]]]], + caml_string_of_jsbytes("%s_of_sexp: %s: %s")], _aL_= [0, [2, 0, [11, - caml_new_string("_of_sexp: sum tag "), - [3,0,[11,caml_new_string(" has incorrect number of arguments"),0]]]], - caml_new_string + caml_string_of_jsbytes("_of_sexp: sum tag "), + [3, + 0, + [11,caml_string_of_jsbytes(" has incorrect number of arguments"),0]]]], + caml_string_of_jsbytes ("%s_of_sexp: sum tag %S has incorrect number of arguments")], _aK_= [0, [2, 0, [11, - caml_new_string("_of_sexp: tuple of size "), - [4,0,0,0,[11,caml_new_string(" expected"),0]]]], - caml_new_string("%s_of_sexp: tuple of size %d expected")]; + caml_string_of_jsbytes("_of_sexp: tuple of size "), + [4,0,0,0,[11,caml_string_of_jsbytes(" expected"),0]]]], + caml_string_of_jsbytes("%s_of_sexp: tuple of size %d expected")]; function sexp_of_t(t){return t} function t_of_sexp(t){return t} function compare(a$0,match) @@ -30485,35 +32972,34 @@ function equal(a,b){return 0 === compare(a,b)?1:0} var Not_found_s=[248,cst_Sexplib0_Sexp_Not_found_s,caml_fresh_oo_id(0)], - Of_sexp_error=[248,cst_Sexplib0_Sexp_Of_sexp_error,caml_fresh_oo_id(0)], + Of_sexp_error=[248,cst_Sexplib0_Sexp_Of_sexp_erro,caml_fresh_oo_id(0)], default_indent=[0,1]; function must_escape(str) {var len=caml_ml_string_length(str),_b4_=0 === len?1:0; if(_b4_)return _b4_; var ix$3=len - 1 | 0,ix=ix$3; for(;;) - {var match=caml_string_get(str,ix); + {var match=caml_string_get(str,ix),switch$0=0; if(92 <= match) {var switcher=match - 93 | 0; if(33 < switcher >>> 0) - var switch$0=0 <= switcher?2:1; + if(0 <= switcher)switch$0 = 2;else switch$0 = 1; else - {if(31 === switcher) - {var _b5_=0 < ix?1:0; - if(_b5_) - {var - ix$0=ix - 1 | 0, - _b6_=caml_string_get(str,ix$0), - _b7_=caml_call2(Stdlib_char[8],_b6_,35); - if(! _b7_){var ix=ix$0;continue} - var _b8_=_b7_} - else - var _b8_=_b5_; - return _b8_} - var switch$0=0}} + if(31 === switcher) + {var _b5_=0 < ix?1:0; + if(_b5_) + {var + ix$0=ix - 1 | 0, + _b6_=caml_string_get(str,ix$0), + _b7_=caml_call2(Stdlib_char[8],_b6_,35); + if(! _b7_){var ix=ix$0;continue} + var _b8_=_b7_} + else + var _b8_=_b5_; + return _b8_}} else if(42 <= match) - var switch$0=59 === match?1:0; + {if(59 === match)switch$0 = 1} else if(33 <= match) {var switcher$0=match - 33 | 0; @@ -30532,10 +33018,10 @@ return _cb_; case 1: case 7: - case 8:var switch$0=1;break; - default:var switch$0=0}} + case 8:switch$0 = 1;break + }} else - var switch$0=2; + switch$0 = 2; switch(switch$0) {case 0: var _b9_=0 < ix?1:0; @@ -30548,19 +33034,19 @@ if(! (_bU_ < 0)) {var i$0=_bT_; for(;;) - {var match=caml_string_unsafe_get(s,i$0); + {var match=caml_string_unsafe_get(s,i$0),switch$0=0; if(32 <= match) - {var _b1_=match - 34 | 0; + {var _b1_=match - 34 | 0,switch$1=0; if(58 < _b1_ >>> 0) - if(93 <= _b1_)var switch$0=0,switch$1=0;else var switch$1=1; + {if(93 <= _b1_)switch$1 = 1} else - if(56 < (_b1_ - 1 | 0) >>> 0) - var switch$0=1,switch$1=0; - else - var switch$1=1; - if(switch$1)var _b2_=1,switch$0=2} + if(56 < (_b1_ - 1 | 0) >>> 0){switch$0 = 1;switch$1 = 1} + if(! switch$1){var _b2_=1;switch$0 = 2}} else - var switch$0=11 <= match?13 === match?1:0:8 <= match?1:0; + if(11 <= match) + {if(13 === match)switch$0 = 1} + else + if(8 <= match)switch$0 = 1; switch(switch$0){case 0:var _b2_=4;break;case 1:var _b2_=2;break} n[1] = n[1] + _b2_ | 0; var _b3_=i$0 + 1 | 0; @@ -30573,44 +33059,43 @@ if(! (_bW_ < 0)) {var i=_bV_; for(;;) - {var c=caml_string_unsafe_get(s,i); + {var c=caml_string_unsafe_get(s,i),switch$2=0; if(35 <= c) - var switch$2=92 === c?1:127 <= c?0:2; + if(92 === c) + switch$2 = 2; + else + if(127 <= c)switch$2 = 1;else switch$2 = 3; else if(32 <= c) - var switch$2=34 <= c?1:2; + if(34 <= c)switch$2 = 2;else switch$2 = 3; else if(14 <= c) - var switch$2=0; + switch$2 = 1; else switch(c) {case 8: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],98); - var switch$2=3; break; case 9: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],116); - var switch$2=3; break; case 10: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],110); - var switch$2=3; break; case 13: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],114); - var switch$2=3; break; - default:var switch$2=0} + default:switch$2 = 1} switch(switch$2) - {case 0: + {case 1: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; var _bY_=caml_call1(Stdlib_char[1],48 + (c / 100 | 0) | 0); @@ -30624,12 +33109,12 @@ var _b0_=caml_call1(Stdlib_char[1],48 + (c % 10 | 0) | 0); caml_bytes_unsafe_set(s$0,n[1],_b0_); break; - case 1: + case 2: caml_bytes_unsafe_set(s$0,n[1],92); n[1]++; caml_bytes_unsafe_set(s$0,n[1],c); break; - case 2:caml_bytes_unsafe_set(s$0,n[1],c);break + case 3:caml_bytes_unsafe_set(s$0,n[1],c);break } n[1]++; var _bX_=i + 1 | 0; @@ -31034,21 +33519,19 @@ function of_sexp_error(what,sexp) {throw [0,Of_sexp_error,[0,Stdlib[7],what],sexp]} function unit_of_sexp(sexp) - {if(1 === sexp[0])if(! sexp[1])return 0; - return of_sexp_error(cst_unit_of_sexp_empty_list_needed,sexp)} + {if(1 === sexp[0] && ! sexp[1])return 0; + return of_sexp_error(cst_unit_of_sexp_empty_list_ne,sexp)} function bool_of_sexp(sexp) {if(0 === sexp[0]) {var _bm_=sexp[1]; if(caml_string_notequal(_bm_,cst_False)) - {if(caml_string_notequal(_bm_,cst_True)) + {var switch$0=0; + if(caml_string_notequal(_bm_,cst_True)) if(caml_string_notequal(_bm_,cst_false)) {if(caml_string_notequal(_bm_,cst_true)) - return of_sexp_error(cst_bool_of_sexp_unknown_string,sexp); - var switch$0=0} + return of_sexp_error(cst_bool_of_sexp_unknown_strin,sexp)} else - var switch$0=1; - else - var switch$0=0; + switch$0 = 1; if(! switch$0)return 1} return 0} return of_sexp_error(cst_bool_of_sexp_atom_needed,sexp)} @@ -31063,8 +33546,7 @@ {if(0 === sexp[0]) {var str=sexp[1]; if(1 !== caml_ml_string_length(str)) - of_sexp_error - (cst_char_of_sexp_atom_string_must_contain_one_character_only,sexp); + of_sexp_error(cst_char_of_sexp_atom_string_m,sexp); return caml_string_get(str,0)} return of_sexp_error(cst_char_of_sexp_atom_needed,sexp)} function int_of_sexp(sexp) @@ -31121,7 +33603,7 @@ var _bc_=exn_to_string(exc); return of_sexp_error (caml_call2(Stdlib[28],cst_nativeint_of_sexp,_bc_),sexp)}} - return of_sexp_error(cst_nativeint_of_sexp_atom_needed,sexp)} + return of_sexp_error(cst_nativeint_of_sexp_atom_nee,sexp)} function ref_of_sexp(a_of_sexp,sexp) {return [0,caml_call1(a_of_sexp,sexp)]} function lazy_t_of_sexp(a_of_sexp,sexp) @@ -31131,76 +33613,71 @@ {if(read_old_option_format[1]) {if(0 === sexp[0]) {var _a3_=sexp[1]; - if(caml_string_notequal(_a3_,cst_None)) - if(caml_string_notequal(_a3_,cst_none)) - return of_sexp_error - (cst_option_of_sexp_only_none_can_be_atom,sexp)} + if + (caml_string_notequal(_a3_,cst_None) + && + caml_string_notequal(_a3_,cst_none)) + return of_sexp_error(cst_option_of_sexp_only_none_c,sexp)} else {var _a4_=sexp[1]; if(_a4_) {var _a5_=_a4_[1]; if(_a4_[2]) - {if(0 === _a5_[0]) - {var _a6_=_a5_[1]; - if(caml_string_notequal(_a6_,cst_Some)) - if(caml_string_notequal(_a6_,cst_some)) - var switch$0=0,switch$1=0; - else - var switch$1=1; - else - var switch$1=1; - if(switch$1) - {var _a7_=_a4_[2]; - if(_a7_[2])var switch$0=0;else var el=_a7_[1],switch$0=1}} - else - var switch$0=0; + {var switch$0=0; + if(0 === _a5_[0]) + {var _a6_=_a5_[1],switch$1=0; + if + (caml_string_notequal(_a6_,cst_Some) + && + caml_string_notequal(_a6_,cst_some)) + switch$1 = 1; + if(! switch$1) + {var _a7_=_a4_[2];if(! _a7_[2]){var el=_a7_[1];switch$0 = 1}}} if(! switch$0) - return of_sexp_error - (cst_option_of_sexp_list_must_represent_optional_value,sexp)} + return of_sexp_error(cst_option_of_sexp_list_must_r,sexp)} else var el=_a5_; return [0,caml_call1(a_of_sexp,el)]}} return 0} if(0 === sexp[0]) {var _a8_=sexp[1]; - if(caml_string_notequal(_a8_,cst_None$0)) - if(caml_string_notequal(_a8_,cst_none$0)) - return of_sexp_error - (cst_option_of_sexp_only_none_can_be_atom$0,sexp); + if + (caml_string_notequal(_a8_,cst_None$0) + && + caml_string_notequal(_a8_,cst_none$0)) + return of_sexp_error(cst_option_of_sexp_only_none_c$0,sexp); return 0} var _a9_=sexp[1]; if(_a9_) {var _a__=_a9_[1]; if(0 === _a__[0]) - {var - _a$_=_a__[1], - switch$2= + {var _a$_=_a__[1],switch$2=0; + if + (! caml_string_notequal(_a$_,cst_Some$0) - ?caml_string_notequal(_a$_,cst_some$0)?1:0 - :0; - if(! switch$2) + || + ! + caml_string_notequal(_a$_,cst_some$0)) + switch$2 = 1; + if(switch$2) {var _ba_=_a9_[2]; - if(_ba_) - if(! _ba_[2]) - {var el$0=_ba_[1];return [0,caml_call1(a_of_sexp,el$0)]}}}} - return of_sexp_error(cst_option_of_sexp_list_must_be_some_el,sexp)} + if(_ba_ && ! _ba_[2]) + {var el$0=_ba_[1];return [0,caml_call1(a_of_sexp,el$0)]}}}} + return of_sexp_error(cst_option_of_sexp_list_must_b,sexp)} function pair_of_sexp(a_of_sexp,b_of_sexp,sexp) {if(0 === sexp[0]) return of_sexp_error(cst_pair_of_sexp_list_needed,sexp); var _a1_=sexp[1]; if(_a1_) {var _a2_=_a1_[2]; - if(_a2_) - if(! _a2_[2]) - {var - b_sexp=_a2_[1], - a_sexp=_a1_[1], - a=caml_call1(a_of_sexp,a_sexp), - b=caml_call1(b_of_sexp,b_sexp); - return [0,a,b]}} - return of_sexp_error - (cst_pair_of_sexp_list_must_contain_exactly_two_elements_only, - sexp)} + if(_a2_ && ! _a2_[2]) + {var + b_sexp=_a2_[1], + a_sexp=_a1_[1], + a=caml_call1(a_of_sexp,a_sexp), + b=caml_call1(b_of_sexp,b_sexp); + return [0,a,b]}} + return of_sexp_error(cst_pair_of_sexp_list_must_con,sexp)} function triple_of_sexp(a_of_sexp,b_of_sexp,c_of_sexp,sexp) {if(0 === sexp[0]) return of_sexp_error(cst_triple_of_sexp_list_needed,sexp); @@ -31209,19 +33686,16 @@ {var _aZ_=_aY_[2]; if(_aZ_) {var _a0_=_aZ_[2]; - if(_a0_) - if(! _a0_[2]) - {var - c_sexp=_a0_[1], - b_sexp=_aZ_[1], - a_sexp=_aY_[1], - a=caml_call1(a_of_sexp,a_sexp), - b=caml_call1(b_of_sexp,b_sexp), - c=caml_call1(c_of_sexp,c_sexp); - return [0,a,b,c]}}} - return of_sexp_error - (cst_triple_of_sexp_list_must_contain_exactly_three_elements_only, - sexp)} + if(_a0_ && ! _a0_[2]) + {var + c_sexp=_a0_[1], + b_sexp=_aZ_[1], + a_sexp=_aY_[1], + a=caml_call1(a_of_sexp,a_sexp), + b=caml_call1(b_of_sexp,b_sexp), + c=caml_call1(c_of_sexp,c_sexp); + return [0,a,b,c]}}} + return of_sexp_error(cst_triple_of_sexp_list_must_c,sexp)} function list_of_sexp(a_of_sexp,sexp) {if(0 === sexp[0]) return of_sexp_error(cst_list_of_sexp_list_needed,sexp); @@ -31249,30 +33723,27 @@ return [0]} function hashtbl_of_sexp(key_of_sexp,val_of_sexp,sexp) {if(0 === sexp[0]) - return of_sexp_error(cst_hashtbl_of_sexp_list_needed,sexp); + return of_sexp_error(cst_hashtbl_of_sexp_list_neede,sexp); var lst=sexp[1],htbl=caml_call2(Stdlib_moreLabels[1][1],0,0); function act(param) {if(1 === param[0]) {var _aS_=param[1]; if(_aS_) {var _aT_=_aS_[2]; - if(_aT_) - if(! _aT_[2]) - {var - v_sexp=_aT_[1], - k_sexp=_aS_[1], - _aU_=caml_call1(val_of_sexp,v_sexp), - _aV_=caml_call1(key_of_sexp,k_sexp); - return caml_call3(Stdlib_moreLabels[1][5],htbl,_aV_,_aU_)}}} - return of_sexp_error(cst_hashtbl_of_sexp_tuple_list_needed,sexp)} + if(_aT_ && ! _aT_[2]) + {var + v_sexp=_aT_[1], + k_sexp=_aS_[1], + _aU_=caml_call1(val_of_sexp,v_sexp), + _aV_=caml_call1(key_of_sexp,k_sexp); + return caml_call3(Stdlib_moreLabels[1][5],htbl,_aV_,_aU_)}}} + return of_sexp_error(cst_hashtbl_of_sexp_tuple_list,sexp)} caml_call2(Stdlib_listLabels[15],act,lst); return htbl} function opaque_of_sexp(sexp) - {return of_sexp_error - (cst_opaque_of_sexp_cannot_convert_opaque_values,sexp)} + {return of_sexp_error(cst_opaque_of_sexp_cannot_conv,sexp)} function fun_of_sexp(sexp) - {return of_sexp_error - (cst_fun_of_sexp_cannot_convert_function_values,sexp)} + {return of_sexp_error(cst_fun_of_sexp_cannot_convert,sexp)} function get_flc_error(name,param) {var chr=param[3],line=param[2],file=param[1]; return [0,caml_call5(Stdlib_printf[4],_k_,name,file,line,chr)]} @@ -31433,39 +33904,24 @@ {return of_sexp_error(caml_call3(Stdlib_printf[4],_aK_,loc,n),sexp)} function stag_no_args(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28],loc,cst_of_sexp_sum_tag_does_not_take_arguments), - sexp)} + (caml_call2(Stdlib[28],loc,cst_of_sexp_sum_tag_does_not_t),sexp)} function stag_incorrect_n_args(loc,tag,sexp) {var msg=caml_call3(Stdlib_printf[4],_aL_,loc,tag); return of_sexp_error(msg,sexp)} function stag_takes_args(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28], - loc, - cst_of_sexp_sum_tag_must_be_a_structured_value), - sexp)} + (caml_call2(Stdlib[28],loc,cst_of_sexp_sum_tag_must_be_a_),sexp)} function nested_list_invalid_sum(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28],loc,cst_of_sexp_a_nested_list_is_an_invalid_sum), - sexp)} + (caml_call2(Stdlib[28],loc,cst_of_sexp_a_nested_list_is_a),sexp)} function empty_list_invalid_sum(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28],loc,cst_of_sexp_the_empty_list_is_an_invalid_sum), - sexp)} + (caml_call2(Stdlib[28],loc,cst_of_sexp_the_empty_list_is_),sexp)} function unexpected_stag(loc,sexp) {return of_sexp_error (caml_call2(Stdlib[28],loc,cst_of_sexp_unexpected_sum_tag),sexp)} function record_only_pairs_expected(loc,sexp) - {var - msg= - caml_call2 - (Stdlib[28], - loc, - cst_of_sexp_record_conversion_only_pairs_expected_their_first_element_must_be_an_atom); + {var msg=caml_call2(Stdlib[28],loc,cst_of_sexp_record_conversion_); return of_sexp_error(msg,sexp)} function record_superfluous_fields(what,loc,rev_fld_names,sexp) {var @@ -31500,68 +33956,42 @@ msg=caml_call3(Stdlib_printf[4],_aN_,loc,undefined$0); return of_sexp_error(msg,sexp)} function record_list_instead_atom(loc,sexp) - {var - msg= - caml_call2 - (Stdlib[28],loc,cst_of_sexp_list_instead_of_atom_for_record_expected); + {var msg=caml_call2(Stdlib[28],loc,cst_of_sexp_list_instead_of_at); return of_sexp_error(msg,sexp)} function record_poly_field_value(loc,sexp) - {var - msg= - caml_call2 - (Stdlib[28], - loc, - cst_of_sexp_cannot_convert_values_of_types_resulting_from_polymorphic_record_fields); + {var msg=caml_call2(Stdlib[28],loc,cst_of_sexp_cannot_convert_val); return of_sexp_error(msg,sexp)} var No_variant_match= - [248,cst_Sexplib0_Sexp_conv_error_No_variant_match,caml_fresh_oo_id(0)]; + [248,cst_Sexplib0_Sexp_conv_error_N,caml_fresh_oo_id(0)]; function no_variant_match(param){throw No_variant_match} function no_matching_variant_found(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28],loc,cst_of_sexp_no_matching_variant_found), - sexp)} + (caml_call2(Stdlib[28],loc,cst_of_sexp_no_matching_varian),sexp)} function ptag_no_args(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28], - loc, - cst_of_sexp_polymorphic_variant_does_not_take_arguments), - sexp)} + (caml_call2(Stdlib[28],loc,cst_of_sexp_polymorphic_varian),sexp)} function ptag_incorrect_n_args(loc,cnstr,sexp) {var msg=caml_call3(Stdlib_printf[4],_aO_,loc,cnstr); return of_sexp_error(msg,sexp)} function ptag_takes_args(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28], - loc, - cst_of_sexp_polymorphic_variant_tag_takes_an_argument), + (caml_call2(Stdlib[28],loc,cst_of_sexp_polymorphic_varian$0), sexp)} function nested_list_invalid_poly_var(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28], - loc, - cst_of_sexp_a_nested_list_is_an_invalid_polymorphic_variant), + (caml_call2(Stdlib[28],loc,cst_of_sexp_a_nested_list_is_a$0), sexp)} function empty_list_invalid_poly_var(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28], - loc, - cst_of_sexp_the_empty_list_is_an_invalid_polymorphic_variant), + (caml_call2(Stdlib[28],loc,cst_of_sexp_the_empty_list_is_$0), sexp)} function silly_type(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28],loc,cst_of_sexp_trying_to_convert_a_silly_type), - sexp)} + (caml_call2(Stdlib[28],loc,cst_of_sexp_trying_to_convert_),sexp)} function empty_type(loc,sexp) {return of_sexp_error - (caml_call2 - (Stdlib[28],loc,cst_of_sexp_trying_to_convert_an_empty_type), + (caml_call2(Stdlib[28],loc,cst_of_sexp_trying_to_convert_$0), sexp)} var Sexplib0_Sexp_conv_error= @@ -31834,7 +34264,7 @@ caml_int64_or=runtime.caml_int64_or, caml_int64_shift_left=runtime.caml_int64_shift_left, caml_int64_shift_right=runtime.caml_int64_shift_right, - caml_int64_shift_right_unsigned=runtime.caml_int64_shift_right_unsigned, + caml_int64_shift_right_unsigne=runtime.caml_int64_shift_right_unsigned, caml_int64_sub=runtime.caml_int64_sub, caml_int64_to_float=runtime.caml_int64_to_float, caml_int64_to_int32=runtime.caml_int64_to_int32, @@ -31849,7 +34279,6 @@ caml_ml_string_length=runtime.caml_ml_string_length, caml_mod=runtime.caml_mod, caml_mul=runtime.caml_mul, - caml_new_string=runtime.caml_new_string, caml_notequal=runtime.caml_notequal, caml_obj_tag=runtime.caml_obj_tag, caml_obj_truncate=runtime.caml_obj_truncate, @@ -31860,6 +34289,7 @@ caml_string_greaterequal=runtime.caml_string_greaterequal, caml_string_lessequal=runtime.caml_string_lessequal, caml_string_notequal=runtime.caml_string_notequal, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, caml_string_unsafe_get=runtime.caml_string_unsafe_get, caml_sys_argv=runtime.caml_sys_argv, caml_sys_getenv=runtime.caml_sys_getenv, @@ -31885,325 +34315,335 @@ :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5])} var global_data=runtime.caml_get_global_data(), - description=caml_new_string("internalhash"), - cst_Sexpable_Of_stringable_t_of_sexp_expected_an_atom_but_got_a_list= - caml_new_string + description=caml_string_of_jsbytes("internalhash"), + cst_Sexpable_Of_stringable_t_o= + caml_string_of_jsbytes ("Sexpable.Of_stringable.t_of_sexp expected an atom, but got a list"), - cst_unknown_word_size=caml_new_string("unknown word size"), - cst_pp=caml_new_string(".pp"), - cst_Base_Exn_Finally=caml_new_string("Base__Exn.Finally"), - cst_Base_Exn_Reraised=caml_new_string("Base__Exn.Reraised"), - cst_Base_Exn_Sexp=caml_new_string("Base__Exn.Sexp"), - module_name=caml_new_string("Base.Exn"), - cst_use_of_return_from_a_with_return_that_already_returned= - caml_new_string + cst_unknown_word_size=caml_string_of_jsbytes("unknown word size"), + cst_pp=caml_string_of_jsbytes(".pp"), + cst_Base_Exn_Finally=caml_string_of_jsbytes("Base__Exn.Finally"), + cst_Base_Exn_Reraised=caml_string_of_jsbytes("Base__Exn.Reraised"), + cst_Base_Exn_Sexp=caml_string_of_jsbytes("Base__Exn.Sexp"), + module_name=caml_string_of_jsbytes("Base.Exn"), + cst_use_of_return_from_a_with_= + caml_string_of_jsbytes ("use of [return] from a [with_return] that already returned"), - cst_Return=caml_new_string("Return"), - cst_Error=caml_new_string("Error"), - cst_Ok=caml_new_string("Ok"), - cst_error=caml_new_string("error"), - cst_ok=caml_new_string("ok"), - cst_Error$0=caml_new_string("Error"), - cst_Ok$0=caml_new_string("Ok"), - cst_error$0=caml_new_string("error"), - cst_ok$0=caml_new_string("ok"), - tp_loc=caml_new_string("src/result.ml.t"), + cst_Return=caml_string_of_jsbytes("Return"), + cst_Error=caml_string_of_jsbytes("Error"), + cst_Ok=caml_string_of_jsbytes("Ok"), + cst_error=caml_string_of_jsbytes("error"), + cst_ok=caml_string_of_jsbytes("ok"), + cst_Error$0=caml_string_of_jsbytes("Error"), + cst_Ok$0=caml_string_of_jsbytes("Ok"), + cst_error$0=caml_string_of_jsbytes("error"), + cst_ok$0=caml_string_of_jsbytes("ok"), + tp_loc=caml_string_of_jsbytes("src/result.ml.t"), ok_unit=[0,0], - cst_unforced_lazy=caml_new_string(""), - cst_float=caml_new_string("float"), - cst_int64=caml_new_string("int64"), - cst_nativeint=caml_new_string("nativeint"), - cst_int32=caml_new_string("int32"), - cst_int=caml_new_string("int"), - cst_initializing_Random_with_a_nondeterministic_seed_is_forbidden_in_inline_tests= - caml_new_string + cst_unforced_lazy=caml_string_of_jsbytes(""), + cst_float=caml_string_of_jsbytes("float"), + cst_int64=caml_string_of_jsbytes("int64"), + cst_nativeint=caml_string_of_jsbytes("nativeint"), + cst_int32=caml_string_of_jsbytes("int32"), + cst_int=caml_string_of_jsbytes("int"), + cst_initializing_Random_with_a= + caml_string_of_jsbytes ("initializing Random with a nondeterministic seed is forbidden in inline tests"), - cst_Equal=caml_new_string("Equal"), - cst_Greater=caml_new_string("Greater"), - cst_Less=caml_new_string("Less"), - cst_equal=caml_new_string("equal"), - cst_greater=caml_new_string("greater"), - cst_less=caml_new_string("less"), - cst_Equal$0=caml_new_string("Equal"), - cst_Greater$0=caml_new_string("Greater"), - cst_Less$0=caml_new_string("Less"), - cst_equal$0=caml_new_string("equal"), - cst_greater$0=caml_new_string("greater"), - cst_less$0=caml_new_string("less"), + cst_Equal=caml_string_of_jsbytes("Equal"), + cst_Greater=caml_string_of_jsbytes("Greater"), + cst_Less=caml_string_of_jsbytes("Less"), + cst_equal=caml_string_of_jsbytes("equal"), + cst_greater=caml_string_of_jsbytes("greater"), + cst_less=caml_string_of_jsbytes("less"), + cst_Equal$0=caml_string_of_jsbytes("Equal"), + cst_Greater$0=caml_string_of_jsbytes("Greater"), + cst_Less$0=caml_string_of_jsbytes("Less"), + cst_equal$0=caml_string_of_jsbytes("equal"), + cst_greater$0=caml_string_of_jsbytes("greater"), + cst_less$0=caml_string_of_jsbytes("less"), all$3=[0,0,[0,1,[0,2,0]]], - tp_loc$0=caml_new_string("src/ordering.ml.t"), - cst_List_last=caml_new_string("List.last"), - cst_List_random_element_exn_empty_list= - caml_new_string("List.random_element_exn: empty list"), - cst_List_drop_last_exn_empty_list= - caml_new_string("List.drop_last_exn: empty list"), - cst_List_sub=caml_new_string("List.sub"), - cst_List_reduce_balanced_exn=caml_new_string("List.reduce_balanced_exn"), - cst_List_reduce_exn=caml_new_string("List.reduce_exn"), - cst_zip_exn=caml_new_string("zip_exn"), - cst_map3_exn=caml_new_string("map3_exn"), - cst_rev_map3_exn=caml_new_string("rev_map3_exn"), - cst_map2_exn=caml_new_string("map2_exn"), - cst_exists2_exn=caml_new_string("exists2_exn"), - cst_for_all2_exn=caml_new_string("for_all2_exn"), - cst_fold2_exn=caml_new_string("fold2_exn"), - cst_rev_map2_exn=caml_new_string("rev_map2_exn"), - cst_iter2_exn=caml_new_string("iter2_exn"), - cst_List_range_stride_must_be_non_zero= - caml_new_string("List.range: stride must be non-zero"), - cst_List_range_stride_function_cannot_change_direction= - caml_new_string("List.range': stride function cannot change direction"), - cst_List_range_stride_function_cannot_return_the_same_value= - caml_new_string + tp_loc$0=caml_string_of_jsbytes("src/ordering.ml.t"), + cst_List_last=caml_string_of_jsbytes("List.last"), + cst_List_random_element_exn_em= + caml_string_of_jsbytes("List.random_element_exn: empty list"), + cst_List_drop_last_exn_empty_l= + caml_string_of_jsbytes("List.drop_last_exn: empty list"), + cst_List_sub=caml_string_of_jsbytes("List.sub"), + cst_List_reduce_balanced_exn= + caml_string_of_jsbytes("List.reduce_balanced_exn"), + cst_List_reduce_exn=caml_string_of_jsbytes("List.reduce_exn"), + cst_zip_exn=caml_string_of_jsbytes("zip_exn"), + cst_map3_exn=caml_string_of_jsbytes("map3_exn"), + cst_rev_map3_exn=caml_string_of_jsbytes("rev_map3_exn"), + cst_map2_exn=caml_string_of_jsbytes("map2_exn"), + cst_exists2_exn=caml_string_of_jsbytes("exists2_exn"), + cst_for_all2_exn=caml_string_of_jsbytes("for_all2_exn"), + cst_fold2_exn=caml_string_of_jsbytes("fold2_exn"), + cst_rev_map2_exn=caml_string_of_jsbytes("rev_map2_exn"), + cst_iter2_exn=caml_string_of_jsbytes("iter2_exn"), + cst_List_range_stride_must_be_= + caml_string_of_jsbytes("List.range: stride must be non-zero"), + cst_List_range_stride_function$0= + caml_string_of_jsbytes + ("List.range': stride function cannot change direction"), + cst_List_range_stride_function= + caml_string_of_jsbytes ("List.range': stride function cannot return the same value"), - tp_loc$1=caml_new_string("src/list.ml.Assoc.t"), - cst_Base_List_Transpose_got_lists_of_different_lengths= - caml_new_string("Base__List.Transpose_got_lists_of_different_lengths"), - cst$0=caml_new_string(""), - cst=caml_new_string(""), - cst$1=caml_new_string(":"), - cst$2=caml_new_string(":"), - cst_pos_bol=caml_new_string("pos_bol"), - cst_pos_cnum=caml_new_string("pos_cnum"), - cst_pos_fname=caml_new_string("pos_fname"), - cst_pos_lnum=caml_new_string("pos_lnum"), - cst_pos_cnum$0=caml_new_string("pos_cnum"), - cst_pos_bol$0=caml_new_string("pos_bol"), - cst_pos_lnum$0=caml_new_string("pos_lnum"), - cst_pos_fname$0=caml_new_string("pos_fname"), - tp_loc$2=caml_new_string("src/source_code_position0.ml.T.t"), - cst$8=caml_new_string(""), - cst$7=caml_new_string("; "), + tp_loc$1=caml_string_of_jsbytes("src/list.ml.Assoc.t"), + cst_Base_List_Transpose_got_li= + caml_string_of_jsbytes + ("Base__List.Transpose_got_lists_of_different_lengths"), + cst$0=caml_string_of_jsbytes(""), + cst=caml_string_of_jsbytes(""), + cst$1=caml_string_of_jsbytes(":"), + cst$2=caml_string_of_jsbytes(":"), + cst_pos_bol=caml_string_of_jsbytes("pos_bol"), + cst_pos_cnum=caml_string_of_jsbytes("pos_cnum"), + cst_pos_fname=caml_string_of_jsbytes("pos_fname"), + cst_pos_lnum=caml_string_of_jsbytes("pos_lnum"), + cst_pos_cnum$0=caml_string_of_jsbytes("pos_cnum"), + cst_pos_bol$0=caml_string_of_jsbytes("pos_bol"), + cst_pos_lnum$0=caml_string_of_jsbytes("pos_lnum"), + cst_pos_fname$0=caml_string_of_jsbytes("pos_fname"), + tp_loc$2=caml_string_of_jsbytes("src/source_code_position0.ml.T.t"), + cst$8=caml_string_of_jsbytes(""), + cst$7=caml_string_of_jsbytes("; "), cst_could_not_construct_info= - caml_new_string("could not construct info: "), - cst$3=caml_new_string(": "), - cst$4=caml_new_string(": "), - cst$5=caml_new_string(": "), - cst$6=caml_new_string(": "), - cst_Backtrace=caml_new_string("\nBacktrace:\n"), - cst_Base_Info_Exn=caml_new_string("Base__Info.Exn"), - module_name$0=caml_new_string("Base.Info"), - module_name$1=caml_new_string("Base.Error"), - cst_exn$0=caml_new_string("exn"), - cst_field=caml_new_string("field"), - cst_problem_with_field=caml_new_string("problem with field"), - cst$9=caml_new_string(""), - cst_exn=caml_new_string("exn"), - cst$10=caml_new_string(""), - cst_invariant_failed=caml_new_string("invariant failed"), - cst_Maybe_bound_compare_to_interval_exn_lower_bound_upper_bound= - caml_new_string + caml_string_of_jsbytes("could not construct info: "), + cst$3=caml_string_of_jsbytes(": "), + cst$4=caml_string_of_jsbytes(": "), + cst$5=caml_string_of_jsbytes(": "), + cst$6=caml_string_of_jsbytes(": "), + cst_Backtrace=caml_string_of_jsbytes("\nBacktrace:\n"), + cst_Base_Info_Exn=caml_string_of_jsbytes("Base__Info.Exn"), + module_name$0=caml_string_of_jsbytes("Base.Info"), + module_name$1=caml_string_of_jsbytes("Base.Error"), + cst_exn$0=caml_string_of_jsbytes("exn"), + cst_field=caml_string_of_jsbytes("field"), + cst_problem_with_field=caml_string_of_jsbytes("problem with field"), + cst$9=caml_string_of_jsbytes(""), + cst_exn=caml_string_of_jsbytes("exn"), + cst$10=caml_string_of_jsbytes(""), + cst_invariant_failed=caml_string_of_jsbytes("invariant failed"), + cst_Maybe_bound_compare_to_int= + caml_string_of_jsbytes ("Maybe_bound.compare_to_interval_exn: lower bound > upper bound"), - cst_Above_upper_bound=caml_new_string("Above_upper_bound"), - cst_Below_lower_bound=caml_new_string("Below_lower_bound"), - cst_In_range=caml_new_string("In_range"), - cst_above_upper_bound=caml_new_string("above_upper_bound"), - cst_below_lower_bound=caml_new_string("below_lower_bound"), - cst_in_range=caml_new_string("in_range"), - cst_Above_upper_bound$0=caml_new_string("Above_upper_bound"), - cst_Below_lower_bound$0=caml_new_string("Below_lower_bound"), - cst_In_range$0=caml_new_string("In_range"), - cst_above_upper_bound$0=caml_new_string("above_upper_bound"), - cst_below_lower_bound$0=caml_new_string("below_lower_bound"), - cst_in_range$0=caml_new_string("in_range"), - cst_Excl=caml_new_string("Excl"), - cst_Incl=caml_new_string("Incl"), - cst_Unbounded=caml_new_string("Unbounded"), - cst_excl=caml_new_string("excl"), - cst_incl=caml_new_string("incl"), - cst_unbounded=caml_new_string("unbounded"), - cst_Excl$0=caml_new_string("Excl"), - cst_Incl$0=caml_new_string("Incl"), - cst_Unbounded$0=caml_new_string("Unbounded"), - cst_excl$0=caml_new_string("excl"), - cst_incl$0=caml_new_string("incl"), - cst_unbounded$0=caml_new_string("unbounded"), - tp_loc$3=caml_new_string("src/maybe_bound.ml.t"), - tp_loc$4=caml_new_string("src/maybe_bound.ml.interval_comparison"), - cst_unimplemented=caml_new_string("unimplemented"), - cst_snd=caml_new_string("snd"), - cst_fst=caml_new_string("fst"), - cst_validation_errors=caml_new_string("validation errors"), - cst$11=caml_new_string(""), - cst_Exception_raised_during_validation= - caml_new_string("Exception raised during validation"), - cst_Neg=caml_new_string("Neg"), - cst_Pos=caml_new_string("Pos"), - cst_Zero=caml_new_string("Zero"), - cst_neg=caml_new_string("neg"), - cst_pos=caml_new_string("pos"), - cst_zero=caml_new_string("zero"), - cst_Neg$0=caml_new_string("Neg"), - cst_Pos$0=caml_new_string("Pos"), - cst_Zero$0=caml_new_string("Zero"), - cst_neg$0=caml_new_string("neg"), - cst_pos$0=caml_new_string("pos"), - cst_zero$0=caml_new_string("zero"), - tp_loc$5=caml_new_string("src/sign0.ml.t"), + cst_Above_upper_bound=caml_string_of_jsbytes("Above_upper_bound"), + cst_Below_lower_bound=caml_string_of_jsbytes("Below_lower_bound"), + cst_In_range=caml_string_of_jsbytes("In_range"), + cst_above_upper_bound=caml_string_of_jsbytes("above_upper_bound"), + cst_below_lower_bound=caml_string_of_jsbytes("below_lower_bound"), + cst_in_range=caml_string_of_jsbytes("in_range"), + cst_Above_upper_bound$0=caml_string_of_jsbytes("Above_upper_bound"), + cst_Below_lower_bound$0=caml_string_of_jsbytes("Below_lower_bound"), + cst_In_range$0=caml_string_of_jsbytes("In_range"), + cst_above_upper_bound$0=caml_string_of_jsbytes("above_upper_bound"), + cst_below_lower_bound$0=caml_string_of_jsbytes("below_lower_bound"), + cst_in_range$0=caml_string_of_jsbytes("in_range"), + cst_Excl=caml_string_of_jsbytes("Excl"), + cst_Incl=caml_string_of_jsbytes("Incl"), + cst_Unbounded=caml_string_of_jsbytes("Unbounded"), + cst_excl=caml_string_of_jsbytes("excl"), + cst_incl=caml_string_of_jsbytes("incl"), + cst_unbounded=caml_string_of_jsbytes("unbounded"), + cst_Excl$0=caml_string_of_jsbytes("Excl"), + cst_Incl$0=caml_string_of_jsbytes("Incl"), + cst_Unbounded$0=caml_string_of_jsbytes("Unbounded"), + cst_excl$0=caml_string_of_jsbytes("excl"), + cst_incl$0=caml_string_of_jsbytes("incl"), + cst_unbounded$0=caml_string_of_jsbytes("unbounded"), + tp_loc$3=caml_string_of_jsbytes("src/maybe_bound.ml.t"), + tp_loc$4=caml_string_of_jsbytes("src/maybe_bound.ml.interval_comparison"), + cst_unimplemented=caml_string_of_jsbytes("unimplemented"), + cst_snd=caml_string_of_jsbytes("snd"), + cst_fst=caml_string_of_jsbytes("fst"), + cst_validation_errors=caml_string_of_jsbytes("validation errors"), + cst$11=caml_string_of_jsbytes(""), + cst_Exception_raised_during_va= + caml_string_of_jsbytes("Exception raised during validation"), + cst_Neg=caml_string_of_jsbytes("Neg"), + cst_Pos=caml_string_of_jsbytes("Pos"), + cst_Zero=caml_string_of_jsbytes("Zero"), + cst_neg=caml_string_of_jsbytes("neg"), + cst_pos=caml_string_of_jsbytes("pos"), + cst_zero=caml_string_of_jsbytes("zero"), + cst_Neg$0=caml_string_of_jsbytes("Neg"), + cst_Pos$0=caml_string_of_jsbytes("Pos"), + cst_Zero$0=caml_string_of_jsbytes("Zero"), + cst_neg$0=caml_string_of_jsbytes("neg"), + cst_pos$0=caml_string_of_jsbytes("pos"), + cst_zero$0=caml_string_of_jsbytes("zero"), + tp_loc$5=caml_string_of_jsbytes("src/sign0.ml.t"), all$8=[0,0,[0,1,[0,2,0]]], - module_name$2=caml_new_string("Base.Sign"), - cst_max$0=caml_new_string("max"), - cst_min$0=caml_new_string("min"), + module_name$2=caml_string_of_jsbytes("Base.Sign"), + cst_max$0=caml_string_of_jsbytes("max"), + cst_min$0=caml_string_of_jsbytes("min"), cst_clamp_requires_min_max$0= - caml_new_string("clamp requires [min <= max]"), - cst_max=caml_new_string("max"), - cst_min=caml_new_string("min"), - cst_clamp_requires_min_max=caml_new_string("clamp requires [min <= max]"), - cst$13=caml_new_string("()"), - cst$12=caml_new_string("()"), - cst_Base_Unit_of_string_expected= - caml_new_string("Base.Unit.of_string: () expected"), + caml_string_of_jsbytes("clamp requires [min <= max]"), + cst_max=caml_string_of_jsbytes("max"), + cst_min=caml_string_of_jsbytes("min"), + cst_clamp_requires_min_max= + caml_string_of_jsbytes("clamp requires [min <= max]"), + cst$13=caml_string_of_jsbytes("()"), + cst$12=caml_string_of_jsbytes("()"), + cst_Base_Unit_of_string_expect= + caml_string_of_jsbytes("Base.Unit.of_string: () expected"), all$9=[0,0,0], - module_name$3=caml_new_string("Base.Unit"), - cst_some=caml_new_string("some"), - cst_none=caml_new_string("none"), - cst$14=caml_new_string(""), - cst_Option_value_exn=caml_new_string("Option.value_exn"), - cst_Option_value_exn_None=caml_new_string("Option.value_exn None"), - cst_First=caml_new_string("First"), - cst_Second=caml_new_string("Second"), - cst_first=caml_new_string("first"), - cst_second=caml_new_string("second"), - cst_First$0=caml_new_string("First"), - cst_Second$0=caml_new_string("Second"), - cst_first$0=caml_new_string("first"), - cst_second$0=caml_new_string("second"), - tp_loc$6=caml_new_string("src/either.ml.t"), - cst_Sequence_cycle_list_exn=caml_new_string("Sequence.cycle_list_exn"), - cst_Sequence_drop=caml_new_string("Sequence.drop"), - cst_Sequence_take=caml_new_string("Sequence.take"), - cst_Sequence_sub=caml_new_string("Sequence.sub"), - cst_Sequence_reduce_exn=caml_new_string("Sequence.reduce_exn"), - cst_Sequence_find_exn=caml_new_string("Sequence.find_exn"), - cst_Sequence_chunks_exn=caml_new_string("Sequence.chunks_exn"), - cst_Sequence_tl_exn=caml_new_string("Sequence.tl_exn"), - cst_hd_exn=caml_new_string("hd_exn"), - cst_Both=caml_new_string("Both"), - cst_Left=caml_new_string("Left"), - cst_Right=caml_new_string("Right"), - cst_both=caml_new_string("both"), - cst_left=caml_new_string("left"), - cst_right=caml_new_string("right"), - cst_Both$0=caml_new_string("Both"), - cst_Left$0=caml_new_string("Left"), - cst_Right$0=caml_new_string("Right"), - cst_both$0=caml_new_string("both"), - cst_left$0=caml_new_string("left"), - cst_right$0=caml_new_string("right"), - cst_Sequence_nth=caml_new_string("Sequence.nth"), - cst_Sequence_nth$0=caml_new_string("Sequence.nth"), + module_name$3=caml_string_of_jsbytes("Base.Unit"), + cst_some=caml_string_of_jsbytes("some"), + cst_none=caml_string_of_jsbytes("none"), + cst$14=caml_string_of_jsbytes(""), + cst_Option_value_exn=caml_string_of_jsbytes("Option.value_exn"), + cst_Option_value_exn_None=caml_string_of_jsbytes("Option.value_exn None"), + cst_First=caml_string_of_jsbytes("First"), + cst_Second=caml_string_of_jsbytes("Second"), + cst_first=caml_string_of_jsbytes("first"), + cst_second=caml_string_of_jsbytes("second"), + cst_First$0=caml_string_of_jsbytes("First"), + cst_Second$0=caml_string_of_jsbytes("Second"), + cst_first$0=caml_string_of_jsbytes("first"), + cst_second$0=caml_string_of_jsbytes("second"), + tp_loc$6=caml_string_of_jsbytes("src/either.ml.t"), + cst_Sequence_cycle_list_exn= + caml_string_of_jsbytes("Sequence.cycle_list_exn"), + cst_Sequence_drop=caml_string_of_jsbytes("Sequence.drop"), + cst_Sequence_take=caml_string_of_jsbytes("Sequence.take"), + cst_Sequence_sub=caml_string_of_jsbytes("Sequence.sub"), + cst_Sequence_reduce_exn=caml_string_of_jsbytes("Sequence.reduce_exn"), + cst_Sequence_find_exn=caml_string_of_jsbytes("Sequence.find_exn"), + cst_Sequence_chunks_exn=caml_string_of_jsbytes("Sequence.chunks_exn"), + cst_Sequence_tl_exn=caml_string_of_jsbytes("Sequence.tl_exn"), + cst_hd_exn=caml_string_of_jsbytes("hd_exn"), + cst_Both=caml_string_of_jsbytes("Both"), + cst_Left=caml_string_of_jsbytes("Left"), + cst_Right=caml_string_of_jsbytes("Right"), + cst_both=caml_string_of_jsbytes("both"), + cst_left=caml_string_of_jsbytes("left"), + cst_right=caml_string_of_jsbytes("right"), + cst_Both$0=caml_string_of_jsbytes("Both"), + cst_Left$0=caml_string_of_jsbytes("Left"), + cst_Right$0=caml_string_of_jsbytes("Right"), + cst_both$0=caml_string_of_jsbytes("both"), + cst_left$0=caml_string_of_jsbytes("left"), + cst_right$0=caml_string_of_jsbytes("right"), + cst_Sequence_nth=caml_string_of_jsbytes("Sequence.nth"), + cst_Sequence_nth$0=caml_string_of_jsbytes("Sequence.nth"), tp_loc$7= - caml_new_string("src/sequence.ml.Merge_with_duplicates_element.t"), - cst_len=caml_new_string("len"), - cst_Array_unsafe_truncate_got_invalid_len= - caml_new_string("Array.unsafe_truncate got invalid len"), - cst_Array_transpose_exn=caml_new_string("Array.transpose_exn"), - cst_Array_zip_exn=caml_new_string("Array.zip_exn"), - cst_Array_random_element_exn_empty_array= - caml_new_string("Array.random_element_exn: empty array"), - cst_Array_reduce_exn=caml_new_string("Array.reduce_exn"), - cst_Array_for_all2_exn=caml_new_string("Array.for_all2_exn"), - cst_Array_exists2_exn=caml_new_string("Array.exists2_exn"), - cst_Array_fold2_exn=caml_new_string("Array.fold2_exn"), - cst_Array_map2_exn=caml_new_string("Array.map2_exn"), - cst_Array_iter2_exn=caml_new_string("Array.iter2_exn"), - cst_Obj_array_t_of_length=caml_new_string(""), + tp_loc$10=caml_string_of_jsbytes("src/float.ml.Class.t"), + module_name$19=caml_string_of_jsbytes("Base.Float"), + cst_b=caml_string_of_jsbytes("b"), + cst_OCAMLRUNPARAM=caml_string_of_jsbytes("OCAMLRUNPARAM"), + elided_message=caml_string_of_jsbytes(""), Caml=global_data.Caml, Stdlib_uchar=global_data.Stdlib__uchar, include$0=global_data.Shadow_stdlib, @@ -32519,282 +34967,295 @@ _a_= [0, [11, - caml_new_string("Sys.getenv_exn: environment variable "), - [2,0,[11,caml_new_string(" is not set"),0]]], - caml_new_string("Sys.getenv_exn: environment variable %s is not set")], + caml_string_of_jsbytes("Sys.getenv_exn: environment variable "), + [2,0,[11,caml_string_of_jsbytes(" is not set"),0]]], + caml_string_of_jsbytes + ("Sys.getenv_exn: environment variable %s is not set")], _e_= [0, [11, - caml_new_string("Char.of_int_exn got integer out of range: "), + caml_string_of_jsbytes("Char.of_int_exn got integer out of range: "), [4,0,0,0,0]], - caml_new_string("Char.of_int_exn got integer out of range: %d")], + caml_string_of_jsbytes("Char.of_int_exn got integer out of range: %d")], _p_= [0, [11, - caml_new_string("Equal called on the type "), + caml_string_of_jsbytes("Equal called on the type "), [2, 0, - [11,caml_new_string(", which is abstract in an implementation."),0]]], - caml_new_string + [11, + caml_string_of_jsbytes(", which is abstract in an implementation."), + 0]]], + caml_string_of_jsbytes ("Equal called on the type %s, which is abstract in an implementation.")], _o_= [0, [11, - caml_new_string("Compare called on the type "), + caml_string_of_jsbytes("Compare called on the type "), [2, 0, - [11,caml_new_string(", which is abstract in an implementation."),0]]], - caml_new_string + [11, + caml_string_of_jsbytes(", which is abstract in an implementation."), + 0]]], + caml_string_of_jsbytes ("Compare called on the type %s, which is abstract in an implementation.")], - _s_=[0,caml_new_string("W64")], - _r_=[0,caml_new_string("W32")], - _t_=[0,caml_new_string("Base.Sexp.pp_hum"),0], + _s_=[0,caml_string_of_jsbytes("W64")], + _r_=[0,caml_string_of_jsbytes("W32")], + _t_=[0,caml_string_of_jsbytes("Base.Sexp.pp_hum"),0], _H_= [0, [11, - caml_new_string + caml_string_of_jsbytes ("Exn.handle_uncaught could not print; exiting anyway\n"), [10,0]], - caml_new_string + caml_string_of_jsbytes ("Exn.handle_uncaught could not print; exiting anyway\n%!")], _G_= [0, [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], + [1, + [0, + [11,caml_string_of_jsbytes("<2>"),0], + caml_string_of_jsbytes("<2>")]], [11, - caml_new_string("Uncaught exception:"), + caml_string_of_jsbytes("Uncaught exception:"), [17, 3, [17, 3, [18, - [1,[0,0,caml_new_string("")]], + [1,[0,0,caml_string_of_jsbytes("")]], [15,[17,0,[17,0,[17,3,[17,4,0]]]]]]]]]], - caml_new_string("@[<2>Uncaught exception:@\n@\n@[%a@]@]@\n@.")], + caml_string_of_jsbytes("@[<2>Uncaught exception:@\n@\n@[%a@]@]@\n@.")], _F_=[0,2], - _E_=[0,caml_new_string("src/exn.ml"),46,6], - _B_=[0,caml_new_string("src/exn.ml.Reraised")], - _C_=[0,caml_new_string("src/exn.ml"),30,13], - _y_=[0,caml_new_string("src/exn.ml.Finally")], - _z_=[0,caml_new_string("src/exn.ml"),18,13], + _E_=[0,caml_string_of_jsbytes("src/exn.ml"),46,6], + _B_=[0,caml_string_of_jsbytes("src/exn.ml.Reraised")], + _C_=[0,caml_string_of_jsbytes("src/exn.ml"),30,13], + _y_=[0,caml_string_of_jsbytes("src/exn.ml.Finally")], + _z_=[0,caml_string_of_jsbytes("src/exn.ml"),18,13], _K_=[0,0], - _I_=[0,caml_new_string("Ok")], - _J_=[0,caml_new_string("Error")], + _I_=[0,caml_string_of_jsbytes("Ok")], + _J_=[0,caml_string_of_jsbytes("Error")], _Q_=runtime.caml_int64_create_lo_mi_hi(0,0,0), _P_= [0, [11, - caml_new_string("Random."), + caml_string_of_jsbytes("Random."), [2, 0, [11, - caml_new_string(": crossed bounds ["), - [2,0,[11,caml_new_string(" > "),[2,0,[12,93,0]]]]]]], - caml_new_string("Random.%s: crossed bounds [%s > %s]")], - _S_=[0,caml_new_string("Less")], - _T_=[0,caml_new_string("Equal")], - _U_=[0,caml_new_string("Greater")], + caml_string_of_jsbytes(": crossed bounds ["), + [2,0,[11,caml_string_of_jsbytes(" > "),[2,0,[12,93,0]]]]]]], + caml_string_of_jsbytes("Random.%s: crossed bounds [%s > %s]")], + _S_=[0,caml_string_of_jsbytes("Less")], + _T_=[0,caml_string_of_jsbytes("Equal")], + _U_=[0,caml_string_of_jsbytes("Greater")], _aj_= [0, - caml_new_string("src/list.ml.Transpose_got_lists_of_different_lengths")], - _ak_=[0,caml_new_string("src/list.ml"),1105,13], + caml_string_of_jsbytes + ("src/list.ml.Transpose_got_lists_of_different_lengths")], + _ak_=[0,caml_string_of_jsbytes("src/list.ml"),1105,13], _ah_=[0,4152137,0], _ag_= [0, [11, - caml_new_string("List.chunks_of: Expected length > 0, got "), + caml_string_of_jsbytes("List.chunks_of: Expected length > 0, got "), [4,0,0,0,0]], - caml_new_string("List.chunks_of: Expected length > 0, got %d")], - _ae_=[0,caml_new_string("src/list.ml"),770,4], + caml_string_of_jsbytes("List.chunks_of: Expected length > 0, got %d")], + _ae_=[0,caml_string_of_jsbytes("src/list.ml"),770,4], _ad_= [0, - [11,caml_new_string("List.init "),[4,0,0,0,0]], - caml_new_string("List.init %d")], - _ac_=[0,caml_new_string("src/list.ml"),561,14], - _ab_=[0,caml_new_string("src/list.ml"),422,11], + [11,caml_string_of_jsbytes("List.init "),[4,0,0,0,0]], + caml_string_of_jsbytes("List.init %d")], + _ac_=[0,caml_string_of_jsbytes("src/list.ml"),561,14], + _ab_=[0,caml_string_of_jsbytes("src/list.ml"),422,11], _Z_= [0, [11, - caml_new_string("length mismatch in "), + caml_string_of_jsbytes("length mismatch in "), [2, 0, [11, - caml_new_string(": "), + caml_string_of_jsbytes(": "), [4, 0, 0, 0, [11, - caml_new_string(" <> "), + caml_string_of_jsbytes(" <> "), [4, 0, 0, 0, [11, - caml_new_string(" || "), - [4,0,0,0,[11,caml_new_string(" <> "),[4,0,0,0,0]]]]]]]]]], - caml_new_string("length mismatch in %s: %d <> %d || %d <> %d")], + caml_string_of_jsbytes(" || "), + [4,0,0,0,[11,caml_string_of_jsbytes(" <> "),[4,0,0,0,0]]]]]]]]]], + caml_string_of_jsbytes("length mismatch in %s: %d <> %d || %d <> %d")], _Y_= [0, [11, - caml_new_string("length mismatch in "), + caml_string_of_jsbytes("length mismatch in "), [2, 0, [11, - caml_new_string(": "), - [4,0,0,0,[11,caml_new_string(" <> "),[4,0,0,0,[12,32,0]]]]]]], - caml_new_string("length mismatch in %s: %d <> %d ")], + caml_string_of_jsbytes(": "), + [4,0,0,0,[11,caml_string_of_jsbytes(" <> "),[4,0,0,0,[12,32,0]]]]]]], + caml_string_of_jsbytes("length mismatch in %s: %d <> %d ")], _X_= [0, [11, - caml_new_string("List.nth_exn "), + caml_string_of_jsbytes("List.nth_exn "), [4, 0, 0, 0, - [11,caml_new_string(" called on list of length "),[4,0,0,0,0]]]], - caml_new_string("List.nth_exn %d called on list of length %d")], - _V_=[0,caml_new_string("Ok")], - _W_=[0,caml_new_string("Unequal_lengths")], - ___=[0,caml_new_string("List.find_map_exn: not found")], - _$_=[0,caml_new_string("List.find_exn: not found")], - _aa_=[0,caml_new_string("List.find_mapi_exn: not found")], - _af_=[0,caml_new_string("List.Assoc.find_exn: not found")], - _ao_=[0,caml_new_string("_")], - _aq_=[0,caml_new_string("pos_cnum")], - _ar_=[0,caml_new_string("pos_bol")], - _as_=[0,caml_new_string("pos_lnum")], - _at_=[0,caml_new_string("pos_fname")], - _aF_=[0,caml_new_string("src/info.ml"),198,6], - _au_=[0,caml_new_string("Could_not_construct")], - _av_=[0,caml_new_string("String")], - _aw_=[0,caml_new_string("Exn")], - _ax_=[0,caml_new_string("Sexp")], - _ay_=[0,caml_new_string("Tag_sexp")], - _az_=[0,caml_new_string("Tag_t")], - _aA_=[0,caml_new_string("Tag_arg")], - _aB_=[0,caml_new_string("Of_list")], - _aC_=[0,caml_new_string("With_backtrace")], + [11,caml_string_of_jsbytes(" called on list of length "),[4,0,0,0,0]]]], + caml_string_of_jsbytes("List.nth_exn %d called on list of length %d")], + _V_=[0,caml_string_of_jsbytes("Ok")], + _W_=[0,caml_string_of_jsbytes("Unequal_lengths")], + ___=[0,caml_string_of_jsbytes("List.find_map_exn: not found")], + _$_=[0,caml_string_of_jsbytes("List.find_exn: not found")], + _aa_=[0,caml_string_of_jsbytes("List.find_mapi_exn: not found")], + _af_=[0,caml_string_of_jsbytes("List.Assoc.find_exn: not found")], + _ao_=[0,caml_string_of_jsbytes("_")], + _aq_=[0,caml_string_of_jsbytes("pos_cnum")], + _ar_=[0,caml_string_of_jsbytes("pos_bol")], + _as_=[0,caml_string_of_jsbytes("pos_lnum")], + _at_=[0,caml_string_of_jsbytes("pos_fname")], + _aF_=[0,caml_string_of_jsbytes("src/info.ml"),198,6], + _au_=[0,caml_string_of_jsbytes("Could_not_construct")], + _av_=[0,caml_string_of_jsbytes("String")], + _aw_=[0,caml_string_of_jsbytes("Exn")], + _ax_=[0,caml_string_of_jsbytes("Sexp")], + _ay_=[0,caml_string_of_jsbytes("Tag_sexp")], + _az_=[0,caml_string_of_jsbytes("Tag_t")], + _aA_=[0,caml_string_of_jsbytes("Tag_arg")], + _aB_=[0,caml_string_of_jsbytes("Of_list")], + _aC_=[0,caml_string_of_jsbytes("With_backtrace")], _aD_= [0, [11, - caml_new_string("and "), - [4,0,0,0,[11,caml_new_string(" more info"),0]]], - caml_new_string("and %d more info")], - _aK_=[0,caml_new_string("Below_lower_bound")], - _aL_=[0,caml_new_string("In_range")], - _aM_=[0,caml_new_string("Above_upper_bound")], - _aH_=[0,caml_new_string("Unbounded")], - _aI_=[0,caml_new_string("Incl")], - _aJ_=[0,caml_new_string("Excl")], + caml_string_of_jsbytes("and "), + [4,0,0,0,[11,caml_string_of_jsbytes(" more info"),0]]], + caml_string_of_jsbytes("and %d more info")], + _aK_=[0,caml_string_of_jsbytes("Below_lower_bound")], + _aL_=[0,caml_string_of_jsbytes("In_range")], + _aM_=[0,caml_string_of_jsbytes("Above_upper_bound")], + _aH_=[0,caml_string_of_jsbytes("Unbounded")], + _aI_=[0,caml_string_of_jsbytes("Incl")], + _aJ_=[0,caml_string_of_jsbytes("Excl")], _aG_=[0,0,0], - _aO_=[0,caml_new_string("src/or_error.ml"),122,22], + _aO_=[0,caml_string_of_jsbytes("src/or_error.ml"),122,22], _aN_=[0,3553398], - _aR_=[0,caml_new_string("src/validate.ml"),151,20], + _aR_=[0,caml_string_of_jsbytes("src/validate.ml"),151,20], _aS_= [0, [11, - caml_new_string("value "), - [2,0,[11,caml_new_string(" < bound "),[2,0,0]]]], - caml_new_string("value %s < bound %s")], + caml_string_of_jsbytes("value "), + [2,0,[11,caml_string_of_jsbytes(" < bound "),[2,0,0]]]], + caml_string_of_jsbytes("value %s < bound %s")], _aT_= [0, [11, - caml_new_string("value "), - [2,0,[11,caml_new_string(" <= bound "),[2,0,0]]]], - caml_new_string("value %s <= bound %s")], - _aU_=[0,caml_new_string("src/validate.ml"),156,20], + caml_string_of_jsbytes("value "), + [2,0,[11,caml_string_of_jsbytes(" <= bound "),[2,0,0]]]], + caml_string_of_jsbytes("value %s <= bound %s")], + _aU_=[0,caml_string_of_jsbytes("src/validate.ml"),156,20], _aV_= [0, [11, - caml_new_string("value "), - [2,0,[11,caml_new_string(" > bound "),[2,0,0]]]], - caml_new_string("value %s > bound %s")], + caml_string_of_jsbytes("value "), + [2,0,[11,caml_string_of_jsbytes(" > bound "),[2,0,0]]]], + caml_string_of_jsbytes("value %s > bound %s")], _aW_= [0, [11, - caml_new_string("value "), - [2,0,[11,caml_new_string(" >= bound "),[2,0,0]]]], - caml_new_string("value %s >= bound %s")], + caml_string_of_jsbytes("value "), + [2,0,[11,caml_string_of_jsbytes(" >= bound "),[2,0,0]]]], + caml_string_of_jsbytes("value %s >= bound %s")], _aQ_=[0,0], - _aP_=[0,caml_new_string(".")], - _aX_=[0,caml_new_string("Neg")], - _aY_=[0,caml_new_string("Zero")], - _aZ_=[0,caml_new_string("Pos")], - _a1_=[0,caml_new_string("src/comparable.ml"),183,4], - _a0_=[0,caml_new_string("src/comparable.ml"),103,4], + _aP_=[0,caml_string_of_jsbytes(".")], + _aX_=[0,caml_string_of_jsbytes("Neg")], + _aY_=[0,caml_string_of_jsbytes("Zero")], + _aZ_=[0,caml_string_of_jsbytes("Pos")], + _a1_=[0,caml_string_of_jsbytes("src/comparable.ml"),183,4], + _a0_=[0,caml_string_of_jsbytes("src/comparable.ml"),103,4], _a6_= [0, - [11,caml_new_string("Negative position: "),[4,0,0,0,0]], - caml_new_string("Negative position: %d")], + [11,caml_string_of_jsbytes("Negative position: "),[4,0,0,0,0]], + caml_string_of_jsbytes("Negative position: %d")], _a7_= [0, - [11,caml_new_string("Negative length: "),[4,0,0,0,0]], - caml_new_string("Negative length: %d")], + [11,caml_string_of_jsbytes("Negative length: "),[4,0,0,0,0]], + caml_string_of_jsbytes("Negative length: %d")], _a8_= [0, [11, - caml_new_string("pos + len past end: "), + caml_string_of_jsbytes("pos + len past end: "), [4, 0, 0, 0, [11, - caml_new_string(" + "), - [4,0,0,0,[11,caml_new_string(" > "),[4,0,0,0,0]]]]]], - caml_new_string("pos + len past end: %d + %d > %d")], - _bc_=[0,caml_new_string("First")], - _bd_=[0,caml_new_string("Second")], + caml_string_of_jsbytes(" + "), + [4,0,0,0,[11,caml_string_of_jsbytes(" > "),[4,0,0,0,0]]]]]], + caml_string_of_jsbytes("pos + len past end: %d + %d > %d")], + _bc_=[0,caml_string_of_jsbytes("First")], + _bd_=[0,caml_string_of_jsbytes("Second")], _bn_=[0,0], - _bk_=[0,caml_new_string("Left")], - _bl_=[0,caml_new_string("Right")], - _bm_=[0,caml_new_string("Both")], - _bj_=[0,caml_new_string("src/sequence.ml"),254,14], + _bk_=[0,caml_string_of_jsbytes("Left")], + _bl_=[0,caml_string_of_jsbytes("Right")], + _bm_=[0,caml_string_of_jsbytes("Both")], + _bj_=[0,caml_string_of_jsbytes("src/sequence.ml"),254,14], _bi_=[0,0,0], - _be_=[0,caml_new_string("Done")], - _bf_=[0,caml_new_string("Skip")], - _bg_=[0,caml_new_string("Yield")], - _bt_=[0,caml_new_string("src/array.ml"),764,8], - _bo_=[0,caml_new_string("src/array.ml"),376,14], - _bp_=[0,caml_new_string("Array.findi_exn: not found")], - _bq_=[0,caml_new_string("Array.find_exn: not found")], - _br_=[0,caml_new_string("Array.find_map_exn: not found")], - _bs_=[0,caml_new_string("Array.find_mapi_exn: not found")], - _bw_=[0,caml_new_string(">"),0], - _bx_=[0,caml_new_string("")], - _bv_=[0,caml_new_string("src/obj_array.ml"),11,18], - _bz_=[0,caml_new_string("src/uniform_array.ml"),137,8], - _by_=[0,caml_new_string("src/uniform_array.ml"),71,18], + _be_=[0,caml_string_of_jsbytes("Done")], + _bf_=[0,caml_string_of_jsbytes("Skip")], + _bg_=[0,caml_string_of_jsbytes("Yield")], + _bt_=[0,caml_string_of_jsbytes("src/array.ml"),764,8], + _bo_=[0,caml_string_of_jsbytes("src/array.ml"),376,14], + _bp_=[0,caml_string_of_jsbytes("Array.findi_exn: not found")], + _bq_=[0,caml_string_of_jsbytes("Array.find_exn: not found")], + _br_=[0,caml_string_of_jsbytes("Array.find_map_exn: not found")], + _bs_=[0,caml_string_of_jsbytes("Array.find_mapi_exn: not found")], + _bw_=[0,caml_string_of_jsbytes(">"),0], + _bx_=[0,caml_string_of_jsbytes("")], + _bv_=[0,caml_string_of_jsbytes("src/obj_array.ml"),11,18], + _bz_=[0,caml_string_of_jsbytes("src/uniform_array.ml"),137,8], + _by_=[0,caml_string_of_jsbytes("src/uniform_array.ml"),71,18], _bG_= [0, [11, - caml_new_string("Uchar.to_char_exn got a non latin-1 character: U+"), + caml_string_of_jsbytes + ("Uchar.to_char_exn got a non latin-1 character: U+"), [4,8,[0,2,4],0,0]], - caml_new_string + caml_string_of_jsbytes ("Uchar.to_char_exn got a non latin-1 character: U+%04X")], _bF_= [0, [11, - caml_new_string + caml_string_of_jsbytes ("Uchar.of_int_exn got a invalid Unicode scalar value: "), [4,8,[0,2,4],0,0]], - caml_new_string + caml_string_of_jsbytes ("Uchar.of_int_exn got a invalid Unicode scalar value: %04X")], _bE_= [0, - [11,caml_new_string("Uchar.pred_exn: "),[2,0,0]], - caml_new_string("Uchar.pred_exn: %s")], + [11,caml_string_of_jsbytes("Uchar.pred_exn: "),[2,0,0]], + caml_string_of_jsbytes("Uchar.pred_exn: %s")], _bD_= [0, - [11,caml_new_string("Uchar.succ_exn: "),[2,0,0]], - caml_new_string("Uchar.succ_exn: %s")], - _bB_=[0,[11,caml_new_string("U+"),[4,8,0,0,0]],caml_new_string("U+%X")], + [11,caml_string_of_jsbytes("Uchar.succ_exn: "),[2,0,0]], + caml_string_of_jsbytes("Uchar.succ_exn: %s")], + _bB_= + [0, + [11,caml_string_of_jsbytes("U+"),[4,8,0,0,0]], + caml_string_of_jsbytes("U+%X")], _bA_= [0, - [11,caml_new_string("U+"),[4,8,[0,2,4],0,0]], - caml_new_string("U+%04X")], - _bL_=[0,caml_new_string("src/float0.ml"),161,4], - _bM_=[0,caml_new_string("src/float0.ml"),165,4], + [11,caml_string_of_jsbytes("U+"),[4,8,[0,2,4],0,0]], + caml_string_of_jsbytes("U+%04X")], + _bL_=[0,caml_string_of_jsbytes("src/float0.ml"),161,4], + _bM_=[0,caml_string_of_jsbytes("src/float0.ml"),165,4], _bJ_=runtime.caml_int64_create_lo_mi_hi(16777215,16777215,65535), _bK_=runtime.caml_int64_create_lo_mi_hi(1,0,0), _bI_=runtime.caml_int64_create_lo_mi_hi(0,0,0), @@ -32802,75 +35263,84 @@ _b2_= [0, [11, - caml_new_string("Char.get_digit_exn "), - [1,[11,caml_new_string(": not a digit"),0]]], - caml_new_string("Char.get_digit_exn %C: not a digit")], + caml_string_of_jsbytes("Char.get_digit_exn "), + [1,[11,caml_string_of_jsbytes(": not a digit"),0]]], + caml_string_of_jsbytes("Char.get_digit_exn %C: not a digit")], _bN_= [0, - [11,caml_new_string("Char.of_string: "),[3,0,0]], - caml_new_string("Char.of_string: %S")], - _ce_=[0,caml_new_string("src/string.ml"),1326,2], - _cd_=[0,caml_new_string("src/string.ml"),1312,19], + [11,caml_string_of_jsbytes("Char.of_string: "),[3,0,0]], + caml_string_of_jsbytes("Char.of_string: %S")], + _ce_=[0,caml_string_of_jsbytes("src/string.ml"),1326,2], + _cd_=[0,caml_string_of_jsbytes("src/string.ml"),1312,19], _cc_= [0, - [2,0,[11,caml_new_string(": out of bounds"),0]], - caml_new_string("%s: out of bounds")], + [2,0,[11,caml_string_of_jsbytes(": out of bounds"),0]], + caml_string_of_jsbytes("%s: out of bounds")], _cb_= [0, - [11,caml_new_string("String.chop_suffix_exn "),[3,0,[12,32,[3,0,0]]]], - caml_new_string("String.chop_suffix_exn %S %S")], + [11, + caml_string_of_jsbytes("String.chop_suffix_exn "), + [3,0,[12,32,[3,0,0]]]], + caml_string_of_jsbytes("String.chop_suffix_exn %S %S")], _ca_= [0, - [11,caml_new_string("String.chop_prefix_exn "),[3,0,[12,32,[3,0,0]]]], - caml_new_string("String.chop_prefix_exn %S %S")], - _b$_=[0,caml_new_string("src/string.ml"),655,17], + [11, + caml_string_of_jsbytes("String.chop_prefix_exn "), + [3,0,[12,32,[3,0,0]]]], + caml_string_of_jsbytes("String.chop_prefix_exn %S %S")], + _b$_=[0,caml_string_of_jsbytes("src/string.ml"),655,17], _b8_= [0, - [11,caml_new_string("String.init "),[4,0,0,0,0]], - caml_new_string("String.init %d")], + [11,caml_string_of_jsbytes("String.init "),[4,0,0,0,0]], + caml_string_of_jsbytes("String.init %d")], _b3_= [0, [11, - caml_new_string("String.is_substring_at: invalid index "), - [4,0,0,0,[11,caml_new_string(" for string of length "),[4,0,0,0,0]]]], - caml_new_string + caml_string_of_jsbytes("String.is_substring_at: invalid index "), + [4, + 0, + 0, + 0, + [11,caml_string_of_jsbytes(" for string of length "),[4,0,0,0,0]]]], + caml_string_of_jsbytes ("String.is_substring_at: invalid index %d for string of length %d")], - _b4_=[0,caml_new_string("String.index_exn: not found")], - _b5_=[0,caml_new_string("String.index_from_exn: not found")], - _b6_=[0,caml_new_string("String.rindex_exn: not found")], - _b7_=[0,caml_new_string("String.rindex_from_exn: not found")], - _b9_=[0,caml_new_string("String.lsplit2_exn: not found")], - _b__=[0,caml_new_string("String.rsplit2_exn: not found")], - _ci_=[0,caml_new_string("src/bytes.ml"),124,2], + _b4_=[0,caml_string_of_jsbytes("String.index_exn: not found")], + _b5_=[0,caml_string_of_jsbytes("String.index_from_exn: not found")], + _b6_=[0,caml_string_of_jsbytes("String.rindex_exn: not found")], + _b7_=[0,caml_string_of_jsbytes("String.rindex_from_exn: not found")], + _b9_=[0,caml_string_of_jsbytes("String.lsplit2_exn: not found")], + _b__=[0,caml_string_of_jsbytes("String.rsplit2_exn: not found")], + _ci_=[0,caml_string_of_jsbytes("src/bytes.ml"),124,2], _ch_= [0, - [11,caml_new_string("Bytes.init "),[4,0,0,0,0]], - caml_new_string("Bytes.init %d")], - _cf_=[0,[3,0,0],caml_new_string("%S")], + [11,caml_string_of_jsbytes("Bytes.init "),[4,0,0,0,0]], + caml_string_of_jsbytes("Bytes.init %d")], + _cf_=[0,[3,0,0],caml_string_of_jsbytes("%S")], _cy_= [0, - [2,0,[11,caml_new_string(".of_string: invalid input "),[3,0,0]]], - caml_new_string("%s.of_string: invalid input %S")], + [2,0,[11,caml_string_of_jsbytes(".of_string: invalid input "),[3,0,0]]], + caml_string_of_jsbytes("%s.of_string: invalid input %S")], _cj_= [0, [11, - caml_new_string("conversion from "), + caml_string_of_jsbytes("conversion from "), [2, 0, [11, - caml_new_string(" to "), + caml_string_of_jsbytes(" to "), [2, 0, [11, - caml_new_string(" failed: "), - [2,0,[11,caml_new_string(" is out of range"),0]]]]]]], - caml_new_string("conversion from %s to %s failed: %s is out of range")], - _ii_=[0,caml_new_string("src/int_conversions.ml"),18,9], - _ih_=[0,caml_new_string("src/int_conversions.ml"),78,9], - _ig_=[0,caml_new_string("src/int_conversions.ml"),101,9], - _if_=[0,caml_new_string("src/int_conversions.ml"),127,9], - _ie_=[0,caml_new_string("src/int_conversions.ml"),153,9], - _id_=[0,caml_new_string("src/int_conversions.ml"),181,9], + caml_string_of_jsbytes(" failed: "), + [2,0,[11,caml_string_of_jsbytes(" is out of range"),0]]]]]]], + caml_string_of_jsbytes + ("conversion from %s to %s failed: %s is out of range")], + _ii_=[0,caml_string_of_jsbytes("src/int_conversions.ml"),18,9], + _ih_=[0,caml_string_of_jsbytes("src/int_conversions.ml"),78,9], + _ig_=[0,caml_string_of_jsbytes("src/int_conversions.ml"),101,9], + _if_=[0,caml_string_of_jsbytes("src/int_conversions.ml"),127,9], + _ie_=[0,caml_string_of_jsbytes("src/int_conversions.ml"),153,9], + _id_=[0,caml_string_of_jsbytes("src/int_conversions.ml"),181,9], _cB_= [0, 2147483647, @@ -32937,7 +35407,7 @@ 1, 1, 1], - _ib_=[0,caml_new_string("src/pow_overflow_bounds.ml"),218,9], + _ib_=[0,caml_string_of_jsbytes("src/pow_overflow_bounds.ml"),218,9], _cC_=runtime.caml_int64_create_lo_mi_hi(16777215,127,0), _cD_=runtime.caml_int64_create_lo_mi_hi(16777215,16777215,16383), _cE_=runtime.caml_int64_create_lo_mi_hi(16777215,16777215,16383), @@ -33210,7 +35680,7 @@ [2, 0, [11, - caml_new_string(" /"), + caml_string_of_jsbytes(" /"), [12, 37, [12, @@ -33218,9 +35688,11 @@ [2, 0, [11, - caml_new_string(" in core_int.ml: divisor should be positive"), + caml_string_of_jsbytes + (" in core_int.ml: divisor should be positive"), 0]]]]]], - caml_new_string("%s /%% %s in core_int.ml: divisor should be positive")], + caml_string_of_jsbytes + ("%s /%% %s in core_int.ml: divisor should be positive")], _cT_= [0, [2, @@ -33234,9 +35706,11 @@ [2, 0, [11, - caml_new_string(" in core_int.ml: modulus should be positive"), + caml_string_of_jsbytes + (" in core_int.ml: modulus should be positive"), 0]]]]]], - caml_new_string("%s %% %s in core_int.ml: modulus should be positive")], + caml_string_of_jsbytes + ("%s %% %s in core_int.ml: modulus should be positive")], _cQ_=runtime.caml_int64_create_lo_mi_hi(0,0,0), _cR_=runtime.caml_int64_create_lo_mi_hi(1,0,0), _cS_=runtime.caml_int64_create_lo_mi_hi(63,0,0), @@ -33248,19 +35722,19 @@ _cO_=runtime.caml_int64_create_lo_mi_hi(0,0,0), _cJ_= [0, - [11,caml_new_string("integer overflow in pow"),0], - caml_new_string("integer overflow in pow")], + [11,caml_string_of_jsbytes("integer overflow in pow"),0], + caml_string_of_jsbytes("integer overflow in pow")], _cI_= [0, - [11,caml_new_string("exponent can not be negative"),0], - caml_new_string("exponent can not be negative")], - _ia_=[0,caml_new_string("src/popcount.ml"),45,9], + [11,caml_string_of_jsbytes("exponent can not be negative"),0], + caml_string_of_jsbytes("exponent can not be negative")], + _ia_=[0,caml_string_of_jsbytes("src/popcount.ml"),45,9], _c6_= [0, [2, 0, [11, - caml_new_string(" /"), + caml_string_of_jsbytes(" /"), [12, 37, [12, @@ -33268,9 +35742,11 @@ [2, 0, [11, - caml_new_string(" in core_int.ml: divisor should be positive"), + caml_string_of_jsbytes + (" in core_int.ml: divisor should be positive"), 0]]]]]], - caml_new_string("%s /%% %s in core_int.ml: divisor should be positive")], + caml_string_of_jsbytes + ("%s /%% %s in core_int.ml: divisor should be positive")], _c5_= [0, [2, @@ -33284,338 +35760,388 @@ [2, 0, [11, - caml_new_string(" in core_int.ml: modulus should be positive"), + caml_string_of_jsbytes + (" in core_int.ml: modulus should be positive"), 0]]]]]], - caml_new_string("%s %% %s in core_int.ml: modulus should be positive")], + caml_string_of_jsbytes + ("%s %% %s in core_int.ml: modulus should be positive")], _c4_= [0, - [11,caml_new_string("argument must be strictly positive"),0], - caml_new_string("argument must be strictly positive")], - _c3_=[0,caml_new_string("src/int.ml"),95,2], - _c2_=[0,[4,6,0,0,0],caml_new_string("%x")], - _c1_=[0,[4,6,0,0,0],caml_new_string("%x")], + [11,caml_string_of_jsbytes("argument must be strictly positive"),0], + caml_string_of_jsbytes("argument must be strictly positive")], + _c3_=[0,caml_string_of_jsbytes("src/int.ml"),95,2], + _c2_=[0,[4,6,0,0,0],caml_string_of_jsbytes("%x")], + _c1_=[0,[4,6,0,0,0],caml_string_of_jsbytes("%x")], _cZ_= [0, [11, - caml_new_string("Int.of_float: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is out of range or NaN"),0]]], - caml_new_string("Int.of_float: argument (%f) is out of range or NaN")], + caml_string_of_jsbytes("Int.of_float: argument ("), + [8, + [0,0,0], + 0, + 0, + [11,caml_string_of_jsbytes(") is out of range or NaN"),0]]], + caml_string_of_jsbytes + ("Int.of_float: argument (%f) is out of range or NaN")], _cY_= [0, - [11,caml_new_string("Int.of_string: "),[3,0,0]], - caml_new_string("Int.of_string: %S")], - _c__=[0,caml_new_string("witness")], - _c$_=[0,caml_new_string("name")], - _c9_=[0,caml_new_string("type_witness")], + [11,caml_string_of_jsbytes("Int.of_string: "),[3,0,0]], + caml_string_of_jsbytes("Int.of_string: %S")], + _c__=[0,caml_string_of_jsbytes("witness")], + _c$_=[0,caml_string_of_jsbytes("name")], + _c9_=[0,caml_string_of_jsbytes("type_witness")], _c8_=[0,0,0], - _c7_=[0,caml_new_string("T")], - _dr_=[0,caml_new_string("src/stack.ml"),109,14], - _dd_=[0,caml_new_string("src/stack.ml"),41,4], - _dc_=[0,caml_new_string("src/stack.ml"),48,6], - _da_=[0,caml_new_string("elts")], - _db_=[0,caml_new_string("length")], - _ds_=[0,caml_new_string("Neg")], - _dt_=[0,caml_new_string("Zero")], - _du_=[0,caml_new_string("Pos")], - _dv_=[0,caml_new_string("Nan")], - _dF_=[0,caml_new_string("Unfinished")], - _dE_=[0,caml_new_string("Finished")], - _dD_=[0,caml_new_string("Stop")], - _dC_=[0,caml_new_string("Continue")], - _dA_=[0,caml_new_string("Unequal")], - _dB_=[0,caml_new_string("Right")], - _dz_=[0,caml_new_string("Left")], - _dx_=[0,caml_new_string("Duplicate")], - _dy_=[0,caml_new_string("Ok")], - _dY_=[0,caml_new_string("_")], + _c7_=[0,caml_string_of_jsbytes("T")], + _dr_=[0,caml_string_of_jsbytes("src/stack.ml"),109,14], + _dd_=[0,caml_string_of_jsbytes("src/stack.ml"),41,4], + _dc_=[0,caml_string_of_jsbytes("src/stack.ml"),48,6], + _da_=[0,caml_string_of_jsbytes("elts")], + _db_=[0,caml_string_of_jsbytes("length")], + _ds_=[0,caml_string_of_jsbytes("Neg")], + _dt_=[0,caml_string_of_jsbytes("Zero")], + _du_=[0,caml_string_of_jsbytes("Pos")], + _dv_=[0,caml_string_of_jsbytes("Nan")], + _dF_=[0,caml_string_of_jsbytes("Unfinished")], + _dE_=[0,caml_string_of_jsbytes("Finished")], + _dD_=[0,caml_string_of_jsbytes("Stop")], + _dC_=[0,caml_string_of_jsbytes("Continue")], + _dA_=[0,caml_string_of_jsbytes("Unequal")], + _dB_=[0,caml_string_of_jsbytes("Right")], + _dz_=[0,caml_string_of_jsbytes("Left")], + _dx_=[0,caml_string_of_jsbytes("Duplicate")], + _dy_=[0,caml_string_of_jsbytes("Ok")], + _dY_=[0,caml_string_of_jsbytes("_")], _dX_=[0,0], - _dW_=[0,caml_new_string("src/set.ml"),1016,8], + _dW_=[0,caml_string_of_jsbytes("src/set.ml"),1016,8], _dU_=[0,0,0], _dT_=[0,0,0,0], - _dR_=[0,caml_new_string("src/set.ml.Tree0.Set_max_elt_exn_of_empty_set")], - _dS_=[0,caml_new_string("src/set.ml"),308,15], - _dO_=[0,caml_new_string("src/set.ml.Tree0.Set_min_elt_exn_of_empty_set")], - _dP_=[0,caml_new_string("src/set.ml"),298,15], - _dG_=[0,caml_new_string("src/set.ml"),201,17], - _dH_=[0,caml_new_string("src/set.ml"),202,18], - _dI_=[0,caml_new_string("src/set.ml"),208,21], - _dJ_=[0,caml_new_string("src/set.ml"),210,12], - _dK_=[0,caml_new_string("src/set.ml"),216,17], - _dL_=[0,caml_new_string("src/set.ml"),223,21], - _dM_=[0,caml_new_string("src/set.ml"),225,12], - _dV_=[0,caml_new_string("Set.choose_exn: empty set")], - _ec_=[0,caml_new_string("src/queue.ml"),444,2], - _eb_=[0,caml_new_string("src/queue.ml"),193,2], - _ea_=[0,caml_new_string("src/queue.ml"),152,2], - _d$_=[0,caml_new_string("src/queue.ml"),153,2], - _d__=[0,caml_new_string("src/queue.ml"),155,2], - _d9_=[0,caml_new_string("src/queue.ml"),156,2], - _d8_=[0,caml_new_string("src/queue.ml"),157,2], - _d7_=[0,caml_new_string("src/queue.ml"),158,2], - _d6_=[0,caml_new_string("src/queue.ml"),159,2], - _d5_=[0,caml_new_string("src/queue.ml"),165,9], - _d4_=[0,caml_new_string("_")], - _dZ_=[0,caml_new_string("elts")], - _d0_=[0,caml_new_string("length")], - _d1_=[0,caml_new_string("mask")], - _d2_=[0,caml_new_string("front")], - _d3_=[0,caml_new_string("num_mutations")], - _ej_=[0,caml_new_string("src/nativeint.ml"),180,2], + _dR_= + [0, + caml_string_of_jsbytes("src/set.ml.Tree0.Set_max_elt_exn_of_empty_set")], + _dS_=[0,caml_string_of_jsbytes("src/set.ml"),308,15], + _dO_= + [0, + caml_string_of_jsbytes("src/set.ml.Tree0.Set_min_elt_exn_of_empty_set")], + _dP_=[0,caml_string_of_jsbytes("src/set.ml"),298,15], + _dG_=[0,caml_string_of_jsbytes("src/set.ml"),201,17], + _dH_=[0,caml_string_of_jsbytes("src/set.ml"),202,18], + _dI_=[0,caml_string_of_jsbytes("src/set.ml"),208,21], + _dJ_=[0,caml_string_of_jsbytes("src/set.ml"),210,12], + _dK_=[0,caml_string_of_jsbytes("src/set.ml"),216,17], + _dL_=[0,caml_string_of_jsbytes("src/set.ml"),223,21], + _dM_=[0,caml_string_of_jsbytes("src/set.ml"),225,12], + _dV_=[0,caml_string_of_jsbytes("Set.choose_exn: empty set")], + _ec_=[0,caml_string_of_jsbytes("src/queue.ml"),444,2], + _eb_=[0,caml_string_of_jsbytes("src/queue.ml"),193,2], + _ea_=[0,caml_string_of_jsbytes("src/queue.ml"),152,2], + _d$_=[0,caml_string_of_jsbytes("src/queue.ml"),153,2], + _d__=[0,caml_string_of_jsbytes("src/queue.ml"),155,2], + _d9_=[0,caml_string_of_jsbytes("src/queue.ml"),156,2], + _d8_=[0,caml_string_of_jsbytes("src/queue.ml"),157,2], + _d7_=[0,caml_string_of_jsbytes("src/queue.ml"),158,2], + _d6_=[0,caml_string_of_jsbytes("src/queue.ml"),159,2], + _d5_=[0,caml_string_of_jsbytes("src/queue.ml"),165,9], + _d4_=[0,caml_string_of_jsbytes("_")], + _dZ_=[0,caml_string_of_jsbytes("elts")], + _d0_=[0,caml_string_of_jsbytes("length")], + _d1_=[0,caml_string_of_jsbytes("mask")], + _d2_=[0,caml_string_of_jsbytes("front")], + _d3_=[0,caml_string_of_jsbytes("num_mutations")], + _ej_=[0,caml_string_of_jsbytes("src/nativeint.ml"),180,2], _ei_= [0, - [11,caml_new_string("argument must be strictly positive"),0], - caml_new_string("argument must be strictly positive")], + [11,caml_string_of_jsbytes("argument must be strictly positive"),0], + caml_string_of_jsbytes("argument must be strictly positive")], _eh_= [0, [11, - caml_new_string("Nativeint.of_float: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is out of range or NaN"),0]]], - caml_new_string + caml_string_of_jsbytes("Nativeint.of_float: argument ("), + [8, + [0,0,0], + 0, + 0, + [11,caml_string_of_jsbytes(") is out of range or NaN"),0]]], + caml_string_of_jsbytes ("Nativeint.of_float: argument (%f) is out of range or NaN")], - _ef_=[0,[6,6,0,0,0],caml_new_string("%nx")], - _ee_=[0,[6,6,0,0,0],caml_new_string("%nx")], - _eG_=[0,caml_new_string("_")], + _ef_=[0,[6,6,0,0,0],caml_string_of_jsbytes("%nx")], + _ee_=[0,[6,6,0,0,0],caml_string_of_jsbytes("%nx")], + _eG_=[0,caml_string_of_jsbytes("_")], _eq_=[0,0,0,0], _eE_=[0,0], - _eF_=[0,caml_new_string("src/map.ml"),1568,6], + _eF_=[0,caml_string_of_jsbytes("src/map.ml"),1568,6], _eD_=[0,[0,0,0],[0,0,0]], _eC_=[0,0,0], _eB_=[0,0,0], _eA_=[0,0,0], _ez_=[0,0,0], _ey_=[0,0,0], - _ew_=[0,caml_new_string("src/map.ml.Tree0.Map_max_elt_exn_of_empty_map")], - _ex_=[0,caml_new_string("src/map.ml"),560,15], - _et_=[0,caml_new_string("src/map.ml.Tree0.Map_min_elt_exn_of_empty_map")], - _eu_=[0,caml_new_string("src/map.ml"),550,15], - _er_=[0,caml_new_string("Map.find_exn: not found")], + _ew_= + [0, + caml_string_of_jsbytes("src/map.ml.Tree0.Map_max_elt_exn_of_empty_map")], + _ex_=[0,caml_string_of_jsbytes("src/map.ml"),560,15], + _et_= + [0, + caml_string_of_jsbytes("src/map.ml.Tree0.Map_min_elt_exn_of_empty_map")], + _eu_=[0,caml_string_of_jsbytes("src/map.ml"),550,15], + _er_=[0,caml_string_of_jsbytes("Map.find_exn: not found")], _ep_=[1,0], - _en_=[0,caml_new_string("src/map.ml"),187,18], - _eo_=[0,caml_new_string("src/map.ml"),202,18], - _el_=[0,caml_new_string("src/map.ml.Duplicate")], - _em_=[0,caml_new_string("src/map.ml"),58,13], - _eM_=[0,[7,6,0,0,0],caml_new_string("%Lx")], - _eL_=[0,[7,6,0,0,0],caml_new_string("%Lx")], + _en_=[0,caml_string_of_jsbytes("src/map.ml"),187,18], + _eo_=[0,caml_string_of_jsbytes("src/map.ml"),202,18], + _el_=[0,caml_string_of_jsbytes("src/map.ml.Duplicate")], + _em_=[0,caml_string_of_jsbytes("src/map.ml"),58,13], + _eM_=[0,[7,6,0,0,0],caml_string_of_jsbytes("%Lx")], + _eL_=[0,[7,6,0,0,0],caml_string_of_jsbytes("%Lx")], _eK_= [0, - [11,caml_new_string("argument must be strictly positive"),0], - caml_new_string("argument must be strictly positive")], - _eJ_=[0,caml_new_string("src/int64.ml"),77,2], + [11,caml_string_of_jsbytes("argument must be strictly positive"),0], + caml_string_of_jsbytes("argument must be strictly positive")], + _eJ_=[0,caml_string_of_jsbytes("src/int64.ml"),77,2], _eI_= [0, [11, - caml_new_string("Int64.of_float: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is out of range or NaN"),0]]], - caml_new_string("Int64.of_float: argument (%f) is out of range or NaN")], - _e0_=[0,[7,6,0,0,0],caml_new_string("%Lx")], - _eZ_=[0,caml_new_string("src/int63_emul.ml"),287,2], + caml_string_of_jsbytes("Int64.of_float: argument ("), + [8, + [0,0,0], + 0, + 0, + [11,caml_string_of_jsbytes(") is out of range or NaN"),0]]], + caml_string_of_jsbytes + ("Int64.of_float: argument (%f) is out of range or NaN")], + _e0_=[0,[7,6,0,0,0],caml_string_of_jsbytes("%Lx")], + _eZ_=[0,caml_string_of_jsbytes("src/int63_emul.ml"),287,2], _eX_= [0, [11, - caml_new_string("Int63.of_float: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is out of range or NaN"),0]]], - caml_new_string("Int63.of_float: argument (%f) is out of range or NaN")], + caml_string_of_jsbytes("Int63.of_float: argument ("), + [8, + [0,0,0], + 0, + 0, + [11,caml_string_of_jsbytes(") is out of range or NaN"),0]]], + caml_string_of_jsbytes + ("Int63.of_float: argument (%f) is out of range or NaN")], _eW_=runtime.caml_int64_create_lo_mi_hi(0,0,0), _eU_=[0,1,4003188], _eV_=[0,1,3901488], _eT_= [0, - [11,caml_new_string("Int63.of_string: invalid input "),[3,0,0]], - caml_new_string("Int63.of_string: invalid input %S")], + [11,caml_string_of_jsbytes("Int63.of_string: invalid input "),[3,0,0]], + caml_string_of_jsbytes("Int63.of_string: invalid input %S")], _eQ_=runtime.caml_int64_create_lo_mi_hi(2,0,0), _eP_=runtime.caml_int64_create_lo_mi_hi(2,0,0), _eO_=runtime.caml_int64_create_lo_mi_hi(2,0,0), _eN_=runtime.caml_int64_create_lo_mi_hi(2,0,0), _eR_=runtime.caml_int64_create_lo_mi_hi(1,0,0), - _e3_=[0,caml_new_string("src/bool.ml"),47,2], + _e3_=[0,caml_string_of_jsbytes("src/bool.ml"),47,2], _e2_= [0, [11, - caml_new_string("Bool.of_string: expected true or false but got "), + caml_string_of_jsbytes + ("Bool.of_string: expected true or false but got "), [2,0,0]], - caml_new_string("Bool.of_string: expected true or false but got %s")], - _e9_=[0,[5,6,0,0,0],caml_new_string("%lx")], - _e8_=[0,[5,6,0,0,0],caml_new_string("%lx")], + caml_string_of_jsbytes + ("Bool.of_string: expected true or false but got %s")], + _e9_=[0,[5,6,0,0,0],caml_string_of_jsbytes("%lx")], + _e8_=[0,[5,6,0,0,0],caml_string_of_jsbytes("%lx")], _e7_= [0, - [11,caml_new_string("argument must be strictly positive"),0], - caml_new_string("argument must be strictly positive")], - _e6_=[0,caml_new_string("src/int32.ml"),90,4], + [11,caml_string_of_jsbytes("argument must be strictly positive"),0], + caml_string_of_jsbytes("argument must be strictly positive")], + _e6_=[0,caml_string_of_jsbytes("src/int32.ml"),90,4], _e5_= [0, [11, - caml_new_string("Int32.of_float: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is out of range or NaN"),0]]], - caml_new_string("Int32.of_float: argument (%f) is out of range or NaN")], - _h$_=[0,caml_new_string("src/int63.ml"),134,9], - _fc_=[0,caml_new_string("_")], - _fo_=[0,caml_new_string("src/avltree.ml"),399,15], - _fp_=[0,caml_new_string("src/avltree.ml"),418,18], - _fn_=[0,caml_new_string("src/avltree.ml"),205,9], - _fm_=[0,caml_new_string("src/avltree.ml"),193,9], - _fj_=[0,caml_new_string("src/avltree.ml"),129,30], - _fi_=[0,caml_new_string("src/avltree.ml"),110,26], - _fl_=[0,caml_new_string("src/avltree.ml"),163,30], - _fk_=[0,caml_new_string("src/avltree.ml"),145,26], - _fh_=[0,caml_new_string("src/avltree.ml"),87,22], - _fg_=[0,caml_new_string("src/avltree.ml"),66,6], - _ff_=[0,caml_new_string("src/avltree.ml"),67,6], - _fe_=[0,caml_new_string("src/avltree.ml"),56,6], - _fd_=[0,caml_new_string("src/avltree.ml"),50,6], - _fs_=[0,caml_new_string("src/hashtbl.ml"),545,4], - _fr_=[0,caml_new_string("Hashtbl.find_exn: not found")], - _fq_=[0,caml_new_string("src/hashtbl.ml"),290,2], + caml_string_of_jsbytes("Int32.of_float: argument ("), + [8, + [0,0,0], + 0, + 0, + [11,caml_string_of_jsbytes(") is out of range or NaN"),0]]], + caml_string_of_jsbytes + ("Int32.of_float: argument (%f) is out of range or NaN")], + _h$_=[0,caml_string_of_jsbytes("src/int63.ml"),134,9], + _fc_=[0,caml_string_of_jsbytes("_")], + _fo_=[0,caml_string_of_jsbytes("src/avltree.ml"),399,15], + _fp_=[0,caml_string_of_jsbytes("src/avltree.ml"),418,18], + _fn_=[0,caml_string_of_jsbytes("src/avltree.ml"),205,9], + _fm_=[0,caml_string_of_jsbytes("src/avltree.ml"),193,9], + _fj_=[0,caml_string_of_jsbytes("src/avltree.ml"),129,30], + _fi_=[0,caml_string_of_jsbytes("src/avltree.ml"),110,26], + _fl_=[0,caml_string_of_jsbytes("src/avltree.ml"),163,30], + _fk_=[0,caml_string_of_jsbytes("src/avltree.ml"),145,26], + _fh_=[0,caml_string_of_jsbytes("src/avltree.ml"),87,22], + _fg_=[0,caml_string_of_jsbytes("src/avltree.ml"),66,6], + _ff_=[0,caml_string_of_jsbytes("src/avltree.ml"),67,6], + _fe_=[0,caml_string_of_jsbytes("src/avltree.ml"),56,6], + _fd_=[0,caml_string_of_jsbytes("src/avltree.ml"),50,6], + _fs_=[0,caml_string_of_jsbytes("src/hashtbl.ml"),545,4], + _fr_=[0,caml_string_of_jsbytes("Hashtbl.find_exn: not found")], + _fq_=[0,caml_string_of_jsbytes("src/hashtbl.ml"),290,2], _fx_=[0,0], _fw_=[0,0], _fv_=[0,0], - _gb_=[0,caml_new_string("value is infinite")], - _ga_=[0,caml_new_string("value is NaN")], - _f$_=[0,[8,[0,0,4],0,[0,8],0],caml_new_string("%.8G")], + _gb_=[0,caml_string_of_jsbytes("value is infinite")], + _ga_=[0,caml_string_of_jsbytes("value is NaN")], + _f$_=[0,[8,[0,0,4],0,[0,8],0],caml_string_of_jsbytes("%.8G")], _f9_= [0, [11, - caml_new_string("exponent "), + caml_string_of_jsbytes("exponent "), [4, 0, 0, 0, - [11,caml_new_string(" out of range [0, "),[4,0,0,0,[12,93,0]]]]], - caml_new_string("exponent %d out of range [0, %d]")], + [11,caml_string_of_jsbytes(" out of range [0, "),[4,0,0,0,[12,93,0]]]]], + caml_string_of_jsbytes("exponent %d out of range [0, %d]")], _f__= [0, [11, - caml_new_string("mantissa "), - [2,0,[11,caml_new_string(" out of range [0, "),[2,0,[12,93,0]]]]], - caml_new_string("mantissa %s out of range [0, %s]")], - _f8_=[0,caml_new_string("src/float.ml"),834,2], - _f7_=[0,[8,[0,0,3],0,1,0],caml_new_string("%.*g")], - _f6_=[0,caml_new_string("p")], - _f3_=[0,caml_new_string("src/float.ml"),672,8], - _f2_=[0,caml_new_string("src/float.ml"),675,8], - _f1_=[0,caml_new_string("src/float.ml"),682,8], - _f0_=[0,caml_new_string("src/float.ml"),683,8], - _fY_=[0,[2,0,[4,0,0,0,[2,0,[12,32,0]]]],caml_new_string("%s%d%s ")], - _fZ_=[0,[2,0,[4,0,0,0,[2,0,[4,0,0,0,0]]]],caml_new_string("%s%d%s%d")], - _fX_=[0,caml_new_string("src/float.ml"),659,8], - _f4_=[0,[2,0,[8,[0,0,1],0,[0,1],0]],caml_new_string("%s%.1e")], - _f5_=[0,[2,0,[8,[0,0,1],0,[0,1],0]],caml_new_string("%s%.1e")], + caml_string_of_jsbytes("mantissa "), + [2, + 0, + [11,caml_string_of_jsbytes(" out of range [0, "),[2,0,[12,93,0]]]]], + caml_string_of_jsbytes("mantissa %s out of range [0, %s]")], + _f8_=[0,caml_string_of_jsbytes("src/float.ml"),834,2], + _f7_=[0,[8,[0,0,3],0,1,0],caml_string_of_jsbytes("%.*g")], + _f6_=[0,caml_string_of_jsbytes("p")], + _f3_=[0,caml_string_of_jsbytes("src/float.ml"),672,8], + _f2_=[0,caml_string_of_jsbytes("src/float.ml"),675,8], + _f1_=[0,caml_string_of_jsbytes("src/float.ml"),682,8], + _f0_=[0,caml_string_of_jsbytes("src/float.ml"),683,8], + _fY_= + [0,[2,0,[4,0,0,0,[2,0,[12,32,0]]]],caml_string_of_jsbytes("%s%d%s ")], + _fZ_= + [0,[2,0,[4,0,0,0,[2,0,[4,0,0,0,0]]]],caml_string_of_jsbytes("%s%d%s%d")], + _fX_=[0,caml_string_of_jsbytes("src/float.ml"),659,8], + _f4_=[0,[2,0,[8,[0,0,1],0,[0,1],0]],caml_string_of_jsbytes("%s%.1e")], + _f5_=[0,[2,0,[8,[0,0,1],0,[0,1],0]],caml_string_of_jsbytes("%s%.1e")], _fV_= [0, [11, - caml_new_string("to_string_hum: invalid argument ~decimals="), + caml_string_of_jsbytes("to_string_hum: invalid argument ~decimals="), [4,0,0,0,0]], - caml_new_string("to_string_hum: invalid argument ~decimals=%d")], - _fW_=[0,[8,[0,0,0],0,1,0],caml_new_string("%.*f")], - _fQ_=[0,caml_new_string("Infinite")], - _fR_=[0,caml_new_string("Nan")], - _fS_=[0,caml_new_string("Normal")], - _fT_=[0,caml_new_string("Subnormal")], - _fU_=[0,caml_new_string("Zero")], + caml_string_of_jsbytes("to_string_hum: invalid argument ~decimals=%d")], + _fW_=[0,[8,[0,0,0],0,1,0],caml_string_of_jsbytes("%.*f")], + _fQ_=[0,caml_string_of_jsbytes("Infinite")], + _fR_=[0,caml_string_of_jsbytes("Nan")], + _fS_=[0,caml_string_of_jsbytes("Normal")], + _fT_=[0,caml_string_of_jsbytes("Subnormal")], + _fU_=[0,caml_string_of_jsbytes("Zero")], _fO_= [0, [11, - caml_new_string + caml_string_of_jsbytes ("Float.int63_round_nearest_portable_alloc_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too large"),0]]], - caml_new_string + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too large"),0]]], + caml_string_of_jsbytes ("Float.int63_round_nearest_portable_alloc_exn: argument (%f) is too large")], _fP_= [0, [11, - caml_new_string + caml_string_of_jsbytes ("Float.int63_round_nearest_portable_alloc_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too small or NaN"),0]]], - caml_new_string + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too small or NaN"),0]]], + caml_string_of_jsbytes ("Float.int63_round_nearest_portable_alloc_exn: argument (%f) is too small or NaN")], _fM_= [0, [11, - caml_new_string("Float.int63_round_down_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too large"),0]]], - caml_new_string + caml_string_of_jsbytes("Float.int63_round_down_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too large"),0]]], + caml_string_of_jsbytes ("Float.int63_round_down_exn: argument (%f) is too large")], _fN_= [0, [11, - caml_new_string("Float.int63_round_down_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too small or NaN"),0]]], - caml_new_string + caml_string_of_jsbytes("Float.int63_round_down_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too small or NaN"),0]]], + caml_string_of_jsbytes ("Float.int63_round_down_exn: argument (%f) is too small or NaN")], _fK_= [0, [11, - caml_new_string("Float.int63_round_up_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too large"),0]]], - caml_new_string("Float.int63_round_up_exn: argument (%f) is too large")], + caml_string_of_jsbytes("Float.int63_round_up_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too large"),0]]], + caml_string_of_jsbytes + ("Float.int63_round_up_exn: argument (%f) is too large")], _fL_= [0, [11, - caml_new_string("Float.int63_round_up_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too small or NaN"),0]]], - caml_new_string + caml_string_of_jsbytes("Float.int63_round_up_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too small or NaN"),0]]], + caml_string_of_jsbytes ("Float.int63_round_up_exn: argument (%f) is too small or NaN")], _fI_= [0, [11, - caml_new_string("Float.iround_nearest_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too large"),0]]], - caml_new_string("Float.iround_nearest_exn: argument (%f) is too large")], + caml_string_of_jsbytes("Float.iround_nearest_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too large"),0]]], + caml_string_of_jsbytes + ("Float.iround_nearest_exn: argument (%f) is too large")], _fJ_= [0, [11, - caml_new_string("Float.iround_nearest_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too small or NaN"),0]]], - caml_new_string + caml_string_of_jsbytes("Float.iround_nearest_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too small or NaN"),0]]], + caml_string_of_jsbytes ("Float.iround_nearest_exn: argument (%f) is too small or NaN")], _fG_= [0, [11, - caml_new_string("Float.iround_nearest_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too large"),0]]], - caml_new_string("Float.iround_nearest_exn: argument (%f) is too large")], + caml_string_of_jsbytes("Float.iround_nearest_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too large"),0]]], + caml_string_of_jsbytes + ("Float.iround_nearest_exn: argument (%f) is too large")], _fH_= [0, [11, - caml_new_string("Float.iround_nearest_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too small"),0]]], - caml_new_string("Float.iround_nearest_exn: argument (%f) is too small")], + caml_string_of_jsbytes("Float.iround_nearest_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too small"),0]]], + caml_string_of_jsbytes + ("Float.iround_nearest_exn: argument (%f) is too small")], _fF_= [0, [11, - caml_new_string("Float.iround_towards_zero_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is out of range or NaN"),0]]], - caml_new_string + caml_string_of_jsbytes("Float.iround_towards_zero_exn: argument ("), + [8, + [0,0,0], + 0, + 0, + [11,caml_string_of_jsbytes(") is out of range or NaN"),0]]], + caml_string_of_jsbytes ("Float.iround_towards_zero_exn: argument (%f) is out of range or NaN")], _fD_= [0, [11, - caml_new_string("Float.iround_down_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too large"),0]]], - caml_new_string("Float.iround_down_exn: argument (%f) is too large")], + caml_string_of_jsbytes("Float.iround_down_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too large"),0]]], + caml_string_of_jsbytes + ("Float.iround_down_exn: argument (%f) is too large")], _fE_= [0, [11, - caml_new_string("Float.iround_down_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too small or NaN"),0]]], - caml_new_string + caml_string_of_jsbytes("Float.iround_down_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too small or NaN"),0]]], + caml_string_of_jsbytes ("Float.iround_down_exn: argument (%f) is too small or NaN")], _fB_= [0, [11, - caml_new_string("Float.iround_up_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too large"),0]]], - caml_new_string("Float.iround_up_exn: argument (%f) is too large")], + caml_string_of_jsbytes("Float.iround_up_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too large"),0]]], + caml_string_of_jsbytes + ("Float.iround_up_exn: argument (%f) is too large")], _fC_= [0, [11, - caml_new_string("Float.iround_up_exn: argument ("), - [8,[0,0,0],0,0,[11,caml_new_string(") is too small or NaN"),0]]], - caml_new_string + caml_string_of_jsbytes("Float.iround_up_exn: argument ("), + [8,[0,0,0],0,0,[11,caml_string_of_jsbytes(") is too small or NaN"),0]]], + caml_string_of_jsbytes ("Float.iround_up_exn: argument (%f) is too small or NaN")], _fA_= [0, - [11,caml_new_string("Float.of_string "),[2,0,0]], - caml_new_string("Float.of_string %s")]; + [11,caml_string_of_jsbytes("Float.of_string "),[2,0,0]], + caml_string_of_jsbytes("Float.of_string %s")]; function descending(x,y){return caml_compare(y,x)} var max=Caml[16], @@ -33890,16 +36416,16 @@ do_at_exit$0, Not_found$0]; function bool_to_int(x){return x} - function symbol$3(_GE_,_GD_){return _GE_ !== _GD_?1:0} - function symbol$4(_GC_,_GB_){return caml_mul(_GC_,_GB_)} - function symbol$5(_GA_,_Gz_){return Math.pow(_GA_,_Gz_)} - function scale(_Gy_,_Gx_){return _Gy_ * _Gx_} - function symbol$6(_Gw_,_Gv_){return _Gw_ + _Gv_ | 0} - function add(_Gu_,_Gt_){return _Gu_ + _Gt_} - function symbol$7(_Gs_,_Gr_){return _Gs_ - _Gr_ | 0} - function sub(_Gq_,_Gp_){return _Gq_ - _Gp_} + function symbol$3(_GA_,_Gz_){return _GA_ !== _Gz_?1:0} + var symbol$4=caml_mul; + function symbol$5(_Gy_,_Gx_){return Math.pow(_Gy_,_Gx_)} + function scale(_Gw_,_Gv_){return _Gw_ * _Gv_} + function symbol$6(_Gu_,_Gt_){return _Gu_ + _Gt_ | 0} + function add(_Gs_,_Gr_){return _Gs_ + _Gr_} + function symbol$7(_Gq_,_Gp_){return _Gq_ - _Gp_ | 0} + function sub(_Go_,_Gn_){return _Go_ - _Gn_} var symbol$8=caml_div; - function symbol$9(_Go_,_Gn_){return _Go_ / _Gn_} + function symbol$9(_Gm_,_Gl_){return _Gm_ / _Gl_} function symbol$10(x,y){return x < y?1:0} function symbol$11(x,y){return x <= y?1:0} function symbol$12(x,y){return x !== y?1:0} @@ -33951,7 +36477,7 @@ function max$3(x,y){return caml_greaterequal(x,y)?x:y} function min$3(x,y){return caml_lessequal(x,y)?x:y} var - Int32_replace_polymorphic_compare= + Int32_replace_polymorphic_comp= [0, symbol$22, symbol$23, @@ -33973,7 +36499,8 @@ symbol$33=caml_greaterequal, ascending$3=caml_compare; function descending$3(x,y){return caml_compare(y,x)} - var compare$2=caml_int64_compare,equal$2=caml_equal; + function compare$2(x,y){return caml_int64_compare(x,y)} + var equal$2=caml_equal; function max$4(x,y){return caml_greaterequal(x,y)?x:y} function min$4(x,y){return caml_lessequal(x,y)?x:y} var @@ -34073,25 +36600,25 @@ min$7]; function i(x){return caml_call1(Stdlib_uchar[10],x)} function symbol$52(x,y) - {var _Gl_=i(y),_Gm_=i(x);return caml_call2(include$1[1],_Gm_,_Gl_)} + {var _Gj_=i(y),_Gk_=i(x);return caml_call2(include$1[1],_Gk_,_Gj_)} function symbol$53(x,y) - {var _Gj_=i(y),_Gk_=i(x);return caml_call2(include$1[2],_Gk_,_Gj_)} + {var _Gh_=i(y),_Gi_=i(x);return caml_call2(include$1[2],_Gi_,_Gh_)} function symbol$54(x,y) - {var _Gh_=i(y),_Gi_=i(x);return caml_call2(include$1[3],_Gi_,_Gh_)} + {var _Gf_=i(y),_Gg_=i(x);return caml_call2(include$1[3],_Gg_,_Gf_)} function symbol$55(x,y) - {var _Gf_=i(y),_Gg_=i(x);return caml_call2(include$1[4],_Gg_,_Gf_)} + {var _Gd_=i(y),_Ge_=i(x);return caml_call2(include$1[4],_Ge_,_Gd_)} function symbol$56(x,y) - {var _Gd_=i(y),_Ge_=i(x);return caml_call2(include$1[5],_Ge_,_Gd_)} + {var _Gb_=i(y),_Gc_=i(x);return caml_call2(include$1[5],_Gc_,_Gb_)} function symbol$57(x,y) - {var _Gb_=i(y),_Gc_=i(x);return caml_call2(include$1[6],_Gc_,_Gb_)} + {var _F$_=i(y),_Ga_=i(x);return caml_call2(include$1[6],_Ga_,_F$_)} function ascending$7(x,y) - {var _F$_=i(y),_Ga_=i(x);return caml_call2(include$1[8],_Ga_,_F$_)} + {var _F9_=i(y),_F__=i(x);return caml_call2(include$1[8],_F__,_F9_)} function descending$7(x,y) - {var _F9_=i(y),_F__=i(x);return caml_call2(include$1[9],_F__,_F9_)} + {var _F7_=i(y),_F8_=i(x);return caml_call2(include$1[9],_F8_,_F7_)} function compare$6(x,y) - {var _F7_=i(y),_F8_=i(x);return caml_call2(include$1[7],_F8_,_F7_)} + {var _F5_=i(y),_F6_=i(x);return caml_call2(include$1[7],_F6_,_F5_)} function equal$6(x,y) - {var _F5_=i(y),_F6_=i(x);return caml_call2(include$1[10],_F6_,_F5_)} + {var _F3_=i(y),_F4_=i(x);return caml_call2(include$1[10],_F4_,_F3_)} function max$8(x,y){return symbol$57(x,y)?x:y} function min$8(x,y){return symbol$53(x,y)?x:y} var @@ -34191,22 +36718,22 @@ min$11], symbol$76=Caml$0[25], symbol$77=Caml$0[16]; - function neg(_F4_){return - _F4_ | 0} - function neg$0(_F3_){return - _F3_} - function asr(_F2_,_F1_){return _F2_ >> _F1_} - function land(_F0_,_FZ_){return _F0_ & _FZ_} + function neg(_F2_){return - _F2_ | 0} + function neg$0(_F1_){return - _F1_} + function asr(_F0_,_FZ_){return _F0_ >> _FZ_} + function land(_FY_,_FX_){return _FY_ & _FX_} var lnot$0=Caml$0[9]; - function lor(_FY_,_FX_){return _FY_ | _FX_} - function lsl(_FW_,_FV_){return _FW_ << _FV_} - function lsr(_FU_,_FT_){return _FU_ >>> _FT_ | 0} - function lxor(_FS_,_FR_){return _FS_ ^ _FR_} + function lor(_FW_,_FV_){return _FW_ | _FV_} + function lsl(_FU_,_FT_){return _FU_ << _FT_} + function lsr(_FS_,_FR_){return _FS_ >>> _FR_ | 0} + function lxor(_FQ_,_FP_){return _FQ_ ^ _FP_} var mod=caml_mod,abs$0=Caml$0[6],failwith$0=Caml$0[2]; - function get_key(_FQ_){return _FQ_[1]} + function get_key(_FO_){return _FO_[1]} var invalid_arg$0=Caml$0[1]; - function get_data(_FP_){return _FP_[2]} - function phys_equal(_FO_,_FN_){return _FO_ === _FN_?1:0} - function decr(_FM_){_FM_[1] += -1;return 0} - function incr(_FL_){_FL_[1]++;return 0} + function get_data(_FN_){return _FN_[2]} + function phys_equal(_FM_,_FL_){return _FM_ === _FL_?1:0} + function decr(_FK_){_FK_[1] += -1;return 0} + function incr(_FJ_){_FJ_[1]++;return 0} var float_of_string=caml_float_of_string, am_testing=runtime.Base_am_testing(0), @@ -34320,7 +36847,7 @@ equal$0, max$2, min$2, - Int32_replace_polymorphic_compare, + Int32_replace_polymorphic_comp, include$2, include$3, include$4, @@ -34394,18 +36921,18 @@ runtime_warnings_enabled=Stdlib_sys[48]; function getenv_exn(var$0) {try - {var _FJ_=caml_sys_getenv(var$0);return _FJ_} - catch(_FK_) - {_FK_ = caml_wrap_exception(_FK_); - if(_FK_ === Caml$0[90])return caml_call2(failwithf(_a_),var$0,0); - throw _FK_}} + {var _FH_=caml_sys_getenv(var$0);return _FH_} + catch(_FI_) + {_FI_ = caml_wrap_exception(_FI_); + if(_FI_ === Caml$0[90])return caml_call2(failwithf(_a_),var$0,0); + throw _FI_}} function getenv(var$0) {try {var x=caml_sys_getenv(var$0)} - catch(_FI_) - {_FI_ = caml_wrap_exception(_FI_); - if(_FI_ === Caml$0[90])return 0; - throw _FI_} + catch(_FG_) + {_FG_ = caml_wrap_exception(_FG_); + if(_FG_ === Caml$0[90])return 0; + throw _FG_} return [0,x]} var Break=Stdlib_sys[44], @@ -34457,8 +36984,8 @@ function stable_sort(t,compare) {return caml_call2(Stdlib_arrayLabels[26],compare,t)} function swap(t,i,j) - {var tmp=caml_check_bound(t,i)[1 + i],_FH_=caml_check_bound(t,j)[1 + j]; - caml_check_bound(t,i)[1 + i] = _FH_; + {var tmp=caml_check_bound(t,i)[1 + i],_FF_=caml_check_bound(t,j)[1 + j]; + caml_check_bound(t,i)[1 + i] = _FF_; caml_check_bound(t,j)[1 + j] = tmp; return 0} var @@ -34488,12 +37015,12 @@ swap]; caml_register_global(947,include$11,"Base__Array0"); var _b_=Stdlib_char[2],_c_=Stdlib_char[5]; - function to_int(_FG_){return _FG_} - function unsafe_of_int(_FF_){return _FF_} + function to_int(_FE_){return _FE_} + function unsafe_of_int(_FD_){return _FD_} var _d_=Stdlib_char[6]; function int_is_ok(i) - {var _FE_=caml_call2(symbol$17,0,i); - return _FE_?caml_call2(symbol$17,i,255):_FE_} + {var _FC_=caml_call2(symbol$17,0,i); + return _FC_?caml_call2(symbol$17,i,255):_FC_} var min_value=0,max_value=255; function of_int(i){return int_is_ok(i)?[0,i]:0} function of_int_exn(i) @@ -34518,10 +37045,10 @@ var Base_Hash_intf=[0]; caml_register_global(950,Base_Hash_intf,"Base__Hash_intf"); var to_string=Caml[32],of_string=caml_int_of_string; - function to_float(_FD_){return _FD_} - function of_float(_FC_){return _FC_ | 0} + function to_float(_FB_){return _FB_} + function of_float(_FA_){return _FA_ | 0} var max_value$0=Caml[18],min_value$0=Caml[19]; - function succ(_FB_){return _FB_ + 1 | 0} + function succ(_Fz_){return _Fz_ + 1 | 0} var include$13= [0,to_string,of_string,to_float,of_float,max_value$0,min_value$0,succ]; @@ -34557,9 +37084,9 @@ {return caml_call2(Stdlib_listLabels[50],compare,l)} function rev(res) {if(res) - {var _FA_=res[2]; - if(_FA_) - {var rest=_FA_[2],y=_FA_[1],x=res[1]; + {var _Fy_=res[2]; + if(_Fy_) + {var rest=_Fy_[2],y=_Fy_[1],x=res[1]; return caml_call2(rev_append,rest,[0,y,[0,x,0]])}} return res} var @@ -34589,23 +37116,23 @@ caml_register_global(953,include$14,"Base__List0"); function Folding(Hash) {function hash_fold_unit(s,param){return s} - var _E5_=Hash[2],_E6_=Hash[3],_E7_=Hash[4],_E8_=Hash[5]; - function as_int(f,s,x){return caml_call2(_E5_,s,caml_call1(f,x))} - function _E9_(_Fz_){return _Fz_} - function hash_fold_int32(_Fx_,_Fy_){return as_int(_E9_,_Fx_,_Fy_)} - function hash_fold_char(_Fv_,_Fw_){return as_int(to_int,_Fv_,_Fw_)} - function _E__(param){return 0 === param?0:1} - function hash_fold_bool(_Ft_,_Fu_){return as_int(_E__,_Ft_,_Fu_)} + var _E3_=Hash[2],_E4_=Hash[3],_E5_=Hash[4],_E6_=Hash[5]; + function as_int(f,s,x){return caml_call2(_E3_,s,caml_call1(f,x))} + function _E7_(_Fx_){return _Fx_} + function hash_fold_int32(_Fv_,_Fw_){return as_int(_E7_,_Fv_,_Fw_)} + function hash_fold_char(_Ft_,_Fu_){return as_int(to_int,_Ft_,_Fu_)} + function _E8_(param){return 0 === param?0:1} + function hash_fold_bool(_Fr_,_Fs_){return as_int(_E8_,_Fr_,_Fs_)} function hash_fold_nativeint(s,x) - {return caml_call2(_E6_,s,caml_int64_of_int32(x))} + {return caml_call2(_E4_,s,caml_int64_of_int32(x))} function hash_fold_option(hash_fold_elem,s,param) {if(param) {var x=param[1]; - return caml_call2(hash_fold_elem,caml_call2(_E5_,s,1),x)} - return caml_call2(_E5_,s,0)} + return caml_call2(hash_fold_elem,caml_call2(_E3_,s,1),x)} + return caml_call2(_E3_,s,0)} function hash_fold_list(hash_fold_elem,s$1,list$0) {var - s$2=caml_call2(_E5_,s$1,caml_call1(length,list$0)), + s$2=caml_call2(_E3_,s$1,caml_call1(length,list$0)), s=s$2, list=list$0; for(;;) @@ -34620,14 +37147,14 @@ return s}} function hash_fold_lazy_t(hash_fold_elem,s,x) {var - _Fr_=caml_obj_tag(x), - _Fs_= - 250 === _Fr_?x[1]:246 === _Fr_?caml_call1(CamlinternalLazy[2],x):x; - return caml_call2(hash_fold_elem,s,_Fs_)} + _Fp_=caml_obj_tag(x), + _Fq_= + 250 === _Fp_?x[1]:246 === _Fp_?caml_call1(CamlinternalLazy[2],x):x; + return caml_call2(hash_fold_elem,s,_Fq_)} function hash_fold_ref_frozen(hash_fold_elem,s,x) {return caml_call2(hash_fold_elem,s,x[1])} function hash_fold_array_frozen(hash_fold_elem,s$1,array) - {var s$2=caml_call2(_E5_,s$1,array.length - 1),s=s$2,i=0; + {var s$2=caml_call2(_E3_,s$1,array.length - 1),s=s$2,i=0; for(;;) {if(caml_call2(symbol$19,i,array.length - 1))return s; var @@ -34638,57 +37165,57 @@ i=i$0; continue}} function hash_nativeint(x) - {var - _Fp_=caml_call1(Hash[6],0), - _Fq_=hash_fold_nativeint(caml_call2(Hash[7],0,_Fp_),x); - return caml_call1(Hash[8],_Fq_)} - function hash_int64(x) {var _Fn_=caml_call1(Hash[6],0), - _Fo_=caml_call2(_E6_,caml_call2(Hash[7],0,_Fn_),x); + _Fo_=hash_fold_nativeint(caml_call2(Hash[7],0,_Fn_),x); return caml_call1(Hash[8],_Fo_)} - function hash_int32(x) + function hash_int64(x) {var _Fl_=caml_call1(Hash[6],0), - _Fm_=hash_fold_int32(caml_call2(Hash[7],0,_Fl_),x); + _Fm_=caml_call2(_E4_,caml_call2(Hash[7],0,_Fl_),x); return caml_call1(Hash[8],_Fm_)} - function hash_char(x) + function hash_int32(x) {var _Fj_=caml_call1(Hash[6],0), - _Fk_=hash_fold_char(caml_call2(Hash[7],0,_Fj_),x); + _Fk_=hash_fold_int32(caml_call2(Hash[7],0,_Fj_),x); return caml_call1(Hash[8],_Fk_)} - function hash_int(x) + function hash_char(x) {var _Fh_=caml_call1(Hash[6],0), - _Fi_=caml_call2(_E5_,caml_call2(Hash[7],0,_Fh_),x); + _Fi_=hash_fold_char(caml_call2(Hash[7],0,_Fh_),x); return caml_call1(Hash[8],_Fi_)} - function hash_bool(x) + function hash_int(x) {var _Ff_=caml_call1(Hash[6],0), - _Fg_=hash_fold_bool(caml_call2(Hash[7],0,_Ff_),x); + _Fg_=caml_call2(_E3_,caml_call2(Hash[7],0,_Ff_),x); return caml_call1(Hash[8],_Fg_)} - function hash_string(x) + function hash_bool(x) {var _Fd_=caml_call1(Hash[6],0), - _Fe_=caml_call2(_E8_,caml_call2(Hash[7],0,_Fd_),x); + _Fe_=hash_fold_bool(caml_call2(Hash[7],0,_Fd_),x); return caml_call1(Hash[8],_Fe_)} - function hash_float(x) + function hash_string(x) {var _Fb_=caml_call1(Hash[6],0), - _Fc_=caml_call2(_E7_,caml_call2(Hash[7],0,_Fb_),x); + _Fc_=caml_call2(_E6_,caml_call2(Hash[7],0,_Fb_),x); return caml_call1(Hash[8],_Fc_)} - function hash_unit(x) - {var _E$_=caml_call1(Hash[6],0),_Fa_=caml_call2(Hash[7],0,_E$_); + function hash_float(x) + {var + _E$_=caml_call1(Hash[6],0), + _Fa_=caml_call2(_E5_,caml_call2(Hash[7],0,_E$_),x); return caml_call1(Hash[8],_Fa_)} + function hash_unit(x) + {var _E9_=caml_call1(Hash[6],0),_E__=caml_call2(Hash[7],0,_E9_); + return caml_call1(Hash[8],_E__)} return [0, hash_fold_nativeint, - _E6_, + _E4_, hash_fold_int32, hash_fold_char, - _E5_, + _E3_, hash_fold_bool, - _E8_, - _E7_, + _E6_, + _E5_, hash_fold_unit, hash_fold_option, hash_fold_list, @@ -34723,9 +37250,9 @@ var Builtin=Folding(Hash); function run(seed,folder,x) {var - _E3_=caml_call1(Hash[6],0), - _E4_=caml_call2(folder,caml_call2(Hash[7],seed,_E3_),x); - return caml_call1(Hash[8],_E4_)} + _E1_=caml_call1(Hash[6],0), + _E2_=caml_call2(folder,caml_call2(Hash[7],seed,_E1_),x); + return caml_call1(Hash[8],_E2_)} return [0, description, fold_int, @@ -34753,20 +37280,20 @@ function of_fold(hash_fold_t,t) {return runtime.Base_internalhash_get_hash_value (caml_call2(hash_fold_t,create$0(0,0),t))} - function _f_(_E2_){return runtime.Base_internalhash_get_hash_value(_E2_)} - function _g_(_E1_,_E0_) - {return runtime.Base_internalhash_fold_string(_E1_,_E0_)} - function _h_(_EZ_,_EY_) - {return runtime.Base_internalhash_fold_float(_EZ_,_EY_)} - function _i_(_EX_,_EW_) - {return runtime.Base_internalhash_fold_int64(_EX_,_EW_)} + function _f_(_E0_){return runtime.Base_internalhash_get_hash_value(_E0_)} + function _g_(_EZ_,_EY_) + {return runtime.Base_internalhash_fold_string(_EZ_,_EY_)} + function _h_(_EX_,_EW_) + {return runtime.Base_internalhash_fold_float(_EX_,_EW_)} + function _i_(_EV_,_EU_) + {return runtime.Base_internalhash_fold_int64(_EV_,_EU_)} var Folding$0= Folding ([0, description, - function(_EV_,_EU_) - {return runtime.Base_internalhash_fold_int(_EV_,_EU_)}, + function(_ET_,_ES_) + {return runtime.Base_internalhash_fold_int(_ET_,_ES_)}, _i_, _h_, _g_, @@ -34827,22 +37354,22 @@ hash_int, hash_bool, hash_string, - function(_ET_){return runtime.Base_hash_double(_ET_)}, + function(_ER_){return runtime.Base_hash_double(_ER_)}, hash_unit]; - function _k_(_ES_){return runtime.Base_internalhash_get_hash_value(_ES_)} - function _l_(_ER_,_EQ_) - {return runtime.Base_internalhash_fold_string(_ER_,_EQ_)} - function _m_(_EP_,_EO_) - {return runtime.Base_internalhash_fold_float(_EP_,_EO_)} - function _n_(_EN_,_EM_) - {return runtime.Base_internalhash_fold_int64(_EN_,_EM_)} + function _k_(_EQ_){return runtime.Base_internalhash_get_hash_value(_EQ_)} + function _l_(_EP_,_EO_) + {return runtime.Base_internalhash_fold_string(_EP_,_EO_)} + function _m_(_EN_,_EM_) + {return runtime.Base_internalhash_fold_float(_EN_,_EM_)} + function _n_(_EL_,_EK_) + {return runtime.Base_internalhash_fold_int64(_EL_,_EK_)} var Base_Hash= [0, F, description, - function(_EL_,_EK_) - {return runtime.Base_internalhash_fold_int(_EL_,_EK_)}, + function(_EJ_,_EI_) + {return runtime.Base_internalhash_fold_int(_EJ_,_EI_)}, _n_, _m_, _l_, @@ -34855,17 +37382,18 @@ _j_, run]; caml_register_global(955,Base_Hash,"Base__Hash"); - function compare_abstract(type_name,param,_EJ_) + function compare_abstract(type_name,param,_EH_) {return caml_call3(ksprintf,failwith$0,_o_,type_name)} - function equal_abstract(type_name,param,_EI_) + function equal_abstract(type_name,param,_EG_) {return caml_call3(ksprintf,failwith$0,_p_,type_name)} var compare_bool=caml_int_compare, compare_char=caml_int_compare, compare_float=caml_float_compare, compare_int=caml_int_compare, - compare_int32=caml_int_compare, - compare_int64=caml_int64_compare, + compare_int32=caml_int_compare; + function compare_int64(_EF_,_EE_){return caml_int64_compare(_EF_,_EE_)} + var compare_nativeint=caml_int_compare, compare_string=caml_string_compare, compare_unit=caml_int_compare; @@ -34901,44 +37429,44 @@ return b$0?-1:0}} function compare_option(compare_elt,a,b) {if(a) - {var _EH_=a[1]; - if(b){var b$0=b[1];return caml_call2(compare_elt,_EH_,b$0)} + {var _ED_=a[1]; + if(b){var b$0=b[1];return caml_call2(compare_elt,_ED_,b$0)} return 1} return b?-1:0} function compare_ref(compare_elt,a,b) {return caml_call2(compare_elt,a[1],b[1])} - function equal_bool(_EG_,_EF_){return _EG_ === _EF_?1:0} - function equal_char(_EE_,_ED_){return _EE_ === _ED_?1:0} - function equal_int(_EC_,_EB_){return _EC_ === _EB_?1:0} + function equal_bool(_EC_,_EB_){return _EC_ === _EB_?1:0} + function equal_char(_EA_,_Ez_){return _EA_ === _Ez_?1:0} + function equal_int(_Ey_,_Ex_){return _Ey_ === _Ex_?1:0} var equal_int32=caml_equal, equal_int64=caml_equal, equal_nativeint=caml_equal, equal_string=caml_string_equal; - function equal_unit(_EA_,_Ez_){return _EA_ === _Ez_?1:0} + function equal_unit(_Ew_,_Ev_){return _Ew_ === _Ev_?1:0} function equal_float(x,y){return caml_float_compare(x,y) === 0?1:0} function equal_array(equal_elt,a,b) - {var _Et_=a === b?1:0; - if(_Et_) - var _Eu_=_Et_; + {var _Ep_=a === b?1:0; + if(_Ep_) + var _Eq_=_Ep_; else {var len_a=a.length - 1, len_b=b.length - 1, - _Ev_=caml_call2(equal$0,len_a,len_b); - if(_Ev_) + _Er_=caml_call2(equal$0,len_a,len_b); + if(_Er_) {var i=0; for(;;) - {var _Ew_=caml_call2(symbol$19,i,len_a); - if(_Ew_) - var _Ex_=_Ew_; + {var _Es_=caml_call2(symbol$19,i,len_a); + if(_Es_) + var _Et_=_Es_; else - {var l=a[1 + i],r=b[1 + i],_Ey_=caml_call2(equal_elt,l,r); - if(_Ey_){var i$0=i + 1 | 0,i=i$0;continue} - var _Ex_=_Ey_} - return _Ex_}} - var _Eu_=_Ev_} - return _Eu_} + {var l=a[1 + i],r=b[1 + i],_Eu_=caml_call2(equal_elt,l,r); + if(_Eu_){var i$0=i + 1 | 0,i=i$0;continue} + var _Et_=_Eu_} + return _Et_}} + var _Eq_=_Er_} + return _Eq_} function equal_list(equal_elt,a,b) {var a$0=a,b$0=b; for(;;) @@ -34949,9 +37477,9 @@ y=b$0[1], xs=a$0[2], x=a$0[1], - _Es_=caml_call2(equal_elt,x,y); - if(_Es_){var a$0=xs,b$0=ys;continue} - return _Es_}} + _Eo_=caml_call2(equal_elt,x,y); + if(_Eo_){var a$0=xs,b$0=ys;continue} + return _Eo_}} else if(! b$0)return 1; return 0}} @@ -35016,17 +37544,17 @@ function compare$10(a_001,match) {if(a_001 === match)return 0; if(0 === a_001[0]) - {var _Eq_=a_001[1]; + {var _Em_=a_001[1]; if(0 === match[0]) - {var b_004=match[1];return caml_call2(_q_[8],_Eq_,b_004)} + {var b_004=match[1];return caml_call2(_q_[8],_Em_,b_004)} return -1} - var _Er_=a_001[1]; + var _En_=a_001[1]; if(0 === match[0])return 1; var b_006=match[1]; - return caml_call3(_q_[11],compare$10,_Er_,b_006)} + return caml_call3(_q_[11],compare$10,_En_,b_006)} var - hash_fold_t=function _Ep_(_En_,_Eo_){return _Ep_.fun(_En_,_Eo_)}, - hash=function _Em_(_El_){return _Em_.fun(_El_)}; + hash_fold_t=function _El_(_Ej_,_Ek_){return _El_.fun(_Ej_,_Ek_)}, + hash=function _Ei_(_Eh_){return _Ei_.fun(_Eh_)}; caml_update_dummy (hash_fold_t, function(hsv,arg) @@ -35277,7 +37805,7 @@ symbol$8, symbol$9, include$1, - Int32_replace_polymorphic_compare, + Int32_replace_polymorphic_comp, include$2, include$3, include$4, @@ -35429,62 +37957,59 @@ {function t_of_sexp(sexp) {var s=caml_call1(Sexpable[1],sexp); try - {var _Ek_=caml_call1(M[2],s);return _Ek_} + {var _Eg_=caml_call1(M[2],s);return _Eg_} catch(exn) {exn = caml_wrap_exception(exn); return caml_call2(of_sexp_error_exn,exn,sexp)}} function sexp_of_t(t) - {var _Ej_=caml_call1(M[1],t);return caml_call1(Sexpable[2],_Ej_)} + {var _Ef_=caml_call1(M[1],t);return caml_call1(Sexpable[2],_Ef_)} return [0,t_of_sexp,sexp_of_t]} function Of_sexpable1(Sexpable,M) {function t_of_sexp(a_of_sexp,sexp) {var s=caml_call2(Sexpable[1],a_of_sexp,sexp); try - {var _Ei_=caml_call1(M[2],s);return _Ei_} + {var _Ee_=caml_call1(M[2],s);return _Ee_} catch(exn) {exn = caml_wrap_exception(exn); return caml_call2(of_sexp_error_exn,exn,sexp)}} function sexp_of_t(sexp_of_a,t) - {var _Eh_=caml_call1(M[1],t); - return caml_call2(Sexpable[2],sexp_of_a,_Eh_)} + {var _Ed_=caml_call1(M[1],t); + return caml_call2(Sexpable[2],sexp_of_a,_Ed_)} return [0,t_of_sexp,sexp_of_t]} function Of_sexpable2(Sexpable,M) {function t_of_sexp(a_of_sexp,b_of_sexp,sexp) {var s=caml_call3(Sexpable[1],a_of_sexp,b_of_sexp,sexp); try - {var _Eg_=caml_call1(M[2],s);return _Eg_} + {var _Ec_=caml_call1(M[2],s);return _Ec_} catch(exn) {exn = caml_wrap_exception(exn); return caml_call2(of_sexp_error_exn,exn,sexp)}} function sexp_of_t(sexp_of_a,sexp_of_b,t) - {var _Ef_=caml_call1(M[1],t); - return caml_call3(Sexpable[2],sexp_of_a,sexp_of_b,_Ef_)} + {var _Eb_=caml_call1(M[1],t); + return caml_call3(Sexpable[2],sexp_of_a,sexp_of_b,_Eb_)} return [0,t_of_sexp,sexp_of_t]} function Of_sexpable3(Sexpable,M) {function t_of_sexp(a_of_sexp,b_of_sexp,c_of_sexp,sexp) {var s=caml_call4(Sexpable[1],a_of_sexp,b_of_sexp,c_of_sexp,sexp); try - {var _Ee_=caml_call1(M[2],s);return _Ee_} + {var _Ea_=caml_call1(M[2],s);return _Ea_} catch(exn) {exn = caml_wrap_exception(exn); return caml_call2(of_sexp_error_exn,exn,sexp)}} function sexp_of_t(sexp_of_a,sexp_of_b,sexp_of_c,t) - {var _Ed_=caml_call1(M[1],t); - return caml_call4(Sexpable[2],sexp_of_a,sexp_of_b,sexp_of_c,_Ed_)} + {var _D$_=caml_call1(M[1],t); + return caml_call4(Sexpable[2],sexp_of_a,sexp_of_b,sexp_of_c,_D$_)} return [0,t_of_sexp,sexp_of_t]} function Of_stringable(M) {function t_of_sexp(sexp) {if(0 === sexp[0]) {var s=sexp[1]; try - {var _Ec_=caml_call1(M[1],s);return _Ec_} + {var _D__=caml_call1(M[1],s);return _D__} catch(exn) {exn = caml_wrap_exception(exn); return caml_call2(of_sexp_error_exn,exn,sexp)}} - return caml_call2 - (of_sexp_error, - cst_Sexpable_Of_stringable_t_of_sexp_expected_an_atom_but_got_a_list, - sexp)} + return caml_call2(of_sexp_error,cst_Sexpable_Of_stringable_t_o,sexp)} function sexp_of_t(t){return [0,caml_call1(M[2],t)]} return [0,t_of_sexp,sexp_of_t]} var @@ -35511,16 +38036,16 @@ var r=[0,_t_]; function all(param){return r[1]} function register(p){r[1] = [0,p,r[1]];return 0} - function Register_pp(_D$_) - {var _Ea_=_D$_[1],_Eb_=_D$_[2]; - register(caml_call2(symbol$77,_D$_[2],cst_pp)); - return [0,_Ea_,_Eb_]} - function _u_(_D__){return [0,Register_pp(_D__)[1]]} + function Register_pp(_D7_) + {var _D8_=_D7_[1],_D9_=_D7_[2]; + register(caml_call2(symbol$77,_D7_[2],cst_pp)); + return [0,_D8_,_D9_]} + function _u_(_D6_){return [0,Register_pp(_D6_)[1]]} function _v_(M) {var module_name=M[1]; function pp(formatter,t) - {var _D9_=caml_call1(M[2],t); - return caml_call2(Stdlib_format[13],formatter,_D9_)} + {var _D5_=caml_call1(M[2],t); + return caml_call2(Stdlib_format[13],formatter,_D5_)} return [0,Register_pp([0,pp,module_name])[1]]} var Base_Pretty_printer=[0,all,_v_,_u_,register]; caml_register_global(969,Base_Pretty_printer,"Base__Pretty_printer"); @@ -35566,21 +38091,21 @@ catch(exn) {exn = caml_wrap_exception(exn); try - {caml_call1(finally$0,x);var _D8_=exn} + {caml_call1(finally$0,x);var _D4_=exn} catch(final_exn) {final_exn = caml_wrap_exception(final_exn); - var _D8_=[0,Finally,exn,final_exn]} - throw _D8_} + var _D4_=[0,Finally,exn,final_exn]} + throw _D4_} caml_call1(finally$0,x); return res} function protect(f,finally$0){return protectx(f,0,finally$0)} function does_raise(f) - {try {caml_call1(f,0);var _D6_=0;return _D6_}catch(_D7_){return 1}} + {try {caml_call1(f,0);var _D2_=0;return _D2_}catch(_D3_){return 1}} function pp$0(ppf,t) {var match=caml_call1(sexp_of_exn_opt,t); if(match){var sexp=match[1];return caml_call2(pp_hum,ppf,sexp)} - var _D5_=caml_call1(Stdlib_printexc[1],t); - return caml_call2(Stdlib_format[13],ppf,_D5_)} + var _D1_=caml_call1(Stdlib_printexc[1],t); + return caml_call2(Stdlib_format[13],ppf,_D1_)} var include$15=_u_([0,pp$0,module_name]),pp$1=include$15[1]; function print_with_backtrace(exc,raw_backtrace) {caml_call3(Stdlib_format[125],_G_,pp$1,exc); @@ -35589,29 +38114,29 @@ return caml_call1(Caml$0[51],Caml$0[28])} function handle_uncaught_aux(do_at_exit,exit,f) {try - {var _D1_=caml_call1(f,0);return _D1_} + {var _DX_=caml_call1(f,0);return _DX_} catch(exc) {exc = caml_wrap_exception(exc); var raw_backtrace=caml_call1(Stdlib_printexc[11],0); - if(do_at_exit)try {caml_call1(Caml$0[89],0)}catch(_D4_){} + if(do_at_exit)try {caml_call1(Caml$0[89],0)}catch(_D0_){} try {print_with_backtrace(exc,raw_backtrace)} - catch(_D2_){try {caml_call1(Stdlib_printf[3],_H_)}catch(_D3_){}} + catch(_DY_){try {caml_call1(Stdlib_printf[3],_H_)}catch(_DZ_){}} return caml_call1(exit,1)}} function handle_uncaught_and_exit(f){return handle_uncaught_aux(1,_w_,f)} function handle_uncaught(must_exit,f) - {var exit=must_exit?_w_:function(_D0_){return 0}; + {var exit=must_exit?_w_:function(_DW_){return 0}; return handle_uncaught_aux(must_exit,exit,f)} function reraise_uncaught(str,func) {try - {var _DZ_=caml_call1(func,0);return _DZ_} + {var _DV_=caml_call1(func,0);return _DV_} catch(exn){exn = caml_wrap_exception(exn);throw [0,Reraised,str,exn]}} function raise_without_backtrace(e) {runtime.Base_clear_caml_backtrace_pos(0);throw e} function initialize_module(param) {return caml_call1(Stdlib_printexc[15],print_with_backtrace)} - function clear_backtrace(_DY_) - {return runtime.Base_clear_caml_backtrace_pos(_DY_)} + function clear_backtrace(_DU_) + {return runtime.Base_clear_caml_backtrace_pos(_DU_)} var Private$0=[0,clear_backtrace], Base_Exn= @@ -35639,9 +38164,7 @@ {var Return=[248,cst_Return,caml_fresh_oo_id(0)],is_alive=[0,1]; function return$0(a) {if(1 - is_alive[1]) - caml_call1 - (failwith$0, - cst_use_of_return_from_a_with_return_that_already_returned); + caml_call1(failwith$0,cst_use_of_return_from_a_with_); return raise_without_backtrace([0,Return,a])} try {var a$0=caml_call1(f,return$0);is_alive[1] = 0;return a$0} @@ -35817,18 +38340,18 @@ Base_Monad_intf= [0,S_to_S2,S2_to_S3,S_to_S_indexed,S2_to_S,S3_to_S2,S_indexed_to_S2]; caml_register_global(976,Base_Monad_intf,"Base__Monad_intf"); - function Make_general(_DS_) - {var _DT_=_DS_[1],_DU_=_DS_[3]; + function Make_general(_DO_) + {var _DP_=_DO_[1],_DQ_=_DO_[3]; function map_via_bind(ma,f) - {function _DW_(a) - {var _DX_=caml_call1(f,a);return caml_call1(_DS_[3],_DX_)} - return caml_call2(_DS_[1],ma,_DW_)} - var _DV_=_DS_[2]; - if(typeof _DV_ === "number") + {function _DS_(a) + {var _DT_=caml_call1(f,a);return caml_call1(_DO_[3],_DT_)} + return caml_call2(_DO_[1],ma,_DS_)} + var _DR_=_DO_[2]; + if(typeof _DR_ === "number") var map=map_via_bind; else - var x=_DV_[2],map=x; - function symbol_bind(t,f){return caml_call2(_DT_,t,f)} + var x=_DR_[2],map=x; + function symbol_bind(t,f){return caml_call2(_DP_,t,f)} function symbol_map(t,f){return caml_call2(map,t,f)} var Monad_infix=[0,symbol_bind,symbol_map], @@ -35845,8 +38368,8 @@ (symbol_map$1,b,function(b){return [0,a,b]})})} var Open_on_rhs=[0], - Let_syntax=[0,_DU_,_DT_,map,both,Open_on_rhs], - Let_syntax$0=[0,_DU_,symbol_bind$1,symbol_map$1,Let_syntax]; + Let_syntax=[0,_DQ_,_DP_,map,both,Open_on_rhs], + Let_syntax$0=[0,_DQ_,symbol_bind$1,symbol_map$1,Let_syntax]; function join(t) {return caml_call2(symbol_bind$0,t,function(t){return t})} function ignore_m(t){return caml_call2(map,t,function(param){return 0})} @@ -35855,17 +38378,17 @@ {var ts=param[2],t=param[1]; return caml_call2 (symbol_bind$0,t,function(v){return loop([0,v,vs],ts)})} - return caml_call1(_DU_,rev(vs))} + return caml_call1(_DQ_,rev(vs))} function all(ts){return loop(0,ts)} function all_unit(param) {if(param) {var ts=param[2],t=param[1]; return caml_call2 (symbol_bind$0,t,function(param){return all_unit(ts)})} - return caml_call1(_DU_,0)} + return caml_call1(_DQ_,0)} return [0, - _DT_, - _DU_, + _DP_, + _DQ_, map_via_bind, map, Monad_infix, @@ -35881,73 +38404,73 @@ bind=M[1], map=M[2], return$0=M[3], - _DR_=Make_general([0,bind,map,return$0]); + _DN_=Make_general([0,bind,map,return$0]); return [0, - _DR_[6], - _DR_[7], - _DR_[8], - _DR_[5], - _DR_[1], - _DR_[2], - _DR_[4], - _DR_[9], - _DR_[10], - _DR_[11], - _DR_[12]]} + _DN_[6], + _DN_[7], + _DN_[8], + _DN_[5], + _DN_[1], + _DN_[2], + _DN_[4], + _DN_[9], + _DN_[10], + _DN_[11], + _DN_[12]]} function Make3(M) {var bind=M[1], map=M[2], return$0=M[3], - _DQ_=Make_general([0,bind,map,return$0]); + _DM_=Make_general([0,bind,map,return$0]); return [0, - _DQ_[6], - _DQ_[7], - _DQ_[8], - _DQ_[5], - _DQ_[1], - _DQ_[2], - _DQ_[4], - _DQ_[9], - _DQ_[10], - _DQ_[11], - _DQ_[12]]} + _DM_[6], + _DM_[7], + _DM_[8], + _DM_[5], + _DM_[1], + _DM_[2], + _DM_[4], + _DM_[9], + _DM_[10], + _DM_[11], + _DM_[12]]} function Make2(M) {var bind=M[1], map=M[2], return$0=M[3], - _DP_=Make_general([0,bind,map,return$0]); + _DL_=Make_general([0,bind,map,return$0]); return [0, - _DP_[6], - _DP_[7], - _DP_[8], - _DP_[5], - _DP_[1], - _DP_[2], - _DP_[4], - _DP_[9], - _DP_[10], - _DP_[11], - _DP_[12]]} + _DL_[6], + _DL_[7], + _DL_[8], + _DL_[5], + _DL_[1], + _DL_[2], + _DL_[4], + _DL_[9], + _DL_[10], + _DL_[11], + _DL_[12]]} function Make(M) {var bind=M[1], return$0=M[2], map=M[3], - _DO_=Make_general([0,bind,map,return$0]); + _DK_=Make_general([0,bind,map,return$0]); return [0, - _DO_[6], - _DO_[7], - _DO_[5], - _DO_[1], - _DO_[2], - _DO_[4], - _DO_[9], - _DO_[10], - _DO_[11], - _DO_[12], - _DO_[8]]} + _DK_[6], + _DK_[7], + _DK_[5], + _DK_[1], + _DK_[2], + _DK_[4], + _DK_[9], + _DK_[10], + _DK_[11], + _DK_[12], + _DK_[8]]} function bind(a,f){return caml_call1(f,a)} function return$0(a){return a} var @@ -35991,8 +38514,8 @@ {var y=match[2],snd$0=[0,y,snd],t$0=t$1,snd=snd$0;continue} var y$0=match[2],fst$0=[0,y$0,fst],t$0=t$1,fst=fst$0; continue} - var _DN_=rev(snd); - return [0,rev(fst),_DN_]}} + var _DJ_=rev(snd); + return [0,rev(fst),_DJ_]}} var include$17= [0, @@ -36022,57 +38545,44 @@ caml_register_global(979,include$17,"Base__List1"); function t_of_sexp$12(of_a,of_b,sexp) {if(0 === sexp[0]) - {var _DJ_=sexp[1]; - if(caml_string_notequal(_DJ_,cst_Error)) - {if(caml_string_notequal(_DJ_,cst_Ok)) - if(caml_string_notequal(_DJ_,cst_error)) - if(caml_string_notequal(_DJ_,cst_ok)) - var switch$0=1,switch$1=0; - else - var switch$1=1; + {var _DF_=sexp[1],switch$0=0; + if(caml_string_notequal(_DF_,cst_Error)) + {var switch$1=0; + if(caml_string_notequal(_DF_,cst_Ok)) + if(caml_string_notequal(_DF_,cst_error)) + {if(caml_string_notequal(_DF_,cst_ok)){switch$0 = 1;switch$1 = 1}} else - var switch$0=0,switch$1=0; - else - var switch$1=1; - if(switch$1) + switch$1 = 1; + if(! switch$1) return caml_call2(Sexplib0_Sexp_conv_error[5],tp_loc,sexp)} - else - var switch$0=0; if(! switch$0) return caml_call2(Sexplib0_Sexp_conv_error[5],tp_loc,sexp)} else - {var _DK_=sexp[1]; - if(! _DK_)return caml_call2(Sexplib0_Sexp_conv_error[7],tp_loc,sexp); - var _DL_=_DK_[1]; - if(0 !== _DL_[0]) + {var _DG_=sexp[1]; + if(! _DG_)return caml_call2(Sexplib0_Sexp_conv_error[7],tp_loc,sexp); + var _DH_=_DG_[1]; + if(0 !== _DH_[0]) return caml_call2(Sexplib0_Sexp_conv_error[6],tp_loc,sexp); - var _DM_=_DL_[1]; - if(caml_string_notequal(_DM_,cst_Error$0)) - {if(caml_string_notequal(_DM_,cst_Ok$0)) - if(caml_string_notequal(_DM_,cst_error$0)) - if(caml_string_notequal(_DM_,cst_ok$0)) - var switch$2=1,switch$3=0; - else - var switch$3=1; + var _DI_=_DH_[1],switch$2=0; + if(caml_string_notequal(_DI_,cst_Error$0)) + {var switch$3=0; + if(caml_string_notequal(_DI_,cst_Ok$0)) + if(caml_string_notequal(_DI_,cst_error$0)) + {if(caml_string_notequal(_DI_,cst_ok$0)) + {switch$2 = 1;switch$3 = 1}} else - var switch$2=0,switch$3=0; - else - var switch$3=1; - if(switch$3) - {var sexp_args=_DK_[2]; - if(sexp_args) - if(! sexp_args[2]) - {var v0=sexp_args[1],v0$0=caml_call1(of_a,v0);return [0,v0$0]} - return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc,_DM_,sexp)}} - else - var switch$2=0; + switch$3 = 1; + if(! switch$3) + {var sexp_args=_DG_[2]; + if(sexp_args && ! sexp_args[2]) + {var v0=sexp_args[1],v0$0=caml_call1(of_a,v0);return [0,v0$0]} + return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc,_DI_,sexp)}} if(! switch$2) - {var sexp_args$0=_DK_[2]; - if(sexp_args$0) - if(! sexp_args$0[2]) - {var v0$1=sexp_args$0[1],v0$2=caml_call1(of_b,v0$1); - return [1,v0$2]} - return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc,_DM_,sexp)}} + {var sexp_args$0=_DG_[2]; + if(sexp_args$0 && ! sexp_args$0[2]) + {var v0$1=sexp_args$0[1],v0$2=caml_call1(of_b,v0$1); + return [1,v0$2]} + return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc,_DI_,sexp)}} return caml_call2(Sexplib0_Sexp_conv_error[8],tp_loc,sexp)} function sexp_of_t$13(of_a,of_b,param) {if(0 === param[0]) @@ -36083,25 +38593,25 @@ function compare$19(cmp_a,cmp_b,a_001,match) {if(a_001 === match)return 0; if(0 === a_001[0]) - {var _DH_=a_001[1]; + {var _DD_=a_001[1]; if(0 === match[0]) - {var b_004=match[1];return caml_call2(cmp_a,_DH_,b_004)} + {var b_004=match[1];return caml_call2(cmp_a,_DD_,b_004)} return -1} - var _DI_=a_001[1]; + var _DE_=a_001[1]; if(0 === match[0])return 1; var b_006=match[1]; - return caml_call2(cmp_b,_DI_,b_006)} + return caml_call2(cmp_b,_DE_,b_006)} function equal$13(cmp_a,cmp_b,a_007,match) {if(a_007 === match)return 1; if(0 === a_007[0]) - {var _DF_=a_007[1]; + {var _DB_=a_007[1]; if(0 === match[0]) - {var b_010=match[1];return caml_call2(cmp_a,_DF_,b_010)} + {var b_010=match[1];return caml_call2(cmp_a,_DB_,b_010)} return 0} - var _DG_=a_007[1]; + var _DC_=a_007[1]; if(0 === match[0])return 0; var b_012=match[1]; - return caml_call2(cmp_b,_DG_,b_012)} + return caml_call2(cmp_b,_DC_,b_012)} function hash_fold_t$9(hash_fold_a,hash_fold_b,hsv,arg) {if(0 === arg[0]) {var a0=arg[1],hsv$0=runtime.Base_internalhash_fold_int(hsv,0); @@ -36153,7 +38663,7 @@ function ok_if_true(bool,error){return bool?_K_:[1,error]} function try_with(f) {try - {var _DE_=[0,caml_call1(f,0)];return _DE_} + {var _DA_=[0,caml_call1(f,0)];return _DA_} catch(exn){exn = caml_wrap_exception(exn);return [1,exn]}} function ok_exn(param) {if(0 === param[0]){var x=param[1];return x}var exn=param[1];throw exn} @@ -36163,22 +38673,22 @@ return caml_call1(failwith$0,str)} function combine(t1,match,ok,err) {if(0 === t1[0]) - {var _DC_=t1[1]; + {var _Dy_=t1[1]; if(0 === match[0]) - {var ok2=match[1];return [0,caml_call2(ok,_DC_,ok2)]} + {var ok2=match[1];return [0,caml_call2(ok,_Dy_,ok2)]} var e=match[1]} else - {var _DD_=t1[1]; + {var _Dz_=t1[1]; if(0 !== match[0]) - {var err2=match[1];return [1,caml_call2(err,_DD_,err2)]} - var e=_DD_} + {var err2=match[1];return [1,caml_call2(err,_Dz_,err2)]} + var e=_Dz_} return [1,e]} function combine_errors(l) {var match=partition_map(l,ok_fst),errs=match[2],ok=match[1]; return errs?[1,errs]:[0,ok]} function combine_errors_unit(l) - {function _DB_(param){return 0} - return caml_call2(map$3,combine_errors(l),_DB_)} + {function _Dx_(param){return 0} + return caml_call2(map$3,combine_errors(l),_Dx_)} var Base_Result= [0, @@ -36234,9 +38744,9 @@ {return caml_call3 (fold,t,0,function(n,a){return caml_call1(f,a)?n + 1 | 0:n})} function sum(fold,M,t,f) - {function _Dz_(n,a) - {var _DA_=caml_call1(f,a);return caml_call2(M[2],n,_DA_)} - return caml_call3(fold,t,M[1],_Dz_)} + {function _Dv_(n,a) + {var _Dw_=caml_call1(f,a);return caml_call2(M[2],n,_Dw_)} + return caml_call3(fold,t,M[1],_Dv_)} function fold_result(fold,init,f,t) {return with_return (function(param) @@ -36301,7 +38811,7 @@ (iter, c, function(x) - {var _Dy_=caml_call1(f,x);return _Dy_?caml_call1(r,1):_Dy_}); + {var _Du_=caml_call1(f,x);return _Du_?caml_call1(r,1):_Du_}); return 0})} function for_all$0(iter,c,f) {return with_return @@ -36310,8 +38820,8 @@ (iter, c, function(x) - {var _Dx_=1 - caml_call1(f,x); - return _Dx_?caml_call1(r,0):_Dx_}); + {var _Dt_=1 - caml_call1(f,x); + return _Dt_?caml_call1(r,0):_Dt_}); return 1})} function find_map(iter,t,f) {return with_return @@ -36329,8 +38839,8 @@ (iter, c, function(x) - {var _Dw_=caml_call1(f,x); - return _Dw_?caml_call1(r,[0,x]):_Dw_}); + {var _Ds_=caml_call1(f,x); + return _Ds_?caml_call1(r,[0,x]):_Ds_}); return 0})} function to_list$0(fold,c) {return rev(caml_call3(fold,c,0,function(acc,x){return [0,x,acc]}))} @@ -36342,40 +38852,40 @@ function(x) {if(caml_call2(symbol$81,i[1],0)) array[1] = caml_make_vect(caml_call1(length,c),x); - var _Dv_=i[1]; - caml_check_bound(array[1],_Dv_)[1 + _Dv_] = x; + var _Dr_=i[1]; + caml_check_bound(array[1],_Dr_)[1 + _Dr_] = x; return incr(i)}); return array[1]} function Make_gen(T) - {var _Dq_=T[1],_Dr_=T[2]; - if(typeof _Dr_ === "number") - var _Ds_=function(t,f){return iter$2(_Dq_,t,f)}; + {var _Dm_=T[1],_Dn_=T[2]; + if(typeof _Dn_ === "number") + var _Do_=function(t,f){return iter$2(_Dm_,t,f)}; else - var iter=_Dr_[2],_Ds_=iter; - var _Dt_=T[3]; - if(typeof _Dt_ === "number") - var length=function(t){return length$0(_Dq_,t)}; + var iter=_Dn_[2],_Do_=iter; + var _Dp_=T[3]; + if(typeof _Dp_ === "number") + var length=function(t){return length$0(_Dm_,t)}; else - var length$1=_Dt_[2],length=length$1; - function is_empty(t){return is_empty$0(_Ds_,t)} - function sum$0(m,t){return function(_Du_){return sum(_Dq_,m,t,_Du_)}} - function count$0(t,f){return count(_Dq_,t,f)} - function exists(t,f){return exists$0(_Ds_,t,f)} - function for_all(t,f){return for_all$0(_Ds_,t,f)} - function find_map$0(t,f){return find_map(_Ds_,t,f)} - function find$0(t,f){return find(_Ds_,t,f)} - function to_list(t){return to_list$0(_Dq_,t)} - function to_array$0(t){return to_array(length,_Ds_,t)} - function min_elt$0(t,compare){return min_elt(_Dq_,t,compare)} - function max_elt$0(t,compare){return max_elt(_Dq_,t,compare)} - function fold_result$0(t,init,f){return fold_result(_Dq_,init,f,t)} + var length$1=_Dp_[2],length=length$1; + function is_empty(t){return is_empty$0(_Do_,t)} + function sum$0(m,t){return function(_Dq_){return sum(_Dm_,m,t,_Dq_)}} + function count$0(t,f){return count(_Dm_,t,f)} + function exists(t,f){return exists$0(_Do_,t,f)} + function for_all(t,f){return for_all$0(_Do_,t,f)} + function find_map$0(t,f){return find_map(_Do_,t,f)} + function find$0(t,f){return find(_Do_,t,f)} + function to_list(t){return to_list$0(_Dm_,t)} + function to_array$0(t){return to_array(length,_Do_,t)} + function min_elt$0(t,compare){return min_elt(_Dm_,t,compare)} + function max_elt$0(t,compare){return max_elt(_Dm_,t,compare)} + function fold_result$0(t,init,f){return fold_result(_Dm_,init,f,t)} function fold_until$0(t,init,f,finish) - {return fold_until(_Dq_,init,f,finish,t)} + {return fold_until(_Dm_,init,f,finish,t)} return [0, length, is_empty, - _Ds_, - _Dq_, + _Do_, + _Dm_, fold_result$0, fold_until$0, exists, @@ -36499,40 +39009,40 @@ is_val=Stdlib_lazy[5]; function _N_(t,f) {return [246, - function(_Dn_) + function(_Dj_) {var - _Do_=caml_obj_tag(t), - _Dp_= - 250 === _Do_ + _Dk_=caml_obj_tag(t), + _Dl_= + 250 === _Dk_ ?t[1] - :246 === _Do_?caml_call1(CamlinternalLazy[2],t):t; - return caml_call1(f,_Dp_)}]} + :246 === _Dk_?caml_call1(CamlinternalLazy[2],t):t; + return caml_call1(f,_Dl_)}]} function compare$20(compare_a,t1,t2) {if(t1 === t2)return 0; var - _Dj_=caml_obj_tag(t2), - _Dk_= - 250 === _Dj_?t2[1]:246 === _Dj_?caml_call1(CamlinternalLazy[2],t2):t2, - _Dl_=caml_obj_tag(t1), - _Dm_= - 250 === _Dl_?t1[1]:246 === _Dl_?caml_call1(CamlinternalLazy[2],t1):t1; - return caml_call2(compare_a,_Dm_,_Dk_)} + _Df_=caml_obj_tag(t2), + _Dg_= + 250 === _Df_?t2[1]:246 === _Df_?caml_call1(CamlinternalLazy[2],t2):t2, + _Dh_=caml_obj_tag(t1), + _Di_= + 250 === _Dh_?t1[1]:246 === _Dh_?caml_call1(CamlinternalLazy[2],t1):t1; + return caml_call2(compare_a,_Di_,_Dg_)} var hash_fold_t$10=_j_[12]; function return$4(x){return caml_call1(from_val,x)} function bind$3(t,f) {return [246, - function(_De_) + function(_Da_) {var - _Df_=caml_obj_tag(t), - _Dg_= - 250 === _Df_ + _Db_=caml_obj_tag(t), + _Dc_= + 250 === _Db_ ?t[1] - :246 === _Df_?caml_call1(CamlinternalLazy[2],t):t, - _Dh_=caml_call1(f,_Dg_), - _Di_=caml_obj_tag(_Dh_); - return 250 === _Di_ - ?_Dh_[1] - :246 === _Di_?caml_call1(CamlinternalLazy[2],_Dh_):_Dh_}]} + :246 === _Db_?caml_call1(CamlinternalLazy[2],t):t, + _Dd_=caml_call1(f,_Dc_), + _De_=caml_obj_tag(_Dd_); + return 250 === _De_ + ?_Dd_[1] + :246 === _De_?caml_call1(CamlinternalLazy[2],_Dd_):_Dd_}]} var map$4=[0,-198771759,_N_], include$20=Make([0,bind$3,return$4,map$4]), @@ -36550,10 +39060,10 @@ function sexp_of_t$14(sexp_of_a,t) {if(caml_call1(is_val,t)) {var - _Dc_=caml_obj_tag(t), - _Dd_= - 250 === _Dc_?t[1]:246 === _Dc_?caml_call1(CamlinternalLazy[2],t):t; - return caml_call1(sexp_of_a,_Dd_)} + _C__=caml_obj_tag(t), + _C$_= + 250 === _C__?t[1]:246 === _C__?caml_call1(CamlinternalLazy[2],t):t; + return caml_call1(sexp_of_a,_C$_)} return caml_call1(sexp_of_t$2,cst_unforced_lazy)} var T_unforcing=[0,sexp_of_t$14], @@ -36583,48 +39093,46 @@ caml_register_global(986,Base_Lazy,"Base__Lazy"); function forbid_nondeterminism_in_tests(allow_in_tests) {if(am_testing) - {if(allow_in_tests)if(0 !== allow_in_tests[1])return 0; - return caml_call1 - (failwith$0, - cst_initializing_Random_with_a_nondeterministic_seed_is_forbidden_in_inline_tests)} + {if(allow_in_tests && 0 !== allow_in_tests[1])return 0; + return caml_call1(failwith$0,cst_initializing_Random_with_a)} return am_testing} function bits(t) - {var - _Da_=caml_obj_tag(t), - _Db_=250 === _Da_?t[1]:246 === _Da_?caml_call1(CamlinternalLazy[2],t):t; - return caml_call1(Stdlib_random[11][4],_Db_)} - function bool(t) - {var - _C__=caml_obj_tag(t), - _C$_=250 === _C__?t[1]:246 === _C__?caml_call1(CamlinternalLazy[2],t):t; - return caml_call1(Stdlib_random[11][10],_C$_)} - function int$0(t,x) {var _C8_=caml_obj_tag(t), _C9_=250 === _C8_?t[1]:246 === _C8_?caml_call1(CamlinternalLazy[2],t):t; - return caml_call2(Stdlib_random[11][5],_C9_,x)} - function int32(t,x) + return caml_call1(Stdlib_random[11][4],_C9_)} + function bool(t) {var _C6_=caml_obj_tag(t), _C7_=250 === _C6_?t[1]:246 === _C6_?caml_call1(CamlinternalLazy[2],t):t; - return caml_call2(Stdlib_random[11][6],_C7_,x)} - function int64(t,x) + return caml_call1(Stdlib_random[11][10],_C7_)} + function int$0(t,x) {var _C4_=caml_obj_tag(t), _C5_=250 === _C4_?t[1]:246 === _C4_?caml_call1(CamlinternalLazy[2],t):t; - return caml_call2(Stdlib_random[11][8],_C5_,x)} - function nativeint(t,x) + return caml_call2(Stdlib_random[11][5],_C5_,x)} + function int32(t,x) {var _C2_=caml_obj_tag(t), _C3_=250 === _C2_?t[1]:246 === _C2_?caml_call1(CamlinternalLazy[2],t):t; - return caml_call2(Stdlib_random[11][7],_C3_,x)} + return caml_call2(Stdlib_random[11][6],_C3_,x)} + function int64(t,x) + {var + _C0_=caml_obj_tag(t), + _C1_=250 === _C0_?t[1]:246 === _C0_?caml_call1(CamlinternalLazy[2],t):t; + return caml_call2(Stdlib_random[11][8],_C1_,x)} + function nativeint(t,x) + {var + _CY_=caml_obj_tag(t), + _CZ_=250 === _CY_?t[1]:246 === _CY_?caml_call1(CamlinternalLazy[2],t):t; + return caml_call2(Stdlib_random[11][7],_CZ_,x)} function make(seed) {return caml_call1(from_val,caml_call1(Stdlib_random[11][1],seed))} function copy$0(t) {var - _C0_=caml_obj_tag(t), - _C1_=250 === _C0_?t[1]:246 === _C0_?caml_call1(CamlinternalLazy[2],t):t; - return caml_call1(from_val,caml_call1(Stdlib_random[11][3],_C1_))} + _CW_=caml_obj_tag(t), + _CX_=250 === _CW_?t[1]:246 === _CW_?caml_call1(CamlinternalLazy[2],t):t; + return caml_call1(from_val,caml_call1(Stdlib_random[11][3],_CX_))} function char$0(t){return int$0(t,256)} function ascii(t){return int$0(t,128)} function make_self_init(allow_in_tests,param) @@ -36632,14 +39140,14 @@ return caml_call1(from_val,caml_call1(Stdlib_random[11][2],0))} function assign(t1,t2) {var - _CW_=caml_obj_tag(t1), - _CX_= - 250 === _CW_?t1[1]:246 === _CW_?caml_call1(CamlinternalLazy[2],t1):t1, - _CY_=caml_obj_tag(t2), - _CZ_= - 250 === _CY_?t2[1]:246 === _CY_?caml_call1(CamlinternalLazy[2],t2):t2; - caml_call5(blit,_CZ_[1],0,_CX_[1],0,_CX_[1].length - 1); - _CX_[2] = _CZ_[2]; + _CS_=caml_obj_tag(t1), + _CT_= + 250 === _CS_?t1[1]:246 === _CS_?caml_call1(CamlinternalLazy[2],t1):t1, + _CU_=caml_obj_tag(t2), + _CV_= + 250 === _CU_?t2[1]:246 === _CU_?caml_call1(CamlinternalLazy[2],t2):t2; + caml_call5(blit,_CV_[1],0,_CT_[1],0,_CT_[1].length - 1); + _CT_[2] = _CV_[2]; return 0} if(am_testing) {var t=caml_call1(Stdlib_random[12],0); @@ -36649,11 +39157,11 @@ var _O_= [246, - function(_CT_) - {var _CU_=make_self_init(0,0),_CV_=caml_obj_tag(_CU_); - return 250 === _CV_ - ?_CU_[1] - :246 === _CV_?caml_call1(CamlinternalLazy[2],_CU_):_CU_}]; + function(_CP_) + {var _CQ_=make_self_init(0,0),_CR_=caml_obj_tag(_CQ_); + return 250 === _CR_ + ?_CQ_[1] + :246 === _CR_?caml_call1(CamlinternalLazy[2],_CQ_):_CQ_}]; function int_on_64bits(t,bound) {return caml_call2(symbol$79,bound,1073741823) ?int$0(t,bound) @@ -36666,12 +39174,12 @@ function bits$0(state){return caml_int64_of_int32(bits(state))} function full_range_int64(state) {var - _CR_=caml_int64_shift_left(bits$0(state),60), - _CS_=caml_int64_xor(caml_int64_shift_left(bits$0(state),30),_CR_); - return caml_int64_xor(bits$0(state),_CS_)} + _CN_=caml_int64_shift_left(bits$0(state),60), + _CO_=caml_int64_xor(caml_int64_shift_left(bits$0(state),30),_CN_); + return caml_int64_xor(bits$0(state),_CO_)} function bits$1(state){return bits(state)} function full_range_int32(state) - {var _CQ_=bits$1(state) << 30;return bits$1(state) ^ _CQ_} + {var _CM_=bits$1(state) << 30;return bits$1(state) ^ _CM_} function full_range_int_on_64bits(state) {return caml_int64_to_int32(full_range_int64(state))} function full_range_int_on_32bits(state){return full_range_int32(state)} @@ -36690,9 +39198,9 @@ function raise_crossed_bounds (name,lower_bound,upper_bound,string_of_bound) {var - _CO_=caml_call1(string_of_bound,upper_bound), - _CP_=caml_call1(string_of_bound,lower_bound); - return caml_call4(failwithf(_P_),name,_CP_,_CO_,0)} + _CK_=caml_call1(string_of_bound,upper_bound), + _CL_=caml_call1(string_of_bound,lower_bound); + return caml_call4(failwithf(_P_),name,_CL_,_CK_,0)} function int_incl(state,lo,hi) {if(caml_call2(symbol$82,lo,hi)) raise_crossed_bounds(cst_int,lo,hi,to_string); @@ -36703,52 +39211,59 @@ return lo + int$1(state,diff + 1 | 0) | 0; for(;;) {var int$0=full_range_int_on_32bits$0(state); - if(caml_call2(symbol$83,int$0,lo)) - if(caml_call2(symbol$79,int$0,hi))return int$0; + if(caml_call2(symbol$83,int$0,lo) && caml_call2(symbol$79,int$0,hi)) + return int$0; continue}} function int32_incl(state,lo,hi) - {if(caml_call2(Int32_replace_polymorphic_compare[5],lo,hi)) + {if(caml_call2(Int32_replace_polymorphic_comp[5],lo,hi)) raise_crossed_bounds(cst_int32,lo,hi,Stdlib_int32[14]); var diff=hi - lo | 0; - if - (caml_call2(Int32_replace_polymorphic_compare[4],diff,Stdlib_int32[9])) - {var _CN_=Stdlib_int32[9]; - return lo + (full_range_int32(state) & _CN_) | 0} - if(caml_call2(Int32_replace_polymorphic_compare[6],diff,0)) + if(caml_call2(Int32_replace_polymorphic_comp[4],diff,Stdlib_int32[9])) + {var _CJ_=Stdlib_int32[9]; + return lo + (full_range_int32(state) & _CJ_) | 0} + if(caml_call2(Int32_replace_polymorphic_comp[6],diff,0)) return lo + int32(state,caml_call1(Stdlib_int32[6],diff)) | 0; for(;;) {var int$0=full_range_int32(state); - if(caml_call2(Int32_replace_polymorphic_compare[6],int$0,lo)) - if(caml_call2(Int32_replace_polymorphic_compare[2],int$0,hi)) - return int$0; + if + (caml_call2(Int32_replace_polymorphic_comp[6],int$0,lo) + && + caml_call2(Int32_replace_polymorphic_comp[2],int$0,hi)) + return int$0; continue}} function nativeint_incl(state,lo,hi) {if(caml_call2(include$3[5],lo,hi)) raise_crossed_bounds(cst_nativeint,lo,hi,Stdlib_nativeint[15]); var diff=hi - lo | 0; if(caml_call2(include$3[4],diff,Stdlib_nativeint[10])) - {var _CM_=Stdlib_nativeint[10]; - return lo + (full_range_nativeint(state) & _CM_) | 0} + {var _CI_=Stdlib_nativeint[10]; + return lo + (full_range_nativeint(state) & _CI_) | 0} if(caml_call2(include$3[6],diff,0)) return lo + nativeint(state,caml_call1(Stdlib_nativeint[6],diff)) | 0; for(;;) {var int$0=full_range_nativeint(state); - if(caml_call2(include$3[6],int$0,lo)) - if(caml_call2(include$3[2],int$0,hi))return int$0; + if + (caml_call2(include$3[6],int$0,lo) + && + caml_call2(include$3[2],int$0,hi)) + return int$0; continue}} function int64_incl(state,lo,hi) {if(caml_call2(include$2[5],lo,hi)) raise_crossed_bounds(cst_int64,lo,hi,Stdlib_int64[14]); var diff=caml_int64_sub(hi,lo); if(caml_call2(include$2[4],diff,Stdlib_int64[9])) - {var _CL_=Stdlib_int64[9]; - return caml_int64_add(lo,caml_int64_and(full_range_int64(state),_CL_))} + {var _CH_=Stdlib_int64[9]; + return caml_int64_add(lo,caml_int64_and(full_range_int64(state),_CH_))} if(caml_call2(include$2[6],diff,_Q_)) return caml_int64_add(lo,int64(state,caml_call1(Stdlib_int64[6],diff))); for(;;) {var int$0=full_range_int64(state); - if(caml_call2(include$2[6],int$0,lo)) - if(caml_call2(include$2[2],int$0,hi))return int$0; + if + (caml_call2(include$2[6],int$0,lo) + && + caml_call2(include$2[2],int$0,hi)) + return int$0; continue}} function float$0(state,hi) {for(;;) @@ -36827,13 +39342,13 @@ caml_register_global(991,Base_Random,"Base__Random"); function permute(opt,t) {if(opt)var sth=opt[1],random_state=sth;else var random_state=_R_[1]; - var _CJ_=t.length - 1; - if(! (_CJ_ < 2)) - {var i=_CJ_; + var _CF_=t.length - 1; + if(! (_CF_ < 2)) + {var i=_CF_; for(;;) {swap(t,i - 1 | 0,caml_call2(_R_[6],random_state,i)); - var _CK_=i - 1 | 0; - if(2 !== i){var i=_CK_;continue} + var _CG_=i - 1 | 0; + if(2 !== i){var i=_CG_;continue} break}} return 0} var @@ -36870,7 +39385,7 @@ function forever(f) {function forever(param){for(;;){caml_call1(f,0);continue}} try - {var _CI_=forever(0);return _CI_} + {var _CE_=forever(0);return _CE_} catch(e){e = caml_wrap_exception(e);return e}} function compose(f,g,x){return caml_call1(f,caml_call1(g,x))} function flip(f,x,y){return caml_call2(f,y,x)} @@ -36893,60 +39408,48 @@ return runtime.Base_internalhash_get_hash_value(hash_fold_t$11(hsv,x))} function t_of_sexp$13(sexp) {if(0 === sexp[0]) - {var _CE_=sexp[1]; - if(caml_string_notequal(_CE_,cst_Equal)) - {if(caml_string_notequal(_CE_,cst_Greater)) - {if(caml_string_notequal(_CE_,cst_Less)) - if(caml_string_notequal(_CE_,cst_equal)) - if(caml_string_notequal(_CE_,cst_greater)) - if(caml_string_notequal(_CE_,cst_less)) - var switch$0=1,switch$1=0,switch$2=0; - else - var switch$2=1; + {var _CA_=sexp[1],switch$0=0; + if(caml_string_notequal(_CA_,cst_Equal)) + {var switch$1=0; + if(caml_string_notequal(_CA_,cst_Greater)) + {var switch$2=0; + if(caml_string_notequal(_CA_,cst_Less)) + if(caml_string_notequal(_CA_,cst_equal)) + if(caml_string_notequal(_CA_,cst_greater)) + {if(caml_string_notequal(_CA_,cst_less)) + {switch$0 = 1;switch$1 = 1;switch$2 = 1}} else - var switch$1=1,switch$2=0; + switch$2 = 1; else - var switch$0=0,switch$1=0,switch$2=0; - else - var switch$2=1; - if(switch$2)return 0} - else - var switch$1=1; - if(switch$1)return 2} - else - var switch$0=0; + {switch$1 = 1;switch$2 = 1} + if(! switch$2)return 0} + if(! switch$1)return 2} if(! switch$0)return 1} else - {var _CF_=sexp[1]; - if(! _CF_) + {var _CB_=sexp[1]; + if(! _CB_) return caml_call2(Sexplib0_Sexp_conv_error[7],tp_loc$0,sexp); - var _CG_=_CF_[1]; - if(0 !== _CG_[0]) + var _CC_=_CB_[1]; + if(0 !== _CC_[0]) return caml_call2(Sexplib0_Sexp_conv_error[6],tp_loc$0,sexp); - var _CH_=_CG_[1]; - if(caml_string_notequal(_CH_,cst_Equal$0)) - {if(caml_string_notequal(_CH_,cst_Greater$0)) - {if(caml_string_notequal(_CH_,cst_Less$0)) - if(caml_string_notequal(_CH_,cst_equal$0)) - if(caml_string_notequal(_CH_,cst_greater$0)) - if(caml_string_notequal(_CH_,cst_less$0)) - var switch$3=1,switch$4=0,switch$5=0; - else - var switch$5=1; + var _CD_=_CC_[1],switch$3=0; + if(caml_string_notequal(_CD_,cst_Equal$0)) + {var switch$4=0; + if(caml_string_notequal(_CD_,cst_Greater$0)) + {var switch$5=0; + if(caml_string_notequal(_CD_,cst_Less$0)) + if(caml_string_notequal(_CD_,cst_equal$0)) + if(caml_string_notequal(_CD_,cst_greater$0)) + {if(caml_string_notequal(_CD_,cst_less$0)) + {switch$3 = 1;switch$4 = 1;switch$5 = 1}} else - var switch$4=1,switch$5=0; + switch$5 = 1; else - var switch$3=0,switch$4=0,switch$5=0; - else - var switch$5=1; - if(switch$5) + {switch$4 = 1;switch$5 = 1} + if(! switch$5) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$0,sexp)} - else - var switch$4=1; - if(switch$4) + if(! switch$4) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$0,sexp)} - else - var switch$3=0; if(! switch$3) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$0,sexp)} return caml_call2(Sexplib0_Sexp_conv_error[8],tp_loc$0,sexp)} @@ -36976,8 +39479,8 @@ function compare$22(cmp_a,a_001,b_002) {if(a_001 === b_002)return 0; if(a_001) - {var _CD_=a_001[1]; - if(b_002){var b_004=b_002[1];return caml_call2(cmp_a,_CD_,b_004)} + {var _Cz_=a_001[1]; + if(b_002){var b_004=b_002[1];return caml_call2(cmp_a,_Cz_,b_004)} return -1} return b_002?1:0} function sexp_of_t$16(of_a,param) @@ -36987,69 +39490,57 @@ return _W_} var Or_unequal_lengths=[0,compare$22,sexp_of_t$16]; function of_list$0(t){return t} - function range(compare,stride,opt,_CB_,start_i,stop_i) + function range(compare,stride,opt,_Cx_,start_i,stop_i) {if(opt)var sth=opt[1],start=sth;else var start=104758188; - if(_CB_)var sth$0=_CB_[1],stop=sth$0;else var stop=-160346914; + if(_Cx_)var sth$0=_Cx_[1],stop=sth$0;else var stop=-160346914; var next_i=caml_call1(stride,start_i); function order(x,y){return of_int$0(caml_call2(compare,x,y))} - function raise_stride_cannot_return_same_value(param) - {return caml_call1 - (invalid_arg$0, - cst_List_range_stride_function_cannot_return_the_same_value)} + function raise_stride_cannot_return_sam(param) + {return caml_call1(invalid_arg$0,cst_List_range_stride_function)} var match=order(start_i,next_i); switch(match) {case 0:var initial_stride_order=847855481;break; case 1: - var initial_stride_order=raise_stride_cannot_return_same_value(0); - break; + var initial_stride_order=raise_stride_cannot_return_sam(0);break; default:var initial_stride_order=85047514} var start_i$0=104758188 <= start?start_i:next_i,i=start_i$0,accum=0; for(;;) - {var i_to_stop_order=order(i,stop_i); + {var i_to_stop_order=order(i,stop_i),switch$0=0; switch(i_to_stop_order) - {case 0:var switch$0=847855481 <= initial_stride_order?0:1;break; - case 1: - if(104758188 <= stop) - var _CC_=[0,i,accum],switch$0=2; - else - var _CC_=accum,switch$0=2; - break; - default:var switch$0=847855481 <= initial_stride_order?1:0} + {case 0:switch$0 = 847855481 <= initial_stride_order?1:2;break; + case 1:var _Cy_=104758188 <= stop?[0,i,accum]:accum;break; + default:switch$0 = 847855481 <= initial_stride_order?2:1} switch(switch$0) - {case 0: - var next_i$0=caml_call1(stride,i); + {case 1: + var next_i$0=caml_call1(stride,i),switch$1=0; switch(order(i,next_i$0)) - {case 0:var switch$1=847855481 <= initial_stride_order?1:0;break; - case 1: - var _CC_=raise_stride_cannot_return_same_value(0),switch$1=2; - break; - default:var switch$1=847855481 <= initial_stride_order?0:1} + {case 0:switch$1 = 847855481 <= initial_stride_order?2:1;break; + case 1:var _Cy_=raise_stride_cannot_return_sam(0);break; + default:switch$1 = 847855481 <= initial_stride_order?1:2} switch(switch$1) - {case 0: + {case 1: var - _CC_= - caml_call1 - (invalid_arg$0, - cst_List_range_stride_function_cannot_change_direction); + _Cy_= + caml_call1(invalid_arg$0,cst_List_range_stride_function$0); break; - case 1:var accum$0=[0,i,accum],i=next_i$0,accum=accum$0;continue + case 2:var accum$0=[0,i,accum],i=next_i$0,accum=accum$0;continue } break; - case 1:var _CC_=accum;break + case 2:var _Cy_=accum;break } - return rev(_CC_)}} - function range$0(opt,_Cy_,_Cx_,start_i,stop_i) + return rev(_Cy_)}} + function range$0(opt,_Cu_,_Ct_,start_i,stop_i) {if(opt)var sth=opt[1],stride=sth;else var stride=1; - if(_Cy_)var sth$0=_Cy_[1],start=sth$0;else var start=104758188; - if(_Cx_)var sth$1=_Cx_[1],stop=sth$1;else var stop=-160346914; + if(_Cu_)var sth$0=_Cu_[1],start=sth$0;else var start=104758188; + if(_Ct_)var sth$1=_Ct_[1],stop=sth$1;else var stop=-160346914; if(caml_call2(symbol$81,stride,0)) - caml_call1(invalid_arg$0,cst_List_range_stride_must_be_non_zero); - var _Cz_=[0,stop],_CA_=[0,start]; + caml_call1(invalid_arg$0,cst_List_range_stride_must_be_); + var _Cv_=[0,stop],_Cw_=[0,start]; return range (compare$18, function(x){return x + stride | 0}, - _CA_, - _Cz_, + _Cw_, + _Cv_, start_i, stop_i)} function hd(t){if(t){var x=t[1];return [0,x]}return 0} @@ -37067,8 +39558,8 @@ function nth_exn(t,n) {var match=nth(t,n); if(match){var a=match[1];return a} - var _Cw_=caml_call1(length,t); - return caml_call3(invalid_argf(_X_),n,_Cw_,0)} + var _Cs_=caml_call1(length,t); + return caml_call3(invalid_argf(_X_),n,_Cs_,0)} function unordered_append(l1,l2) {if(l1){if(l2)return caml_call2(rev_append,l1,l2);var l=l1}else var l=l2; return l} @@ -37076,21 +39567,21 @@ {var n1=caml_call1(length,l1), n2=caml_call1(length,l2), - _Cv_=caml_call2(symbol$80,n1,n2); - if(_Cv_)throw caml_call4(invalid_argf(_Y_),name,n1,n2,0); - return _Cv_} + _Cr_=caml_call2(symbol$80,n1,n2); + if(_Cr_)throw caml_call4(invalid_argf(_Y_),name,n1,n2,0); + return _Cr_} function check_length3_exn(name,l1,l2,l3) {var n1=caml_call1(length,l1), n2=caml_call1(length,l2), n3=caml_call1(length,l3), - _Ct_=caml_call2(symbol$80,n1,n2), - _Cu_=_Ct_ || caml_call2(symbol$80,n2,n3); - if(_Cu_)throw caml_call6(invalid_argf(_Z_),name,n1,n2,n2,n3,0); - return _Cu_} + _Cp_=caml_call2(symbol$80,n1,n2), + _Cq_=_Cp_ || caml_call2(symbol$80,n2,n3); + if(_Cq_)throw caml_call6(invalid_argf(_Z_),name,n1,n2,n2,n3,0); + return _Cq_} function check_length2(l1,l2,f) - {var _Cs_=caml_call1(length,l2); - return caml_call2(symbol$80,caml_call1(length,l1),_Cs_) + {var _Co_=caml_call1(length,l2); + return caml_call2(symbol$80,caml_call1(length,l1),_Co_) ?0 :[0,caml_call2(f,l1,l2)]} function check_length3(l1,l2,l3,f) @@ -37098,55 +39589,55 @@ n1=caml_call1(length,l1), n2=caml_call1(length,l2), n3=caml_call1(length,l3); - if(! caml_call2(symbol$80,n1,n2)) - if(! caml_call2(symbol$80,n2,n3))return [0,caml_call3(f,l1,l2,l3)]; + if(! caml_call2(symbol$80,n1,n2) && ! caml_call2(symbol$80,n2,n3)) + return [0,caml_call3(f,l1,l2,l3)]; return 0} function iter2(l1,l2,f) {return check_length2 (l1, l2, - function(_Cq_) - {return function(_Cr_){return iter2_ok(_Cq_,_Cr_,f)}})} + function(_Cm_) + {return function(_Cn_){return iter2_ok(_Cm_,_Cn_,f)}})} function iter2_exn(l1,l2,f) {check_length2_exn(cst_iter2_exn,l1,l2);return iter2_ok(l1,l2,f)} function rev_map2(l1,l2,f) {return check_length2 (l1, l2, - function(_Co_) - {return function(_Cp_){return rev_map2_ok(_Co_,_Cp_,f)}})} + function(_Ck_) + {return function(_Cl_){return rev_map2_ok(_Ck_,_Cl_,f)}})} function rev_map2_exn(l1,l2,f) {check_length2_exn(cst_rev_map2_exn,l1,l2);return rev_map2_ok(l1,l2,f)} function fold2(l1,l2,init,f) {return check_length2 (l1, l2, - function(_Cm_) - {return function(_Cn_){return fold2_ok(_Cm_,_Cn_,init,f)}})} + function(_Ci_) + {return function(_Cj_){return fold2_ok(_Ci_,_Cj_,init,f)}})} function fold2_exn(l1,l2,init,f) {check_length2_exn(cst_fold2_exn,l1,l2);return fold2_ok(l1,l2,init,f)} function for_all2(l1,l2,f) {return check_length2 (l1, l2, - function(_Ck_) - {return function(_Cl_){return for_all2_ok(_Ck_,_Cl_,f)}})} + function(_Cg_) + {return function(_Ch_){return for_all2_ok(_Cg_,_Ch_,f)}})} function for_all2_exn(l1,l2,f) {check_length2_exn(cst_for_all2_exn,l1,l2);return for_all2_ok(l1,l2,f)} function exists2(l1,l2,f) {return check_length2 (l1, l2, - function(_Ci_) - {return function(_Cj_){return exists2_ok(_Ci_,_Cj_,f)}})} + function(_Ce_) + {return function(_Cf_){return exists2_ok(_Ce_,_Cf_,f)}})} function exists2_exn(l1,l2,f) {check_length2_exn(cst_exists2_exn,l1,l2);return exists2_ok(l1,l2,f)} function mem(param,a,equal) {var param$0=param; for(;;) {if(param$0) - {var bs=param$0[2],b=param$0[1],_Ch_=caml_call2(equal,a,b); - if(_Ch_)return _Ch_; + {var bs=param$0[2],b=param$0[1],_Cd_=caml_call2(equal,a,b); + if(_Cd_)return _Cd_; var param$0=bs; continue} return 0}} @@ -37221,16 +39712,16 @@ {var i=0,t$0=t; for(;;) {if(t$0) - {var tl=t$0[2],hd=t$0[1],_Cg_=caml_call2(f,i,hd); - if(_Cg_){var i$0=i + 1 | 0,i=i$0,t$0=tl;continue} - return _Cg_} + {var tl=t$0[2],hd=t$0[1],_Cc_=caml_call2(f,i,hd); + if(_Cc_){var i$0=i + 1 | 0,i=i$0,t$0=tl;continue} + return _Cc_} return 1}} function existsi(t,f) {var i=0,t$0=t; for(;;) {if(t$0) - {var tl=t$0[2],hd=t$0[1],_Cf_=caml_call2(f,i,hd); - if(_Cf_)return _Cf_; + {var tl=t$0[2],hd=t$0[1],_Cb_=caml_call2(f,i,hd); + if(_Cb_)return _Cb_; var i$0=i + 1 | 0,i=i$0,t$0=tl; continue} return 0}} @@ -37238,66 +39729,66 @@ function count_append(l1,l2,count) {if(l2) {if(l1) - {var _B8_=l1[2],_B9_=l1[1]; - if(_B8_) - {var _B__=_B8_[2],_B$_=_B8_[1]; - if(_B__) - {var _Ca_=_B__[2],_Cb_=_B__[1]; - if(_Ca_) - {var _Cc_=_Ca_[2],_Cd_=_Ca_[1]; - if(_Cc_) + {var _B4_=l1[2],_B5_=l1[1]; + if(_B4_) + {var _B6_=_B4_[2],_B7_=_B4_[1]; + if(_B6_) + {var _B8_=_B6_[2],_B9_=_B6_[1]; + if(_B8_) + {var _B__=_B8_[2],_B$_=_B8_[1]; + if(_B__) {var - tl=_Cc_[2], - x5=_Cc_[1], - _Ce_= + tl=_B__[2], + x5=_B__[1], + _Ca_= caml_call2(symbol$82,count,1000) ?caml_call2(rev_append,rev(tl),l2) :count_append(tl,l2,count + 1 | 0); - return [0,_B9_,[0,_B$_,[0,_Cb_,[0,_Cd_,[0,x5,_Ce_]]]]]} - return [0,_B9_,[0,_B$_,[0,_Cb_,[0,_Cd_,l2]]]]} - return [0,_B9_,[0,_B$_,[0,_Cb_,l2]]]} - return [0,_B9_,[0,_B$_,l2]]} - return [0,_B9_,l2]} + return [0,_B5_,[0,_B7_,[0,_B9_,[0,_B$_,[0,x5,_Ca_]]]]]} + return [0,_B5_,[0,_B7_,[0,_B9_,[0,_B$_,l2]]]]} + return [0,_B5_,[0,_B7_,[0,_B9_,l2]]]} + return [0,_B5_,[0,_B7_,l2]]} + return [0,_B5_,l2]} return l2} return l1} function append$0(l1,l2){return count_append(l1,l2,0)} function count_map(f,l,ctr) {if(l) - {var _BZ_=l[2],_B0_=l[1]; - if(_BZ_) - {var _B1_=_BZ_[2],_B2_=_BZ_[1]; - if(_B1_) - {var _B3_=_B1_[2],_B4_=_B1_[1]; - if(_B3_) - {var _B5_=_B3_[2],_B6_=_B3_[1]; - if(_B5_) + {var _BV_=l[2],_BW_=l[1]; + if(_BV_) + {var _BX_=_BV_[2],_BY_=_BV_[1]; + if(_BX_) + {var _BZ_=_BX_[2],_B0_=_BX_[1]; + if(_BZ_) + {var _B1_=_BZ_[2],_B2_=_BZ_[1]; + if(_B1_) {var - tl=_B5_[2], - x5=_B5_[1], - f1=caml_call1(f,_B0_), - f2=caml_call1(f,_B2_), - f3=caml_call1(f,_B4_), - f4=caml_call1(f,_B6_), + tl=_B1_[2], + x5=_B1_[1], + f1=caml_call1(f,_BW_), + f2=caml_call1(f,_BY_), + f3=caml_call1(f,_B0_), + f4=caml_call1(f,_B2_), f5=caml_call1(f,x5), - _B7_= + _B3_= caml_call2(symbol$82,ctr,1000) ?rev(rev_map(tl,f)) :count_map(f,tl,ctr + 1 | 0); - return [0,f1,[0,f2,[0,f3,[0,f4,[0,f5,_B7_]]]]]} + return [0,f1,[0,f2,[0,f3,[0,f4,[0,f5,_B3_]]]]]} var - f1$0=caml_call1(f,_B0_), - f2$0=caml_call1(f,_B2_), - f3$0=caml_call1(f,_B4_), - f4$0=caml_call1(f,_B6_); + f1$0=caml_call1(f,_BW_), + f2$0=caml_call1(f,_BY_), + f3$0=caml_call1(f,_B0_), + f4$0=caml_call1(f,_B2_); return [0,f1$0,[0,f2$0,[0,f3$0,[0,f4$0,0]]]]} var - f1$1=caml_call1(f,_B0_), - f2$1=caml_call1(f,_B2_), - f3$1=caml_call1(f,_B4_); + f1$1=caml_call1(f,_BW_), + f2$1=caml_call1(f,_BY_), + f3$1=caml_call1(f,_B0_); return [0,f1$1,[0,f2$1,[0,f3$1,0]]]} - var f1$2=caml_call1(f,_B0_),f2$2=caml_call1(f,_B2_); + var f1$2=caml_call1(f,_BW_),f2$2=caml_call1(f,_BY_); return [0,f1$2,[0,f2$2,0]]} - var f1$3=caml_call1(f,_B0_); + var f1$3=caml_call1(f,_BW_); return [0,f1$3,0]} return 0} function map$6(l,f){return count_map(f,l,0)} @@ -37326,40 +39817,39 @@ {return check_length2 (l1, l2, - function(_BX_) - {return function(_BY_){return map2_ok(_BX_,_BY_,f)}})} + function(_BT_) + {return function(_BU_){return map2_ok(_BT_,_BU_,f)}})} function map2_exn(l1,l2,f) {check_length2_exn(cst_map2_exn,l1,l2);return map2_ok(l1,l2,f)} function rev_map3_ok(l1,l2,l3,f) {var l1$0=l1,l2$0=l2,l3$0=l3,ac=0; for(;;) {if(l1$0) - {if(l2$0) - if(l3$0) - {var - l3$1=l3$0[2], - x3=l3$0[1], - l2$1=l2$0[2], - x2=l2$0[1], - l1$1=l1$0[2], - x1=l1$0[1], - ac$0=[0,caml_call3(f,x1,x2,x3),ac], - l1$0=l1$1, - l2$0=l2$1, - l3$0=l3$1, - ac=ac$0; - continue}} + {if(l2$0 && l3$0) + {var + l3$1=l3$0[2], + x3=l3$0[1], + l2$1=l2$0[2], + x2=l2$0[1], + l1$1=l1$0[2], + x1=l1$0[1], + ac$0=[0,caml_call3(f,x1,x2,x3),ac], + l1$0=l1$1, + l2$0=l2$1, + l3$0=l3$1, + ac=ac$0; + continue}} else - if(! l2$0)if(! l3$0)return ac; + if(! l2$0 && ! l3$0)return ac; throw [0,Assert_failure,_ab_]}} function rev_map3(l1,l2,l3,f) {return check_length3 (l1, l2, l3, - function(_BU_) - {return function(_BV_) - {return function(_BW_){return rev_map3_ok(_BU_,_BV_,_BW_,f)}}})} + function(_BQ_) + {return function(_BR_) + {return function(_BS_){return rev_map3_ok(_BQ_,_BR_,_BS_,f)}}})} function rev_map3_exn(l1,l2,l3,f) {check_length3_exn(cst_rev_map3_exn,l1,l2,l3); return rev_map3_ok(l1,l2,l3,f)} @@ -37369,9 +39859,9 @@ (l1, l2, l3, - function(_BR_) - {return function(_BS_) - {return function(_BT_){return map3_ok(_BR_,_BS_,_BT_,f)}}})} + function(_BN_) + {return function(_BO_) + {return function(_BP_){return map3_ok(_BN_,_BO_,_BP_,f)}}})} function map3_exn(l1,l2,l3,f) {check_length3_exn(cst_map3_exn,l1,l2,l3);return map3_ok(l1,l2,l3,f)} function rev_map_append(l1,l2,f) @@ -37388,8 +39878,8 @@ return l2$0}} function fold_right$0(l,f,init) {if(l) - {var _BQ_=function(a,b){return caml_call2(f,b,a)}; - return fold$0(rev(l),init,_BQ_)} + {var _BM_=function(a,b){return caml_call2(f,b,a)}; + return fold$0(rev(l),init,_BM_)} return init} function unzip$0(list) {var list$0=list,l1=0,l2=0; @@ -37406,8 +39896,8 @@ l1=l1$0, l2=l2$0; continue} - var _BP_=rev(l2); - return [0,rev(l1),_BP_]}} + var _BL_=rev(l2); + return [0,rev(l1),_BL_]}} function unzip3(list) {var list$0=list,l1=0,l2=0,l3=0; for(;;) @@ -37426,8 +39916,8 @@ l2=l2$0, l3=l3$0; continue} - var _BN_=rev(l3),_BO_=rev(l2); - return [0,rev(l1),_BO_,_BN_]}} + var _BJ_=rev(l3),_BK_=rev(l2); + return [0,rev(l1),_BK_,_BJ_]}} function zip_exn(l1,l2) {check_length2_exn(cst_zip_exn,l1,l2); return map2_ok(l1,l2,function(a,b){return [0,a,b]})} @@ -37584,17 +40074,17 @@ {var list$0=list; for(;;) {if(list$0) - {var _BL_=list$0[2],_BM_=list$0[1]; - if(_BL_){var list$0=_BL_;continue} - return _BM_} + {var _BH_=list$0[2],_BI_=list$0[1]; + if(_BH_){var list$0=_BH_;continue} + return _BI_} throw [0,Stdlib[6],cst_List_last]}} function last(list) {var list$0=list; for(;;) {if(list$0) - {var _BJ_=list$0[2],_BK_=list$0[1]; - if(_BJ_){var list$0=_BJ_;continue} - return [0,_BK_]} + {var _BF_=list$0[2],_BG_=list$0[1]; + if(_BF_){var list$0=_BF_;continue} + return [0,_BG_]} return 0}} function is_prefix(list,prefix,equal) {var list$0=list,prefix$0=prefix; @@ -37602,9 +40092,9 @@ {if(prefix$0) {var tl=prefix$0[2],hd=prefix$0[1]; if(list$0) - {var tl$0=list$0[2],hd$0=list$0[1],_BI_=caml_call2(equal,hd,hd$0); - if(_BI_){var list$0=tl$0,prefix$0=tl;continue} - return _BI_} + {var tl$0=list$0[2],hd$0=list$0[1],_BE_=caml_call2(equal,hd,hd$0); + if(_BE_){var list$0=tl$0,prefix$0=tl;continue} + return _BE_} return 0} return 1}} function find_consecutive_duplicate(t,equal) @@ -37639,25 +40129,24 @@ return rev([0,to_keep,accum])}} return 0} function dedup_and_sort(compare,list) - {if(list) - if(list[2]) - {var - equal= - function(x$0,x) - {return caml_call2(symbol$81,caml_call2(compare,x$0,x),0)}, - sorted=func(list,compare); - return remove_consecutive_duplicates(0,sorted,equal)} + {if(list && list[2]) + {var + equal= + function(x$0,x) + {return caml_call2(symbol$81,caml_call2(compare,x$0,x),0)}, + sorted=func(list,compare); + return remove_consecutive_duplicates(0,sorted,equal)} return list} function find_a_dup(compare,l) {var l$0=func(l,compare),l$1=l$0; for(;;) {if(l$1) - {var _BH_=l$1[2]; - if(_BH_) - {var hd2=_BH_[1],hd1=l$1[1]; + {var _BD_=l$1[2]; + if(_BD_) + {var hd2=_BD_[1],hd1=l$1[1]; if(caml_call2(symbol$81,caml_call2(compare,hd1,hd2),0)) return [0,hd1]; - var l$1=_BH_; + var l$1=_BD_; continue}} return 0}} function contains_dup(compare,lst) @@ -37741,20 +40230,20 @@ continue} return accum}} function filter_mapi(l,f){return rev(rev_filter_mapi(l,f))} - function filter_opt(l){return filter_map(l,function(_BG_){return _BG_})} + function filter_opt(l){return filter_map(l,function(_BC_){return _BC_})} function partition3_map(t,f) {var t$0=t,fst=0,snd=0,trd=0; for(;;) {if(t$0) - {var t$1=t$0[2],x=t$0[1],match=caml_call1(f,x),_BD_=match[1]; - if(4152137 === _BD_) + {var t$1=t$0[2],x=t$0[1],match=caml_call1(f,x),_Bz_=match[1]; + if(4152137 === _Bz_) {var y=match[2],snd$0=[0,y,snd],t$0=t$1,snd=snd$0;continue} - if(4202758 <= _BD_) + if(4202758 <= _Bz_) {var y$0=match[2],trd$0=[0,y$0,trd],t$0=t$1,trd=trd$0;continue} var y$1=match[2],fst$0=[0,y$1,fst],t$0=t$1,fst=fst$0; continue} - var _BE_=rev(trd),_BF_=rev(snd); - return [0,rev(fst),_BF_,_BE_]}} + var _BA_=rev(trd),_BB_=rev(snd); + return [0,rev(fst),_BB_,_BA_]}} function partition_tf(t,f) {function f$0(x){return caml_call1(f,x)?[0,3506791,x]:[0,4152137,x]} return partition_map(t,f$0)} @@ -37769,17 +40258,16 @@ (t_of_sexp$10, function(sexp) {if(1 === sexp[0]) - {var _BB_=sexp[1]; - if(_BB_) - {var _BC_=_BB_[2]; - if(_BC_) - if(! _BC_[2]) - {var - v1=_BC_[1], - v0=_BB_[1], - v0$0=caml_call1(of_a,v0), - v1$0=caml_call1(of_b,v1); - return [0,v0$0,v1$0]}}} + {var _Bx_=sexp[1]; + if(_Bx_) + {var _By_=_Bx_[2]; + if(_By_ && ! _By_[2]) + {var + v1=_By_[1], + v0=_Bx_[1], + v0$0=caml_call1(of_a,v0), + v1$0=caml_call1(of_b,v1); + return [0,v0$0,v1$0]}}} return caml_call3 (Sexplib0_Sexp_conv_error[2],tp_loc$1,2,sexp)}, t)} @@ -37827,21 +40315,24 @@ {var value=param[2],key=param[1]; return [0,key,caml_call1(f,value)]})} function sub$1(l,pos,len) - {var _By_=caml_call2(symbol$78,pos,0); - if(_By_) - var _Bz_=_By_; + {var _Bu_=caml_call2(symbol$78,pos,0); + if(_Bu_) + var _Bv_=_Bu_; else var - _BA_=caml_call2(symbol$78,len,0), - _Bz_=_BA_ || caml_call2(symbol$82,pos,caml_call1(length,l) - len | 0); - if(_Bz_)caml_call1(invalid_arg$0,cst_List_sub); + _Bw_=caml_call2(symbol$78,len,0), + _Bv_=_Bw_ || caml_call2(symbol$82,pos,caml_call1(length,l) - len | 0); + if(_Bv_)caml_call1(invalid_arg$0,cst_List_sub); return rev (foldi (l, 0, function(i,acc,el) - {if(caml_call2(symbol$83,i,pos)) - if(caml_call2(symbol$78,i,pos + len | 0))return [0,el,acc]; + {if + (caml_call2(symbol$83,i,pos) + && + caml_call2(symbol$78,i,pos + len | 0)) + return [0,el,acc]; return acc}))} function split_n(t,n) {if(caml_call2(symbol$79,n,0))return [0,0,t]; @@ -37926,7 +40417,7 @@ function drop_last_exn(t) {var match=drop_last(t); if(match){var lst=match[1];return lst} - return caml_call1(failwith$0,cst_List_drop_last_exn_empty_list)} + return caml_call1(failwith$0,cst_List_drop_last_exn_empty_l)} function cartesian_product(list1,list2) {if(is_empty(list2))return 0; var l1=list1,accum=0; @@ -37953,52 +40444,52 @@ {var l$0=l; for(;;) {if(l$0) - {var _Bw_=l$0[2]; - if(_Bw_) + {var _Bs_=l$0[2]; + if(_Bs_) {var - x2=_Bw_[1], + x2=_Bs_[1], x1=l$0[1], - _Bx_=caml_call2(symbol$79,caml_call2(compare,x1,x2),0); - if(_Bx_){var l$0=_Bw_;continue} - return _Bx_}} + _Bt_=caml_call2(symbol$79,caml_call2(compare,x1,x2),0); + if(_Bt_){var l$0=_Bs_;continue} + return _Bt_}} return 1}} function is_sorted_strictly(l,compare) {var l$0=l; for(;;) {if(l$0) - {var _Bu_=l$0[2]; - if(_Bu_) + {var _Bq_=l$0[2]; + if(_Bq_) {var - x2=_Bu_[1], + x2=_Bq_[1], x1=l$0[1], - _Bv_=caml_call2(symbol$78,caml_call2(compare,x1,x2),0); - if(_Bv_){var l$0=_Bu_;continue} - return _Bv_}} + _Br_=caml_call2(symbol$78,caml_call2(compare,x1,x2),0); + if(_Br_){var l$0=_Bq_;continue} + return _Br_}} return 1}} var Infix=[0,append$0]; function permute$0(opt,list) {if(opt)var sth=opt[1],random_state=sth;else var random_state=_R_[1]; if(list) - {var _Bt_=list[2]; - if(_Bt_) - {if(_Bt_[2]) + {var _Bp_=list[2]; + if(_Bp_) + {if(_Bp_[2]) {var arr=caml_call1(of_list,list); permute([0,random_state],arr); return caml_call1(to_list,arr)} - var y=_Bt_[1],x=list[1]; + var y=_Bp_[1],x=list[1]; return caml_call1(_R_[16],random_state)?[0,y,[0,x,0]]:list}} return list} function random_element_exn(opt,list) {if(opt)var sth=opt[1],random_state=sth;else var random_state=_R_[1]; if(is_empty(list)) - return caml_call1(failwith$0,cst_List_random_element_exn_empty_list); - var _Bs_=caml_call1(length,list); - return nth_exn(list,caml_call2(_R_[6],random_state,_Bs_))} + return caml_call1(failwith$0,cst_List_random_element_exn_em); + var _Bo_=caml_call1(length,list); + return nth_exn(list,caml_call2(_R_[6],random_state,_Bo_))} function random_element(opt,list) {if(opt)var sth=opt[1],random_state=sth;else var random_state=_R_[1]; try - {var _Bq_=[0,random_element_exn([0,random_state],list)];return _Bq_} - catch(_Br_){return 0}} + {var _Bm_=[0,random_element_exn([0,random_state],list)];return _Bm_} + catch(_Bn_){return 0}} function compare_list$1(cmp,a,b) {var a$0=a,b$0=b; for(;;) @@ -38019,9 +40510,9 @@ x2=t2$0[1], t1$1=t1$0[2], x1=t1$0[1], - _Bp_=caml_call2(equal,x1,x2); - if(_Bp_){var t1$0=t1$1,t2$0=t2$1;continue} - return _Bp_}} + _Bl_=caml_call2(equal,x1,x2); + if(_Bl_){var t1$0=t1$1,t2$0=t2$1;continue} + return _Bl_}} else if(! t2$0)return 1; return 0}} @@ -38036,11 +40527,11 @@ {if(param) {var xs=param[2],x=param[1];return [0,3506791,[0,x,xs]]} return _ah_}), - _Bo_=match[1]; - if(_Bo_) + _Bk_=match[1]; + if(_Bk_) {if(match[2])return 0; var - match$0=unzip$0(_Bo_), + match$0=unzip$0(_Bk_), t$0=match$0[2], column=match$0[1], rev_columns$0=[0,column,rev_columns], @@ -38049,35 +40540,30 @@ continue} return [0,caml_call2(rev_append,rev_columns,0)]}} var - Transpose_got_lists_of_different_lengths= - [248, - cst_Base_List_Transpose_got_lists_of_different_lengths, - caml_fresh_oo_id(0)]; + Transpose_got_lists_of_differe= + [248,cst_Base_List_Transpose_got_li,caml_fresh_oo_id(0)]; function _ai_(param) - {if(param[1] === Transpose_got_lists_of_different_lengths) + {if(param[1] === Transpose_got_lists_of_differe) {var v0=param[2],v0$0=caml_call2(sexp_of_t$10,sexp_of_t$4,v0); return [1,[0,_aj_,[0,v0$0,0]]]} throw [0,Assert_failure,_ak_]} caml_call3 - (Sexplib0_Sexp_conv[51][2], - 0, - Transpose_got_lists_of_different_lengths, - _ai_); + (Sexplib0_Sexp_conv[51][2],0,Transpose_got_lists_of_differe,_ai_); function transpose_exn(l) {var match=transpose(l); if(match){var l$0=match[1];return l$0} - throw [0,Transpose_got_lists_of_different_lengths,map$6(l,length)]} + throw [0,Transpose_got_lists_of_differe,map$6(l,length)]} function intersperse(t,sep) {if(t) - {var xs=t[2],x=t[1],_Bn_=0; + {var xs=t[2],x=t[1],_Bj_=0; return [0, x, fold_right$0 - (xs,function(y,acc){return [0,sep,[0,y,acc]]},_Bn_)]} + (xs,function(y,acc){return [0,sep,[0,y,acc]]},_Bj_)]} return 0} function fold_result$0(t,init,f){return fold_result(fold$0,init,f,t)} function fold_until$0(t,init,f) - {return function(_Bm_){return fold_until(fold$0,init,f,_Bm_,t)}} + {return function(_Bi_){return fold_until(fold$0,init,f,_Bi_,t)}} var _al_= [0, @@ -38353,54 +40839,54 @@ all, all_unit, Applicative_infix]} - function Make3$0(_Be_) - {var _Bf_=_Be_[1],_Bg_=_Be_[2]; - function derived_map(t,f){return caml_call2(_Bg_,caml_call1(_Bf_,f),t)} - var _Bh_=_Be_[3]; - if(typeof _Bh_ === "number") + function Make3$0(_Ba_) + {var _Bb_=_Ba_[1],_Bc_=_Ba_[2]; + function derived_map(t,f){return caml_call2(_Bc_,caml_call1(_Bb_,f),t)} + var _Bd_=_Ba_[3]; + if(typeof _Bd_ === "number") var map=derived_map; else - var x=_Bh_[2],map=x; + var x=_Bd_[2],map=x; function symbol_map(t,f){return caml_call2(map,t,f)} - function map2(ta,tb,f){return caml_call2(_Bg_,caml_call2(map,ta,f),tb)} + function map2(ta,tb,f){return caml_call2(_Bc_,caml_call2(map,ta,f),tb)} function map3(ta,tb,tc,f) - {return caml_call2(_Bg_,caml_call2(_Bg_,caml_call2(map,ta,f),tb),tc)} + {return caml_call2(_Bc_,caml_call2(_Bc_,caml_call2(map,ta,f),tb),tc)} function all(ts) - {var _Bi_=caml_call1(_Bf_,0); - function _Bj_(x,xs){return [0,x,xs]} + {var _Be_=caml_call1(_Bb_,0); + function _Bf_(x,xs){return [0,x,xs]} return fold_right$0 (ts, - function(_Bk_) - {return function(_Bl_){return map2(_Bk_,_Bl_,_Bj_)}}, - _Bi_)} + function(_Bg_) + {return function(_Bh_){return map2(_Bg_,_Bh_,_Bf_)}}, + _Be_)} function both(ta,tb){return map2(ta,tb,function(a,b){return [0,a,b]})} function symbol(u,v) {return caml_call2 - (_Bg_, + (_Bc_, caml_call2 - (_Bg_,caml_call1(_Bf_,function(param,y){return y}),u), + (_Bc_,caml_call1(_Bb_,function(param,y){return y}),u), v)} function symbol$0(u,v) {return caml_call2 - (_Bg_, + (_Bc_, caml_call2 - (_Bg_,caml_call1(_Bf_,function(x,param){return x}),u), + (_Bc_,caml_call1(_Bb_,function(x,param){return x}),u), v)} - function all_unit(ts){return fold$0(ts,caml_call1(_Bf_,0),symbol)} + function all_unit(ts){return fold$0(ts,caml_call1(_Bb_,0),symbol)} return [0, - _Bf_, + _Bb_, map, both, - _Bg_, + _Bc_, symbol$0, symbol, symbol_map, - _Bg_, + _Bc_, map2, map3, all, all_unit, - [0,_Bg_,symbol$0,symbol,symbol_map]]} + [0,_Bc_,symbol$0,symbol,symbol_map]]} function Make2$0(X) {var return$0=X[1],apply=X[2],map=X[3]; return Make3$0([0,return$0,apply,map])} @@ -38441,15 +40927,15 @@ ([0,return$0,map,both,symbol,symbol$0,symbol$1,symbol_map], Intf, Impl)} - function Make3_using_map2(_Ba_) - {var _Bd_=_Ba_[3],_Bb_=_Ba_[1],_Bc_=_Ba_[2]; + function Make3_using_map2(_A8_) + {var _A$_=_A8_[3],_A9_=_A8_[1],_A__=_A8_[2]; function apply(tf,tx) - {return caml_call3(_Bc_,tf,tx,function(f,x){return caml_call1(f,x)})} - if(typeof _Bd_ === "number") + {return caml_call3(_A__,tf,tx,function(f,x){return caml_call1(f,x)})} + if(typeof _A$_ === "number") var map=-777467953; else - var map$0=_Bd_[2],map=[0,-198771759,map$0]; - return Make3$0([0,_Bb_,apply,map])} + var map$0=_A$_[2],map=[0,-198771759,map$0]; + return Make3$0([0,_A9_,apply,map])} function Make2_using_map2(X) {var return$0=X[1],map2=X[2],map=X[3]; return Make3_using_map2([0,return$0,map2,map])} @@ -38459,8 +40945,8 @@ function Of_monad2(M) {var return$0=M[6]; function apply(mf,mx) - {function _A$_(f){return caml_call2(M[7],mx,f)} - return caml_call2(M[5],mf,_A$_)} + {function _A7_(f){return caml_call2(M[7],mx,f)} + return caml_call2(M[5],mf,_A7_)} var map=[0,-198771759,M[7]]; return Make2$0([0,return$0,apply,map])} function Of_monad(M) @@ -38491,13 +40977,13 @@ all_unit])} function Compose(F,G) {function return$0(a) - {var _A__=caml_call1(F[1],a);return caml_call1(G[1],_A__)} + {var _A6_=caml_call1(F[1],a);return caml_call1(G[1],_A6_)} function apply(tf,tx) - {var _A9_=caml_call2(G[2],tf,F[8]);return caml_call2(G[8],_A9_,tx)} + {var _A5_=caml_call2(G[2],tf,F[8]);return caml_call2(G[8],_A5_,tx)} function custom_map(t,f) - {var _A6_=F[2]; - function _A7_(_A8_){return caml_call2(_A6_,_A8_,f)} - return caml_call2(G[2],t,_A7_)} + {var _A2_=F[2]; + function _A3_(_A4_){return caml_call2(_A2_,_A4_,f)} + return caml_call2(G[2],t,_A3_)} var map=[0,-198771759,custom_map], include=Make$0([0,return$0,apply,map]), @@ -38530,13 +41016,13 @@ Applicative_infix]} function Pair(F,G) {function return$0(a) - {var _A5_=caml_call1(G[1],a);return [0,caml_call1(F[1],a),_A5_]} + {var _A1_=caml_call1(G[1],a);return [0,caml_call1(F[1],a),_A1_]} function apply(tf,tx) - {var _A4_=caml_call2(G[8],tf[2],tx[2]); - return [0,caml_call2(F[8],tf[1],tx[1]),_A4_]} + {var _A0_=caml_call2(G[8],tf[2],tx[2]); + return [0,caml_call2(F[8],tf[1],tx[1]),_A0_]} function custom_map(t,f) - {var _A3_=caml_call2(G[2],t[2],f); - return [0,caml_call2(F[2],t[1],f),_A3_]} + {var _AZ_=caml_call2(G[2],t[2],f); + return [0,caml_call2(F[2],t[1],f),_AZ_]} var map=[0,-198771759,custom_map], include=Make$0([0,return$0,apply,map]), @@ -38567,26 +41053,26 @@ all, all_unit, Applicative_infix]} - function _am_(_A0_,_AZ_,_AY_) - {var _A1_=Make_let_syntax3(_A0_,_AZ_,_AY_)[1],_A2_=_A1_[8]; + function _am_(_AW_,_AV_,_AU_) + {var _AX_=Make_let_syntax3(_AW_,_AV_,_AU_)[1],_AY_=_AX_[8]; return [0, [0, - _A1_[1], - _A1_[4], - _A1_[5], - _A1_[6], - _A1_[7], - [0,_A2_[1],_A2_[2],_A2_[3],_A2_[8]]]]} - function _an_(_AV_,_AU_,_AT_) - {var _AW_=Make_let_syntax2(_AV_,_AU_,_AT_)[1],_AX_=_AW_[8]; + _AX_[1], + _AX_[4], + _AX_[5], + _AX_[6], + _AX_[7], + [0,_AY_[1],_AY_[2],_AY_[3],_AY_[8]]]]} + function _an_(_AR_,_AQ_,_AP_) + {var _AS_=Make_let_syntax2(_AR_,_AQ_,_AP_)[1],_AT_=_AS_[8]; return [0, [0, - _AW_[1], - _AW_[4], - _AW_[5], - _AW_[6], - _AW_[7], - [0,_AX_[1],_AX_[2],_AX_[3],_AX_[8]]]]} + _AS_[1], + _AS_[4], + _AS_[5], + _AS_[6], + _AS_[7], + [0,_AT_[1],_AT_[2],_AT_[3],_AT_[8]]]]} var Base_Applicative= [0, @@ -38606,21 +41092,21 @@ symbol$0=X[5], symbol$1=X[6], symbol_map=X[7], - _AR_= + _AN_= Make_let_syntax2 ([0,return$0,map,both,symbol,symbol$0,symbol$1,symbol_map], Intf, Impl) [1], - _AS_=_AR_[8]; + _AO_=_AN_[8]; return [0, [0, - _AR_[1], - _AR_[4], - _AR_[5], - _AR_[6], - _AR_[7], - [0,_AS_[1],_AS_[2],_AS_[3],_AS_[8]]]]}, + _AN_[1], + _AN_[4], + _AN_[5], + _AN_[6], + _AN_[7], + [0,_AO_[1],_AO_[2],_AO_[3],_AO_[8]]]]}, _an_, _am_, Make_using_map2, @@ -38646,35 +41132,35 @@ Poly=[0,comparator]; function Derived(M) {function comparator(a) - {var _AQ_=caml_call1(M[2],a[2]);return [0,caml_call1(M[1],a[1]),_AQ_]} + {var _AM_=caml_call1(M[2],a[2]);return [0,caml_call1(M[1],a[1]),_AM_]} return [0,comparator]} function Derived2(M) {function comparator(a,b) - {var _AP_=caml_call2(M[2],a[2],b[2]); - return [0,caml_call2(M[1],a[1],b[1]),_AP_]} + {var _AL_=caml_call2(M[2],a[2],b[2]); + return [0,caml_call2(M[1],a[1],b[1]),_AL_]} return [0,comparator]} function Derived_phantom(M) {function comparator(a) - {var _AO_=caml_call1(M[2],a[2]);return [0,caml_call1(M[1],a[1]),_AO_]} + {var _AK_=caml_call1(M[2],a[2]);return [0,caml_call1(M[1],a[1]),_AK_]} return [0,comparator]} function _ap_(M){var comparator=[0,M[1],M[2]];return [0,comparator]} var Base_Comparator= [0,make$0,Poly,S_to_S1,_ap_,Make1,Derived,Derived2,Derived_phantom]; caml_register_global(999,Base_Comparator,"Base__Comparator"); - function opaque_identity(_AN_){return _AN_} + function opaque_identity(_AJ_){return _AJ_} var For_generated_code=[0,opaque_identity]; function name(param){return param[2]} function get(param,r){return caml_call1(param[4],r)} function fset(param,r,v){return caml_call2(param[5],r,v)} function setter(param){return param[3]} function map$9(field,r,f) - {var _AM_=caml_call1(f,caml_call1(field[4],r)); - return caml_call2(field[5],r,_AM_)} + {var _AI_=caml_call1(f,caml_call1(field[4],r)); + return caml_call2(field[5],r,_AI_)} function updater(field) - {var _AL_=field[3]; - if(_AL_) - {var setter=_AL_[1]; + {var _AH_=field[3]; + if(_AH_) + {var setter=_AH_[1]; return [0, function(r,f) {return caml_call2 @@ -38754,52 +41240,52 @@ param=field_sexps; for(;;) {if(param) - {var _AC_=param[1]; - if(1 === _AC_[0]) - {var _AD_=_AC_[1]; - if(_AD_) - {var _AE_=_AD_[1]; - if(0 === _AE_[0]) - {var _AF_=_AD_[2],_AG_=_AE_[1]; - if(! _AF_) + {var _Ay_=param[1]; + if(1 === _Ay_[0]) + {var _Az_=_Ay_[1]; + if(_Az_) + {var _AA_=_Az_[1]; + if(0 === _AA_[0]) + {var _AB_=_Az_[2],_AC_=_AA_[1]; + if(! _AB_) {var tail$0=param[2]; - if(Sexplib0_Sexp_conv[26][1])extra[1] = [0,_AG_,extra[1]]; + if(Sexplib0_Sexp_conv[26][1])extra[1] = [0,_AC_,extra[1]]; var param=tail$0; continue} - if(! _AF_[2]) - {var tail=param[2],field_sexp=_AF_[1]; - if(caml_string_notequal(_AG_,cst_pos_bol)) - if(caml_string_notequal(_AG_,cst_pos_cnum)) - if(caml_string_notequal(_AG_,cst_pos_fname)) - if(caml_string_notequal(_AG_,cst_pos_lnum)) - {if(Sexplib0_Sexp_conv[26][1])extra[1] = [0,_AG_,extra[1]]} + if(! _AB_[2]) + {var tail=param[2],field_sexp=_AB_[1]; + if(caml_string_notequal(_AC_,cst_pos_bol)) + if(caml_string_notequal(_AC_,cst_pos_cnum)) + if(caml_string_notequal(_AC_,cst_pos_fname)) + if(caml_string_notequal(_AC_,cst_pos_lnum)) + {if(Sexplib0_Sexp_conv[26][1])extra[1] = [0,_AC_,extra[1]]} else if(pos_lnum_field[1]) - duplicates[1] = [0,_AG_,duplicates[1]]; + duplicates[1] = [0,_AC_,duplicates[1]]; else {var fvalue=caml_call1(t_of_sexp$4,field_sexp); pos_lnum_field[1] = [0,fvalue]} else if(pos_fname_field[1]) - duplicates[1] = [0,_AG_,duplicates[1]]; + duplicates[1] = [0,_AC_,duplicates[1]]; else {var fvalue$0=caml_call1(t_of_sexp$2,field_sexp); pos_fname_field[1] = [0,fvalue$0]} else if(pos_cnum_field[1]) - duplicates[1] = [0,_AG_,duplicates[1]]; + duplicates[1] = [0,_AC_,duplicates[1]]; else {var fvalue$1=caml_call1(t_of_sexp$4,field_sexp); pos_cnum_field[1] = [0,fvalue$1]} else if(pos_bol_field[1]) - duplicates[1] = [0,_AG_,duplicates[1]]; + duplicates[1] = [0,_AC_,duplicates[1]]; else {var fvalue$2=caml_call1(t_of_sexp$4,field_sexp); pos_bol_field[1] = [0,fvalue$2]} var param=tail; continue}}}} - caml_call2(Sexplib0_Sexp_conv_error[9],tp_loc$2,_AC_)} + caml_call2(Sexplib0_Sexp_conv_error[9],tp_loc$2,_Ay_)} if(duplicates[1]) return caml_call3 (Sexplib0_Sexp_conv_error[11],tp_loc$2,duplicates[1],sexp); @@ -38807,24 +41293,21 @@ return caml_call3 (Sexplib0_Sexp_conv_error[12],tp_loc$2,extra[1],sexp); var - _AH_=pos_fname_field[1], - _AI_=pos_lnum_field[1], - _AJ_=pos_bol_field[1], - _AK_=pos_cnum_field[1]; - if(_AH_) - if(_AI_) - if(_AJ_) - if(_AK_) - {var - pos_cnum_value=_AK_[1], - pos_bol_value=_AJ_[1], - pos_lnum_value=_AI_[1], - pos_fname_value=_AH_[1]; - return [0, - pos_fname_value, - pos_lnum_value, - pos_bol_value, - pos_cnum_value]} + _AD_=pos_fname_field[1], + _AE_=pos_lnum_field[1], + _AF_=pos_bol_field[1], + _AG_=pos_cnum_field[1]; + if(_AD_ && _AE_ && _AF_ && _AG_) + {var + pos_cnum_value=_AG_[1], + pos_bol_value=_AF_[1], + pos_lnum_value=_AE_[1], + pos_fname_value=_AD_[1]; + return [0, + pos_fname_value, + pos_lnum_value, + pos_bol_value, + pos_cnum_value]} return caml_call3 (Sexplib0_Sexp_conv_error[14], tp_loc$2, @@ -38860,10 +41343,10 @@ include$23=_ap_([0,T[1],T[5]]), comparator$0=include$23[1]; function make_location_string(pos_fname,pos_lnum,pos_cnum,pos_bol) - {var _AB_=[0,cst$1,[0,caml_call1(to_string,pos_cnum - pos_bol | 0),0]]; + {var _Ax_=[0,cst$1,[0,caml_call1(to_string,pos_cnum - pos_bol | 0),0]]; return concat$0 (0, - [0,pos_fname,[0,cst$2,[0,caml_call1(to_string,pos_lnum),_AB_]]])} + [0,pos_fname,[0,cst$2,[0,caml_call1(to_string,pos_lnum),_Ax_]]])} function to_string$2(param) {var pos_cnum=param[4], @@ -38970,8 +41453,8 @@ t$2=t$0[3], sexp$2=t$0[2], tag$1=t$0[1], - _Ay_=[0,cst$5,to_strings_hum(t$2,ac$0)], - body=[0,caml_call1(to_string_mach,sexp$2),_Ay_]; + _Au_=[0,cst$5,to_strings_hum(t$2,ac$0)], + body=[0,caml_call1(to_string_mach,sexp$2),_Au_]; return caml_call2(symbol$81,caml_ml_string_length(tag$1),0) ?body :[0,tag$1,[0,cst$6,body]]; @@ -38983,17 +41466,17 @@ var ts$0=ts; else var - _AA_=[0,[1,caml_call2(sprintf,_aD_,n - max | 0)],0], - ts$0=caml_call2(symbol$76,take(ts,max),_AA_); + _Aw_=[0,[1,caml_call2(sprintf,_aD_,n - max | 0)],0], + ts$0=caml_call2(symbol$76,take(ts,max),_Aw_); var ts$1=ts$0} else var ts$1=ts; var - _Az_= + _Av_= function(ac,t) {var ac$0=is_empty(ac)?ac:[0,cst$7,ac]; return to_strings_hum(t,ac$0)}; - return fold$0(rev(ts$1),ac$0,_Az_); + return fold$0(rev(ts$1),ac$0,_Av_); default: var backtrace=t$0[2], @@ -39011,10 +41494,10 @@ case 4: var here=t[3],sexp$0=t[2],tag=t[1]; if(here) - var here$0=here[1],_Aw_=[0,sexp_of_t$20(here$0),0]; + var here$0=here[1],_As_=[0,sexp_of_t$20(here$0),0]; else - var _Aw_=0; - return [0,[1,[0,[0,tag],[0,sexp$0,_Aw_]]],ac]; + var _As_=0; + return [0,[1,[0,[0,tag],[0,sexp$0,_As_]]],ac]; case 5: var t$0=t[2],tag$0=t[1]; return [0,[1,[0,[0,tag$0],to_sexps_hum(t$0,0)]],ac]; @@ -39028,36 +41511,36 @@ ?[0,[1,body],ac] :[0,[1,[0,[0,tag$1],body]],ac]; case 7: - var ts=t[2],_Ax_=function(ac,t){return to_sexps_hum(t,ac)}; - return fold$0(rev(ts),ac,_Ax_); + var ts=t[2],_At_=function(ac,t){return to_sexps_hum(t,ac)}; + return fold$0(rev(ts),ac,_At_); default: var backtrace=t[2],t$2=t[1]; return [0,[1,[0,to_sexp_hum(t$2),[0,[0,backtrace],0]]],ac]}} function to_sexp_hum(t) {var sexps=to_sexps_hum(t,0); - if(sexps)if(! sexps[2]){var sexp=sexps[1];return sexp} + if(sexps && ! sexps[2]){var sexp=sexps[1];return sexp} return [1,sexps]} function protect$0(f) {try - {var _Av_=caml_call1(f,0);return _Av_} + {var _Ar_=caml_call1(f,0);return _Ar_} catch(exn) {exn = caml_wrap_exception(exn);return [0,caml_call1(sexp_of_exn,exn)]}} function to_message(info) {return protect$0 (function(param) - {var _Au_=caml_obj_tag(info); - return 250 === _Au_ + {var _Aq_=caml_obj_tag(info); + return 250 === _Aq_ ?info[1] - :246 === _Au_?caml_call1(CamlinternalLazy[2],info):info})} + :246 === _Aq_?caml_call1(CamlinternalLazy[2],info):info})} function of_message(t){return [250,t]} function invariant(param){return 0} function sexp_of_t$22(t){return to_sexp_hum(to_message(t))} - function t_of_sexp$17(sexp){return [246,function(_At_){return [3,sexp]}]} + function t_of_sexp$17(sexp){return [246,function(_Ap_){return [3,sexp]}]} function compare$27(t1,t2) - {var _As_=sexp_of_t$22(t2);return compare$10(sexp_of_t$22(t1),_As_)} + {var _Ao_=sexp_of_t$22(t2);return compare$10(sexp_of_t$22(t1),_Ao_)} function equal$15(t1,t2) - {var _Ar_=sexp_of_t$22(t2); - return caml_call2(equal$11,sexp_of_t$22(t1),_Ar_)} + {var _An_=sexp_of_t$22(t2); + return caml_call2(equal$11,sexp_of_t$22(t1),_An_)} function hash_fold_t$14(state,t) {return caml_call2(hash_fold_t,state,sexp_of_t$22(t))} function hash$3(t){return run(0,hash_fold_t$14,t)} @@ -39071,48 +41554,48 @@ {return caml_call1(to_string_mach,sexp_of_t$22(t))} function of_lazy(l) {return [246, - function(_Ao_) + function(_Ak_) {return protect$0 (function(param) {var - _Ap_=caml_obj_tag(l), - _Aq_= - 250 === _Ap_ + _Al_=caml_obj_tag(l), + _Am_= + 250 === _Al_ ?l[1] - :246 === _Ap_?caml_call1(CamlinternalLazy[2],l):l; - return [1,_Aq_]})}]} + :246 === _Al_?caml_call1(CamlinternalLazy[2],l):l; + return [1,_Am_]})}]} function of_lazy_t(lazy_t){return caml_call1(join$1,lazy_t)} function of_string$1(message){return caml_call1(from_val,[1,message])} function createf(format){return caml_call2(ksprintf,of_string$1,format)} function of_thunk(f) {return [246, - function(_An_) + function(_Aj_) {return protect$0(function(param){return [1,caml_call1(f,0)]})}]} function create$1(here,strict,tag,x,sexp_of_x) {return strict ?[250,[4,tag,caml_call1(sexp_of_x,x),here]] :[246, - function(_Am_) + function(_Ai_) {return protect$0 (function(param) {return [4,tag,caml_call1(sexp_of_x,x),here]})}]} function create_s$0(sexp){return caml_call1(from_val,[3,sexp])} function tag(t,tag) - {return [246,function(_Al_){return [5,tag,to_message(t)]}]} + {return [246,function(_Ah_){return [5,tag,to_message(t)]}]} function tag_s(t,tag) {return [246, - function(_Ak_) + function(_Ag_) {return protect$0 (function(param){return [6,cst$8,tag,to_message(t)]})}]} function tag_arg(t,tag,x,sexp_of_x) {return [246, - function(_Ai_) + function(_Ae_) {return protect$0 (function(param) - {var _Aj_=to_message(t); - return [6,tag,caml_call1(sexp_of_x,x),_Aj_]})}]} + {var _Af_=to_message(t); + return [6,tag,caml_call1(sexp_of_x,x),_Af_]})}]} function arg(trunc_after,ts) - {return [246,function(_Ah_){return [7,trunc_after,map$6(ts,to_message)]}]} + {return [246,function(_Ad_){return [7,trunc_after,map$6(ts,to_message)]}]} var Exn=[248,cst_Base_Info_Exn,caml_fresh_oo_id(0)]; function _aE_(param) {if(param[1] === Exn){var t=param[2];return sexp_of_t$22(t)} @@ -39121,37 +41604,37 @@ function to_exn(t) {if(caml_call1(is_val,t)) {var - _Af_=caml_obj_tag(t), - _Ag_= - 250 === _Af_?t[1]:246 === _Af_?caml_call1(CamlinternalLazy[2],t):t; - if(2 === _Ag_[0]){var exn=_Ag_[1];return exn} + _Ab_=caml_obj_tag(t), + _Ac_= + 250 === _Ab_?t[1]:246 === _Ab_?caml_call1(CamlinternalLazy[2],t):t; + if(2 === _Ac_[0]){var exn=_Ac_[1];return exn} return [0,Exn,t]} return [0,Exn,t]} function of_exn(backtrace,exn) {if(backtrace) - {var _Aa_=backtrace[1]; - if(typeof _Aa_ === "number") - var _Ab_=[0,caml_call1(Stdlib_printexc[6],0)]; + {var _z8_=backtrace[1]; + if(typeof _z8_ === "number") + var _z9_=[0,caml_call1(Stdlib_printexc[6],0)]; else - var s=_Aa_[2],_Ab_=[0,s]; - var backtrace$0=_Ab_} + var s=_z8_[2],_z9_=[0,s]; + var backtrace$0=_z9_} else var backtrace$0=0; if(exn[1] === Exn) - {var _Ac_=exn[2]; + {var _z__=exn[2]; if(backtrace$0) {var backtrace$1=backtrace$0[1]; - return [246,function(_Ae_){return [8,to_message(_Ac_),backtrace$1]}]} - return _Ac_} + return [246,function(_Aa_){return [8,to_message(_z__),backtrace$1]}]} + return _z__} if(backtrace$0) {var backtrace$2=backtrace$0[1]; return [246, - function(_Ad_) + function(_z$_) {return [8,[3,caml_call1(sexp_of_exn,exn)],backtrace$2]}]} return caml_call1(from_val,[2,exn])} function pp$2(ppf,t) - {var _z$_=to_string_hum$0(t); - return caml_call2(Stdlib_format[13],ppf,_z$_)} + {var _z7_=to_string_hum$0(t); + return caml_call2(Stdlib_format[13],ppf,_z7_)} var include$25=_u_([0,pp$2,module_name$0]), pp$3=include$25[1], @@ -39225,28 +41708,28 @@ caml_register_global(1008,Base_Error,"Base__Error"); function invariant$0(here,t,sexp_of_t,f) {try - {var _z__=caml_call1(f,0);return _z__} + {var _z6_=caml_call1(f,0);return _z6_} catch(exn) {exn = caml_wrap_exception(exn); var - _z8_=[0,[0,cst$9,caml_call1(sexp_of_t,t)],0], - _z9_=[0,[0,cst_exn,caml_call1(sexp_of_exn,exn)],_z8_]; + _z4_=[0,[0,cst$9,caml_call1(sexp_of_t,t)],0], + _z5_=[0,[0,cst_exn,caml_call1(sexp_of_exn,exn)],_z4_]; return raise_s (caml_call2 (message, cst_invariant_failed, - [0,[0,cst$10,sexp_of_t$20(here)],_z9_]))}} + [0,[0,cst$10,sexp_of_t$20(here)],_z5_]))}} function check_field(t,f,field) {try - {var _z7_=caml_call1(f,get(field,t));return _z7_} + {var _z3_=caml_call1(f,get(field,t));return _z3_} catch(exn) {exn = caml_wrap_exception(exn); - var _z6_=[0,[0,cst_exn$0,caml_call1(sexp_of_exn,exn)],0]; + var _z2_=[0,[0,cst_exn$0,caml_call1(sexp_of_exn,exn)],0]; return raise_s (caml_call2 (message, cst_problem_with_field, - [0,[0,cst_field,caml_call1(sexp_of_t$2,field[2])],_z6_]))}} + [0,[0,cst_field,caml_call1(sexp_of_t$2,field[2])],_z2_]))}} var Base_Invariant=[0,invariant$0,check_field]; caml_register_global(1009,Base_Invariant,"Base__Invariant"); var Base_Ppx_enumerate_lib=[0]; @@ -39263,7 +41746,7 @@ l=l$0, acc=acc$0; continue} - var l$1=all_of_a,acc$1=0,_z5_=append$0(rev(acc),_aG_); + var l$1=all_of_a,acc$1=0,_z1_=append$0(rev(acc),_aG_); for(;;) {if(l$1) {var @@ -39273,76 +41756,62 @@ l$1=l$2, acc$1=acc$2; continue} - return append$0(rev(acc$1),_z5_)}}} + return append$0(rev(acc$1),_z1_)}}} function t_of_sexp$18(of_a,sexp) {if(0 === sexp[0]) - {var _z1_=sexp[1]; - if(caml_string_notequal(_z1_,cst_Excl)) - {if(caml_string_notequal(_z1_,cst_Incl)) - {if(caml_string_notequal(_z1_,cst_Unbounded)) - if(caml_string_notequal(_z1_,cst_excl)) - if(caml_string_notequal(_z1_,cst_incl)) - if(caml_string_notequal(_z1_,cst_unbounded)) - var switch$0=1,switch$1=0,switch$2=0; - else - var switch$2=1; + {var _zX_=sexp[1],switch$0=0; + if(caml_string_notequal(_zX_,cst_Excl)) + {var switch$1=0; + if(caml_string_notequal(_zX_,cst_Incl)) + {var switch$2=0; + if(caml_string_notequal(_zX_,cst_Unbounded)) + if(caml_string_notequal(_zX_,cst_excl)) + if(caml_string_notequal(_zX_,cst_incl)) + {if(caml_string_notequal(_zX_,cst_unbounded)) + {switch$0 = 1;switch$1 = 1;switch$2 = 1}} else - var switch$1=1,switch$2=0; + switch$2 = 1; else - var switch$0=0,switch$1=0,switch$2=0; - else - var switch$2=1; - if(switch$2)return 0} - else - var switch$1=1; - if(switch$1) + {switch$1 = 1;switch$2 = 1} + if(! switch$2)return 0} + if(! switch$1) return caml_call2(Sexplib0_Sexp_conv_error[5],tp_loc$3,sexp)} - else - var switch$0=0; if(! switch$0) return caml_call2(Sexplib0_Sexp_conv_error[5],tp_loc$3,sexp)} else - {var _z2_=sexp[1]; - if(! _z2_) + {var _zY_=sexp[1]; + if(! _zY_) return caml_call2(Sexplib0_Sexp_conv_error[7],tp_loc$3,sexp); - var _z3_=_z2_[1]; - if(0 !== _z3_[0]) + var _zZ_=_zY_[1]; + if(0 !== _zZ_[0]) return caml_call2(Sexplib0_Sexp_conv_error[6],tp_loc$3,sexp); - var _z4_=_z3_[1]; - if(caml_string_notequal(_z4_,cst_Excl$0)) - {if(caml_string_notequal(_z4_,cst_Incl$0)) - {if(caml_string_notequal(_z4_,cst_Unbounded$0)) - if(caml_string_notequal(_z4_,cst_excl$0)) - if(caml_string_notequal(_z4_,cst_incl$0)) - if(caml_string_notequal(_z4_,cst_unbounded$0)) - var switch$3=1,switch$4=0,switch$5=0; - else - var switch$5=1; + var _z0_=_zZ_[1],switch$3=0; + if(caml_string_notequal(_z0_,cst_Excl$0)) + {var switch$4=0; + if(caml_string_notequal(_z0_,cst_Incl$0)) + {var switch$5=0; + if(caml_string_notequal(_z0_,cst_Unbounded$0)) + if(caml_string_notequal(_z0_,cst_excl$0)) + if(caml_string_notequal(_z0_,cst_incl$0)) + {if(caml_string_notequal(_z0_,cst_unbounded$0)) + {switch$3 = 1;switch$4 = 1;switch$5 = 1}} else - var switch$4=1,switch$5=0; + switch$5 = 1; else - var switch$3=0,switch$4=0,switch$5=0; - else - var switch$5=1; - if(switch$5) + {switch$4 = 1;switch$5 = 1} + if(! switch$5) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$3,sexp)} - else - var switch$4=1; - if(switch$4) - {var sexp_args=_z2_[2]; - if(sexp_args) - if(! sexp_args[2]) - {var v0=sexp_args[1],v0$0=caml_call1(of_a,v0);return [0,v0$0]} - return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$3,_z4_,sexp)}} - else - var switch$3=0; + if(! switch$4) + {var sexp_args=_zY_[2]; + if(sexp_args && ! sexp_args[2]) + {var v0=sexp_args[1],v0$0=caml_call1(of_a,v0);return [0,v0$0]} + return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$3,_z0_,sexp)}} if(! switch$3) - {var sexp_args$0=_z2_[2]; - if(sexp_args$0) - if(! sexp_args$0[2]) - {var v0$1=sexp_args$0[1],v0$2=caml_call1(of_a,v0$1); - return [1,v0$2]} - return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$3,_z4_,sexp)}} + {var sexp_args$0=_zY_[2]; + if(sexp_args$0 && ! sexp_args$0[2]) + {var v0$1=sexp_args$0[1],v0$2=caml_call1(of_a,v0$1); + return [1,v0$2]} + return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$3,_z0_,sexp)}} return caml_call2(Sexplib0_Sexp_conv_error[8],tp_loc$3,sexp)} function sexp_of_t$23(of_a,param) {if(typeof param === "number") @@ -39355,60 +41824,48 @@ return [1,[0,_aJ_,[0,v0$2,0]]]}} function interval_comparison_of_sexp(sexp) {if(0 === sexp[0]) - {var _zX_=sexp[1]; - if(caml_string_notequal(_zX_,cst_Above_upper_bound)) - {if(caml_string_notequal(_zX_,cst_Below_lower_bound)) - {if(caml_string_notequal(_zX_,cst_In_range)) - if(caml_string_notequal(_zX_,cst_above_upper_bound)) - if(caml_string_notequal(_zX_,cst_below_lower_bound)) - if(caml_string_notequal(_zX_,cst_in_range)) - var switch$0=1,switch$1=0,switch$2=0; - else - var switch$2=1; + {var _zT_=sexp[1],switch$0=0; + if(caml_string_notequal(_zT_,cst_Above_upper_bound)) + {var switch$1=0; + if(caml_string_notequal(_zT_,cst_Below_lower_bound)) + {var switch$2=0; + if(caml_string_notequal(_zT_,cst_In_range)) + if(caml_string_notequal(_zT_,cst_above_upper_bound)) + if(caml_string_notequal(_zT_,cst_below_lower_bound)) + {if(caml_string_notequal(_zT_,cst_in_range)) + {switch$0 = 1;switch$1 = 1;switch$2 = 1}} else - var switch$1=1,switch$2=0; + switch$2 = 1; else - var switch$0=0,switch$1=0,switch$2=0; - else - var switch$2=1; - if(switch$2)return 1} - else - var switch$1=1; - if(switch$1)return 0} - else - var switch$0=0; + {switch$1 = 1;switch$2 = 1} + if(! switch$2)return 1} + if(! switch$1)return 0} if(! switch$0)return 2} else - {var _zY_=sexp[1]; - if(! _zY_) + {var _zU_=sexp[1]; + if(! _zU_) return caml_call2(Sexplib0_Sexp_conv_error[7],tp_loc$4,sexp); - var _zZ_=_zY_[1]; - if(0 !== _zZ_[0]) + var _zV_=_zU_[1]; + if(0 !== _zV_[0]) return caml_call2(Sexplib0_Sexp_conv_error[6],tp_loc$4,sexp); - var _z0_=_zZ_[1]; - if(caml_string_notequal(_z0_,cst_Above_upper_bound$0)) - {if(caml_string_notequal(_z0_,cst_Below_lower_bound$0)) - {if(caml_string_notequal(_z0_,cst_In_range$0)) - if(caml_string_notequal(_z0_,cst_above_upper_bound$0)) - if(caml_string_notequal(_z0_,cst_below_lower_bound$0)) - if(caml_string_notequal(_z0_,cst_in_range$0)) - var switch$3=1,switch$4=0,switch$5=0; - else - var switch$5=1; + var _zW_=_zV_[1],switch$3=0; + if(caml_string_notequal(_zW_,cst_Above_upper_bound$0)) + {var switch$4=0; + if(caml_string_notequal(_zW_,cst_Below_lower_bound$0)) + {var switch$5=0; + if(caml_string_notequal(_zW_,cst_In_range$0)) + if(caml_string_notequal(_zW_,cst_above_upper_bound$0)) + if(caml_string_notequal(_zW_,cst_below_lower_bound$0)) + {if(caml_string_notequal(_zW_,cst_in_range$0)) + {switch$3 = 1;switch$4 = 1;switch$5 = 1}} else - var switch$4=1,switch$5=0; + switch$5 = 1; else - var switch$3=0,switch$4=0,switch$5=0; - else - var switch$5=1; - if(switch$5) + {switch$4 = 1;switch$5 = 1} + if(! switch$5) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$4,sexp)} - else - var switch$4=1; - if(switch$4) + if(! switch$4) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$4,sexp)} - else - var switch$3=0; if(! switch$3) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$4,sexp)} return caml_call2(Sexplib0_Sexp_conv_error[8],tp_loc$4,sexp)} @@ -39457,9 +41914,7 @@ return caml_call2(symbol$82,caml_call2(compare,lower$0,upper$0),0)} function compare_to_interval_exn(lower,upper,a,compare) {if(bounds_crossed(lower,upper,compare)) - caml_call1 - (failwith$0, - cst_Maybe_bound_compare_to_interval_exn_lower_bound_upper_bound); + caml_call1(failwith$0,cst_Maybe_bound_compare_to_int); return is_lower_bound(lower,a,compare) ?is_upper_bound(upper,a,compare)?1:2 :0} @@ -39495,8 +41950,8 @@ function invariant$1(invariant_a,t) {if(0 === t[0]){var a=t[1];return caml_call1(invariant_a,a)}return 0} function apply(f,x) - {function _zW_(e1,e2){return arg(0,[0,e1,[0,e2,0]])} - return combine(f,x,function(f,x){return caml_call1(f,x)},_zW_)} + {function _zS_(e1,e2){return arg(0,[0,e1,[0,e2,0]])} + return combine(f,x,function(f,x){return caml_call1(f,x)},_zS_)} var map$11=[0,-198771759,map$3], include$28=Make$0([0,return$3,apply,map$11]), @@ -39519,11 +41974,11 @@ function try_with$0(opt,f) {if(opt)var sth=opt[1],backtrace=sth;else var backtrace=0; try - {var _zV_=[0,caml_call1(f,0)];return _zV_} + {var _zR_=[0,caml_call1(f,0)];return _zR_} catch(exn) {exn = caml_wrap_exception(exn); - var _zU_=backtrace?_aN_:0; - return [1,of_exn(_zU_,exn)]}} + var _zQ_=backtrace?_aN_:0; + return [1,of_exn(_zQ_,exn)]}} function try_with_join(backtrace,f) {return caml_call1(join$0,try_with$0(backtrace,f))} function ok_exn$0(param) @@ -39539,19 +41994,19 @@ function error_string(message){return [1,of_string$1(message)]} function errorf(format){return caml_call2(ksprintf,error_string,format)} function tag$0(t,tag$0) - {return map_error(t,function(_zT_){return tag(_zT_,tag$0)})} + {return map_error(t,function(_zP_){return tag(_zP_,tag$0)})} function tag_s$0(t,tag) - {return map_error(t,function(_zS_){return tag_s(_zS_,tag)})} + {return map_error(t,function(_zO_){return tag_s(_zO_,tag)})} function tag_arg$0(t,message,a,sexp_of_a) {return map_error(t,function(e){return tag_arg(e,message,a,sexp_of_a)})} function unimplemented(s) {return error$0(0,cst_unimplemented,s,sexp_of_t$2)} function combine_errors$0(l) - {function _zR_(eta){return arg(0,eta)} - return map_error(combine_errors(l),_zR_)} + {function _zN_(eta){return arg(0,eta)} + return map_error(combine_errors(l),_zN_)} function combine_errors_unit$0(l) - {function _zQ_(param){return 0} - return caml_call2(map$3,combine_errors$0(l),_zQ_)} + {function _zM_(param){return 0} + return caml_call2(map$3,combine_errors$0(l),_zM_)} function filter_ok_at_least_one(l) {var match=partition_map(l,ok_fst),errs=match[2],ok=match[1]; return ok?[0,ok]:[1,arg(0,errs)]} @@ -39637,8 +42092,8 @@ find_ok, find_map_ok]; caml_register_global(1012,Base_Or_error,"Base__Or_error"); - function stage(_zP_){return _zP_} - function unstage(_zO_){return _zO_} + function stage(_zL_){return _zL_} + function unstage(_zK_){return _zK_} var Base_Staged=[0,stage,unstage]; caml_register_global(1013,Base_Staged,"Base__Staged"); var pass=0; @@ -39662,17 +42117,17 @@ function pass_unit(param){return pass} function protect$1(f,v) {try - {var _zN_=caml_call1(f,v);return _zN_} + {var _zJ_=caml_call1(f,v);return _zJ_} catch(exn) {exn = caml_wrap_exception(exn); return fail_s (caml_call2 (message, - cst_Exception_raised_during_validation, + cst_Exception_raised_during_va, [0,[0,cst$11,caml_call1(sexp_of_exn,exn)],0]))}} function try_with$1(f) - {var _zM_=0; - return protect$1(function(param){caml_call1(f,0);return pass},_zM_)} + {var _zI_=0; + return protect$1(function(param){caml_call1(f,0);return pass},_zI_)} function path_string(path){return concat$0(_aP_,path)} function errors(t) {return map$6 @@ -39683,7 +42138,7 @@ function result(t) {if(is_empty(t))return _aQ_; var - _zL_= + _zH_= caml_call1 (sexp_of_t$10,caml_call2(sexp_of_pair,sexp_of_t$2,sexp_of_t$22)); return error$0 @@ -39694,11 +42149,11 @@ function(param) {var error=param[2],path=param[1]; return [0,path_string(path),error]}), - _zL_)} + _zH_)} function maybe_raise(t){return ok_exn$0(result(t))} function valid_or_error(x,check) - {function _zK_(param){return x} - return caml_call2(map$3,result(protect$1(check,x)),_zK_)} + {function _zG_(param){return x} + return caml_call2(map$3,result(protect$1(check,x)),_zG_)} function field(record,fld,f) {var v=get(fld,record),result=protect$1(f,v); return name$0(fld[2],result)} @@ -39719,35 +42174,35 @@ continue} return of_list$1(rev(errs))}} function of_result(f) - {function _zI_(v) + {function _zE_(v) {var match=caml_call1(f,v); if(0 === match[0])return pass; var error=match[1]; return fail$0(error)} - return function(_zJ_){return protect$1(_zI_,_zJ_)}} + return function(_zF_){return protect$1(_zE_,_zF_)}} function of_error(f) - {function _zG_(v) + {function _zC_(v) {var match=caml_call1(f,v); if(0 === match[0])return pass; var error=match[1]; return [0,[0,0,error],0]} - return function(_zH_){return protect$1(_zG_,_zH_)}} + return function(_zD_){return protect$1(_zC_,_zD_)}} function booltest(f,if_false) - {function _zE_(v){return caml_call1(f,v)?pass:fail$0(if_false)} - return function(_zF_){return protect$1(_zE_,_zF_)}} + {function _zA_(v){return caml_call1(f,v)?pass:fail$0(if_false)} + return function(_zB_){return protect$1(_zA_,_zB_)}} function pair(fst,snd,param) {var snd_value=param[2], fst_value=param[1], - _zD_=[0,name$0(cst_snd,protect$1(snd,snd_value)),0]; - return of_list$1([0,name$0(cst_fst,protect$1(fst,fst_value)),_zD_])} + _zz_=[0,name$0(cst_snd,protect$1(snd,snd_value)),0]; + return of_list$1([0,name$0(cst_fst,protect$1(fst,fst_value)),_zz_])} function list_indexed(check,list) {return of_list$1 (mapi$0 (list, function(i,el) - {var _zC_=protect$1(check,el); - return name$0(caml_call1(to_string,i + 1 | 0),_zC_)}))} + {var _zy_=protect$1(check,el); + return name$0(caml_call1(to_string,i + 1 | 0),_zy_)}))} function list(extract_name,check,list) {return of_list$1 (map$6 @@ -39760,10 +42215,10 @@ t) :0}))} function alist(name,f,list$0) - {function _zB_(param){var x=param[2];return caml_call1(f,x)} + {function _zx_(param){var x=param[2];return caml_call1(f,x)} return list (function(param){var key=param[1];return caml_call1(name,key)}, - _zB_, + _zx_, list$0)} function first_failure(t1,t2){return is_empty(t1)?t2:t1} function of_error_opt(param) @@ -39776,20 +42231,20 @@ throw [0,Assert_failure,_aR_]; else {if(0 === lower[0]) - {var incl=lower[1],_zx_=caml_call1(name,incl); - return fail$0(caml_call3(sprintf,_aS_,caml_call1(name,x),_zx_))} - var excl=lower[1],_zy_=caml_call1(name,excl); - return fail$0(caml_call3(sprintf,_aT_,caml_call1(name,x),_zy_))} + {var incl=lower[1],_zt_=caml_call1(name,incl); + return fail$0(caml_call3(sprintf,_aS_,caml_call1(name,x),_zt_))} + var excl=lower[1],_zu_=caml_call1(name,excl); + return fail$0(caml_call3(sprintf,_aT_,caml_call1(name,x),_zu_))} case 1:return pass; default: if(typeof upper === "number") throw [0,Assert_failure,_aU_]; else {if(0 === upper[0]) - {var incl$0=upper[1],_zz_=caml_call1(name,incl$0); - return fail$0(caml_call3(sprintf,_aV_,caml_call1(name,x),_zz_))} - var excl$0=upper[1],_zA_=caml_call1(name,excl$0); - return fail$0(caml_call3(sprintf,_aW_,caml_call1(name,x),_zA_))}}} + {var incl$0=upper[1],_zv_=caml_call1(name,incl$0); + return fail$0(caml_call3(sprintf,_aV_,caml_call1(name,x),_zv_))} + var excl$0=upper[1],_zw_=caml_call1(name,excl$0); + return fail$0(caml_call3(sprintf,_aW_,caml_call1(name,x),_zw_))}}} function symbol$87(t1,t2){return combine$0(t1,t2)} var Infix$0=[0,symbol$87], @@ -39833,60 +42288,48 @@ caml_register_global(1015,Base_Comparisons,"Base__Comparisons"); function t_of_sexp$20(sexp) {if(0 === sexp[0]) - {var _zt_=sexp[1]; - if(caml_string_notequal(_zt_,cst_Neg)) - {if(caml_string_notequal(_zt_,cst_Pos)) - {if(caml_string_notequal(_zt_,cst_Zero)) - if(caml_string_notequal(_zt_,cst_neg)) - if(caml_string_notequal(_zt_,cst_pos)) - if(caml_string_notequal(_zt_,cst_zero)) - var switch$0=1,switch$1=0,switch$2=0; - else - var switch$2=1; + {var _zp_=sexp[1],switch$0=0; + if(caml_string_notequal(_zp_,cst_Neg)) + {var switch$1=0; + if(caml_string_notequal(_zp_,cst_Pos)) + {var switch$2=0; + if(caml_string_notequal(_zp_,cst_Zero)) + if(caml_string_notequal(_zp_,cst_neg)) + if(caml_string_notequal(_zp_,cst_pos)) + {if(caml_string_notequal(_zp_,cst_zero)) + {switch$0 = 1;switch$1 = 1;switch$2 = 1}} else - var switch$1=1,switch$2=0; + switch$2 = 1; else - var switch$0=0,switch$1=0,switch$2=0; - else - var switch$2=1; - if(switch$2)return 1} - else - var switch$1=1; - if(switch$1)return 2} - else - var switch$0=0; + {switch$1 = 1;switch$2 = 1} + if(! switch$2)return 1} + if(! switch$1)return 2} if(! switch$0)return 0} else - {var _zu_=sexp[1]; - if(! _zu_) + {var _zq_=sexp[1]; + if(! _zq_) return caml_call2(Sexplib0_Sexp_conv_error[7],tp_loc$5,sexp); - var _zv_=_zu_[1]; - if(0 !== _zv_[0]) + var _zr_=_zq_[1]; + if(0 !== _zr_[0]) return caml_call2(Sexplib0_Sexp_conv_error[6],tp_loc$5,sexp); - var _zw_=_zv_[1]; - if(caml_string_notequal(_zw_,cst_Neg$0)) - {if(caml_string_notequal(_zw_,cst_Pos$0)) - {if(caml_string_notequal(_zw_,cst_Zero$0)) - if(caml_string_notequal(_zw_,cst_neg$0)) - if(caml_string_notequal(_zw_,cst_pos$0)) - if(caml_string_notequal(_zw_,cst_zero$0)) - var switch$3=1,switch$4=0,switch$5=0; - else - var switch$5=1; + var _zs_=_zr_[1],switch$3=0; + if(caml_string_notequal(_zs_,cst_Neg$0)) + {var switch$4=0; + if(caml_string_notequal(_zs_,cst_Pos$0)) + {var switch$5=0; + if(caml_string_notequal(_zs_,cst_Zero$0)) + if(caml_string_notequal(_zs_,cst_neg$0)) + if(caml_string_notequal(_zs_,cst_pos$0)) + {if(caml_string_notequal(_zs_,cst_zero$0)) + {switch$3 = 1;switch$4 = 1;switch$5 = 1}} else - var switch$4=1,switch$5=0; + switch$5 = 1; else - var switch$3=0,switch$4=0,switch$5=0; - else - var switch$5=1; - if(switch$5) + {switch$4 = 1;switch$5 = 1} + if(! switch$5) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$5,sexp)} - else - var switch$4=1; - if(switch$4) + if(! switch$4) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$5,sexp)} - else - var switch$3=0; if(! switch$3) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$5,sexp)} return caml_call2(Sexplib0_Sexp_conv_error[8],tp_loc$5,sexp)} @@ -40004,7 +42447,7 @@ function max(t$0,t){return max$14(compare,t$0,t)} function descending(t$0,t){return caml_call2(compare,t,t$0)} function between(t,low,high) - {var _zs_=symbol$2(low,t);return _zs_?symbol$2(t,high):_zs_} + {var _zo_=symbol$2(low,t);return _zo_?symbol$2(t,high):_zo_} function clamp_unchecked(t,min,max) {return symbol$0(t,min)?min:symbol$2(t,max)?t:max} function clamp_exn(t,min,max) @@ -40012,12 +42455,12 @@ throw [0,Assert_failure,_a1_]} function clamp(t,min,max) {if(symbol(min,max)) - {var _zr_=[0,[0,cst_max$0,caml_call1(sexp_of_t,max)],0]; + {var _zn_=[0,[0,cst_max$0,caml_call1(sexp_of_t,max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max$0, - [0,[0,cst_min$0,caml_call1(sexp_of_t,min)],_zr_]))} + [0,[0,cst_min$0,caml_call1(sexp_of_t,min)],_zn_]))} return [0,clamp_unchecked(t,min,max)]} var include=Validate([0,compare,sexp_of_t]), @@ -40050,8 +42493,8 @@ function Inherit(C,T) {var sexp_of_t=T[1]; function compare(t$0,t) - {var _zp_=caml_call1(T[2],t),_zq_=caml_call1(T[2],t$0); - return caml_call2(C[1],_zq_,_zp_)} + {var _zl_=caml_call1(T[2],t),_zm_=caml_call1(T[2],t$0); + return caml_call2(C[1],_zm_,_zl_)} return Make$1([0,compare,sexp_of_t])} function lexicographic(param,x,y) {var param$0=param; @@ -40062,7 +42505,7 @@ return res} return 0}} function lift(cmp,f,x,y) - {var _zo_=caml_call1(f,y);return caml_call2(cmp,caml_call1(f,x),_zo_)} + {var _zk_=caml_call1(f,y);return caml_call2(cmp,caml_call1(f,x),_zk_)} function reverse(cmp,x,y){return caml_call2(cmp,y,x)} function _a2_(T) {var @@ -40107,18 +42550,18 @@ is_negative, is_non_positive, sign]} - function _a3_(_zm_) - {var _zn_=With_zero(_zm_); + function _a3_(_zi_) + {var _zj_=With_zero(_zi_); return [0, - _zn_[3], - _zn_[4], - _zn_[5], - _zn_[6], - _zn_[7], - _zn_[8], - _zn_[9], - _zn_[10], - _zn_[11]]} + _zj_[3], + _zj_[4], + _zj_[5], + _zj_[6], + _zj_[7], + _zj_[8], + _zj_[9], + _zj_[10], + _zj_[11]]} var Base_Comparable= [0, @@ -40135,9 +42578,9 @@ {var sexp_of_t=T[1]; function between(t,low,high) {var - _zk_=caml_lessequal(low,t), - _zl_=_zk_?caml_lessequal(t,high):_zk_; - return _zl_} + _zg_=caml_lessequal(low,t), + _zh_=_zg_?caml_lessequal(t,high):_zg_; + return _zh_} function clamp_unchecked(t,min,max) {return caml_lessthan(t,min)?min:caml_lessequal(t,max)?t:max} function clamp_exn(t,min,max) @@ -40145,12 +42588,12 @@ throw [0,Assert_failure,_a0_]} function clamp(t,min,max) {if(caml_greaterthan(min,max)) - {var _zj_=[0,[0,cst_max,caml_call1(T[1],max)],0]; + {var _zf_=[0,[0,cst_max,caml_call1(T[1],max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max, - [0,[0,cst_min,caml_call1(T[1],min)],_zj_]))} + [0,[0,cst_min,caml_call1(T[1],min)],_zf_]))} return [0,clamp_unchecked(t,min,max)]} var sexp_of_t$0=T[1], @@ -40193,26 +42636,26 @@ sexp_of_t=T[5], of_string=T[7], to_string=T[8], - _zi_=Make_using_comparator([0,T[5],T[6]]), - symbol=_zi_[1], - symbol$0=_zi_[2], - symbol$1=_zi_[3], - symbol$2=_zi_[4], - symbol$3=_zi_[5], - symbol$4=_zi_[6], - equal=_zi_[7], - compare=_zi_[8], - min=_zi_[9], - max=_zi_[10], - ascending=_zi_[11], - descending=_zi_[12], - between=_zi_[13], - clamp_exn=_zi_[14], - clamp=_zi_[15], - comparator=_zi_[16], - validate_lbound=_zi_[17], - validate_ubound=_zi_[18], - validate_bound=_zi_[19], + _ze_=Make_using_comparator([0,T[5],T[6]]), + symbol=_ze_[1], + symbol$0=_ze_[2], + symbol$1=_ze_[3], + symbol$2=_ze_[4], + symbol$3=_ze_[5], + symbol$4=_ze_[6], + equal=_ze_[7], + compare=_ze_[8], + min=_ze_[9], + max=_ze_[10], + ascending=_ze_[11], + descending=_ze_[12], + between=_ze_[13], + clamp_exn=_ze_[14], + clamp=_ze_[15], + comparator=_ze_[16], + validate_lbound=_ze_[17], + validate_ubound=_ze_[18], + validate_bound=_ze_[19], include=_v_([0,T[9],T[8]]), pp=include[1]; return [0, @@ -40250,26 +42693,26 @@ sexp_of_t=T[5], of_string=T[6], to_string=T[7], - _zh_=Make$1([0,T[1],T[5]]), - symbol=_zh_[1], - symbol$0=_zh_[2], - symbol$1=_zh_[3], - symbol$2=_zh_[4], - symbol$3=_zh_[5], - symbol$4=_zh_[6], - equal=_zh_[7], - compare=_zh_[8], - min=_zh_[9], - max=_zh_[10], - ascending=_zh_[11], - descending=_zh_[12], - between=_zh_[13], - clamp_exn=_zh_[14], - clamp=_zh_[15], - comparator=_zh_[16], - validate_lbound=_zh_[17], - validate_ubound=_zh_[18], - validate_bound=_zh_[19], + _zd_=Make$1([0,T[1],T[5]]), + symbol=_zd_[1], + symbol$0=_zd_[2], + symbol$1=_zd_[3], + symbol$2=_zd_[4], + symbol$3=_zd_[5], + symbol$4=_zd_[6], + equal=_zd_[7], + compare=_zd_[8], + min=_zd_[9], + max=_zd_[10], + ascending=_zd_[11], + descending=_zd_[12], + between=_zd_[13], + clamp_exn=_zd_[14], + clamp=_zd_[15], + comparator=_zd_[16], + validate_lbound=_zd_[17], + validate_ubound=_zd_[18], + validate_bound=_zd_[19], include=_v_([0,T[8],T[7]]), pp=include[1]; return [0, @@ -40302,10 +42745,10 @@ var Base_Identifiable=[0,_a5_,_a4_]; caml_register_global(1019,Base_Identifiable,"Base__Identifiable"); function hash$4(x){return caml_call1(func$7,x)} - function compare$31(param,_zg_){return 0} + function compare$31(param,_zc_){return 0} function of_string$3(param) {return caml_string_notequal(param,cst$12) - ?caml_call1(failwith$0,cst_Base_Unit_of_string_expected) + ?caml_call1(failwith$0,cst_Base_Unit_of_string_expect) :0} function to_string$4(param){return cst$13} var @@ -40382,13 +42825,13 @@ function slow_check_pos_len_exn(pos,len,total_length) {if(caml_call2(symbol$78,pos,0))caml_call2(invalid_argf(_a6_),pos,0); if(caml_call2(symbol$78,len,0))caml_call2(invalid_argf(_a7_),len,0); - var _zf_=caml_call2(symbol$82,pos,total_length - len | 0); - return _zf_?caml_call4(invalid_argf(_a8_),pos,len,total_length,0):_zf_} + var _zb_=caml_call2(symbol$82,pos,total_length - len | 0); + return _zb_?caml_call4(invalid_argf(_a8_),pos,len,total_length,0):_zb_} function check_pos_len_exn(pos,len,total_length) {var stop=pos + len | 0, - _ze_=caml_call2(symbol$78,pos | len | stop | total_length - stop | 0,0); - return _ze_?slow_check_pos_len_exn(pos,len,total_length):_ze_} + _za_=caml_call2(symbol$78,pos | len | stop | total_length - stop | 0,0); + return _za_?slow_check_pos_len_exn(pos,len,total_length):_za_} function get_pos_len_exn(opt,len,param,total_length) {if(opt)var sth=opt[1],pos=sth;else var pos=0; if(len)var i=len[1],len$0=i;else var len$0=total_length - pos | 0; @@ -40396,7 +42839,7 @@ return [0,pos,len$0]} function get_pos_len(pos,len,param,total_length) {try - {var _zd_=[0,get_pos_len_exn(pos,len,0,total_length)];return _zd_} + {var _y$_=[0,get_pos_len_exn(pos,len,0,total_length)];return _y$_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Stdlib[6]){var s=exn[2];return error_string(s)} @@ -40441,7 +42884,7 @@ t, get, length, - function(_zc_){return non(pred,_zc_)}); + function(_y__){return non(pred,_y__)}); if(match$0) {var i=match$0[1];return caml_call2(symbol$81,i,pos$0)?0:[0,i - 1 | 0]} return [0,(pos$0 + len$0 | 0) - 1 | 0]} @@ -40534,14 +42977,14 @@ {return binary_search_segmented(pos,len,t,length,get,segment_of,how)} return [0,get,length,binary_search$0,binary_search_segmented$0]} function _a9_(T) - {var get=T[1],length=T[2],_zb_=Make_gen$0([0,get,length]); - return [0,_zb_[3],_zb_[4]]} + {var get=T[1],length=T[2],_y9_=Make_gen$0([0,get,length]); + return [0,_y9_[3],_y9_[4]]} var Base_Binary_searchable= [0, function(T) - {var get=T[1],length=T[2],_za_=Make_gen$0([0,get,length]); - return [0,_za_[3],_za_[4]]}, + {var get=T[1],length=T[2],_y8_=Make_gen$0([0,get,length]); + return [0,_y8_[3],_y8_[4]]}, _a9_]; caml_register_global (1024,Base_Binary_searchable,"Base__Binary_searchable"); @@ -40565,7 +43008,7 @@ to_string$6=Stdlib_bytesLabels[6], of_string$5=Stdlib_bytesLabels[5]; function unsafe_to_string(s){return caml_call1(Stdlib_bytesLabels[73],s)} - var unsafe_of_string_promise_no_mutation=Stdlib_bytesLabels[74]; + var unsafe_of_string_promise_no_mu=Stdlib_bytesLabels[74]; function blit_string$0(src,src_pos,dst,dst_pos,len) {return caml_call5(blit_string,src,src_pos,dst,dst_pos,len)} var @@ -40587,7 +43030,7 @@ to_string$6, of_string$5, unsafe_to_string, - unsafe_of_string_promise_no_mutation, + unsafe_of_string_promise_no_mu, blit_string$0]; caml_register_global(1028,include$30,"Base__Bytes0"); function Make_gen$1(Src,Dst) @@ -40595,15 +43038,15 @@ function blit(src,src_pos,dst,dst_pos,len) {check_pos_len_exn(src_pos,len,caml_call1(Src[1],src)); check_pos_len_exn(dst_pos,len,caml_call1(Dst[1],dst)); - var _y$_=caml_call2(symbol$82,len,0); - return _y$_?caml_call5(unsafe_blit,src,src_pos,dst,dst_pos,len):_y$_} - function blito(src,opt,_y__,dst,_y9_,param) + var _y7_=caml_call2(symbol$82,len,0); + return _y7_?caml_call5(unsafe_blit,src,src_pos,dst,dst_pos,len):_y7_} + function blito(src,opt,_y6_,dst,_y5_,param) {if(opt)var sth=opt[1],src_pos=sth;else var src_pos=0; - if(_y__) - var sth$0=_y__[1],src_len=sth$0; + if(_y6_) + var sth$0=_y6_[1],src_len=sth$0; else var src_len=caml_call1(Src[1],src) - src_pos | 0; - if(_y9_)var sth$1=_y9_[1],dst_pos=sth$1;else var dst_pos=0; + if(_y5_)var sth$1=_y5_[1],dst_pos=sth$1;else var dst_pos=0; return blit(src,src_pos,dst,dst_pos,src_len)} function sub(src,pos,len) {check_pos_len_exn(pos,len,caml_call1(Src[1],src)); @@ -40625,20 +43068,20 @@ function subo(pos,len,src) {return unsafe_to_string(caml_call3(To_bytes[5],pos,len,src))} return [0,sub,subo]} - function _a__(_y7_) - {var _y8_=Make_gen$1([0,_y7_[2]],[0,_y7_[2],_y7_[1],_y7_[3]]); - return [0,_y8_[2],_y8_[3],_y8_[1],_y8_[4],_y8_[5]]} - function _a$_(_y4_) - {var _y5_=[0,_y4_[2],_y4_[1],_y4_[3]],_y6_=Make_gen$1([0,_y5_[1]],_y5_); - return [0,_y6_[2],_y6_[3],_y6_[1],_y6_[4],_y6_[5]]} + function _a__(_y3_) + {var _y4_=Make_gen$1([0,_y3_[2]],[0,_y3_[2],_y3_[1],_y3_[3]]); + return [0,_y4_[2],_y4_[3],_y4_[1],_y4_[4],_y4_[5]]} + function _a$_(_y0_) + {var _y1_=[0,_y0_[2],_y0_[1],_y0_[3]],_y2_=Make_gen$1([0,_y1_[1]],_y1_); + return [0,_y2_[2],_y2_[3],_y2_[1],_y2_[4],_y2_[5]]} function _ba_(Src,Dst) {var length=Dst[1]; function create_like(len,param){return caml_call1(Dst[2],len)} var unsafe_blit=Dst[3], length$0=Src[1], - _y3_=Make_gen$1([0,length$0],[0,length,create_like,unsafe_blit]); - return [0,_y3_[2],_y3_[3],_y3_[1],_y3_[4],_y3_[5]]} + _yZ_=Make_gen$1([0,length$0],[0,length,create_like,unsafe_blit]); + return [0,_yZ_[2],_yZ_[3],_yZ_[1],_yZ_[4],_yZ_[5]]} function _bb_(Sequence) {function create_like(len,param){return caml_call1(Sequence[2],len)} var @@ -40662,30 +43105,30 @@ function iter$4(o,f){if(o){var a=o[1];return caml_call1(f,a)}return 0} function invariant$3(f,t){return iter$4(t,f)} function map2$1(o1,match,f) - {if(o1)if(match){var a2=match[1],a1=o1[1];return [0,caml_call2(f,a1,a2)]} + {if(o1 && match){var a2=match[1],a1=o1[1];return [0,caml_call2(f,a1,a2)]} return 0} function call(x,f){if(f){var f$0=f[1];return caml_call1(f$0,x)}return 0} function value(t,default$0){if(t){var x=t[1];return x}return default$0} function value_exn(here,error,match,t) {if(t){var x=t[1];return x} if(here) - {var _yY_=here[1]; + {var _yU_=here[1]; if(error) var e=error[1], - _yZ_=caml_call2(sexp_of_pair,sexp_of_t$22,sexp_of_t$20), - _y0_=create$1(0,0,value(match,cst$14),[0,e,_yY_],_yZ_); + _yV_=caml_call2(sexp_of_pair,sexp_of_t$22,sexp_of_t$20), + _yW_=create$1(0,0,value(match,cst$14),[0,e,_yU_],_yV_); else if(match) - var m=match[1],_y0_=create$1(0,0,m,_yY_,sexp_of_t$20); + var m=match[1],_yW_=create$1(0,0,m,_yU_,sexp_of_t$20); else - var _y0_=create$1(0,0,cst_Option_value_exn,_yY_,sexp_of_t$20); - var error$0=_y0_} + var _yW_=create$1(0,0,cst_Option_value_exn,_yU_,sexp_of_t$20); + var error$0=_yW_} else if(error) - {var _y1_=error[1]; - if(match)var m$0=match[1],_y2_=tag(_y1_,m$0);else var _y2_=_y1_; - var error$0=_y2_} + {var _yX_=error[1]; + if(match)var m$0=match[1],_yY_=tag(_yX_,m$0);else var _yY_=_yX_; + var error$0=_yY_} else if(match) var m$1=match[1],error$0=of_string$1(m$1); @@ -40717,7 +43160,7 @@ return 0} function some(x){return [0,x]} function both$0(x,match) - {if(x)if(match){var b=match[1],a=x[1];return [0,[0,a,b]]}return 0} + {if(x && match){var b=match[1],a=x[1];return [0,[0,a,b]]}return 0} function first_some(x,y){return x?x:y} function some_if(cond,x){return cond?[0,x]:0} function merge$0(a,b,f) @@ -40729,7 +43172,7 @@ function filter$0(o,f) {if(o){var v=o[1];if(caml_call1(f,v))return o}return 0} function try_with$2(f) - {try {var _yW_=[0,caml_call1(f,0)];return _yW_}catch(_yX_){return 0}} + {try {var _yS_=[0,caml_call1(f,0)];return _yS_}catch(_yT_){return 0}} function return$9(x){return [0,x]} var map$14= @@ -40752,7 +43195,7 @@ Let_syntax$2=include$31[11]; function fold_result$1(t,init,f){return fold_result(fold$1,init,f,t)} function fold_until$1(t,init,f) - {return function(_yV_){return fold_until(fold$1,init,f,_yV_,t)}} + {return function(_yR_){return fold_until(fold$1,init,f,_yR_,t)}} function validate(none,some,t) {if(t){var x=t[1];return name$0(cst_some,protect$1(some,x))} return name$0(cst_none,protect$1(none,0))} @@ -40812,14 +43255,14 @@ function compare$33(cmp_f,cmp_s,a_001,match) {if(a_001 === match)return 0; if(0 === a_001[0]) - {var _yT_=a_001[1]; + {var _yP_=a_001[1]; if(0 === match[0]) - {var b_004=match[1];return caml_call2(cmp_f,_yT_,b_004)} + {var b_004=match[1];return caml_call2(cmp_f,_yP_,b_004)} return -1} - var _yU_=a_001[1]; + var _yQ_=a_001[1]; if(0 === match[0])return 1; var b_006=match[1]; - return caml_call2(cmp_s,_yU_,b_006)} + return caml_call2(cmp_s,_yQ_,b_006)} function hash_fold_t$17(hash_fold_f,hash_fold_s,hsv,arg) {if(0 === arg[0]) {var a0=arg[1],hsv$0=runtime.Base_internalhash_fold_int(hsv,0); @@ -40828,58 +43271,46 @@ return caml_call2(hash_fold_s,hsv$1,a0$0)} function t_of_sexp$21(of_f,of_s,sexp) {if(0 === sexp[0]) - {var _yP_=sexp[1]; - if(caml_string_notequal(_yP_,cst_First)) - {if(caml_string_notequal(_yP_,cst_Second)) - if(caml_string_notequal(_yP_,cst_first)) - if(caml_string_notequal(_yP_,cst_second)) - var switch$0=1,switch$1=0; - else - var switch$1=1; + {var _yL_=sexp[1],switch$0=0; + if(caml_string_notequal(_yL_,cst_First)) + {var switch$1=0; + if(caml_string_notequal(_yL_,cst_Second)) + if(caml_string_notequal(_yL_,cst_first)) + {if(caml_string_notequal(_yL_,cst_second)) + {switch$0 = 1;switch$1 = 1}} else - var switch$0=0,switch$1=0; - else - var switch$1=1; - if(switch$1) + switch$1 = 1; + if(! switch$1) return caml_call2(Sexplib0_Sexp_conv_error[5],tp_loc$6,sexp)} - else - var switch$0=0; if(! switch$0) return caml_call2(Sexplib0_Sexp_conv_error[5],tp_loc$6,sexp)} else - {var _yQ_=sexp[1]; - if(! _yQ_) + {var _yM_=sexp[1]; + if(! _yM_) return caml_call2(Sexplib0_Sexp_conv_error[7],tp_loc$6,sexp); - var _yR_=_yQ_[1]; - if(0 !== _yR_[0]) + var _yN_=_yM_[1]; + if(0 !== _yN_[0]) return caml_call2(Sexplib0_Sexp_conv_error[6],tp_loc$6,sexp); - var _yS_=_yR_[1]; - if(caml_string_notequal(_yS_,cst_First$0)) - {if(caml_string_notequal(_yS_,cst_Second$0)) - if(caml_string_notequal(_yS_,cst_first$0)) - if(caml_string_notequal(_yS_,cst_second$0)) - var switch$2=1,switch$3=0; - else - var switch$3=1; + var _yO_=_yN_[1],switch$2=0; + if(caml_string_notequal(_yO_,cst_First$0)) + {var switch$3=0; + if(caml_string_notequal(_yO_,cst_Second$0)) + if(caml_string_notequal(_yO_,cst_first$0)) + {if(caml_string_notequal(_yO_,cst_second$0)) + {switch$2 = 1;switch$3 = 1}} else - var switch$2=0,switch$3=0; - else - var switch$3=1; - if(switch$3) - {var sexp_args=_yQ_[2]; - if(sexp_args) - if(! sexp_args[2]) - {var v0=sexp_args[1],v0$0=caml_call1(of_s,v0);return [1,v0$0]} - return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$6,_yS_,sexp)}} - else - var switch$2=0; + switch$3 = 1; + if(! switch$3) + {var sexp_args=_yM_[2]; + if(sexp_args && ! sexp_args[2]) + {var v0=sexp_args[1],v0$0=caml_call1(of_s,v0);return [1,v0$0]} + return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$6,_yO_,sexp)}} if(! switch$2) - {var sexp_args$0=_yQ_[2]; - if(sexp_args$0) - if(! sexp_args$0[2]) - {var v0$1=sexp_args$0[1],v0$2=caml_call1(of_f,v0$1); - return [0,v0$2]} - return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$6,_yS_,sexp)}} + {var sexp_args$0=_yM_[2]; + if(sexp_args$0 && ! sexp_args$0[2]) + {var v0$1=sexp_args$0[1],v0$2=caml_call1(of_f,v0$1); + return [0,v0$2]} + return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$6,_yO_,sexp)}} return caml_call2(Sexplib0_Sexp_conv_error[8],tp_loc$6,sexp)} function sexp_of_t$26(of_f,of_s,param) {if(0 === param[0]) @@ -40906,11 +43337,11 @@ function second(x){return [1,x]} function equal$19(eq1,eq2,t1,match) {if(0 === t1[0]) - {var _yN_=t1[1]; - if(0 === match[0]){var y=match[1];return caml_call2(eq1,_yN_,y)}} + {var _yJ_=t1[1]; + if(0 === match[0]){var y=match[1];return caml_call2(eq1,_yJ_,y)}} else - {var _yO_=t1[1]; - if(0 !== match[0]){var y$0=match[1];return caml_call2(eq2,_yO_,y$0)}} + {var _yK_=t1[1]; + if(0 !== match[0]){var y$0=match[1];return caml_call2(eq2,_yK_,y$0)}} return 0} function invariant$4(f,s,param) {if(0 === param[0]){var x=param[1];return caml_call1(f,x)} @@ -40939,7 +43370,7 @@ return$1=include[6], join=include[8], ignore_m=include[9], - _yG_=include[7]; + _yC_=include[7]; function apply(t1,t2) {return caml_call2 (bind$0, @@ -40950,7 +43381,7 @@ t2, function(x){return caml_call1(return$1,caml_call1(f,x))})})} var - map$0=[0,-198771759,_yG_], + map$0=[0,-198771759,_yC_], App=Make2$0([0,return$1,apply,map$0]), return$2=App[1], map$1=App[2], @@ -40970,21 +43401,21 @@ {var ts=param[2], t=param[1], - _yM_=function(o){return other_loop(f,caml_call2(f,acc,o),ts)}; + _yI_=function(o){return other_loop(f,caml_call2(f,acc,o),ts)}; return caml_call3 - (either,t,function(param){return other_loop(f,acc,ts)},_yM_)} + (either,t,function(param){return other_loop(f,acc,ts)},_yI_)} return caml_call1(other,acc)} function return_loop(f,acc,param) {if(param) {var ts=param[2], t=param[1], - _yL_=function(o){return other_loop(f,o,ts)}; + _yH_=function(o){return other_loop(f,o,ts)}; return caml_call3 (either, t, function(x){return return_loop(f,[0,x,acc],ts)}, - _yL_)} + _yH_)} return caml_call1(return$2,rev(acc))} function combine_all(ts,f){return return_loop(f,0,ts)} function other_loop$0(f,acc,param) @@ -40992,28 +43423,28 @@ {var ts=param[2], t=param[1], - _yK_=function(o){return other_loop$0(f,caml_call2(f,acc,o),ts)}; + _yG_=function(o){return other_loop$0(f,caml_call2(f,acc,o),ts)}; return caml_call3 (either, t, function(param){return other_loop$0(f,acc,ts)}, - _yK_)} + _yG_)} return caml_call1(other,acc)} function return_loop$0(f,param) {if(param) {var ts=param[2], t=param[1], - _yJ_=function(o){return other_loop$0(f,o,ts)}; + _yF_=function(o){return other_loop$0(f,o,ts)}; return caml_call3 - (either,t,function(param){return return_loop$0(f,ts)},_yJ_)} + (either,t,function(param){return return_loop$0(f,ts)},_yF_)} return caml_call1(return$2,0)} function combine_all_unit(ts,f){return return_loop$0(f,ts)} function to_option(t) {return caml_call3(either,t,some,function(param){return 0})} function value(t,default$0) - {function _yH_(param){return default$0} - return caml_call3(either,t,function(_yI_){return _yI_},_yH_)} + {function _yD_(param){return default$0} + return caml_call3(either,t,function(_yE_){return _yE_},_yD_)} function with_return$0(f) {return with_return (function(ret) @@ -41054,14 +43485,14 @@ return caml_call1(other,y)} function combine$1(t1,match,f,other) {if(0 === t1[0]) - {var _yE_=t1[1]; - if(0 === match[0]){var y=match[1];return [0,caml_call2(f,_yE_,y)]} + {var _yA_=t1[1]; + if(0 === match[0]){var y=match[1];return [0,caml_call2(f,_yA_,y)]} var x=match[1]} else - {var _yF_=t1[1]; + {var _yB_=t1[1]; if(0 !== match[0]) - {var y$0=match[1];return [1,caml_call2(other,_yF_,y$0)]} - var x=_yF_} + {var y$0=match[1];return [1,caml_call2(other,_yB_,y$0)]} + var x=_yB_} return [1,x]} function bind$9(t,f) {if(0 === t[0]){var x=t[1];return caml_call1(f,x)}return t} @@ -41072,12 +43503,12 @@ return caml_call1(return$0,y)} function combine$2(t1,match,f,other) {if(0 === t1[0]) - {var _yC_=t1[1]; - if(0 === match[0]){var y=match[1];return [0,caml_call2(other,_yC_,y)]} - var x=_yC_} + {var _yy_=t1[1]; + if(0 === match[0]){var y=match[1];return [0,caml_call2(other,_yy_,y)]} + var x=_yy_} else - {var _yD_=t1[1]; - if(0 !== match[0]){var y$0=match[1];return [1,caml_call2(f,_yD_,y$0)]} + {var _yz_=t1[1]; + if(0 !== match[0]){var y$0=match[1];return [1,caml_call2(f,_yz_,y$0)]} var x=match[1]} return [0,x]} function bind$10(t,f) @@ -41185,8 +43616,8 @@ (iteri, c, function(i,x) - {var _yB_=caml_call2(f,i,x); - return _yB_?caml_call1(r,1):_yB_}); + {var _yx_=caml_call2(f,i,x); + return _yx_?caml_call1(r,1):_yx_}); return 0})} function for_alli$0(iteri,c,f) {return with_return @@ -41195,8 +43626,8 @@ (iteri, c, function(i,x) - {var _yA_=1 - caml_call2(f,i,x); - return _yA_?caml_call1(r,0):_yA_}); + {var _yw_=1 - caml_call2(f,i,x); + return _yw_?caml_call1(r,0):_yw_}); return 1})} function find_mapi$0(iteri,t,f) {return with_return @@ -41214,45 +43645,49 @@ (iteri, c, function(i,x) - {var _yz_=caml_call2(f,i,x); - return _yz_?caml_call1(r,[0,[0,i,x]]):_yz_}); + {var _yv_=caml_call2(f,i,x); + return _yv_?caml_call1(r,[0,[0,i,x]]):_yv_}); return 0})} function Make$2(T) {var include=_M_([0,T[1],T[2],T[3]]), - _yj_=include[5], - _yw_=T[4], - _yf_=include[1], - _yg_=include[2], - _yh_=include[3], - _yi_=include[4], - _yk_=include[6], - _yl_=include[7], - _ym_=include[8], - _yn_=include[9], - _yo_=include[10], - _yp_=include[11], - _yq_=include[12], - _yr_=include[13], - _ys_=include[14], - _yt_=include[15], - _yu_=include[16], - _yv_=include[17]; - if(typeof _yw_ === "number") - var _yx_=function(t,f){return iteri$1(_yj_,t,f)}; + _yf_=include[5], + _ys_=T[4], + _yb_=include[1], + _yc_=include[2], + _yd_=include[3], + _ye_=include[4], + _yg_=include[6], + _yh_=include[7], + _yi_=include[8], + _yj_=include[9], + _yk_=include[10], + _yl_=include[11], + _ym_=include[12], + _yn_=include[13], + _yo_=include[14], + _yp_=include[15], + _yq_=include[16], + _yr_=include[17]; + if(typeof _ys_ === "number") + var _yt_=function(t,f){return iteri$1(_yf_,t,f)}; else - var iteri=_yw_[2],_yx_=iteri; - var _yy_=T[5]; - if(typeof _yy_ === "number") - var foldi=function(t,init,f){return foldi$0(_yj_,t,init,f)}; + var iteri=_ys_[2],_yt_=iteri; + var _yu_=T[5]; + if(typeof _yu_ === "number") + var foldi=function(t,init,f){return foldi$0(_yf_,t,init,f)}; else - var foldi$1=_yy_[2],foldi=foldi$1; + var foldi$1=_yu_[2],foldi=foldi$1; function counti(t,f){return counti$0(foldi,t,f)} - function existsi(t,f){return existsi$0(_yx_,t,f)} - function for_alli(t,f){return for_alli$0(_yx_,t,f)} - function find_mapi(t,f){return find_mapi$0(_yx_,t,f)} - function findi(t,f){return findi$0(_yx_,t,f)} + function existsi(t,f){return existsi$0(_yt_,t,f)} + function for_alli(t,f){return for_alli$0(_yt_,t,f)} + function find_mapi(t,f){return find_mapi$0(_yt_,t,f)} + function findi(t,f){return findi$0(_yt_,t,f)} return [0, + _yb_, + _yc_, + _yd_, + _ye_, _yf_, _yg_, _yh_, @@ -41266,12 +43701,8 @@ _yp_, _yq_, _yr_, - _ys_, - _yt_, - _yu_, - _yv_, foldi, - _yx_, + _yt_, existsi, for_alli, counti, @@ -41324,13 +43755,13 @@ (f, acc, 0, - function(_ye_){return loop(s$0,next,finish,f,_ye_)})} + function(_ya_){return loop(s$0,next,finish,f,_ya_)})} var s$1=match[2],a=match[1]; return caml_call3 (f, acc, [0,a], - function(_yd_){return loop(s$1,next,finish,f,_yd_)})}} + function(_x$_){return loop(s$1,next,finish,f,_x$_)})}} var next=s[2],s$0=s[1]; return loop(s$0,next,finish,f,init)} var Expert=[0,next_step,delayed_fold_step]; @@ -41435,10 +43866,10 @@ return to_list(s,next,500)} function sexp_of_t$28(sexp_of_a,t) {return caml_call2(sexp_of_t$10,sexp_of_a,to_list$3(t))} - function range$1(opt,_yc_,_yb_,start_v,stop_v) + function range$1(opt,_x__,_x9_,start_v,stop_v) {if(opt)var sth=opt[1],stride=sth;else var stride=1; - if(_yc_)var sth$0=_yc_[1],start=sth$0;else var start=104758188; - if(_yb_)var sth$1=_yb_[1],stop=sth$1;else var stop=-160346914; + if(_x__)var sth$0=_x__[1],start=sth$0;else var start=104758188; + if(_x9_)var sth$1=_x9_[1],stop=sth$1;else var stop=-160346914; var step= 104758188 <= stop @@ -41459,11 +43890,11 @@ t_lazy, function(t_lazy) {var - _ya_=caml_obj_tag(t_lazy), + _x8_=caml_obj_tag(t_lazy), match= - 250 === _ya_ + 250 === _x8_ ?t_lazy[1] - :246 === _ya_?caml_call1(CamlinternalLazy[2],t_lazy):t_lazy, + :246 === _x8_?caml_call1(CamlinternalLazy[2],t_lazy):t_lazy, next=match[2], s=match[1], match$0=caml_call1(next,s); @@ -41530,9 +43961,9 @@ var s$0=match[2],a=match[1]; return caml_call1(f,a)?[1,a,s$0]:[0,s$0]}}]} function filteri$0(t,f) - {function _x$_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} + {function _x7_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} return _bh_ - (filter$1(mapi$2(t,function(i,s){return [0,i,s]}),_x$_), + (filter$1(mapi$2(t,function(i,s){return [0,i,s]}),_x7_), get_data)} function length$2(t) {var next=t[2],seed=t[1],i=0,s=seed; @@ -41767,25 +44198,25 @@ {if(a_001 === match)return 0; switch(a_001[0]) {case 0: - var _x7_=a_001[1]; + var _x3_=a_001[1]; if(0 === match[0]) - {var b_004=match[1];return caml_call2(cmp_a,_x7_,b_004)} + {var b_004=match[1];return caml_call2(cmp_a,_x3_,b_004)} return -1; case 1: - var _x8_=a_001[1]; + var _x4_=a_001[1]; switch(match[0]) {case 0:break; - case 1:var b_006=match[1];return caml_call2(cmp_b,_x8_,b_006); + case 1:var b_006=match[1];return caml_call2(cmp_b,_x4_,b_006); default:return -1} break; default: - var _x9_=a_001[2],_x__=a_001[1]; + var _x5_=a_001[2],_x6_=a_001[1]; switch(match[0]) {case 0:break; case 1:return 1; default: - var b_010=match[2],b_008=match[1],n=caml_call2(cmp_a,_x__,b_008); - return 0 === n?caml_call2(cmp_b,_x9_,b_010):n}} + var b_010=match[2],b_008=match[1],n=caml_call2(cmp_a,_x6_,b_008); + return 0 === n?caml_call2(cmp_b,_x5_,b_010):n}} return 1} function hash_fold_t$18(hash_fold_a,hash_fold_b,hsv,arg) {switch(arg[0]) @@ -41804,86 +44235,71 @@ return caml_call2(hash_fold_b,hsv$3,a1)}} function t_of_sexp$22(of_a,of_b,sexp) {if(0 === sexp[0]) - {var _x2_=sexp[1]; - if(caml_string_notequal(_x2_,cst_Both)) - {if(caml_string_notequal(_x2_,cst_Left)) - {if(caml_string_notequal(_x2_,cst_Right)) - if(caml_string_notequal(_x2_,cst_both)) - if(caml_string_notequal(_x2_,cst_left)) - if(caml_string_notequal(_x2_,cst_right)) - var switch$0=1,switch$1=0,switch$2=0; - else - var switch$2=1; + {var _xY_=sexp[1],switch$0=0; + if(caml_string_notequal(_xY_,cst_Both)) + {var switch$1=0; + if(caml_string_notequal(_xY_,cst_Left)) + {var switch$2=0; + if(caml_string_notequal(_xY_,cst_Right)) + if(caml_string_notequal(_xY_,cst_both)) + if(caml_string_notequal(_xY_,cst_left)) + {if(caml_string_notequal(_xY_,cst_right)) + {switch$0 = 1;switch$1 = 1;switch$2 = 1}} else - var switch$1=1,switch$2=0; + switch$2 = 1; else - var switch$0=0,switch$1=0,switch$2=0; - else - var switch$2=1; - if(switch$2) + {switch$1 = 1;switch$2 = 1} + if(! switch$2) return caml_call2(Sexplib0_Sexp_conv_error[5],tp_loc$7,sexp)} - else - var switch$1=1; - if(switch$1) + if(! switch$1) return caml_call2(Sexplib0_Sexp_conv_error[5],tp_loc$7,sexp)} - else - var switch$0=0; if(! switch$0) return caml_call2(Sexplib0_Sexp_conv_error[5],tp_loc$7,sexp)} else - {var _x3_=sexp[1]; - if(! _x3_) + {var _xZ_=sexp[1]; + if(! _xZ_) return caml_call2(Sexplib0_Sexp_conv_error[7],tp_loc$7,sexp); - var _x4_=_x3_[1]; - if(0 !== _x4_[0]) + var _x0_=_xZ_[1]; + if(0 !== _x0_[0]) return caml_call2(Sexplib0_Sexp_conv_error[6],tp_loc$7,sexp); - var _x5_=_x4_[1]; - if(caml_string_notequal(_x5_,cst_Both$0)) - {if(caml_string_notequal(_x5_,cst_Left$0)) - {if(caml_string_notequal(_x5_,cst_Right$0)) - if(caml_string_notequal(_x5_,cst_both$0)) - if(caml_string_notequal(_x5_,cst_left$0)) - if(caml_string_notequal(_x5_,cst_right$0)) - var switch$3=1,switch$4=0,switch$5=0; - else - var switch$5=1; + var _x1_=_x0_[1],switch$3=0; + if(caml_string_notequal(_x1_,cst_Both$0)) + {var switch$4=0; + if(caml_string_notequal(_x1_,cst_Left$0)) + {var switch$5=0; + if(caml_string_notequal(_x1_,cst_Right$0)) + if(caml_string_notequal(_x1_,cst_both$0)) + if(caml_string_notequal(_x1_,cst_left$0)) + {if(caml_string_notequal(_x1_,cst_right$0)) + {switch$3 = 1;switch$4 = 1;switch$5 = 1}} else - var switch$4=1,switch$5=0; + switch$5 = 1; else - var switch$3=0,switch$4=0,switch$5=0; - else - var switch$5=1; - if(switch$5) - {var sexp_args=_x3_[2]; - if(sexp_args) - if(! sexp_args[2]) - {var v0=sexp_args[1],v0$0=caml_call1(of_b,v0);return [1,v0$0]} + {switch$4 = 1;switch$5 = 1} + if(! switch$5) + {var sexp_args=_xZ_[2]; + if(sexp_args && ! sexp_args[2]) + {var v0=sexp_args[1],v0$0=caml_call1(of_b,v0);return [1,v0$0]} return caml_call3 - (Sexplib0_Sexp_conv_error[4],tp_loc$7,_x5_,sexp)}} - else - var switch$4=1; - if(switch$4) - {var sexp_args$0=_x3_[2]; - if(sexp_args$0) - if(! sexp_args$0[2]) - {var v0$1=sexp_args$0[1],v0$2=caml_call1(of_a,v0$1); - return [0,v0$2]} - return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$7,_x5_,sexp)}} - else - var switch$3=0; + (Sexplib0_Sexp_conv_error[4],tp_loc$7,_x1_,sexp)}} + if(! switch$4) + {var sexp_args$0=_xZ_[2]; + if(sexp_args$0 && ! sexp_args$0[2]) + {var v0$1=sexp_args$0[1],v0$2=caml_call1(of_a,v0$1); + return [0,v0$2]} + return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$7,_x1_,sexp)}} if(! switch$3) - {var sexp_args$1=_x3_[2]; + {var sexp_args$1=_xZ_[2]; if(sexp_args$1) - {var _x6_=sexp_args$1[2]; - if(_x6_) - if(! _x6_[2]) - {var - v1=_x6_[1], - v0$3=sexp_args$1[1], - v0$4=caml_call1(of_a,v0$3), - v1$0=caml_call1(of_b,v1); - return [2,v0$4,v1$0]}} - return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$7,_x5_,sexp)}} + {var _x2_=sexp_args$1[2]; + if(_x2_ && ! _x2_[2]) + {var + v1=_x2_[1], + v0$3=sexp_args$1[1], + v0$4=caml_call1(of_a,v0$3), + v1$0=caml_call1(of_b,v1); + return [2,v0$4,v1$0]}} + return caml_call3(Sexplib0_Sexp_conv_error[4],tp_loc$7,_x1_,sexp)}} return caml_call2(Sexplib0_Sexp_conv_error[8],tp_loc$7,sexp)} function sexp_of_t$29(of_a,of_b,param) {switch(param[0]) @@ -41903,41 +44319,41 @@ var Merge_with_duplicates_element= [0,compare$34,hash_fold_t$18,t_of_sexp$22,sexp_of_t$29]; - function merge_with_duplicates(param,_xW_,compare) - {var next2=_xW_[2],s2=_xW_[1],next1=param[2],s1=param[1]; + function merge_with_duplicates(param,_xS_,compare) + {var next2=_xS_[2],s2=_xS_[1],next1=param[2],s1=param[1]; function next(param) - {var _xX_=param[1]; - if(typeof _xX_ === "number") - {var _xY_=param[2]; - if(typeof _xY_ === "number") + {var _xT_=param[1]; + if(typeof _xT_ === "number") + {var _xU_=param[2]; + if(typeof _xU_ === "number") return 0; else - if(0 !== _xY_[0]) - {var s2$0=_xY_[2],b=_xY_[1];return [1,[1,b],[0,0,[0,s2$0]]]}} + if(0 !== _xU_[0]) + {var s2$0=_xU_[2],b=_xU_[1];return [1,[1,b],[0,0,[0,s2$0]]]}} else - {if(0 === _xX_[0]) - {var s2$1=param[2],s1=_xX_[1]; + {if(0 === _xT_[0]) + {var s2$1=param[2],s1=_xT_[1]; return [0,[0,caml_call1(next1,s1),s2$1]]} - var _xZ_=param[2],_x0_=_xX_[2],_x1_=_xX_[1]; - if(typeof _xZ_ === "number") - return [1,[0,_x1_],[0,[0,_x0_],0]]; + var _xV_=param[2],_xW_=_xT_[2],_xX_=_xT_[1]; + if(typeof _xV_ === "number") + return [1,[0,_xX_],[0,[0,_xW_],0]]; else - if(0 !== _xZ_[0]) + if(0 !== _xV_[0]) {var - s2$2=_xZ_[2], - b$0=_xZ_[1], - comparison=caml_call2(compare,_x1_,b$0); + s2$2=_xV_[2], + b$0=_xV_[1], + comparison=caml_call2(compare,_xX_,b$0); return caml_call2(symbol$78,comparison,0) - ?[1,[0,_x1_],[0,[0,_x0_],_xZ_]] + ?[1,[0,_xX_],[0,[0,_xW_],_xV_]] :caml_call2(symbol$81,comparison,0) - ?[1,[2,_x1_,b$0],[0,[0,_x0_],[0,s2$2]]] - :[1,[1,b$0],[0,_xX_,[0,s2$2]]]}} + ?[1,[2,_xX_,b$0],[0,[0,_xW_],[0,s2$2]]] + :[1,[1,b$0],[0,_xT_,[0,s2$2]]]}} var match=param[2],s2=match[1]; - return [0,[0,_xX_,caml_call1(next2,s2)]]} + return [0,[0,_xT_,caml_call1(next2,s2)]]} return [0,[0,[0,s1],[0,s2]],next]} function merge$1(s1,s2,compare) - {function _xV_(param){var x=param[1];return x} - return caml_call2(map$18,merge_with_duplicates(s1,s2,compare),_xV_)} + {function _xR_(param){var x=param[1];return x} + return caml_call2(map$18,merge_with_duplicates(s1,s2,compare),_xR_)} function hd$0(s) {var next=s[2],s$2=s[1],s$0=s$2; for(;;) @@ -41995,14 +44411,14 @@ return 0; else {if(0 === match[0]){var s$0=match[1];return [0,s$0]} - var _xU_=match[1]; - if(_xU_){var s$1=match[2],a=_xU_[1];return [1,a,s$1]} + var _xQ_=match[1]; + if(_xQ_){var s$1=match[2],a=_xQ_[1];return [1,a,s$1]} var s$2=match[2]; return [0,s$2]}}]} function filter_map$0(s,f){return filter_opt$0(caml_call2(map$18,s,f))} function filter_mapi$0(s,f) - {function _xT_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} - return filter_map$0(mapi$2(s,function(i,s){return [0,i,s]}),_xT_)} + {function _xP_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} + return filter_map$0(mapi$2(s,function(i,s){return [0,i,s]}),_xP_)} function split_n$0(s,i) {var next=s[2],s$3=s[1],s$0=s$3,i$0=i,accum=0; for(;;) @@ -42027,12 +44443,12 @@ return [0, t, function(t) - {var match=split_n$0(t,n),_xS_=match[1]; - if(_xS_){var t$0=match[2];return [1,_xS_,t$0]} + {var match=split_n$0(t,n),_xO_=match[1]; + if(_xO_){var t$0=match[2];return [1,_xO_,t$0]} return 0}]} function findi$1(s,f) - {function _xR_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} - return find$3(mapi$2(s,function(i,s){return [0,i,s]}),_xR_)} + {function _xN_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} + return find$3(mapi$2(s,function(i,s){return [0,i,s]}),_xN_)} function find_exn$1(s,f) {var match=find$3(s,f); if(match){var x=match[1];return x} @@ -42060,59 +44476,54 @@ var s2$2=match$0[2],a$0=match$0[1]; return [1,a$0,[0,-630817751,s2$2]]}}]} function concat_map$0(s,f){return caml_call2(bind$12,s,f)} - function concat$1(s){return concat_map$0(s,function(_xQ_){return _xQ_})} + function concat$1(s){return concat_map$0(s,function(_xM_){return _xM_})} function concat_mapi$0(s,f) - {function _xP_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} - return concat_map$0(mapi$2(s,function(i,s){return [0,i,s]}),_xP_)} - function zip$0(param,_xK_) - {var next2=_xK_[2],s2=_xK_[1],next1=param[2],s1=param[1]; + {function _xL_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} + return concat_map$0(mapi$2(s,function(i,s){return [0,i,s]}),_xL_)} + function zip$0(param,_xG_) + {var next2=_xG_[2],s2=_xG_[1],next1=param[2],s1=param[1]; function next(param) - {var _xL_=param[1]; - if(typeof _xL_ === "number") - var switch$0=1; + {var _xH_=param[1],switch$0=0; + if(typeof _xH_ === "number") + switch$0 = 1; else - if(1 === _xL_[0]) - {var _xM_=param[2],_xN_=_xL_[2],_xO_=_xL_[1]; - if(typeof _xM_ === "number") - var switch$0=0; - else - {if(0 === _xM_[0]) + if(1 === _xH_[0]) + {var _xI_=param[2],_xJ_=_xH_[2],_xK_=_xH_[1]; + if(typeof _xI_ !== "number") + {if(0 === _xI_[0]) {var match=param[2],s2$0=match[1]; - return [0,[0,_xL_,caml_call1(next2,s2$0)]]} - var s2$1=_xM_[2],b=_xM_[1]; - return [1,[0,_xO_,b],[0,[0,_xN_],[0,s2$1]]]}} - else - var switch$0=0; - if(! switch$0) - if(typeof param[2] !== "number") - {var s2=param[2],s1=_xL_[1];return [0,[0,caml_call1(next1,s1),s2]]} + return [0,[0,_xH_,caml_call1(next2,s2$0)]]} + var s2$1=_xI_[2],b=_xI_[1]; + return [1,[0,_xK_,b],[0,[0,_xJ_],[0,s2$1]]]}} + if(! switch$0 && typeof param[2] !== "number") + {var s2=param[2],s1=_xH_[1];return [0,[0,caml_call1(next1,s1),s2]]} return 0} return [0,[0,[0,s1],[0,s2]],next]} - function zip_full(param,_xE_) - {var next2=_xE_[2],s2=_xE_[1],next1=param[2],s1=param[1]; + function zip_full(param,_xA_) + {var next2=_xA_[2],s2=_xA_[1],next1=param[2],s1=param[1]; function next(param) - {var _xF_=param[1]; - if(typeof _xF_ === "number") - {var _xG_=param[2]; - if(typeof _xG_ === "number") + {var _xB_=param[1]; + if(typeof _xB_ === "number") + {var _xC_=param[2]; + if(typeof _xC_ === "number") return 0; else - if(0 !== _xG_[0]) - {var s2$0=_xG_[2],b=_xG_[1]; + if(0 !== _xC_[0]) + {var s2$0=_xC_[2],b=_xC_[1]; return [1,[0,-57574468,b],[0,0,caml_call1(next2,s2$0)]]}} else - {if(0 === _xF_[0]) - {var s2$1=param[2],s1=_xF_[1]; + {if(0 === _xB_[0]) + {var s2$1=param[2],s1=_xB_[1]; return [0,[0,caml_call1(next1,s1),s2$1]]} - var _xH_=param[2],_xI_=_xF_[2],_xJ_=_xF_[1]; - if(typeof _xH_ === "number") - return [1,[0,847852583,_xJ_],[0,caml_call1(next1,_xI_),0]]; + var _xD_=param[2],_xE_=_xB_[2],_xF_=_xB_[1]; + if(typeof _xD_ === "number") + return [1,[0,847852583,_xF_],[0,caml_call1(next1,_xE_),0]]; else - if(0 !== _xH_[0]) - {var s2$2=_xH_[2],b$0=_xH_[1]; - return [1,[0,737457313,[0,_xJ_,b$0]],[0,[0,_xI_],[0,s2$2]]]}} + if(0 !== _xD_[0]) + {var s2$2=_xD_[2],b$0=_xD_[1]; + return [1,[0,737457313,[0,_xF_,b$0]],[0,[0,_xE_],[0,s2$2]]]}} var match=param[2],s2=match[1]; - return [0,[0,_xF_,caml_call1(next2,s2)]]} + return [0,[0,_xB_,caml_call1(next2,s2)]]} return [0,[0,[0,s1],[0,s2]],next]} function bounded_length(param,at_most) {var next=param[2],seed=param[1],i=0,seed$0=seed; @@ -42129,9 +44540,8 @@ {if(opt)var sth=opt[1],min=sth;else var min=-1; if(max) {var max$0=max[1],match$0=bounded_length(t,max$0); - if(typeof match$0 !== "number") - if(16394 === match$0[1]) - {var len=match$0[2];if(caml_call2(symbol$83,len,min))return 1} + if(typeof match$0 !== "number" && 16394 === match$0[1]) + {var len=match$0[2];if(caml_call2(symbol$83,len,min))return 1} return 0} var next=t[2],s=t[1],s$0=s,acc=0; for(;;) @@ -42144,12 +44554,12 @@ var s$2=match[2],acc$0=acc + 1 | 0,s$0=s$2,acc=acc$0; continue}}} function iteri$2(s,f) - {function _xD_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} - return iter$5(mapi$2(s,function(i,s){return [0,i,s]}),_xD_)} + {function _xz_(param){var s=param[2],i=param[1];return caml_call2(f,i,s)} + return iter$5(mapi$2(s,function(i,s){return [0,i,s]}),_xz_)} function foldi$1(s,init,f) - {function _xC_(acc,param) + {function _xy_(acc,param) {var s=param[2],i=param[1];return caml_call3(f,i,acc,s)} - return fold$2(mapi$2(s,function(i,s){return [0,i,s]}),init,_xC_)} + return fold$2(mapi$2(s,function(i,s){return [0,i,s]}),init,_xy_)} function reduce$0(s,f) {var match=next(s); if(match) @@ -42218,9 +44628,9 @@ :[1,caml_call1(f,i),i + 1 | 0]}]} function sub$4(s,pos,len) {var - _xA_=caml_call2(symbol$78,pos,0), - _xB_=_xA_ || caml_call2(symbol$78,len,0); - if(_xB_)caml_call1(failwith$0,cst_Sequence_sub); + _xw_=caml_call2(symbol$78,pos,0), + _xx_=_xw_ || caml_call2(symbol$78,len,0); + if(_xx_)caml_call1(failwith$0,cst_Sequence_sub); var next=s[2],s$0=s[1]; return [0, [0,0,s$0], @@ -42311,8 +44721,8 @@ return [0, [0,815032112,s$0], function(param) - {var _xz_=param[1]; - if(815032112 === _xz_) + {var _xv_=param[1]; + if(815032112 === _xv_) {var s=param[2],match=caml_call1(next,s); if(typeof match === "number") return 0; @@ -42321,7 +44731,7 @@ {var s$0=match[1];return [0,[0,815032112,s$0]]} var s$1=match[2],a=match[1]; return [1,a,[0,951752159,s$1]]}} - if(951752159 <= _xz_) + if(951752159 <= _xv_) {var s$2=param[2],match$0=caml_call1(next,s$2); if(typeof match$0 === "number") return 0; @@ -42336,27 +44746,27 @@ function cycle_list_exn(xs) {if(is_empty(xs))throw [0,Stdlib[6],cst_Sequence_cycle_list_exn]; var s=of_list$2(xs); - function _xy_(param){return s} - return concat_map$0(repeat(0),_xy_)} + function _xu_(param){return s} + return concat_map$0(repeat(0),_xu_)} function cartesian_product$0(sa,sb) {return concat_map$0(sa,function(a){return zip$0(repeat(a),sb)})} function singleton(x){return caml_call1(return$12,x)} function delayed_fold(s,init,f,finish) - {function _xx_(acc,option,k) + {function _xt_(acc,option,k) {if(option){var a=option[1];return caml_call3(f,acc,a,k)} return caml_call1(k,acc)} - return caml_call4(Expert[2],s,init,_xx_,finish)} + return caml_call4(Expert[2],s,init,_xt_,finish)} function fold_m(bind,return$0,t,init,f) - {function _xw_(acc,option,k) + {function _xs_(acc,option,k) {if(option) {var a=option[1];return caml_call2(bind,caml_call2(f,acc,a),k)} return caml_call2(bind,caml_call1(return$0,acc),k)} - return caml_call4(Expert[2],t,init,_xw_,return$0)} + return caml_call4(Expert[2],t,init,_xs_,return$0)} function iter_m(bind,return$0,t,f) - {function _xv_(param,option,k) + {function _xr_(param,option,k) {if(option){var a=option[1];return caml_call2(bind,caml_call1(f,a),k)} return caml_call2(bind,caml_call1(return$0,0),k)} - return caml_call4(Expert[2],t,0,_xv_,return$0)} + return caml_call4(Expert[2],t,0,_xr_,return$0)} function fold_until$2(s,acc,f,finish) {var next=s[2],s$3=s[1],s$0=s$3,acc$0=acc; for(;;) @@ -42387,7 +44797,7 @@ function memoize(s) {return [0, [246, - function(_xu_) + function(_xq_) {var s$0=s; for(;;) {var match=caml_call1(next,s$0); @@ -42397,12 +44807,12 @@ {if(0 === match[0]){var s$1=match[1],s$0=s$1;continue} var s$2=match[2],a=match[1]; return [1,a,memoize(s$2)]}}}]]} - function _xs_(param) - {var l=param[1],_xt_=caml_obj_tag(l); - return 250 === _xt_ + function _xo_(param) + {var l=param[1],_xp_=caml_obj_tag(l); + return 250 === _xp_ ?l[1] - :246 === _xt_?caml_call1(CamlinternalLazy[2],l):l} - return [0,memoize(s),_xs_]} + :246 === _xp_?caml_call1(CamlinternalLazy[2],l):l} + return [0,memoize(s),_xo_]} function drop_eagerly(s,len) {var next=s[2],s$3=s[1],i=0,s$0=s$3; for(;;) @@ -42428,26 +44838,26 @@ function compare$35(compare_a,t1,t2) {return with_return (function(r) - {function _xp_(param) - {var _xq_=param[1]; - if(737457313 === _xq_) + {function _xl_(param) + {var _xm_=param[1]; + if(737457313 === _xm_) {var match=param[2], v2=match[2], v1=match[1], c=caml_call2(compare_a,v1,v2), - _xr_=caml_call2(symbol$80,c,0); - return _xr_?caml_call1(r,c):_xr_} - return 847852583 <= _xq_?caml_call1(r,1):caml_call1(r,-1)} - iter$5(zip_full(t1,t2),_xp_); + _xn_=caml_call2(symbol$80,c,0); + return _xn_?caml_call1(r,c):_xn_} + return 847852583 <= _xm_?caml_call1(r,1):caml_call1(r,-1)} + iter$5(zip_full(t1,t2),_xl_); return 0})} function equal$20(equal_a,t1,t2) - {function _xo_(param) + {function _xk_(param) {if(737457313 === param[1]) {var match=param[2],a2=match[2],a1=match[1]; return caml_call2(equal_a,a1,a2)} return 0} - return for_all$2(zip_full(t1,t2),_xo_)} + return for_all$2(zip_full(t1,t2),_xk_)} function round_robin(list) {function next(param) {var done_stack=param[2],todo_stack=param[1]; @@ -42488,13 +44898,13 @@ return [0,[0,todo_stack$0,[0,[0,s2$0,f2],done_stack],s1]]} var s2$1=match$0[2],x=match$0[1]; return [1,x,[0,todo_stack$0,[0,[0,s2$1,f2],done_stack],s1]]}} - var _xn_=caml_call1(f1,s1); - if(typeof _xn_ === "number") + var _xj_=caml_call1(f1,s1); + if(typeof _xj_ === "number") return done_stack?[0,[0,rev(done_stack),0,s1]]:0; else - {if(0 === _xn_[0]) - {var s1$0=_xn_[1];return [0,[0,rev(done_stack),0,s1$0]]} - var s1$1=_xn_[2],t=_xn_[1]; + {if(0 === _xj_[0]) + {var s1$0=_xj_[1];return [0,[0,rev(done_stack),0,s1$0]]} + var s1$1=_xj_[2],t=_xj_[1]; return [0,[0,rev([0,t,done_stack]),0,s1$1]]}} var state=[0,0,0,s1]; return [0,state,next]} @@ -42667,27 +45077,28 @@ run$0], Expert]; caml_register_global(1035,Base_Sequence,"Base__Sequence"); - function get$0(_xm_,_xl_){return caml_check_bound(_xm_,_xl_)[1 + _xl_]} - function set(_xk_,_xj_,_xi_) - {caml_check_bound(_xk_,_xj_)[1 + _xj_] = _xi_;return 0} + function get$0(_xi_,_xh_){return caml_check_bound(_xi_,_xh_)[1 + _xh_]} + function set(_xg_,_xf_,_xe_) + {caml_check_bound(_xg_,_xf_)[1 + _xf_] = _xe_;return 0} function swap$1(arr,i,j) {var tmp=get$0(arr,i);set(arr,i,get$0(arr,j));return set(arr,j,tmp)} function sort(arr,compare,left,right) - {var _xg_=left + 1 | 0; - if(! (right < _xg_)) - {var pos=_xg_; + {var _xc_=left + 1 | 0; + if(! (right < _xc_)) + {var pos=_xc_; a: for(;;) {var v=get$0(arr,pos),i=pos; for(;;) {var i_next=i - 1 | 0; - if(caml_call2(symbol$83,i_next,left)) - if - (caml_call2(symbol$82,caml_call2(compare,get$0(arr,i_next),v),0)) - {set(arr,i,get$0(arr,i_next));var i=i_next;continue} + if + (caml_call2(symbol$83,i_next,left) + && + caml_call2(symbol$82,caml_call2(compare,get$0(arr,i_next),v),0)) + {set(arr,i,get$0(arr,i_next));var i=i_next;continue} set(arr,i,v); - var _xh_=pos + 1 | 0; - if(right !== pos){var pos=_xh_;continue a} + var _xd_=pos + 1 | 0; + if(right !== pos){var pos=_xd_;continue a} break} break}} return 0} @@ -42698,58 +45109,52 @@ {var relative_root=root$0 - left | 0, left_child=((2 * relative_root | 0) + left | 0) + 1 | 0, - right_child=((2 * relative_root | 0) + left | 0) + 2 | 0; + right_child=((2 * relative_root | 0) + left | 0) + 2 | 0, + switch$0=0; if(caml_call2(symbol$79,left_child,right)) - {var _xd_=get$0(arr,root$0); + {var _w$_=get$0(arr,root$0); if (caml_call2 - (symbol$82,caml_call2(compare,get$0(arr,left_child),_xd_),0)) - var largest=left_child,switch$0=1; - else - var switch$0=0} - else - var switch$0=0; + (symbol$82,caml_call2(compare,get$0(arr,left_child),_w$_),0)) + {var largest=left_child;switch$0 = 1}} if(! switch$0)var largest=root$0; + var switch$1=0; if(caml_call2(symbol$79,right_child,right)) - {var _xe_=get$0(arr,largest); + {var _xa_=get$0(arr,largest); if (caml_call2 - (symbol$82,caml_call2(compare,get$0(arr,right_child),_xe_),0)) - var largest$0=right_child,switch$1=1; - else - var switch$1=0} - else - var switch$1=0; + (symbol$82,caml_call2(compare,get$0(arr,right_child),_xa_),0)) + {var largest$0=right_child;switch$1 = 1}} if(! switch$1)var largest$0=largest; - var _xf_=caml_call2(symbol$80,largest$0,root$0); - if(_xf_){swap$1(arr,root$0,largest$0);var root$0=largest$0;continue} - return _xf_}} + var _xb_=caml_call2(symbol$80,largest$0,root$0); + if(_xb_){swap$1(arr,root$0,largest$0);var root$0=largest$0;continue} + return _xb_}} function sort$0(arr,compare,left,right) - {var _w$_=(left + right | 0) / 2 | 0; - if(! (_w$_ < left)) - {var i=_w$_; + {var _w7_=(left + right | 0) / 2 | 0; + if(! (_w7_ < left)) + {var i=_w7_; for(;;) {heapify(arr,compare,i,left,right); - var _xa_=i - 1 | 0; - if(left !== i){var i=_xa_;continue} + var _w8_=i - 1 | 0; + if(left !== i){var i=_w8_;continue} break}} - var _xb_=left + 1 | 0; - if(! (right < _xb_)) + var _w9_=left + 1 | 0; + if(! (right < _w9_)) {var i$0=right; for(;;) {swap$1(arr,left,i$0); heapify(arr,compare,left,left,i$0 - 1 | 0); - var _xc_=i$0 - 1 | 0; - if(_xb_ !== i$0){var i$0=_xc_;continue} + var _w__=i$0 - 1 | 0; + if(_w9_ !== i$0){var i$0=_w__;continue} break}} return 0} var Heap_sort=[0,sort$0]; function five_element_sort(arr,compare,m1,m2,m3,m4,m5) {function compare_and_swap(i,j) {var - _w9_=get$0(arr,j), - _w__=caml_call2(symbol$82,caml_call2(compare,get$0(arr,i),_w9_),0); - return _w__?swap$1(arr,i,j):_w__} + _w5_=get$0(arr,j), + _w6_=caml_call2(symbol$82,caml_call2(compare,get$0(arr,i),_w5_),0); + return _w6_?swap$1(arr,i,j):_w6_} compare_and_swap(m1,m2); compare_and_swap(m4,m5); compare_and_swap(m1,m3); @@ -42808,11 +45213,12 @@ if(caml_call2(symbol$82,caml_call2(compare,pv,pivot2),0)) {var r=r$2; for(;;) - {if(caml_call2(symbol$82,r,p$1)) - if - (caml_call2 - (symbol$82,caml_call2(compare,get$0(arr,r),pivot2),0)) - {var r$0=r - 1 | 0,r=r$0;continue} + {if + (caml_call2(symbol$82,r,p$1) + && + caml_call2 + (symbol$82,caml_call2(compare,get$0(arr,r),pivot2),0)) + {var r$0=r - 1 | 0,r=r$0;continue} swap$1(arr,r,p$1); var r$1=r - 1 | 0,r$2=r$1; continue b}} @@ -42839,29 +45245,29 @@ for(;;) {if(caml_call2(symbol$78,i,1))return 1; var - _w7_=i - 1 | 0, - _w6_=caml_check_bound(t,i)[1 + i], - _w8_= + _w3_=i - 1 | 0, + _w2_=caml_check_bound(t,i)[1 + i], + _w4_= caml_call2 (symbol$79, - caml_call2(compare,caml_check_bound(t,_w7_)[1 + _w7_],_w6_), + caml_call2(compare,caml_check_bound(t,_w3_)[1 + _w3_],_w2_), 0); - if(_w8_){var i$0=i - 1 | 0,i=i$0;continue} - return _w8_}} + if(_w4_){var i$0=i - 1 | 0,i=i$0;continue} + return _w4_}} function is_sorted_strictly$0(t,compare) {var i$1=t.length - 1 - 1 | 0,i=i$1; for(;;) {if(caml_call2(symbol$78,i,1))return 1; var - _w4_=i - 1 | 0, - _w3_=caml_check_bound(t,i)[1 + i], - _w5_= + _w0_=i - 1 | 0, + _wZ_=caml_check_bound(t,i)[1 + i], + _w1_= caml_call2 (symbol$78, - caml_call2(compare,caml_check_bound(t,_w4_)[1 + _w4_],_w3_), + caml_call2(compare,caml_check_bound(t,_w0_)[1 + _w0_],_wZ_), 0); - if(_w5_){var i$0=i - 1 | 0,i=i$0;continue} - return _w5_}} + if(_w1_){var i$0=i - 1 | 0,i=i$0;continue} + return _w1_}} function folding_map$1(t,init,f) {var acc=[0,init]; return map @@ -42883,7 +45289,7 @@ return [0,acc[1],result]} function fold_result$3(t,init,f){return fold_result(fold,init,f,t)} function fold_until$3(t,init,f) - {return function(_w2_){return fold_until(fold,init,f,_w2_,t)}} + {return function(_wY_){return fold_until(fold,init,f,_wY_,t)}} function count$3(t,f){return count(fold,t,f)} function sum$3(m,t,f){return sum(fold,m,t,f)} function min_elt$3(t,compare){return min_elt(fold,t,compare)} @@ -42944,17 +45350,17 @@ len=1 + caml_call1(length,l$0) | 0, t=caml_make_vect(len,a), r=[0,l$0], - _wZ_=len - 2 | 0; - if(! (_wZ_ < 0)) - {var i=_wZ_; + _wV_=len - 2 | 0; + if(! (_wV_ < 0)) + {var i=_wV_; for(;;) - {var _w0_=r[1]; - if(! _w0_)throw [0,Assert_failure,_bo_]; - var l$1=_w0_[2],a$0=_w0_[1]; + {var _wW_=r[1]; + if(! _wW_)throw [0,Assert_failure,_bo_]; + var l$1=_wW_[2],a$0=_wW_[1]; caml_check_bound(t,i)[1 + i] = a$0; r[1] = l$1; - var _w1_=i - 1 | 0; - if(0 !== i){var i=_w1_;continue} + var _wX_=i - 1 | 0; + if(0 !== i){var i=_wX_;continue} break}} return t} return [0]} @@ -42963,8 +45369,8 @@ {var tl=xs[2], hd=xs[1], - _wY_=caml_call1(f,hd), - a=caml_make_vect(1 + caml_call1(length,tl) | 0,_wY_), + _wU_=caml_call1(f,hd), + a=caml_make_vect(1 + caml_call1(length,tl) | 0,_wU_), i=1, param=tl; for(;;) @@ -42980,8 +45386,8 @@ {var tl=xs[2], hd=xs[1], - _wX_=caml_call2(f,0,hd), - a=caml_make_vect(1 + caml_call1(length,tl) | 0,_wX_), + _wT_=caml_call2(f,0,hd), + a=caml_make_vect(1 + caml_call1(length,tl) | 0,_wT_), i=1, param=tl; for(;;) @@ -42997,9 +45403,9 @@ function of_list_rev_mapi(xs,f) {var t=of_list_mapi(xs,f);rev_inplace(t);return t} function filter_mapi$1(t,f) - {var r=[0,[0]],k=[0,0],_wV_=t.length - 1 - 1 | 0,_wU_=0; - if(! (_wV_ < 0)) - {var i=_wU_; + {var r=[0,[0]],k=[0,0],_wR_=t.length - 1 - 1 | 0,_wQ_=0; + if(! (_wR_ < 0)) + {var i=_wQ_; for(;;) {var match=caml_call2(f,i,t[1 + i]); if(match) @@ -43008,8 +45414,8 @@ r[1] = caml_make_vect(t.length - 1,a); r[1][1 + k[1]] = a; incr(k)} - var _wW_=i + 1 | 0; - if(_wV_ !== i){var i=_wW_;continue} + var _wS_=i + 1 | 0; + if(_wR_ !== i){var i=_wS_;continue} break}} return caml_call2(symbol$81,k[1],t.length - 1) ?r[1] @@ -43017,7 +45423,7 @@ function filter_map$1(t,f) {return filter_mapi$1(t,function(i,a){return caml_call1(f,a)})} function filter_opt$1(t) - {return filter_map$1(t,function(_wT_){return _wT_})} + {return filter_map$1(t,function(_wP_){return _wP_})} function iter2_exn$0(t1,t2,f) {if(caml_call2(symbol$80,t1.length - 1,t2.length - 1)) caml_call1(invalid_arg$0,cst_Array_iter2_exn); @@ -43033,8 +45439,8 @@ (init, len, function(i) - {var _wS_=caml_check_bound(t2,i)[1 + i]; - return caml_call2(f,caml_check_bound(t1,i)[1 + i],_wS_)})} + {var _wO_=caml_check_bound(t2,i)[1 + i]; + return caml_call2(f,caml_check_bound(t1,i)[1 + i],_wO_)})} function fold2_exn$0(t1,t2,init,f) {if(caml_call2(symbol$80,t1.length - 1,t2.length - 1)) caml_call1(invalid_arg$0,cst_Array_fold2_exn); @@ -43051,16 +45457,16 @@ {var i$1=t.length - 1 - 1 | 0,i=i$1; for(;;) {if(caml_call2(symbol$78,i,0))return 0; - var _wR_=caml_call1(f,caml_check_bound(t,i)[1 + i]); - if(_wR_)return _wR_; + var _wN_=caml_call1(f,caml_check_bound(t,i)[1 + i]); + if(_wN_)return _wN_; var i$0=i - 1 | 0,i=i$0; continue}} function existsi$2(t,f) {var i$1=t.length - 1 - 1 | 0,i=i$1; for(;;) {if(caml_call2(symbol$78,i,0))return 0; - var _wQ_=caml_call2(f,i,caml_check_bound(t,i)[1 + i]); - if(_wQ_)return _wQ_; + var _wM_=caml_call2(f,i,caml_check_bound(t,i)[1 + i]); + if(_wM_)return _wM_; var i$0=i - 1 | 0,i=i$0; continue}} function mem$3(t,a,equal){return exists$3(t,caml_call1(equal,a))} @@ -43068,16 +45474,16 @@ {var i$1=t.length - 1 - 1 | 0,i=i$1; for(;;) {if(caml_call2(symbol$78,i,0))return 1; - var _wP_=caml_call1(f,caml_check_bound(t,i)[1 + i]); - if(_wP_){var i$0=i - 1 | 0,i=i$0;continue} - return _wP_}} + var _wL_=caml_call1(f,caml_check_bound(t,i)[1 + i]); + if(_wL_){var i$0=i - 1 | 0,i=i$0;continue} + return _wL_}} function for_alli$2(t,f) {var i$1=t.length - 1 - 1 | 0,i=i$1; for(;;) {if(caml_call2(symbol$78,i,0))return 1; - var _wO_=caml_call2(f,i,caml_check_bound(t,i)[1 + i]); - if(_wO_){var i$0=i - 1 | 0,i=i$0;continue} - return _wO_}} + var _wK_=caml_call2(f,i,caml_check_bound(t,i)[1 + i]); + if(_wK_){var i$0=i - 1 | 0,i=i$0;continue} + return _wK_}} function exists2_exn$0(t1,t2,f) {var len=t1.length - 1; if(caml_call2(symbol$80,t2.length - 1,len)) @@ -43086,9 +45492,9 @@ for(;;) {if(caml_call2(symbol$78,i,0))return 0; var - _wM_=caml_check_bound(t2,i)[1 + i], - _wN_=caml_call2(f,caml_check_bound(t1,i)[1 + i],_wM_); - if(_wN_)return _wN_; + _wI_=caml_check_bound(t2,i)[1 + i], + _wJ_=caml_call2(f,caml_check_bound(t1,i)[1 + i],_wI_); + if(_wJ_)return _wJ_; var i$0=i - 1 | 0,i=i$0; continue}} function for_all2_exn$0(t1,t2,f) @@ -43099,22 +45505,22 @@ for(;;) {if(caml_call2(symbol$78,i,0))return 1; var - _wK_=caml_check_bound(t2,i)[1 + i], - _wL_=caml_call2(f,caml_check_bound(t1,i)[1 + i],_wK_); - if(_wL_){var i$0=i - 1 | 0,i=i$0;continue} - return _wL_}} + _wG_=caml_check_bound(t2,i)[1 + i], + _wH_=caml_call2(f,caml_check_bound(t1,i)[1 + i],_wG_); + if(_wH_){var i$0=i - 1 | 0,i=i$0;continue} + return _wH_}} function equal_array$1(equal,t1,t2) - {var _wJ_=caml_call2(symbol$81,t1.length - 1,t2.length - 1); - return _wJ_?for_all2_exn$0(t1,t2,equal):_wJ_} + {var _wF_=caml_call2(symbol$81,t1.length - 1,t2.length - 1); + return _wF_?for_all2_exn$0(t1,t2,equal):_wF_} function map_inplace(t,f) - {var _wG_=t.length - 1 - 1 | 0,_wF_=0; - if(! (_wG_ < 0)) - {var i=_wF_; + {var _wC_=t.length - 1 - 1 | 0,_wB_=0; + if(! (_wC_ < 0)) + {var i=_wB_; for(;;) - {var _wH_=caml_call1(f,caml_check_bound(t,i)[1 + i]); - caml_check_bound(t,i)[1 + i] = _wH_; - var _wI_=i + 1 | 0; - if(_wG_ !== i){var i=_wI_;continue} + {var _wD_=caml_call1(f,caml_check_bound(t,i)[1 + i]); + caml_check_bound(t,i)[1 + i] = _wD_; + var _wE_=i + 1 | 0; + if(_wC_ !== i){var i=_wE_;continue} break}} return 0} function findi$2(t,f) @@ -43136,9 +45542,9 @@ if(match){var match$0=match[1],x=match$0[2];return x} throw not_found$4} function find$4(t,f) - {function _wE_(param){var x=param[2];return x} + {function _wA_(param){var x=param[2];return x} return caml_call2 - (map$15,findi$2(t,function(i,x){return caml_call1(f,x)}),_wE_)} + (map$15,findi$2(t,function(i,x){return caml_call1(f,x)}),_wA_)} function find_map$3(t,f) {var length=t.length - 1,i=0; for(;;) @@ -43171,7 +45577,7 @@ var result=[0,0],i=[0,1],prev=[0,caml_check_bound(t,0)[1]]; for(;;) {if(caml_call2(symbol$78,i[1],n)) - {var _wD_=i[1],cur=caml_check_bound(t,_wD_)[1 + _wD_]; + {var _wz_=i[1],cur=caml_check_bound(t,_wz_)[1 + _wz_]; if(caml_call2(equal,cur,prev[1])) {result[1] = [0,[0,prev[1],cur]];i[1] = n} else @@ -43180,14 +45586,14 @@ return result[1]}} function reduce$1(t,f) {if(caml_call2(symbol$81,t.length - 1,0))return 0; - var r=[0,caml_check_bound(t,0)[1]],_wA_=t.length - 1 - 1 | 0,_wz_=1; - if(! (_wA_ < 1)) - {var i=_wz_; + var r=[0,caml_check_bound(t,0)[1]],_ww_=t.length - 1 - 1 | 0,_wv_=1; + if(! (_ww_ < 1)) + {var i=_wv_; for(;;) - {var _wB_=caml_check_bound(t,i)[1 + i]; - r[1] = caml_call2(f,r[1],_wB_); - var _wC_=i + 1 | 0; - if(_wA_ !== i){var i=_wC_;continue} + {var _wx_=caml_check_bound(t,i)[1 + i]; + r[1] = caml_call2(f,r[1],_wx_); + var _wy_=i + 1 | 0; + if(_ww_ !== i){var i=_wy_;continue} break}} return [0,r[1]]} function reduce_exn$1(t,f) @@ -43197,14 +45603,14 @@ function random_element_exn$0(opt,t) {if(opt)var sth=opt[1],random_state=sth;else var random_state=_R_[1]; if(is_empty$2(t)) - return caml_call1(failwith$0,cst_Array_random_element_exn_empty_array); - var _wy_=caml_call2(_R_[6],random_state,t.length - 1); - return caml_check_bound(t,_wy_)[1 + _wy_]} + return caml_call1(failwith$0,cst_Array_random_element_exn_e); + var _wu_=caml_call2(_R_[6],random_state,t.length - 1); + return caml_check_bound(t,_wu_)[1 + _wu_]} function random_element$0(opt,t) {if(opt)var sth=opt[1],random_state=sth;else var random_state=_R_[1]; try - {var _ww_=[0,random_element_exn$0([0,random_state],t)];return _ww_} - catch(_wx_){return 0}} + {var _ws_=[0,random_element_exn$0([0,random_state],t)];return _ws_} + catch(_wt_){return 0}} function zip$1(t1,t2) {return caml_call2(symbol$80,t1.length - 1,t2.length - 1) ?0 @@ -43222,10 +45628,10 @@ x=match[1], res1=caml_make_vect(n,x), res2=caml_make_vect(n,y), - _wu_=n - 1 | 0, - _wt_=1; - if(! (_wu_ < 1)) - {var i=_wt_; + _wq_=n - 1 | 0, + _wp_=1; + if(! (_wq_ < 1)) + {var i=_wp_; for(;;) {var match$0=caml_check_bound(t,i)[1 + i], @@ -43233,8 +45639,8 @@ x$0=match$0[1]; caml_check_bound(res1,i)[1 + i] = x$0; caml_check_bound(res2,i)[1 + i] = y$0; - var _wv_=i + 1 | 0; - if(_wu_ !== i){var i=_wv_;continue} + var _wr_=i + 1 | 0; + if(_wq_ !== i){var i=_wr_;continue} break}} return [0,res1,res2]} function sorted_copy(t,compare) @@ -43256,7 +45662,7 @@ function partition_tf$0(t,f) {return partitioni_tf(t,function(i,x){return caml_call1(f,x)})} function last$0(t) - {var _ws_=t.length - 1 - 1 | 0;return caml_check_bound(t,_ws_)[1 + _ws_]} + {var _wo_=t.length - 1 - 1 | 0;return caml_check_bound(t,_wo_)[1 + _wo_]} function to_sequence_mutable(t) {return [0, 0, @@ -43266,36 +45672,35 @@ :[1,caml_check_bound(t,i)[1 + i],i + 1 | 0]}]} function to_sequence(t){return to_sequence_mutable(caml_call1(copy,t))} function cartesian_product$1(t1,t2) - {if(! is_empty$2(t1)) - if(! is_empty$2(t2)) - {var - n1=t1.length - 1, - n2=t2.length - 1, - _wi_=caml_check_bound(t2,0)[1], - t=caml_make_vect(caml_mul(n1,n2),[0,caml_check_bound(t1,0)[1],_wi_]), - r=[0,0], - _wk_=n1 - 1 | 0, - _wj_=0; - if(! (_wk_ < 0)) - {var i1=_wj_; - for(;;) - {var _wm_=n2 - 1 | 0,_wl_=0; - if(! (_wm_ < 0)) - {var i2=_wl_; - for(;;) - {var - _wo_=caml_check_bound(t2,i2)[1 + i2], - _wp_=[0,caml_check_bound(t1,i1)[1 + i1],_wo_], - _wq_=r[1]; - caml_check_bound(t,_wq_)[1 + _wq_] = _wp_; - incr(r); - var _wr_=i2 + 1 | 0; - if(_wm_ !== i2){var i2=_wr_;continue} - break}} - var _wn_=i1 + 1 | 0; - if(_wk_ !== i1){var i1=_wn_;continue} - break}} - return t} + {if(! is_empty$2(t1) && ! is_empty$2(t2)) + {var + n1=t1.length - 1, + n2=t2.length - 1, + _we_=caml_check_bound(t2,0)[1], + t=caml_make_vect(caml_mul(n1,n2),[0,caml_check_bound(t1,0)[1],_we_]), + r=[0,0], + _wg_=n1 - 1 | 0, + _wf_=0; + if(! (_wg_ < 0)) + {var i1=_wf_; + for(;;) + {var _wi_=n2 - 1 | 0,_wh_=0; + if(! (_wi_ < 0)) + {var i2=_wh_; + for(;;) + {var + _wk_=caml_check_bound(t2,i2)[1 + i2], + _wl_=[0,caml_check_bound(t1,i1)[1 + i1],_wk_], + _wm_=r[1]; + caml_check_bound(t,_wm_)[1 + _wm_] = _wl_; + incr(r); + var _wn_=i2 + 1 | 0; + if(_wi_ !== i2){var i2=_wn_;continue} + break}} + var _wj_=i1 + 1 | 0; + if(_wg_ !== i1){var i1=_wj_;continue} + break}} + return t} return [0]} function transpose$0(tt) {if(caml_call2(symbol$81,tt.length - 1,0))return [0,[0]]; @@ -43319,13 +45724,13 @@ {var match=transpose$0(tt); if(match){var tt$0=match[1];return tt$0} return caml_call1(invalid_arg$0,cst_Array_transpose_exn)} - function get$1(_wh_,_wg_){return caml_check_bound(_wh_,_wg_)[1 + _wg_]} - function length$3(_wf_){return _wf_.length - 1} + function get$1(_wd_,_wc_){return caml_check_bound(_wd_,_wc_)[1 + _wc_]} + function length$3(_wb_){return _wb_.length - 1} var include$34=_a9_([0,get$1,length$3]), binary_search$0=include$34[1], binary_search_segmented$0=include$34[2]; - function length$4(_we_){return _we_.length - 1} + function length$4(_wa_){return _wa_.length - 1} function create_like(len,t) {if(caml_call2(symbol$81,len,0))return [0]; if(caml_call2(symbol$82,t.length - 1,0)) @@ -43341,18 +45746,18 @@ function invariant$5(invariant_a,t){return iter(t,invariant_a)} function unsafe_truncate(t,len) {var - _wa_=caml_call2(symbol$79,len,0), - _wb_=_wa_ || caml_call2(symbol$82,len,t.length - 1); - if(_wb_) + _v8_=caml_call2(symbol$79,len,0), + _v9_=_v8_ || caml_call2(symbol$82,len,t.length - 1); + if(_v9_) raise_s (caml_call2 (message, - cst_Array_unsafe_truncate_got_invalid_len, + cst_Array_unsafe_truncate_got_, [0,[0,cst_len,caml_call1(sexp_of_t$4,len)],0])); var - _wc_=caml_call2(symbol$78,len,t.length - 1), - _wd_=_wc_?caml_obj_truncate(t,len):_wc_; - return _wd_} + _v__=caml_call2(symbol$78,len,t.length - 1), + _v$_=_v__?caml_obj_truncate(t,len):_v__; + return _v$_} var _bu_=[0,[0,Insertion_sort,Heap_sort,Intro_sort]], Base_Array= @@ -43363,7 +45768,7 @@ binary_search$0, binary_search_segmented$0, mem$3, - function(_v$_){return _v$_.length - 1}, + function(_v7_){return _v7_.length - 1}, is_empty$2, iter, fold, @@ -43483,10 +45888,10 @@ getenv_exn]; caml_register_global(1037,Base_Sys,"Base__Sys"); function invariant$6(t) - {var _v__=Stdlib_obj[15]; - if(caml_call2(symbol$80,caml_obj_tag(t),_v__))return 0; + {var _v6_=Stdlib_obj[15]; + if(caml_call2(symbol$80,caml_obj_tag(t),_v6_))return 0; throw [0,Assert_failure,_bv_]} - function length$5(_v9_){return _v9_.length - 1} + function length$5(_v5_){return _v5_.length - 1} function swap$2(t,i,j){return swap(t,i,j)} function sexp_of_t$30(t) {return [0, @@ -43497,75 +45902,72 @@ [0,caml_call1(to_string,t.length - 1),_bw_]])]} function create_zero(len){return caml_make_vect(len,0)} function create$3(len,x) - {var _v5_=Stdlib_obj[14]; - if(caml_call2(symbol$80,caml_obj_tag(x),_v5_)) + {var _v1_=Stdlib_obj[14]; + if(caml_call2(symbol$80,caml_obj_tag(x),_v1_)) return caml_make_vect(len,x); - var t=caml_make_vect(len,0),_v7_=len - 1 | 0,_v6_=0; - if(! (_v7_ < 0)) - {var i=_v6_; + var t=caml_make_vect(len,0),_v3_=len - 1 | 0,_v2_=0; + if(! (_v3_ < 0)) + {var i=_v2_; for(;;) {t[1 + i] = x; - var _v8_=i + 1 | 0; - if(_v7_ !== i){var i=_v8_;continue} + var _v4_=i + 1 | 0; + if(_v3_ !== i){var i=_v4_;continue} break}} return t} var empty$0=[0]; function get$2(t,i){return caml_check_bound(t,i)[1 + i]} function unsafe_get(t,i){return t[1 + i]} function unsafe_set_with_caml_modify(t,i,obj){t[1 + i] = obj;return 0} - function unsafe_set_int_assuming_currently_int(t,i,int$0) + function unsafe_set_int_assuming_curren(t,i,int$0) {t[1 + i] = int$0;return 0} function set$0(t,i,obj) {var old_obj=get$2(t,i); - if(typeof old_obj === "number") - if(typeof obj === "number") - return unsafe_set_int_assuming_currently_int(t,i,obj); - var _v4_=1 - (old_obj === obj?1:0); - return _v4_?unsafe_set_with_caml_modify(t,i,obj):_v4_} + if(typeof old_obj === "number" && typeof obj === "number") + return unsafe_set_int_assuming_curren(t,i,obj); + var _v0_=1 - (old_obj === obj?1:0); + return _v0_?unsafe_set_with_caml_modify(t,i,obj):_v0_} function unsafe_set(t,i,obj) {var old_obj=t[1 + i]; - if(typeof old_obj === "number") - if(typeof obj === "number") - return unsafe_set_int_assuming_currently_int(t,i,obj); - var _v3_=1 - (old_obj === obj?1:0); - return _v3_?unsafe_set_with_caml_modify(t,i,obj):_v3_} - function unsafe_set_omit_phys_equal_check(t,i,obj) + if(typeof old_obj === "number" && typeof obj === "number") + return unsafe_set_int_assuming_curren(t,i,obj); + var _vZ_=1 - (old_obj === obj?1:0); + return _vZ_?unsafe_set_with_caml_modify(t,i,obj):_vZ_} + function unsafe_set_omit_phys_equal_che(t,i,obj) {var old_obj=t[1 + i]; - if(typeof old_obj === "number") - if(typeof obj === "number") - return unsafe_set_int_assuming_currently_int(t,i,obj); + if(typeof old_obj === "number" && typeof obj === "number") + return unsafe_set_int_assuming_curren(t,i,obj); return unsafe_set_with_caml_modify(t,i,obj)} function singleton$0(obj){return create$3(1,obj)} - function unsafe_set_assuming_currently_int(t,i,obj) + function unsafe_set_assuming_currently_(t,i,obj) {return typeof obj === "number" - ?unsafe_set_int_assuming_currently_int(t,i,obj) + ?unsafe_set_int_assuming_curren(t,i,obj) :unsafe_set_with_caml_modify(t,i,obj)} function unsafe_set_int(t,i,int$0) {var old_obj=t[1 + i]; return typeof old_obj === "number" - ?unsafe_set_int_assuming_currently_int(t,i,int$0) + ?unsafe_set_int_assuming_curren(t,i,int$0) :unsafe_set_with_caml_modify(t,i,int$0)} function unsafe_clear_if_pointer(t,i) - {var old_obj=t[1 + i],_v2_=1 - (typeof old_obj === "number"?1:0); - return _v2_?unsafe_set_with_caml_modify(t,i,0):_v2_} + {var old_obj=t[1 + i],_vY_=1 - (typeof old_obj === "number"?1:0); + return _vY_?unsafe_set_with_caml_modify(t,i,0):_vY_} function unsafe_blit$2(src,src_pos,dst,dst_pos,len) {if(caml_call2(symbol$78,dst_pos,src_pos)) - {var _vY_=len - 1 | 0,_vX_=0; - if(! (_vY_ < 0)) - {var i=_vX_; + {var _vU_=len - 1 | 0,_vT_=0; + if(! (_vU_ < 0)) + {var i=_vT_; for(;;) {unsafe_set(dst,dst_pos + i | 0,src[1 + (src_pos + i | 0)]); - var _vZ_=i + 1 | 0; - if(_vY_ !== i){var i=_vZ_;continue} + var _vV_=i + 1 | 0; + if(_vU_ !== i){var i=_vV_;continue} break}} return 0} - var _v0_=len - 1 | 0; - if(! (_v0_ < 0)) - {var i$0=_v0_; + var _vW_=len - 1 | 0; + if(! (_vW_ < 0)) + {var i$0=_vW_; for(;;) {unsafe_set(dst,dst_pos + i$0 | 0,src[1 + (src_pos + i$0 | 0)]); - var _v1_=i$0 - 1 | 0; - if(0 !== i$0){var i$0=_v1_;continue} + var _vX_=i$0 - 1 | 0; + if(0 !== i$0){var i$0=_vX_;continue} break}} return 0} var @@ -43601,10 +46003,10 @@ set$0, unsafe_set, swap$2, - unsafe_set_assuming_currently_int, - unsafe_set_int_assuming_currently_int, + unsafe_set_assuming_currently_, + unsafe_set_int_assuming_curren, unsafe_set_int, - unsafe_set_omit_phys_equal_check, + unsafe_set_omit_phys_equal_che, unsafe_clear_if_pointer, unsafe_truncate$0]; caml_register_global(1039,Base_Obj_array,"Base__Obj_array"); @@ -43618,44 +46020,44 @@ function unsafe_get$0(arr,i){return arr[1 + i]} function unsafe_set$0(arr,i,x){return unsafe_set(arr,i,x)} function unsafe_set_int$0(arr,i,x){return unsafe_set_int(arr,i,x)} - function unsafe_set_int_assuming_currently_int$0(arr,i,x) - {return unsafe_set_int_assuming_currently_int(arr,i,x)} - function unsafe_set_assuming_currently_int$0(arr,i,x) - {return unsafe_set_assuming_currently_int(arr,i,x)} - function unsafe_set_omit_phys_equal_check$0(t,i,x) - {return unsafe_set_omit_phys_equal_check(t,i,x)} + function unsafe_set_int_assuming_curren$0(arr,i,x) + {return unsafe_set_int_assuming_curren(arr,i,x)} + function unsafe_set_assuming_currently_$0(arr,i,x) + {return unsafe_set_assuming_currently_(arr,i,x)} + function unsafe_set_omit_phys_equal_che$0(t,i,x) + {return unsafe_set_omit_phys_equal_che(t,i,x)} function invariant$7(t) - {var _vW_=Stdlib_obj[15]; - if(caml_call2(symbol$80,caml_obj_tag(t),_vW_))return 0; + {var _vS_=Stdlib_obj[15]; + if(caml_call2(symbol$80,caml_obj_tag(t),_vS_))return 0; throw [0,Assert_failure,_by_]} function init$3(l,f) {if(caml_call2(symbol$78,l,0)) return caml_call1(invalid_arg$0,cst_Uniform_array_init); - var res=caml_make_vect(l,0),_vU_=l - 1 | 0,_vT_=0; - if(! (_vU_ < 0)) - {var i=_vT_; + var res=caml_make_vect(l,0),_vQ_=l - 1 | 0,_vP_=0; + if(! (_vQ_ < 0)) + {var i=_vP_; for(;;) {unsafe_set$0(res,i,caml_call1(f,i)); - var _vV_=i + 1 | 0; - if(_vU_ !== i){var i=_vV_;continue} + var _vR_=i + 1 | 0; + if(_vQ_ !== i){var i=_vR_;continue} break}} return res} function of_array(arr) - {return init$3(arr.length - 1,function(_vS_){return arr[1 + _vS_]})} + {return init$3(arr.length - 1,function(_vO_){return arr[1 + _vO_]})} function map$21(a,f) {return init$3(a.length - 1,function(i){return caml_call1(f,a[1 + i])})} function iter$6(a,f) - {var _vQ_=a.length - 1 - 1 | 0,_vP_=0; - if(! (_vQ_ < 0)) - {var i=_vP_; + {var _vM_=a.length - 1 - 1 | 0,_vL_=0; + if(! (_vM_ < 0)) + {var i=_vL_; for(;;) {caml_call1(f,a[1 + i]); - var _vR_=i + 1 | 0; - if(_vQ_ !== i){var i=_vR_;continue} + var _vN_=i + 1 | 0; + if(_vM_ !== i){var i=_vN_;continue} break}} return 0} function to_list$4(t) - {return init$1(t.length - 1,function(_vO_){return get$3(t,_vO_)})} + {return init$1(t.length - 1,function(_vK_){return get$3(t,_vK_)})} function of_list$3(l) {var len=caml_call1(length,l),res=caml_make_vect(len,0); iteri$0(l,function(i,x){return set$1(res,i,x)}); @@ -43666,8 +46068,8 @@ {var i$1=t.length - 1 - 1 | 0,i=i$1; for(;;) {if(caml_call2(symbol$78,i,0))return 0; - var _vN_=caml_call1(f,t[1 + i]); - if(_vN_)return _vN_; + var _vJ_=caml_call1(f,t[1 + i]); + if(_vJ_)return _vJ_; var i$0=i - 1 | 0,i=i$0; continue}} function map2_exn$1(t1,t2,f) @@ -43692,13 +46094,13 @@ sub$7=include$37[4], subo$1=include$37[5]; function fold$3(t,init,f) - {var r=[0,init],_vL_=t.length - 1 - 1 | 0,_vK_=0; - if(! (_vL_ < 0)) - {var i=_vK_; + {var r=[0,init],_vH_=t.length - 1 - 1 | 0,_vG_=0; + if(! (_vH_ < 0)) + {var i=_vG_; for(;;) {r[1] = caml_call2(f,r[1],t[1 + i]); - var _vM_=i + 1 | 0; - if(_vL_ !== i){var i=_vM_;continue} + var _vI_=i + 1 | 0; + if(_vH_ !== i){var i=_vI_;continue} break}} return r[1]} function min_elt$4(t,compare){return min_elt(fold$3,t,compare)} @@ -43719,7 +46121,7 @@ set$1, unsafe_set$0, swap$3, - unsafe_set_omit_phys_equal_check$0, + unsafe_set_omit_phys_equal_che$0, map$21, iter$6, of_array, @@ -43735,8 +46137,8 @@ unsafe_truncate$0, unsafe_create_uninitialized, create_obj_array, - unsafe_set_assuming_currently_int$0, - unsafe_set_int_assuming_currently_int$0, + unsafe_set_assuming_currently_$0, + unsafe_set_int_assuming_curren$0, unsafe_set_int$0, unsafe_clear_if_pointer, exists$4, @@ -43785,15 +46187,12 @@ {var s=sexp[1]; try {var - _vH_=function(i){return caml_call1(of_int$1,i)}, - _vI_=caml_call3(Stdlib_scanf[4],s,_bB_,_vH_); - return _vI_} - catch(_vJ_) - {return caml_call2 - (of_sexp_error, - cst_Uchar_t_of_sexp_atom_of_the_form_U_XXXX_needed, - sexp)}} - return caml_call2(of_sexp_error,cst_Uchar_t_of_sexp_atom_needed,sexp)} + _vD_=function(i){return caml_call1(of_int$1,i)}, + _vE_=caml_call3(Stdlib_scanf[4],s,_bB_,_vD_); + return _vE_} + catch(_vF_) + {return caml_call2(of_sexp_error,cst_Uchar_t_of_sexp_atom_of_th,sexp)}} + return caml_call2(of_sexp_error,cst_Uchar_t_of_sexp_atom_neede,sexp)} var pp$6=_v_([0,module_name$4,to_string$7])[1], _bC_=Make$1([0,compare$36,sexp_of_t$32]), @@ -43806,7 +46205,7 @@ validate_bound$0=_bC_[19]; function succ_exn(c) {try - {var _vG_=caml_call1(succ$0,c);return _vG_} + {var _vC_=caml_call1(succ$0,c);return _vC_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Stdlib[6]) @@ -43814,14 +46213,14 @@ throw exn}} function succ$1(c) {try - {var _vE_=[0,caml_call1(succ$0,c)];return _vE_} - catch(_vF_) - {_vF_ = caml_wrap_exception(_vF_); - if(_vF_[1] === Stdlib[6])return 0; - throw _vF_}} + {var _vA_=[0,caml_call1(succ$0,c)];return _vA_} + catch(_vB_) + {_vB_ = caml_wrap_exception(_vB_); + if(_vB_[1] === Stdlib[6])return 0; + throw _vB_}} function pred_exn(c) {try - {var _vD_=caml_call1(pred,c);return _vD_} + {var _vz_=caml_call1(pred,c);return _vz_} catch(exn) {exn = caml_wrap_exception(exn); if(exn[1] === Stdlib[6]) @@ -43829,11 +46228,11 @@ throw exn}} function pred$0(c) {try - {var _vB_=[0,caml_call1(pred,c)];return _vB_} - catch(_vC_) - {_vC_ = caml_wrap_exception(_vC_); - if(_vC_[1] === Stdlib[6])return 0; - throw _vC_}} + {var _vx_=[0,caml_call1(pred,c)];return _vx_} + catch(_vy_) + {_vy_ = caml_wrap_exception(_vy_); + if(_vy_[1] === Stdlib[6])return 0; + throw _vy_}} function of_scalar(i) {return caml_call1(is_valid,i)?[0,caml_call1(unsafe_of_int$0,i)]:0} function of_scalar_exn(i) @@ -43845,8 +46244,8 @@ {return caml_call1(is_char,c)?[0,caml_call1(unsafe_to_char,c)]:0} function to_char_exn(c) {if(caml_call1(is_char,c))return caml_call1(unsafe_to_char,c); - var _vA_=caml_call1(to_int$2,c); - return caml_call2(failwithf(_bG_),_vA_,0)} + var _vw_=caml_call1(to_int$2,c); + return caml_call2(failwithf(_bG_),_vw_,0)} var symbol$100=include$6[2], symbol$101=include$6[3], @@ -43903,9 +46302,9 @@ caml_register_global(1043,Base_Uchar,"Base__Uchar"); var Base_Floatable=[0]; caml_register_global(1044,Base_Floatable,"Base__Floatable"); - function ceil(_vz_){return Math.ceil(_vz_)} - function floor(_vy_){return Math.floor(_vy_)} - function mod_float(_vx_,_vw_){return _vx_ % _vw_} + function ceil(_vv_){return Math.ceil(_vv_)} + function floor(_vu_){return Math.floor(_vu_)} + function mod_float(_vt_,_vs_){return _vt_ % _vs_} var modf=runtime.caml_modf_float, float_of_string$0=caml_float_of_string, @@ -43915,8 +46314,8 @@ max_finite_value=Caml$0[13], epsilon_float$1=Caml$0[15], classify_float=caml_classify_float; - function abs_float(_vv_){return Math.abs(_vv_)} - function symbol$106(_vu_,_vt_){return Math.pow(_vu_,_vt_)} + function abs_float(_vr_){return Math.abs(_vr_)} + function symbol$106(_vq_,_vp_){return Math.pow(_vq_,_vp_)} var frexp=runtime.caml_frexp_float,ldexp=runtime.caml_ldexp_float; function is_nan(x){return caml_call2(include$7[3],x,x)} function to_int64_preserve_order(t) @@ -43936,8 +46335,8 @@ function one_ulp(dir,t) {var match=to_int64_preserve_order(t); if(match) - {var x=match[1],_vs_=759637122 <= dir?_bJ_:_bK_; - return of_int64_preserve_order(caml_int64_add(x,_vs_))} + {var x=match[1],_vo_=759637122 <= dir?_bJ_:_bK_; + return of_int64_preserve_order(caml_int64_add(x,_vo_))} return Caml$0[12]} function upper_bound_for_int(num_bits) {var exp=num_bits - 1 | 0;return one_ulp(759637122,Math.pow(2.,exp))} @@ -44053,22 +46452,27 @@ function is_print(param) {var switcher=param - 32 | 0;return 94 < switcher >>> 0?0:1} function is_whitespace(param) - {var switch$0=14 <= param?32 === param?1:0:9 <= param?1:0; + {var switch$0=0; + if(14 <= param) + {if(32 === param)switch$0 = 1} + else + if(9 <= param)switch$0 = 1; return switch$0?1:0} function is_digit(param) {var switcher=param - 48 | 0;return 9 < switcher >>> 0?0:1} function is_alpha(param) - {var - switch$0= - 91 <= param?25 < (param - 97 | 0) >>> 0?0:1:65 <= param?1:0; + {var switch$0=0; + if(91 <= param) + {if(! (25 < (param - 97 | 0) >>> 0))switch$0 = 1} + else + if(65 <= param)switch$0 = 1; return switch$0?1:0} function is_alphanum(param) - {var - _vr_=param - 48 | 0, - switch$0= - 42 < _vr_ >>> 0 - ?25 < (_vr_ - 49 | 0) >>> 0?0:1 - :6 < (_vr_ - 10 | 0) >>> 0?1:0; + {var _vn_=param - 48 | 0,switch$0=0; + if(42 < _vn_ >>> 0) + {if(! (25 < (_vn_ - 49 | 0) >>> 0))switch$0 = 1} + else + if(6 < (_vn_ - 10 | 0) >>> 0)switch$0 = 1; return switch$0?1:0} function get_digit_exn(t) {return is_digit(t)?t - 48 | 0:caml_call2(failwithf(_b2_),t,0)} @@ -44146,10 +46550,10 @@ {var tr_map=caml_create_bytes(256),i$3=0; for(;;) {caml_bytes_unsafe_set(tr_map,i$3,of_int_exn(i$3)); - var _vq_=i$3 + 1 | 0; - if(255 !== i$3){var i$3=_vq_;continue} + var _vm_=i$3 + 1 | 0; + if(255 !== i$3){var i$3=_vm_;continue} var - _vj_= + _vf_= caml_call2 (include$1[12], caml_ml_string_length(target), @@ -44158,33 +46562,33 @@ 1 | 0, - _vi_=0; - if(! (_vj_ < 0)) - {var i$2=_vi_; + _ve_=0; + if(! (_vf_ < 0)) + {var i$2=_ve_; for(;;) {var index$0=caml_string_unsafe_get(target,i$2); caml_bytes_unsafe_set (tr_map,index$0,caml_string_unsafe_get(replacement,i$2)); - var _vp_=i$2 + 1 | 0; - if(_vj_ !== i$2){var i$2=_vp_;continue} + var _vl_=i$2 + 1 | 0; + if(_vf_ !== i$2){var i$2=_vl_;continue} break}} var last_replacement= caml_string_unsafe_get (replacement,caml_ml_string_length(replacement) - 1 | 0), - _vk_= + _vg_= caml_call2 (include$1[12], caml_ml_string_length(target), caml_ml_string_length(replacement)), - _vl_=caml_ml_string_length(target) - 1 | 0; - if(! (_vl_ < _vk_)) - {var i$1=_vk_; + _vh_=caml_ml_string_length(target) - 1 | 0; + if(! (_vh_ < _vg_)) + {var i$1=_vg_; for(;;) {var index=caml_string_unsafe_get(target,i$1); caml_bytes_unsafe_set(tr_map,index,last_replacement); - var _vo_=i$1 + 1 | 0; - if(_vl_ !== i$1){var i$1=_vo_;continue} + var _vk_=i$1 + 1 | 0; + if(_vh_ !== i$1){var i$1=_vk_;continue} break}} var first_target=caml_string_get(target,0); if @@ -44196,14 +46600,14 @@ {var i=0; for(;;) {if(caml_call2(include$1[4],i,256)) - var _vn_=0; + var _vj_=0; else - {var _vm_=of_int_exn(i); + {var _vi_=of_int_exn(i); if - (! caml_call2(symbol$121,caml_bytes_unsafe_get(tr_map,i),_vm_)) + (! caml_call2(symbol$121,caml_bytes_unsafe_get(tr_map,i),_vi_)) {var i$0=i + 1 | 0,i=i$0;continue} - var _vn_=1} - if(! _vn_)return 0; + var _vj_=1} + if(! _vj_)return 0; break}} return [0,unsafe_to_string(tr_map)]}} var Base_Bytes_tr=[0,tr_create_map]; @@ -44215,11 +46619,11 @@ {var str_len=caml_ml_string_length(str), sub_len=caml_ml_string_length(sub), - _vf_=caml_call2(symbol$78,str_pos$1,0), - _vg_=_vf_ || caml_call2(symbol$82,str_pos$1,str_len); - if(_vg_)caml_call3(invalid_argf(_b3_),str_pos$1,str_len,0); - var _vh_=caml_call2(symbol$79,str_pos$1 + sub_len | 0,str_len); - if(_vh_) + _vb_=caml_call2(symbol$78,str_pos$1,0), + _vc_=_vb_ || caml_call2(symbol$82,str_pos$1,str_len); + if(_vc_)caml_call3(invalid_argf(_b3_),str_pos$1,str_len,0); + var _vd_=caml_call2(symbol$79,str_pos$1 + sub_len | 0,str_len); + if(_vd_) {var str_pos=str_pos$1,sub_pos=0; for(;;) {if(caml_call2(symbol$81,sub_pos,sub_len))return 1; @@ -44235,25 +46639,25 @@ sub_pos=sub_pos$0; continue} return 0}} - return _vh_} + return _vd_} function is_suffix_gen(string,suffix,char_equal) {var string_len=caml_ml_string_length(string), suffix_len=caml_ml_string_length(suffix), - _ve_=caml_call2(symbol$83,string_len,suffix_len); - return _ve_ + _va_=caml_call2(symbol$83,string_len,suffix_len); + return _va_ ?is_substring_at_gen (string,string_len - suffix_len | 0,suffix,char_equal) - :_ve_} + :_va_} function is_prefix_gen(string,prefix,char_equal) {var string_len=caml_ml_string_length(string), prefix_len=caml_ml_string_length(prefix), - _vd_=caml_call2(symbol$83,string_len,prefix_len); - return _vd_?is_substring_at_gen(string,0,prefix,char_equal):_vd_} + _u$_=caml_call2(symbol$83,string_len,prefix_len); + return _u$_?is_substring_at_gen(string,0,prefix,char_equal):_u$_} function char_equal_caseless(c1,c2) - {var _vc_=caml_call1(_c_,c2); - return caml_call2(equal_char$1,caml_call1(_c_,c1),_vc_)} + {var _u__=caml_call1(_c_,c2); + return caml_call2(equal_char$1,caml_call1(_c_,c1),_u__)} function compare$39(string1,string2) {if(string1 === string2)return 0; var @@ -44267,23 +46671,23 @@ var c2=caml_string_unsafe_get(string2,pos), c1=caml_string_unsafe_get(string1,pos), - _vb_=caml_call1(_c_,c2), - c=caml_call2(compare_char$0,caml_call1(_c_,c1),_vb_); + _u9_=caml_call1(_c_,c2), + c=caml_call2(compare_char$0,caml_call1(_c_,c1),_u9_); if(0 === c){var pos$0=pos + 1 | 0,pos=pos$0;continue} return c}} function hash_fold_t$20(state,t) {var len=caml_ml_string_length(t), state$0=[0,caml_call2(hash_fold_t$4,state,len)], - _u__=len - 1 | 0, - _u9_=0; - if(! (_u__ < 0)) - {var pos=_u9_; + _u6_=len - 1 | 0, + _u5_=0; + if(! (_u6_ < 0)) + {var pos=_u5_; for(;;) - {var _u$_=caml_call1(_c_,caml_string_unsafe_get(t,pos)); - state$0[1] = caml_call2(hash_fold_t$3,state$0[1],_u$_); - var _va_=pos + 1 | 0; - if(_u__ !== pos){var pos=_va_;continue} + {var _u7_=caml_call1(_c_,caml_string_unsafe_get(t,pos)); + state$0[1] = caml_call2(hash_fold_t$3,state$0[1],_u7_); + var _u8_=pos + 1 | 0; + if(_u6_ !== pos){var pos=_u8_;continue} break}} return state$0[1]} function hash$7(t){return run(0,hash_fold_t$20,t)} @@ -44313,8 +46717,11 @@ validate_ubound$1=include$42[18], validate_bound$1=include$42[19]; function sub$8(src,pos,len) - {if(caml_call2(symbol$81,pos,0)) - if(caml_call2(symbol$81,len,caml_ml_string_length(src)))return src; + {if + (caml_call2(symbol$81,pos,0) + && + caml_call2(symbol$81,len,caml_ml_string_length(src))) + return src; check_pos_len_exn(pos,len,caml_ml_string_length(src)); var dst=caml_create_bytes(len); if(caml_call2(symbol$82,len,0))caml_blit_string(src,pos,dst,0,len); @@ -44334,16 +46741,16 @@ check_pos_len_exn(pos$1,len$0,total_length); var end=pos$1 + len$0 | 0,pos=pos$1; for(;;) - {var _u6_=caml_call2(symbol$78,pos,end); - if(_u6_) + {var _u2_=caml_call2(symbol$78,pos,end); + if(_u2_) {var - _u7_= + _u3_= caml_call2(equal_char$1,caml_string_unsafe_get(t,pos),char$0); - if(! _u7_){var pos$0=pos + 1 | 0,pos=pos$0;continue} - var _u8_=_u7_} + if(! _u3_){var pos$0=pos + 1 | 0,pos=pos$0;continue} + var _u4_=_u3_} else - var _u8_=_u6_; - return _u8_}} + var _u4_=_u2_; + return _u4_}} function is_empty$3(t) {return caml_call2(symbol$81,caml_ml_string_length(t),0)} function index_from_exn_internal(string,pos,len,not_found,char$0) @@ -44364,9 +46771,8 @@ var not_found$8=[0,Not_found_s,_b5_]; function index_from_exn(t,pos,char$0) {var len=caml_ml_string_length(t); - if(! caml_call2(symbol$78,pos,0)) - if(! caml_call2(symbol$82,pos,len)) - return index_from_exn_internal(t,pos,len,not_found$8,char$0); + if(! caml_call2(symbol$78,pos,0) && ! caml_call2(symbol$82,pos,len)) + return index_from_exn_internal(t,pos,len,not_found$8,char$0); return caml_call1(invalid_arg$0,cst_String_index_from_exn)} function rindex_from_exn_internal(string,pos,len,not_found,char$0) {var pos$0=pos; @@ -44386,37 +46792,36 @@ var not_found$10=[0,Not_found_s,_b7_]; function rindex_from_exn(t,pos,char$0) {var len=caml_ml_string_length(t); - if(! caml_call2(symbol$78,pos,-1)) - if(! caml_call2(symbol$83,pos,len)) - return rindex_from_exn_internal(t,pos,len,not_found$10,char$0); + if(! caml_call2(symbol$78,pos,-1) && ! caml_call2(symbol$83,pos,len)) + return rindex_from_exn_internal(t,pos,len,not_found$10,char$0); return caml_call1(invalid_arg$0,cst_String_rindex_from_exn)} function index(t,char$0) {try - {var _u4_=[0,index_exn(t,char$0)];return _u4_} - catch(_u5_) - {_u5_ = caml_wrap_exception(_u5_); - if(_u5_[1] !== Not_found_s)if(_u5_ !== Caml$0[90])throw _u5_; + {var _u0_=[0,index_exn(t,char$0)];return _u0_} + catch(_u1_) + {_u1_ = caml_wrap_exception(_u1_); + if(_u1_[1] !== Not_found_s && _u1_ !== Caml$0[90])throw _u1_; return 0}} function rindex(t,char$0) {try - {var _u2_=[0,rindex_exn(t,char$0)];return _u2_} - catch(_u3_) - {_u3_ = caml_wrap_exception(_u3_); - if(_u3_[1] !== Not_found_s)if(_u3_ !== Caml$0[90])throw _u3_; + {var _uY_=[0,rindex_exn(t,char$0)];return _uY_} + catch(_uZ_) + {_uZ_ = caml_wrap_exception(_uZ_); + if(_uZ_[1] !== Not_found_s && _uZ_ !== Caml$0[90])throw _uZ_; return 0}} function index_from(t,pos,char$0) {try - {var _u0_=[0,index_from_exn(t,pos,char$0)];return _u0_} - catch(_u1_) - {_u1_ = caml_wrap_exception(_u1_); - if(_u1_[1] !== Not_found_s)if(_u1_ !== Caml$0[90])throw _u1_; + {var _uW_=[0,index_from_exn(t,pos,char$0)];return _uW_} + catch(_uX_) + {_uX_ = caml_wrap_exception(_uX_); + if(_uX_[1] !== Not_found_s && _uX_ !== Caml$0[90])throw _uX_; return 0}} function rindex_from(t,pos,char$0) {try - {var _uY_=[0,rindex_from_exn(t,pos,char$0)];return _uY_} - catch(_uZ_) - {_uZ_ = caml_wrap_exception(_uZ_); - if(_uZ_[1] !== Not_found_s)if(_uZ_ !== Caml$0[90])throw _uZ_; + {var _uU_=[0,rindex_from_exn(t,pos,char$0)];return _uU_} + catch(_uV_) + {_uV_ = caml_wrap_exception(_uV_); + if(_uV_[1] !== Not_found_s && _uV_ !== Caml$0[90])throw _uV_; return 0}} function sexp_of_t$33(param) {var @@ -44428,14 +46833,15 @@ function kmp_internal_loop(matched_chars,next_text_char,pattern,kmp_arr) {var matched_chars$0=[0,matched_chars]; for(;;) - {if(caml_call2(symbol$82,matched_chars$0[1],0)) - if - (caml_call2 - (symbol$121, - next_text_char, - caml_string_unsafe_get(pattern,matched_chars$0[1]))) - {matched_chars$0[1] = kmp_arr[1 + (matched_chars$0[1] - 1 | 0)]; - continue} + {if + (caml_call2(symbol$82,matched_chars$0[1],0) + && + caml_call2 + (symbol$121, + next_text_char, + caml_string_unsafe_get(pattern,matched_chars$0[1]))) + {matched_chars$0[1] = kmp_arr[1 + (matched_chars$0[1] - 1 | 0)]; + continue} if (caml_call2 (equal_char$1, @@ -44447,9 +46853,9 @@ {var n=caml_ml_string_length(pattern),kmp_arr=caml_make_vect(n,-1); if(caml_call2(symbol$82,n,0)) {kmp_arr[1] = 0; - var matched_chars=[0,0],_uW_=n - 1 | 0,_uV_=1; - if(! (_uW_ < 1)) - {var i=_uV_; + var matched_chars=[0,0],_uS_=n - 1 | 0,_uR_=1; + if(! (_uS_ < 1)) + {var i=_uR_; for(;;) {matched_chars[1] = @@ -44459,36 +46865,39 @@ pattern, kmp_arr); kmp_arr[1 + i] = matched_chars[1]; - var _uX_=i + 1 | 0; - if(_uW_ !== i){var i=_uX_;continue} + var _uT_=i + 1 | 0; + if(_uS_ !== i){var i=_uT_;continue} break}}} return [0,pattern,kmp_arr]} function index_internal(opt,param,text) {var kmp_arr=param[2],pattern=param[1]; if(opt)var sth=opt[1],pos=sth;else var pos=0; - if(! caml_call2(symbol$78,pos,0)) - if - (! - caml_call2 - (symbol$82, - pos, - caml_ml_string_length(text) - caml_ml_string_length(pattern) | 0)) - {var - j=[0,pos], - matched_chars=[0,0], - k=caml_ml_string_length(pattern), - n=caml_ml_string_length(text); - for(;;) - {if(caml_call2(symbol$78,j[1],n)) - if(caml_call2(symbol$78,matched_chars[1],k)) - {var next_text_char=caml_string_unsafe_get(text,j[1]); - matched_chars[1] - = - kmp_internal_loop - (matched_chars[1],next_text_char,pattern,kmp_arr); - j[1] = j[1] + 1 | 0; - continue} - return caml_call2(symbol$81,matched_chars[1],k)?j[1] - k | 0:-1}} + if + (! + caml_call2(symbol$78,pos,0) + && + ! + caml_call2 + (symbol$82, + pos, + caml_ml_string_length(text) - caml_ml_string_length(pattern) | 0)) + {var + j=[0,pos], + matched_chars=[0,0], + k=caml_ml_string_length(pattern), + n=caml_ml_string_length(text); + for(;;) + {if + (caml_call2(symbol$78,j[1],n) + && + caml_call2(symbol$78,matched_chars[1],k)) + {var next_text_char=caml_string_unsafe_get(text,j[1]); + matched_chars[1] + = + kmp_internal_loop(matched_chars[1],next_text_char,pattern,kmp_arr); + j[1] = j[1] + 1 | 0; + continue} + return caml_call2(symbol$81,matched_chars[1],k)?j[1] - k | 0:-1}} return -1} function matches(t,str) {return caml_call2(symbol$83,index_internal(0,t,str),0)} @@ -44509,15 +46918,15 @@ if(caml_call2(symbol$81,caml_ml_string_length(pattern),0)) return init$1 (1 + caml_ml_string_length(text) | 0, - function(_uU_){return _uU_}); + function(_uQ_){return _uQ_}); var matched_chars=[0,0], k=caml_ml_string_length(pattern), n=caml_ml_string_length(text), found=[0,0], - _uS_=0; + _uO_=0; if(! (n < 0)) - {var j=_uS_; + {var j=_uO_; for(;;) {if(caml_call2(symbol$81,matched_chars[1],k)) {found[1] = [0,j - k | 0,found[1]]; @@ -44527,8 +46936,8 @@ matched_chars[1] = kmp_internal_loop(matched_chars[1],next_text_char,pattern,kmp_arr)} - var _uT_=j + 1 | 0; - if(n !== j){var j=_uT_;continue} + var _uP_=j + 1 | 0; + if(n !== j){var j=_uP_;continue} break}} return rev(found[1])} function replace_first(pos,t,s,with$0) @@ -44579,24 +46988,24 @@ function substr_index_all(t,may_overlap,pattern) {return index_all(create$5(pattern),may_overlap,t)} function substr_replace_first(pos,t,pattern) - {var _uQ_=create$5(pattern); - return function(_uR_){return replace_first(pos,_uQ_,t,_uR_)}} + {var _uM_=create$5(pattern); + return function(_uN_){return replace_first(pos,_uM_,t,_uN_)}} function substr_replace_all(t,pattern) - {var _uO_=create$5(pattern); - return function(_uP_){return replace_all(_uO_,t,_uP_)}} + {var _uK_=create$5(pattern); + return function(_uL_){return replace_all(_uK_,t,_uL_)}} function is_substring(t,substring) {return is_some(substr_index(0,t,substring))} - function of_string$7(_uN_){return _uN_} - function to_string$9(_uM_){return _uM_} + function of_string$7(_uJ_){return _uJ_} + function to_string$9(_uI_){return _uI_} function init$4(n,f) {if(caml_call2(symbol$78,n,0))caml_call2(invalid_argf(_b8_),n,0); - var t=caml_create_bytes(n),_uK_=n - 1 | 0,_uJ_=0; - if(! (_uK_ < 0)) - {var i=_uJ_; + var t=caml_create_bytes(n),_uG_=n - 1 | 0,_uF_=0; + if(! (_uG_ < 0)) + {var i=_uF_; for(;;) {caml_bytes_set(t,i,caml_call1(f,i)); - var _uL_=i + 1 | 0; - if(_uK_ !== i){var i=_uL_;continue} + var _uH_=i + 1 | 0; + if(_uG_ !== i){var i=_uH_;continue} break}} return unsafe_to_string(t)} function to_list$5(s) @@ -44615,53 +47024,53 @@ {var len=caml_ml_string_length(t), res=caml_create_bytes(len), - _uH_=len - 1 | 0, - _uG_=0; - if(! (_uH_ < 0)) - {var i=_uG_; + _uD_=len - 1 | 0, + _uC_=0; + if(! (_uD_ < 0)) + {var i=_uC_; for(;;) {caml_bytes_unsafe_set (res,i,caml_string_unsafe_get(t,(len - 1 | 0) - i | 0)); - var _uI_=i + 1 | 0; - if(_uH_ !== i){var i=_uI_;continue} + var _uE_=i + 1 | 0; + if(_uD_ !== i){var i=_uE_;continue} break}} return unsafe_to_string(res)} var not_found$11=[0,Not_found_s,_b9_]; function lsplit2_exn(line,delim) {var pos=index_exn_internal(line,not_found$11,delim), - _uF_= + _uB_= sub$8 (line,pos + 1 | 0,(caml_ml_string_length(line) - pos | 0) - 1 | 0); - return [0,sub$8(line,0,pos),_uF_]} + return [0,sub$8(line,0,pos),_uB_]} var not_found$12=[0,Not_found_s,_b__]; function rsplit2_exn(line,delim) {var pos=rindex_exn_internal(line,not_found$12,delim), - _uE_= + _uA_= sub$8 (line,pos + 1 | 0,(caml_ml_string_length(line) - pos | 0) - 1 | 0); - return [0,sub$8(line,0,pos),_uE_]} + return [0,sub$8(line,0,pos),_uA_]} function lsplit2(line,on) {try - {var _uC_=[0,lsplit2_exn(line,on)];return _uC_} - catch(_uD_) - {_uD_ = caml_wrap_exception(_uD_); - if(_uD_[1] !== Not_found_s)if(_uD_ !== Caml$0[90])throw _uD_; + {var _uy_=[0,lsplit2_exn(line,on)];return _uy_} + catch(_uz_) + {_uz_ = caml_wrap_exception(_uz_); + if(_uz_[1] !== Not_found_s && _uz_ !== Caml$0[90])throw _uz_; return 0}} function rsplit2(line,on) {try - {var _uA_=[0,rsplit2_exn(line,on)];return _uA_} - catch(_uB_) - {_uB_ = caml_wrap_exception(_uB_); - if(_uB_[1] !== Not_found_s)if(_uB_ !== Caml$0[90])throw _uB_; + {var _uw_=[0,rsplit2_exn(line,on)];return _uw_} + catch(_ux_) + {_ux_ = caml_wrap_exception(_ux_); + if(_ux_[1] !== Not_found_s && _ux_ !== Caml$0[90])throw _ux_; return 0}} function char_list_mem(l,c) {var l$0=l; for(;;) {if(l$0) - {var tl=l$0[2],hd=l$0[1],_uz_=caml_call2(equal_char$1,hd,c); - if(_uz_)return _uz_; + {var tl=l$0[2],hd=l$0[1],_uv_=caml_call2(equal_char$1,hd,c); + if(_uv_)return _uv_; var l$0=tl; continue} return 0}} @@ -44697,15 +47106,14 @@ function split_on_chars(str,chars) {return split_gen(str,[0,552554919,chars])} function back_up_at_newline(t,pos,eol) - {if(caml_call2(symbol$82,pos[1],0)) - if(caml_call2(equal_char$1,caml_string_get(t,pos[1] - 1 | 0),13)) - var _uy_=2,switch$0=1; - else - var switch$0=0; - else - var switch$0=0; - if(! switch$0)var _uy_=1; - pos[1] = pos[1] - _uy_ | 0; + {var switch$0=0; + if + (caml_call2(symbol$82,pos[1],0) + && + caml_call2(equal_char$1,caml_string_get(t,pos[1] - 1 | 0),13)) + {var _uu_=2;switch$0 = 1} + if(! switch$0)var _uu_=1; + pos[1] = pos[1] - _uu_ | 0; eol[1] = pos[1] + 1 | 0; return 0} function split_lines(t) @@ -44718,12 +47126,12 @@ {if(caml_call2(symbol$83,pos[1],0)) {if(caml_call2(symbol$121,caml_string_get(t,pos[1]),10)) {decr(pos);continue} - var start=pos[1] + 1 | 0,_uw_=ac[1]; - ac[1] = [0,sub$8(t,start,eol[1] - start | 0),_uw_]; + var start=pos[1] + 1 | 0,_us_=ac[1]; + ac[1] = [0,sub$8(t,start,eol[1] - start | 0),_us_]; back_up_at_newline(t,pos,eol); continue} - var _ux_=ac[1]; - return [0,sub$8(t,0,eol[1]),_ux_]}} + var _ut_=ac[1]; + return [0,sub$8(t,0,eol[1]),_ut_]}} function is_suffix$0(s,suffix) {return is_suffix_gen(s,suffix,equal_char$1)} function is_prefix$1(s,prefix) @@ -44734,8 +47142,8 @@ {if(caml_call2(symbol$78,n,0)) return caml_call1 (invalid_arg$0, - caml_call2(symbol$77,name,cst_expecting_nonnegative_argument)); - try {var _uu_=sub$8(t,pos,len);return _uu_}catch(_uv_){return on_error}} + caml_call2(symbol$77,name,cst_expecting_nonnegative_argu)); + try {var _uq_=sub$8(t,pos,len);return _uq_}catch(_ur_){return on_error}} function drop_prefix(t,n) {return wrap_sub_n (t,n,cst_drop_prefix,n,caml_ml_string_length(t) - n | 0,cst$15)} @@ -44792,17 +47200,18 @@ function lstrip(opt,t) {if(opt)var sth=opt[1],drop=sth;else var drop=is_whitespace; var match=first_non_drop(drop,t); - if(match){var _ut_=match[1];return 0 === _ut_?t:drop_prefix(t,_ut_)} + if(match){var _up_=match[1];return 0 === _up_?t:drop_prefix(t,_up_)} return cst$18} function strip(opt,t) {if(opt)var sth=opt[1],drop=sth;else var drop=is_whitespace; var length=caml_ml_string_length(t); if(! caml_call2(symbol$81,length,0)) - {var - switch$0= - caml_call1(drop,caml_string_get(t,0)) - ?1 - :caml_call1(drop,caml_string_get(t,length - 1 | 0))?1:0; + {var switch$0=0; + if + (caml_call1(drop,caml_string_get(t,0)) + || + caml_call1(drop,caml_string_get(t,length - 1 | 0))) + switch$0 = 1; if(switch$0) {var match=first_non_drop(drop,t); if(match) @@ -44817,28 +47226,28 @@ {var l=caml_ml_string_length(t), t$0=caml_create_bytes(l), - _ur_=l - 1 | 0, - _uq_=0; - if(! (_ur_ < 0)) - {var i=_uq_; + _un_=l - 1 | 0, + _um_=0; + if(! (_un_ < 0)) + {var i=_um_; for(;;) {caml_bytes_unsafe_set(t$0,i,caml_call2(f,i,caml_string_get(t,i))); - var _us_=i + 1 | 0; - if(_ur_ !== i){var i=_us_;continue} + var _uo_=i + 1 | 0; + if(_un_ !== i){var i=_uo_;continue} break}} return unsafe_to_string(t$0)} function map$22(t,f) {var l=caml_ml_string_length(t), t$0=caml_create_bytes(l), - _uo_=l - 1 | 0, - _un_=0; - if(! (_uo_ < 0)) - {var i=_un_; + _uk_=l - 1 | 0, + _uj_=0; + if(! (_uk_ < 0)) + {var i=_uj_; for(;;) {caml_bytes_unsafe_set(t$0,i,caml_call1(f,caml_string_get(t,i))); - var _up_=i + 1 | 0; - if(_uo_ !== i){var i=_up_;continue} + var _ul_=i + 1 | 0; + if(_uk_ !== i){var i=_ul_;continue} break}} return unsafe_to_string(t$0)} function to_array$4(s) @@ -44849,25 +47258,25 @@ function exists$5(s,f) {var len=caml_ml_string_length(s),i=0; for(;;) - {var _uk_=caml_call2(symbol$78,i,len); - if(_uk_) - {var _ul_=caml_call1(f,caml_string_get(s,i)); - if(! _ul_){var i$0=i + 1 | 0,i=i$0;continue} - var _um_=_ul_} + {var _ug_=caml_call2(symbol$78,i,len); + if(_ug_) + {var _uh_=caml_call1(f,caml_string_get(s,i)); + if(! _uh_){var i$0=i + 1 | 0,i=i$0;continue} + var _ui_=_uh_} else - var _um_=_uk_; - return _um_}} + var _ui_=_ug_; + return _ui_}} function for_all$4(s,f) {var len=caml_ml_string_length(s),i=0; for(;;) - {var _uh_=caml_call2(symbol$81,i,len); - if(_uh_) - var _ui_=_uh_; + {var _ud_=caml_call2(symbol$81,i,len); + if(_ud_) + var _ue_=_ud_; else - {var _uj_=caml_call1(f,caml_string_get(s,i)); - if(_uj_){var i$0=i + 1 | 0,i=i$0;continue} - var _ui_=_uj_} - return _ui_}} + {var _uf_=caml_call1(f,caml_string_get(s,i)); + if(_uf_){var i$0=i + 1 | 0,i=i$0;continue} + var _ue_=_uf_} + return _ue_}} function fold$4(t,ac,f) {var n=caml_ml_string_length(t),i=0,ac$0=ac; for(;;) @@ -44891,23 +47300,23 @@ function count$4(t,f){return count(fold$4,t,f)} function sum$4(m,t,f){return sum(fold$4,m,t,f)} function min_elt$5(t) - {return function(_ug_){return min_elt(fold$4,t,_ug_)}} + {return function(_uc_){return min_elt(fold$4,t,_uc_)}} function max_elt$5(t) - {return function(_uf_){return max_elt(fold$4,t,_uf_)}} + {return function(_ub_){return max_elt(fold$4,t,_ub_)}} function fold_result$4(t,init,f){return fold_result(fold$4,init,f,t)} function fold_until$4(t,init,f) - {return function(_ue_){return fold_until(fold$4,init,f,_ue_,t)}} + {return function(_ua_){return fold_until(fold$4,init,f,_ua_,t)}} function mem$4(t,c) {var len=caml_ml_string_length(t),i=0; for(;;) - {var _ub_=caml_call2(symbol$78,i,len); - if(_ub_) - {var _uc_=caml_call2(equal_char$1,c,caml_string_unsafe_get(t,i)); - if(! _uc_){var i$0=i + 1 | 0,i=i$0;continue} - var _ud_=_uc_} + {var _t9_=caml_call2(symbol$78,i,len); + if(_t9_) + {var _t__=caml_call2(equal_char$1,c,caml_string_unsafe_get(t,i)); + if(! _t__){var i$0=i + 1 | 0,i=i$0;continue} + var _t$_=_t__} else - var _ud_=_ub_; - return _ud_}} + var _t$_=_t9_; + return _t$_}} function tr(target,replacement,s) {return caml_call2(equal_char$1,target,replacement) ?s @@ -44918,10 +47327,9 @@ {return caml_call2(equal_char$1,c,target)?replacement:c}) :s} function tr_multi(target,replacement) - {if(is_empty$3(target))return function(_ua_){return _ua_}; + {if(is_empty$3(target))return function(_t8_){return _t8_}; if(is_empty$3(replacement)) - return caml_call1 - (invalid_arg$0,cst_tr_multi_replacement_is_empty_string); + return caml_call1(invalid_arg$0,cst_tr_multi_replacement_is_em); var match=tr_create_map(target,replacement); if(match) {var tr_map=match[1]; @@ -44934,15 +47342,18 @@ ?map$22 (s,function(c){return caml_string_unsafe_get(tr_map,c)}) :s}} - return function(_t$_){return _t$_}} + return function(_t7_){return _t7_}} function concat_array(sep,ar){return concat$0(sep,caml_call1(to_list,ar))} function concat_map$2(sep,s,f) {return concat_array(sep,map(to_array$4(s),f))} function filter$3(t,f) {var n=caml_ml_string_length(t),i=[0,0]; for(;;) - {if(caml_call2(symbol$78,i[1],n)) - if(caml_call1(f,caml_string_get(t,i[1]))){incr(i);continue} + {if + (caml_call2(symbol$78,i[1],n) + && + caml_call1(f,caml_string_get(t,i[1]))) + {incr(i);continue} if(caml_call2(symbol$81,i[1],n))return t; var out=caml_create_bytes(n - 1 | 0); blit_string$0(t,0,out,0,i[1]); @@ -44966,8 +47377,8 @@ function chop_prefix_exn(s,prefix) {var match=chop_prefix(s,prefix); if(match){var str=match[1];return str} - var _t__=caml_call3(sprintf,_ca_,s,prefix); - throw [0,Stdlib[6],_t__]} + var _t6_=caml_call3(sprintf,_ca_,s,prefix); + throw [0,Stdlib[6],_t6_]} function chop_suffix(s,suffix) {return is_suffix$0(s,suffix) ?[0,drop_suffix(s,caml_ml_string_length(suffix))] @@ -44975,8 +47386,8 @@ function chop_suffix_exn(s,suffix) {var match=chop_suffix(s,suffix); if(match){var str=match[1];return str} - var _t9_=caml_call3(sprintf,_cb_,s,suffix); - throw [0,Stdlib[6],_t9_]} + var _t5_=caml_call3(sprintf,_cb_,s,suffix); + throw [0,Stdlib[6],_t5_]} var include$43=Validate([0,compare$24,sexp_of_t$2]), validate_lbound$2=include$43[1], @@ -44988,8 +47399,7 @@ {var t=caml_create_bytes(caml_call1(length,l)); iteri$0(l,function(i,c){return caml_bytes_set(t,i,c)}); return unsafe_to_string(t)} - function build_and_validate_escapeworthy_map - (escapeworthy_map,escape_char,func) + function build_and_validate_escapeworth(escapeworthy_map,escape_char,func) {var escapeworthy_map$0= caml_call3(_al_[6],escapeworthy_map,equal_char$1,escape_char) @@ -45002,14 +47412,18 @@ {if(param) {var l=param[2],match=param[1],c_to=match[2],c_from=match[1]; if(919809722 <= func)var k=c_to,v=c_from;else var k=c_from,v=c_to; - if(! caml_call2(symbol$80,caml_check_bound(arr,k)[1 + k],-1)) - if(! caml_check_bound(vals,v)[1 + v]) - {caml_check_bound(arr,k)[1 + k] = v; - caml_check_bound(vals,v)[1 + v] = 1; - var param=l; - continue} + if + (! + caml_call2(symbol$80,caml_check_bound(arr,k)[1 + k],-1) + && + ! + caml_check_bound(vals,v)[1 + v]) + {caml_check_bound(arr,k)[1 + k] = v; + caml_check_bound(vals,v)[1 + v] = 1; + var param=l; + continue} var - _t7_= + _t3_= [0, [0, cst_escapeworthy_map, @@ -45018,18 +47432,17 @@ caml_call2(sexp_of_pair,sexp_of_t$3,sexp_of_t$3), escapeworthy_map$0)], 0], - _t8_=[0,[0,cst_c_to,caml_call1(sexp_of_t$3,c_to)],_t7_]; + _t4_=[0,[0,cst_c_to,caml_call1(sexp_of_t$3,c_to)],_t3_]; return error_s (caml_call2 (message, - cst_escapeworthy_map_not_one_to_one, - [0,[0,cst_c_from,caml_call1(sexp_of_t$3,c_from)],_t8_]))} + cst_escapeworthy_map_not_one_t, + [0,[0,cst_c_from,caml_call1(sexp_of_t$3,c_from)],_t4_]))} return [0,arr]}} function escape_gen(escapeworthy_map,escape_char) {var x= - build_and_validate_escapeworthy_map - (escapeworthy_map,escape_char,258914209); + build_and_validate_escapeworth(escapeworthy_map,escape_char,258914209); if(0 === x[0]) {var escapeworthy=x[1]; return [0, @@ -45077,14 +47490,13 @@ {return ok_exn$0(escape_gen(escapeworthy_map,escape_char))} function escape(escapeworthy,escape_char) {var - _t6_=dedup_and_sort(compare_char$0,escapeworthy), - escapeworthy_map=map$6(_t6_,function(c){return [0,c,c]}); + _t2_=dedup_and_sort(compare_char$0,escapeworthy), + escapeworthy_map=map$6(_t2_,function(c){return [0,c,c]}); return escape_gen_exn(escapeworthy_map,escape_char)} function unescape_gen(escapeworthy_map,escape_char) {var x= - build_and_validate_escapeworthy_map - (escapeworthy_map,escape_char,919809722); + build_and_validate_escapeworth(escapeworthy_map,escape_char,919809722); if(0 === x[0]) {var escapeworthy=x[1]; return [0, @@ -45115,10 +47527,10 @@ blit_string$0(src,idx + 2 | 0,dst,dst_pos,len); var dst_pos$0=dst_pos - 1 | 0, - _t4_=caml_string_get(src,idx + 1 | 0), - n=caml_check_bound(escapeworthy,_t4_)[1 + _t4_], - _t5_=-1 === n?caml_string_get(src,idx + 1 | 0):n; - caml_bytes_set(dst,dst_pos$0,_t5_); + _t0_=caml_string_get(src,idx + 1 | 0), + n=caml_check_bound(escapeworthy,_t0_)[1 + _t0_], + _t1_=-1 === n?caml_string_get(src,idx + 1 | 0):n; + caml_bytes_set(dst,dst_pos$0,_t1_); var last_idx$0=idx, last_dst_pos$0=dst_pos$0, @@ -45157,9 +47569,13 @@ function preceding_escape_chars(str,escape_char,pos) {var p$1=pos - 1 | 0,p=p$1,cnt=0; for(;;) - {if(! caml_call2(symbol$78,p,0)) - if(! caml_call2(symbol$121,caml_string_get(str,p),escape_char)) - {var cnt$0=cnt + 1 | 0,p$0=p - 1 | 0,p=p$0,cnt=cnt$0;continue} + {if + (! + caml_call2(symbol$78,p,0) + && + ! + caml_call2(symbol$121,caml_string_get(str,p),escape_char)) + {var cnt$0=cnt + 1 | 0,p$0=p - 1 | 0,p=p$0,cnt=cnt$0;continue} return cnt}} function update_escape_status(str,escape_char,i,param) {return -512962225 <= param @@ -45176,9 +47592,9 @@ return 0 === odd?0 === match?-512962225:-767030498:-244189789} function check_bound(str,pos,function_name) {var - _t2_=caml_call2(symbol$83,pos,caml_ml_string_length(str)), - _t3_=_t2_ || caml_call2(symbol$78,pos,0); - return _t3_?caml_call2(invalid_argf(_cc_),function_name,0):_t3_} + _tY_=caml_call2(symbol$83,pos,caml_ml_string_length(str)), + _tZ_=_tY_ || caml_call2(symbol$78,pos,0); + return _tZ_?caml_call2(invalid_argf(_cc_),function_name,0):_tZ_} function is_char_escaping(str,escape_char,pos) {check_bound(str,pos,cst_is_char_escaping); var match=escape_status(str,escape_char,pos); @@ -45196,10 +47612,9 @@ var status$1=escape_status(str,escape_char,pos),i=pos,status=status$1; for(;;) {if(caml_call2(symbol$83,i,pos)) - {var _t1_=-512962225 === status?1:0; - if(_t1_) - if(caml_call2(equal_char$1,caml_string_get(str,i),char$0)) - return [0,i]} + {var _tX_=-512962225 === status?1:0; + if(_tX_ && caml_call2(equal_char$1,caml_string_get(str,i),char$0)) + return [0,i]} var i$0=i + 1 | 0; if(caml_call2(symbol$83,i$0,caml_ml_string_length(str)))return 0; var @@ -45211,14 +47626,14 @@ {var match=index_from$0(str,escape_char,pos,char$0); if(match){var pos$0=match[1];return pos$0} var - _tY_=[0,[0,cst_char,caml_call1(sexp_of_t$3,char$0)],0], - _tZ_=[0,[0,cst_pos$1,caml_call1(sexp_of_t$4,pos)],_tY_], - _t0_=[0,[0,cst_escape_char,caml_call1(sexp_of_t$3,escape_char)],_tZ_]; + _tU_=[0,[0,cst_char,caml_call1(sexp_of_t$3,char$0)],0], + _tV_=[0,[0,cst_pos$1,caml_call1(sexp_of_t$4,pos)],_tU_], + _tW_=[0,[0,cst_escape_char,caml_call1(sexp_of_t$3,escape_char)],_tV_]; return raise_s (caml_call2 (message, cst_index_from_exn_not_found, - [0,[0,cst_str,caml_call1(sexp_of_t$2,str)],_t0_]))} + [0,[0,cst_str,caml_call1(sexp_of_t$2,str)],_tW_]))} function index$1(str,escape_char,char$0) {return index_from$0(str,escape_char,0,char$0)} function index_exn$1(str,escape_char,char$0) @@ -45230,23 +47645,25 @@ for(;;) {if(caml_call2(symbol$78,pos$0,0))return 0; var escape_chars=preceding_escape_chars(str,escape_char,pos$0); - if(caml_call2(symbol$81,escape_chars % 2 | 0,0)) - if(caml_call2(equal_char$1,caml_string_get(str,pos$0),char$0)) - return [0,pos$0]; + if + (caml_call2(symbol$81,escape_chars % 2 | 0,0) + && + caml_call2(equal_char$1,caml_string_get(str,pos$0),char$0)) + return [0,pos$0]; var pos$1=(pos$0 - escape_chars | 0) - 1 | 0,pos$0=pos$1; continue}} function rindex_from_exn$0(str,escape_char,pos,char$0) {var match=rindex_from$0(str,escape_char,pos,char$0); if(match){var pos$0=match[1];return pos$0} var - _tV_=[0,[0,cst_char$0,caml_call1(sexp_of_t$3,char$0)],0], - _tW_=[0,[0,cst_pos$2,caml_call1(sexp_of_t$4,pos)],_tV_], - _tX_=[0,[0,cst_escape_char$0,caml_call1(sexp_of_t$3,escape_char)],_tW_]; + _tR_=[0,[0,cst_char$0,caml_call1(sexp_of_t$3,char$0)],0], + _tS_=[0,[0,cst_pos$2,caml_call1(sexp_of_t$4,pos)],_tR_], + _tT_=[0,[0,cst_escape_char$0,caml_call1(sexp_of_t$3,escape_char)],_tS_]; return raise_s (caml_call2 (message, cst_rindex_from_exn_not_found, - [0,[0,cst_str$0,caml_call1(sexp_of_t$2,str)],_tX_]))} + [0,[0,cst_str$0,caml_call1(sexp_of_t$2,str)],_tT_]))} function rindex$0(str,escape_char,char$0) {return is_empty$3(str) ?0 @@ -45273,38 +47690,37 @@ return rev([0,sub$8(str,last_pos,len - last_pos | 0),acc]); var status$0=update_escape_status(str,escape_char,pos,status), - _tU_=-512962225 === status$0?1:0; - if(_tU_) - if(is_delim(caml_string_get(str,pos))) - {var - sub_str=sub$8(str,last_pos,pos - last_pos | 0), - pos$0=pos + 1 | 0, - last_pos$0=pos + 1 | 0, - acc$0=[0,sub_str,acc], - acc=acc$0, - status=status$0, - last_pos=last_pos$0, - pos=pos$0; - continue} + _tQ_=-512962225 === status$0?1:0; + if(_tQ_ && is_delim(caml_string_get(str,pos))) + {var + sub_str=sub$8(str,last_pos,pos - last_pos | 0), + pos$0=pos + 1 | 0, + last_pos$0=pos + 1 | 0, + acc$0=[0,sub_str,acc], + acc=acc$0, + status=status$0, + last_pos=last_pos$0, + pos=pos$0; + continue} var pos$1=pos + 1 | 0,status=status$0,pos=pos$1; continue}} function split$0(str,on) - {var _tS_=[0,-1044422954,on]; - return function(_tT_){return split_gen$0(str,_tT_,_tS_)}} + {var _tO_=[0,-1044422954,on]; + return function(_tP_){return split_gen$0(str,_tP_,_tO_)}} function split_on_chars$0(str,chars) - {var _tQ_=[0,552554919,chars]; - return function(_tR_){return split_gen$0(str,_tR_,_tQ_)}} + {var _tM_=[0,552554919,chars]; + return function(_tN_){return split_gen$0(str,_tN_,_tM_)}} function split_at(str,pos) {var - _tP_= + _tL_= sub$8(str,pos + 1 | 0,(caml_ml_string_length(str) - pos | 0) - 1 | 0); - return [0,sub$8(str,0,pos),_tP_]} + return [0,sub$8(str,0,pos),_tL_]} function lsplit2$0(str,on,escape_char) - {function _tO_(x){return split_at(str,x)} - return caml_call2(map$15,index$1(str,escape_char,on),_tO_)} + {function _tK_(x){return split_at(str,x)} + return caml_call2(map$15,index$1(str,escape_char,on),_tK_)} function rsplit2$0(str,on,escape_char) - {function _tN_(x){return split_at(str,x)} - return caml_call2(map$15,rindex$0(str,escape_char,on),_tN_)} + {function _tJ_(x){return split_at(str,x)} + return caml_call2(map$15,rindex$0(str,escape_char,on),_tJ_)} function lsplit2_exn$0(str,on,escape_char) {return split_at(str,index_exn$1(str,escape_char,on))} function rsplit2_exn$0(str,on,escape_char) @@ -45314,27 +47730,27 @@ (0, t, function(i,c) - {var _tK_=1 - caml_call1(drop,c); - if(_tK_) - var _tL_=_tK_; + {var _tG_=1 - caml_call1(drop,c); + if(_tG_) + var _tH_=_tG_; else - {var _tM_=is_char_escaping(t,escape_char,i); - if(! _tM_)return is_char_escaped(t,escape_char,i); - var _tL_=_tM_} - return _tL_})} + {var _tI_=is_char_escaping(t,escape_char,i); + if(! _tI_)return is_char_escaped(t,escape_char,i); + var _tH_=_tI_} + return _tH_})} function first_non_drop_literal(drop,escape_char,t) {return lfindi (0, t, function(i,c) - {var _tH_=1 - caml_call1(drop,c); - if(_tH_) - var _tI_=_tH_; + {var _tD_=1 - caml_call1(drop,c); + if(_tD_) + var _tE_=_tD_; else - {var _tJ_=is_char_escaping(t,escape_char,i); - if(! _tJ_)return is_char_escaped(t,escape_char,i); - var _tI_=_tJ_} - return _tI_})} + {var _tF_=is_char_escaping(t,escape_char,i); + if(! _tF_)return is_char_escaped(t,escape_char,i); + var _tE_=_tF_} + return _tE_})} function rstrip_literal(opt,t,escape_char) {if(opt)var sth=opt[1],drop=sth;else var drop=is_whitespace; var match=last_non_drop_literal(drop,escape_char,t); @@ -45347,17 +47763,18 @@ function lstrip_literal(opt,t,escape_char) {if(opt)var sth=opt[1],drop=sth;else var drop=is_whitespace; var match=first_non_drop_literal(drop,escape_char,t); - if(match){var _tG_=match[1];return 0 === _tG_?t:drop_prefix(t,_tG_)} + if(match){var _tC_=match[1];return 0 === _tC_?t:drop_prefix(t,_tC_)} return cst$21} function strip_literal(opt,t,escape_char) {if(opt)var sth=opt[1],drop=sth;else var drop=is_whitespace; var length=caml_ml_string_length(t); if(! caml_call2(symbol$81,length,0)) - {var - switch$0= - caml_call1(drop,caml_string_get(t,0)) - ?1 - :caml_call1(drop,caml_string_get(t,length - 1 | 0))?1:0; + {var switch$0=0; + if + (caml_call1(drop,caml_string_get(t,0)) + || + caml_call1(drop,caml_string_get(t,length - 1 | 0))) + switch$0 = 1; if(switch$0) {var match=first_non_drop_literal(drop,escape_char,t); if(match) @@ -45371,8 +47788,8 @@ return cst$22}} return t} function between$2(t,low,high) - {var _tF_=caml_call2(include$8[2],low,t); - return _tF_?caml_call2(include$8[2],t,high):_tF_} + {var _tB_=caml_call2(include$8[2],low,t); + return _tB_?caml_call2(include$8[2],t,high):_tB_} function clamp_unchecked$0(t,min,max) {return caml_call2(include$8[1],t,min) ?min @@ -45382,12 +47799,12 @@ throw [0,Assert_failure,_ce_]} function clamp$2(t,min,max) {if(caml_call2(include$8[5],min,max)) - {var _tE_=[0,[0,cst_max$1,caml_call1(sexp_of_t$2,max)],0]; + {var _tA_=[0,[0,cst_max$1,caml_call1(sexp_of_t$2,max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max$1, - [0,[0,cst_min$1,caml_call1(sexp_of_t$2,min)],_tE_]))} + [0,[0,cst_min$1,caml_call1(sexp_of_t$2,min)],_tA_]))} return [0,clamp_unchecked$0(t,min,max)]} var symbol$131=include$8[1], @@ -45572,8 +47989,8 @@ strip_literal]]; caml_register_global(1048,Base_String,"Base__String"); function pp$8(fmt,t) - {var _tD_=caml_call1(to_string$6,t); - return caml_call3(Stdlib_format[123],fmt,_cf_,_tD_)} + {var _tz_=caml_call1(to_string$6,t); + return caml_call3(Stdlib_format[123],fmt,_cf_,_tz_)} var create$6=caml_create_bytes, To_bytes=_bb_([0,caml_ml_bytes_length,create$6,unsafe_blit$0]), @@ -45597,13 +48014,13 @@ From_string=_ba_([0,length$7],[0,length$6,create$7,unsafe_blit$6]); function init$5(n,f) {if(caml_call2(include$1[1],n,0))caml_call2(invalid_argf(_ch_),n,0); - var t=caml_create_bytes(n),_tB_=n - 1 | 0,_tA_=0; - if(! (_tB_ < 0)) - {var i=_tA_; + var t=caml_create_bytes(n),_tx_=n - 1 | 0,_tw_=0; + if(! (_tx_ < 0)) + {var i=_tw_; for(;;) {caml_bytes_unsafe_set(t,i,caml_call1(f,i)); - var _tC_=i + 1 | 0; - if(_tB_ !== i){var i=_tC_;continue} + var _ty_=i + 1 | 0; + if(_tx_ !== i){var i=_ty_;continue} break}} return t} function of_char_list$0(l) @@ -45648,40 +48065,39 @@ acc=acc$0; continue}} function tr$0(target,replacement,s) - {var _ty_=caml_ml_bytes_length(s) - 1 | 0,_tx_=0; - if(! (_ty_ < 0)) - {var i=_tx_; + {var _tu_=caml_ml_bytes_length(s) - 1 | 0,_tt_=0; + if(! (_tu_ < 0)) + {var i=_tt_; for(;;) {if(caml_call2(equal_char$1,caml_bytes_unsafe_get(s,i),target)) caml_bytes_unsafe_set(s,i,replacement); - var _tz_=i + 1 | 0; - if(_ty_ !== i){var i=_tz_;continue} + var _tv_=i + 1 | 0; + if(_tu_ !== i){var i=_tv_;continue} break}} return 0} function tr_multi$0(target,replacement) {if(caml_call2(include$1[4],caml_ml_string_length(target),0)) - return function(_tw_){return 0}; + return function(_ts_){return 0}; if(caml_call2(include$1[4],caml_ml_string_length(replacement),0)) - return caml_call1 - (invalid_arg$0,cst_tr_multi_replacement_is_the_empty_string); + return caml_call1(invalid_arg$0,cst_tr_multi_replacement_is_th); var match=tr_create_map(target,replacement); if(match) {var tr_map=match[1]; return function(s) - {var _tu_=caml_ml_bytes_length(s) - 1 | 0,_tt_=0; - if(! (_tu_ < 0)) - {var i=_tt_; + {var _tq_=caml_ml_bytes_length(s) - 1 | 0,_tp_=0; + if(! (_tq_ < 0)) + {var i=_tp_; for(;;) {caml_bytes_unsafe_set (s,i,caml_string_unsafe_get(tr_map,caml_bytes_unsafe_get(s,i))); - var _tv_=i + 1 | 0; - if(_tu_ !== i){var i=_tv_;continue} + var _tr_=i + 1 | 0; + if(_tq_ !== i){var i=_tr_;continue} break}} return 0}} - return function(_ts_){return 0}} + return function(_to_){return 0}} function between$3(t,low,high) - {var _tr_=caml_call2(include$9[2],low,t); - return _tr_?caml_call2(include$9[2],t,high):_tr_} + {var _tn_=caml_call2(include$9[2],low,t); + return _tn_?caml_call2(include$9[2],t,high):_tn_} function clamp_unchecked$1(t,min,max) {return caml_call2(include$9[1],t,min) ?min @@ -45691,12 +48107,12 @@ throw [0,Assert_failure,_ci_]} function clamp$3(t,min,max) {if(caml_call2(include$9[5],min,max)) - {var _tq_=[0,[0,cst_max$2,caml_call1(sexp_of_bytes,max)],0]; + {var _tm_=[0,[0,cst_max$2,caml_call1(sexp_of_bytes,max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max$2, - [0,[0,cst_min$2,caml_call1(sexp_of_bytes,min)],_tq_]))} + [0,[0,cst_min$2,caml_call1(sexp_of_bytes,min)],_tm_]))} return [0,clamp_unchecked$1(t,min,max)]} function contains$0(pos,len,t,char$0) {var @@ -45706,14 +48122,14 @@ last=pos$0 + len$0 | 0, i=pos$0; for(;;) - {var _tn_=caml_call2(include$1[1],i,last); - if(_tn_) - {var _to_=caml_call2(equal_char$1,caml_bytes_get(t,i),char$0); - if(! _to_){var i$0=i + 1 | 0,i=i$0;continue} - var _tp_=_to_} + {var _tj_=caml_call2(include$1[1],i,last); + if(_tj_) + {var _tk_=caml_call2(equal_char$1,caml_bytes_get(t,i),char$0); + if(! _tk_){var i$0=i + 1 | 0,i=i$0;continue} + var _tl_=_tk_} else - var _tp_=_tn_; - return _tp_}} + var _tl_=_tj_; + return _tl_}} var symbol$137=include$9[1], symbol$138=include$9[2], @@ -45781,7 +48197,7 @@ contains$0, max_length, unsafe_to_string, - unsafe_of_string_promise_no_mutation]; + unsafe_of_string_promise_no_mu]; caml_register_global(1049,Base_Bytes,"Base__Bytes"); function parse_hex(lexbuf) {var ocaml_lex_state=0; @@ -45806,15 +48222,22 @@ var Base_Hex_lexer=[0,parse_hex]; caml_register_global(1051,Base_Hex_lexer,"Base__Hex_lexer"); function convert_failure(x,a,b,to_string) - {var _tm_=caml_call1(to_string,x); - return caml_call4(failwithf(_cj_),a,b,_tm_,0)} + {var _ti_=caml_call1(to_string,x); + return caml_call4(failwithf(_cj_),a,b,_ti_,0)} var num_bits_nativeint=num_bits$0(word_size), num_bits_int32=32, num_bits_int64=64; - if(! caml_call2(symbol$81,num_bits,63)) - if(! caml_call2(symbol$81,num_bits,31)) - if(! caml_call2(symbol$81,num_bits,32))throw [0,Assert_failure,_ii_]; + if + (! + caml_call2(symbol$81,num_bits,63) + && + ! + caml_call2(symbol$81,num_bits,31) + && + ! + caml_call2(symbol$81,num_bits,32)) + throw [0,Assert_failure,_ii_]; var _ck_=Stdlib_int32[10], _cl_=Stdlib_int32[9], @@ -45826,28 +48249,28 @@ _cp_=Stdlib_nativeint[10], _cq_=Caml$0[21], _cr_=Stdlib_int32[14]; - function int32_to_int_trunc(_tl_){return _tl_} - function int_to_int32_trunc(_tk_){return _tk_} + function int32_to_int_trunc(_th_){return _th_} + function int_to_int32_trunc(_tg_){return _tg_} var _cu_= caml_call2(symbol$79,num_bits,num_bits_int32) ?function(param){return 1} :function(x) - {var _tj_=caml_call2(symbol$79,caml_call2(compare$13,_ck_,x),0); - return _tj_ + {var _tf_=caml_call2(symbol$79,caml_call2(compare$13,_ck_,x),0); + return _tf_ ?caml_call2(symbol$79,caml_call2(compare$13,x,_cl_),0) - :_tj_}, + :_tf_}, _cv_= caml_call2(symbol$79,num_bits_int32,num_bits) ?function(param){return 1} :function(x) {var - _ti_= + _te_= caml_call2(symbol$79,caml_call2(compare$14,min_value$0,x),0); - return _ti_ + return _te_ ?caml_call2 (symbol$79,caml_call2(compare$14,x,max_value$0),0) - :_ti_}; + :_te_}; function int_to_int32(x){return _cu_(x)?[0,x]:0} function int32_to_int(x){return _cv_(x)?[0,x]:0} function int_to_int32_exn(x) @@ -45862,10 +48285,10 @@ max$22=caml_int64_of_int32(max_value$0), int64_is_representable_as_int= function(x) - {var _th_=caml_call2(symbol$79,caml_call2(compare$15,min$22,x),0); - return _th_ + {var _td_=caml_call2(symbol$79,caml_call2(compare$15,min$22,x),0); + return _td_ ?caml_call2(symbol$79,caml_call2(compare$15,x,max$22),0) - :_th_}, + :_td_}, int64_to_int= function(x) {return int64_is_representable_as_int(x)?[0,caml_int64_to_int32(x)]:0}, @@ -45876,19 +48299,19 @@ :convert_failure(x,cst_int64$0,cst_int$2,_cs_)}; if(caml_call2(symbol$79,num_bits,num_bits_nativeint)) {var - int_to_nativeint=function(_tg_){return _tg_}, - nativeint_to_int_trunc=function(_tf_){return _tf_}, + int_to_nativeint=function(_tc_){return _tc_}, + nativeint_to_int_trunc=function(_tb_){return _tb_}, _cw_= caml_call2(symbol$79,num_bits_nativeint,num_bits) ?function(param){return 1} :function(x) {var - _te_= + _ta_= caml_call2(symbol$79,caml_call2(compare$16,min_value$0,x),0); - return _te_ + return _ta_ ?caml_call2 (symbol$79,caml_call2(compare$16,x,max_value$0),0) - :_te_}, + :_ta_}, nativeint_to_int=function(x){return _cw_(x)?[0,x]:0}, nativeint_to_int_exn= function(x) @@ -45899,38 +48322,38 @@ int64_to_int32_trunc=caml_int64_to_int32, min$23=caml_int64_of_int32(_ck_), max$23=caml_int64_of_int32(_cl_), - int64_is_representable_as_int32= + int64_is_representable_as_int3= function(x) {var - _td_= + _s$_= caml_call2(symbol$79,caml_call2(compare$15,min$23,x),0); - return _td_ + return _s$_ ?caml_call2(symbol$79,caml_call2(compare$15,x,max$23),0) - :_td_}, + :_s$_}, int64_to_int32= function(x) - {return int64_is_representable_as_int32(x) + {return int64_is_representable_as_int3(x) ?[0,caml_int64_to_int32(x)] :0}, int64_to_int32_exn= function(x) - {return int64_is_representable_as_int32(x) + {return int64_is_representable_as_int3(x) ?caml_int64_to_int32(x) :convert_failure(x,cst_int64$1,cst_int32$2,_cs_)}; if(caml_call2(symbol$79,num_bits_int32,num_bits_nativeint)) {var - int32_to_nativeint=function(_tc_){return _tc_}, - nativeint_to_int32_trunc=function(_tb_){return _tb_}, + int32_to_nativeint=function(_s__){return _s__}, + nativeint_to_int32_trunc=function(_s9_){return _s9_}, _cx_= caml_call2(symbol$79,num_bits_nativeint,num_bits_int32) ?function(param){return 1} :function(x) {var - _ta_= + _s8_= caml_call2(symbol$79,caml_call2(compare$16,_ck_,x),0); - return _ta_ + return _s8_ ?caml_call2(symbol$79,caml_call2(compare$16,x,_cl_),0) - :_ta_}, + :_s8_}, nativeint_to_int32=function(x){return _cx_(x)?[0,x]:0}, nativeint_to_int32_exn= function(x) @@ -45942,45 +48365,43 @@ int64_to_nativeint_trunc=caml_int64_to_int32, nativeint_to_int64=caml_int64_of_int32; if(caml_call2(symbol$79,num_bits_int64,num_bits_nativeint)) - var - int64_is_representable_as_nativeint= - function(param){return 1}; + var int64_is_representable_as_nati=function(param){return 1}; else var min$38=caml_int64_of_int32(_co_), max$39=caml_int64_of_int32(_cp_), - int64_is_representable_as_nativeint= + int64_is_representable_as_nati= function(x) {var - _s$_= + _s7_= caml_call2(symbol$79,caml_call2(compare$15,min$38,x),0); - return _s$_ + return _s7_ ?caml_call2(symbol$79,caml_call2(compare$15,x,max$39),0) - :_s$_}; + :_s7_}; var to_nativeint= function(x) - {return int64_is_representable_as_nativeint(x) + {return int64_is_representable_as_nati(x) ?[0,caml_int64_to_int32(x)] :0}, to_nativeint_exn= function(x) - {return int64_is_representable_as_nativeint(x) + {return int64_is_representable_as_nati(x) ?caml_int64_to_int32(x) :convert_failure(x,cst_int64$2,cst_nativeint$2,_cs_)}, min$24=caml_int64_shift_right(_cm_,1), max$24=caml_int64_shift_right(_cn_,1), - int64_is_representable_as_int63= + int64_is_representable_as_int6= function(x) {var - _s__= + _s6_= caml_call2(symbol$79,caml_call2(compare$15,min$24,x),0); - return _s__ + return _s6_ ?caml_call2(symbol$79,caml_call2(compare$15,x,max$24),0) - :_s__}, + :_s6_}, int64_fit_on_int63_exn= function(x) - {return int64_is_representable_as_int63(x) + {return int64_is_representable_as_int6(x) ?0 :convert_failure(x,cst_int64$3,cst_int63,_cs_)}, insert_delimiter_every= @@ -45988,14 +48409,9 @@ {var input_length=caml_ml_string_length(input); if(caml_call2(symbol$79,input_length,chars_per_delimiter)) return input; - var match=caml_string_get(input,0); - if(43 === match) - var switch$0=0; - else - if(45 === match) - var switch$0=0; - else - var has_sign=0,switch$0=1; + var match=caml_string_get(input,0),switch$0=0; + if(43 !== match && 45 !== match) + {var has_sign=0;switch$0 = 1} if(! switch$0)var has_sign=1; var num_digits=has_sign?input_length - 1 | 0:input_length, @@ -46013,8 +48429,8 @@ {caml_bytes_set(output,output_pos[1],delimiter); decr(output_pos); num_chars_until_delimiter[1] = chars_per_delimiter} - var _s9_=caml_string_get(input,input_pos[1]); - caml_bytes_set(output,output_pos[1],_s9_); + var _s5_=caml_string_get(input,input_pos[1]); + caml_bytes_set(output,output_pos[1],_s5_); decr(input_pos); decr(output_pos); decr(num_chars_until_delimiter); @@ -46057,21 +48473,21 @@ (failwith$0,caml_call3(sprintf,_cy_,I[9],str))} function of_string_with_delimiter(str) {var - _s8_= + _s4_= filter$3 (str,function(c){return caml_call2(symbol$121,c,95)}); - return caml_call1(I[5],_s8_)} + return caml_call1(I[5],_s4_)} function of_string(str) {var lex=caml_call2(Stdlib_lexing[3],0,str), result=try_with$2(function(param){return parse_hex(lex)}); if(caml_call2(symbol$81,lex[6],lex[3])) {if(result) - {var _s6_=result[1]; - if(0 === _s6_[0]) - {var body=_s6_[1],_s7_=of_string_with_delimiter(body); - return caml_call1(I[8],_s7_)} - var body$0=_s6_[1]; + {var _s2_=result[1]; + if(0 === _s2_[0]) + {var body=_s2_[1],_s3_=of_string_with_delimiter(body); + return caml_call1(I[8],_s3_)} + var body$0=_s2_[1]; return of_string_with_delimiter(body$0)} return invalid(str)} return invalid(str)} @@ -46127,7 +48543,7 @@ to_nativeint_exn, int64_to_nativeint_trunc, int64_fit_on_int63_exn, - int64_is_representable_as_int63, + int64_is_representable_as_int6, nativeint_to_int, nativeint_to_int_exn, nativeint_to_int_trunc, @@ -46231,9 +48647,9 @@ 0 === switcher ?_ic_.slice() :map - (int32_positive_overflow_bounds,function(_s5_){return _s5_}); + (int32_positive_overflow_bounds,function(_s1_){return _s1_}); var - int63_on_int64_positive_overflow_bounds=_cF_.slice(), + int63_on_int64_positive_overfl=_cF_.slice(), int64_positive_overflow_bounds=_cG_.slice(), int64_negative_overflow_bounds=_cH_.slice(), Base_Pow_overflow_bounds= @@ -46242,8 +48658,8 @@ int32_positive_overflow_bounds, overflow_bound_max_int_value, int_positive_overflow_bounds, - overflow_bound_max_int63_on_int64_value, - int63_on_int64_positive_overflow_bounds, + overflow_bound_max_int63_on_in, + int63_on_int64_positive_overfl, overflow_bound_max_int64_value, int64_positive_overflow_bounds, int64_negative_overflow_bounds]; @@ -46257,89 +48673,88 @@ int_pow= function(base,exponent) {if(caml_call2(symbol$78,exponent,0))negative_exponent(0); - var _s1_=caml_call2(symbol$82,caml_call1(abs$0,base),1); - if(_s1_) - {var _s2_=caml_call2(symbol$82,exponent,63); - if(_s2_) - var _s3_=_s2_; + var _sX_=caml_call2(symbol$82,caml_call1(abs$0,base),1); + if(_sX_) + {var _sY_=caml_call2(symbol$82,exponent,63); + if(_sY_) + var _sZ_=_sY_; else var - _s4_= + _s0_= caml_check_bound(int_positive_overflow_bounds,exponent) [1 + exponent], - _s3_=caml_call2(symbol$82,caml_call1(abs$0,base),_s4_)} + _sZ_=caml_call2(symbol$82,caml_call1(abs$0,base),_s0_)} else - var _s3_=_s1_; - if(_s3_)overflow(0); + var _sZ_=_sX_; + if(_sZ_)overflow(0); return runtime.Base_int_math_int_pow_stub(base,exponent)}, abs$1=Stdlib_int64[8], int64_pow= function(base,exponent) {if(caml_lessthan(exponent,_cK_))negative_exponent(0); var - _sS_=caml_greaterthan(base,_cL_), - _sT_=_sS_ || caml_lessthan(base,_cP_); - if(_sT_) - {var _sU_=caml_greaterthan(exponent,_cM_); - if(_sU_) - var _sV_=_sU_; + _sO_=caml_greaterthan(base,_cL_), + _sP_=_sO_ || caml_lessthan(base,_cP_); + if(_sP_) + {var _sQ_=caml_greaterthan(exponent,_cM_); + if(_sQ_) + var _sR_=_sQ_; else - {var _sW_=caml_greaterequal(base,_cN_); - if(_sW_) + {var _sS_=caml_greaterequal(base,_cN_); + if(_sS_) var - _sX_=caml_int64_to_int32(exponent), - _sY_= + _sT_=caml_int64_to_int32(exponent), + _sU_= caml_greaterthan (base, - caml_check_bound(int64_positive_overflow_bounds,_sX_) - [1 + _sX_]); + caml_check_bound(int64_positive_overflow_bounds,_sT_) + [1 + _sT_]); else - var _sY_=_sW_; - if(_sY_) - var _sV_=_sY_; + var _sU_=_sS_; + if(_sU_) + var _sR_=_sU_; else - {var _sZ_=caml_lessthan(base,_cO_); - if(_sZ_) + {var _sV_=caml_lessthan(base,_cO_); + if(_sV_) var - _s0_=caml_int64_to_int32(exponent), - _sV_= + _sW_=caml_int64_to_int32(exponent), + _sR_= caml_lessthan (base, - caml_check_bound(int64_negative_overflow_bounds,_s0_) - [1 + _s0_]); + caml_check_bound(int64_negative_overflow_bounds,_sW_) + [1 + _sW_]); else - var _sV_=_sZ_}}} + var _sR_=_sV_}}} else - var _sV_=_sT_; - if(_sV_)overflow(0); + var _sR_=_sP_; + if(_sR_)overflow(0); return runtime.Base_int_math_int64_pow_stub(base,exponent)}, int63_pow_on_int64= function(base,exponent) {if(caml_lessthan(exponent,_cQ_))negative_exponent(0); - var _sN_=caml_greaterthan(caml_call1(abs$1,base),_cR_); - if(_sN_) - {var _sO_=caml_greaterthan(exponent,_cS_); - if(_sO_) - var _sP_=_sO_; + var _sJ_=caml_greaterthan(caml_call1(abs$1,base),_cR_); + if(_sJ_) + {var _sK_=caml_greaterthan(exponent,_cS_); + if(_sK_) + var _sL_=_sK_; else var - _sQ_=caml_int64_to_int32(exponent), - _sR_= - caml_check_bound - (int63_on_int64_positive_overflow_bounds,_sQ_) - [1 + _sQ_], - _sP_=caml_greaterthan(caml_call1(abs$1,base),_sR_)} + _sM_=caml_int64_to_int32(exponent), + _sN_= + caml_check_bound(int63_on_int64_positive_overfl,_sM_) + [1 + _sM_], + _sL_=caml_greaterthan(caml_call1(abs$1,base),_sN_)} else - var _sP_=_sN_; - if(_sP_)overflow(0); + var _sL_=_sJ_; + if(_sL_)overflow(0); return runtime.Base_int_math_int64_pow_stub(base,exponent)}, Private$2=[0,int_pow,int64_pow,int63_pow_on_int64], _cV_= function(X) {function symbol(x,y) {if(caml_call2(X[11],y,X[18])) - {var _sL_=caml_call1(X[4],y),_sM_=caml_call1(X[4],x); - caml_call3(invalid_argf(_cT_),_sM_,_sL_,0)} + {var _sH_=caml_call1(X[4],y),_sI_=caml_call1(X[4],x); + caml_call3(invalid_argf(_cT_),_sI_,_sH_,0)} var rval=caml_call2(X[20],x,y); return caml_call2(X[14],rval,X[18]) ?caml_call2(X[5],rval,y) @@ -46347,24 +48762,24 @@ var one=caml_call1(X[19],1); function symbol$0(x,y) {if(caml_call2(X[11],y,X[18])) - {var _sH_=caml_call1(X[4],y),_sI_=caml_call1(X[4],x); - caml_call3(invalid_argf(_cU_),_sI_,_sH_,0)} + {var _sD_=caml_call1(X[4],y),_sE_=caml_call1(X[4],x); + caml_call3(invalid_argf(_cU_),_sE_,_sD_,0)} if(caml_call2(X[14],x,X[18])) {var - _sJ_=caml_call2(X[5],x,one), - _sK_=caml_call2(X[8],_sJ_,y); - return caml_call2(X[6],_sK_,one)} + _sF_=caml_call2(X[5],x,one), + _sG_=caml_call2(X[8],_sF_,y); + return caml_call2(X[6],_sG_,one)} return caml_call2(X[8],x,y)} function symbol$1(x,y) - {var _sG_=caml_call1(X[2],y); - return caml_call1(X[2],x) / _sG_} + {var _sC_=caml_call1(X[2],y); + return caml_call1(X[2],x) / _sC_} function round_down(i,modulus) - {var _sF_=symbol(i,modulus);return caml_call2(X[6],i,_sF_)} + {var _sB_=symbol(i,modulus);return caml_call2(X[6],i,_sB_)} function round_up(i,modulus) {var remainder=symbol(i,modulus); if(caml_call2(X[12],remainder,X[18]))return i; - var _sE_=caml_call2(X[5],i,modulus); - return caml_call2(X[6],_sE_,remainder)} + var _sA_=caml_call2(X[5],i,modulus); + return caml_call2(X[6],_sA_,remainder)} function round_towards_zero(i,to_multiple_of) {return caml_call2(X[12],i,X[18]) ?X[18] @@ -46374,12 +48789,12 @@ function round_nearest(i,modulus) {var remainder=symbol(i,modulus), - _sB_=caml_call1(X[19],2), - _sC_=caml_call2(X[7],remainder,_sB_); - if(caml_call2(X[14],_sC_,modulus)) + _sx_=caml_call1(X[19],2), + _sy_=caml_call2(X[7],remainder,_sx_); + if(caml_call2(X[14],_sy_,modulus)) return caml_call2(X[6],i,remainder); - var _sD_=caml_call2(X[6],i,remainder); - return caml_call2(X[5],_sD_,modulus)} + var _sz_=caml_call2(X[6],i,remainder); + return caml_call2(X[5],_sz_,modulus)} function round(opt,i,to_multiple_of) {if(opt)var sth=opt[1],dir=sth;else var dir=857423934; return 857423934 <= dir @@ -46406,17 +48821,17 @@ {var x$0= caml_int64_sub - (x,caml_int64_and(caml_int64_shift_right_unsigned(x,1),m1)), + (x,caml_int64_and(caml_int64_shift_right_unsigne(x,1),m1)), x$1= caml_int64_add (caml_int64_and(x$0,m2), - caml_int64_and(caml_int64_shift_right_unsigned(x$0,2),m2)), + caml_int64_and(caml_int64_shift_right_unsigne(x$0,2),m2)), x$2= caml_int64_and - (caml_int64_add(x$1,caml_int64_shift_right_unsigned(x$1,4)), + (caml_int64_add(x$1,caml_int64_shift_right_unsigne(x$1,4)), m4); return caml_int64_to_int32 - (caml_int64_shift_right_unsigned(caml_int64_mul(x$2,h01),56))}, + (caml_int64_shift_right_unsigne(caml_int64_mul(x$2,h01),56))}, int32_popcount= function(x) {return int64_popcount @@ -46431,8 +48846,8 @@ function(x){return int64_popcount(caml_int64_of_int32(x))}} var popcount$0= - function(_sA_) - {return runtime.Base_int_math_int_popcount(_sA_)}, + function(_sw_) + {return runtime.Base_int_math_int_popcount(_sw_)}, Base_Popcount= [0,popcount$0,int32_popcount,int64_popcount,popcount]; caml_register_global(1057,Base_Popcount,"Base__Popcount"); @@ -46472,8 +48887,8 @@ {case 0:return 2;case 1:return 1;default:return 0}}, symbol$143= function(t$0,t) - {var _sz_=to_int$1(t); - return sign(caml_mul(to_int$1(t$0),_sz_))}, + {var _sv_=to_int$1(t); + return sign(caml_mul(to_int$1(t$0),_sv_))}, symbol$144=Replace_polymorphic_compare[1], symbol$145=Replace_polymorphic_compare[2], symbol$146=Replace_polymorphic_compare[3], @@ -46527,17 +48942,19 @@ of_string$9= function(s) {try - {var _sx_=caml_int_of_string(s);return _sx_} - catch(_sy_){return caml_call2(failwithf(_cY_),s,0)}}, + {var _st_=caml_int_of_string(s);return _st_} + catch(_su_){return caml_call2(failwithf(_cY_),s,0)}}, float_lower_bound=lower_bound_for_int(num_bits), float_upper_bound=upper_bound_for_int(num_bits), - of_int$2=function(_sw_){return _sw_}, - of_float_unchecked=function(_sv_){return _sv_ | 0}, + of_int$2=function(_ss_){return _ss_}, + of_float_unchecked=function(_sr_){return _sr_ | 0}, to_int$3= function(f) - {if(caml_call2(include$7[6],f,float_lower_bound)) - if(caml_call2(include$7[2],f,float_upper_bound)) - return f | 0; + {if + (caml_call2(include$7[6],f,float_lower_bound) + && + caml_call2(include$7[2],f,float_upper_bound)) + return f | 0; return caml_call2(invalid_argf(_cZ_),f + 0.,0)}, comparator$7=_ap_([0,compare$42,sexp_of_t$4])[1], _c0_=_a2_([0,compare$42,sexp_of_t$4,0]), @@ -46563,8 +48980,8 @@ to_string$11=function(i){return caml_call2(sprintf,_c1_,i)}, of_string$10= function(s) - {function _st_(_su_){return _su_} - return caml_call3(Stdlib_scanf[4],s,_c2_,_st_)}, + {function _sp_(_sq_){return _sq_} + return caml_call3(Stdlib_scanf[4],s,_c2_,_sp_)}, include$46= _cz_ ([0, @@ -46582,8 +48999,8 @@ pp$11=include$47[1], between$5= function(t,low,high) - {var _ss_=caml_call2(include$1[2],low,t); - return _ss_?caml_call2(include$1[2],t,high):_ss_}, + {var _so_=caml_call2(include$1[2],low,t); + return _so_?caml_call2(include$1[2],t,high):_so_}, clamp_unchecked$2= function(t,min,max) {return caml_call2(include$1[1],t,min) @@ -46597,12 +49014,12 @@ clamp$5= function(t,min,max) {if(caml_call2(include$1[5],min,max)) - {var _sr_=[0,[0,cst_max$3,caml_call1(sexp_of_t$4,max)],0]; + {var _sn_=[0,[0,cst_max$3,caml_call1(sexp_of_t$4,max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max$3, - [0,[0,cst_min$3,caml_call1(sexp_of_t$4,min)],_sr_]))} + [0,[0,cst_min$3,caml_call1(sexp_of_t$4,min)],_sn_]))} return [0,clamp_unchecked$2(t,min,max)]}, pred$1=function(i){return i - 1 | 0}, succ$2=function(i){return i + 1 | 0}, @@ -46614,12 +49031,12 @@ abs$2=function(x){return caml_call1(abs$0,x)}, symbol$151=function(x,y){return x + y | 0}, symbol$152=function(x,y){return x - y | 0}, - symbol$153=function(x,y){return caml_mul(x,y)}, + symbol$153=caml_mul, symbol$154=caml_div, symbol$155=function(x){return - x | 0}, rem=caml_mod, - incr$0=function(_sq_){_sq_[1]++;return 0}, - decr$0=function(_sp_){_sp_[1] += -1;return 0}, + incr$0=function(_sm_){_sm_[1]++;return 0}, + decr$0=function(_sl_){_sl_[1] += -1;return 0}, shift_right$0=function(a,b){return a >> b}, shift_right_logical=function(a,b){return a >>> b | 0}, shift_left=function(a,b){return a << b}, @@ -46664,7 +49081,7 @@ raise_s (caml_call2 (message, - cst_Int_floor_log2_got_invalid_input, + cst_Int_floor_log2_got_invalid, [0,[0,cst$23,caml_call1(sexp_of_t$4,i)],0])); return (word_size_in_bits - 1 | 0) - @@ -46677,7 +49094,7 @@ raise_s (caml_call2 (message, - cst_Int_ceil_log2_got_invalid_input, + cst_Int_ceil_log2_got_invalid_, [0,[0,cst$24,caml_call1(sexp_of_t$4,i)],0])); return caml_call2(symbol$81,i,1) ?0 @@ -46724,18 +49141,18 @@ function(x,y) {if(caml_call2(symbol$161,y,zero)) {var - _sn_=caml_call1(to_string,y), - _so_=caml_call1(to_string,x); - caml_call3(invalid_argf(_c5_),_so_,_sn_,0)} + _sj_=caml_call1(to_string,y), + _sk_=caml_call1(to_string,x); + caml_call3(invalid_argf(_c5_),_sk_,_sj_,0)} var rval=caml_mod(x,y); return caml_call2(symbol$158,rval,zero)?rval + y | 0:rval}, symbol$164= function(x,y) {if(caml_call2(symbol$161,y,zero)) {var - _sl_=caml_call1(to_string,y), - _sm_=caml_call1(to_string,x); - caml_call3(invalid_argf(_c6_),_sm_,_sl_,0)} + _sh_=caml_call1(to_string,y), + _si_=caml_call1(to_string,x); + caml_call3(invalid_argf(_c6_),_si_,_sh_,0)} return caml_call2(symbol$158,x,zero) ?caml_div(x + 1 | 0,y) - 1 | 0 :caml_div(x,y)}, @@ -46897,27 +49314,27 @@ sexp_of_t$36=function(of_a,of_b,param){return _c7_}, refl=0, sym=function(param){return 0}, - trans=function(param,_sk_){return 0}, + trans=function(param,_sg_){return 0}, conv=function(param,a){return a}, Lift=function(X){function lift(param){return 0}return [0,lift]}, Lift2= function(X) - {function lift(param,_sj_){return 0}return [0,lift]}, + {function lift(param,_sf_){return 0}return [0,lift]}, Lift3= function(X) - {function lift(param,_si_,_sh_){return 0}return [0,lift]}, + {function lift(param,_se_,_sd_){return 0}return [0,lift]}, detuple2=function(param){return _c8_}, - tuple2=function(param,_sg_){return 0}, - Composition_preserves_injectivity= + tuple2=function(param,_sc_){return 0}, + Composition_preserves_injectiv= function(M1,M2) {function strip(e) - {var _sf_=caml_call1(M2[1],e);return caml_call1(M1[1],_sf_)} + {var _sb_=caml_call1(M2[1],e);return caml_call1(M1[1],_sb_)} return [0,strip]}, id=Stdlib_obj[24], of_val=Stdlib_obj[22], sexp_of_t$37= - function(param,_se_) - {var name=_se_[2],witness=_se_[1]; + function(param,_sa_) + {var name=_sa_[2],witness=_sa_[1]; if(am_testing)return [0,name]; var v0=caml_call1(id,caml_call1(of_val,witness[1])); return [1, @@ -46945,22 +49362,22 @@ function(t1,t2) {var match=same_witness(t1,t2); if(match){var w=match[1];return w} - var _r$_=0,_sa_=[0,t1,t2]; - function _sb_(_sd_) - {return sexp_of_t$37(sexp_of_opaque,_sd_)} + var _r7_=0,_r8_=[0,t1,t2]; + function _r9_(_r$_) + {return sexp_of_t$37(sexp_of_opaque,_r$_)} return raise_s (caml_call2 (message, - cst_Type_equal_Id_same_witness_exn_got_different_ids, + cst_Type_equal_Id_same_witness, [0, [0, cst$25, caml_call3 (sexp_of_pair, - function(_sc_){return sexp_of_t$37(sexp_of_opaque,_sc_)}, - _sb_, - _sa_)], - _r$_]))}, + function(_r__){return sexp_of_t$37(sexp_of_opaque,_r__)}, + _r9_, + _r8_)], + _r7_]))}, Base_Type_equal= [0, sexp_of_t$36, @@ -46973,7 +49390,7 @@ Lift3, detuple2, tuple2, - Composition_preserves_injectivity, + Composition_preserves_injectiv, [0, sexp_of_t$37, [0, @@ -47023,9 +49440,7 @@ function(x) {return is_some$0(x) ?value_unsafe(x) - :caml_call1 - (failwith$0, - cst_Option_array_get_some_exn_the_element_is_None)}, + :caml_call1(failwith$0,cst_Option_array_get_some_exn_)}, of_sexpable= function(param) {if(param){var x=param[1];return some$0(x)}return none}, @@ -47073,13 +49488,13 @@ unsafe_set_none=function(t,i){return unsafe_set$0(t,i,none)}, clear= function(t) - {var _r9_=t.length - 1 - 1 | 0,_r8_=0; - if(! (_r9_ < 0)) - {var i=_r8_; + {var _r5_=t.length - 1 - 1 | 0,_r4_=0; + if(! (_r5_ < 0)) + {var i=_r4_; for(;;) {unsafe_set_none(t,i); - var _r__=i + 1 | 0; - if(_r9_ !== i){var i=_r__;continue} + var _r6_=i + 1 | 0; + if(_r5_ !== i){var i=_r6_;continue} break}} return 0}, create_like$1=function(len,param){return create$9(len)}, @@ -47150,61 +49565,63 @@ function(invariant_a,t) {var length=t[1],elts=t[2]; try - {if(caml_call2(symbol$79,0,length)) - if(caml_call2(symbol$79,length,elts.length - 1)) - {var _r3_=length - 1 | 0,_r2_=0; - if(! (_r3_ < 0)) - {var i$0=_r2_; - for(;;) - {caml_call1(invariant_a,get_some_exn(elts,i$0)); - var _r7_=i$0 + 1 | 0; - if(_r3_ !== i$0){var i$0=_r7_;continue} - break}} - var _r4_=elts.length - 1 - 1 | 0; - if(! (_r4_ < length)) - {var i=length; - for(;;) - {if(is_some$1(elts,i))throw [0,Assert_failure,_dc_]; - var _r6_=i + 1 | 0; - if(_r4_ !== i){var i=_r6_;continue} - break}} - var _r5_=0; - return _r5_} + {if + (caml_call2(symbol$79,0,length) + && + caml_call2(symbol$79,length,elts.length - 1)) + {var _rZ_=length - 1 | 0,_rY_=0; + if(! (_rZ_ < 0)) + {var i$0=_rY_; + for(;;) + {caml_call1(invariant_a,get_some_exn(elts,i$0)); + var _r3_=i$0 + 1 | 0; + if(_rZ_ !== i$0){var i$0=_r3_;continue} + break}} + var _r0_=elts.length - 1 - 1 | 0; + if(! (_r0_ < length)) + {var i=length; + for(;;) + {if(is_some$1(elts,i))throw [0,Assert_failure,_dc_]; + var _r2_=i + 1 | 0; + if(_r0_ !== i){var i=_r2_;continue} + break}} + var _r1_=0; + return _r1_} throw [0,Assert_failure,_dd_]} catch(exn) {exn = caml_wrap_exception(exn); var - _r1_= + _rX_= [0,[0,cst_stack,sexp_of_t_internal(sexp_of_opaque,t)],0]; return raise_s (caml_call2 (message, cst_Stack_invariant_failed, - [0,[0,cst_exn$1,caml_call1(sexp_of_exn,exn)],_r1_]))}}, + [0,[0,cst_exn$1,caml_call1(sexp_of_exn,exn)],_rX_]))}}, create$10=function(param){return [0,0,empty$0]}, length$9=function(t){return t[1]}, is_empty$4=function(t){return caml_call2(symbol$81,t[1],0)}, fold$6= function(t,init,f) - {var r=[0,init],_rY_=t[1] - 1 | 0; - if(! (_rY_ < 0)) - {var i=_rY_; + {var r=[0,init],_rU_=t[1] - 1 | 0; + if(! (_rU_ < 0)) + {var i=_rU_; for(;;) - {var _rZ_=get_some_exn(t[2],i); - r[1] = caml_call2(f,r[1],_rZ_); - var _r0_=i - 1 | 0; - if(0 !== i){var i=_r0_;continue} + {var _rV_=get_some_exn(t[2],i); + r[1] = caml_call2(f,r[1],_rV_); + var _rW_=i - 1 | 0; + if(0 !== i){var i=_rW_;continue} break}} return r[1]}, iter$7= function(t,f) - {var _rW_=t[1] - 1 | 0; - if(! (_rW_ < 0)) - {var i=_rW_; + {var _rS_=t[1] - 1 | 0; + if(! (_rS_ < 0)) + {var i=_rS_; for(;;) {caml_call1(f,get_some_exn(t[2],i)); - var _rX_=i - 1 | 0; - if(0 !== i){var i=_rX_;continue} + var _rT_=i - 1 | 0; + if(0 !== i){var i=_rT_;continue} break}} return 0}, iter$8=[0,-198771759,iter$7], @@ -47230,17 +49647,17 @@ length$0=caml_call1(length,l), elts=create$9(2 * length$0 | 0), r=[0,l], - _rT_=length$0 - 1 | 0; - if(! (_rT_ < 0)) - {var i=_rT_; + _rP_=length$0 - 1 | 0; + if(! (_rP_ < 0)) + {var i=_rP_; for(;;) - {var _rU_=r[1]; - if(! _rU_)throw [0,Assert_failure,_dr_]; - var l$0=_rU_[2],a=_rU_[1]; + {var _rQ_=r[1]; + if(! _rQ_)throw [0,Assert_failure,_dr_]; + var l$0=_rQ_[2],a=_rQ_[1]; set_some(elts,i,a); r[1] = l$0; - var _rV_=i - 1 | 0; - if(0 !== i){var i=_rV_;continue} + var _rR_=i - 1 | 0; + if(0 !== i){var i=_rR_;continue} break}} return [0,length$0,elts]}, sexp_of_t$40= @@ -47259,8 +49676,8 @@ function(t,new_capacity) {var new_capacity$0=caml_call2(max$12,new_capacity,t[1]), - _rS_=caml_call2(symbol$80,new_capacity$0,capacity(t)); - return _rS_?resize(t,new_capacity$0):_rS_}, + _rO_=caml_call2(symbol$80,new_capacity$0,capacity(t)); + return _rO_?resize(t,new_capacity$0):_rO_}, push= function(t,a) {if(caml_call2(symbol$81,t[1],t[2].length - 1)) @@ -47292,27 +49709,27 @@ return [0,length,copy$3(elts)]}, clear$0= function(t) - {var _rN_=caml_call2(symbol$82,t[1],0); - if(_rN_) - {var _rP_=t[1] - 1 | 0,_rO_=0; - if(! (_rP_ < 0)) - {var i=_rO_; + {var _rJ_=caml_call2(symbol$82,t[1],0); + if(_rJ_) + {var _rL_=t[1] - 1 | 0,_rK_=0; + if(! (_rL_ < 0)) + {var i=_rK_; for(;;) {set_none(t[2],i); - var _rR_=i + 1 | 0; - if(_rP_ !== i){var i=_rR_;continue} + var _rN_=i + 1 | 0; + if(_rL_ !== i){var i=_rN_;continue} break}} t[1] = 0; - var _rQ_=0} + var _rM_=0} else - var _rQ_=_rN_; - return _rQ_}, + var _rM_=_rJ_; + return _rM_}, until_empty= function(t,f) {for(;;) - {var _rM_=caml_call2(symbol$82,t[1],0); - if(_rM_){caml_call1(f,pop_nonempty(t));continue} - return _rM_}}, + {var _rI_=caml_call2(symbol$82,t[1],0); + if(_rI_){caml_call1(f,pop_nonempty(t));continue} + return _rI_}}, singleton$2=function(x){var t=create$10(0);push(t,x);return t}, Base_Stack= [0, @@ -47358,16 +49775,16 @@ pos_bol=param[3], pos_lnum=param[2], pos_fname=param[1], - _rJ_=func$9(pos_cnum), - _rK_=func$9(pos_bol), - _rL_=func$9(pos_lnum); + _rF_=func$9(pos_cnum), + _rG_=func$9(pos_bol), + _rH_=func$9(pos_lnum); return runtime.Base_hash_string(pos_fname) ^ - _rL_ + _rH_ ^ - _rK_ + _rG_ ^ - _rJ_}, + _rF_}, include$50=Make_using_comparator([0,sexp_of_t$20,comparator$0]), symbol$172=include$50[1], symbol$173=include$50[2], @@ -47419,75 +49836,61 @@ t_of_sexp$29= function(sexp) {if(0 === sexp[0]) - {var _rF_=sexp[1]; - if(caml_string_notequal(_rF_,cst_Nan)) - {if(caml_string_notequal(_rF_,cst_Neg$1)) - {if(caml_string_notequal(_rF_,cst_Pos$1)) - {if(caml_string_notequal(_rF_,cst_Zero$1)) - if(caml_string_notequal(_rF_,cst_nan)) - if(caml_string_notequal(_rF_,cst_neg$1)) - if(caml_string_notequal(_rF_,cst_pos$3)) - if(caml_string_notequal(_rF_,cst_zero$1)) - var switch$0=1,switch$1=0,switch$2=0,switch$3=0; - else - var switch$3=1; + {var _rB_=sexp[1],switch$0=0; + if(caml_string_notequal(_rB_,cst_Nan)) + {var switch$1=0; + if(caml_string_notequal(_rB_,cst_Neg$1)) + {var switch$2=0; + if(caml_string_notequal(_rB_,cst_Pos$1)) + {var switch$3=0; + if(caml_string_notequal(_rB_,cst_Zero$1)) + if(caml_string_notequal(_rB_,cst_nan)) + if(caml_string_notequal(_rB_,cst_neg$1)) + if(caml_string_notequal(_rB_,cst_pos$3)) + {if(caml_string_notequal(_rB_,cst_zero$1)) + {switch$0 = 1;switch$1 = 1;switch$2 = 1;switch$3 = 1}} else - var switch$2=1,switch$3=0; + switch$3 = 1; else - var switch$1=1,switch$2=0,switch$3=0; + {switch$2 = 1;switch$3 = 1} else - var switch$0=0,switch$1=0,switch$2=0,switch$3=0; - else - var switch$3=1; - if(switch$3)return 1} - else - var switch$2=1; - if(switch$2)return 2} - else - var switch$1=1; - if(switch$1)return 0} - else - var switch$0=0; + {switch$1 = 1;switch$2 = 1;switch$3 = 1} + if(! switch$3)return 1} + if(! switch$2)return 2} + if(! switch$1)return 0} if(! switch$0)return 3} else - {var _rG_=sexp[1]; - if(! _rG_) + {var _rC_=sexp[1]; + if(! _rC_) return caml_call2(Sexplib0_Sexp_conv_error[7],tp_loc$8,sexp); - var _rH_=_rG_[1]; - if(0 !== _rH_[0]) + var _rD_=_rC_[1]; + if(0 !== _rD_[0]) return caml_call2(Sexplib0_Sexp_conv_error[6],tp_loc$8,sexp); - var _rI_=_rH_[1]; - if(caml_string_notequal(_rI_,cst_Nan$0)) - {if(caml_string_notequal(_rI_,cst_Neg$2)) - {if(caml_string_notequal(_rI_,cst_Pos$2)) - {if(caml_string_notequal(_rI_,cst_Zero$2)) - if(caml_string_notequal(_rI_,cst_nan$0)) - if(caml_string_notequal(_rI_,cst_neg$2)) - if(caml_string_notequal(_rI_,cst_pos$4)) - if(caml_string_notequal(_rI_,cst_zero$2)) - var switch$4=1,switch$5=0,switch$6=0,switch$7=0; - else - var switch$7=1; + var _rE_=_rD_[1],switch$4=0; + if(caml_string_notequal(_rE_,cst_Nan$0)) + {var switch$5=0; + if(caml_string_notequal(_rE_,cst_Neg$2)) + {var switch$6=0; + if(caml_string_notequal(_rE_,cst_Pos$2)) + {var switch$7=0; + if(caml_string_notequal(_rE_,cst_Zero$2)) + if(caml_string_notequal(_rE_,cst_nan$0)) + if(caml_string_notequal(_rE_,cst_neg$2)) + if(caml_string_notequal(_rE_,cst_pos$4)) + {if(caml_string_notequal(_rE_,cst_zero$2)) + {switch$4 = 1;switch$5 = 1;switch$6 = 1;switch$7 = 1}} else - var switch$6=1,switch$7=0; + switch$7 = 1; else - var switch$5=1,switch$6=0,switch$7=0; + {switch$6 = 1;switch$7 = 1} else - var switch$4=0,switch$5=0,switch$6=0,switch$7=0; - else - var switch$7=1; - if(switch$7) + {switch$5 = 1;switch$6 = 1;switch$7 = 1} + if(! switch$7) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$8,sexp)} - else - var switch$6=1; - if(switch$6) + if(! switch$6) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$8,sexp)} - else - var switch$5=1; - if(switch$5) + if(! switch$5) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$8,sexp)} - else - var switch$4=0; if(! switch$4) return caml_call2(Sexplib0_Sexp_conv_error[3],tp_loc$8,sexp)} return caml_call2(Sexplib0_Sexp_conv_error[8],tp_loc$8,sexp)}, @@ -47564,7 +49967,7 @@ case 2:return 2; default: return caml_call1 - (invalid_arg$0,cst_Base_Sign_or_nan_to_sign_exn_Nan)}}, + (invalid_arg$0,cst_Base_Sign_or_nan_to_sign_e)}}, of_int$4=function(n){return of_sign(sign(n))}, to_int_exn$0=function(t){return to_int$1(to_sign_exn(t))}, flip$1= @@ -47576,10 +49979,9 @@ default:return 3}}, symbol$184= function(t$0,t) - {if(! (3 <= t$0)) - if(! (3 <= t)) - {var _rE_=to_sign_exn(t); - return of_sign(symbol$143(to_sign_exn(t$0),_rE_))} + {if(! (3 <= t$0) && ! (3 <= t)) + {var _rA_=to_sign_exn(t); + return of_sign(symbol$143(to_sign_exn(t$0),_rA_))} return 3}, Base_Sign_or_nan= [0, @@ -47701,165 +50103,141 @@ n=caml_call2(cmp_k,t_003,t_005); if(0 === n) {if(t_004 === t_006)return 0; - var _rD_=t_004[1]; - if(847852583 === _rD_) - {if(typeof t_006 !== "number") - if(847852583 === t_006[1]) - {var right_008=t_006[2],left_007=t_004[2]; - return caml_call2(cmp_v,left_007,right_008)}} + var _rz_=t_004[1]; + if(847852583 === _rz_) + {if(typeof t_006 !== "number" && 847852583 === t_006[1]) + {var right_008=t_006[2],left_007=t_004[2]; + return caml_call2(cmp_v,left_007,right_008)}} else - if(1013247643 <= _rD_) - {if(typeof t_006 !== "number") - if(1013247643 === t_006[1]) - {var - right_012=t_006[2], - left_011=t_004[2], - t_014=left_011[2], - t_013=left_011[1], - t_016=right_012[2], - t_015=right_012[1], - n$0=caml_call2(cmp_v,t_013,t_015); - return 0 === n$0?caml_call2(cmp_v,t_014,t_016):n$0}} + if(1013247643 <= _rz_) + {if(typeof t_006 !== "number" && 1013247643 === t_006[1]) + {var + right_012=t_006[2], + left_011=t_004[2], + t_014=left_011[2], + t_013=left_011[1], + t_016=right_012[2], + t_015=right_012[1], + n$0=caml_call2(cmp_v,t_013,t_015); + return 0 === n$0?caml_call2(cmp_v,t_014,t_016):n$0}} else - if(typeof t_006 !== "number") - if(-57574468 === t_006[1]) - {var right_010=t_006[2],left_009=t_004[2]; - return caml_call2(cmp_v,left_009,right_010)} + if(typeof t_006 !== "number" && -57574468 === t_006[1]) + {var right_010=t_006[2],left_009=t_004[2]; + return caml_call2(cmp_v,left_009,right_010)} return caml_compare(t_004,t_006)} return n}, t_of_sexp$31= function(of_k,of_v,sexp) {if(1 === sexp[0]) - {var _ro_=sexp[1]; - if(_ro_) - {var _rp_=_ro_[2]; - if(_rp_) - if(! _rp_[2]) - {var - v1=_rp_[1], - v0=_ro_[1], - v0$0=caml_call1(of_k,v0), - v1$0= - function(sexp) - {try - {if(0 === sexp[0]) - var - atom=sexp[1], - _rq_= - caml_string_notequal(atom,cst_Left$1) - ?caml_string_notequal(atom,cst_Right$1) - ?caml_string_notequal(atom,cst_Unequal) - ?caml_call1(Sexplib0_Sexp_conv_error[18],0) - :caml_call2(Sexplib0_Sexp_conv_error[22],tp_loc$9,sexp) - :caml_call2(Sexplib0_Sexp_conv_error[22],tp_loc$9,sexp) - :caml_call2(Sexplib0_Sexp_conv_error[22],tp_loc$9,sexp), - _rr_=_rq_; - else - {var _rs_=sexp[1]; - if(_rs_) - {var _rt_=_rs_[1]; - if(0 === _rt_[0]) - {var sexp_args=_rs_[2],atom$0=_rt_[1]; - if(caml_string_notequal(atom$0,cst_Left$2)) - if(caml_string_notequal(atom$0,cst_Right$2)) - if(caml_string_notequal(atom$0,cst_Unequal$0)) - var _ru_=caml_call1(Sexplib0_Sexp_conv_error[18],0); - else - {if(sexp_args) - if(sexp_args[2]) - var switch$0=0; - else - {var v0=sexp_args[1]; - if(1 === v0[0]) - {var _ry_=v0[1]; - if(_ry_) - {var _rz_=_ry_[2]; - if(_rz_) - if(_rz_[2]) - var switch$1=0; - else - var - v1=_rz_[1], - v0$1=_ry_[1], - v0$2=caml_call1(of_v,v0$1), - v1$0=caml_call1(of_v,v1), - v0$0=[0,v0$2,v1$0], - switch$1=1; - else - var switch$1=0} - else - var switch$1=0} - else - var switch$1=0; - if(! switch$1) - var - v0$0= - caml_call3(Sexplib0_Sexp_conv_error[2],tp_loc$9,2,v0); - var _rx_=[0,1013247643,v0$0],switch$0=1} - else - var switch$0=0; - if(! switch$0) - var - _rx_= - caml_call3 - (Sexplib0_Sexp_conv_error[21],tp_loc$9,atom$0,sexp); - var _ru_=_rx_} + {var _rk_=sexp[1]; + if(_rk_) + {var _rl_=_rk_[2]; + if(_rl_ && ! _rl_[2]) + {var + v1=_rl_[1], + v0=_rk_[1], + v0$0=caml_call1(of_k,v0), + v1$0= + function(sexp) + {try + {if(0 === sexp[0]) + var + atom=sexp[1], + _rm_= + caml_string_notequal(atom,cst_Left$1) + ?caml_string_notequal(atom,cst_Right$1) + ?caml_string_notequal(atom,cst_Unequal) + ?caml_call1(Sexplib0_Sexp_conv_error[18],0) + :caml_call2(Sexplib0_Sexp_conv_error[22],tp_loc$9,sexp) + :caml_call2(Sexplib0_Sexp_conv_error[22],tp_loc$9,sexp) + :caml_call2(Sexplib0_Sexp_conv_error[22],tp_loc$9,sexp), + _rn_=_rm_; + else + {var _ro_=sexp[1]; + if(_ro_) + {var _rp_=_ro_[1]; + if(0 === _rp_[0]) + {var sexp_args=_ro_[2],atom$0=_rp_[1]; + if(caml_string_notequal(atom$0,cst_Left$2)) + if(caml_string_notequal(atom$0,cst_Right$2)) + if(caml_string_notequal(atom$0,cst_Unequal$0)) + var _rq_=caml_call1(Sexplib0_Sexp_conv_error[18],0); else - {if(sexp_args) - if(sexp_args[2]) - var switch$2=0; - else - var - v0$3=sexp_args[1], - v0$4=caml_call1(of_v,v0$3), - _rA_=[0,-57574468,v0$4], - switch$2=1; - else - var switch$2=0; - if(! switch$2) + {var switch$0=0; + if(sexp_args && ! sexp_args[2]) + {var v0=sexp_args[1],switch$1=0; + if(1 === v0[0]) + {var _ru_=v0[1]; + if(_ru_) + {var _rv_=_ru_[2]; + if(_rv_ && ! _rv_[2]) + {var + v1=_rv_[1], + v0$1=_ru_[1], + v0$2=caml_call1(of_v,v0$1), + v1$0=caml_call1(of_v,v1), + v0$0=[0,v0$2,v1$0]; + switch$1 = 1}}} + if(! switch$1) + var + v0$0= + caml_call3(Sexplib0_Sexp_conv_error[2],tp_loc$9,2,v0); + var _rt_=[0,1013247643,v0$0]; + switch$0 = 1} + if(! switch$0) var - _rA_= + _rt_= caml_call3 (Sexplib0_Sexp_conv_error[21],tp_loc$9,atom$0,sexp); - var _ru_=_rA_} + var _rq_=_rt_} else - {if(sexp_args) - if(sexp_args[2]) - var switch$3=0; - else - var - v0$5=sexp_args[1], - v0$6=caml_call1(of_v,v0$5), - _rB_=[0,847852583,v0$6], - switch$3=1; - else - var switch$3=0; - if(! switch$3) + {var switch$2=0; + if(sexp_args && ! sexp_args[2]) + {var + v0$3=sexp_args[1], + v0$4=caml_call1(of_v,v0$3), + _rw_=[0,-57574468,v0$4]; + switch$2 = 1} + if(! switch$2) var - _rB_= + _rw_= caml_call3 (Sexplib0_Sexp_conv_error[21],tp_loc$9,atom$0,sexp); - var _ru_=_rB_} - var _rv_=_ru_} - else - var - _rv_= - caml_call2(Sexplib0_Sexp_conv_error[23],tp_loc$9,sexp); - var _rw_=_rv_} - else - var - _rw_= - caml_call2(Sexplib0_Sexp_conv_error[24],tp_loc$9,sexp); - var _rr_=_rw_} - return _rr_} - catch(_rC_) - {_rC_ = caml_wrap_exception(_rC_); - if(_rC_ === Sexplib0_Sexp_conv_error[17]) - return caml_call2 - (Sexplib0_Sexp_conv_error[19],tp_loc$9,sexp); - throw _rC_}} - (v1); - return [0,v0$0,v1$0]}}} + var _rq_=_rw_} + else + {var switch$3=0; + if(sexp_args && ! sexp_args[2]) + {var + v0$5=sexp_args[1], + v0$6=caml_call1(of_v,v0$5), + _rx_=[0,847852583,v0$6]; + switch$3 = 1} + if(! switch$3) + var + _rx_= + caml_call3 + (Sexplib0_Sexp_conv_error[21],tp_loc$9,atom$0,sexp); + var _rq_=_rx_} + var _rr_=_rq_} + else + var + _rr_= + caml_call2(Sexplib0_Sexp_conv_error[23],tp_loc$9,sexp); + var _rs_=_rr_} + else + var + _rs_= + caml_call2(Sexplib0_Sexp_conv_error[24],tp_loc$9,sexp); + var _rn_=_rs_} + return _rn_} + catch(_ry_) + {_ry_ = caml_wrap_exception(_ry_); + if(_ry_ === Sexplib0_Sexp_conv_error[17]) + return caml_call2 + (Sexplib0_Sexp_conv_error[19],tp_loc$9,sexp); + throw _ry_}} + (v1); + return [0,v0$0,v1$0]}}} return caml_call3 (Sexplib0_Sexp_conv_error[2],tp_loc$9,2,sexp)}, sexp_of_t$44= @@ -47868,13 +50246,13 @@ v1=param[2], v0=param[1], v0$0=caml_call1(of_k,v0), - _rn_=v1[1]; - if(847852583 === _rn_) + _rj_=v1[1]; + if(847852583 === _rj_) var v0$1=v1[2], v1$0=[1,[0,_dz_,[0,caml_call1(of_v,v0$1),0]]]; else - if(1013247643 <= _rn_) + if(1013247643 <= _rj_) var v0$2=v1[2], v1$1=v0$2[2], @@ -47889,22 +50267,22 @@ return [1,[0,v0$0,[0,v1$0,0]]]}, Symmetric_diff_element=[0,compare$48,t_of_sexp$31,sexp_of_t$44], compare$49=caml_int_compare, - equal$30=function(_rm_,_rl_){return _rm_ === _rl_?1:0}, + equal$30=function(_ri_,_rh_){return _ri_ === _rh_?1:0}, sexp_of_t$45=function(param){return 0 === param?_dC_:_dD_}, Continue_or_stop$1=[0,compare$49,all$15,equal$30,sexp_of_t$45], compare$50=caml_int_compare, - equal$31=function(_rk_,_rj_){return _rk_ === _rj_?1:0}, + equal$31=function(_rg_,_rf_){return _rg_ === _rf_?1:0}, sexp_of_t$46=function(param){return 0 === param?_dE_:_dF_}, include$53=[0,compare$50,all$16,equal$31,sexp_of_t$46], Check_accessors=function(T,Tree,Key,Cmp,Options,M){return [0]}, Check_accessors1=function(M){return [0]}, Check_accessors2=function(M){return [0]}, Check_accessors3=function(M){return [0]}, - Check_accessors3_with_comparator=function(M){return [0]}, + Check_accessors3_with_comparat=function(M){return [0]}, Check_creators=function(T,Tree,Key,Cmp,Options,M){return [0]}, Check_creators1=function(M){return [0]}, Check_creators2=function(M){return [0]}, - Check_creators3_with_comparator=function(M){return [0]}, + Check_creators3_with_comparato=function(M){return [0]}, Base_Map_intf= [0, Or_duplicate, @@ -47918,11 +50296,11 @@ Check_accessors1, Check_accessors2, Check_accessors3, - Check_accessors3_with_comparator, + Check_accessors3_with_comparat, Check_creators, Check_creators1, Check_creators2, - Check_creators3_with_comparator]; + Check_creators3_with_comparato]; caml_register_global(1068,Base_Map_intf,"Base__Map_intf"); var Continue_or_stop$2=include$19[1], @@ -47931,12 +50309,12 @@ Check_accessors0=function(M){return [0]}, Check_accessors1$0=function(M){return [0]}, Check_accessors2$0=function(M){return [0]}, - Check_accessors2_with_comparator=function(M){return [0]}, + Check_accessors2_with_comparat=function(M){return [0]}, Check_creators$0=function(T,Tree,Elt,Cmp,Options,M){return [0]}, Check_creators0=function(M){return [0]}, Check_creators1$0=function(M){return [0]}, Check_creators2$0=function(M){return [0]}, - Check_creators2_with_comparator=function(M){return [0]}, + Check_creators2_with_comparato=function(M){return [0]}, Base_Set_intf= [0, Continue_or_stop$2, @@ -47944,12 +50322,12 @@ Check_accessors0, Check_accessors1$0, Check_accessors2$0, - Check_accessors2_with_comparator, + Check_accessors2_with_comparat, Check_creators$0, Check_creators0, Check_creators1$0, Check_creators2$0, - Check_creators2_with_comparator]; + Check_creators2_with_comparato]; caml_register_global(1069,Base_Set_intf,"Base__Set_intf"); var height= @@ -47969,19 +50347,19 @@ {if(lower) var lower$0=lower[1], - _rh_= + _rd_= caml_call2(symbol$78,caml_call2(compare_elt,lower$0,v),0); else - var _rh_=1; - if(_rh_) + var _rd_=1; + if(_rd_) {if(upper) {var upper$0=upper[1]; return caml_call2 (symbol$78,caml_call2(compare_elt,v,upper$0),0)} - var _ri_=1} + var _re_=1} else - var _ri_=_rh_; - return _ri_}, + var _re_=_rd_; + return _re_}, loop= function(lower,upper,compare_elt,t) {var lower$0=lower,t$0=t; @@ -47999,31 +50377,31 @@ l=t$0[1], hl=height(l), hr=height(r), - _ra_=caml_call2(symbol$79,caml_call1(abs$0,hl - hr | 0),2); - if(_ra_) + _q8_=caml_call2(symbol$79,caml_call1(abs$0,hl - hr | 0),2); + if(_q8_) {var - _rb_= + _q9_= caml_call2(symbol$81,h,caml_call2(max$12,hl,hr) + 1 | 0); - if(_rb_) + if(_q9_) {var - _rc_=length$11(r), - _rd_= - caml_call2(symbol$81,n,(length$11(l) + _rc_ | 0) + 1 | 0); - if(_rd_) - {var _re_=in_range(lower$0,upper,compare_elt,v$0); - if(_re_) - {var _rf_=loop(lower$0,[0,v$0],compare_elt,l); - if(_rf_){var lower$1=[0,v$0],lower$0=lower$1,t$0=r;continue} - var _rg_=_rf_} + _q__=length$11(r), + _q$_= + caml_call2(symbol$81,n,(length$11(l) + _q__ | 0) + 1 | 0); + if(_q$_) + {var _ra_=in_range(lower$0,upper,compare_elt,v$0); + if(_ra_) + {var _rb_=loop(lower$0,[0,v$0],compare_elt,l); + if(_rb_){var lower$1=[0,v$0],lower$0=lower$1,t$0=r;continue} + var _rc_=_rb_} else - var _rg_=_re_} + var _rc_=_ra_} else - var _rg_=_rd_} + var _rc_=_q$_} else - var _rg_=_rb_} + var _rc_=_q9_} else - var _rg_=_ra_; - return _rg_}}, + var _rc_=_q8_; + return _rc_}}, invariants= function(t,compare_elt){return loop(0,0,compare_elt,t)}, is_empty$5= @@ -48049,7 +50427,7 @@ else if(0 === r[0])var sr=1;else var s=r[5],sr=s; return [1,l,v,r,h,(sl + sr | 0) + 1 | 0]}, - of_increasing_iterator_unchecked= + of_increasing_iterator_uncheck= function(len,f) {function loop(n,f,i) {if(3 < n >>> 0) @@ -48075,67 +50453,59 @@ return loop(len,f,0)}, of_sorted_array_unchecked= function(array,compare_elt) - {var array_length=array.length - 1; - if(caml_call2(symbol$78,array_length,2)) - var switch$0=0; - else - {var _q__=caml_check_bound(array,1)[2]; + {var array_length=array.length - 1,switch$0=0; + if(! caml_call2(symbol$78,array_length,2)) + {var _q6_=caml_check_bound(array,1)[2]; if - (caml_call2 + (! + caml_call2 (symbol$78, - caml_call2(compare_elt,caml_check_bound(array,0)[1],_q__), + caml_call2(compare_elt,caml_check_bound(array,0)[1],_q6_), 0)) - var switch$0=0; - else - var - next= - function(i) - {var _q$_=(array_length - 1 | 0) - i | 0; - return caml_check_bound(array,_q$_)[1 + _q$_]}, - switch$0=1} + {var + next= + function(i) + {var _q7_=(array_length - 1 | 0) - i | 0; + return caml_check_bound(array,_q7_)[1 + _q7_]}; + switch$0 = 1}} if(! switch$0) var next= function(i){return caml_check_bound(array,i)[1 + i]}; - return of_increasing_iterator_unchecked(array_length,next)}, + return of_increasing_iterator_uncheck(array_length,next)}, of_sorted_array= function(array,compare_elt) {var len=array.length - 1; - if(1 !== len) - if(0 !== len) - return with_return - (function(r) - {var - _q4_=caml_check_bound(array,1)[2], - i=caml_call2(compare_elt,caml_check_bound(array,0)[1],_q4_), - increasing= - 0 === i - ?caml_call1 - (r,error_string(cst_of_sorted_array_duplicated_elements)) - :caml_call2(symbol$78,i,0), - _q6_=array.length - 1 - 2 | 0, - _q5_=1; - if(! (_q6_ < 1)) - {var i$0=_q5_; - for(;;) - {var - _q7_=i$0 + 1 | 0, - _q8_=caml_check_bound(array,_q7_)[1 + _q7_], - i$1= - caml_call2 - (compare_elt,caml_check_bound(array,i$0)[1 + i$0],_q8_); - if(0 === i$1) - caml_call1 - (r,error_string(cst_of_sorted_array_duplicated_elements$0)); - else - if(caml_call2(symbol$78,i$1,0) !== increasing) - caml_call1 - (r, - error_string(cst_of_sorted_array_elements_are_not_ordered)); - var _q9_=i$0 + 1 | 0; - if(_q6_ !== i$0){var i$0=_q9_;continue} - break}} - return [0,of_sorted_array_unchecked(array,compare_elt)]}); + if(1 !== len && 0 !== len) + return with_return + (function(r) + {var + _q0_=caml_check_bound(array,1)[2], + i=caml_call2(compare_elt,caml_check_bound(array,0)[1],_q0_), + increasing= + 0 === i + ?caml_call1(r,error_string(cst_of_sorted_array_duplicated)) + :caml_call2(symbol$78,i,0), + _q2_=array.length - 1 - 2 | 0, + _q1_=1; + if(! (_q2_ < 1)) + {var i$0=_q1_; + for(;;) + {var + _q3_=i$0 + 1 | 0, + _q4_=caml_check_bound(array,_q3_)[1 + _q3_], + i$1= + caml_call2 + (compare_elt,caml_check_bound(array,i$0)[1 + i$0],_q4_); + if(0 === i$1) + caml_call1(r,error_string(cst_of_sorted_array_duplicated$0)); + else + if(caml_call2(symbol$78,i$1,0) !== increasing) + caml_call1(r,error_string(cst_of_sorted_array_elements_a)); + var _q5_=i$0 + 1 | 0; + if(_q2_ !== i$0){var i$0=_q5_;continue} + break}} + return [0,of_sorted_array_unchecked(array,compare_elt)]}); return [0,of_sorted_array_unchecked(array,compare_elt)]}, bal= function(l,v,r) @@ -48152,8 +50522,8 @@ throw [0,Assert_failure,_dG_]; else {if(0 === l[0])throw [0,Assert_failure,_dH_]; - var lr=l[3],lv=l[2],ll=l[1],_qY_=height(lr); - if(caml_call2(symbol$83,height(ll),_qY_)) + var lr=l[3],lv=l[2],ll=l[1],_qU_=height(lr); + if(caml_call2(symbol$83,height(ll),_qU_)) return create$11(ll,lv,create$11(lr,v,r)); if(typeof lr === "number") throw [0,Assert_failure,_dI_]; @@ -48161,19 +50531,19 @@ {if(0 === lr[0]) {var lrv=lr[1]; if(is_empty$5(ll)) - {var _qZ_=create$11(0,v,r); - return create$11(create$11(ll,lv,0),lrv,_qZ_)} + {var _qV_=create$11(0,v,r); + return create$11(create$11(ll,lv,0),lrv,_qV_)} throw [0,Assert_failure,_dJ_]} - var lrr=lr[3],lrv$0=lr[2],lrl=lr[1],_q0_=create$11(lrr,v,r); - return create$11(create$11(ll,lv,lrl),lrv$0,_q0_)}} + var lrr=lr[3],lrv$0=lr[2],lrl=lr[1],_qW_=create$11(lrr,v,r); + return create$11(create$11(ll,lv,lrl),lrv$0,_qW_)}} if(caml_call2(symbol$82,hr,hl + 2 | 0)) if(typeof r === "number") throw [0,Assert_failure,_dK_]; else {if(0 === r[0]) {var rv=r[1];return create$11(create$11(l,v,0),rv,0)} - var rr=r[3],rv$0=r[2],rl=r[1],_q1_=height(rl); - if(caml_call2(symbol$83,height(rr),_q1_)) + var rr=r[3],rv$0=r[2],rl=r[1],_qX_=height(rl); + if(caml_call2(symbol$83,height(rr),_qX_)) return create$11(create$11(l,v,rl),rv$0,rr); if(typeof rl === "number") throw [0,Assert_failure,_dL_]; @@ -48181,15 +50551,15 @@ {if(0 === rl[0]) {var rlv=rl[1]; if(is_empty$5(rr)) - {var _q2_=create$11(0,rv$0,rr); - return create$11(create$11(l,v,0),rlv,_q2_)} + {var _qY_=create$11(0,rv$0,rr); + return create$11(create$11(l,v,0),rlv,_qY_)} throw [0,Assert_failure,_dM_]} var rlr=rl[3], rlv$0=rl[2], rll=rl[1], - _q3_=create$11(rlr,rv$0,rr); - return create$11(create$11(l,v,rll),rlv$0,_q3_)}} + _qZ_=create$11(rlr,rv$0,rr); + return create$11(create$11(l,v,rll),rlv$0,_qZ_)}} var h=caml_call2(symbol$83,hl,hr)?hl + 1 | 0:hr + 1 | 0; if(typeof l === "number") var sl=0; @@ -48225,26 +50595,26 @@ ?bal(aux(l),v$0,r) :bal(l,v$0,aux(r))}} try - {var _qW_=aux(t);return _qW_} - catch(_qX_) - {_qX_ = caml_wrap_exception(_qX_); - if(_qX_ === Same)return t; - throw _qX_}}, + {var _qS_=aux(t);return _qS_} + catch(_qT_) + {_qT_ = caml_wrap_exception(_qT_); + if(_qT_ === Same)return t; + throw _qT_}}, join$6= function(l,v,r,compare_elt) {if(typeof l === "number") return add$1(r,v,compare_elt); else if(1 === l[0]) - {var _qS_=l[4],_qT_=l[3],_qU_=l[2],_qV_=l[1]; + {var _qO_=l[4],_qP_=l[3],_qQ_=l[2],_qR_=l[1]; if(typeof r !== "number") {if(0 === r[0]) {var rv=r[1]; return add$1(add$1(l,v,compare_elt),rv,compare_elt)} var rh=r[4],rr=r[3],rv$0=r[2],rl=r[1]; - return caml_call2(symbol$82,_qS_,rh + 2 | 0) - ?bal(_qV_,_qU_,join$6(_qT_,v,r,compare_elt)) - :caml_call2(symbol$82,rh,_qS_ + 2 | 0) + return caml_call2(symbol$82,_qO_,rh + 2 | 0) + ?bal(_qR_,_qQ_,join$6(_qP_,v,r,compare_elt)) + :caml_call2(symbol$82,rh,_qO_ + 2 | 0) ?bal(join$6(l,v,rl,compare_elt),rv$0,rr) :create$11(l,v,r)}} if(typeof r === "number")return add$1(l,v,compare_elt); @@ -48260,14 +50630,12 @@ if(0 === param$0[0]) var v=param$0[1]; else - {var _qR_=param$0[1]; - if(typeof _qR_ !== "number"){var param$0=_qR_;continue} + {var _qN_=param$0[1]; + if(typeof _qN_ !== "number"){var param$0=_qN_;continue} var v=param$0[2]} return [0,v]}}, Set_min_elt_exn_of_empty_set= - [248, - cst_Base_Set_Tree0_Set_min_elt_exn_of_empty_set, - caml_fresh_oo_id(0)], + [248,cst_Base_Set_Tree0_Set_min_elt,caml_fresh_oo_id(0)], _dN_= function(param) {if(param === Set_min_elt_exn_of_empty_set)return _dO_; @@ -48276,9 +50644,7 @@ (Sexplib0_Sexp_conv[51][2],0,Set_min_elt_exn_of_empty_set,_dN_); var Set_max_elt_exn_of_empty_set= - [248, - cst_Base_Set_Tree0_Set_max_elt_exn_of_empty_set, - caml_fresh_oo_id(0)], + [248,cst_Base_Set_Tree0_Set_max_elt,caml_fresh_oo_id(0)], _dQ_= function(param) {if(param === Set_max_elt_exn_of_empty_set)return _dR_; @@ -48327,9 +50693,9 @@ if(0 === param$0[0]) var v=param$0[1]; else - {var _qP_=param$0[3],_qQ_=param$0[2]; - if(typeof _qP_ !== "number"){var param$0=_qP_;continue} - var v=_qQ_} + {var _qL_=param$0[3],_qM_=param$0[2]; + if(typeof _qL_ !== "number"){var param$0=_qL_;continue} + var v=_qM_} return [0,v]}}, max_elt_exn= function(t) @@ -48342,24 +50708,24 @@ return caml_call1(invalid_arg$0,cst_Set_remove_min_elt); else {if(0 === param[0])return 0; - var _qO_=param[1]; - if(typeof _qO_ === "number"){var r=param[3];return r} + var _qK_=param[1]; + if(typeof _qK_ === "number"){var r=param[3];return r} var r$0=param[3],v=param[2]; - return bal(remove_min_elt(_qO_),v,r$0)}}, + return bal(remove_min_elt(_qK_),v,r$0)}}, merge$2= function(t1,t2) {if(typeof t1 === "number")return t2; if(typeof t2 === "number")return t1; - var _qN_=remove_min_elt(t2); - return bal(t1,min_elt_exn(t2),_qN_)}, + var _qJ_=remove_min_elt(t2); + return bal(t1,min_elt_exn(t2),_qJ_)}, concat$2= function(t1,t2,compare_elt) {if(typeof t1 === "number") var t=t2; else {if(typeof t2 !== "number") - {var _qM_=remove_min_elt(t2); - return join$6(t1,min_elt_exn(t2),_qM_,compare_elt)} + {var _qI_=remove_min_elt(t2); + return join$6(t1,min_elt_exn(t2),_qI_,compare_elt)} var t=t1} return t}, split$1= @@ -48409,8 +50775,8 @@ v$0=t$0[2], l=t$0[1], c$0=caml_call2(compare_elt,x,v$0), - _qL_=caml_call2(symbol$81,c$0,0); - if(_qL_)return _qL_; + _qH_=caml_call2(symbol$81,c$0,0); + if(_qH_)return _qH_; var t$1=caml_call2(symbol$78,c$0,0)?l:r,t$0=t$1; continue}}, remove$0= @@ -48431,11 +50797,11 @@ ?bal(aux(l),v$0,r) :bal(l,v$0,aux(r))}} try - {var _qJ_=aux(t);return _qJ_} - catch(_qK_) - {_qK_ = caml_wrap_exception(_qK_); - if(_qK_ === Same)return t; - throw _qK_}}, + {var _qF_=aux(t);return _qF_} + catch(_qG_) + {_qG_ = caml_wrap_exception(_qG_); + if(_qG_ === Same)return t; + throw _qG_}}, remove_index= function(t,i,param) {function aux(t,i) @@ -48456,46 +50822,43 @@ ?bal(aux(l,i),v,r) :bal(l,v,aux(r,(i - l_size | 0) - 1 | 0))}} try - {var _qH_=aux(t,i);return _qH_} - catch(_qI_) - {_qI_ = caml_wrap_exception(_qI_); - if(_qI_ === Same)return t; - throw _qI_}}, + {var _qD_=aux(t,i);return _qD_} + catch(_qE_) + {_qE_ = caml_wrap_exception(_qE_); + if(_qE_ === Same)return t; + throw _qE_}}, union= function(s1,s2,compare_elt) {function union(s1,s2) {var s1$0=s1,s2$0=s2; for(;;) - {if(typeof s1$0 === "number") - var t=s2$0,switch$0=1; + {var switch$0=0; + if(typeof s1$0 === "number") + {var t=s2$0;switch$0 = 1} else if(1 === s1$0[0]) - {var _qB_=s1$0[4],_qD_=s1$0[2],_qC_=s1$0[3],_qE_=s1$0[1]; - if(typeof s2$0 === "number") - var switch$0=0; - else + {var _qx_=s1$0[4],_qz_=s1$0[2],_qy_=s1$0[3],_qA_=s1$0[1]; + if(typeof s2$0 !== "number") {if(0 === s2$0[0]) {var v2=s2$0[1],s2$1=[1,0,v2,0,1,1],s2$0=s2$1;continue} var h2=s2$0[4],r2=s2$0[3],v2$0=s2$0[2],l2=s2$0[1]; - if(caml_call2(symbol$83,_qB_,h2)) + if(caml_call2(symbol$83,_qx_,h2)) {if(caml_call2(symbol$81,h2,1)) return add$1(s1$0,v2$0,compare_elt); var - match=split$1(s2$0,_qD_,compare_elt), + match=split$1(s2$0,_qz_,compare_elt), r2$0=match[3], l2$0=match[1], - _qF_=union(_qC_,r2$0); - return join$6(union(_qE_,l2$0),_qD_,_qF_,compare_elt)} - if(caml_call2(symbol$81,_qB_,1)) - return add$1(s2$0,_qD_,compare_elt); + _qB_=union(_qy_,r2$0); + return join$6(union(_qA_,l2$0),_qz_,_qB_,compare_elt)} + if(caml_call2(symbol$81,_qx_,1)) + return add$1(s2$0,_qz_,compare_elt); var match$0=split$1(s1$0,v2$0,compare_elt), r1=match$0[3], l1=match$0[1], - _qG_=union(r1,r2); - return join$6(union(l1,l2),v2$0,_qG_,compare_elt)}} - else - var switch$0=0; + _qC_=union(r1,r2); + return join$6(union(l1,l2),v2$0,_qC_,compare_elt)}} if(! switch$0) {if(typeof s2$0 !== "number") {var v1=s1$0[1],s1$1=[1,0,v1,0,1,1],s1$0=s1$1;continue} @@ -48513,30 +50876,26 @@ inter= function(s1,s2,compare_elt) {function inter(s1,match) - {if(typeof s1 !== "number") - if(typeof match !== "number") - {if(typeof s1 === "number") - var switch$0=0; - else - if(0 === s1[0]) - var switch$0=0; - else - {if(typeof match !== "number" && 0 !== match[0]) - {var - r1=s1[3], - v1=s1[2], - l1=s1[1], - _qw_=split$1(match,v1,compare_elt), - _qx_=_qw_[2], - _qy_=_qw_[1]; - if(_qx_) - {var r2=_qw_[3],v1$0=_qx_[1],_qz_=inter(r1,r2); - return join$6(inter(l1,_qy_),v1$0,_qz_,compare_elt)} - var r2$0=_qw_[3],_qA_=inter(r1,r2$0); - return concat$2(inter(l1,_qy_),_qA_,compare_elt)} - var elt=match[1],singleton=match,other_set=s1,switch$0=1} - if(! switch$0)var elt=s1[1],singleton=s1,other_set=match; - return mem$5(other_set,elt,compare_elt)?singleton:0} + {if(typeof s1 !== "number" && typeof match !== "number") + {var switch$0=0; + if(typeof s1 !== "number" && 0 !== s1[0]) + {if(typeof match !== "number" && 0 !== match[0]) + {var + r1=s1[3], + v1=s1[2], + l1=s1[1], + _qs_=split$1(match,v1,compare_elt), + _qt_=_qs_[2], + _qu_=_qs_[1]; + if(_qt_) + {var r2=_qs_[3],v1$0=_qt_[1],_qv_=inter(r1,r2); + return join$6(inter(l1,_qu_),v1$0,_qv_,compare_elt)} + var r2$0=_qs_[3],_qw_=inter(r1,r2$0); + return concat$2(inter(l1,_qu_),_qw_,compare_elt)} + var elt=match[1],singleton=match,other_set=s1; + switch$0 = 1} + if(! switch$0)var elt=s1[1],singleton=s1,other_set=match; + return mem$5(other_set,elt,compare_elt)?singleton:0} return 0} return inter(s1,s2)}, diff= @@ -48551,13 +50910,13 @@ r1=s1$0[3], v1$0=s1$0[2], l1=s1$0[1], - _qs_=split$1(match,v1$0,compare_elt), - _qt_=_qs_[1]; - if(_qs_[2]) - {var r2=_qs_[3],_qu_=diff(r1,r2); - return concat$2(diff(l1,_qt_),_qu_,compare_elt)} - var r2$0=_qs_[3],_qv_=diff(r1,r2$0); - return join$6(diff(l1,_qt_),v1$0,_qv_,compare_elt)} + _qo_=split$1(match,v1$0,compare_elt), + _qp_=_qo_[1]; + if(_qo_[2]) + {var r2=_qo_[3],_qq_=diff(r1,r2); + return concat$2(diff(l1,_qp_),_qq_,compare_elt)} + var r2$0=_qo_[3],_qr_=diff(r1,r2$0); + return join$6(diff(l1,_qp_),v1$0,_qr_,compare_elt)} var v1=s1$0[1],s1$1=[1,0,v1,0,1,1],s1$0=s1$1; continue}} return diff(s1,s2)}, @@ -48607,34 +50966,34 @@ symmetric_diff= function(t1,t2,compare_elt) {function step(state) - {var _ql_=state[1]; - if(_ql_) - {var _qm_=state[2],_qn_=_ql_[3],_qo_=_ql_[2],_qp_=_ql_[1]; - if(_qm_) + {var _qh_=state[1]; + if(_qh_) + {var _qi_=state[2],_qj_=_qh_[3],_qk_=_qh_[2],_ql_=_qh_[1]; + if(_qi_) {var - enum2=_qm_[3], - tree2=_qm_[2], - a2=_qm_[1], - compare_result=caml_call2(compare_elt,_qp_,a2); + enum2=_qi_[3], + tree2=_qi_[2], + a2=_qi_[1], + compare_result=caml_call2(compare_elt,_ql_,a2); if(caml_call2(symbol$81,compare_result,0)) - {if(_qo_ === tree2) - var next_state=[0,_qn_,enum2]; + {if(_qk_ === tree2) + var next_state=[0,_qj_,enum2]; else var - _qq_=cons$0(tree2,enum2), - next_state=[0,cons$0(_qo_,_qn_),_qq_]; + _qm_=cons$0(tree2,enum2), + next_state=[0,cons$0(_qk_,_qj_),_qm_]; return [0,next_state]} return caml_call2(symbol$78,compare_result,0) - ?[1,[0,_qp_],[0,cons$0(_qo_,_qn_),_qm_]] - :[1,[1,a2],[0,_ql_,cons$0(tree2,enum2)]]} - return [1,[0,_qp_],[0,cons$0(_qo_,_qn_),0]]} - var _qr_=state[2]; - if(_qr_) - {var enum$0=_qr_[3],tree=_qr_[2],elt=_qr_[1]; + ?[1,[0,_ql_],[0,cons$0(_qk_,_qj_),_qi_]] + :[1,[1,a2],[0,_qh_,cons$0(tree2,enum2)]]} + return [1,[0,_ql_],[0,cons$0(_qk_,_qj_),0]]} + var _qn_=state[2]; + if(_qn_) + {var enum$0=_qn_[3],tree=_qn_[2],elt=_qn_[1]; return [1,[1,elt],[0,0,cons$0(tree,enum$0)]]} return 0} - var _qk_=of_set(t2); - return [0,[0,of_set(t1),_qk_],step]}, + var _qg_=of_set(t2); + return [0,[0,of_set(t1),_qg_],step]}, to_sequence$0= function (comparator,opt,greater_or_equal_to,less_or_equal_to,t$3) @@ -48656,8 +51015,8 @@ fold$1 (less_or_equal_to, t$3, - function(_qi_,_qj_) - {return inclusive_bound(get_key,_qi_,_qj_)}), + function(_qe_,_qf_) + {return inclusive_bound(get_key,_qe_,_qf_)}), next= function(enum$0) {if(enum$0) @@ -48669,14 +51028,14 @@ key=greater_or_equal_to[1], t=t$4, e=0, - _qe_=comparator[1]; + _qa_=comparator[1]; for(;;) {if(typeof t === "number") var init=e; else {if(0 === t[0]){var v=t[1],t$0=[1,0,v,0,1,1],t=t$0;continue} var r=t[3],v$0=t[2],l=t[1]; - if(caml_call2(symbol$78,caml_call2(_qe_,v$0,key),0)) + if(caml_call2(symbol$78,caml_call2(_qa_,v$0,key),0)) {var t=r;continue} var e$0=[0,v$0,r,e],t=l,e=e$0; continue} @@ -48689,8 +51048,8 @@ fold$1 (greater_or_equal_to, t$3, - function(_qg_,_qh_) - {return inclusive_bound(get_data,_qg_,_qh_)}); + function(_qc_,_qd_) + {return inclusive_bound(get_data,_qc_,_qd_)}); function next$0(enum$0) {if(enum$0) {var e=enum$0[3],t=enum$0[2],k=enum$0[1]; @@ -48701,7 +51060,7 @@ key$0=less_or_equal_to[1], t$1=t$5, e$1=0, - _qf_=comparator[1]; + _qb_=comparator[1]; for(;;) {if(typeof t$1 === "number") var init$0=e$1; @@ -48709,7 +51068,7 @@ {if(0 === t$1[0]) {var v$1=t$1[1],t$2=[1,0,v$1,0,1,1],t$1=t$2;continue} var r$0=t$1[3],v$2=t$1[2],l$0=t$1[1]; - if(caml_call2(symbol$82,caml_call2(_qf_,v$2,key$0),0)) + if(caml_call2(symbol$82,caml_call2(_qb_,v$2,key$0),0)) {var t$1=l$0;continue} var e$2=[0,v$2,l$0,e$1],t$1=r$0,e$1=e$2; continue} @@ -48804,13 +51163,13 @@ (comparator,opt,greater_or_equal_to,less_or_equal_to,t$0,t) {if(opt)var sth=opt[1],order=sth;else var order=608542111; if(608542111 <= order) - var _p$_=comparator[1]; + var _p7_=comparator[1]; else var - _qb_=comparator[1], - _p$_=function(_qc_,_qd_){return flip(_qb_,_qc_,_qd_)}; + _p9_=comparator[1], + _p7_=function(_p__,_p$_){return flip(_p9_,_p__,_p$_)}; var - _qa_= + _p8_= to_sequence$0 (comparator, [0,order], @@ -48824,8 +51183,8 @@ greater_or_equal_to, less_or_equal_to, t$0), - _qa_, - _p$_)}, + _p8_, + _p7_)}, compare$51= function(compare_elt,s1,s2) {var e2$2=of_set(s2),e1$2=of_set(s1),e1=e1$2,e2=e2$2; @@ -48898,31 +51257,30 @@ return 1; else if(1 === s1$0[0]) - {var _p5_=s1$0[3],_p6_=s1$0[2],_p7_=s1$0[1]; + {var _p1_=s1$0[3],_p2_=s1$0[2],_p3_=s1$0[1]; if(typeof s2$0 !== "number") {if(0 === s2$0[0]) {var v2=s2$0[1]; - if(typeof _p7_ === "number") - if(typeof _p5_ === "number") - return caml_call2 - (symbol$81,caml_call2(compare_elt,_p6_,v2),0); + if(typeof _p3_ === "number" && typeof _p1_ === "number") + return caml_call2 + (symbol$81,caml_call2(compare_elt,_p2_,v2),0); return 0} var r2=s2$0[3], v2$0=s2$0[2], l2=s2$0[1], - c=caml_call2(compare_elt,_p6_,v2$0); + c=caml_call2(compare_elt,_p2_,v2$0); if(caml_call2(symbol$81,c,0)) - {var _p8_=is_subset(_p7_,l2); - if(_p8_){var s1$0=_p5_,s2$0=r2;continue} - return _p8_} + {var _p4_=is_subset(_p3_,l2); + if(_p4_){var s1$0=_p1_,s2$0=r2;continue} + return _p4_} if(caml_call2(symbol$78,c,0)) - {var _p9_=is_subset([1,_p7_,_p6_,0,0,0],l2); - if(_p9_){var s1$0=_p5_;continue} - return _p9_} - var _p__=is_subset([1,0,_p6_,_p5_,0,0],r2); - if(_p__){var s1$0=_p7_;continue} - return _p__}} + {var _p5_=is_subset([1,_p3_,_p2_,0,0,0],l2); + if(_p5_){var s1$0=_p1_;continue} + return _p5_} + var _p6_=is_subset([1,0,_p2_,_p1_,0,0],r2); + if(_p6_){var s1$0=_p3_;continue} + return _p6_}} if(typeof s2$0 === "number")return 0; var v1=s1$0[1]; return mem$5(s2$0,v1,compare_elt)}} @@ -48987,14 +51345,14 @@ return 1; else {if(0 === t$0[0]){var v=t$0[1];return caml_call1(p,v)} - var r=t$0[3],v$0=t$0[2],l=t$0[1],_p2_=caml_call1(p,v$0); - if(_p2_) - {var _p3_=for_all$5(l,p); - if(_p3_){var t$0=r;continue} - var _p4_=_p3_} + var r=t$0[3],v$0=t$0[2],l=t$0[1],_pY_=caml_call1(p,v$0); + if(_pY_) + {var _pZ_=for_all$5(l,p); + if(_pZ_){var t$0=r;continue} + var _p0_=_pZ_} else - var _p4_=_p2_; - return _p4_}}, + var _p0_=_pY_; + return _p0_}}, exists$6= function(t,p) {var t$0=t; @@ -49003,14 +51361,14 @@ return 0; else {if(0 === t$0[0]){var v=t$0[1];return caml_call1(p,v)} - var r=t$0[3],v$0=t$0[2],l=t$0[1],_pZ_=caml_call1(p,v$0); - if(_pZ_) - var _p0_=_pZ_; + var r=t$0[3],v$0=t$0[2],l=t$0[1],_pV_=caml_call1(p,v$0); + if(_pV_) + var _pW_=_pV_; else - {var _p1_=exists$6(l,p); - if(! _p1_){var t$0=r;continue} - var _p0_=_p1_} - return _p0_}}, + {var _pX_=exists$6(l,p); + if(! _pX_){var t$0=r;continue} + var _pW_=_pX_} + return _pW_}}, filter$4= function(s,p,compare_elt) {function filt(accu,param) @@ -49026,8 +51384,8 @@ r=param$0[3], v$0=param$0[2], l=param$0[1], - _pY_=caml_call1(p,v$0)?add$1(accu$0,v$0,compare_elt):accu$0, - accu$1=filt(_pY_,l), + _pU_=caml_call1(p,v$0)?add$1(accu$0,v$0,compare_elt):accu$0, + accu$1=filt(_pU_,l), accu$0=accu$1, param$0=r; continue}} @@ -49051,10 +51409,10 @@ l=param$0[1], match$0=caml_call1(p,v$1); if(match$0) - var v$2=match$0[1],_pX_=add$1(accu$0,v$2,compare_elt); + var v$2=match$0[1],_pT_=add$1(accu$0,v$2,compare_elt); else - var _pX_=accu$0; - var accu$1=filt(_pX_,l),accu$0=accu$1,param$0=r; + var _pT_=accu$0; + var accu$1=filt(_pT_,l),accu$0=accu$1,param$0=r; continue}} return filt(0,s)}, partition_tf$1= @@ -49062,24 +51420,24 @@ {function part(accu,param) {var accu$0=accu,param$0=param; for(;;) - {var _pU_=accu$0[2],_pV_=accu$0[1]; + {var _pQ_=accu$0[2],_pR_=accu$0[1]; if(typeof param$0 === "number") return accu$0; else {if(0 === param$0[0]) {var v=param$0[1]; return caml_call1(p,v) - ?[0,add$1(_pV_,v,compare_elt),_pU_] - :[0,_pV_,add$1(_pU_,v,compare_elt)]} + ?[0,add$1(_pR_,v,compare_elt),_pQ_] + :[0,_pR_,add$1(_pQ_,v,compare_elt)]} var r=param$0[3], v$0=param$0[2], l=param$0[1], - _pW_= + _pS_= caml_call1(p,v$0) - ?[0,add$1(_pV_,v$0,compare_elt),_pU_] - :[0,_pV_,add$1(_pU_,v$0,compare_elt)], - accu$1=part(_pW_,l), + ?[0,add$1(_pR_,v$0,compare_elt),_pQ_] + :[0,_pR_,add$1(_pQ_,v$0,compare_elt)], + accu$1=part(_pS_,l), accu$0=accu$1, param$0=r; continue}}} @@ -49149,13 +51507,13 @@ return 0; else {if(0 === param$0[0]) - {var v=param$0[1],_pS_=pos_ref[1]; - caml_check_bound(res,_pS_)[1 + _pS_] = v; + {var v=param$0[1],_pO_=pos_ref[1]; + caml_check_bound(res,_pO_)[1 + _pO_] = v; return incr(pos_ref)} var r=param$0[3],v$0=param$0[2],l=param$0[1]; loop(l); - var _pT_=pos_ref[1]; - caml_check_bound(res,_pT_)[1 + _pT_] = v$0; + var _pP_=pos_ref[1]; + caml_check_bound(res,_pP_)[1 + _pP_] = v$0; incr(pos_ref); var param$0=r; continue}}; @@ -49181,8 +51539,8 @@ (set$0, function(x) {return function(elt) - {var _pR_=x === elt?1:0; - return _pR_?_pR_:caml_call2(equiv,x,elt)}} + {var _pN_=x === elt?1:0; + return _pN_?_pN_:caml_call2(equiv,x,elt)}} (x), compare_elt), set$1=match[2], @@ -49224,9 +51582,7 @@ function(t,f) {var match=find$6(t,f); if(match){var e=match[1];return e} - return caml_call1 - (failwith$0, - cst_Set_find_exn_failed_to_find_a_matching_element)}, + return caml_call1(failwith$0,cst_Set_find_exn_failed_to_fin)}, nth$1= function(t,i) {var t$0=t,i$0=i; @@ -49268,8 +51624,8 @@ lst=sexp[1], elt_lst=map$6(lst,a_of_sexp), set=of_list$5(elt_lst,compare_elt), - _pQ_=caml_call1(length,lst); - if(caml_call2(symbol$81,length$11(set),_pQ_))return set; + _pM_=caml_call1(length,lst); + if(caml_call2(symbol$81,length$11(set),_pM_))return set; var set$0=[0,already_seen]; iter2_exn (lst, @@ -49277,9 +51633,7 @@ function(el_sexp,el) {return mem$5(set$0[1],el,compare_elt) ?caml_call2 - (of_sexp_error, - cst_Set_t_of_sexp_duplicate_element_in_set, - el_sexp) + (of_sexp_error,cst_Set_t_of_sexp_duplicate_el,el_sexp) :(set$0[1] = add$1(set$0[1],el,compare_elt),0)}); throw [0,Assert_failure,_dW_]}, sexp_of_t$47= @@ -49298,12 +51652,12 @@ var invalid_elements_sexp= sexp_of_t$47(sexp_of_elt,invalid_elements), - _pP_= + _pL_= caml_call2(symbol$77,cst_is_not_a_subset_of,superset[2]); return error_s (caml_call2 (message, - caml_call2(symbol$77,subset[2],_pP_), + caml_call2(symbol$77,subset[2],_pL_), [0,[0,cst_invalid_elements,invalid_elements_sexp],0]))}, like= function(param,tree) @@ -49312,7 +51666,7 @@ comparator$11=function(t){return t[1]}, invariants$0= function(t) - {var _pO_=compare_elt(t);return invariants(t[2],_pO_)}, + {var _pK_=compare_elt(t);return invariants(t[2],_pK_)}, length$12=function(t){return length$11(t[2])}, is_empty$6=function(t){return is_empty$5(t[2])}, elements$0=function(t){return elements(t[2])}, @@ -49327,8 +51681,8 @@ fold$8=function(t,init,f){return fold$7(t[2],init,f)}, fold_until$6= function(t,init,f) - {var _pM_=t[2]; - return function(_pN_){return fold_until$5(_pM_,init,f,_pN_)}}, + {var _pI_=t[2]; + return function(_pJ_){return fold_until$5(_pI_,init,f,_pJ_)}}, fold_right$2= function(t,init,f){return fold_right$1(t[2],init,f)}, fold_result$5= @@ -49336,8 +51690,8 @@ iter$11=function(t,f){return iter$10(t[2],f)}, iter2$1= function(a,b,f) - {var _pL_=compare_elt(a); - return caml_call1(iter2$0(a[2],b[2],_pL_),f)}, + {var _pH_=compare_elt(a); + return caml_call1(iter2$0(a[2],b[2],_pH_),f)}, exists$7=function(t,f){return exists$6(t[2],f)}, for_all$6=function(t,f){return for_all$5(t[2],f)}, count$6=function(t,f){return count$5(t[2],f)}, @@ -49347,87 +51701,87 @@ find_map$6=function(t,f){return find_map$5(t[2],f)}, mem$6= function(t,a) - {var _pK_=compare_elt(t);return mem$5(t[2],a,_pK_)}, + {var _pG_=compare_elt(t);return mem$5(t[2],a,_pG_)}, filter$5= function(t,f) - {var _pJ_=compare_elt(t); - return like(t,filter$4(t[2],f,_pJ_))}, + {var _pF_=compare_elt(t); + return like(t,filter$4(t[2],f,_pF_))}, add$2= function(t,a) - {var _pI_=compare_elt(t);return like(t,add$1(t[2],a,_pI_))}, + {var _pE_=compare_elt(t);return like(t,add$1(t[2],a,_pE_))}, remove$1= function(t,a) - {var _pH_=compare_elt(t); - return like(t,remove$0(t[2],a,_pH_))}, + {var _pD_=compare_elt(t); + return like(t,remove$0(t[2],a,_pD_))}, union$0= function(t1,t2) - {var _pG_=compare_elt(t1); - return like(t1,union(t1[2],t2[2],_pG_))}, + {var _pC_=compare_elt(t1); + return like(t1,union(t1[2],t2[2],_pC_))}, inter$0= function(t1,t2) - {var _pF_=compare_elt(t1); - return like(t1,inter(t1[2],t2[2],_pF_))}, + {var _pB_=compare_elt(t1); + return like(t1,inter(t1[2],t2[2],_pB_))}, diff$0= function(t1,t2) - {var _pE_=compare_elt(t1); - return like(t1,diff(t1[2],t2[2],_pE_))}, + {var _pA_=compare_elt(t1); + return like(t1,diff(t1[2],t2[2],_pA_))}, symmetric_diff$0= function(t1,t2) - {var _pD_=compare_elt(t1); - return symmetric_diff(t1[2],t2[2],_pD_)}, + {var _pz_=compare_elt(t1); + return symmetric_diff(t1[2],t2[2],_pz_)}, compare_direct= function(t1,t2) - {var _pB_=t2[2],_pC_=t1[2]; - return compare$51(compare_elt(t1),_pC_,_pB_)}, + {var _px_=t2[2],_py_=t1[2]; + return compare$51(compare_elt(t1),_py_,_px_)}, equal$33= function(t1,t2) - {var _pA_=compare_elt(t1);return equal$32(t1[2],t2[2],_pA_)}, + {var _pw_=compare_elt(t1);return equal$32(t1[2],t2[2],_pw_)}, is_subset$1= function(t,of) - {var _pz_=compare_elt(t);return is_subset(t[2],of[2],_pz_)}, + {var _pv_=compare_elt(t);return is_subset(t[2],of[2],_pv_)}, to_named_tree= function(param) {var name=param[2],set=param[1];return [0,set[2],name]}, is_subset$2= function(subset,superset) {var - _pw_=compare_elt(subset[1]), - _px_=subset[1][1][2], - _py_=to_named_tree(superset); - return is_subset$0(to_named_tree(subset),_py_,_px_,_pw_)}, + _ps_=compare_elt(subset[1]), + _pt_=subset[1][1][2], + _pu_=to_named_tree(superset); + return is_subset$0(to_named_tree(subset),_pu_,_pt_,_ps_)}, equal$34= function(t1,t2) - {var _pv_=[0,is_subset$2(t2,t1),0]; - return combine_errors_unit$0([0,is_subset$2(t1,t2),_pv_])}, + {var _pr_=[0,is_subset$2(t2,t1),0]; + return combine_errors_unit$0([0,is_subset$2(t1,t2),_pr_])}, partition_tf$2= function(t,f) {var - _pt_=compare_elt(t), - match=partition_tf$1(t[2],f,_pt_), + _pp_=compare_elt(t), + match=partition_tf$1(t[2],f,_pp_), tree_f=match[2], tree_t=match[1], - _pu_=like(t,tree_f); - return [0,like(t,tree_t),_pu_]}, + _pq_=like(t,tree_f); + return [0,like(t,tree_t),_pq_]}, split$2= function(t,a) {var - _pr_=compare_elt(t), - match=split$1(t[2],a,_pr_), + _pn_=compare_elt(t), + match=split$1(t[2],a,_pn_), tree2=match[3], b=match[2], tree1=match[1], - _ps_=like(t,tree2); - return [0,like(t,tree1),b,_ps_]}, + _po_=like(t,tree2); + return [0,like(t,tree1),b,_po_]}, group_by$0= function(t,equiv) - {function _po_(_pq_){return like(t,_pq_)} - var _pp_=compare_elt(t); - return map$6(group_by(t[2],equiv,_pp_),_po_)}, + {function _pk_(_pm_){return like(t,_pm_)} + var _pl_=compare_elt(t); + return map$6(group_by(t[2],equiv,_pl_),_pk_)}, nth$2=function(t,i){return nth$1(t[2],i)}, remove_index$0= function(t,i) - {var _pn_=compare_elt(t); - return like(t,remove_index(t[2],i,_pn_))}, + {var _pj_=compare_elt(t); + return like(t,remove_index(t[2],i,_pj_))}, sexp_of_t$48= function(sexp_of_a,param,t) {return sexp_of_t$47(sexp_of_a,t[2])}, @@ -49452,13 +51806,13 @@ t[2])}, hash_fold_direct= function(hash_fold_key,state,t) - {var _pm_=t[2]; + {var _pi_=t[2]; return fold$7 - (_pm_, - caml_call2(hash_fold_t$4,state,length$11(_pm_)), + (_pi_, + caml_call2(hash_fold_t$4,state,length$11(_pi_)), hash_fold_key)}, compare$52= - function(param,_pl_,t1,t2){return compare_direct(t1,t2)}, + function(param,_ph_,t1,t2){return compare_direct(t1,t2)}, t_of_sexp_direct$0= function(comparator,a_of_sexp,sexp) {return t_of_sexp_direct(a_of_sexp,sexp,comparator[1])}, @@ -49488,7 +51842,7 @@ fold$9=function(t,init,f){return fold$7(t,init,f)}, fold_until$7= function(t,init,f) - {return function(_pk_){return fold_until$5(t,init,f,_pk_)}}, + {return function(_pg_){return fold_until$5(t,init,f,_pg_)}}, fold_right$3=function(t,init,f){return fold_right$1(t,init,f)}, map$25= function(comparator,t,f){return map$24(t,f,comparator[1])}, @@ -49532,15 +51886,15 @@ of_sorted_array_unchecked$0= function(comparator,a) {return of_sorted_array_unchecked(a,comparator[1])}, - of_increasing_iterator_unchecked$0= + of_increasing_iterator_uncheck$0= function(param,len,f) - {return of_increasing_iterator_unchecked(len,f)}, + {return of_increasing_iterator_uncheck(len,f)}, of_sorted_array$0= function(comparator,a) {return of_sorted_array(a,comparator[1])}, union_list$0= function(comparator,l) - {return union_list(comparator,function(_pj_){return _pj_},l)}, + {return union_list(comparator,function(_pf_){return _pf_},l)}, stable_dedup_list$0= function(comparator,xs) {return stable_dedup_list(xs,comparator[1])}, @@ -49586,11 +51940,11 @@ equal$36= function(comparator,t1,t2) {var - _ph_=comparator[1], - _pi_=comparator[2], - _pg_=[0,is_subset$0(t2,t1,_pi_,_ph_),0]; + _pd_=comparator[1], + _pe_=comparator[2], + _pc_=[0,is_subset$0(t2,t1,_pe_,_pd_),0]; return combine_errors_unit$0 - ([0,is_subset$0(t1,t2,_pi_,_ph_),_pg_])}, + ([0,is_subset$0(t1,t2,_pe_,_pd_),_pc_])}, Named=[0,is_subset$4,equal$36], to_tree$0=function(t){return t[2]}, of_tree$0=function(comparator,tree){return [0,comparator,tree]}, @@ -49601,7 +51955,7 @@ t_of_sexp_direct(a_of_sexp,sexp,comparator[1])]}, empty$2= function(comparator){return [0,comparator,already_seen]}, - Empty_without_value_restriction= + Empty_without_value_restrictio= function(Elt) {var empty=[0,Elt[1],already_seen];return [0,empty]}, singleton$4=function(comparator,e){return [0,comparator,[0,e]]}, @@ -49612,16 +51966,14 @@ function(comparator,array) {var tree=of_sorted_array_unchecked(array,comparator[1]); return [0,comparator,tree]}, - of_increasing_iterator_unchecked$1= + of_increasing_iterator_uncheck$1= function(comparator,len,f) - {return [0, - comparator, - of_increasing_iterator_unchecked(len,f)]}, + {return [0,comparator,of_increasing_iterator_uncheck(len,f)]}, of_sorted_array$1= function(comparator,array) - {function _pe_(tree){return [0,comparator,tree]} - var _pf_=of_sorted_array(array,comparator[1]); - return caml_call2(Monad_infix$0[2],_pf_,_pe_)}, + {function _pa_(tree){return [0,comparator,tree]} + var _pb_=of_sorted_array(array,comparator[1]); + return caml_call2(Monad_infix$0[2],_pb_,_pa_)}, of_list$7= function(comparator,l) {return [0,comparator,of_list$5(l,comparator[1])]}, @@ -49644,9 +51996,9 @@ union_list$2=function(m,a){return union_list$1(m[1],a)}, of_sorted_array_unchecked$2= function(m,a){return of_sorted_array_unchecked$1(m[1],a)}, - of_increasing_iterator_unchecked$2= + of_increasing_iterator_uncheck$2= function(m,len,f) - {return of_increasing_iterator_unchecked$1(m[1],len,f)}, + {return of_increasing_iterator_uncheck$1(m[1],len,f)}, of_sorted_array$2= function(m,a){return of_sorted_array$1(m[1],a)}, of_list$8=function(m,a){return of_list$7(m[1],a)}, @@ -49658,8 +52010,8 @@ M=function(Elt){return [0]}, sexp_of_m_t= function(Elt,t) - {function _pd_(param){return _dY_} - return sexp_of_t$48(Elt[1],_pd_,t)}, + {function _o$_(param){return _dY_} + return sexp_of_t$48(Elt[1],_o$_,t)}, m_t_of_sexp= function(Elt,sexp) {return t_of_sexp_direct$1(Elt[2],Elt[1],sexp)}, @@ -49667,25 +52019,24 @@ equal_m_t=function(Elt,t1,t2){return equal$33(t1,t2)}, hash_fold_m_t= function(Elt,state) - {var _pb_=Elt[1]; - return function(_pc_) - {return hash_fold_direct(_pb_,state,_pc_)}}, + {var _o9_=Elt[1]; + return function(_o__) + {return hash_fold_direct(_o9_,state,_o__)}}, hash_m_t= function(folder,t) {var state=caml_call1(hash_fold_m_t(folder,create$0(0,0)),t); return runtime.Base_internalhash_get_hash_value(state)}, comparator$12=Poly[1], - include$54=Empty_without_value_restriction(Poly), + include$54=Empty_without_value_restrictio(Poly), empty$4=include$54[1], singleton$6=function(a){return singleton$4(comparator$12,a)}, union_list$3=function(a){return union_list$1(comparator$12,a)}, of_sorted_array_unchecked$3= function(a) {return of_sorted_array_unchecked$1(comparator$12,a)}, - of_increasing_iterator_unchecked$3= + of_increasing_iterator_uncheck$3= function(len,f) - {return of_increasing_iterator_unchecked$1 - (comparator$12,len,f)}, + {return of_increasing_iterator_uncheck$1(comparator$12,len,f)}, of_sorted_array$3= function(a){return of_sorted_array$1(comparator$12,a)}, of_list$9=function(a){return of_list$7(comparator$12,a)}, @@ -49735,7 +52086,7 @@ to_array$7, of_sorted_array$2, of_sorted_array_unchecked$2, - of_increasing_iterator_unchecked$2, + of_increasing_iterator_uncheck$2, stable_dedup_list$2, map$27, filter_map$5, @@ -49826,7 +52177,7 @@ of_array$4, of_sorted_array$3, of_sorted_array_unchecked$3, - of_increasing_iterator_unchecked$3, + of_increasing_iterator_uncheck$3, stable_dedup_list$3, map$28, filter_map$6, @@ -49891,7 +52242,7 @@ of_array$1, of_sorted_array$0, of_sorted_array_unchecked$0, - of_increasing_iterator_unchecked$0, + of_increasing_iterator_uncheck$0, stable_dedup_list$0, map$25, filter_map$3, @@ -49951,14 +52302,14 @@ of_array$2, of_sorted_array$1, of_sorted_array_unchecked$1, - of_increasing_iterator_unchecked$1, + of_increasing_iterator_uncheck$1, stable_dedup_list$1, map$26, filter_map$4, of_tree$0, comparator$11, hash_fold_direct, - Empty_without_value_restriction]]; + Empty_without_value_restrictio]]; caml_register_global(1070,Base_Set,"Base__Set"); var swap$5= @@ -49989,27 +52340,27 @@ elts_index=function(t,i){return (t[2] + i | 0) & t[3]}, unsafe_get$2= function(t,i) - {var _pa_=elts_index(t,i); - return unsafe_get_some_exn(t[5],_pa_)}, + {var _o8_=elts_index(t,i); + return unsafe_get_some_exn(t[5],_o8_)}, unsafe_set$2= function(t,i,a) - {var _o$_=elts_index(t,i); - return unsafe_set_some(t[5],_o$_,a)}, + {var _o7_=elts_index(t,i); + return unsafe_set_some(t[5],_o7_,a)}, check_index_exn= function(t,i) {var - _o8_=caml_call2(symbol$78,i,0), - _o9_=_o8_ || caml_call2(symbol$83,i,t[4]); - if(_o9_) + _o4_=caml_call2(symbol$78,i,0), + _o5_=_o4_ || caml_call2(symbol$83,i,t[4]); + if(_o5_) {var - _o__= + _o6_= [0,[0,cst_length,caml_call1(sexp_of_t$35,t[4])],0]; return raise_s (caml_call2 (message, cst_Queue_index_out_of_bounds, - [0,[0,cst_index,caml_call1(sexp_of_t$35,i)],_o__]))} - return _o9_}, + [0,[0,cst_index,caml_call1(sexp_of_t$35,i)],_o6_]))} + return _o5_}, get$5= function(t,i){check_index_exn(t,i);return unsafe_get$2(t,i)}, set$3= @@ -50021,10 +52372,10 @@ length$14=function(param){var length=param[4];return length}, ensure_no_mutation= function(t,num_mutations) - {var _o6_=caml_call2(symbol$80,t[1],num_mutations); - if(_o6_) + {var _o2_=caml_call2(symbol$80,t[1],num_mutations); + if(_o2_) {var - _o7_=0, + _o3_=0, of_a=function(param){return _d4_}, v_num_mutations=t[1], v_front=t[2], @@ -50044,55 +52395,55 @@ return raise_s (caml_call2 (message, - cst_mutation_of_queue_during_iteration, - [0,[0,cst$26,[1,bnds$3]],_o7_]))} - return _o6_}, + cst_mutation_of_queue_during_i, + [0,[0,cst$26,[1,bnds$3]],_o3_]))} + return _o2_}, compare$53= function(compare_elt,t1,t2) {if(t1 === t2)return 0; - var pos=0,_o2_=t2[1],_o3_=t1[1],_o4_=t2[4],_o5_=t1[4]; + var pos=0,_oY_=t2[1],_oZ_=t1[1],_o0_=t2[4],_o1_=t1[4]; for(;;) {var - match=caml_call2(symbol$81,pos,_o5_), - match$0=caml_call2(symbol$81,pos,_o4_); + match=caml_call2(symbol$81,pos,_o1_), + match$0=caml_call2(symbol$81,pos,_o0_); if(0 === match) {if(0 === match$0) {var - _o1_=unsafe_get$2(t2,pos), - x=caml_call2(compare_elt,unsafe_get$2(t1,pos),_o1_); - ensure_no_mutation(t1,_o3_); - ensure_no_mutation(t2,_o2_); + _oX_=unsafe_get$2(t2,pos), + x=caml_call2(compare_elt,unsafe_get$2(t1,pos),_oX_); + ensure_no_mutation(t1,_oZ_); + ensure_no_mutation(t2,_oY_); if(0 === x){var pos$0=pos + 1 | 0,pos=pos$0;continue} return x} return 1} return 0 === match$0?-1:0}}, equal$37= function(equal_elt,t1,t2) - {var _oW_=t1 === t2?1:0; - if(_oW_) - var _oX_=_oW_; + {var _oS_=t1 === t2?1:0; + if(_oS_) + var _oT_=_oS_; else {var len1=t1[4], len2=t2[4], - _oY_=caml_call2(symbol$81,len1,len2); - if(_oY_) - {var pos=0,_oZ_=t2[1],_o0_=t1[1]; + _oU_=caml_call2(symbol$81,len1,len2); + if(_oU_) + {var pos=0,_oV_=t2[1],_oW_=t1[1]; for(;;) - {var _oT_=caml_call2(symbol$81,pos,len1); - if(_oT_) - var _oU_=_oT_; + {var _oP_=caml_call2(symbol$81,pos,len1); + if(_oP_) + var _oQ_=_oP_; else {var - _oV_=unsafe_get$2(t2,pos), - b=caml_call2(equal_elt,unsafe_get$2(t1,pos),_oV_); - ensure_no_mutation(t1,_o0_); - ensure_no_mutation(t2,_oZ_); + _oR_=unsafe_get$2(t2,pos), + b=caml_call2(equal_elt,unsafe_get$2(t1,pos),_oR_); + ensure_no_mutation(t1,_oW_); + ensure_no_mutation(t2,_oV_); if(b){var pos$0=pos + 1 | 0,pos=pos$0;continue} - var _oU_=b} - return _oU_}} - var _oX_=_oY_} - return _oX_}, + var _oQ_=b} + return _oQ_}} + var _oT_=_oU_} + return _oT_}, invariant$9= function(invariant_a,t) {var num_mutations=t[1],front=t[2],length=t[4],elts=t[5]; @@ -50104,18 +52455,18 @@ {if(is_pow2(capacity)) {if(caml_call2(symbol$83,length,0)) {if(caml_call2(symbol$79,length,capacity)) - {var _oR_=capacity - 1 | 0,_oQ_=0; - if(! (_oR_ < 0)) - {var i=_oQ_; + {var _oN_=capacity - 1 | 0,_oM_=0; + if(! (_oN_ < 0)) + {var i=_oM_; for(;;) {if(caml_call2(symbol$78,i,t[4])) {caml_call1(invariant_a,unsafe_get$2(t,i)); ensure_no_mutation(t,num_mutations)} else - {var _oP_=elts_index(t,i); - if(unsafe_is_some(t[5],_oP_))throw [0,Assert_failure,_d5_]} - var _oS_=i + 1 | 0; - if(_oR_ !== i){var i=_oS_;continue} + {var _oL_=elts_index(t,i); + if(unsafe_is_some(t[5],_oL_))throw [0,Assert_failure,_d5_]} + var _oO_=i + 1 | 0; + if(_oN_ !== i){var i=_oO_;continue} break}} return 0} throw [0,Assert_failure,_d6_]} @@ -50130,15 +52481,15 @@ {if(capacity) var capacity$0=capacity[1], - _oO_= + _oK_= caml_call2(symbol$78,capacity$0,0) ?raise_s (caml_call2 (message, - cst_cannot_have_queue_with_negative_capacity, + cst_cannot_have_queue_with_neg, [0,[0,cst_capacity,caml_call1(sexp_of_t$35,capacity$0)],0])) :caml_call2(symbol$81,capacity$0,0)?1:ceil_pow2(capacity$0), - capacity$1=_oO_; + capacity$1=_oK_; else var capacity$1=1; return [0,0,0,capacity$1 - 1 | 0,0,create$9(capacity$1)]}, @@ -50146,9 +52497,9 @@ function(src,dst) {if(caml_call2(symbol$79,src[4],dst.length - 1)) {var - _oM_=src[2], - _oN_=capacity$0(src) - _oM_ | 0, - front_len=caml_call2(min$26,src[4],_oN_), + _oI_=src[2], + _oJ_=capacity$0(src) - _oI_ | 0, + front_len=caml_call2(min$26,src[4],_oJ_), rest_len=src[4] - front_len | 0; caml_call5(blit$5,src[5],src[2],dst,0,front_len); return caml_call5(blit$5,src[5],0,dst,front_len,rest_len)} @@ -50161,22 +52512,22 @@ ceil_pow2 (caml_call2 (max$12,1,caml_call2(max$12,desired_capacity,t[4]))), - _oK_=caml_call2(symbol$80,new_capacity,capacity$0(t)); - if(_oK_) + _oG_=caml_call2(symbol$80,new_capacity,capacity$0(t)); + if(_oG_) {var dst=create$9(new_capacity); blit_to_array(t,dst); t[2] = 0; t[3] = new_capacity - 1 | 0; t[5] = dst; - var _oL_=0} + var _oH_=0} else - var _oL_=_oK_; - return _oL_}, + var _oH_=_oG_; + return _oH_}, enqueue= function(t,a) {inc_num_mutations(t); - var _oJ_=capacity$0(t); - if(caml_call2(symbol$81,t[4],_oJ_)) + var _oF_=capacity$0(t); + if(caml_call2(symbol$81,t[4],_oF_)) set_capacity$0(t,2 * t[4] | 0); unsafe_set$2(t,t[4],a); t[4] = t[4] + 1 | 0; @@ -50211,23 +52562,23 @@ clear$1= function(t) {inc_num_mutations(t); - var _oE_=caml_call2(symbol$82,t[4],0); - if(_oE_) - {var _oG_=t[4] - 1 | 0,_oF_=0; - if(! (_oG_ < 0)) - {var i=_oF_; + var _oA_=caml_call2(symbol$82,t[4],0); + if(_oA_) + {var _oC_=t[4] - 1 | 0,_oB_=0; + if(! (_oC_ < 0)) + {var i=_oB_; for(;;) - {var _oD_=elts_index(t,i); - unsafe_set_none(t[5],_oD_); - var _oI_=i + 1 | 0; - if(_oG_ !== i){var i=_oI_;continue} + {var _oz_=elts_index(t,i); + unsafe_set_none(t[5],_oz_); + var _oE_=i + 1 | 0; + if(_oC_ !== i){var i=_oE_;continue} break}} t[4] = 0; t[2] = 0; - var _oH_=0} + var _oD_=0} else - var _oH_=_oE_; - return _oH_}, + var _oD_=_oA_; + return _oD_}, blit_transfer= function(src,dst,len,param) {inc_num_mutations(src); @@ -50238,52 +52589,52 @@ raise_s (caml_call2 (message, - cst_Queue_blit_transfer_negative_length, + cst_Queue_blit_transfer_negati, [0,[0,cst_length$0,caml_call1(sexp_of_t$35,len$0)],0])); var len$1=caml_call2(min$12,len$0,src[4])} else var len$1=src[4]; - var _ow_=caml_call2(symbol$82,len$1,0); - if(_ow_) - {var _ox_=dst[4] + len$1 | 0; - set_capacity$0(dst,caml_call2(max$12,capacity$0(dst),_ox_)); - var dst_start=dst[2] + dst[4] | 0,_oz_=len$1 - 1 | 0,_oy_=0; - if(! (_oz_ < 0)) - {var i=_oy_; + var _os_=caml_call2(symbol$82,len$1,0); + if(_os_) + {var _ot_=dst[4] + len$1 | 0; + set_capacity$0(dst,caml_call2(max$12,capacity$0(dst),_ot_)); + var dst_start=dst[2] + dst[4] | 0,_ov_=len$1 - 1 | 0,_ou_=0; + if(! (_ov_ < 0)) + {var i=_ou_; for(;;) {var src_i=(src[2] + i | 0) & src[3], dst_i=(dst_start + i | 0) & dst[3], - _oB_=unsafe_get_some_exn(src[5],src_i); - unsafe_set_some(dst[5],dst_i,_oB_); + _ox_=unsafe_get_some_exn(src[5],src_i); + unsafe_set_some(dst[5],dst_i,_ox_); unsafe_set_none(src[5],src_i); - var _oC_=i + 1 | 0; - if(_oz_ !== i){var i=_oC_;continue} + var _oy_=i + 1 | 0; + if(_ov_ !== i){var i=_oy_;continue} break}} dst[4] = dst[4] + len$1 | 0; src[2] = (src[2] + len$1 | 0) & src[3]; src[4] = src[4] - len$1 | 0; - var _oA_=0} + var _ow_=0} else - var _oA_=_ow_; - return _oA_}, + var _ow_=_os_; + return _ow_}, enqueue_all= function(t,l) - {var _ou_=caml_call1(length,l),_ov_=t[4] + _ou_ | 0; - set_capacity$0(t,caml_call2(max$26,capacity$0(t),_ov_)); + {var _oq_=caml_call1(length,l),_or_=t[4] + _oq_ | 0; + set_capacity$0(t,caml_call2(max$26,capacity$0(t),_or_)); return iter$0(l,function(x){return enqueue(t,x)})}, fold$10= function(t,init,f) {if(caml_call2(symbol$81,t[4],0))return init; - var num_mutations=t[1],r=[0,init],_or_=t[4] - 1 | 0,_oq_=0; - if(! (_or_ < 0)) - {var i=_oq_; + var num_mutations=t[1],r=[0,init],_on_=t[4] - 1 | 0,_om_=0; + if(! (_on_ < 0)) + {var i=_om_; for(;;) - {var _os_=unsafe_get$2(t,i); - r[1] = caml_call2(f,r[1],_os_); + {var _oo_=unsafe_get$2(t,i); + r[1] = caml_call2(f,r[1],_oo_); ensure_no_mutation(t,num_mutations); - var _ot_=i + 1 | 0; - if(_or_ !== i){var i=_ot_;continue} + var _op_=i + 1 | 0; + if(_on_ !== i){var i=_op_;continue} break}} return r[1]}, foldi$5= @@ -50298,26 +52649,26 @@ return acc$0})}, iter$13= function(t,f) - {var num_mutations=t[1],_oo_=t[4] - 1 | 0,_on_=0; - if(! (_oo_ < 0)) - {var i=_on_; + {var num_mutations=t[1],_ok_=t[4] - 1 | 0,_oj_=0; + if(! (_ok_ < 0)) + {var i=_oj_; for(;;) {caml_call1(f,unsafe_get$2(t,i)); ensure_no_mutation(t,num_mutations); - var _op_=i + 1 | 0; - if(_oo_ !== i){var i=_op_;continue} + var _ol_=i + 1 | 0; + if(_ok_ !== i){var i=_ol_;continue} break}} return 0}, iteri$3= function(t,f) - {var num_mutations=t[1],_ol_=t[4] - 1 | 0,_ok_=0; - if(! (_ol_ < 0)) - {var i=_ok_; + {var num_mutations=t[1],_oh_=t[4] - 1 | 0,_og_=0; + if(! (_oh_ < 0)) + {var i=_og_; for(;;) {caml_call2(f,i,unsafe_get$2(t,i)); ensure_no_mutation(t,num_mutations); - var _om_=i + 1 | 0; - if(_ol_ !== i){var i=_om_;continue} + var _oi_=i + 1 | 0; + if(_oh_ !== i){var i=_oi_;continue} break}} return 0}, iter$14=[0,-198771759,iter$13], @@ -50348,8 +52699,8 @@ iter$13 (t, function(a) - {function _oj_(b){return enqueue(t_result,b)} - return iter$0(caml_call1(f,a),_oj_)}); + {function _of_(b){return enqueue(t_result,b)} + return iter$0(caml_call1(f,a),_of_)}); return t_result}, concat_mapi$2= function(t,f) @@ -50357,8 +52708,8 @@ iteri$3 (t, function(i,a) - {function _oi_(b){return enqueue(t_result,b)} - return iter$0(caml_call2(f,i,a),_oi_)}); + {function _oe_(b){return enqueue(t_result,b)} + return iter$0(caml_call2(f,i,a),_oe_)}); return t_result}, filter_map$7= function(t,f) @@ -50386,8 +52737,8 @@ iter$13 (t, function(a) - {var _oh_=caml_call1(f,a); - return _oh_?enqueue(t_result,a):_oh_}); + {var _od_=caml_call1(f,a); + return _od_?enqueue(t_result,a):_od_}); return t_result}, filteri$2= function(t,f) @@ -50395,8 +52746,8 @@ iteri$3 (t, function(i,a) - {var _og_=caml_call2(f,i,a); - return _og_?enqueue(t_result,a):_og_}); + {var _oc_=caml_call2(f,i,a); + return _oc_?enqueue(t_result,a):_oc_}); return t_result}, filter_inplace= function(t,f) @@ -50429,14 +52780,14 @@ [0,[0,cst_length$1,caml_call1(sexp_of_t$35,len)],0])); var t=create$12([0,len],0); if(caml_call2(symbol$83,t[5].length - 1,len)) - {var _od_=len - 1 | 0,_oc_=0; - if(! (_od_ < 0)) - {var i=_oc_; + {var _n$_=len - 1 | 0,_n__=0; + if(! (_n$_ < 0)) + {var i=_n__; for(;;) - {var _oe_=caml_call1(f,i); - unsafe_set_some(t[5],i,_oe_); - var _of_=i + 1 | 0; - if(_od_ !== i){var i=_of_;continue} + {var _oa_=caml_call1(f,i); + unsafe_set_some(t[5],i,_oa_); + var _ob_=i + 1 | 0; + if(_n$_ !== i){var i=_ob_;continue} break}} t[4] = len; return t} @@ -50444,24 +52795,24 @@ of_array$5= function(a) {return init$7 - (a.length - 1,function(_ob_){return a[1 + _ob_]})}, + (a.length - 1,function(_n9_){return a[1 + _n9_]})}, to_array$9= function(t) - {function _oa_(i){return unsafe_get$2(t,i)} - return caml_call2(init,t[4],_oa_)}, + {function _n8_(i){return unsafe_get$2(t,i)} + return caml_call2(init,t[4],_n8_)}, map$29= function(ta,f) {var num_mutations=ta[1],tb=create$12([0,ta[4]],0); tb[4] = ta[4]; - var _n__=ta[4] - 1 | 0,_n9_=0; - if(! (_n__ < 0)) - {var i=_n9_; + var _n6_=ta[4] - 1 | 0,_n5_=0; + if(! (_n6_ < 0)) + {var i=_n5_; for(;;) {var b=caml_call1(f,unsafe_get$2(ta,i)); ensure_no_mutation(ta,num_mutations); unsafe_set_some(tb[5],i,b); - var _n$_=i + 1 | 0; - if(_n__ !== i){var i=_n$_;continue} + var _n7_=i + 1 | 0; + if(_n6_ !== i){var i=_n7_;continue} break}} return tb}, mapi$5= @@ -50569,13 +52920,13 @@ sexp_of_t$51=include$55[2], hash$14=function(x){return caml_call1(func$0,x)}, zero$1=Stdlib_nativeint[1], - neg$1=function(_n8_){return - _n8_ | 0}, + neg$1=function(_n4_){return - _n4_ | 0}, symbol$191=include$3[1], to_string$15=function(i){return caml_call2(sprintf,_ee_,i)}, of_string$14= function(s) - {function _n6_(_n7_){return _n7_} - return caml_call3(Stdlib_scanf[4],s,_ef_,_n6_)}, + {function _n2_(_n3_){return _n3_} + return caml_call3(Stdlib_scanf[4],s,_ef_,_n2_)}, include$56= _cz_ ([0, @@ -50594,30 +52945,32 @@ num_bits$1=num_bits$0(word_size), float_lower_bound$0=lower_bound_for_int(num_bits$1), float_upper_bound$0=upper_bound_for_int(num_bits$1), - lsr$0=function(_n5_,_n4_){return _n5_ >>> _n4_ | 0}, - asr$0=function(_n3_,_n2_){return _n3_ >> _n2_}, - lsl$0=function(_n1_,_n0_){return _n1_ << _n0_}, + lsr$0=function(_n1_,_n0_){return _n1_ >>> _n0_ | 0}, + asr$0=function(_nZ_,_nY_){return _nZ_ >> _nY_}, + lsl$0=function(_nX_,_nW_){return _nX_ << _nW_}, lnot$1=Stdlib_nativeint[12], - lxor$0=function(_nZ_,_nY_){return _nZ_ ^ _nY_}, - lor$0=function(_nX_,_nW_){return _nX_ | _nW_}, - land$0=function(_nV_,_nU_){return _nV_ & _nU_}, + lxor$0=function(_nV_,_nU_){return _nV_ ^ _nU_}, + lor$0=function(_nT_,_nS_){return _nT_ | _nS_}, + land$0=function(_nR_,_nQ_){return _nR_ & _nQ_}, min_value$3=Stdlib_nativeint[11], max_value$3=Stdlib_nativeint[10], abs$3=Stdlib_nativeint[8], pred$2=Stdlib_nativeint[7], succ$3=Stdlib_nativeint[6], rem$0=caml_mod, - neg$2=function(_nT_){return - _nT_ | 0}, + neg$2=function(_nP_){return - _nP_ | 0}, minus_one$0=Stdlib_nativeint[3], one$0=Stdlib_nativeint[2], zero$2=Stdlib_nativeint[1], - to_float$1=function(_nS_){return _nS_}, - of_float_unchecked$0=function(_nR_){return _nR_ | 0}, + to_float$1=function(_nO_){return _nO_}, + of_float_unchecked$0=function(_nN_){return _nN_ | 0}, of_float$0= function(f) - {if(caml_call2(include$7[6],f,float_lower_bound$0)) - if(caml_call2(include$7[2],f,float_upper_bound$0)) - return f | 0; + {if + (caml_call2(include$7[6],f,float_lower_bound$0) + && + caml_call2(include$7[2],f,float_upper_bound$0)) + return f | 0; return caml_call2(invalid_argf(_eh_),f + 0.,0)}, non_positive_argument$0= function(param){return caml_call1(invalid_argf(_ei_),0)}, @@ -50647,15 +53000,15 @@ is_pow2$0= function(x) {if(caml_call2(include$3[2],x,0))non_positive_argument$0(0); - var _nQ_=x & caml_call1(Stdlib_nativeint[7],x); - return caml_call2(include$3[4],_nQ_,0)}, + var _nM_=x & caml_call1(Stdlib_nativeint[7],x); + return caml_call2(include$3[4],_nM_,0)}, floor_log2$0= function(i) {if(caml_lessequal(i,Stdlib_nativeint[1])) raise_s (caml_call2 (message, - cst_Nativeint_floor_log2_got_invalid_input, + cst_Nativeint_floor_log2_got_i, [0,[0,cst$27,caml_call1(sexp_of_t$8,i)],0])); return (word_size_in_bits - 1 | 0) - @@ -50668,7 +53021,7 @@ raise_s (caml_call2 (message, - cst_Nativeint_ceil_log2_got_invalid_input, + cst_Nativeint_ceil_log2_got_in, [0,[0,cst$28,caml_call1(sexp_of_t$8,i)],0])); return caml_call2 (Stdlib_nativeint[18],i,Stdlib_nativeint[2]) @@ -50681,8 +53034,8 @@ 0}, between$9= function(t,low,high) - {var _nP_=caml_call2(include$3[2],low,t); - return _nP_?caml_call2(include$3[2],t,high):_nP_}, + {var _nL_=caml_call2(include$3[2],low,t); + return _nL_?caml_call2(include$3[2],t,high):_nL_}, clamp_unchecked$3= function(t,min,max) {return caml_call2(include$3[1],t,min) @@ -50696,17 +53049,17 @@ clamp$9= function(t,min,max) {if(caml_call2(include$3[5],min,max)) - {var _nO_=[0,[0,cst_max$4,caml_call1(sexp_of_t$8,max)],0]; + {var _nK_=[0,[0,cst_max$4,caml_call1(sexp_of_t$8,max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max$4, - [0,[0,cst_min$4,caml_call1(sexp_of_t$8,min)],_nO_]))} + [0,[0,cst_min$4,caml_call1(sexp_of_t$8,min)],_nK_]))} return [0,clamp_unchecked$3(t,min,max)]}, symbol$192=caml_div, - symbol$193=function(_nN_,_nM_){return caml_mul(_nN_,_nM_)}, - symbol$194=function(_nL_,_nK_){return _nL_ - _nK_ | 0}, - symbol$195=function(_nJ_,_nI_){return _nJ_ + _nI_ | 0}, + symbol$193=caml_mul, + symbol$194=function(_nJ_,_nI_){return _nJ_ - _nI_ | 0}, + symbol$195=function(_nH_,_nG_){return _nH_ + _nG_ | 0}, incr$1=function(r){r[1] = r[1] + one$0 | 0;return 0}, decr$1=function(r){r[1] = r[1] - one$0 | 0;return 0}, of_nativeint=function(t){return t}, @@ -50714,9 +53067,9 @@ pow$0= function(b,e) {var - _nG_=nativeint_to_int_exn(e), - _nH_=nativeint_to_int_exn(b); - return caml_call2(Private$2[1],_nH_,_nG_)}, + _nE_=nativeint_to_int_exn(e), + _nF_=nativeint_to_int_exn(b); + return caml_call2(Private$2[1],_nF_,_nE_)}, symbol$196=function(b,e){return pow$0(b,e)}, symbol$197=include$3[3], symbol$198=include$3[1], @@ -50907,8 +53260,8 @@ all$17=include$53[2], equal$38=include$53[3], sexp_of_t$52=include$53[4], - of_continue_or_stop=function(_nF_){return _nF_}, - to_continue_or_stop=function(_nE_){return _nE_}, + of_continue_or_stop=function(_nD_){return _nD_}, + to_continue_or_stop=function(_nC_){return _nC_}, Finished_or_unfinished= [0, compare$55, @@ -50935,19 +53288,19 @@ {if(lower) var lower$0=lower[1], - _nC_= + _nA_= caml_call2(symbol$78,caml_call2(compare_key,lower$0,k),0); else - var _nC_=1; - if(_nC_) + var _nA_=1; + if(_nA_) {if(upper) {var upper$0=upper[1]; return caml_call2 (symbol$78,caml_call2(compare_key,k,upper$0),0)} - var _nD_=1} + var _nB_=1} else - var _nD_=_nC_; - return _nD_}, + var _nB_=_nA_; + return _nB_}, loop$0= function(lower,upper,compare_key,t) {var lower$0=lower,t$0=t; @@ -50965,34 +53318,34 @@ l=t$0[1], hl=height$0(l), hr=height$0(r), - _nx_=caml_call2(symbol$79,caml_call1(abs$0,hl - hr | 0),2); - if(_nx_) + _nv_=caml_call2(symbol$79,caml_call1(abs$0,hl - hr | 0),2); + if(_nv_) {var - _ny_= + _nw_= caml_call2(symbol$81,h,caml_call2(max$12,hl,hr) + 1 | 0); - if(_ny_) - {var _nz_=in_range$0(lower$0,upper,compare_key,k$0); - if(_nz_) - {var _nA_=loop$0(lower$0,[0,k$0],compare_key,l); - if(_nA_){var lower$1=[0,k$0],lower$0=lower$1,t$0=r;continue} - var _nB_=_nA_} + if(_nw_) + {var _nx_=in_range$0(lower$0,upper,compare_key,k$0); + if(_nx_) + {var _ny_=loop$0(lower$0,[0,k$0],compare_key,l); + if(_ny_){var lower$1=[0,k$0],lower$0=lower$1,t$0=r;continue} + var _nz_=_ny_} else - var _nB_=_nz_} + var _nz_=_nx_} else - var _nB_=_ny_} + var _nz_=_nw_} else - var _nB_=_nx_; - return _nB_}}, + var _nz_=_nv_; + return _nz_}}, invariants$2= function(t,compare_key){return loop$0(0,0,compare_key,t)}, create$13= function(l,x,d,r) {var hl=height$0(l),hr=height$0(r); - if(caml_call2(symbol$81,hl,0)) - if(caml_call2(symbol$81,hr,0))return [0,x,d]; - var _nw_=caml_call2(symbol$83,hl,hr)?hl + 1 | 0:hr + 1 | 0; - return [1,l,x,d,r,_nw_]}, - of_increasing_iterator_unchecked$4= + if(caml_call2(symbol$81,hl,0) && caml_call2(symbol$81,hr,0)) + return [0,x,d]; + var _nu_=caml_call2(symbol$83,hl,hr)?hl + 1 | 0:hr + 1 | 0; + return [1,l,x,d,r,_nu_]}, + of_increasing_iterator_uncheck$4= function(len,f) {function loop(n,f,i) {if(3 < n >>> 0) @@ -51034,70 +53387,62 @@ return loop(len,f,0)}, of_sorted_array_unchecked$4= function(array,compare_key) - {var array_length=array.length - 1; - if(caml_call2(symbol$78,array_length,2)) - var switch$0=0; - else + {var array_length=array.length - 1,switch$0=0; + if(! caml_call2(symbol$78,array_length,2)) {var match=caml_check_bound(array,0)[1], k0=match[1], match$0=caml_check_bound(array,1)[2], k1=match$0[1]; - if(caml_call2(symbol$78,caml_call2(compare_key,k0,k1),0)) - var switch$0=0; - else - var - next= - function(i) - {var _nv_=(array_length - 1 | 0) - i | 0; - return caml_check_bound(array,_nv_)[1 + _nv_]}, - switch$0=1} + if(! caml_call2(symbol$78,caml_call2(compare_key,k0,k1),0)) + {var + next= + function(i) + {var _nt_=(array_length - 1 | 0) - i | 0; + return caml_check_bound(array,_nt_)[1 + _nt_]}; + switch$0 = 1}} if(! switch$0) var next= function(i){return caml_check_bound(array,i)[1 + i]}; return [0, - of_increasing_iterator_unchecked$4(array_length,next), + of_increasing_iterator_uncheck$4(array_length,next), array_length]}, of_sorted_array$4= function(array,compare_key) {var len=array.length - 1; - if(1 !== len) - if(0 !== len) - return with_return - (function(r) - {var - _np_=caml_check_bound(array,1)[2][1], - i= - caml_call2(compare_key,caml_check_bound(array,0)[1][1],_np_), - increasing= - 0 === i - ?caml_call1 - (r,error_string(cst_of_sorted_array_duplicated_elements$1)) - :caml_call2(symbol$78,i,0), - _nr_=array.length - 1 - 2 | 0, - _nq_=1; - if(! (_nr_ < 1)) - {var i$0=_nq_; - for(;;) - {var - _ns_=i$0 + 1 | 0, - _nt_=caml_check_bound(array,_ns_)[1 + _ns_][1], - i$1= - caml_call2 - (compare_key,caml_check_bound(array,i$0)[1 + i$0][1],_nt_); - if(0 === i$1) - caml_call1 - (r,error_string(cst_of_sorted_array_duplicated_elements$2)); - else - if(caml_call2(symbol$78,i$1,0) !== increasing) - caml_call1 - (r, - error_string(cst_of_sorted_array_elements_are_not_ordered$0)); - var _nu_=i$0 + 1 | 0; - if(_nr_ !== i$0){var i$0=_nu_;continue} - break}} - return [0,of_sorted_array_unchecked$4(array,compare_key)]}); + if(1 !== len && 0 !== len) + return with_return + (function(r) + {var + _nn_=caml_check_bound(array,1)[2][1], + i= + caml_call2(compare_key,caml_check_bound(array,0)[1][1],_nn_), + increasing= + 0 === i + ?caml_call1 + (r,error_string(cst_of_sorted_array_duplicated$1)) + :caml_call2(symbol$78,i,0), + _np_=array.length - 1 - 2 | 0, + _no_=1; + if(! (_np_ < 1)) + {var i$0=_no_; + for(;;) + {var + _nq_=i$0 + 1 | 0, + _nr_=caml_check_bound(array,_nq_)[1 + _nq_][1], + i$1= + caml_call2 + (compare_key,caml_check_bound(array,i$0)[1 + i$0][1],_nr_); + if(0 === i$1) + caml_call1(r,error_string(cst_of_sorted_array_duplicated$2)); + else + if(caml_call2(symbol$78,i$1,0) !== increasing) + caml_call1(r,error_string(cst_of_sorted_array_elements_a$0)); + var _ns_=i$0 + 1 | 0; + if(_np_ !== i$0){var i$0=_ns_;continue} + break}} + return [0,of_sorted_array_unchecked$4(array,compare_key)]}); return [0,of_sorted_array_unchecked$4(array,compare_key)]}, bal$0= function(l,x,d,r) @@ -51107,45 +53452,45 @@ return caml_call1(invalid_arg$0,cst_Map_bal); else {if(0 === l[0])throw [0,Assert_failure,_en_]; - var lr=l[4],ld=l[3],lv=l[2],ll=l[1],_nj_=height$0(lr); - if(caml_call2(symbol$83,height$0(ll),_nj_)) + var lr=l[4],ld=l[3],lv=l[2],ll=l[1],_nh_=height$0(lr); + if(caml_call2(symbol$83,height$0(ll),_nh_)) return create$13(ll,lv,ld,create$13(lr,x,d,r)); if(typeof lr === "number") return caml_call1(invalid_arg$0,cst_Map_bal$0); else {if(0 === lr[0]) - {var lrd=lr[2],lrv=lr[1],_nk_=create$13(0,x,d,r); - return create$13(create$13(ll,lv,ld,0),lrv,lrd,_nk_)} + {var lrd=lr[2],lrv=lr[1],_ni_=create$13(0,x,d,r); + return create$13(create$13(ll,lv,ld,0),lrv,lrd,_ni_)} var lrr=lr[4], lrd$0=lr[3], lrv$0=lr[2], lrl=lr[1], - _nl_=create$13(lrr,x,d,r); - return create$13(create$13(ll,lv,ld,lrl),lrv$0,lrd$0,_nl_)}} + _nj_=create$13(lrr,x,d,r); + return create$13(create$13(ll,lv,ld,lrl),lrv$0,lrd$0,_nj_)}} if(caml_call2(symbol$82,hr,hl + 2 | 0)) if(typeof r === "number") return caml_call1(invalid_arg$0,cst_Map_bal$1); else {if(0 === r[0])throw [0,Assert_failure,_eo_]; - var rr=r[4],rd=r[3],rv=r[2],rl=r[1],_nm_=height$0(rl); - if(caml_call2(symbol$83,height$0(rr),_nm_)) + var rr=r[4],rd=r[3],rv=r[2],rl=r[1],_nk_=height$0(rl); + if(caml_call2(symbol$83,height$0(rr),_nk_)) return create$13(create$13(l,x,d,rl),rv,rd,rr); if(typeof rl === "number") return caml_call1(invalid_arg$0,cst_Map_bal$2); else {if(0 === rl[0]) - {var rld=rl[2],rlv=rl[1],_nn_=create$13(0,rv,rd,rr); - return create$13(create$13(l,x,d,0),rlv,rld,_nn_)} + {var rld=rl[2],rlv=rl[1],_nl_=create$13(0,rv,rd,rr); + return create$13(create$13(l,x,d,0),rlv,rld,_nl_)} var rlr=rl[4], rld$0=rl[3], rlv$0=rl[2], rll=rl[1], - _no_=create$13(rlr,rv,rd,rr); - return create$13(create$13(l,x,d,rll),rlv$0,rld$0,_no_)}} + _nm_=create$13(rlr,rv,rd,rr); + return create$13(create$13(l,x,d,rll),rlv$0,rld$0,_nm_)}} return create$13(l,x,d,r)}, - empty_without_value_restriction=0, + empty_without_value_restrictio=0, is_empty$9= function(param){return typeof param === "number"?1:0}, raise_key_already_present= @@ -51153,7 +53498,7 @@ {return raise_s (caml_call2 (message, - cst_Map_add_exn_got_key_already_present, + cst_Map_add_exn_got_key_alread, [0,[0,cst_key,caml_call1(sexp_of_key,key)],0]))}, find_and_add_or_set= function(t,length,x,data,compare_key,sexp_of_key,add_or_set) @@ -51203,7 +53548,7 @@ (t,length,key,data,compare_key,sexp_of_key,1)}, set$4= function(t,length,key,data,compare_key) - {var _ni_=2; + {var _ng_=2; return find_and_add_or_set (t, length, @@ -51211,7 +53556,7 @@ data, compare_key, function(param){return _ep_}, - _ni_)}, + _ng_)}, set$5= function(t,key,data,compare_key) {return set$4(t,0,key,data,compare_key)[1]}, @@ -51219,13 +53564,12 @@ function(param) {if(typeof param[1] === "number") {var data=param[3],key=param[2];return [0,key,data]} - return caml_call1 - (failwith$0,cst_Map_singleton_to_tree_exn_not_a_singleton)}, + return caml_call1(failwith$0,cst_Map_singleton_to_tree_exn_)}, collapse=function(l,r){return create$13(l[1],l[2],l[3],r)}, join$7= function(l,r) - {var _ng_=r[3],_nh_=r[2]; - return [0,collapse(l,r[1]),_nh_,_ng_]}, + {var _ne_=r[3],_nf_=r[2]; + return [0,collapse(l,r[1]),_nf_,_ne_]}, go= function(t,x) {switch(t[0]) @@ -51261,16 +53605,17 @@ fold$2 (seq, [0,empty$5,0], - function(param$0,_nf_) + function(param$0,_nd_) {var - data=_nf_[2], - key=_nf_[1], + data=_nd_[2], + key=_nd_[1], length=param$0[2], - builder=param$0[1]; + builder=param$0[1], + switch$0=0; switch(builder[0]) - {case 0:var match=0,switch$0=1;break; - case 1:var r=builder[2],switch$0=0;break; - default:var r=builder[3],switch$0=0} + {case 0:var match=0;switch$0 = 1;break; + case 1:var r=builder[2];break; + default:var r=builder[3]} if(! switch$0)var match=[0,r[2]]; if(match) {var prev_key=match[1]; @@ -51278,41 +53623,40 @@ (caml_call2 (symbol$83,caml_call2(compare_key,prev_key,key),0)) return caml_call1 - (param, - error_string(cst_of_increasing_sequence_non_increasing_key))} + (param,error_string(cst_of_increasing_sequence_non))} return [0,go(builder,[0,0,key,data]),length + 1 | 0]}), length=match[2], builder=match[1]; switch(builder[0]) - {case 0:var _ne_=0;break; + {case 0:var _nc_=0;break; case 1: var r=builder[2], t=builder[1], - _ne_=go$0(t,singleton_to_tree_exn(r)); + _nc_=go$0(t,singleton_to_tree_exn(r)); break; default: var r$0=builder[3], l=builder[2], t$0=builder[1], - _ne_=go$0([1,t$0,l],singleton_to_tree_exn(r$0))} - return [0,[0,_ne_,length]]})}, + _nc_=go$0([1,t$0,l],singleton_to_tree_exn(r$0))} + return [0,[0,_nc_,length]]})}, join$8= function(l,k,d,r,compare_key) {if(typeof l === "number") return set$5(r,k,d,compare_key); else if(1 === l[0]) - {var _m$_=l[5],_na_=l[4],_nb_=l[3],_nc_=l[2],_nd_=l[1]; + {var _m9_=l[5],_m__=l[4],_m$_=l[3],_na_=l[2],_nb_=l[1]; if(typeof r !== "number") {if(0 === r[0]) {var rd=r[2],rk=r[1]; return set$5(set$5(l,k,d,compare_key),rk,rd,compare_key)} var rh=r[5],rr=r[4],rd$0=r[3],rk$0=r[2],rl=r[1]; - return caml_call2(symbol$82,_m$_,rh + 3 | 0) - ?bal$0(_nd_,_nc_,_nb_,join$8(_na_,k,d,r,compare_key)) - :caml_call2(symbol$82,rh,_m$_ + 3 | 0) + return caml_call2(symbol$82,_m9_,rh + 3 | 0) + ?bal$0(_nb_,_na_,_m$_,join$8(_m__,k,d,r,compare_key)) + :caml_call2(symbol$82,rh,_m9_ + 3 | 0) ?bal$0(join$8(l,k,d,rl,compare_key),rk$0,rd$0,rr) :bal$0(l,k,d,r)}} if(typeof r === "number")return set$5(l,k,d,compare_key); @@ -51371,11 +53715,11 @@ function(t,lower_bound,upper_bound,compare_key) {if(bounds_crossed(lower_bound,upper_bound,compare_key)) return [0, - empty_without_value_restriction, - empty_without_value_restriction, - empty_without_value_restriction]; + empty_without_value_restrictio, + empty_without_value_restrictio, + empty_without_value_restrictio]; if(typeof lower_bound === "number") - var match=[0,empty_without_value_restriction,t]; + var match=[0,empty_without_value_restrictio,t]; else if(0 === lower_bound[0]) var @@ -51391,7 +53735,7 @@ if(typeof upper_bound === "number") var match$0= - [0,mid_and_right,empty_without_value_restriction]; + [0,mid_and_right,empty_without_value_restrictio]; else if(0 === upper_bound[0]) var @@ -51475,15 +53819,13 @@ else {if(0 === param$0[0]) {var d=param$0[2],k=param$0[1];return [0,[0,k,d]]} - var _m__=param$0[1]; - if(typeof _m__ === "number") + var _m8_=param$0[1]; + if(typeof _m8_ === "number") {var d$0=param$0[3],k$0=param$0[2];return [0,[0,k$0,d$0]]} - var param$0=_m__; + var param$0=_m8_; continue}}, Map_min_elt_exn_of_empty_map= - [248, - cst_Base_Map_Tree0_Map_min_elt_exn_of_empty_map, - caml_fresh_oo_id(0)], + [248,cst_Base_Map_Tree0_Map_min_elt,caml_fresh_oo_id(0)], _es_= function(param) {if(param === Map_min_elt_exn_of_empty_map)return _et_; @@ -51492,9 +53834,7 @@ (Sexplib0_Sexp_conv[51][2],0,Map_min_elt_exn_of_empty_map,_es_); var Map_max_elt_exn_of_empty_map= - [248, - cst_Base_Map_Tree0_Map_max_elt_exn_of_empty_map, - caml_fresh_oo_id(0)], + [248,cst_Base_Map_Tree0_Map_max_elt,caml_fresh_oo_id(0)], _ev_= function(param) {if(param === Map_max_elt_exn_of_empty_map)return _ew_; @@ -51516,9 +53856,9 @@ else {if(0 === param$0[0]) {var d=param$0[2],k=param$0[1];return [0,[0,k,d]]} - var _m7_=param$0[4],_m8_=param$0[3],_m9_=param$0[2]; - if(typeof _m7_ === "number")return [0,[0,_m9_,_m8_]]; - var param$0=_m7_; + var _m5_=param$0[4],_m6_=param$0[3],_m7_=param$0[2]; + if(typeof _m5_ === "number")return [0,[0,_m7_,_m6_]]; + var param$0=_m5_; continue}}, max_elt_exn$2= function(t) @@ -51531,10 +53871,10 @@ return caml_call1(invalid_arg$0,cst_Map_remove_min_elt); else {if(0 === t[0])return 0; - var _m6_=t[1]; - if(typeof _m6_ === "number"){var r=t[4];return r} + var _m4_=t[1]; + if(typeof _m4_ === "number"){var r=t[4];return r} var r$0=t[4],d=t[3],x=t[2]; - return bal$0(remove_min_elt$0(_m6_),x,d,r$0)}}, + return bal$0(remove_min_elt$0(_m4_),x,d,r$0)}}, append$2= function(lower_part,upper_part,compare_key) {var @@ -51543,9 +53883,9 @@ if(match) {if(match$0) {var - _m5_=match$0[1], - v=_m5_[2], - min_upper=_m5_[1], + _m3_=match$0[1], + v=_m3_[2], + min_upper=_m3_[1], match$1=match[1], max_lower=match$1[1]; if @@ -51568,9 +53908,13 @@ else {if(0 === t$0[0]) {var d=t$0[2],k=t$0[1]; - if(! caml_call2(symbol$78,caml_call2(compare_key,k,min),0)) - if(! caml_call2(symbol$82,caml_call2(compare_key,k,max),0)) - return caml_call3(f,k,d,init$0); + if + (! + caml_call2(symbol$78,caml_call2(compare_key,k,min),0) + && + ! + caml_call2(symbol$82,caml_call2(compare_key,k,max),0)) + return caml_call3(f,k,d,init$0); return init$0} var r=t$0[4], @@ -51645,7 +53989,7 @@ r$0=match$0[1]; return [0,bal$0(l,v$0,d,r$0),length$1]}}, Change_no_op= - [248,cst_Base_Map_Tree0_Change_no_op,caml_fresh_oo_id(0)], + [248,cst_Base_Map_Tree0_Change_no_o,caml_fresh_oo_id(0)], change= function(t,key,f,length,compare_key) {function change_core(t,key,f) @@ -51697,11 +54041,11 @@ r$1=match$5[1]; return [0,bal$0(l$0,v$0,d$1,r$1),length$3]}} try - {var _m3_=change_core(t,key,f);return _m3_} - catch(_m4_) - {_m4_ = caml_wrap_exception(_m4_); - if(_m4_ === Change_no_op)return [0,t,length]; - throw _m4_}}, + {var _m1_=change_core(t,key,f);return _m1_} + catch(_m2_) + {_m2_ = caml_wrap_exception(_m2_); + if(_m2_ === Change_no_op)return [0,t,length]; + throw _m2_}}, remove_multi= function(t,key,length,compare_key) {return change @@ -51709,8 +54053,8 @@ key, function(param) {if(param) - {var _m1_=param[1]; - if(_m1_){var _m2_=_m1_[2];if(_m2_)return [0,_m2_]}} + {var _mZ_=param[1]; + if(_mZ_){var _m0_=_mZ_[2];if(_m0_)return [0,_m0_]}} return 0}, length, compare_key)}, @@ -51776,8 +54120,8 @@ return 1}}, iteri_until= function(t,f) - {var _m0_=iteri_until_loop(t,f); - return caml_call1(Finished_or_unfinished[5],_m0_)}, + {var _mY_=iteri_until_loop(t,f); + return caml_call1(Finished_or_unfinished[5],_mY_)}, map$30= function(t,f) {if(typeof t === "number") @@ -52044,46 +54388,46 @@ symmetric_diff$2= function(t1,t2,compare_key,data_equal) {function step(state) - {var _mS_=state[1]; - if(_mS_) + {var _mQ_=state[1]; + if(_mQ_) {var - _mT_=state[2], - _mU_=_mS_[4], - _mV_=_mS_[3], - _mW_=_mS_[2], - _mX_=_mS_[1]; - if(_mT_) + _mR_=state[2], + _mS_=_mQ_[4], + _mT_=_mQ_[3], + _mU_=_mQ_[2], + _mV_=_mQ_[1]; + if(_mR_) {var - enum2=_mT_[4], - tree2=_mT_[3], - v2=_mT_[2], - k2=_mT_[1], - compare_result=caml_call2(compare_key,_mX_,k2); + enum2=_mR_[4], + tree2=_mR_[3], + v2=_mR_[2], + k2=_mR_[1], + compare_result=caml_call2(compare_key,_mV_,k2); if(caml_call2(symbol$81,compare_result,0)) - {if(_mV_ === tree2) - var next_state=[0,_mU_,enum2]; + {if(_mT_ === tree2) + var next_state=[0,_mS_,enum2]; else var - _mY_=cons$1(tree2,enum2), - next_state=[0,cons$1(_mV_,_mU_),_mY_]; - return caml_call2(data_equal,_mW_,v2) + _mW_=cons$1(tree2,enum2), + next_state=[0,cons$1(_mT_,_mS_),_mW_]; + return caml_call2(data_equal,_mU_,v2) ?[0,next_state] - :[1,[0,_mX_,[0,1013247643,[0,_mW_,v2]]],next_state]} + :[1,[0,_mV_,[0,1013247643,[0,_mU_,v2]]],next_state]} return caml_call2(symbol$78,compare_result,0) - ?[1,[0,_mX_,[0,847852583,_mW_]],[0,cons$1(_mV_,_mU_),_mT_]] - :[1,[0,k2,[0,-57574468,v2]],[0,_mS_,cons$1(tree2,enum2)]]} + ?[1,[0,_mV_,[0,847852583,_mU_]],[0,cons$1(_mT_,_mS_),_mR_]] + :[1,[0,k2,[0,-57574468,v2]],[0,_mQ_,cons$1(tree2,enum2)]]} return [1, - [0,_mX_,[0,847852583,_mW_]], - [0,cons$1(_mV_,_mU_),0]]} - var _mZ_=state[2]; - if(_mZ_) - {var enum$0=_mZ_[4],tree=_mZ_[3],data=_mZ_[2],key=_mZ_[1]; + [0,_mV_,[0,847852583,_mU_]], + [0,cons$1(_mT_,_mS_),0]]} + var _mX_=state[2]; + if(_mX_) + {var enum$0=_mX_[4],tree=_mX_[3],data=_mX_[2],key=_mX_[1]; return [1, [0,key,[0,-57574468,data]], [0,0,cons$1(tree,enum$0)]]} return 0} - var _mR_=of_tree$2(t2); - return [0,[0,of_tree$2(t1),_mR_],step]}, + var _mP_=of_tree$2(t2); + return [0,[0,of_tree$2(t1),_mP_],step]}, to_sequence$3= function (comparator, @@ -52110,8 +54454,8 @@ fold$1 (keys_greater_or_equal_to, t$3, - function(_mP_,_mQ_) - {return inclusive_bound(get_data,_mP_,_mQ_)}), + function(_mN_,_mO_) + {return inclusive_bound(get_data,_mN_,_mO_)}), next$0= function(enum$0) {if(enum$0) @@ -52123,7 +54467,7 @@ key$0=keys_less_or_equal_to[1], t$1=t$4, e$1=0, - _mM_=comparator[1]; + _mK_=comparator[1]; for(;;) {if(typeof t$1 === "number") var init$0=e$1; @@ -52132,7 +54476,7 @@ {var d$1=t$1[2],v$1=t$1[1],t$2=[1,0,v$1,d$1,0,1],t$1=t$2; continue} var r$0=t$1[4],d$2=t$1[3],v$2=t$1[2],l$0=t$1[1]; - if(caml_call2(symbol$82,caml_call2(_mM_,v$2,key$0),0)) + if(caml_call2(symbol$82,caml_call2(_mK_,v$2,key$0),0)) {var t$1=l$0;continue} var e$2=[0,v$2,d$2,l$0,e$1],t$1=r$0,e$1=e$2; continue} @@ -52145,8 +54489,8 @@ fold$1 (keys_less_or_equal_to, t$3, - function(_mN_,_mO_) - {return inclusive_bound(get_key,_mN_,_mO_)}); + function(_mL_,_mM_) + {return inclusive_bound(get_key,_mL_,_mM_)}); function next(enum$0) {if(enum$0) {var e=enum$0[4],t=enum$0[3],v=enum$0[2],k=enum$0[1]; @@ -52157,7 +54501,7 @@ key=keys_greater_or_equal_to[1], t=t$5, e=0, - _mL_=comparator[1]; + _mJ_=comparator[1]; for(;;) {if(typeof t === "number") var init=e; @@ -52165,7 +54509,7 @@ {if(0 === t[0]) {var d=t[2],v=t[1],t$0=[1,0,v,d,0,1],t=t$0;continue} var r=t[4],d$0=t[3],v$0=t[2],l=t[1]; - if(caml_call2(symbol$78,caml_call2(_mL_,v$0,key),0)) + if(caml_call2(symbol$78,caml_call2(_mJ_,v$0,key),0)) {var t=r;continue} var e$0=[0,v$0,d$0,r,e],t=l,e=e$0; continue} @@ -52220,29 +54564,29 @@ r1=t1[3], d1=t1[2], v1=t1[1], - _mI_=caml_call2(symbol$81,caml_call2(compare_key,v1,v2),0); - if(_mI_) - {var _mJ_=caml_call2(compare_data,d1,d2); - if(_mJ_) + _mG_=caml_call2(symbol$81,caml_call2(compare_key,v1,v2),0); + if(_mG_) + {var _mH_=caml_call2(compare_data,d1,d2); + if(_mH_) {if(r1 === r2){var t1=e1,t2=e2;continue} var t2$0=cons$1(r2,e2),t1$0=cons$1(r1,e1),t1=t1$0,t2=t2$0; continue} - var _mK_=_mJ_} + var _mI_=_mH_} else - var _mK_=_mI_; - return _mK_}} + var _mI_=_mG_; + return _mI_}} else if(! t2)return 1; return 0}}, iter2$3= function(t1,t2,f,compare_key) - {function _mG_(key,data,param){return caml_call2(f,key,data)} - var _mH_=of_tree$2(t2); - return fold2$0(compare_key,of_tree$2(t1),_mH_,0,_mG_)}, + {function _mE_(key,data,param){return caml_call2(f,key,data)} + var _mF_=of_tree$2(t2); + return fold2$0(compare_key,of_tree$2(t1),_mF_,0,_mE_)}, fold2$1= function(t1,t2,init,f,compare_key) - {var _mF_=of_tree$2(t2); - return fold2$0(compare_key,of_tree$2(t1),_mF_,init,f)}, + {var _mD_=of_tree$2(t2); + return fold2$0(compare_key,of_tree$2(t1),_mD_,init,f)}, fold_symmetric_diff= function(t1,t2,compare_key,data_equal,init,f) {function add(acc,k,v) @@ -52257,108 +54601,105 @@ {var t$2=t$0,t$1=t,acc$4=acc$3; for(;;) {if(t$2 === t$1)return acc$4; + var switch$0=0; if(typeof t$2 === "number") return fold$11 (t$1,acc$4,function(key,data,acc){return add(acc,key,data)}); else if(0 === t$2[0]) - {var _mz_=t$2[2],_mA_=t$2[1]; + {var _mx_=t$2[2],_my_=t$2[1]; if(typeof t$1 === "number") - var switch$0=0; + switch$0 = 1; else - {if(0 === t$1[0]) - {var v=t$1[2],k=t$1[1],x=caml_call2(compare_key,_mA_,k); - if(caml_call2(symbol$81,x,0)) - return delta(acc$4,_mA_,_mz_,v); - if(caml_call2(symbol$78,x,0)) - {var acc$5=remove(acc$4,_mA_,_mz_);return add(acc$5,k,v)} - var acc$6=add(acc$4,k,v); - return remove(acc$6,_mA_,_mz_)} - var switch$0=1}} + if(0 === t$1[0]) + {var v=t$1[2],k=t$1[1],x=caml_call2(compare_key,_my_,k); + if(caml_call2(symbol$81,x,0)) + return delta(acc$4,_my_,_mx_,v); + if(caml_call2(symbol$78,x,0)) + {var acc$5=remove(acc$4,_my_,_mx_);return add(acc$5,k,v)} + var acc$6=add(acc$4,k,v); + return remove(acc$6,_my_,_mx_)}} else - {var _mD_=t$2[2],_mB_=t$2[4],_mC_=t$2[3],_mE_=t$2[1]; + {var _mB_=t$2[2],_mz_=t$2[4],_mA_=t$2[3],_mC_=t$2[1]; if(typeof t$1 === "number") - var switch$0=0; + switch$0 = 1; else - if(0 === t$1[0]) - var switch$0=1; - else + if(0 !== t$1[0]) {var r=t$1[4],v$0=t$1[3],k$0=t$1[2],l=t$1[1]; - if(caml_call2(symbol$81,caml_call2(compare_key,_mD_,k$0),0)) + if(caml_call2(symbol$81,caml_call2(compare_key,_mB_,k$0),0)) {var - acc$7=loop(_mE_,l,acc$4), - acc$8=delta(acc$7,_mD_,_mC_,v$0), - t$2=_mB_, + acc$7=loop(_mC_,l,acc$4), + acc$8=delta(acc$7,_mB_,_mA_,v$0), + t$2=_mz_, t$1=r, acc$4=acc$8; - continue} - var switch$0=1}} + continue}}} if(switch$0) - {var - add$0= - function(acc,k,v) - {return caml_call2(f,acc,[0,k,[0,-57574468,v]])}, - remove$0= - function(acc,k,v) - {return caml_call2(f,acc,[0,k,[0,847852583,v]])}, - right$2=of_tree$2(t$1), - left$2=of_tree$2(t$2), - left=left$2, - right=right$2, - acc=acc$4; - for(;;) - {if(left) - {if(right) + return fold$11 + (t$2, + acc$4, + function(key,data,acc){return remove(acc,key,data)}); + var + add$0= + function(acc,k,v) + {return caml_call2(f,acc,[0,k,[0,-57574468,v]])}, + remove$0= + function(acc,k,v) + {return caml_call2(f,acc,[0,k,[0,847852583,v]])}, + right$2=of_tree$2(t$1), + left$2=of_tree$2(t$2), + left=left$2, + right=right$2, + acc=acc$4; + for(;;) + {if(left) + {if(right) + {var + enum2=right[4], + tree2=right[3], + v2=right[2], + k2=right[1], + enum1=left[4], + tree1=left[3], + v1=left[2], + k1=left[1], + compare_result=caml_call2(compare_key,k1,k2); + if(caml_call2(symbol$81,compare_result,0)) {var - enum2=right[4], - tree2=right[3], - v2=right[2], - k2=right[1], - enum1=left[4], - tree1=left[3], - v1=left[2], - k1=left[1], - compare_result=caml_call2(compare_key,k1,k2); - if(caml_call2(symbol$81,compare_result,0)) - {var - acc$0= - caml_call2(data_equal,v1,v2) - ?acc - :caml_call2(f,acc,[0,k1,[0,1013247643,[0,v1,v2]]]); - if(tree1 === tree2) - {var left=enum1,right=enum2,acc=acc$0;continue} - var - right$0=cons$1(tree2,enum2), - left$0=cons$1(tree1,enum1), - left=left$0, - right=right$0, - acc=acc$0; - continue} - if(caml_call2(symbol$78,compare_result,0)) - {var - acc$1=remove$0(acc,k1,v1), - left$1=cons$1(tree1,enum1), - left=left$1, - acc=acc$1; - continue} + acc$0= + caml_call2(data_equal,v1,v2) + ?acc + :caml_call2(f,acc,[0,k1,[0,1013247643,[0,v1,v2]]]); + if(tree1 === tree2) + {var left=enum1,right=enum2,acc=acc$0;continue} var - acc$2=add$0(acc,k2,v2), - right$1=cons$1(tree2,enum2), - right=right$1, - acc=acc$2; + right$0=cons$1(tree2,enum2), + left$0=cons$1(tree1,enum1), + left=left$0, + right=right$0, + acc=acc$0; + continue} + if(caml_call2(symbol$78,compare_result,0)) + {var + acc$1=remove$0(acc,k1,v1), + left$1=cons$1(tree1,enum1), + left=left$1, + acc=acc$1; continue} - return fold$12 - (acc, - function(key,data,acc){return remove$0(acc,key,data)}, - left)} + var + acc$2=add$0(acc,k2,v2), + right$1=cons$1(tree2,enum2), + right=right$1, + acc=acc$2; + continue} return fold$12 (acc, - function(key,data,acc){return add$0(acc,key,data)}, - right)}} - return fold$11 - (t$2, - acc$4, - function(key,data,acc){return remove(acc,key,data)})}} + function(key,data,acc){return remove$0(acc,key,data)}, + left)} + return fold$12 + (acc, + function(key,data,acc){return add$0(acc,key,data)}, + right)}}} return loop(t1,t2,init)}, length$16= function(param) @@ -52366,8 +54707,8 @@ return 0; else {if(0 === param[0])return 1; - var r=param[4],l=param[1],_my_=length$16(r); - return (length$16(l) + _my_ | 0) + 1 | 0}}, + var r=param[4],l=param[1],_mw_=length$16(r); + return (length$16(l) + _mw_ | 0) + 1 | 0}}, keys= function(t) {return fold_right$4 @@ -52379,10 +54720,10 @@ Of_foldable= function(M) {function of_foldable_fold(foldable,init,f,compare_key) - {function _mw_(param,_mx_) + {function _mu_(param,_mv_) {var - data=_mx_[2], - key=_mx_[1], + data=_mv_[2], + key=_mv_[1], length=param[2], accum=param[1], match=find$10(accum,key,compare_key); @@ -52393,12 +54734,12 @@ var data$0=caml_call2(f,prev_data,data); return set$4(accum,length,key,data$0,compare_key)} return caml_call3 - (M[2],foldable,[0,empty_without_value_restriction,0],_mw_)} + (M[2],foldable,[0,empty_without_value_restrictio,0],_mu_)} function of_foldable_reduce(foldable,f,compare_key) - {function _mu_(param,_mv_) + {function _ms_(param,_mt_) {var - data=_mv_[2], - key=_mv_[1], + data=_mt_[2], + key=_mt_[1], length=param[2], accum=param[1], match=find$10(accum,key,compare_key); @@ -52408,14 +54749,14 @@ var new_data=data; return set$4(accum,length,key,new_data,compare_key)} return caml_call3 - (M[2],foldable,[0,empty_without_value_restriction,0],_mu_)} + (M[2],foldable,[0,empty_without_value_restrictio,0],_ms_)} function of_foldable(foldable,compare_key) {return with_return (function(r) - {function _ms_(param,_mt_) + {function _mq_(param,_mr_) {var - data=_mt_[2], - key=_mt_[1], + data=_mr_[2], + key=_mr_[1], length=param[2], t=param[1], acc=set$4(t,length,key,data,compare_key), @@ -52426,12 +54767,12 @@ var map= caml_call3 - (M[2],foldable,[0,empty_without_value_restriction,0],_ms_); + (M[2],foldable,[0,empty_without_value_restrictio,0],_mq_); return [0,17724,map]})} function of_foldable_or_error(foldable,comparator) {var match=of_foldable(foldable,comparator[1]); if(17724 <= match[1]){var x=match[2];return [0,x]} - var key=match[2],_mr_=comparator[2]; + var key=match[2],_mp_=comparator[2]; return error$0 (0, caml_call2 @@ -52439,11 +54780,11 @@ cst_Map_of, caml_call2(symbol$77,M[1],cst_or_error_duplicate_key)), key, - _mr_)} + _mp_)} function of_foldable_exn(foldable,comparator) {var match=of_foldable(foldable,comparator[1]); if(17724 <= match[1]){var x=match[2];return x} - var key=match[2],_mq_=comparator[2]; + var key=match[2],_mo_=comparator[2]; return raise (create$1 (0, @@ -52453,7 +54794,7 @@ cst_Map_of$0, caml_call2(symbol$77,M[1],cst_exn_duplicate_key)), key, - _mq_))} + _mo_))} return [0, of_foldable_fold, of_foldable_reduce, @@ -52496,8 +54837,8 @@ {iter$15 (t, function(data) - {var _mp_=1 - caml_call1(f,data); - return _mp_?caml_call1(r,0):_mp_}); + {var _mn_=1 - caml_call1(f,data); + return _mn_?caml_call1(r,0):_mn_}); return 1})}, for_alli$4= function(t,f) @@ -52506,8 +54847,8 @@ {iteri$5 (t, function(key,data) - {var _mo_=1 - caml_call2(f,key,data); - return _mo_?caml_call1(r,0):_mo_}); + {var _mm_=1 - caml_call2(f,key,data); + return _mm_?caml_call1(r,0):_mm_}); return 1})}, exists$10= function(t,f) @@ -52516,8 +54857,8 @@ {iter$15 (t, function(data) - {var _mn_=caml_call1(f,data); - return _mn_?caml_call1(r,1):_mn_}); + {var _ml_=caml_call1(f,data); + return _ml_?caml_call1(r,1):_ml_}); return 0})}, existsi$4= function(t,f) @@ -52526,8 +54867,8 @@ {iteri$5 (t, function(key,data) - {var _mm_=caml_call2(f,key,data); - return _mm_?caml_call1(r,1):_mm_}); + {var _mk_=caml_call2(f,key,data); + return _mk_?caml_call1(r,1):_mk_}); return 0})}, count$9= function(t,f) @@ -52557,8 +54898,8 @@ merge$3= function(t1,t2,f,compare_key) {var - _ml_=length$16(t2), - elts=caml_make_vect(length$16(t1) + _ml_ | 0,0), + _mj_=length$16(t2), + elts=caml_make_vect(length$16(t1) + _mj_ | 0,0), i=[0,0]; iter2$3 (t1, @@ -52573,7 +54914,7 @@ compare_key); var len=i[1]; function get(i){return get$3(elts,i)} - var tree=of_increasing_iterator_unchecked$4(len,get); + var tree=of_increasing_iterator_uncheck$4(len,get); return [0,tree,len]}, repackage= function(marker,k,v){return 0 === marker?0:[0,[0,k,v]]}, @@ -52589,7 +54930,7 @@ v=t[2], k=t[1], c=caml_call2(compare_key,k,k$1), - _mk_= + _mi_= 521507869 <= dir ?927731004 <= dir ?caml_call2(symbol$79,c,0) @@ -52597,7 +54938,7 @@ :-640801497 <= dir ?caml_call2(symbol$78,c,0) :caml_call2(symbol$82,c,0); - return _mk_ + return _mi_ ?[0,[0,k,v]] :repackage(found_marker,found_key,found_value)} var @@ -52616,13 +54957,12 @@ :is_empty$9(r) ?repackage(found_marker,found_key,found_value) :min_elt$10(r); - if(-640801497 !== dir) - if(! (927731004 <= dir)) - {if(caml_call2(symbol$82,c$0,0)) - {var t=l,found_marker=1,found_key=k$0,found_value=v$0; - continue} - var t=r; - continue} + if(-640801497 !== dir && ! (927731004 <= dir)) + {if(caml_call2(symbol$82,c$0,0)) + {var t=l,found_marker=1,found_key=k$0,found_value=v$0; + continue} + var t=r; + continue} if(caml_call2(symbol$78,c$0,0)) {var t=r,found_marker=1,found_key=k$0,found_value=v$0; continue} @@ -52648,9 +54988,9 @@ if(caml_call2(symbol$81,c,0))return [0,length$16(l)]; if(caml_call2(symbol$82,c,0)){var t$0=l;continue} var - _mj_= + _mh_= function(rank){return (rank + 1 | 0) + length$16(l) | 0}; - return caml_call2(map$15,rank(r,k,compare_key),_mj_)}}, + return caml_call2(map$15,rank(r,k,compare_key),_mh_)}}, nth$4= function(num_to_search,param) {var param$0=param; @@ -52771,7 +55111,7 @@ :find_first_satisfying$1(t,is_right)}, of_iteri= function(iteri,compare_key) - {var acc=[0,0,[0,empty_without_value_restriction,0]]; + {var acc=[0,0,[0,empty_without_value_restrictio,0]]; caml_call1 (iteri, function(key,data) @@ -52781,12 +55121,12 @@ map=match[1], pair=set$4(map,length,key,data,compare_key), length$0=pair[2]; - if(caml_call2(symbol$81,length,length$0)) - if(is_none(acc[1])){acc[1] = [0,key];return 0} + if(caml_call2(symbol$81,length,length$0) && is_none(acc[1])) + {acc[1] = [0,key];return 0} acc[2] = pair; return 0}); - var _mi_=acc[1]; - if(_mi_){var key=_mi_[1];return [0,-1048878709,key]} + var _mg_=acc[1]; + if(_mg_){var key=_mg_[1];return [0,-1048878709,key]} return [0,17724,acc[2]]}, t_of_sexp_direct$2= function(key_of_sexp,value_of_sexp,sexp,comparator) @@ -52800,49 +55140,47 @@ match=caml_call2(of_alist,alist,compare_key); if(17724 <= match[1]){var v=match[2];return v} var k=match[2]; - function _mc_(_mh_){return _mh_} + function _ma_(_mf_){return _mf_} var alist_sexps= caml_call2 (t_of_sexp$10, - caml_call2(pair_of_sexp,function(_mg_){return _mg_},_mc_), + caml_call2(pair_of_sexp,function(_me_){return _me_},_ma_), sexp), found_first_k=[0,0]; iter2_ok (alist, alist_sexps, - function(param,_md_) + function(param,_mb_) {var - k2_sexp=_md_[1], + k2_sexp=_mb_[1], k2=param[1], - _me_=caml_call2(symbol$81,caml_call2(compare_key,k,k2),0); - if(_me_) + _mc_=caml_call2(symbol$81,caml_call2(compare_key,k,k2),0); + if(_mc_) {if(found_first_k[1]) return caml_call2 - (of_sexp_error, - cst_Map_t_of_sexp_direct_duplicate_key, - k2_sexp); + (of_sexp_error,cst_Map_t_of_sexp_direct_dupli,k2_sexp); found_first_k[1] = 1; - var _mf_=0} + var _md_=0} else - var _mf_=_me_; - return _mf_}); + var _md_=_mc_; + return _md_}); throw [0,Assert_failure,_eF_]}, sexp_of_t$53= function(sexp_of_key,sexp_of_value,t) {function f(key,data,acc) - {var _mb_=[0,caml_call1(sexp_of_value,data),0]; - return [0,[1,[0,caml_call1(sexp_of_key,key),_mb_]],acc]} + {var _l$_=[0,caml_call1(sexp_of_value,data),0]; + return [0,[1,[0,caml_call1(sexp_of_key,key),_l$_]],acc]} return [1,fold_right$4(t,0,f)]}, compare_key=function(t){return t[1][1]}, like$0= - function(param,_ma_) - {var length=_ma_[2],tree=_ma_[1],comparator=param[1]; + function(param,_l__) + {var length=_l__[2],tree=_l__[1],comparator=param[1]; return [0,comparator,tree,length]}, like2= function(x,param) - {var z=param[2],y=param[1],_l$_=like$0(x,z); - return [0,like$0(x,y),_l$_]}, + {var z=param[2],y=param[1],_l9_=like$0(x,z); + return [0,like$0(x,y),_l9_]}, with_same_length= function(param,tree) {var length=param[3],comparator=param[1]; @@ -52854,59 +55192,59 @@ to_tree$2=function(t){return t[2]}, invariants$3= function(t) - {var _l__=compare_key(t);return invariants$2(t[2],_l__)}, + {var _l8_=compare_key(t);return invariants$2(t[2],_l8_)}, is_empty$10=function(t){return is_empty$9(t[2])}, length$17=function(t){return t[3]}, set$6= function(t,key,data) - {var _l9_=compare_key(t); - return like$0(t,set$4(t[2],t[3],key,data,_l9_))}, + {var _l7_=compare_key(t); + return like$0(t,set$4(t[2],t[3],key,data,_l7_))}, add_exn$0= function(t,key,data) - {var _l7_=t[1][2],_l8_=compare_key(t); - return like$0(t,add_exn(t[2],t[3],key,data,_l8_,_l7_))}, + {var _l5_=t[1][2],_l6_=compare_key(t); + return like$0(t,add_exn(t[2],t[3],key,data,_l6_,_l5_))}, add_exn_internal= function(t,key,data) - {var _l6_=t[1][2],compare_key$0=compare_key(t); + {var _l4_=t[1][2],compare_key$0=compare_key(t); return like$0 (t, - find_and_add_or_set(t[2],t[3],key,data,compare_key$0,_l6_,0))}, + find_and_add_or_set(t[2],t[3],key,data,compare_key$0,_l4_,0))}, add$4= function(t,key,data) {try {var result=add_exn_internal(t,key,data)} - catch(_l5_) - {_l5_ = caml_wrap_exception(_l5_); - if(_l5_ === Duplicate)return -1024851605; - throw _l5_} + catch(_l3_) + {_l3_ = caml_wrap_exception(_l3_); + if(_l3_ === Duplicate)return -1024851605; + throw _l3_} return [0,17724,result]}, add_multi$0= function(t,key,data) - {var _l4_=compare_key(t); - return like$0(t,add_multi(t[2],t[3],key,data,_l4_))}, + {var _l2_=compare_key(t); + return like$0(t,add_multi(t[2],t[3],key,data,_l2_))}, remove_multi$0= function(t,key) - {var _l3_=compare_key(t); - return like$0(t,remove_multi(t[2],key,t[3],_l3_))}, + {var _l1_=compare_key(t); + return like$0(t,remove_multi(t[2],key,t[3],_l1_))}, find_multi$0= function(t,key) - {var _l2_=compare_key(t);return find_multi(t[2],key,_l2_)}, + {var _l0_=compare_key(t);return find_multi(t[2],key,_l0_)}, change$0= function(t,key,f) - {var _l1_=compare_key(t); - return like$0(t,change(t[2],key,f,t[3],_l1_))}, + {var _lZ_=compare_key(t); + return like$0(t,change(t[2],key,f,t[3],_lZ_))}, update= function(t,key,f) - {var compare_key$0=compare_key(t),_lZ_=t[3],_l0_=t[2]; + {var compare_key$0=compare_key(t),_lX_=t[3],_lY_=t[2]; function update_core(t,key,f) {if(typeof t === "number") {var data=caml_call1(f,0); - return [0,[0,key,data],_lZ_ + 1 | 0]} + return [0,[0,key,data],_lX_ + 1 | 0]} else {if(0 === t[0]) {var d=t[2],v=t[1],c=caml_call2(compare_key$0,key,v); if(caml_call2(symbol$81,c,0)) - {var d$0=caml_call1(f,[0,d]);return [0,[0,v,d$0],_lZ_]} + {var d$0=caml_call1(f,[0,d]);return [0,[0,v,d$0],_lX_]} if(caml_call2(symbol$78,c,0)) {var match=update_core(0,key,f),length=match[2],l=match[1]; return [0,bal$0(l,v,d,0),length]} @@ -52924,7 +55262,7 @@ c$0=caml_call2(compare_key$0,key,v$0); if(caml_call2(symbol$81,c$0,0)) {var data$0=caml_call1(f,[0,d$1]); - return [0,[1,l$0,key,data$0,r$0,h],_lZ_]} + return [0,[1,l$0,key,data$0,r$0,h],_lX_]} if(caml_call2(symbol$78,c$0,0)) {var match$1=update_core(l$0,key,f), @@ -52936,28 +55274,28 @@ length$2=match$2[2], r$1=match$2[1]; return [0,bal$0(l$0,v$0,d$1,r$1),length$2]}} - return like$0(t,update_core(_l0_,key,f))}, + return like$0(t,update_core(_lY_,key,f))}, find_exn$7= function(t,key) - {var _lX_=t[1][2],_lY_=compare_key(t); - return find_exn$6(t[2],key,_lY_,_lX_)}, + {var _lV_=t[1][2],_lW_=compare_key(t); + return find_exn$6(t[2],key,_lW_,_lV_)}, find$11= function(t,key) - {var _lW_=compare_key(t);return find$10(t[2],key,_lW_)}, + {var _lU_=compare_key(t);return find$10(t[2],key,_lU_)}, remove$4= function(t,key) - {var _lV_=compare_key(t); - return like$0(t,remove$3(t[2],key,t[3],_lV_))}, + {var _lT_=compare_key(t); + return like$0(t,remove$3(t[2],key,t[3],_lT_))}, mem$10= function(t,key) - {var _lU_=compare_key(t);return mem$9(t[2],key,_lU_)}, + {var _lS_=compare_key(t);return mem$9(t[2],key,_lS_)}, iter_keys$0=function(t,f){return iter_keys(t[2],f)}, iter$16=function(t,f){return iter$15(t[2],f)}, iteri$6=function(t,f){return iteri$5(t[2],f)}, iteri_until$0=function(t,f){return iteri_until(t[2],f)}, iter2$4= function(t1,t2,f) - {var _lT_=compare_key(t1);return iter2$3(t1[2],t2[2],f,_lT_)}, + {var _lR_=compare_key(t1);return iter2$3(t1[2],t2[2],f,_lR_)}, map$31=function(t,f){return with_same_length(t,map$30(t[2],f))}, mapi$7=function(t,f){return with_same_length(t,mapi$6(t[2],f))}, fold$13=function(t,init,f){return fold$11(t[2],init,f)}, @@ -52965,52 +55303,52 @@ function(t,init,f){return fold_right$4(t[2],init,f)}, fold2$2= function(t1,t2,init,f) - {var _lS_=compare_key(t1); - return fold2$1(t1[2],t2[2],init,f,_lS_)}, + {var _lQ_=compare_key(t1); + return fold2$1(t1[2],t2[2],init,f,_lQ_)}, filter_keys$0= function(t,f) - {var _lR_=compare_key(t); - return like$0(t,filter_keys(t[2],f,_lR_))}, + {var _lP_=compare_key(t); + return like$0(t,filter_keys(t[2],f,_lP_))}, filter$9= function(t,f) - {var _lQ_=compare_key(t); - return like$0(t,filter$8(t[2],f,_lQ_))}, + {var _lO_=compare_key(t); + return like$0(t,filter$8(t[2],f,_lO_))}, filteri$4= function(t,f) - {var _lP_=compare_key(t); - return like$0(t,filteri$3(t[2],f,_lP_))}, + {var _lN_=compare_key(t); + return like$0(t,filteri$3(t[2],f,_lN_))}, filter_map$9= function(t,f) - {var _lO_=compare_key(t); - return like$0(t,filter_map$8(t[2],f,_lO_))}, + {var _lM_=compare_key(t); + return like$0(t,filter_map$8(t[2],f,_lM_))}, filter_mapi$4= function(t,f) - {var _lN_=compare_key(t); - return like$0(t,filter_mapi$3(t[2],f,_lN_))}, + {var _lL_=compare_key(t); + return like$0(t,filter_mapi$3(t[2],f,_lL_))}, partition_mapi$0= function(t,f) - {var _lM_=compare_key(t); - return like2(t,partition_mapi(t[2],f,_lM_))}, + {var _lK_=compare_key(t); + return like2(t,partition_mapi(t[2],f,_lK_))}, partition_map$1= function(t,f) - {var _lL_=compare_key(t); - return like2(t,partition_map$0(t[2],f,_lL_))}, + {var _lJ_=compare_key(t); + return like2(t,partition_map$0(t[2],f,_lJ_))}, partitioni_tf$1= function(t,f) - {var _lK_=compare_key(t); - return like2(t,partitioni_tf$0(t[2],f,_lK_))}, + {var _lI_=compare_key(t); + return like2(t,partitioni_tf$0(t[2],f,_lI_))}, partition_tf$5= function(t,f) - {var _lJ_=compare_key(t); - return like2(t,partition_tf$4(t[2],f,_lJ_))}, + {var _lH_=compare_key(t); + return like2(t,partition_tf$4(t[2],f,_lH_))}, compare_direct$1= function(compare_data,t1,t2) - {var _lH_=t2[2],_lI_=t1[2]; - return compare$56(compare_key(t1),compare_data,_lI_,_lH_)}, + {var _lF_=t2[2],_lG_=t1[2]; + return compare$56(compare_key(t1),compare_data,_lG_,_lF_)}, equal$40= function(compare_data,t1,t2) - {var _lF_=t2[2],_lG_=t1[2]; - return equal$39(compare_key(t1),compare_data,_lG_,_lF_)}, + {var _lD_=t2[2],_lE_=t1[2]; + return equal$39(compare_key(t1),compare_data,_lE_,_lD_)}, keys$0=function(t){return keys(t[2])}, data$0=function(t){return data(t[2])}, to_alist$0= @@ -53019,17 +55357,17 @@ function(name,f,t){return alist(name,f,to_alist$0(0,t))}, symmetric_diff$3= function(t1,t2,data_equal) - {var _lE_=compare_key(t1); - return symmetric_diff$2(t1[2],t2[2],_lE_,data_equal)}, + {var _lC_=compare_key(t1); + return symmetric_diff$2(t1[2],t2[2],_lC_,data_equal)}, fold_symmetric_diff$0= function(t1,t2,data_equal,init,f) - {var _lD_=compare_key(t1); + {var _lB_=compare_key(t1); return fold_symmetric_diff - (t1[2],t2[2],_lD_,data_equal,init,f)}, + (t1[2],t2[2],_lB_,data_equal,init,f)}, merge$4= function(t1,t2,f) - {var _lC_=compare_key(t1); - return like$0(t1,merge$3(t1[2],t2[2],f,_lC_))}, + {var _lA_=compare_key(t1); + return like$0(t1,merge$3(t1[2],t2[2],f,_lA_))}, min_elt$11=function(t){return min_elt$10(t[2])}, min_elt_exn$3=function(t){return min_elt_exn$2(t[2])}, max_elt$11=function(t){return max_elt$10(t[2])}, @@ -53043,15 +55381,15 @@ split$5= function(t,k) {var - _lA_=compare_key(t), - match=split$4(t[2],k,_lA_), + _ly_=compare_key(t), + match=split$4(t[2],k,_ly_), r=match[3], maybe=match[2], l=match[1], comparator=t[1], both_len=is_some(maybe)?t[3] - 1 | 0:t[3], - _lB_=height$0(r); - if(caml_call2(symbol$78,height$0(l),_lB_)) + _lz_=height$0(r); + if(caml_call2(symbol$78,height$0(l),_lz_)) {var l$0=of_tree$3(comparator,l); return [0,l$0,maybe,[0,comparator,r,both_len - l$0[3] | 0]]} var r$0=of_tree$3(comparator,r); @@ -53059,8 +55397,8 @@ subrange= function(t,lower_bound,upper_bound) {var - _lx_=compare_key(t), - match=split_range(t[2],lower_bound,upper_bound,_lx_), + _lv_=compare_key(t), + match=split_range(t[2],lower_bound,upper_bound,_lv_), right=match[3], mid=match[2], left=match[1], @@ -53072,16 +55410,16 @@ :caml_call2(max$12,h_l,h_r); if(caml_call2(symbol$78,outer_joined_height,height$0(mid))) {var - _ly_=length$16(right), - _lz_=length$16(left) + _ly_ | 0, - mid_length=t[3] - _lz_ | 0; + _lw_=length$16(right), + _lx_=length$16(left) + _lw_ | 0, + mid_length=t[3] - _lx_ | 0; return [0,t[1],mid,mid_length]} return of_tree$3(t[1],mid)}, append$3= function(lower_part,upper_part) {var - _lw_=compare_key(lower_part), - match=append$2(lower_part[2],upper_part[2],_lw_); + _lu_=compare_key(lower_part), + match=append$2(lower_part[2],upper_part[2],_lu_); if(typeof match === "number")return 838882908; var tree=match[2]; return [0, @@ -53089,21 +55427,21 @@ [0,lower_part[1],tree,lower_part[3] + upper_part[3] | 0]]}, fold_range_inclusive$0= function(t,min,max,init,f) - {var _lv_=compare_key(t); - return fold_range_inclusive(t[2],min,max,init,f,_lv_)}, + {var _lt_=compare_key(t); + return fold_range_inclusive(t[2],min,max,init,f,_lt_)}, range_to_alist$0= function(t,min,max) - {var _lu_=compare_key(t); - return range_to_alist(t[2],min,max,_lu_)}, + {var _ls_=compare_key(t); + return range_to_alist(t[2],min,max,_ls_)}, closest_key$0= function(t,dir,key) - {var _lt_=compare_key(t); - return closest_key(t[2],dir,key,_lt_)}, + {var _lr_=compare_key(t); + return closest_key(t[2],dir,key,_lr_)}, nth$6=function(t,n){return nth$5(t[2],n)}, nth_exn$1=function(t,n){return value_exn(0,0,0,nth$6(t,n))}, rank$0= function(t,key) - {var _ls_=compare_key(t);return rank(t[2],key,_ls_)}, + {var _lq_=compare_key(t);return rank(t[2],key,_lq_)}, sexp_of_t$54= function(sexp_of_k,sexp_of_v,param,t) {return sexp_of_t$53(sexp_of_k,sexp_of_v,t[2])}, @@ -53124,13 +55462,13 @@ {return binary_search_segmented$4(t[2],segment_of,how)}, hash_fold_direct$0= function(hash_fold_key,hash_fold_data,state,t) - {var _lr_=t[2]; - function _lq_(key,data,state) + {var _lp_=t[2]; + function _lo_(key,data,state) {return caml_call2 (hash_fold_data,caml_call2(hash_fold_key,state,key),data)} return fold$11 - (_lr_,caml_call2(hash_fold_t$4,state,length$16(_lr_)),_lq_)}, - empty$6=function(param){return empty_without_value_restriction}, + (_lp_,caml_call2(hash_fold_t$4,state,length$16(_lp_)),_lo_)}, + empty$6=function(param){return empty_without_value_restrictio}, of_tree$4=function(param,tree){return tree}, singleton$8=function(param,k,v){return [0,k,v]}, of_sorted_array_unchecked$5= @@ -53171,9 +55509,9 @@ if(17724 <= d[1]) {var match=d[2],tree=match[1];return [0,17724,tree]} return d}, - of_increasing_iterator_unchecked$5= + of_increasing_iterator_uncheck$5= function(required_by_intf,len,f) - {return of_increasing_iterator_unchecked$4(len,f)}, + {return of_increasing_iterator_uncheck$4(len,f)}, of_increasing_sequence$0= function(comparator,seq) {return caml_call2 @@ -53217,9 +55555,9 @@ add$5= function(comparator,t,key,data) {try - {var _lo_=[0,17724,add_exn$1(comparator,t,key,data)]; - return _lo_} - catch(_lp_){return -1024851605}}, + {var _lm_=[0,17724,add_exn$1(comparator,t,key,data)]; + return _lm_} + catch(_ln_){return -1024851605}}, add_multi$1= function(comparator,t,key,data) {return add_multi(t,0,key,data,comparator[1])[1]}, @@ -53282,33 +55620,33 @@ partition_mapi$1= function(comparator,t,f) {var - _ln_=partition_mapi(t,f,comparator[1]), - b=_ln_[2][1], - match=_ln_[1], + _ll_=partition_mapi(t,f,comparator[1]), + b=_ll_[2][1], + match=_ll_[1], a=match[1]; return [0,a,b]}, partition_map$2= function(comparator,t,f) {var - _lm_=partition_map$0(t,f,comparator[1]), - b=_lm_[2][1], - match=_lm_[1], + _lk_=partition_map$0(t,f,comparator[1]), + b=_lk_[2][1], + match=_lk_[1], a=match[1]; return [0,a,b]}, partitioni_tf$2= function(comparator,t,f) {var - _ll_=partitioni_tf$0(t,f,comparator[1]), - b=_ll_[2][1], - match=_ll_[1], + _lj_=partitioni_tf$0(t,f,comparator[1]), + b=_lj_[2][1], + match=_lj_[1], a=match[1]; return [0,a,b]}, partition_tf$6= function(comparator,t,f) {var - _lk_=partition_tf$4(t,f,comparator[1]), - b=_lk_[2][1], - match=_lk_[1], + _li_=partition_tf$4(t,f,comparator[1]), + b=_li_[2][1], + match=_li_[1], a=match[1]; return [0,a,b]}, compare_direct$2= @@ -53397,7 +55735,7 @@ {return binary_search_segmented$4(t,segment_of,how)}, empty$7= function(comparator) - {return [0,comparator,empty_without_value_restriction,0]}, + {return [0,comparator,empty_without_value_restrictio,0]}, singleton$9= function(comparator,k,v){return [0,comparator,[0,k,v],1]}, of_tree0= @@ -53414,9 +55752,9 @@ of_sorted_array_unchecked$4(array,comparator[1]))}, of_sorted_array$6= function(comparator,array) - {function _lj_(tree){return of_tree0(comparator,tree)} + {function _lh_(tree){return of_tree0(comparator,tree)} return caml_call2 - (map$3,of_sorted_array$4(array,comparator[1]),_lj_)}, + (map$3,of_sorted_array$4(array,comparator[1]),_lh_)}, of_alist$1= function(comparator,alist) {var z=caml_call2(of_alist,alist,comparator[1]); @@ -53426,9 +55764,9 @@ return z}, of_alist_or_error$1= function(comparator,alist) - {function _li_(tree){return of_tree0(comparator,tree)} + {function _lg_(tree){return of_tree0(comparator,tree)} return caml_call2 - (map$3,caml_call2(of_alist_or_error,alist,comparator),_li_)}, + (map$3,caml_call2(of_alist_or_error,alist,comparator),_lg_)}, of_alist_exn$1= function(comparator,alist) {return of_tree0 @@ -53454,16 +55792,15 @@ {var tree_length=z[2]; return [0,17724,of_tree0(comparator,tree_length)]} return z}, - of_increasing_iterator_unchecked$6= + of_increasing_iterator_uncheck$6= function(comparator,len,f) {return of_tree0 - (comparator, - [0,of_increasing_iterator_unchecked$4(len,f),len])}, + (comparator,[0,of_increasing_iterator_uncheck$4(len,f),len])}, of_increasing_sequence$1= function(comparator,seq) - {function _lg_(_lh_){return of_tree0(comparator,_lh_)} + {function _le_(_lf_){return of_tree0(comparator,_lf_)} return caml_call2 - (map$3,of_increasing_sequence(seq,comparator[1]),_lg_)}, + (map$3,of_increasing_sequence(seq,comparator[1]),_le_)}, of_sequence$2= function(comparator,seq) {var z=caml_call2(of_sequence$0,seq,comparator[1]); @@ -53473,9 +55810,9 @@ return z}, of_sequence_or_error$1= function(comparator,seq) - {function _lf_(tree){return of_tree0(comparator,tree)} + {function _ld_(tree){return of_tree0(comparator,tree)} return caml_call2 - (map$3,caml_call2(of_sequence_or_error,seq,comparator),_lf_)}, + (map$3,caml_call2(of_sequence_or_error,seq,comparator),_ld_)}, of_sequence_exn$1= function(comparator,seq) {return of_tree0 @@ -53499,17 +55836,17 @@ {return of_tree0 (comparator, t_of_sexp_direct$2(k_of_sexp,v_of_sexp,sexp,comparator))}, - Empty_without_value_restriction$0= + Empty_without_value_restrictio$0= function(K) - {var empty=[0,K[1],empty_without_value_restriction,0]; + {var empty=[0,K[1],empty_without_value_restrictio,0]; return [0,empty]}, comparator_s$0= function(t){var comparator=t[1];return [0,comparator]}, empty$8=function(m){return empty$7(m[1])}, singleton$10= function(m,a) - {var _ld_=m[1]; - return function(_le_){return singleton$9(_ld_,a,_le_)}}, + {var _lb_=m[1]; + return function(_lc_){return singleton$9(_lb_,a,_lc_)}}, of_alist$2=function(m,a){return of_alist$1(m[1],a)}, of_alist_or_error$2= function(m,a){return of_alist_or_error$1(m[1],a)}, @@ -53524,9 +55861,9 @@ of_sorted_array$7= function(m,a){return of_sorted_array$6(m[1],a)}, of_iteri$2=function(m,iteri){return of_iteri$1(m[1],iteri)}, - of_increasing_iterator_unchecked$7= + of_increasing_iterator_uncheck$7= function(m,len,f) - {return of_increasing_iterator_unchecked$6(m[1],len,f)}, + {return of_increasing_iterator_uncheck$6(m[1],len,f)}, of_increasing_sequence$2= function(m,seq){return of_increasing_sequence$1(m[1],seq)}, of_sequence$3=function(m,s){return of_sequence$2(m[1],s)}, @@ -53543,8 +55880,8 @@ M$0=function(K){return [0]}, sexp_of_m_t$0= function(K,sexp_of_v,t) - {function _lc_(param){return _eG_} - return sexp_of_t$54(K[1],sexp_of_v,_lc_,t)}, + {function _la_(param){return _eG_} + return sexp_of_t$54(K[1],sexp_of_v,_la_,t)}, m_t_of_sexp$0= function(K,v_of_sexp,sexp) {return t_of_sexp_direct$4(K[2],K[1],v_of_sexp,sexp)}, @@ -53555,9 +55892,9 @@ function(K,equal_v,t1,t2){return equal$40(equal_v,t1,t2)}, hash_fold_m_t$0= function(K,hash_fold_v,state) - {var _la_=K[1]; - return function(_lb_) - {return hash_fold_direct$0(_la_,hash_fold_v,state,_lb_)}}, + {var _k__=K[1]; + return function(_k$_) + {return hash_fold_direct$0(_k__,hash_fold_v,state,_k$_)}}, merge_skewed= function(t2,t1,combine) {if(caml_call2(symbol$79,t1[3],t2[3])) @@ -53583,12 +55920,12 @@ comparator$15=Poly[1], of_tree$6= function(tree){return [0,comparator$15,tree,length$16(tree)]}, - include$59=Empty_without_value_restriction$0(Poly), + include$59=Empty_without_value_restrictio$0(Poly), empty$9=include$59[1], singleton$11= function(a) - {return function(_k$_) - {return singleton$9(comparator$15,a,_k$_)}}, + {return function(_k9_) + {return singleton$9(comparator$15,a,_k9_)}}, of_alist$3=function(a){return of_alist$1(comparator$15,a)}, of_alist_or_error$3= function(a){return of_alist_or_error$1(comparator$15,a)}, @@ -53608,10 +55945,9 @@ function(a){return of_sorted_array$6(comparator$15,a)}, of_iteri$3= function(iteri){return of_iteri$1(comparator$15,iteri)}, - of_increasing_iterator_unchecked$8= + of_increasing_iterator_uncheck$8= function(len,f) - {return of_increasing_iterator_unchecked$6 - (comparator$15,len,f)}, + {return of_increasing_iterator_uncheck$6(comparator$15,len,f)}, of_increasing_sequence$3= function(seq) {return of_increasing_sequence$1(comparator$15,seq)}, @@ -53645,7 +55981,7 @@ of_iteri$2, of_sorted_array$7, of_sorted_array_unchecked$7, - of_increasing_iterator_unchecked$7, + of_increasing_iterator_uncheck$7, of_increasing_sequence$2, of_sequence$3, of_sequence_or_error$2, @@ -53737,7 +56073,7 @@ of_alist_reduce$3, of_sorted_array$8, of_sorted_array_unchecked$8, - of_increasing_iterator_unchecked$8, + of_increasing_iterator_uncheck$8, of_increasing_sequence$3, of_sequence$4, of_sequence_or_error$3, @@ -53829,7 +56165,7 @@ of_alist_reduce$0, of_sorted_array$5, of_sorted_array_unchecked$5, - of_increasing_iterator_unchecked$5, + of_increasing_iterator_uncheck$5, of_increasing_sequence$0, of_sequence$1, of_sequence_or_error$0, @@ -53905,7 +56241,7 @@ to_sequence$5, binary_search$6, binary_search_segmented$6, - empty_without_value_restriction], + empty_without_value_restrictio], invariants$3, is_empty$10, length$17, @@ -53982,7 +56318,7 @@ of_alist_reduce$1, of_sorted_array$6, of_sorted_array_unchecked$6, - of_increasing_iterator_unchecked$6, + of_increasing_iterator_uncheck$6, of_increasing_sequence$1, of_sequence$2, of_sequence_or_error$1, @@ -53994,7 +56330,7 @@ of_tree$5, comparator$14, hash_fold_direct$0, - Empty_without_value_restriction$0]]; + Empty_without_value_restrictio$0]]; caml_register_global(1076,Base_Map,"Base__Map"); var create$14=Stdlib_queue[2], @@ -54066,8 +56402,8 @@ iter$18 (t, function(a) - {function _k__(b){return enqueue$0(res,b)} - return iter$0(caml_call1(f,a),_k__)}); + {function _k8_(b){return enqueue$0(res,b)} + return iter$0(caml_call1(f,a),_k8_)}); return res}, concat_mapi$3= function(t,f) @@ -54076,8 +56412,8 @@ (iteri$8, t, function(i,a) - {function _k9_(b){return enqueue$0(res,b)} - return iter$0(caml_call2(f,i,a),_k9_)}); + {function _k7_(b){return enqueue$0(res,b)} + return iter$0(caml_call2(f,i,a),_k7_)}); return res}, filter_map$11= function(t,f) @@ -54106,7 +56442,7 @@ iter$18 (t, function(a) - {var _k8_=caml_call1(f,a);return _k8_?enqueue$0(res,a):_k8_}); + {var _k6_=caml_call1(f,a);return _k6_?enqueue$0(res,a):_k6_}); return res}, filteri$6= function(t,f) @@ -54115,8 +56451,8 @@ (iteri$8, t, function(i,a) - {var _k7_=caml_call2(f,i,a); - return _k7_?enqueue$0(res,a):_k7_}); + {var _k5_=caml_call2(f,i,a); + return _k5_?enqueue$0(res,a):_k5_}); return res}, map$33= function(t,f) @@ -54157,13 +56493,13 @@ return t}, init$8= function(len,f) - {var t=caml_call1(create$14,0),_k5_=len - 1 | 0,_k4_=0; - if(! (_k5_ < 0)) - {var i=_k4_; + {var t=caml_call1(create$14,0),_k3_=len - 1 | 0,_k2_=0; + if(! (_k3_ < 0)) + {var i=_k2_; for(;;) {enqueue$0(t,caml_call1(f,i)); - var _k6_=i + 1 | 0; - if(_k5_ !== i){var i=_k6_;continue} + var _k4_=i + 1 | 0; + if(_k3_ !== i){var i=_k4_;continue} break}} return t}, to_array$10= @@ -54176,8 +56512,8 @@ iter$18 (t, function(v) - {var _k3_=i[1]; - caml_check_bound(arr,_k3_)[1 + _k3_] = v; + {var _k1_=i[1]; + caml_check_bound(arr,_k1_)[1 + _k1_] = v; return incr(i)}); return arr}, t_of_sexp$33= @@ -54255,7 +56591,7 @@ float_upper_bound$1=upper_bound_for_int(64), float_of_bits=caml_int64_float_of_bits, bits_of_float=caml_int64_bits_of_float, - lsr$1=caml_int64_shift_right_unsigned, + lsr$1=caml_int64_shift_right_unsigne, asr$1=caml_int64_shift_right, lsl$1=caml_int64_shift_left, lnot$2=Stdlib_int64[11], @@ -54278,9 +56614,11 @@ num_bits$2=64, of_float$1= function(f) - {if(caml_call2(include$7[6],f,float_lower_bound$1)) - if(caml_call2(include$7[2],f,float_upper_bound$1)) - return caml_int64_of_float(f); + {if + (caml_call2(include$7[6],f,float_lower_bound$1) + && + caml_call2(include$7[2],f,float_upper_bound$1)) + return caml_int64_of_float(f); return caml_call2(invalid_argf(_eI_),f + 0.,0)}, symbol$212=function(b,e){return caml_call2(pow$1,b,e)}, include$62=_a2_([0,compare$57,sexp_of_t$7,zero$3]), @@ -54298,8 +56636,8 @@ sign$1=include$62[12], between$10= function(t,low,high) - {var _k2_=caml_call2(include$2[2],low,t); - return _k2_?caml_call2(include$2[2],t,high):_k2_}, + {var _k0_=caml_call2(include$2[2],low,t); + return _k0_?caml_call2(include$2[2],t,high):_k0_}, clamp_unchecked$4= function(t,min,max) {return caml_call2(include$2[1],t,min) @@ -54313,12 +56651,12 @@ clamp$10= function(t,min,max) {if(caml_call2(include$2[5],min,max)) - {var _k1_=[0,[0,cst_max$5,caml_call1(sexp_of_t$7,max)],0]; + {var _kZ_=[0,[0,cst_max$5,caml_call1(sexp_of_t$7,max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max$5, - [0,[0,cst_min$5,caml_call1(sexp_of_t$7,min)],_k1_]))} + [0,[0,cst_min$5,caml_call1(sexp_of_t$7,min)],_kZ_]))} return [0,clamp_unchecked$4(t,min,max)]}, symbol$213=caml_int64_div, symbol$214=caml_int64_mul, @@ -54336,52 +56674,45 @@ non_positive_argument$1(0); var x$0=caml_call1(Stdlib_int64[7],x), - x$1= - caml_int64_or(x$0,caml_int64_shift_right_unsigned(x$0,1)), - x$2= - caml_int64_or(x$1,caml_int64_shift_right_unsigned(x$1,2)), - x$3= - caml_int64_or(x$2,caml_int64_shift_right_unsigned(x$2,4)), - x$4= - caml_int64_or(x$3,caml_int64_shift_right_unsigned(x$3,8)), + x$1=caml_int64_or(x$0,caml_int64_shift_right_unsigne(x$0,1)), + x$2=caml_int64_or(x$1,caml_int64_shift_right_unsigne(x$1,2)), + x$3=caml_int64_or(x$2,caml_int64_shift_right_unsigne(x$2,4)), + x$4=caml_int64_or(x$3,caml_int64_shift_right_unsigne(x$3,8)), x$5= - caml_int64_or(x$4,caml_int64_shift_right_unsigned(x$4,16)), + caml_int64_or(x$4,caml_int64_shift_right_unsigne(x$4,16)), x$6= - caml_int64_or(x$5,caml_int64_shift_right_unsigned(x$5,32)); + caml_int64_or(x$5,caml_int64_shift_right_unsigne(x$5,32)); return caml_call1(Stdlib_int64[6],x$6)}, floor_pow2$1= function(x) {if(caml_call2(include$2[2],x,Stdlib_int64[1])) non_positive_argument$1(0); var - x$0=caml_int64_or(x,caml_int64_shift_right_unsigned(x,1)), - x$1= - caml_int64_or(x$0,caml_int64_shift_right_unsigned(x$0,2)), - x$2= - caml_int64_or(x$1,caml_int64_shift_right_unsigned(x$1,4)), - x$3= - caml_int64_or(x$2,caml_int64_shift_right_unsigned(x$2,8)), + x$0=caml_int64_or(x,caml_int64_shift_right_unsigne(x,1)), + x$1=caml_int64_or(x$0,caml_int64_shift_right_unsigne(x$0,2)), + x$2=caml_int64_or(x$1,caml_int64_shift_right_unsigne(x$1,4)), + x$3=caml_int64_or(x$2,caml_int64_shift_right_unsigne(x$2,8)), x$4= - caml_int64_or(x$3,caml_int64_shift_right_unsigned(x$3,16)), + caml_int64_or(x$3,caml_int64_shift_right_unsigne(x$3,16)), x$5= - caml_int64_or(x$4,caml_int64_shift_right_unsigned(x$4,32)); + caml_int64_or(x$4,caml_int64_shift_right_unsigne(x$4,32)); return caml_int64_sub - (x$5,caml_int64_shift_right_unsigned(x$5,1))}, + (x$5,caml_int64_shift_right_unsigne(x$5,1))}, is_pow2$1= function(x) {if(caml_call2(include$2[2],x,Stdlib_int64[1])) non_positive_argument$1(0); var - _kZ_=Stdlib_int64[1], - _k0_=caml_int64_and(x,caml_call1(Stdlib_int64[7],x)); - return caml_call2(include$2[4],_k0_,_kZ_)}, + _kX_=Stdlib_int64[1], + _kY_=caml_int64_and(x,caml_call1(Stdlib_int64[7],x)); + return caml_call2(include$2[4],_kY_,_kX_)}, floor_log2$1= function(i) {if(caml_call2(include$2[2],i,Stdlib_int64[1])) raise_s (caml_call2 (message, - cst_Int64_floor_log2_got_invalid_input, + cst_Int64_floor_log2_got_inval, [0,[0,cst$29,caml_call1(sexp_of_t$7,i)],0])); return 63 - runtime.Base_int_math_int64_clz(i) | 0}, ceil_log2$1= @@ -54390,7 +56721,7 @@ raise_s (caml_call2 (message, - cst_Int64_ceil_log2_got_invalid_input, + cst_Int64_ceil_log2_got_invali, [0,[0,cst$30,caml_call1(sexp_of_t$7,i)],0])); return caml_call2(Stdlib_int64[17],i,Stdlib_int64[2]) ?0 @@ -54408,8 +56739,8 @@ to_string$17=function(i){return caml_call2(sprintf,_eL_,i)}, of_string$16= function(s) - {function _kX_(_kY_){return _kY_} - return caml_call3(Stdlib_scanf[4],s,_eM_,_kX_)}, + {function _kV_(_kW_){return _kW_} + return caml_call3(Stdlib_scanf[4],s,_eM_,_kV_)}, include$64= _cz_ ([0, @@ -54638,7 +56969,7 @@ lsl$2=caml_int64_shift_left, asr$2=function(x,i){return m(caml_int64_shift_right(x,i))}, lsr$2= - function(x,i){return m(caml_int64_shift_right_unsigned(x,i))}, + function(x,i){return m(caml_int64_shift_right_unsigne(x,i))}, _eS_=Private$2[3], pow$2= function(a,b) @@ -54658,7 +56989,7 @@ to_int64$0=function(t){return caml_int64_shift_right(t,1)}, of_int64$0= function(t) - {return int64_is_representable_as_int63(t) + {return int64_is_representable_as_int6(t) ?[0,caml_int64_mul(t,_eO_)] :0}, of_int64_exn=function(t){return wrap_exn(t)}, @@ -54690,16 +57021,20 @@ function(x) {var len=caml_ml_string_length(x); if(caml_call2(include$1[1],0,len)) - {var match=caml_string_get(x,0),switcher=match - 43 | 0; + {var + match=caml_string_get(x,0), + switcher=match - 43 | 0, + switch$0=0; if(2 < switcher >>> 0) - var switch$0=0; + switch$0 = 1; else - {switch(switcher) - {case 0:var _kW_=_eU_,switch$1=1;break; - case 1:var switch$0=0,switch$1=0;break; - default:var _kW_=_eV_,switch$1=1} - if(switch$1)var pos=_kW_[1],sign=_kW_[2],switch$0=1} - if(! switch$0)var pos=0,sign=4003188} + {var switch$1=0; + switch(switcher) + {case 0:var _kU_=_eU_;break; + case 1:switch$0 = 1;switch$1 = 1;break; + default:var _kU_=_eV_} + if(! switch$1)var pos=_kU_[1],sign=_kU_[2]} + if(switch$0)var pos=0,sign=4003188} else var pos=0,sign=4003188; if(caml_call2(include$1[1],pos + 2 | 0,len)) @@ -54723,7 +57058,7 @@ signedness=match[2], sign=match[1]; if(signedness) - var _kU_=of_int64_exn(caml_int64_of_string(str)); + var _kS_=of_int64_exn(caml_int64_of_string(str)); else {var pos_str= @@ -54735,9 +57070,9 @@ var int63=wrap_modulo(int64), int63$0=4003188 <= sign?int63:caml_int64_neg(int63), - _kU_=int63$0} - return _kU_} - catch(_kV_){return invalid_str(str)}}, + _kS_=int63$0} + return _kS_} + catch(_kT_){return invalid_str(str)}}, float_lower_bound$2=lower_bound_for_int(63), float_upper_bound$2=upper_bound_for_int(63), minus_one$2=wrap_exn(Stdlib_int64[3]), @@ -54751,9 +57086,11 @@ function(x){return wrap_modulo(caml_int64_of_float(x))}, of_float$2= function(t) - {if(caml_call2(include$7[6],t,float_lower_bound$2)) - if(caml_call2(include$7[2],t,float_upper_bound$2)) - return wrap_modulo(caml_int64_of_float(t)); + {if + (caml_call2(include$7[6],t,float_lower_bound$2) + && + caml_call2(include$7[2],t,float_upper_bound$2)) + return wrap_modulo(caml_int64_of_float(t)); return caml_call2(invalid_argf(_eX_),t + 0.,0)}, _eY_=_a2_([0,compare$58,sexp_of_t$57,zero$4]), validate_lbound$11=_eY_[1], @@ -54770,8 +57107,8 @@ sign$2=_eY_[12], between$11= function(t,low,high) - {var _kT_=caml_call2(symbol$234,low,t); - return _kT_?caml_call2(symbol$234,t,high):_kT_}, + {var _kR_=caml_call2(symbol$234,low,t); + return _kR_?caml_call2(symbol$234,t,high):_kR_}, clamp_unchecked$5= function(t,min,max) {return caml_call2(symbol$233,t,min) @@ -54785,12 +57122,12 @@ clamp$11= function(t,min,max) {if(caml_call2(symbol$235,min,max)) - {var _kS_=[0,[0,cst_max$6,sexp_of_t$57(max)],0]; + {var _kQ_=[0,[0,cst_max$6,sexp_of_t$57(max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max$6, - [0,[0,cst_min$6,sexp_of_t$57(min)],_kS_]))} + [0,[0,cst_min$6,sexp_of_t$57(min)],_kQ_]))} return [0,clamp_unchecked$5(t,min,max)]}, symbol$240=function(b,e){return pow$2(b,e)}, incr$3=function(r){r[1] = caml_int64_add(r[1],one$3);return 0}, @@ -54837,7 +57174,7 @@ to_string$19= function(i) {return caml_call2 - (sprintf,_e0_,caml_int64_shift_right_unsigned(i,1))}, + (sprintf,_e0_,caml_int64_shift_right_unsigne(i,1))}, of_string$18= function(s) {return of_string$17(caml_call2(symbol$77,cst_0x$1,s))}, @@ -55068,8 +57405,8 @@ pp$15=include$71[1], between$12= function(t,low,high) - {var _kR_=caml_call2(include$4[2],low,t); - return _kR_?caml_call2(include$4[2],t,high):_kR_}, + {var _kP_=caml_call2(include$4[2],low,t); + return _kP_?caml_call2(include$4[2],t,high):_kP_}, clamp_unchecked$6= function(t,min,max) {return caml_call2(include$4[1],t,min) @@ -55083,12 +57420,12 @@ clamp$12= function(t,min,max) {if(caml_call2(include$4[5],min,max)) - {var _kQ_=[0,[0,cst_max$7,caml_call1(sexp_of_t$1,max)],0]; + {var _kO_=[0,[0,cst_max$7,caml_call1(sexp_of_t$1,max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max$7, - [0,[0,cst_min$7,caml_call1(sexp_of_t$1,min)],_kQ_]))} + [0,[0,cst_min$7,caml_call1(sexp_of_t$1,min)],_kO_]))} return [0,clamp_unchecked$6(t,min,max)]}, to_int$5=function(x){return x}, symbol$256=function(a,b){return a | b}, @@ -55150,30 +57487,32 @@ float_of_bits$0=runtime.caml_int32_float_of_bits, bits_of_float$0=runtime.caml_int32_bits_of_float, num_bits$4=32, - lsr$3=function(_kP_,_kO_){return _kP_ >>> _kO_ | 0}, - asr$3=function(_kN_,_kM_){return _kN_ >> _kM_}, - lsl$3=function(_kL_,_kK_){return _kL_ << _kK_}, + lsr$3=function(_kN_,_kM_){return _kN_ >>> _kM_ | 0}, + asr$3=function(_kL_,_kK_){return _kL_ >> _kK_}, + lsl$3=function(_kJ_,_kI_){return _kJ_ << _kI_}, lnot$4=Stdlib_int32[11], - lxor$3=function(_kJ_,_kI_){return _kJ_ ^ _kI_}, - lor$3=function(_kH_,_kG_){return _kH_ | _kG_}, - land$3=function(_kF_,_kE_){return _kF_ & _kE_}, + lxor$3=function(_kH_,_kG_){return _kH_ ^ _kG_}, + lor$3=function(_kF_,_kE_){return _kF_ | _kE_}, + land$3=function(_kD_,_kC_){return _kD_ & _kC_}, min_value$6=Stdlib_int32[10], max_value$6=Stdlib_int32[9], abs$6=Stdlib_int32[8], pred$5=Stdlib_int32[7], succ$6=Stdlib_int32[6], rem$3=caml_mod, - neg$5=function(_kD_){return - _kD_ | 0}, + neg$5=function(_kB_){return - _kB_ | 0}, minus_one$3=Stdlib_int32[3], one$4=Stdlib_int32[2], zero$5=Stdlib_int32[1], - to_float$4=function(_kC_){return _kC_}, - of_float_unchecked$3=function(_kB_){return _kB_ | 0}, + to_float$4=function(_kA_){return _kA_}, + of_float_unchecked$3=function(_kz_){return _kz_ | 0}, of_float$3= function(f) - {if(caml_call2(include$7[6],f,float_lower_bound$3)) - if(caml_call2(include$7[2],f,float_upper_bound$3)) - return f | 0; + {if + (caml_call2(include$7[6],f,float_lower_bound$3) + && + caml_call2(include$7[2],f,float_upper_bound$3)) + return f | 0; return caml_call2(invalid_argf(_e5_),f + 0.,0)}, include$73=_a2_([0,compare_int32$0,sexp_of_t$6,zero$5]), validate_lbound$13=include$73[1], @@ -55200,8 +57539,8 @@ equal_int32$1=caml_equal, between$13= function(t,low,high) - {var _kA_=caml_lessequal(low,t); - return _kA_?caml_lessequal(t,high):_kA_}, + {var _ky_=caml_lessequal(low,t); + return _ky_?caml_lessequal(t,high):_ky_}, clamp_unchecked$7= function(t,min,max) {return caml_lessthan(t,min)?min:caml_lessequal(t,max)?t:max}, @@ -55213,15 +57552,15 @@ clamp$13= function(t,min,max) {if(caml_greaterthan(min,max)) - {var _kz_=[0,[0,cst_max$8,caml_call1(sexp_of_t$6,max)],0]; + {var _kx_=[0,[0,cst_max$8,caml_call1(sexp_of_t$6,max)],0]; return error_s (caml_call2 (message, cst_clamp_requires_min_max$8, - [0,[0,cst_min$8,caml_call1(sexp_of_t$6,min)],_kz_]))} + [0,[0,cst_min$8,caml_call1(sexp_of_t$6,min)],_kx_]))} return [0,clamp_unchecked$7(t,min,max)]}, symbol$270=caml_div, - symbol$271=function(_ky_,_kx_){return caml_mul(_ky_,_kx_)}, + symbol$271=caml_mul, symbol$272=function(_kw_,_kv_){return _kw_ - _kv_ | 0}, symbol$273=function(_ku_,_kt_){return _ku_ + _kt_ | 0}, incr$4=function(r){r[1] = r[1] + one$4 | 0;return 0}, @@ -55239,7 +57578,7 @@ function(x) {if (caml_call2 - (Int32_replace_polymorphic_compare[2],x,Stdlib_int32[1])) + (Int32_replace_polymorphic_comp[2],x,Stdlib_int32[1])) non_positive_argument$2(0); var x$0=caml_call1(Stdlib_int32[7],x), @@ -55253,7 +57592,7 @@ function(x) {if (caml_call2 - (Int32_replace_polymorphic_compare[2],x,Stdlib_int32[1])) + (Int32_replace_polymorphic_comp[2],x,Stdlib_int32[1])) non_positive_argument$2(0); var x$0=x | x >>> 1 | 0, @@ -55266,33 +57605,33 @@ function(x) {if (caml_call2 - (Int32_replace_polymorphic_compare[2],x,Stdlib_int32[1])) + (Int32_replace_polymorphic_comp[2],x,Stdlib_int32[1])) non_positive_argument$2(0); var _kp_=Stdlib_int32[1], _kq_=x & caml_call1(Stdlib_int32[7],x); return caml_call2 - (Int32_replace_polymorphic_compare[4],_kq_,_kp_)}, + (Int32_replace_polymorphic_comp[4],_kq_,_kp_)}, floor_log2$3= function(i) {if (caml_call2 - (Int32_replace_polymorphic_compare[2],i,Stdlib_int32[1])) + (Int32_replace_polymorphic_comp[2],i,Stdlib_int32[1])) raise_s (caml_call2 (message, - cst_Int32_floor_log2_got_invalid_input, + cst_Int32_floor_log2_got_inval, [0,[0,cst$31,caml_call1(sexp_of_t$6,i)],0])); return 31 - runtime.Base_int_math_int32_clz(i) | 0}, ceil_log2$3= function(i) {if (caml_call2 - (Int32_replace_polymorphic_compare[2],i,Stdlib_int32[1])) + (Int32_replace_polymorphic_comp[2],i,Stdlib_int32[1])) raise_s (caml_call2 (message, - cst_Int32_ceil_log2_got_invalid_input, + cst_Int32_ceil_log2_got_invali, [0,[0,cst$32,caml_call1(sexp_of_t$6,i)],0])); return caml_call2(Stdlib_int32[17],i,Stdlib_int32[2]) ?0 @@ -55851,18 +58190,19 @@ symbol$292= function(t,u) {var diff=_e$_(t,u),pos_diff=caml_call2(symbol$281,t,u); - if(caml_call2(symbol$283,t,u)) - if - (caml_call2 - (symbol$260,pos_diff,caml_call1(is_positive$4,diff))) - {var - _ki_=[0,[0,cst_diff,caml_call1(sexp_of_t$59,diff)],0], - _kj_=[0,[0,cst_u$0,caml_call1(sexp_of_t$59,u)],_ki_]; - return raise_s - (caml_call2 - (message, - cst_overflow$0, - [0,[0,cst_t$0,caml_call1(sexp_of_t$59,t)],_kj_]))} + if + (caml_call2(symbol$283,t,u) + && + caml_call2 + (symbol$260,pos_diff,caml_call1(is_positive$4,diff))) + {var + _ki_=[0,[0,cst_diff,caml_call1(sexp_of_t$59,diff)],0], + _kj_=[0,[0,cst_u$0,caml_call1(sexp_of_t$59,u)],_ki_]; + return raise_s + (caml_call2 + (message, + cst_overflow$0, + [0,[0,cst_t$0,caml_call1(sexp_of_t$59,t)],_kj_]))} return diff}, abs$7= function(t) @@ -55908,7 +58248,7 @@ raise_s (caml_call2 (message, - cst_Int_floor_log2_got_invalid_input$0, + cst_Int_floor_log2_got_invalid$0, [0,[0,cst$33,caml_call1(sexp_of_t$59,t)],0])); var floor_log2$0=[0,num_bits$5 - 2 | 0]; for(;;) @@ -56108,27 +58448,30 @@ hl=height$1(left); inv(left); inv(right); + var switch$0=0; if(typeof left === "number") - var switch$0=1; + switch$0 = 1; else - if(0 === left[0]) - var left_key=left[2],switch$0=0; - else - var left_key=left[1],switch$0=0; - if(! switch$0) - if(! caml_call2(symbol$78,caml_call2(compare,left_key,k),0)) - throw [0,Assert_failure,_fd_]; + var left_key=0 === left[0]?left[2]:left[1]; + if + (! + switch$0 + && + ! + caml_call2(symbol$78,caml_call2(compare,left_key,k),0)) + throw [0,Assert_failure,_fd_]; + var switch$1=0; if(typeof right === "number") - var switch$1=1; + switch$1 = 1; else - if(0 === right[0]) - var right_key=right[2],switch$1=0; - else - var right_key=right[1],switch$1=0; - if(! switch$1) - if - (! caml_call2(symbol$82,caml_call2(compare,right_key,k),0)) - throw [0,Assert_failure,_fe_]; + var right_key=0 === right[0]?right[2]:right[1]; + if + (! + switch$1 + && + ! + caml_call2(symbol$82,caml_call2(compare,right_key,k),0)) + throw [0,Assert_failure,_fe_]; if(caml_call2(symbol$81,h,max$36(hl,hr) + 1 | 0)) {if(caml_call2(symbol$79,caml_call1(abs$0,hl - hr | 0),2)) return 0; @@ -56496,14 +58839,13 @@ return init$0; else {if(0 === t$0[0]) - {var _jJ_=t$0[1]; + {var _jJ_=t$0[1],switch$0=0; if(typeof _jJ_ === "number") {var _jM_=t$0[5],_jK_=t$0[2],_jL_=t$0[3]; if(typeof _jM_ !== "number" && 0 !== _jM_[0]) {var rkey=_jM_[1],rdata=_jM_[2]; return caml_call3 - (f,rkey,rdata,caml_call3(f,_jK_,_jL_,init$0))} - var switch$0=1} + (f,rkey,rdata,caml_call3(f,_jK_,_jL_,init$0))}} else if(0 === _jJ_[0]) {var _jP_=t$0[5],_jN_=t$0[2],_jO_=t$0[3]; @@ -56514,7 +58856,7 @@ rkey$0, rdata$0, caml_call3(f,_jN_,_jO_,fold$16(_jJ_,init$0,f)))} - var switch$0=0} + switch$0 = 1} else {var _jQ_=_jJ_[1], @@ -56533,20 +58875,19 @@ rkey$1, rdata$1, caml_call3(f,_jS_,_jT_,caml_call3(f,_jQ_,_jR_,init$0)))} - var switch$0=0}} - if(! switch$0) - if(typeof _jJ_ !== "number" && 1 === _jJ_[0]) - {var - lkey=_jJ_[1], - ldata=_jJ_[2], - key$0=t$0[2], - data$0=t$0[3], - right$0=t$0[5], - init$2= - caml_call3(f,key$0,data$0,caml_call3(f,lkey,ldata,init$0)), - t$0=right$0, - init$0=init$2; - continue} + switch$0 = 1}} + if(switch$0 && typeof _jJ_ !== "number" && 1 === _jJ_[0]) + {var + lkey=_jJ_[1], + ldata=_jJ_[2], + key$0=t$0[2], + data$0=t$0[3], + right$0=t$0[5], + init$2= + caml_call3(f,key$0,data$0,caml_call3(f,lkey,ldata,init$0)), + t$0=right$0, + init$0=init$2; + continue} var key=t$0[2], data=t$0[3], @@ -56592,8 +58933,7 @@ function(param) {if(typeof param === "number") return raise_s - (caml_call2 - (message,cst_Avltree_choose_exn_of_empty_hashtbl,0)); + (caml_call2(message,cst_Avltree_choose_exn_of_empt,0)); else if(0 === param[0]) var key=param[2],value=param[3]; @@ -56626,9 +58966,7 @@ function(t) {var _jI_=1 - t[6]; return _jI_ - ?caml_call1 - (failwith$0, - cst_Hashtbl_mutation_not_allowed_during_iteration) + ?caml_call1(failwith$0,cst_Hashtbl_mutation_not_allow) :_jI_}, without_mutating= function(t,f) @@ -56734,11 +59072,7 @@ sexp_of_key$0=sexp_of_key(t), error= create$1 - (0, - 0, - cst_Hashtbl_add_exn_got_key_already_present, - key, - sexp_of_key$0); + (0,0,cst_Hashtbl_add_exn_got_key_al,key,sexp_of_key$0); return raise(error)}, clear$3= function(t) @@ -56888,8 +59222,7 @@ function(t) {if(caml_call2(symbol$81,t[2],0)) raise_s - (caml_call2 - (message,cst_Hashtbl_choose_exn_of_empty_hashtbl,0)); + (caml_call2(message,cst_Hashtbl_choose_exn_of_empt,0)); return choose_nonempty(t[1],0)}, choose$2= function(t) @@ -57167,7 +59500,7 @@ if(17724 <= match[1]){var v=match[2];return [0,v]} var key=match[2],sexp_of_key=hashable[3]; return error$0 - (0,cst_Hashtbl_of_alist_exn_duplicate_key,key,sexp_of_key)}, + (0,cst_Hashtbl_of_alist_exn_dupli,key,sexp_of_key)}, of_alist_exn$4= function(growth_allowed,size,hashable,lst) {var @@ -57237,7 +59570,7 @@ if(_i3_) {if(found_first_k[1]) return caml_call2 - (of_sexp_error,cst_Hashtbl_t_of_sexp_duplicate_key,k2_sexp); + (of_sexp_error,cst_Hashtbl_t_of_sexp_duplicat,k2_sexp); found_first_k[1] = 1; var _i4_=0} else @@ -57290,7 +59623,7 @@ return error_s (caml_call2 (message, - cst_Hashtbl_create_with_key_duplicate_keys, + cst_Hashtbl_create_with_key_du, [0,[0,cst_keys,caml_call2(sexp_of_t$10,sexp_of_key,keys)],0]))} var t=match[2]; return [0,t]}, @@ -57307,8 +59640,7 @@ merge$6= function(t_left,t_right,f) {if(1 - caml_call2(equal$45,t_left[5],t_right[5])) - caml_call1 - (invalid_arg$0,cst_Hashtbl_merge_different_hashable_values); + caml_call1(invalid_arg$0,cst_Hashtbl_merge_different_ha); var new_t= create$15([0,t_left[4]],[0,t_left[2]],t_left[5],0); @@ -57722,12 +60054,8 @@ caml_register_global(1089,Base_Hashtbl,"Base__Hashtbl"); var Make_creators_check=function(Type,Elt,Options,M){return [0]}, - Check_creators_is_specialization_of_creators_generic= - function(M){return [0]}, - Check= - [0, - Make_creators_check, - Check_creators_is_specialization_of_creators_generic], + Check_creators_is_specializati=function(M){return [0]}, + Check=[0,Make_creators_check,Check_creators_is_specializati], Base_Hash_set_intf=[0,Check]; caml_register_global (1090,Base_Hash_set_intf,"Base__Hash_set_intf"); @@ -57865,7 +60193,7 @@ function(m,e_of_sexp,sexp) {if(0 === sexp[0]) return caml_call2 - (of_sexp_error,cst_Hash_set_t_of_sexp_requires_a_list,sexp); + (of_sexp_error,cst_Hash_set_t_of_sexp_require,sexp); var list=sexp[1], t=create$18(0,[0,caml_call1(length,list)],m); @@ -57876,9 +60204,7 @@ return 0 === match[0] ?0 :caml_call2 - (of_sexp_error, - cst_Hash_set_t_of_sexp_got_a_duplicate_element, - sexp)}); + (of_sexp_error,cst_Hash_set_t_of_sexp_got_a_d,sexp)}); return t}, Creators$0= function(Elt) @@ -58012,9 +60338,11 @@ for(;;) {if(caml_call2(include$1[6],i,l)) return caml_call2(symbol$77,y$0,cst$34); - var - match=caml_string_get(y$0,i), - switch$0=48 <= match?58 <= match?0:1:45 === match?1:0; + var match=caml_string_get(y$0,i),switch$0=0; + if(48 <= match) + {if(! (58 <= match))switch$0 = 1} + else + if(45 === match)switch$0 = 1; if(switch$0){var i$0=i + 1 | 0,i=i$0;continue} return y$0}}, min_positive_subnormal_value=4.94065645841e-324, @@ -58069,14 +60397,19 @@ :caml_call2(invalid_argf(_fE_),t + 0.,0)}, iround_towards_zero= function(t) - {if(caml_call2(include$7[6],t,iround_lbound)) - if(caml_call2(include$7[2],t,iround_ubound)) - return [0,t | 0]; + {if + (caml_call2(include$7[6],t,iround_lbound) + && + caml_call2(include$7[2],t,iround_ubound)) + return [0,t | 0]; return 0}, iround_towards_zero_exn= function(t) - {if(caml_call2(include$7[6],t,iround_lbound)) - if(caml_call2(include$7[2],t,iround_ubound))return t | 0; + {if + (caml_call2(include$7[6],t,iround_lbound) + && + caml_call2(include$7[2],t,iround_ubound)) + return t | 0; return caml_call2(invalid_argf(_fF_),t + 0.,0)}, one_ulp_less_than_half=one_ulp(759637122,0.5), round_nearest_lb=-4503599627370496., @@ -58174,24 +60507,30 @@ :Math.ceil(t)}, round_nearest$5= function(t) - {if(caml_call2(include$7[5],t,round_nearest_lb)) - if(caml_call2(include$7[1],t,round_nearest_ub)) - return Math.floor(add_half_for_round_nearest(t)); + {if + (caml_call2(include$7[5],t,round_nearest_lb) + && + caml_call2(include$7[1],t,round_nearest_ub)) + return Math.floor(add_half_for_round_nearest(t)); return t + 0.}, round_nearest_half_to_even= function(t) - {if(! caml_call2(include$7[2],t,round_nearest_lb)) - if(! caml_call2(include$7[6],t,round_nearest_ub)) - {var - floor=Math.floor(t), - ceil_or_succ=floor + 1., - diff_floor=t - floor, - diff_ceil=ceil_or_succ - t; - return caml_call2(include$7[1],diff_floor,diff_ceil) - ?floor - :caml_call2(include$7[5],diff_floor,diff_ceil) - ?ceil_or_succ - :caml_call2(include$7[4],floor % 2.,0.)?floor:ceil_or_succ} + {if + (! + caml_call2(include$7[2],t,round_nearest_lb) + && + ! + caml_call2(include$7[6],t,round_nearest_ub)) + {var + floor=Math.floor(t), + ceil_or_succ=floor + 1., + diff_floor=t - floor, + diff_ceil=ceil_or_succ - t; + return caml_call2(include$7[1],diff_floor,diff_ceil) + ?floor + :caml_call2(include$7[5],diff_floor,diff_ceil) + ?ceil_or_succ + :caml_call2(include$7[4],floor % 2.,0.)?floor:ceil_or_succ} return t + 0.}, int63_round_lbound=lower_bound_for_int(num_bits$5), int63_round_ubound=upper_bound_for_int(num_bits$5), @@ -58215,7 +60554,7 @@ return caml_call2(include$7[6],t$0,int63_round_lbound) ?of_float_unchecked$4(t$0) :caml_call2(invalid_argf(_fN_),t + 0.,0)}, - int63_round_nearest_portable_alloc_exn= + int63_round_nearest_portable_a= function(t0) {var t=round_nearest$5(t0); return caml_call2(include$7[5],t,0.) @@ -58225,12 +60564,12 @@ :caml_call2(include$7[6],t,int63_round_lbound) ?of_float_unchecked$4(t) :caml_call2(invalid_argf(_fP_),t0 + 0.,0)}, - int63_round_nearest_arch64_noalloc_exn= + int63_round_nearest_arch64_noa= function(f){return of_int$6(iround_nearest_exn(f))}, int63_round_nearest_exn= 0 === word_size - ?int63_round_nearest_portable_alloc_exn - :int63_round_nearest_arch64_noalloc_exn, + ?int63_round_nearest_portable_a + :int63_round_nearest_arch64_noa, round$5= function(opt,t) {if(opt)var sth=opt[1],dir=sth;else var dir=857423934; @@ -58246,32 +60585,41 @@ {var _iC_=sexp[1], _iD_=caml_string_compare(_iC_,cst_infinite), - switch$0= - 0 <= _iD_ - ?0 < _iD_ - ?caml_string_notequal(_iC_,cst_nan$1) - ?caml_string_notequal(_iC_,cst_normal) - ?caml_string_notequal(_iC_,cst_subnormal) - ?caml_string_notequal(_iC_,cst_zero$3)?5:4 - :3 - :2 - :1 - :0 - :caml_string_notequal(_iC_,cst_Infinite) - ?caml_string_notequal(_iC_,cst_Nan$1) - ?caml_string_notequal(_iC_,cst_Normal) - ?caml_string_notequal(_iC_,cst_Subnormal) - ?caml_string_notequal(_iC_,cst_Zero$3)?5:4 - :3 - :2 - :1 - :0; + switch$0=0; + if(0 <= _iD_) + if(0 < _iD_) + if(caml_string_notequal(_iC_,cst_nan$1)) + if(caml_string_notequal(_iC_,cst_normal)) + if(caml_string_notequal(_iC_,cst_subnormal)) + {if(! caml_string_notequal(_iC_,cst_zero$3))switch$0 = 5} + else + switch$0 = 4; + else + switch$0 = 3; + else + switch$0 = 2; + else + switch$0 = 1; + else + if(caml_string_notequal(_iC_,cst_Infinite)) + if(caml_string_notequal(_iC_,cst_Nan$1)) + if(caml_string_notequal(_iC_,cst_Normal)) + if(caml_string_notequal(_iC_,cst_Subnormal)) + {if(! caml_string_notequal(_iC_,cst_Zero$3))switch$0 = 5} + else + switch$0 = 4; + else + switch$0 = 3; + else + switch$0 = 2; + else + switch$0 = 1; switch(switch$0) - {case 0:return 0; - case 1:return 1; - case 2:return 2; - case 3:return 3; - case 4:return 4 + {case 1:return 0; + case 2:return 1; + case 3:return 2; + case 4:return 3; + case 5:return 4 }} else {var _iE_=sexp[1]; @@ -58285,31 +60633,37 @@ var _iG_=_iF_[1], _iH_=caml_string_compare(_iG_,cst_infinite$0), - switch$1= - 0 <= _iH_ - ?0 < _iH_ - ?caml_string_notequal(_iG_,cst_nan$2) - ?caml_string_notequal(_iG_,cst_normal$0) - ?caml_string_notequal(_iG_,cst_subnormal$0) - ?caml_string_notequal(_iG_,cst_zero$4)?5:4 - :3 - :2 - :1 - :0 - :caml_string_notequal(_iG_,cst_Infinite$0) - ?caml_string_notequal(_iG_,cst_Nan$2) - ?caml_string_notequal(_iG_,cst_Normal$0) - ?caml_string_notequal(_iG_,cst_Subnormal$0) - ?caml_string_notequal(_iG_,cst_Zero$4)?5:4 - :3 - :2 - :1 - :0; + switch$1=0; + if(0 <= _iH_) + if(0 < _iH_) + if(caml_string_notequal(_iG_,cst_nan$2)) + if(caml_string_notequal(_iG_,cst_normal$0)) + if(caml_string_notequal(_iG_,cst_subnormal$0)) + {if(! caml_string_notequal(_iG_,cst_zero$4))switch$1 = 5} + else + switch$1 = 4; + else + switch$1 = 3; + else + switch$1 = 2; + else + switch$1 = 1; + else + if(caml_string_notequal(_iG_,cst_Infinite$0)) + if(caml_string_notequal(_iG_,cst_Nan$2)) + if(caml_string_notequal(_iG_,cst_Normal$0)) + if(caml_string_notequal(_iG_,cst_Subnormal$0)) + {if(! caml_string_notequal(_iG_,cst_Zero$4))switch$1 = 5} + else + switch$1 = 4; + else + switch$1 = 3; + else + switch$1 = 2; + else + switch$1 = 1; switch(switch$1) - {case 0: - return caml_call2 - (Sexplib0_Sexp_conv_error[3],tp_loc$10,sexp); - case 1: + {case 1: return caml_call2 (Sexplib0_Sexp_conv_error[3],tp_loc$10,sexp); case 2: @@ -58319,6 +60673,9 @@ return caml_call2 (Sexplib0_Sexp_conv_error[3],tp_loc$10,sexp); case 4: + return caml_call2 + (Sexplib0_Sexp_conv_error[3],tp_loc$10,sexp); + case 5: return caml_call2 (Sexplib0_Sexp_conv_error[3],tp_loc$10,sexp) }} @@ -58403,9 +60760,9 @@ return raise_s (caml_call2 (message, - cst_sexp_of_float_produced_strange_sexp, + cst_sexp_of_float_produced_str, [0,[0,cst_sexp,caml_call1(sexp_of_t,sexp)],0]))}, - to_padded_compact_string_custom= + to_padded_compact_string_custo= function(t,opt,kilo,mega,giga,tera,peta,param) {if(opt)var sth=opt[1],prefix=sth;else var prefix=cst$38; var match=classify(t); @@ -58414,18 +60771,19 @@ return caml_call2(include$7[1],t,0.)?cst_inf$1:cst_inf$2; function go(t) {function conv(mag,t,denominator) - {var - switch$0= - caml_call2(include$7[4],denominator,100.) - ?caml_call2(include$7[6],t,999.95)?1:0 - :0; + {var switch$0=0; + if + (caml_call2(include$7[4],denominator,100.) + && + caml_call2(include$7[6],t,999.95)) + switch$0 = 1; if(! switch$0) - {if(caml_call2(include$7[6],denominator,100000.)) - var - _ix_=round_nearest$5(denominator * 9.9995), - switch$1=caml_call2(include$7[6],t,_ix_)?0:1; + {var switch$1=0; + if(caml_call2(include$7[6],denominator,100000.)) + {var _ix_=round_nearest$5(denominator * 9.9995); + if(! caml_call2(include$7[6],t,_ix_))switch$1 = 1} else - var switch$1=1; + switch$1 = 1; if(switch$1)throw [0,Assert_failure,_f3_]} var _iw_=round_nearest$5(denominator * 9999.5); if(caml_call2(include$7[1],t,_iw_)) @@ -58444,30 +60802,36 @@ :caml_call2(include$1[4],k$0 % 2 | 0,0)?k$0:k$0 + 1 | 0, d=k$1 % 10 | 0, i=k$1 / 10 | 0; - if(caml_call2(include$1[2],0,i)) - if(caml_call2(include$1[1],i,1000)) - {if(caml_call2(include$1[2],0,d)) - if(caml_call2(include$1[1],d,10)) - return caml_call2(include$1[4],d,0) - ?caml_call4(sprintf,_fY_,prefix,i,mag) - :caml_call5(sprintf,_fZ_,prefix,i,mag,d); - throw [0,Assert_failure,_f0_]} + if + (caml_call2(include$1[2],0,i) + && + caml_call2(include$1[1],i,1000)) + {if + (caml_call2(include$1[2],0,d) + && + caml_call2(include$1[1],d,10)) + return caml_call2(include$1[4],d,0) + ?caml_call4(sprintf,_fY_,prefix,i,mag) + :caml_call5(sprintf,_fZ_,prefix,i,mag,d); + throw [0,Assert_failure,_f0_]} throw [0,Assert_failure,_f1_]} throw [0,Assert_failure,_f2_]} if(caml_call2(include$7[1],t,999.95)) - {if(caml_call2(include$7[2],0.,t)) - if(caml_call2(include$7[1],t,999.95)) - {var - x= - caml_call2(symbol$77,prefix,caml_format_float(cst_1f,t)); - if(is_suffix$0(x,cst_0)) - {var - x$0=caml_call1(of_string$5,x), - n=caml_ml_bytes_length(x$0); - caml_bytes_set(x$0,n - 1 | 0,32); - caml_bytes_set(x$0,n - 2 | 0,32); - return unsafe_to_string(x$0)} - return x} + {if + (caml_call2(include$7[2],0.,t) + && + caml_call2(include$7[1],t,999.95)) + {var + x= + caml_call2(symbol$77,prefix,caml_format_float(cst_1f,t)); + if(is_suffix$0(x,cst_0)) + {var + x$0=caml_call1(of_string$5,x), + n=caml_ml_bytes_length(x$0); + caml_bytes_set(x$0,n - 1 | 0,32); + caml_bytes_set(x$0,n - 2 | 0,32); + return unsafe_to_string(x$0)} + return x} throw [0,Assert_failure,_fX_]} if(caml_call2(include$7[1],t,999950.)) return conv(kilo,t,100.); @@ -58488,7 +60852,7 @@ :caml_call2(symbol$77,cst$37,go(- t))}, to_padded_compact_string= function(t) - {return to_padded_compact_string_custom + {return to_padded_compact_string_custo (t,0,cst_k,cst_m,cst_g,cst_t$1,_f6_,0)}, int_pow$0= function(x,n) @@ -58536,12 +60900,16 @@ if(caml_call2(include$1[1],sd$0,0))return 0.; if(caml_call2(include$1[6],sd$0,17))return x; var abs_dd=abs$2(dd$0); - if(! caml_call2(include$1[5],abs_dd,22)) - if(! caml_call2(include$1[6],sd$0,16)) - {var order=int_pow$0(10.,abs_dd); - return caml_call2(include$1[6],dd$0,0) - ?round_nearest_half_to_even(x * order) / order - :round_nearest_half_to_even(x / order) * order} + if + (! + caml_call2(include$1[5],abs_dd,22) + && + ! + caml_call2(include$1[6],sd$0,16)) + {var order=int_pow$0(10.,abs_dd); + return caml_call2(include$1[6],dd$0,0) + ?round_nearest_half_to_even(x * order) / order + :round_nearest_half_to_even(x / order) * order} return of_string$23(caml_call3(sprintf,_f7_,sd$0,x))} return x}, round_significant= @@ -58551,7 +60919,7 @@ _iv_= caml_call2 (symbol$77, - cst_Float_round_significant_invalid_argument_significant_digits, + cst_Float_round_significant_in, caml_call1(to_string,significant_digits)); throw [0,Stdlib[6],_iv_]} return round_gen(x,[0,555917426,significant_digits])}, @@ -58611,7 +60979,7 @@ {var bits=caml_int64_bits_of_float(t); return caml_int64_to_int32 (caml_int64_and - (caml_int64_shift_right_unsigned(bits,52),exponent_mask64))}, + (caml_int64_shift_right_unsigne(bits,52),exponent_mask64))}, ieee_mantissa= function(t) {var bits=caml_int64_bits_of_float(t); @@ -58703,8 +61071,8 @@ upper_bound_for_int, specialized_hash, one_ulp_less_than_half, - int63_round_nearest_portable_alloc_exn, - int63_round_nearest_arch64_noalloc_exn, + int63_round_nearest_portable_a, + int63_round_nearest_arch64_noa, iround_nearest_exn_64], symbol$299=include$7[1], symbol$300=include$7[2], @@ -58718,13 +61086,13 @@ equal_float$1=include$7[10], min$36= function(x,y) - {if(! is_nan(x)) - if(! is_nan(y))return caml_call2(symbol$299,x,y)?x:y; + {if(! is_nan(x) && ! is_nan(y)) + return caml_call2(symbol$299,x,y)?x:y; return nan$1}, max$37= function(x,y) - {if(! is_nan(x)) - if(! is_nan(y))return caml_call2(symbol$303,x,y)?x:y; + {if(! is_nan(x) && ! is_nan(y)) + return caml_call2(symbol$303,x,y)?x:y; return nan$1}, include$82=[0,add,sub,scale,symbol$9,symbol$106,neg$0], Base_Float= @@ -58853,7 +61221,7 @@ to_string$25, to_string_hum$7, to_padded_compact_string, - to_padded_compact_string_custom, + to_padded_compact_string_custo, int_pow$0, square, ldexp, @@ -58977,10 +61345,10 @@ var x=match[1], _ij_=function(_il_){return is_prefix$1(_il_,cst_b)}, - ocamlrunparam_mentions_backtraces=exists(split(x,44),_ij_); + ocamlrunparam_mentions_backtra=exists(split(x,44),_ij_); else - var ocamlrunparam_mentions_backtraces=0; - var _ik_=1 - ocamlrunparam_mentions_backtraces; + var ocamlrunparam_mentions_backtra=0; + var _ik_=1 - ocamlrunparam_mentions_backtra; return _ik_?caml_call1(set_recording,1):_ik_}, Base_Backtrace= [0, @@ -59647,9 +62015,9 @@ caml_ml_bytes_length=runtime.caml_ml_bytes_length, caml_ml_string_length=runtime.caml_ml_string_length, caml_mul=runtime.caml_mul, - caml_new_string=runtime.caml_new_string, caml_obj_tag=runtime.caml_obj_tag, caml_register_global=runtime.caml_register_global, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, caml_trampoline=runtime.caml_trampoline, caml_trampoline_return=runtime.caml_trampoline_return, caml_wrap_exception=runtime.caml_wrap_exception; @@ -59669,60 +62037,67 @@ :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6])} var global_data=runtime.caml_get_global_data(), - cst_Parsexp_Positions_find=caml_new_string("Parsexp.Positions.find"), - cst_Parsexp_Position_find=caml_new_string("Parsexp.Position.find"), + cst_Parsexp_Positions_find= + caml_string_of_jsbytes("Parsexp.Positions.find"), + cst_Parsexp_Position_find=caml_string_of_jsbytes("Parsexp.Position.find"), cst_Parsexp_Positions_add_gen= - caml_new_string("Parsexp.Positions.add_gen"), + caml_string_of_jsbytes("Parsexp.Positions.add_gen"), beginning_of_file=[0,1,0,0], - cst_Parsexp_Positions_Iterator_No_more= - caml_new_string("Parsexp__Positions.Iterator.No_more"), - cst_Parsexp_Positions_Sexp_search_Found= - caml_new_string("Parsexp__Positions.Sexp_search.Found"), - cst_unterminated_hexadecimal_escape_sequence= - caml_new_string("unterminated hexadecimal escape sequence"), - cst_unterminated_decimal_escape_sequence= - caml_new_string("unterminated decimal escape sequence"), + cst_Parsexp_Positions_Iterator= + caml_string_of_jsbytes("Parsexp__Positions.Iterator.No_more"), + cst_Parsexp_Positions_Sexp_sea= + caml_string_of_jsbytes("Parsexp__Positions.Sexp_search.Found"), + cst_unterminated_hexadecimal_e= + caml_string_of_jsbytes("unterminated hexadecimal escape sequence"), + cst_unterminated_decimal_escap= + caml_string_of_jsbytes("unterminated decimal escape sequence"), cst_unterminated_quoted_string= - caml_new_string("unterminated quoted string"), + caml_string_of_jsbytes("unterminated quoted string"), cst_unterminated_block_comment= - caml_new_string("unterminated block comment"), - cst_escape_sequence_in_quoted_string_out_of_range= - caml_new_string("escape sequence in quoted string out of range"), - cst_unclosed_parentheses_at_end_of_input= - caml_new_string("unclosed parentheses at end of input"), - cst_s_expression_followed_by_data= - caml_new_string("s-expression followed by data"), - cst_unexpected_character=caml_new_string("unexpected character: ')'"), - cst$0=caml_new_string("|"), - cst_illegal_end_of_comment=caml_new_string("illegal end of comment"), - cst_comment_tokens_in_unquoted_atom= - caml_new_string("comment tokens in unquoted atom"), + caml_string_of_jsbytes("unterminated block comment"), + cst_escape_sequence_in_quoted_= + caml_string_of_jsbytes("escape sequence in quoted string out of range"), + cst_unclosed_parentheses_at_en= + caml_string_of_jsbytes("unclosed parentheses at end of input"), + cst_s_expression_followed_by_d= + caml_string_of_jsbytes("s-expression followed by data"), + cst_unexpected_character= + caml_string_of_jsbytes("unexpected character: ')'"), + cst$0=caml_string_of_jsbytes("|"), + cst_illegal_end_of_comment= + caml_string_of_jsbytes("illegal end of comment"), + cst_comment_tokens_in_unquoted= + caml_string_of_jsbytes("comment tokens in unquoted atom"), cst_unterminated_sexp_comment= - caml_new_string("unterminated sexp comment"), - cst_unexpected_end_of_input_after_carriage_return= - caml_new_string("unexpected end of input after carriage return"), - cst_unexpected_character_after_carriage_return= - caml_new_string("unexpected character after carriage return"), - cst_no_s_expression_found_in_input= - caml_new_string("no s-expression found in input"), - cst_Parsexp_Parser_automaton_parser_is_dead= - caml_new_string("Parsexp.Parser_automaton: parser is dead"), - cst=caml_new_string("|"), - cst_Parser_automaton_sexps_cst_of_stack= - caml_new_string("Parser_automaton.sexps_cst_of_stack"), - cst_Parser_automaton_sexps_of_stack= - caml_new_string("Parser_automaton.sexps_of_stack"), - cst_Parser_automaton_sexp_of_stack= - caml_new_string("Parser_automaton.sexp_of_stack"), - cst_Parsexp_Parser_automaton_internal_Public_Parse_error= - caml_new_string("Parsexp__Parser_automaton_internal.Public.Parse_error"), - cst_Parsexp_parse_gen_None=caml_new_string("Parsexp.parse_gen: None"), - cst_Parsexp_Make_eager_Params_Lexbuf_consumer_Got_sexp= - caml_new_string("Parsexp.Make_eager(Params).Lexbuf_consumer.Got_sexp"), + caml_string_of_jsbytes("unterminated sexp comment"), + cst_unexpected_end_of_input_af= + caml_string_of_jsbytes("unexpected end of input after carriage return"), + cst_unexpected_character_after= + caml_string_of_jsbytes("unexpected character after carriage return"), + cst_no_s_expression_found_in_i= + caml_string_of_jsbytes("no s-expression found in input"), + cst_Parsexp_Parser_automaton_p= + caml_string_of_jsbytes("Parsexp.Parser_automaton: parser is dead"), + cst=caml_string_of_jsbytes("|"), + cst_Parser_automaton_sexps_cst= + caml_string_of_jsbytes("Parser_automaton.sexps_cst_of_stack"), + cst_Parser_automaton_sexps_of_= + caml_string_of_jsbytes("Parser_automaton.sexps_of_stack"), + cst_Parser_automaton_sexp_of_s= + caml_string_of_jsbytes("Parser_automaton.sexp_of_stack"), + cst_Parsexp_Parser_automaton_i= + caml_string_of_jsbytes + ("Parsexp__Parser_automaton_internal.Public.Parse_error"), + cst_Parsexp_parse_gen_None= + caml_string_of_jsbytes("Parsexp.parse_gen: None"), + cst_Parsexp_Make_eager_Params_= + caml_string_of_jsbytes + ("Parsexp.Make_eager(Params).Lexbuf_consumer.Got_sexp"), partial=[12,10,0], - cst_Parsexp_feed_subbytes=caml_new_string("Parsexp.feed_subbytes"), - cst_Parsexp_feed_substring=caml_new_string("Parsexp.feed_substring"), - cst_Parsexp_Of_sexp_error=caml_new_string("Parsexp.Of_sexp_error"), + cst_Parsexp_feed_subbytes=caml_string_of_jsbytes("Parsexp.feed_subbytes"), + cst_Parsexp_feed_substring= + caml_string_of_jsbytes("Parsexp.feed_substring"), + cst_Parsexp_Of_sexp_error=caml_string_of_jsbytes("Parsexp.Of_sexp_error"), Sexplib0_Sexp_conv=global_data.Sexplib0__Sexp_conv, Stdlib_listLabels=global_data.Stdlib__listLabels, Stdlib_array=global_data.Stdlib__array, @@ -59848,71 +62223,73 @@ Exn_converter]; caml_register_global(92,Parsexp_Import,"Parsexp__Import"); var - _h_=[0,caml_new_string("src/positions.ml"),398,12], - _g_=[0,caml_new_string("src/positions.ml"),377,12], - _f_=[0,caml_new_string("src/positions.ml"),200,12], - _d_=[0,caml_new_string("end_pos")], - _e_=[0,caml_new_string("start_pos")], - _a_=[0,caml_new_string("offset")], - _b_=[0,caml_new_string("col")], - _c_=[0,caml_new_string("line")], - _j_=[0,caml_new_string("unescaped")], - _k_=[0,caml_new_string("atom")], - _l_=[0,caml_new_string("loc")], - _m_=[0,caml_new_string("Atom")], - _n_=[0,caml_new_string("elements")], - _o_=[0,caml_new_string("loc")], - _p_=[0,caml_new_string("List")], - _q_=[0,caml_new_string("Sexp")], - _r_=[0,caml_new_string("Comment")], - _s_=[0,caml_new_string("comment")], - _t_=[0,caml_new_string("loc")], - _u_=[0,caml_new_string("Plain_comment")], - _v_=[0,caml_new_string("sexp")], - _w_=[0,caml_new_string("comments")], - _x_=[0,caml_new_string("hash_semi_pos")], - _y_=[0,caml_new_string("Sexp_comment")], - _L_=[0,caml_new_string("src/parser_automaton_internal.ml"),565,26], - _M_=[0,caml_new_string("src/parser_automaton_internal.ml"),593,4], + _h_=[0,caml_string_of_jsbytes("src/positions.ml"),398,12], + _g_=[0,caml_string_of_jsbytes("src/positions.ml"),377,12], + _f_=[0,caml_string_of_jsbytes("src/positions.ml"),200,12], + _d_=[0,caml_string_of_jsbytes("end_pos")], + _e_=[0,caml_string_of_jsbytes("start_pos")], + _a_=[0,caml_string_of_jsbytes("offset")], + _b_=[0,caml_string_of_jsbytes("col")], + _c_=[0,caml_string_of_jsbytes("line")], + _j_=[0,caml_string_of_jsbytes("unescaped")], + _k_=[0,caml_string_of_jsbytes("atom")], + _l_=[0,caml_string_of_jsbytes("loc")], + _m_=[0,caml_string_of_jsbytes("Atom")], + _n_=[0,caml_string_of_jsbytes("elements")], + _o_=[0,caml_string_of_jsbytes("loc")], + _p_=[0,caml_string_of_jsbytes("List")], + _q_=[0,caml_string_of_jsbytes("Sexp")], + _r_=[0,caml_string_of_jsbytes("Comment")], + _s_=[0,caml_string_of_jsbytes("comment")], + _t_=[0,caml_string_of_jsbytes("loc")], + _u_=[0,caml_string_of_jsbytes("Plain_comment")], + _v_=[0,caml_string_of_jsbytes("sexp")], + _w_=[0,caml_string_of_jsbytes("comments")], + _x_=[0,caml_string_of_jsbytes("hash_semi_pos")], + _y_=[0,caml_string_of_jsbytes("Sexp_comment")], + _L_=[0,caml_string_of_jsbytes("src/parser_automaton_internal.ml"),565,26], + _M_=[0,caml_string_of_jsbytes("src/parser_automaton_internal.ml"),593,4], _S_=[0,1], _R_=[0,-1], _Q_=[0,-1], _P_=[0,1], _O_=[0,0], _N_=[0,1], - _K_=[0,caml_new_string("src/parser_automaton_internal.ml"),523,6], + _K_=[0,caml_string_of_jsbytes("src/parser_automaton_internal.ml"),523,6], _I_= - [0,caml_new_string("parser_automaton_internal.ml.Public.Parse_error")], - _J_=[0,caml_new_string("src/parser_automaton_internal.ml"),219,15], - _F_=[0,caml_new_string("message")], - _G_=[0,caml_new_string("position")], - _z_=[0,caml_new_string("Parsing_toplevel_whitespace")], - _A_=[0,caml_new_string("Parsing_nested_whitespace")], - _B_=[0,caml_new_string("Parsing_atom")], - _C_=[0,caml_new_string("Parsing_list")], - _D_=[0,caml_new_string("Parsing_sexp_comment")], - _E_=[0,caml_new_string("Parsing_block_comment")], + [0, + caml_string_of_jsbytes + ("parser_automaton_internal.ml.Public.Parse_error")], + _J_=[0,caml_string_of_jsbytes("src/parser_automaton_internal.ml"),219,15], + _F_=[0,caml_string_of_jsbytes("message")], + _G_=[0,caml_string_of_jsbytes("position")], + _z_=[0,caml_string_of_jsbytes("Parsing_toplevel_whitespace")], + _A_=[0,caml_string_of_jsbytes("Parsing_nested_whitespace")], + _B_=[0,caml_string_of_jsbytes("Parsing_atom")], + _C_=[0,caml_string_of_jsbytes("Parsing_list")], + _D_=[0,caml_string_of_jsbytes("Parsing_sexp_comment")], + _E_=[0,caml_string_of_jsbytes("Parsing_block_comment")], _T_=[0,0,0,1,2,2,2,0,2,2,2,2,2,2,2,2,2,5,5,5,5,5,5,5,5,5,5,5], - _ad_=[0,caml_new_string("src/parsexp.ml"),453,13], - _ac_=[0,caml_new_string("src/parsexp.ml"),333,13], - _aa_=[0,caml_new_string("parsexp.ml.Of_sexp_error")], - _ab_=[0,caml_new_string("src/parsexp.ml"),154,13], - _Z_=[0,caml_new_string("Parse_error")], - ___=[0,caml_new_string("Of_sexp_error")], + _ad_=[0,caml_string_of_jsbytes("src/parsexp.ml"),453,13], + _ac_=[0,caml_string_of_jsbytes("src/parsexp.ml"),333,13], + _aa_=[0,caml_string_of_jsbytes("parsexp.ml.Of_sexp_error")], + _ab_=[0,caml_string_of_jsbytes("src/parsexp.ml"),154,13], + _Z_=[0,caml_string_of_jsbytes("Parse_error")], + ___=[0,caml_string_of_jsbytes("Of_sexp_error")], _Y_= [0, [11, - caml_new_string('File "'), + caml_string_of_jsbytes('File "'), [2, 0, [11, - caml_new_string('", line '), + caml_string_of_jsbytes('", line '), [4, 0, 0, 0, [11, - caml_new_string(", characters "), + caml_string_of_jsbytes(", characters "), [4, 0, 0, @@ -59924,36 +62301,37 @@ 0, 0, [11, - caml_new_string + caml_string_of_jsbytes (":\nError: s-expression conversion error;\nexception "), [2,0,partial]]]]]]]]]], - caml_new_string + caml_string_of_jsbytes ('File "%s", line %d, characters %d-%d:\nError: s-expression conversion error;\nexception %s\n')], - _V_=[0,caml_new_string("location")], - _W_=[0,caml_new_string("sub_sexp")], - _X_=[0,caml_new_string("user_exn")], + _V_=[0,caml_string_of_jsbytes("location")], + _W_=[0,caml_string_of_jsbytes("sub_sexp")], + _X_=[0,caml_string_of_jsbytes("user_exn")], _U_= [0, [11, - caml_new_string('File "'), + caml_string_of_jsbytes('File "'), [2, 0, [11, - caml_new_string('", line '), + caml_string_of_jsbytes('", line '), [4, 0, 0, 0, [11, - caml_new_string(", character "), + caml_string_of_jsbytes(", character "), [4, 0, 0, 0, [11, - caml_new_string(":\nError: s-expression parsing error;\n"), + caml_string_of_jsbytes + (":\nError: s-expression parsing error;\n"), [2,0,[12,10,0]]]]]]]]], - caml_new_string + caml_string_of_jsbytes ('File "%s", line %d, character %d:\nError: s-expression parsing error;\n%s\n')]; function sexp_of_pos(param) {var @@ -60108,9 +62486,7 @@ 0, 0]} throw [0,Assert_failure,_g_]} - var - No_more= - [248,cst_Parsexp_Positions_Iterator_No_more,caml_fresh_oo_id(0)]; + var No_more=[248,cst_Parsexp_Positions_Iterator,caml_fresh_oo_id(0)]; function no_more(param){throw No_more} function next_instruction_bits(t,num_bits) {if(t[10] < num_bits) @@ -60212,9 +62588,7 @@ var l=sexp[1],_bf_=1; function _bg_(acc,x){return acc + sub_sexp_count(x) | 0} return caml_call3(Stdlib_listLabels[21],_bg_,_bf_,l)} - var - Found= - [248,cst_Parsexp_Positions_Sexp_search_Found,caml_fresh_oo_id(0)]; + var Found=[248,cst_Parsexp_Positions_Sexp_sea,caml_fresh_oo_id(0)]; function loop(sub,index,sexp) {if(sexp === sub)throw [0,Found,index]; if(0 === sexp[0])return index + 2 | 0; @@ -60468,10 +62842,7 @@ function old_parser_exn(t){return t[3]} var include=[0,sexp_of_t$2,position$0,message,old_parser_exn], - Parse_error= - [248, - cst_Parsexp_Parser_automaton_internal_Public_Parse_error, - caml_fresh_oo_id(0)]; + Parse_error=[248,cst_Parsexp_Parser_automaton_i,caml_fresh_oo_id(0)]; function _H_(param) {if(param[1] === Parse_error) {var v0=param[2],v0$0=caml_call1(include[1],v0); @@ -60479,9 +62850,20 @@ throw [0,Assert_failure,_J_]} caml_call3(Sexplib0_Sexp_conv[51][2],0,Parse_error,_H_); function sexp_of_stack(param) - {if(typeof param !== "number" && 1 === param[0]) - if(typeof param[2] === "number"){var sexp=param[1];return sexp} - return caml_call1(Stdlib[2],cst_Parser_automaton_sexp_of_stack)} + {if + (typeof param + !== + "number" + && + 1 + === + param[0] + && + typeof param[2] + === + "number") + {var sexp=param[1];return sexp} + return caml_call1(Stdlib[2],cst_Parser_automaton_sexp_of_s)} function sexps_of_stack(stack) {var acc=0,param=stack; for(;;) @@ -60489,7 +62871,7 @@ return acc; else {if(0 === param[0]) - return caml_call1(Stdlib[2],cst_Parser_automaton_sexps_of_stack); + return caml_call1(Stdlib[2],cst_Parser_automaton_sexps_of_); var param$0=param[2], sexp=param[1], @@ -60511,7 +62893,7 @@ acc=acc$0, stack=stack$0; continue} - return caml_call1(Stdlib[2],cst_Parser_automaton_sexps_cst_of_stack)}} + return caml_call1(Stdlib[2],cst_Parser_automaton_sexps_cst)}} function automaton_state(state){return state[1]} var sexp_of_t$3=include[1], @@ -60522,14 +62904,13 @@ function raise(state,at_eof,reason) {set_error_state(state); switch(reason) - {case 0:var message=cst_unterminated_hexadecimal_escape_sequence;break; - case 1:var message=cst_unterminated_decimal_escape_sequence;break; + {case 0:var message=cst_unterminated_hexadecimal_e;break; + case 1:var message=cst_unterminated_decimal_escap;break; case 2:var message=cst_unterminated_quoted_string;break; case 3:var message=cst_unterminated_block_comment;break; - case 4: - var message=cst_escape_sequence_in_quoted_string_out_of_range;break; - case 5:var message=cst_unclosed_parentheses_at_end_of_input;break; - case 6:var message=cst_s_expression_followed_by_data;break; + case 4:var message=cst_escape_sequence_in_quoted_;break; + case 5:var message=cst_unclosed_parentheses_at_en;break; + case 6:var message=cst_s_expression_followed_by_d;break; case 7:var message=cst_unexpected_character;break; case 8: var @@ -60537,37 +62918,30 @@ message= caml_call2(Stdlib_string[34],_aW_,cst$0) ?cst_illegal_end_of_comment - :cst_comment_tokens_in_unquoted_atom; + :cst_comment_tokens_in_unquoted; break; case 9:var message=cst_unterminated_sexp_comment;break; case 10: var message= at_eof - ?cst_unexpected_end_of_input_after_carriage_return - :cst_unexpected_character_after_carriage_return; + ?cst_unexpected_end_of_input_af + :cst_unexpected_character_after; break; - case 11:var message=cst_no_s_expression_found_in_input;break; + case 11:var message=cst_no_s_expression_found_in_i;break; default: - var - message= - caml_call1(Stdlib[2],cst_Parsexp_Parser_automaton_parser_is_dead)} - if(6 === reason) - var switch$0=0; + var message=caml_call1(Stdlib[2],cst_Parsexp_Parser_automaton_p)} + var switch$0=0; + if(6 === reason || ! (0 === at_eof)) + switch$0 = 1; else - if(0 === at_eof) - {if(8 === reason) - {var _aV_=caml_call1(Stdlib_buffer[2],state[7]); - if(caml_call2(Stdlib_string[34],_aV_,cst)) - var old_parser_exn=-464807894,switch$0=1,switch$1=0; - else - var switch$1=1} - else - var switch$1=1; - if(switch$1)var old_parser_exn=434889564,switch$0=1} - else - var switch$0=0; - if(! switch$0)var old_parser_exn=-464807894; + {var switch$1=0; + if(8 === reason) + {var _aV_=caml_call1(Stdlib_buffer[2],state[7]); + if(caml_call2(Stdlib_string[34],_aV_,cst)) + {var old_parser_exn=-464807894;switch$1 = 1}} + if(! switch$1)var old_parser_exn=434889564} + if(switch$0)var old_parser_exn=-464807894; var position=[0,state[12],state[11] - state[13] | 0,state[11]]; throw [0,Parse_error,[0,position,message,old_parser_exn]]} var @@ -60602,11 +62976,8 @@ {caml_call2(Stdlib_buffer[10],state[7],c); return add_token_char(state,c,stack)} function check_new_sexp_allowed(state) - {var _aR_=state[9]; - if(typeof _aR_ === "number") - if(0 === _aR_)var is_single=1,switch$0=1;else var switch$0=0; - else - var switch$0=0; + {var _aR_=state[9],switch$0=0; + if(typeof _aR_ === "number" && 0 === _aR_){var is_single=1;switch$0 = 1} if(! switch$0)var is_single=0; if(is_single) var _aS_=0 < state[10]?1:0,_aT_=_aS_?is_not_ignoring(state):_aS_; @@ -60635,25 +63006,24 @@ caml_call2(Stdlib_buffer[10],state[8][1],34); return stack}} function add_escaped(state,c,stack) - {var _aO_=c - 34 | 0; + {var _aO_=c - 34 | 0,switch$0=0; if(5 < _aO_ >>> 0) {var switcher=_aO_ - 58 | 0; - if(24 < switcher >>> 0) - var switch$0=0; - else - {switch(switcher) - {case 0:var switch$0=1,switch$1=0;break; - case 6:var _aP_=8,switch$1=1;break; - case 18:var _aP_=10,switch$1=1;break; - case 22:var _aP_=13,switch$1=1;break; - case 24:var _aP_=9,switch$1=1;break; - default:var switch$0=0,switch$1=0} - if(switch$1)var c$0=_aP_,switch$0=2}} + if(! (24 < switcher >>> 0)) + {var switch$1=0; + switch(switcher) + {case 0:switch$0 = 2;switch$1 = 1;break; + case 6:var _aP_=8;break; + case 18:var _aP_=10;break; + case 22:var _aP_=13;break; + case 24:var _aP_=9;break; + default:switch$1 = 1} + if(! switch$1){var c$0=_aP_;switch$0 = 1}}} else - var switch$0=3 < (_aO_ - 1 | 0) >>> 0?1:0; + if(3 < (_aO_ - 1 | 0) >>> 0)switch$0 = 2; switch(switch$0) {case 0:caml_call2(Stdlib_buffer[10],state[7],92);var c$0=c;break; - case 1:var c$0=c;break + case 2:var c$0=c;break } caml_call2(Stdlib_buffer[10],state[7],c$0); return add_token_char(state,c,stack)} @@ -60676,7 +63046,7 @@ var _aN_=caml_call1(Stdlib_char[1],value); caml_call2(Stdlib_buffer[10],state[7],_aN_); return add_token_char(state,c,stack)} - function comment_add_last_dec_escape_char(state,c,stack) + function comment_add_last_dec_escape_ch(state,c,stack) {var value=(state[6] * 10 | 0) + (c - 48 | 0) | 0; state[6] = 0; if(255 < value)caml_call3(Error[6],state,0,4); @@ -60720,9 +63090,15 @@ try {var stack$0=caml_call2(f,state,stack)} catch(e){e = caml_wrap_exception(e);set_error_state(state);throw e} - if(state[11] === (saved_offset + delta | 0)) - if(state[10] === saved_full_sexps) - {state[11] = saved_offset;reset_positions(state);return stack$0} + if + (state[11] + === + (saved_offset + delta | 0) + && + state[10] + === + saved_full_sexps) + {state[11] = saved_offset;reset_positions(state);return stack$0} throw [0,Assert_failure,_K_]} function is_top_level(state) {var _aH_=is_not_ignoring(state),_aI_=_aH_?0 === state[3]?1:0:_aH_; @@ -60732,19 +63108,19 @@ ?toplevel_sexp_or_comment_added(state,stack,delta) :stack} function sexp_added(state,stack,delta) - {var _aF_=state[5]; + {var _aF_=state[5],switch$0=0; if(_aF_) {var tl=_aF_[2],inner_comment_depth=_aF_[1]; if(state[3] < inner_comment_depth) - var is_comment=caml_call3(Error[6],state,0,9),switch$0=1; + var is_comment=caml_call3(Error[6],state,0,9); else if(inner_comment_depth === state[3]) - {state[5] = tl;var is_comment=1,switch$0=1} + {state[5] = tl;var is_comment=1} else - var switch$0=0} + switch$0 = 1} else - var switch$0=0; - if(! switch$0)var is_comment=0; + switch$0 = 1; + if(switch$0)var is_comment=0; if(is_top_level(state)) {if(1 - is_comment)state[10] = state[10] + 1 | 0; if(is_comment){var _aG_=3 <= state[2]?1:0;if(! _aG_)return stack} @@ -60798,8 +63174,9 @@ default: var end_pos=current_pos(_N_,state),acc=0,param=stack$0; for(;;) - {if(typeof param === "number") - var switch$0=0; + {var switch$0=0; + if(typeof param === "number") + switch$0 = 1; else switch(param[0]) {case 0: @@ -60815,11 +63192,10 @@ stack=param[2], start_pos=param[1], sexp=[1,[0,start_pos,end_pos],acc], - stack$1=add_sexp_to_stack_cst(sexp,stack), - switch$0=1; + stack$1=add_sexp_to_stack_cst(sexp,stack); break; - default:var switch$0=0} - if(! switch$0)throw [0,Assert_failure,_M_]; + default:switch$0 = 1} + if(switch$0)throw [0,Assert_failure,_M_]; break}} state[3] = state[3] - 1 | 0; return sexp_added(state,stack$1,1)} @@ -60935,9 +63311,11 @@ {if(0 < state[3])caml_call3(Error[6],state,1,5); if(is_ignoring(state))caml_call3(Error[6],state,1,9); if(0 === state[10]) - {var - _aA_=state[9], - switch$0=typeof _aA_ === "number"?0 === _aA_?1:0:0 === _aA_[2]?0:1; + {var _aA_=state[9],switch$0=0; + if(typeof _aA_ === "number") + {if(0 === _aA_)switch$0 = 1} + else + if(0 !== _aA_[2])switch$0 = 1; if(switch$0)caml_call3(Error[6],state,1,11)} return stack} var @@ -60962,7 +63340,7 @@ atom_buffer, Old_parser_cont_state, automaton_state], - Parsexp_Parser_automaton_internal= + Parsexp_Parser_automaton_inter= [0, include$0, Error, @@ -60976,7 +63354,7 @@ add_escaped, add_dec_escape_char, add_last_dec_escape_char, - comment_add_last_dec_escape_char, + comment_add_last_dec_escape_ch, add_hex_escape_char, add_last_hex_escape_char, start_sexp_comment, @@ -60995,9 +63373,7 @@ eps_eoi_check, eps_add_escaped_cr]; caml_register_global - (105, - Parsexp_Parser_automaton_internal, - "Parsexp__Parser_automaton_internal"); + (105,Parsexp_Parser_automaton_inter,"Parsexp__Parser_automaton_internal"); var Parsexp_Parsexp_intf=[0]; caml_register_global(106,Parsexp_Parsexp_intf,"Parsexp__Parsexp_intf"); var @@ -61400,7 +63776,7 @@ advance$0(state); return stack$0} function tr_75(state,char$0,stack) - {var stack$0=comment_add_last_dec_escape_char(state,char$0,stack); + {var stack$0=comment_add_last_dec_escape_ch(state,char$0,stack); set_automaton_state(state,19); advance$0(state); return stack$0} @@ -68399,7 +70775,7 @@ _ax_=caml_call1(automaton_state$0,state), match$0=caml_check_bound(old_parser_approx_cont_states,_ax_)[1 + _ax_], match$1=caml_call1(has_unclosed_paren$0,state); - if(0 === match$0)if(0 !== match$1)return 3; + if(0 === match$0 && 0 !== match$1)return 3; return match$0} var Parsexp_Parser_automaton= @@ -68589,11 +70965,7 @@ function stop(t){return caml_call1(set_error_state$0,t)} function old_parser_cont_state$0(t){return old_parser_cont_state(t)} function feed_eoi$0(state,stack){feed_eoi(state,stack);return 0} - var - Got_sexp= - [248, - cst_Parsexp_Make_eager_Params_Lexbuf_consumer_Got_sexp, - caml_fresh_oo_id(0)]; + var Got_sexp=[248,cst_Parsexp_Make_eager_Params_,caml_fresh_oo_id(0)]; function got_sexp(state,parsed_value) {throw [0,Got_sexp,parsed_value,caml_call1(position$0,state)]} function create$0(param){return create(0,0,got_sexp)} @@ -68714,7 +71086,7 @@ var Many_cst=Make([0,kind$8,mode$7,empty$0,make_value$8]),kind$9=3; function make_value$9(param,stack) {var match=caml_call1(sexps_cst_of_stack$0,stack); - if(match)if(! match[2]){var sexp=match[1];return sexp} + if(match && ! match[2]){var sexp=match[1];return sexp} throw [0,Assert_failure,_ad_]} var Eager_cst=Make_eager([0,kind$9,empty$0,make_value$9]); function Make_conv(Mode,Parser,Parser_pos) @@ -68850,9 +71222,9 @@ caml_ml_string_length=runtime.caml_ml_string_length, caml_mod=runtime.caml_mod, caml_mul=runtime.caml_mul, - caml_new_string=runtime.caml_new_string, caml_register_global=runtime.caml_register_global, caml_string_get=runtime.caml_string_get, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, caml_wrap_exception=runtime.caml_wrap_exception, compare_nat=runtime.compare_nat, complement_nat=runtime.complement_nat, @@ -68888,120 +71260,125 @@ :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} var global_data=runtime.caml_get_global_data(), - cst_invalid_digit=caml_new_string("invalid digit"), - cst_number_too_long=caml_new_string("number too long"), - cst_power_base_int=caml_new_string("power_base_int"), - cst_nat_of_int=caml_new_string("nat_of_int"), - cst_int_of_nat=caml_new_string("int_of_nat"), - cst_make_nat=caml_new_string("make_nat"), - cst_xor_big_int=caml_new_string("xor_big_int"), - cst_or_big_int=caml_new_string("or_big_int"), - cst_and_big_int=caml_new_string("and_big_int"), - cst_extract_big_int=caml_new_string("extract_big_int"), - cst_shift_right_big_int=caml_new_string("shift_right_big_int"), - cst_two_power_m1_big_int=caml_new_string("two_power_m1_big_int"), - cst_shift_right_towards_zero_big_int= - caml_new_string("shift_right_towards_zero_big_int"), - cst_shift_left_big_int=caml_new_string("shift_left_big_int"), - cst_100000000=caml_new_string("100000000"), - cst_963295986=caml_new_string("963295986"), - cst$0=caml_new_string("-"), - sign=caml_new_string(""), - cst_e=caml_new_string("e"), - cst_1=caml_new_string("1."), - cst_e$0=caml_new_string("e"), - cst$1=caml_new_string("."), - cst_sqrt_big_int=caml_new_string("sqrt_big_int"), - cst_base_power_big_int=caml_new_string("base_power_big_int"), - cst_base_power_big_int$0=caml_new_string("base_power_big_int"), - cst_base_power_big_int$1=caml_new_string("base_power_big_int"), - cst_power_big_int_positive_big_int= - caml_new_string("power_big_int_positive_big_int"), + cst_invalid_digit=caml_string_of_jsbytes("invalid digit"), + cst_number_too_long=caml_string_of_jsbytes("number too long"), + cst_power_base_int=caml_string_of_jsbytes("power_base_int"), + cst_nat_of_int=caml_string_of_jsbytes("nat_of_int"), + cst_int_of_nat=caml_string_of_jsbytes("int_of_nat"), + cst_make_nat=caml_string_of_jsbytes("make_nat"), + cst_xor_big_int=caml_string_of_jsbytes("xor_big_int"), + cst_or_big_int=caml_string_of_jsbytes("or_big_int"), + cst_and_big_int=caml_string_of_jsbytes("and_big_int"), + cst_extract_big_int=caml_string_of_jsbytes("extract_big_int"), + cst_shift_right_big_int=caml_string_of_jsbytes("shift_right_big_int"), + cst_two_power_m1_big_int=caml_string_of_jsbytes("two_power_m1_big_int"), + cst_shift_right_towards_zero_b= + caml_string_of_jsbytes("shift_right_towards_zero_big_int"), + cst_shift_left_big_int=caml_string_of_jsbytes("shift_left_big_int"), + cst_100000000=caml_string_of_jsbytes("100000000"), + cst_963295986=caml_string_of_jsbytes("963295986"), + cst$0=caml_string_of_jsbytes("-"), + sign=caml_string_of_jsbytes(""), + cst_e=caml_string_of_jsbytes("e"), + cst_1=caml_string_of_jsbytes("1."), + cst_e$0=caml_string_of_jsbytes("e"), + cst$1=caml_string_of_jsbytes("."), + cst_sqrt_big_int=caml_string_of_jsbytes("sqrt_big_int"), + cst_base_power_big_int=caml_string_of_jsbytes("base_power_big_int"), + cst_base_power_big_int$0=caml_string_of_jsbytes("base_power_big_int"), + cst_base_power_big_int$1=caml_string_of_jsbytes("base_power_big_int"), + cst_power_big_int_positive_big= + caml_string_of_jsbytes("power_big_int_positive_big_int"), cst_power_int_positive_big_int= - caml_new_string("power_int_positive_big_int"), + caml_string_of_jsbytes("power_int_positive_big_int"), cst_power_big_int_positive_int= - caml_new_string("power_big_int_positive_int"), - cst_power_int_positive_int=caml_new_string("power_int_positive_int"), - cst_sys_big_int_of_string$1=caml_new_string("sys_big_int_of_string"), - cst_sys_big_int_of_string$0=caml_new_string("sys_big_int_of_string"), - cst_sys_big_int_of_string=caml_new_string("sys_big_int_of_string"), - cst=caml_new_string("-"), - cst_nat_of_big_int=caml_new_string("nat_of_big_int"), - cst_int64_of_big_int$1=caml_new_string("int64_of_big_int"), - cst_int64_of_big_int=caml_new_string("int64_of_big_int"), - cst_int64_of_big_int$0=caml_new_string("int64_of_big_int"), - cst_int32_of_big_int=caml_new_string("int32_of_big_int"), - cst_nativeint_of_big_int=caml_new_string("nativeint_of_big_int"), - cst_nativeint_of_big_int$0=caml_new_string("nativeint_of_big_int"), - cst_nativeint_of_big_int$1=caml_new_string("nativeint_of_big_int"), - cst_int_of_big_int=caml_new_string("int_of_big_int"), - cst_create_big_int=caml_new_string("create_big_int"), - cst$5=caml_new_string("/"), - cst_approx_ratio_exp=caml_new_string("approx_ratio_exp"), - cst_approx_ratio_exp$0=caml_new_string("approx_ratio_exp"), - cst_0$0=caml_new_string("+0."), - cst$4=caml_new_string(""), - cst_1$1=caml_new_string("-1."), - cst_1$2=caml_new_string("+1."), - cst_0$1=caml_new_string("-0."), - cst_0$2=caml_new_string("+0."), - cst_approx_ratio_fix=caml_new_string("approx_ratio_fix"), - cst_0=caml_new_string("+0"), - cst_1$0=caml_new_string("1"), - cst_msd_ratio=caml_new_string("msd_ratio"), - cst_big_int_of_ratio=caml_new_string("big_int_of_ratio"), - cst_nat_of_ratio$0=caml_new_string("nat_of_ratio"), - cst_nat_of_ratio=caml_new_string("nat_of_ratio"), + caml_string_of_jsbytes("power_big_int_positive_int"), + cst_power_int_positive_int= + caml_string_of_jsbytes("power_int_positive_int"), + cst_sys_big_int_of_string$1= + caml_string_of_jsbytes("sys_big_int_of_string"), + cst_sys_big_int_of_string$0= + caml_string_of_jsbytes("sys_big_int_of_string"), + cst_sys_big_int_of_string=caml_string_of_jsbytes("sys_big_int_of_string"), + cst=caml_string_of_jsbytes("-"), + cst_nat_of_big_int=caml_string_of_jsbytes("nat_of_big_int"), + cst_int64_of_big_int$1=caml_string_of_jsbytes("int64_of_big_int"), + cst_int64_of_big_int=caml_string_of_jsbytes("int64_of_big_int"), + cst_int64_of_big_int$0=caml_string_of_jsbytes("int64_of_big_int"), + cst_int32_of_big_int=caml_string_of_jsbytes("int32_of_big_int"), + cst_nativeint_of_big_int=caml_string_of_jsbytes("nativeint_of_big_int"), + cst_nativeint_of_big_int$0=caml_string_of_jsbytes("nativeint_of_big_int"), + cst_nativeint_of_big_int$1=caml_string_of_jsbytes("nativeint_of_big_int"), + cst_int_of_big_int=caml_string_of_jsbytes("int_of_big_int"), + cst_create_big_int=caml_string_of_jsbytes("create_big_int"), + cst$5=caml_string_of_jsbytes("/"), + cst_approx_ratio_exp=caml_string_of_jsbytes("approx_ratio_exp"), + cst_approx_ratio_exp$0=caml_string_of_jsbytes("approx_ratio_exp"), + cst_0$0=caml_string_of_jsbytes("+0."), + cst$4=caml_string_of_jsbytes(""), + cst_1$1=caml_string_of_jsbytes("-1."), + cst_1$2=caml_string_of_jsbytes("+1."), + cst_0$1=caml_string_of_jsbytes("-0."), + cst_0$2=caml_string_of_jsbytes("+0."), + cst_approx_ratio_fix=caml_string_of_jsbytes("approx_ratio_fix"), + cst_0=caml_string_of_jsbytes("+0"), + cst_1$0=caml_string_of_jsbytes("1"), + cst_msd_ratio=caml_string_of_jsbytes("msd_ratio"), + cst_big_int_of_ratio=caml_string_of_jsbytes("big_int_of_ratio"), + cst_nat_of_ratio$0=caml_string_of_jsbytes("nat_of_ratio"), + cst_nat_of_ratio=caml_string_of_jsbytes("nat_of_ratio"), cst_integer_argument_required= - caml_new_string("integer argument required"), - cst_integer_ratio=caml_new_string("integer_ratio"), - cst_inverse_ratio=caml_new_string("inverse_ratio"), - cst_create_normalized_ratio=caml_new_string("create_normalized_ratio"), - cst_create_ratio=caml_new_string("create_ratio"), - cst$3=caml_new_string(""), - s=caml_new_string("infinite or undefined rational number"), - cst$2=caml_new_string(" "), - cst_num_of_string=caml_new_string("num_of_string"), - cst_power_num=caml_new_string("power_num"), - cst_Normalization_during_computation= - caml_new_string("Normalization during computation"), - cst_returned_by_get_normalize_ratio= - caml_new_string(" (returned by get_normalize_ratio ())"), - cst_modifiable_with_set_normalize_ratio_your_choice= - caml_new_string + caml_string_of_jsbytes("integer argument required"), + cst_integer_ratio=caml_string_of_jsbytes("integer_ratio"), + cst_inverse_ratio=caml_string_of_jsbytes("inverse_ratio"), + cst_create_normalized_ratio= + caml_string_of_jsbytes("create_normalized_ratio"), + cst_create_ratio=caml_string_of_jsbytes("create_ratio"), + cst$3=caml_string_of_jsbytes(""), + s=caml_string_of_jsbytes("infinite or undefined rational number"), + cst$2=caml_string_of_jsbytes(" "), + cst_num_of_string=caml_string_of_jsbytes("num_of_string"), + cst_power_num=caml_string_of_jsbytes("power_num"), + cst_Normalization_during_compu= + caml_string_of_jsbytes("Normalization during computation"), + cst_returned_by_get_normalize_= + caml_string_of_jsbytes(" (returned by get_normalize_ratio ())"), + cst_modifiable_with_set_normal= + caml_string_of_jsbytes (" (modifiable with set_normalize_ratio )"), - cst_Normalization_when_printing= - caml_new_string("Normalization when printing"), - cst_returned_by_get_normalize_ratio_when_printing= - caml_new_string + cst_Normalization_when_printin= + caml_string_of_jsbytes("Normalization when printing"), + cst_returned_by_get_normalize_$0= + caml_string_of_jsbytes (" (returned by get_normalize_ratio_when_printing ())"), - cst_modifiable_with_set_normalize_ratio_when_printing_your_choice= - caml_new_string + cst_modifiable_with_set_normal$0= + caml_string_of_jsbytes (" (modifiable with set_normalize_ratio_when_printing )"), - cst_Floating_point_approximation_when_printing_rational_numbers= - caml_new_string + cst_Floating_point_approximati= + caml_string_of_jsbytes ("Floating point approximation when printing rational numbers"), - cst_returned_by_get_approx_printing= - caml_new_string(" (returned by get_approx_printing ())"), - cst_modifiable_with_set_approx_printing_your_choice= - caml_new_string + cst_returned_by_get_approx_pri= + caml_string_of_jsbytes(" (returned by get_approx_printing ())"), + cst_modifiable_with_set_approx= + caml_string_of_jsbytes (" (modifiable with set_approx_printing )"), - cst_Default_precision=caml_new_string(" Default precision = "), - cst_returned_by_get_floating_precision= - caml_new_string(" (returned by get_floating_precision ())"), - cst_modifiable_with_set_floating_precision_your_choice= - caml_new_string + cst_Default_precision=caml_string_of_jsbytes(" Default precision = "), + cst_returned_by_get_floating_p= + caml_string_of_jsbytes(" (returned by get_floating_precision ())"), + cst_modifiable_with_set_floati= + caml_string_of_jsbytes (" (modifiable with set_floating_precision )"), - cst_Error_when_a_rational_denominator_is_null= - caml_new_string("Error when a rational denominator is null"), - cst_returned_by_get_error_when_null_denominator= - caml_new_string(" (returned by get_error_when_null_denominator ())"), - cst_modifiable_with_set_error_when_null_denominator_your_choice= - caml_new_string + cst_Error_when_a_rational_deno= + caml_string_of_jsbytes("Error when a rational denominator is null"), + cst_returned_by_get_error_when= + caml_string_of_jsbytes + (" (returned by get_error_when_null_denominator ())"), + cst_modifiable_with_set_error_= + caml_string_of_jsbytes (" (modifiable with set_error_when_null_denominator )"), - cst_ON=caml_new_string("ON"), - cst_OFF=caml_new_string("OFF"), - cst$6=caml_new_string(" --> "), + cst_ON=caml_string_of_jsbytes("ON"), + cst_OFF=caml_string_of_jsbytes("OFF"), + cst$6=caml_string_of_jsbytes(" --> "), Stdlib=global_data.Stdlib, Stdlib_sys=global_data.Stdlib__sys, Stdlib_string=global_data.Stdlib__string, @@ -69010,29 +71387,29 @@ Assert_failure=global_data.Assert_failure, Stdlib_int64=global_data.Stdlib__int64, Stdlib_nativeint=global_data.Stdlib__nativeint, - _C_=[0,caml_new_string("nat.ml"),273,9], - _B_=runtime.caml_int64_create_lo_mi_hi(6553600,11973543,3552), - _A_=[0,caml_new_string("nat.ml"),280,9], - _z_=[0,caml_new_string("nat.ml"),287,9], - _y_=[0,caml_new_string("nat.ml"),293,9], - _x_=runtime.caml_int64_create_lo_mi_hi(6553600,11973543,3552), - _o_=[0,caml_new_string("big_int.ml"),879,2], - _n_=runtime.caml_int64_create_lo_mi_hi(1,0,0), - _m_=runtime.caml_int64_create_lo_mi_hi(16777215,255,0), + _z_=[0,caml_string_of_jsbytes("nat.ml"),273,9], + _y_=runtime.caml_int64_create_lo_mi_hi(6553600,11973543,3552), + _x_=[0,caml_string_of_jsbytes("nat.ml"),280,9], + _w_=[0,caml_string_of_jsbytes("nat.ml"),287,9], + _v_=[0,caml_string_of_jsbytes("nat.ml"),293,9], + _u_=runtime.caml_int64_create_lo_mi_hi(6553600,11973543,3552), + _l_=[0,caml_string_of_jsbytes("big_int.ml"),879,2], + _k_=runtime.caml_int64_create_lo_mi_hi(1,0,0), _j_=runtime.caml_int64_create_lo_mi_hi(16777215,255,0), - _k_=runtime.caml_int64_create_lo_mi_hi(0,0,0), - _l_=runtime.caml_int64_create_lo_mi_hi(0,0,0), - _g_=runtime.caml_int64_create_lo_mi_hi(0,0,0), + _g_=runtime.caml_int64_create_lo_mi_hi(16777215,255,0), _h_=runtime.caml_int64_create_lo_mi_hi(0,0,0), _i_=runtime.caml_int64_create_lo_mi_hi(0,0,0), - _q_=[0,caml_new_string("ratio.ml"),575,11], - _p_=[0,caml_new_string("e0"),0], - _u_=[0,1], - _v_=[0,1], - _w_=[0,1], + _d_=runtime.caml_int64_create_lo_mi_hi(0,0,0), + _e_=runtime.caml_int64_create_lo_mi_hi(0,0,0), + _f_=runtime.caml_int64_create_lo_mi_hi(0,0,0), + _n_=[0,caml_string_of_jsbytes("ratio.ml"),575,11], + _m_=[0,caml_string_of_jsbytes("e0"),0], _r_=[0,1], _s_=[0,1], - _t_=[0,1]; + _t_=[0,1], + _o_=[0,1], + _p_=[0,1], + _q_=[0,1]; function gcd_int(i1,i2) {var i1$0=i1,i2$0=i2; for(;;) @@ -69044,6 +71421,11 @@ function num_bits_int(n) {return num_bits_int_aux(caml_call1(Stdlib[18],n))} function sign_int(i){return 0 === i?0:0 < i?1:-1} + var + length_of_int=Stdlib_sys[10] - 1 | 0, + monster_int=1 << length_of_int, + biggest_int=monster_int - 1 | 0, + least_int=- biggest_int | 0; function compare_int(n1,n2) {return n1 === n2?0:caml_greaterthan(n1,n2)?1:-1} var @@ -69053,15 +71435,14 @@ num_bits_int, compare_int, sign_int, - 31, - 2147483647, - -2147483647, - -2147483648]; + length_of_int, + biggest_int, + least_int, + monster_int]; caml_register_global(122,Int_misc,"Int_misc"); runtime.initialize_nat(0); - var _a_=2147483647,_b_=-2147483647,_c_=-2147483648; function length_nat(n){return n.length - 1 - 1 | 0} - var _d_=Stdlib_sys[9]; + var _a_=Stdlib_sys[9]; function make_nat(len) {if(0 <= len) {var res=create_nat(len);set_to_zero_nat(res,0,len);return res} @@ -69072,13 +71453,13 @@ blit_nat(res,0,nat,off_set,length); return res} function is_zero_nat(n,off,len) - {var _dn_=num_digits_nat(n,off,len); - return 0 === compare_nat(make_nat(1),0,1,n,off,_dn_)?1:0} + {var _dk_=num_digits_nat(n,off,len); + return 0 === compare_nat(make_nat(1),0,1,n,off,_dk_)?1:0} function is_nat_int(nat,off,len) {var - _dl_=1 === num_digits_nat(nat,off,len)?1:0, - _dm_=_dl_?is_digit_int(nat,off):_dl_; - return _dm_} + _di_=1 === num_digits_nat(nat,off,len)?1:0, + _dj_=_di_?is_digit_int(nat,off):_di_; + return _dj_} function int_of_nat(nat) {var len=length_nat(nat); return is_nat_int(nat,0,len) @@ -69089,43 +71470,43 @@ {var res=make_nat(1);return 0 === i?res:(set_digit_nat(res,0,i),res)} return caml_call1(Stdlib[1],cst_nat_of_int)} function eq_nat(nat1,off1,len1,nat2,off2,len2) - {var _dk_=num_digits_nat(nat2,off2,len2); + {var _dh_=num_digits_nat(nat2,off2,len2); return 0 === compare_nat - (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_dk_) + (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_dh_) ?1 :0} function le_nat(nat1,off1,len1,nat2,off2,len2) - {var _dj_=num_digits_nat(nat2,off2,len2); + {var _dg_=num_digits_nat(nat2,off2,len2); return compare_nat - (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_dj_) + (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_dg_) <= 0 ?1 :0} function lt_nat(nat1,off1,len1,nat2,off2,len2) - {var _di_=num_digits_nat(nat2,off2,len2); + {var _df_=num_digits_nat(nat2,off2,len2); return compare_nat - (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_di_) + (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_df_) < 0 ?1 :0} function ge_nat(nat1,off1,len1,nat2,off2,len2) - {var _dh_=num_digits_nat(nat2,off2,len2); + {var _de_=num_digits_nat(nat2,off2,len2); return 0 <= compare_nat - (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_dh_) + (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_de_) ?1 :0} function gt_nat(nat1,off1,len1,nat2,off2,len2) - {var _dg_=num_digits_nat(nat2,off2,len2); + {var _dd_=num_digits_nat(nat2,off2,len2); return 0 < compare_nat - (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_dg_) + (nat1,off1,num_digits_nat(nat1,off1,len1),nat2,off2,_dd_) ?1 :0} function exchange(r1,r2) @@ -69142,10 +71523,10 @@ set_digit_nat(copy2[1],len2,0); if(lt_nat(copy1[1],0,len1,copy2[1],0,len2))exchange(copy1,copy2); var - _de_=length_nat(copy1[1]), - real_len1=[0,num_digits_nat(copy1[1],0,_de_)], - _df_=length_nat(copy2[1]), - real_len2=[0,num_digits_nat(copy2[1],0,_df_)]; + _db_=length_nat(copy1[1]), + real_len1=[0,num_digits_nat(copy1[1],0,_db_)], + _dc_=length_nat(copy2[1]), + real_len2=[0,num_digits_nat(copy2[1],0,_dc_)]; for(;;) {if(is_zero_nat(copy2[1],0,real_len2[1])) {blit_nat(nat1,off1,copy1[1],0,real_len1[1]);return real_len1[1]} @@ -69171,14 +71552,14 @@ shift_cand= (num_leading_zero_bits_in_digit(rad$0,len$0 - 1 | 0) + - caml_mul(_d_,len_parity) + caml_mul(_a_,len_parity) | 0) / 2 | 0; - if(shift_cand === _d_)return cand; + if(shift_cand === _a_)return cand; complement_nat(cand,0,cand_len); shift_right_nat(cand,0,1,a_1,0,shift_cand); var next_cand=create_nat(rad_len); @@ -69191,40 +71572,40 @@ {blit_nat(cand,0,next_cand,cand_len,cand_len);continue} return cand}} var power_base_max=make_nat(2); - if(32 === _d_) + if(32 === _a_) set_digit_nat(power_base_max,0,1000000000); else - {if(64 !== _d_)throw [0,Assert_failure,_C_]; - set_digit_nat(power_base_max,0,caml_int64_to_int32(_B_)); + {if(64 !== _a_)throw [0,Assert_failure,_z_]; + set_digit_nat(power_base_max,0,caml_int64_to_int32(_y_)); mult_digit_nat(power_base_max,0,2,power_base_max,0,1,nat_of_int(9),0)} - if(32 === _d_) - var _e_=9; + if(32 === _a_) + var _b_=9; else - {if(64 !== _d_)throw [0,Assert_failure,_A_];var _e_=19} - if(32 === _d_) - var _f_=9; + {if(64 !== _a_)throw [0,Assert_failure,_x_];var _b_=19} + if(32 === _a_) + var _c_=9; else - {if(64 !== _d_)throw [0,Assert_failure,_z_];var _f_=18} - if(32 === _d_) + {if(64 !== _a_)throw [0,Assert_failure,_w_];var _c_=18} + if(32 === _a_) var max_power_10_power_in_int=nat_of_int(1000000000); else - {if(64 !== _d_)throw [0,Assert_failure,_y_]; - var max_power_10_power_in_int=nat_of_int(caml_int64_to_int32(_x_))} + {if(64 !== _a_)throw [0,Assert_failure,_v_]; + var max_power_10_power_in_int=nat_of_int(caml_int64_to_int32(_u_))} function raw_string_of_digit(nat,off) {if(is_nat_int(nat,off,1)) - {var _db_=nth_digit_nat(nat,off);return caml_call1(Stdlib[33],_db_)} + {var _c__=nth_digit_nat(nat,off);return caml_call1(Stdlib[33],_c__)} blit_nat(b_2,0,nat,off,1); div_digit_nat(a_2,0,a_1,0,b_2,0,2,max_power_10_power_in_int,0); var leading_digits=nth_digit_nat(a_2,0), - _dc_=nth_digit_nat(a_1,0), - s1=caml_call1(Stdlib[33],_dc_), + _c$_=nth_digit_nat(a_1,0), + s1=caml_call1(Stdlib[33],_c$_), len=caml_ml_string_length(s1); if(10 <= leading_digits) {var - result=caml_call2(Stdlib_bytes[1],_f_ + 2 | 0,48), - _dd_=caml_call1(Stdlib[33],leading_digits); - caml_call5(Stdlib_string[6],_dd_,0,result,0,2); + result=caml_call2(Stdlib_bytes[1],_c_ + 2 | 0,48), + _da_=caml_call1(Stdlib[33],leading_digits); + caml_call5(Stdlib_string[6],_da_,0,result,0,2); caml_call5 (Stdlib_string[6], s1, @@ -69233,7 +71614,7 @@ caml_ml_bytes_length(result) - len | 0, len); return caml_call1(Stdlib_bytes[6],result)} - var result$0=caml_call2(Stdlib_bytes[1],_f_ + 1 | 0,48); + var result$0=caml_call2(Stdlib_bytes[1],_c_ + 1 | 0,48); caml_bytes_set (result$0,0,caml_call1(Stdlib_char[1],48 + leading_digits | 0)); caml_call5 @@ -69254,50 +71635,49 @@ (power_base,i[1],2,power_base,i[1] - 1 | 0,1,power_base,0); continue} for(;;) - {if(j[1] < (i[1] - 1 | 0)) - if(is_digit_int(power_base,j[1])){j[1]++;continue} + {if(j[1] < (i[1] - 1 | 0) && is_digit_int(power_base,j[1])) + {j[1]++;continue} return [0,i[1] - 2 | 0,j[1]]}}} function power_base_int(base,i) - {if(0 !== i) - if(1 !== base) - {if(0 === base)return nat_of_int(0); - if(0 <= i) - {var - power_base=make_nat(_d_ + 1 | 0), - match=make_power_base(base,power_base), - pmax=match[1], - n=caml_div(i,pmax + 1 | 0), - rem=caml_mod(i,pmax + 1 | 0); - if(0 < n) - {var - newn=i === 2147483647?n:n + 1 | 0, - res=make_nat(newn), - res2=make_nat(newn), - l=num_bits_int(n) - 2 | 0; - blit_nat(res,0,power_base,pmax,1); - if(! (l < 0)) - {var i$0=l; - for(;;) - {var - len=num_digits_nat(res,0,newn), - len2=caml_call2(Stdlib[16],n,2 * len | 0), - succ_len2=len2 + 1 | 0; - square_nat(res2,0,len2,res,0,len); - if(0 < (n & 1 << i$0)) - {set_to_zero_nat(res,0,len); - mult_digit_nat(res,0,succ_len2,res2,0,len2,power_base,pmax)} - else - blit_nat(res,0,res2,0,len2); - set_to_zero_nat(res2,0,len2); - var _da_=i$0 - 1 | 0; - if(0 !== i$0){var i$0=_da_;continue} - break}} - return 0 < rem - ?(mult_digit_nat(res2,0,newn,res,0,n,power_base,rem - 1 | 0), - res2) - :res} - return copy_nat(power_base,rem - 1 | 0,1)} - return caml_call1(Stdlib[1],cst_power_base_int)} + {if(0 !== i && 1 !== base) + {if(0 === base)return nat_of_int(0); + if(0 <= i) + {var + power_base=make_nat(_a_ + 1 | 0), + match=make_power_base(base,power_base), + pmax=match[1], + n=caml_div(i,pmax + 1 | 0), + rem=caml_mod(i,pmax + 1 | 0); + if(0 < n) + {var + newn=i === biggest_int?n:n + 1 | 0, + res=make_nat(newn), + res2=make_nat(newn), + l=num_bits_int(n) - 2 | 0; + blit_nat(res,0,power_base,pmax,1); + if(! (l < 0)) + {var i$0=l; + for(;;) + {var + len=num_digits_nat(res,0,newn), + len2=caml_call2(Stdlib[16],n,2 * len | 0), + succ_len2=len2 + 1 | 0; + square_nat(res2,0,len2,res,0,len); + if(0 < (n & 1 << i$0)) + {set_to_zero_nat(res,0,len); + mult_digit_nat(res,0,succ_len2,res2,0,len2,power_base,pmax)} + else + blit_nat(res,0,res2,0,len2); + set_to_zero_nat(res2,0,len2); + var _c9_=i$0 - 1 | 0; + if(0 !== i$0){var i$0=_c9_;continue} + break}} + return 0 < rem + ?(mult_digit_nat(res2,0,newn,res,0,n,power_base,rem - 1 | 0), + res2) + :res} + return copy_nat(power_base,rem - 1 | 0,1)} + return caml_call1(Stdlib[1],cst_power_base_int)} return nat_of_int(1)} function unadjusted_string_of_nat(nat,off,len_nat) {var len=num_digits_nat(nat,off,len_nat); @@ -69307,10 +71687,10 @@ copy1=create_nat(len_copy[1]), copy2=make_nat(len_copy[1]), rest_digit=make_nat(2); - if(caml_div(2147483647,_e_ + 1 | 0) < len) + if(caml_div(biggest_int,_b_ + 1 | 0) < len) return caml_call1(Stdlib[2],cst_number_too_long); var - len_s=caml_mul(_e_ + 1 | 0,len), + len_s=caml_mul(_b_ + 1 | 0,len), s=caml_call2(Stdlib_bytes[1],len_s,48), pos_ref=[0,len_s]; len_copy[1] = len_copy[1] - 1 | 0; @@ -69329,7 +71709,7 @@ s, pos_ref[1] - caml_ml_string_length(str) | 0, caml_ml_string_length(str)); - pos_ref[1] = pos_ref[1] - _e_ | 0; + pos_ref[1] = pos_ref[1] - _b_ | 0; len_copy[1] = num_digits_nat(copy2,0,len_copy[1]); blit_nat(copy1,0,copy2,0,len_copy[1]); set_digit_nat(copy1,len_copy[1],0); @@ -69337,16 +71717,16 @@ function string_of_nat(nat) {var s=unadjusted_string_of_nat(nat,0,length_nat(nat)),index=[0,0]; try - {var _c9_=caml_ml_string_length(s) - 2 | 0,_c8_=0; - if(! (_c9_ < 0)) - {var i=_c8_; + {var _c6_=caml_ml_string_length(s) - 2 | 0,_c5_=0; + if(! (_c6_ < 0)) + {var i=_c5_; for(;;) {if(48 !== caml_string_get(s,i)){index[1] = i;throw Stdlib[3]} - var _c__=i + 1 | 0; - if(_c9_ !== i){var i=_c__;continue} + var _c7_=i + 1 | 0; + if(_c6_ !== i){var i=_c7_;continue} break}}} - catch(_c$_) - {_c$_ = caml_wrap_exception(_c$_);if(_c$_ !== Stdlib[3])throw _c$_} + catch(_c8_) + {_c8_ = caml_wrap_exception(_c8_);if(_c8_ !== Stdlib[3])throw _c8_} return caml_call3 (Stdlib_string[4], s, @@ -69354,75 +71734,70 @@ caml_ml_string_length(s) - index[1] | 0)} function sys_nat_of_string(base,s,off,len) {var - power_base=make_nat(_d_ + 1 | 0), + power_base=make_nat(_a_ + 1 | 0), match=make_power_base(base,power_base), pint=match[2], pmax=match[1], - _c0_=1 + caml_div(len,pmax + 1 | 0) | 0, + _cX_=1 + caml_div(len,pmax + 1 | 0) | 0, current_len=[0,1], - possible_len=[0,caml_call2(Stdlib[16],2,_c0_)], - nat1=make_nat(_c0_), - nat2=make_nat(_c0_), + possible_len=[0,caml_call2(Stdlib[16],2,_cX_)], + nat1=make_nat(_cX_), + nat2=make_nat(_cX_), digits_read=[0,0], bound=(off + len | 0) - 1 | 0, int$0=[0,0]; if(! (bound < off)) {var i=off; for(;;) - {var - n=caml_string_get(s,i), - switch$0= - 32 <= n - ?93 <= n?95 === n?off < i?2:0:0:58 < (n - 33 | 0) >>> 0?1:0 - :11 <= n?13 === n?1:0:9 <= n?1:0; + {var n=caml_string_get(s,i),switch$0=0; + if(32 <= n) + {if(93 <= n) + {if(95 === n && off < i)switch$0 = 2} + else + if(58 < (n - 33 | 0) >>> 0)switch$0 = 1} + else + if(11 <= n){if(13 === n)switch$0 = 1}else if(9 <= n)switch$0 = 1; switch(switch$0) {case 0: - if(48 <= n) - if(n <= (47 + caml_call2(Stdlib[16],base,10) | 0)) - var _c7_=n - 48 | 0,switch$1=1; - else - var switch$1=0; + var switch$1=0; + if(48 <= n && n <= (47 + caml_call2(Stdlib[16],base,10) | 0)) + var _c4_=n - 48 | 0; else - var switch$1=0; - if(! switch$1) - {if(65 <= n) - if(n <= ((65 + base | 0) - 11 | 0)) - var _c7_=n - 55 | 0,switch$2=1; - else - var switch$2=0; + switch$1 = 1; + if(switch$1) + {var switch$2=0; + if(65 <= n && n <= ((65 + base | 0) - 11 | 0)) + var _c4_=n - 55 | 0; else - var switch$2=0; - if(! switch$2) - {if(97 <= n) - if(n <= ((97 + base | 0) - 11 | 0)) - var _c7_=n - 87 | 0,switch$3=1; - else - var switch$3=0; + switch$2 = 1; + if(switch$2) + {var switch$3=0; + if(97 <= n && n <= ((97 + base | 0) - 11 | 0)) + var _c4_=n - 87 | 0; else - var switch$3=0; - if(! switch$3) - var _c7_=caml_call1(Stdlib[2],cst_invalid_digit)}} - int$0[1] = caml_mul(int$0[1],base) + _c7_ | 0; + switch$3 = 1; + if(switch$3)var _c4_=caml_call1(Stdlib[2],cst_invalid_digit)}} + int$0[1] = caml_mul(int$0[1],base) + _c4_ | 0; digits_read[1]++; break; case 1:break } var - _c1_=digits_read[1] === pint?1:0, - _c2_=_c1_ || (i === bound?1:0), - _c3_=_c2_?1 - (0 === digits_read[1]?1:0):_c2_; - if(_c3_) + _cY_=digits_read[1] === pint?1:0, + _cZ_=_cY_ || (i === bound?1:0), + _c0_=_cZ_?1 - (0 === digits_read[1]?1:0):_cZ_; + if(_c0_) {set_digit_nat(nat1,0,int$0[1]); var erase_len= - _c0_ === current_len[1]?current_len[1] - 1 | 0:current_len[1], - _c4_=1; + _cX_ === current_len[1]?current_len[1] - 1 | 0:current_len[1], + _c1_=1; if(! (erase_len < 1)) - {var j=_c4_; + {var j=_c1_; for(;;) {set_digit_nat(nat1,j,0); - var _c6_=j + 1 | 0; - if(erase_len !== j){var j=_c6_;continue} + var _c3_=j + 1 | 0; + if(erase_len !== j){var j=_c3_;continue} break}} mult_digit_nat (nat1, @@ -69437,11 +71812,11 @@ current_len[1] = num_digits_nat(nat1,0,possible_len[1]); possible_len[1] = - caml_call2(Stdlib[16],_c0_,current_len[1] + 1 | 0); + caml_call2(Stdlib[16],_cX_,current_len[1] + 1 | 0); int$0[1] = 0; digits_read[1] = 0} - var _c5_=i + 1 | 0; - if(bound !== i){var i=_c5_;continue} + var _c2_=i + 1 | 0; + if(bound !== i){var i=_c2_;continue} break}} var nat=create_nat(current_len[1]); blit_nat(nat,0,nat1,0,current_len[1]); @@ -69473,42 +71848,42 @@ float_of_nat, make_power_base, power_base_int, - _d_]; + _a_]; caml_register_global(127,Nat,"Nat"); function sign_big_int(bi){return bi[1]} var zero_big_int=[0,0,make_nat(1)],unit_big_int=[0,1,nat_of_int(1)]; function num_digits_big_int(bi) - {var _cZ_=length_nat(bi[2]);return num_digits_nat(bi[2],0,_cZ_)} + {var _cW_=length_nat(bi[2]);return num_digits_nat(bi[2],0,_cW_)} function num_bits_big_int(bi) {var - _cY_=length_nat(bi[2]), - nd=num_digits_nat(bi[2],0,_cY_), + _cV_=length_nat(bi[2]), + nd=num_digits_nat(bi[2],0,_cV_), lz=num_leading_zero_bits_in_digit(bi[2],nd - 1 | 0); - return caml_mul(nd,_d_) - lz | 0} + return caml_mul(nd,_a_) - lz | 0} function minus_big_int(bi) - {var _cW_=num_digits_big_int(bi),_cX_=copy_nat(bi[2],0,_cW_); - return [0,- bi[1] | 0,_cX_]} + {var _cT_=num_digits_big_int(bi),_cU_=copy_nat(bi[2],0,_cT_); + return [0,- bi[1] | 0,_cU_]} function abs_big_int(bi) {var - _cT_=num_digits_big_int(bi), - _cU_=copy_nat(bi[2],0,_cT_), - _cV_=0 === bi[1]?0:1; - return [0,_cV_,_cU_]} + _cQ_=num_digits_big_int(bi), + _cR_=copy_nat(bi[2],0,_cQ_), + _cS_=0 === bi[1]?0:1; + return [0,_cS_,_cR_]} function compare_big_int(bi1,bi2) - {if(0 === bi1[1])if(0 === bi2[1])return 0; + {if(0 === bi1[1] && 0 === bi2[1])return 0; if(bi1[1] < bi2[1])return -1; if(bi2[1] < bi1[1])return 1; if(1 === bi1[1]) {var - _cN_=num_digits_big_int(bi2), - _cO_=bi2[2], - _cP_=num_digits_big_int(bi1); - return compare_nat(bi1[2],0,_cP_,_cO_,0,_cN_)} + _cK_=num_digits_big_int(bi2), + _cL_=bi2[2], + _cM_=num_digits_big_int(bi1); + return compare_nat(bi1[2],0,_cM_,_cL_,0,_cK_)} var - _cQ_=num_digits_big_int(bi1), - _cR_=bi1[2], - _cS_=num_digits_big_int(bi2); - return compare_nat(bi2[2],0,_cS_,_cR_,0,_cQ_)} + _cN_=num_digits_big_int(bi1), + _cO_=bi1[2], + _cP_=num_digits_big_int(bi2); + return compare_nat(bi2[2],0,_cP_,_cO_,0,_cN_)} function eq_big_int(bi1,bi2){return 0 === compare_big_int(bi1,bi2)?1:0} function le_big_int(bi1,bi2){return compare_big_int(bi1,bi2) <= 0?1:0} function ge_big_int(bi1,bi2){return 0 <= compare_big_int(bi1,bi2)?1:0} @@ -69517,13 +71892,13 @@ function max_big_int(bi1,bi2){return lt_big_int(bi1,bi2)?bi2:bi1} function min_big_int(bi1,bi2){return gt_big_int(bi1,bi2)?bi2:bi1} function pred_big_int(bi) - {var _cL_=bi[1]; - if(0 === _cL_)return [0,-1,nat_of_int(1)]; - if(1 === _cL_) + {var _cI_=bi[1]; + if(0 === _cI_)return [0,-1,nat_of_int(1)]; + if(1 === _cI_) {var size_bi=num_digits_big_int(bi),copy_bi=copy_nat(bi[2],0,size_bi); decr_nat(copy_bi,0,size_bi,0); - var _cM_=is_zero_nat(copy_bi,0,size_bi)?0:1; - return [0,_cM_,copy_bi]} + var _cJ_=is_zero_nat(copy_bi,0,size_bi)?0:1; + return [0,_cJ_,copy_bi]} var size_bi$0=num_digits_big_int(bi), size_res=size_bi$0 + 1 | 0, @@ -69533,13 +71908,13 @@ incr_nat(copy_bi$0,0,size_res,1); return [0,-1,copy_bi$0]} function succ_big_int(bi) - {var _cJ_=bi[1]; - if(-1 === _cJ_) + {var _cG_=bi[1]; + if(-1 === _cG_) {var size_bi=num_digits_big_int(bi),copy_bi=copy_nat(bi[2],0,size_bi); decr_nat(copy_bi,0,size_bi,0); - var _cK_=is_zero_nat(copy_bi,0,size_bi)?0:-1; - return [0,_cK_,copy_bi]} - if(0 === _cJ_)return [0,1,nat_of_int(1)]; + var _cH_=is_zero_nat(copy_bi,0,size_bi)?0:-1; + return [0,_cH_,copy_bi]} + if(0 === _cG_)return [0,1,nat_of_int(1)]; var size_bi$0=num_digits_big_int(bi), size_res=size_bi$0 + 1 | 0, @@ -69576,8 +71951,8 @@ return [0,bi2[1],res$3]} function big_int_of_int(i) {var res=create_nat(1); - if(i === -2147483648) - {set_digit_nat(res,0,2147483647);incr_nat(res,0,1,1)} + if(i === monster_int) + {set_digit_nat(res,0,biggest_int);incr_nat(res,0,1,1)} else set_digit_nat(res,0,caml_call1(Stdlib[18],i)); return [0,sign_int(i),res]} @@ -69585,17 +71960,17 @@ function sub_big_int(bi1,bi2){return add_big_int(bi1,minus_big_int(bi2))} function mult_int_big_int(i,bi) {var size_bi=num_digits_big_int(bi),size_res=size_bi + 1 | 0; - if(i === -2147483648) + if(i === monster_int) {var res=create_nat(size_res); blit_nat(res,0,bi[2],0,size_bi); set_digit_nat(res,size_bi,0); - var _cG_=nat_of_int(_a_); - mult_digit_nat(res,0,size_res,bi[2],0,size_bi,_cG_,0); + var _cD_=nat_of_int(biggest_int); + mult_digit_nat(res,0,size_res,bi[2],0,size_bi,_cD_,0); return [0,- bi[1] | 0,res]} - var res$0=make_nat(size_res),_cH_=nat_of_int(caml_call1(Stdlib[18],i)); - mult_digit_nat(res$0,0,size_res,bi[2],0,size_bi,_cH_,0); - var _cI_=bi[1]; - return [0,caml_mul(sign_int(i),_cI_),res$0]} + var res$0=make_nat(size_res),_cE_=nat_of_int(caml_call1(Stdlib[18],i)); + mult_digit_nat(res$0,0,size_res,bi[2],0,size_bi,_cE_,0); + var _cF_=bi[1]; + return [0,caml_mul(sign_int(i),_cF_),res$0]} function mult_big_int(bi1,bi2) {var size_bi1=num_digits_big_int(bi1), @@ -69616,39 +71991,38 @@ if(-1 === match) {if(0 <= bi1[1])return [0,big_int_of_int(0),bi1]; if(0 <= bi2[1]) - {var _cz_=add_big_int(bi2,bi1);return [0,big_int_of_int(-1),_cz_]} - var _cA_=sub_big_int(bi1,bi2); - return [0,big_int_of_int(1),_cA_]} + {var _cw_=add_big_int(bi2,bi1);return [0,big_int_of_int(-1),_cw_]} + var _cx_=sub_big_int(bi1,bi2); + return [0,big_int_of_int(1),_cx_]} if(0 === match) return [0,big_int_of_int(caml_mul(bi1[1],bi2[1])),zero_big_int]; var bi1_negatif=-1 === bi1[1]?1:0, - _cB_= + _cy_= bi1_negatif ?caml_call2(Stdlib[17],(size_bi1 - size_bi2 | 0) + 1 | 0,1) + 1 | 0 :caml_call2(Stdlib[17],(size_bi1 - size_bi2 | 0) + 1 | 0,1), size_r=caml_call2(Stdlib[17],size_bi1,size_bi2) + 1 | 0, - q=create_nat(_cB_), + q=create_nat(_cy_), r=create_nat(size_r); blit_nat(r,0,bi1[2],0,size_bi1); set_to_zero_nat(r,size_bi1,size_r - size_bi1 | 0); div_nat(r,0,size_r,bi2[2],0,size_bi2); blit_nat(q,0,r,size_bi2,size_r - size_bi2 | 0); var not_null_mod=1 - is_zero_nat(r,0,size_bi2); - if(bi1_negatif) - if(not_null_mod) - {var new_r=copy_nat(bi2[2],0,size_bi2); - sub_nat(new_r,0,size_bi2,r,0,size_bi2,1); - set_digit_nat(q,_cB_ - 1 | 0,0); - incr_nat(q,0,_cB_,1); - return [0,[0,- bi2[1] | 0,q],[0,1,new_r]]} - if(bi1_negatif)set_digit_nat(q,_cB_ - 1 | 0,0); + if(bi1_negatif && not_null_mod) + {var new_r=copy_nat(bi2[2],0,size_bi2); + sub_nat(new_r,0,size_bi2,r,0,size_bi2,1); + set_digit_nat(q,_cy_ - 1 | 0,0); + incr_nat(q,0,_cy_,1); + return [0,[0,- bi2[1] | 0,q],[0,1,new_r]]} + if(bi1_negatif)set_digit_nat(q,_cy_ - 1 | 0,0); var - _cC_=copy_nat(r,0,size_bi2), - _cD_=not_null_mod?1:0, - _cE_=[0,_cD_,_cC_], - _cF_=is_zero_nat(q,0,_cB_)?0:caml_mul(bi1[1],bi2[1]); - return [0,[0,_cF_,q],_cE_]} + _cz_=copy_nat(r,0,size_bi2), + _cA_=not_null_mod?1:0, + _cB_=[0,_cA_,_cz_], + _cC_=is_zero_nat(q,0,_cy_)?0:caml_mul(bi1[1],bi2[1]); + return [0,[0,_cC_,q],_cB_]} function div_big_int(bi1,bi2){return quomod_big_int(bi1,bi2)[1]} function mod_big_int(bi1,bi2){return quomod_big_int(bi1,bi2)[2]} function gcd_big_int(bi1,bi2) @@ -69657,46 +72031,48 @@ if(is_zero_nat(bi2[2],0,size_bi2))return [0,1,bi1[2]]; var match=compare_nat(bi1[2],0,size_bi1,bi2[2],0,size_bi2); if(0 === match) - var _cy_=bi1[2]; + var _cv_=bi1[2]; else if(1 === match) var res=copy_nat(bi1[2],0,size_bi1), len=gcd_nat(res,0,size_bi1,bi2[2],0,size_bi2), - _cy_=copy_nat(res,0,len); + _cv_=copy_nat(res,0,len); else var res$0=copy_nat(bi2[2],0,size_bi2), len$0=gcd_nat(res$0,0,size_bi2,bi1[2],0,size_bi1), - _cy_=copy_nat(res$0,0,len$0); - return [0,1,_cy_]} - var monster_big_int=big_int_of_int(_c_),monster_nat=monster_big_int[2]; + _cv_=copy_nat(res$0,0,len$0); + return [0,1,_cv_]} + var + monster_big_int=big_int_of_int(monster_int), + monster_nat=monster_big_int[2]; function is_int_big_int(bi) - {var _cw_=1 === num_digits_big_int(bi)?1:0; - if(_cw_) + {var _ct_=1 === num_digits_big_int(bi)?1:0; + if(_ct_) {var match=compare_nat(bi[2],0,1,monster_nat,0,1); if(-1 !== match)return 0 === match?-1 === bi[1]?1:0:0; - var _cx_=1} + var _cu_=1} else - var _cx_=_cw_; - return _cx_} + var _cu_=_ct_; + return _cu_} function int_of_big_int(bi) {try - {var n=int_of_nat(bi[2]),_cu_=-1 === bi[1]?- n | 0:n;return _cu_} - catch(_cv_) - {_cv_ = caml_wrap_exception(_cv_); - if(_cv_[1] === Stdlib[7]) + {var n=int_of_nat(bi[2]),_cr_=-1 === bi[1]?- n | 0:n;return _cr_} + catch(_cs_) + {_cs_ = caml_wrap_exception(_cs_); + if(_cs_[1] === Stdlib[7]) return eq_big_int(bi,monster_big_int) - ?_c_ + ?monster_int :caml_call1(Stdlib[2],cst_int_of_big_int); - throw _cv_}} + throw _cs_}} function int_of_big_int_opt(bi) {try - {var _cs_=[0,int_of_big_int(bi)];return _cs_} - catch(_ct_) - {_ct_ = caml_wrap_exception(_ct_); - if(_ct_[1] === Stdlib[7])return 0; - throw _ct_}} + {var _cp_=[0,int_of_big_int(bi)];return _cp_} + catch(_cq_) + {_cq_ = caml_wrap_exception(_cq_); + if(_cq_[1] === Stdlib[7])return 0; + throw _cq_}} function big_int_of_nativeint(i) {if(caml_equal(i,0))return zero_big_int; if(caml_greaterthan(i,0)) @@ -69712,37 +72088,39 @@ return caml_greaterequal(i,0) ?i :caml_call1(Stdlib[2],cst_nativeint_of_big_int$0); - if(! caml_greaterequal(i,0)) - if(! caml_equal(i,Stdlib_nativeint[11])) - return caml_call1(Stdlib[2],cst_nativeint_of_big_int$1); + if(! caml_greaterequal(i,0) && ! caml_equal(i,Stdlib_nativeint[11])) + return caml_call1(Stdlib[2],cst_nativeint_of_big_int$1); return - i | 0} function nativeint_of_big_int_opt(bi) {try - {var _cq_=[0,nativeint_of_big_int(bi)];return _cq_} - catch(_cr_) - {_cr_ = caml_wrap_exception(_cr_); - if(_cr_[1] === Stdlib[7])return 0; - throw _cr_}} + {var _cn_=[0,nativeint_of_big_int(bi)];return _cn_} + catch(_co_) + {_co_ = caml_wrap_exception(_co_); + if(_co_[1] === Stdlib[7])return 0; + throw _co_}} function big_int_of_int32(i){return big_int_of_nativeint(i)} function int32_of_big_int(bi) {var i=nativeint_of_big_int(bi); - if(runtime.caml_lessequal(i,2147483647)) - if(caml_greaterequal(i,-2147483648))return i; + if + (runtime.caml_lessequal(i,2147483647) + && + caml_greaterequal(i,-2147483648)) + return i; return caml_call1(Stdlib[2],cst_int32_of_big_int)} function int32_of_big_int_opt(bi) {try - {var _co_=[0,int32_of_big_int(bi)];return _co_} - catch(_cp_) - {_cp_ = caml_wrap_exception(_cp_); - if(_cp_[1] === Stdlib[7])return 0; - throw _cp_}} + {var _cl_=[0,int32_of_big_int(bi)];return _cl_} + catch(_cm_) + {_cm_ = caml_wrap_exception(_cm_); + if(_cm_[1] === Stdlib[7])return 0; + throw _cm_}} function big_int_of_int64(i) {if(64 === Stdlib_sys[9]) return big_int_of_nativeint(caml_int64_to_int32(i)); - if(caml_equal(i,_g_)) - var sg=0,absi=_h_; + if(caml_equal(i,_d_)) + var sg=0,absi=_e_; else - if(caml_greaterthan(i,_i_)) + if(caml_greaterthan(i,_f_)) var sg=1,absi=i; else var absi$0=caml_int64_neg(i),sg=-1,absi=absi$0; @@ -69759,50 +72137,49 @@ var i= caml_int64_and - (caml_int64_of_int32(nth_digit_nat_native(bi[2],0)),_j_); + (caml_int64_of_int32(nth_digit_nat_native(bi[2],0)),_g_); else if(2 === match) var - _cn_= + _ck_= runtime.caml_int64_shift_left (caml_int64_of_int32(nth_digit_nat_native(bi[2],1)),32), i= caml_int64_or (caml_int64_and - (caml_int64_of_int32(nth_digit_nat_native(bi[2],0)),_m_), - _cn_); + (caml_int64_of_int32(nth_digit_nat_native(bi[2],0)),_j_), + _ck_); else var i=caml_call1(Stdlib[2],cst_int64_of_big_int$1); if(0 <= bi[1]) - return caml_greaterequal(i,_k_) + return caml_greaterequal(i,_h_) ?i :caml_call1(Stdlib[2],cst_int64_of_big_int); - if(! caml_greaterequal(i,_l_)) - if(! caml_equal(i,Stdlib_int64[10])) - return caml_call1(Stdlib[2],cst_int64_of_big_int$0); + if(! caml_greaterequal(i,_i_) && ! caml_equal(i,Stdlib_int64[10])) + return caml_call1(Stdlib[2],cst_int64_of_big_int$0); return caml_int64_neg(i)} function int64_of_big_int_opt(bi) {try - {var _cl_=[0,int64_of_big_int(bi)];return _cl_} - catch(_cm_) - {_cm_ = caml_wrap_exception(_cm_); - if(_cm_[1] === Stdlib[7])return 0; - throw _cm_}} + {var _ci_=[0,int64_of_big_int(bi)];return _ci_} + catch(_cj_) + {_cj_ = caml_wrap_exception(_cj_); + if(_cj_[1] === Stdlib[7])return 0; + throw _cj_}} function nat_of_big_int(bi) {if(-1 === bi[1])return caml_call1(Stdlib[2],cst_nat_of_big_int); - var _ck_=num_digits_big_int(bi); - return copy_nat(bi[2],0,_ck_)} + var _ch_=num_digits_big_int(bi); + return copy_nat(bi[2],0,_ch_)} function sys_big_int_of_nat(nat,off,len) {var length=num_digits_nat(nat,off,len), - _ci_=copy_nat(nat,off,length), - _cj_=is_zero_nat(nat,off,length)?0:1; - return [0,_cj_,_ci_]} + _cf_=copy_nat(nat,off,length), + _cg_=is_zero_nat(nat,off,length)?0:1; + return [0,_cg_,_cf_]} function big_int_of_nat(nat) {return sys_big_int_of_nat(nat,0,length_nat(nat))} function string_of_big_int(bi) {if(-1 === bi[1]) - {var _ch_=string_of_nat(bi[2]);return caml_call2(Stdlib[28],cst,_ch_)} + {var _ce_=string_of_nat(bi[2]);return caml_call2(Stdlib[28],cst,_ce_)} return string_of_nat(bi[2])} function sys_big_int_of_string_aux(s,ofs,len,sgn,base) {if(len < 1)caml_call1(Stdlib[2],cst_sys_big_int_of_string); @@ -69815,11 +72192,20 @@ match=caml_string_get(s,ofs), match$0=caml_string_get(s,ofs + 1 | 0); if(48 === match) - {var - switch$0= - 89 <= match$0 - ?98 === match$0?3:111 === match$0?2:120 === match$0?1:0 - :66 === match$0?3:79 === match$0?2:88 <= match$0?1:0; + {var switch$0=0; + if(89 <= match$0) + {if(98 === match$0) + switch$0 = 3; + else + if(111 === match$0) + switch$0 = 2; + else + if(120 === match$0)switch$0 = 1} + else + if(66 === match$0) + switch$0 = 3; + else + if(79 === match$0)switch$0 = 2;else if(88 <= match$0)switch$0 = 1; switch(switch$0) {case 0:break; case 1: @@ -69846,19 +72232,19 @@ {return sys_big_int_of_string(s,0,caml_ml_string_length(s))} function big_int_of_string_opt(s) {try - {var _cf_=[0,big_int_of_string(s)];return _cf_} - catch(_cg_) - {_cg_ = caml_wrap_exception(_cg_); - if(_cg_[1] === Stdlib[7])return 0; - throw _cg_}} + {var _cc_=[0,big_int_of_string(s)];return _cc_} + catch(_cd_) + {_cd_ = caml_wrap_exception(_cd_); + if(_cd_[1] === Stdlib[7])return 0; + throw _cd_}} function power_int_positive_int(i,n) {var match=sign_int(n); if(-1 === match)return caml_call1(Stdlib[1],cst_power_int_positive_int); if(0 === match)return unit_big_int; var nat=power_base_int(caml_call1(Stdlib[18],i),n), - _ce_=0 <= i?sign_int(i):0 === (n & 1)?1:-1; - return [0,_ce_,nat]} + _cb_=0 <= i?sign_int(i):0 === (n & 1)?1:-1; + return [0,_cb_,nat]} function power_big_int_positive_int(bi,n) {var match=sign_int(n); if(-1 === match) @@ -69885,11 +72271,11 @@ mult_nat(res,0,lenp,res2,0,len2,bi[2],0,bi_len)} else blit_nat(res,0,res2,0,len2); - var _cd_=i - 1 | 0; - if(0 !== i){var i=_cd_;continue} + var _ca_=i - 1 | 0; + if(0 !== i){var i=_ca_;continue} break}} - var _cc_=0 <= bi[1]?bi[1]:0 === (n & 1)?1:-1; - return [0,_cc_,res]} + var _b$_=0 <= bi[1]?bi[1]:0 === (n & 1)?1:-1; + return [0,_b$_,res]} function power_int_positive_big_int(i$0,bi) {var match$1=bi[1]; if(-1 === match$1) @@ -69897,80 +72283,80 @@ if(0 === match$1)return unit_big_int; var len$0=num_digits_big_int(bi), - _ca_=bi[2], + _b9_=bi[2], base=caml_call1(Stdlib[18],i$0), off=0; if(0 === base) var nat=nat_of_int(0); else - {if(is_zero_nat(_ca_,off,len$0)) - var switch$0=0; + {var switch$0=0; + if(is_zero_nat(_b9_,off,len$0) || 1 === base) + switch$0 = 1; else - if(1 === base) - var switch$0=0; - else - {var - power_base=make_nat(_d_ + 1 | 0), - match=make_power_base(base,power_base), - pmax=match[1], - _b__=big_int_of_int(pmax + 1 | 0), - match$0=quomod_big_int(sys_big_int_of_nat(_ca_,off,len$0),_b__), - y=match$0[2], - x=match$0[1], - rem=int_of_big_int(y), - n=int_of_big_int(x); - if(0 === n) - var nat=copy_nat(power_base,rem - 1 | 0,1),switch$0=1; - else - {var - res=make_nat(n), - res2=make_nat(n + 1 | 0), - l=num_bits_int(n) - 2 | 0; - blit_nat(res,0,power_base,pmax,1); - if(! (l < 0)) - {var i=l; - for(;;) - {var - len=num_digits_nat(res,0,n), - len2=caml_call2(Stdlib[16],n,2 * len | 0), - succ_len2=len2 + 1 | 0; - square_nat(res2,0,len2,res,0,len); - if(0 < (n & 1 << i)) - {set_to_zero_nat(res,0,len); - mult_digit_nat(res,0,succ_len2,res2,0,len2,power_base,pmax)} - else - blit_nat(res,0,res2,0,len2); - set_to_zero_nat(res2,0,len2); - var _b$_=i - 1 | 0; - if(0 !== i){var i=_b$_;continue} - break}} - if(0 < rem) - {mult_digit_nat(res2,0,n + 1 | 0,res,0,n,power_base,rem - 1 | 0); - var nat=res2,switch$0=1} - else - var nat=res,switch$0=1}} - if(! switch$0)var nat=nat_of_int(1)} - var _cb_=0 <= i$0?sign_int(i$0):runtime.is_digit_odd(bi[2],0)?-1:1; - return [0,_cb_,nat]} + {var + power_base=make_nat(_a_ + 1 | 0), + match=make_power_base(base,power_base), + pmax=match[1], + _b7_=big_int_of_int(pmax + 1 | 0), + match$0=quomod_big_int(sys_big_int_of_nat(_b9_,off,len$0),_b7_), + y=match$0[2], + x=match$0[1], + rem=int_of_big_int(y), + n=int_of_big_int(x); + if(0 === n) + var nat=copy_nat(power_base,rem - 1 | 0,1); + else + {var + res=make_nat(n), + res2=make_nat(n + 1 | 0), + l=num_bits_int(n) - 2 | 0; + blit_nat(res,0,power_base,pmax,1); + if(! (l < 0)) + {var i=l; + for(;;) + {var + len=num_digits_nat(res,0,n), + len2=caml_call2(Stdlib[16],n,2 * len | 0), + succ_len2=len2 + 1 | 0; + square_nat(res2,0,len2,res,0,len); + if(0 < (n & 1 << i)) + {set_to_zero_nat(res,0,len); + mult_digit_nat(res,0,succ_len2,res2,0,len2,power_base,pmax)} + else + blit_nat(res,0,res2,0,len2); + set_to_zero_nat(res2,0,len2); + var _b8_=i - 1 | 0; + if(0 !== i){var i=_b8_;continue} + break}} + var + nat= + 0 < rem + ?(mult_digit_nat + (res2,0,n + 1 | 0,res,0,n,power_base,rem - 1 | 0), + res2) + :res}} + if(switch$0)var nat=nat_of_int(1)} + var _b__=0 <= i$0?sign_int(i$0):runtime.is_digit_odd(bi[2],0)?-1:1; + return [0,_b__,nat]} function power_big_int_positive_big_int(bi1,bi2) {var match=bi2[1]; if(-1 === match) - return caml_call1(Stdlib[1],cst_power_big_int_positive_big_int); + return caml_call1(Stdlib[1],cst_power_big_int_positive_big); if(0 === match)return unit_big_int; try - {var _b7_=power_big_int_positive_int(bi1,int_of_big_int(bi2)); - return _b7_} - catch(_b8_) - {_b8_ = caml_wrap_exception(_b8_); - if(_b8_[1] === Stdlib[7]) + {var _b4_=power_big_int_positive_int(bi1,int_of_big_int(bi2)); + return _b4_} + catch(_b5_) + {_b5_ = caml_wrap_exception(_b5_); + if(_b5_[1] === Stdlib[7]) try - {var _b6_=power_int_positive_big_int(int_of_big_int(bi1),bi2); - return _b6_} - catch(_b9_) - {_b9_ = caml_wrap_exception(_b9_); - if(_b9_[1] === Stdlib[7])throw Stdlib[9]; - throw _b9_} - throw _b8_}} + {var _b3_=power_int_positive_big_int(int_of_big_int(bi1),bi2); + return _b3_} + catch(_b6_) + {_b6_ = caml_wrap_exception(_b6_); + if(_b6_[1] === Stdlib[7])throw Stdlib[9]; + throw _b6_} + throw _b5_}} function base_power_big_int(base,n,bi) {var match=sign_int(n); if(-1 === match) @@ -69980,15 +72366,21 @@ len_bi=num_digits_big_int(bi); if(len_bi < len_nat) return caml_call1(Stdlib[1],cst_base_power_big_int); - if(len_bi === len_nat) - if(-1 === runtime.compare_digits_nat(bi[2],len_bi,nat,len_nat)) - return caml_call1(Stdlib[1],cst_base_power_big_int$0); + if + (len_bi + === + len_nat + && + -1 + === + runtime.compare_digits_nat(bi[2],len_bi,nat,len_nat)) + return caml_call1(Stdlib[1],cst_base_power_big_int$0); var copy=create_nat(len_bi + 1 | 0); blit_nat(copy,0,bi[2],0,len_bi); set_digit_nat(copy,len_bi,0); div_nat(copy,0,len_bi + 1 | 0,nat,0,len_nat); if(is_zero_nat(copy,0,len_nat)) - {var _b4_=copy_nat(copy,len_nat,1);return [0,bi[1],_b4_]} + {var _b1_=copy_nat(copy,len_nat,1);return [0,bi[1],_b1_]} return caml_call1(Stdlib[1],cst_base_power_big_int$1)} if(0 === match)return bi; var @@ -70002,24 +72394,25 @@ else mult_nat(nat$1,0,new_len,nat$0,0,len_nat$0,bi[2],0,len_bi$0); if(is_zero_nat(nat$1,0,new_len))return zero_big_int; - var _b5_=bi[1]; - if(1 !== _b5_) - if(-1 !== _b5_) - {var - switch$0= - 0 === _b5_ - ?is_zero_nat(nat$1,0,num_digits_nat(nat$1,0,length_nat(nat$1))) - ?0 - :1 - :1; - if(switch$0)return caml_call1(Stdlib[1],cst_create_big_int)} - return [0,_b5_,nat$1]} + var _b2_=bi[1]; + if(1 !== _b2_ && -1 !== _b2_) + {var switch$0=0; + if + (0 + !== + _b2_ + || + ! + is_zero_nat(nat$1,0,num_digits_nat(nat$1,0,length_nat(nat$1)))) + switch$0 = 1; + if(switch$0)return caml_call1(Stdlib[1],cst_create_big_int)} + return [0,_b2_,nat$1]} function sqrt_big_int(bi) - {var _b2_=bi[1]; - if(-1 === _b2_)return caml_call1(Stdlib[1],cst_sqrt_big_int); - if(0 === _b2_)return zero_big_int; - var _b3_=num_digits_big_int(bi); - return [0,1,sqrt_nat(bi[2],0,_b3_)]} + {var _bZ_=bi[1]; + if(-1 === _bZ_)return caml_call1(Stdlib[1],cst_sqrt_big_int); + if(0 === _bZ_)return zero_big_int; + var _b0_=num_digits_big_int(bi); + return [0,1,sqrt_nat(bi[2],0,_b0_)]} function square_big_int(bi) {if(0 === bi[1])return zero_big_int; var @@ -70044,209 +72437,204 @@ function approx_big_int(prec,bi) {var len_bi=num_digits_big_int(bi), - _bM_=big_int_of_string(cst_100000000), - _bN_=big_int_of_string(cst_963295986), - _bO_= + _bJ_=big_int_of_string(cst_100000000), + _bK_=big_int_of_string(cst_963295986), + _bL_= int_of_big_int (add_int_big_int (- prec | 0, div_big_int - (mult_big_int(big_int_of_int(len_bi - 1 | 0),_bN_),_bM_))), - n=caml_call2(Stdlib[17],0,_bO_), - _bP_=string_of_big_int(div_big_int(bi,power_int_positive_int(10,n))), - s=caml_call1(Stdlib_bytes[43],_bP_); + (mult_big_int(big_int_of_int(len_bi - 1 | 0),_bK_),_bJ_))), + n=caml_call2(Stdlib[17],0,_bL_), + _bM_=string_of_big_int(div_big_int(bi,power_int_positive_int(10,n))), + s=caml_call1(Stdlib_bytes[43],_bM_); if(45 === caml_bytes_get(s,0)) var sign$0=cst$0,off=1; else var sign$0=sign,off=0; if(round_futur_last_digit(s,off,prec + 1 | 0)) {var - _bQ_= + _bN_= caml_call1 (Stdlib[33],((n + 1 | 0) - off | 0) + caml_ml_bytes_length(s) | 0), - _bR_=caml_call2(Stdlib[28],cst_e,_bQ_), - _bS_=caml_call2(Stdlib_string[1],prec,48), - _bT_=caml_call2(Stdlib[28],_bS_,_bR_), - _bU_=caml_call2(Stdlib[28],cst_1,_bT_); - return caml_call2(Stdlib[28],sign$0,_bU_)} + _bO_=caml_call2(Stdlib[28],cst_e,_bN_), + _bP_=caml_call2(Stdlib_string[1],prec,48), + _bQ_=caml_call2(Stdlib[28],_bP_,_bO_), + _bR_=caml_call2(Stdlib[28],cst_1,_bQ_); + return caml_call2(Stdlib[28],sign$0,_bR_)} var - _bV_= + _bS_= caml_call1 (Stdlib[33],(n - (off + 1 | 0) | 0) + caml_ml_bytes_length(s) | 0), - _bW_=caml_call2(Stdlib[28],cst_e$0,_bV_), - _bX_=caml_call3(Stdlib_bytes[8],s,off + 1 | 0,prec - 1 | 0), - _bY_=caml_call2(Stdlib[28],_bX_,_bW_), - _bZ_=caml_call2(Stdlib[28],cst$1,_bY_), - _b0_=caml_call3(Stdlib_bytes[8],s,off,1), - _b1_=caml_call2(Stdlib[28],_b0_,_bZ_); - return caml_call2(Stdlib[28],sign$0,_b1_)} + _bT_=caml_call2(Stdlib[28],cst_e$0,_bS_), + _bU_=caml_call3(Stdlib_bytes[8],s,off + 1 | 0,prec - 1 | 0), + _bV_=caml_call2(Stdlib[28],_bU_,_bT_), + _bW_=caml_call2(Stdlib[28],cst$1,_bV_), + _bX_=caml_call3(Stdlib_bytes[8],s,off,1), + _bY_=caml_call2(Stdlib[28],_bX_,_bW_); + return caml_call2(Stdlib[28],sign$0,_bY_)} function shift_left_big_int(bi,n) {if(0 <= n) {if(0 === n)return bi; if(0 === bi[1])return bi; var size_bi=num_digits_big_int(bi), - size_res=size_bi + caml_div((n + _d_ | 0) - 1 | 0,_d_) | 0, + size_res=size_bi + caml_div((n + _a_ | 0) - 1 | 0,_a_) | 0, res=create_nat(size_res), - ndigits=caml_div(n,_d_); + ndigits=caml_div(n,_a_); set_to_zero_nat(res,0,ndigits); blit_nat(res,ndigits,bi[2],0,size_bi); - var nbits=caml_mod(n,_d_); + var nbits=caml_mod(n,_a_); if(0 < nbits) runtime.shift_left_nat (res,ndigits,size_bi,res,ndigits + size_bi | 0,nbits); return [0,bi[1],res]} return caml_call1(Stdlib[1],cst_shift_left_big_int)} - function shift_right_towards_zero_big_int(bi,n) + function shift_right_towards_zero_big_i(bi,n) {if(0 <= n) {if(0 === n)return bi; if(0 === bi[1])return bi; var size_bi=num_digits_big_int(bi), - ndigits=caml_div(n,_d_), - nbits=caml_mod(n,_d_); + ndigits=caml_div(n,_a_), + nbits=caml_mod(n,_a_); if(size_bi <= ndigits)return zero_big_int; var size_res=size_bi - ndigits | 0,res=create_nat(size_res); blit_nat(res,0,bi[2],ndigits,size_res); if(0 < nbits) {var tmp=create_nat(1);shift_right_nat(res,0,size_res,tmp,0,nbits)} return is_zero_nat(res,0,size_res)?zero_big_int:[0,bi[1],res]} - return caml_call1(Stdlib[1],cst_shift_right_towards_zero_big_int)} + return caml_call1(Stdlib[1],cst_shift_right_towards_zero_b)} function shift_right_big_int(bi,n) {if(0 <= n) - {if(0 <= bi[1])return shift_right_towards_zero_big_int(bi,n); + {if(0 <= bi[1])return shift_right_towards_zero_big_i(bi,n); if(0 <= n) if(0 === n) - var _bL_=zero_big_int; + var _bI_=zero_big_int; else {var - idx=caml_div(n,_d_), + idx=caml_div(n,_a_), size_res=idx + 1 | 0, res=make_nat(size_res); - set_digit_nat_native(res,idx,1 << caml_mod(n,_d_)); + set_digit_nat_native(res,idx,1 << caml_mod(n,_a_)); decr_nat(res,0,size_res,0); - var _bL_=[0,1,res]} + var _bI_=[0,1,res]} else - var _bL_=caml_call1(Stdlib[1],cst_two_power_m1_big_int); - return shift_right_towards_zero_big_int(sub_big_int(bi,_bL_),n)} + var _bI_=caml_call1(Stdlib[1],cst_two_power_m1_big_int); + return shift_right_towards_zero_big_i(sub_big_int(bi,_bI_),n)} return caml_call1(Stdlib[1],cst_shift_right_big_int)} function extract_big_int(bi,ofs,n) - {if(0 <= ofs) - if(0 <= n) - {if(0 === bi[1])return bi; - var - size_bi=num_digits_big_int(bi), - size_res=caml_div((n + _d_ | 0) - 1 | 0,_d_), - ndigits=caml_div(ofs,_d_), - nbits=caml_mod(ofs,_d_), - res=make_nat(size_res); - if(ndigits < size_bi) - {var _bG_=caml_call2(Stdlib[16],size_res,size_bi - ndigits | 0); - blit_nat(res,0,bi[2],ndigits,_bG_)} - if(bi[1] < 0) - {complement_nat(res,0,size_res); - var i=0; - for(;;) - {var _bH_=ndigits <= i?1:0; - if(_bH_) - var _bI_=_bH_; - else - {var _bJ_=size_bi <= i?1:0; - if(_bJ_) - var _bI_=_bJ_; - else - {var _bK_=is_digit_zero(bi[2],i); - if(_bK_){var i$0=i + 1 | 0,i=i$0;continue} - var _bI_=_bK_}} - if(_bI_)incr_nat(res,0,size_res,1); - break}} - if(0 < nbits) - {var tmp=create_nat(1);shift_right_nat(res,0,size_res,tmp,0,nbits)} - var n$0=caml_mod(n,_d_); - if(0 < n$0) - {var tmp$0=create_nat(1); - set_digit_nat_native(tmp$0,0,-1 >>> (_d_ - n$0 | 0) | 0); - land_digit_nat(res,size_res - 1 | 0,tmp$0,0)} - return is_zero_nat(res,0,size_res)?zero_big_int:[0,1,res]} + {if(0 <= ofs && 0 <= n) + {if(0 === bi[1])return bi; + var + size_bi=num_digits_big_int(bi), + size_res=caml_div((n + _a_ | 0) - 1 | 0,_a_), + ndigits=caml_div(ofs,_a_), + nbits=caml_mod(ofs,_a_), + res=make_nat(size_res); + if(ndigits < size_bi) + {var _bD_=caml_call2(Stdlib[16],size_res,size_bi - ndigits | 0); + blit_nat(res,0,bi[2],ndigits,_bD_)} + if(bi[1] < 0) + {complement_nat(res,0,size_res); + var i=0; + for(;;) + {var _bE_=ndigits <= i?1:0; + if(_bE_) + var _bF_=_bE_; + else + {var _bG_=size_bi <= i?1:0; + if(_bG_) + var _bF_=_bG_; + else + {var _bH_=is_digit_zero(bi[2],i); + if(_bH_){var i$0=i + 1 | 0,i=i$0;continue} + var _bF_=_bH_}} + if(_bF_)incr_nat(res,0,size_res,1); + break}} + if(0 < nbits) + {var tmp=create_nat(1);shift_right_nat(res,0,size_res,tmp,0,nbits)} + var n$0=caml_mod(n,_a_); + if(0 < n$0) + {var tmp$0=create_nat(1); + set_digit_nat_native(tmp$0,0,-1 >>> (_a_ - n$0 | 0) | 0); + land_digit_nat(res,size_res - 1 | 0,tmp$0,0)} + return is_zero_nat(res,0,size_res)?zero_big_int:[0,1,res]} return caml_call1(Stdlib[1],cst_extract_big_int)} function and_big_int(a,b) - {if(0 <= a[1]) - if(0 <= b[1]) - {if(0 !== a[1]) - if(0 !== b[1]) - {var - size_a=num_digits_big_int(a), - size_b=num_digits_big_int(b), - size_res=caml_call2(Stdlib[16],size_a,size_b), - res=create_nat(size_res); - blit_nat(res,0,a[2],0,size_res); - var _bE_=size_res - 1 | 0,_bD_=0; - if(! (_bE_ < 0)) - {var i=_bD_; - for(;;) - {land_digit_nat(res,i,b[2],i); - var _bF_=i + 1 | 0; - if(_bE_ !== i){var i=_bF_;continue} - break}} - return is_zero_nat(res,0,size_res)?zero_big_int:[0,1,res]} - return zero_big_int} + {if(0 <= a[1] && 0 <= b[1]) + {if(0 !== a[1] && 0 !== b[1]) + {var + size_a=num_digits_big_int(a), + size_b=num_digits_big_int(b), + size_res=caml_call2(Stdlib[16],size_a,size_b), + res=create_nat(size_res); + blit_nat(res,0,a[2],0,size_res); + var _bB_=size_res - 1 | 0,_bA_=0; + if(! (_bB_ < 0)) + {var i=_bA_; + for(;;) + {land_digit_nat(res,i,b[2],i); + var _bC_=i + 1 | 0; + if(_bB_ !== i){var i=_bC_;continue} + break}} + return is_zero_nat(res,0,size_res)?zero_big_int:[0,1,res]} + return zero_big_int} return caml_call1(Stdlib[1],cst_and_big_int)} function or_big_int(a,b) - {if(0 <= a[1]) - if(0 <= b[1]) - {if(0 === a[1])return b; - if(0 === b[1])return a; - var - size_a=num_digits_big_int(a), - size_b=num_digits_big_int(b), - size_res=caml_call2(Stdlib[17],size_a,size_b), - res=create_nat(size_res), - or_aux= - function(a,b,size_b) - {blit_nat(res,0,a[2],0,size_res); - var _bB_=size_b - 1 | 0,_bA_=0; - if(! (_bB_ < 0)) - {var i=_bA_; - for(;;) - {runtime.lor_digit_nat(res,i,b[2],i); - var _bC_=i + 1 | 0; - if(_bB_ !== i){var i=_bC_;continue} - break}} - return 0}; - if(size_b <= size_a)or_aux(a,b,size_b);else or_aux(b,a,size_a); - return is_zero_nat(res,0,size_res)?zero_big_int:[0,1,res]} + {if(0 <= a[1] && 0 <= b[1]) + {if(0 === a[1])return b; + if(0 === b[1])return a; + var + size_a=num_digits_big_int(a), + size_b=num_digits_big_int(b), + size_res=caml_call2(Stdlib[17],size_a,size_b), + res=create_nat(size_res), + or_aux= + function(a,b,size_b) + {blit_nat(res,0,a[2],0,size_res); + var _by_=size_b - 1 | 0,_bx_=0; + if(! (_by_ < 0)) + {var i=_bx_; + for(;;) + {runtime.lor_digit_nat(res,i,b[2],i); + var _bz_=i + 1 | 0; + if(_by_ !== i){var i=_bz_;continue} + break}} + return 0}; + if(size_b <= size_a)or_aux(a,b,size_b);else or_aux(b,a,size_a); + return is_zero_nat(res,0,size_res)?zero_big_int:[0,1,res]} return caml_call1(Stdlib[1],cst_or_big_int)} function xor_big_int(a,b) - {if(0 <= a[1]) - if(0 <= b[1]) - {if(0 === a[1])return b; - if(0 === b[1])return a; - var - size_a=num_digits_big_int(a), - size_b=num_digits_big_int(b), - size_res=caml_call2(Stdlib[17],size_a,size_b), - res=create_nat(size_res), - xor_aux= - function(a,b,size_b) - {blit_nat(res,0,a[2],0,size_res); - var _by_=size_b - 1 | 0,_bx_=0; - if(! (_by_ < 0)) - {var i=_bx_; - for(;;) - {runtime.lxor_digit_nat(res,i,b[2],i); - var _bz_=i + 1 | 0; - if(_by_ !== i){var i=_bz_;continue} - break}} - return 0}; - if(size_b <= size_a)xor_aux(a,b,size_b);else xor_aux(b,a,size_a); - return is_zero_nat(res,0,size_res)?zero_big_int:[0,1,res]} + {if(0 <= a[1] && 0 <= b[1]) + {if(0 === a[1])return b; + if(0 === b[1])return a; + var + size_a=num_digits_big_int(a), + size_b=num_digits_big_int(b), + size_res=caml_call2(Stdlib[17],size_a,size_b), + res=create_nat(size_res), + xor_aux= + function(a,b,size_b) + {blit_nat(res,0,a[2],0,size_res); + var _bv_=size_b - 1 | 0,_bu_=0; + if(! (_bv_ < 0)) + {var i=_bu_; + for(;;) + {runtime.lxor_digit_nat(res,i,b[2],i); + var _bw_=i + 1 | 0; + if(_bv_ !== i){var i=_bw_;continue} + break}} + return 0}; + if(size_b <= size_a)xor_aux(a,b,size_b);else xor_aux(b,a,size_a); + return is_zero_nat(res,0,size_res)?zero_big_int:[0,1,res]} return caml_call1(Stdlib[1],cst_xor_big_int)} function round_big_int_to_float(x,exact) - {var n=num_bits_big_int(x),_bv_=55 <= n?1:0,_bw_=_bv_?n <= 63?1:0:_bv_; - if(_bw_) - {var m=int64_of_big_int(x),m$0=exact?m:caml_int64_or(m,_n_); + {var n=num_bits_big_int(x),_bs_=55 <= n?1:0,_bt_=_bs_?n <= 63?1:0:_bs_; + if(_bt_) + {var m=int64_of_big_int(x),m$0=exact?m:caml_int64_or(m,_k_); return caml_int64_to_float(m$0)} - throw [0,Assert_failure,_o_]} + throw [0,Assert_failure,_l_]} function float_of_big_int(x) {var n=num_bits_big_int(x); if(63 < n) @@ -70313,7 +72701,7 @@ xor_big_int, shift_left_big_int, shift_right_big_int, - shift_right_towards_zero_big_int, + shift_right_towards_zero_big_i, extract_big_int, nat_of_big_int, big_int_of_nat, @@ -70324,16 +72712,16 @@ round_big_int_to_float]; caml_register_global(130,Big_int,"Big_int"); var - error_when_null_denominator_flag=[0,1], + error_when_null_denominator_fl=[0,1], normalize_ratio_flag=[0,0], - normalize_ratio_when_printing_flag=[0,1], + normalize_ratio_when_printing_=[0,1], floating_precision=[0,12], approx_printing_flag=[0,0], Arith_flags= [0, - error_when_null_denominator_flag, + error_when_null_denominator_fl, normalize_ratio_flag, - normalize_ratio_when_printing_flag, + normalize_ratio_when_printing_, floating_precision, approx_printing_flag]; caml_register_global(131,Arith_flags,"Arith_flags"); @@ -70342,15 +72730,15 @@ var s$0=s; else var - _bu_=caml_call2(Stdlib[28],cst$2,s), - s$0=caml_call2(Stdlib[28],name,_bu_); + _br_=caml_call2(Stdlib[28],cst$2,s), + s$0=caml_call2(Stdlib[28],name,_br_); return caml_call1(Stdlib[2],s$0)} function numerator_ratio(r){return r[1]} function denominator_ratio(r){return r[2]} function null_denominator(r){return 0 === r[2][1]?1:0} function verify_null_denominator(r) {return 0 === r[2][1] - ?error_when_null_denominator_flag[1]?failwith_zero(cst$3):1 + ?error_when_null_denominator_fl[1]?failwith_zero(cst$3):1 :0} function sign_ratio(r){return r[1][1]} function normalize_ratio(r) @@ -70372,24 +72760,24 @@ r)} function cautious_normalize_ratio(r) {return normalize_ratio_flag[1]?normalize_ratio(r):r} - function cautious_normalize_ratio_when_printing(r) - {return normalize_ratio_when_printing_flag[1]?normalize_ratio(r):r} + function cautious_normalize_ratio_when_(r) + {return normalize_ratio_when_printing_[1]?normalize_ratio(r):r} function create_ratio(bi1,bi2) {var match=bi2[1]; if(-1 === match) - {var _bt_=minus_big_int(bi2); - return cautious_normalize_ratio([0,minus_big_int(bi1),_bt_,0])} + {var _bq_=minus_big_int(bi2); + return cautious_normalize_ratio([0,minus_big_int(bi1),_bq_,0])} return 0 === match - ?error_when_null_denominator_flag[1] + ?error_when_null_denominator_fl[1] ?failwith_zero(cst_create_ratio) :cautious_normalize_ratio([0,bi1,bi2,0]) :cautious_normalize_ratio([0,bi1,bi2,0])} function create_normalized_ratio(bi1,bi2) {var match=bi2[1]; if(-1 === match) - {var _bs_=minus_big_int(bi2);return [0,minus_big_int(bi1),_bs_,1]} + {var _bp_=minus_big_int(bi2);return [0,minus_big_int(bi1),_bp_,1]} return 0 === match - ?error_when_null_denominator_flag[1] + ?error_when_null_denominator_fl[1] ?failwith_zero(cst_create_normalized_ratio) :[0,bi1,bi2,1] :[0,bi1,bi2,1]} @@ -70397,48 +72785,48 @@ function report_sign_ratio(r,bi) {return -1 === sign_ratio(r)?minus_big_int(bi):bi} function abs_ratio(r) - {var _bq_=r[3],_br_=r[2];return [0,abs_big_int(r[1]),_br_,_bq_]} + {var _bn_=r[3],_bo_=r[2];return [0,abs_big_int(r[1]),_bo_,_bn_]} function is_integer_ratio(r) {return eq_big_int(normalize_ratio(r)[2],unit_big_int)} function add_ratio(r1,r2) {if(normalize_ratio_flag[1]) {var - _bj_=normalize_ratio(r2)[2], - p=gcd_big_int(normalize_ratio(r1)[2],_bj_); + _bg_=normalize_ratio(r2)[2], + p=gcd_big_int(normalize_ratio(r1)[2],_bg_); if(eq_big_int(p,unit_big_int)) - {var _bk_=mult_big_int(r1[2],r2[2]),_bl_=mult_big_int(r2[1],r1[2]); - return [0,add_big_int(mult_big_int(r1[1],r2[2]),_bl_),_bk_,1]} + {var _bh_=mult_big_int(r1[2],r2[2]),_bi_=mult_big_int(r2[1],r1[2]); + return [0,add_big_int(mult_big_int(r1[1],r2[2]),_bi_),_bh_,1]} var d1=div_big_int(r1[2],p), d2=div_big_int(r2[2],p), - _bm_=mult_big_int(d1,r2[1]), - n=add_big_int(mult_big_int(r1[1],d2),_bm_), + _bj_=mult_big_int(d1,r2[1]), + n=add_big_int(mult_big_int(r1[1],d2),_bj_), p$0=gcd_big_int(n,p), - _bn_=mult_big_int(d1,div_big_int(r2[2],p$0)); - return [0,div_big_int(n,p$0),_bn_,1]} - var _bo_=mult_big_int(r1[2],r2[2]),_bp_=mult_big_int(r1[2],r2[1]); - return [0,add_big_int(mult_big_int(r1[1],r2[2]),_bp_),_bo_,0]} + _bk_=mult_big_int(d1,div_big_int(r2[2],p$0)); + return [0,div_big_int(n,p$0),_bk_,1]} + var _bl_=mult_big_int(r1[2],r2[2]),_bm_=mult_big_int(r1[2],r2[1]); + return [0,add_big_int(mult_big_int(r1[1],r2[2]),_bm_),_bl_,0]} function minus_ratio(r) - {var _bh_=r[3],_bi_=r[2];return [0,minus_big_int(r[1]),_bi_,_bh_]} + {var _be_=r[3],_bf_=r[2];return [0,minus_big_int(r[1]),_bf_,_be_]} function add_int_ratio(i,r) {cautious_normalize_ratio(r); - var _be_=r[3],_bf_=r[2],_bg_=r[1]; - return [0,add_big_int(mult_int_big_int(i,r[2]),_bg_),_bf_,_be_]} + var _bb_=r[3],_bc_=r[2],_bd_=r[1]; + return [0,add_big_int(mult_int_big_int(i,r[2]),_bd_),_bc_,_bb_]} function add_big_int_ratio(bi,r) {cautious_normalize_ratio(r); - var _bb_=r[3],_bc_=r[2],_bd_=r[1]; - return [0,add_big_int(mult_big_int(bi,r[2]),_bd_),_bc_,_bb_]} + var _a__=r[3],_a$_=r[2],_ba_=r[1]; + return [0,add_big_int(mult_big_int(bi,r[2]),_ba_),_a$_,_a__]} function sub_ratio(r1,r2){return add_ratio(r1,minus_ratio(r2))} function mult_ratio(r1,r2) {if(normalize_ratio_flag[1]) {var - _a8_=normalize_ratio(r2)[2], - p1=gcd_big_int(normalize_ratio(r1)[1],_a8_), + _a5_=normalize_ratio(r2)[2], + p1=gcd_big_int(normalize_ratio(r1)[1],_a5_), p2=gcd_big_int(r2[1],r1[2]); if(eq_big_int(p1,unit_big_int)) - var _a__=r1[1],_a9_=r2[2]; + var _a7_=r1[1],_a6_=r2[2]; else - var d2=div_big_int(r2[2],p1),_a__=div_big_int(r1[1],p1),_a9_=d2; + var d2=div_big_int(r2[2],p1),_a7_=div_big_int(r1[1],p1),_a6_=d2; if(eq_big_int(p2,unit_big_int)) var n2=r2[1],d1=r1[2]; else @@ -70447,44 +72835,44 @@ n2$0=div_big_int(r2[1],p2), n2=n2$0, d1=d1$0; - var _a$_=mult_big_int(d1,_a9_); - return [0,mult_big_int(_a__,n2),_a$_,1]} - var _ba_=mult_big_int(r1[2],r2[2]); - return [0,mult_big_int(r1[1],r2[1]),_ba_,0]} + var _a8_=mult_big_int(d1,_a6_); + return [0,mult_big_int(_a7_,n2),_a8_,1]} + var _a9_=mult_big_int(r1[2],r2[2]); + return [0,mult_big_int(r1[1],r2[1]),_a9_,0]} function mult_int_ratio(i,r) {if(normalize_ratio_flag[1]) - {var _a2_=big_int_of_int(i),p=gcd_big_int(normalize_ratio(r)[2],_a2_); + {var _aZ_=big_int_of_int(i),p=gcd_big_int(normalize_ratio(r)[2],_aZ_); if(eq_big_int(p,unit_big_int)) - {var _a3_=r[2],_a4_=r[1]; - return [0,mult_big_int(big_int_of_int(i),_a4_),_a3_,1]} - var _a5_=div_big_int(r[2],p),_a6_=r[1]; - return [0,mult_big_int(div_big_int(big_int_of_int(i),p),_a6_),_a5_,1]} - var _a7_=r[2]; - return [0,mult_int_big_int(i,r[1]),_a7_,0]} + {var _a0_=r[2],_a1_=r[1]; + return [0,mult_big_int(big_int_of_int(i),_a1_),_a0_,1]} + var _a2_=div_big_int(r[2],p),_a3_=r[1]; + return [0,mult_big_int(div_big_int(big_int_of_int(i),p),_a3_),_a2_,1]} + var _a4_=r[2]; + return [0,mult_int_big_int(i,r[1]),_a4_,0]} function mult_big_int_ratio(bi,r) {if(normalize_ratio_flag[1]) {var p=gcd_big_int(normalize_ratio(r)[2],bi); if(eq_big_int(p,unit_big_int)) - {var _aY_=r[2];return [0,mult_big_int(bi,r[1]),_aY_,1]} - var _aZ_=div_big_int(r[2],p),_a0_=r[1]; - return [0,mult_big_int(div_big_int(bi,p),_a0_),_aZ_,1]} - var _a1_=r[2]; - return [0,mult_big_int(bi,r[1]),_a1_,0]} + {var _aV_=r[2];return [0,mult_big_int(bi,r[1]),_aV_,1]} + var _aW_=div_big_int(r[2],p),_aX_=r[1]; + return [0,mult_big_int(div_big_int(bi,p),_aX_),_aW_,1]} + var _aY_=r[2]; + return [0,mult_big_int(bi,r[1]),_aY_,0]} function square_ratio(r) {cautious_normalize_ratio(r); - var _aW_=r[3],_aX_=square_big_int(r[2]); - return [0,square_big_int(r[1]),_aX_,_aW_]} + var _aT_=r[3],_aU_=square_big_int(r[2]); + return [0,square_big_int(r[1]),_aU_,_aT_]} function inverse_ratio(r) - {if(error_when_null_denominator_flag[1]) - if(0 === r[1][1])return failwith_zero(cst_inverse_ratio); - var _aU_=r[3],_aV_=abs_big_int(r[1]); - return [0,report_sign_ratio(r,r[2]),_aV_,_aU_]} + {if(error_when_null_denominator_fl[1] && 0 === r[1][1]) + return failwith_zero(cst_inverse_ratio); + var _aR_=r[3],_aS_=abs_big_int(r[1]); + return [0,report_sign_ratio(r,r[2]),_aS_,_aR_]} function div_ratio(r1,r2){return mult_ratio(r1,inverse_ratio(r2))} function integer_ratio(r) {if(null_denominator(r))return failwith_zero(cst_integer_ratio); if(0 === sign_ratio(r))return zero_big_int; - var _aT_=abs_big_int(r[2]); - return report_sign_ratio(r,div_big_int(abs_big_int(r[1]),_aT_))} + var _aQ_=abs_big_int(r[2]); + return report_sign_ratio(r,div_big_int(abs_big_int(r[1]),_aQ_))} function floor_ratio(r) {verify_null_denominator(r);return div_big_int(r[1],r[2])} function round_ratio(r) @@ -70492,13 +72880,13 @@ var abs_num=abs_big_int(r[1]), bi=div_big_int(abs_num,r[2]), - _aS_=r[2], + _aP_=r[2], bi$0= -1 === sub_big_int (mult_int_big_int(2,sub_big_int(abs_num,mult_big_int(r[2],bi))), - _aS_) + _aP_) [1] ?bi :succ_big_int(bi); @@ -70508,15 +72896,15 @@ function eq_ratio(r1,r2) {normalize_ratio(r1); normalize_ratio(r2); - var _aR_=eq_big_int(r1[1],r2[1]); - return _aR_?eq_big_int(r1[2],r2[2]):_aR_} + var _aO_=eq_big_int(r1[1],r2[1]); + return _aO_?eq_big_int(r1[2],r2[2]):_aO_} function compare_ratio(r1,r2) {if(verify_null_denominator(r1)) {var sign_num_r1=r1[1][1]; if(verify_null_denominator(r2)) {var sign_num_r2=r2[1][1]; - if(1 === sign_num_r1)if(-1 === sign_num_r2)return 1; - if(-1 === sign_num_r1)if(1 === sign_num_r2)return -1; + if(1 === sign_num_r1 && -1 === sign_num_r2)return 1; + if(-1 === sign_num_r1 && 1 === sign_num_r2)return -1; return 0} return sign_num_r1} if(verify_null_denominator(r2))return - r2[1][1] | 0; @@ -70524,8 +72912,8 @@ if(! (2 < switcher >>> 0)) switch(switcher){case 0:return -1;case 1:break;default:return 1} if(eq_big_int(r1[2],r2[2]))return compare_big_int(r1[1],r2[1]); - var _aQ_=mult_big_int(r1[2],r2[1]); - return compare_big_int(mult_big_int(r1[1],r2[2]),_aQ_)} + var _aN_=mult_big_int(r1[2],r2[1]); + return compare_big_int(mult_big_int(r1[1],r2[2]),_aN_)} function lt_ratio(r1,r2){return compare_ratio(r1,r2) < 0?1:0} function le_ratio(r1,r2){return compare_ratio(r1,r2) <= 0?1:0} function gt_ratio(r1,r2){return 0 < compare_ratio(r1,r2)?1:0} @@ -70533,12 +72921,12 @@ function max_ratio(r1,r2){return lt_ratio(r1,r2)?r2:r1} function min_ratio(r1,r2){return gt_ratio(r1,r2)?r2:r1} function eq_big_int_ratio(bi,r) - {var _aP_=is_integer_ratio(r);return _aP_?eq_big_int(bi,r[1]):_aP_} + {var _aM_=is_integer_ratio(r);return _aM_?eq_big_int(bi,r[1]):_aM_} function compare_big_int_ratio(bi,r) {normalize_ratio(r); if(verify_null_denominator(r))return - r[1][1] | 0; - var _aO_=r[1]; - return compare_big_int(mult_big_int(bi,r[2]),_aO_)} + var _aL_=r[1]; + return compare_big_int(mult_big_int(bi,r[2]),_aL_)} function lt_big_int_ratio(bi,r) {return compare_big_int_ratio(bi,r) < 0?1:0} function le_big_int_ratio(bi,r) @@ -70548,8 +72936,8 @@ function ge_big_int_ratio(bi,r) {return 0 <= compare_big_int_ratio(bi,r)?1:0} function int_of_ratio(r) - {if(is_integer_ratio(r)) - if(is_int_big_int(r[1]))return int_of_big_int(r[1]); + {if(is_integer_ratio(r) && is_int_big_int(r[1])) + return int_of_big_int(r[1]); return caml_call1(Stdlib[2],cst_integer_argument_required)} function ratio_of_int(i){return [0,big_int_of_int(i),unit_big_int,1]} function ratio_of_nat(nat){return [0,big_int_of_nat(nat),unit_big_int,1]} @@ -70579,12 +72967,12 @@ if(0 === sign_r)return cst_0; if(0 <= n) {var - _aJ_=r[2], + _aG_=r[2], s1= string_of_nat (nat_of_big_int (div_big_int - (base_power_big_int(10,n + 1 | 0,abs_big_int(r[1])),_aJ_))), + (base_power_big_int(10,n + 1 | 0,abs_big_int(r[1])),_aG_))), s2= round_futur_last_digit (caml_call1(Stdlib_bytes[43],s1),0,caml_ml_string_length(s1)) @@ -70594,26 +72982,26 @@ if(n < l2) {var s=caml_call2(Stdlib_bytes[1],l2 + 2 | 0,48), - _aK_=-1 === sign_r?45:43; - caml_bytes_set(s,0,_aK_); + _aH_=-1 === sign_r?45:43; + caml_bytes_set(s,0,_aH_); caml_call5(Stdlib_string[6],s2,0,s,1,l2 - n | 0); caml_bytes_set(s,(l2 - n | 0) + 1 | 0,46); caml_call5(Stdlib_string[6],s2,l2 - n | 0,s,(l2 - n | 0) + 2 | 0,n); return caml_call1(Stdlib_bytes[42],s)} var s$0=caml_call2(Stdlib_bytes[1],n + 3 | 0,48), - _aL_=-1 === sign_r?45:43; - caml_bytes_set(s$0,0,_aL_); + _aI_=-1 === sign_r?45:43; + caml_bytes_set(s$0,0,_aI_); caml_bytes_set(s$0,2,46); caml_call5(Stdlib_string[6],s2,0,s$0,(n + 3 | 0) - l2 | 0,l2); return caml_call1(Stdlib_bytes[42],s$0)} var - _aM_=base_power_big_int(10,- n | 0,r[2]), - s$1=string_of_big_int(div_big_int(abs_big_int(r[1]),_aM_)), + _aJ_=base_power_big_int(10,- n | 0,r[2]), + s$1=string_of_big_int(div_big_int(abs_big_int(r[1]),_aJ_)), len=caml_ml_string_length(s$1) + 1 | 0, s$2=caml_call2(Stdlib_bytes[1],len,48), - _aN_=-1 === sign_r?45:43; - caml_bytes_set(s$2,0,_aN_); + _aK_=-1 === sign_r?45:43; + caml_bytes_set(s$2,0,_aK_); caml_call5(Stdlib_string[6],s$1,0,s$2,1,len - 1 | 0); return caml_call1(Stdlib_bytes[42],s$2)} function num_decimal_digits_int(n) @@ -70623,8 +73011,8 @@ if(0 < n) {var sign_r=sign_ratio(r),i$4=[0,n + 3 | 0]; if(0 === sign_r) - {var _au_=[0,cst_0$0,[0,caml_call2(Stdlib_string[1],n,48),_p_]]; - return caml_call2(Stdlib_string[7],cst$4,_au_)} + {var _ar_=[0,cst_0$0,[0,caml_call2(Stdlib_string[1],n,48),_m_]]; + return caml_call2(Stdlib_string[7],cst$4,_ar_)} var r$0=abs_ratio(r); cautious_normalize_ratio(r$0); if(null_denominator(r$0)) @@ -70651,75 +73039,75 @@ c=compare_int(c1,c2); if(0 === c){var i$0=i + 1 | 0,i=i$0;continue} var cmp=c} - var switcher=cmp + 1 | 0; + var switcher=cmp + 1 | 0,switch$0=0; if(2 < switcher >>> 0) - var switch$0=0; + switch$0 = 1; else switch(switcher) - {case 0:var msd=m - 1 | 0,switch$0=1;break; - case 1:var switch$0=0;break; - default:var msd=m,switch$0=1} - if(! switch$0) + {case 0:var msd=m - 1 | 0;break; + case 1:switch$0 = 1;break; + default:var msd=m} + if(switch$0) if(0 <= m) var msd=m; else {var i$1=i$3; for(;;) - {var _ar_=lim <= i$1?1:0; - if(_ar_) - var _as_=_ar_; + {var _ao_=lim <= i$1?1:0; + if(_ao_) + var _ap_=_ao_; else - {var _at_=48 === caml_string_get(s,i$1)?1:0; - if(_at_){var i$2=i$1 + 1 | 0,i$1=i$2;continue} - var _as_=_at_} - var msd=_as_?m:m - 1 | 0; + {var _aq_=48 === caml_string_get(s,i$1)?1:0; + if(_aq_){var i$2=i$1 + 1 | 0,i$1=i$2;continue} + var _ap_=_aq_} + var msd=_ap_?m:m - 1 | 0; break}} break}} var k=n - msd | 0; if(0 <= k) var - _av_=r[2], - _aw_=div_big_int(base_power_big_int(10,k,abs_big_int(r[1])),_av_); + _as_=r[2], + _at_=div_big_int(base_power_big_int(10,k,abs_big_int(r[1])),_as_); else var - _aI_=base_power_big_int(10,- k | 0,r[2]), - _aw_=div_big_int(abs_big_int(r[1]),_aI_); - var nat=nat_of_big_int(_aw_),s$0=string_of_nat(nat); + _aF_=base_power_big_int(10,- k | 0,r[2]), + _at_=div_big_int(abs_big_int(r[1]),_aF_); + var nat=nat_of_big_int(_at_),s$0=string_of_nat(nat); if (round_futur_last_digit (caml_call1(Stdlib_bytes[43],s$0),0,caml_ml_string_length(s$0))) {var m$0=num_decimal_digits_int(msd + 1 | 0), str=caml_call2(Stdlib_bytes[1],(n + m$0 | 0) + 4 | 0,48), - _ax_=3, - _ay_=0, - _az_=0, - _aA_=-1 === sign_r?cst_1$1:cst_1$2; - caml_call5(Stdlib_string[6],_aA_,_az_,str,_ay_,_ax_); + _au_=3, + _av_=0, + _aw_=0, + _ax_=-1 === sign_r?cst_1$1:cst_1$2; + caml_call5(Stdlib_string[6],_ax_,_aw_,str,_av_,_au_); caml_bytes_set(str,i$4[1],101); i$4[1]++; if(0 === m$0) caml_bytes_set(str,i$4[1],48); else - {var _aB_=i$4[1],_aC_=caml_call1(Stdlib[33],msd + 1 | 0); - caml_call5(Stdlib_string[6],_aC_,0,str,_aB_,m$0)} + {var _ay_=i$4[1],_az_=caml_call1(Stdlib[33],msd + 1 | 0); + caml_call5(Stdlib_string[6],_az_,0,str,_ay_,m$0)} return caml_call1(Stdlib_bytes[42],str)} var m$1=num_decimal_digits_int(msd + 1 | 0), p=n + 3 | 0, str$0=caml_call2(Stdlib_bytes[1],(m$1 + p | 0) + 1 | 0,48), - _aD_=3, - _aE_=0, - _aF_=0, - _aG_=-1 === sign_r?cst_0$1:cst_0$2; - caml_call5(Stdlib_string[6],_aG_,_aF_,str$0,_aE_,_aD_); + _aA_=3, + _aB_=0, + _aC_=0, + _aD_=-1 === sign_r?cst_0$1:cst_0$2; + caml_call5(Stdlib_string[6],_aD_,_aC_,str$0,_aB_,_aA_); caml_call5(Stdlib_string[6],s$0,0,str$0,3,n); caml_bytes_set(str$0,p,101); if(0 === m$1) caml_bytes_set(str$0,p + 1 | 0,48); else - {var _aH_=caml_call1(Stdlib[33],msd + 1 | 0); - caml_call5(Stdlib_string[6],_aH_,0,str$0,p + 1 | 0,m$1)} + {var _aE_=caml_call1(Stdlib[33],msd + 1 | 0); + caml_call5(Stdlib_string[6],_aE_,0,str$0,p + 1 | 0,m$1)} return caml_call1(Stdlib_bytes[42],str$0)} return caml_call1(Stdlib[1],cst_approx_ratio_exp$0)} function float_of_rational_string(r) @@ -70729,41 +73117,40 @@ (Stdlib_string[4],s,1,caml_ml_string_length(s) - 1 | 0) :s} function string_of_ratio(r) - {cautious_normalize_ratio_when_printing(r); + {cautious_normalize_ratio_when_(r); if(approx_printing_flag[1])return float_of_rational_string(r); var - _ao_=string_of_big_int(r[2]), - _ap_=caml_call2(Stdlib[28],cst$5,_ao_), - _aq_=string_of_big_int(r[1]); - return caml_call2(Stdlib[28],_aq_,_ap_)} + _al_=string_of_big_int(r[2]), + _am_=caml_call2(Stdlib[28],cst$5,_al_), + _an_=string_of_big_int(r[1]); + return caml_call2(Stdlib[28],_an_,_am_)} function ratio_of_string(s) {try {var n=caml_call2(Stdlib_string[14],s,47), - _al_= + _ai_= sys_big_int_of_string (s,n + 1 | 0,(caml_ml_string_length(s) - n | 0) - 1 | 0), - _am_=create_ratio(sys_big_int_of_string(s,0,n),_al_); - return _am_} - catch(_an_) - {_an_ = caml_wrap_exception(_an_); - if(_an_ === Stdlib[8])return [0,big_int_of_string(s),unit_big_int,1]; - throw _an_}} + _aj_=create_ratio(sys_big_int_of_string(s,0,n),_ai_); + return _aj_} + catch(_ak_) + {_ak_ = caml_wrap_exception(_ak_); + if(_ak_ === Stdlib[8])return [0,big_int_of_string(s),unit_big_int,1]; + throw _ak_}} function float_of_ratio(r) {var p=r[1],q=r[2]; if(0 === q[1]) {var match=p[1],switcher=match + 1 | 0; - if(2 < switcher >>> 0)throw [0,Assert_failure,_q_]; + if(2 < switcher >>> 0)throw [0,Assert_failure,_n_]; switch(switcher) {case 0:return Stdlib[23]; case 1:return Stdlib[24]; default:return Stdlib[22]}} if(0 === p[1])return 0.; var np=num_bits_big_int(p),nq=num_bits_big_int(q); - if(! (53 < np)) - if(! (53 < nq)) - {var _ak_=caml_int64_to_float(int64_of_big_int(q)); - return caml_int64_to_float(int64_of_big_int(p)) / _ak_} + if(! (53 < np) && ! (53 < nq)) + {var _ah_=caml_int64_to_float(int64_of_big_int(q)); + return caml_int64_to_float(int64_of_big_int(p)) / _ah_} var ap=abs_big_int(p),n=55 - (np - nq | 0) | 0; if(0 <= n) var p$0=shift_left_big_int(ap,n),q$0=q; @@ -70777,11 +73164,11 @@ f$0=caml_ldexp_float(f,- n | 0); return 0 <= p[1]?f$0:- f$0} function power_ratio_positive_int(r,n) - {var _aj_=power_big_int_positive_int(r[2],n); - return create_ratio(power_big_int_positive_int(r[1],n),_aj_)} + {var _ag_=power_big_int_positive_int(r[2],n); + return create_ratio(power_big_int_positive_int(r[1],n),_ag_)} function power_ratio_positive_big_int(r,bi) - {var _ai_=power_big_int_positive_big_int(r[2],bi); - return create_ratio(power_big_int_positive_big_int(r[1],bi),_ai_)} + {var _af_=power_big_int_positive_big_int(r[2],bi); + return create_ratio(power_big_int_positive_big_int(r[1],bi),_af_)} var Ratio= [0, @@ -70791,7 +73178,7 @@ sign_ratio, normalize_ratio, cautious_normalize_ratio, - cautious_normalize_ratio_when_printing, + cautious_normalize_ratio_when_, create_ratio, create_normalized_ratio, is_normalized_ratio, @@ -70846,10 +73233,12 @@ power_ratio_positive_int, power_ratio_positive_big_int]; caml_register_global(132,Ratio,"Ratio"); - var biggest_INT=big_int_of_int(_a_),least_INT=big_int_of_int(_b_); + var + biggest_INT=big_int_of_int(biggest_int), + least_INT=big_int_of_int(least_int); function num_of_big_int(bi) - {if(le_big_int(bi,biggest_INT)) - if(ge_big_int(bi,least_INT))return [0,int_of_big_int(bi)]; + {if(le_big_int(bi,biggest_INT) && ge_big_int(bi,least_INT)) + return [0,int_of_big_int(bi)]; return [1,bi]} function num_of_ratio(r) {normalize_ratio(r); @@ -70859,36 +73248,36 @@ function add_num(a,match) {switch(a[0]) {case 0: - var _ae_=a[1]; + var _ab_=a[1]; switch(match[0]) {case 0: - var int2=match[1],r=_ae_ + int2 | 0; - if(0 <= (_ae_ ^ int2 | _ae_ ^ r ^ -1)) - {var _af_=big_int_of_int(int2); - return [1,add_big_int(big_int_of_int(_ae_),_af_)]} + var int2=match[1],r=_ab_ + int2 | 0; + if(0 <= (_ab_ ^ int2 | _ab_ ^ r ^ -1)) + {var _ac_=big_int_of_int(int2); + return [1,add_big_int(big_int_of_int(_ab_),_ac_)]} return [0,r]; case 1: - var bi=match[1];return num_of_big_int(add_int_big_int(_ae_,bi)); - default:var r$0=match[1];return [2,add_int_ratio(_ae_,r$0)]} + var bi=match[1];return num_of_big_int(add_int_big_int(_ab_,bi)); + default:var r$0=match[1];return [2,add_int_ratio(_ab_,r$0)]} case 1: - var _ag_=a[1]; + var _ad_=a[1]; switch(match[0]) {case 0: - var i=match[1];return num_of_big_int(add_int_big_int(i,_ag_)); + var i=match[1];return num_of_big_int(add_int_big_int(i,_ad_)); case 1: - var bi2=match[1];return num_of_big_int(add_big_int(_ag_,bi2)); - default:var r$1=match[1];return [2,add_big_int_ratio(_ag_,r$1)]} + var bi2=match[1];return num_of_big_int(add_big_int(_ad_,bi2)); + default:var r$1=match[1];return [2,add_big_int_ratio(_ad_,r$1)]} default: - var _ah_=a[1]; + var _ae_=a[1]; switch(match[0]) - {case 0:var i$0=match[1];return [2,add_int_ratio(i$0,_ah_)]; - case 1:var bi$0=match[1];return [2,add_big_int_ratio(bi$0,_ah_)]; - default:var r2=match[1];return num_of_ratio(add_ratio(_ah_,r2))}}} + {case 0:var i$0=match[1];return [2,add_int_ratio(i$0,_ae_)]; + case 1:var bi$0=match[1];return [2,add_big_int_ratio(bi$0,_ae_)]; + default:var r2=match[1];return num_of_ratio(add_ratio(_ae_,r2))}}} function minus_num(param) {switch(param[0]) {case 0: var i=param[1]; - return i === -2147483648 + return i === monster_int ?[1,minus_big_int(big_int_of_int(i))] :[0,- i | 0]; case 1:var bi=param[1];return [1,minus_big_int(bi)]; @@ -70897,40 +73286,40 @@ function mult_num(a,match) {switch(a[0]) {case 0: - var _$_=a[1]; + var _Y_=a[1]; switch(match[0]) {case 0: - var int2=match[1],_aa_=num_bits_int(int2); - if((num_bits_int(_$_) + _aa_ | 0) < 31) - return [0,caml_mul(_$_,int2)]; - var _ab_=big_int_of_int(int2); - return num_of_big_int(mult_big_int(big_int_of_int(_$_),_ab_)); + var int2=match[1],_Z_=num_bits_int(int2); + if((num_bits_int(_Y_) + _Z_ | 0) < length_of_int) + return [0,caml_mul(_Y_,int2)]; + var ___=big_int_of_int(int2); + return num_of_big_int(mult_big_int(big_int_of_int(_Y_),___)); case 1: - var bi=match[1];return num_of_big_int(mult_int_big_int(_$_,bi)); - default:var r=match[1];return num_of_ratio(mult_int_ratio(_$_,r))} + var bi=match[1];return num_of_big_int(mult_int_big_int(_Y_,bi)); + default:var r=match[1];return num_of_ratio(mult_int_ratio(_Y_,r))} case 1: - var _ac_=a[1]; + var _$_=a[1]; switch(match[0]) {case 0: - var i=match[1];return num_of_big_int(mult_int_big_int(i,_ac_)); + var i=match[1];return num_of_big_int(mult_int_big_int(i,_$_)); case 1: - var bi2=match[1];return num_of_big_int(mult_big_int(_ac_,bi2)); + var bi2=match[1];return num_of_big_int(mult_big_int(_$_,bi2)); default: - var r$0=match[1];return num_of_ratio(mult_big_int_ratio(_ac_,r$0))} + var r$0=match[1];return num_of_ratio(mult_big_int_ratio(_$_,r$0))} default: - var _ad_=a[1]; + var _aa_=a[1]; switch(match[0]) {case 0: - var i$0=match[1];return num_of_ratio(mult_int_ratio(i$0,_ad_)); + var i$0=match[1];return num_of_ratio(mult_int_ratio(i$0,_aa_)); case 1: var bi$0=match[1]; - return num_of_ratio(mult_big_int_ratio(bi$0,_ad_)); - default:var r2=match[1];return num_of_ratio(mult_ratio(_ad_,r2))}}} + return num_of_ratio(mult_big_int_ratio(bi$0,_aa_)); + default:var r2=match[1];return num_of_ratio(mult_ratio(_aa_,r2))}}} function square_num(param) {switch(param[0]) {case 0: var i=param[1]; - return (2 * num_bits_int(i) | 0) < 31 + return (2 * num_bits_int(i) | 0) < length_of_int ?[0,caml_mul(i,i)] :num_of_big_int(square_big_int(big_int_of_int(i))); case 1:var bi=param[1];return [1,square_big_int(bi)]; @@ -70941,8 +73330,8 @@ var i1=n1[1]; switch(n2[0]) {case 0: - var i2=n2[1],___=big_int_of_int(i2); - return num_of_ratio(create_ratio(big_int_of_int(i1),___)); + var i2=n2[1],_X_=big_int_of_int(i2); + return num_of_ratio(create_ratio(big_int_of_int(i1),_X_)); case 1: var bi2=n2[1]; return num_of_ratio(create_ratio(big_int_of_int(i1),bi2)); @@ -70977,36 +73366,36 @@ function quo_num(n1,n2) {switch(n1[0]) {case 0: - var _Y_=n1[1]; + var _V_=n1[1]; switch(n2[0]) {case 0: var i2=n2[1], - q=caml_div(_Y_,i2), - r=caml_mod(_Y_,i2), + q=caml_div(_V_,i2), + r=caml_mod(_V_,i2), q$0=0 <= r?q:0 < i2?q - 1 | 0:q + 1 | 0; return [0,q$0]; case 1: var bi2=n2[1]; - return num_of_big_int(div_big_int(big_int_of_int(_Y_),bi2)); + return num_of_big_int(div_big_int(big_int_of_int(_V_),bi2)); default: var r2=n2[1]; return num_of_big_int (report_sign_ratio - (r2,floor_ratio(div_int_ratio(_Y_,abs_ratio(r2)))))} + (r2,floor_ratio(div_int_ratio(_V_,abs_ratio(r2)))))} case 1: - var _Z_=n1[1]; + var _W_=n1[1]; switch(n2[0]) {case 0: var i2$0=n2[1]; - return num_of_big_int(div_big_int(_Z_,big_int_of_int(i2$0))); + return num_of_big_int(div_big_int(_W_,big_int_of_int(i2$0))); case 1: - var bi2$0=n2[1];return num_of_big_int(div_big_int(_Z_,bi2$0)); + var bi2$0=n2[1];return num_of_big_int(div_big_int(_W_,bi2$0)); default: var r2$0=n2[1]; return num_of_big_int (report_sign_ratio - (r2$0,floor_ratio(div_big_int_ratio(_Z_,abs_ratio(r2$0)))))} + (r2$0,floor_ratio(div_big_int_ratio(_W_,abs_ratio(r2$0)))))} default: var r1=n1[1],r2$1=ratio_of_num(n2); return num_of_big_int @@ -71015,27 +73404,27 @@ function mod_num(n1,n2) {switch(n1[0]) {case 0: - var _W_=n1[1]; + var _T_=n1[1]; switch(n2[0]) {case 0: var i2=n2[1], - r=caml_mod(_W_,i2), + r=caml_mod(_T_,i2), r$0=0 <= r?r:0 < i2?r + i2 | 0:r - i2 | 0; return [0,r$0]; case 1: var bi2=n2[1]; - return num_of_big_int(mod_big_int(big_int_of_int(_W_),bi2)) + return num_of_big_int(mod_big_int(big_int_of_int(_T_),bi2)) } break; case 1: - var _X_=n1[1]; + var _U_=n1[1]; switch(n2[0]) {case 0: var i2$0=n2[1]; - return num_of_big_int(mod_big_int(_X_,big_int_of_int(i2$0))); + return num_of_big_int(mod_big_int(_U_,big_int_of_int(i2$0))); case 1: - var bi2$0=n2[1];return num_of_big_int(mod_big_int(_X_,bi2$0)) + var bi2$0=n2[1];return num_of_big_int(mod_big_int(_U_,bi2$0)) } break } @@ -71048,7 +73437,7 @@ {case 0: var i=n[1],match=sign_int(i$1); return 0 === match - ?_r_ + ?_o_ :1 === match ?num_of_big_int(power_int_positive_int(i,i$1)) :[2, @@ -71057,7 +73446,7 @@ case 1: var bi=n[1],match$0=sign_int(i$1); return 0 === match$0 - ?_s_ + ?_p_ :1 === match$0 ?num_of_big_int(power_big_int_positive_int(bi,i$1)) :[2, @@ -71066,7 +73455,7 @@ default: var r=n[1],match$1=sign_int(i$1); return 0 === match$1 - ?_t_ + ?_q_ :1 === match$1 ?[2,power_ratio_positive_int(r,i$1)] :[2,power_ratio_positive_int(inverse_ratio(r),- i$1 | 0)]} @@ -71076,7 +73465,7 @@ {case 0: var i$0=n[1],match$2=bi$1[1]; return 0 === match$2 - ?_u_ + ?_r_ :1 === match$2 ?num_of_big_int(power_int_positive_big_int(i$0,bi$1)) :[2, @@ -71086,7 +73475,7 @@ case 1: var bi$0=n[1],match$3=bi$1[1]; return 0 === match$3 - ?_v_ + ?_s_ :1 === match$3 ?num_of_big_int(power_big_int_positive_big_int(bi$0,bi$1)) :[2, @@ -71095,11 +73484,11 @@ power_big_int_positive_big_int(bi$0,minus_big_int(bi$1)))]; default: var r$0=n[1],match$4=bi$1[1]; - if(0 === match$4)return _w_; + if(0 === match$4)return _t_; if(1 === match$4) return [2,power_ratio_positive_big_int(r$0,bi$1)]; - var _V_=minus_big_int(bi$1); - return [2,power_ratio_positive_big_int(inverse_ratio(r$0),_V_)]} + var _S_=minus_big_int(bi$1); + return [2,power_ratio_positive_big_int(inverse_ratio(r$0),_S_)]} default:return caml_call1(Stdlib[1],cst_power_num)}} function is_integer_num(param) {switch(param[0]) @@ -71129,52 +73518,52 @@ function eq_num(a,match) {switch(a[0]) {case 0: - var _S_=a[1]; + var _P_=a[1]; switch(match[0]) - {case 0:var int2=match[1];return _S_ === int2?1:0; - case 1:var bi=match[1];return eq_big_int(big_int_of_int(_S_),bi); + {case 0:var int2=match[1];return _P_ === int2?1:0; + case 1:var bi=match[1];return eq_big_int(big_int_of_int(_P_),bi); default: - var r=match[1];return eq_big_int_ratio(big_int_of_int(_S_),r)} + var r=match[1];return eq_big_int_ratio(big_int_of_int(_P_),r)} case 1: - var _T_=a[1]; + var _Q_=a[1]; switch(match[0]) - {case 0:var i=match[1];return eq_big_int(big_int_of_int(i),_T_); - case 1:var bi2=match[1];return eq_big_int(_T_,bi2); - default:var r$0=match[1];return eq_big_int_ratio(_T_,r$0)} + {case 0:var i=match[1];return eq_big_int(big_int_of_int(i),_Q_); + case 1:var bi2=match[1];return eq_big_int(_Q_,bi2); + default:var r$0=match[1];return eq_big_int_ratio(_Q_,r$0)} default: - var _U_=a[1]; + var _R_=a[1]; switch(match[0]) {case 0: - var i$0=match[1];return eq_big_int_ratio(big_int_of_int(i$0),_U_); - case 1:var bi$0=match[1];return eq_big_int_ratio(bi$0,_U_); - default:var r2=match[1];return eq_ratio(_U_,r2)}}} + var i$0=match[1];return eq_big_int_ratio(big_int_of_int(i$0),_R_); + case 1:var bi$0=match[1];return eq_big_int_ratio(bi$0,_R_); + default:var r2=match[1];return eq_ratio(_R_,r2)}}} function symbol(a,b){return 1 - eq_num(a,b)} function compare_num(a,match) {switch(a[0]) {case 0: - var _P_=a[1]; + var _M_=a[1]; switch(match[0]) - {case 0:var int2=match[1];return compare_int(_P_,int2); + {case 0:var int2=match[1];return compare_int(_M_,int2); case 1: - var bi=match[1];return compare_big_int(big_int_of_int(_P_),bi); + var bi=match[1];return compare_big_int(big_int_of_int(_M_),bi); default: - var r=match[1];return compare_big_int_ratio(big_int_of_int(_P_),r)} + var r=match[1];return compare_big_int_ratio(big_int_of_int(_M_),r)} case 1: - var _Q_=a[1]; + var _N_=a[1]; switch(match[0]) {case 0: - var i=match[1];return compare_big_int(_Q_,big_int_of_int(i)); - case 1:var bi2=match[1];return compare_big_int(_Q_,bi2); - default:var r$0=match[1];return compare_big_int_ratio(_Q_,r$0)} + var i=match[1];return compare_big_int(_N_,big_int_of_int(i)); + case 1:var bi2=match[1];return compare_big_int(_N_,bi2); + default:var r$0=match[1];return compare_big_int_ratio(_N_,r$0)} default: - var _R_=a[1]; + var _O_=a[1]; switch(match[0]) {case 0: var i$0=match[1]; - return - compare_big_int_ratio(big_int_of_int(i$0),_R_) | 0; + return - compare_big_int_ratio(big_int_of_int(i$0),_O_) | 0; case 1: - var bi$0=match[1];return - compare_big_int_ratio(bi$0,_R_) | 0; - default:var r2=match[1];return compare_ratio(_R_,r2)}}} + var bi$0=match[1];return - compare_big_int_ratio(bi$0,_O_) | 0; + default:var r2=match[1];return compare_ratio(_O_,r2)}}} function lt_num(num1,num2){return compare_num(num1,num2) < 0?1:0} function le_num(num1,num2){return compare_num(num1,num2) <= 0?1:0} function gt_num(num1,num2){return 0 < compare_num(num1,num2)?1:0} @@ -71193,13 +73582,13 @@ default: var r=param[1]; try - {var _N_=[0,int_of_ratio(r)];return _N_} - catch(_O_) - {_O_ = caml_wrap_exception(_O_); - if(_O_[1] === Stdlib[7])return 0; - throw _O_}}} + {var _K_=[0,int_of_ratio(r)];return _K_} + catch(_L_) + {_L_ = caml_wrap_exception(_L_); + if(_L_[1] === Stdlib[7])return 0; + throw _L_}}} function num_of_int(i) - {return i === -2147483648?[1,big_int_of_int(i)]:[0,i]} + {return i === monster_int?[1,big_int_of_int(i)]:[0,i]} function nat_of_num(param) {switch(param[0]) {case 0:var i=param[1];return nat_of_int(i); @@ -71211,11 +73600,11 @@ :[1,big_int_of_nat(nat)]} function nat_of_num_opt(x) {try - {var _L_=[0,nat_of_num(x)];return _L_} - catch(_M_) - {_M_ = caml_wrap_exception(_M_); - if(_M_[1] === Stdlib[7])return 0; - throw _M_}} + {var _I_=[0,nat_of_num(x)];return _I_} + catch(_J_) + {_J_ = caml_wrap_exception(_J_); + if(_J_[1] === Stdlib[7])return 0; + throw _J_}} function big_int_of_num(param) {switch(param[0]) {case 0:var i=param[1];return big_int_of_int(i); @@ -71223,47 +73612,47 @@ default:var r=param[1];return big_int_of_ratio(r)}} function big_int_of_num_opt(x) {try - {var _J_=[0,big_int_of_num(x)];return _J_} - catch(_K_) - {_K_ = caml_wrap_exception(_K_); - if(_K_[1] === Stdlib[7])return 0; - throw _K_}} + {var _G_=[0,big_int_of_num(x)];return _G_} + catch(_H_) + {_H_ = caml_wrap_exception(_H_); + if(_H_[1] === Stdlib[7])return 0; + throw _H_}} function string_of_num(n) - {if(normalize_ratio_when_printing_flag[1]) + {if(normalize_ratio_when_printing_[1]) switch(n[0]) - {case 0:var i=n[1],_I_=[0,i];break; - case 1:var bi=n[1],_I_=num_of_big_int(bi);break; - default:var r=n[1],_I_=is_integer_ratio(r)?num_of_big_int(r[1]):[2,r]} + {case 0:var i=n[1],_F_=[0,i];break; + case 1:var bi=n[1],_F_=num_of_big_int(bi);break; + default:var r=n[1],_F_=is_integer_ratio(r)?num_of_big_int(r[1]):[2,r]} else - var _I_=n; - switch(_I_[0]) - {case 0:var i$0=_I_[1];return caml_call1(Stdlib[33],i$0); + var _F_=n; + switch(_F_[0]) + {case 0:var i$0=_F_[1];return caml_call1(Stdlib[33],i$0); case 1: - var bi$0=_I_[1]; + var bi$0=_F_[1]; return approx_printing_flag[1] ?approx_big_int(floating_precision[1],bi$0) :string_of_big_int(bi$0); - default:var r$0=_I_[1];return string_of_ratio(r$0)}} + default:var r$0=_F_[1];return string_of_ratio(r$0)}} function num_of_string(s) {try {var flag=normalize_ratio_flag[1]; normalize_ratio_flag[1] = 1; var r=ratio_of_string(s); normalize_ratio_flag[1] = flag; - var _G_=eq_big_int(r[2],unit_big_int)?num_of_big_int(r[1]):[2,r]; - return _G_} - catch(_H_) - {_H_ = caml_wrap_exception(_H_); - if(_H_[1] === Stdlib[7]) + var _D_=eq_big_int(r[2],unit_big_int)?num_of_big_int(r[1]):[2,r]; + return _D_} + catch(_E_) + {_E_ = caml_wrap_exception(_E_); + if(_E_[1] === Stdlib[7]) return caml_call1(Stdlib[2],cst_num_of_string); - throw _H_}} + throw _E_}} function num_of_string_opt(s) {try - {var _E_=[0,num_of_string(s)];return _E_} - catch(_F_) - {_F_ = caml_wrap_exception(_F_); - if(_F_[1] === Stdlib[7])return 0; - throw _F_}} + {var _B_=[0,num_of_string(s)];return _B_} + catch(_C_) + {_C_ = caml_wrap_exception(_C_); + if(_C_[1] === Stdlib[7])return 0; + throw _C_}} function float_of_num(param) {switch(param[0]) {case 0:var i=param[1];return i; @@ -71273,7 +73662,7 @@ {switch(param[0]) {case 0: var i=param[1]; - return i === 2147483647 + return i === biggest_int ?[1,succ_big_int(big_int_of_int(i))] :[0,i + 1 | 0]; case 1:var bi=param[1];return num_of_big_int(succ_big_int(bi)); @@ -71282,7 +73671,7 @@ {switch(param[0]) {case 0: var i=param[1]; - return i === -2147483648 + return i === monster_int ?[1,pred_big_int(big_int_of_int(i))] :[0,i - 1 | 0]; case 1:var bi=param[1];return num_of_big_int(pred_big_int(bi)); @@ -71291,7 +73680,7 @@ {switch(param[0]) {case 0: var i=param[1]; - return i === -2147483648 + return i === monster_int ?[1,minus_big_int(big_int_of_int(i))] :[0,caml_call1(Stdlib[18],i)]; case 1:var bi=param[1];return [1,abs_big_int(bi)]; @@ -71362,17 +73751,17 @@ num_of_ratio, float_of_num]; caml_register_global(133,Num,"Num"); - function get_error_when_null_denominator(param) - {return error_when_null_denominator_flag[1]} - function set_error_when_null_denominator(choice) - {error_when_null_denominator_flag[1] = choice;return 0} + function get_error_when_null_denominato(param) + {return error_when_null_denominator_fl[1]} + function set_error_when_null_denominato(choice) + {error_when_null_denominator_fl[1] = choice;return 0} function get_normalize_ratio(param){return normalize_ratio_flag[1]} function set_normalize_ratio(choice) {normalize_ratio_flag[1] = choice;return 0} - function get_normalize_ratio_when_printing(param) - {return normalize_ratio_when_printing_flag[1]} - function set_normalize_ratio_when_printing(choice) - {normalize_ratio_when_printing_flag[1] = choice;return 0} + function get_normalize_ratio_when_print(param) + {return normalize_ratio_when_printing_[1]} + function set_normalize_ratio_when_print(choice) + {normalize_ratio_when_printing_[1] = choice;return 0} function get_floating_precision(param){return floating_precision[1]} function set_floating_precision(i){floating_precision[1] = i;return 0} function get_approx_printing(param){return approx_printing_flag[1]} @@ -71385,66 +73774,58 @@ :caml_call1(Stdlib[42],cst_ON)} function arith_status(param) {caml_call1(Stdlib[47],0); - arith_print_string(cst_Normalization_during_computation); + arith_print_string(cst_Normalization_during_compu); arith_print_bool(get_normalize_ratio(0)); caml_call1(Stdlib[47],0); - caml_call1(Stdlib[42],cst_returned_by_get_normalize_ratio); + caml_call1(Stdlib[42],cst_returned_by_get_normalize_); caml_call1(Stdlib[47],0); - caml_call1 - (Stdlib[42],cst_modifiable_with_set_normalize_ratio_your_choice); + caml_call1(Stdlib[42],cst_modifiable_with_set_normal); caml_call1(Stdlib[47],0); caml_call1(Stdlib[47],0); - arith_print_string(cst_Normalization_when_printing); - arith_print_bool(get_normalize_ratio_when_printing(0)); + arith_print_string(cst_Normalization_when_printin); + arith_print_bool(get_normalize_ratio_when_print(0)); caml_call1(Stdlib[47],0); - caml_call1(Stdlib[42],cst_returned_by_get_normalize_ratio_when_printing); + caml_call1(Stdlib[42],cst_returned_by_get_normalize_$0); caml_call1(Stdlib[47],0); - caml_call1 - (Stdlib[42], - cst_modifiable_with_set_normalize_ratio_when_printing_your_choice); + caml_call1(Stdlib[42],cst_modifiable_with_set_normal$0); caml_call1(Stdlib[47],0); caml_call1(Stdlib[47],0); - arith_print_string - (cst_Floating_point_approximation_when_printing_rational_numbers); + arith_print_string(cst_Floating_point_approximati); arith_print_bool(get_approx_printing(0)); caml_call1(Stdlib[47],0); - caml_call1(Stdlib[42],cst_returned_by_get_approx_printing); + caml_call1(Stdlib[42],cst_returned_by_get_approx_pri); caml_call1(Stdlib[47],0); - caml_call1 - (Stdlib[42],cst_modifiable_with_set_approx_printing_your_choice); + caml_call1(Stdlib[42],cst_modifiable_with_set_approx); caml_call1(Stdlib[47],0); if(get_approx_printing(0)) {caml_call1(Stdlib[42],cst_Default_precision); - var _D_=get_floating_precision(0); - caml_call1(Stdlib[44],_D_); + var _A_=get_floating_precision(0); + caml_call1(Stdlib[44],_A_); caml_call1(Stdlib[47],0); - caml_call1(Stdlib[42],cst_returned_by_get_floating_precision); + caml_call1(Stdlib[42],cst_returned_by_get_floating_p); caml_call1(Stdlib[47],0); - caml_call1 - (Stdlib[42],cst_modifiable_with_set_floating_precision_your_choice); + caml_call1(Stdlib[42],cst_modifiable_with_set_floati); caml_call1(Stdlib[47],0); caml_call1(Stdlib[47],0)} else caml_call1(Stdlib[47],0); - arith_print_string(cst_Error_when_a_rational_denominator_is_null); - arith_print_bool(get_error_when_null_denominator(0)); + arith_print_string(cst_Error_when_a_rational_deno); + arith_print_bool(get_error_when_null_denominato(0)); caml_call1(Stdlib[47],0); - caml_call1(Stdlib[42],cst_returned_by_get_error_when_null_denominator); + caml_call1(Stdlib[42],cst_returned_by_get_error_when); caml_call1(Stdlib[47],0); - caml_call1 - (Stdlib[42], - cst_modifiable_with_set_error_when_null_denominator_your_choice); + caml_call1(Stdlib[42],cst_modifiable_with_set_error_); return caml_call1(Stdlib[47],0)} var Arith_status= [0, arith_status, - get_error_when_null_denominator, - set_error_when_null_denominator, + get_error_when_null_denominato, + set_error_when_null_denominato, get_normalize_ratio, set_normalize_ratio, - get_normalize_ratio_when_printing, - set_normalize_ratio_when_printing, + get_normalize_ratio_when_print, + set_normalize_ratio_when_print, get_approx_printing, set_approx_printing, get_floating_precision, @@ -71454,20 +73835,32 @@ (function(){return this}())); -//# 1 "../../.js/unix/unix.cma.js" +//# 1 "../../.js/re/re.cma.js" (function(joo_global_object) {"use strict"; var runtime=joo_global_object.jsoo_runtime, + caml_bytes_get=runtime.caml_bytes_get, + caml_bytes_set=runtime.caml_bytes_set, + caml_bytes_unsafe_set=runtime.caml_bytes_unsafe_set, caml_check_bound=runtime.caml_check_bound, - caml_ml_bytes_length=runtime.caml_ml_bytes_length, + caml_compare=runtime.caml_compare, + caml_create_bytes=runtime.caml_create_bytes, + caml_equal=runtime.caml_equal, + caml_fresh_oo_id=runtime.caml_fresh_oo_id, + caml_int_compare=runtime.caml_int_compare, + caml_lessthan=runtime.caml_lessthan, + caml_list_of_js_array=runtime.caml_list_of_js_array, + caml_make_vect=runtime.caml_make_vect, caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, + caml_obj_tag=runtime.caml_obj_tag, caml_register_global=runtime.caml_register_global, - caml_string_equal=runtime.caml_string_equal, - caml_sys_exit=runtime.caml_sys_exit, - caml_wrap_exception=runtime.caml_wrap_exception, - unix_inet_addr_of_string=runtime.unix_inet_addr_of_string; + caml_string_get=runtime.caml_string_get, + caml_string_notequal=runtime.caml_string_notequal, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_trampoline=runtime.caml_trampoline, + caml_trampoline_return=runtime.caml_trampoline_return, + caml_wrap_exception=runtime.caml_wrap_exception; function caml_call1(f,a0) {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} function caml_call2(f,a0,a1) @@ -71478,1593 +73871,5140 @@ {return f.length == 4 ?f(a0,a1,a2,a3) :runtime.caml_call_gen(f,[a0,a1,a2,a3])} + function caml_call5(f,a0,a1,a2,a3,a4) + {return f.length == 5 + ?f(a0,a1,a2,a3,a4) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} + function caml_call7(f,a0,a1,a2,a3,a4,a5,a6) + {return f.length == 7 + ?f(a0,a1,a2,a3,a4,a5,a6) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6])} var global_data=runtime.caml_get_global_data(), - cst_close_process_full=caml_new_string("close_process_full"), - cst_close_process=caml_new_string("close_process"), - cst_close_process_out=caml_new_string("close_process_out"), - cst_close_process_in=caml_new_string("close_process_in"), - cst_process_full_pid=caml_new_string("process_full_pid"), - cst_process_pid=caml_new_string("process_pid"), - cst_process_out_pid=caml_new_string("process_out_pid"), - cst_process_in_pid=caml_new_string("process_in_pid"), - cst$9=caml_new_string(""), - cst_c$0=caml_new_string("-c"), - cst_c=caml_new_string("-c"), - cst$8=caml_new_string(""), - cst_udp$1=caml_new_string("udp"), - cst_tcp$1=caml_new_string("tcp"), - cst$5=caml_new_string(""), - cst$7=caml_new_string(""), - cst_tcp=caml_new_string("tcp"), - cst_udp=caml_new_string("udp"), - cst_udp$0=caml_new_string("udp"), - cst_tcp$0=caml_new_string("tcp"), - cst$6=caml_new_string(""), - cst_0_0_0_0$0=caml_new_string("0.0.0.0"), - cst_127_0_0_1$0=caml_new_string("127.0.0.1"), - cst_Unix_sendto=caml_new_string("Unix.sendto"), - cst_Unix_send=caml_new_string("Unix.send"), - cst_Unix_recvfrom=caml_new_string("Unix.recvfrom"), - cst_Unix_recv=caml_new_string("Unix.recv"), - cst_Unix_single_write=caml_new_string("Unix.single_write"), - cst_Unix_write=caml_new_string("Unix.write"), - cst_Unix_read=caml_new_string("Unix.read"), - cst$4=caml_new_string(""), - cst_execvpe=caml_new_string("execvpe"), - cst_PATH=caml_new_string("PATH"), - cst_bin_usr_bin=caml_new_string("/bin:/usr/bin"), - cst$1=caml_new_string(': "'), - cst_failed=caml_new_string('" failed'), - cst_on=caml_new_string(' on "'), - cst$2=caml_new_string('"'), - cst$3=caml_new_string(": "), - cst_E2BIG=caml_new_string("E2BIG"), - cst_EACCES=caml_new_string("EACCES"), - cst_EAGAIN=caml_new_string("EAGAIN"), - cst_EBADF=caml_new_string("EBADF"), - cst_EBUSY=caml_new_string("EBUSY"), - cst_ECHILD=caml_new_string("ECHILD"), - cst_EDEADLK=caml_new_string("EDEADLK"), - cst_EDOM=caml_new_string("EDOM"), - cst_EEXIST=caml_new_string("EEXIST"), - cst_EFAULT=caml_new_string("EFAULT"), - cst_EFBIG=caml_new_string("EFBIG"), - cst_EINTR=caml_new_string("EINTR"), - cst_EINVAL=caml_new_string("EINVAL"), - cst_EIO=caml_new_string("EIO"), - cst_EISDIR=caml_new_string("EISDIR"), - cst_EMFILE=caml_new_string("EMFILE"), - cst_EMLINK=caml_new_string("EMLINK"), - cst_ENAMETOOLONG=caml_new_string("ENAMETOOLONG"), - cst_ENFILE=caml_new_string("ENFILE"), - cst_ENODEV=caml_new_string("ENODEV"), - cst_ENOENT=caml_new_string("ENOENT"), - cst_ENOEXEC=caml_new_string("ENOEXEC"), - cst_ENOLCK=caml_new_string("ENOLCK"), - cst_ENOMEM=caml_new_string("ENOMEM"), - cst_ENOSPC=caml_new_string("ENOSPC"), - cst_ENOSYS=caml_new_string("ENOSYS"), - cst_ENOTDIR=caml_new_string("ENOTDIR"), - cst_ENOTEMPTY=caml_new_string("ENOTEMPTY"), - cst_ENOTTY=caml_new_string("ENOTTY"), - cst_ENXIO=caml_new_string("ENXIO"), - cst_EPERM=caml_new_string("EPERM"), - cst_EPIPE=caml_new_string("EPIPE"), - cst_ERANGE=caml_new_string("ERANGE"), - cst_EROFS=caml_new_string("EROFS"), - cst_ESPIPE=caml_new_string("ESPIPE"), - cst_ESRCH=caml_new_string("ESRCH"), - cst_EXDEV=caml_new_string("EXDEV"), - cst_EWOULDBLOCK=caml_new_string("EWOULDBLOCK"), - cst_EINPROGRESS=caml_new_string("EINPROGRESS"), - cst_EALREADY=caml_new_string("EALREADY"), - cst_ENOTSOCK=caml_new_string("ENOTSOCK"), - cst_EDESTADDRREQ=caml_new_string("EDESTADDRREQ"), - cst_EMSGSIZE=caml_new_string("EMSGSIZE"), - cst_EPROTOTYPE=caml_new_string("EPROTOTYPE"), - cst_ENOPROTOOPT=caml_new_string("ENOPROTOOPT"), - cst_EPROTONOSUPPORT=caml_new_string("EPROTONOSUPPORT"), - cst_ESOCKTNOSUPPORT=caml_new_string("ESOCKTNOSUPPORT"), - cst_EOPNOTSUPP=caml_new_string("EOPNOTSUPP"), - cst_EPFNOSUPPORT=caml_new_string("EPFNOSUPPORT"), - cst_EAFNOSUPPORT=caml_new_string("EAFNOSUPPORT"), - cst_EADDRINUSE=caml_new_string("EADDRINUSE"), - cst_EADDRNOTAVAIL=caml_new_string("EADDRNOTAVAIL"), - cst_ENETDOWN=caml_new_string("ENETDOWN"), - cst_ENETUNREACH=caml_new_string("ENETUNREACH"), - cst_ENETRESET=caml_new_string("ENETRESET"), - cst_ECONNABORTED=caml_new_string("ECONNABORTED"), - cst_ECONNRESET=caml_new_string("ECONNRESET"), - cst_ENOBUFS=caml_new_string("ENOBUFS"), - cst_EISCONN=caml_new_string("EISCONN"), - cst_ENOTCONN=caml_new_string("ENOTCONN"), - cst_ESHUTDOWN=caml_new_string("ESHUTDOWN"), - cst_ETOOMANYREFS=caml_new_string("ETOOMANYREFS"), - cst_ETIMEDOUT=caml_new_string("ETIMEDOUT"), - cst_ECONNREFUSED=caml_new_string("ECONNREFUSED"), - cst_EHOSTDOWN=caml_new_string("EHOSTDOWN"), - cst_EHOSTUNREACH=caml_new_string("EHOSTUNREACH"), - cst_ELOOP=caml_new_string("ELOOP"), - cst_EOVERFLOW=caml_new_string("EOVERFLOW"), - shell=caml_new_string("/bin/sh"), - cst_Unix_Unix_error=caml_new_string("Unix.Unix_error"), - cst=caml_new_string(""), - cst$0=caml_new_string(""), - cst_Unix_Unix_error$0=caml_new_string("Unix.Unix_error"), - cst_0_0_0_0=caml_new_string("0.0.0.0"), - cst_127_0_0_1=caml_new_string("127.0.0.1"), - cst$10=caml_new_string("::"), - cst_1=caml_new_string("::1"), + cst_Re_cset_pick=caml_string_of_jsbytes("Re_cset.pick"), + cany=[0,[0,0,255],0], + cst_eps=caml_string_of_jsbytes("eps"), + cst_cst=caml_string_of_jsbytes("cst"), + cst_alt=caml_string_of_jsbytes("alt"), + cst_seq=caml_string_of_jsbytes("seq"), + cst_rep=caml_string_of_jsbytes("rep"), + cst_mark=caml_string_of_jsbytes("mark"), + cst_erase=caml_string_of_jsbytes("erase"), + cst_before=caml_string_of_jsbytes("before"), + cst_after=caml_string_of_jsbytes("after"), + cst_pmark=caml_string_of_jsbytes("pmark"), + cst_Non_greedy=caml_string_of_jsbytes("Non_greedy"), + cst_Greedy=caml_string_of_jsbytes("Greedy"), + cst_first=caml_string_of_jsbytes("first"), + cst_short=caml_string_of_jsbytes("short"), + cst_long=caml_string_of_jsbytes("long"), + eps_expr=[0,0,0], + cst_Group=caml_string_of_jsbytes("Group"), + dummy_offset=[0,-1,-1], + dummy_string=caml_string_of_jsbytes(""), + cst_Beg_of_line=caml_string_of_jsbytes("Beg_of_line"), + cst_End_of_line=caml_string_of_jsbytes("End_of_line"), + cst_Beg_of_word=caml_string_of_jsbytes("Beg_of_word"), + cst_End_of_word=caml_string_of_jsbytes("End_of_word"), + cst_Not_bound=caml_string_of_jsbytes("Not_bound"), + cst_Beg_of_str=caml_string_of_jsbytes("Beg_of_str"), + cst_End_of_str=caml_string_of_jsbytes("End_of_str"), + cst_Last_end_of_line=caml_string_of_jsbytes("Last_end_of_line"), + cst_Start=caml_string_of_jsbytes("Start"), + cst_Stop=caml_string_of_jsbytes("Stop"), + cst_Set=caml_string_of_jsbytes("Set"), + cst_Sequence=caml_string_of_jsbytes("Sequence"), + cst_Alternative=caml_string_of_jsbytes("Alternative"), + cst_Repeat=caml_string_of_jsbytes("Repeat"), + cst_Sem=caml_string_of_jsbytes("Sem"), + cst_Sem_greedy=caml_string_of_jsbytes("Sem_greedy"), + cst_Group$0=caml_string_of_jsbytes("Group"), + cst_No_group=caml_string_of_jsbytes("No_group"), + cst_Nest=caml_string_of_jsbytes("Nest"), + cst_Case=caml_string_of_jsbytes("Case"), + cst_No_case=caml_string_of_jsbytes("No_case"), + cst_Intersection=caml_string_of_jsbytes("Intersection"), + cst_Complement=caml_string_of_jsbytes("Complement"), + cst_Difference=caml_string_of_jsbytes("Difference"), + cst_Pmark=caml_string_of_jsbytes("Pmark"), + cst$1=caml_string_of_jsbytes(""), + cst$2=caml_string_of_jsbytes(""), + cst_Re_replace=caml_string_of_jsbytes("Re.replace"), + cst_Re_replace$0=caml_string_of_jsbytes("Re.replace"), + cst_Re_split=caml_string_of_jsbytes("Re.split"), + cst_Re_split$0=caml_string_of_jsbytes("Re.split"), + cst_Re_all=caml_string_of_jsbytes("Re.all"), + cst_Re_all$0=caml_string_of_jsbytes("Re.all"), + cst_Re_exec_partial=caml_string_of_jsbytes("Re.exec_partial"), + cst_Re_execp=caml_string_of_jsbytes("Re.execp"), + cst_Re_exec_opt=caml_string_of_jsbytes("Re.exec_opt"), + cst_Re_exec=caml_string_of_jsbytes("Re.exec"), + cst_Re_diff=caml_string_of_jsbytes("Re.diff"), + cst_Re_compl=caml_string_of_jsbytes("Re.compl"), + cst_Re_inter=caml_string_of_jsbytes("Re.inter"), + cst_Re_repn=caml_string_of_jsbytes("Re.repn"), + cst_Re_repn$0=caml_string_of_jsbytes("Re.repn"), + cst$0=caml_string_of_jsbytes("\t "), + cst_Re_Emacs_Parse_error=caml_string_of_jsbytes("Re__Emacs.Parse_error"), + cst_Re_Emacs_Not_supported= + caml_string_of_jsbytes("Re__Emacs.Not_supported"), + cst_Str_replace_illegal_backsl= + caml_string_of_jsbytes("Str.replace: illegal backslash sequence"), + cst$5=caml_string_of_jsbytes(""), + cst$4=caml_string_of_jsbytes(""), + cst$3=caml_string_of_jsbytes(""), + cst_Str_group_end=caml_string_of_jsbytes("Str.group_end"), + cst_Str_group_beginning=caml_string_of_jsbytes("Str.group_beginning"), + beg=[0,caml_string_of_jsbytes(""),0], + cst_Re_Glob_Parse_error=caml_string_of_jsbytes("Re__Glob.Parse_error"), + cst$6=caml_string_of_jsbytes(":]"), + cst_lower=caml_string_of_jsbytes("lower"), + cst_alnum=caml_string_of_jsbytes("alnum"), + cst_ascii=caml_string_of_jsbytes("ascii"), + cst_blank=caml_string_of_jsbytes("blank"), + cst_cntrl=caml_string_of_jsbytes("cntrl"), + cst_digit=caml_string_of_jsbytes("digit"), + cst_graph=caml_string_of_jsbytes("graph"), + cst_print=caml_string_of_jsbytes("print"), + cst_punct=caml_string_of_jsbytes("punct"), + cst_space=caml_string_of_jsbytes("space"), + cst_upper=caml_string_of_jsbytes("upper"), + cst_word=caml_string_of_jsbytes("word"), + cst_xdigit=caml_string_of_jsbytes("xdigit"), + cst_Invalid_pcre_class=caml_string_of_jsbytes("Invalid pcre class: "), + cst_Re_Perl_Parse_error=caml_string_of_jsbytes("Re__Perl.Parse_error"), + cst_Re_Perl_Not_supported= + caml_string_of_jsbytes("Re__Perl.Not_supported"), + posix_class_strings= + caml_list_of_js_array + ([caml_string_of_jsbytes("alnum"), + caml_string_of_jsbytes("ascii"), + caml_string_of_jsbytes("blank"), + caml_string_of_jsbytes("cntrl"), + caml_string_of_jsbytes("digit"), + caml_string_of_jsbytes("lower"), + caml_string_of_jsbytes("print"), + caml_string_of_jsbytes("space"), + caml_string_of_jsbytes("upper"), + caml_string_of_jsbytes("word"), + caml_string_of_jsbytes("punct"), + caml_string_of_jsbytes("graph"), + caml_string_of_jsbytes("xdigit")]), + cst_Re_Posix_Parse_error=caml_string_of_jsbytes("Re__Posix.Parse_error"), + cst_Re_Posix_Not_supported= + caml_string_of_jsbytes("Re__Posix.Not_supported"), + include=global_data.Stdlib__format, + Stdlib_buffer=global_data.Stdlib__buffer, Stdlib=global_data.Stdlib, - Stdlib_hashtbl=global_data.Stdlib__hashtbl, + Assert_failure=global_data.Assert_failure, Stdlib_list=global_data.Stdlib__list, - Stdlib_int=global_data.Stdlib__int, + Stdlib_map=global_data.Stdlib__map, + Stdlib_set=global_data.Stdlib__set, Stdlib_array=global_data.Stdlib__array, + Stdlib_hashtbl=global_data.Stdlib__hashtbl, + Stdlib_char=global_data.Stdlib__char, Stdlib_bytes=global_data.Stdlib__bytes, - Stdlib_filename=global_data.Stdlib__filename, Stdlib_string=global_data.Stdlib__string, - Stdlib_printf=global_data.Stdlib__printf, - Stdlib_callback=global_data.Stdlib__callback, - Stdlib_printexc=global_data.Stdlib__printexc, - Unix_error=[248,cst_Unix_Unix_error,runtime.caml_fresh_oo_id(0)]; - caml_call2 - (Stdlib_callback[2],cst_Unix_Unix_error$0,[0,Unix_error,0,cst$0,cst]); + Stdlib_seq=global_data.Stdlib__seq, + CamlinternalLazy=global_data.CamlinternalLazy, + Re=[0]; + caml_register_global(134,Re,"Re__"); var - _p_=[0,1], - _q_=[0,1], - _o_=[0,1], - _l_=[0,1], - _m_=[0,1], - _n_=[0,1], - _j_=[0,1], - _k_=[0,1], - _i_=[0,1], - _h_=[0,1], - _e_=[0,0], - _f_=[0,0], - _g_=[0,0], - _d_=runtime.caml_int64_create_lo_mi_hi(0,0,0), - _c_= + _bG_= [0, - [11,caml_new_string("EUNKNOWNERR "),[4,0,0,0,0]], - caml_new_string("EUNKNOWNERR %d")], - _b_= + [12,59,[17,[0,caml_string_of_jsbytes("@ "),1,0],0]], + caml_string_of_jsbytes(";@ ")], + _bH_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes("<3>"),0], + caml_string_of_jsbytes("<3>")]], + [12, + 91, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [15,[17,[0,caml_string_of_jsbytes("@ "),1,0],[12,93,[17,0,0]]]]]]], + caml_string_of_jsbytes("@[<3>[@ %a@ ]@]")], + _bF_=[0,[12,34,[2,0,[12,34,0]]],caml_string_of_jsbytes('"%s"')], + _bE_= + [0, + [17,[0,caml_string_of_jsbytes("@ "),1,0],[4,0,0,0,0]], + caml_string_of_jsbytes("@ %d")], + _bD_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes("<3>"),0], + caml_string_of_jsbytes("<3>")]], + [12, + 40, + [2,0,[17,[0,caml_string_of_jsbytes("@ "),1,0],[15,[12,41,[17,0,0]]]]]]], + caml_string_of_jsbytes("@[<3>(%s@ %a)@]")], + _bL_=[0,caml_string_of_jsbytes("lib/cset.ml"),153,9], + _bI_=[0,[4,0,0,0,0],caml_string_of_jsbytes("%d")], + _bJ_=[0,[4,0,0,0,[12,45,[4,0,0,0,0]]],caml_string_of_jsbytes("%d-%d")], + _bZ_=[0,caml_string_of_jsbytes("lib/automata.ml"),360,21], + _bQ_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes("<2>"),0], + caml_string_of_jsbytes("<2>")]], + [11, + caml_string_of_jsbytes("(Seq"), + [17,[0,caml_string_of_jsbytes("@ "),1,0],0]]], + caml_string_of_jsbytes("@[<2>(Seq@ ")], + _bR_=[0,[12,32,[15,[12,41,[17,0,0]]]],caml_string_of_jsbytes(" %a)@]")], + _bS_= [0, [11, - caml_new_string("Unix.Unix_error(Unix."), - [2, + caml_string_of_jsbytes("(Exp "), + [4, + 0, + 0, 0, [11, - caml_new_string(", "), - [3,0,[11,caml_new_string(", "),[3,0,[12,41,0]]]]]]], - caml_new_string("Unix.Unix_error(Unix.%s, %S, %S)")]; - function _a_(param) - {if(param[1] === Unix_error) - {var s=param[4],s$0=param[3],e=param[2]; - if(typeof e === "number") - {var _dD_=e; - if(34 <= _dD_) - switch(_dD_) - {case 34:var msg=cst_ESPIPE;break; - case 35:var msg=cst_ESRCH;break; - case 36:var msg=cst_EXDEV;break; - case 37:var msg=cst_EWOULDBLOCK;break; - case 38:var msg=cst_EINPROGRESS;break; - case 39:var msg=cst_EALREADY;break; - case 40:var msg=cst_ENOTSOCK;break; - case 41:var msg=cst_EDESTADDRREQ;break; - case 42:var msg=cst_EMSGSIZE;break; - case 43:var msg=cst_EPROTOTYPE;break; - case 44:var msg=cst_ENOPROTOOPT;break; - case 45:var msg=cst_EPROTONOSUPPORT;break; - case 46:var msg=cst_ESOCKTNOSUPPORT;break; - case 47:var msg=cst_EOPNOTSUPP;break; - case 48:var msg=cst_EPFNOSUPPORT;break; - case 49:var msg=cst_EAFNOSUPPORT;break; - case 50:var msg=cst_EADDRINUSE;break; - case 51:var msg=cst_EADDRNOTAVAIL;break; - case 52:var msg=cst_ENETDOWN;break; - case 53:var msg=cst_ENETUNREACH;break; - case 54:var msg=cst_ENETRESET;break; - case 55:var msg=cst_ECONNABORTED;break; - case 56:var msg=cst_ECONNRESET;break; - case 57:var msg=cst_ENOBUFS;break; - case 58:var msg=cst_EISCONN;break; - case 59:var msg=cst_ENOTCONN;break; - case 60:var msg=cst_ESHUTDOWN;break; - case 61:var msg=cst_ETOOMANYREFS;break; - case 62:var msg=cst_ETIMEDOUT;break; - case 63:var msg=cst_ECONNREFUSED;break; - case 64:var msg=cst_EHOSTDOWN;break; - case 65:var msg=cst_EHOSTUNREACH;break; - case 66:var msg=cst_ELOOP;break; - default:var msg=cst_EOVERFLOW} - else - switch(_dD_) - {case 0:var msg=cst_E2BIG;break; - case 1:var msg=cst_EACCES;break; - case 2:var msg=cst_EAGAIN;break; - case 3:var msg=cst_EBADF;break; - case 4:var msg=cst_EBUSY;break; - case 5:var msg=cst_ECHILD;break; - case 6:var msg=cst_EDEADLK;break; - case 7:var msg=cst_EDOM;break; - case 8:var msg=cst_EEXIST;break; - case 9:var msg=cst_EFAULT;break; - case 10:var msg=cst_EFBIG;break; - case 11:var msg=cst_EINTR;break; - case 12:var msg=cst_EINVAL;break; - case 13:var msg=cst_EIO;break; - case 14:var msg=cst_EISDIR;break; - case 15:var msg=cst_EMFILE;break; - case 16:var msg=cst_EMLINK;break; - case 17:var msg=cst_ENAMETOOLONG;break; - case 18:var msg=cst_ENFILE;break; - case 19:var msg=cst_ENODEV;break; - case 20:var msg=cst_ENOENT;break; - case 21:var msg=cst_ENOEXEC;break; - case 22:var msg=cst_ENOLCK;break; - case 23:var msg=cst_ENOMEM;break; - case 24:var msg=cst_ENOSPC;break; - case 25:var msg=cst_ENOSYS;break; - case 26:var msg=cst_ENOTDIR;break; - case 27:var msg=cst_ENOTEMPTY;break; - case 28:var msg=cst_ENOTTY;break; - case 29:var msg=cst_ENXIO;break; - case 30:var msg=cst_EPERM;break; - case 31:var msg=cst_EPIPE;break; - case 32:var msg=cst_ERANGE;break; - default:var msg=cst_EROFS}} + caml_string_of_jsbytes(" ("), + [15,[11,caml_string_of_jsbytes(") (eps))"),0]]]]], + caml_string_of_jsbytes("(Exp %d (%a) (eps))")], + _bT_= + [0, + [11, + caml_string_of_jsbytes("(Exp "), + [4, + 0, + 0, + 0, + [11, + caml_string_of_jsbytes(" ("), + [15,[11,caml_string_of_jsbytes(") "),[15,[12,41,0]]]]]]], + caml_string_of_jsbytes("(Exp %d (%a) %a)")], + _bU_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes("<2>"),0], + caml_string_of_jsbytes("<2>")]], + [11, + caml_string_of_jsbytes("(Match"), + [17,[0,caml_string_of_jsbytes("@ "),1,0],[15,[12,41,[17,0,0]]]]]], + caml_string_of_jsbytes("@[<2>(Match@ %a)@]")], + _bV_= + [0,[11,caml_string_of_jsbytes(" | "),0],caml_string_of_jsbytes(" | ")], + _bW_=[0,[11,caml_string_of_jsbytes("()"),0],caml_string_of_jsbytes("()")], + _bX_=[0,0,0], + _bP_=[1,0], + _bO_= + [0, + [12,32,[4,0,0,0,[12,45,[4,0,0,0,0]]]], + caml_string_of_jsbytes(" %d-%d")], + _bN_=[0,[4,0,0,0,[12,45,[4,0,0,0,0]]],caml_string_of_jsbytes("%d-%d")], + _b2_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [12, + 40, + [2, + 0, + [11, + caml_string_of_jsbytes(" ("), + [4, + 0, + 0, + 0, + [12,32,[4,0,0,0,[11,caml_string_of_jsbytes("))"),[17,0,0]]]]]]]]], + caml_string_of_jsbytes("@[(%s (%d %d))@]")], + _b4_= + [0, + [15,[17,[0,caml_string_of_jsbytes("@ "),1,0],[4,0,0,0,[15,0]]]], + caml_string_of_jsbytes("%a@ %d%a")], + _b__=[0,caml_string_of_jsbytes("lib/core.ml"),690,4], + _cv_=[0,caml_string_of_jsbytes("lib/core.ml"),1149,24], + _cw_=[0,caml_string_of_jsbytes("lib/core.ml"),1160,27], + _ca_=[0,1], + _b$_=[0,caml_string_of_jsbytes("lib/core.ml"),723,13], + _b9_=[0,caml_string_of_jsbytes("lib/core.ml"),493,35], + _b3_=[0,0,0,0,0,0,0,0,0,0,0], + _b8_=[0,170,[0,181,[0,186,[0,223,[0,255,0]]]]], + _cB_=[0,1], + _cA_=[0,1], + _cy_=[0,caml_string_of_jsbytes(""),0], + _cz_=[0,caml_string_of_jsbytes(""),0], + _cx_=[0,45], + _cC_=[0,748194550,8], + _cD_=[0,748194550,10], + _cE_=[0,748194550,13], + _cF_=[0,748194550,9], + _cG_=[0,-1,-1]; + function equal(x,y){return x === y?1:0} + var compare=caml_int_compare; + function to_int(x){return x} + var pp=include[17]; + function intersect(x,y){return 0 !== (x & y)?1:0} + function symbol(x,y){return x | y} + var + dummy=-1, + inexistant=1, + letter=2, + not_letter=4, + newline=8, + lastnewline=16, + search_boundary=32; + function from_char(param) + {var switch$0=0; + if(170 <= param) + if(187 <= param) + {var _jd_=param - 192 | 0; + if(54 < _jd_ >>> 0) + {if(56 <= _jd_)switch$0 = 1} + else + if(23 !== _jd_)switch$0 = 1} + else + {var _je_=param - 171 | 0; + if(14 < _je_ >>> 0 || 10 === _je_)switch$0 = 1} + else + if(65 <= param) + {var _jf_=param - 91 | 0; + if(5 < _jf_ >>> 0) + {if(! (32 <= _jf_))switch$0 = 1} + else + if(4 === _jf_)switch$0 = 1} + else + if(48 <= param) + {if(! (58 <= param))switch$0 = 1} else - var x=e[1],msg=caml_call2(Stdlib_printf[4],_c_,x); - return [0,caml_call4(Stdlib_printf[4],_b_,msg,s$0,s)]} - return 0} - caml_call1(Stdlib_printexc[9],_a_); - function handle_unix_error(f,arg) - {try - {var _dC_=caml_call1(f,arg);return _dC_} - catch(exn) - {exn = caml_wrap_exception(exn); - if(exn[1] === Unix_error) - {var - arg$0=exn[4], - fun_name=exn[3], - err=exn[2], - _dA_=caml_check_bound(runtime.caml_sys_argv(0),0)[1]; - caml_call1(Stdlib[49],_dA_); - caml_call1(Stdlib[49],cst$1); - caml_call1(Stdlib[49],fun_name); - caml_call1(Stdlib[49],cst_failed); - if(0 < caml_ml_string_length(arg$0)) - {caml_call1(Stdlib[49],cst_on); - caml_call1(Stdlib[49],arg$0); - caml_call1(Stdlib[49],cst$2)} - caml_call1(Stdlib[49],cst$3); - var _dB_=runtime.unix_error_message(err); - caml_call1(Stdlib[53],_dB_); - return caml_call1(Stdlib[99],2)} - throw exn}} - function execvpe(name,args,env) - {try - {var _du_=runtime.unix_execvpe(name,args,env);return _du_} - catch(_dv_) - {_dv_ = caml_wrap_exception(_dv_); - if(_dv_[1] === Unix_error) - {var _dt_=_dv_[2]; - if(typeof _dt_ === "number") - if(25 === _dt_) - {var - exec= - function(file) - {try - {var _dy_=runtime.unix_execve(file,args,env);return _dy_} - catch(_dz_) - {_dz_ = caml_wrap_exception(_dz_); - if(_dz_[1] === Unix_error) - {var _dx_=_dz_[2]; - if(typeof _dx_ === "number") - if(21 === _dx_) - {var - argc=args.length - 1, - args$0= - 0 === argc - ?args - :caml_call3(Stdlib_array[7],args,1,argc - 1 | 0), - new_args=caml_call2(Stdlib_array[5],[0,shell,file],args$0); - return runtime.unix_execve - (caml_check_bound(new_args,0)[1],new_args,env)}} - throw _dz_}}; - if(caml_call2(Stdlib_string[22],name,47))return exec(name); - try - {var _ds_=runtime.caml_sys_unsafe_getenv(cst_PATH),_dr_=_ds_} - catch(_dw_) - {_dw_ = caml_wrap_exception(_dw_); - if(_dw_ !== Stdlib[8])throw _dw_; - var _dr_=cst_bin_usr_bin} - var - param$0=caml_call2(Stdlib_string[35],58,_dr_), - eacces=0, - param=param$0; - for(;;) - {if(param) - {var - rem=param[2], - dir=param[1], - dir$0=caml_string_equal(dir,cst$4)?Stdlib_filename[1]:dir; - try - {var _dp_=exec(caml_call2(Stdlib_filename[4],dir$0,name)); - return _dp_} - catch(exn) - {exn = caml_wrap_exception(exn); - if(exn[1] === Unix_error) - {var err=exn[2]; - if(typeof err === "number") - {var _do_=err - 62 | 0; - if(4 < _do_ >>> 0) - if(-35 <= _do_) - var switch$0=0; - else - {var switcher=_do_ + 62 | 0; - switch(switcher) - {case 1:var eacces=1,param=rem;continue; - case 14: - case 17: - case 19: - case 20: - case 26:var switch$0=1;break; - default:var switch$0=0}} - else - var switch$0=2 < (_do_ - 1 | 0) >>> 0?1:0; - if(switch$0){var param=rem;continue}} - throw exn} - throw exn}} - var _dq_=eacces?1:20; - throw [0,Unix_error,_dq_,cst_execvpe,name]}}} - throw _dv_}} - var stdin=0,stdout=1,stderr=2; - function read(fd,buf,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(buf) - len | 0) < ofs)) - return runtime.unix_read(fd,buf,ofs,len); - return caml_call1(Stdlib[1],cst_Unix_read)} - function write(fd,buf,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(buf) - len | 0) < ofs)) - return runtime.unix_write(fd,buf,ofs,len); - return caml_call1(Stdlib[1],cst_Unix_write)} - function single_write(fd,buf,ofs,len) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(buf) - len | 0) < ofs)) - return runtime.unix_single_write(fd,buf,ofs,len); - return caml_call1(Stdlib[1],cst_Unix_single_write)} - function write_substring(fd,buf,ofs,len) - {return write(fd,caml_call1(Stdlib_bytes[43],buf),ofs,len)} - function single_write_substring(fd,buf,ofs,len) - {return single_write(fd,caml_call1(Stdlib_bytes[43],buf),ofs,len)} - function map_file(fd,opt,kind,layout,shared,dims) - {if(opt)var sth=opt[1],pos=sth;else var pos=_d_; - return runtime.caml_unix_map_file_bytecode - (fd,kind,layout,shared,dims,pos)} - function pause(param) - {var sigs=runtime.unix_sigprocmask(1,0); - return runtime.unix_sigsuspend(sigs)} - function sleep(duration){return runtime.unix_sleep(duration)} + if(10 === param)return 12; + return switch$0?letter:not_letter} var - inet_addr_any=unix_inet_addr_of_string(cst_0_0_0_0), - inet_addr_loopback=unix_inet_addr_of_string(cst_127_0_0_1); - try - {var _A_=unix_inet_addr_of_string(cst$10),inet_addr_any$0=_A_} - catch(_dn_) - {_dn_ = caml_wrap_exception(_dn_); - if(_dn_[1] !== Stdlib[7])throw _dn_; - var inet_addr_any$0=inet_addr_any} - try - {var _z_=unix_inet_addr_of_string(cst_1),inet6_addr_loopback=_z_} - catch(_dm_) - {_dm_ = caml_wrap_exception(_dm_); - if(_dm_[1] !== Stdlib[7])throw _dm_; - var inet6_addr_loopback=inet_addr_loopback} - function domain_of_sockaddr(param) - {if(0 === param[0])return 0; - var a=param[1]; - return 16 === caml_ml_string_length(a)?2:1} - function recv(fd,buf,ofs,len,flags) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(buf) - len | 0) < ofs)) - return runtime.unix_recv(fd,buf,ofs,len,flags); - return caml_call1(Stdlib[1],cst_Unix_recv)} - function recvfrom(fd,buf,ofs,len,flags) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(buf) - len | 0) < ofs)) - return runtime.unix_recvfrom(fd,buf,ofs,len,flags); - return caml_call1(Stdlib[1],cst_Unix_recvfrom)} - function send(fd,buf,ofs,len,flags) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(buf) - len | 0) < ofs)) - return runtime.unix_send(fd,buf,ofs,len,flags); - return caml_call1(Stdlib[1],cst_Unix_send)} - function sendto(fd,buf,ofs,len,flags,addr) - {if(0 <= ofs) - if(0 <= len) - if(! ((caml_ml_bytes_length(buf) - len | 0) < ofs)) - return runtime.unix_sendto(fd,buf,ofs,len,flags,addr); - return caml_call1(Stdlib[1],cst_Unix_sendto)} - function send_substring(fd,buf,ofs,len,flags) - {return send(fd,caml_call1(Stdlib_bytes[43],buf),ofs,len,flags)} - function sendto_substring(fd,buf,ofs,len,flags,addr) - {return sendto(fd,caml_call1(Stdlib_bytes[43],buf),ofs,len,flags,addr)} - function getsockopt(fd,opt){return runtime.unix_getsockopt(0,fd,opt)} - function setsockopt(fd,opt,v){return runtime.unix_setsockopt(0,fd,opt,v)} - function getsockopt_int(fd,opt){return runtime.unix_getsockopt(1,fd,opt)} - function setsockopt_int(fd,opt,v) - {return runtime.unix_setsockopt(1,fd,opt,v)} - function getsockopt_optint(fd,opt) - {return runtime.unix_getsockopt(2,fd,opt)} - function setsockopt_optint(fd,opt,v) - {return runtime.unix_setsockopt(2,fd,opt,v)} - function getsockopt_float(fd,opt) - {return runtime.unix_getsockopt(3,fd,opt)} - function setsockopt_float(fd,opt,v) - {return runtime.unix_setsockopt(3,fd,opt,v)} - function getsockopt_error(fd){return runtime.unix_getsockopt(4,fd,0)} - function getaddrinfo(node,service,opts) - {try - {var - _dc_=runtime.unix_getaddrinfo(node,service,opts), - _dd_=caml_call1(Stdlib_list[9],_dc_); - return _dd_} - catch(_de_) - {_de_ = caml_wrap_exception(_de_); - if(_de_[1] === Stdlib[6]) - {var - opt_socktype=[0,0], - opt_protocol=[0,0], - opt_passive=[0,0], - _c1_= - function(param) - {if(typeof param === "number") - {if(2 === param){opt_passive[1] = 1;return 0}} - else - switch(param[0]) - {case 1:var s=param[1];opt_socktype[1] = [0,s];return 0; - case 2:var p=param[1];opt_protocol[1] = p;return 0 - } - return 0}; - caml_call2(Stdlib_list[15],_c1_,opts); - var - get_port= - function(ty,kind) - {if(caml_string_equal(service,cst$5))return [0,[0,ty,0],0]; - try - {var _dj_=[0,[0,ty,runtime.caml_int_of_string(service)],0]; - return _dj_} - catch(_dk_) - {_dk_ = caml_wrap_exception(_dk_); - if(_dk_[1] === Stdlib[7]) - try - {var - _di_= - [0,[0,ty,runtime.unix_getservbyname(service,kind)[3]],0]; - return _di_} - catch(_dl_) - {_dl_ = caml_wrap_exception(_dl_); - if(_dl_ === Stdlib[8])return 0; - throw _dl_} - throw _dk_}}, - _c2_=opt_socktype[1]; - if(_c2_) - var - _c3_=_c2_[1], - _c4_= - 1 === _c3_ - ?get_port(1,cst_udp) - :0 === _c3_ - ?get_port(0,cst_tcp) - :caml_string_equal(service,cst$7)?[0,[0,_c3_,0],0]:0, - ports=_c4_; - else - var - _da_=get_port(1,cst_udp$0), - _db_=get_port(0,cst_tcp$0), - ports=caml_call2(Stdlib[37],_db_,_da_); - if(caml_string_equal(node,cst$6)) - var - addresses= - caml_call2(Stdlib_list[32],2,opts) - ?[0,[0,inet_addr_any,cst_0_0_0_0$0],0] - :[0,[0,inet_addr_loopback,cst_127_0_0_1$0],0]; - else - try - {var - _c$_=[0,[0,unix_inet_addr_of_string(node),node],0], - addresses=_c$_} - catch(_dg_) - {_dg_ = caml_wrap_exception(_dg_); - if(_dg_[1] !== Stdlib[7])throw _dg_; - try - {var - he=runtime.unix_gethostbyname(node), - _c8_=caml_call1(Stdlib_array[11],he[4]), - _c9_=function(a){return [0,a,he[1]]}, - _c__=caml_call2(Stdlib_list[17],_c9_,_c8_), - _c7_=_c__} - catch(_dh_) - {_dh_ = caml_wrap_exception(_dh_); - if(_dh_ !== Stdlib[8])throw _dh_; - var _c7_=0} - var addresses=_c7_} - var - _c5_= - function(param) - {var port=param[2],ty=param[1]; - function _df_(param) - {var name=param[2],addr=param[1]; - return [0,1,ty,opt_protocol[1],[1,addr,port],name]} - return caml_call2(Stdlib_list[17],_df_,addresses)}, - _c6_=caml_call2(Stdlib_list[17],_c5_,ports); - return caml_call1(Stdlib_list[14],_c6_)} - throw _de_}} - function getnameinfo(addr,opts) - {try - {var _cX_=runtime.unix_getnameinfo(addr,opts);return _cX_} - catch(_cY_) - {_cY_ = caml_wrap_exception(_cY_); - if(_cY_[1] === Stdlib[6]) - {if(0 === addr[0]){var f=addr[1];return [0,cst$8,f]} - var p=addr[2],a=addr[1]; - try - {if(caml_call2(Stdlib_list[32],1,opts))throw Stdlib[8]; - var _cW_=runtime.unix_gethostbyaddr(a)[1],hostname=_cW_} - catch(_c0_) - {_c0_ = caml_wrap_exception(_c0_); - if(_c0_ !== Stdlib[8])throw _c0_; - if(caml_call2(Stdlib_list[32],2,opts))throw Stdlib[8]; - var hostname=runtime.unix_string_of_inet_addr(a)} - try - {if(caml_call2(Stdlib_list[32],3,opts))throw Stdlib[8]; - var - kind=caml_call2(Stdlib_list[32],4,opts)?cst_udp$1:cst_tcp$1, - _cV_=runtime.unix_getservbyport(p,kind)[1], - service=_cV_} - catch(_cZ_) - {_cZ_ = caml_wrap_exception(_cZ_); - if(_cZ_ !== Stdlib[8])throw _cZ_; - var service=caml_call1(Stdlib_int[10],p)} - return [0,hostname,service]} - throw _cY_}} - function waitpid_non_intr(pid) - {for(;;) - try - {var _cT_=runtime.unix_waitpid(0,pid);return _cT_} - catch(_cU_) - {_cU_ = caml_wrap_exception(_cU_); - if(_cU_[1] === Unix_error) - {var _cS_=_cU_[2]; - if(typeof _cS_ === "number")if(11 === _cS_)continue} - throw _cU_}} - function system(cmd) - {var id=runtime.unix_fork(0); - if(0 === id) - try - {var _cQ_=runtime.unix_execv(shell,[0,shell,cst_c,cmd]);return _cQ_} - catch(_cR_){return caml_sys_exit(127)} - return waitpid_non_intr(id)[2]} - function file_descr_not_standard(fd) - {var fd$0=fd; + Re_Category= + [0, + symbol, + from_char, + dummy, + inexistant, + letter, + not_letter, + newline, + lastnewline, + search_boundary, + to_int, + equal, + compare, + intersect, + pp]; + caml_register_global(136,Re_Category,"Re__Category"); + var + _m_=include[13], + _q_=include[17], + _y_=include[25], + _A_=include[27], + _bd_=include[123], + _a_=include[1], + _b_=include[2], + _c_=include[3], + _d_=include[4], + _e_=include[5], + _f_=include[6], + _g_=include[7], + _h_=include[8], + _i_=include[9], + _j_=include[10], + _k_=include[11], + _l_=include[12], + _n_=include[14], + _o_=include[15], + _p_=include[16], + _r_=include[18], + _s_=include[19], + _t_=include[20], + _u_=include[21], + _v_=include[22], + _w_=include[23], + _x_=include[24], + _z_=include[26], + _B_=include[28], + _C_=include[29], + _D_=include[30], + _E_=include[31], + _F_=include[32], + _G_=include[33], + _H_=include[34], + _I_=include[35], + _J_=include[36], + _K_=include[37], + _L_=include[38], + _M_=include[39], + _N_=include[40], + _O_=include[41], + _P_=include[42], + _Q_=include[43], + _R_=include[44], + _S_=include[45], + _T_=include[46], + _U_=include[47], + _V_=include[48], + _W_=include[49], + _X_=include[50], + _Y_=include[51], + _Z_=include[52], + ___=include[53], + _$_=include[54], + _aa_=include[55], + _ab_=include[56], + _ac_=include[57], + _ad_=include[58], + _ae_=include[59], + _af_=include[60], + _ag_=include[61], + _ah_=include[62], + _ai_=include[63], + _aj_=include[64], + _ak_=include[65], + _al_=include[66], + _am_=include[67], + _an_=include[68], + _ao_=include[69], + _ap_=include[70], + _aq_=include[71], + _ar_=include[72], + _as_=include[73], + _at_=include[74], + _au_=include[75], + _av_=include[76], + _aw_=include[77], + _ax_=include[78], + _ay_=include[79], + _az_=include[80], + _aA_=include[81], + _aB_=include[82], + _aC_=include[83], + _aD_=include[84], + _aE_=include[85], + _aF_=include[86], + _aG_=include[87], + _aH_=include[88], + _aI_=include[89], + _aJ_=include[90], + _aK_=include[91], + _aL_=include[92], + _aM_=include[93], + _aN_=include[94], + _aO_=include[95], + _aP_=include[96], + _aQ_=include[97], + _aR_=include[98], + _aS_=include[99], + _aT_=include[100], + _aU_=include[101], + _aV_=include[102], + _aW_=include[103], + _aX_=include[104], + _aY_=include[105], + _aZ_=include[106], + _a0_=include[107], + _a1_=include[108], + _a2_=include[109], + _a3_=include[110], + _a4_=include[111], + _a5_=include[112], + _a6_=include[113], + _a7_=include[114], + _a8_=include[115], + _a9_=include[116], + _a__=include[117], + _a$_=include[118], + _ba_=include[120], + _bb_=include[121], + _bc_=include[122], + _be_=include[124], + _bf_=include[125], + _bg_=include[126], + _bh_=include[127], + _bi_=include[128], + _bj_=include[129], + _bk_=include[130], + _bl_=include[131], + _bm_=include[132], + _bn_=include[133], + _bo_=include[134], + _bp_=include[135], + _bq_=include[136], + _br_=include[137], + _bs_=include[138], + _bt_=include[139], + _bu_=include[140], + _bv_=include[141], + _bw_=include[142], + _bx_=include[143], + _by_=include[144], + _bz_=include[145], + _bA_=include[146], + _bB_=include[147], + _bC_=include[148]; + function pp_print_list(opt,pp,ppf,param) + {var opt$0=opt,param$0=param; for(;;) - {if(3 <= fd$0)return fd$0; - var fd$1=runtime.unix_dup(0,fd$0),fd$0=fd$1; - continue}} - function safe_close(fd) - {try - {var _cO_=runtime.unix_close(fd);return _cO_} - catch(_cP_) - {_cP_ = caml_wrap_exception(_cP_); - if(_cP_[1] === Unix_error)return 0; - throw _cP_}} - function perform_redirections(new_stdin,new_stdout,new_stderr) - {var - new_stdin$0=file_descr_not_standard(new_stdin), - new_stdout$0=file_descr_not_standard(new_stdout), - new_stderr$0=file_descr_not_standard(new_stderr); - runtime.unix_dup2(_e_,new_stdin$0,0); - runtime.unix_dup2(_f_,new_stdout$0,1); - runtime.unix_dup2(_g_,new_stderr$0,2); - safe_close(new_stdin$0); - safe_close(new_stdout$0); - return safe_close(new_stderr$0)} - function create_process(cmd,args,new_stdin,new_stdout,new_stderr) - {var id=runtime.unix_fork(0); - if(0 === id) - try - {perform_redirections(new_stdin,new_stdout,new_stderr); - var _cM_=runtime.unix_execvp(cmd,args); - return _cM_} - catch(_cN_){return caml_sys_exit(127)} - return id} - function create_process_env(cmd,args,env,new_stdin,new_stdout,new_stderr) - {var id=runtime.unix_fork(0); - if(0 === id) - try - {perform_redirections(new_stdin,new_stdout,new_stderr); - var _cK_=execvpe(cmd,args,env); - return _cK_} - catch(_cL_){return caml_sys_exit(127)} - return id} - var popen_processes=caml_call2(Stdlib_hashtbl[1],0,7); - function open_proc(prog,args,envopt,proc,input,output,error) - {var id=runtime.unix_fork(0); - if(0 === id) - {perform_redirections(input,output,error); - try - {if(envopt) - var env=envopt[1],_cI_=runtime.unix_execve(prog,args,env); + {if(opt$0)var sth=opt$0[1],pp_sep=sth;else var pp_sep=_A_; + if(param$0) + {var _jb_=param$0[2],_jc_=param$0[1]; + if(_jb_) + {caml_call2(pp,ppf,_jc_); + caml_call2(pp_sep,ppf,0); + var opt$1=[0,pp_sep],opt$0=opt$1,param$0=_jb_; + continue} + return caml_call2(pp,ppf,_jc_)} + return 0}} + function sexp(fmt,s,pp,x){return caml_call5(_bd_,fmt,_bD_,s,pp,x)} + function pair(pp1,pp2,fmt,param) + {var v2=param[2],v1=param[1]; + caml_call2(pp1,fmt,v1); + caml_call2(_y_,fmt,0); + return caml_call2(pp2,fmt,v2)} + function triple(pp1,pp2,pp3,fmt,param) + {var v3=param[3],v2=param[2],v1=param[1]; + caml_call2(pp1,fmt,v1); + caml_call2(_y_,fmt,0); + caml_call2(pp2,fmt,v2); + caml_call2(_y_,fmt,0); + return caml_call2(pp3,fmt,v3)} + function optint(fmt,param) + {if(param){var i=param[1];return caml_call3(_bd_,fmt,_bE_,i)}return 0} + function quote(fmt,s){return caml_call3(include[123],fmt,_bF_,s)} + function pp_olist(pp_elem,fmt) + {var _i9_=[0,function(fmt,param){return caml_call2(_bd_,fmt,_bG_)}]; + function _i__(_i$_,_ja_){return pp_print_list(_i9_,pp_elem,_i$_,_ja_)} + return caml_call3(include[123],fmt,_bH_,_i__)} + function pp_str_list(_i8_){return pp_olist(quote,_i8_)} + function to_to_string(pp,x) + {var b=caml_call1(Stdlib_buffer[1],16),fmt=caml_call1(include[107],b); + caml_call2(pp,fmt,x); + return caml_call1(Stdlib_buffer[2],b)} + var + Re_Fmt= + [0, + _a_, + _b_, + _c_, + _d_, + _e_, + _f_, + _g_, + _h_, + _i_, + _j_, + _k_, + _l_, + _m_, + _n_, + _o_, + _p_, + _q_, + _r_, + _s_, + _t_, + _u_, + _v_, + _w_, + _x_, + _y_, + _z_, + _A_, + _B_, + _C_, + _D_, + _E_, + _F_, + _G_, + _H_, + _I_, + _J_, + _K_, + _L_, + _M_, + _N_, + _O_, + _P_, + _Q_, + _R_, + _S_, + _T_, + _U_, + _V_, + _W_, + _X_, + _Y_, + _Z_, + ___, + _$_, + _aa_, + _ab_, + _ac_, + _ad_, + _ae_, + _af_, + _ag_, + _ah_, + _ai_, + _aj_, + _ak_, + _al_, + _am_, + _an_, + _ao_, + _ap_, + _aq_, + _ar_, + _as_, + _at_, + _au_, + _av_, + _aw_, + _ax_, + _ay_, + _az_, + _aA_, + _aB_, + _aC_, + _aD_, + _aE_, + _aF_, + _aG_, + _aH_, + _aI_, + _aJ_, + _aK_, + _aL_, + _aM_, + _aN_, + _aO_, + _aP_, + _aQ_, + _aR_, + _aS_, + _aT_, + _aU_, + _aV_, + _aW_, + _aX_, + _aY_, + _aZ_, + _a0_, + _a1_, + _a2_, + _a3_, + _a4_, + _a5_, + _a6_, + _a7_, + _a8_, + _a9_, + _a__, + _a$_, + _ba_, + _bb_, + _bc_, + _bd_, + _be_, + _bf_, + _bg_, + _bh_, + _bi_, + _bj_, + _bk_, + _bl_, + _bm_, + _bn_, + _bo_, + _bp_, + _bq_, + _br_, + _bs_, + _bt_, + _bu_, + _bv_, + _bw_, + _bx_, + _by_, + _bz_, + _bA_, + _bB_, + _bC_, + pp_print_list, + pp_print_list, + _m_, + sexp, + pair, + triple, + _q_, + optint, + quote, + pp_olist, + pp_str_list, + to_to_string]; + caml_register_global(138,Re_Fmt,"Re__Fmt"); + function union(l$0,l) + {var l$2=l$0,l$1=l; + for(;;) + {if(l$1) + {if(l$2) + {var + r=l$1[2], + _i7_=l$1[1], + c2=_i7_[2], + c1=_i7_[1], + r$0=l$2[2], + match=l$2[1], + c2$0=match[2], + c1$0=match[1]; + if((c2$0 + 1 | 0) < c1)return [0,[0,c1$0,c2$0],union(r$0,l$1)]; + if((c2 + 1 | 0) < c1$0)return [0,[0,c1,c2],union(l$2,r)]; + if(c2$0 < c2) + {var + l$3=[0,[0,caml_call2(Stdlib[16],c1$0,c1),c2],r], + l$2=r$0, + l$1=l$3; + continue} + var + l$4=[0,[0,caml_call2(Stdlib[16],c1$0,c1),c2$0],r$0], + l$2=l$4, + l$1=r; + continue} + return l$1} + return l$2}} + function inter(l$0,l) + {var l$2=l$0,l$1=l; + for(;;) + {if(l$1) + {if(l$2) + {var + r=l$1[2], + _i4_=l$1[1], + c2=_i4_[2], + c1=_i4_[1], + r$0=l$2[2], + match=l$2[1], + c2$0=match[2], + c1$0=match[1]; + if(caml_lessthan(c2$0,c1)){var l$2=r$0;continue} + if(caml_lessthan(c2,c1$0)){var l$1=r;continue} + if(caml_lessthan(c2$0,c2)) + {var _i5_=inter(r$0,l$1); + return [0,[0,caml_call2(Stdlib[17],c1$0,c1),c2$0],_i5_]} + var _i6_=inter(l$2,r); + return [0,[0,caml_call2(Stdlib[17],c1$0,c1),c2],_i6_]} + return 0} + return 0}} + function diff(l$0,l) + {var l$2=l$0,l$1=l; + for(;;) + {if(l$1) + {if(l$2) + {var + r=l$1[2], + _i3_=l$1[1], + c2=_i3_[2], + c1=_i3_[1], + r$0=l$2[2], + match=l$2[1], + c2$0=match[2], + c1$0=match[1]; + if(c2$0 < c1)return [0,[0,c1$0,c2$0],diff(r$0,l$1)]; + if(c2 < c1$0){var l$1=r;continue} + var r$1=c2 < c2$0?[0,[0,c2 + 1 | 0,c2$0],r$0]:r$0; + if(c1$0 < c1)return [0,[0,c1$0,c1 - 1 | 0],diff(r$1,r)]; + var l$2=r$1,l$1=r; + continue} + return 0} + return l$2}} + function single(c){return [0,[0,c,c],0]} + function add(c,l){return union(single(c),l)} + function seq(c$0,c) + {return runtime.caml_lessequal(c$0,c)?[0,[0,c$0,c],0]:[0,[0,c,c$0],0]} + function offset(o,l) + {if(l) + {var r=l[2],match=l[1],c2=match[2],c1=match[1]; + return [0,[0,c1 + o | 0,c2 + o | 0],offset(o,r)]} + return 0} + var empty=0; + function mem(c,s) + {var s$0=s; + for(;;) + {if(s$0) + {var rem=s$0[2],match=s$0[1],c2=match[2],c1=match[1]; + if(c <= c2)return c1 <= c?1:0; + var s$0=rem; + continue} + return 0}} + function hash_rec(param) + {if(param) + {var r=param[2],match=param[1],j=match[2],i=match[1]; + return (i + (13 * j | 0) | 0) + (257 * hash_rec(r) | 0) | 0} + return 0} + function hash(l){return hash_rec(l) & 1073741823} + function print_one(ch,param) + {var c2=param[2],c1=param[1]; + return c1 === c2 + ?caml_call3(include[123],ch,_bI_,c1) + :caml_call4(include[123],ch,_bJ_,c1,c2)} + var _bK_=0; + function pp$0(_i1_,_i2_){return pp_print_list(_bK_,print_one,_i1_,_i2_)} + function iter(t,f) + {var t$0=t; + for(;;) + {if(t$0) + {var xs=t$0[2],match=t$0[1],y=match[2],x=match[1]; + caml_call2(f,x,y); + var t$0=xs; + continue} + return 0}} + function one_char(param) + {if(param && ! param[2]) + {var match=param[1],j=match[2],i=match[1]; + if(caml_equal(i,j))return [0,i]} + return 0} + function compare$0(param,_i0_) + {var v=_i0_[2],j=_i0_[1],u=param[2],i=param[1],c=caml_compare(i,j); + return 0 === c?caml_compare(u,v):c} + var CSetMap=caml_call1(Stdlib_map[1],[0,compare$0]); + function fold_right(t,init,f){return caml_call3(Stdlib_list[22],f,t,init)} + function csingle(c){return single(c)} + function is_empty(param){return param?0:1} + function prepend(s,x,l) + {var s$0=s; + for(;;) + {if(s$0) + {if(l) + {var _iV_=l[1],_iW_=_iV_[1]; + if(_iW_ && ! _iW_[2]) + {var + r=l[2], + x$0=_iV_[2], + _iX_=_iW_[1], + d=_iX_[2], + d$0=_iX_[1], + r$0=s$0[2], + match=s$0[1], + c=match[2], + c$0=match[1]; + if(c < d$0){var s$0=r$0;continue} + if(c$0 <= d$0) + {if(c < d) + {var _iY_=prepend(r$0,x,[0,[0,[0,[0,c + 1 | 0,d],0],x$0],r]); + return [0, + [0,[0,[0,d$0,c],0],caml_call2(Stdlib[37],x,x$0)], + _iY_]} + var _iZ_=prepend(s$0,x,r); + return [0, + [0,[0,[0,d$0,d],0],caml_call2(Stdlib[37],x,x$0)], + _iZ_]} + return d < c$0 + ?[0,[0,[0,[0,d$0,d],0],x$0],prepend(s$0,x,r)] + :[0, + [0,[0,[0,d$0,c$0 - 1 | 0],0],x$0], + prepend(s$0,x,[0,[0,[0,[0,c$0,d],0],x$0],r])]} + throw [0,Assert_failure,_bL_]} + return 0} + return l}} + function pick(param) + {if(param){var match=param[1],x=match[1];return x} + return caml_call1(Stdlib[1],cst_Re_cset_pick)} + var + Re_Cset= + [0, + iter, + union, + inter, + diff, + offset, + empty, + single, + seq, + add, + mem, + hash, + pp$0, + one_char, + fold_right, + hash_rec, + CSetMap, + cany, + csingle, + is_empty, + prepend, + pick]; + caml_register_global(143,Re_Cset,"Re__Cset"); + function equal$0(x,y){return x === y?1:0} + var compare$1=caml_int_compare,r=[0,0]; + function gen(param){r[1]++;return r[1]} + var + pp$1=include[17], + Set=caml_call1(Stdlib_set[1],[0,compare$1]), + Re_Pmark=[0,equal$0,compare$1,gen,pp$1,Set]; + caml_register_global(145,Re_Pmark,"Re__Pmark"); + function hash_combine(h,accu){return (accu * 65599 | 0) + h | 0} + var empty$0=[0,0,Set[1]]; + function merge_marks_offset(old,param) + {if(param) + {var + rem=param[2], + match=param[1], + v=match[2], + i=match[1], + nw=merge_marks_offset(caml_call2(Stdlib_list[46],i,old),rem); + return -2 === v?nw:[0,[0,i,v],nw]} + return old} + function merge(old,nw) + {var _iU_=caml_call2(Set[7],old[2],nw[2]); + return [0,merge_marks_offset(old[1],nw[1]),_iU_]} + function hash$0(m,accu$1) + {var + accu$2=hash_combine(caml_call1(Stdlib_hashtbl[27],m[2]),accu$1), + l=m[1], + accu=accu$2; + for(;;) + {if(l) + {var + r=l[2], + match=l[1], + i=match[2], + a=match[1], + accu$0=hash_combine(a,hash_combine(i,accu)), + l=r, + accu=accu$0; + continue} + return accu}} + function _bM_(idx,marks) + {if(marks) + {var _iT_=marks[1]; + if(-1 === _iT_[2]) + {var rem=marks[2],a=_iT_[1];return [0,[0,a,idx],_bM_(idx,rem)]}} + return marks} + function marks_set_idx(marks,idx) + {var _iS_=marks[2];return [0,_bM_(idx,marks[1]),_iS_]} + function pp_marks(ch,t) + {var _iQ_=t[1]; + if(_iQ_) + {var r=_iQ_[2],match=_iQ_[1],i=match[2],a=match[1]; + caml_call4(include[123],ch,_bN_,a,i); + var + _iR_= + function(param) + {var i=param[2],a=param[1]; + return caml_call4(include[123],ch,_bO_,a,i)}; + return caml_call2(Stdlib_list[15],_iR_,r)} + return 0} + function pp_sem(ch,k) + {var _iP_=-730718166 === k?cst_long:332064784 <= k?cst_first:cst_short; + return caml_call2(include[13],ch,_iP_)} + function pp_rep_kind(fmt,param) + {return 620821490 <= param + ?caml_call2(include[13],fmt,cst_Non_greedy) + :caml_call2(include[13],fmt,cst_Greedy)} + function pp$2(ch,e) + {var _iC_=e[2]; + if(typeof _iC_ === "number") + return caml_call2(_m_,ch,cst_eps); + else + switch(_iC_[0]) + {case 0:var l=_iC_[1];return sexp(ch,cst_cst,pp$0,l); + case 1: + var l$0=_iC_[1],_iD_=0; + return sexp + (ch, + cst_alt, + function(_iN_,_iO_) + {return pp_print_list(_iD_,pp$2,_iN_,_iO_)}, + l$0); + case 2: + var e$0=_iC_[3],e$1=_iC_[2],k=_iC_[1],_iE_=[0,k,e$1,e$0]; + return sexp + (ch, + cst_seq, + function(_iL_,_iM_) + {return triple(pp_sem,pp$2,pp$2,_iL_,_iM_)}, + _iE_); + case 3: + var e$2=_iC_[3],k$0=_iC_[2],_iF_=[0,k$0,e$2]; + return sexp + (ch, + cst_rep, + function(_iJ_,_iK_){return pair(pp_sem,pp$2,_iJ_,_iK_)}, + _iF_); + case 4:var i=_iC_[1];return sexp(ch,cst_mark,_q_,i); + case 5: + var e$3=_iC_[2],b=_iC_[1],_iG_=[0,b,e$3]; + return sexp + (ch, + cst_erase, + function(_iH_,_iI_){return pair(_q_,_q_,_iH_,_iI_)}, + _iG_); + case 6:var c=_iC_[1];return sexp(ch,cst_before,pp,c); + case 7:var c$0=_iC_[1];return sexp(ch,cst_after,pp,c$0); + default:var i$0=_iC_[1];return sexp(ch,cst_pmark,_q_,i$0)}} + function first(f,param) + {var param$0=param; + for(;;) + {if(param$0) + {var r=param$0[2],x=param$0[1],res=caml_call1(f,x); + if(res)return res; + var param$0=r; + continue} + return 0}} + function create_ids(param){return [0,0]} + function mk_expr(ids,def){ids[1]++;return [0,ids[1],def]} + function empty$1(ids){return mk_expr(ids,_bP_)} + function cst(ids,s){return is_empty(s)?empty$1(ids):mk_expr(ids,[0,s])} + function alt(ids,l) + {if(l){if(l[2])return mk_expr(ids,[1,l]);var c=l[1];return c} + return empty$1(ids)} + function seq$0(ids,kind,x,y) + {var _iA_=x[2],_iB_=y[2]; + if(typeof _iA_ !== "number" && 1 === _iA_[0] && ! _iA_[1])return x; + if(typeof _iB_ !== "number" && 1 === _iB_[0] && ! _iB_[1])return y; + if(typeof _iA_ === "number")return y; + if(typeof _iB_ === "number" && 332064784 === kind)return x; + return mk_expr(ids,[2,kind,x,y])} + function is_eps(expr){return typeof expr[2] === "number"?1:0} + function eps(ids){return mk_expr(ids,0)} + function rep(ids,kind,sem,x){return mk_expr(ids,[3,kind,sem,x])} + function mark(ids,m){return mk_expr(ids,[4,m])} + function pmark(ids,i){return mk_expr(ids,[8,i])} + function erase(ids,m$0,m){return mk_expr(ids,[5,m$0,m])} + function before(ids,c){return mk_expr(ids,[6,c])} + function after(ids,c){return mk_expr(ids,[7,c])} + function rename(ids,x) + {var _iw_=x[2]; + if(typeof _iw_ !== "number") + switch(_iw_[0]) + {case 1: + var l=_iw_[1],_ix_=function(_iz_){return rename(ids,_iz_)}; + return mk_expr(ids,[1,caml_call2(Stdlib_list[17],_ix_,l)]); + case 2: + var z=_iw_[3],y=_iw_[2],k=_iw_[1],_iy_=rename(ids,z); + return mk_expr(ids,[2,k,rename(ids,y),_iy_]); + case 3: + var y$0=_iw_[3],k$0=_iw_[2],g=_iw_[1]; + return mk_expr(ids,[3,g,k$0,rename(ids,y$0)]) + } + return mk_expr(ids,x[2])} + function equal$1(l1,l2) + {var l1$0=l1,l2$0=l2; + for(;;) + {if(l1$0) + {var _id_=l1$0[1]; + switch(_id_[0]) + {case 0: + if(l2$0) + {var _ie_=l2$0[1],_if_=l1$0[2],_ig_=_id_[2],_ih_=_id_[1]; + if(0 === _ie_[0]) + {var + r2=l2$0[2], + e2=_ie_[2], + l2$1=_ie_[1], + _ii_=_ig_[1] === e2[1]?1:0; + if(_ii_) + {var _ij_=equal$1(_ih_,l2$1); + if(_ij_){var l1$0=_if_,l2$0=r2;continue} + var _ik_=_ij_} + else + var _ik_=_ii_; + return _ik_}} + break; + case 1: + if(l2$0) + {var _il_=l2$0[1],_im_=l1$0[2],_in_=_id_[2],_io_=_id_[1]; + if(1 === _il_[0]) + {var + r2$0=l2$0[2], + e2$0=_il_[2], + marks2=_il_[1], + _ip_=_in_[1] === e2$0[1]?1:0; + if(_ip_) + {var _iq_=caml_equal(_io_,marks2); + if(_iq_){var l1$0=_im_,l2$0=r2$0;continue} + var _ir_=_iq_} + else + var _ir_=_ip_; + return _ir_}} + break; + default: + if(l2$0) + {var _is_=l2$0[1],_it_=l1$0[2],_iu_=_id_[1]; + if(2 === _is_[0]) + {var + r2$1=l2$0[2], + marks2$0=_is_[1], + _iv_=caml_equal(_iu_,marks2$0); + if(_iv_){var l1$0=_it_,l2$0=r2$1;continue} + return _iv_}}}} + else + if(! l2$0)return 1; + return 0}} + function hash$1(l,accu) + {var l$0=l,accu$0=accu; + for(;;) + {if(l$0) + {var _ia_=l$0[1]; + switch(_ia_[0]) + {case 0: + var + r=l$0[2], + e=_ia_[2], + l$1=_ia_[1], + _ib_=hash$1(l$1,accu$0), + accu$1=hash_combine(388635598,hash_combine(e[1],_ib_)), + l$0=r, + accu$0=accu$1; + continue; + case 1: + var + r$0=l$0[2], + e$0=_ia_[2], + marks=_ia_[1], + _ic_=hash$0(marks,accu$0), + accu$2=hash_combine(726404471,hash_combine(e$0[1],_ic_)), + l$0=r$0, + accu$0=accu$2; + continue; + default: + var + r$1=l$0[2], + marks$0=_ia_[1], + accu$3=hash_combine(471882453,hash$0(marks$0,accu$0)), + l$0=r$1, + accu$0=accu$3; + continue}} + return accu$0}} + function tseq(kind,x,y,rem) + {if(x) + {var _h$_=x[1]; + if(1 === _h$_[0] && typeof _h$_[2][2] === "number" && ! x[2]) + {var marks=_h$_[1];return [0,[1,marks,y],rem]} + return [0,[0,x,y,kind],rem]} + return rem} + function print_state_rec(ch,e,y) + {switch(e[0]) + {case 0: + var x=e[2],l=e[1]; + caml_call2(include[123],ch,_bQ_); + print_state_lst(ch,l,x); + return caml_call4(include[123],ch,_bR_,pp$2,x); + case 1: + var _h9_=e[2],_h__=e[1]; + return typeof _h9_[2] === "number" + ?caml_call5(include[123],ch,_bS_,y[1],pp_marks,_h__) + :caml_call7 + (include[123],ch,_bT_,_h9_[1],pp_marks,_h__,pp$2,_h9_); + default: + var marks=e[1];return caml_call4(include[123],ch,_bU_,pp_marks,marks)}} + function print_state_lst(ch,l,y) + {if(l) + {var rem=l[2],e=l[1]; + print_state_rec(ch,e,y); + var + _h8_= + function(e) + {caml_call2(include[123],ch,_bV_);return print_state_rec(ch,e,y)}; + return caml_call2(Stdlib_list[15],_h8_,rem)} + return caml_call2(include[123],ch,_bW_)} + function pp$3(ch,t){return print_state_lst(ch,[0,t,0],_bX_)} + var dummy$0=[0,-1,dummy,0,0,-1]; + function mk(idx,cat,desc) + {return [0, + idx, + cat, + desc, + 0, + hash$1(desc,hash_combine(idx,hash_combine(cat,0))) & 1073741823]} + function create(cat,e){return mk(0,cat,[0,[1,empty$0,e],0])} + function equal$2(x,y) + {var _h4_=x[5] === y[5]?1:0; + if(_h4_) + {var _h5_=x[1] === y[1]?1:0; + if(_h5_) + {var _h6_=x[2] === y[2]?1:0; + if(_h6_)return equal$1(x[3],y[3]); + var _h7_=_h6_} + else + var _h7_=_h5_} + else + var _h7_=_h4_; + return _h7_} + function hash$2(t){return t[5]} + var Table=caml_call1(Stdlib_hashtbl[25],[0,equal$2,hash$2]); + function create_working_area(param){return [0,[0,0]]} + function index_count(w){return w[1].length - 1} + function mark_used_indices(tbl) + {function _hZ_(param) + {if(0 === param[0]) + {var l=param[1];return caml_call1(mark_used_indices(tbl),l)} + var marks=param[1],_h0_=marks[1]; + function _h1_(param) + {var + i=param[2], + _h2_=0 <= i?1:0, + _h3_=_h2_?(caml_check_bound(tbl,i)[1 + i] = 1,0):_h2_; + return _h3_} + return caml_call2(Stdlib_list[15],_h1_,_h0_)} + return caml_call1(Stdlib_list[15],_hZ_)} + function free_index(tbl_ref,l) + {var tbl=tbl_ref[1]; + caml_call4(Stdlib_array[9],tbl,0,tbl.length - 1,0); + caml_call1(mark_used_indices(tbl),l); + var len=tbl.length - 1,idx=0; + for(;;) + {if(idx !== len && caml_check_bound(tbl,idx)[1 + idx]) + {var idx$0=idx + 1 | 0,idx=idx$0;continue} + if(idx === len)tbl_ref[1] = caml_make_vect(2 * len | 0,0); + return idx}} + function _bY_(param){return 2 === param[0]?0:1} + var remove_matches=caml_call1(Stdlib_list[36],_bY_); + function split_at_match(l$1) + {var l=0,param=l$1; + for(;;) + {if(param) + {var _hX_=param[1]; + if(2 === _hX_[0]) + {var r=param[2],_hY_=caml_call1(remove_matches,r); + return [0,caml_call1(Stdlib_list[9],l),_hY_]} + var param$0=param[2],l$0=[0,_hX_,l],l=l$0,param=param$0; + continue} + throw [0,Assert_failure,_bZ_]}} + function remove_duplicates(prev,l,y) + {var l$0=l; + for(;;) + {if(l$0) + {var _hV_=l$0[1]; + switch(_hV_[0]) + {case 0: + var + r=l$0[2], + kind=_hV_[3], + x=_hV_[2], + l$1=_hV_[1], + match=remove_duplicates(prev,l$1,x), + prev$0=match[2], + l$2=match[1], + match$0=remove_duplicates(prev$0,r,y), + prev$1=match$0[2], + r$0=match$0[1]; + return [0,tseq(kind,l$2,x,r$0),prev$1]; + case 1: + var _hW_=_hV_[2]; + if(typeof _hW_[2] === "number") + {var r$1=l$0[2]; + if(caml_call2(Stdlib_list[33],y[1],prev)){var l$0=r$1;continue} + var + match$1=remove_duplicates([0,y[1],prev],r$1,y), + prev$2=match$1[2], + r$2=match$1[1]; + return [0,[0,_hV_,r$2],prev$2]} + var r$3=l$0[2]; + if(caml_call2(Stdlib_list[33],_hW_[1],prev)) + {var l$0=r$3;continue} + var + match$2=remove_duplicates([0,_hW_[1],prev],r$3,y), + prev$3=match$2[2], + r$4=match$2[1]; + return [0,[0,_hV_,r$4],prev$3]; + default:return [0,[0,_hV_,0],prev]}} + return [0,0,prev]}} + function set_idx(idx,param) + {if(param) + {var _hR_=param[1]; + switch(_hR_[0]) + {case 0: + var + r=param[2], + kind=_hR_[3], + x=_hR_[2], + l=_hR_[1], + _hS_=set_idx(idx,r); + return [0,[0,set_idx(idx,l),x,kind],_hS_]; + case 1: + var r$0=param[2],x$0=_hR_[2],marks=_hR_[1],_hT_=set_idx(idx,r$0); + return [0,[1,marks_set_idx(marks,idx),x$0],_hT_]; + default: + var r$1=param[2],marks$0=_hR_[1],_hU_=set_idx(idx,r$1); + return [0,[2,marks_set_idx(marks$0,idx)],_hU_]}} + return 0} + function filter_marks(b,e,marks) + {var _hM_=marks[2],_hN_=marks[1]; + function _hO_(param) + {var i=param[1],_hP_=i < b?1:0,_hQ_=_hP_ || (e < i?1:0);return _hQ_} + return [0,caml_call2(Stdlib_list[36],_hO_,_hN_),_hM_]} + function delta_1$0(counter,init,c,next_cat,prev_cat,x,rem) + {var _hJ_=x[2]; + if(typeof _hJ_ === "number") + return [0,[2,init],rem]; + else + switch(_hJ_[0]) + {case 0:var s=_hJ_[1];return mem(c,s)?[0,[1,init,eps_expr],rem]:rem; + case 1: + var l=_hJ_[1]; + if(counter < 50) + {var counter$1=counter + 1 | 0; + return delta_2$0(counter$1,init,c,next_cat,prev_cat,l,rem)} + return caml_trampoline_return + (delta_2$0,[0,init,c,next_cat,prev_cat,l,rem]); + case 2: + var + z=_hJ_[3], + y=_hJ_[2], + kind=_hJ_[1], + y$0=delta_1(init,c,next_cat,prev_cat,y,0); + if(counter < 50) + {var counter$0=counter + 1 | 0; + return delta_seq$0(counter$0,c,next_cat,prev_cat,kind,y$0,z,rem)} + return caml_trampoline_return + (delta_seq$0,[0,c,next_cat,prev_cat,kind,y$0,z,rem]); + case 3: + var + y$1=_hJ_[3], + kind$0=_hJ_[2], + rep_kind=_hJ_[1], + y$2=delta_1(init,c,next_cat,prev_cat,y$1,0), + match= + first + (function(param) + {if(2 === param[0]){var marks=param[1];return [0,marks]} + return 0}, + y$2); + if(match) + var + marks=match[1], + y$3=caml_call1(remove_matches,y$2), + marks$0=marks; else - var _cI_=runtime.unix_execv(prog,args); - return _cI_} - catch(_cJ_){return caml_sys_exit(127)}} - return caml_call3(Stdlib_hashtbl[5],popen_processes,proc,id)} - function open_process_args_in(prog,args) + var y$3=y$2,marks$0=init; + return 620821490 <= rep_kind + ?[0,[2,init],tseq(kind$0,y$3,x,rem)] + :tseq(kind$0,y$3,x,[0,[2,marks$0],rem]); + case 4: + var + i=_hJ_[1], + _hK_=init[2], + marks$1=[0,[0,[0,i,-1],caml_call2(Stdlib_list[46],i,init[1])],_hK_]; + return [0,[2,marks$1],rem]; + case 5: + var e=_hJ_[2],b=_hJ_[1];return [0,[2,filter_marks(b,e,init)],rem]; + case 6: + var cat=_hJ_[1];return intersect(next_cat,cat)?[0,[2,init],rem]:rem; + case 7: + var cat$0=_hJ_[1]; + return intersect(prev_cat,cat$0)?[0,[2,init],rem]:rem; + default: + var + i$0=_hJ_[1], + _hL_=caml_call2(Set[4],i$0,init[2]), + marks$2=[0,init[1],_hL_]; + return [0,[2,marks$2],rem]}} + function delta_2$0(counter,marks,c,next_cat,prev_cat,l,rem) + {if(l) + {var r=l[2],y=l[1],_hI_=delta_2(marks,c,next_cat,prev_cat,r,rem); + if(counter < 50) + {var counter$0=counter + 1 | 0; + return delta_1$0(counter$0,marks,c,next_cat,prev_cat,y,_hI_)} + return caml_trampoline_return + (delta_1$0,[0,marks,c,next_cat,prev_cat,y,_hI_])} + return rem} + function delta_seq$0(counter,c,next_cat,prev_cat,kind,y,z,rem) {var - match=runtime.unix_pipe(_h_,0), - in_write=match[2], - in_read=match[1], - inchan=runtime.unix_inchannel_of_filedescr(in_read); - try - {open_proc(prog,args,0,[1,inchan],stdin,in_write,stderr)} - catch(e) - {e = caml_wrap_exception(e); - caml_call1(Stdlib[93],inchan); - runtime.unix_close(in_write); - throw e} - runtime.unix_close(in_write); - return inchan} - function open_process_args_out(prog,args) + match= + first + (function(param) + {if(2 === param[0]){var marks=param[1];return [0,marks]}return 0}, + y); + if(match) + {var marks=match[1]; + if(-730718166 === kind) + {var _hG_=delta_1(marks,c,next_cat,prev_cat,z,rem); + return tseq(kind,caml_call1(remove_matches,y),z,_hG_)} + if(332064784 <= kind) + {var match$0=split_at_match(y),y$0=match$0[2],y$1=match$0[1]; + return tseq + (kind, + y$1, + z, + delta_1(marks,c,next_cat,prev_cat,z,tseq(kind,y$0,z,rem)))} + var _hH_=tseq(kind,caml_call1(remove_matches,y),z,rem); + if(counter < 50) + {var counter$0=counter + 1 | 0; + return delta_1$0(counter$0,marks,c,next_cat,prev_cat,z,_hH_)} + return caml_trampoline_return + (delta_1$0,[0,marks,c,next_cat,prev_cat,z,_hH_])} + return tseq(kind,y,z,rem)} + function delta_1(init,c,next_cat,prev_cat,x,rem) + {return caml_trampoline(delta_1$0(0,init,c,next_cat,prev_cat,x,rem))} + function delta_2(marks,c,next_cat,prev_cat,l,rem) + {return caml_trampoline(delta_2$0(0,marks,c,next_cat,prev_cat,l,rem))} + function delta_seq(c,next_cat,prev_cat,kind,y,z,rem) + {return caml_trampoline(delta_seq$0(0,c,next_cat,prev_cat,kind,y,z,rem))} + function delta_4(c,next_cat,prev_cat,l,rem) + {if(l) + {var r=l[2],y$1=l[1],rem$0=delta_4(c,next_cat,prev_cat,r,rem); + switch(y$1[0]) + {case 0: + var + kind=y$1[3], + z=y$1[2], + y=y$1[1], + y$0=delta_4(c,next_cat,prev_cat,y,0); + return delta_seq(c,next_cat,prev_cat,kind,y$0,z,rem$0); + case 1: + var e=y$1[2],marks=y$1[1]; + return delta_1(marks,c,next_cat,prev_cat,e,rem$0); + default:return [0,y$1,rem$0]}} + return rem} + function delta(tbl_ref,next_cat,char$0,st) {var - match=runtime.unix_pipe(_i_,0), - out_write=match[2], - out_read=match[1], - outchan=runtime.unix_outchannel_of_filedescr(out_write); - try - {open_proc(prog,args,0,[2,outchan],out_read,stdout,stderr)} - catch(e) - {e = caml_wrap_exception(e); - caml_call1(Stdlib[76],outchan); - runtime.unix_close(out_read); - throw e} - runtime.unix_close(out_read); - return outchan} - function open_process_args(prog,args) - {var match=runtime.unix_pipe(_j_,0),in_write=match[2],in_read=match[1]; - try - {var match$0=runtime.unix_pipe(_k_,0)} - catch(e) - {e = caml_wrap_exception(e); - runtime.unix_close(in_read); - runtime.unix_close(in_write); - throw e} + prev_cat=st[2], + match= + remove_duplicates + (0,delta_4(char$0,next_cat,prev_cat,st[3],0),eps_expr), + expr=match[1], + idx=free_index(tbl_ref,expr), + expr$0=set_idx(idx,expr); + return mk(idx,next_cat,expr$0)} + function red_tr(l) + {var l$0=l; + for(;;) + {if(l$0) + {var _hF_=l$0[2]; + if(_hF_) + {var + rem=_hF_[2], + tr2=_hF_[1], + st2=tr2[2], + s2=tr2[1], + tr1=l$0[1], + st1=tr1[2], + s1=tr1[1]; + if(equal$2(st1,st2)) + {var l$1=[0,[0,union(s1,s2),st1],rem],l$0=l$1;continue} + return [0,tr1,red_tr([0,tr2,rem])]}} + return l$0}} + function _b0_(param,l){var x=param[2],s=param[1];return prepend(s,x,l)} + var prepend_deriv=caml_call1(Stdlib_list[22],_b0_); + function restrict(s,param) + {var param$0=param; + for(;;) + {if(param$0) + {var + rem=param$0[2], + match=param$0[1], + x=match[2], + s$0=match[1], + s$1=inter(s,s$0); + if(is_empty(s$1)){var param$0=rem;continue} + return [0,[0,s$1,x],restrict(s,rem)]} + return 0}} + function prepend_marks_expr_lst(m,l) + {function _hE_(param) + {switch(param[0]) + {case 0: + var s=param[3],e=param[2],l=param[1]; + return [0,prepend_marks_expr_lst(m,l),e,s]; + case 1:var e$0=param[2],m$0=param[1];return [1,merge(m,m$0),e$0]; + default:var m$1=param[1];return [2,merge(m,m$1)]}} + return caml_call2(Stdlib_list[17],_hE_,l)} + function deriv_seq(all_chars,categories,cat,kind,y,z,rem) + {function _hv_(param) + {var xl=param[2]; + function _hD_(param){return 2 === param[0]?1:0} + return caml_call2(Stdlib_list[29],_hD_,xl)} + if(caml_call2(Stdlib_list[29],_hv_,y)) + {var + z$0=deriv_1(all_chars,categories,empty$0,cat,z,[0,[0,all_chars,0],0]), + _hw_= + function(param,rem) + {var + y=param[2], + s=param[1], + match= + first + (function(param) + {if(2 === param[0]){var marks=param[1];return [0,marks]} + return 0}, + y); + if(match) + {var + marks=match[1], + _hy_= + function(param) + {var x=param[2],s=param[1]; + return [0,s,prepend_marks_expr_lst(marks,x)]}, + z$1=caml_call1(caml_call1(Stdlib_list[17],_hy_),z$0); + if(-730718166 === kind) + {var _hz_=caml_call2(prepend_deriv,restrict(s,z$1),rem); + return prepend + (s,tseq(kind,caml_call1(remove_matches,y),z,0),_hz_)} + if(332064784 <= kind) + {var + match$0=split_at_match(y), + y$0=match$0[2], + y$1=match$0[1], + _hA_=prepend(s,tseq(kind,y$0,z,0),rem), + _hB_=caml_call2(prepend_deriv,restrict(s,z$1),_hA_); + return prepend(s,tseq(kind,y$1,z,0),_hB_)} + var + _hC_= + prepend(s,tseq(kind,caml_call1(remove_matches,y),z,0),rem); + return caml_call2(prepend_deriv,restrict(s,z$1),_hC_)} + return prepend(s,tseq(kind,y,z,0),rem)}; + return caml_call3(Stdlib_list[22],_hw_,y,rem)} + function _hx_(param,rem) + {var xl=param[2],s=param[1];return prepend(s,tseq(kind,xl,z,0),rem)} + return caml_call3(Stdlib_list[22],_hx_,y,rem)} + function deriv_1$0(counter,all_chars,categories,marks,cat,x,rem$1) + {var _hp_=x[2]; + if(typeof _hp_ === "number") + return prepend(all_chars,[0,[2,marks],0],rem$1); + else + switch(_hp_[0]) + {case 0: + var s=_hp_[1];return prepend(s,[0,[1,marks,eps_expr],0],rem$1); + case 1: + var l=_hp_[1]; + if(counter < 50) + {var counter$0=counter + 1 | 0; + return deriv_2$0(counter$0,all_chars,categories,marks,cat,l,rem$1)} + return caml_trampoline_return + (deriv_2$0,[0,all_chars,categories,marks,cat,l,rem$1]); + case 2: + var + z=_hp_[3], + y=_hp_[2], + kind=_hp_[1], + y$0=deriv_1(all_chars,categories,marks,cat,y,[0,[0,all_chars,0],0]); + return deriv_seq(all_chars,categories,cat,kind,y$0,z,rem$1); + case 3: + var + y$1=_hp_[3], + kind$0=_hp_[2], + rep_kind=_hp_[1], + y$2= + deriv_1(all_chars,categories,marks,cat,y$1,[0,[0,all_chars,0],0]), + _hq_= + function(param,rem) + {var + z=param[2], + s=param[1], + match= + first + (function(param) + {if(2 === param[0]){var marks=param[1];return [0,marks]} + return 0}, + z); + if(match) + var + marks$0=match[1], + z$0=caml_call1(remove_matches,z), + marks$1=marks$0; + else + var z$0=z,marks$1=marks; + var + _hu_= + 620821490 <= rep_kind + ?[0,[2,marks],tseq(kind$0,z$0,x,0)] + :tseq(kind$0,z$0,x,[0,[2,marks$1],0]); + return prepend(s,_hu_,rem)}; + return caml_call3(Stdlib_list[22],_hq_,y$2,rem$1); + case 4: + var i=_hp_[1],_hr_=marks[2]; + return prepend + (all_chars, + [0, + [2, + [0,[0,[0,i,-1],caml_call2(Stdlib_list[46],i,marks[1])],_hr_]], + 0], + rem$1); + case 5: + var + e$1=_hp_[2], + b=_hp_[1], + _ht_=marks[2], + e=e$1, + rem=filter_marks(b,e$1,marks)[1], + _hs_=0; + for(;;) + {if(e < b) + return prepend(all_chars,[0,[2,[0,rem,_ht_]],_hs_],rem$1); + var rem$0=[0,[0,e,-2],rem],e$0=e - 1 | 0,e=e$0,rem=rem$0; + continue} + case 6: + var cat$0=_hp_[1]; + return prepend + (caml_call2(Stdlib_list[41],cat$0,categories), + [0,[2,marks],0], + rem$1); + case 7: + var cat$1=_hp_[1]; + return intersect(cat,cat$1) + ?prepend(all_chars,[0,[2,marks],0],rem$1) + :rem$1; + default:return prepend(all_chars,[0,[2,marks],0],rem$1)}} + function deriv_2$0(counter,all_chars,categories,marks,cat,l,rem) + {if(l) + {var r=l[2],y=l[1],_ho_=deriv_2(all_chars,categories,marks,cat,r,rem); + if(counter < 50) + {var counter$0=counter + 1 | 0; + return deriv_1$0(counter$0,all_chars,categories,marks,cat,y,_ho_)} + return caml_trampoline_return + (deriv_1$0,[0,all_chars,categories,marks,cat,y,_ho_])} + return rem} + function deriv_1(all_chars,categories,marks,cat,x,rem) + {return caml_trampoline + (deriv_1$0(0,all_chars,categories,marks,cat,x,rem))} + function deriv_2(all_chars,categories,marks,cat,l,rem) + {return caml_trampoline + (deriv_2$0(0,all_chars,categories,marks,cat,l,rem))} + function deriv_4(all_chars,categories,cat,l,rem) + {if(l) + {var r=l[2],y$1=l[1],rem$0=deriv_4(all_chars,categories,cat,r,rem); + switch(y$1[0]) + {case 0: + var + kind=y$1[3], + z=y$1[2], + y=y$1[1], + y$0=deriv_4(all_chars,categories,cat,y,[0,[0,all_chars,0],0]); + return deriv_seq(all_chars,categories,cat,kind,y$0,z,rem$0); + case 1: + var e=y$1[2],marks=y$1[1]; + return deriv_1(all_chars,categories,marks,cat,e,rem$0); + default:return prepend(all_chars,[0,y$1,0],rem$0)}} + return rem} + function deriv(tbl_ref,all_chars,categories,st) + {var + der=deriv_4(all_chars,categories,st[2],st[3],[0,[0,all_chars,0],0]), + _hj_=0; + function _hk_(param,rem) + {var + expr=param[2], + s=param[1], + match=remove_duplicates(0,expr,eps_expr), + expr$0=match[1], + idx=free_index(tbl_ref,expr$0), + expr$1=set_idx(idx,expr$0); + function _hn_(param,rem) + {var s$0=param[2],cat=param[1],s$1=inter(s,s$0); + return is_empty(s$1)?rem:[0,[0,s$1,mk(idx,cat,expr$1)],rem]} + return caml_call3(Stdlib_list[22],_hn_,categories,rem)} + var l=caml_call3(Stdlib_list[22],_hk_,der,_hj_); + function _hg_(param,_hm_) + {var st2=_hm_[2],st1=param[2],c=caml_int_compare(st1[5],st2[5]); + if(0 === c) + {var c$0=caml_int_compare(st1[2],st2[2]); + return 0 === c$0?caml_compare(st1[3],st2[3]):c$0} + return c} + var _hh_=red_tr(caml_call2(Stdlib_list[49],_hg_,l)); + function _hi_(param,_hl_) + {var s2=_hl_[1],s1=param[1];return caml_compare(s1,s2)} + return caml_call2(Stdlib_list[49],_hi_,_hh_)} + function status(s) + {var _hb_=s[4]; + if(_hb_){var st=_hb_[1];return st} + var _hc_=s[3]; + if(_hc_) + {var _hd_=_hc_[1]; + if(2 === _hd_[0]) + {var + m=_hd_[1], + _hf_=m[1], + _he_=m[2], + _g__=-1, + _g$_= + function(ma,param) + {var i=param[1];return caml_call2(Stdlib[17],ma,i)}, + ma=caml_call3(Stdlib_list[21],_g$_,_g__,_hf_), + res=caml_make_vect(ma + 1 | 0,-1), + _ha_= + function(param) + {var v=param[2],i=param[1]; + caml_check_bound(res,i)[1 + i] = v; + return 0}; + caml_call2(Stdlib_list[15],_ha_,_hf_); + var st$0=[0,res,_he_]} + else + var st$0=1} + else + var st$0=0; + s[4] = [0,st$0]; + return st$0} + var + _b1_=[0,dummy$0,create,Table], + Re_Automata= + [0, + pp_sem, + pp_rep_kind, + is_eps, + pp$2, + create_ids, + cst, + empty$1, + alt, + seq$0, + eps, + rep, + mark, + pmark, + erase, + before, + after, + rename, + [0], + [0,pp$3], + _b1_, + create_working_area, + index_count, + delta, + deriv, + status]; + caml_register_global(148,Re_Automata,"Re__Automata"); + function make(param){return caml_call2(Stdlib_bytes[1],257,0)} + function flatten(cm) + {var c=caml_create_bytes(256),color_repr=caml_create_bytes(256),v=[0,0]; + caml_bytes_set(c,0,0); + caml_bytes_set(color_repr,0,0); + var i=1; + for(;;) + {if(0 !== caml_bytes_get(cm,i))v[1]++; + caml_bytes_set(c,i,caml_call1(Stdlib_char[1],v[1])); + var _g8_=caml_call1(Stdlib_char[1],i); + caml_bytes_set(color_repr,v[1],_g8_); + var _g9_=i + 1 | 0; + if(255 !== i){var i=_g9_;continue} + var _g7_=v[1] + 1 | 0; + return [0, + c, + caml_call3(Stdlib_bytes[7],color_repr,0,v[1] + 1 | 0), + _g7_]}} + function split(s,cm) + {return iter + (s, + function(i,j) + {caml_bytes_set(cm,i,1);return caml_bytes_set(cm,j + 1 | 0,1)})} + var Re_Color_map=[0,make,flatten,split]; + caml_register_global(151,Re_Color_map,"Re__Color_map"); + function offset$0(t,i) + {if(t[2].length - 1 <= ((2 * i | 0) + 1 | 0))throw Stdlib[8]; + var _g4_=2 * i | 0,m1=caml_check_bound(t[2],_g4_)[1 + _g4_]; + if(-1 === m1)throw Stdlib[8]; var - out_write=match$0[2], - out_read=match$0[1], - inchan=runtime.unix_inchannel_of_filedescr(in_read), - outchan=runtime.unix_outchannel_of_filedescr(out_write); - try - {open_proc(prog,args,0,[0,inchan,outchan],out_read,in_write,stderr)} - catch(e) - {e = caml_wrap_exception(e); - runtime.unix_close(out_read); - runtime.unix_close(out_write); - runtime.unix_close(in_read); - runtime.unix_close(in_write); - throw e} - runtime.unix_close(out_read); - runtime.unix_close(in_write); - return [0,inchan,outchan]} - function open_process_args_full(prog,args,env) - {var match=runtime.unix_pipe(_l_,0),in_write=match[2],in_read=match[1]; - try - {var match$0=runtime.unix_pipe(_m_,0)} - catch(e) - {e = caml_wrap_exception(e); - runtime.unix_close(in_read); - runtime.unix_close(in_write); - throw e} - var out_write=match$0[2],out_read=match$0[1]; - try - {var match$1=runtime.unix_pipe(_n_,0)} - catch(e) - {e = caml_wrap_exception(e); - runtime.unix_close(in_read); - runtime.unix_close(in_write); - runtime.unix_close(out_read); - runtime.unix_close(out_write); - throw e} + p1=caml_check_bound(t[4],m1)[1 + m1] - 1 | 0, + _g5_=(2 * i | 0) + 1 | 0, + _g6_=caml_check_bound(t[2],_g5_)[1 + _g5_], + p2=caml_check_bound(t[4],_g6_)[1 + _g6_] - 1 | 0; + return [0,p1,p2]} + function get(t,i) + {var match=offset$0(t,i),p2=match[2],p1=match[1]; + return caml_call3(Stdlib_string[4],t[1],p1,p2 - p1 | 0)} + function start(subs,i){return offset$0(subs,i)[1]} + function stop(subs,i){return offset$0(subs,i)[2]} + function test(t,i) + {if(t[2].length - 1 <= (2 * i | 0))return 0; + var _g3_=2 * i | 0,idx=caml_check_bound(t[2],_g3_)[1 + _g3_]; + return -1 !== idx?1:0} + function all_offset(t) + {var + res=caml_make_vect(t[5],dummy_offset), + _gY_=((t[2].length - 1) / 2 | 0) - 1 | 0, + _gX_=0; + if(! (_gY_ < 0)) + {var i=_gX_; + for(;;) + {var _gZ_=2 * i | 0,m1=caml_check_bound(t[2],_gZ_)[1 + _gZ_]; + if(-1 !== m1) + {var + p1=caml_check_bound(t[4],m1)[1 + m1], + _g0_=(2 * i | 0) + 1 | 0, + _g1_=caml_check_bound(t[2],_g0_)[1 + _g0_], + p2=caml_check_bound(t[4],_g1_)[1 + _g1_]; + caml_check_bound(res,i)[1 + i] = [0,p1 - 1 | 0,p2 - 1 | 0]} + var _g2_=i + 1 | 0; + if(_gY_ !== i){var i=_g2_;continue} + break}} + return res} + function all(t) + {var + res=caml_make_vect(t[5],dummy_string), + _gR_=((t[2].length - 1) / 2 | 0) - 1 | 0, + _gQ_=0; + if(! (_gR_ < 0)) + {var i=_gQ_; + for(;;) + {var _gS_=2 * i | 0,m1=caml_check_bound(t[2],_gS_)[1 + _gS_]; + if(-1 !== m1) + {var + p1=caml_check_bound(t[4],m1)[1 + m1], + _gT_=(2 * i | 0) + 1 | 0, + _gU_=caml_check_bound(t[2],_gT_)[1 + _gT_], + p2=caml_check_bound(t[4],_gU_)[1 + _gU_], + _gV_=caml_call3(Stdlib_string[4],t[1],p1 - 1 | 0,p2 - p1 | 0); + caml_check_bound(res,i)[1 + i] = _gV_} + var _gW_=i + 1 | 0; + if(_gR_ !== i){var i=_gW_;continue} + break}} + return res} + function pp$4(fmt,t) + {var offsets=all_offset(t),strs=all(t); + function _gK_(i) + {var _gP_=caml_check_bound(offsets,i)[1 + i]; + return [0,caml_check_bound(strs,i)[1 + i],_gP_]} var - err_write=match$1[2], - err_read=match$1[1], - inchan=runtime.unix_inchannel_of_filedescr(in_read), - outchan=runtime.unix_outchannel_of_filedescr(out_write), - errchan=runtime.unix_inchannel_of_filedescr(err_read); - try - {open_proc - (prog, - args, - [0,env], - [3,inchan,outchan,errchan], - out_read, - in_write, - err_write)} - catch(e) - {e = caml_wrap_exception(e); - runtime.unix_close(out_read); - runtime.unix_close(out_write); - runtime.unix_close(in_read); - runtime.unix_close(in_write); - runtime.unix_close(err_read); - runtime.unix_close(err_write); - throw e} - runtime.unix_close(out_read); - runtime.unix_close(in_write); - runtime.unix_close(err_write); - return [0,inchan,outchan,errchan]} - function open_process_shell(fn,cmd) - {return caml_call2(fn,shell,[0,shell,cst_c$0,cmd])} - function open_process_in(cmd) - {return open_process_shell(open_process_args_in,cmd)} - function open_process_out(cmd) - {return open_process_shell(open_process_args_out,cmd)} - function open_process(cmd) - {return open_process_shell(open_process_args,cmd)} - function open_process_full(cmd) - {return open_process_shell(open_process_args_full,cmd)} - function find_proc_id(fun_name,proc) + _gL_=caml_call2(Stdlib_array[2],strs.length - 1,_gK_), + matches=caml_call1(Stdlib_array[11],_gL_); + function pp_match(fmt,param) + {var match=param[2],stop=match[2],start=match[1],str=param[1]; + return caml_call5(_bd_,fmt,_b2_,str,start,stop)} + var _gM_=0; + return sexp + (fmt, + cst_Group, + function(_gN_,_gO_) + {return pp_print_list(_gM_,pp_match,_gN_,_gO_)}, + matches)} + function nb_groups(t){return t[5]} + var Group=[0,get,offset$0,start,stop,all,all_offset,test,nb_groups,pp$4]; + caml_register_global(153,Group,"Re__Group"); + function iter$0(n,f,v) + {var n$0=n,v$0=v; + for(;;) + {if(0 === n$0)return v$0; + var v$1=caml_call1(f,v$0),n$1=n$0 - 1 | 0,n$0=n$1,v$0=v$1; + continue}} + var unknown=-2,break$0=-3; + function print_re(ch,re){return pp$2(ch,re[1])} + function category(re,color) + {return -1 === color + ?inexistant + :color === re[6]?28:from_char(caml_bytes_get(re[4],color))} + var dummy_next=[0],unknown_state=[0,unknown,0,dummy_next,0,_b1_[1]]; + function mk_state(ncol,desc) + {var match=status(desc),switch$0=0; + if(typeof match === "number" && 0 !== match) + {var break_state=0;switch$0 = 1} + if(! switch$0)var break_state=1; + var + _gG_=0, + _gH_=break_state?dummy_next:caml_make_vect(ncol,unknown_state), + _gI_=desc[1], + _gJ_=break_state?break$0:desc[1]; + return [0,_gJ_,_gI_,_gH_,_gG_,desc]} + function find_state(re,desc) {try - {var _cG_=caml_call2(Stdlib_hashtbl[6],popen_processes,proc); - return _cG_} - catch(_cH_) - {_cH_ = caml_wrap_exception(_cH_); - if(_cH_ === Stdlib[8])throw [0,Unix_error,3,fun_name,cst$9]; - throw _cH_}} - function remove_proc_id(proc) - {return caml_call2(Stdlib_hashtbl[10],popen_processes,proc)} - function process_in_pid(inchan) - {return find_proc_id(cst_process_in_pid,[1,inchan])} - function process_out_pid(outchan) - {return find_proc_id(cst_process_out_pid,[2,outchan])} - function process_pid(param) - {var outchan=param[2],inchan=param[1]; - return find_proc_id(cst_process_pid,[0,inchan,outchan])} - function process_full_pid(param) - {var errchan=param[3],outchan=param[2],inchan=param[1]; - return find_proc_id(cst_process_full_pid,[3,inchan,outchan,errchan])} - function close_process_in(inchan) - {var proc=[1,inchan],pid=find_proc_id(cst_close_process_in,proc); - remove_proc_id(proc); - caml_call1(Stdlib[93],inchan); - return waitpid_non_intr(pid)[2]} - function close_process_out(outchan) - {var proc=[2,outchan],pid=find_proc_id(cst_close_process_out,proc); - remove_proc_id(proc); - try - {caml_call1(Stdlib[76],outchan)} - catch(_cF_) - {_cF_ = caml_wrap_exception(_cF_);if(_cF_[1] !== Stdlib[11])throw _cF_} - return waitpid_non_intr(pid)[2]} - function close_process(param) + {var _gE_=caml_call2(_b1_[3][7],re[8],desc);return _gE_} + catch(_gF_) + {_gF_ = caml_wrap_exception(_gF_); + if(_gF_ === Stdlib[8]) + {var st=mk_state(re[5],desc); + caml_call3(_b1_[3][5],re[8],desc,st); + return st} + throw _gF_}} + function delta$0(info,cat,color,st) {var - outchan=param[2], - inchan=param[1], - proc=[0,inchan,outchan], - pid=find_proc_id(cst_close_process,proc); - remove_proc_id(proc); - caml_call1(Stdlib[93],inchan); - try - {caml_call1(Stdlib[76],outchan)} - catch(_cE_) - {_cE_ = caml_wrap_exception(_cE_);if(_cE_[1] !== Stdlib[11])throw _cE_} - return waitpid_non_intr(pid)[2]} - function close_process_full(param) + desc=delta(info[1][7],cat,color,st[5]), + len=info[3].length - 1, + _gC_=desc[1] === len?1:0, + _gD_=_gC_?0 < len?1:0:_gC_; + if(_gD_) + {var pos=info[3]; + info[3] = caml_make_vect(2 * len | 0,0); + caml_call5(Stdlib_array[10],pos,0,info[3],0,len)} + return desc} + function validate(info,s,pos,st) {var - errchan=param[3], - outchan=param[2], - inchan=param[1], - proc=[3,inchan,outchan,errchan], - pid=find_proc_id(cst_close_process_full,proc); - remove_proc_id(proc); - caml_call1(Stdlib[93],inchan); - try - {caml_call1(Stdlib[76],outchan)} - catch(_cD_) - {_cD_ = caml_wrap_exception(_cD_);if(_cD_[1] !== Stdlib[11])throw _cD_} - caml_call1(Stdlib[93],errchan); - return waitpid_non_intr(pid)[2]} - function open_connection(sockaddr) - {var sock=runtime.unix_socket(_o_,domain_of_sockaddr(sockaddr),0,0); - try - {runtime.unix_connect(sock,sockaddr); - var - _cB_=runtime.unix_outchannel_of_filedescr(sock), - _cC_=[0,runtime.unix_inchannel_of_filedescr(sock),_cB_]; - return _cC_} - catch(exn) - {exn = caml_wrap_exception(exn);runtime.unix_close(sock);throw exn}} - function shutdown_connection(inchan) - {return runtime.unix_shutdown(runtime.caml_channel_descriptor(inchan),1)} - function accept_non_intr(s) - {for(;;) - try - {var _cz_=runtime.unix_accept(_p_,s);return _cz_} - catch(_cA_) - {_cA_ = caml_wrap_exception(_cA_); - if(_cA_[1] === Unix_error) - {var _cy_=_cA_[2]; - if(typeof _cy_ === "number")if(11 === _cy_)continue} - throw _cA_}} - function establish_server(server_fun,sockaddr) - {var sock=runtime.unix_socket(_q_,domain_of_sockaddr(sockaddr),0,0); - runtime.unix_setsockopt(0,sock,2,1); - runtime.unix_bind(sock,sockaddr); - runtime.unix_listen(sock,5); + _gB_=caml_string_get(s,pos), + color=caml_bytes_get(info[2],_gB_), + cat=category(info[1],color), + desc=delta$0(info,cat,color,st), + st$0=find_state(info[1],desc); + caml_check_bound(st[3],color)[1 + color] = st$0; + return 0} + function final$0(info,st,cat) + {try + {var _gz_=caml_call2(Stdlib_list[41],cat,st[4]);return _gz_} + catch(_gA_) + {_gA_ = caml_wrap_exception(_gA_); + if(_gA_ === Stdlib[8]) + {var + st$0=delta$0(info,cat,-1,st), + _gy_=status(st$0), + res=[0,st$0[1],_gy_]; + st[4] = [0,[0,cat,res],st[4]]; + return res} + throw _gA_}} + function find_initial_state(re,cat) + {try + {var _gw_=caml_call2(Stdlib_list[41],cat,re[2]);return _gw_} + catch(_gx_) + {_gx_ = caml_wrap_exception(_gx_); + if(_gx_ === Stdlib[8]) + {var st=find_state(re,caml_call2(_b1_[2],cat,re[1])); + re[2] = [0,[0,cat,st],re[2]]; + return st} + throw _gx_}} + function get_color(re,s,pos) + {if(0 <= pos) + {var slen=caml_ml_string_length(s); + if(slen <= pos)return -1; + if + (pos + === + (slen - 1 | 0) + && + -1 + !== + re[6] + && + 10 + === + caml_string_get(s,pos)) + return re[6]; + var _gv_=caml_string_get(s,pos); + return caml_bytes_get(re[3],_gv_)} + return -1} + function scan_str(info,s,st$8,groups) + {var pos$4=info[4],last=info[5]; + if + (last + === + caml_ml_string_length(s) + && + -1 + !== + info[1][6] + && + pos$4 + < + last + && + 10 + === + caml_string_get(s,last - 1 | 0)) + {var + info$0=[0,info[1],info[2],info[3],info[4],last - 1 | 0], + st$9=scan_str(info$0,s,st$8,groups); + if(st$9[1] === -3)return st$9; + var pos$5=last - 1 | 0; + for(;;) + {var _gs_=info$0[1][6],st$6=caml_check_bound(st$9[3],_gs_)[1 + _gs_]; + if(0 <= st$6[1]) + {if(groups) + {var _gt_=st$6[1]; + caml_check_bound(info$0[3],_gt_)[1 + _gt_] = pos$5 + 1 | 0} + return st$6} + if(st$6[1] === -3) + {if(groups) + {var _gu_=st$6[2]; + caml_check_bound(info$0[3],_gu_)[1 + _gu_] = pos$5 + 1 | 0} + return st$6} + var + color=info$0[1][6], + real_c=caml_bytes_get(info$0[2],10), + cat=category(info$0[1],color), + desc=delta$0(info$0,cat,real_c,st$9), + st$7=find_state(info$0[1],desc); + caml_check_bound(st$9[3],color)[1 + color] = st$7; + continue}} + if(groups) + {var pos=pos$4,st=st$8; + a: + for(;;) + {if(pos < info[5]) + {var + _gj_=caml_string_get(s,pos), + _gk_=caml_bytes_get(info[2],_gj_), + st$0=caml_check_bound(st[3],_gk_)[1 + _gk_], + pos$0=pos, + st$2=st, + st$1=st$0; + for(;;) + {if(0 <= st$1[1]) + {var pos$1=pos$0 + 1 | 0; + if(pos$1 < info[5]) + {var + _gl_=caml_string_get(s,pos$1), + _gm_=caml_bytes_get(info[2],_gl_), + st$3=caml_check_bound(st$1[3],_gm_)[1 + _gm_], + _gn_=st$1[1]; + caml_check_bound(info[3],_gn_)[1 + _gn_] = pos$1; + var pos$0=pos$1,st$2=st$1,st$1=st$3; + continue} + var _go_=st$1[1]; + caml_check_bound(info[3],_go_)[1 + _go_] = pos$1; + return st$1} + if(st$1[1] === -3) + {var _gp_=st$1[2]; + caml_check_bound(info[3],_gp_)[1 + _gp_] = pos$0 + 1 | 0; + return st$1} + validate(info,s,pos$0,st$2); + var pos=pos$0,st=st$2; + continue a}} + return st}} + var pos$2=pos$4,st$4=st$8; for(;;) - {var match=accept_non_intr(sock),s=match[1],id=runtime.unix_fork(0); - if(0 === id) - {if(0 !== runtime.unix_fork(0))caml_sys_exit(0); - runtime.unix_close(sock); + {if(pos$2 < last) + {var + _gq_=caml_string_get(s,pos$2), + _gr_=caml_bytes_get(info[2],_gq_), + st$5=caml_check_bound(st$4[3],_gr_)[1 + _gr_]; + if(0 <= st$5[1]) + {var pos$3=pos$2 + 1 | 0,pos$2=pos$3,st$4=st$5;continue} + if(st$5[1] === -3)return st$5; + validate(info,s,pos$2,st$4); + continue} + return st$4}} + function match_str(groups,partial,re,s,pos,len) + {var slen=caml_ml_string_length(s),last=-1 === len?slen:pos + len | 0; + if(groups) + var + n=index_count(re[7]) + 1 | 0, + _gh_=10 < n?caml_make_vect(n,0):_b3_.slice(), + _gi_=_gh_; + else + var _gi_=[0]; + var + info=[0,re,re[3],_gi_,pos,last], + initial_cat=0 === pos?33:32 | category(re,get_color(re,s,pos - 1 | 0)), + initial_state=find_initial_state(re,initial_cat), + st=scan_str(info,s,initial_state,groups), + switch$0=0; + if(st[1] !== -3 && ! partial) + {var + final_cat=last === slen?33:32 | category(re,get_color(re,s,last)), + match=final$0(info,st,final_cat), + res$0=match[2], + idx=match[1]; + if(groups)caml_check_bound(info[3],idx)[1 + idx] = last + 1 | 0; + var res=res$0; + switch$0 = 1} + if(! switch$0)var res=status(st[5]); + if(typeof res === "number")return 0 === res?0:1; + var pmarks=res[2],marks=res[1]; + return [0,[0,s,marks,pmarks,info[3],re[9]]]} + function cseq(c$0,c){return seq(c$0,c)} + function cadd(c,s){return add(c,s)} + function trans_set(cache,cm,s) + {var match=one_char(s); + if(match){var i=match[1];return csingle(caml_bytes_get(cm,i))} + var v=[0,hash_rec(s),s]; + try + {var _ge_=caml_call2(CSetMap[27],v,cache[1]);return _ge_} + catch(_gf_) + {_gf_ = caml_wrap_exception(_gf_); + if(_gf_ === Stdlib[8]) + {var + l= + fold_right + (s, + empty, + function(param,l) + {var j=param[2],i=param[1],_gg_=caml_bytes_get(cm,j); + return union(cseq(caml_bytes_get(cm,i),_gg_),l)}); + cache[1] = caml_call3(CSetMap[4],v,l,cache[1]); + return l} + throw _gf_}} + function view(t){return t} + var View=[0,view]; + function pp$5(fmt,t) + {function var$0(s,re){return sexp(fmt,s,pp$5,re)} + function seq(s,rel) + {var _gb_=0; + return sexp + (fmt, + s, + function(_gc_,_gd_) + {return pp_print_list(_gb_,pp$5,_gc_,_gd_)}, + rel)} + if(typeof t === "number") + switch(t) + {case 0:return caml_call2(_m_,fmt,cst_Beg_of_line); + case 1:return caml_call2(_m_,fmt,cst_End_of_line); + case 2:return caml_call2(_m_,fmt,cst_Beg_of_word); + case 3:return caml_call2(_m_,fmt,cst_End_of_word); + case 4:return caml_call2(_m_,fmt,cst_Not_bound); + case 5:return caml_call2(_m_,fmt,cst_Beg_of_str); + case 6:return caml_call2(_m_,fmt,cst_End_of_str); + case 7:return caml_call2(_m_,fmt,cst_Last_end_of_line); + case 8:return caml_call2(_m_,fmt,cst_Start); + default:return caml_call2(_m_,fmt,cst_Stop)} + else + switch(t[0]) + {case 0:var s=t[1];return sexp(fmt,cst_Set,pp$0,s); + case 1:var sq=t[1];return seq(cst_Sequence,sq); + case 2:var alt=t[1];return seq(cst_Alternative,alt); + case 3: var - inchan=runtime.unix_inchannel_of_filedescr(s), - outchan=runtime.unix_outchannel_of_filedescr(s); - caml_call2(server_fun,inchan,outchan); - caml_call1(Stdlib[99],0)} + stop=t[3], + start=t[2], + re=t[1], + pp= + function(fmt,param) + {return caml_call7(_bd_,fmt,_b4_,pp$5,re,start,optint,stop)}; + return sexp(fmt,cst_Repeat,pp,0); + case 4: + var re$0=t[2],sem=t[1],_f1_=[0,sem,re$0]; + return sexp + (fmt, + cst_Sem, + function(_f9_,_f__){return pair(pp_sem,pp$5,_f9_,_f__)}, + _f1_); + case 5: + var re$1=t[2],k=t[1],_f2_=[0,k,re$1]; + return sexp + (fmt, + cst_Sem_greedy, + function(_f7_,_f8_){return pair(pp_rep_kind,pp$5,_f7_,_f8_)}, + _f2_); + case 6:var c=t[1];return var$0(cst_Group$0,c); + case 7:var c$0=t[1];return var$0(cst_No_group,c$0); + case 8:var c$1=t[1];return var$0(cst_Nest,c$1); + case 9:var c$2=t[1];return var$0(cst_Case,c$2); + case 10:var c$3=t[1];return var$0(cst_No_case,c$3); + case 11:var c$4=t[1];return seq(cst_Intersection,c$4); + case 12:var c$5=t[1];return seq(cst_Complement,c$5); + case 13: + var b=t[2],a=t[1],_f3_=[0,a,b]; + return sexp + (fmt, + cst_Difference, + function(_f5_,_f6_){return pair(pp$5,pp$5,_f5_,_f6_)}, + _f3_); + default: + var r=t[2],m=t[1],_f4_=[0,m,r]; + return sexp + (fmt, + cst_Pmark, + function(_f$_,_ga_){return pair(pp$1,pp$5,_f$_,_ga_)}, + _f4_)}} + function is_charset(param) + {var param$0=param; + for(;;) + {var switch$0=0; + if(typeof param$0 === "number") + switch$0 = 1; else - {runtime.unix_close(s);waitpid_non_intr(id)} + switch(param$0[0]) + {case 0:return 1; + case 13: + var r=param$0[2],r$0=param$0[1],_f0_=is_charset(r$0); + if(_f0_){var param$0=r;continue} + return _f0_; + case 4: + case 5:var param$1=param$0[2];break; + case 2: + case 11: + case 12: + var l=param$0[1];return caml_call2(Stdlib_list[28],is_charset,l); + case 7: + case 9: + case 10:var param$1=param$0[1];break; + default:switch$0 = 1} + if(switch$0)return 0; + var param$0=param$1; continue}} - function setsid(_cx_){return runtime.unix_setsid(_cx_)} - function tcflow(_cw_,_cv_){return runtime.unix_tcflow(_cw_,_cv_)} - function tcflush(_cu_,_ct_){return runtime.unix_tcflush(_cu_,_ct_)} - function tcdrain(_cs_){return runtime.unix_tcdrain(_cs_)} - function tcsendbreak(_cr_,_cq_) - {return runtime.unix_tcsendbreak(_cr_,_cq_)} - function tcsetattr(_cp_,_co_,_cn_) - {return runtime.unix_tcsetattr(_cp_,_co_,_cn_)} - function tcgetattr(_cm_){return runtime.unix_tcgetattr(_cm_)} - function getservbyport(_cl_,_ck_) - {return runtime.unix_getservbyport(_cl_,_ck_)} - function getservbyname(_cj_,_ci_) - {return runtime.unix_getservbyname(_cj_,_ci_)} - function getprotobynumber(_ch_) - {return runtime.unix_getprotobynumber(_ch_)} - function getprotobyname(_cg_){return runtime.unix_getprotobyname(_cg_)} - function gethostbyaddr(_cf_){return runtime.unix_gethostbyaddr(_cf_)} - function gethostbyname(_ce_){return runtime.unix_gethostbyname(_ce_)} - function gethostname(_cd_){return runtime.unix_gethostname(_cd_)} - function getpeername(_cc_){return runtime.unix_getpeername(_cc_)} - function getsockname(_cb_){return runtime.unix_getsockname(_cb_)} - function shutdown(_ca_,_b$_){return runtime.unix_shutdown(_ca_,_b$_)} - function listen(_b__,_b9_){return runtime.unix_listen(_b__,_b9_)} - function connect(_b8_,_b7_){return runtime.unix_connect(_b8_,_b7_)} - function bind(_b6_,_b5_){return runtime.unix_bind(_b6_,_b5_)} - function accept(_b4_,_b3_){return runtime.unix_accept(_b4_,_b3_)} - function socketpair(_b2_,_b1_,_b0_,_bZ_) - {return runtime.unix_socketpair(_b2_,_b1_,_b0_,_bZ_)} - function socket(_bY_,_bX_,_bW_,_bV_) - {return runtime.unix_socket(_bY_,_bX_,_bW_,_bV_)} - function string_of_inet_addr(_bU_) - {return runtime.unix_string_of_inet_addr(_bU_)} - function inet_addr_of_string(_bT_){return unix_inet_addr_of_string(_bT_)} - function getgrgid(_bS_){return runtime.unix_getgrgid(_bS_)} - function getpwuid(_bR_){return runtime.unix_getpwuid(_bR_)} - function getgrnam(_bQ_){return runtime.unix_getgrnam(_bQ_)} - function getpwnam(_bP_){return runtime.unix_getpwnam(_bP_)} - function getlogin(_bO_){return runtime.unix_getlogin(_bO_)} - function initgroups(_bN_,_bM_){return runtime.unix_initgroups(_bN_,_bM_)} - function setgroups(_bL_){return runtime.unix_setgroups(_bL_)} - function getgroups(_bK_){return runtime.unix_getgroups(_bK_)} - function setgid(_bJ_){return runtime.unix_setgid(_bJ_)} - function getegid(_bI_){return runtime.unix_getegid(_bI_)} - function getgid(_bH_){return runtime.unix_getgid(_bH_)} - function setuid(_bG_){return runtime.unix_setuid(_bG_)} - function geteuid(_bF_){return runtime.unix_geteuid(_bF_)} - function getuid(_bE_){return runtime.unix_getuid(_bE_)} - function setitimer(_bD_,_bC_){return runtime.unix_setitimer(_bD_,_bC_)} - function getitimer(_bB_){return runtime.unix_getitimer(_bB_)} - function utimes(_bA_,_bz_,_by_) - {return runtime.unix_utimes(_bA_,_bz_,_by_)} - function times(_bx_){return runtime.unix_times(_bx_)} - function _r_(_bw_){return runtime.unix_sleep(_bw_)} - function alarm(_bv_){return runtime.unix_alarm(_bv_)} - var - mktime=runtime.unix_mktime, - localtime=runtime.unix_localtime, - gmtime=runtime.unix_gmtime; - function gettimeofday(_bu_){return runtime.unix_gettimeofday(_bu_)} - function time(_bt_){return runtime.unix_time(_bt_)} - function sigsuspend(_bs_){return runtime.unix_sigsuspend(_bs_)} - function sigpending(_br_){return runtime.unix_sigpending(_br_)} - function sigprocmask(_bq_,_bp_) - {return runtime.unix_sigprocmask(_bq_,_bp_)} - function kill(_bo_,_bn_){return runtime.unix_kill(_bo_,_bn_)} - function lockf(_bm_,_bl_,_bk_){return runtime.unix_lockf(_bm_,_bl_,_bk_)} - function select(_bj_,_bi_,_bh_,_bg_) - {return runtime.unix_select(_bj_,_bi_,_bh_,_bg_)} - function readlink(_bf_){return runtime.unix_readlink(_bf_)} - function has_symlink(_be_){return runtime.unix_has_symlink(_be_)} - function symlink(_bd_,_bc_,_bb_) - {return runtime.unix_symlink(_bd_,_bc_,_bb_)} - function mkfifo(_ba_,_a$_){return runtime.unix_mkfifo(_ba_,_a$_)} - function pipe(_a__,_a9_){return runtime.unix_pipe(_a__,_a9_)} - function closedir(_a8_){return runtime.unix_closedir(_a8_)} - function rewinddir(_a7_){return runtime.unix_rewinddir(_a7_)} - function readdir(_a6_){return runtime.unix_readdir(_a6_)} - function opendir(_a5_){return runtime.unix_opendir(_a5_)} - function chroot(_a4_){return runtime.unix_chroot(_a4_)} - function getcwd(_a3_){return runtime.unix_getcwd(_a3_)} - function chdir(_a2_){return runtime.unix_chdir(_a2_)} - function rmdir(_a1_){return runtime.unix_rmdir(_a1_)} - function mkdir(_a0_,_aZ_){return runtime.unix_mkdir(_a0_,_aZ_)} - function clear_close_on_exec(_aY_) - {return runtime.unix_clear_close_on_exec(_aY_)} - function set_close_on_exec(_aX_) - {return runtime.unix_set_close_on_exec(_aX_)} - function clear_nonblock(_aW_){return runtime.unix_clear_nonblock(_aW_)} - function set_nonblock(_aV_){return runtime.unix_set_nonblock(_aV_)} - function dup2(_aU_,_aT_,_aS_){return runtime.unix_dup2(_aU_,_aT_,_aS_)} - function dup(_aR_,_aQ_){return runtime.unix_dup(_aR_,_aQ_)} - function access(_aP_,_aO_){return runtime.unix_access(_aP_,_aO_)} - function umask(_aN_){return runtime.unix_umask(_aN_)} - function fchown(_aM_,_aL_,_aK_) - {return runtime.unix_fchown(_aM_,_aL_,_aK_)} - function chown(_aJ_,_aI_,_aH_){return runtime.unix_chown(_aJ_,_aI_,_aH_)} - function fchmod(_aG_,_aF_){return runtime.unix_fchmod(_aG_,_aF_)} - function chmod(_aE_,_aD_){return runtime.unix_chmod(_aE_,_aD_)} - function link(_aC_,_aB_,_aA_){return runtime.unix_link(_aC_,_aB_,_aA_)} - function rename(_az_,_ay_){return runtime.unix_rename(_az_,_ay_)} - function unlink(_ax_){return runtime.unix_unlink(_ax_)} - function _s_(_aw_){return runtime.unix_fstat_64(_aw_)} - function _t_(_av_){return runtime.unix_lstat_64(_av_)} - function _u_(_au_){return runtime.unix_stat_64(_au_)} - function _v_(_at_,_as_){return runtime.unix_ftruncate_64(_at_,_as_)} - function _w_(_ar_,_aq_){return runtime.unix_truncate_64(_ar_,_aq_)} var - LargeFile= + _b5_=cseq(216,222), + _b6_=union(cseq(192,214),_b5_), + cupper=union(cseq(65,90),_b6_), + clower=offset(32,cupper), + _b7_=union(clower,cupper), + calpha=caml_call3(Stdlib_list[22],cadd,_b8_,_b7_), + cdigit=cseq(48,57), + calnum=union(calpha,cdigit), + cword=cadd(95,calnum); + function eq_list(l1,l2) + {var l1$0=l1,l2$0=l2; + for(;;) + {if(l1$0) + {if(l2$0) + {var + r2=l2$0[2], + x2=l2$0[1], + r1=l1$0[2], + x1=l1$0[1], + _fZ_=equal$3(x1,x2); + if(_fZ_){var l1$0=r1,l2$0=r2;continue} + return _fZ_}} + else + if(! l2$0)return 1; + return 0}} + function equal$3(x1,x2) + {var x1$0=x1,x2$0=x2; + for(;;) + {var switch$0=0; + if(typeof x1$0 === "number") + switch(x1$0) + {case 0: + if(typeof x2$0 === "number" && 0 === x2$0)switch$0 = 1;break; + case 1: + if(typeof x2$0 === "number" && 1 === x2$0)switch$0 = 1;break; + case 2: + if(typeof x2$0 === "number" && 2 === x2$0)switch$0 = 1;break; + case 3: + if(typeof x2$0 === "number" && 3 === x2$0)switch$0 = 1;break; + case 4: + if(typeof x2$0 === "number" && 4 === x2$0)switch$0 = 1;break; + case 5: + if(typeof x2$0 === "number" && 5 === x2$0)switch$0 = 1;break; + case 6: + if(typeof x2$0 === "number" && 6 === x2$0)switch$0 = 1;break; + case 7: + if(typeof x2$0 === "number" && 7 === x2$0)switch$0 = 1;break; + case 8: + if(typeof x2$0 === "number" && 8 === x2$0)switch$0 = 1;break; + default:if(typeof x2$0 === "number" && 9 <= x2$0)switch$0 = 1} + else + switch(x1$0[0]) + {case 0: + if(typeof x2$0 !== "number" && 0 === x2$0[0]) + {var s2=x2$0[1],s1=x1$0[1];return caml_equal(s1,s2)} + break; + case 1: + if(typeof x2$0 !== "number" && 1 === x2$0[0]) + {var l2=x2$0[1],l1=x1$0[1];return eq_list(l1,l2)} + break; + case 2: + if(typeof x2$0 !== "number" && 2 === x2$0[0]) + {var l2$0=x2$0[1],l1$0=x1$0[1];return eq_list(l1$0,l2$0)} + break; + case 3: + if(typeof x2$0 !== "number" && 3 === x2$0[0]) + {var + j2=x2$0[3], + i2=x2$0[2], + x2$1=x2$0[1], + j1=x1$0[3], + i1=x1$0[2], + x1$1=x1$0[1], + _fS_=i1 === i2?1:0; + if(_fS_) + {var _fT_=caml_equal(j1,j2); + if(_fT_){var x1$0=x1$1,x2$0=x2$1;continue} + var _fU_=_fT_} + else + var _fU_=_fS_; + return _fU_} + break; + case 4: + if(typeof x2$0 !== "number" && 4 === x2$0[0]) + {var + x2$2=x2$0[2], + sem2=x2$0[1], + x1$2=x1$0[2], + sem1=x1$0[1], + _fV_=sem1 === sem2?1:0; + if(_fV_){var x1$0=x1$2,x2$0=x2$2;continue} + return _fV_} + break; + case 5: + if(typeof x2$0 !== "number" && 5 === x2$0[0]) + {var + x2$3=x2$0[2], + k2=x2$0[1], + x1$3=x1$0[2], + k1=x1$0[1], + _fW_=k1 === k2?1:0; + if(_fW_){var x1$0=x1$3,x2$0=x2$3;continue} + return _fW_} + break; + case 6:if(typeof x2$0 !== "number" && 6 === x2$0[0])return 0;break; + case 7: + if(typeof x2$0 !== "number" && 7 === x2$0[0]) + {var x2$4=x2$0[1],x1$4=x1$0[1],x1$0=x1$4,x2$0=x2$4;continue} + break; + case 8: + if(typeof x2$0 !== "number" && 8 === x2$0[0]) + {var x2$5=x2$0[1],x1$5=x1$0[1],x1$0=x1$5,x2$0=x2$5;continue} + break; + case 9: + if(typeof x2$0 !== "number" && 9 === x2$0[0]) + {var x2$6=x2$0[1],x1$6=x1$0[1],x1$0=x1$6,x2$0=x2$6;continue} + break; + case 10: + if(typeof x2$0 !== "number" && 10 === x2$0[0]) + {var x2$7=x2$0[1],x1$7=x1$0[1],x1$0=x1$7,x2$0=x2$7;continue} + break; + case 11: + if(typeof x2$0 !== "number" && 11 === x2$0[0]) + {var l2$1=x2$0[1],l1$1=x1$0[1];return eq_list(l1$1,l2$1)} + break; + case 12: + if(typeof x2$0 !== "number" && 12 === x2$0[0]) + {var l2$2=x2$0[1],l1$2=x1$0[1];return eq_list(l1$2,l2$2)} + break; + case 13: + if(typeof x2$0 !== "number" && 13 === x2$0[0]) + {var + x2$8=x2$0[2], + x2$9=x2$0[1], + x1$8=x1$0[2], + x1$9=x1$0[1], + _fX_=equal$3(x1$9,x2$9); + if(_fX_){var x1$0=x1$8,x2$0=x2$8;continue} + return _fX_} + break; + default: + if(typeof x2$0 !== "number" && 14 === x2$0[0]) + {var + r2=x2$0[2], + m2=x2$0[1], + r1=x1$0[2], + m1=x1$0[1], + _fY_=m1 === m2?1:0; + if(_fY_){var x1$0=r1,x2$0=r2;continue} + return _fY_}} + return switch$0?1:0}} + function sequence(l){if(l && ! l[2]){var x=l[1];return x}return [1,l]} + function merge_sequences(param) + {var param$0=param; + for(;;) + {if(param$0) + {var _fN_=param$0[1]; + if(typeof _fN_ !== "number") + switch(_fN_[0]) + {case 1: + var _fO_=_fN_[1]; + if(_fO_) + {var + r$0=param$0[2], + y=_fO_[2], + x=_fO_[1], + r$1=merge_sequences(r$0); + if(r$1) + {var _fP_=r$1[1],switch$0=0; + if(typeof _fP_ === "number" || ! (1 === _fP_[0])) + switch$0 = 1; + else + {var _fQ_=_fP_[1]; + if(_fQ_) + {var r$2=r$1[2],y$0=_fQ_[2],x$0=_fQ_[1]; + if(equal$3(x,x$0)) + {var _fR_=[0,sequence(y$0),0]; + return [0,[1,[0,x,[0,[2,[0,sequence(y),_fR_]],0]]],r$2]}}}} + return [0,[1,[0,x,y]],r$1]} + break; + case 2: + var + r$3=param$0[2], + l=_fN_[1], + param$1=caml_call2(Stdlib[37],l,r$3), + param$0=param$1; + continue + } + var r=param$0[2]; + return [0,_fN_,merge_sequences(r)]} + return 0}} + function enforce_kind(ids,kind,k,cr) + {return 332064784 === kind?332064784 === k?cr:seq$0(ids,k,cr,eps(ids)):cr} + function translate(ids,kind,ign_group,ign_case,greedy,pos,cache,c,param) + {var ign_group$0=ign_group,greedy$0=greedy,param$0=param; + for(;;) + if(typeof param$0 === "number") + switch(param$0) + {case 0:return [0,after(ids,9),kind]; + case 1:return [0,before(ids,9),kind]; + case 2: + var _fE_=before(ids,3); + return [0,seq$0(ids,332064784,after(ids,5),_fE_),kind]; + case 3: + var _fF_=before(ids,5); + return [0,seq$0(ids,332064784,after(ids,3),_fF_),kind]; + case 4: + var + _fG_=before(ids,letter), + _fH_=[0,seq$0(ids,332064784,after(ids,letter),_fG_),0], + _fI_=before(ids,letter); + return [0, + alt + (ids,[0,seq$0(ids,332064784,after(ids,letter),_fI_),_fH_]), + kind]; + case 5:return [0,after(ids,inexistant),kind]; + case 6:return [0,before(ids,inexistant),kind]; + case 7:return [0,before(ids,17),kind]; + case 8:return [0,after(ids,search_boundary),kind]; + default:return [0,before(ids,search_boundary),kind]} + else + switch(param$0[0]) + {case 0: + var s=param$0[1];return [0,cst(ids,trans_set(cache,c,s)),kind]; + case 1: + var l=param$0[1]; + return [0, + trans_seq + (ids,kind,ign_group$0,ign_case,greedy$0,pos,cache,c,l), + kind]; + case 2: + var l$0=param$0[1],merged_sequences=merge_sequences(l$0); + if(merged_sequences && ! merged_sequences[2]) + {var + r=merged_sequences[1], + match= + translate(ids,kind,ign_group$0,ign_case,greedy$0,pos,cache,c,r), + kind$0=match[2], + cr=match[1]; + return [0,enforce_kind(ids,kind,kind$0,cr),kind]} + var + _fJ_= + function(r) + {var + match= + translate + (ids,kind,ign_group$0,ign_case,greedy$0,pos,cache,c,r), + kind$0=match[2], + cr=match[1]; + return enforce_kind(ids,kind,kind$0,cr)}; + return [0, + alt(ids,caml_call2(Stdlib_list[17],_fJ_,merged_sequences)), + kind]; + case 3: + var + j=param$0[3], + i=param$0[2], + r$0=param$0[1], + match$0= + translate(ids,kind,ign_group$0,ign_case,greedy$0,pos,cache,c,r$0), + kind$1=match$0[2], + cr$0=match$0[1]; + if(j) + var + j$0=j[1], + f= + 620821490 <= greedy$0 + ?function(rem) + {var _fL_=[0,seq$0(ids,kind$1,rename(ids,cr$0),rem),0]; + return alt(ids,[0,eps(ids),_fL_])} + :function(rem) + {var _fM_=[0,eps(ids),0]; + return alt + (ids,[0,seq$0(ids,kind$1,rename(ids,cr$0),rem),_fM_])}, + rem=iter$0(j$0 - i | 0,f,eps(ids)); + else + var rem=rep(ids,greedy$0,kind$1,cr$0); + return [0, + iter$0 + (i, + function(rem){return seq$0(ids,kind$1,rename(ids,cr$0),rem)}, + rem), + kind]; + case 4: + var + r$1=param$0[2], + kind$2=param$0[1], + match$1= + translate + (ids,kind$2,ign_group$0,ign_case,greedy$0,pos,cache,c,r$1), + kind$3=match$1[2], + cr$1=match$1[1]; + return [0,enforce_kind(ids,kind$2,kind$3,cr$1),kind$2]; + case 5: + var + param$1=param$0[2], + greedy$1=param$0[1], + greedy$0=greedy$1, + param$0=param$1; + continue; + case 6: + var r$2=param$0[1]; + if(ign_group$0){var param$0=r$2;continue} + var p=pos[1]; + pos[1] = pos[1] + 2 | 0; + var + match$2= + translate(ids,kind,ign_group$0,ign_case,greedy$0,pos,cache,c,r$2), + kind$4=match$2[2], + cr$2=match$2[1], + _fK_=seq$0(ids,332064784,cr$2,mark(ids,p + 1 | 0)); + return [0,seq$0(ids,332064784,mark(ids,p),_fK_),kind$4]; + case 7: + var param$2=param$0[1],ign_group$0=1,param$0=param$2;continue; + case 8: + var + r$3=param$0[1], + b=pos[1], + match$3= + translate(ids,kind,ign_group$0,ign_case,greedy$0,pos,cache,c,r$3), + kind$5=match$3[2], + cr$3=match$3[1], + e=pos[1] - 1 | 0; + return e < b + ?[0,cr$3,kind$5] + :[0,seq$0(ids,332064784,erase(ids,b,e),cr$3),kind$5]; + case 14: + var + r$4=param$0[2], + i$0=param$0[1], + match$4= + translate(ids,kind,ign_group$0,ign_case,greedy$0,pos,cache,c,r$4), + kind$6=match$4[2], + cr$4=match$4[1]; + return [0,seq$0(ids,332064784,pmark(ids,i$0),cr$4),kind$6]; + default:throw [0,Assert_failure,_b__]}} + function trans_seq(ids,kind,ign_group,ign_case,greedy,pos,cache,c,param) + {if(param) + {var _fC_=param[2],_fD_=param[1]; + if(_fC_) + {var + match= + translate(ids,kind,ign_group,ign_case,greedy,pos,cache,c,_fD_), + kind$0=match[2], + cr=match[1], + cr$0=trans_seq(ids,kind,ign_group,ign_case,greedy,pos,cache,c,_fC_); + return is_eps(cr$0)?cr:is_eps(cr)?cr$0:seq$0(ids,kind$0,cr,cr$0)} + var + match$0= + translate(ids,kind,ign_group,ign_case,greedy,pos,cache,c,_fD_), + kind$1=match$0[2], + cr$1=match$0[1]; + return enforce_kind(ids,kind,kind$1,cr$1)} + return eps(ids)} + function as_set(param) + {if(typeof param !== "number" && 0 === param[0]){var s=param[1];return s} + throw [0,Assert_failure,_b$_]} + function handle_case(ign_case,r) + {var ign_case$0=ign_case,r$0=r; + for(;;) + if(typeof r$0 === "number") + return r$0; + else + switch(r$0[0]) + {case 0: + var s=r$0[1]; + if(ign_case$0) + var + _fq_=offset(-32,inter(s,clower)), + _fr_=union(s,union(offset(32,inter(s,cupper)),_fq_)); + else + var _fr_=s; + return [0,_fr_]; + case 1: + var + l=r$0[1], + _fs_=function(_fB_){return handle_case(ign_case$0,_fB_)}; + return [1,caml_call2(Stdlib_list[17],_fs_,l)]; + case 2: + var + l$0=r$0[1], + _ft_=function(_fA_){return handle_case(ign_case$0,_fA_)}, + l$1=caml_call2(Stdlib_list[17],_ft_,l$0); + if(is_charset([2,l$1])) + {var _fu_=function(s,r){return union(s,as_set(r))}; + return [0,caml_call3(Stdlib_list[21],_fu_,empty,l$1)]} + return [2,l$1]; + case 3: + var j=r$0[3],i=r$0[2],r$1=r$0[1]; + return [3,handle_case(ign_case$0,r$1),i,j]; + case 4: + var r$2=r$0[2],k=r$0[1],r$3=handle_case(ign_case$0,r$2); + return is_charset(r$3)?r$3:[4,k,r$3]; + case 5: + var r$4=r$0[2],k$0=r$0[1],r$5=handle_case(ign_case$0,r$4); + return is_charset(r$5)?r$5:[5,k$0,r$5]; + case 6:var r$6=r$0[1];return [6,handle_case(ign_case$0,r$6)]; + case 7: + var r$7=r$0[1],r$8=handle_case(ign_case$0,r$7); + return is_charset(r$8)?r$8:[7,r$8]; + case 8: + var r$9=r$0[1],r$10=handle_case(ign_case$0,r$9); + return is_charset(r$10)?r$10:[8,r$10]; + case 9:var r$11=r$0[1],ign_case$0=0,r$0=r$11;continue; + case 10:var r$12=r$0[1],ign_case$0=1,r$0=r$12;continue; + case 11: + var + l$2=r$0[1], + _fv_=function(r){return handle_case(ign_case$0,r)}, + l$3=caml_call2(Stdlib_list[17],_fv_,l$2), + _fw_=function(s,r){return inter(s,as_set(r))}; + return [0,caml_call3(Stdlib_list[21],_fw_,cany,l$3)]; + case 12: + var + l$4=r$0[1], + _fx_=function(r){return handle_case(ign_case$0,r)}, + l$5=caml_call2(Stdlib_list[17],_fx_,l$4), + _fy_=function(s,r){return union(s,as_set(r))}; + return [0,diff(cany,caml_call3(Stdlib_list[21],_fy_,empty,l$5))]; + case 13: + var + r$13=r$0[2], + r$14=r$0[1], + _fz_=diff(cany,as_set(handle_case(ign_case$0,r$13))); + return [0,inter(as_set(handle_case(ign_case$0,r$14)),_fz_)]; + default: + var r$15=r$0[2],i$0=r$0[1]; + return [14,i$0,handle_case(ign_case$0,r$15)]}} + function anchored(param) + {var param$0=param; + for(;;) + {var switch$0=0; + if(typeof param$0 === "number") + switch(param$0){case 5:case 8:return 1} + else + switch(param$0[0]) + {case 1: + var l=param$0[1];return caml_call2(Stdlib_list[29],anchored,l); + case 2: + var l$0=param$0[1]; + return caml_call2(Stdlib_list[28],anchored,l$0); + case 3: + var i=param$0[2],r=param$0[1],_fp_=0 < i?1:0; + if(_fp_){var param$0=r;continue} + return _fp_; + case 4: + case 5: + case 14:var param$1=param$0[2];switch$0 = 1;break; + case 0: + case 11: + case 12: + case 13:break; + default:var param$1=param$0[1];switch$0 = 1} + if(switch$0){var param$0=param$1;continue} + return 0}} + function str(s) + {var l=[0,0],_fm_=caml_ml_string_length(s) - 1 | 0; + if(! (_fm_ < 0)) + {var i=_fm_; + for(;;) + {var _fn_=l[1]; + l[1] = [0,[0,csingle(caml_string_get(s,i))],_fn_]; + var _fo_=i - 1 | 0; + if(0 !== i){var i=_fo_;continue} + break}} + return [1,l[1]]} + function char$0(c){return [0,csingle(c)]} + function alt$0(l){if(l && ! l[2]){var r=l[1];return r}return [2,l]} + function seq$1(l){if(l && ! l[2]){var r=l[1];return r}return [1,l]} + var empty$2=alt$0(0),epsilon=seq$1(0); + function repn(r,i,j) + {if(i < 0)caml_call1(Stdlib[1],cst_Re_repn); + var switch$0=0; + if(j) + {var j$0=j[1]; + if(j$0 < i){caml_call1(Stdlib[1],cst_Re_repn$0);switch$0 = 1}} + return [3,r,i,j]} + function rep$0(r){return repn(r,0,0)} + function rep1(r){return repn(r,1,0)} + function opt(r){return repn(r,0,_ca_)} + var bol=0,eol=1,bow=2,eow=3; + function word(r){return seq$1([0,bow,[0,r,[0,eow,0]]])} + var not_boundary=4,bos=5,eos=6; + function whole_string(r){return seq$1([0,bos,[0,r,[0,eos,0]]])} + var leol=7,start$0=8,stop$0=9; + function longest(r){return [4,-730718166,r]} + function shortest(r){return [4,-1034406550,r]} + function first$0(r){return [4,332064784,r]} + function greedy(r){return [5,-904640576,r]} + function non_greedy(r){return [5,620821490,r]} + function group(r){return [6,r]} + function no_group(r){return [7,r]} + function nest(r){return [8,r]} + function mark$0(r){var i=gen(0);return [0,i,[14,i,r]]} + function set(str) + {var s=[0,empty],_fj_=caml_ml_string_length(str) - 1 | 0,_fi_=0; + if(! (_fj_ < 0)) + {var i=_fi_; + for(;;) + {var _fk_=s[1]; + s[1] = union(csingle(caml_string_get(str,i)),_fk_); + var _fl_=i + 1 | 0; + if(_fj_ !== i){var i=_fl_;continue} + break}} + return [0,s[1]]} + function rg(c$0,c){return [0,cseq(c$0,c)]} + function inter$0(l) + {var r=[11,l];return is_charset(r)?r:caml_call1(Stdlib[1],cst_Re_inter)} + function compl(l) + {var r=[12,l];return is_charset(r)?r:caml_call1(Stdlib[1],cst_Re_compl)} + function diff$0(r$0,r) + {var r$1=[13,r$0,r]; + return is_charset(r$1)?r$1:caml_call1(Stdlib[1],cst_Re_diff)} + var + any=[0,cany], + notnl=[0,diff(cany,csingle(10))], + _cb_=[0,rg(248,255),0], + _cc_=[0,rg(223,246),_cb_], + _cd_=[0,char$0(181),_cc_], + lower=alt$0([0,rg(97,122),_cd_]), + _ce_=[0,rg(216,222),0], + _cf_=[0,rg(192,214),_ce_], + upper=alt$0([0,rg(65,90),_cf_]), + _cg_=[0,char$0(186),0], + alpha=alt$0([0,lower,[0,upper,[0,char$0(170),_cg_]]]), + digit=rg(48,57), + alnum=alt$0([0,alpha,[0,digit,0]]), + wordc=alt$0([0,alnum,[0,char$0(95),0]]), + ascii=rg(0,127), + blank=set(cst$0), + _ch_=[0,rg(127,159),0], + cntrl=alt$0([0,rg(0,31),_ch_]), + _ci_=[0,rg(160,255),0], + graph=alt$0([0,rg(33,126),_ci_]), + _cj_=[0,rg(160,255),0], + print=alt$0([0,rg(32,126),_cj_]), + _ck_=[0,char$0(247),0], + _cl_=[0,char$0(215),_ck_], + _cm_=[0,rg(187,191),_cl_], + _cn_=[0,rg(182,185),_cm_], + _co_=[0,rg(171,180),_cn_], + _cp_=[0,rg(160,169),_co_], + _cq_=[0,rg(123,126),_cp_], + _cr_=[0,rg(91,96),_cq_], + _cs_=[0,rg(58,64),_cr_], + punct=alt$0([0,rg(33,47),_cs_]), + _ct_=[0,rg(9,13),0], + space=alt$0([0,char$0(32),_ct_]), + _cu_=[0,rg(65,70),0], + xdigit=alt$0([0,digit,[0,rg(97,102),_cu_]]); + function case$0(r){return [9,r]} + function no_case(r){return [10,r]} + function compile(r$0) + {var + _fh_= + anchored(r$0)?[6,r$0]:seq$1([0,shortest(rep$0(any)),[0,[6,r$0],0]]), + regexp=handle_case(0,_fh_), + c=make(0), + lnl=[0,0]; + function colorize(regexp) + {var regexp$0=regexp; + for(;;) + {if(typeof regexp$0 === "number") + switch(regexp$0) + {case 7:lnl[1] = 1;return 0; + case 0: + case 1:return split(csingle(10),c); + case 2: + case 3: + case 4:return split(cword,c); + default:return 0} + else + switch(regexp$0[0]) + {case 0:var s=regexp$0[1];return split(s,c); + case 1: + var l=regexp$0[1];return caml_call2(Stdlib_list[15],colorize,l); + case 2: + var l$0=regexp$0[1]; + return caml_call2(Stdlib_list[15],colorize,l$0); + case 3:var regexp$1=regexp$0[1],regexp$0=regexp$1;continue; + case 4: + case 5: + case 14:var regexp$2=regexp$0[2];break; + case 6: + case 7: + case 8:var regexp$2=regexp$0[1];break; + default:throw [0,Assert_failure,_b9_]} + var regexp$0=regexp$2; + continue}} + colorize(regexp); + var + _fg_=lnl[1], + match=flatten(c), + ncolor=match[3], + color_repr=match[2], + colors=match[1], + lnl$0=_fg_?ncolor:-1, + ncolor$0=_fg_?ncolor + 1 | 0:ncolor, + ids=create_ids(0), + pos=[0,0], + match$0= + translate + (ids,332064784,0,0,-904640576,pos,[0,CSetMap[1]],colors,regexp), + kind=match$0[2], + r=match$0[1], + initial=enforce_kind(ids,332064784,kind,r), + group_count=pos[1] / 2 | 0, + _ff_=caml_call1(_b1_[3][1],97); + return [0, + initial, + 0, + colors, + color_repr, + ncolor$0, + lnl$0, + create_working_area(0), + _ff_, + group_count]} + function exec_internal(name,opt,_fb_,partial,groups,re,s) + {if(opt)var sth=opt[1],pos=sth;else var pos=0; + if(_fb_)var sth$0=_fb_[1],len=sth$0;else var len=-1; + var _fc_=pos < 0?1:0; + if(_fc_) + var _fd_=_fc_; + else + var + _fe_=len < -1?1:0, + _fd_=_fe_ || (caml_ml_string_length(s) < (pos + len | 0)?1:0); + if(_fd_)caml_call1(Stdlib[1],name); + return match_str(groups,partial,re,s,pos,len)} + function exec(pos,len,re,s) + {var match=exec_internal(cst_Re_exec,pos,len,0,1,re,s); + if(typeof match === "number")throw Stdlib[8]; + var substr=match[1]; + return substr} + function exec_opt(pos,len,re,s) + {var match=exec_internal(cst_Re_exec_opt,pos,len,0,1,re,s); + if(typeof match === "number")return 0; + var substr=match[1]; + return [0,substr]} + function execp(pos,len,re,s) + {var match=exec_internal(cst_Re_execp,pos,len,0,0,re,s); + return typeof match === "number"?0:1} + function exec_partial(pos,len,re,s) + {var match=exec_internal(cst_Re_exec_partial,pos,len,1,0,re,s); + return typeof match === "number" + ?0 === match?-1062743954:939392865 + :782112175} + function marked(g,p){return caml_call2(Set[3],p,g[3])} + function mark_set(g){return g[3]} + function all_seq(opt,len,re,s) + {if(opt)var sth=opt[1],pos=sth;else var pos=0; + if(pos < 0)caml_call1(Stdlib[1],cst_Re_all); + if(len) + {var + l=len[1], + _e9_=l < 0?1:0, + _e__=_e9_ || (caml_ml_string_length(s) < (pos + l | 0)?1:0); + if(_e__)caml_call1(Stdlib[1],cst_Re_all$0); + var limit=pos + l | 0} + else + var limit=caml_ml_string_length(s); + function aux(pos,param) + {if(limit <= pos)return 0; + var match=match_str(1,0,re,s,pos,limit - pos | 0); + if(typeof match === "number")return 0; + var + substr=match[1], + match$0=caml_call2(Group[2],substr,0), + p2=match$0[2], + p1=match$0[1], + pos$0=p1 === p2?p2 + 1 | 0:p2; + return [0,substr,function(_fa_){return aux(pos$0,_fa_)}]} + return function(_e$_){return aux(pos,_e$_)}} + function matches_seq(pos,len,re,s) + {var _e7_=all_seq(pos,len,re,s); + function _e8_(sub){return caml_call2(Group[1],sub,0)} + return caml_call2(Stdlib_seq[3],_e8_,_e7_)} + function split_full_seq(opt,len,re,s) + {if(opt)var sth=opt[1],pos=sth;else var pos=0; + if(pos < 0)caml_call1(Stdlib[1],cst_Re_split); + if(len) + {var + l=len[1], + _eW_=l < 0?1:0, + _eX_=_eW_ || (caml_ml_string_length(s) < (pos + l | 0)?1:0); + if(_eX_)caml_call1(Stdlib[1],cst_Re_split$0); + var limit=pos + l | 0} + else + var limit=caml_ml_string_length(s); + function aux(state,i,pos$0,param) + {if(typeof state === "number") + {if(limit <= pos$0) + {if(i < limit) + {var + sub=caml_call3(Stdlib_string[4],s,i,limit - i | 0), + _e0_=i + 1 | 0; + return [0, + [0,936573133,sub], + function(_e6_){return aux(state,_e0_,pos$0,_e6_)}]} + return 0} + var match=match_str(1,0,re,s,pos$0,limit - pos$0 | 0); + if(typeof match === "number") + {if(0 === match) + {if(i < limit) + {var text=caml_call3(Stdlib_string[4],s,i,limit - i | 0); + return [0, + [0,936573133,text], + function(_e5_){return aux(state,limit,pos$0,_e5_)}]} + return 0} + return 0} + var + substr=match[1], + match$0=caml_call2(Group[2],substr,0), + p2=match$0[2], + p1=match$0[1], + pos$1=p1 === p2?p2 + 1 | 0:p2; + if(pos < p1) + {var + text$0=caml_call3(Stdlib_string[4],s,i,p1 - i | 0), + state$0=[0,73271853,[0,-363573681,substr]]; + return [0, + [0,936573133,text$0], + function(_e4_){return aux(state$0,p2,pos$1,_e4_)}]} + return [0, + [0,-363573681,substr], + function(_e3_){return aux(state,p2,pos$1,_e3_)}]} + var x=state[2],_e1_=814535476; + return [0,x,function(_e2_){return aux(_e1_,i,pos$0,_e2_)}]} + var _eY_=814535476; + return function(_eZ_){return aux(_eY_,pos,pos,_eZ_)}} + function split_seq(pos,len,re,s) + {var seq=split_full_seq(pos,len,re,s); + function filter(seq,param) + {var seq$0=seq; + for(;;) + {var match=caml_call1(seq$0,0); + if(match) + {var _eU_=match[1]; + if(936573133 <= _eU_[1]) + {var tl=match[2],s=_eU_[2]; + return [0,s,function(_eV_){return filter(tl,_eV_)}]} + var seq$1=match[2],seq$0=seq$1; + continue} + return 0}} + return function(_eT_){return filter(seq,_eT_)}} + function list_of_seq(s) + {var _eQ_=0; + function _eR_(l,x){return [0,x,l]} + var _eS_=caml_call3(Stdlib_seq[7],_eR_,_eQ_,s); + return caml_call1(Stdlib_list[9],_eS_)} + function all$0(pos,len,re,s){return list_of_seq(all_seq(pos,len,re,s))} + function matches(pos,len,re,s) + {return list_of_seq(matches_seq(pos,len,re,s))} + function split_full(pos,len,re,s) + {return list_of_seq(split_full_seq(pos,len,re,s))} + function split$0(pos,len,re,s) + {return list_of_seq(split_seq(pos,len,re,s))} + function gen_of_seq(s) + {var r=[0,s]; + return function(param) + {var match=caml_call1(r[1],0); + if(match){var tl=match[2],x=match[1];r[1] = tl;return [0,x]} + return 0}} + function split_gen(pos,len,re,s) + {return gen_of_seq(split_seq(pos,len,re,s))} + function split_full_gen(pos,len,re,s) + {return gen_of_seq(split_full_seq(pos,len,re,s))} + function all_gen(pos,len,re,s){return gen_of_seq(all_seq(pos,len,re,s))} + function matches_gen(pos,len,re,s) + {return gen_of_seq(matches_seq(pos,len,re,s))} + function replace(opt,len,_eM_,re,f,s) + {if(opt)var sth=opt[1],pos=sth;else var pos=0; + if(_eM_)var sth$0=_eM_[1],all=sth$0;else var all=1; + if(pos < 0)caml_call1(Stdlib[1],cst_Re_replace); + if(len) + {var + l=len[1], + _eN_=l < 0?1:0, + _eO_=_eN_ || (caml_ml_string_length(s) < (pos + l | 0)?1:0); + if(_eO_)caml_call1(Stdlib[1],cst_Re_replace$0); + var limit=pos + l | 0} + else + var limit=caml_ml_string_length(s); + var buf=caml_call1(Stdlib_buffer[1],caml_ml_string_length(s)),pos$0=pos; + for(;;) + {if(pos$0 < limit) + {var match=match_str(1,0,re,s,pos$0,limit - pos$0 | 0); + if(typeof match === "number") + {if(0 === match) + caml_call4(Stdlib_buffer[16],buf,s,pos$0,limit - pos$0 | 0)} + else + {var + substr=match[1], + match$0=caml_call2(Group[2],substr,0), + p2=match$0[2], + p1=match$0[1]; + caml_call4(Stdlib_buffer[16],buf,s,pos$0,p1 - pos$0 | 0); + var replacing=caml_call1(f,substr); + caml_call2(Stdlib_buffer[14],buf,replacing); + if(all) + {if(p1 === p2) + {if(p2 < limit) + {var _eP_=caml_string_get(s,p2); + caml_call2(Stdlib_buffer[10],buf,_eP_)} + var pos$1=p2 + 1 | 0} + else + var pos$1=p2; + var pos$0=pos$1; + continue} + caml_call4(Stdlib_buffer[16],buf,s,p2,limit - p2 | 0)}} + return caml_call1(Stdlib_buffer[2],buf)}} + function replace_string(pos,len,all,re,by,s) + {return replace(pos,len,all,re,function(param){return by},s)} + function witness(t) + {function witness(param) + {var param$0=param; + for(;;) + {if(typeof param$0 === "number") + return cst$1; + else + switch(param$0[0]) + {case 0: + var + c=param$0[1], + _eG_=pick(c), + _eH_=caml_call1(Stdlib_char[1],_eG_); + return caml_call2(Stdlib_string[1],1,_eH_); + case 1: + var xs=param$0[1],_eI_=caml_call2(Stdlib_list[17],witness,xs); + return caml_call2(Stdlib_string[7],cst$2,_eI_); + case 2: + var _eJ_=param$0[1]; + if(_eJ_){var param$1=_eJ_[1],param$0=param$1;continue} + throw [0,Assert_failure,_cv_]; + case 3: + var + from=param$0[2], + r=param$0[1], + w=witness(r), + b= + caml_call1 + (Stdlib_buffer[1], + runtime.caml_mul(caml_ml_string_length(w),from)), + _eK_=1; + if(! (from < 1)) + {var i=_eK_; + for(;;) + {caml_call2(Stdlib_buffer[14],b,w); + var _eL_=i + 1 | 0; + if(from !== i){var i=_eL_;continue} + break}} + return caml_call1(Stdlib_buffer[2],b); + case 10:var param$3=param$0[1],param$0=param$3;continue; + case 4: + case 5: + case 14:var param$2=param$0[2];break; + case 11: + case 12: + case 13:throw [0,Assert_failure,_cw_]; + default:var param$2=param$0[1]} + var param$0=param$2; + continue}} + return witness(handle_case(0,t))} + var + get$0=Group[1], + get_ofs=Group[2], + get_all=Group[5], + get_all_ofs=Group[6], + test$0=Group[7], + Seq=[0,all_seq,matches_seq,split_seq,split_full_seq], + Mark=[0,marked,Set,mark_set,equal$0,compare$1], + include$0= [0, - function(_ap_,_ao_,_an_){return runtime.unix_lseek_64(_ap_,_ao_,_an_)}, - _w_, - _v_, - _u_, - _t_, - _s_]; - function isatty(_am_){return runtime.unix_isatty(_am_)} - function fstat(_al_){return runtime.unix_fstat(_al_)} - function lstat(_ak_){return runtime.unix_lstat(_ak_)} - function stat(_aj_){return runtime.unix_stat(_aj_)} - function ftruncate(_ai_,_ah_){return runtime.unix_ftruncate(_ai_,_ah_)} - function truncate(_ag_,_af_){return runtime.unix_truncate(_ag_,_af_)} - function lseek(_ae_,_ad_,_ac_){return runtime.unix_lseek(_ae_,_ad_,_ac_)} - function descr_of_out_channel(_ab_) - {return runtime.caml_channel_descriptor(_ab_)} - function descr_of_in_channel(_aa_) - {return runtime.caml_channel_descriptor(_aa_)} - function out_channel_of_descr(_$_) - {return runtime.unix_outchannel_of_filedescr(_$_)} - function in_channel_of_descr(___) - {return runtime.unix_inchannel_of_filedescr(___)} - function _x_(_Z_){return runtime.unix_fsync(_Z_)} - function close(_Y_){return runtime.unix_close(_Y_)} - function openfile(_X_,_W_,_V_){return runtime.unix_open(_X_,_W_,_V_)} - function nice(_U_){return runtime.unix_nice(_U_)} - function getppid(_T_){return runtime.unix_getppid(_T_)} - function getpid(_S_){return runtime.unix_getpid(_S_)} - function waitpid(_R_,_Q_){return runtime.unix_waitpid(_R_,_Q_)} - function wait(_P_){return runtime.unix_wait(_P_)} - function fork(_O_){return runtime.unix_fork(_O_)} - function execvp(_N_,_M_){return runtime.unix_execvp(_N_,_M_)} - function execve(_L_,_K_,_J_){return runtime.unix_execve(_L_,_K_,_J_)} - function execv(_I_,_H_){return runtime.unix_execv(_I_,_H_)} - function putenv(_G_,_F_){return runtime.unix_putenv(_G_,_F_)} - function unsafe_getenv(_E_){return runtime.caml_sys_unsafe_getenv(_E_)} - var getenv=runtime.caml_sys_getenv; - function _y_(_D_){return runtime.unix_environment_unsafe(_D_)} - function environment(_C_){return runtime.unix_environment(_C_)} - function error_message(_B_){return runtime.unix_error_message(_B_)} - var - include= + Group, + compile, + exec, + exec_opt, + execp, + exec_partial, + Mark, + Seq, + all$0, + all_gen, + all_seq, + matches, + matches_gen, + matches_seq, + split$0, + split_gen, + split_seq, + split_full, + split_full_gen, + split_full_seq, + replace, + replace_string, + str, + char$0, + alt$0, + seq$1, + empty$2, + epsilon, + rep$0, + rep1, + repn, + opt, + bol, + eol, + bow, + eow, + bos, + eos, + leol, + start$0, + stop$0, + word, + not_boundary, + whole_string, + longest, + shortest, + first$0, + greedy, + non_greedy, + group, + no_group, + nest, + mark$0, + set, + rg, + inter$0, + diff$0, + compl, + any, + notnl, + alnum, + wordc, + alpha, + ascii, + blank, + cntrl, + digit, + graph, + lower, + print, + punct, + space, + upper, + xdigit, + case$0, + no_case, + pp$5, + print_re, + print_re, + View, + witness, + get$0, + get_ofs, + get_all, + get_all_ofs, + test$0, + marked, + mark_set]; + caml_register_global(155,include$0,"Re__Core"); + var + Parse_error=[248,cst_Re_Emacs_Parse_error,caml_fresh_oo_id(0)], + Not_supported=[248,cst_Re_Emacs_Not_supported,caml_fresh_oo_id(0)]; + function re(opt$0,s) + {if(opt$0)var sth=opt$0[1],case$0=sth;else var case$0=1; + var i=[0,0],l=caml_ml_string_length(s); + function eos$0(param){return i[1] === l?1:0} + function test2(c$0,c) + {var _eD_=(i[1] + 1 | 0) < l?1:0; + if(_eD_) + var + _eE_=caml_string_get(s,i[1]) === c$0?1:0, + _eF_=_eE_?caml_string_get(s,i[1] + 1 | 0) === c?1:0:_eE_; + else + var _eF_=_eD_; + return _eF_} + function accept(c) + {var + _eB_=1 - eos$0(0), + _eC_=_eB_?caml_string_get(s,i[1]) === c?1:0:_eB_; + if(_eC_)i[1]++; + return _eC_} + function accept2(c$0,c) + {var r=test2(c$0,c);if(r)i[1] = i[1] + 2 | 0;return r} + function get(param){var r=caml_string_get(s,i[1]);i[1]++;return r} + function regexp(param) + {var left=branch(0),left$0=left; + for(;;) + {if(accept2(92,124)) + {var left$1=alt$0([0,left$0,[0,branch(0),0]]),left$0=left$1; + continue} + return left$0}} + function branch(param) + {var left=0; + for(;;) + {if(! eos$0(0) && ! test2(92,124) && ! test2(92,41)) + {if(accept(46)) + var r=notnl; + else + if(accept(94)) + var r=bol; + else + if(accept(36)) + var r=eol; + else + if(accept(91)) + var r=accept(94)?compl(bracket(0)):alt$0(bracket(0)); + else + if(accept(92)) + if(accept(40)) + {var r$0=regexp(0); + if(1 - accept2(92,41))throw Parse_error; + var r=[6,r$0]} + else + if(accept(96)) + var r=bos; + else + if(accept(39)) + var r=eos; + else + if(accept(61)) + var r=start$0; + else + if(accept(98)) + var r=alt$0([0,bow,[0,eow,0]]); + else + if(accept(66)) + var r=not_boundary; + else + if(accept(60)) + var r=bow; + else + if(accept(62)) + var r=eow; + else + if(accept(119)) + var r=alt$0([0,alnum,[0,char$0(95),0]]); + else + if(accept(87)) + var r=compl([0,alnum,[0,char$0(95),0]]); + else + {if(eos$0(0))throw Parse_error; + var c=get(0),switch$0=0; + if(63 <= c) + {if(91 <= c) + {if(! (95 <= c))switch$0 = 1} + else + if(! (64 <= c))switch$0 = 1} + else + if(48 <= c) + {if(! (58 <= c))throw Not_supported} + else + if(36 <= c) + switch(c - 36 | 0) + {case 0:case 6:case 7:case 10:switch$0 = 1;break} + if(! switch$0)throw Parse_error; + var r=char$0(c)} + else + {if(eos$0(0))throw Parse_error; + var c$0=get(0),switch$1=0; + if(44 <= c$0) + {if(63 === c$0)switch$1 = 1} + else + if(42 <= c$0)switch$1 = 1; + if(switch$1)throw Parse_error; + var r=char$0(c$0)} + var + _eA_=accept(42)?rep$0(r):accept(43)?rep1(r):accept(63)?opt(r):r, + left$0=[0,_eA_,left], + left=left$0; + continue} + return seq$1(caml_call1(Stdlib_list[9],left))}} + function bracket(s) + {var s$0=s; + for(;;) + {if(0 !== s$0 && accept(93))return s$0; + var c=char$1(0); + if(accept(45)) + {if(accept(93)) + {var _ez_=[0,char$0(45),s$0];return [0,char$0(c),_ez_]} + var c$0=char$1(0),s$1=[0,rg(c,c$0),s$0],s$0=s$1; + continue} + var s$2=[0,char$0(c),s$0],s$0=s$2; + continue}} + function char$1(param){if(eos$0(0))throw Parse_error;return get(0)} + var r=regexp(0); + if(1 - eos$0(0))throw Parse_error; + return case$0?r:[10,r]} + function compile_pat(opt,s) + {if(opt)var sth=opt[1],case$0=sth;else var case$0=1; + return compile(re([0,case$0],s))} + var Re_Emacs=[0,Parse_error,Not_supported,re,compile,compile_pat]; + caml_register_global(156,Re_Emacs,"Re__Emacs"); + function compile_regexp(s,c) + {var + re$0=re([0,1 - c],s), + _ew_=[246,function(_ey_){return compile(re$0)}]; + return [0, + re$0, + [246, + function(_ex_){return compile(seq$1([0,start$0,[0,re$0,0]]))}], + _ew_]} + var state=[0,0]; + function string_match(re,s,p) + {try + {var + _er_=re[2], + _es_=caml_obj_tag(_er_), + _et_= + 250 === _es_ + ?_er_[1] + :246 === _es_?caml_call1(CamlinternalLazy[2],_er_):_er_; + state[1] = [0,exec([0,p],0,_et_,s)]; + var _eu_=1; + return _eu_} + catch(_ev_) + {_ev_ = caml_wrap_exception(_ev_); + if(_ev_ === Stdlib[8]){state[1] = 0;return 0} + throw _ev_}} + function string_partial_match(re,s,p) + {var + _eo_=re[2], + _ep_=caml_obj_tag(_eo_), + _eq_= + 250 === _ep_ + ?_eo_[1] + :246 === _ep_?caml_call1(CamlinternalLazy[2],_eo_):_eo_, + match=exec_partial([0,p],0,_eq_,s); + return 782112175 === match?string_match(re,s,p):939392865 <= match?1:0} + function search_forward(re,s,p) + {try + {var + _ej_=re[3], + _ek_=caml_obj_tag(_ej_), + _el_= + 250 === _ek_ + ?_ej_[1] + :246 === _ek_?caml_call1(CamlinternalLazy[2],_ej_):_ej_, + res=exec([0,p],0,_el_,s); + state[1] = [0,res]; + var _em_=caml_call2(Group[2],res,0)[1]; + return _em_} + catch(_en_) + {_en_ = caml_wrap_exception(_en_); + if(_en_ === Stdlib[8]){state[1] = 0;throw Stdlib[8]} + throw _en_}} + function search_backward(re,s,p) + {var p$0=p; + for(;;) + try + {var + _ef_=re[2], + _eg_=caml_obj_tag(_ef_), + _eh_= + 250 === _eg_ + ?_ef_[1] + :246 === _eg_?caml_call1(CamlinternalLazy[2],_ef_):_ef_, + res=exec([0,p$0],0,_eh_,s); + state[1] = [0,res]; + return p$0} + catch(_ei_) + {_ei_ = caml_wrap_exception(_ei_); + if(_ei_ === Stdlib[8]) + {state[1] = 0; + if(0 === p$0)throw Stdlib[8]; + var p$1=p$0 - 1 | 0,p$0=p$1; + continue} + throw _ei_}} + function valid_group(n) + {var _eb_=0 <= n?1:0; + if(_eb_) + {var _ec_=n < 10?1:0; + if(_ec_) + {var _ed_=state[1]; + if(_ed_){var m=_ed_[1];return n < caml_call1(Group[8],m)?1:0} + var _ee_=0} + else + var _ee_=_ec_} + else + var _ee_=_eb_; + return _ee_} + function offset_group(i) + {var _ea_=state[1]; + if(_ea_){var m=_ea_[1];return caml_call2(Group[2],m,i)} + throw Stdlib[8]} + function group_len(i) + {try + {var match=offset_group(i),e=match[2],b=match[1],_d__=e - b | 0; + return _d__} + catch(_d$_) + {_d$_ = caml_wrap_exception(_d$_); + if(_d$_ === Stdlib[8])return 0; + throw _d$_}} + function replace$0(orig,repl,p,res,q,len) + {var p$0=p,q$0=q; + for(;;) + {var _d7_=p$0 < len?1:0; + if(_d7_) + {var c=caml_string_get(repl,p$0); + if(92 === c) + {var c$0=caml_string_get(repl,p$0 + 1 | 0); + if(58 <= c$0) + {if(92 === c$0) + {caml_bytes_set(res,q$0,92); + var q$1=q$0 + 1 | 0,p$1=p$0 + 2 | 0,p$0=p$1,q$0=q$1; + continue}} + else + if(48 <= c$0) + {try + {var + match=offset_group(c$0 - 48 | 0), + e=match[2], + b=match[1], + d$0=e - b | 0; + if(0 < d$0)caml_call5(Stdlib_string[6],orig,b,res,q$0,d$0); + var d=d$0} + catch(_d9_) + {_d9_ = caml_wrap_exception(_d9_); + if(_d9_ !== Stdlib[8])throw _d9_; + var d=0,_d8_=_d9_} + var q$3=q$0 + d | 0,p$3=p$0 + 2 | 0,p$0=p$3,q$0=q$3; + continue} + caml_bytes_set(res,q$0,92); + caml_bytes_set(res,q$0 + 1 | 0,c$0); + var q$2=q$0 + 2 | 0,p$2=p$0 + 2 | 0,p$0=p$2,q$0=q$2; + continue} + caml_bytes_set(res,q$0,c); + var q$4=q$0 + 1 | 0,p$4=p$0 + 1 | 0,p$0=p$4,q$0=q$4; + continue} + return _d7_}} + function replacement_text(repl,orig) + {var len=caml_ml_string_length(repl),p=0,q=0; + for(;;) + {if(p < len) + {if(92 === caml_string_get(repl,p)) + {var p$0=p + 1 | 0; + if(p$0 === len) + caml_call1(Stdlib[2],cst_Str_replace_illegal_backsl); + var c=caml_string_get(repl,p$0),switch$0=0; + if(58 <= c) + if(92 === c)var q$0=q + 1 | 0;else switch$0 = 1; + else + if(48 <= c) + var q$0=q + group_len(c - 48 | 0) | 0; + else + switch$0 = 1; + if(switch$0)var q$0=q + 2 | 0; + var p$1=p$0 + 1 | 0,p=p$1,q=q$0; + continue} + var q$1=q + 1 | 0,p$2=p + 1 | 0,p=p$2,q=q$1; + continue} + var res=caml_create_bytes(q); + replace$0(orig,repl,0,res,0,caml_ml_string_length(repl)); + return caml_call1(Stdlib_bytes[42],res)}} + function quote$0(s) + {var + len=caml_ml_string_length(s), + buf=caml_call1(Stdlib_buffer[1],2 * len | 0), + _d3_=len - 1 | 0, + _d2_=0; + if(! (_d3_ < 0)) + {var i=_d2_; + for(;;) + {var c=caml_string_get(s,i),_d4_=c - 63 | 0,switch$0=0; + if(31 < _d4_ >>> 0) + {var _d5_=_d4_ + 27 | 0; + if(! (10 < _d5_ >>> 0)) + switch(_d5_){case 0:case 6:case 7:case 10:switch$0 = 1;break}} + else + if(26 < (_d4_ - 1 | 0) >>> 0)switch$0 = 1; + if(switch$0) + {caml_call2(Stdlib_buffer[10],buf,92); + caml_call2(Stdlib_buffer[10],buf,c)} + else + caml_call2(Stdlib_buffer[10],buf,c); + var _d6_=i + 1 | 0; + if(_d3_ !== i){var i=_d6_;continue} + break}} + return caml_call1(Stdlib_buffer[2],buf)} + function string_before(s,n){return caml_call3(Stdlib_string[4],s,0,n)} + function string_after(s,n) + {return caml_call3(Stdlib_string[4],s,n,caml_ml_string_length(s) - n | 0)} + function first_chars(s,n){return caml_call3(Stdlib_string[4],s,0,n)} + function last_chars(s,n) + {return caml_call3(Stdlib_string[4],s,caml_ml_string_length(s) - n | 0,n)} + function regexp(e){return compile_regexp(e,0)} + function regexp_case_fold(e){return compile_regexp(e,1)} + function regexp_string(s){return compile_regexp(quote$0(s),0)} + function regexp_string_case_fold(s){return compile_regexp(quote$0(s),1)} + function group_beginning(n) + {if(1 - valid_group(n))caml_call1(Stdlib[1],cst_Str_group_beginning); + var pos=offset_group(n)[1]; + if(-1 === pos)throw Stdlib[8]; + return pos} + function group_end(n) + {if(1 - valid_group(n))caml_call1(Stdlib[1],cst_Str_group_end); + var pos=offset_group(n)[2]; + if(-1 === pos)throw Stdlib[8]; + return pos} + function matched_group(n,txt) + {var match=offset_group(n),e=match[2],b=match[1]; + return caml_call3(Stdlib_string[4],txt,b,e - b | 0)} + function replace_matched(repl,matched) + {return replacement_text(repl,matched)} + function match_beginning(param){return group_beginning(0)} + function match_end(param){return group_end(0)} + function matched_string(txt){return matched_group(0,txt)} + function substitute_first(expr,repl_fun,text) + {try + {var + pos=search_forward(expr,text,0), + _dX_=[0,string_after(text,match_end(0)),0], + _dY_=[0,caml_call1(repl_fun,text),_dX_], + _dZ_=[0,string_before(text,pos),_dY_], + _d0_=caml_call2(Stdlib_string[7],cst$3,_dZ_); + return _d0_} + catch(_d1_) + {_d1_ = caml_wrap_exception(_d1_); + if(_d1_ === Stdlib[8])return text; + throw _d1_}} + function global_substitute(expr,repl_fun,text) + {function replace(accu,start,last_was_empty) + {try + {var startpos=last_was_empty?start + 1 | 0:start; + if(caml_ml_string_length(text) < startpos)throw Stdlib[8]; + var + pos=search_forward(expr,text,startpos), + end_pos=match_end(0), + repl_text=caml_call1(repl_fun,text), + _dV_= + replace + ([0, + repl_text, + [0, + caml_call3(Stdlib_string[4],text,start,pos - start | 0), + accu]], + end_pos, + end_pos === pos?1:0); + return _dV_} + catch(_dW_) + {_dW_ = caml_wrap_exception(_dW_); + if(_dW_ === Stdlib[8])return [0,string_after(text,start),accu]; + throw _dW_}} + var _dT_=replace(0,0,0),_dU_=caml_call1(Stdlib_list[9],_dT_); + return caml_call2(Stdlib_string[7],cst$4,_dU_)} + function global_replace(expr,repl,text) + {return global_substitute + (expr,function(_dS_){return replacement_text(repl,_dS_)},text)} + function replace_first(expr,repl,text) + {return substitute_first + (expr,function(_dR_){return replacement_text(repl,_dR_)},text)} + function search_forward_progress(re,s,p) + {var pos=search_forward(re,s,p); + if(p < match_end(0))return pos; + if(p < caml_ml_string_length(s))return search_forward(re,s,p + 1 | 0); + throw Stdlib[8]} + function bounded_split(expr,text,num) + {var start=string_match(expr,text,0)?match_end(0):0; + function split(accu,start,n) + {if(caml_ml_string_length(text) <= start)return accu; + if(1 === n)return [0,string_after(text,start),accu]; + try + {var + pos=search_forward_progress(expr,text,start), + _dO_=match_end(0), + _dP_= + split + ([0,caml_call3(Stdlib_string[4],text,start,pos - start | 0),accu], + _dO_, + n - 1 | 0); + return _dP_} + catch(_dQ_) + {_dQ_ = caml_wrap_exception(_dQ_); + if(_dQ_ === Stdlib[8])return [0,string_after(text,start),accu]; + throw _dQ_}} + var _dN_=split(0,start,num); + return caml_call1(Stdlib_list[9],_dN_)} + function split$1(expr,text){return bounded_split(expr,text,0)} + function bounded_split_delim(expr,text,num) + {function split(accu,start,n) + {if(caml_ml_string_length(text) < start)return accu; + if(1 === n)return [0,string_after(text,start),accu]; + try + {var + pos=search_forward_progress(expr,text,start), + _dK_=match_end(0), + _dL_= + split + ([0,caml_call3(Stdlib_string[4],text,start,pos - start | 0),accu], + _dK_, + n - 1 | 0); + return _dL_} + catch(_dM_) + {_dM_ = caml_wrap_exception(_dM_); + if(_dM_ === Stdlib[8])return [0,string_after(text,start),accu]; + throw _dM_}} + if(runtime.caml_string_equal(text,cst$5))return 0; + var _dJ_=split(0,0,num); + return caml_call1(Stdlib_list[9],_dJ_)} + function split_delim(expr,text){return bounded_split_delim(expr,text,0)} + function bounded_full_split(expr,text,num) + {function split(accu,start,n) + {if(caml_ml_string_length(text) <= start)return accu; + if(1 === n)return [0,[0,string_after(text,start)],accu]; + try + {var + pos=search_forward_progress(expr,text,start), + s=matched_string(text); + if(start < pos) + var + _dG_=match_end(0), + _dH_= + split + ([0, + [1,s], + [0, + [0,caml_call3(Stdlib_string[4],text,start,pos - start | 0)], + accu]], + _dG_, + n - 1 | 0); + else + var _dH_=split([0,[1,s],accu],match_end(0),n - 1 | 0); + return _dH_} + catch(_dI_) + {_dI_ = caml_wrap_exception(_dI_); + if(_dI_ === Stdlib[8])return [0,[0,string_after(text,start)],accu]; + throw _dI_}} + var _dF_=split(0,0,num); + return caml_call1(Stdlib_list[9],_dF_)} + function full_split(expr,text){return bounded_full_split(expr,text,0)} + var + Re_Str= [0, - Unix_error, - error_message, - handle_unix_error, - environment, - _y_, - getenv, - unsafe_getenv, - putenv, - execv, - execve, - execvp, - execvpe, - fork, - wait, - waitpid, - system, - getpid, - getppid, - nice, - stdin, - stdout, - stderr, - openfile, - close, - _x_, - read, - write, - single_write, - write_substring, - single_write_substring, - in_channel_of_descr, - out_channel_of_descr, - descr_of_in_channel, - descr_of_out_channel, - lseek, - truncate, - ftruncate, - stat, - lstat, - fstat, - isatty, - LargeFile, - map_file, - unlink, - rename, - link, - chmod, - fchmod, - chown, - fchown, - umask, - access, - dup, - dup2, - set_nonblock, - clear_nonblock, - set_close_on_exec, - clear_close_on_exec, - mkdir, - rmdir, - chdir, - getcwd, - chroot, - opendir, - readdir, - rewinddir, - closedir, - pipe, - mkfifo, - create_process, - create_process_env, - open_process_in, - open_process_out, - open_process, - open_process_full, - open_process_args_in, - open_process_args_out, - open_process_args, - open_process_args_full, - process_in_pid, - process_out_pid, - process_pid, - process_full_pid, - close_process_in, - close_process_out, - close_process, - close_process_full, - symlink, - has_symlink, - readlink, - select, - lockf, - kill, - sigprocmask, - sigpending, - sigsuspend, - pause, - time, - gettimeofday, - gmtime, - localtime, - mktime, - alarm, - sleep, - _r_, - times, - utimes, - getitimer, - setitimer, - getuid, - geteuid, - setuid, - getgid, - getegid, - setgid, - getgroups, - setgroups, - initgroups, - getlogin, - getpwnam, - getgrnam, - getpwuid, - getgrgid, - inet_addr_of_string, - string_of_inet_addr, - inet_addr_any, - inet_addr_loopback, - inet_addr_any$0, - inet6_addr_loopback, - socket, - domain_of_sockaddr, - socketpair, - accept, - bind, - connect, - listen, - shutdown, - getsockname, - getpeername, - recv, - recvfrom, - send, - send_substring, - sendto, - sendto_substring, - getsockopt, - setsockopt, - getsockopt_int, - setsockopt_int, - getsockopt_optint, - setsockopt_optint, - getsockopt_float, - setsockopt_float, - getsockopt_error, - open_connection, - shutdown_connection, - establish_server, - gethostname, - gethostbyname, - gethostbyaddr, - getprotobyname, - getprotobynumber, - getservbyname, - getservbyport, - getaddrinfo, - getnameinfo, - tcgetattr, - tcsetattr, - tcsendbreak, - tcdrain, - tcflush, - tcflow, - setsid]; - caml_register_global(143,include,"Unix"); + regexp, + regexp_case_fold, + quote$0, + regexp_string, + regexp_string_case_fold, + string_match, + search_forward, + search_backward, + string_partial_match, + matched_string, + match_beginning, + match_end, + matched_group, + group_beginning, + group_end, + global_replace, + replace_first, + global_substitute, + substitute_first, + replace_matched, + split$1, + bounded_split, + split_delim, + bounded_split_delim, + full_split, + bounded_full_split, + string_before, + string_after, + first_chars, + last_chars]; + caml_register_global(158,Re_Str,"Re__Str"); + var Parse_error$0=[248,cst_Re_Glob_Parse_error,caml_fresh_oo_id(0)]; + function mul(l$0,l) + {function _dC_(s) + {function _dE_(s$0){return caml_call2(Stdlib[28],s,s$0)} + return caml_call2(Stdlib_list[17],_dE_,l)} + var _dD_=caml_call2(Stdlib_list[17],_dC_,l$0); + return caml_call1(Stdlib_list[14],_dD_)} + function explicit_period(t) + {var _dy_=t[6]; + if(_dy_) + {var _dz_=t[3]; + if(_dz_)var _dA_=_dz_;else var _dB_=t[4],_dA_=_dB_?t[5]:_dB_} + else + var _dA_=_dy_; + return _dA_} + function append(opt,t,piece) + {if(opt) + var sth=opt[1],am_at_start_of_component=sth; + else + var am_at_start_of_component=0; + return [0,[0,piece,t[1]],t[2],0,am_at_start_of_component,t[5],t[6]]} + function next(t) + {var _dx_=t[2]; + if(_dx_) + {var remaining=_dx_[2],piece=_dx_[1]; + return [0,[0,piece,[0,t[1],remaining,t[3],t[4],t[5],t[6]]]]} + return 0} + function one(explicit_slash,explicit_period) + {var + _dt_=0, + _du_=explicit_period?[0,char$0(46),0]:0, + _dv_=[0,_du_,_dt_], + _dw_=explicit_slash?[0,char$0(47),0]:0; + return compl(caml_call1(Stdlib_list[13],[0,_dw_,_dv_]))} + function enclosed(enclosed) + {if(0 === enclosed[0]){var c=enclosed[1];return char$0(c)} + var high=enclosed[2],low=enclosed[1]; + return rg(low,high)} + function enclosed_set(explicit_slash,explicit_period,kind,set) + {var + set$0=caml_call2(Stdlib_list[17],enclosed,set), + enclosure=596216810 <= kind?alt$0(set$0):compl(set$0); + return inter$0([0,enclosure,[0,one(explicit_slash,explicit_period),0]])} + function exactly(state,c){return append([0,47 === c?1:0],state,char$0(c))} + function glob(opt$0,_dh_,_dg_,_df_,s) + {if(opt$0)var sth=opt$0[1],anchored=sth;else var anchored=0; + if(_dh_)var sth$0=_dh_[1],pathname=sth$0;else var pathname=1; + if(_dg_)var sth$1=_dg_[1],period=sth$1;else var period=1; + if(_df_)var sth$2=_df_[1],expand_braces=sth$2;else var expand_braces=0; + function to_re(s) + {var i=[0,0],l=caml_ml_string_length(s); + function eos(param){return i[1] === l?1:0} + function read(c) + {var _ds_=1 - eos(0),r=_ds_?caml_string_get(s,i[1]) === c?1:0:_ds_; + if(r)i[1]++; + return r} + function char$0(param) + {read(92); + if(eos(0))throw Parse_error$0; + var r=caml_string_get(s,i[1]); + i[1]++; + return r} + function enclosed(param) + {var s=0; + for(;;) + {if(0 !== s && read(93))return s; + var c=char$0(0); + if(read(45)) + {if(read(93))return [0,[0,c],[0,_cx_,s]]; + var c$0=char$0(0),s$0=[0,[1,c,c$0],s],s=s$0; + continue} + var s$1=[0,[0,c],s],s=s$1; + continue}} + var pieces=0; + for(;;) + {if(eos(0)) + {var + glob=caml_call1(Stdlib_list[9],pieces), + state=[0,0,glob,1,1,pathname,period], + state$7=state; + for(;;) + {var match$0=next(state$7); + if(match$0) + {var + match$1=match$0[1], + state$8=match$1[2], + p=match$1[1], + explicit_slash$0=state$8[5], + explicit_period$1=explicit_period(state$8); + if(typeof p === "number") + if(0 === p) + var + state$9= + append(0,state$8,one(explicit_slash$0,explicit_period$1)); + else + {var + explicit_slash=state$8[5], + explicit_period$0=explicit_period(state$8); + if(explicit_period$0) + if(explicit_slash) + {var + _dl_=[0,rep$0(one(1,0)),0], + not_empty=seq$1([0,one(1,1),_dl_]), + maybe_empty=opt(not_empty), + enclosed_set$1= + function(not_empty) + {function enclosed_set$0(state,kind,set) + {var + _dr_= + [0,seq$1([0,not_empty,[0,enclosed_set(1,0,kind,set),0]]),0]; + return append + (0,state,alt$0([0,enclosed_set(1,1,kind,set),_dr_]))} + return enclosed_set$0}, + enclosed_set$0=enclosed_set$1(not_empty), + state$0=state$8; + for(;;) + {var match=next(state$0); + if(match) + {var _dm_=match[1],_dn_=_dm_[1]; + if(typeof _dn_ === "number") + {if(0 !== _dn_) + {var state$2=_dm_[2],state$0=state$2;continue} + var state$1=_dm_[2],_do_=append(0,state$1,not_empty)} + else + switch(_dn_[0]) + {case 0: + var + state$3=_dm_[2], + c=_dn_[1], + not_empty$0=46 === c?not_empty:maybe_empty, + state$4=append(0,state$3,not_empty$0), + _do_=exactly(state$4,c); + break; + case 1: + var + state$5=_dm_[2], + enclosed$0=_dn_[1], + _do_=enclosed_set$0(state$5,596216810,enclosed$0); + break; + default: + var + state$6=_dm_[2], + enclosed$1=_dn_[1], + _do_=enclosed_set$0(state$6,-188280562,enclosed$1)}} + else + var _do_=append(0,state$0,maybe_empty); + var _dq_=_do_; + break}} + else + var + _dp_=[0,rep$0(one(0,0)),0], + _dq_= + append + (0,state$8,opt(seq$1([0,one(0,explicit_period$0),_dp_]))); + else + var + _dq_= + append + (0,state$8,rep$0(one(explicit_slash,explicit_period$0))); + var state$9=_dq_} + else + switch(p[0]) + {case 0:var c$0=p[1],state$9=exactly(state$8,c$0);break; + case 1: + var + enclosed$2=p[1], + state$9= + append + (0, + state$8, + enclosed_set + (explicit_slash$0,explicit_period$1,596216810,enclosed$2)); + break; + default: + var + enclosed$3=p[1], + state$9= + append + (0, + state$8, + enclosed_set + (explicit_slash$0,explicit_period$1,-188280562,enclosed$3))} + var state$7=state$9; + continue} + var re=seq$1(caml_call1(Stdlib_list[9],state$7[1])); + return anchored?whole_string(re):re}} + if(read(42)) + var _dk_=1; + else + if(read(63)) + var _dk_=0; + else + if(read(91)) + {var switch$0=0; + if(read(94) || read(33)) + switch$0 = 1; + else + var _dk_=[1,enclosed(0)]; + if(switch$0)var _dk_=[2,enclosed(0)]} + else + var _dk_=[0,char$0(0)]; + var pieces$0=[0,_dk_,pieces],pieces=pieces$0; + continue}} + if(expand_braces) + {var + l=caml_ml_string_length(s), + expl= + function(inner,s$0,i,acc,beg$0) + {var s$1=s$0,i$0=i,acc$0=acc,beg$1=beg$0; + for(;;) + {if(l <= i$0) + {if(inner)throw Parse_error$0; + return [0, + mul + (beg$1, + [0,caml_call3(Stdlib_string[4],s,s$1,i$0 - s$1 | 0),0]), + i$0]} + var match=caml_string_get(s,i$0); + if(44 === match) + {if(inner) + {var + _di_= + mul + (beg$1, + [0,caml_call3(Stdlib_string[4],s,s$1,i$0 - s$1 | 0),0]), + acc$1=caml_call2(Stdlib[37],_di_,acc$0), + i$1=i$0 + 1 | 0, + s$2=i$0 + 1 | 0, + s$1=s$2, + i$0=i$1, + acc$0=acc$1, + beg$1=beg; + continue}} + else + if(123 <= match) + {if(! (126 <= match)) + {var switcher=match - 123 | 0; + switch(switcher) + {case 0: + var + match$0=expl(1,i$0 + 1 | 0,i$0 + 1 | 0,0,_cy_), + i$3=match$0[2], + t=match$0[1], + beg$2= + mul + (beg$1, + mul + ([0,caml_call3(Stdlib_string[4],s,s$1,i$0 - s$1 | 0),0],t)), + s$1=i$3, + i$0=i$3, + beg$1=beg$2; + continue; + case 1:break; + default: + if(inner) + {var + _dj_= + mul + (beg$1, + [0,caml_call3(Stdlib_string[4],s,s$1,i$0 - s$1 | 0),0]); + return [0,caml_call2(Stdlib[37],_dj_,acc$0),i$0 + 1 | 0]}}}} + else + if(92 === match){var i$4=i$0 + 2 | 0,i$0=i$4;continue} + var i$2=i$0 + 1 | 0,i$0=i$2; + continue}}, + _dd_=expl(0,0,0,0,_cz_)[1], + _de_=caml_call1(Stdlib_list[9],_dd_); + return alt$0(caml_call2(Stdlib_list[17],to_re,_de_))} + return to_re(s)} + function glob$0(anchored,period,s){return glob(anchored,0,[0,period],0,s)} + function globx(anchored,s){return glob(anchored,0,0,_cA_,s)} + function globx$0(anchored,period,s) + {return glob(anchored,0,[0,period],_cB_,s)} + var Re_Glob=[0,Parse_error$0,glob,glob$0,globx,globx$0]; + caml_register_global(159,Re_Glob,"Re__Glob"); + var + Parse_error$1=[248,cst_Re_Perl_Parse_error,caml_fresh_oo_id(0)], + Not_supported$0=[248,cst_Re_Perl_Not_supported,caml_fresh_oo_id(0)]; + function posix_class_of_string(class$0) + {var switch$0=runtime.caml_string_compare(class$0,cst_lower); + if(0 <= switch$0) + {if(! (0 < switch$0))return lower; + if(! caml_string_notequal(class$0,cst_print))return print; + if(! caml_string_notequal(class$0,cst_punct))return punct; + if(! caml_string_notequal(class$0,cst_space))return space; + if(! caml_string_notequal(class$0,cst_upper))return upper; + if(! caml_string_notequal(class$0,cst_word))return wordc; + if(! caml_string_notequal(class$0,cst_xdigit))return xdigit} + else + {if(! caml_string_notequal(class$0,cst_alnum))return alnum; + if(! caml_string_notequal(class$0,cst_ascii))return ascii; + if(! caml_string_notequal(class$0,cst_blank))return blank; + if(! caml_string_notequal(class$0,cst_cntrl))return cntrl; + if(! caml_string_notequal(class$0,cst_digit))return digit; + if(! caml_string_notequal(class$0,cst_graph))return graph} + var _dc_=caml_call2(Stdlib[28],cst_Invalid_pcre_class,class$0); + return caml_call1(Stdlib[1],_dc_)} + function re$0(opt$0,s) + {if(opt$0)var sth=opt$0[1],opts=sth;else var opts=0; + var + ungreedy=caml_call2(Stdlib_list[33],-243745063,opts), + dotall=caml_call2(Stdlib_list[33],-424303016,opts), + dollar_endonly=caml_call2(Stdlib_list[33],-712595228,opts), + multiline=caml_call2(Stdlib_list[33],1071952589,opts), + i=[0,0], + l=caml_ml_string_length(s); + function eos$0(param){return i[1] === l?1:0} + function test(c) + {var + _da_=1 - eos$0(0), + _db_=_da_?caml_string_get(s,i[1]) === c?1:0:_da_; + return _db_} + function accept(c){var r=test(c);if(r)i[1]++;return r} + function accept_s(s$0) + {var len=caml_ml_string_length(s$0); + try + {var _c6_=len - 1 | 0,_c5_=0; + if(! (_c6_ < 0)) + {var j=_c5_; + for(;;) + {try + {var _c8_=caml_string_get(s,i[1] + j | 0); + if(caml_string_get(s$0,j) !== _c8_)throw Stdlib[3]} + catch(_c$_){throw Stdlib[3]} + var _c9_=j + 1 | 0; + if(_c6_ !== j){var j=_c9_;continue} + break}} + i[1] = i[1] + len | 0; + var _c7_=1; + return _c7_} + catch(_c__) + {_c__ = caml_wrap_exception(_c__); + if(_c__ === Stdlib[3])return 0; + throw _c__}} + function get(param){var r=caml_string_get(s,i[1]);i[1]++;return r} + function unget(param){i[1] += -1;return 0} + function greedy_mod(r) + {var gr=accept(63),gr$0=ungreedy?1 - gr:gr; + return gr$0?non_greedy(r):greedy(r)} + function regexp(param) + {var left=branch(0),left$0=left; + for(;;) + {if(accept(124)) + {var left$1=alt$0([0,left$0,[0,branch(0),0]]),left$0=left$1; + continue} + return left$0}} + function branch(param) + {var left=0; + for(;;) + {if(! eos$0(0) && ! test(124) && ! test(41)) + {if(accept(46)) + var r=dotall?any:notnl; + else + if(accept(40)) + if(accept(63)) + if(accept(58)) + {var r$0=regexp(0); + if(1 - accept(41))throw Parse_error$1; + var r=r$0} + else + {if(! accept(35))throw Parse_error$1; + for(;;) + {if(eos$0(0))throw Parse_error$1; + if(! accept(41)){i[1]++;continue} + var r=epsilon; + break}} + else + {var r$1=regexp(0); + if(1 - accept(41))throw Parse_error$1; + var r=[6,r$1]} + else + if(accept(94)) + var r=multiline?bol:bos; + else + if(accept(36)) + var r=multiline?eol:dollar_endonly?leol:eos; + else + if(accept(91)) + var r=accept(94)?compl(bracket(0)):alt$0(bracket(0)); + else + if(accept(92)) + {if(eos$0(0))throw Parse_error$1; + var c=get(0),switcher=c - 48 | 0,switch$0=0; + if(74 < switcher >>> 0) + switch$0 = 1; + else + switch(switcher) + {case 17:var r=bos;break; + case 18:var r=not_boundary;break; + case 20:var r=compl([0,digit,0]);break; + case 23:var r=start$0;break; + case 35:var r=compl([0,space,0]);break; + case 39:var r=compl([0,alnum,[0,char$0(95),0]]);break; + case 42:var r=leol;break; + case 50:var r=alt$0([0,bow,[0,eow,0]]);break; + case 52:var r=digit;break; + case 67:var r=space;break; + case 71:var r=alt$0([0,alnum,[0,char$0(95),0]]);break; + case 74:var r=eos;break; + case 0: + case 1: + case 2: + case 3: + case 4: + case 5: + case 6: + case 7: + case 8: + case 9:throw Not_supported$0; + case 10: + case 11: + case 12: + case 13: + case 14: + case 15: + case 16: + case 43: + case 44: + case 45: + case 46: + case 47: + case 48:switch$0 = 1;break; + default:throw Parse_error$1} + if(switch$0)var r=char$0(c)} + else + {if(eos$0(0))throw Parse_error$1; + var c$0=get(0),switch$1=0; + if(64 <= c$0) + {if(92 !== c$0 && 123 !== c$0)switch$1 = 1} + else + if(44 <= c$0) + {if(! (63 <= c$0))switch$1 = 1} + else + if(! (42 <= c$0))switch$1 = 1; + if(! switch$1)throw Parse_error$1; + var r=char$0(c$0)} + if(accept(42)) + var _c4_=greedy_mod(rep$0(r)); + else + if(accept(43)) + var _c4_=greedy_mod(rep1(r)); + else + if(accept(63)) + var _c4_=greedy_mod(opt(r)); + else + if(accept(123)) + {var match=integer(0); + if(match) + {var i$0=match[1],j=accept(44)?integer(0):[0,i$0]; + if(1 - accept(125))throw Parse_error$1; + if(j){var j$0=j[1];if(j$0 < i$0)throw Parse_error$1} + var _c4_=greedy_mod(repn(r,i$0,j))} + else + {unget(0);var _c4_=r}} + else + var _c4_=r; + var left$0=[0,_c4_,left],left=left$0; + continue} + return seq$1(caml_call1(Stdlib_list[9],left))}} + function integer(param) + {if(eos$0(0))return 0; + var d=get(0),switcher=d - 48 | 0; + if(9 < switcher >>> 0){unget(0);return 0} + var i=d - 48 | 0,i$0=i; + for(;;) + {if(eos$0(0))return [0,i$0]; + var d$0=get(0),switcher$0=d$0 - 48 | 0; + if(9 < switcher$0 >>> 0){unget(0);return [0,i$0]} + var i$1=(10 * i$0 | 0) + (d$0 - 48 | 0) | 0; + if(i$1 < i$0)throw Parse_error$1; + var i$0=i$1; + continue}} + function bracket(s) + {var s$0=s; + for(;;) + {if(0 !== s$0 && accept(93))return s$0; + var match=char$1(0); + if(748194550 <= match[1]) + {var c=match[2]; + if(accept(45)) + {if(accept(93)) + {var _c2_=[0,char$0(45),s$0];return [0,char$0(c),_c2_]} + var match$0=char$1(0); + if(748194550 <= match$0[1]) + {var c$0=match$0[2],s$1=[0,rg(c,c$0),s$0],s$0=s$1;continue} + var + st=match$0[2], + _c3_=[0,char$0(45),[0,st,s$0]], + s$2=[0,char$0(c),_c3_], + s$0=s$2; + continue} + var s$3=[0,char$0(c),s$0],s$0=s$3; + continue} + var st$0=match[2],s$4=[0,st$0,s$0],s$0=s$4; + continue}} + function char$1(param) + {if(eos$0(0))throw Parse_error$1; + var c=get(0); + if(91 === c) + {if(accept(61))throw Not_supported$0; + if(accept(58)) + {var compl$0=accept(94); + try + {var cls=caml_call2(Stdlib_list[34],accept_s,posix_class_strings)} + catch(_c1_) + {_c1_ = caml_wrap_exception(_c1_); + if(_c1_ === Stdlib[8])throw Parse_error$1; + throw _c1_} + if(1 - accept_s(cst$6))throw Parse_error$1; + var + posix_class=posix_class_of_string(cls), + re=compl$0?compl([0,posix_class,0]):posix_class; + return [0,4150146,re]} + if(accept(46)) + {if(eos$0(0))throw Parse_error$1; + var c$0=get(0); + if(1 - accept(46))throw Not_supported$0; + if(1 - accept(93))throw Parse_error$1; + return [0,748194550,c$0]} + return [0,748194550,c]} + if(92 === c) + {if(eos$0(0))throw Parse_error$1; + var c$1=get(0); + if(58 <= c$1) + {if(! (123 <= c$1)) + {var switcher=c$1 - 58 | 0; + switch(switcher) + {case 10:return [0,4150146,compl([0,digit,0])]; + case 25:return [0,4150146,compl([0,space,0])]; + case 29:return [0,4150146,compl([0,alnum,[0,char$0(95),0]])]; + case 40:return _cC_; + case 42:return [0,4150146,digit]; + case 52:return _cD_; + case 56:return _cE_; + case 57:return [0,4150146,space]; + case 58:return _cF_; + case 61:return [0,4150146,alt$0([0,alnum,[0,char$0(95),0]])]; + case 0: + case 1: + case 2: + case 3: + case 4: + case 5: + case 6: + case 33: + case 34: + case 35: + case 36: + case 37: + case 38:break; + default:throw Parse_error$1}}} + else + if(48 <= c$1)throw Not_supported$0; + return [0,748194550,c$1]} + return [0,748194550,c]} + var r=regexp(0); + if(1 - eos$0(0))throw Parse_error$1; + var + r$0= + caml_call2(Stdlib_list[33],616470068,opts) + ?seq$1([0,start$0,[0,r,0]]) + :r, + r$1=caml_call2(Stdlib_list[33],604571177,opts)?[10,r$0]:r$0; + return r$1} + function compile_pat$0(opt,s) + {if(opt)var sth=opt[1],opts=sth;else var opts=0; + return compile(re$0([0,opts],s))} + var Re_Perl=[0,Parse_error$1,Not_supported$0,re$0,compile,compile_pat$0]; + caml_register_global(160,Re_Perl,"Re__Perl"); + function re$1(opt,pat) + {if(opt)var sth=opt[1],flags=sth;else var flags=0; + function _c0_(param) + {return 601676297 === param + ?604571177 + :613575188 <= param?616470068:1071952589} + var opts=caml_call2(Stdlib_list[17],_c0_,flags); + return re$0([0,opts],pat)} + function regexp$0(flags,pat){return compile(re$1(flags,pat))} + function extract(rex,s) + {var _cZ_=exec(0,0,rex,s);return caml_call1(Group[5],_cZ_)} + function exec$0(rex,pos,s){return exec(pos,0,rex,s)} + function get_substring(s,i){return caml_call2(Group[1],s,i)} + function get_substring_ofs(s,i){return caml_call2(Group[2],s,i)} + function pmatch(rex,s){return execp(0,0,rex,s)} + function substitute(rex,subst,str) + {var b=caml_call1(Stdlib_buffer[1],1024),pos=0; + for(;;) + {if(caml_ml_string_length(str) <= pos) + return caml_call1(Stdlib_buffer[2],b); + if(execp([0,pos],0,rex,str)) + {var + ss=exec([0,pos],0,rex,str), + match=caml_call2(Group[2],ss,0), + fin=match[2], + start=match[1], + pat=caml_call2(Group[1],ss,0); + caml_call4(Stdlib_buffer[16],b,str,pos,start - pos | 0); + var _cY_=caml_call1(subst,pat); + caml_call2(Stdlib_buffer[14],b,_cY_); + var pos=fin; + continue} + caml_call4 + (Stdlib_buffer[16],b,str,pos,caml_ml_string_length(str) - pos | 0); + var pos$0=caml_ml_string_length(str),pos=pos$0; + continue}} + function split$2(rex,str) + {var accu=0,pos=0; + for(;;) + {if(caml_ml_string_length(str) <= pos) + return caml_call1(Stdlib_list[9],accu); + if(execp([0,pos],0,rex,str)) + {var + ss=exec([0,pos],0,rex,str), + match=caml_call2(Group[2],ss,0), + fin=match[2], + start=match[1], + s=caml_call3(Stdlib_string[4],str,pos,start - pos | 0), + accu$0=[0,s,accu], + accu=accu$0, + pos=fin; + continue} + var + s$0= + caml_call3 + (Stdlib_string[4],str,pos,caml_ml_string_length(str) - pos | 0), + pos$0=caml_ml_string_length(str), + accu$1=[0,s$0,accu], + accu=accu$1, + pos=pos$0; + continue}} + function quote$1(s) + {var + len=caml_ml_string_length(s), + s$0=caml_create_bytes(len << 1), + pos=[0,0], + _cU_=len - 1 | 0, + _cT_=0; + if(! (_cU_ < 0)) + {var i=_cT_; + for(;;) + {var c=runtime.caml_string_unsafe_get(s,i),switch$0=0; + if(91 <= c) + {var _cW_=c - 93 | 0; + if(29 < _cW_ >>> 0) + {if(! (32 <= _cW_))switch$0 = 1} + else + if(1 === _cW_)switch$0 = 1} + else + if(47 <= c) + {if(63 === c)switch$0 = 1} + else + if(36 <= c) + switch(c - 36 | 0) + {case 1:case 2:case 3:case 8:case 9:break;default:switch$0 = 1} + if(switch$0) + {caml_bytes_unsafe_set(s$0,pos[1],92); + pos[1]++; + caml_bytes_unsafe_set(s$0,pos[1],c); + pos[1]++} + else + {caml_bytes_unsafe_set(s$0,pos[1],c);pos[1]++} + var _cX_=i + 1 | 0; + if(_cU_ !== i){var i=_cX_;continue} + break}} + var _cV_=pos[1],r=caml_create_bytes(_cV_); + runtime.caml_blit_bytes(s$0,0,r,0,_cV_); + return caml_call1(Stdlib_bytes[42],r)} + function full_split$0(opt,rex,s) + {if(opt)var sth=opt[1],max=sth;else var max=0; + if(0 === caml_ml_string_length(s))return 0; + if(1 === max)return [0,[0,s],0]; + var results=split_full(0,0,rex,s); + function _cN_(param) + {if(936573133 <= param[1]){var s=param[2];return [0,[0,s],0]} + var + d=param[2], + matches=caml_call1(Group[6],d), + delim=caml_call2(Group[1],d,0), + l=[0,0], + _cP_=matches.length - 1 - 1 | 0, + _cO_=1; + if(! (_cP_ < 1)) + {var i=_cO_; + for(;;) + {var + _cQ_=l[1], + _cR_= + caml_equal(caml_check_bound(matches,i)[1 + i],_cG_) + ?0 + :[2,i,caml_call2(Group[1],d,i)]; + l[1] = [0,_cR_,_cQ_]; + var _cS_=i + 1 | 0; + if(_cP_ !== i){var i=_cS_;continue} + break}} + return [0,[1,delim],caml_call1(Stdlib_list[9],l[1])]} + var matches=caml_call2(Stdlib_list[17],_cN_,results); + return caml_call1(Stdlib_list[13],matches)} + var + Re_Pcre= + [0, + re$1, + regexp$0, + extract, + exec$0, + get_substring, + get_substring_ofs, + pmatch, + substitute, + full_split$0, + split$2, + quote$1]; + caml_register_global(161,Re_Pcre,"Re__Pcre"); var - UnixLabels= - [0, - Unix_error, - error_message, - handle_unix_error, - environment, - getenv, - unsafe_getenv, - putenv, - execv, - execve, - execvp, - execvpe, - fork, - wait, - waitpid, - system, - getpid, - getppid, - nice, - stdin, - stdout, - stderr, - openfile, - close, - read, - write, - single_write, - write_substring, - single_write_substring, - in_channel_of_descr, - out_channel_of_descr, - descr_of_in_channel, - descr_of_out_channel, - lseek, - truncate, - ftruncate, - stat, - lstat, - fstat, - isatty, - LargeFile, - map_file, - unlink, - rename, - link, - chmod, - fchmod, - chown, - fchown, - umask, - access, - dup, - dup2, - set_nonblock, - clear_nonblock, - set_close_on_exec, - clear_close_on_exec, - mkdir, - rmdir, - chdir, - getcwd, - chroot, - opendir, - readdir, - rewinddir, - closedir, - pipe, - mkfifo, - create_process, - create_process_env, - open_process_in, - open_process_out, - open_process, - open_process_full, - open_process_args_in, - open_process_args_out, - open_process_args, - open_process_args_full, - close_process_in, - close_process_out, - close_process, - close_process_full, - symlink, - has_symlink, - readlink, - select, - lockf, - kill, - sigprocmask, - sigpending, - sigsuspend, - pause, - time, - gettimeofday, - gmtime, - localtime, - mktime, - alarm, - sleep, - times, - utimes, - getitimer, - setitimer, - getuid, - geteuid, - setuid, - getgid, - getegid, - setgid, - getgroups, - setgroups, - initgroups, - getlogin, - getpwnam, - getgrnam, - getpwuid, - getgrgid, - inet_addr_of_string, - string_of_inet_addr, - inet_addr_any, - inet_addr_loopback, - inet_addr_any$0, - inet6_addr_loopback, - socket, - domain_of_sockaddr, - socketpair, - accept, - bind, - connect, - listen, - shutdown, - getsockname, - getpeername, - recv, - recvfrom, - send, - send_substring, - sendto, - sendto_substring, - getsockopt, - setsockopt, - getsockopt_int, - setsockopt_int, - getsockopt_optint, - setsockopt_optint, - getsockopt_float, - setsockopt_float, - getsockopt_error, - open_connection, - shutdown_connection, - establish_server, - gethostname, - gethostbyname, - gethostbyaddr, - getprotobyname, - getprotobynumber, - getservbyname, - getservbyport, - getaddrinfo, - getnameinfo, - tcgetattr, - tcsetattr, - tcsendbreak, - tcdrain, - tcflush, - tcflow, - setsid]; - caml_register_global(144,UnixLabels,"UnixLabels"); + Parse_error$2=[248,cst_Re_Posix_Parse_error,caml_fresh_oo_id(0)], + Not_supported$1=[248,cst_Re_Posix_Not_supported,caml_fresh_oo_id(0)]; + function re$2(opt$0,s) + {if(opt$0)var sth=opt$0[1],opts=sth;else var opts=0; + var + newline=caml_call2(Stdlib_list[33],-638074828,opts), + i=[0,0], + l=caml_ml_string_length(s); + function eos$0(param){return i[1] === l?1:0} + function test(c) + {var + _cL_=1 - eos$0(0), + _cM_=_cL_?caml_string_get(s,i[1]) === c?1:0:_cL_; + return _cM_} + function accept(c){var r=test(c);if(r)i[1]++;return r} + function get(param){var r=caml_string_get(s,i[1]);i[1]++;return r} + function unget(param){i[1] += -1;return 0} + function regexp(param) + {var left=branch(0),left$0=left; + for(;;) + {if(accept(124)) + {var left$1=alt$0([0,left$0,[0,branch(0),0]]),left$0=left$1; + continue} + return left$0}} + function branch(param) + {var left=0; + for(;;) + {if(! eos$0(0) && ! test(124) && ! test(41)) + {if(accept(46)) + var r=newline?notnl:any; + else + if(accept(40)) + {var r$0=regexp(0); + if(1 - accept(41))throw Parse_error$2; + var r=[6,r$0]} + else + if(accept(94)) + var r=newline?bol:bos; + else + if(accept(36)) + var r=newline?eol:eos; + else + if(accept(91)) + if(accept(94)) + var _cJ_=char$0(10),r=diff$0(compl(bracket(0)),_cJ_); + else + var r=alt$0(bracket(0)); + else + if(accept(92)) + {if(eos$0(0))throw Parse_error$2; + var c=get(0),switch$0=0; + if(91 <= c) + {var _cK_=c - 93 | 0; + if(29 < _cK_ >>> 0) + {if(! (32 <= _cK_))switch$0 = 1} + else + if(1 === _cK_)switch$0 = 1} + else + if(47 <= c) + {if(63 === c)switch$0 = 1} + else + if(36 <= c) + switch(c - 36 | 0) + {case 1: + case 2: + case 3: + case 8: + case 9:break; + default:switch$0 = 1} + if(! switch$0)throw Parse_error$2; + var r=char$0(c)} + else + {if(eos$0(0))throw Parse_error$2; + var c$0=get(0),switch$1=0; + if(64 <= c$0) + {if(92 !== c$0 && 123 !== c$0)switch$1 = 1} + else + if(44 <= c$0) + {if(! (63 <= c$0))switch$1 = 1} + else + if(! (42 <= c$0))switch$1 = 1; + if(! switch$1)throw Parse_error$2; + var r=char$0(c$0)} + if(accept(42)) + var _cI_=rep$0([8,r]); + else + if(accept(43)) + var _cI_=rep1([8,r]); + else + if(accept(63)) + var _cI_=opt(r); + else + if(accept(123)) + {var match=integer(0); + if(match) + {var i=match[1],j=accept(44)?integer(0):[0,i]; + if(1 - accept(125))throw Parse_error$2; + if(j){var j$0=j[1];if(j$0 < i)throw Parse_error$2} + var _cI_=repn([8,r],i,j)} + else + {unget(0);var _cI_=r}} + else + var _cI_=r; + var left$0=[0,_cI_,left],left=left$0; + continue} + return seq$1(caml_call1(Stdlib_list[9],left))}} + function integer(param) + {if(eos$0(0))return 0; + var d=get(0),switcher=d - 48 | 0; + if(9 < switcher >>> 0){unget(0);return 0} + var i=d - 48 | 0,i$0=i; + for(;;) + {if(eos$0(0))return [0,i$0]; + var d$0=get(0),switcher$0=d$0 - 48 | 0; + if(9 < switcher$0 >>> 0){unget(0);return [0,i$0]} + var i$1=(10 * i$0 | 0) + (d$0 - 48 | 0) | 0; + if(i$1 < i$0)throw Parse_error$2; + var i$0=i$1; + continue}} + function bracket(s) + {var s$0=s; + for(;;) + {if(0 !== s$0 && accept(93))return s$0; + var c=char$1(0); + if(accept(45)) + {if(accept(93)) + {var _cH_=[0,char$0(45),s$0];return [0,char$0(c),_cH_]} + var c$0=char$1(0),s$1=[0,rg(c,c$0),s$0],s$0=s$1; + continue} + var s$2=[0,char$0(c),s$0],s$0=s$2; + continue}} + function char$1(param) + {if(eos$0(0))throw Parse_error$2; + var c=get(0); + if(91 === c) + {if(accept(61))throw Not_supported$1; + if(accept(58))throw Not_supported$1; + if(accept(46)) + {if(eos$0(0))throw Parse_error$2; + var c$0=get(0); + if(1 - accept(46))throw Not_supported$1; + if(1 - accept(93))throw Parse_error$2; + return c$0} + return c} + return c} + var r=regexp(0); + if(1 - eos$0(0))throw Parse_error$2; + var + r$0=caml_call2(Stdlib_list[33],886285209,opts)?[10,r]:r, + r$1=caml_call2(Stdlib_list[33],853495711,opts)?[7,r$0]:r$0; + return r$1} + function compile$0(re){return compile(longest(re))} + function compile_pat$1(opt,s) + {if(opt)var sth=opt[1],opts=sth;else var opts=0; + return compile$0(re$2([0,opts],s))} + var + Re_Posix= + [0,Parse_error$2,Not_supported$1,re$2,compile$0,compile_pat$1]; + caml_register_global(162,Re_Posix,"Re__Posix"); + var + Re$0= + [0, + Group, + compile, + exec, + exec_opt, + execp, + exec_partial, + Mark, + Seq, + all$0, + all_gen, + all_seq, + matches, + matches_gen, + matches_seq, + split$0, + split_gen, + split_seq, + split_full, + split_full_gen, + split_full_seq, + replace, + replace_string, + str, + char$0, + alt$0, + seq$1, + empty$2, + epsilon, + rep$0, + rep1, + repn, + opt, + bol, + eol, + bow, + eow, + bos, + eos, + leol, + start$0, + stop$0, + word, + not_boundary, + whole_string, + longest, + shortest, + first$0, + greedy, + non_greedy, + group, + no_group, + nest, + mark$0, + set, + rg, + inter$0, + diff$0, + compl, + any, + notnl, + alnum, + wordc, + alpha, + ascii, + blank, + cntrl, + digit, + graph, + lower, + print, + punct, + space, + upper, + xdigit, + case$0, + no_case, + pp$5, + print_re, + print_re, + View, + witness, + get$0, + get_ofs, + get_all, + get_all_ofs, + test$0, + marked, + mark_set]; + caml_register_global(163,Re$0,"Re"); return} (function(){return this}())); -//# 1 "../../.js/result/result.cma.js" +//# 1 "../../.js/re.posix/re_posix.cma.js" (function(joo_global_object) {"use strict"; - var runtime=joo_global_object.jsoo_runtime,Result=[0]; - runtime.caml_register_global(0,Result,"Result"); + var + runtime=joo_global_object.jsoo_runtime, + global_data=runtime.caml_get_global_data(), + Re_Posix=global_data.Re__Posix, + Parse_error=Re_Posix[1], + Not_supported=Re_Posix[2], + re=Re_Posix[3], + compile=Re_Posix[4], + compile_pat=Re_Posix[5], + Re_posix=[0,Parse_error,Not_supported,re,compile,compile_pat]; + runtime.caml_register_global(1,Re_posix,"Re_posix"); return} (function(){return this}())); -//# 1 "../../.js/ppx_deriving.runtime/ppx_deriving_runtime.cma.js" +//# 1 "../../.js/stringext/stringext.cma.js" (function(joo_global_object) {"use strict"; var runtime=joo_global_object.jsoo_runtime, + caml_bytes_set=runtime.caml_bytes_set, + caml_create_bytes=runtime.caml_create_bytes, + caml_fresh_oo_id=runtime.caml_fresh_oo_id, + caml_ml_string_length=runtime.caml_ml_string_length, + caml_string_equal=runtime.caml_string_equal, + caml_string_get=runtime.caml_string_get, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_string_unsafe_get=runtime.caml_string_unsafe_get, + caml_wrap_exception=runtime.caml_wrap_exception; + function caml_call1(f,a0) + {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} + function caml_call2(f,a0,a1) + {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} + function caml_call3(f,a0,a1,a2) + {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} + function caml_call4(f,a0,a1,a2,a3) + {return f.length == 4 + ?f(a0,a1,a2,a3) + :runtime.caml_call_gen(f,[a0,a1,a2,a3])} + var global_data=runtime.caml_get_global_data(), + cst$7=caml_string_of_jsbytes(""), + cst_Stringext_rcut_empty_separ= + caml_string_of_jsbytes("Stringext.rcut: empty separator"), + cst_Stringext_cut_empty_separa= + caml_string_of_jsbytes("Stringext.cut: empty separator"), + cst$6=caml_string_of_jsbytes(""), + cst$5=caml_string_of_jsbytes(""), + cst$4=caml_string_of_jsbytes(""), + cst$3=caml_string_of_jsbytes(""), + cst$2=caml_string_of_jsbytes(""), + cst$1=caml_string_of_jsbytes(""), + cst$0=caml_string_of_jsbytes(""), + cst=caml_string_of_jsbytes(""), + cst_Stringext_Found_int=caml_string_of_jsbytes("Stringext.Found_int"), + cst_Stringext_Found_replace= + caml_string_of_jsbytes("Stringext.Found_replace"), + Stdlib_string=global_data.Stdlib__string, Stdlib=global_data.Stdlib, - invalid_arg=Stdlib[1], - failwith=Stdlib[2], - Exit=Stdlib[3], - Match_failure=Stdlib[4], - Assert_failure=Stdlib[5], - Invalid_argument=Stdlib[6], - Failure=Stdlib[7], - Not_found=Stdlib[8], - Out_of_memory=Stdlib[9], - Stack_overflow=Stdlib[10], - Sys_error=Stdlib[11], - End_of_file=Stdlib[12], - Division_by_zero=Stdlib[13], - Sys_blocked_io=Stdlib[14], - Undefined_recursive_module=Stdlib[15], - min=Stdlib[16], - max=Stdlib[17], - abs=Stdlib[18], - max_int=Stdlib[19], - min_int=Stdlib[20], - lnot=Stdlib[21], - infinity=Stdlib[22], - neg_infinity=Stdlib[23], - nan=Stdlib[24], - max_float=Stdlib[25], - min_float=Stdlib[26], - epsilon_float=Stdlib[27], - symbol=Stdlib[28], - char_of_int=Stdlib[29], - string_of_bool=Stdlib[30], - bool_of_string_opt=Stdlib[31], - bool_of_string=Stdlib[32], - string_of_int=Stdlib[33], - int_of_string_opt=Stdlib[34], - string_of_float=Stdlib[35], - float_of_string_opt=Stdlib[36], - symbol$0=Stdlib[37], - stdin=Stdlib[38], - stdout=Stdlib[39], - stderr=Stdlib[40], - print_char=Stdlib[41], - print_string=Stdlib[42], - print_bytes=Stdlib[43], - print_int=Stdlib[44], - print_float=Stdlib[45], - print_endline=Stdlib[46], - print_newline=Stdlib[47], - prerr_char=Stdlib[48], - prerr_string=Stdlib[49], - prerr_bytes=Stdlib[50], - prerr_int=Stdlib[51], - prerr_float=Stdlib[52], - prerr_endline=Stdlib[53], - prerr_newline=Stdlib[54], - read_line=Stdlib[55], - read_int_opt=Stdlib[56], - read_int=Stdlib[57], - read_float_opt=Stdlib[58], - read_float=Stdlib[59], - open_out=Stdlib[60], - open_out_bin=Stdlib[61], - open_out_gen=Stdlib[62], - flush=Stdlib[63], - flush_all=Stdlib[64], - output_char=Stdlib[65], - output_string=Stdlib[66], - output_bytes=Stdlib[67], - output=Stdlib[68], - output_substring=Stdlib[69], - output_byte=Stdlib[70], - output_binary_int=Stdlib[71], - output_value=Stdlib[72], - seek_out=Stdlib[73], - pos_out=Stdlib[74], - out_channel_length=Stdlib[75], - close_out=Stdlib[76], - close_out_noerr=Stdlib[77], - set_binary_mode_out=Stdlib[78], - open_in=Stdlib[79], - open_in_bin=Stdlib[80], - open_in_gen=Stdlib[81], - input_char=Stdlib[82], - input_line=Stdlib[83], - input=Stdlib[84], - really_input=Stdlib[85], - really_input_string=Stdlib[86], - input_byte=Stdlib[87], - input_binary_int=Stdlib[88], - input_value=Stdlib[89], - seek_in=Stdlib[90], - pos_in=Stdlib[91], - in_channel_length=Stdlib[92], - close_in=Stdlib[93], - close_in_noerr=Stdlib[94], - set_binary_mode_in=Stdlib[95], - LargeFile=Stdlib[96], - string_of_format=Stdlib[97], - symbol$1=Stdlib[98], - exit=Stdlib[99], - at_exit=Stdlib[100], - valid_float_lexem=Stdlib[101], - unsafe_really_input=Stdlib[102], - do_at_exit=Stdlib[103], - Result=[0], - Ppx_deriving_runtime= + Stdlib_array=global_data.Stdlib__array, + Stdlib_bytes=global_data.Stdlib__bytes, + Stdlib_list=global_data.Stdlib__list, + Stdlib_buffer=global_data.Stdlib__buffer; + function string_after(s,n) + {return caml_call3(Stdlib_string[4],s,n,caml_ml_string_length(s) - n | 0)} + function quote(s) + {var + len=caml_ml_string_length(s), + buf=caml_call1(Stdlib_buffer[1],2 * len | 0), + _U_=len - 1 | 0, + _T_=0; + if(! (_U_ < 0)) + {var i=_T_; + for(;;) + {var c=caml_string_get(s,i),_V_=c - 63 | 0,switch$0=0; + if(31 < _V_ >>> 0) + {var _W_=_V_ + 27 | 0; + if(! (10 < _W_ >>> 0)) + switch(_W_){case 0:case 6:case 7:case 10:switch$0 = 1;break}} + else + if(26 < (_V_ - 1 | 0) >>> 0)switch$0 = 1; + if(switch$0) + {caml_call2(Stdlib_buffer[10],buf,92); + caml_call2(Stdlib_buffer[10],buf,c)} + else + caml_call2(Stdlib_buffer[10],buf,c); + var _X_=i + 1 | 0; + if(_U_ !== i){var i=_X_;continue} + break}} + return caml_call1(Stdlib_buffer[2],buf)} + var of_char=caml_call1(Stdlib_string[1],1); + function full_split(str,on) + {if(caml_string_equal(str,cst$3))return 0; + var sep=caml_call1(of_char,on); + function loop(acc,offset) + {try + {var index=caml_call3(Stdlib_string[20],str,offset,on); + if(index === offset) + var _R_=loop([0,sep,acc],index - 1 | 0); + else + var + token= + caml_call3(Stdlib_string[4],str,index + 1 | 0,offset - index | 0), + _R_=loop([0,sep,[0,token,acc]],index - 1 | 0); + return _R_} + catch(_S_) + {_S_ = caml_wrap_exception(_S_); + if(_S_ === Stdlib[8]) + return 0 <= offset + ?[0,caml_call3(Stdlib_string[4],str,0,offset + 1 | 0),acc] + :acc; + throw _S_}} + return loop(0,caml_ml_string_length(str) - 1 | 0)} + function split(max,s,on) + {if(max) + {var max$0=max[1]; + if(caml_string_equal(s,cst))return 0; + if(1 === max$0)return [0,s,0]; + var + loop= + function(offset,tokens) + {if(tokens === (max$0 - 1 | 0)) + return [0, + caml_call3 + (Stdlib_string[4], + s, + offset, + caml_ml_string_length(s) - offset | 0), + 0]; + try + {var index=caml_call3(Stdlib_string[18],s,offset,on); + if(index === offset) + var _P_=[0,cst$0,loop(offset + 1 | 0,tokens + 1 | 0)]; + else + var + token=caml_call3(Stdlib_string[4],s,offset,index - offset | 0), + _P_=[0,token,loop(index + 1 | 0,tokens + 1 | 0)]; + return _P_} + catch(_Q_) + {_Q_ = caml_wrap_exception(_Q_); + if(_Q_ === Stdlib[8]) + return [0, + caml_call3 + (Stdlib_string[4], + s, + offset, + caml_ml_string_length(s) - offset | 0), + 0]; + throw _Q_}}; + return loop(0,0)} + if(caml_string_equal(s,cst$1))return 0; + function loop$0(acc,offset) + {try + {var index=caml_call3(Stdlib_string[20],s,offset,on); + if(index === offset) + var _N_=loop$0([0,cst$2,acc],index - 1 | 0); + else + var + token= + caml_call3(Stdlib_string[4],s,index + 1 | 0,offset - index | 0), + _N_=loop$0([0,token,acc],index - 1 | 0); + return _N_} + catch(_O_) + {_O_ = caml_wrap_exception(_O_); + if(_O_ === Stdlib[8]) + return [0,caml_call3(Stdlib_string[4],s,0,offset + 1 | 0),acc]; + throw _O_}} + return loop$0(0,caml_ml_string_length(s) - 1 | 0)} + function rindex_from_on(s,i,on) + {var i$0=i; + for(;;) + {if(0 <= i$0) + {var _M_=caml_string_get(s,i$0); + if(caml_call2(Stdlib_string[22],on,_M_))return i$0; + var i$1=i$0 - 1 | 0,i$0=i$1; + continue} + throw Stdlib[8]}} + function trim_left_sub(s,pos,len,chars) + {var final$0=pos + len | 0,last_char=pos,i=pos; + for(;;) + {if(i !== final$0) + {var _L_=caml_string_get(s,i); + if(caml_call2(Stdlib_string[22],chars,_L_)) + {var + i$0=i + 1 | 0, + last_char$0=i + 1 | 0, + last_char=last_char$0, + i=i$0; + continue}} + var new_len=len - (last_char - pos | 0) | 0; + return caml_call3(Stdlib_string[4],s,last_char,new_len)}} + function split_trim_left(str,on,trim) + {if(caml_string_equal(str,cst$4))return 0; + function loop(acc,offset) + {try + {var index=rindex_from_on(str,offset,on); + if(index === offset) + var _J_=loop([0,cst$5,acc],index - 1 | 0); + else + var + token=trim_left_sub(str,index + 1 | 0,offset - index | 0,trim), + _J_=loop([0,token,acc],index - 1 | 0); + return _J_} + catch(_K_) + {_K_ = caml_wrap_exception(_K_); + if(_K_ === Stdlib[8]) + return [0,trim_left_sub(str,0,offset + 1 | 0,trim),acc]; + throw _K_}} + return loop(0,caml_ml_string_length(str) - 1 | 0)} + var Found_int=[248,cst_Stringext_Found_int,caml_fresh_oo_id(0)]; + function first_char_ne(s,c) + {var + _H_=0 < caml_ml_string_length(s)?1:0, + _I_=_H_?caml_string_get(s,0) !== c?1:0:_H_; + return _I_} + function trim_left(s) + {if(first_char_ne(s,32))return s; + var len=caml_ml_string_length(s); + try + {var _F_=len - 1 | 0,_E_=0; + if(! (_F_ < 0)) + {var i=_E_; + for(;;) + {if(32 !== caml_string_get(s,i))throw [0,Found_int,i]; + var _G_=i + 1 | 0; + if(_F_ !== i){var i=_G_;continue} + break}} + return cst$6} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn[1] === Found_int) + {var non_space=exn[2]; + return caml_call3(Stdlib_string[4],s,non_space,len - non_space | 0)} + throw exn}} + function find_from(opt,str,pattern) + {if(opt)var sth=opt[1],start$0=sth;else var start$0=0; + try + {var + _z_= + caml_ml_string_length(str) - caml_ml_string_length(pattern) | 0; + if(! (_z_ < start$0)) + {var sth$0=start$0; + for(;;) + {var opt$0=[0,sth$0],start=opt$0?sth$0:0; + try + {var _v_=caml_ml_string_length(pattern) - 1 | 0,_u_=0; + if(! (_v_ < 0)) + {var i=_u_; + for(;;) + {var _x_=caml_string_get(pattern,i); + if(caml_string_get(str,i + start | 0) !== _x_) + throw Stdlib[3]; + var _y_=i + 1 | 0; + if(_v_ !== i){var i=_y_;continue} + break}} + var _w_=1,_B_=_w_} + catch(_D_){var _B_=0} + if(_B_)throw [0,Found_int,sth$0]; + var _C_=sth$0 + 1 | 0; + if(_z_ !== sth$0){var sth$0=_C_;continue} + break}} + var _A_=0; + return _A_} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn[1] === Found_int){var i$0=exn[2];return [0,i$0]} + return 0}} + function find_min(l,f) + {if(l) + {var + xs$0=l[2], + x$1=l[1], + fx$1=caml_call1(f,x$1), + x=x$1, + fx=fx$1, + param=xs$0; + for(;;) + {if(param) + {var xs=param[2],x$0=param[1],fx$0=caml_call1(f,x$0); + if(runtime.caml_lessthan(fx$0,fx)) + {var x=x$0,fx=fx$0,param=xs;continue} + var param=xs; + continue} + return [0,[0,x,fx]]}} + return 0} + function replace_all(str,pattern,with$0) + {var + plen=caml_ml_string_length(pattern), + slen=caml_ml_string_length(str), + buf=caml_call1(Stdlib_buffer[1],slen), + i=0; + for(;;) + {var match=find_from([0,i],str,pattern); + if(match) + {var j=match[1]; + caml_call4(Stdlib_buffer[16],buf,str,i,j - i | 0); + caml_call2(Stdlib_buffer[14],buf,with$0); + var i$0=j + plen | 0,i=i$0; + continue} + caml_call4(Stdlib_buffer[16],buf,str,i,slen - i | 0); + return caml_call1(Stdlib_buffer[2],buf)}} + var Found_replace=[248,cst_Stringext_Found_replace,caml_fresh_oo_id(0)]; + function replace_all_assoc(str,tbl) + {var + slen=caml_ml_string_length(str), + buf=caml_call1(Stdlib_buffer[1],slen); + function loop(i) + {var i$0=i; + for(;;) + {if(slen <= i$0)return caml_call1(Stdlib_buffer[2],buf); + try + {var + found=[0,0], + e= + find_min + (tbl, + function(i,found) + {return function(param) + {var + with$0=param[2], + pattern=param[1], + match=find_from([0,i],str,pattern); + if(match) + {var j=match[1]; + if(j === i)throw [0,Found_replace,j,pattern,with$0]; + found[1] = 1; + return j} + return Stdlib[19]}} + (i$0,found)); + if(e) + var + _r_=e[1], + j$1=_r_[2], + match$0=_r_[1], + with$2=match$0[2], + pattern$1=match$0[1], + _s_=found[1]?[0,[0,j$1,pattern$1,with$2]]:0, + _t_=_s_; + else + var _t_=0; + var r=_t_} + catch(exn$0) + {exn$0 = caml_wrap_exception(exn$0); + if(exn$0[1] !== Found_replace)throw exn$0; + var + with$0=exn$0[4], + pattern=exn$0[3], + j=exn$0[2], + r=[0,[0,j,pattern,with$0]], + exn=exn$0} + if(r) + {var match=r[1],with$1=match[3],pattern$0=match[2],j$0=match[1]; + caml_call4(Stdlib_buffer[16],buf,str,i$0,j$0 - i$0 | 0); + caml_call2(Stdlib_buffer[14],buf,with$1); + var i$1=j$0 + caml_ml_string_length(pattern$0) | 0,i$0=i$1; + continue} + caml_call4(Stdlib_buffer[16],buf,str,i$0,slen - i$0 | 0); + return caml_call1(Stdlib_buffer[2],buf)}} + return loop(0)} + function of_list(xs$0) + {var + l=caml_call1(Stdlib_list[1],xs$0), + s=caml_create_bytes(l), + i=0, + param=xs$0; + for(;;) + {if(param) + {var xs=param[2],x=param[1]; + caml_bytes_set(s,i,x); + var i$0=i + 1 | 0,i=i$0,param=xs; + continue} + return caml_call1(Stdlib_bytes[42],s)}} + function to_list(s) + {var i$1=caml_ml_string_length(s) - 1 | 0,acc=0,i=i$1; + for(;;) + {if(-1 === i)return acc; + var i$0=i - 1 | 0,acc$0=[0,caml_string_get(s,i),acc],acc=acc$0,i=i$0; + continue}} + function of_array(a) + {var len=a.length - 1,bytes=caml_create_bytes(len),_p_=len - 1 | 0,_o_=0; + if(! (_p_ < 0)) + {var i=_o_; + for(;;) + {caml_bytes_set(bytes,i,runtime.caml_check_bound(a,i)[1 + i]); + var _q_=i + 1 | 0; + if(_p_ !== i){var i=_q_;continue} + break}} + return caml_call1(Stdlib_bytes[42],bytes)} + function to_array(s) + {function _m_(_n_){return caml_string_get(s,_n_)} + return caml_call2(Stdlib_array[2],caml_ml_string_length(s),_m_)} + function cut(s,on) + {var sep_max=caml_ml_string_length(on) - 1 | 0; + if(0 <= sep_max) + {var s_max=caml_ml_string_length(s) - 1 | 0; + if(0 <= s_max) + {var k=[0,0],i=[0,0]; + try + {a: + for(;;) + {if((i[1] + sep_max | 0) <= s_max) + {if + (caml_string_unsafe_get(s,i[1]) + !== + caml_string_unsafe_get(on,0)) + {i[1]++;continue} + k[1] = 1; + for(;;) + {if + (k[1] + <= + sep_max + && + caml_string_unsafe_get(s,i[1] + k[1] | 0) + === + caml_string_unsafe_get(on,k[1])) + {k[1]++;continue} + if(k[1] <= sep_max){i[1]++;continue a} + throw Stdlib[3]}} + var _k_=0; + return _k_}} + catch(_l_) + {_l_ = caml_wrap_exception(_l_); + if(_l_ === Stdlib[3]) + {var + left_end=i[1] - 1 | 0, + right_start=(i[1] + sep_max | 0) + 1 | 0, + _j_= + caml_call3 + (Stdlib_string[4], + s, + right_start, + (s_max - right_start | 0) + 1 | 0); + return [0, + [0,caml_call3(Stdlib_string[4],s,0,left_end + 1 | 0),_j_]]} + throw _l_}} + return 0} + return caml_call1(Stdlib[1],cst_Stringext_cut_empty_separa)} + function rcut(s,on) + {var sep_max=caml_ml_string_length(on) - 1 | 0; + if(0 <= sep_max) + {var s_max=caml_ml_string_length(s) - 1 | 0; + if(0 <= s_max) + {var k=[0,0],i=[0,s_max]; + try + {a: + for(;;) + {if(sep_max <= i[1]) + {if + (caml_string_unsafe_get(s,i[1]) + !== + caml_string_unsafe_get(on,sep_max)) + {i[1] += -1;continue} + var sep_start=i[1] - sep_max | 0; + k[1] = sep_max - 1 | 0; + for(;;) + {if + (0 + <= + k[1] + && + caml_string_unsafe_get(s,sep_start + k[1] | 0) + === + caml_string_unsafe_get(on,k[1])) + {k[1] += -1;continue} + if(0 <= k[1]){i[1] += -1;continue a} + throw Stdlib[3]}} + var _h_=0; + return _h_}} + catch(_i_) + {_i_ = caml_wrap_exception(_i_); + if(_i_ === Stdlib[3]) + {var + left_end=(i[1] - sep_max | 0) - 1 | 0, + right_start=i[1] + 1 | 0, + _g_= + caml_call3 + (Stdlib_string[4], + s, + right_start, + (s_max - right_start | 0) + 1 | 0); + return [0, + [0,caml_call3(Stdlib_string[4],s,0,left_end + 1 | 0),_g_]]} + throw _i_}} + return 0} + return caml_call1(Stdlib[1],cst_Stringext_rcut_empty_separ)} + function chop_prefix(s,prefix) + {var + prefix_l=caml_ml_string_length(prefix), + string_l=caml_ml_string_length(s); + if(string_l < prefix_l)return 0; + try + {var _b_=prefix_l - 1 | 0,_a_=0; + if(! (_b_ < 0)) + {var i=_a_; + for(;;) + {var _d_=caml_string_get(prefix,i); + if(caml_string_get(s,i) !== _d_)throw Stdlib[3]; + var _e_=i + 1 | 0; + if(_b_ !== i){var i=_e_;continue} + break}} + var + _c_= + [0,caml_call3(Stdlib_string[4],s,prefix_l,string_l - prefix_l | 0)]; + return _c_} + catch(_f_){return 0}} + function drop(s,n) + {var l=caml_ml_string_length(s); + return l <= n?cst$7:caml_call3(Stdlib_string[4],s,n,l - n | 0)} + function take(s,n) + {return caml_ml_string_length(s) <= n + ?s + :caml_call3(Stdlib_string[4],s,0,n)} + var + Stringext= [0, - invalid_arg, - failwith, - Exit, - Match_failure, - Assert_failure, - Invalid_argument, - Failure, - Not_found, - Out_of_memory, - Stack_overflow, - Sys_error, - End_of_file, - Division_by_zero, - Sys_blocked_io, - Undefined_recursive_module, - min, - max, - abs, - max_int, - min_int, - lnot, - infinity, - neg_infinity, - nan, - max_float, - min_float, - epsilon_float, - symbol, - char_of_int, - string_of_bool, - bool_of_string_opt, - bool_of_string, - string_of_int, - int_of_string_opt, - string_of_float, - float_of_string_opt, - symbol$0, - stdin, - stdout, - stderr, - print_char, - print_string, - print_bytes, - print_int, - print_float, - print_endline, - print_newline, - prerr_char, - prerr_string, - prerr_bytes, - prerr_int, - prerr_float, - prerr_endline, - prerr_newline, - read_line, - read_int_opt, - read_int, - read_float_opt, - read_float, - open_out, - open_out_bin, - open_out_gen, - flush, - flush_all, - output_char, - output_string, - output_bytes, - output, - output_substring, - output_byte, - output_binary_int, - output_value, - seek_out, - pos_out, - out_channel_length, - close_out, - close_out_noerr, - set_binary_mode_out, - open_in, - open_in_bin, - open_in_gen, - input_char, - input_line, - input, - really_input, - really_input_string, - input_byte, - input_binary_int, - input_value, - seek_in, - pos_in, - in_channel_length, - close_in, - close_in_noerr, - set_binary_mode_in, - LargeFile, - string_of_format, - symbol$1, - exit, - at_exit, - valid_float_lexem, - unsafe_really_input, - do_at_exit, - Result]; - runtime.caml_register_global - (1,Ppx_deriving_runtime,"Ppx_deriving_runtime"); + string_after, + quote, + split, + full_split, + trim_left, + split_trim_left, + of_char, + of_list, + to_list, + to_array, + of_array, + find_from, + replace_all, + replace_all_assoc, + cut, + rcut, + chop_prefix, + drop, + take, + trim_left_sub]; + runtime.caml_register_global(19,Stringext,"Stringext"); return} (function(){return this}())); -//# 1 "../utils/.utils.objs/utils.cma.js" +//# 1 "../../.js/uri/uri.cma.js" (function(joo_global_object) {"use strict"; var runtime=joo_global_object.jsoo_runtime, - caml_equal=runtime.caml_equal, - caml_new_string=runtime.caml_new_string, - caml_register_global=runtime.caml_register_global, - caml_update_dummy=runtime.caml_update_dummy; + caml_check_bound=runtime.caml_check_bound, + caml_make_vect=runtime.caml_make_vect, + caml_ml_string_length=runtime.caml_ml_string_length, + caml_obj_tag=runtime.caml_obj_tag, + caml_string_equal=runtime.caml_string_equal, + caml_string_get=runtime.caml_string_get, + caml_string_notequal=runtime.caml_string_notequal, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_wrap_exception=runtime.caml_wrap_exception; function caml_call1(f,a0) {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} function caml_call2(f,a0,a1) @@ -73075,3429 +79015,8007 @@ {return f.length == 4 ?f(a0,a1,a2,a3) :runtime.caml_call_gen(f,[a0,a1,a2,a3])} - function caml_call7(f,a0,a1,a2,a3,a4,a5,a6) - {return f.length == 7 - ?f(a0,a1,a2,a3,a4,a5,a6) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6])} var global_data=runtime.caml_get_global_data(), - cst_List_last=caml_new_string("List.last"), - cst_rtl=caml_new_string("rtl"), - cst_unsnoc=caml_new_string("unsnoc"), - cst_Ok=caml_new_string("(Ok "), - cst=caml_new_string(")"), - cst_Error=caml_new_string("(Error "), - cst$0=caml_new_string(")"), - cst_mapA2_list_differing_lengths= - caml_new_string("mapA2_list: differing lengths"), - cst_Some=caml_new_string("(Some "), - cst$1=caml_new_string(")"), - cst_None=caml_new_string("None"), - cst_of_some=caml_new_string("of_some"), - cst_of_right_comb_empty_list=caml_new_string("of_right_comb: empty list"), - cst_Binary_tree_map2_differing_shapes= - caml_new_string("Binary_tree.map2: differing shapes"), - cst_Hole=caml_new_string("Hole"), + cst$40=caml_string_of_jsbytes(""), + cst$39=caml_string_of_jsbytes(""), + cst$37=caml_string_of_jsbytes(""), + cst$38=caml_string_of_jsbytes("/"), + cst$36=caml_string_of_jsbytes(""), + cst$35=caml_string_of_jsbytes(","), + cst$33=caml_string_of_jsbytes("/"), + cst$34=caml_string_of_jsbytes("/"), + cst$32=caml_string_of_jsbytes(""), + cst$30=caml_string_of_jsbytes(""), + cst$31=caml_string_of_jsbytes(""), + cst$29=caml_string_of_jsbytes(""), + cst_localhost$0=caml_string_of_jsbytes("localhost"), + cst$25=caml_string_of_jsbytes("//"), + cst$26=caml_string_of_jsbytes("/"), + cst$27=caml_string_of_jsbytes(":"), + cst$28=caml_string_of_jsbytes("./"), + cst$23=caml_string_of_jsbytes("/"), + cst$24=caml_string_of_jsbytes("/"), + cst$22=caml_string_of_jsbytes(","), + cst$21=caml_string_of_jsbytes("&"), + cst$20=caml_string_of_jsbytes("/"), + cst$17=caml_string_of_jsbytes("/"), + cst$18=caml_string_of_jsbytes("/"), + cst$19=caml_string_of_jsbytes("/"), + cst$16=caml_string_of_jsbytes("/"), + cst$15=caml_string_of_jsbytes(""), + cst$3=caml_string_of_jsbytes("."), + cst$4=caml_string_of_jsbytes(".."), + cst$5=caml_string_of_jsbytes("/"), + cst$9=caml_string_of_jsbytes("."), + cst$10=caml_string_of_jsbytes(".."), + cst$11=caml_string_of_jsbytes("/"), + cst$12=caml_string_of_jsbytes("/"), + cst$13=caml_string_of_jsbytes("/"), + cst$14=caml_string_of_jsbytes("/"), + cst$6=caml_string_of_jsbytes(".."), + e=caml_string_of_jsbytes("/"), + cst$7=caml_string_of_jsbytes("/"), + cst$8=caml_string_of_jsbytes("/"), + cst_int_of_hex_char=caml_string_of_jsbytes("int_of_hex_char"), + cst_int_of_hex_char$0=caml_string_of_jsbytes("int_of_hex_char"), + cst_file=caml_string_of_jsbytes("file"), + cst_http=caml_string_of_jsbytes("http"), + cst_https=caml_string_of_jsbytes("https"), + cst_urn=caml_string_of_jsbytes("urn"), + cst_localhost=caml_string_of_jsbytes("localhost"), + subd=caml_string_of_jsbytes("!$&'()*+,;="), + cst=caml_string_of_jsbytes("[:/?#\\[\\]@]"), + cst$0=caml_string_of_jsbytes("[!$&'()*+,;=]"), + cst$1=caml_string_of_jsbytes("//"), + cst_A_Za_z0_9=caml_string_of_jsbytes("[A-Za-z0-9-._~]"), + cst_0_9A_Fa_f=caml_string_of_jsbytes("[0-9A-Fa-f]"), + cst_25_0_5_2_0_4_0_9_01_0_9_0_= + caml_string_of_jsbytes("25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?"), + cst_25=caml_string_of_jsbytes("%25"), + cst_0_9=caml_string_of_jsbytes("[0-9]*"), + cst_A_Za_z_A_Za_z0_9= + caml_string_of_jsbytes("[A-Za-z][A-Za-z0-9+\\\\-\\.]*"), + cst$2= + caml_string_of_jsbytes + ("^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\\?([^#]*))?(#(.*))?"), + always_safe= + caml_string_of_jsbytes + ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789_.-~"), + Stdlib_buffer=global_data.Stdlib__buffer, Stdlib_format=global_data.Stdlib__format, + Stdlib_printf=global_data.Stdlib__printf, Stdlib_list=global_data.Stdlib__list, Stdlib=global_data.Stdlib, - Unix=global_data.Unix, - Stdlib_printf=global_data.Stdlib__printf, - Stdlib_option=global_data.Stdlib__option, - Stdlib_map=global_data.Stdlib__map, - Stdlib_set=global_data.Stdlib__set, - Stdlib_seq=global_data.Stdlib__seq, Stdlib_string=global_data.Stdlib__string, - Big_int=global_data.Big_int, - Utils=[0]; - caml_register_global(52,Utils,"Utils"); - var - length=Stdlib_list[1], - compare_lengths=Stdlib_list[2], - compare_length_with=Stdlib_list[3], - cons=Stdlib_list[4], - hd=Stdlib_list[5], - tl=Stdlib_list[6], - nth=Stdlib_list[7], - nth_opt=Stdlib_list[8], - rev=Stdlib_list[9], - init=Stdlib_list[10], - append=Stdlib_list[11], - rev_append=Stdlib_list[12], - concat=Stdlib_list[13], - flatten=Stdlib_list[14], - iter=Stdlib_list[15], - iteri=Stdlib_list[16], - map=Stdlib_list[17], - mapi=Stdlib_list[18], - rev_map=Stdlib_list[19], - filter_map=Stdlib_list[20], - fold_left=Stdlib_list[21], - fold_right=Stdlib_list[22], - iter2=Stdlib_list[23], - rev_map2=Stdlib_list[25], - fold_left2=Stdlib_list[26], - fold_right2=Stdlib_list[27], - for_all=Stdlib_list[28], - exists=Stdlib_list[29], - for_all2=Stdlib_list[30], - exists2=Stdlib_list[31], - mem=Stdlib_list[32], - memq=Stdlib_list[33], - find=Stdlib_list[34], - find_opt=Stdlib_list[35], - filter=Stdlib_list[36], - find_all=Stdlib_list[37], - partition=Stdlib_list[38], - assoc=Stdlib_list[39], - assoc_opt=Stdlib_list[40], - assq=Stdlib_list[41], - assq_opt=Stdlib_list[42], - mem_assoc=Stdlib_list[43], - mem_assq=Stdlib_list[44], - remove_assoc=Stdlib_list[45], - remove_assq=Stdlib_list[46], - split=Stdlib_list[47], - combine=Stdlib_list[48], - sort=Stdlib_list[49], - stable_sort=Stdlib_list[50], - fast_sort=Stdlib_list[51], - sort_uniq=Stdlib_list[52], - merge=Stdlib_list[53], - to_seq=Stdlib_list[54], - of_seq=Stdlib_list[55], - _c_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _b_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _d_= + Stringext=global_data.Stringext, + CamlinternalLazy=global_data.CamlinternalLazy, + Re=global_data.Re, + Stdlib_lazy=global_data.Stdlib__lazy, + Stdlib_bytes=global_data.Stdlib__bytes, + Stdlib_array=global_data.Stdlib__array, + Stdlib_char=global_data.Stdlib__char, + Re_Posix=global_data.Re__Posix, + _ar_= [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _e_=[0,[15,0],caml_new_string("%a")], + [11,caml_string_of_jsbytes("/?"),[2,0,0]], + caml_string_of_jsbytes("/?%s")], + _aq_=[0,[2,0,[12,63,[2,0,0]]],caml_string_of_jsbytes("%s?%s")], + _an_=[0,-178940859], + _ao_=[0,803994504], + _ap_=[0,127343600], + _am_=[0,caml_string_of_jsbytes("")], + _al_=[0,0], + _aj_=[0,795008922], + _ai_=[0,-911188600], + _ae_=[0,caml_string_of_jsbytes(""),0], + _af_=[0,caml_string_of_jsbytes(""),0], + _ag_=[0,2], + _ah_=[0,[0,caml_string_of_jsbytes(""),0],0], + _ad_=[0,892015045], + _aa_=[0,-145160103], + _ab_=[0,-145160103], + ___=[0,2], + _$_=[0,caml_string_of_jsbytes(""),0], + _Z_=[0,[12,37,[4,8,[0,2,2],0,0]],caml_string_of_jsbytes("%%%02X")], + _Y_=[0,caml_string_of_jsbytes("")], + _X_=[0,caml_string_of_jsbytes("/"),0], + _a_=[0,3], + _c_=[0,4]; + function symbol(a,b){return caml_call1(Re[26],[0,a,[0,b,0]])} + function symbol$0(a,b){return caml_call1(Re[25],[0,a,[0,b,0]])} + var + gen_delims=caml_call2(Re_Posix[3],0,cst), + sub_delims=caml_call2(Re_Posix[3],0,cst$0), + c_at=caml_call1(Re[24],64), + c_colon=caml_call1(Re[24],58), + c_slash=caml_call1(Re[24],47), + c_slash2=caml_call2(Re_Posix[3],0,cst$1), + c_dot=caml_call1(Re[24],46), + c_question=caml_call1(Re[24],63), + c_hash=caml_call1(Re[24],35); + symbol$0(gen_delims,sub_delims); + var + unreserved=caml_call2(Re_Posix[3],0,cst_A_Za_z0_9), + hexdig=caml_call2(Re_Posix[3],0,cst_0_9A_Fa_f), + pct_encoded=symbol(symbol(caml_call1(Re[24],37),hexdig),hexdig), + dec_octet=caml_call2(Re_Posix[3],0,cst_25_0_5_2_0_4_0_9_01_0_9_0_), + _b_=symbol(dec_octet,c_dot), + ipv4_address=symbol(caml_call3(Re[31],_b_,3,_a_),dec_octet), + zone_id=symbol$0(unreserved,pct_encoded); + function symbol$1(n,a){return caml_call3(Re[31],a,n,[0,n])} + function symbol$2(n,a){return caml_call3(Re[31],a,0,[0,n])} + var + h16=caml_call3(Re[31],hexdig,1,_c_), + h16c=symbol(h16,c_colon), + cc=symbol(c_colon,c_colon), + ls32=symbol$0(symbol(h16c,h16),ipv4_address), + _d_=caml_call1(Re[24],93), + _e_=caml_call1(Re[30],zone_id), + _f_=symbol(caml_call2(Re_Posix[3],0,cst_25),_e_), + _g_=caml_call1(Re[32],_f_), + _h_=symbol(symbol$2(1,symbol(symbol$2(6,h16c),h16)),cc), + _i_=symbol(symbol(symbol$2(1,symbol(symbol$2(5,h16c),h16)),cc),h16), + _j_=symbol(symbol(symbol$2(1,symbol(symbol$2(4,h16c),h16)),cc),ls32), _k_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _l_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _m_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _n_=[0,[15,0],caml_new_string("%a")], + symbol + (symbol(symbol(symbol$2(1,symbol(symbol$2(3,h16c),h16)),cc),h16c),ls32), + _l_=symbol$1(2,h16c), + _m_= + symbol + (symbol(symbol(symbol$2(1,symbol(symbol$2(2,h16c),h16)),cc),_l_),ls32), + _n_=symbol$1(3,h16c), _o_= - [0, - [8,[0,0,0],[0,1,60],[0,1],[11,caml_new_string("ms\n"),[2,0,[12,10,0]]]], - caml_new_string("%60.1fms\n%s\n")], - _p_=[0,[2,0,[12,10,0]],caml_new_string("%s\n")], - _j_=[0,[4,0,0,0,0],caml_new_string("%d")], - _i_=[0,[11,caml_new_string("; "),0],caml_new_string("; ")], - _h_=[0,[16,0],caml_new_string("%t")], - _f_=[0,[3,0,0],caml_new_string("%S")], - _g_=[0,[15,0],caml_new_string("%a")], - _r_=[0,[15,0],caml_new_string("%a")], - _s_=[0,[2,0,0],caml_new_string("%s")], - _K_=[0,[15,0],caml_new_string("%a")], - _J_=[0,[15,0],caml_new_string("%a")], - _D_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Node_left ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Node_left (@,")], - _E_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _F_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _G_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Node_right ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Node_right (@,")], - _H_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _I_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _A_= - [0, - [15,[17,[0,caml_new_string("@,"),0,0],[16,[15,0]]]], - caml_new_string("%a@,%t%a")], - _z_=[0,[15,0],caml_new_string("%a")], - _B_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("( "), - [16,[17,[0,caml_new_string("@ "),1,0],[12,41,[17,0,0]]]]]], - caml_new_string("@[( %t@ )@]")], - _C_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [16,[17,0,0]]], - caml_new_string("@[%t@]")], - _y_=[0,[15,0],caml_new_string("%a")], - _t_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Leaf"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Leaf@ ")], - _u_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _v_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Node ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Node (@,")], - _w_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _x_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _L_=[0,[2,0,0],caml_new_string("%s")], - _a_=Stdlib_list[24]; - function equal(poly_a) - {return function(x$1,y$1) - {var x=x$1,y=y$1; - for(;;) - {if(x) - {if(y) - {var y$0=y[2],b=y[1],x$0=x[2],a=x[1],_cA_=caml_call2(poly_a,a,b); - if(_cA_){var x=x$0,y=y$0;continue} - return _cA_}} - else - if(! y)return 1; - return 0}}} - function pp(poly_a,fmt,x) - {caml_call2(Stdlib_format[123],fmt,_b_); - var _cy_=0; - function _cz_(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_c_); - caml_call1(caml_call1(poly_a,fmt),x); - return 1} - caml_call3(Stdlib_list[21],_cz_,_cy_,x); - return caml_call2(Stdlib_format[123],fmt,_d_)} - function show(poly_a,x) - {function _cv_(_cw_,_cx_){return pp(poly_a,_cw_,_cx_)} - return caml_call3(Stdlib_format[127],_e_,_cv_,x)} - function last(param) + symbol + (symbol(symbol(symbol$2(1,symbol(symbol$2(1,h16c),h16)),cc),_n_),ls32), + _p_=symbol$1(4,h16c), + _q_=symbol(symbol(symbol(symbol$2(1,h16),cc),_p_),ls32), + _r_=symbol(symbol(cc,symbol$1(5,h16c)),ls32), + _s_= + symbol$0 + (symbol$0 + (symbol$0 + (symbol$0 + (symbol$0 + (symbol$0 + (symbol$0(symbol$0(symbol(symbol$1(6,h16c),ls32),_r_),_q_), + _o_), + _m_), + _k_), + _j_), + _i_), + _h_), + ipv6_address=symbol(symbol(symbol(caml_call1(Re[24],91),_s_),_g_),_d_), + _t_=symbol$0(symbol$0(unreserved,pct_encoded),sub_delims), + reg_name=caml_call1(Re[29],_t_), + host=symbol$0(symbol$0(ipv6_address,ipv4_address),reg_name), + _u_= + symbol$0(symbol$0(symbol$0(unreserved,pct_encoded),sub_delims),c_colon), + userinfo=caml_call1(Re[29],_u_), + port=caml_call2(Re_Posix[3],0,cst_0_9), + _v_=symbol(c_colon,caml_call1(Re[50],port)), + _w_=caml_call1(Re[32],_v_), + _x_=caml_call1(Re[50],host), + _y_=symbol(caml_call1(Re[50],userinfo),c_at), + authority=symbol(symbol(caml_call1(Re[32],_y_),_x_),_w_), + _z_=caml_call1(Re[50],Re[27]), + _A_=caml_call1(Re[50],Re[27]); + symbol(symbol(caml_call1(Re[50],Re[27]),_A_),_z_); + var + pchar= + symbol$0 + (symbol$0 + (symbol$0(symbol$0(unreserved,pct_encoded),sub_delims),c_colon), + c_at), + segment=caml_call1(Re[29],pchar), + segment_nz=caml_call1(Re[30],pchar), + _B_=symbol$0(symbol$0(symbol$0(unreserved,pct_encoded),sub_delims),c_at), + segment_nz_nc=caml_call3(Re[31],_B_,1,0), + _C_=symbol(c_slash,segment), + path_abempty=caml_call1(Re[29],_C_), + _D_=symbol(c_slash,segment), + _E_=symbol(segment_nz,caml_call1(Re[29],_D_)), + path_absolute=symbol(c_slash,caml_call1(Re[32],_E_)), + _F_=symbol(c_slash,segment), + path_noscheme=symbol(segment_nz_nc,caml_call1(Re[29],_F_)), + _G_=symbol(c_slash,segment), + path_rootless=symbol(segment_nz,caml_call1(Re[29],_G_)), + _H_=Re[27]; + symbol$0 + (symbol$0 + (symbol$0(symbol$0(path_abempty,path_absolute),path_noscheme), + path_rootless), + _H_); + var + _I_=symbol$0(symbol$0(path_absolute,path_rootless),_H_), + hier_part=symbol$0(symbol(symbol(c_slash2,authority),path_abempty),_I_), + scheme=caml_call2(Re_Posix[3],0,cst_A_Za_z_A_Za_z0_9), + _J_=symbol$0(symbol$0(pchar,c_slash),c_question), + _K_=caml_call1(Re[29],_J_), + query=caml_call1(Re[50],_K_), + _L_=symbol$0(symbol$0(pchar,c_slash),c_question), + _M_=caml_call1(Re[29],_L_), + fragment=caml_call1(Re[50],_M_), + _N_=symbol(c_question,query), + _O_=caml_call1(Re[32],_N_); + symbol(symbol(symbol(scheme,c_colon),hier_part),_O_); + var + _P_=symbol(c_hash,fragment), + _Q_=caml_call1(Re[32],_P_), + _R_=symbol(c_question,query), + _S_=caml_call1(Re[32],_R_); + symbol(symbol(symbol(symbol(scheme,c_colon),hier_part),_S_),_Q_); + var + _T_=symbol$0(symbol$0(path_absolute,path_noscheme),_H_), + relative_part= + symbol$0(symbol(symbol(c_slash2,authority),path_abempty),_T_), + _U_=symbol(c_hash,fragment), + _V_=caml_call1(Re[32],_U_), + _W_=symbol(c_question,query); + symbol(symbol(relative_part,caml_call1(Re[32],_W_)),_V_); + var + uri_reference=caml_call2(Re_Posix[3],0,cst$2), + ipv4_address$0=caml_call1(Re_Posix[4],ipv4_address), + ipv6_address$0=caml_call1(Re_Posix[4],ipv6_address), + uri_reference$0=caml_call1(Re_Posix[4],uri_reference), + authority$0=caml_call1(Re_Posix[4],authority), + host$0=caml_call1(Re_Posix[4],host); + function iter_concat(fn,sep,buf,param) {var param$0=param; for(;;) {if(param$0) - {var _ct_=param$0[2],_cu_=param$0[1]; - if(_ct_){var param$0=_ct_;continue} - return _cu_} - return caml_call1(Stdlib[2],cst_List_last)}} - function split_at(xs) - {var acc=0; - return function(xs$2) - {var acc$0=acc,i=xs,xs$0=xs$2; - for(;;) - {if(xs$0) - {var xs$1=xs$0[2],x=xs$0[1]; - if(0 < i) - {var i$0=i - 1 | 0,acc$1=[0,x,acc$0],acc$0=acc$1,i=i$0,xs$0=xs$1; - continue}} - return [0,caml_call1(rev,acc$0),xs$0]}}} - function take(i,param) - {if(param) - {var xs=param[2],x=param[1];if(0 < i)return [0,x,take(i - 1 | 0,xs)]} - return 0} - function drop(i,xs) - {var i$0=i,xs$0=xs; - for(;;) - {if(xs$0) - {var xs$1=xs$0[2]; - if(0 < i$0){var i$1=i$0 - 1 | 0,i$0=i$1,xs$0=xs$1;continue}} - return xs$0}} - function rtl(xs) - {var r=0,param=xs; - for(;;) - {if(param) - {var _cr_=param[2],_cs_=param[1]; - if(_cr_){var r$0=[0,_cs_,r],r=r$0,param=_cr_;continue} - return caml_call1(rev,r)} - return caml_call1(Stdlib[2],cst_rtl)}} - function unsnoc(xs) - {var r=0,param=xs; - for(;;) - {if(param) - {var _cp_=param[2],_cq_=param[1]; - if(_cp_){var r$0=[0,_cq_,r],r=r$0,param=_cp_;continue} - return [0,caml_call1(rev,r),_cq_]} - return caml_call1(Stdlib[2],cst_unsnoc)}} - function find_ix(x) - {var i=0; - return function(param$0) - {var i$0=i,param=param$0; - for(;;) - {if(param) - {var xs=param[2],x$0=param[1]; - if(caml_equal(x,x$0))return [0,i$0]; - var i$1=i$0 + 1 | 0,i$0=i$1,param=xs; + {var _c5_=param$0[2],_c6_=param$0[1]; + if(_c5_) + {caml_call2(fn,buf,_c6_); + caml_call2(Stdlib_buffer[14],buf,sep); + var param$0=_c5_; continue} - return 0}}} - function is_prefix(eq,xs,ys) - {var xs$0=xs,ys$0=ys; - for(;;) - {if(xs$0) - {if(ys$0) - {var - ys$1=ys$0[2], - y=ys$0[1], - xs$1=xs$0[2], - x=xs$0[1], - _co_=caml_call2(eq,x,y); - if(_co_){var xs$0=xs$1,ys$0=ys$1;continue} - return _co_} - return 0} - return 1}} - function is_suffix(eq,xs,ys) - {var _cn_=caml_call1(rev,ys); - return is_prefix(eq,caml_call1(rev,xs),_cn_)} - function strip_common_prefix(eq,xs,ys) - {var xs$0=xs,ys$0=ys; - for(;;) - {if(xs$0) - if(ys$0) - {var ys$1=ys$0[2],y=ys$0[1],xs$1=xs$0[2],x=xs$0[1]; - if(caml_call2(eq,x,y)){var xs$0=xs$1,ys$0=ys$1;continue}} - return [0,xs$0,ys$0]}} - function strip_common_suffix(eq,xs,ys) - {var - _cl_=caml_call1(rev,ys), - match=strip_common_prefix(eq,caml_call1(rev,xs),_cl_), - ys$0=match[2], - xs$0=match[1], - _cm_=caml_call1(rev,ys$0); - return [0,caml_call1(rev,xs$0),_cm_]} - function map2(err,f,xs,ys) - {if(err) - {var err$0=err[1],_ck_=caml_call1(length,ys); - if(caml_call1(length,xs) !== _ck_)return caml_call1(Stdlib[2],err$0)} - return caml_call3(_a_,f,xs,ys)} - function map3(err,f,xs,ys) - {var _cf_=map2(err,f,xs,ys); - function _cg_(_cj_,_ci_){return caml_call1(_cj_,_ci_)} - return function(_ch_){return map2(err,_cg_,_cf_,_ch_)}} - function find_some(f,param) - {var param$0=param; - for(;;) - {if(param$0) - {var xs=param$0[2],x=param$0[1],match=caml_call1(f,x); - if(match){var y=match[1];return [0,y]} - var param$0=xs; - continue} + return caml_call2(fn,buf,_c6_)} return 0}} - function map_some(f,param) - {var param$0=param; + function compare_opt(c,t$0,t) + {if(t$0) + {var _c4_=t$0[1];if(t){var b=t[1];return caml_call2(c,_c4_,b)}return 1} + return t?-1:0} + function compare_list(f,t$0,t) + {var t$2=t$0,t$1=t; for(;;) - {if(param$0) - {var xs=param$0[2],x=param$0[1],match=caml_call1(f,x); - if(match){var y=match[1];return [0,y,map_some(f,xs)]} - var param$0=xs; - continue} - return 0}} - function somes(xs){return map_some(function(x){return x},xs)} - function intersperse(sep) - {function prepend(param) - {if(param){var xs=param[2],x=param[1];return [0,sep,[0,x,prepend(xs)]]} - return 0} - return function(param) - {if(param){var xs=param[2],x=param[1];return [0,x,prepend(xs)]} - return 0}} - var - Utils_List= - [0, - equal, - pp, - show, - length, - compare_lengths, - compare_length_with, - cons, - hd, - tl, - nth, - nth_opt, - rev, - init, - append, - rev_append, - concat, - flatten, - iter, - iteri, - map, - mapi, - rev_map, - filter_map, - fold_left, - fold_right, - iter2, - rev_map2, - fold_left2, - fold_right2, - for_all, - exists, - for_all2, - exists2, - mem, - memq, - find, - find_opt, - filter, - find_all, - partition, - assoc, - assoc_opt, - assq, - assq_opt, - mem_assoc, - mem_assq, - remove_assoc, - remove_assq, - split, - combine, - sort, - stable_sort, - fast_sort, - sort_uniq, - merge, - to_seq, - of_seq, - last, - split_at, - take, - drop, - rtl, - unsnoc, - map3, - find_ix, - is_prefix, - is_suffix, - strip_common_prefix, - strip_common_suffix, - map2, - map_some, - find_some, - somes, - intersperse]; - caml_register_global(56,Utils_List,"Utils__List"); - function id(x){return x} - function pair(x,y){return [0,x,y]} - function flip(f,x,y){return caml_call2(f,y,x)} - function map_fst(f,param) - {var y=param[2],x=param[1];return [0,caml_call1(f,x),y]} - function map_snd(f,param) - {var y=param[2],x=param[1];return [0,x,caml_call1(f,y)]} - function Functor(A){var map=A[1];return [0,map,map]} - function Applicative(A) - {var - return$0=A[2], - apply=A[3], - include=Functor([0,A[1]]), - map=include[1], - symbol=include[2]; - function void$0(x){return caml_call2(map,function(param){return 0},x)} - function map2(f,x,y){return caml_call2(apply,caml_call2(symbol,f,x),y)} - function let$0(x){return function(_ce_){return flip(map,x,_ce_)}} - function and(x){return function(_cd_){return map2(pair,x,_cd_)}} - var - Applicative_syntax=[0,let$0,and], - let$1=Applicative_syntax[1], - and$0=Applicative_syntax[2]; - function cons(x,xs){return [0,x,xs]} - function mapA_list(f,param) - {if(param) - {var xs=param[2],x=param[1],_cc_=mapA_list(f,xs); - return caml_call2 - (apply,caml_call2(symbol,cons,caml_call1(f,x)),_cc_)} - return caml_call1(return$0,0)} - function mapA2_list(f,xs,ys) - {if(xs) - {if(ys) - {var - ys$0=ys[2], - y=ys[1], - xs$0=xs[2], - x=xs[1], - _cb_=mapA2_list(f,xs$0,ys$0); - return caml_call2 - (apply,caml_call2(symbol,cons,caml_call2(f,x,y)),_cb_)}} - else - if(! ys)return caml_call1(return$0,0); - return caml_call1(Stdlib[2],cst_mapA2_list_differing_lengths)} - function mapA_list$0(f,xs){return void$0(mapA_list(f,xs))} - function mapA2_list$0(f,xs,ys){return void$0(mapA2_list(f,xs,ys))} - function sequenceA_list(xs){return mapA_list(id,xs)} - function sequenceA_list$0(xs){return void$0(sequenceA_list(xs))} - function sequenceA_option(param) - {if(param) - {var x=param[1]; - return caml_call2(symbol,function(x){return [0,x]},x)} - return caml_call1(return$0,0)} - function sequenceA_fst(param) - {var y=param[2],x=param[1]; - return caml_call2(let$1,x,function(x){return [0,x,y]})} - function sequenceA_snd(param) - {var y=param[2],x=param[1]; - return caml_call2(let$1,y,function(y){return [0,x,y]})} - function sequenceA_pair(param) - {var y=param[2],x=param[1]; - function _ca_(param){var y=param[2],x=param[1];return [0,x,y]} - return caml_call2(let$1,caml_call2(and$0,x,y),_ca_)} - return [0, - return$0, - apply, - map, - symbol, - let$1, - and$0, - Applicative_syntax, - apply, - void$0, - map2, - mapA_list, - mapA_list$0, - mapA2_list, - mapA2_list$0, - sequenceA_list, - sequenceA_list$0, - sequenceA_option, - sequenceA_fst, - sequenceA_snd, - sequenceA_pair]} - function Monad(M) - {var - bind=M[4], - include=Applicative([0,M[1],M[2],M[3]]), - return$0=include[1], - apply=include[2], - map=include[3], - symbol=include[4], - let$0=include[5], - and=include[6], - Applicative_syntax=include[7], - symbol$0=include[8], - void$0=include[9], - map2=include[10], - mapA_list=include[11], - mapA_list$0=include[12], - mapA2_list=include[13], - mapA2_list$0=include[14], - sequenceA_list=include[15], - sequenceA_list$0=include[16], - sequenceA_option=include[17], - sequenceA_fst=include[18], - sequenceA_snd=include[19], - sequenceA_pair=include[20]; - function symbol$1(x,y) - {return caml_call2(bind,x,function(param){return y})} - function join(x){return caml_call2(bind,x,id)} - function bind2(f,x,y) - {return caml_call2 - (bind, - x, - function(x) - {return caml_call2 - (bind,y,function(y){return caml_call2(f,x,y)})})} - function unless(c,x){return c?caml_call1(return$0,0):x} - function and$0(x,y) - {return caml_call2 - (bind, - x, - function(x) - {return caml_call2 - (bind,y,function(y){return caml_call1(return$0,[0,x,y])})})} + {if(t$2) + {var _c2_=t$2[2],_c3_=t$2[1]; + if(t$1) + {var ys=t$1[2],y=t$1[1],c=caml_call2(f,_c3_,y); + if(0 === c){var t$2=_c2_,t$1=ys;continue} + return c} + return 1} + return t$1?-1:0}} + function sub_delims$0(a) + {var i=0; + for(;;) + {var c=caml_string_get(subd,i); + caml_check_bound(a,c)[1 + c] = 1; + var _c1_=i + 1 | 0; + if(10 !== i){var i=_c1_;continue} + return a}} + var a=caml_make_vect(256,0),i=0; + for(;;) + {var c=caml_string_get(always_safe,i); + caml_check_bound(a,c)[1 + c] = 1; + var _as_=i + 1 | 0; + if(65 !== i){var i=_as_;continue} + var pchar$0=sub_delims$0(caml_call1(Stdlib_array[8],a)); + caml_check_bound(pchar$0,58)[59] = 1; + caml_check_bound(pchar$0,64)[65] = 1; + var safe_chars_for_scheme=caml_call1(Stdlib_array[8],a); + caml_check_bound(safe_chars_for_scheme,43)[44] = 1; var - Monad_syntax=[0,bind,and$0], - let$1=Monad_syntax[1], - and$1=Monad_syntax[2]; - return [0, - bind, - return$0, - apply, - map, - symbol, - let$0, - and, - Applicative_syntax, - symbol$0, - void$0, - map2, - mapA_list, - mapA_list$0, - mapA2_list, - mapA2_list$0, - sequenceA_list, - sequenceA_list$0, - sequenceA_option, - sequenceA_fst, - sequenceA_snd, - sequenceA_pair, - let$1, - and$1, - Monad_syntax, - bind, - symbol$1, - join, - bind2, - unless]} - function of_left(param) - {if(0 === param[0]){var x=param[1];return [0,x]}return 0} - function of_right(param) - {if(0 === param[0])return 0;var x=param[1];return [0,x]} - function is_left(param){return 0 === param[0]?1:0} - function is_right(param){return 0 === param[0]?0:1} - var Either=[0,of_left,of_right,is_left,is_right]; - function equal$0(poly_a,x,match) - {if(0 === x[0]) - {var _b__=x[1]; - if(0 === match[0]){var b=match[1];return caml_call2(poly_a,_b__,b)}} - else - {var _b$_=x[1]; - if(0 !== match[0]) - {var b$0=match[1];return runtime.caml_string_equal(_b$_,b$0)}} - return 0} - function pp$0(poly_a,fmt,param) - {if(0 === param[0]) - {var ok=param[1]; - caml_call2(Stdlib_format[13],fmt,cst_Ok); - caml_call1(caml_call1(poly_a,fmt),ok); - return caml_call2(Stdlib_format[13],fmt,cst)} - var e=param[1]; - caml_call2(Stdlib_format[13],fmt,cst_Error); - caml_call1(caml_call2(Stdlib_format[123],fmt,_f_),e); - return caml_call2(Stdlib_format[13],fmt,cst$0)} - function show$0(poly_a,x) - {function _b7_(_b8_,_b9_){return pp$0(poly_a,_b8_,_b9_)} - return caml_call3(Stdlib_format[127],_g_,_b7_,x)} - function map$0(poly_a,param) - {if(0 === param[0]){var ok=param[1];return [0,caml_call1(poly_a,ok)]} - var err=param[1]; - return [1,err]} - function error(x){return [1,x]} - function cata(ok,err,param) - {if(0 === param[0]){var r=param[1];return caml_call1(ok,r)} - var x=param[1]; - return caml_call1(err,x)} - function return$0(x){return [0,x]} - function apply(e,match) - {if(0 === e[0]) - {var _b6_=e[1]; - if(0 === match[0]){var x=match[1];return [0,caml_call1(_b6_,x)]} - return match} - return e} - function bind(x,f){return cata(f,error,x)} - var - include=Monad([0,map$0,return$0,apply,bind]), - bind$0=include[1], - return$1=include[2], - apply$0=include[3], - map$1=include[4], - symbol=include[5], - let$0=include[6], - and=include[7], - Applicative_syntax=include[8], - symbol$0=include[9], - void$0=include[10], - map2$0=include[11], - mapA_list=include[12], - mapA_list$0=include[13], - mapA2_list=include[14], - mapA2_list$0=include[15], - sequenceA_list=include[16], - sequenceA_list$0=include[17], - sequenceA_option=include[18], - sequenceA_fst=include[19], - sequenceA_snd=include[20], - sequenceA_pair=include[21], - let$1=include[22], - and$0=include[23], - Monad_syntax=include[24], - symbol_bind=include[25], - symbol$1=include[26], - join=include[27], - bind2=include[28], - unless=include[29], - Result= - [0, - equal$0, - pp$0, - show$0, - error, - cata, - bind$0, - return$1, - apply$0, - map$1, - symbol, - let$0, - and, - Applicative_syntax, - symbol$0, - void$0, - map2$0, - mapA_list, - mapA_list$0, - mapA2_list, - mapA2_list$0, - sequenceA_list, - sequenceA_list$0, - sequenceA_option, - sequenceA_fst, - sequenceA_snd, - sequenceA_pair, - let$1, - and$0, - Monad_syntax, - symbol_bind, - symbol$1, - join, - bind2, - unless]; - function Writer(T) - {function map(f,param) - {var x=param[2],a=param[1];return [0,a,caml_call1(f,x)]} - function return$0(x){return [0,0,x]} - function bind(param,f) - {var - x=param[2], - a=param[1], - match=caml_call1(f,x), - x$0=match[2], - a$0=match[1]; - return [0,caml_call2(Stdlib[37],a$0,a),x$0]} - function apply(f,x) - {return bind - (f, - function(f) - {return bind - (x,function(x){return return$0(caml_call1(f,x))})})} + safe_chars_for_path= + sub_delims$0(caml_call1(Stdlib_array[8],pchar$0)); + caml_check_bound(safe_chars_for_path,47)[48] = 0; + var safe_chars_for_fragment=caml_call1(Stdlib_array[8],pchar$0); + caml_check_bound(safe_chars_for_fragment,47)[48] = 1; + caml_check_bound(safe_chars_for_fragment,63)[64] = 1; + caml_check_bound(safe_chars_for_fragment,38)[39] = 0; + caml_check_bound(safe_chars_for_fragment,59)[60] = 0; + caml_check_bound(safe_chars_for_fragment,43)[44] = 0; var - include=Monad([0,map,return$0,apply,bind]), - bind$0=include[1], - return$1=include[2], - apply$0=include[3], - map$0=include[4], - symbol=include[5], - let$0=include[6], - and=include[7], - Applicative_syntax=include[8], - symbol$0=include[9], - void$0=include[10], - map2=include[11], - mapA_list=include[12], - mapA_list$0=include[13], - mapA2_list=include[14], - mapA2_list$0=include[15], - sequenceA_list=include[16], - sequenceA_list$0=include[17], - sequenceA_option=include[18], - sequenceA_fst=include[19], - sequenceA_snd=include[20], - sequenceA_pair=include[21], - let$1=include[22], - and$0=include[23], - Monad_syntax=include[24], - symbol_bind=include[25], - symbol$1=include[26], - join=include[27], - bind2=include[28], - unless=include[29]; - function write(a){return [0,[0,a,0],0]} - function run(param) - {var x=param[2],a=param[1];return [0,caml_call1(rev,a),x]} - return [0, - bind$0, - return$1, - apply$0, - map$0, - symbol, - let$0, - and, - Applicative_syntax, - symbol$0, - void$0, - map2, - mapA_list, - mapA_list$0, - mapA2_list, - mapA2_list$0, - sequenceA_list, - sequenceA_list$0, - sequenceA_option, - sequenceA_fst, - sequenceA_snd, - sequenceA_pair, - let$1, - and$0, - Monad_syntax, - symbol_bind, - symbol$1, - join, - bind2, - unless, - write, - run]} - function print_list(xs,ppf) - {function _b4_(ppf,x){return caml_call3(Stdlib_format[123],ppf,_h_,x)} + safe_chars_for_query_key= + caml_call1(Stdlib_array[8],safe_chars_for_fragment); + caml_check_bound(safe_chars_for_query_key,61)[62] = 0; var - _b5_= - [0,function(ppf,param){return caml_call2(Stdlib_format[123],ppf,_i_)}]; - return caml_call4(Stdlib_format[119],_b5_,_b4_,ppf,xs)} - function pp_int(ppf){return caml_call2(Stdlib_format[123],ppf,_j_)} - function curry(f,x,y){return caml_call1(f,[0,x,y])} - function uncurry(f,param) - {var y=param[2],x=param[1];return caml_call2(f,x,y)} - function eq3(x,y,z) - {var _b2_=caml_equal(x,y),_b3_=_b2_?caml_equal(y,z):_b2_;return _b3_} - function pp_no_breaks(f,param) - {var fs=caml_call2(Stdlib_format[98],f,0); - function _bZ_(param){return 0} - var _b0_=fs[4]; - function _b1_(param){return 0} - return caml_call2(Stdlib_format[96],f,[0,fs[1],fs[2],_b1_,_b0_,_bZ_])} - function equal_pair(poly_a,poly_b,param,_bX_) - {var - rhs1=_bX_[2], - rhs0=_bX_[1], - lhs1=param[2], - lhs0=param[1], - _bY_=caml_call2(poly_a,lhs0,rhs0); - return _bY_?caml_call2(poly_b,lhs1,rhs1):_bY_} - function pp_pair(poly_a,poly_b,fmt,param) - {var a1=param[2],a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_k_); - caml_call1(caml_call1(poly_a,fmt),a0); - caml_call2(Stdlib_format[123],fmt,_l_); - caml_call1(caml_call1(poly_b,fmt),a1); - return caml_call2(Stdlib_format[123],fmt,_m_)} - function show_pair(poly_a,poly_b,x) - {function _bU_(_bV_,_bW_){return pp_pair(poly_a,poly_b,_bV_,_bW_)} - return caml_call3(Stdlib_format[127],_n_,_bU_,x)} - function map_pair(poly_a,poly_b,param) - {var a1=param[2],a0=param[1],_bT_=caml_call1(poly_b,a1); - return [0,caml_call1(poly_a,a0),_bT_]} - var t=[0,0]; - function tick(s) - {var now=caml_call1(Unix[99],0),_bS_=t[1]; - if(_bS_) - {var t$0=_bS_[1],dt=(now - t$0) * 1000.; - caml_call3(Stdlib_printf[3],_o_,dt,s)} - else - caml_call2(Stdlib_printf[3],_p_,s); - t[1] = [0,now]; - return 0} - function _q_(_bL_) - {function map(f,x,s){return caml_call1(f,caml_call1(x,s))} - function return$0(x,param){return x} - function bind(x,f,s){var x$0=caml_call1(x,s);return caml_call2(f,x$0,s)} - function apply(f,x) - {function _bM_(f) - {function _bO_(x) - {var _bQ_=caml_call1(f,x);return function(_bR_){return _bQ_}} - return function(_bP_){return bind(x,_bO_,_bP_)}} - return function(_bN_){return bind(f,_bM_,_bN_)}} + safe_chars_for_query_value= + caml_call1(Stdlib_array[8],safe_chars_for_fragment); + caml_check_bound(safe_chars_for_query_value,44)[45] = 0; + var a$0=caml_call1(Stdlib_array[8],a); + caml_check_bound(a$0,58)[59] = 0; var - include=Monad([0,map,return$0,apply,bind]), - bind$0=include[1], - return$1=include[2], - apply$0=include[3], - map$0=include[4], - symbol=include[5], - let$0=include[6], - and=include[7], - Applicative_syntax=include[8], - symbol$0=include[9], - void$0=include[10], - map2=include[11], - mapA_list=include[12], - mapA_list$0=include[13], - mapA2_list=include[14], - mapA2_list$0=include[15], - sequenceA_list=include[16], - sequenceA_list$0=include[17], - sequenceA_option=include[18], - sequenceA_fst=include[19], - sequenceA_snd=include[20], - sequenceA_pair=include[21], - let$1=include[22], - and$0=include[23], - Monad_syntax=include[24], - symbol_bind=include[25], - symbol$1=include[26], - join=include[27], - bind2=include[28], - unless=include[29]; - function ask(s){return s} - function local(f,x,s){return caml_call1(x,caml_call1(f,s))} - function run(f,s){return caml_call1(f,s)} - return [0, - ask, - local, - bind$0, - return$1, - apply$0, - map$0, - symbol, - let$0, - and, - Applicative_syntax, - symbol$0, - void$0, - map2, - mapA_list, - mapA_list$0, - mapA2_list, - mapA2_list$0, - sequenceA_list, - sequenceA_list$0, - sequenceA_option, - sequenceA_fst, - sequenceA_snd, - sequenceA_pair, - let$1, - and$0, - Monad_syntax, - symbol_bind, - symbol$1, - join, - bind2, - unless, - run]} - var - Utils_Control= - [0, - id, - pair, - flip, - map_fst, - map_snd, - Functor, - Applicative, - Monad, - Either, - Result, - function(_bC_) - {function map(f,x,s){return map_fst(f,caml_call1(x,s))} - function return$0(x,s){return [0,x,s]} - function bind(x,f,s) - {var match=caml_call1(x,s),s$0=match[2],x$0=match[1]; - return caml_call2(f,x$0,s$0)} - function apply(f,x) - {function _bF_(f) - {function _bH_(x) - {var _bJ_=caml_call1(f,x); - return function(_bK_){return [0,_bJ_,_bK_]}} - return function(_bI_){return bind(x,_bH_,_bI_)}} - return function(_bG_){return bind(f,_bF_,_bG_)}} - var - include=Monad([0,map,return$0,apply,bind]), - bind$0=include[1], - return$1=include[2], - apply$0=include[3], - map$0=include[4], - symbol=include[5], - let$0=include[6], - and=include[7], - Applicative_syntax=include[8], - symbol$0=include[9], - void$0=include[10], - map2=include[11], - mapA_list=include[12], - mapA_list$0=include[13], - mapA2_list=include[14], - mapA2_list$0=include[15], - sequenceA_list=include[16], - sequenceA_list$0=include[17], - sequenceA_option=include[18], - sequenceA_fst=include[19], - sequenceA_snd=include[20], - sequenceA_pair=include[21], - let$1=include[22], - and$0=include[23], - Monad_syntax=include[24], - symbol_bind=include[25], - symbol$1=include[26], - join=include[27], - bind2=include[28], - unless=include[29]; - function get(s){return [0,s,s]} - function set(s,param){return [0,0,s]} - function modify(f) - {return caml_call2 - (symbol_bind, - get, - function(s) - {var _bD_=caml_call1(f,s); - return function(_bE_){return set(_bD_,_bE_)}})} - function run(f,s){return caml_call1(f,s)} - function exec(f,s){return run(f,s)[1]} - return [0, - get, - set, - modify, - bind$0, - return$1, - apply$0, - map$0, - symbol, - let$0, - and, - Applicative_syntax, - symbol$0, - void$0, - map2, - mapA_list, - mapA_list$0, - mapA2_list, - mapA2_list$0, - sequenceA_list, - sequenceA_list$0, - sequenceA_option, - sequenceA_fst, - sequenceA_snd, - sequenceA_pair, - let$1, - and$0, - Monad_syntax, - symbol_bind, - symbol$1, - join, - bind2, - unless, - run, - exec]}, - _q_, - Writer, - print_list, - pp_int, - curry, - uncurry, - eq3, - pp_no_breaks, - equal_pair, - pp_pair, - show_pair, - map_pair, - tick]; - caml_register_global(59,Utils_Control,"Utils__Control"); - var - none=Stdlib_option[1], - value=Stdlib_option[3], - get=Stdlib_option[4], - fold=Stdlib_option[8], - iter$0=Stdlib_option[9], - compare=Stdlib_option[13], - to_result=Stdlib_option[14], - to_list=Stdlib_option[15], - to_seq$0=Stdlib_option[16]; - function equal$1(poly_a,x,y) - {if(x) - {if(y){var b=y[1],a=x[1];return caml_call2(poly_a,a,b)}} - else - if(! y)return 1; - return 0} - function pp$1(poly_a,fmt,param) - {if(param) - {var x=param[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some); - caml_call1(caml_call1(poly_a,fmt),x); - return caml_call2(Stdlib_format[13],fmt,cst$1)} - return caml_call2(Stdlib_format[13],fmt,cst_None)} - function show$1(poly_a,x) - {function _bz_(_bA_,_bB_){return pp$1(poly_a,_bA_,_bB_)} - return caml_call3(Stdlib_format[127],_r_,_bz_,x)} - function cata$0(x,f,param) - {if(param){var x$0=param[1];return caml_call1(f,x$0)}return x} - function some(x){return [0,x]} - function map$2(f,param) - {if(param){var x=param[1];return [0,caml_call1(f,x)]}return 0} - function apply$1(f,match) - {if(f)if(match){var x=match[1],f$0=f[1];return [0,caml_call1(f$0,x)]} - return 0} - function bind$1(x,f){return cata$0(0,f,x)} + safe_chars_for_component= + function(param) + {if(-145160103 <= param) + if(795008922 <= param) + {if(892015045 === param)return safe_chars_for_path; + if(! (795008923 <= param))return safe_chars_for_query_value} + else + {if(127343600 === param)return safe_chars_for_fragment; + if(! (-145160102 <= param))return a$0} + else + {if(-911188600 === param)return safe_chars_for_query_key; + if(-250086680 === param)return safe_chars_for_fragment; + if(-178940859 === param)return safe_chars_for_scheme} + return a}, + normalize_host=function(hso){return hso}, + canonicalize_port=function(port){return port}, + canonicalize_path=function(path){return path}, + Generic= + [0, + safe_chars_for_component, + normalize_host, + canonicalize_port, + canonicalize_path], + safe_chars_for_component$0=Generic[1], + normalize_host$0= + function(param) + {if(param) + {var hs=param[1];return [0,caml_call1(Stdlib_string[30],hs)]} + return 0}, + canonicalize_port$0= + function(param) + {if(param){var _c0_=param[1];return 80 === _c0_?0:[0,_c0_]}return 0}, + canonicalize_path$0=function(x){return x?x:_X_}, + Http= + [0, + safe_chars_for_component$0, + normalize_host$0, + canonicalize_port$0, + canonicalize_path$0], + safe_chars_for_component$1=Http[1], + normalize_host$1=Http[2], + canonicalize_path$1=Http[4], + canonicalize_port$1= + function(param) + {if(param){var _cZ_=param[1];return 443 === _cZ_?0:[0,_cZ_]}return 0}, + Https= + [0, + safe_chars_for_component$1, + normalize_host$1, + canonicalize_port$1, + canonicalize_path$1], + safe_chars_for_component$2=Generic[1], + canonicalize_port$2=Generic[3], + canonicalize_path$2=Generic[4], + normalize_host$2= + function(param) + {if(param) + {var hs=param[1],hs$0=caml_call1(Stdlib_string[30],hs); + return caml_string_equal(hs$0,cst_localhost)?_Y_:[0,hs$0]} + return 0}, + File= + [0, + safe_chars_for_component$2, + normalize_host$2, + canonicalize_port$2, + canonicalize_path$2], + safe_chars_for_component$3=Generic[1], + normalize_host$3=Generic[2], + canonicalize_port$3=Generic[3], + canonicalize_path$3=Generic[4], + Urn= + [0, + safe_chars_for_component$3, + normalize_host$3, + canonicalize_port$3, + canonicalize_path$3], + module_of_scheme= + function(param) + {if(param) + {var s=param[1],match=caml_call1(Stdlib_string[30],s); + return caml_string_notequal(match,cst_file) + ?caml_string_notequal(match,cst_http) + ?caml_string_notequal(match,cst_https) + ?caml_string_notequal(match,cst_urn)?Generic:Urn + :Https + :Http + :File} + return Generic}, + encode= + function(scheme,opt,b) + {if(opt)var sth=opt[1],component=sth;else var component=892015045; + var + Scheme=module_of_scheme(scheme), + safe_chars=caml_call1(Scheme[1],component), + len=caml_ml_string_length(b), + buf=caml_call1(Stdlib_buffer[1],len), + start=0, + cur=0; + for(;;) + {if(len <= cur) + {caml_call4(Stdlib_buffer[16],buf,b,start,cur - start | 0); + return caml_call1(Stdlib_buffer[2],buf)} + var c=caml_string_get(b,cur); + if(caml_check_bound(safe_chars,c)[1 + c]) + {var cur$0=cur + 1 | 0,cur=cur$0;continue} + if(start < cur) + caml_call4(Stdlib_buffer[16],buf,b,start,cur - start | 0); + var _cY_=caml_call2(Stdlib_printf[4],_Z_,c); + caml_call2(Stdlib_buffer[14],buf,_cY_); + var cur$1=cur + 1 | 0,start$0=cur + 1 | 0,start=start$0,cur=cur$1; + continue}}, + int_of_hex_char= + function(c) + {var c$0=caml_call1(Stdlib_char[6],c) - 48 | 0; + if(9 < c$0) + {if(16 < c$0 && ! (23 <= c$0))return c$0 - 7 | 0; + return caml_call1(Stdlib[2],cst_int_of_hex_char)} + return 0 <= c$0?c$0:caml_call1(Stdlib[2],cst_int_of_hex_char$0)}, + decode= + function(b) + {var + len=caml_ml_string_length(b), + buf=caml_call1(Stdlib_buffer[1],len); + function scan(start,cur) + {var start$0=start,cur$0=cur; + for(;;) + {if(len <= cur$0) + return caml_call4 + (Stdlib_buffer[16],buf,b,start$0,cur$0 - start$0 | 0); + if(37 === caml_string_get(b,cur$0)) + {caml_call4 + (Stdlib_buffer[16],buf,b,start$0,cur$0 - start$0 | 0); + var cur$1=cur$0 + 1 | 0; + if(len <= cur$1)return caml_call2(Stdlib_buffer[10],buf,37); + try + {var highbits=int_of_hex_char(caml_string_get(b,cur$1))} + catch(_cX_) + {caml_call2(Stdlib_buffer[10],buf,37); + var start$0=cur$1,cur$0=cur$1; + continue} + var cur$2=cur$1 + 1 | 0; + if(len <= cur$2) + {caml_call2(Stdlib_buffer[10],buf,37); + var _cT_=caml_string_get(b,cur$2 - 1 | 0); + return caml_call2(Stdlib_buffer[10],buf,_cT_)} + try + {var + switch$0=0, + lowbits=int_of_hex_char(caml_string_get(b,cur$2)); + switch$0 = 1} + catch(_cW_) + {caml_call2(Stdlib_buffer[10],buf,37); + var _cU_=caml_string_get(b,cur$2 - 1 | 0); + caml_call2(Stdlib_buffer[10],buf,_cU_); + var cur$3=cur$2} + if(switch$0) + {var + _cV_= + caml_call1(Stdlib_char[1],(highbits << 4) + lowbits | 0); + caml_call2(Stdlib_buffer[10],buf,_cV_); + var cur$3=cur$2 + 1 | 0} + var start$0=cur$3,cur$0=cur$3; + continue} + var cur$4=cur$0 + 1 | 0,cur$0=cur$4; + continue}} + scan(0,0); + return caml_call1(Stdlib_buffer[2],buf)}, + pct_encode= + function(scheme,opt,s) + {if(opt)var sth=opt[1],component=sth;else var component=892015045; + return encode(scheme,[0,component],s)}, + pct_decode=function(s){return decode(s)}, + compare= + function(param,_cS_) + {var + p=_cS_[2], + u=_cS_[1], + p$0=param[2], + u$0=param[1], + c=caml_call2(Stdlib_string[33],u$0,u); + return 0 === c?compare_opt(Stdlib_string[33],p$0,p):c}, + userinfo_of_encoded= + function(us) + {var match=caml_call3(Stringext[3],___,us,58); + if(match) + {var _cP_=match[2],_cQ_=match[1]; + if(_cP_) + {var p=_cP_[1],_cR_=[0,pct_decode(p)]; + return [0,pct_decode(_cQ_),_cR_]} + return [0,pct_decode(_cQ_),0]} + return _$_}, + encoded_of_userinfo= + function(scheme) + {return function(param) + {var po=param[2],u=param[1]; + if(po)var p=po[1],_cM_=caml_ml_string_length(p);else var _cM_=0; + var + len=(1 + caml_ml_string_length(u) | 0) + _cM_ | 0, + buf=caml_call1(Stdlib_buffer[1],len), + _cN_=pct_encode(scheme,_aa_,u); + caml_call2(Stdlib_buffer[14],buf,_cN_); + if(po) + {var p$0=po[1]; + caml_call2(Stdlib_buffer[10],buf,58); + var _cO_=pct_encode(scheme,_ab_,p$0); + caml_call2(Stdlib_buffer[14],buf,_cO_)} + return caml_call1(Stdlib_buffer[2],buf)}}, + _ac_=Stdlib_string[33], + path_of_encoded= + function(ps) + {var tokl=caml_call2(Stringext[4],ps,47); + return caml_call2(Stdlib_list[17],pct_decode,tokl)}, + remove_dot_segments= + function(p) + {var + param$1=caml_call1(Stdlib_list[9],p), + ascension=0, + outp=0, + param$2=param$1; + for(;;) + {var switch$0=0; + if(param$2) + {var _cI_=param$2[1],switch$1=0; + if(caml_string_notequal(_cI_,cst$3)) + {var switch$2=0; + if(caml_string_notequal(_cI_,cst$4)) + if(caml_string_notequal(_cI_,cst$5)) + {switch$1 = 1;switch$2 = 1} + else + {var _cK_=param$2[2]; + if(_cK_) + {var _cL_=_cK_[1]; + if(caml_string_notequal(_cL_,cst$9)) + if(caml_string_notequal(_cL_,cst$10)) + {if(! caml_string_notequal(_cL_,cst$11)) + {var r$0=_cK_[2]; + if(0 < ascension) + {var + param$4=[0,cst$12,r$0], + ascension$1=ascension - 1 | 0, + ascension=ascension$1, + param$2=param$4; + continue}} + var r=_cK_[2]; + if(0 < ascension) + {var + ascension$0=ascension - 1 | 0, + ascension=ascension$0, + param$2=r; + continue} + switch$1 = 1; + switch$2 = 1} + else + var param$5=_cK_[2]; + else + {var param$6=_cK_[2];switch$2 = 1}} + else + {switch$0 = 1;switch$1 = 1;switch$2 = 1}} + else + var param$5=param$2[2]; + if(! switch$2) + {var + ascension$2=ascension + 1 | 0, + ascension=ascension$2, + param$2=param$5; + continue}} + else + var param$6=param$2[2]; + if(! switch$1){var param$2=param$6;continue}} + else + switch$0 = 1; + if + (switch$0 + && + 0 + < + caml_call1(Stdlib_list[1],p) + && + caml_string_equal(caml_call1(Stdlib_list[5],p),cst$13)) + return [0,cst$14,outp]; + if(param$2) + {var + param$3=param$2[2], + s=param$2[1], + outp$0=[0,s,outp], + ascension=0, + outp=outp$0, + param$2=param$3; + continue} + if(0 < ascension) + {var + lst= + caml_call1(Stdlib_array[11],caml_make_vect(ascension,cst$6)); + if(lst) + {var t=lst[2],h=lst[1],acc$1=[0,h,0],acc=acc$1,param=t; + for(;;) + {if(param) + {var + param$0=param[2], + x=param[1], + acc$0=[0,x,[0,e,acc]], + acc=acc$0, + param=param$0; + continue} + var _cJ_=acc; + break}} + else + var _cJ_=0; + return caml_call2(Stdlib_list[12],[0,cst$7,_cJ_],outp)} + if + (0 + < + caml_call1(Stdlib_list[1],outp) + && + caml_string_equal(caml_call1(Stdlib_list[5],outp),cst$8)) + return caml_call1(Stdlib_list[6],outp); + return outp}}, + encoded_of_path= + function(scheme) + {return function(p) + {var _cF_=0; + function _cG_(c,tok){return caml_ml_string_length(tok) + c | 0} + var + len=caml_call3(Stdlib_list[21],_cG_,_cF_,p), + buf=caml_call1(Stdlib_buffer[1],len); + iter_concat + (function(buf,seg) + {if(caml_string_notequal(seg,cst$16)) + {var _cH_=pct_encode(scheme,_ad_,seg); + return caml_call2(Stdlib_buffer[14],buf,_cH_)} + return caml_call2(Stdlib_buffer[10],buf,47)}, + cst$15, + buf, + p); + return caml_call1(Stdlib_buffer[2],buf)}}, + find= + function(q,k) + {try + {var _cD_=[0,caml_call2(Stdlib_list[39],k,q)];return _cD_} + catch(_cE_) + {_cE_ = caml_wrap_exception(_cE_); + if(_cE_ === Stdlib[8])return 0; + throw _cE_}}, + query_of_encoded= + function(qs) + {var els=caml_call3(Stringext[3],0,qs,38); + function plus_to_space(s) + {var + s$0=caml_call1(Stdlib_bytes[43],s), + _cB_=runtime.caml_ml_bytes_length(s$0) - 1 | 0, + _cA_=0; + if(! (_cB_ < 0)) + {var i=_cA_; + for(;;) + {if(43 === runtime.caml_bytes_get(s$0,i)) + runtime.caml_bytes_set(s$0,i,32); + var _cC_=i + 1 | 0; + if(_cB_ !== i){var i=_cC_;continue} + break}} + return caml_call1(Stdlib_bytes[42],s$0)} + if(els) + {var + _cw_=function(el){return caml_call3(Stringext[3],_ag_,el,61)}, + param$1=caml_call2(Stdlib_list[19],_cw_,els), + acc=0, + param=param$1; + for(;;) + {if(param) + {var _cs_=param[1]; + if(_cs_) + {var _ct_=_cs_[2],_cu_=_cs_[1]; + if(_ct_) + {var + tl=param[2], + v=_ct_[1], + _cv_=plus_to_space(v), + l=caml_call3(Stringext[3],0,_cv_,44), + l$0=l || _ae_, + n=[0,plus_to_space(_cu_),l$0], + acc$0=[0,n,acc], + acc=acc$0, + param=tl; + continue} + var + tl$0=param[2], + n$0=[0,plus_to_space(_cu_),0], + acc$1=[0,n$0,acc], + acc=acc$1, + param=tl$0; + continue} + var + param$0=param[2], + acc$2=[0,_af_,acc], + acc=acc$2, + param=param$0; + continue} + var _cx_=acc; + break}} + else + var _cx_=_ah_; + function _cy_(param) + {var + v=param[2], + k=param[1], + _cz_=caml_call2(Stdlib_list[17],pct_decode,v); + return [0,pct_decode(k),_cz_]} + return caml_call2(Stdlib_list[17],_cy_,_cx_)}, + encoded_of_query= + function(scheme,l) + {var _cl_=-1; + function _cm_(a,param) + {var v=param[2],k=param[1],_cq_=0; + function _cr_(a,s) + {return (a + caml_ml_string_length(s) | 0) + 1 | 0} + return ((a + caml_ml_string_length(k) | 0) + + + caml_call3(Stdlib_list[21],_cr_,_cq_,v) + | + 0) + + + 2 + | + 0} + var + len=caml_call3(Stdlib_list[21],_cm_,_cl_,l), + buf=caml_call1(Stdlib_buffer[1],len); + iter_concat + (function(buf,param) + {var v=param[2],k=param[1],_cn_=pct_encode(scheme,_ai_,k); + caml_call2(Stdlib_buffer[14],buf,_cn_); + var _co_=0 !== v?1:0; + return _co_ + ?(caml_call2(Stdlib_buffer[10],buf,61), + iter_concat + (function(buf,s) + {var _cp_=pct_encode(scheme,_aj_,s); + return caml_call2(Stdlib_buffer[14],buf,_cp_)}, + cst$22, + buf, + v)) + :_co_}, + cst$21, + buf, + l); + return caml_call1(Stdlib_buffer[2],buf)}, + of_raw= + function(qs) + {function _ck_(param){return query_of_encoded(qs)} + var lazy_query=caml_call1(Stdlib_lazy[3],_ck_); + return [1,[0,qs],lazy_query]}, + kv= + function(param) + {if(0 === param[0]) + var kv=param[1]; + else + var + _ch_=param[2], + _ci_=caml_obj_tag(_ch_), + _cj_= + 250 === _ci_ + ?_ch_[1] + :246 === _ci_?caml_call1(CamlinternalLazy[2],_ch_):_ch_, + kv=_cj_; + return kv}, + encoded_of_query$0= + function(scheme) + {return function(_cg_){return encoded_of_query(scheme,_cg_)}}, + empty=[0,0,0,0,0,0,[1,0,caml_call1(Stdlib_lazy[4],0)],0], + _ak_=Stdlib_string[33], + compare_decoded_opt= + function(_ce_,_cf_){return compare_opt(_ak_,_ce_,_cf_)}, + compare$0= + function(t$0,t) + {var c=compare_decoded_opt(t$0[3],t[3]); + if(0 === c) + {var c$0=compare_decoded_opt(t$0[1],t[1]); + if(0 === c$0) + {var + _b$_=t[4], + _ca_=t$0[4], + c$1= + compare_opt + (function(p$0,p){return p$0 < p?-1:p < p$0?1:0},_ca_,_b$_); + if(0 === c$1) + {var c$2=compare_opt(compare,t$0[2],t[2]); + if(0 === c$2) + {var c$4=compare_list(_ac_,t$0[5],t[5]); + if(0 === c$4) + {var _cb_=t[6],_cc_=t$0[6],switch$0=0; + if(0 === _cc_[0]) + {var _b3_=_cc_[1]; + if(0 === _cb_[0]) + var kvl$0=_b3_,kvl=_cb_[1]; + else + var + _b4_=_cb_[2], + _b5_=caml_obj_tag(_b4_), + _b6_= + 250 === _b5_ + ?_b4_[1] + :246 === _b5_?caml_call1(CamlinternalLazy[2],_b4_):_b4_, + kvl$0=_b3_, + kvl=_b6_} + else + {var _b7_=_cc_[2],_b8_=_cc_[1]; + if(0 === _cb_[0]) + var + _b9_=caml_obj_tag(_b7_), + _b__= + 250 === _b9_ + ?_b7_[1] + :246 === _b9_?caml_call1(CamlinternalLazy[2],_b7_):_b7_, + kvl$0=_b__, + kvl=_cb_[1]; + else + {var + raw=_cb_[1], + c$3=compare_opt(Stdlib_string[33],_b8_,raw); + switch$0 = 1}} + if(! switch$0) + var + c$3= + compare_list + (function(param,_cd_) + {var + vl=_cd_[2], + k=_cd_[1], + vl$0=param[2], + k$0=param[1], + c=caml_call2(Stdlib_string[33],k$0,k); + return 0 === c?compare_list(Stdlib_string[33],vl$0,vl):c}, + kvl$0, + kvl); + return 0 === c$3?compare_decoded_opt(t$0[7],t[7]):c$3} + return c$4} + return c$2} + return c$1} + return c$0} + return c}, + equal=function(t$0,t){return 0 === compare$0(t$0,t)?1:0}, + uncast_opt= + function(param){if(param){var h=param[1];return [0,h]}return 0}, + normalize= + function(schem,init) + {var + Scheme=module_of_scheme(uncast_opt(schem)), + _bT_=init[7], + _bU_=init[6], + _bV_=init[5], + _bW_=init[4], + _bX_=uncast_opt(init[3]), + param=caml_call1(Scheme[2],_bX_); + if(param)var h=param[1],_bY_=[0,h];else var _bY_=0; + var _b0_=init[1],_bZ_=init[2],_b1_=Stdlib_string[30]; + if(_b0_)var x=_b0_[1],_b2_=[0,caml_call1(_b1_,x)];else var _b2_=0; + return [0,_b2_,_bZ_,_bY_,_bW_,_bV_,_bU_,_bT_]}, + make= + function(scheme,userinfo,host,port,path,query,fragment,param) + {function decode(param) + {if(param){var x=param[1];return [0,x]}return 0} + var switch$0=0; + if(! host) + {var switch$1=0; + if(! port && ! userinfo)switch$1 = 1; + if(! switch$1){var host$0=_am_;switch$0 = 1}} + if(! switch$0)var host$0=host; + if(userinfo) + var u=userinfo[1],userinfo$0=[0,userinfo_of_encoded(u)]; + else + var userinfo$0=0; + if(path) + {var p=path[1],match=path_of_encoded(p),switch$2=0; + if(host$0 && match && caml_string_notequal(match[1],cst$23)) + {var _bR_=[0,cst$24,match];switch$2 = 1} + if(! switch$2)var _bR_=match; + var path$0=_bR_} + else + var path$0=0; + if(query)var p$0=query[1],query$0=[0,p$0];else var query$0=_al_; + var scheme$0=decode(scheme),_bS_=decode(fragment); + return normalize + (scheme$0, + [0, + scheme$0, + userinfo$0, + decode(host$0), + port, + path$0, + query$0, + _bS_])}, + of_string= + function(s) + {function get_opt_encoded(s,n) + {try + {var _bP_=[0,caml_call2(Re[1][1],s,n)];return _bP_} + catch(_bQ_) + {_bQ_ = caml_wrap_exception(_bQ_); + if(_bQ_ === Stdlib[8])return 0; + throw _bQ_}} + function get_opt(s,n) + {try + {var pct=caml_call2(Re[1][1],s,n),_bN_=[0,decode(pct)]; + return _bN_} + catch(_bO_) + {_bO_ = caml_wrap_exception(_bO_); + if(_bO_ === Stdlib[8])return 0; + throw _bO_}} + var + subs=caml_call4(Re[3],0,0,uri_reference$0,s), + scheme=get_opt(subs,2), + match=get_opt_encoded(subs,4); + if(match) + {var + a=match[1], + subs$0=caml_call4(Re[3],0,0,authority$0,a), + match$0=get_opt_encoded(subs$0,1); + if(match$0) + var x=match$0[1],userinfo=[0,userinfo_of_encoded(x)]; + else + var userinfo=0; + var host=get_opt(subs$0,2),match$1=get_opt(subs$0,3); + if(match$1) + {var x$0=match$1[1]; + try + {var _bL_=[0,runtime.caml_int_of_string(x$0)],_bK_=_bL_} + catch(_bM_){var _bK_=0} + var port=_bK_} + else + var port=0; + var userinfo$0=userinfo,host$0=host,port$0=port} + else + var userinfo$0=0,host$0=0,port$0=0; + var match$2=get_opt_encoded(subs,5); + if(match$2) + var x$1=match$2[1],path=path_of_encoded(x$1); + else + var path=0; + var match$3=get_opt_encoded(subs,7); + if(match$3) + var x$2=match$3[1],query=of_raw(x$2); + else + var query=[1,0,caml_call1(Stdlib_lazy[4],0)]; + var fragment=get_opt(subs,9); + return normalize + (scheme, + [0,scheme,userinfo$0,host$0,port$0,path,query,fragment])}, + to_string= + function(uri) + {var _bm_=uri[1]; + if(_bm_)var s=_bm_[1],scheme=[0,s];else var scheme=0; + var buf=caml_call1(Stdlib_buffer[1],128); + function add_pct_string(opt,x) + {if(opt)var sth=opt[1],component=sth;else var component=892015045; + var _bJ_=encode(scheme,[0,component],x); + return caml_call2(Stdlib_buffer[14],buf,_bJ_)} + var _bn_=uri[1]; + if(_bn_) + {var x=_bn_[1]; + add_pct_string(_an_,x); + caml_call2(Stdlib_buffer[10],buf,58)} + var switch$0=0,_bo_=uri[3],_bp_=uri[4]; + if(! uri[2] && ! _bo_ && ! _bp_){var _bq_=0;switch$0 = 1} + if(! switch$0)var _bq_=1; + if(_bq_)caml_call2(Stdlib_buffer[14],buf,cst$25); + var _br_=uri[2]; + if(_br_) + {var + userinfo=_br_[1], + _bs_=caml_call1(encoded_of_userinfo(scheme),userinfo); + caml_call2(Stdlib_buffer[14],buf,_bs_); + caml_call2(Stdlib_buffer[10],buf,64)} + var _bt_=uri[3]; + if(_bt_){var host=_bt_[1];add_pct_string(_ao_,host)} + var _bu_=uri[4]; + if(_bu_) + {var port=_bu_[1]; + caml_call2(Stdlib_buffer[10],buf,58); + var _bv_=caml_call1(Stdlib[33],port); + caml_call2(Stdlib_buffer[14],buf,_bv_)} + var _bw_=uri[5]; + if(_bw_) + {var _bx_=_bw_[1]; + if(caml_string_notequal(_bx_,cst$26)) + {if(uri[3]) + caml_call2(Stdlib_buffer[10],buf,47); + else + {var match=caml_call3(Stringext[12],0,_bx_,cst$27); + if(match && ! scheme)caml_call2(Stdlib_buffer[14],buf,cst$28)} + var _by_=uri[5],_bz_=caml_call1(encoded_of_path(scheme),_by_); + caml_call2(Stdlib_buffer[14],buf,_bz_)} + else + {var _bH_=uri[5],_bI_=caml_call1(encoded_of_path(scheme),_bH_); + caml_call2(Stdlib_buffer[14],buf,_bI_)}} + var _bA_=uri[6],switch$1=0; + if(0 === _bA_[0]) + {var _bB_=_bA_[1];if(_bB_){var q=_bB_;switch$1 = 1}} + else + if(_bA_[1]) + {var + _bE_=_bA_[2], + _bF_=caml_obj_tag(_bE_), + _bG_= + 250 === _bF_ + ?_bE_[1] + :246 === _bF_?caml_call1(CamlinternalLazy[2],_bE_):_bE_, + q=_bG_; + switch$1 = 1} + if(switch$1) + {caml_call2(Stdlib_buffer[10],buf,63); + var _bC_=encoded_of_query(scheme,q); + caml_call2(Stdlib_buffer[14],buf,_bC_)} + var _bD_=uri[7]; + if(_bD_) + {var f=_bD_[1]; + caml_call2(Stdlib_buffer[10],buf,35); + add_pct_string(_ap_,f)} + return caml_call1(Stdlib_buffer[2],buf)}, + get_decoded_opt= + function(param){if(param){var x=param[1];return [0,x]}return 0}, + scheme$0=function(uri){return get_decoded_opt(uri[1])}, + with_scheme= + function(uri,param) + {if(param) + {var scheme=param[1]; + return [0,[0,scheme],uri[2],uri[3],uri[4],uri[5],uri[6],uri[7]]} + return [0,0,uri[2],uri[3],uri[4],uri[5],uri[6],uri[7]]}, + host$1=function(uri){return get_decoded_opt(uri[3])}, + with_host= + function(uri,param) + {if(param) + {var host=param[1]; + return [0,uri[1],uri[2],[0,host],uri[4],uri[5],uri[6],uri[7]]} + return [0,uri[1],uri[2],0,uri[4],uri[5],uri[6],uri[7]]}, + host_with_default= + function(opt,uri) + {if(opt) + var sth=opt[1],default$0=sth; + else + var default$0=cst_localhost$0; + var match=host$1(uri); + if(match){var h=match[1];return h} + return default$0}, + userinfo$0= + function(uri) + {var _bj_=uri[2]; + if(_bj_) + {var userinfo=_bj_[1],_bk_=uri[1]; + if(_bk_) + var + s=_bk_[1], + _bl_=caml_call1(encoded_of_userinfo([0,s]),userinfo); + else + var _bl_=caml_call1(encoded_of_userinfo(0),userinfo); + return [0,_bl_]} + return 0}, + with_userinfo= + function(uri,userinfo) + {if(userinfo) + var u=userinfo[1],userinfo$0=[0,userinfo_of_encoded(u)]; + else + var userinfo$0=0; + var match=host$1(uri); + return match + ?[0,uri[1],userinfo$0,uri[3],uri[4],uri[5],uri[6],uri[7]] + :[0, + uri[1], + userinfo$0, + [0,cst$29], + uri[4], + uri[5], + uri[6], + uri[7]]}, + user= + function(uri) + {var _bi_=uri[2]; + if(_bi_){var match=_bi_[1],user=match[1];return [0,user]} + return 0}, + password= + function(uri) + {var _bg_=uri[2]; + if(_bg_) + {var _bh_=_bg_[1][2];if(_bh_){var pass=_bh_[1];return [0,pass]}} + return 0}, + with_password= + function(uri,password) + {function result(userinfo) + {var match=host$1(uri); + return match + ?[0,uri[1],userinfo,uri[3],uri[4],uri[5],uri[6],uri[7]] + :[0,uri[1],userinfo,[0,cst$30],uri[4],uri[5],uri[6],uri[7]]} + var _bf_=uri[2]; + if(_bf_) + {var match=_bf_[1],user=match[1]; + return result([0,[0,user,password]])} + return password?result([0,[0,cst$31,password]]):uri}, + port$0=function(uri){return uri[4]}, + with_port= + function(uri,port) + {var match=host$1(uri); + return match + ?[0,uri[1],uri[2],uri[3],port,uri[5],uri[6],uri[7]] + :port + ?[0,uri[1],uri[2],[0,cst$32],port,uri[5],uri[6],uri[7]] + :[0,uri[1],uri[2],0,0,uri[5],uri[6],uri[7]]}, + path= + function(uri) + {var _bb_=uri[1]; + if(_bb_) + var + s=_bb_[1], + _bc_=uri[5], + _bd_=caml_call1(encoded_of_path([0,s]),_bc_); + else + var _be_=uri[5],_bd_=caml_call1(encoded_of_path(0),_be_); + return _bd_}, + with_path= + function(uri,path) + {var match=path_of_encoded(path); + if(host$1(uri) && match && caml_string_notequal(match[1],cst$33)) + return [0, + uri[1], + uri[2], + uri[3], + uri[4], + [0,cst$34,match], + uri[6], + uri[7]]; + return [0,uri[1],uri[2],uri[3],uri[4],match,uri[6],uri[7]]}, + fragment$0=function(uri){return get_decoded_opt(uri[7])}, + with_fragment= + function(uri,param) + {if(param) + {var frag=param[1]; + return [0,uri[1],uri[2],uri[3],uri[4],uri[5],uri[6],[0,frag]]} + return [0,uri[1],uri[2],uri[3],uri[4],uri[5],uri[6],0]}, + query$0=function(uri){return kv(uri[6])}, + verbatim_query= + function(uri) + {var _a$_=uri[6]; + if(0 === _a$_[0]) + {var _ba_=_a$_[1]; + return _ba_?[0,encoded_of_query(scheme$0(uri),_ba_)]:0} + var qs=_a$_[1]; + return qs}, + get_query_param=function(uri,k){return find(kv(uri[6]),k)}, + get_query_param$0= + function(uri,k) + {var match=get_query_param(uri,k); + if(match) + {var v=match[1];return [0,caml_call2(Stdlib_string[7],cst$35,v)]} + return 0}, + with_query= + function(uri,query) + {return [0,uri[1],uri[2],uri[3],uri[4],uri[5],[0,query],uri[7]]}, + q_s= + function(q) + {function _a__(param){var v=param[2],k=param[1];return [0,k,[0,v,0]]} + return caml_call2(Stdlib_list[17],_a__,q)}, + with_query$0=function(uri,query){return with_query(uri,q_s(query))}, + add_query_param= + function(init,p) + {var _a8_=init[7],_a9_=[0,[0,p,kv(init[6])]]; + return [0,init[1],init[2],init[3],init[4],init[5],_a9_,_a8_]}, + add_query_param$0= + function(init,param) + {var + v=param[2], + k=param[1], + _a6_=init[7], + _a7_=[0,[0,[0,k,[0,v,0]],kv(init[6])]]; + return [0,init[1],init[2],init[3],init[4],init[5],_a7_,_a6_]}, + add_query_params= + function(init,ps) + {var + _a3_=init[7], + _a4_=kv(init[6]), + _a5_=[0,caml_call2(Stdlib[37],ps,_a4_)]; + return [0,init[1],init[2],init[3],init[4],init[5],_a5_,_a3_]}, + add_query_params$0= + function(init,ps) + {var + _aZ_=init[7], + _a0_=kv(init[6]), + _a1_=q_s(ps), + _a2_=[0,caml_call2(Stdlib[37],_a1_,_a0_)]; + return [0,init[1],init[2],init[3],init[4],init[5],_a2_,_aZ_]}, + remove_query_param= + function(init,k) + {var _aV_=init[7],_aW_=kv(init[6]); + function _aX_(param) + {var k$0=param[1];return caml_string_notequal(k,k$0)} + var _aY_=[0,caml_call2(Stdlib_list[36],_aX_,_aW_)]; + return [0,init[1],init[2],init[3],init[4],init[5],_aY_,_aV_]}, + with_uri= + function(scheme,userinfo,host,port,path,query,fragment,uri) + {function with_path_opt(u,o) + {if(o){var p=o[1];return with_path(u,p)}return with_path(u,cst$36)} + function with_query_opt(u,o) + {if(o){var q=o[1];return with_query(u,q)}return with_query(u,0)} + function with$0(f,o,u) + {if(o){var x=o[1];return caml_call2(f,u,x)}return u} + return with$0 + (with_fragment, + fragment, + with$0 + (with_query_opt, + query, + with$0 + (with_path_opt, + path, + with$0 + (with_port, + port, + with$0 + (with_host, + host, + with$0 + (with_userinfo,userinfo,with$0(with_scheme,scheme,uri)))))))}, + path_and_query= + function(uri) + {var match=path(uri),match$0=query$0(uri); + if(caml_string_notequal(match,cst$37)) + {if(match$0) + {var + scheme=uncast_opt(uri[1]), + _aT_=caml_call1(encoded_of_query$0(scheme),match$0); + return caml_call3(Stdlib_printf[4],_aq_,match,_aT_)} + return match} + if(match$0) + {var + scheme$0=uncast_opt(uri[1]), + _aU_=caml_call1(encoded_of_query$0(scheme$0),match$0); + return caml_call2(Stdlib_printf[4],_ar_,_aU_)} + return cst$38}, + resolve= + function(schem,base,uri) + {var match$0=scheme$0(base); + if(match$0) + var scheme=match$0[1],scheme$1=scheme; + else + var scheme$1=schem; + var + schem$0=[0,scheme$1], + match$1=scheme$0(uri), + match$2=userinfo$0(uri), + match$3=host$1(uri); + if(match$1) + var + _aA_=uri[7], + _aB_=uri[6], + _aC_=remove_dot_segments(uri[5]), + _aD_=[0,uri[1],uri[2],uri[3],uri[4],_aC_,_aB_,_aA_]; + else + {var switch$0=0; + if(match$2 || match$3) + switch$0 = 1; + else + {var + init=[0,base[1],base[2],base[3],base[4],uri[5],uri[6],uri[7]], + path_str=path(init); + if(caml_string_equal(path_str,cst$39)) + var + _aH_=init[7], + _aI_=init[6][1]?init[6]:base[6], + _aJ_=[0,init[1],init[2],init[3],init[4],base[5],_aI_,_aH_]; + else + if(47 === caml_string_get(path_str,0)) + var + _aK_=init[7], + _aL_=init[6], + _aM_=remove_dot_segments(init[5]), + _aJ_=[0,init[1],init[2],init[3],init[4],_aM_,_aL_,_aK_]; + else + {var + _aP_=init[5], + _aN_=init[7], + _aO_=init[6], + _aQ_=base[3], + match=caml_call1(Stdlib_list[9],base[5]), + switch$1=0; + if(_aQ_ && ! match) + var _aR_=[0,cst$20,_aP_]; + else + switch$1 = 1; + if(switch$1) + {var switch$2=0; + if(match) + {var switch$3=0; + if(caml_string_notequal(match[1],cst$17)) + {var _az_=match[2]; + if(_az_ && ! caml_string_notequal(_az_[1],cst$18)) + var rbpath=_az_[2]; + else + switch$3 = 1} + else + var rbpath=match[2]; + if(! switch$3) + {var + _aR_= + caml_call2(Stdlib_list[12],[0,cst$19,rbpath],_aP_); + switch$2 = 1}} + if(! switch$2)var _aR_=_aP_} + var + _aS_=remove_dot_segments(_aR_), + _aJ_=[0,init[1],init[2],init[3],init[4],_aS_,_aO_,_aN_]} + var _aD_=_aJ_} + if(switch$0) + var + _aE_=uri[7], + _aF_=uri[6], + _aG_=remove_dot_segments(uri[5]), + _aD_=[0,base[1],uri[2],uri[3],uri[4],_aG_,_aF_,_aE_]} + return normalize(schem$0,_aD_)}, + canonicalize= + function(uri) + {var + init=resolve(cst$40,empty,uri), + Scheme=module_of_scheme(uncast_opt(init[1])), + _av_=init[7], + _aw_=init[6], + _ax_=caml_call1(Scheme[4],init[5]), + _ay_=caml_call1(Scheme[3],init[4]); + return [0,init[1],init[2],init[3],_ay_,_ax_,_aw_,_av_]}, + pp= + function(ppf,uri) + {var _au_=to_string(uri); + return caml_call2(Stdlib_format[13],ppf,_au_)}, + pp_hum= + function(ppf,uri) + {var _at_=to_string(uri); + return caml_call2(Stdlib_format[13],ppf,_at_)}, + Uri= + [0, + empty, + compare$0, + equal, + pct_encode, + pct_decode, + of_string, + to_string, + resolve, + canonicalize, + make, + with_uri, + query$0, + verbatim_query, + encoded_of_query$0, + query_of_encoded, + with_query, + with_query$0, + get_query_param, + get_query_param$0, + add_query_param, + add_query_param$0, + add_query_params, + add_query_params$0, + remove_query_param, + path, + path_and_query, + with_path, + scheme$0, + with_scheme, + userinfo$0, + with_userinfo, + user, + password, + with_password, + host$1, + with_host, + host_with_default, + port$0, + with_port, + fragment$0, + with_fragment, + pp, + pp_hum, + [0,ipv4_address$0,ipv6_address$0,uri_reference$0,authority$0,host$0]]; + runtime.caml_register_global(97,Uri,"Uri"); + return}} + (function(){return this}())); + + +//# 1 "../../.js/json-data-encoding/json_data_encoding.cma.js" +(function(joo_global_object) + {"use strict"; var - include$0=Monad([0,map$2,some,apply$1,bind$1]), - bind$2=include$0[1], - return$2=include$0[2], - apply$2=include$0[3], - map$3=include$0[4], - symbol$2=include$0[5], - let$2=include$0[6], - and$1=include$0[7], - Applicative_syntax$0=include$0[8], - symbol$3=include$0[9], - void$1=include$0[10], - map2$1=include$0[11], - mapA_list$1=include$0[12], - mapA_list$2=include$0[13], - mapA2_list$1=include$0[14], - mapA2_list$2=include$0[15], - sequenceA_list$1=include$0[16], - sequenceA_list$2=include$0[17], - sequenceA_option$0=include$0[18], - sequenceA_fst$0=include$0[19], - sequenceA_snd$0=include$0[20], - sequenceA_pair$0=include$0[21], - let$3=include$0[22], - and$2=include$0[23], - Monad_syntax$0=include$0[24], - symbol_bind$0=include$0[25], - symbol$4=include$0[26], - join$0=include$0[27], - bind2$0=include$0[28], - unless$0=include$0[29]; - function default$0(d){return function(_by_){return cata$0(d,id,_by_)}} - function is_none(param){return param?0:1} - function is_some(param){return param?1:0} - function of_some(param) - {if(param){var x=param[1];return x} - return caml_call1(Stdlib[2],cst_of_some)} + runtime=joo_global_object.jsoo_runtime, + caml_compare=runtime.caml_compare, + caml_equal=runtime.caml_equal, + caml_fresh_oo_id=runtime.caml_fresh_oo_id, + caml_greaterthan=runtime.caml_greaterthan, + caml_int64_neg=runtime.caml_int64_neg, + caml_int64_of_float=runtime.caml_int64_of_float, + caml_int64_shift_left=runtime.caml_int64_shift_left, + caml_int64_to_float=runtime.caml_int64_to_float, + caml_lessthan=runtime.caml_lessthan, + caml_ml_string_length=runtime.caml_ml_string_length, + caml_modf_float=runtime.caml_modf_float, + caml_notequal=runtime.caml_notequal, + caml_register_global=runtime.caml_register_global, + caml_string_compare=runtime.caml_string_compare, + caml_string_equal=runtime.caml_string_equal, + caml_string_get=runtime.caml_string_get, + caml_string_notequal=runtime.caml_string_notequal, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_wrap_exception=runtime.caml_wrap_exception; + function caml_call1(f,a0) + {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} + function caml_call2(f,a0,a1) + {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} + function caml_call3(f,a0,a1,a2) + {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} + function caml_call4(f,a0,a1,a2,a3) + {return f.length == 4 + ?f(a0,a1,a2,a3) + :runtime.caml_call_gen(f,[a0,a1,a2,a3])} + function caml_call5(f,a0,a1,a2,a3,a4) + {return f.length == 5 + ?f(a0,a1,a2,a3,a4) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} + function caml_call6(f,a0,a1,a2,a3,a4,a5) + {return f.length == 6 + ?f(a0,a1,a2,a3,a4,a5) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5])} + function caml_call7(f,a0,a1,a2,a3,a4,a5,a6) + {return f.length == 7 + ?f(a0,a1,a2,a3,a4,a5,a6) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6])} + function caml_call8(f,a0,a1,a2,a3,a4,a5,a6,a7) + {return f.length == 8 + ?f(a0,a1,a2,a3,a4,a5,a6,a7) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7])} + function caml_call9(f,a0,a1,a2,a3,a4,a5,a6,a7,a8) + {return f.length == 9 + ?f(a0,a1,a2,a3,a4,a5,a6,a7,a8) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7,a8])} var - Utils_Option= + global_data=runtime.caml_get_global_data(), + cst_wildcard=caml_string_of_jsbytes("wildcard"), + cst_array_append=caml_string_of_jsbytes("array append"), + cst_field_access=caml_string_of_jsbytes("field access"), + cst_array_access=caml_string_of_jsbytes("array access"), + cst_Unterminated_escape_sequen= + caml_string_of_jsbytes("Unterminated escape sequence"), + cst_Illegal_escape_character= + caml_string_of_jsbytes("Illegal escape character"), + cst=caml_string_of_jsbytes("-"), + cst_JSON_pointer_w_o_wildcards$0= + caml_string_of_jsbytes("JSON pointer w/o wildcards"), + cst_Missing_initial_slash=caml_string_of_jsbytes("Missing initial slash"), + cst_JSON_pointer=caml_string_of_jsbytes("JSON pointer"), + cst_JSON_pointer_w_o_wildcards= + caml_string_of_jsbytes("JSON pointer w/o wildcards"), + cst_JSON_path_w_o_wildcards= + caml_string_of_jsbytes("JSON path w/o wildcards"), + cst_Json_query_Illegal_pointer= + caml_string_of_jsbytes("Json_query.Illegal_pointer_notation"), + cst_Json_query_Unsupported_pat= + caml_string_of_jsbytes("Json_query.Unsupported_path_item"), + cst_Json_query_Cannot_merge= + caml_string_of_jsbytes("Json_query.Cannot_merge"), + cst$2=caml_string_of_jsbytes(""), + cst$3=caml_string_of_jsbytes("?"), + partial=[11,caml_string_of_jsbytes(""),0], + partial$0= + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [11, + caml_string_of_jsbytes("Already present:"), + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [11, + caml_string_of_jsbytes(" "), + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [15,[17,0,[17,0,0]]]]]]]], + cst_definitions$1=caml_string_of_jsbytes("/definitions/"), + cst_has_no_fragment=caml_string_of_jsbytes(" has no fragment"), + cst_a_list_of_elements=caml_string_of_jsbytes("a list of elements"), + cst_type$9=caml_string_of_jsbytes("type"), + cst_type$10=caml_string_of_jsbytes("type"), + cst_id$0=caml_string_of_jsbytes("id"), + cst_http=caml_string_of_jsbytes("http"), + cst_is_not_a_valid_ID=caml_string_of_jsbytes(" is not a valid ID"), + cst_id$1=caml_string_of_jsbytes("id"), + cst_type$7=caml_string_of_jsbytes("type"), + cst_type_type_array_or_operato$0= + caml_string_of_jsbytes("type, type array or operator"), + cst_type$11=caml_string_of_jsbytes("type"), + cst_type_type_array_or_operato= + caml_string_of_jsbytes("type, type array or operator"), + cst_type$8=caml_string_of_jsbytes("type"), + cst_ref$2=caml_string_of_jsbytes("$ref"), + cst_not$0=caml_string_of_jsbytes("not"), + cst_not$1=caml_string_of_jsbytes("not"), + cst_title$0=caml_string_of_jsbytes("title"), + cst_description$0=caml_string_of_jsbytes("description"), + n=caml_string_of_jsbytes("default"), + cst_enum$0=caml_string_of_jsbytes("enum"), + cst_format$0=caml_string_of_jsbytes("format"), + cst_oneOf$0=caml_string_of_jsbytes("oneOf"), + cst_anyOf$0=caml_string_of_jsbytes("anyOf"), + cst_allOf$0=caml_string_of_jsbytes("allOf"), + cst_items$3=caml_string_of_jsbytes("items"), + cst_object$3=caml_string_of_jsbytes("object"), + cst_string$3=caml_string_of_jsbytes("string"), + cst_propertyDependencies$3=caml_string_of_jsbytes("propertyDependencies"), + cst_string_array=caml_string_of_jsbytes("string array"), + cst_propertyDependencies$2=caml_string_of_jsbytes("propertyDependencies"), + cst_properties$2=caml_string_of_jsbytes("properties"), + cst_string$2=caml_string_of_jsbytes("string"), + cst_required$1=caml_string_of_jsbytes("required"), + cst_multipleOf$2=caml_string_of_jsbytes("multipleOf"), + cst_exclusiveMinimum$2=caml_string_of_jsbytes("exclusiveMinimum"), + cst_minimum$5=caml_string_of_jsbytes("minimum"), + err$2= + caml_string_of_jsbytes + ("minimum field required when exclusiveMinimum is true"), + cst_minimum$6=caml_string_of_jsbytes("minimum"), + cst_exclusiveMaximum$2=caml_string_of_jsbytes("exclusiveMaximum"), + cst_maximum$5=caml_string_of_jsbytes("maximum"), + err$1= + caml_string_of_jsbytes + ("maximum field required when exclusiveMaximum is true"), + cst_maximum$6=caml_string_of_jsbytes("maximum"), + cst_multipleOf$1=caml_string_of_jsbytes("multipleOf"), + cst_exclusiveMinimum$1=caml_string_of_jsbytes("exclusiveMinimum"), + cst_minimum$3=caml_string_of_jsbytes("minimum"), + err$0= + caml_string_of_jsbytes + ("minimum field required when exclusiveMinimum is true"), + cst_minimum$4=caml_string_of_jsbytes("minimum"), + cst_exclusiveMaximum$1=caml_string_of_jsbytes("exclusiveMaximum"), + cst_maximum$3=caml_string_of_jsbytes("maximum"), + err= + caml_string_of_jsbytes + ("maximum field required when exclusiveMaximum is true"), + cst_maximum$4=caml_string_of_jsbytes("maximum"), + cst_array$1=caml_string_of_jsbytes("array"), + cst_boolean$0=caml_string_of_jsbytes("boolean"), + cst_integer$0=caml_string_of_jsbytes("integer"), + cst_null$0=caml_string_of_jsbytes("null"), + cst_number$1=caml_string_of_jsbytes("number"), + cst_object$0=caml_string_of_jsbytes("object"), + cst_string$1=caml_string_of_jsbytes("string"), + cst_pattern$0=caml_string_of_jsbytes("pattern"), + cst_minLength$0=caml_string_of_jsbytes("minLength"), + cst_maxLength$0=caml_string_of_jsbytes("maxLength"), + cst_required$0=caml_string_of_jsbytes("required"), + cst_properties$0=caml_string_of_jsbytes("properties"), + cst_object$1=caml_string_of_jsbytes("object"), + cst_properties$1=caml_string_of_jsbytes("properties"), + cst_additionalProperties$0=caml_string_of_jsbytes("additionalProperties"), + cst_additionalProperties$1=caml_string_of_jsbytes("additionalProperties"), + cst_propertyDependencies$0=caml_string_of_jsbytes("propertyDependencies"), + cst_object$2=caml_string_of_jsbytes("object"), + cst_propertyDependencies$1=caml_string_of_jsbytes("propertyDependencies"), + cst_patternProperties$0=caml_string_of_jsbytes("patternProperties"), + cst_schemaDependencies$0=caml_string_of_jsbytes("schemaDependencies"), + cst_minProperties$0=caml_string_of_jsbytes("minProperties"), + cst_maxProperties$0=caml_string_of_jsbytes("maxProperties"), + cst_uniqueItems$1=caml_string_of_jsbytes("uniqueItems"), + cst_minItems$1=caml_string_of_jsbytes("minItems"), + cst_maxItems$1=caml_string_of_jsbytes("maxItems"), + cst_additionalItems$0=caml_string_of_jsbytes("additionalItems"), + cst_additionalItems$1=caml_string_of_jsbytes("additionalItems"), + cst_items$1=caml_string_of_jsbytes("items"), + cst_items$2=caml_string_of_jsbytes("items"), + cst_a_known_type=caml_string_of_jsbytes("a known type"), + cst_definitions$0=caml_string_of_jsbytes("#/definitions/"), + cst_is_not_a_valid_URI=caml_string_of_jsbytes(" is not a valid URI"), + cst_array$0=caml_string_of_jsbytes("array"), + cst_number$0=caml_string_of_jsbytes("number"), + cst_length=caml_string_of_jsbytes("length"), + cst_integer=caml_string_of_jsbytes("integer"), + cst_bool=caml_string_of_jsbytes("bool"), + cst_string$0=caml_string_of_jsbytes("string"), + cst_id=caml_string_of_jsbytes("id"), + cst_null=caml_string_of_jsbytes("null"), + cst_boolean=caml_string_of_jsbytes("boolean"), + cst_number=caml_string_of_jsbytes("number"), + cst_object=caml_string_of_jsbytes("object"), + cst_empty_object=caml_string_of_jsbytes("empty object"), + cst$6=caml_string_of_jsbytes(""), + cst_empty_string=caml_string_of_jsbytes("empty string"), + cst_string=caml_string_of_jsbytes("string"), + cst_array=caml_string_of_jsbytes("array"), + cst_empty_array=caml_string_of_jsbytes("empty array"), + cst_anyOf=caml_string_of_jsbytes("anyOf"), + cst_oneOf=caml_string_of_jsbytes("oneOf"), + cst_allOf=caml_string_of_jsbytes("allOf"), + cst_not=caml_string_of_jsbytes("not"), + cst_format=caml_string_of_jsbytes("format"), + cst_enum=caml_string_of_jsbytes("enum"), + cst_default=caml_string_of_jsbytes("default"), + cst_type=caml_string_of_jsbytes("type"), + cst_type$0=caml_string_of_jsbytes("type"), + cst_Json_schema_to_json_remain= + caml_string_of_jsbytes("Json_schema.to_json: remaining dummy element"), + cst_propertyDependencies=caml_string_of_jsbytes("propertyDependencies"), + cst_schemaDependencies=caml_string_of_jsbytes("schemaDependencies"), + cst_maxProperties=caml_string_of_jsbytes("maxProperties"), + cst_minProperties=caml_string_of_jsbytes("minProperties"), + cst_additionalProperties=caml_string_of_jsbytes("additionalProperties"), + cst_patternProperties=caml_string_of_jsbytes("patternProperties"), + cst_required=caml_string_of_jsbytes("required"), + cst_properties=caml_string_of_jsbytes("properties"), + cst_type$1=caml_string_of_jsbytes("type"), + cst_additionalItems=caml_string_of_jsbytes("additionalItems"), + cst_uniqueItems=caml_string_of_jsbytes("uniqueItems"), + cst_maxItems=caml_string_of_jsbytes("maxItems"), + cst_minItems=caml_string_of_jsbytes("minItems"), + cst_items=caml_string_of_jsbytes("items"), + cst_type$2=caml_string_of_jsbytes("type"), + cst_uniqueItems$0=caml_string_of_jsbytes("uniqueItems"), + cst_maxItems$0=caml_string_of_jsbytes("maxItems"), + cst_minItems$0=caml_string_of_jsbytes("minItems"), + cst_items$0=caml_string_of_jsbytes("items"), + cst_type$3=caml_string_of_jsbytes("type"), + cst$4=caml_string_of_jsbytes("#"), + cst_ref=caml_string_of_jsbytes("$ref"), + cst$5=caml_string_of_jsbytes("#"), + cst_ref$0=caml_string_of_jsbytes("$ref"), + cst_ref$1=caml_string_of_jsbytes("$ref"), + cst_pattern=caml_string_of_jsbytes("pattern"), + cst_maxLength=caml_string_of_jsbytes("maxLength"), + cst_minLength=caml_string_of_jsbytes("minLength"), + cst_type$4=caml_string_of_jsbytes("type"), + cst_maximum=caml_string_of_jsbytes("maximum"), + cst_exclusiveMaximum=caml_string_of_jsbytes("exclusiveMaximum"), + cst_maximum$0=caml_string_of_jsbytes("maximum"), + cst_minimum=caml_string_of_jsbytes("minimum"), + cst_exclusiveMinimum=caml_string_of_jsbytes("exclusiveMinimum"), + cst_minimum$0=caml_string_of_jsbytes("minimum"), + cst_multipleOf=caml_string_of_jsbytes("multipleOf"), + cst_type$5=caml_string_of_jsbytes("type"), + cst_maximum$1=caml_string_of_jsbytes("maximum"), + cst_exclusiveMaximum$0=caml_string_of_jsbytes("exclusiveMaximum"), + cst_maximum$2=caml_string_of_jsbytes("maximum"), + cst_minimum$1=caml_string_of_jsbytes("minimum"), + cst_exclusiveMinimum$0=caml_string_of_jsbytes("exclusiveMinimum"), + cst_minimum$2=caml_string_of_jsbytes("minimum"), + cst_multipleOf$0=caml_string_of_jsbytes("multipleOf"), + cst_type$6=caml_string_of_jsbytes("type"), + cst_description=caml_string_of_jsbytes("description"), + cst_title=caml_string_of_jsbytes("title"), + cst_schema=caml_string_of_jsbytes("$schema"), + array_specs=[0,0,0,0,0], + string_specs=[0,0,0,0], + numeric_specs=[0,0,0,0], + partial$1=[11,caml_string_of_jsbytes(" */"),0], + cst_definitions=caml_string_of_jsbytes("definitions"), + cst$0=caml_string_of_jsbytes(""), + cst$1=caml_string_of_jsbytes("-"), + version=caml_string_of_jsbytes("http://json-schema.org/draft-04/schema#"), + cst_Json_schema_Cannot_parse= + caml_string_of_jsbytes("Json_schema.Cannot_parse"), + cst_Json_schema_Dangling_refer= + caml_string_of_jsbytes("Json_schema.Dangling_reference"), + cst_Json_schema_Bad_reference= + caml_string_of_jsbytes("Json_schema.Bad_reference"), + cst_Json_schema_Unexpected= + caml_string_of_jsbytes("Json_schema.Unexpected"), + cst_Json_schema_Duplicate_defi= + caml_string_of_jsbytes("Json_schema.Duplicate_definition"), + cst_Json_encoding_union=caml_string_of_jsbytes("Json_encoding.union"), + cst_Json_encoding_merge_objs= + caml_string_of_jsbytes("Json_encoding.merge_objs"), + cst_Json_encoding_merge_tups= + caml_string_of_jsbytes("Json_encoding.merge_tups"), + cst_array_or_object=caml_string_of_jsbytes("array or object"), + cst_Json_encoding_option_canno= + caml_string_of_jsbytes + ("Json_encoding.option: cannot nest nullable encodings"), + cst_asssociative_object=caml_string_of_jsbytes("asssociative object"), + cst_Json_encoding_string_enum_= + caml_string_of_jsbytes("Json_encoding.string_enum: duplicate case"), + cst$7=caml_string_of_jsbytes("'"), + cst$8=caml_string_of_jsbytes("'"), + specs=[0,0,0,0], + cst$9=caml_string_of_jsbytes(" "), + cst_Json_encoding_ranged_int53= + caml_string_of_jsbytes + ("Json_encoding.ranged_int53: bounds out of JSON-representable integers"), + cst_Json_encoding_ranged_int_b= + caml_string_of_jsbytes + ("Json_encoding.ranged_int: bounds out of portable int31 range"), + cst_Json_encoding_schema_empty= + caml_string_of_jsbytes("Json_encoding.schema: empty union in object"), + cst_Json_encoding_schema_conse= + caml_string_of_jsbytes + ("Json_encoding.schema: consequence of bad merge_objs"), + cst_Json_encoding_schema_conse$0= + caml_string_of_jsbytes + ("Json_encoding.schema: consequence of bad merge_tups"), + cst_array$5=caml_string_of_jsbytes("array"), + cst_array$4=caml_string_of_jsbytes("array"), + cst_object$6=caml_string_of_jsbytes("object"), + cst_object$5=caml_string_of_jsbytes("object"), + cst_array$3=caml_string_of_jsbytes("array"), + cst_float$0=caml_string_of_jsbytes("float"), + cst_out_of_range$2=caml_string_of_jsbytes(" out of range"), + cst_float=caml_string_of_jsbytes("float"), + cst_cannot_have_a_fractional_p= + caml_string_of_jsbytes(" cannot have a fractional part"), + cst_out_of_range$1=caml_string_of_jsbytes(" out of range"), + cst_number$3=caml_string_of_jsbytes("number"), + cst_string$5=caml_string_of_jsbytes("string"), + cst_boolean$2=caml_string_of_jsbytes("boolean"), + cst_an_empty_object=caml_string_of_jsbytes("an empty object"), + cst_null$2=caml_string_of_jsbytes("null"), + cst_Json_encoding_destruct_con= + caml_string_of_jsbytes + ("Json_encoding.destruct: consequence of bad merge_tups"), + cst_Json_encoding_destruct_con$0= + caml_string_of_jsbytes + ("Json_encoding.destruct: consequence of bad merge_objs"), + cst_Json_encoding_construct_co$1= + caml_string_of_jsbytes + ("Json_encoding.construct: consequence of bad union"), + cst_Json_encoding_construct_co$0= + caml_string_of_jsbytes + ("Json_encoding.construct: consequence of bad merge_tups"), + cst_Json_encoding_construct_co= + caml_string_of_jsbytes + ("Json_encoding.construct: consequence of bad merge_objs"), + cst_out_of_range=caml_string_of_jsbytes(" out of range"), + cst_Json_encoding_construct= + caml_string_of_jsbytes("Json_encoding.construct: "), + cst_out_of_range$0=caml_string_of_jsbytes(" out of range"), + cst_Json_encoding_construct$0= + caml_string_of_jsbytes("Json_encoding.construct: "), + cst_null$1=caml_string_of_jsbytes("null"), + cst_boolean$1=caml_string_of_jsbytes("boolean"), + cst_number$2=caml_string_of_jsbytes("number"), + cst_object$4=caml_string_of_jsbytes("object"), + cst_empty_object$0=caml_string_of_jsbytes("empty object"), + cst_string$4=caml_string_of_jsbytes("string"), + cst_array$2=caml_string_of_jsbytes("array"), + cst_empty_array$0=caml_string_of_jsbytes("empty array"), + cst_Json_encoding_Unexpected= + caml_string_of_jsbytes("Json_encoding.Unexpected"), + cst_Json_encoding_No_case_matc= + caml_string_of_jsbytes("Json_encoding.No_case_matched"), + cst_Json_encoding_Bad_array_si= + caml_string_of_jsbytes("Json_encoding.Bad_array_size"), + cst_Json_encoding_Missing_fiel= + caml_string_of_jsbytes("Json_encoding.Missing_field"), + cst_Json_encoding_Unexpected_f= + caml_string_of_jsbytes("Json_encoding.Unexpected_field"), + cst_Json_encoding_Bad_schema= + caml_string_of_jsbytes("Json_encoding.Bad_schema"), + cst_Json_encoding_Cannot_destr= + caml_string_of_jsbytes("Json_encoding.Cannot_destruct"), + cst_int=caml_string_of_jsbytes("int"), + cst_int53=caml_string_of_jsbytes("int53"), + cst_int32=caml_string_of_jsbytes("int32"), + float$0=[3,0], + Stdlib_printf=global_data.Stdlib__printf, + Stdlib_list=global_data.Stdlib__list, + Stdlib_format=global_data.Stdlib__format, + Stdlib_printexc=global_data.Stdlib__printexc, + Stdlib=global_data.Stdlib, + Assert_failure=global_data.Assert_failure, + Stdlib_buffer=global_data.Stdlib__buffer, + Uri=global_data.Uri, + Stdlib_string=global_data.Stdlib__string, + Stdlib_array=global_data.Stdlib__array, + Stdlib_hashtbl=global_data.Stdlib__hashtbl, + Stdlib_sys=global_data.Stdlib__sys, + Stdlib_int32=global_data.Stdlib__int32, + Stdlib_bytes=global_data.Stdlib__bytes, + _B_=[0,[8,[0,0,0],0,[0,0],0],caml_string_of_jsbytes("%.0f")], + _l_=[0,[12,44,0],caml_string_of_jsbytes(",")], + _s_=[0,[15,[12,58,[15,0]]],caml_string_of_jsbytes("%a:%a")], + _r_=[0,[12,44,0],caml_string_of_jsbytes(",")], + _k_= + [0,[11,caml_string_of_jsbytes("null"),0],caml_string_of_jsbytes("null")], + _o_= + [0,[11,caml_string_of_jsbytes("true"),0],caml_string_of_jsbytes("true")], + _n_= [0, - none, - value, - get, - fold, - iter$0, - compare, - to_result, - to_list, - to_seq$0, - equal$1, - pp$1, - show$1, - cata$0, - some, - bind$2, - return$2, - apply$2, - map$3, - symbol$2, - let$2, - and$1, - Applicative_syntax$0, - symbol$3, - void$1, - map2$1, - mapA_list$1, - mapA_list$2, - mapA2_list$1, - mapA2_list$2, - sequenceA_list$1, - sequenceA_list$2, - sequenceA_option$0, - sequenceA_fst$0, - sequenceA_snd$0, - sequenceA_pair$0, - let$3, - and$2, - Monad_syntax$0, - symbol_bind$0, - symbol$4, - join$0, - bind2$0, - unless$0, - default$0, - is_none, - is_some, - of_some]; - caml_register_global(61,Utils_Option,"Utils__Option"); - function Make(Ord) - {var - include=caml_call1(Stdlib_map[1],Ord), - empty=include[1], - is_empty=include[2], - mem=include[3], - add=include[4], - update=include[5], - singleton=include[6], - remove=include[7], - merge=include[8], - union=include[9], - compare=include[10], - equal=include[11], - iter=include[12], - fold=include[13], - for_all=include[14], - exists=include[15], - filter=include[16], - partition=include[17], - cardinal=include[18], - bindings=include[19], - min_binding=include[20], - min_binding_opt=include[21], - max_binding=include[22], - max_binding_opt=include[23], - choose=include[24], - choose_opt=include[25], - split=include[26], - find=include[27], - find_opt=include[28], - find_first=include[29], - find_first_opt=include[30], - find_last=include[31], - find_last_opt=include[32], - map$0=include[33], - mapi=include[34], - to_seq=include[35], - to_seq_from=include[36], - add_seq=include[37], - of_seq=include[38]; - function lookup(default$1,k,m) - {var _bx_=caml_call2(find_opt,k,m); - return caml_call1(default$0(default$1),_bx_)} - function keys(m) - {var _bv_=caml_call1(bindings,m); - return caml_call2(map,function(_bw_){return _bw_[1]},_bv_)} - return [0, - empty, - is_empty, - mem, - add, - update, - singleton, - remove, - merge, - union, - compare, - equal, - iter, - fold, - for_all, - exists, - filter, - partition, - cardinal, - bindings, - min_binding, - min_binding_opt, - max_binding, - max_binding_opt, - choose, - choose_opt, - split, - find, - find_opt, - find_first, - find_first_opt, - find_last, - find_last_opt, - map$0, - mapi, - to_seq, - to_seq_from, - add_seq, - of_seq, - lookup, - keys]} - var Utils_Map=[0,Make]; - caml_register_global(63,Utils_Map,"Utils__Map"); - function Make$0(Ord) - {var - include=caml_call1(Stdlib_set[1],Ord), - empty=include[1], - is_empty=include[2], - mem=include[3], - add=include[4], - singleton=include[5], - remove=include[6], - union=include[7], - inter=include[8], - disjoint=include[9], - diff=include[10], - compare=include[11], - equal=include[12], - subset=include[13], - iter=include[14], - map=include[15], - fold=include[16], - for_all=include[17], - exists=include[18], - filter=include[19], - partition=include[20], - cardinal=include[21], - elements=include[22], - min_elt=include[23], - min_elt_opt=include[24], - max_elt=include[25], - max_elt_opt=include[26], - choose=include[27], - choose_opt=include[28], - split=include[29], - find=include[30], - find_opt=include[31], - find_first=include[32], - find_first_opt=include[33], - find_last=include[34], - find_last_opt=include[35], - of_list=include[36], - to_seq_from=include[37], - to_seq=include[38], - add_seq=include[39], - of_seq=include[40]; - return [0, - empty, - is_empty, - mem, - add, - singleton, - remove, - union, - inter, - disjoint, - diff, - compare, - equal, - subset, - iter, - map, - fold, - for_all, - exists, - filter, - partition, - cardinal, - elements, - min_elt, - min_elt_opt, - max_elt, - max_elt_opt, - choose, - choose_opt, - split, - find, - find_opt, - find_first, - find_first_opt, - find_last, - find_last_opt, - of_list, - to_seq_from, - to_seq, - add_seq, - of_seq]} - var Utils_Set=[0,Make$0]; - caml_register_global(65,Utils_Set,"Utils__Set"); - function Make$1(Ord) - {var compare=Ord[1],Set=Make$0(Ord),Map=Make(Ord); - function map_of_set(f,x) - {var _bs_=caml_call1(Set[38],x); - function _bt_(k){return [0,k,caml_call1(f,k)]} - var _bu_=caml_call2(Stdlib_seq[3],_bt_,_bs_); - return caml_call1(Map[38],_bu_)} - return [0,compare,Set,Map,map_of_set]} - var Utils_Data=[0,Make$1]; - caml_register_global(67,Utils_Data,"Utils__Data"); - var - make=Stdlib_string[1], - init$0=Stdlib_string[2], - copy=Stdlib_string[3], - sub=Stdlib_string[4], - fill=Stdlib_string[5], - blit=Stdlib_string[6], - concat$0=Stdlib_string[7], - iter$1=Stdlib_string[8], - iteri$0=Stdlib_string[9], - map$4=Stdlib_string[10], - mapi$0=Stdlib_string[11], - trim=Stdlib_string[12], - escaped=Stdlib_string[13], - index=Stdlib_string[14], - index_opt=Stdlib_string[15], - rindex=Stdlib_string[16], - rindex_opt=Stdlib_string[17], - index_from=Stdlib_string[18], - index_from_opt=Stdlib_string[19], - rindex_from=Stdlib_string[20], - rindex_from_opt=Stdlib_string[21], - contains=Stdlib_string[22], - contains_from=Stdlib_string[23], - rcontains_from=Stdlib_string[24], - uppercase=Stdlib_string[25], - lowercase=Stdlib_string[26], - capitalize=Stdlib_string[27], - uncapitalize=Stdlib_string[28], - uppercase_ascii=Stdlib_string[29], - lowercase_ascii=Stdlib_string[30], - capitalize_ascii=Stdlib_string[31], - uncapitalize_ascii=Stdlib_string[32], - compare$0=Stdlib_string[33], - equal$2=Stdlib_string[34], - split_on_char=Stdlib_string[35], - to_seq$1=Stdlib_string[36], - to_seqi=Stdlib_string[37], - of_seq$0=Stdlib_string[38]; - function pp$2(ppf){return caml_call2(Stdlib_format[123],ppf,_s_)} - var - include$1=Make$1([0,compare$0]), - compare$1=include$1[1], - Set=include$1[2], - Map=include$1[3], - map_of_set=include$1[4], - Utils_String= + [11,caml_string_of_jsbytes("false"),0], + caml_string_of_jsbytes("false")], + _p_=[0,[8,[0,0,0],0,[0,0],0],caml_string_of_jsbytes("%.0f")], + _q_=[0,[8,[0,0,3],0,0,0],caml_string_of_jsbytes("%g")], + _t_=[0,[12,123,[15,[12,125,0]]],caml_string_of_jsbytes("{%a}")], + _m_=[0,[12,91,[15,[12,93,0]]],caml_string_of_jsbytes("[%a]")], + _u_= [0, - make, - init$0, - copy, - sub, - fill, - blit, - concat$0, - iter$1, - iteri$0, - map$4, - mapi$0, - trim, - escaped, - index, - index_opt, - rindex, - rindex_opt, - index_from, - index_from_opt, - rindex_from, - rindex_from_opt, - contains, - contains_from, - rcontains_from, - uppercase, - lowercase, - capitalize, - uncapitalize, - uppercase_ascii, - lowercase_ascii, - capitalize_ascii, - uncapitalize_ascii, - equal$2, - split_on_char, - to_seq$1, - to_seqi, - of_seq$0, - pp$2, - compare$1, - Set, - Map, - map_of_set]; - caml_register_global(69,Utils_String,"Utils__String"); - var - equal$3= - function _br_(_bo_,_bp_,_bq_){return _br_.fun(_bo_,_bp_,_bq_)}; - caml_update_dummy - (equal$3, - function(poly_a,lhs,match) - {if(0 === lhs[0]) - {var _bk_=lhs[1]; - if(0 === match[0]) - {var rhs0=match[1];return caml_call2(poly_a,_bk_,rhs0)}} - else - {var _bl_=lhs[2],_bm_=lhs[1]; - if(0 !== match[0]) - {var - rhs1=match[2], - rhs0$0=match[1], - _bn_= - caml_call1(caml_call1(caml_call1(equal$3,poly_a),_bm_),rhs0$0); - return _bn_ - ?caml_call1 - (caml_call1(caml_call1(equal$3,poly_a),_bl_),rhs1) - :_bn_}} - return 0}); - var - pp$3=function _bj_(_bg_,_bh_,_bi_){return _bj_.fun(_bg_,_bh_,_bi_)}, - show$2=function _bf_(_bd_,_be_){return _bf_.fun(_bd_,_be_)}; - caml_update_dummy - (pp$3, - function(poly_a,fmt,param) - {if(0 === param[0]) - {var a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_t_); - caml_call1(caml_call1(poly_a,fmt),a0); - return caml_call2(Stdlib_format[123],fmt,_u_)} - var a1=param[2],a0$0=param[1]; - caml_call2(Stdlib_format[123],fmt,_v_); - caml_call1 - (caml_call2(pp$3,function(fmt){return caml_call1(poly_a,fmt)},fmt), - a0$0); - caml_call2(Stdlib_format[123],fmt,_w_); - caml_call1 - (caml_call2(pp$3,function(fmt){return caml_call1(poly_a,fmt)},fmt), - a1); - return caml_call2(Stdlib_format[123],fmt,_x_)}); - caml_update_dummy - (show$2, - function(poly_a,x) - {var _bc_=caml_call1(pp$3,poly_a); - return caml_call3(Stdlib_format[127],_y_,_bc_,x)}); - function map$5(poly_a,param) - {if(0 === param[0]){var a0=param[1];return [0,caml_call1(poly_a,a0)]} - var a1=param[2],a0$0=param[1],_bb_=map$5(poly_a,a1); - return [1,map$5(poly_a,a0$0),_bb_]} - function fold$0(poly_a,acc,param) - {var acc$0=acc,param$0=param; - for(;;) - {if(0 === param$0[0]) - {var a0=param$0[1];return caml_call2(poly_a,acc$0,a0)} - var - a1=param$0[2], - a0$0=param$0[1], - acc$1=fold$0(poly_a,acc$0,a0$0), - acc$0=acc$1, - param$0=a1; - continue}} - function cata$1(l,n,param) - {if(0 === param[0]){var x=param[1];return caml_call1(l,x)} - var t2=param[2],t1=param[1],_ba_=cata$1(l,n,t2); - return caml_call2(n,cata$1(l,n,t1),_ba_)} - function size(t) - {function _a9_(_a$_,_a__){return _a$_ + _a__ | 0} - return cata$1(function(param){return 1},_a9_,t)} - function return$3(x){return [0,x]} - function apply$3(param) - {if(0 === param[0]){var f=param[1];return function(x){return map$5(f,x)}} - var f2=param[2],f1=param[1]; - return function(x) - {var _a8_=caml_call1(apply$3(f2),x); - return [1,caml_call1(apply$3(f1),x),_a8_]}} - function bind$3(param) - {if(0 === param[0]) - {var x=param[1];return function(f){return caml_call1(f,x)}} - var t2=param[2],t1=param[1]; - return function(f) - {var _a7_=caml_call1(bind$3(t2),f); - return [1,caml_call1(bind$3(t1),f),_a7_]}} - var - include$2=Monad([0,map$5,return$3,apply$3,bind$3]), - bind$4=include$2[1], - return$4=include$2[2], - apply$4=include$2[3], - map$6=include$2[4], - symbol$5=include$2[5], - let$4=include$2[6], - and$3=include$2[7], - Applicative_syntax$1=include$2[8], - symbol$6=include$2[9], - void$2=include$2[10], - mapA_list$3=include$2[12], - mapA_list$4=include$2[13], - mapA2_list$3=include$2[14], - mapA2_list$4=include$2[15], - sequenceA_list$3=include$2[16], - sequenceA_list$4=include$2[17], - sequenceA_option$1=include$2[18], - sequenceA_fst$1=include$2[19], - sequenceA_snd$1=include$2[20], - sequenceA_pair$1=include$2[21], - let$5=include$2[22], - and$4=include$2[23], - Monad_syntax$1=include$2[24], - symbol_bind$1=include$2[25], - symbol$7=include$2[26], - join$1=include$2[27], - bind2$1=include$2[28], - unless$1=include$2[29]; - function leaf(x){return [0,x]} - function node(t1,t2){return [1,t1,t2]} - function to_list$0(param) - {if(0 === param[0]){var x=param[1];return [0,x,0]} - var t2=param[2],t1=param[1],_a5_=to_list$0(t2),_a6_=to_list$0(t1); - return caml_call2(Stdlib[37],_a6_,_a5_)} - function fold1(f,param) - {if(0 === param[0]){var x=param[1];return x} - var y=param[2],x$0=param[1],_a4_=fold1(f,y); - return caml_call2(f,fold1(f,x$0),_a4_)} - function right_comb(param) - {if(param) - {var _a2_=param[2],_a3_=param[1]; - return _a2_?[1,[0,_a3_],right_comb(_a2_)]:[0,_a3_]} - return caml_call1(Stdlib[2],cst_of_right_comb_empty_list)} - function print(sep,pp) - {function f(protect,ppf,param) - {if(0 === param[0]) - {var x=param[1];return caml_call4(Stdlib_format[123],ppf,_z_,pp,x)} - var r2=param[2],r1=param[1]; - function r(ppf) - {var _aU_=1; - function _aV_(_a0_,_a1_){return f(_aU_,_a0_,_a1_)} - var _aW_=1; - function _aX_(_aY_,_aZ_){return f(_aW_,_aY_,_aZ_)} - return caml_call7(Stdlib_format[123],ppf,_A_,_aX_,r1,sep,_aV_,r2)} - return protect - ?caml_call3(Stdlib_format[123],ppf,_B_,r) - :caml_call3(Stdlib_format[123],ppf,_C_,r)} - var _aR_=0; - return function(_aS_,_aT_){return f(_aR_,_aS_,_aT_)}} - function map_some$0(f,param) - {if(0 === param[0]) - {var x=param[1];return caml_call2(map$3,leaf,caml_call1(f,x))} - var - t2=param[2], - t1=param[1], - match=map_some$0(f,t1), - match$0=map_some$0(f,t2); - if(match) - {var _aQ_=match[1]; - if(match$0){var y=match$0[1];return [0,[1,_aQ_,y]]} - return [0,_aQ_]} - return match$0} - function filter$0(f,x) - {return map_some$0(function(x){return caml_call1(f,x)?[0,x]:0},x)} - function matches(x,match) - {if(0 === x[0]){var x$0=x[1];return [0,[0,[0,x$0,match]]]} - var _aN_=x[2],_aO_=x[1]; - if(0 === match[0])return 0; - var u2=match[2],u1=match[1],_aP_=matches(_aN_,u2); - return caml_call2 - (symbol$3,caml_call2(symbol$2,node,matches(_aO_,u1)),_aP_)} - function common(t,match) - {if(1 === t[0]) - {var _aK_=t[2],_aL_=t[1]; - if(0 !== match[0]) - {var u2=match[2],u1=match[1],_aM_=common(_aK_,u2); - return [1,common(_aL_,u1),_aM_]}} - return [0,[0,t,match]]} - function common3(t,u,match) - {if(1 === t[0]) - {var _aF_=t[2],_aG_=t[1]; - if(0 !== u[0]) - {var _aH_=u[2],_aI_=u[1]; - if(0 !== match[0]) - {var v2=match[2],v1=match[1],_aJ_=common3(_aF_,_aH_,v2); - return [1,common3(_aG_,_aI_,v1),_aJ_]}}} - return [0,[0,t,u,match]]} - function same_shape(x,y) - {var x$0=x,y$0=y; - for(;;) - {if(0 === x$0[0]) - {if(0 === y$0[0])return 1} - else - {var _aC_=x$0[2],_aD_=x$0[1]; - if(0 !== y$0[0]) - {var u2=y$0[2],u1=y$0[1],_aE_=same_shape(_aD_,u1); - if(_aE_){var x$0=_aC_,y$0=u2;continue} - return _aE_}} - return 0}} - function map2$2(f,x,match) - {if(0 === x[0]) - {var _ay_=x[1]; - if(0 === match[0]){var y=match[1];return [0,caml_call2(f,_ay_,y)]}} - else - {var _az_=x[2],_aA_=x[1]; - if(0 !== match[0]) - {var u2=match[2],u1=match[1],_aB_=map2$2(f,_az_,u2); - return [1,map2$2(f,_aA_,u1),_aB_]}} - return caml_call1(Stdlib[2],cst_Binary_tree_map2_differing_shapes)} - function for_all$0(f,param) - {var param$0=param; - for(;;) - {if(0 === param$0[0]){var x=param$0[1];return caml_call1(f,x)} - var t2=param$0[2],t1=param$0[1],_ax_=for_all$0(f,t1); - if(_ax_){var param$0=t2;continue} - return _ax_}} - function exists$0(f,param) - {var param$0=param; - for(;;) - {if(0 === param$0[0]){var x=param$0[1];return caml_call1(f,x)} - var t2=param$0[2],t1=param$0[1],_aw_=exists$0(f,t1); - if(_aw_)return _aw_; - var param$0=t2; - continue}} - function Traversable(A) - {function mapA(f,param) - {if(0 === param[0]) - {var x=param[1],_as_=caml_call1(f,x); - return caml_call2(A[4],leaf,_as_)} - var - r2=param[2], - r1=param[1], - _at_=mapA(f,r2), - _au_=mapA(f,r1), - _av_=caml_call2(A[4],node,_au_); - return caml_call2(A[8],_av_,_at_)} - function sequenceA(param) - {if(0 === param[0]){var x=param[1];return caml_call2(A[4],leaf,x)} - var - r2=param[2], - r1=param[1], - _ap_=sequenceA(r2), - _aq_=sequenceA(r1), - _ar_=caml_call2(A[4],node,_aq_); - return caml_call2(A[8],_ar_,_ap_)} - return [0,mapA,sequenceA]} - var - equal_context= - function _ao_(_al_,_am_,_an_){return _ao_.fun(_al_,_am_,_an_)}; - caml_update_dummy - (equal_context, - function(poly_a,lhs,match) - {if(typeof lhs === "number") - {if(typeof match === "number")return 1} - else - if(0 === lhs[0]) - {var _af_=lhs[2],_ag_=lhs[1]; - if(typeof match !== "number" && 1 !== match[0]) - {var - rhs1=match[2], - rhs0=match[1], - _ah_= - caml_call1 - (caml_call1(caml_call1(equal_context,poly_a),_ag_),rhs0); - return _ah_ - ?caml_call1 - (caml_call1(caml_call1(equal$3,poly_a),_af_),rhs1) - :_ah_}} - else - {var _ai_=lhs[2],_aj_=lhs[1]; - if(typeof match !== "number" && 0 !== match[0]) - {var - rhs1$0=match[2], - rhs0$0=match[1], - _ak_= - caml_call1(caml_call1(caml_call1(equal$3,poly_a),_aj_),rhs0$0); - return _ak_ - ?caml_call1 - (caml_call1(caml_call1(equal_context,poly_a),_ai_),rhs1$0) - :_ak_}} - return 0}); - var - pp_context=function _ae_(_ab_,_ac_,_ad_){return _ae_.fun(_ab_,_ac_,_ad_)}, - show_context=function _aa_(___,_$_){return _aa_.fun(___,_$_)}; - caml_update_dummy - (pp_context, - function(poly_a,fmt,param) - {if(typeof param === "number") - return caml_call2(Stdlib_format[13],fmt,cst_Hole); - else - {if(0 === param[0]) - {var a1=param[2],a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_D_); - caml_call1 - (caml_call2 - (pp_context,function(fmt){return caml_call1(poly_a,fmt)},fmt), - a0); - caml_call2(Stdlib_format[123],fmt,_E_); - caml_call1 - (caml_call2 - (pp$3,function(fmt){return caml_call1(poly_a,fmt)},fmt), - a1); - return caml_call2(Stdlib_format[123],fmt,_F_)} - var a1$0=param[2],a0$0=param[1]; - caml_call2(Stdlib_format[123],fmt,_G_); - caml_call1 - (caml_call2(pp$3,function(fmt){return caml_call1(poly_a,fmt)},fmt), - a0$0); - caml_call2(Stdlib_format[123],fmt,_H_); - caml_call1 - (caml_call2 - (pp_context,function(fmt){return caml_call1(poly_a,fmt)},fmt), - a1$0); - return caml_call2(Stdlib_format[123],fmt,_I_)}}); - caml_update_dummy - (show_context, - function(poly_a,x) - {var _Z_=caml_call1(pp_context,poly_a); - return caml_call3(Stdlib_format[127],_J_,_Z_,x)}); - function map_context(poly_a,param) - {if(typeof param === "number") - return 0; - else - {if(0 === param[0]) - {var - a1=param[2], - a0=param[1], - _X_=caml_call1(caml_call1(map$6,poly_a),a1); - return [0,map_context(poly_a,a0),_X_]} - var a1$0=param[2],a0$0=param[1],_Y_=map_context(poly_a,a1$0); - return [1,caml_call1(caml_call1(map$6,poly_a),a0$0),_Y_]}} - function fill$0(x,param) - {if(typeof param === "number") - return x; - else - {if(0 === param[0]){var t=param[2],c=param[1];return [1,fill$0(x,c),t]} - var c$0=param[2],t$0=param[1]; - return [1,t$0,fill$0(x,c$0)]}} - var equal$4=function _W_(_U_,_V_){return _W_.fun(_U_,_V_)}; - caml_update_dummy - (equal$4, - function(poly_a,x) - {return caml_call1(caml_call1(equal_context,poly_a),x)}); - var - pp$4=function _T_(_R_,_S_){return _T_.fun(_R_,_S_)}, - show$3=function _Q_(_O_,_P_){return _Q_.fun(_O_,_P_)}; - caml_update_dummy - (pp$4, - function(poly_a,fmt) - {return caml_call2 - (pp_context,function(fmt){return caml_call1(poly_a,fmt)},fmt)}); - caml_update_dummy - (show$3, - function(poly_a,x) - {var _N_=caml_call1(pp$4,poly_a); - return caml_call3(Stdlib_format[127],_K_,_N_,x)}); - var - include$3=Functor([0,map_context]), - map$7=include$3[1], - Utils_Binary_tree= + [12,44,[17,[0,caml_string_of_jsbytes("@ "),1,0],0]], + caml_string_of_jsbytes(",@ ")], + _y_= [0, - equal$3, - pp$3, - show$2, - fold$0, - cata$1, - size, - bind$4, - return$4, - apply$4, - map$6, - symbol$5, - let$4, - and$3, - Applicative_syntax$1, - symbol$6, - void$2, - mapA_list$3, - mapA_list$4, - mapA2_list$3, - mapA2_list$4, - sequenceA_list$3, - sequenceA_list$4, - sequenceA_option$1, - sequenceA_fst$1, - sequenceA_snd$1, - sequenceA_pair$1, - let$5, - and$4, - Monad_syntax$1, - symbol_bind$1, - symbol$7, - join$1, - bind2$1, - unless$1, - leaf, - node, - print, - to_list$0, - fold1, - right_comb, - map_some$0, - filter$0, - matches, - common, - common3, - same_shape, - map2$2, - for_all$0, - exists$0, - Traversable, - equal_context, - pp_context, - show_context, - map_context, - fill$0, - [0,equal$4,pp$4,show$3,map$7]]; - caml_register_global(70,Utils_Binary_tree,"Utils__Binary_tree"); - var - zero_big_int=Big_int[1], - unit_big_int=Big_int[2], - minus_big_int=Big_int[3], - abs_big_int=Big_int[4], - add_big_int=Big_int[5], - succ_big_int=Big_int[6], - add_int_big_int=Big_int[7], - sub_big_int=Big_int[8], - pred_big_int=Big_int[9], - mult_big_int=Big_int[10], - mult_int_big_int=Big_int[11], - square_big_int=Big_int[12], - sqrt_big_int=Big_int[13], - quomod_big_int=Big_int[14], - div_big_int=Big_int[15], - mod_big_int=Big_int[16], - gcd_big_int=Big_int[17], - power_int_positive_int=Big_int[18], - power_big_int_positive_int=Big_int[19], - power_int_positive_big_int=Big_int[20], - power_big_int_positive_big_int=Big_int[21], - sign_big_int=Big_int[22], - compare_big_int=Big_int[23], - eq_big_int=Big_int[24], - le_big_int=Big_int[25], - ge_big_int=Big_int[26], - lt_big_int=Big_int[27], - gt_big_int=Big_int[28], - max_big_int=Big_int[29], - min_big_int=Big_int[30], - num_digits_big_int=Big_int[31], - num_bits_big_int=Big_int[32], - string_of_big_int=Big_int[33], - big_int_of_string=Big_int[34], - big_int_of_string_opt=Big_int[35], - big_int_of_int=Big_int[36], - is_int_big_int=Big_int[37], - int_of_big_int=Big_int[38], - int_of_big_int_opt=Big_int[39], - big_int_of_int32=Big_int[40], - big_int_of_nativeint=Big_int[41], - big_int_of_int64=Big_int[42], - int32_of_big_int=Big_int[43], - int32_of_big_int_opt=Big_int[44], - nativeint_of_big_int=Big_int[45], - nativeint_of_big_int_opt=Big_int[46], - int64_of_big_int=Big_int[47], - int64_of_big_int_opt=Big_int[48], - float_of_big_int=Big_int[49], - and_big_int=Big_int[50], - or_big_int=Big_int[51], - xor_big_int=Big_int[52], - shift_left_big_int=Big_int[53], - shift_right_big_int=Big_int[54], - shift_right_towards_zero_big_int=Big_int[55], - extract_big_int=Big_int[56], - nat_of_big_int=Big_int[57], - big_int_of_nat=Big_int[58], - base_power_big_int=Big_int[59], - sys_big_int_of_string=Big_int[60], - round_futur_last_digit=Big_int[61], - approx_big_int=Big_int[62], - round_big_int_to_float=Big_int[63], - equal$5=Big_int[24], - compare$2=Big_int[23]; - function pp$5(ppf,p) - {var _M_=caml_call1(string_of_big_int,p); - return caml_call3(Stdlib_format[123],ppf,_L_,_M_)} - var - Utils_Bigint= + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [15,[12,58,[17,[0,caml_string_of_jsbytes("@ "),1,0],[15,[17,0,0]]]]]], + caml_string_of_jsbytes("@[%a:@ %a@]")], + _x_= [0, - equal$5, - compare$2, - pp$5, - string_of_big_int, - big_int_of_int, - zero_big_int, - unit_big_int, - minus_big_int, - abs_big_int, - add_big_int, - succ_big_int, - add_int_big_int, - sub_big_int, - pred_big_int, - mult_big_int, - mult_int_big_int, - square_big_int, - sqrt_big_int, - quomod_big_int, - div_big_int, - mod_big_int, - gcd_big_int, - power_int_positive_int, - power_big_int_positive_int, - power_int_positive_big_int, - power_big_int_positive_big_int, - sign_big_int, - compare_big_int, - eq_big_int, - le_big_int, - ge_big_int, - lt_big_int, - gt_big_int, - max_big_int, - min_big_int, - num_digits_big_int, - num_bits_big_int, - string_of_big_int, - big_int_of_string, - big_int_of_string_opt, - big_int_of_int, - is_int_big_int, - int_of_big_int, - int_of_big_int_opt, - big_int_of_int32, - big_int_of_nativeint, - big_int_of_int64, - int32_of_big_int, - int32_of_big_int_opt, - nativeint_of_big_int, - nativeint_of_big_int_opt, - int64_of_big_int, - int64_of_big_int_opt, - float_of_big_int, - and_big_int, - or_big_int, - xor_big_int, - shift_left_big_int, - shift_right_big_int, - shift_right_towards_zero_big_int, - extract_big_int, - nat_of_big_int, - big_int_of_nat, - base_power_big_int, - sys_big_int_of_string, - round_futur_last_digit, - approx_big_int, - round_big_int_to_float]; - caml_register_global(72,Utils_Bigint,"Utils__Bigint"); - return} - (function(){return this}())); - - -//# 1 "../../.js/uutf/uutf.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - caml_blit_bytes=runtime.caml_blit_bytes, - caml_bytes_unsafe_get=runtime.caml_bytes_unsafe_get, - caml_check_bound=runtime.caml_check_bound, - caml_create_bytes=runtime.caml_create_bytes, - caml_ml_bytes_length=runtime.caml_ml_bytes_length, - caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, - caml_string_compare=runtime.caml_string_compare, - caml_string_get=runtime.caml_string_get, - caml_string_notequal=runtime.caml_string_notequal; - function caml_call1(f,a0) - {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} - function caml_call2(f,a0,a1) - {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} - function caml_call3(f,a0,a1,a2) - {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} - function caml_call4(f,a0,a1,a2,a3) - {return f.length == 4 - ?f(a0,a1,a2,a3) - :runtime.caml_call_gen(f,[a0,a1,a2,a3])} - var - global_data=runtime.caml_get_global_data(), - cst_UTF_8$0=caml_new_string("UTF-8"), - cst_US_ASCII$0=caml_new_string("US-ASCII"), - cst_ISO_8859_1$1=caml_new_string("ISO-8859-1"), - cst_UTF_16$0=caml_new_string("UTF-16"), - cst_UTF_16LE$0=caml_new_string("UTF-16LE"), - cst_UTF_16BE$0=caml_new_string("UTF-16BE"), - cst_ISO646_US=caml_new_string("ISO646-US"), - cst_CSISOLATIN1=caml_new_string("CSISOLATIN1"), - cst_ANSI_X3_4_1968=caml_new_string("ANSI_X3.4-1968"), - cst_ANSI_X3_4_1986=caml_new_string("ANSI_X3.4-1986"), - cst_ASCII=caml_new_string("ASCII"), - cst_CP367=caml_new_string("CP367"), - cst_CP819=caml_new_string("CP819"), - cst_CSASCII=caml_new_string("CSASCII"), - cst_IBM367=caml_new_string("IBM367"), - cst_IBM819=caml_new_string("IBM819"), - cst_ISO_8859_1$0=caml_new_string("ISO-8859-1"), - cst_ISO_IR_100=caml_new_string("ISO-IR-100"), - cst_ISO_IR_6=caml_new_string("ISO-IR-6"), - cst_US=caml_new_string("US"), - cst_ISO_646_IRV_1991=caml_new_string("ISO_646.IRV:1991"), - cst_ISO_8859_1=caml_new_string("ISO_8859-1"), - cst_ISO_8859_1_1987=caml_new_string("ISO_8859-1:1987"), - cst_L1=caml_new_string("L1"), - cst_LATIN1=caml_new_string("LATIN1"), - cst_US_ASCII=caml_new_string("US-ASCII"), - cst_UTF_16=caml_new_string("UTF-16"), - cst_UTF_16BE=caml_new_string("UTF-16BE"), - cst_UTF_16LE=caml_new_string("UTF-16LE"), - cst_UTF_8=caml_new_string("UTF-8"), - cst_expected_Await_encode=caml_new_string("expected `Await encode"), - Stdlib_uchar=global_data.Stdlib__uchar, - Stdlib_buffer=global_data.Stdlib__buffer, - Stdlib_bytes=global_data.Stdlib__bytes, - Stdlib=global_data.Stdlib, - Assert_failure=global_data.Assert_failure, - Stdlib_string=global_data.Stdlib__string, - Stdlib_printf=global_data.Stdlib__printf, - Stdlib_format=global_data.Stdlib__format, - _a_=Stdlib_format[123], - _B_=[0,caml_new_string("src/uutf.ml"),364,9], - _u_=[0,[11,caml_new_string("`Await"),0],caml_new_string("`Await")], - _v_=[0,[11,caml_new_string("`End"),0],caml_new_string("`End")], - _w_= + [12,44,[17,[0,caml_string_of_jsbytes("@ "),1,0],0]], + caml_string_of_jsbytes(",@ ")], + _z_= [0, [18, - [1,[0,0,caml_new_string("")]], - [11,caml_new_string("`Uchar U+"),[4,8,[0,2,4],0,[17,0,0]]]], - caml_new_string("@[`Uchar U+%04X@]")], - _x_= + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("{ "), + [15,[11,caml_string_of_jsbytes(" }"),[17,0,0]]]]], + caml_string_of_jsbytes("@[{ %a }@]")], + _A_=[0,[11,caml_string_of_jsbytes("{}"),0],caml_string_of_jsbytes("{}")], + _v_= [0, [18, - [1,[0,0,caml_new_string("")]], - [11,caml_new_string("`Malformed ("),0]], - caml_new_string("@[`Malformed (")], - _y_=[0,[4,8,[0,2,2],0,0],caml_new_string("%02X")], - _A_=[0,[12,32,[4,8,[0,2,2],0,0]],caml_new_string(" %02X")], - _z_=[0,[12,41,[17,0,0]],caml_new_string(")@]")], - _p_=[0,-211555818,3299808], - _k_=[0,-211558048,3299808], - _q_=[0,684370880,3299808], - _o_=[0,684370880,427938126], - _l_=[0,-211558048,427938126], - _m_=[0,caml_new_string("src/uutf.ml"),154,55], - _n_=[0,684370880,427938126], - _r_=[0,caml_new_string("src/uutf.ml"),153,55], - _s_=[0,caml_new_string("src/uutf.ml"),155,55], - _t_=[0,684370880,3455931], - _j_=[0,caml_new_string("src/uutf.ml"),121,9], - _c_=[0,684370880], - _d_=[0,-211555818], - _e_=[0,-211558048], - _f_=[0,143365725], - _g_=[0,423112016], - _h_=[0,338302576], - _b_= + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("[ "), + [15,[11,caml_string_of_jsbytes(" ]"),[17,0,0]]]]], + caml_string_of_jsbytes("@[[ %a ]@]")], + _w_=[0,[11,caml_string_of_jsbytes("[]"),0],caml_string_of_jsbytes("[]")], + _a_=[0,[12,34,0],caml_string_of_jsbytes('"')], + _e_=[0,[0,0],caml_string_of_jsbytes("%c")], + _d_= + [0,[11,caml_string_of_jsbytes("\\\\"),0],caml_string_of_jsbytes("\\\\")], + _g_= + [0,[11,caml_string_of_jsbytes("\\b"),0],caml_string_of_jsbytes("\\b")], + _h_= + [0,[11,caml_string_of_jsbytes("\\t"),0],caml_string_of_jsbytes("\\t")], + _i_= + [0,[11,caml_string_of_jsbytes("\\n"),0],caml_string_of_jsbytes("\\n")], + _j_= + [0,[11,caml_string_of_jsbytes("\\r"),0],caml_string_of_jsbytes("\\r")], + _c_= + [0,[11,caml_string_of_jsbytes('\\"'),0],caml_string_of_jsbytes('\\"')], + _f_= + [0, + [11,caml_string_of_jsbytes("\\u"),[4,6,[0,2,4],0,0]], + caml_string_of_jsbytes("\\u%04x")], + _b_=[0,[12,34,0],caml_string_of_jsbytes('"')], + _N_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("Illegal pointer notation"), + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [11, + caml_string_of_jsbytes("At character "), + [4, + 0, + 0, + 0, + [11, + caml_string_of_jsbytes(" of "), + [3,0,[17,[0,caml_string_of_jsbytes("@,"),0,0],[2,0,[17,0,0]]]]]]]]]], + caml_string_of_jsbytes + ("@[Illegal pointer notation@,At character %d of %S@,%s@]")], + _O_= [0, [11, - caml_new_string("invalid bounds (index "), - [4,0,0,0,[11,caml_new_string(", length "),[4,0,0,0,[12,41,0]]]]], - caml_new_string("invalid bounds (index %d, length %d)")], - _i_= + caml_string_of_jsbytes("Path operator "), + [2,0,[11,caml_string_of_jsbytes(" unsupported by "),[2,0,0]]]], + caml_string_of_jsbytes("Path operator %s unsupported by %s")], + _P_=[0,1], + _Q_= [0, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 1, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 2, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 3, - 4, - 4, - 4, - 4, - 4, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0, - 0]; - function invalid_bounds(j,l) - {var _aF_=caml_call3(Stdlib_printf[4],_b_,j,l); - return caml_call1(Stdlib[1],_aF_)} - function unsafe_set_byte(s,j,byte$0) - {runtime.caml_bytes_unsafe_set(s,j,byte$0);return 0} - var - u_bom=caml_call1(Stdlib_uchar[9],65279), - u_rep=caml_call1(Stdlib_uchar[9],65533); - function encoding_of_string(s) - {var - match=caml_call1(Stdlib_string[25],s), - _aD_=caml_string_compare(match,cst_ISO646_US); - if(0 <= _aD_) - if(0 < _aD_) - {var switch$0=caml_string_compare(match,cst_US); - if(0 <= switch$0) - if(0 < switch$0) - if(caml_string_notequal(match,cst_US_ASCII)) - {if(! caml_string_notequal(match,cst_UTF_16))return _f_; - if(! caml_string_notequal(match,cst_UTF_16BE))return _e_; - if(! caml_string_notequal(match,cst_UTF_16LE))return _d_; - if(! caml_string_notequal(match,cst_UTF_8))return _c_; - var switch$1=0} - else - var switch$1=1; - else - var switch$1=1; - else - var - switch$1= - caml_string_notequal(match,cst_ISO_646_IRV_1991) - ?caml_string_notequal(match,cst_ISO_8859_1) - ?caml_string_notequal(match,cst_ISO_8859_1_1987) - ?caml_string_notequal(match,cst_L1) - ?caml_string_notequal(match,cst_LATIN1)?0:2 - :2 - :2 - :2 - :1} - else - var switch$1=1; - else - var - _aE_=caml_string_compare(match,cst_CSISOLATIN1), - switch$1= - 0 <= _aE_ - ?0 < _aE_ - ?caml_string_notequal(match,cst_IBM367) - ?caml_string_notequal(match,cst_IBM819) - ?caml_string_notequal(match,cst_ISO_8859_1$0) - ?caml_string_notequal(match,cst_ISO_IR_100) - ?caml_string_notequal(match,cst_ISO_IR_6)?0:1 - :2 - :2 - :2 - :1 - :2 - :caml_string_notequal(match,cst_ANSI_X3_4_1968) - ?caml_string_notequal(match,cst_ANSI_X3_4_1986) - ?caml_string_notequal(match,cst_ASCII) - ?caml_string_notequal(match,cst_CP367) - ?caml_string_notequal(match,cst_CP819) - ?caml_string_notequal(match,cst_CSASCII)?0:1 - :2 - :1 - :1 - :1 - :1; - switch(switch$1){case 0:return 0;case 1:return _g_;default:return _h_}} - function encoding_to_string(param) - {return 143365725 <= param - ?423112016 <= param - ?684370880 <= param?cst_UTF_8$0:cst_US_ASCII$0 - :338302576 <= param?cst_ISO_8859_1$1:cst_UTF_16$0 - :-211555818 <= param?cst_UTF_16LE$0:cst_UTF_16BE$0} - function malformed(s,j,l) - {return [0,659980059,caml_call3(Stdlib_bytes[8],s,j,l)]} - function malformed_pair(be,hi,s,j,l) - {var bs1=caml_call3(Stdlib_bytes[7],s,j,l),bs0=caml_create_bytes(2); - if(be)var j0=0,j1=1;else var j0=1,j1=0; - unsafe_set_byte(bs0,j0,hi >>> 8 | 0); - unsafe_set_byte(bs0,j1,hi & 255); - var _aC_=caml_call2(Stdlib_bytes[14],bs0,bs1); - return [0,659980059,caml_call1(Stdlib_bytes[42],_aC_)]} - var utf_8_len=_i_.slice(); - function r_utf_8(s,j,l) - {function uchar(c){return [0,852405675,caml_call1(Stdlib_uchar[9],c)]} - var switcher=l - 1 | 0; - if(3 < switcher >>> 0)throw [0,Assert_failure,_j_]; - switch(switcher) - {case 0:return uchar(caml_bytes_unsafe_get(s,j)); - case 1: - var - b0=caml_bytes_unsafe_get(s,j), - b1=caml_bytes_unsafe_get(s,j + 1 | 0); - return 2 === (b1 >>> 6 | 0) - ?uchar((b0 & 31) << 6 | b1 & 63) - :malformed(s,j,l); - case 2: - var - b0$0=caml_bytes_unsafe_get(s,j), - b1$0=caml_bytes_unsafe_get(s,j + 1 | 0), - b2=caml_bytes_unsafe_get(s,j + 2 | 0), - c=(b0$0 & 15) << 12 | (b1$0 & 63) << 6 | b2 & 63; - if(2 === (b2 >>> 6 | 0)) - {if(224 === b0$0) - {if(160 <= b1$0)if(! (191 < b1$0))return uchar(c); - return malformed(s,j,l)} - if(237 === b0$0) - {if(128 <= b1$0)if(! (159 < b1$0))return uchar(c); - return malformed(s,j,l)} - return 2 === (b1$0 >>> 6 | 0)?uchar(c):malformed(s,j,l)} - return malformed(s,j,l); - default: - var - b0$1=caml_bytes_unsafe_get(s,j), - b1$1=caml_bytes_unsafe_get(s,j + 1 | 0), - b2$0=caml_bytes_unsafe_get(s,j + 2 | 0), - b3=caml_bytes_unsafe_get(s,j + 3 | 0), - c$0= - (b0$1 & 7) - << - 18 - | - (b1$1 & 63) - << - 12 - | - (b2$0 & 63) - << - 6 - | - b3 - & - 63; - if(2 === (b3 >>> 6 | 0)) - if(2 === (b2$0 >>> 6 | 0)) - {if(240 === b0$1) - {if(144 <= b1$1)if(! (191 < b1$1))return uchar(c$0); - return malformed(s,j,l)} - if(244 === b0$1) - {if(128 <= b1$1)if(! (143 < b1$1))return uchar(c$0); - return malformed(s,j,l)} - return 2 === (b1$1 >>> 6 | 0)?uchar(c$0):malformed(s,j,l)} - return malformed(s,j,l)}} - function r_utf_16(s,j0,j1) - {var - b0=caml_bytes_unsafe_get(s,j0), - b1=caml_bytes_unsafe_get(s,j1), - u=b0 << 8 | b1; - if(55296 <= u) - if(! (57343 < u)) - return 56319 < u - ?malformed(s,caml_call2(Stdlib[16],j0,j1),2) - :[0,16161,u]; - return [0,852405675,caml_call1(Stdlib_uchar[9],u)]} - function r_utf_16_lo(hi,s,j0,j1) - {var - b0=caml_bytes_unsafe_get(s,j0), - b1=caml_bytes_unsafe_get(s,j1), - lo=b0 << 8 | b1; - if(56320 <= lo) - if(! (57343 < lo)) - return [0, - 852405675, - caml_call1 - (Stdlib_uchar[9],((hi & 1023) << 10 | lo & 1023) + 65536 | 0)]; - return malformed_pair(j0 < j1?1:0,hi,s,caml_call2(Stdlib[16],j0,j1),2)} - function r_encoding(s,j,l) - {function some(i){return i < l?[0,caml_bytes_unsafe_get(s,j + i | 0)]:0} - var match=some(0),match$0=some(1),match$1=some(2); - if(match) - {var _aB_=match[1]; - if(240 <= _aB_) - if(254 === _aB_) - if(match$0) - {if(255 === match$0[1])return _k_;var switch$0=0} - else - var switch$0=1; - else - if(255 === _aB_) - if(match$0) - {if(254 === match$0[1])return _p_;var switch$0=0} - else - var switch$0=1; - else - var switch$0=0; - else - if(0 === _aB_) - if(match$0) - {var p=match$0[1]; - if(0 < p)return [0,-211558048,[0,605782321,p]]; - var switch$0=0} - else - var switch$0=1; - else - if(239 <= _aB_) - if(match$0) - if(187 === match$0[1]) - if(match$1) - {if(191 === match$1[1])return _q_;var switch$0=1} - else - var switch$0=1; - else - var switch$0=0; - else - var switch$0=1; - else - var switch$0=0; - if(! switch$0) - if(match$0) - if(0 === match$0[1]) - if(0 < _aB_)return [0,-211555818,[0,605782321,_aB_]]; - if(0 === caml_check_bound(utf_8_len,_aB_)[1 + _aB_]) - {if(match$0)return _l_; - if(match$1)throw [0,Assert_failure,_m_]; - return _n_} - return _o_} - if(match$0)throw [0,Assert_failure,_r_]; - if(match$1)throw [0,Assert_failure,_s_]; - return _t_} - function pp_decode(ppf,param) - {if(typeof param === "number") - return 1006505782 <= param - ?caml_call2(_a_,ppf,_u_) - :caml_call2(_a_,ppf,_v_); - if(852405675 <= param[1]) - {var u=param[2]; - return caml_call3(_a_,ppf,_w_,caml_call1(Stdlib_uchar[10],u))} - var bs=param[2],l=caml_ml_string_length(bs); - caml_call2(_a_,ppf,_x_); - if(0 < l)caml_call3(_a_,ppf,_y_,caml_string_get(bs,0)); - var _az_=l - 1 | 0,_ay_=1; - if(! (_az_ < 1)) - {var i=_ay_; - for(;;) - {caml_call3(_a_,ppf,_A_,caml_string_get(bs,i)); - var _aA_=i + 1 | 0; - if(_az_ !== i){var i=_aA_;continue} - break}} - return caml_call2(_a_,ppf,_z_)} - function i_rem(d){return (d[7] - d[6] | 0) + 1 | 0} - function eoi(d) - {d[5] = Stdlib_bytes[3];d[6] = 0;d[7] = Stdlib[20];return 0} - function src(d,s,j,l) - {if(0 <= j) - if(0 <= l) - if(! (caml_ml_bytes_length(s) < (j + l | 0))) - return 0 === l - ?eoi(d) - :(d[5] = s,d[6] = j,d[7] = (j + l | 0) - 1 | 0,0); - return invalid_bounds(j,l)} - function refill(k,d) - {var _ax_=d[1]; - if(typeof _ax_ === "number"){d[18] = k;return 1006505782} - if(438511779 <= _ax_[1]) - {var - ic=_ax_[2], - rc=caml_call4(Stdlib[84],ic,d[5],0,caml_ml_bytes_length(d[5])); - src(d,d[5],0,rc); - return caml_call1(k,d)} - eoi(d); - return caml_call1(k,d)} - function t_need(d,need){d[9] = 0;d[10] = need;return 0} - function t_fill(k,d) - {function blit(d,l) - {caml_blit_bytes(d[5],d[6],d[8],d[9],l); - d[6] = d[6] + l | 0; - d[9] = d[9] + l | 0; - return 0} - var rem=i_rem(d); - if(0 <= rem) - {var need=d[10] - d[9] | 0; - return rem < need - ?(blit(d,rem),refill(function(_aw_){return t_fill(k,_aw_)},d)) - :(blit(d,need),caml_call1(k,d))} - return caml_call1(k,d)} - function ret(k,v,byte_count,d) - {d[18] = k;d[15] = d[15] + byte_count | 0;return caml_call2(d[17],d,v)} - function decode_us_ascii(d) - {var rem=i_rem(d); - if(0 < rem) - {var j=d[6]; - d[6] = d[6] + 1 | 0; - var - _au_=d[5], - b0=caml_bytes_unsafe_get(_au_,j), - _at_=1, - _av_= - 127 < b0 - ?malformed(_au_,j,1) - :[0,852405675,caml_call1(Stdlib_uchar[9],b0)]; - return ret(decode_us_ascii,_av_,_at_,d)} - return 0 <= rem?refill(decode_us_ascii,d):3455931} - function decode_iso_8859_1(d) - {var rem=i_rem(d); - if(0 < rem) - {var j=d[6]; - d[6] = d[6] + 1 | 0; - return ret - (decode_iso_8859_1, - [0, - 852405675, - caml_call1(Stdlib_uchar[9],caml_bytes_unsafe_get(d[5],j))], - 1, - d)} - return 0 <= rem?refill(decode_iso_8859_1,d):3455931} - function t_decode_utf_8(d) - {if(d[9] < d[10]) - {var _ar_=d[9];return ret(decode_utf_8,malformed(d[8],0,d[9]),_ar_,d)} - var _as_=d[9]; - return ret(decode_utf_8,r_utf_8(d[8],0,d[9]),_as_,d)} - function decode_utf_8(d) - {var rem=i_rem(d); - if(0 < rem) - {var need=utf_8_len[1 + caml_bytes_unsafe_get(d[5],d[6])]; - if(rem < need){t_need(d,need);return t_fill(t_decode_utf_8,d)} - var j=d[6]; - return 0 === need - ?(d[6] - = - d[6] - + - 1 - | - 0, - ret(decode_utf_8,malformed(d[5],j,1),1,d)) - :(d[6] - = - d[6] - + - need - | - 0, - ret(decode_utf_8,r_utf_8(d[5],j,need),need,d))} - return 0 <= rem?refill(decode_utf_8,d):3455931} - function t_decode_utf_16be_lo(hi,d) - {var bcount=d[9] + 2 | 0; - return d[9] < d[10] - ?ret(decode_utf_16be,malformed_pair(1,hi,d[8],0,d[9]),bcount,d) - :ret(decode_utf_16be,r_utf_16_lo(hi,d[8],0,1),bcount,d)} - function decode_utf_16be_lo(v,d) - {if(659980059 <= v[1])return ret(decode_utf_16be,v,2,d); - var hi=v[2],rem=i_rem(d); - if(2 <= rem) - {var j=d[6]; - d[6] = d[6] + 2 | 0; - return ret(decode_utf_16be,r_utf_16_lo(hi,d[5],j,j + 1 | 0),4,d)} - t_need(d,2); - return t_fill(function(_aq_){return t_decode_utf_16be_lo(hi,_aq_)},d)} - function t_decode_utf_16be(d) - {if(d[9] < d[10]) - {var _ap_=d[9]; - return ret(decode_utf_16be,malformed(d[8],0,d[9]),_ap_,d)} - return decode_utf_16be_lo(r_utf_16(d[8],0,1),d)} - function decode_utf_16be(d) - {var rem=i_rem(d); - if(0 < rem) - {if(2 <= rem) - {var j=d[6]; - d[6] = d[6] + 2 | 0; - return decode_utf_16be_lo(r_utf_16(d[5],j,j + 1 | 0),d)} - t_need(d,2); - return t_fill(t_decode_utf_16be,d)} - return 0 <= rem?refill(decode_utf_16be,d):3455931} - function t_decode_utf_16_lo(hi,d) - {var bcount=d[9] + 2 | 0; - return d[9] < d[10] - ?ret(decode_utf_16,malformed_pair(0,hi,d[8],0,d[9]),bcount,d) - :ret(decode_utf_16,r_utf_16_lo(hi,d[8],1,0),bcount,d)} - function decode_utf_16le_lo(v,d) - {if(659980059 <= v[1])return ret(decode_utf_16,v,2,d); - var hi=v[2],rem=i_rem(d); - if(2 <= rem) - {var j=d[6]; - d[6] = d[6] + 2 | 0; - return ret(decode_utf_16,r_utf_16_lo(hi,d[5],j + 1 | 0,j),4,d)} - t_need(d,2); - return t_fill(function(_ao_){return t_decode_utf_16_lo(hi,_ao_)},d)} - function t_decode_utf_16(d) - {if(d[9] < d[10]) - {var _an_=d[9];return ret(decode_utf_16,malformed(d[8],0,d[9]),_an_,d)} - return decode_utf_16le_lo(r_utf_16(d[8],1,0),d)} - function decode_utf_16(d) - {var rem=i_rem(d); - if(0 < rem) - {if(2 <= rem) - {var j=d[6]; - d[6] = d[6] + 2 | 0; - return decode_utf_16le_lo(r_utf_16(d[5],j + 1 | 0,j),d)} - t_need(d,2); - return t_fill(t_decode_utf_16,d)} - return 0 <= rem?refill(decode_utf_16,d):3455931} - function guessed_utf_16(d,be,v) - {if(be) - var - decode_utf_16$0=decode_utf_16be, - t_decode_utf_16$0=t_decode_utf_16be, - t_decode_utf_16_lo$0=t_decode_utf_16be_lo, - j0=0, - j1=1; - else - var - decode_utf_16$0=decode_utf_16, - t_decode_utf_16$0=t_decode_utf_16, - t_decode_utf_16_lo$0=t_decode_utf_16_lo, - j0=1, - j1=0; - function b3(k,d) - {return 3 <= d[9] - ?(d[10] - = - 2, - d[9] - = - 1, - unsafe_set_byte(d[8],0,caml_bytes_unsafe_get(d[8],2)), - t_fill(k,d)) - :decode_utf_16$0(d)} - if(typeof v === "number") - {if(427938126 <= v) - {var v$0=r_utf_16(d[8],j0,j1); - if(659980059 <= v$0[1]) - {var _ad_=2; - return ret - (function(_am_){return b3(t_decode_utf_16$0,_am_)}, - v$0, - _ad_, - d)} - var hi=v$0[2]; - if(3 <= d[9]) - return b3(function(_al_){return t_decode_utf_16_lo$0(hi,_al_)},d); - var _ae_=d[9]; - return ret - (decode_utf_16$0, - malformed_pair(be,hi,Stdlib_bytes[3],0,0), - _ae_, - d)} - var _af_=2,_ag_=[0,852405675,u_bom]; - return ret - (function(_ak_){return b3(t_decode_utf_16$0,_ak_)}, - _ag_, - _af_, - d)} - var u=v[2],_ah_=2,_ai_=[0,852405675,caml_call1(Stdlib_uchar[9],u)]; - return ret - (function(_aj_){return b3(t_decode_utf_16$0,_aj_)},_ai_,_ah_,d)} - function k(d) - {function setup(d) - {var match=r_encoding(d[8],0,d[9]),_ac_=match[1]; - if(-211555818 === _ac_) - {var r=match[2]; - d[2] = -211555818; - d[18] = decode_utf_16; - return guessed_utf_16(d,0,r)} - if(684370880 <= _ac_) - {var r$0=match[2]; - d[2] = 684370880; - d[18] = decode_utf_8; - if(3455931 === r$0)return 3455931; - if(427938126 <= r$0) + [11, + caml_string_of_jsbytes("Unmergeable objects, incompatibility at "), + [15,0]], + caml_string_of_jsbytes("Unmergeable objects, incompatibility at %a")], + _R_= + [0, + [11,caml_string_of_jsbytes("Unmergeable objects"),0], + caml_string_of_jsbytes("Unmergeable objects")], + _S_= + [0, + [11,caml_string_of_jsbytes("Unhandled error "),[2,0,0]], + caml_string_of_jsbytes("Unhandled error %s")], + _M_=[0,caml_string_of_jsbytes("src/json_query.ml"),174,29], + _L_=[0,[15,0],caml_string_of_jsbytes("%a")], + _H_= + [0, + [11,caml_string_of_jsbytes("/-"),[15,0]], + caml_string_of_jsbytes("/-%a")], + _I_=[0,[12,47,[2,0,[15,0]]],caml_string_of_jsbytes("/%s%a")], + _J_=[0,[12,47,[4,0,0,0,[15,0]]],caml_string_of_jsbytes("/%d%a")], + _K_=[0,[12,47,0],caml_string_of_jsbytes("/")], + _C_=[0,[12,42,[15,0]],caml_string_of_jsbytes("*%a")], + _D_=[0,[12,45,[15,0]],caml_string_of_jsbytes("-%a")], + _E_=[0,[12,47,[2,0,[15,0]]],caml_string_of_jsbytes("/%s%a")], + _F_=[0,[12,91,[4,0,0,0,[12,93,[15,0]]]],caml_string_of_jsbytes("[%d]%a")], + _G_=[0,[12,47,0],caml_string_of_jsbytes("/")], + _aV_=[0,[12,47,[2,0,[12,47,0]]],caml_string_of_jsbytes("/%s/")], + _aW_= + [0, + [11,caml_string_of_jsbytes("string"),0], + caml_string_of_jsbytes("string")], + _aU_= + [0, + [4,0,0,0,[11,caml_string_of_jsbytes(" <= "),0]], + caml_string_of_jsbytes("%d <= ")], + _aT_= + [0, + [11,caml_string_of_jsbytes("<= "),[4,0,0,0,0]], + caml_string_of_jsbytes("<= %d")], + _aK_= + [0, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("| "),0]], + caml_string_of_jsbytes("@ | ")], + _aL_= + [0, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("|| "),0]], + caml_string_of_jsbytes("@ || ")], + _aM_= + [0, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("&& "),0]], + caml_string_of_jsbytes("@ && ")], + _aN_=[0,caml_string_of_jsbytes("src/json_schema.ml"),314,23], + _aD_=[0,[15,[15,0]],caml_string_of_jsbytes("%a%a")], + _aB_= + [0, + [12,44,[17,[0,caml_string_of_jsbytes("@ "),1,0],0]], + caml_string_of_jsbytes(",@ ")], + _ao_= + [0, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("| "),0]], + caml_string_of_jsbytes("@ | ")], + _am_=[0,[12,35,[2,0,0]],caml_string_of_jsbytes("#%s")], + _an_=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _ap_=[0,0], + _aq_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [15,[17,0,0]]], + caml_string_of_jsbytes("@[%a@]")], + _as_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("{ "), + [15, + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [15,[11,caml_string_of_jsbytes(" }"),[17,0,0]]]]]]], + caml_string_of_jsbytes("@[{ %a@,%a }@]")], + _at_= + [0, + [15,[17,[0,caml_string_of_jsbytes("@,"),0,0],[15,0]]], + caml_string_of_jsbytes("%a@,%a")], + _ar_= + [0, + [15,[17,[0,caml_string_of_jsbytes("@ "),1,0],[15,0]]], + caml_string_of_jsbytes("%a@ %a")], + _au_= + [0, + [11,caml_string_of_jsbytes("boolean"),0], + caml_string_of_jsbytes("boolean")], + _av_= + [0,[11,caml_string_of_jsbytes("null"),0],caml_string_of_jsbytes("null")], + _aw_= + [0,[11,caml_string_of_jsbytes("any"),0],caml_string_of_jsbytes("any")], + _ax_=[0,caml_string_of_jsbytes("src/json_schema.ml"),306,23], + _az_=[0,[11,caml_string_of_jsbytes("{}"),0],caml_string_of_jsbytes("{}")], + _ay_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("{ "), + [15,[11,caml_string_of_jsbytes(" }"),[17,0,0]]]]], + caml_string_of_jsbytes("@[{ %a }@]")], + _aC_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11,caml_string_of_jsbytes("[ "),0]], + caml_string_of_jsbytes("@[[ ")], + _aE_= + [0, + [15, + [12, + 44, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("..."),0]]]], + caml_string_of_jsbytes("%a,@ ...")], + _aG_= + [0, + [15, + [12, + 44, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [15,[11,caml_string_of_jsbytes(" ..."),0]]]]], + caml_string_of_jsbytes("%a,@ %a ...")], + _aF_= + [0, + [11,caml_string_of_jsbytes(" ]"),[17,0,0]], + caml_string_of_jsbytes(" ]@]")], + _aH_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("[ "), + [15, + [11, + caml_string_of_jsbytes(" ...,"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("... ]"),[17,0,0]]]]]]], + caml_string_of_jsbytes("@[[ %a ...,@ ... ]@]")], + _aI_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("[ "), + [15, + [11, + caml_string_of_jsbytes(" ...,"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [15,[11,caml_string_of_jsbytes(" ... ]"),[17,0,0]]]]]]]], + caml_string_of_jsbytes("@[[ %a ...,@ %a ... ]@]")], + _aJ_= + [0, + [11, + caml_string_of_jsbytes("[ "), + [15,[11,caml_string_of_jsbytes(" ... ]"),0]]], + caml_string_of_jsbytes("[ %a ... ]")], + _aP_= + [0, + [11,caml_string_of_jsbytes("! "),[15,0]], + caml_string_of_jsbytes("! %a")], + _aO_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [15,[17,0,0]]], + caml_string_of_jsbytes("@[%a@]")], + _aQ_=[0,[12,36,[15,0]],caml_string_of_jsbytes("$%a")], + _aR_=[0,[12,35,[2,0,0]],caml_string_of_jsbytes("#%s")], + _aS_=[0,[12,36,[15,0]],caml_string_of_jsbytes("$%a")], + _aY_=[0,[12,47,[2,0,[12,47,0]]],caml_string_of_jsbytes("/%s/")], + _aZ_= + [0, + [11,caml_string_of_jsbytes("string"),0], + caml_string_of_jsbytes("string")], + _aX_= + [0, + [15, + [11, + caml_string_of_jsbytes(" ("), + [15,[11,caml_string_of_jsbytes("length"),[15,[12,41,0]]]]]], + caml_string_of_jsbytes("%a (%alength%a)")], + _a1_= + [0, + [11,caml_string_of_jsbytes("integer"),0], + caml_string_of_jsbytes("integer")], + _a0_= + [0, + [11,caml_string_of_jsbytes("integer "),[15,0]], + caml_string_of_jsbytes("integer %a")], + _a3_= + [0, + [11,caml_string_of_jsbytes("number"),0], + caml_string_of_jsbytes("number")], + _a2_= + [0, + [11,caml_string_of_jsbytes("number "),[15,0]], + caml_string_of_jsbytes("number %a")], + _aA_=[0,[11,caml_string_of_jsbytes("[]"),0],caml_string_of_jsbytes("[]")], + _a6_= + [0, + [15, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [12, + 47, + [2, + 0, + [11, + caml_string_of_jsbytes("/:"), + [17,[0,caml_string_of_jsbytes("@ "),1,0],[15,[17,0,0]]]]]]]], + caml_string_of_jsbytes("%a@[/%s/:@ %a@]")], + _a5_= + [0, + [15, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [15, + [2, + 0, + [12,58,[17,[0,caml_string_of_jsbytes("@ "),1,0],[15,[17,0,0]]]]]]]], + caml_string_of_jsbytes("%a@[%a%s:@ %a@]")], + _a4_= + [0, + [12,44,[17,[0,caml_string_of_jsbytes("@ "),1,0],0]], + caml_string_of_jsbytes(",@ ")], + _a7_= + [0, + [15,[11,caml_string_of_jsbytes("..."),0]], + caml_string_of_jsbytes("%a...")], + _a8_= + [0, + [15, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("*:"), + [17,[0,caml_string_of_jsbytes("@ "),1,0],[15,[17,0,0]]]]]], + caml_string_of_jsbytes("%a@[*:@ %a@]")], + _bd_=[0,1], + _be_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("Schema parse error:"), + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [11, + caml_string_of_jsbytes("At "), + [15,[17,[0,caml_string_of_jsbytes("@,"),0,0],[15,[17,0,0]]]]]]]], + caml_string_of_jsbytes("@[Schema parse error:@,At %a@,%a@]")], + _bf_= + [0, + [11,caml_string_of_jsbytes("Dangling reference "),[2,0,0]], + caml_string_of_jsbytes("Dangling reference %s")], + _bg_= + [0, + [11,caml_string_of_jsbytes("Illegal reference notation "),[2,0,0]], + caml_string_of_jsbytes("Illegal reference notation %s")], + _bh_= + [0, + [11, + caml_string_of_jsbytes("Unexpected "), + [2,0,[11,caml_string_of_jsbytes(" instead of "),[2,0,0]]]], + caml_string_of_jsbytes("Unexpected %s instead of %s")], + _bi_=[0,0], + _bj_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("Duplicate definition "), + [15, + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [11, + caml_string_of_jsbytes("To be inserted:"), + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [11, + caml_string_of_jsbytes(" "), + [18, + [1,[0,partial,caml_string_of_jsbytes("")]], + [15,[17,0,partial$0]]]]]]]]]], + caml_string_of_jsbytes + ("@[Duplicate definition %a@,To be inserted:@, @[%a@]@,Already present:@, @[%a@]@]")], + _bD_=[0,caml_string_of_jsbytes("src/json_schema.ml"),1188,36], + _bC_=[0,0], + _bA_=[0,0], + _bB_=[0,[0,331416730,caml_string_of_jsbytes("definitions")],0], + _bq_=[0,737456202,0], + _bo_=[0,737456202,0], + _bm_=[0,-976970511,caml_string_of_jsbytes("boolean")], + _bn_=[0,-976970511,caml_string_of_jsbytes("null")], + _bp_=[0,-976970511,caml_string_of_jsbytes("object")], + _br_=[0,-976970511,caml_string_of_jsbytes("array")], + _bs_=[0,-976970511,caml_string_of_jsbytes("array")], + _bt_=[0,-976970511,caml_string_of_jsbytes("string")], + _bw_=[0,737456202,1], + _bv_=[0,737456202,1], + _bu_=[0,-976970511,caml_string_of_jsbytes("integer")], + _bz_=[0,737456202,1], + _by_=[0,737456202,1], + _bx_=[0,-976970511,caml_string_of_jsbytes("number")], + _ba_= + [0, + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [12, + 35, + [2, + 0, + [12, + 58, + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [15,[17,[0,caml_string_of_jsbytes("@,"),0,0],[15,[17,0,0]]]]]]]]]], + caml_string_of_jsbytes("@,@[#%s:@,%a@,%a@]")], + _bb_= + [0, + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [12, + 35, + [2, + 0, + [12,58,[17,[0,caml_string_of_jsbytes("@ "),1,0],[15,[17,0,0]]]]]]]], + caml_string_of_jsbytes("@,@[#%s:@ %a@]")], + _a__= + [0, + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [12, + 36, + [15, + [12, + 58, + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [15,[17,[0,caml_string_of_jsbytes("@,"),0,0],[15,[17,0,0]]]]]]]]]], + caml_string_of_jsbytes("@,@[$%a:@,%a@,%a@]")], + _a$_= + [0, + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [12, + 36, + [15,[12,58,[17,[0,caml_string_of_jsbytes("@ "),1,0],[15,[17,0,0]]]]]]]], + caml_string_of_jsbytes("@,@[$%a:@ %a@]")], + _a9_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + 0], + caml_string_of_jsbytes("@[")], + _bc_=[0,[17,0,0],caml_string_of_jsbytes("@]")], + _al_= + [0, + [11, + caml_string_of_jsbytes("/* "), + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [15,[17,0,[11,caml_string_of_jsbytes(" */"),0]]]]], + caml_string_of_jsbytes("/* @[%a@] */")], + _ak_= + [0, + [11, + caml_string_of_jsbytes("/* "), + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [15, + [17, + 0, + [17, + [0,caml_string_of_jsbytes("@,"),0,0], + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [15,[17,0,[17,0,partial$1]]]]]]]]]], + caml_string_of_jsbytes("/* @[@[%a@]@,@[%a@]@] */")], + _aj_=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _ai_=[0,1], + _ag_= + [0, + [11,caml_string_of_jsbytes("multiple of "),[8,[0,0,3],0,0,0]], + caml_string_of_jsbytes("multiple of %g")], + _af_=[0,[11,caml_string_of_jsbytes(", "),0],caml_string_of_jsbytes(", ")], + _ab_=[0,[12,91,[15,0]],caml_string_of_jsbytes("[%a")], + _ac_=[0,[12,93,[15,0]],caml_string_of_jsbytes("]%a")], + _ad_= + [0, + [11,caml_string_of_jsbytes("]\xe2\x88\x9e"),0], + caml_string_of_jsbytes("]\xe2\x88\x9e")], + ___=[0,[15,[12,93,0]],caml_string_of_jsbytes("%a]")], + _$_=[0,[15,[12,91,0]],caml_string_of_jsbytes("%a[")], + _aa_= + [0, + [11,caml_string_of_jsbytes("\xe2\x88\x9e["),0], + caml_string_of_jsbytes("\xe2\x88\x9e[")], + _ae_= + [0, + [11, + caml_string_of_jsbytes("\xe2\x88\x88 "), + [15,[11,caml_string_of_jsbytes(", "),[15,0]]]], + caml_string_of_jsbytes("\xe2\x88\x88 %a, %a")], + _ah_=[0,[15,[15,[15,0]]],caml_string_of_jsbytes("%a%a%a")], + _W_= + [0, + [2,0,[11,caml_string_of_jsbytes("2^"),[8,[0,0,3],0,0,0]]], + caml_string_of_jsbytes("%s2^%g")], + _X_=[0,[12,43,[8,[0,0,3],0,0,0]],caml_string_of_jsbytes("+%g")], + _Y_=[0,[12,45,[8,[0,0,3],0,0,0]],caml_string_of_jsbytes("-%g")], + _U_=[0,[8,[0,0,3],0,0,0],caml_string_of_jsbytes("%g")], + _V_=[0,-2.,[0,-1.,[0,0.,[0,1.,[0,2.,0]]]]], + _Z_=[0,[8,[0,0,0],0,0,0],caml_string_of_jsbytes("%f")], + _b3_=[0,1], + _b4_= + [0, + [11, + caml_string_of_jsbytes("At "), + [15, + [11, + caml_string_of_jsbytes(", unexpected "), + [2,0,[11,caml_string_of_jsbytes(" instead of "),[2,0,0]]]]]], + caml_string_of_jsbytes("At %a, unexpected %s instead of %s")], + _b5_=[0,1], + _b6_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("At "), + [15, + [11, + caml_string_of_jsbytes(", no case matched:"), + [17,[0,caml_string_of_jsbytes("@,"),0,0],[15,[17,0,0]]]]]]], + caml_string_of_jsbytes("@[At %a, no case matched:@,%a@]")], + _b7_=[0,1], + _b8_= + [0, + [11, + caml_string_of_jsbytes("At "), + [15, + [11, + caml_string_of_jsbytes(", unexpected array of size "), + [4,0,0,0,[11,caml_string_of_jsbytes(" instead of "),[4,0,0,0,0]]]]]], + caml_string_of_jsbytes + ("At %a, unexpected array of size %d instead of %d")], + _b9_=[0,1], + _b__= + [0, + [11, + caml_string_of_jsbytes("At "), + [15,[11,caml_string_of_jsbytes(", missing object field "),[2,0,0]]]], + caml_string_of_jsbytes("At %a, missing object field %s")], + _b$_=[0,1], + _ca_= + [0, + [11, + caml_string_of_jsbytes("At "), + [15,[11,caml_string_of_jsbytes(", unexpected object field "),[2,0,0]]]], + caml_string_of_jsbytes("At %a, unexpected object field %s")], + _cb_=[0,1], + _cc_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("At "), + [15, + [11, + caml_string_of_jsbytes(", bad custom schema:"), + [17,[0,caml_string_of_jsbytes("@,"),0,0],[15,[17,0,0]]]]]]], + caml_string_of_jsbytes("@[At %a, bad custom schema:@,%a@]")], + _ck_= + [0, + [11, + caml_string_of_jsbytes("Unexpected "), + [2,0,[11,caml_string_of_jsbytes(" instead of "),[2,0,0]]]], + caml_string_of_jsbytes("Unexpected %s instead of %s")], + _cd_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("No case matched:"), + [17,[0,caml_string_of_jsbytes("@,"),0,0],[15,[17,0,0]]]]], + caml_string_of_jsbytes("@[No case matched:@,%a@]")], + _ce_= + [0, + [11, + caml_string_of_jsbytes("Unexpected array of size "), + [4,0,0,0,[11,caml_string_of_jsbytes(" instead of "),[4,0,0,0,0]]]], + caml_string_of_jsbytes("Unexpected array of size %d instead of %d")], + _cf_= + [0, + [11,caml_string_of_jsbytes("Missing object field "),[2,0,0]], + caml_string_of_jsbytes("Missing object field %s")], + _cg_= + [0, + [11,caml_string_of_jsbytes("Unexpected object field "),[2,0,0]], + caml_string_of_jsbytes("Unexpected object field %s")], + _ch_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("bad custom schema:"), + [17,[0,caml_string_of_jsbytes("@,"),0,0],[15,[17,0,0]]]]], + caml_string_of_jsbytes("@[bad custom schema:@,%a@]")], + _ci_=[0,1], + _cj_= + [0, + [18, + [1, + [0, + [11,caml_string_of_jsbytes(""),0], + caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("At "), + [15,[12,58,[17,[0,caml_string_of_jsbytes("@,"),0,0],[15,[17,0,0]]]]]]], + caml_string_of_jsbytes("@[At %a:@,%a@]")], + _b1_= + [0, + [11, + caml_string_of_jsbytes + ("Json_encoding.construct: consequence of non exhaustive Json_encoding.string_enum. Strings are: "), + [2,0,0]], + caml_string_of_jsbytes + ("Json_encoding.construct: consequence of non exhaustive Json_encoding.string_enum. Strings are: %s")], + _bV_= + [0, + [3,0,[11,caml_string_of_jsbytes(" , "),[15,0]]], + caml_string_of_jsbytes("%S , %a")], + _bW_= + [0, + [3,0,[11,caml_string_of_jsbytes(" or "),[3,0,0]]], + caml_string_of_jsbytes("%S or %S")], + _bX_=[0,[3,0,0],caml_string_of_jsbytes("%S")], + _bY_=[0,caml_string_of_jsbytes("src/json_encoding.ml"),748,20], + _bZ_= + [0, + [11,caml_string_of_jsbytes("string value "),[3,0,0]], + caml_string_of_jsbytes("string value %S")], + _b0_=[0,[15,0],caml_string_of_jsbytes("%a")], + _bQ_=runtime.caml_int64_create_lo_mi_hi(1,0,0), + _bR_=runtime.caml_int64_create_lo_mi_hi(1,0,0), + _bH_=[0,[0,0,0],0], + _bI_=[0,[0,0,1],0], + _bK_=[0,caml_string_of_jsbytes("src/json_encoding.ml"),511,40], + _bJ_=[0,caml_string_of_jsbytes("src/json_encoding.ml"),512,37], + _bG_=[0,79,0], + _bF_=[0,79,0], + _bE_=[0,79,0], + _bO_=runtime.caml_int64_create_lo_mi_hi(1,0,0), + _bP_=runtime.caml_int64_create_lo_mi_hi(1,0,0); + function repr_uid(param){return [0,0]} + function view(v){return v} + function repr(v){return v} + var repr_uid$0=repr_uid(0),Ezjsonm=[0,view,repr,repr_uid$0]; + function view$0(param) + {if(typeof param === "number")return 870828711; + var _oq_=param[1]; + if(708012133 <= _oq_) + {if(726928360 === _oq_){var l=param[2];return [0,65,l]} + if(848054398 <= _oq_) + {if(963043957 <= _oq_){var l$0=param[2];return [0,79,l$0]} + var l$1=param[2]; + return [0,65,l$1]} + if(737456202 <= _oq_){var b=param[2];return [0,737456202,b]} + var _or_=param[2],_os_=_or_[2],_ot_=_or_[1]; + if(_os_){var x=_os_[1];return [0,65,[0,[0,-976970511,_ot_],[0,x,0]]]} + return [0,-976970511,_ot_]} + if(3654863 <= _oq_) + {if(365180284 <= _oq_){var f=param[2];return [0,365180284,f]} + var i=param[2]; + return [0,365180284,i]} + if(-752863768 <= _oq_){var i$0=param[2];return [0,-976970511,i$0]} + var s=param[2]; + return [0,-976970511,s]} + function repr$0(param) + {if(typeof param === "number")return 870828711; + var _op_=param[1]; + if(65 === _op_){var l=param[2];return [0,848054398,l]} + if(365180284 <= _op_) + {if(737456202 <= _op_){var b=param[2];return [0,737456202,b]} + var f=param[2]; + return [0,365180284,f]} + if(79 <= _op_){var l$0=param[2];return [0,963043957,l$0]} + var s=param[2]; + return [0,-976970511,s]} + var repr_uid$1=repr_uid(0),Yojson=[0,view$0,repr$0,repr_uid$1]; + function convert(Repr_f,Repr_t,v) + {var _oj_=Repr_t[3],_ok_=Repr_f[3]; + _oj_[1] = 0; + _ok_[1] = [0,v]; + var _oi_=_oj_[1]; + if(_oi_){var r=_oi_[1];return r} + function conv(v) + {var v$0=caml_call1(Repr_f[1],v); + if(typeof v$0 !== "number") + {var _ol_=v$0[1]; + if(65 === _ol_) {var - b3= - function(d) - {var - b3=caml_bytes_unsafe_get(d[8],2), - n=caml_check_bound(utf_8_len,b3)[1 + b3]; - return 0 === n - ?ret(decode_utf_8,malformed(d[8],2,1),1,d) - :(d[10] - = - n, - d[9] - = - 1, - unsafe_set_byte(d[8],0,b3), - t_fill(t_decode_utf_8,d))}, - b2= - function(d) - {var - b2=caml_bytes_unsafe_get(d[8],1), - b3$0=2 < d[9]?b3:decode_utf_8, - n=caml_check_bound(utf_8_len,b2)[1 + b2]; - if(0 === n)return ret(b3$0,malformed(d[8],1,1),1,d); - if(1 === n)return ret(b3$0,r_utf_8(d[8],1,1),1,d); - d[10] = n; - unsafe_set_byte(d[8],0,b2); - if(3 <= d[9]) - {d[9] = 2; - unsafe_set_byte(d[8],1,caml_bytes_unsafe_get(d[8],2))} + values=v$0[2], + _om_=[0,65,caml_call2(Stdlib_list[17],conv,values)]; + return caml_call1(Repr_t[2],_om_)} + if(79 === _ol_) + {var + values$0=v$0[2], + _on_= + function(param){var v=param[2],k=param[1];return [0,k,conv(v)]}, + _oo_=[0,79,caml_call2(Stdlib_list[17],_on_,values$0)]; + return caml_call1(Repr_t[2],_oo_)}} + return caml_call1(Repr_t[2],v$0)} + return conv(v)} + function pp_string(ppf,s) + {caml_call2(Stdlib_format[123],ppf,_a_); + var _og_=caml_ml_string_length(s) - 1 | 0,_of_=0; + if(! (_og_ < 0)) + {var i=_of_; + for(;;) + {var c=caml_string_get(s,i); + if(34 === c) + caml_call2(Stdlib_format[123],ppf,_c_); + else + if(32 <= c) + if(92 === c) + caml_call2(Stdlib_format[123],ppf,_d_); + else + caml_call3(Stdlib_format[123],ppf,_e_,c); + else + {var switch$0=0; + if(14 <= c) + switch$0 = 1; + else + switch(c) + {case 8:caml_call2(Stdlib_format[123],ppf,_g_);break; + case 9:caml_call2(Stdlib_format[123],ppf,_h_);break; + case 10:caml_call2(Stdlib_format[123],ppf,_i_);break; + case 13:caml_call2(Stdlib_format[123],ppf,_j_);break; + default:switch$0 = 1} + if(switch$0)caml_call3(Stdlib_format[123],ppf,_f_,c)} + var _oh_=i + 1 | 0; + if(_og_ !== i){var i=_oh_;continue} + break}} + return caml_call2(Stdlib_format[123],ppf,_b_)} + function pp(opt,_n8_,Repr,ppf,v) + {if(opt)var sth=opt[1],compact=sth;else var compact=0; + if(_n8_) + var sth$0=_n8_[1],pp_string$0=sth$0; + else + var pp_string$0=pp_string; + function pp_compact(ppf,v) + {var match=caml_call1(Repr[1],v); + if(typeof match === "number") + return caml_call2(Stdlib_format[123],ppf,_k_); + var _oc_=match[1]; + if(65 === _oc_) + {var + l=match[2], + pp_sep= + function(ppf,param){return caml_call2(Stdlib_format[123],ppf,_l_)}, + _od_=caml_call2(Stdlib_format[119],[0,pp_sep],pp_compact); + return caml_call4(Stdlib_format[123],ppf,_m_,_od_,l)} + if(365180284 <= _oc_) + {if(737456202 <= _oc_) + return 0 === match[2] + ?caml_call2(Stdlib_format[123],ppf,_n_) + :caml_call2(Stdlib_format[123],ppf,_o_); + var + f=match[2], + match$0=caml_modf_float(f), + intr=match$0[2], + fract=match$0[1]; + return fract == 0. + ?caml_call3(Stdlib_format[123],ppf,_p_,intr) + :caml_call3(Stdlib_format[123],ppf,_q_,f)} + if(79 <= _oc_) + {var + l$0=match[2], + pp_sep$0= + function(ppf,param){return caml_call2(Stdlib_format[123],ppf,_r_)}, + pp_field= + function(ppf,param) + {var v=param[2],name=param[1]; + return caml_call6 + (Stdlib_format[123],ppf,_s_,pp_string$0,name,pp_compact,v)}, + _oe_=caml_call2(Stdlib_format[119],[0,pp_sep$0],pp_field); + return caml_call4(Stdlib_format[123],ppf,_t_,_oe_,l$0)} + var s=match[2]; + return caml_call2(pp_string$0,ppf,s)} + function pp_box(ppf,v) + {var match=caml_call1(Repr[1],v); + if(typeof match !== "number") + {var _n9_=match[1]; + if(65 === _n9_) + {var _n__=match[2]; + if(_n__) + {var + pp_sep= + function(ppf,param) + {return caml_call2(Stdlib_format[123],ppf,_u_)}, + _n$_=caml_call2(Stdlib_format[119],[0,pp_sep],pp_box); + return caml_call4(Stdlib_format[123],ppf,_v_,_n$_,_n__)} + return caml_call2(Stdlib_format[123],ppf,_w_)} + if(79 === _n9_) + {var _oa_=match[2]; + if(_oa_) + {var + pp_sep$0= + function(ppf,param) + {return caml_call2(Stdlib_format[123],ppf,_x_)}, + pp_field= + function(ppf,param) + {var v=param[2],name=param[1]; + return caml_call6 + (Stdlib_format[123],ppf,_y_,pp_string$0,name,pp_box,v)}, + _ob_=caml_call2(Stdlib_format[119],[0,pp_sep$0],pp_field); + return caml_call4(Stdlib_format[123],ppf,_z_,_ob_,_oa_)} + return caml_call2(Stdlib_format[123],ppf,_A_)}} + return pp_compact(ppf,v)} + return compact?pp_compact(ppf,v):pp_box(ppf,v)} + function from_yojson(non_basic) + {function to_basic(non_basic) + {if(typeof non_basic === "number")return 870828711; + var _n3_=non_basic[1]; + if(708012133 <= _n3_) + {if(726928360 === _n3_) + {var l=non_basic[2]; + return [0,848054398,caml_call2(Stdlib_list[17],to_basic,l)]} + if(848054398 <= _n3_) + {if(963043957 <= _n3_) + {var + l$0=non_basic[2], + _n4_= + function(param) + {var value=param[2],key=param[1]; + return [0,key,to_basic(value)]}; + return [0,963043957,caml_call2(Stdlib_list[17],_n4_,l$0)]} + var l$1=non_basic[2]; + return [0,848054398,caml_call2(Stdlib_list[17],to_basic,l$1)]} + if(737456202 <= _n3_){var b=non_basic[2];return [0,737456202,b]} + var _n5_=non_basic[2],_n6_=_n5_[2],_n7_=_n5_[1]; + if(_n6_) + {var x=_n6_[1]; + return [0,848054398,[0,[0,-976970511,_n7_],[0,to_basic(x),0]]]} + return [0,-976970511,_n7_]} + if(3654863 <= _n3_) + {if(365180284 <= _n3_){var f=non_basic[2];return [0,365180284,f]} + var i=non_basic[2]; + return [0,3654863,i]} + if(-752863768 <= _n3_){var i$0=non_basic[2];return [0,-976970511,i$0]} + var s=non_basic[2]; + return [0,-976970511,s]} + function to_value(param) + {if(typeof param === "number")return 870828711; + var _n1_=param[1]; + if(365180284 <= _n1_) + {if(848054398 <= _n1_) + {if(963043957 <= _n1_) + {var + l=param[2], + _n2_= + function(param) + {var value=param[2],key=param[1]; + return [0,key,to_value(value)]}; + return [0,79,caml_call2(Stdlib_list[17],_n2_,l)]} + var l$0=param[2]; + return [0,65,caml_call2(Stdlib_list[17],to_value,l$0)]} + if(737456202 <= _n1_){var b=param[2];return [0,737456202,b]} + var f=param[2]; + return [0,365180284,f]} + if(3654863 <= _n1_){var i=param[2];return [0,365180284,i]} + var s=param[2]; + return [0,-976970511,s]} + return to_value(to_basic(non_basic))} + function to_yojson(json) + {function aux(param) + {if(typeof param === "number")return 870828711; + var _nZ_=param[1]; + if(65 === _nZ_) + {var values=param[2]; + return [0,848054398,caml_call2(Stdlib_list[17],aux,values)]} + if(365180284 <= _nZ_) + {if(737456202 <= _nZ_){var b=param[2];return [0,737456202,b]} + var + f=param[2], + match=caml_modf_float(f), + intr=match[2], + fract=match[1]; + if(fract == 0.) + {if(-1073741824. <= intr && intr <= 1073741823) + return [0,3654863,intr | 0]; + return [0,-752863768,caml_call2(Stdlib_printf[4],_B_,intr)]} + return [0,365180284,f]} + if(79 <= _nZ_) + {var + values$0=param[2], + _n0_=function(param){var v=param[2],k=param[1];return [0,k,aux(v)]}; + return [0,963043957,caml_call2(Stdlib_list[17],_n0_,values$0)]} + var s=param[2]; + return [0,-976970511,s]} + return aux(json)} + function pp_any(compact,pp_string,param,ppf,_nY_) + {var v=_nY_[2],repr=_nY_[1];return pp(compact,pp_string,repr,ppf,v)} + function any_to_repr(repr_t,param) + {var v=param[2],repr_f=param[1];return convert(repr_f,repr_t,v)} + function repr_to_any(repr,v){return [0,repr,v]} + function from_any(repr){var res=any_to_repr(Ezjsonm,repr);return res} + function to_any(v){return [0,Ezjsonm,v]} + var + Json_repr= + [0, + repr_uid, + convert, + pp, + Ezjsonm, + Yojson, + any_to_repr, + repr_to_any, + pp_any, + from_yojson, + to_yojson, + from_any, + to_any]; + caml_register_global(455,Json_repr,"Json_repr"); + var + Illegal_pointer_notation= + [248,cst_Json_query_Illegal_pointer,caml_fresh_oo_id(0)], + Unsupported_path_item= + [248,cst_Json_query_Unsupported_pat,caml_fresh_oo_id(0)], + Cannot_merge=[248,cst_Json_query_Cannot_merge,caml_fresh_oo_id(0)]; + function print_path_as_json_path(opt,ppf,nonempty) + {if(opt)var sth=opt[1],wildcards=sth;else var wildcards=1; + if(nonempty) + {var + print= + function(ppf,param) + {if(param) + {var _nX_=param[1]; + if(typeof _nX_ === "number") + {if(926224370 <= _nX_) + {var rem=param[2]; + if(wildcards) + return caml_call4(Stdlib_format[123],ppf,_C_,print,rem)} else - d[9] = 1; - return t_fill(t_decode_utf_8,d)}, - b1=caml_bytes_unsafe_get(d[8],0), - b2$0=1 < d[9]?b2:decode_utf_8, - n=caml_check_bound(utf_8_len,b1)[1 + b1]; - if(4 < n >>> 0)throw [0,Assert_failure,_B_]; - switch(n) - {case 0:return ret(b2$0,malformed(d[8],0,1),1,d); - case 1:return ret(b2$0,r_utf_8(d[8],0,1),1,d); - case 2: - return 2 <= d[9] - ?3 <= d[9] - ?ret(b3,r_utf_8(d[8],0,2),2,d) - :ret(decode_utf_8,r_utf_8(d[8],0,2),2,d) - :ret(decode_utf_8,malformed(d[8],0,1),1,d); - case 3: - if(3 <= d[9])return ret(decode_utf_8,r_utf_8(d[8],0,3),3,d); - var _aa_=d[9]; - return ret(decode_utf_8,malformed(d[8],0,d[9]),_aa_,d); - default: - if(3 <= d[9]){d[10] = 4;return t_fill(t_decode_utf_8,d)} - var _ab_=d[9]; - return ret(decode_utf_8,malformed(d[8],0,d[9]),_ab_,d)}} - return ret(decode_utf_8,[0,852405675,u_bom],3,d)} - var r$1=match[2]; - d[2] = -211558048; - d[18] = decode_utf_16be; - return guessed_utf_16(d,1,r$1)} - t_need(d,3); - return t_fill(setup,d)} - function nline(d){d[14] = 0;d[13] = d[13] + 1 | 0;return 0} - function ncol(d){d[14] = d[14] + 1 | 0;return 0} - function ncount(d){d[16] = d[16] + 1 | 0;return 0} - function cr(d,b){d[12] = b;return 0} - function pp(d,v) - {if(852405675 <= v[1]) - {var u=v[2],match=caml_call1(Stdlib_uchar[10],u),_$_=match - 133 | 0; - if(8100 < _$_ >>> 0) - {var switcher=_$_ + 123 | 0; - if(3 < switcher >>> 0) - var switch$0=0; + {var rem$0=param[2]; + if(wildcards) + return caml_call4(Stdlib_format[123],ppf,_D_,print,rem$0)} + throw [0, + Unsupported_path_item, + 926224370, + cst_JSON_path_w_o_wildcards]} + if(331416730 <= _nX_[1]) + {var rem$1=param[2],n=_nX_[2]; + return caml_call5(Stdlib_format[123],ppf,_E_,n,print,rem$1)} + var rem$2=param[2],n$0=_nX_[2]; + return caml_call5(Stdlib_format[123],ppf,_F_,n$0,print,rem$2)} + return 0}; + return print(ppf,nonempty)} + return caml_call2(Stdlib_format[123],ppf,_G_)} + function print_path_as_json_pointer(opt,ppf,nonempty) + {if(opt)var sth=opt[1],wildcards=sth;else var wildcards=1; + if(nonempty) + {var + print= + function(ppf,param) + {if(param) + {var _nW_=param[1]; + if(typeof _nW_ === "number") + {if(926224370 <= _nW_) + throw [0,Unsupported_path_item,926224370,cst_JSON_pointer]; + var rem=param[2]; + if(wildcards) + return caml_call4(Stdlib_format[123],ppf,_H_,print,rem); + throw [0, + Unsupported_path_item, + 926224370, + cst_JSON_pointer_w_o_wildcards]} + if(331416730 <= _nW_[1]) + {var rem$0=param[2],n=_nW_[2]; + return caml_call5(Stdlib_format[123],ppf,_I_,n,print,rem$0)} + var rem$1=param[2],n$0=_nW_[2]; + return caml_call5(Stdlib_format[123],ppf,_J_,n$0,print,rem$1)} + return 0}; + return print(ppf,nonempty)} + return caml_call2(Stdlib_format[123],ppf,_K_)} + function json_pointer_of_path(wildcards,path) + {function _nT_(_nU_,_nV_) + {return print_path_as_json_pointer(wildcards,_nU_,_nV_)} + return caml_call3(Stdlib_format[127],_L_,_nT_,path)} + function path_of_json_pointer(opt,str) + {if(opt)var sth=opt[1],wildcards=sth;else var wildcards=1; + var buf=caml_call1(Stdlib_buffer[1],100),len=caml_ml_string_length(str); + function interp(param) + {var field=caml_call1(Stdlib_buffer[2],buf); + caml_call1(Stdlib_buffer[8],buf); + if(caml_string_equal(field,cst)) + {if(wildcards)return 870035731; + throw [0, + Unsupported_path_item, + 870035731, + cst_JSON_pointer_w_o_wildcards$0]} + try + {var _nR_=[0,-784200974,runtime.caml_int_of_string(field)]; + return _nR_} + catch(_nS_){return [0,331416730,field]}} + if(0 === len)return 0; + if(47 === caml_string_get(str,0)) + {var acc=0,i=1; + a: + for(;;) + {if(len <= i)return caml_call1(Stdlib_list[9],acc); + if(47 === caml_string_get(str,i)){var i$0=i + 1 | 0,i=i$0;continue} + var i$1=i; + for(;;) + {if(len <= i$1) + {var _nQ_=[0,interp(0),acc]; + return caml_call1(Stdlib_list[9],_nQ_)} + var unescaped=caml_string_get(str,i$1); + if(47 === unescaped) + {var acc$0=[0,interp(0),acc],acc=acc$0,i=i$1;continue a} + if(126 === unescaped) + {if(len <= (i$1 + 1 | 0)) + throw [0, + Illegal_pointer_notation, + str, + i$1, + cst_Unterminated_escape_sequen]; + var illegal=caml_string_get(str,i$1); + if(48 === illegal) + caml_call2(Stdlib_buffer[10],buf,126); + else + {if(49 !== illegal) + throw [0, + Illegal_pointer_notation, + str, + i$1 + 1 | 0, + cst_Illegal_escape_character]; + caml_call2(Stdlib_buffer[10],buf,47)} + var i$2=i$1 + 1 | 0,i$1=i$2; + continue} + caml_call2(Stdlib_buffer[10],buf,unescaped); + var i$3=i$1 + 1 | 0,i$1=i$3; + continue}}} + throw [0,Illegal_pointer_notation,str,0,cst_Missing_initial_slash]} + function Make(Repr) + {function query(path,json) + {var path$0=path,json$0=json; + for(;;) + {var match=caml_call1(Repr[1],json$0); + if(path$0) + {var _nF_=path$0[1]; + if(typeof _nF_ === "number") + {if(926224370 === _nF_ && typeof match !== "number") + {var _nG_=match[1],_nH_=path$0[2]; + if(65 === _nG_) + {var _nI_=match[2]; + if(_nI_) + {var rem=_nI_[2],v=_nI_[1]; + try + {var _nJ_=query(_nH_,v);return _nJ_} + catch(_nO_) + {_nO_ = caml_wrap_exception(_nO_); + if(_nO_ === Stdlib[8]) + {var json$1=caml_call1(Repr[2],[0,65,rem]),json$0=json$1; + continue} + throw _nO_}}} + else + if(79 === _nG_) + {var _nK_=match[2]; + if(_nK_) + {var rem$0=_nK_[2],match$0=_nK_[1],v$0=match$0[2]; + try + {var _nL_=query(_nH_,v$0);return _nL_} + catch(_nP_) + {_nP_ = caml_wrap_exception(_nP_); + if(_nP_ === Stdlib[8]) + {var json$2=caml_call1(Repr[2],[0,79,rem$0]),json$0=json$2; + continue} + throw _nP_}}}}} + else + {var _nM_=_nF_[1]; + if(-784200974 === _nM_) + {if(typeof match !== "number" && 65 === match[1]) + {var + cells=match[2], + rempath=path$0[2], + i=_nF_[2], + i$0=0 <= i?i:caml_call1(Stdlib_list[1],cells) - i | 0, + json$3=caml_call2(Stdlib_list[7],cells,i$0), + path$0=rempath, + json$0=json$3; + continue}} + else + if + (331416730 + === + _nM_ + && + typeof match + !== + "number" + && + 79 + === + match[1]) + {var _nN_=match[2]; + if(_nN_) + {var + rem$1=_nN_[2], + match$1=_nN_[1], + v$1=match$1[2], + n=match$1[1], + rempath$0=path$0[2], + n$0=_nF_[2]; + if(caml_string_equal(n$0,n)) + {var path$0=rempath$0,json$0=v$1;continue} + var json$4=caml_call1(Repr[2],[0,79,rem$1]),json$0=json$4; + continue}}} + throw Stdlib[8]} + return json$0}} + function query_all(path,json) + {var res=[0,0]; + function query(path,json) + {var path$0=path,json$0=json; + for(;;) + {var match=caml_call1(Repr[1],json$0); + if(path$0) + {var _nx_=path$0[1]; + if(typeof _nx_ === "number") + {if(926224370 === _nx_ && typeof match !== "number") + {var _ny_=match[1],_nz_=path$0[2]; + if(65 === _ny_) + {var + cells=match[2], + _nA_=function(_nE_){return query(_nz_,_nE_)}; + return caml_call2(Stdlib_list[15],_nA_,cells)} + if(79 === _ny_) + {var + fields=match[2], + _nB_=function(param){var v=param[2];return query(_nz_,v)}; + return caml_call2(Stdlib_list[15],_nB_,fields)}}} + else + {var _nC_=_nx_[1]; + if(-784200974 === _nC_) + {if(typeof match !== "number" && 65 === match[1]) + {var + cells$0=match[2], + rempath=path$0[2], + i=_nx_[2], + i$0=0 <= i?i:caml_call1(Stdlib_list[1],cells$0) - i | 0, + json$1=caml_call2(Stdlib_list[7],cells$0,i$0), + path$0=rempath, + json$0=json$1; + continue}} + else + if + (331416730 + === + _nC_ + && + typeof match + !== + "number" + && + 79 + === + match[1]) + {var _nD_=match[2]; + if(_nD_) + {var + rem=_nD_[2], + match$0=_nD_[1], + v=match$0[2], + n=match$0[1], + rempath$0=path$0[2], + n$0=_nx_[2]; + if(caml_string_equal(n$0,n)) + {var path$0=rempath$0,json$0=v;continue} + var json$2=caml_call1(Repr[2],[0,79,rem]),json$0=json$2; + continue}}} + return 0} + res[1] = [0,json$0,res[1]]; + return 0}} + query(path,json); + return res[1]} + function _mS_(param,_nw_) + {var r=_nw_[1],l=param[1];return caml_string_compare(l,r)} + var sort_fields=caml_call1(Stdlib_list[49],_mS_); + function equals(l,r) + {function canon(v) + {var match=caml_call1(Repr[1],v); + if(typeof match !== "number") + {var _ns_=match[1]; + if(65 === _ns_) + {var l=match[2],_nt_=[0,65,caml_call2(Stdlib_list[17],canon,l)]; + return caml_call1(Repr[2],_nt_)} + if(79 === _ns_) + {var + l$0=match[2], + _nu_= + function(param) + {var o=param[2],n=param[1];return [0,n,canon(o)]}, + _nv_= + [0, + 79, + caml_call1(sort_fields,caml_call2(Stdlib_list[17],_nu_,l$0))]; + return caml_call1(Repr[2],_nv_)}} + return v} + var _nr_=canon(r); + return caml_equal(canon(l),_nr_)} + function merge(l,r) + {function merge(path,l,r) + {var + match=caml_call1(Repr[1],l), + match$0=caml_call1(Repr[1],r), + switch$0=0; + if(typeof match === "number") + {if(870828711 === match){var v=match$0;switch$0 = 1}} else - switch(switcher) - {case 0: - var last_cr=d[12]; - cr(d,0); - ncount(d); - return last_cr?v:(nline(d),v); - case 1:var switch$0=0;break; - case 2:var switch$0=1;break; - default:cr(d,1);ncount(d);nline(d);return v}} - else - var switch$0=8097 < (_$_ - 1 | 0) >>> 0?1:0; - return switch$0 - ?(cr(d,0),ncount(d),nline(d),v) - :(cr(d,0),ncount(d),ncol(d),v)} - cr(d,0); - ncount(d); - ncol(d); - return v} - function pp_nln_readline(d,v) - {if(852405675 <= v[1]) - {var u=v[2],match=caml_call1(Stdlib_uchar[10],u),___=match - 133 | 0; - if(8100 < ___ >>> 0) - {var switcher=___ + 123 | 0; - if(3 < switcher >>> 0) - var switch$0=0; + {var _nn_=match[1]; + if(65 === _nn_) + {if(typeof match$0 !== "number" && 65 === match$0[1]) + {var r$0=match$0[2],l$0=match[2],i=0,acc=0,l$2=l$0,r$2=r$0; + for(;;) + {if(l$2) + {if(r$2) + {var + rs=r$2[2], + r$3=r$2[1], + ls=l$2[2], + l$3=l$2[1], + item=merge([0,[0,-784200974,i],path],l$3,r$3), + acc$0=[0,item,acc], + i$0=i + 1 | 0, + i=i$0, + acc=acc$0, + l$2=ls, + r$2=rs; + continue} + var rem=l$2} + else + var rem=r$2; + var _no_=[0,65,caml_call2(Stdlib_list[12],acc,rem)]; + return caml_call1(Repr[2],_no_)}}} + else + if + (79 + === + _nn_ + && + typeof match$0 + !== + "number" + && + 79 + === + match$0[1]) + {var + r$1=match$0[2], + l$1=match[2], + last=caml_call1(sort_fields,caml_call2(Stdlib[37],l$1,r$1)), + last$0=last; + for(;;) + {if(last$0) + {var _np_=last$0[2]; + if(_np_) + {var + rem$0=_np_[2], + _nq_=_np_[1], + rv=_nq_[2], + rf=_nq_[1], + match$1=last$0[1], + lv=match$1[2], + lf=match$1[1]; + if(caml_string_equal(lf,rf)) + {merge([0,[0,331416730,lf],path],lv,rv); + var last$0=rem$0; + continue} + var last$0=_np_; + continue}} + return caml_call1(Repr[2],[0,79,last$0])}}} + if(! switch$0) + {if(870828711 !== match$0) + {if(equals(l,r))return l; + throw [0,Cannot_merge,caml_call1(Stdlib_list[9],path)]} + var v=match} + return caml_call1(Repr[2],v)} + return merge(0,l,r)} + function _mT_(opt,path,value,root) + {if(opt)var sth=opt[1],merge$0=sth;else var merge$0=merge; + function revpath(sub) + {var acc=0,l=path; + for(;;) + {if(l === sub)return caml_call1(Stdlib_list[9],acc); + if(l) + {var l$0=l[2],item=l[1],acc$0=[0,item,acc],acc=acc$0,l=l$0; + continue} + throw [0,Assert_failure,_M_]}} + function merge$1(path,l,r) + {try + {var _nm_=caml_call2(merge$0,l,r);return _nm_} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn[1] === Cannot_merge) + {var sub=exn[2],_nl_=revpath(path); + throw [0,Cannot_merge,caml_call2(Stdlib[37],_nl_,sub)]} + throw exn}} + function nulls(acc,n,last) + {var acc$0=acc,n$0=n; + for(;;) + {if(0 < n$0) + {var + n$1=n$0 - 1 | 0, + acc$1=[0,caml_call1(Repr[2],870828711),acc$0], + acc$0=acc$1, + n$0=n$1; + continue} + return caml_call1(Stdlib_list[9],[0,last,acc$0])}} + function insert(root,path) + {if(root) + var repr=root[1],root$0=[0,caml_call1(Repr[1],repr)]; else - switch(switcher) - {case 0: - var last_cr=d[12]; - cr(d,0); - return last_cr - ?caml_call1(d[18],d) - :(ncount(d),nline(d),[0,852405675,d[4]]); - case 1:var switch$0=0;break; - case 2:var switch$0=1;break; - default:cr(d,1);ncount(d);nline(d);return [0,852405675,d[4]]}} - else - var switch$0=8097 < (___ - 1 | 0) >>> 0?1:0; - return switch$0 - ?(cr(d,0),ncount(d),nline(d),[0,852405675,d[4]]) - :(cr(d,0),ncount(d),ncol(d),v)} - cr(d,0); - ncount(d); - ncol(d); - return v} - function pp_nln_nlf(d,v) - {if(852405675 <= v[1]) - {var u=v[2],match=caml_call1(Stdlib_uchar[10],u); - if(14 <= match) - if(8232 <= match) - var switch$0=8234 <= match?0:1; - else - {if(133 === match) - {cr(d,0);ncount(d);nline(d);return [0,852405675,d[4]]} - var switch$0=0} - else - if(10 <= match) - {var switcher=match - 10 | 0; - switch(switcher) - {case 0: - var last_cr=d[12]; - cr(d,0); - return last_cr - ?caml_call1(d[18],d) - :(ncount(d),nline(d),[0,852405675,d[4]]); - case 1:var switch$0=0;break; - case 2:var switch$0=1;break; - default:cr(d,1);ncount(d);nline(d);return [0,852405675,d[4]]}} - else - var switch$0=0; - return switch$0 - ?(cr(d,0),ncount(d),nline(d),v) - :(cr(d,0),ncount(d),ncol(d),v)} - cr(d,0); - ncount(d); - ncol(d); - return v} - function pp_nln_ascii(d,v) - {if(852405675 <= v[1]) - {var u=v[2],match=caml_call1(Stdlib_uchar[10],u),_Z_=match - 133 | 0; - if(8100 < _Z_ >>> 0) - {var switcher=_Z_ + 123 | 0; - if(3 < switcher >>> 0) - var switch$0=0; + var root$0=0; + if(path) + {var _mU_=path[1],switch$0=0; + if(typeof _mU_ === "number") + if(926224370 <= _mU_) + {var _mV_=path[2]; + if(root$0) + {var _mW_=root$0[1]; + if(typeof _mW_ !== "number") + {var _mY_=_mW_[1]; + if(65 === _mY_) + {var + cells=_mW_[2], + _mZ_=function(root){return insert([0,root],_mV_)}, + _m0_=[0,65,caml_call2(Stdlib_list[17],_mZ_,cells)]; + return caml_call1(Repr[2],_m0_)} + if(79 === _mY_) + {var + fields=_mW_[2], + _m1_= + function(param) + {var root=param[2],n=param[1]; + return [0,n,insert([0,root],_mV_)]}, + _m2_=[0,79,caml_call2(Stdlib_list[17],_m1_,fields)]; + return caml_call1(Repr[2],_m2_)}} + if(! _mV_) + {var root$1=root$0[1]; + return merge$1(path,value,caml_call1(Repr[2],root$1))}}} + else + {var _m3_=path[2]; + if(root$0) + {var _m4_=root$0[1]; + if(typeof _m4_ !== "number" && 65 === _m4_[1]) + {var + cells$0=_m4_[2], + _m5_=[0,insert(0,_m3_),0], + _m6_=caml_call1(Stdlib_list[9],cells$0), + _m7_=[0,65,caml_call2(Stdlib_list[12],_m6_,_m5_)]; + return caml_call1(Repr[2],_m7_)}}} + else + if(331416730 <= _mU_[1]) + {var _m8_=path[2],_m9_=_mU_[2]; + if(! root$0) + {var _na_=[0,79,[0,[0,_m9_,insert(0,_m8_)],0]]; + return caml_call1(Repr[2],_na_)} + var _m__=root$0[1]; + if(typeof _m__ === "number") + switch$0 = 1; + else + {if(79 === _m__[1]) + {var fields$0=_m__[2],acc=0,fields$1=fields$0; + for(;;) + {if(fields$1) + {var + rem=fields$1[2], + other=fields$1[1], + root$2=other[2], + n=other[1]; + if(! caml_string_equal(_m9_,n)) + {var acc$0=[0,other,acc],acc=acc$0,fields$1=rem;continue} + var + _ng_=[0,[0,_m9_,insert([0,root$2],_m8_)],acc], + _m$_=caml_call2(Stdlib_list[12],_ng_,rem)} + else + var + _nh_=[0,[0,_m9_,insert(0,_m8_)],acc], + _m$_=caml_call1(Stdlib_list[9],_nh_); + return caml_call1(Repr[2],[0,79,_m$_])}} + switch$0 = 1}} + else + {var _nb_=_mU_[2]; + if(root$0) + {var _nc_=root$0[1]; + if(typeof _nc_ !== "number" && 65 === _nc_[1]) + {var + cells$1=_nc_[2], + rempath$1=path[2], + i= + 0 <= _nb_?_nb_:caml_call1(Stdlib_list[1],cells$1) - _nb_ | 0; + if(i < 0)throw [0,Cannot_merge,revpath(path)]; + var acc$1=0,n$0=i,cells$2=cells$1; + for(;;) + {if(cells$2) + {var _ni_=cells$2[2],_nj_=cells$2[1]; + if(0 !== n$0) + {var + n$1=n$0 - 1 | 0, + acc$2=[0,_nj_,acc$1], + acc$1=acc$2, + n$0=n$1, + cells$2=_ni_; + continue} + var + _nk_=[0,insert([0,_nj_],rempath$1),acc$1], + _nf_=caml_call2(Stdlib_list[12],_nk_,_ni_)} + else + var _nf_=nulls(acc$1,n$0,insert(0,rempath$1)); + return caml_call1(Repr[2],[0,65,_nf_])}}} + if(0 !== _nb_) + {if(! root$0) + {var rempath$0=path[2]; + if(_nb_ < 0)throw [0,Cannot_merge,revpath(path)]; + var + _nd_=insert(0,rempath$0), + _ne_= + [0,65,nulls(0,caml_call2(Stdlib[17],0,_nb_ - 1 | 0),_nd_)]; + return caml_call1(Repr[2],_ne_)} + switch$0 = 1}} + if(! switch$0 && ! root$0) + {var rempath=path[2],_mX_=[0,65,[0,insert(0,rempath),0]]; + return caml_call1(Repr[2],_mX_)} + throw [0,Cannot_merge,revpath(path)]} + if(root$0) + {var value$0=root$0[1]; + return merge$1(path,value,caml_call1(Repr[2],value$0))} + return value} + return insert([0,root],path)} + function replace(path,value,root) + {return _mT_([0,function(value,prev){return value}],path,value,root)} + function insert(path,value,root){return _mT_(0,path,value,root)} + return [0,query,query_all,sort_fields,equals,merge,replace,insert]} + function print_error(print_unknown,ppf,exn) + {if(exn[1] === Illegal_pointer_notation) + {var msg=exn[4],pos=exn[3],notation=exn[2]; + return caml_call5(Stdlib_format[123],ppf,_N_,pos,notation,msg)} + if(exn[1] === Unsupported_path_item) + {var + msg$0=exn[3], + item=exn[2], + _mM_= + typeof item === "number" + ?926224370 <= item?cst_wildcard:cst_array_append + :331416730 <= item[1]?cst_field_access:cst_array_access; + return caml_call4(Stdlib_format[123],ppf,_O_,_mM_,msg$0)} + if(exn[1] === Cannot_merge) + {var _mN_=exn[2]; + if(_mN_) + {var + _mO_= + function(_mQ_,_mR_){return print_path_as_json_path(_P_,_mQ_,_mR_)}; + return caml_call4(Stdlib_format[123],ppf,_Q_,_mO_,_mN_)} + return caml_call2(Stdlib_format[123],ppf,_R_)} + if(print_unknown) + {var print_unknown$0=print_unknown[1]; + return caml_call2(print_unknown$0,ppf,exn)} + var _mP_=caml_call1(Stdlib_printexc[1],exn); + return caml_call3(Stdlib_format[123],ppf,_S_,_mP_)} + var + include=Make(Ezjsonm), + query=include[1], + query_all=include[2], + merge=include[5], + replace=include[6], + insert=include[7]; + function _T_(_mK_) + {var _mL_=Make(_mK_);return [0,_mL_[1],_mL_[2],_mL_[7],_mL_[6],_mL_[5]]} + var + Json_query= + [0, + print_path_as_json_pointer, + print_path_as_json_path, + json_pointer_of_path, + path_of_json_pointer, + query, + query_all, + insert, + replace, + merge, + Cannot_merge, + Illegal_pointer_notation, + Unsupported_path_item, + print_error, + _T_]; + caml_register_global(460,Json_query,"Json_query"); + function element(kind){return [0,0,0,0,0,kind,0,0]} + function option_map(f,param) + {if(param){var v=param[1];return [0,caml_call1(f,v)]}return 0} + function eq_element(a,b) + {var _lx_=a === b?1:0; + if(_lx_) + var _ly_=_lx_; + else + {var _lz_=caml_equal(a[1],b[1]); + if(_lz_) + {var _lA_=caml_equal(a[2],b[2]); + if(_lA_) + {var + _lB_=option_map(from_any,b[3]), + _lC_=caml_equal(option_map(from_any,a[3]),_lB_); + if(_lC_) + {var + _lD_=b[4], + _lE_=option_map(caml_call1(Stdlib_list[17],from_any),_lD_), + _lF_=a[4], + _lG_= + caml_equal + (option_map(caml_call1(Stdlib_list[17],from_any),_lF_),_lE_); + if(_lG_) + {var _lH_=b[5],_lI_=a[5],switch$0=0; + if(typeof _lI_ === "number") + switch(_lI_) + {case 0: + if(typeof _lH_ === "number" && 0 === _lH_) + {var _lJ_=1;switch$0 = 1} + break; + case 1: + if(typeof _lH_ === "number" && 1 === _lH_) + {var _lJ_=1;switch$0 = 1} + break; + case 2: + if(typeof _lH_ === "number" && 2 === _lH_) + {var _lJ_=1;switch$0 = 1} + break; + default: + if(typeof _lH_ === "number" && 3 <= _lH_) + {var _lJ_=1;switch$0 = 1}} + else + switch(_lI_[0]) + {case 0: + if(typeof _lH_ !== "number" && 0 === _lH_[0]) + {var + ab=_lH_[1], + aa=_lI_[1], + _lV_=aa[4] === ab[4]?1:0, + switch$1=0; + if(_lV_) + {var _lW_=caml_equal(aa[5],ab[5]); + if(_lW_) + {var + _lX_=caml_call2(Stdlib_list[49],caml_compare,ab[7]), + _lY_= + caml_equal + (caml_call2(Stdlib_list[49],caml_compare,aa[7]),_lX_); + if(_lY_) + {var _lZ_=aa[3],_l0_=ab[3],switch$2=0; + if(_lZ_) + if(_l0_) + var b$0=_l0_[1],a$0=_lZ_[1],_l1_=eq_element(a$0,b$0); + else + switch$2 = 1; + else + if(_l0_)switch$2 = 1;else var _l1_=1; + if(switch$2)var _l1_=0; + if(_l1_) + {var + _l2_=caml_call1(Stdlib_list[1],ab[2]), + _l3_=caml_call1(Stdlib_list[1],aa[2]) === _l2_?1:0; + if(_l3_) + {var + _l4_=ab[2], + _l5_= + function(param,_mJ_) + {var y=_mJ_[1],x=param[1];return caml_string_compare(x,y)}, + _l6_=caml_call2(Stdlib_list[49],_l5_,_l4_), + _l7_=aa[2], + _l8_= + function(param,_mI_) + {var y=_mI_[1],x=param[1];return caml_string_compare(x,y)}, + _l9_=caml_call2(Stdlib_list[49],_l8_,_l7_), + _l__= + function(param,_mG_) + {var + eb=_mG_[2], + nb=_mG_[1], + ea=param[2], + na=param[1], + _mH_=caml_string_equal(na,nb); + return _mH_?eq_element(ea,eb):_mH_}, + _l$_=caml_call3(Stdlib_list[30],_l__,_l9_,_l6_); + if(_l$_) + {var + _ma_=caml_call1(Stdlib_list[1],ab[6]), + _mb_=caml_call1(Stdlib_list[1],aa[6]) === _ma_?1:0; + if(_mb_) + {var + _mc_=ab[6], + _md_= + function(param,_mF_) + {var y=_mF_[1],x=param[1];return caml_string_compare(x,y)}, + _me_=caml_call2(Stdlib_list[49],_md_,_mc_), + _mf_=aa[6], + _mg_= + function(param,_mE_) + {var y=_mE_[1],x=param[1];return caml_string_compare(x,y)}, + _mh_=caml_call2(Stdlib_list[49],_mg_,_mf_), + _mi_= + function(param,_mC_) + {var + eb=_mC_[2], + nb=_mC_[1], + ea=param[2], + na=param[1], + _mD_=caml_string_equal(na,nb); + return _mD_?eq_element(ea,eb):_mD_}, + _mj_=caml_call3(Stdlib_list[30],_mi_,_mh_,_me_); + if(_mj_) + {var + _mk_=caml_call1(Stdlib_list[1],ab[1]), + _ml_=caml_call1(Stdlib_list[1],aa[1]) === _mk_?1:0; + if(_ml_) + {var + _mm_=ab[1], + _mn_= + function(param,_mB_) + {var y=_mB_[1],x=param[1];return caml_string_compare(x,y)}, + _mo_=caml_call2(Stdlib_list[49],_mn_,_mm_), + _mp_=aa[1], + _mq_= + function(param,_mA_) + {var y=_mA_[1],x=param[1];return caml_string_compare(x,y)}, + _mr_=caml_call2(Stdlib_list[49],_mq_,_mp_), + _ms_= + function(param,_mu_) + {var + db=_mu_[4], + rb=_mu_[3], + eb=_mu_[2], + nb=_mu_[1], + da=param[4], + ra=param[3], + ea=param[2], + na=param[1], + _mv_=caml_string_equal(na,nb); + if(_mv_) + {var _mw_=eq_element(ea,eb); + if(_mw_) + {var _mx_=ra === rb?1:0; + if(_mx_) + var + _my_=option_map(from_any,db), + _mz_=caml_equal(option_map(from_any,da),_my_); + else + var _mz_=_mx_} + else + var _mz_=_mw_} + else + var _mz_=_mv_; + return _mz_}, + _lL_=caml_call3(Stdlib_list[30],_ms_,_mr_,_mo_); + switch$1 = 1} + else + var _mt_=_ml_} + else + var _mt_=_mj_} + else + var _mt_=_mb_} + else + var _mt_=_l$_} + else + var _mt_=_l3_} + else + var _mt_=_l1_} + else + var _mt_=_lY_} + else + var _mt_=_lW_} + else + var _mt_=_lV_; + if(! switch$1)var _lL_=_mt_; + var _lJ_=_lL_; + switch$0 = 1} + break; + case 1: + if(typeof _lH_ !== "number" && 1 === _lH_[0]) + {var + sb=_lH_[2], + esb=_lH_[1], + sa=_lI_[2], + esa=_lI_[1], + _lM_=caml_call1(Stdlib_list[1],esb), + _lN_=caml_call1(Stdlib_list[1],esa) === _lM_?1:0, + switch$3=0; + if(_lN_) + {var _lO_=caml_call3(Stdlib_list[30],eq_element,esa,esb); + if(_lO_) + {var _lJ_=eq_array_specs(sa,sb);switch$0 = 1;switch$3 = 1} + else + var _lP_=_lO_} + else + var _lP_=_lN_; + if(! switch$3){var _lJ_=_lP_;switch$0 = 1}} + break; + case 2: + if(typeof _lH_ !== "number" && 2 === _lH_[0]) + {var + sb$0=_lH_[2], + eb=_lH_[1], + sa$0=_lI_[2], + ea=_lI_[1], + _lQ_=eq_element(ea,eb); + if(_lQ_) + {var _lJ_=eq_array_specs(sa$0,sb$0);switch$0 = 1} + else + {var _lJ_=_lQ_;switch$0 = 1}} + break; + case 3: + if(typeof _lH_ !== "number" && 3 === _lH_[0]) + {var + esb$0=_lH_[2], + cb=_lH_[1], + esa$0=_lI_[2], + ca=_lI_[1], + _lR_=ca === cb?1:0, + switch$4=0; + if(_lR_) + {var + _lS_=caml_call1(Stdlib_list[1],esb$0), + _lT_=caml_call1(Stdlib_list[1],esa$0) === _lS_?1:0; + if(_lT_) + {var + _lJ_= + caml_call3(Stdlib_list[30],eq_element,esa$0,esb$0); + switch$0 = 1; + switch$4 = 1} + else + var _lU_=_lT_} + else + var _lU_=_lR_; + if(! switch$4){var _lJ_=_lU_;switch$0 = 1}} + break; + case 4: + if(typeof _lH_ !== "number" && 4 === _lH_[0]) + {var pb=_lH_[1],pa=_lI_[1],_lJ_=caml_equal(pa,pb); + switch$0 = 1} + break; + case 5: + if(typeof _lH_ !== "number" && 5 === _lH_[0]) + {var rb=_lH_[1],ra=_lI_[1],_lJ_=caml_string_equal(ra,rb); + switch$0 = 1} + break; + case 6: + if(typeof _lH_ !== "number" && 6 === _lH_[0]) + {var rb$0=_lH_[1],ra$0=_lI_[1],_lJ_=caml_equal(ra$0,rb$0); + switch$0 = 1} + break; + case 7: + if(typeof _lH_ !== "number" && 7 === _lH_[0]) + {var sb$1=_lH_[1],sa$1=_lI_[1],_lJ_=caml_equal(sa$1,sb$1); + switch$0 = 1} + break; + case 8: + if(typeof _lH_ !== "number" && 8 === _lH_[0]) + {var nb=_lH_[1],na=_lI_[1],_lJ_=caml_equal(na,nb); + switch$0 = 1} + break; + default: + if(typeof _lH_ !== "number" && 9 === _lH_[0]) + {var nb$0=_lH_[1],na$0=_lI_[1],_lJ_=caml_equal(na$0,nb$0); + switch$0 = 1}} + if(! switch$0)var _lJ_=0; + if(_lJ_) + var + _lK_=caml_equal(a[6],b[6]), + _ly_=_lK_?caml_equal(a[7],b[7]):_lK_; + else + var _ly_=_lJ_} + else + var _ly_=_lG_} + else + var _ly_=_lC_} else - switch(switcher) - {case 0: - var last_cr=d[12]; - cr(d,0); - return last_cr - ?caml_call1(d[18],d) - :(ncount(d),nline(d),[0,852405675,d[4]]); - case 1:var switch$0=0;break; - case 2:var switch$0=1;break; - default:cr(d,1);ncount(d);nline(d);return [0,852405675,d[4]]}} + var _ly_=_lA_} else - var switch$0=8097 < (_Z_ - 1 | 0) >>> 0?1:0; - return switch$0 - ?(cr(d,0),ncount(d),nline(d),v) - :(cr(d,0),ncount(d),ncol(d),v)} - cr(d,0); - ncount(d); - ncol(d); - return v} - function decode_fun(param) - {return 143365725 <= param - ?423112016 <= param - ?684370880 <= param?decode_utf_8:decode_us_ascii - :338302576 <= param?decode_iso_8859_1:decode_utf_16be - :-211555818 <= param?decode_utf_16:decode_utf_16be} - function decoder(nln,encoding,src) - {if(nln) - {var _X_=nln[1],_Y_=_X_[1]; - if(3895880 === _Y_) - var nl=_X_[2],pp$0=pp_nln_nlf,nl$0=nl; + var _ly_=_lz_} + return _ly_} + function eq_array_specs(a,b) + {var _lr_=a[1] === b[1]?1:0; + if(_lr_) + {var _ls_=caml_equal(a[2],b[2]); + if(_ls_) + {var _lt_=a[3] === b[3]?1:0; + if(_lt_) + {var _lu_=a[4],_lv_=b[4]; + if(_lu_) + {if(_lv_){var b$0=_lv_[1],a$0=_lu_[1];return eq_element(a$0,b$0)}} + else + if(! _lv_)return 1; + var _lw_=0} + else + var _lw_=_lt_} else - if(605782321 <= _Y_) - var nl$1=_X_[2],pp$0=pp_nln_ascii,nl$0=nl$1; - else - var nl$2=_X_[2],pp$0=pp_nln_readline,nl$0=nl$2} - else - var nl$3=caml_call1(Stdlib_uchar[9],10),pp$0=pp,nl$0=nl$3; - if(encoding) - var e=encoding[1],encoding$0=e,k$0=decode_fun(e); + var _lw_=_ls_} else - var encoding$0=684370880,k$0=k; - if(typeof src === "number") - var i=Stdlib_bytes[3],i_pos=1,i_max=0; + var _lw_=_lr_; + return _lw_} + function pp_string$0(ppf,s){return pp(0,0,Ezjsonm,ppf,[0,-976970511,s])} + function pp_num(ppf,m) + {if(Math.abs(m) < 1000.)return caml_call3(Stdlib_format[123],ppf,_U_,m); + if(m < 0.)var pos=0,m$0=- m;else var pos=1,m$0=m; + var _li_=0; + function _lj_(acc,d) + {if(acc)return acc; + var v=Math.log(m$0 + d) / 0.693147180559945286; + if(Math.abs(Math.ceil(v) - v) < 1e-05) + {var _lk_=pos?cst$0:cst$1; + caml_call4(Stdlib_format[123],ppf,_W_,_lk_,v); + var _ll_=pos?d < 0.?1:0:pos; + if(_ll_) + var _lm_=_ll_; + else + var _lq_=1 - pos,_lm_=_lq_?0. < d?1:0:_lq_; + if(_lm_)caml_call3(Stdlib_format[123],ppf,_X_,Math.abs(d)); + var _ln_=pos?0. < d?1:0:pos; + if(_ln_) + var _lo_=_ln_; + else + var _lp_=1 - pos,_lo_=_lp_?d < 0.?1:0:_lp_; + if(_lo_)caml_call3(Stdlib_format[123],ppf,_Y_,Math.abs(d)); + return 1} + return 0} + return caml_call3(Stdlib_list[21],_lj_,_li_,_V_) + ?0 + :caml_call3(Stdlib_format[123],ppf,_Z_,m$0)} + function pp_numeric_specs(ppf,param) + {var + maximum=param[3], + minimum=param[2], + multiple_of=param[1], + _k8_=[0,minimum,maximum]; + function _k9_(ppf,param) + {var _lb_=param[1]; + if(! _lb_ && ! param[2])return 0; + var maximum=param[2]; + function _lc_(ppf,param) + {if(param) + {var _lg_=param[1],_lh_=_lg_[1]; + return 672226188 <= _lg_[2] + ?caml_call4(Stdlib_format[123],ppf,___,pp_num,_lh_) + :caml_call4(Stdlib_format[123],ppf,_$_,pp_num,_lh_)} + return caml_call2(Stdlib_format[123],ppf,_aa_)} + function _ld_(ppf,param) + {if(param) + {var _le_=param[1],_lf_=_le_[1]; + return 672226188 <= _le_[2] + ?caml_call4(Stdlib_format[123],ppf,_ab_,pp_num,_lf_) + :caml_call4(Stdlib_format[123],ppf,_ac_,pp_num,_lf_)} + return caml_call2(Stdlib_format[123],ppf,_ad_)} + return caml_call6(Stdlib_format[123],ppf,_ae_,_ld_,_lb_,_lc_,maximum)} + var _k__=[0,multiple_of,minimum,maximum]; + function _k$_(ppf,param) + {if(param[1]) + {var switch$0=0; + if(! param[2] && ! param[3])switch$0 = 1; + if(! switch$0)return caml_call2(Stdlib_format[123],ppf,_af_)} + return 0} + function _la_(ppf,param) + {if(param) + {var v=param[1];return caml_call3(Stdlib_format[123],ppf,_ag_,v)} + return 0} + return caml_call8 + (Stdlib_format[123], + ppf, + _ah_, + _la_, + multiple_of, + _k$_, + _k__, + _k9_, + _k8_)} + function pp_path(ppf,path) + {if(path) + {var _k5_=path[1]; + if + (typeof _k5_ + !== + "number" + && + 331416730 + === + _k5_[1] + && + ! + caml_string_notequal(_k5_[2],cst_definitions)) + {var _k6_=path[2]; + if(_k6_) + {var _k7_=_k6_[1]; + if(typeof _k7_ !== "number" && 331416730 === _k7_[1] && ! _k6_[2]) + {var name=_k7_[2]; + return caml_call3(Stdlib_format[123],ppf,_aj_,name)}}}} + return print_path_as_json_path(_ai_,ppf,path)} + function pp_desc(element) + {var _k1_=element[1]; + if(_k1_) + {var _k2_=element[2],_k3_=_k1_[1]; + if(_k2_) + {var description=_k2_[1]; + return [0, + function(ppf,param) + {return caml_call6 + (Stdlib_format[123], + ppf, + _ak_, + Stdlib_format[120], + _k3_, + Stdlib_format[120], + description)}]} + var text=_k3_} else - if(438511779 <= src[1]) - var i=caml_create_bytes(65536),i_pos=1,i_max=0; - else - var - s=src[2], - i_max$0=caml_ml_string_length(s) - 1 | 0, - i$0=caml_call1(Stdlib_bytes[43],s), - i=i$0, - i_pos=0, - i_max=i_max$0; - var utf16=143365725 === encoding$0?1:0; + {var _k4_=element[2];if(! _k4_)return 0;var text=_k4_[1]} return [0, - src, - encoding$0, - nln, - nl$0, - i, - i_pos, - i_max, - caml_create_bytes(4), - 0, - 0, - 0, - 0, - 1, - 0, - 0, - 0, - function(d,v) - {if(852405675 <= v[1]) - {var u=v[2],match=caml_call1(Stdlib_uchar[10],u); - if(65279 === match) - {if(utf16){d[2] = -211558048;d[18] = decode_utf_16be} - d[11] = 1; - d[17] = pp$0; - return caml_call1(d[18],d)} - if(65534 === match) - if(utf16) - {d[2] = -211555818; - d[18] = decode_utf_16; - d[11] = 1; - d[17] = pp$0; - return caml_call1(d[18],d)} - d[11] = 0; - d[17] = pp$0; - return caml_call2(d[17],d,v)} - d[11] = 0; - d[17] = pp$0; - return caml_call2(d[17],d,v)}, - k$0]} - function decode(d){return caml_call1(d[18],d)} - function decoder_line(d){return d[13]} - function decoder_col(d){return d[14]} - function decoder_byte_count(d){return d[15]} - function decoder_count(d){return d[16]} - function decoder_removed_bom(d){return d[11]} - function decoder_src(d){return d[1]} - function decoder_nln(d){return d[3]} - function decoder_encoding(d){return d[2]} - function set_decoder_encoding(d,e) - {d[2] = e;d[18] = decode_fun(e);return 0} - function o_rem(e){return (e[5] - e[4] | 0) + 1 | 0} - function dst(e,s,j,l) - {var _U_=j < 0?1:0; - if(_U_) - var _V_=_U_; + function(ppf,param) + {return caml_call4 + (Stdlib_format[123],ppf,_al_,Stdlib_format[120],text)}]} + function pp_element(ppf,element) + {var _kr_=element[7]; + if(_kr_) + {var id=_kr_[1];return caml_call3(Stdlib_format[123],ppf,_am_,id)} + var _ks_=element[6]; + if(_ks_) + {var format=_ks_[1]; + return caml_call3(Stdlib_format[123],ppf,_an_,format)} + var _kt_=element[4]; + if(_kt_) + {var + cases=_kt_[1], + pp_sep= + function(ppf,param){return caml_call2(Stdlib_format[123],ppf,_ao_)}, + _ku_=0, + _kv_=0, + _kw_=function(_kZ_,_k0_){return pp_any(_ap_,_kv_,_ku_,_kZ_,_k0_)}, + _kx_=caml_call2(Stdlib_format[119],[0,pp_sep],_kw_); + return caml_call4(Stdlib_format[123],ppf,_aq_,_kx_,cases)} + var match=pp_desc(element); + if(match) + {var + pp_desc$0=match[1], + stripped= + [0,0,0,element[3],element[4],element[5],element[6],element[7]], + _ky_=element[5]; + if(typeof _ky_ !== "number") + switch(_ky_[0]) + {case 0: + var specs=_ky_[1]; + return caml_call6 + (Stdlib_format[123], + ppf, + _as_, + pp_desc$0, + 0, + pp_object_contents, + specs); + case 3: + return caml_call6 + (Stdlib_format[123], + ppf, + _at_, + pp_desc$0, + 0, + pp_element, + stripped) + } + return caml_call6 + (Stdlib_format[123],ppf,_ar_,pp_element,stripped,pp_desc$0,0)} + var _kz_=element[5]; + if(typeof _kz_ === "number") + switch(_kz_) + {case 0:return caml_call2(Stdlib_format[123],ppf,_au_); + case 1:return caml_call2(Stdlib_format[123],ppf,_av_); + case 2:return caml_call2(Stdlib_format[123],ppf,_aw_); + default:throw [0,Assert_failure,_ax_]} else - var - _W_=l < 0?1:0, - _V_=_W_ || (caml_ml_bytes_length(s) < (j + l | 0)?1:0); - if(_V_)invalid_bounds(j,l); - e[3] = s; - e[4] = j; - e[5] = (j + l | 0) - 1 | 0; - return 0} - function flush(k,e) - {var _T_=e[1]; - if(typeof _T_ === "number") - {e[9] - = - function(e,param) - {if(typeof param === "number") - if(1006505782 <= param)return caml_call1(k,e); - return caml_call1(Stdlib[1],cst_expected_Await_encode)}; - return 939392865} - if(438511779 <= _T_[1]) - {var oc=_T_[2]; - caml_call4(Stdlib[68],oc,e[3],0,e[4]); - e[4] = 0; - return caml_call1(k,e)} - var b=_T_[2],o=caml_call1(Stdlib_bytes[42],e[3]); - caml_call4(Stdlib_buffer[16],b,o,0,e[4]); - e[4] = 0; - return caml_call1(k,e)} - function t_range(e,max){e[7] = 0;e[8] = max;return 0} - function t_flush(k,e) - {function blit(e,l) - {caml_blit_bytes(e[6],e[7],e[3],e[4],l); - e[4] = e[4] + l | 0; - e[7] = e[7] + l | 0; - return 0} - var rem=o_rem(e),len=(e[8] - e[7] | 0) + 1 | 0; - return rem < len - ?(blit(e,rem),flush(function(_S_){return t_flush(k,_S_)},e)) - :(blit(e,len),caml_call1(k,e))} - function encode_utf_8(e,v) - {function k(e){e[9] = encode_utf_8;return 17724} - if(typeof v === "number")return 1006505782 <= v?k(e):flush(k,e); - var u=v[2],u$0=caml_call1(Stdlib_uchar[10],u),rem=o_rem(e); - if(127 < u$0) - {if(2047 < u$0) - {if(65535 < u$0) - {if(4 <= rem) - {var j=e[4];e[4] = e[4] + 4 | 0;var s=e[3],j$0=j,k$0=k} - else - {t_range(e,3); - var - _M_=function(_R_){return t_flush(k,_R_)}, - s=e[6], - j$0=0, - k$0=_M_} - unsafe_set_byte(s,j$0,240 | u$0 >>> 18 | 0); - unsafe_set_byte(s,j$0 + 1 | 0,128 | (u$0 >>> 12 | 0) & 63); - unsafe_set_byte(s,j$0 + 2 | 0,128 | (u$0 >>> 6 | 0) & 63); - unsafe_set_byte(s,j$0 + 3 | 0,128 | u$0 & 63); - return k$0(e)} - if(3 <= rem) - {var j$1=e[4];e[4] = e[4] + 3 | 0;var s$0=e[3],j$2=j$1,k$1=k} - else - {t_range(e,2); + switch(_kz_[0]) + {case 0: + var _kA_=_kz_[1]; + if(! _kA_[1] && ! _kA_[2] && ! _kA_[3] && 0 === _kA_[4]) + {var _kB_=_kA_[5]; + if(_kB_ && 0 === _kB_[1] && ! _kA_[6] && ! _kA_[7]) + return caml_call2(Stdlib_format[123],ppf,_az_)} + return caml_call4 + (Stdlib_format[123],ppf,_ay_,pp_object_contents,_kA_); + case 1: + var _kC_=_kz_[2],_kD_=_kC_[2],switch$0=0,_kE_=_kz_[1]; + if(_kD_ && 0 === _kD_[1])switch$0 = 1; + if(! switch$0) + {var + additional_items=_kC_[4], + first=[0,1], + pp_sep$0= + function(ppf,param) + {return first[1] + ?(first[1] = 0,0) + :caml_call2(Stdlib_format[123],ppf,_aB_)}; + caml_call2(Stdlib_format[123],ppf,_aC_); var - _N_=function(_Q_){return t_flush(k,_Q_)}, - s$0=e[6], - j$2=0, - k$1=_N_} - unsafe_set_byte(s$0,j$2,224 | u$0 >>> 12 | 0); - unsafe_set_byte(s$0,j$2 + 1 | 0,128 | (u$0 >>> 6 | 0) & 63); - unsafe_set_byte(s$0,j$2 + 2 | 0,128 | u$0 & 63); - return k$1(e)} - if(2 <= rem) - {var j$3=e[4];e[4] = e[4] + 2 | 0;var s$1=e[3],j$4=j$3,k$2=k} - else - {t_range(e,1); - var _O_=function(_P_){return t_flush(k,_P_)},s$1=e[6],j$4=0,k$2=_O_} - unsafe_set_byte(s$1,j$4,192 | u$0 >>> 6 | 0); - unsafe_set_byte(s$1,j$4 + 1 | 0,128 | u$0 & 63); - return k$2(e)} - return 1 <= rem - ?(unsafe_set_byte(e[3],e[4],u$0),e[4] = e[4] + 1 | 0,k(e)) - :flush(function(e){return encode_utf_8(e,v)},e)} - function encode_utf_16be(e,v) - {function k(e){e[9] = encode_utf_16be;return 17724} - if(typeof v === "number")return 1006505782 <= v?k(e):flush(k,e); - var u=v[2],u$0=caml_call1(Stdlib_uchar[10],u),rem=o_rem(e); - if(65536 <= u$0) - {if(4 <= rem) - {var j=e[4];e[4] = e[4] + 4 | 0;var s=e[3],j$0=j,k$0=k} - else - {t_range(e,3); - var _I_=function(_L_){return t_flush(k,_L_)},s=e[6],j$0=0,k$0=_I_} - var - u$1=u$0 - 65536 | 0, - hi=55296 | u$1 >>> 10 | 0, - lo=56320 | u$1 & 1023; - unsafe_set_byte(s,j$0,hi >>> 8 | 0); - unsafe_set_byte(s,j$0 + 1 | 0,hi & 255); - unsafe_set_byte(s,j$0 + 2 | 0,lo >>> 8 | 0); - unsafe_set_byte(s,j$0 + 3 | 0,lo & 255); - return k$0(e)} - if(2 <= rem) - {var j$1=e[4];e[4] = e[4] + 2 | 0;var s$0=e[3],j$2=j$1,k$1=k} - else - {t_range(e,1); - var _J_=function(_K_){return t_flush(k,_K_)},s$0=e[6],j$2=0,k$1=_J_} - unsafe_set_byte(s$0,j$2,u$0 >>> 8 | 0); - unsafe_set_byte(s$0,j$2 + 1 | 0,u$0 & 255); - return k$1(e)} - function encode_utf_16le(e,v) - {function k(e){e[9] = encode_utf_16le;return 17724} - if(typeof v === "number")return 1006505782 <= v?k(e):flush(k,e); - var u=v[2],u$0=caml_call1(Stdlib_uchar[10],u),rem=o_rem(e); - if(65536 <= u$0) - {if(4 <= rem) - {var j=e[4];e[4] = e[4] + 4 | 0;var s=e[3],j$0=j,k$0=k} - else - {t_range(e,3); - var _E_=function(_H_){return t_flush(k,_H_)},s=e[6],j$0=0,k$0=_E_} - var - u$1=u$0 - 65536 | 0, - hi=55296 | u$1 >>> 10 | 0, - lo=56320 | u$1 & 1023; - unsafe_set_byte(s,j$0,hi & 255); - unsafe_set_byte(s,j$0 + 1 | 0,hi >>> 8 | 0); - unsafe_set_byte(s,j$0 + 2 | 0,lo & 255); - unsafe_set_byte(s,j$0 + 3 | 0,lo >>> 8 | 0); - return k$0(e)} - if(2 <= rem) - {var j$1=e[4];e[4] = e[4] + 2 | 0;var s$0=e[3],j$2=j$1,k$1=k} - else - {t_range(e,1); - var _F_=function(_G_){return t_flush(k,_G_)},s$0=e[6],j$2=0,k$1=_F_} - unsafe_set_byte(s$0,j$2,u$0 & 255); - unsafe_set_byte(s$0,j$2 + 1 | 0,u$0 >>> 8 | 0); - return k$1(e)} - function encoder(encoding,dst) - {if(typeof dst === "number") - var o=Stdlib_bytes[3],o_pos=1,o_max=0; - else - var o$0=caml_create_bytes(65536),o=o$0,o_pos=0,o_max=65535; - var - _D_= - 143365725 <= encoding - ?684370880 <= encoding?encode_utf_8:encode_utf_16be - :-211555818 <= encoding?encode_utf_16le:encode_utf_16be; - return [0,dst,encoding,o,o_pos,o_max,caml_create_bytes(4),1,0,_D_]} - function encode(e,v){return caml_call2(e[9],e,v)} - function encoder_encoding(e){return e[2]} - function encoder_dst(e){return e[1]} - var Manual=[0,src,dst,o_rem]; - function encoding_guess(s) + _kF_= + function(elt) + {return caml_call6 + (Stdlib_format[123],ppf,_aD_,pp_sep$0,0,pp_element,elt)}; + caml_call2(Stdlib_list[15],_kF_,_kE_); + if(additional_items) + {var _kG_=additional_items[1],_kH_=_kG_[5],switch$1=0; + if(typeof _kH_ === "number" && 2 === _kH_) + {caml_call4(Stdlib_format[123],ppf,_aE_,pp_sep$0,0); + switch$1 = 1} + if(! switch$1) + caml_call6 + (Stdlib_format[123],ppf,_aG_,pp_sep$0,0,pp_element,_kG_)} + return caml_call2(Stdlib_format[123],ppf,_aF_)} + break; + case 2: + var _kI_=_kz_[2],_kJ_=_kI_[2],_kK_=_kz_[1],switch$2=0; + if(_kJ_ && 0 === _kJ_[1])switch$2 = 1; + if(! switch$2) + {var _kL_=_kI_[4]; + if(_kL_) + {var _kM_=_kL_[1],_kN_=_kM_[5]; + if(typeof _kN_ === "number" && 2 === _kN_) + return caml_call4(Stdlib_format[123],ppf,_aH_,pp_element,_kK_); + return caml_call6 + (Stdlib_format[123], + ppf, + _aI_, + pp_element, + _kK_, + pp_element, + _kM_)} + return caml_call4(Stdlib_format[123],ppf,_aJ_,pp_element,_kK_)} + break; + case 3: + var _kO_=_kz_[1]; + if(3 <= _kO_) + {var _kP_=_kz_[2]; + if(_kP_ && ! _kP_[2]) + {var elt=_kP_[1]; + return caml_call4(Stdlib_format[123],ppf,_aP_,pp_element,elt)}} + var + elts=_kz_[2], + pp_sep$1= + function(ppf,param) + {switch(_kO_) + {case 0:return caml_call2(Stdlib_format[123],ppf,_aK_); + case 1:return caml_call2(Stdlib_format[123],ppf,_aL_); + case 2:return caml_call2(Stdlib_format[123],ppf,_aM_); + default:throw [0,Assert_failure,_aN_]}}, + _kQ_=caml_call2(Stdlib_format[119],[0,pp_sep$1],pp_element); + return caml_call4(Stdlib_format[123],ppf,_aO_,_kQ_,elts); + case 4: + var path=_kz_[1]; + return caml_call4(Stdlib_format[123],ppf,_aQ_,pp_path,path); + case 5: + var id$0=_kz_[1]; + return caml_call3(Stdlib_format[123],ppf,_aR_,id$0); + case 6: + var uri=_kz_[1]; + return caml_call4(Stdlib_format[123],ppf,_aS_,Uri[43],uri); + case 7: + var _kR_=_kz_[1],_kS_=_kR_[1]; + if(_kS_) + {if(0 === _kR_[2] && ! _kR_[3]) + {var pat=_kS_[1]; + return caml_call3(Stdlib_format[123],ppf,_aY_,pat)}} + else + if(0 === _kR_[2] && ! _kR_[3]) + return caml_call2(Stdlib_format[123],ppf,_aZ_); + var + max_length=_kR_[3], + min_length=_kR_[2], + _kT_= + function(ppf,param) + {if(param) + {var m=param[1]; + return caml_call3(Stdlib_format[123],ppf,_aT_,m)} + return 0}, + _kU_= + function(ppf,n) + {var _kY_=0 < n?1:0; + return _kY_?caml_call3(Stdlib_format[123],ppf,_aU_,n):_kY_}, + _kV_= + function(ppf,param) + {if(param) + {var pat=param[1]; + return caml_call3(Stdlib_format[123],ppf,_aV_,pat)} + return caml_call2(Stdlib_format[123],ppf,_aW_)}; + return caml_call8 + (Stdlib_format[123], + ppf, + _aX_, + _kV_, + _kS_, + _kU_, + min_length, + _kT_, + max_length); + case 8: + var _kW_=_kz_[1]; + if(! _kW_[1] && ! _kW_[2] && ! _kW_[3]) + return caml_call2(Stdlib_format[123],ppf,_a1_); + return caml_call4(Stdlib_format[123],ppf,_a0_,pp_numeric_specs,_kW_); + default: + var _kX_=_kz_[1]; + if(! _kX_[1] && ! _kX_[2] && ! _kX_[3]) + return caml_call2(Stdlib_format[123],ppf,_a3_); + return caml_call4(Stdlib_format[123],ppf,_a2_,pp_numeric_specs,_kX_)} + return caml_call2(Stdlib_format[123],ppf,_aA_)} + function pp_object_contents(ppf,param) {var - s$0=caml_call1(Stdlib_bytes[43],s), - match= - r_encoding(s$0,0,caml_call2(Stdlib[17],caml_ml_bytes_length(s$0),3)), - _C_=match[1]; - if(-211555818 === _C_) - {var d=match[2];return [0,-211555818,3299808 === d?1:0]} - if(684370880 <= _C_) - {var d$0=match[2];return [0,684370880,3299808 === d$0?1:0]} - var d$1=match[2]; - return [0,-211558048,3299808 === d$1?1:0]} - function fold_utf_8(opt,len,f,acc,s) - {if(opt)var sth=opt[1],pos=sth;else var pos=0; - if(len) - var l=len[1],len$0=l; - else - var len$0=caml_ml_string_length(s) - pos | 0; - var - last=(pos + len$0 | 0) - 1 | 0, - s$0=caml_call1(Stdlib_bytes[43],s), - acc$0=acc, - i=pos; - for(;;) - {if(last < i)return acc$0; - var need=utf_8_len[1 + caml_bytes_unsafe_get(s$0,i)]; - if(0 === need) + additional_properties=param[3], + pattern_properties=param[2], + properties=param[1], + first=[0,1]; + function pp_sep(ppf,param) + {return first[1] + ?(first[1] = 0,0) + :caml_call2(Stdlib_format[123],ppf,_a4_)} + function _km_(param) + {var req=param[3],elt=param[2],name=param[1],_kq_=req?cst$2:cst$3; + return caml_call9 + (Stdlib_format[123], + ppf, + _a5_, + pp_sep, + 0, + pp_string$0, + name, + _kq_, + pp_element, + elt)} + caml_call2(Stdlib_list[15],_km_,properties); + function _kn_(param) + {var elt=param[2],name=param[1]; + return caml_call7 + (Stdlib_format[123],ppf,_a6_,pp_sep,0,name,pp_element,elt)} + caml_call2(Stdlib_list[15],_kn_,pattern_properties); + if(additional_properties) + {var _ko_=additional_properties[1],_kp_=_ko_[5]; + if(typeof _kp_ === "number" && 2 === _kp_) + return caml_call4(Stdlib_format[123],ppf,_a7_,pp_sep,0); + return caml_call6 + (Stdlib_format[123],ppf,_a8_,pp_sep,0,pp_element,_ko_)} + return 0} + function pp$0(ppf,schema) + {caml_call2(Stdlib_format[123],ppf,_a9_); + pp_element(ppf,schema[1]); + var _ki_=schema[3]; + function _kj_(param) + {var elt=param[2],path=param[1],match=pp_desc(elt); + if(match) {var - i$0=i + 1 | 0, - acc$1=caml_call3(f,acc$0,i,malformed(s$0,i,1)), - acc$0=acc$1, - i=i$0; - continue} - var rem=(last - i | 0) + 1 | 0; - if(rem < need)return caml_call3(f,acc$0,i,malformed(s$0,i,rem)); + pp_desc$0=match[1], + stripped=[0,0,0,elt[3],elt[4],elt[5],elt[6],elt[7]]; + return caml_call8 + (Stdlib_format[123], + ppf, + _a__, + pp_path, + path, + pp_desc$0, + 0, + pp_element, + stripped)} + return caml_call6 + (Stdlib_format[123],ppf,_a$_,pp_path,path,pp_element,elt)} + caml_call2(Stdlib_list[15],_kj_,_ki_); + var _kk_=schema[4]; + function _kl_(param) + {var elt=param[2],id=param[1],match=pp_desc(elt); + if(match) + {var + pp_desc$0=match[1], + stripped=[0,0,0,elt[3],elt[4],elt[5],elt[6],0]; + return caml_call7 + (Stdlib_format[123], + ppf, + _ba_, + id, + pp_desc$0, + 0, + pp_element, + stripped)} + return caml_call5 + (Stdlib_format[123], + ppf, + _bb_, + id, + pp_element, + [0,elt[1],elt[2],elt[3],elt[4],elt[5],elt[6],0])} + caml_call2(Stdlib_list[15],_kl_,_kk_); + return caml_call2(Stdlib_format[123],ppf,_bc_)} + var + Cannot_parse=[248,cst_Json_schema_Cannot_parse,caml_fresh_oo_id(0)], + Dangling_reference= + [248,cst_Json_schema_Dangling_refer,caml_fresh_oo_id(0)], + Bad_reference=[248,cst_Json_schema_Bad_reference,caml_fresh_oo_id(0)], + Unexpected=[248,cst_Json_schema_Unexpected,caml_fresh_oo_id(0)], + Duplicate_definition= + [248,cst_Json_schema_Duplicate_defi,caml_fresh_oo_id(0)]; + function print_error$0(print_unknown,ppf,exn) + {if(exn[1] === Cannot_parse) + {var + exn$0=exn[3], + path=exn[2], + _j__= + function(_kg_,_kh_){return print_error$0(print_unknown,_kg_,_kh_)}, + _j$_= + function(_ke_,_kf_){return print_path_as_json_path(_bd_,_ke_,_kf_)}; + return caml_call6(Stdlib_format[123],ppf,_be_,_j$_,path,_j__,exn$0)} + if(exn[1] === Dangling_reference) + {var uri=exn[2],_ka_=caml_call1(Uri[7],uri); + return caml_call3(Stdlib_format[123],ppf,_bf_,_ka_)} + if(exn[1] === Bad_reference) + {var str=exn[2];return caml_call3(Stdlib_format[123],ppf,_bg_,str)} + if(exn[1] === Unexpected) + {var ex=exn[3],unex=exn[2]; + return caml_call4(Stdlib_format[123],ppf,_bh_,unex,ex)} + if(exn[1] === Duplicate_definition) + {var + defelt=exn[4], + elt=exn[3], + name=exn[2], + _kb_= + function(_kc_,_kd_) + {return print_path_as_json_pointer(_bi_,_kc_,_kd_)}; + return caml_call8 + (Stdlib_format[123], + ppf, + _bj_, + _kb_, + name, + pp_element, + elt, + pp_element, + defelt)} + return print_error(print_unknown,ppf,exn)} + function _bk_(name,defs){return caml_call2(Stdlib_list[39],name,defs)} + function _bl_(name,defs){return caml_call2(Stdlib_list[43],name,defs)} + function insert_definition(name,elt,defs) + {function insert(param) + {if(param) + {var + def=param[1], + defelt=def[2], + match=defelt[5], + defname=def[1], + rem=param[2]; + if(caml_notequal(defname,name))return [0,def,insert(rem)]; + if(typeof match === "number" && 3 <= match) + {var rem$0=param[2];return [0,[0,name,elt],rem$0]} + var rem$1=param[2]; + if(1 - eq_element(elt,defelt)) + throw [0,Duplicate_definition,name,elt,defelt]; + return [0,[0,name,elt],rem$1]} + return [0,[0,name,elt],0]} + return insert(defs)} + function Make$0(_gv_) + {var Query=_T_(_gv_); + function to_json(schema) + {function obj(l){return caml_call1(_gv_[2],[0,79,l])} + function set_always(f,v){return [0,[0,f,caml_call1(_gv_[2],v)],0]} + function set_if_some(f,v,cb) + {if(v) + {var v$0=v[1],_j9_=caml_call1(cb,v$0); + return [0,[0,f,caml_call1(_gv_[2],_j9_)],0]} + return 0} + function set_if_cons(f,v,cb) + {if(v) + {var _j8_=caml_call1(cb,v); + return [0,[0,f,caml_call1(_gv_[2],_j8_)],0]} + return 0} + function set_if_neq(f,v$0,v,cb) + {if(caml_notequal(v$0,v)) + {var _j7_=caml_call1(cb,v$0); + return [0,[0,f,caml_call1(_gv_[2],_j7_)],0]} + return 0} + function format_element(param) + {var + format=param[6], + kind=param[5], + enum$0=param[4], + default$0=param[3], + description=param[2], + title=param[1], + _ij_= + set_if_some + (cst_format,format,function(s){return [0,-976970511,s]}), + _ik_= + set_if_some + (cst_enum, + enum$0, + function(js) + {function _j5_(_j6_){return any_to_repr(_gv_,_j6_)} + return [0,65,caml_call2(Stdlib_list[17],_j5_,js)]}), + _il_=caml_call2(Stdlib[37],_ik_,_ij_), + _im_= + set_if_some + (cst_default, + default$0, + function(j) + {var _j4_=any_to_repr(_gv_,j);return caml_call1(_gv_[1],_j4_)}), + _in_=caml_call2(Stdlib[37],_im_,_il_); + if(typeof kind === "number") + switch(kind) + {case 0:var _io_=set_always(cst_type,_bm_);break; + case 1:var _io_=set_always(cst_type$0,_bn_);break; + case 2:var _io_=0;break; + default: + var _io_=caml_call1(Stdlib[1],cst_Json_schema_to_json_remain)} + else + switch(kind[0]) + {case 0: + var + specs=kind[1], + _it_=specs[1], + _iu_=0, + _iv_= + function(r,param) + {var p=param[3],n=param[1]; + return p?[0,caml_call1(_gv_[2],[0,-976970511,n]),r]:r}, + required=caml_call3(Stdlib_list[21],_iv_,_iu_,_it_), + _iw_=specs[1], + _ix_= + function(param) + {var elt=param[2],n=param[1]; + return [0,n,obj(format_element(elt))]}, + properties=caml_call2(Stdlib_list[17],_ix_,_iw_), + _iy_= + function(fs) + {function _j1_(param) + {var ls=param[2],n=param[1]; + function _j2_(s) + {return caml_call1(_gv_[2],[0,-976970511,s])} + var _j3_=[0,65,caml_call2(Stdlib_list[17],_j2_,ls)]; + return [0,n,caml_call1(_gv_[2],_j3_)]} + var + property_dependencies= + caml_call2(Stdlib_list[17],_j1_,fs); + return [0,79,property_dependencies]}, + _iz_=set_if_cons(cst_propertyDependencies,specs[7],_iy_), + _iA_= + function(fs) + {function _j0_(param) + {var elt=param[2],n=param[1]; + return [0,n,obj(format_element(elt))]} + return [0,79,caml_call2(Stdlib_list[17],_j0_,fs)]}, + _iB_=set_if_cons(cst_schemaDependencies,specs[6],_iA_), + _iC_=caml_call2(Stdlib[37],_iB_,_iz_), + _iD_=function(i){return [0,365180284,i]}, + _iE_=set_if_some(cst_maxProperties,specs[5],_iD_), + _iF_=caml_call2(Stdlib[37],_iE_,_iC_), + _iG_=function(i){return [0,365180284,i]}, + _iH_=set_if_neq(cst_minProperties,specs[4],0,_iG_), + _iI_=caml_call2(Stdlib[37],_iH_,_iF_), + _iJ_= + function(param) + {if(param) + {var elt=param[1];return [0,79,format_element(elt)]} + return _bo_}, + _iK_=[0,element(2)], + _iL_=set_if_neq(cst_additionalProperties,specs[3],_iK_,_iJ_), + _iM_=caml_call2(Stdlib[37],_iL_,_iI_), + _iN_= + function(fs) + {function _jZ_(param) + {var elt=param[2],n=param[1]; + return [0,n,obj(format_element(elt))]} + return [0,79,caml_call2(Stdlib_list[17],_jZ_,fs)]}, + _iO_=set_if_cons(cst_patternProperties,specs[2],_iN_), + _iP_=caml_call2(Stdlib[37],_iO_,_iM_), + _iQ_= + set_if_cons + (cst_required,required,function(l){return [0,65,l]}), + _iR_=caml_call2(Stdlib[37],_iQ_,_iP_), + _iS_=set_always(cst_properties,[0,79,properties]), + _iT_=caml_call2(Stdlib[37],_iS_,_iR_), + _iU_=set_always(cst_type$1,_bp_), + _io_=caml_call2(Stdlib[37],_iU_,_iT_); + break; + case 1: + var + specs$0=kind[2], + elts=kind[1], + _iV_= + function(param) + {if(param) + {var elt=param[1];return [0,79,format_element(elt)]} + return _bq_}, + _iW_=[0,element(2)], + _iX_=set_if_neq(cst_additionalItems,specs$0[4],_iW_,_iV_), + _iY_=function(b){return [0,737456202,b]}, + _iZ_=set_if_neq(cst_uniqueItems,specs$0[3],0,_iY_), + _i0_=caml_call2(Stdlib[37],_iZ_,_iX_), + _i1_=function(i){return [0,365180284,i]}, + _i2_=set_if_some(cst_maxItems,specs$0[2],_i1_), + _i3_=caml_call2(Stdlib[37],_i2_,_i0_), + _i4_=function(i){return [0,365180284,i]}, + _i5_=set_if_neq(cst_minItems,specs$0[1],0,_i4_), + _i6_=caml_call2(Stdlib[37],_i5_,_i3_), + _i7_=function(elt){return obj(format_element(elt))}, + _i8_= + set_always + (cst_items,[0,65,caml_call2(Stdlib_list[17],_i7_,elts)]), + _i9_=caml_call2(Stdlib[37],_i8_,_i6_), + _i__=set_always(cst_type$2,_br_), + _io_=caml_call2(Stdlib[37],_i__,_i9_); + break; + case 2: + var + match=kind[2], + unique_items=match[3], + max_items=match[2], + min_items=match[1], + elt=kind[1], + _i$_= + set_if_neq + (cst_uniqueItems$0, + unique_items, + 0, + function(b){return [0,737456202,b]}), + _ja_= + set_if_some + (cst_maxItems$0, + max_items, + function(i){return [0,365180284,i]}), + _jb_=caml_call2(Stdlib[37],_ja_,_i$_), + _jc_= + set_if_neq + (cst_minItems$0, + min_items, + 0, + function(i){return [0,365180284,i]}), + _jd_=caml_call2(Stdlib[37],_jc_,_jb_), + _je_=set_always(cst_items$0,[0,79,format_element(elt)]), + _jf_=caml_call2(Stdlib[37],_je_,_jd_), + _jg_=set_always(cst_type$3,_bs_), + _io_=caml_call2(Stdlib[37],_jg_,_jf_); + break; + case 3: + var + elts$0=kind[2], + c=kind[1], + _jh_=function(elt){return obj(format_element(elt))}, + _ji_=[0,65,caml_call2(Stdlib_list[17],_jh_,elts$0)]; + switch(c) + {case 0:var _jj_=cst_anyOf;break; + case 1:var _jj_=cst_oneOf;break; + case 2:var _jj_=cst_allOf;break; + default:var _jj_=cst_not} + var _io_=set_always(_jj_,_ji_); + break; + case 4: + var + path=kind[1], + _jk_=json_pointer_of_path(0,path), + _io_= + set_always + (cst_ref,[0,-976970511,caml_call2(Stdlib[28],cst$4,_jk_)]); + break; + case 5: + var + name=kind[1], + _io_= + set_always + (cst_ref$0,[0,-976970511,caml_call2(Stdlib[28],cst$5,name)]); + break; + case 6: + var + uri=kind[1], + _io_= + set_always(cst_ref$1,[0,-976970511,caml_call1(Uri[7],uri)]); + break; + case 7: + var + match$0=kind[1], + max_length=match$0[3], + min_length=match$0[2], + pattern=match$0[1], + _jl_= + set_if_some + (cst_pattern,pattern,function(s){return [0,-976970511,s]}), + _jm_= + set_if_some + (cst_maxLength, + max_length, + function(i){return [0,365180284,i]}), + _jn_=caml_call2(Stdlib[37],_jm_,_jl_), + _jo_= + set_if_neq + (cst_minLength, + min_length, + 0, + function(i){return [0,365180284,i]}), + _jp_=caml_call2(Stdlib[37],_jo_,_jn_), + _jq_=set_always(cst_type$4,_bt_), + _io_=caml_call2(Stdlib[37],_jq_,_jp_); + break; + case 8: + var specs$1=kind[1],_jr_=specs$1[3]; + if(_jr_) + {var _js_=_jr_[1],_jt_=_js_[1]; + if(672226188 <= _js_[2]) + var + _ju_= + [0,[0,cst_maximum,caml_call1(_gv_[2],[0,365180284,_jt_])],0]; + else + var + _jH_=[0,[0,cst_exclusiveMaximum,caml_call1(_gv_[2],_bw_)],0], + _ju_= + [0, + [0,cst_maximum$0,caml_call1(_gv_[2],[0,365180284,_jt_])], + _jH_]; + var _jv_=_ju_} + else + var _jv_=0; + var _jw_=specs$1[2]; + if(_jw_) + {var _jx_=_jw_[1],_jy_=_jx_[1]; + if(672226188 <= _jx_[2]) + var + _jz_= + [0,[0,cst_minimum,caml_call1(_gv_[2],[0,365180284,_jy_])],0]; + else + var + _jG_=[0,[0,cst_exclusiveMinimum,caml_call1(_gv_[2],_bv_)],0], + _jz_= + [0, + [0,cst_minimum$0,caml_call1(_gv_[2],[0,365180284,_jy_])], + _jG_]; + var _jA_=_jz_} + else + var _jA_=0; + var + _jB_=caml_call2(Stdlib[37],_jA_,_jv_), + _jC_=function(v){return [0,365180284,v]}, + _jD_=set_if_some(cst_multipleOf,specs$1[1],_jC_), + _jE_=caml_call2(Stdlib[37],_jD_,_jB_), + _jF_=set_always(cst_type$5,_bu_), + _io_=caml_call2(Stdlib[37],_jF_,_jE_); + break; + default: + var specs$2=kind[1],_jI_=specs$2[3]; + if(_jI_) + {var _jJ_=_jI_[1],_jK_=_jJ_[1]; + if(672226188 <= _jJ_[2]) + var + _jL_= + [0, + [0,cst_maximum$1,caml_call1(_gv_[2],[0,365180284,_jK_])], + 0]; + else + var + _jY_= + [0,[0,cst_exclusiveMaximum$0,caml_call1(_gv_[2],_bz_)],0], + _jL_= + [0, + [0,cst_maximum$2,caml_call1(_gv_[2],[0,365180284,_jK_])], + _jY_]; + var _jM_=_jL_} + else + var _jM_=0; + var _jN_=specs$2[2]; + if(_jN_) + {var _jO_=_jN_[1],_jP_=_jO_[1]; + if(672226188 <= _jO_[2]) + var + _jQ_= + [0, + [0,cst_minimum$1,caml_call1(_gv_[2],[0,365180284,_jP_])], + 0]; + else + var + _jX_= + [0,[0,cst_exclusiveMinimum$0,caml_call1(_gv_[2],_by_)],0], + _jQ_= + [0, + [0,cst_minimum$2,caml_call1(_gv_[2],[0,365180284,_jP_])], + _jX_]; + var _jR_=_jQ_} + else + var _jR_=0; + var + _jS_=caml_call2(Stdlib[37],_jR_,_jM_), + _jT_=function(v){return [0,365180284,v]}, + _jU_=set_if_some(cst_multipleOf$0,specs$2[1],_jT_), + _jV_=caml_call2(Stdlib[37],_jU_,_jS_), + _jW_=set_always(cst_type$6,_bx_), + _io_=caml_call2(Stdlib[37],_jW_,_jV_)} + var + _ip_=caml_call2(Stdlib[37],_io_,_in_), + _iq_= + set_if_some + (cst_description, + description, + function(s){return [0,-976970511,s]}), + _ir_=caml_call2(Stdlib[37],_iq_,_ip_), + _is_= + set_if_some(cst_title,title,function(s){return [0,-976970511,s]}); + return caml_call2(Stdlib[37],_is_,_ir_)} var - i$1=i + need | 0, - acc$2=caml_call3(f,acc$0,i,r_utf_8(s$0,i,need)), - acc$0=acc$2, - i=i$1; - continue}} - function fold_utf_16be(opt,len,f,acc,s) - {if(opt)var sth=opt[1],pos=sth;else var pos=0; - if(len) - var l=len[1],len$0=l; - else - var len$0=caml_ml_string_length(s) - pos | 0; - var - last=(pos + len$0 | 0) - 1 | 0, - s$0=caml_call1(Stdlib_bytes[43],s), - acc$0=acc, - i=pos; - for(;;) - {if(last < i)return acc$0; - var rem=(last - i | 0) + 1 | 0; - if(2 <= rem) - {var v=r_utf_16(s$0,i,i + 1 | 0); - if(659980059 <= v[1]) - {var i$0=i + 2 | 0,acc$1=caml_call3(f,acc$0,i,v),acc$0=acc$1,i=i$0; - continue} - var hi=v[2]; - if(4 <= rem) + _id_=schema[3], + _ie_=format_element(schema[1]), + _if_=set_always(cst_schema,[0,-976970511,version]), + _ig_=obj(caml_call2(Stdlib[37],_if_,_ie_)); + function _ih_(acc,param) + {var elt=param[2],n=param[1],_ii_=obj(format_element(elt)); + return caml_call3(Query[3],n,_ii_,acc)} + return caml_call3(Stdlib_list[21],_ih_,_ig_,_id_)} + function unexpected(kind,expected) + {if(typeof kind === "number") + var kind$0=cst_null; + else + {var _h__=kind[1]; + if(65 === _h__) + var _h$_=kind[2]?cst_array:cst_empty_array,_ia_=_h$_; + else + if(365180284 <= _h__) + var _ia_=737456202 <= _h__?cst_boolean:cst_number; + else + if(79 <= _h__) + var _ib_=kind[2]?cst_object:cst_empty_object,_ia_=_ib_; + else + var + _ic_= + caml_string_notequal(kind[2],cst$6)?cst_string:cst_empty_string, + _ia_=_ic_; + var kind$0=_ia_} + return [0,Cannot_parse,0,[0,Unexpected,kind$0,expected]]} + function at_path(p,exn) + {if(exn[1] === Cannot_parse) + {var err=exn[3],l=exn[2]; + return [0,Cannot_parse,caml_call2(Stdlib[37],p,l),err]} + return exn} + function at_field(n) + {var _h8_=[0,[0,331416730,n],0]; + return function(_h9_){return at_path(_h8_,_h9_)}} + function at_index(i) + {var _h6_=[0,[0,-784200974,i],0]; + return function(_h7_){return at_path(_h6_,_h7_)}} + function of_json(json) + {function opt_field_view(obj,n) + {var match=caml_call1(_gv_[1],obj); + if(typeof match !== "number" && 79 === match[1]) + {var ls=match[2]; + try + {var + _h3_=caml_call2(Stdlib_list[39],n,ls), + _h4_=[0,caml_call1(_gv_[1],_h3_)]; + return _h4_} + catch(_h5_) + {_h5_ = caml_wrap_exception(_h5_); + if(_h5_ === Stdlib[8])return 0; + throw _h5_}} + return 0} + function opt_string_field(obj,n) + {var match=opt_field_view(obj,n); + if(match) + {var _h1_=match[1]; + if(typeof _h1_ !== "number" && -976970511 === _h1_[1]) + {var s=_h1_[2];return [0,s]} + var _h2_=unexpected(_h1_,cst_string$0); + throw caml_call1(at_field(n),_h2_)} + return 0} + function opt_bool_field(def,obj,n) + {var match=opt_field_view(obj,n); + if(match) + {var _hZ_=match[1]; + if(typeof _hZ_ !== "number" && 737456202 === _hZ_[1]) + {var b=_hZ_[2];return b} + var _h0_=unexpected(_hZ_,cst_bool); + throw caml_call1(at_field(n),_h0_)} + return def} + function opt_int_field(obj,n) + {var match=opt_field_view(obj,n); + if(match) + {var _hX_=match[1]; + if(typeof _hX_ !== "number" && 365180284 === _hX_[1]) + {var f=_hX_[2]; + if + (caml_modf_float(f)[1] + == + 0. + && + f + <= + 9007199254740992. + && + -9007199254740992. + <= + f) + return [0,f]} + var _hY_=unexpected(_hX_,cst_integer); + throw caml_call1(at_field(n),_hY_)} + return 0} + function opt_length_field(obj,n) + {var match=opt_field_view(obj,n); + if(match) + {var _hV_=match[1]; + if(typeof _hV_ !== "number" && 365180284 === _hV_[1]) + {var f=_hV_[2]; + if(caml_modf_float(f)[1] == 0. && f <= 1073741824. && 0. <= f) + return [0,f | 0]} + var _hW_=unexpected(_hV_,cst_length); + throw caml_call1(at_field(n),_hW_)} + return 0} + function opt_float_field(obj,n) + {var match=opt_field_view(obj,n); + if(match) + {var _hT_=match[1]; + if(typeof _hT_ !== "number" && 365180284 === _hT_[1]) + {var f=_hT_[2];return [0,f]} + var _hU_=unexpected(_hT_,cst_number$0); + throw caml_call1(at_field(n),_hU_)} + return 0} + function opt_array_field(obj,n) + {var match=opt_field_view(obj,n); + if(match) + {var _hR_=match[1]; + if(typeof _hR_ !== "number" && 65 === _hR_[1]) + {var s=_hR_[2];return [0,s]} + var _hS_=unexpected(_hR_,cst_array$0); + throw caml_call1(at_field(n),_hS_)} + return 0} + function opt_uri_field(obj,n) + {var match=opt_string_field(obj,n); + if(match) + {var uri=match[1]; + try + {var _hP_=caml_call1(Uri[6],uri),uri$0=caml_call1(Uri[9],_hP_)} + catch(_hQ_) + {throw [0, + Cannot_parse, + 0, + [0, + Bad_reference, + caml_call2(Stdlib[28],uri,cst_is_not_a_valid_URI)]]} + return [0,uri$0]} + return 0} + var match=opt_uri_field(json,cst_id); + if(match) + var uri=match[1],schema_source=caml_call2(Uri[41],uri,0); + else + var schema_source=Uri[1]; + var collected_definitions=[0,0],collected_id_refs=[0,0],ids=0; + function collect_definition(uri) + {var match=caml_call1(Uri[35],uri),match$0=caml_call1(Uri[40],uri); + if(match)return [6,uri]; + if(match$0) + {var fragment=match$0[1]; + if(caml_call2(Stdlib_string[22],fragment,47)) + {try + {var path=path_of_json_pointer(_bA_,fragment)} + catch(err) + {err = caml_wrap_exception(err);throw [0,Cannot_parse,0,err]} + try + {var raw=caml_call2(Query[1],path,json); + if(1 - _bl_(path,collected_definitions[1])) + {var _hL_=collected_definitions[1]; + collected_definitions[1] + = + insert_definition(path,element(3),_hL_); + try + {var elt=parse_element(schema_source,raw)} + catch(err) + {err = caml_wrap_exception(err);throw at_path(path,err)} + collected_definitions[1] + = + insert_definition(path,elt,collected_definitions[1])} + var _hM_=[4,path]; + return _hM_} + catch(_hO_) + {_hO_ = caml_wrap_exception(_hO_); + if(_hO_ === Stdlib[8]) + throw [0,Cannot_parse,0,[0,Dangling_reference,uri]]; + throw _hO_}} + collected_id_refs[1] = [0,fragment,collected_id_refs[1]]; + return [5,fragment]} + var _hN_=caml_call1(Uri[7],uri); + throw [0, + Cannot_parse, + 0, + [0, + Bad_reference, + caml_call2(Stdlib[28],_hN_,cst_has_no_fragment)]]} + function parse_element(source,json) + {var id=opt_uri_field(json,cst_id$0); + if(id) + var + uri=id[1], + _hq_=caml_call3(Uri[8],cst_http,source,uri), + uri$0=caml_call1(Uri[9],_hq_), + source$0=caml_call2(Uri[41],uri$0,0), + id$0=caml_call1(Uri[40],uri$0), + source$1=source$0; + else + var id$0=0,source$1=source; + if(caml_notequal(source$1,schema_source)) + return element([6,caml_call2(Uri[41],source$1,id$0)]); + if(id$0) + {var id$1=id$0[1]; + if(caml_call2(Stdlib_string[22],id$1,47)) + {var + _hr_= + [0, + Cannot_parse, + 0, + [0, + Bad_reference, + caml_call2(Stdlib[28],id$1,cst_is_not_a_valid_ID)]]; + throw caml_call1(at_field(cst_id$1),_hr_)} + var id$2=[0,id$1]} + else + var id$2=0; + var match$0=opt_field_view(json,cst_type$7); + if(match$0) + {var _hs_=match$0[1],switch$0=0; + if(typeof _hs_ !== "number") + {var _hu_=_hs_[1],switch$1=0; + if(-976970511 === _hu_) + var + name=_hs_[2], + _hv_=[0,element(parse_element_kind(source$1,json,name))]; + else + if(65 === _hu_) + {var _hz_=_hs_[2]; + if(! _hz_) + {var _hA_=unexpected(_hs_,cst_type_type_array_or_operato$0); + throw caml_call1(at_field(cst_type$11),_hA_)} + var + items= + function(i,acc,param) + {var i$0=i,acc$0=acc,param$0=param; + for(;;) + {if(param$0) + {var _hI_=param$0[1]; + if(typeof _hI_ !== "number" && -976970511 === _hI_[1]) + {var + tl=param$0[2], + name=_hI_[2], + kind=parse_element_kind(source$1,json,name), + case$0=element(kind), + acc$1=[0,case$0,acc$0], + i$1=i$0 + 1 | 0, + i$0=i$1, + acc$0=acc$1, + param$0=tl; + continue} + var + _hJ_=unexpected(_hI_,cst_type$9), + _hK_=caml_call1(at_index(i$0),_hJ_); + throw caml_call1(at_field(cst_type$10),_hK_)} + var kind$0=[3,0,caml_call1(Stdlib_list[9],acc$0)]; + return [0,element(kind$0)]}}, + _hv_=items(0,0,caml_call2(Stdlib_list[17],_gv_[1],_hz_))} + else + switch$1 = 1; + if(! switch$1){var as_kind=_hv_;switch$0 = 1}} + if(! switch$0) + {var _ht_=unexpected(_hs_,cst_type_type_array_or_operato); + throw caml_call1(at_field(cst_type$8),_ht_)}} + else + var as_kind=0; + var match$1=opt_uri_field(json,cst_ref$2); + if(match$1) + var + uri$1=match$1[1], + path=collect_definition(uri$1), + as_ref=[0,element(path)]; + else + var as_ref=0; + function as_nary(name,combinator,others) + {function build(cases) + {if(cases) + {if(cases[2]) + {var kind=[3,combinator,cases];return [0,element(kind)]} + var case$0=cases[1]; + return [0,case$0]} + return 0} + var match=opt_field_view(json,name); + if(match) + {var _hD_=match[1]; + if(typeof _hD_ !== "number" && 65 === _hD_[1]) + {var _hF_=_hD_[2]; + if(_hF_) + {var + items= + function(i,acc,param) + {var i$0=i,acc$0=acc,param$0=param; + for(;;) + {if(param$0) + {var tl=param$0[2],elt=param$0[1]; + try + {var elt$0=parse_element(source$1,elt)} + catch(err$0) + {err$0 = caml_wrap_exception(err$0); + var _hG_=caml_call1(at_index(i$0),err$0); + throw caml_call1(at_field(name),_hG_); + var err=err$0} + var + acc$1=[0,elt$0,acc$0], + i$1=i$0 + 1 | 0, + i$0=i$1, + acc$0=acc$1, + param$0=tl; + continue} + var _hH_=caml_call1(Stdlib_list[9],acc$0); + return build(caml_call2(Stdlib[37],others,_hH_))}}; + return items(0,0,_hF_)}} + var _hE_=unexpected(_hD_,cst_a_list_of_elements); + throw caml_call1(at_field(name),_hE_)} + return build(others)} + var match$2=opt_field_view(json,cst_not$0); + if(match$2) + {var elt=match$2[1]; + try + {var elt$0=parse_element(source$1,caml_call1(_gv_[2],elt))} + catch(err) + {err = caml_wrap_exception(err); + throw caml_call1(at_field(cst_not$1),err)} + var kind=[3,3,[0,elt$0,0]],as_not=[0,element(kind)]} + else + var as_not=0; + var + title=opt_string_field(json,cst_title$0), + description=opt_string_field(json,cst_description$0), + match=caml_call1(_gv_[1],json), + switch$2=0; + if(typeof match === "number" || ! (79 === match[1])) + switch$2 = 1; + else + {var ls=match[2]; + try + {var switch$3=0,_hp_=[0,caml_call2(Stdlib_list[39],n,ls)]} + catch(_hC_) + {_hC_ = caml_wrap_exception(_hC_); + if(_hC_ !== Stdlib[8])throw _hC_; + var match$3=0; + switch$3 = 1} + if(! switch$3)var match$3=_hp_} + if(switch$2)var match$3=0; + if(match$3) + var v=match$3[1],default$0=[0,[0,_gv_,v]]; + else + var default$0=0; + var match$4=opt_array_field(json,cst_enum$0); + if(match$4) + var + v$0=match$4[1], + _hw_=function(_hB_){return [0,_gv_,_hB_]}, + enum$0=[0,caml_call2(Stdlib_list[17],_hw_,v$0)]; + else + var enum$0=0; + var + format=opt_string_field(json,cst_format$0), + as_one_of=as_nary(cst_oneOf$0,1,0), + as_any_of=as_nary(cst_anyOf$0,0,0), + all=[0,as_kind,[0,as_ref,[0,as_not,[0,as_one_of,[0,as_any_of,0]]]]]; + function _hx_(param) + {if(param){var e=param[1];return [0,e,0]}return 0} + var + _hy_=caml_call2(Stdlib_list[17],_hx_,all), + cases=caml_call1(Stdlib_list[14],_hy_), + match$5=as_nary(cst_allOf$0,2,cases); + if(match$5) + var match$6=match$5[1],kind$0=match$6[5],kind$1=kind$0; + else + var kind$1=2; + return [0,title,description,default$0,enum$0,kind$1,format,id$2]} + function parse_element_kind(source,json,name) + {function integer_specs(json) + {var multiple_of=opt_int_field(json,cst_multipleOf$1); + if(opt_bool_field(0,json,cst_exclusiveMinimum$1)) + {var match=opt_int_field(json,cst_minimum$3); + if(! match)throw [0,Stdlib[7],err$0]; + var v=match[1],minimum=[0,[0,v,672226188]]} + else + {var match$2=opt_int_field(json,cst_minimum$4); + if(match$2) + var v$2=match$2[1],_ho_=[0,[0,v$2,407121086]]; + else + var _ho_=0; + var minimum=_ho_} + if(opt_bool_field(0,json,cst_exclusiveMaximum$1)) + {var match$0=opt_int_field(json,cst_maximum$3); + if(! match$0)throw [0,Stdlib[7],err]; + var v$0=match$0[1],maximum=[0,[0,v$0,672226188]]} + else + {var match$1=opt_int_field(json,cst_maximum$4); + if(match$1) + var v$1=match$1[1],_hn_=[0,[0,v$1,407121086]]; + else + var _hn_=0; + var maximum=_hn_} + return [0,multiple_of,minimum,maximum]} + function numeric_specs(json) + {var multiple_of=opt_float_field(json,cst_multipleOf$2); + if(opt_bool_field(0,json,cst_exclusiveMinimum$2)) + {var match=opt_float_field(json,cst_minimum$5); + if(! match)throw [0,Stdlib[7],err$2]; + var v=match[1],minimum=[0,[0,v,672226188]]} + else + {var match$2=opt_float_field(json,cst_minimum$6); + if(match$2) + var v$2=match$2[1],_hm_=[0,[0,v$2,407121086]]; + else + var _hm_=0; + var minimum=_hm_} + if(opt_bool_field(0,json,cst_exclusiveMaximum$2)) + {var match$0=opt_float_field(json,cst_maximum$5); + if(! match$0)throw [0,Stdlib[7],err$1]; + var v$0=match$0[1],maximum=[0,[0,v$0,672226188]]} + else + {var match$1=opt_float_field(json,cst_maximum$6); + if(match$1) + var v$1=match$1[1],_hl_=[0,[0,v$1,407121086]]; + else + var _hl_=0; + var maximum=_hl_} + return [0,multiple_of,minimum,maximum]} + if(caml_string_notequal(name,cst_array$1)) + {if(caml_string_notequal(name,cst_boolean$0)) + {if(caml_string_notequal(name,cst_integer$0)) + {if(caml_string_notequal(name,cst_null$0)) + {if(caml_string_notequal(name,cst_number$1)) + {if(caml_string_notequal(name,cst_object$0)) + {if(caml_string_notequal(name,cst_string$1)) + throw [0, + Cannot_parse, + 0, + [0,Unexpected,name,cst_a_known_type]]; + var + pattern=opt_string_field(json,cst_pattern$0), + min_length=opt_length_field(json,cst_minLength$0), + max_length=opt_length_field(json,cst_maxLength$0); + if(min_length) + var l=min_length[1],min_length$0=l; + else + var min_length$0=0; + var specs=[0,pattern,min_length$0,max_length]; + return [7,specs]} + var match=opt_array_field(json,cst_required$0); + if(match) + var + l$0=match[1], + items= + function(i,acc,param) + {var i$0=i,acc$0=acc,param$0=param; + for(;;) + {if(param$0) + {var _hi_=param$0[1]; + if(typeof _hi_ !== "number" && -976970511 === _hi_[1]) + {var + param$1=param$0[2], + s=_hi_[2], + acc$1=[0,s,acc$0], + i$1=i$0 + 1 | 0, + i$0=i$1, + acc$0=acc$1, + param$0=param$1; + continue} + var + _hj_=unexpected(_hi_,cst_string$2), + _hk_=caml_call1(at_index(i$0),_hj_); + throw caml_call1(at_field(cst_required$1),_hk_)} + return caml_call1(Stdlib_list[9],acc$0)}}, + required=items(0,0,caml_call2(Stdlib_list[17],_gv_[1],l$0)); + else + var required=0; + var match$0=opt_field_view(json,cst_properties$0); + if(match$0) + {var _gW_=match$0[1],switch$0=0; + if(typeof _gW_ !== "number" && 79 === _gW_[1]) + {var props=_gW_[2],acc=0,param=props; + for(;;) + {if(param) + {var + tl=param[2], + match$1=param[1], + elt=match$1[2], + n=match$1[1]; + try + {var elt$0=parse_element(source,elt)} + catch(err) + {err = caml_wrap_exception(err); + var _gY_=caml_call1(at_field(n),err); + throw caml_call1(at_field(cst_properties$2),_gY_); + var err$3=err} + var + req=caml_call2(Stdlib_list[32],n,required), + acc$0=[0,[0,n,elt$0,req,0],acc], + acc=acc$0, + param=tl; + continue} + var properties=caml_call1(Stdlib_list[9],acc); + switch$0 = 1; + break}} + if(! switch$0) + {var _gX_=unexpected(_gW_,cst_object$1); + throw caml_call1(at_field(cst_properties$1),_gX_)}} + else + var properties=0; + var + match$2=opt_field_view(json,cst_additionalProperties$0), + switch$1=0; + if(match$2) + {var _gZ_=match$2[1],switch$2=0; + if(typeof _gZ_ !== "number" && 737456202 === _gZ_[1]) + if(0 === _gZ_[2]){var _g0_=0;switch$2 = 1}else switch$2 = 2; + var switch$3=0; + switch(switch$2) + {case 2:switch$3 = 1;break; + case 0: + try + {var elt$1=parse_element(source,caml_call1(_gv_[2],_gZ_))} + catch(err) + {err = caml_wrap_exception(err); + throw caml_call1(at_field(cst_additionalProperties$1),err)} + var _g0_=[0,elt$1]; + break + } + if(! switch$3){var additional_properties=_g0_;switch$1 = 1}} + if(! switch$1)var additional_properties=[0,element(2)]; + var match$3=opt_field_view(json,cst_propertyDependencies$0); + if(match$3) + {var _g1_=match$3[1],switch$4=0; + if(typeof _g1_ !== "number" && 79 === _g1_[1]) + {var + l$1=_g1_[2], + sets= + function(sacc,param) + {var sacc$0=sacc,param$0=param; + a: + for(;;) + {if(param$0) + {var _g$_=param$0[1],_ha_=_g$_[2],_hb_=_g$_[1]; + if(typeof _ha_ !== "number" && 65 === _ha_[1]) + {var + tl=param$0[2], + l=_ha_[2], + param$3=caml_call2(Stdlib_list[17],_gv_[1],l), + j=0, + acc=0, + param$1=param$3; + for(;;) + {if(param$1) + {var _he_=param$1[1]; + if(typeof _he_ !== "number" && -976970511 === _he_[1]) + {var + param$2=param$1[2], + s=_he_[2], + acc$0=[0,s,acc], + j$0=j + 1 | 0, + j=j$0, + acc=acc$0, + param$1=param$2; + continue} + var + _hf_=unexpected(_he_,cst_string$3), + _hg_=caml_call1(at_index(j),_hf_), + _hh_=caml_call1(at_field(_hb_),_hg_); + throw caml_call1(at_field(cst_propertyDependencies$3),_hh_)} + var + sacc$1=[0,[0,_hb_,caml_call1(Stdlib_list[9],acc)],sacc$0], + sacc$0=sacc$1, + param$0=tl; + continue a}} + var + _hc_=unexpected(_ha_,cst_string_array), + _hd_=caml_call1(at_field(_hb_),_hc_); + throw caml_call1(at_field(cst_propertyDependencies$2),_hd_)} + return caml_call1(Stdlib_list[9],sacc$0)}}, + _g3_= + function(param) + {var v=param[2],n=param[1]; + return [0,n,caml_call1(_gv_[1],v)]}, + property_dependencies= + sets(0,caml_call2(Stdlib_list[17],_g3_,l$1)); + switch$4 = 1} + if(! switch$4) + {var _g2_=unexpected(_g1_,cst_object$2); + throw caml_call1(at_field(cst_propertyDependencies$1),_g2_)}} + else + var property_dependencies=0; + var + parse_element_assoc= + function(field) + {var match=opt_field_view(json,field); + if(match) + {var _g8_=match[1]; + if(typeof _g8_ !== "number" && 79 === _g8_[1]) + {var + props=_g8_[2], + items= + function(acc,param) + {var acc$0=acc,param$0=param; + for(;;) + {if(param$0) + {var tl=param$0[2],match=param$0[1],elt=match[2],n=match[1]; + try + {var elt$0=parse_element(source,elt)} + catch(err$0) + {err$0 = caml_wrap_exception(err$0); + var _g__=caml_call1(at_field(n),err$0); + throw caml_call1(at_field(field),_g__); + var err=err$0} + var acc$1=[0,[0,n,elt$0],acc$0],acc$0=acc$1,param$0=tl; + continue} + return caml_call1(Stdlib_list[9],acc$0)}}; + return items(0,props)} + var _g9_=unexpected(_g8_,cst_object$3); + throw caml_call1(at_field(field),_g9_)} + return 0}, + pattern_properties= + parse_element_assoc(cst_patternProperties$0), + schema_dependencies= + parse_element_assoc(cst_schemaDependencies$0), + match$4=opt_length_field(json,cst_minProperties$0); + if(match$4) + var l$2=match$4[1],min_properties=l$2; + else + var min_properties=0; + var + max_properties= + opt_length_field(json,cst_maxProperties$0); + return [0, + [0, + properties, + pattern_properties, + additional_properties, + min_properties, + max_properties, + schema_dependencies, + property_dependencies]]} + return [9,numeric_specs(json)]} + return 1} + return [8,integer_specs(json)]} + return 0} + var + unique_items=opt_bool_field(0,json,cst_uniqueItems$1), + min_items=opt_length_field(json,cst_minItems$1), + max_items=opt_length_field(json,cst_maxItems$1); + if(min_items) + var l$3=min_items[1],min_items$0=l$3; + else + var min_items$0=0; + var match$5=opt_field_view(json,cst_additionalItems$0),switch$5=0; + if(match$5) + {var _g4_=match$5[1],switch$6=0; + if(typeof _g4_ !== "number" && 737456202 === _g4_[1]) + if(0 === _g4_[2]) + switch$6 = 2; + else + {var _g5_=[0,min_items$0,max_items,unique_items,[0,element(2)]]; + switch$6 = 1} + var switch$7=0; + switch(switch$6) + {case 2:switch$7 = 1;break; + case 0: + try + {var elt$2=parse_element(source,caml_call1(_gv_[2],_g4_))} + catch(err) + {err = caml_wrap_exception(err); + throw caml_call1(at_field(cst_additionalItems$1),err)} + var _g5_=[0,min_items$0,max_items,unique_items,[0,elt$2]]; + break + } + if(! switch$7){var specs$0=_g5_;switch$5 = 1}} + if(! switch$5)var specs$0=[0,min_items$0,max_items,unique_items,0]; + var match$6=opt_field_view(json,cst_items$1); + if(match$6) + {var _g6_=match$6[1]; + if(typeof _g6_ !== "number" && 65 === _g6_[1]) + {var elts=_g6_[2],i=0,acc$1=0,param$0=elts; + for(;;) + {if(param$0) + {var tl$0=param$0[2],elt$4=param$0[1]; + try + {var elt$5=parse_element(source,elt$4)} + catch(err) + {err = caml_wrap_exception(err); + var _g7_=caml_call1(at_index(i),err); + throw caml_call1(at_field(cst_items$3),_g7_); + var err$4=err} + var + acc$2=[0,elt$5,acc$1], + i$0=i + 1 | 0, + i=i$0, + acc$1=acc$2, + param$0=tl$0; + continue} + return [1,caml_call1(Stdlib_list[9],acc$1),specs$0]}} + try + {var elt$3=parse_element(source,caml_call1(_gv_[2],_g6_))} + catch(err) + {err = caml_wrap_exception(err); + throw caml_call1(at_field(cst_items$2),err)} + return [2,elt$3,specs$0]} + return [2,element(2),specs$0]} + var root=parse_element(Uri[1],json); + try + {var + switch$0=0, + _gQ_=caml_call2(Query[1],_bB_,json), + val=caml_call1(_gv_[1],_gQ_); + switch$0 = 1} + catch(_gV_) + {_gV_ = caml_wrap_exception(_gV_);if(_gV_ !== Stdlib[8])throw _gV_} + if(switch$0) + {var switch$1=0; + if(typeof val !== "number" && 79 === val[1]) {var - i$1=i + 4 | 0, - acc$2= - caml_call3(f,acc$0,i,r_utf_16_lo(hi,s$0,i + 2 | 0,i + 3 | 0)), - acc$0=acc$2, - i=i$1; - continue} - return caml_call3(f,acc$0,i,malformed(s$0,i,rem))} - return caml_call3(f,acc$0,i,malformed(s$0,i,1))}} - function fold_utf_16le(opt,len,f,acc,s) - {if(opt)var sth=opt[1],pos=sth;else var pos=0; - if(len) - var l=len[1],len$0=l; - else - var len$0=caml_ml_string_length(s) - pos | 0; + all=val[2], + _gR_= + function(param) + {var + n=param[1], + _gU_=caml_call2(Stdlib[28],cst_definitions$0,n); + return caml_call1(Uri[6],_gU_)}, + all$0=caml_call2(Stdlib_list[17],_gR_,all), + _gS_=function(uri){collect_definition(uri);return 0}; + caml_call2(Stdlib_list[15],_gS_,all$0); + switch$1 = 1}} + var _gO_=collected_id_refs[1]; + function _gP_(id) + {var _gT_=1 - caml_call2(Stdlib_list[43],id,ids); + if(_gT_) + throw [0, + Cannot_parse, + 0, + [0,Dangling_reference,caml_call2(Uri[41],Uri[1],[0,id])]]; + return _gT_} + caml_call2(Stdlib_list[15],_gP_,_gO_); + var definitions=collected_definitions[1]; + return [0,root,schema_source,definitions,ids,0]} + function check_definitions(root,definitions) + {var collected_id_defs=[0,0],collected_id_refs=[0,0]; + function check(elt) + {var elt$0=elt; + for(;;) + {var id=elt$0[7],kind=elt$0[5]; + if(id) + {var id$0=id[1]; + collected_id_defs[1] = [0,[0,id$0,elt$0],collected_id_defs[1]]} + if(typeof kind !== "number") + switch(kind[0]) + {case 0: + var + match=kind[1], + schema_dependencies=match[6], + additional_properties=match[3], + pattern_properties=match[2], + properties=match[1], + _gK_=function(param){var e=param[2];return check(e)}; + caml_call2(Stdlib_list[15],_gK_,properties); + var _gL_=function(param){var e=param[2];return check(e)}; + caml_call2(Stdlib_list[15],_gL_,pattern_properties); + var _gM_=function(param){var e=param[2];return check(e)}; + caml_call2(Stdlib_list[15],_gM_,schema_dependencies); + if(additional_properties) + {var elt$1=additional_properties[1],elt$0=elt$1;continue} + return 0; + case 1: + var match$0=kind[2],additional_items=match$0[4],es=kind[1]; + caml_call2(Stdlib_list[15],check,es); + if(additional_items) + {var elt$2=additional_items[1],elt$0=elt$2;continue} + return 0; + case 2: + var match$1=kind[2],additional_items$0=match$1[4],e=kind[1]; + check(e); + if(additional_items$0) + {var elt$3=additional_items$0[1],elt$0=elt$3;continue} + return 0; + case 3: + var es$0=kind[2]; + return caml_call2(Stdlib_list[15],check,es$0); + case 4: + var path=kind[1],_gN_=1 - _bl_(path,definitions); + if(_gN_) + {var path$0=json_pointer_of_path(0,path); + throw [0, + Dangling_reference, + caml_call1(caml_call1(Uri[41],Uri[1]),[0,path$0])]} + return _gN_; + case 5: + var id$1=kind[1]; + collected_id_refs[1] = [0,id$1,collected_id_refs[1]]; + return 0 + } + return 0}} + check(root); + function _gG_(param){var root=param[2];return check(root)} + caml_call2(Stdlib_list[15],_gG_,definitions); + var _gH_=collected_id_refs[1]; + function _gI_(id) + {var _gJ_=1 - caml_call2(Stdlib_list[43],id,collected_id_defs[1]); + if(_gJ_) + throw [0,Dangling_reference,caml_call2(Uri[41],Uri[1],[0,id])]; + return _gJ_} + caml_call2(Stdlib_list[15],_gI_,_gH_); + return collected_id_defs[1]} + function create(root) + {var ids=check_definitions(root,0);return [0,root,Uri[1],0,ids,0]} + function root(param){var root=param[1];return root} + function update(root,sch) + {var ids=check_definitions(root,sch[3]); + return [0,root,sch[2],sch[3],ids,sch[5]]} var - last=(pos + len$0 | 0) - 1 | 0, - s$0=caml_call1(Stdlib_bytes[43],s), - acc$0=acc, - i=pos; - for(;;) - {if(last < i)return acc$0; - var rem=(last - i | 0) + 1 | 0; - if(2 <= rem) - {var v=r_utf_16(s$0,i + 1 | 0,i); - if(659980059 <= v[1]) - {var i$0=i + 2 | 0,acc$1=caml_call3(f,acc$0,i,v),acc$0=acc$1,i=i$0; - continue} - var hi=v[2]; - if(4 <= rem) + sacc=create(element(2)), + _gw_=Uri[1], + self=[0,element([6,caml_call1(Uri[6],version)]),_gw_,0,0,0]; + function simplify(schema) + {var res=[0,0]; + function collect(param) + {var param$0=param; + for(;;) + {var kind=param$0[5]; + if(typeof kind !== "number") + switch(kind[0]) + {case 0: + var + match=kind[1], + schema_dependencies=match[6], + additional_properties=match[3], + pattern_properties=match[2], + properties=match[1], + _gD_=function(param){var e=param[2];return collect(e)}; + caml_call2(Stdlib_list[15],_gD_,properties); + var _gE_=function(param){var e=param[2];return collect(e)}; + caml_call2(Stdlib_list[15],_gE_,pattern_properties); + var _gF_=function(param){var e=param[2];return collect(e)}; + caml_call2(Stdlib_list[15],_gF_,schema_dependencies); + if(additional_properties) + {var param$1=additional_properties[1],param$0=param$1; + continue} + return 0; + case 1: + var match$0=kind[2],additional_items=match$0[4],es=kind[1]; + caml_call2(Stdlib_list[15],collect,es); + if(additional_items) + {var param$2=additional_items[1],param$0=param$2;continue} + return 0; + case 2: + var match$1=kind[2],additional_items$0=match$1[4],e=kind[1]; + collect(e); + if(additional_items$0) + {var param$3=additional_items$0[1],param$0=param$3;continue} + return 0; + case 3: + var es$0=kind[2]; + return caml_call2(Stdlib_list[15],collect,es$0); + case 4: + var path=kind[1],def=_bk_(path,schema[3]); + res[1] = insert_definition(path,def,res[1]); + return 0 + } + return 0}} + collect(schema[1]); + return [0,schema[1],schema[2],res[1],schema[4],schema[5]]} + function definition_path_of_name(opt,name) + {if(opt) + var sth=opt[1],definitions_path=sth; + else + var definitions_path=cst_definitions$1; + try + {var val=caml_string_get(name,0)} + catch(_gC_){throw [0,Bad_reference,name]} + var + name$0= + 47 === val?name:caml_call2(Stdlib[28],definitions_path,name); + return path_of_json_pointer(_bC_,name$0)} + function find_definition(definitions_path,name,schema) + {var path=definition_path_of_name(definitions_path,name); + return _bk_(path,schema[3])} + function definition_ref(definitions_path,name) + {var path=definition_path_of_name(definitions_path,name); + return element([4,path])} + function definition_exists(definitions_path,name,schema) + {var path=definition_path_of_name(definitions_path,name); + return _bl_(path,schema[3])} + function add_definition(definitions_path,name,elt,schema) + {var + path=definition_path_of_name(definitions_path,name), + definitions=insert_definition(path,elt,schema[3]), + _gB_=element([4,path]); + return [0, + [0,schema[1],schema[2],definitions,schema[4],schema[5]], + _gB_]} + function merge_definitions(param) + {var sb=param[2],sa=param[1]; + function sorted_merge(rem) + {if(rem) + {var _gA_=rem[2]; + if(_gA_) + {var + tl=_gA_[2], + b=_gA_[1], + db=b[2], + nb=b[1], + a=rem[1], + da=a[2], + na=a[1]; + if(caml_equal(na,nb)) + {if(3 !== da[5] && 3 !== db[5] && ! eq_element(da,db)) + throw [0,Duplicate_definition,na,da,db]; + return [0,[0,na,da],sorted_merge(tl)]} + return [0,a,sorted_merge([0,b,tl])]}} + return rem} + var + _gz_=caml_call2(Stdlib[37],sa[3],sb[3]), + definitions= + sorted_merge(caml_call2(Stdlib_list[49],caml_compare,_gz_)); + return [0, + [0,sa[1],sa[2],definitions,sa[4],sa[5]], + [0,sb[1],sb[2],definitions,sb[4],sb[5]]]} + function combine(op,param) + {var sacc$0=sacc,eacc=0,param$0=param; + for(;;) + {if(param$0) {var - i$1=i + 4 | 0, - acc$2= - caml_call3(f,acc$0,i,r_utf_16_lo(hi,s$0,i + 3 | 0,i + 2 | 0)), - acc$0=acc$2, - i=i$1; + ss=param$0[2], + s=param$0[1], + match=merge_definitions([0,sacc$0,s]), + s$0=match[2], + sacc$1=match[1], + eacc$0=[0,s$0[1],eacc], + sacc$0=sacc$1, + eacc=eacc$0, + param$0=ss; continue} - return caml_call3(f,acc$0,i,malformed(s$0,i,rem))} - return caml_call3(f,acc$0,i,malformed(s$0,i,1))}} - var String=[0,encoding_guess,fold_utf_8,fold_utf_16be,fold_utf_16le]; - function add_utf_8(b,u) - {var u$0=caml_call1(Stdlib_uchar[10],u); - function w(byte$0){return caml_call2(Stdlib_buffer[10],b,byte$0)} - return 127 < u$0 - ?2047 < u$0 - ?65535 < u$0 - ?(w(240 | u$0 >>> 18 | 0), - w(128 | (u$0 >>> 12 | 0) & 63), - w(128 | (u$0 >>> 6 | 0) & 63), - w(128 | u$0 & 63)) - :(w(224 | u$0 >>> 12 | 0), - w(128 | (u$0 >>> 6 | 0) & 63), - w(128 | u$0 & 63)) - :(w(192 | u$0 >>> 6 | 0),w(128 | u$0 & 63)) - :w(u$0)} - function add_utf_16be(b,u) - {var u$0=caml_call1(Stdlib_uchar[10],u); - function w(byte$0){return caml_call2(Stdlib_buffer[10],b,byte$0)} - if(65536 <= u$0) - {var - u$1=u$0 - 65536 | 0, - hi=55296 | u$1 >>> 10 | 0, - lo=56320 | u$1 & 1023; - w(hi >>> 8 | 0); - w(hi & 255); - w(lo >>> 8 | 0); - return w(lo & 255)} - w(u$0 >>> 8 | 0); - return w(u$0 & 255)} - function add_utf_16le(b,u) - {var u$0=caml_call1(Stdlib_uchar[10],u); - function w(byte$0){return caml_call2(Stdlib_buffer[10],b,byte$0)} - if(65536 <= u$0) - {var - u$1=u$0 - 65536 | 0, - hi=55296 | u$1 >>> 10 | 0, - lo=56320 | u$1 & 1023; - w(hi & 255); - w(hi >>> 8 | 0); - w(lo & 255); - return w(lo >>> 8 | 0)} - w(u$0 & 255); - return w(u$0 >>> 8 | 0)} - var - Buffer=[0,add_utf_8,add_utf_16be,add_utf_16le], - Uutf= - [0, - u_bom, - u_rep, - encoding_of_string, - encoding_to_string, - decoder, - decode, - decoder_encoding, - set_decoder_encoding, - decoder_line, - decoder_col, - decoder_byte_count, - decoder_count, - decoder_removed_bom, - decoder_src, - decoder_nln, - pp_decode, - encoder, - encode, - encoder_encoding, - encoder_dst, - Manual, - String, - Buffer]; - runtime.caml_register_global(66,Uutf,"Uutf"); + return update(element([3,op,eacc]),sacc$0)}} + function is_nullable(param) + {var ids=param[4],definitions=param[3],root=param[1]; + function nullable(param) + {var param$0=param; + for(;;) + {var kind=param$0[5],switch$0=0; + if(typeof kind === "number") + switch(kind) + {case 0:switch$0 = 1;break;case 3:break;default:return 1} + else + switch(kind[0]) + {case 3: + var _gx_=kind[1]; + if(2 === _gx_) + {var elts=kind[2]; + return caml_call2(Stdlib_list[28],nullable,elts)} + if(! (3 <= _gx_)) + {var elts$0=kind[2]; + return caml_call2(Stdlib_list[29],nullable,elts$0)} + var _gy_=kind[2]; + if(_gy_ && ! _gy_[2]) + {var elt=_gy_[1];return 1 - nullable(elt)} + break; + case 4: + var + path=kind[1], + param$1=caml_call2(Stdlib_list[39],path,definitions), + param$0=param$1; + continue; + case 5: + var + id=kind[1], + param$2=caml_call2(Stdlib_list[39],id,ids), + param$0=param$2; + continue; + default:switch$0 = 1} + if(switch$0)return 0; + throw [0,Assert_failure,_bD_]}} + return nullable(root)} + var object_specs=[0,0,0,[0,element(2)],0,0,0,0]; + return [0, + Query, + to_json, + unexpected, + at_path, + at_field, + at_index, + of_json, + check_definitions, + create, + root, + update, + sacc, + self, + simplify, + definition_path_of_name, + find_definition, + definition_ref, + definition_exists, + add_definition, + merge_definitions, + combine, + is_nullable, + array_specs, + object_specs, + string_specs, + numeric_specs]} + var + include$0=Make$0(Ezjsonm), + to_json=include$0[2], + of_json=include$0[7], + create=include$0[9], + root=include$0[10], + update=include$0[11], + any=include$0[12], + self=include$0[13], + simplify=include$0[14], + find_definition=include$0[16], + definition_ref=include$0[17], + definition_exists=include$0[18], + add_definition=include$0[19], + merge_definitions=include$0[20], + combine=include$0[21], + is_nullable=include$0[22], + array_specs$0=include$0[23], + object_specs=include$0[24], + string_specs$0=include$0[25], + numeric_specs$0=include$0[26], + Json_schema= + [0, + element, + create, + root, + update, + self, + any, + combine, + is_nullable, + merge_definitions, + simplify, + add_definition, + find_definition, + definition_exists, + definition_ref, + array_specs$0, + object_specs, + string_specs$0, + numeric_specs$0, + to_json, + of_json, + pp$0, + Cannot_parse, + Dangling_reference, + Bad_reference, + Unexpected, + Duplicate_definition, + print_error$0, + function(_gt_){var _gu_=Make$0(_gt_);return [0,_gu_[2],_gu_[7]]}]; + caml_register_global(463,Json_schema,"Json_schema"); + var + Unexpected$0=[248,cst_Json_encoding_Unexpected,caml_fresh_oo_id(0)], + No_case_matched=[248,cst_Json_encoding_No_case_matc,caml_fresh_oo_id(0)], + Bad_array_size=[248,cst_Json_encoding_Bad_array_si,caml_fresh_oo_id(0)], + Missing_field=[248,cst_Json_encoding_Missing_fiel,caml_fresh_oo_id(0)], + Unexpected_field=[248,cst_Json_encoding_Unexpected_f,caml_fresh_oo_id(0)], + Bad_schema=[248,cst_Json_encoding_Bad_schema,caml_fresh_oo_id(0)], + Cannot_destruct=[248,cst_Json_encoding_Cannot_destr,caml_fresh_oo_id(0)]; + function unexpected(kind,expected) + {if(typeof kind === "number") + var kind$0=cst_null$1; + else + {var _gp_=kind[1]; + if(65 === _gp_) + var _gq_=kind[2]?cst_array$2:cst_empty_array$0,_gr_=_gq_; + else + if(365180284 <= _gp_) + var _gr_=737456202 <= _gp_?cst_boolean$1:cst_number$2; + else + if(79 <= _gp_) + var _gs_=kind[2]?cst_object$4:cst_empty_object$0,_gr_=_gs_; + else + var _gr_=cst_string$4; + var kind$0=_gr_} + return [0,Cannot_destruct,[0,0,[0,Unexpected$0,kind$0,expected]]]} + function Make$1(Repr) + {function construct(enc,v) + {function construct(enc) + {var enc$0=enc; + for(;;) + if(typeof enc$0 === "number") + switch(enc$0) + {case 0: + return function(param){return caml_call1(Repr[2],870828711)}; + case 1:return function(param){return caml_call1(Repr[2],_bE_)}; + case 2:return function(param){return caml_call1(Repr[2],_bF_)}; + case 3: + return function(b){return caml_call1(Repr[2],[0,737456202,b])}; + default: + return function(s){return caml_call1(Repr[2],[0,-976970511,s])}} + else + switch(enc$0[0]) + {case 0: + var t=enc$0[1]; + return function(param) + {if(param){var v=param[1];return caml_call1(construct(t),v)} + return caml_call1(Repr[2],870828711)}; + case 1: + var str=enc$0[1]; + return function(param) + {return caml_call1(Repr[2],[0,-976970511,str])}; + case 2: + var + match=enc$0[1], + upper_bound=match[5], + lower_bound=match[4], + to_float=match[3], + int_name=match[1]; + return function(i) + {var + _gk_=caml_lessthan(i,lower_bound), + _gl_=_gk_ || caml_greaterthan(i,upper_bound); + if(_gl_) + {var + _gm_=caml_call2(Stdlib[28],int_name,cst_out_of_range), + _gn_=caml_call2(Stdlib[28],cst_Json_encoding_construct,_gm_); + caml_call1(Stdlib[1],_gn_)} + var _go_=[0,365180284,caml_call1(to_float,i)]; + return caml_call1(Repr[2],_go_)}; + case 3: + var _f4_=enc$0[1]; + if(_f4_) + {var + match$0=_f4_[1], + maximum=match$0[3], + minimum=match$0[2], + float_name=match$0[1], + _f5_=caml_call2(Stdlib[28],float_name,cst_out_of_range$0), + err= + caml_call2(Stdlib[28],cst_Json_encoding_construct$0,_f5_); + return function(float$0) + {var + _gi_=float$0 < minimum?1:0, + _gj_=_gi_ || (maximum < float$0?1:0); + if(_gj_)caml_call1(Stdlib[1],err); + return caml_call1(Repr[2],[0,365180284,float$0])}} + return function(float$0) + {return caml_call1(Repr[2],[0,365180284,float$0])}; + case 4: + var + t$0=enc$0[1], + w=function(v){return caml_call1(construct(t$0),v)}; + return function(arr) + {var + _gg_=caml_call2(Stdlib_array[15],w,arr), + _gh_=[0,65,caml_call1(Stdlib_array[11],_gg_)]; + return caml_call1(Repr[2],_gh_)}; + case 5: + var _f6_=enc$0[1]; + switch(_f6_[0]) + {case 0: + var t$1=_f6_[2],n=_f6_[1]; + return function(v) + {var _ge_=[0,79,[0,[0,n,caml_call1(construct(t$1),v)],0]]; + return caml_call1(Repr[2],_ge_)}; + case 1: + var t$2=_f6_[2],n$0=_f6_[1]; + return function(param) + {if(param) + {var + v=param[1], + _gd_=[0,79,[0,[0,n$0,caml_call1(construct(t$2),v)],0]]; + return caml_call1(Repr[2],_gd_)} + return caml_call1(Repr[2],_bG_)}; + default: + var d=_f6_[5],t$3=_f6_[2],n$1=_f6_[1]; + return function(v) + {var + _gf_= + caml_notequal(v,d) + ?[0,[0,n$1,caml_call1(construct(t$3),v)],0] + :0; + return caml_call1(Repr[2],[0,79,_gf_])}} + case 6: + var o2=enc$0[2],o1=enc$0[1]; + return function(param) + {var + v2=param[2], + v1=param[1], + _ga_=caml_call1(construct(o1),v1), + match=caml_call1(Repr[1],_ga_), + _gb_=caml_call1(construct(o2),v2), + match$0=caml_call1(Repr[1],_gb_); + if(typeof match === "number") + {if(870828711 === match)870828711 === match$0} + else + if + (79 + === + match[1] + && + typeof match$0 + !== + "number" + && + 79 + === + match$0[1]) + {var + l2=match$0[2], + l1=match[2], + _gc_=[0,79,caml_call2(Stdlib[37],l1,l2)]; + return caml_call1(Repr[2],_gc_)} + return caml_call1(Stdlib[1],cst_Json_encoding_construct_co)}; + case 7: + var t$4=enc$0[1]; + return function(v) + {var _f$_=[0,65,[0,caml_call1(construct(t$4),v),0]]; + return caml_call1(Repr[2],_f$_)}; + case 8: + var o2$0=enc$0[2],o1$0=enc$0[1]; + return function(param) + {var + v2=param[2], + v1=param[1], + _f8_=caml_call1(construct(o1$0),v1), + match=caml_call1(Repr[1],_f8_), + _f9_=caml_call1(construct(o2$0),v2), + match$0=caml_call1(Repr[1],_f9_); + if + (typeof match + !== + "number" + && + 65 + === + match[1] + && + typeof match$0 + !== + "number" + && + 65 + === + match$0[1]) + {var + l2=match$0[2], + l1=match[2], + _f__=[0,65,caml_call2(Stdlib[37],l1,l2)]; + return caml_call1(Repr[2],_f__)} + return caml_call1(Stdlib[1],cst_Json_encoding_construct_co$0)}; + case 9: + var match$1=enc$0[1],write=match$1[1]; + return function(j){return caml_call2(write,Repr,j)}; + case 10: + var t$5=enc$0[3],ffrom=enc$0[1]; + return function(v) + {var _f7_=caml_call1(ffrom,v); + return caml_call1(construct(t$5),_f7_)}; + case 11:var enc$1=enc$0[4],enc$0=enc$1;continue; + case 12: + var self=enc$0[4],enc$2=caml_call1(self,enc$0),enc$0=enc$2; + continue; + default: + var cases=enc$0[1]; + return function(v) + {var param=cases; + for(;;) + {if(param) + {var + rest=param[2], + match=param[1], + proj=match[4], + encoding=match[1], + match$0=caml_call1(proj,v); + if(match$0) + {var v$0=match$0[1]; + return caml_call1(construct(encoding),v$0)} + var param=rest; + continue} + return caml_call1 + (Stdlib[1],cst_Json_encoding_construct_co$1)}}}} + return caml_call1(construct(enc),v)} + function destruct(enc) + {var enc$0=enc; + for(;;) + if(typeof enc$0 === "number") + switch(enc$0) + {case 0: + return function(v) + {var k=caml_call1(Repr[1],v); + if(870828711 === k)return 0; + throw unexpected(k,cst_null$2)}; + case 1: + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && 79 === k[1]) + {var _fT_=k[2]; + if(! _fT_)return 0; + if(! _fT_[2]) + {var match=_fT_[1],f=match[1]; + throw [0,Cannot_destruct,[0,0,[0,Unexpected_field,f]]]}} + throw unexpected(k,cst_an_empty_object)}; + case 2:return function(v){caml_call1(Repr[1],v);return 0}; + case 3: + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && 737456202 === k[1]) + {var b=k[2];return b} + throw unexpected(k,cst_boolean$2)}; + default: + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && -976970511 === k[1]) + {var s=k[2];return s} + throw unexpected(k,cst_string$5)}} + else + switch(enc$0[0]) + {case 0: + var t=enc$0[1]; + return function(v) + {var match=caml_call1(Repr[1],v); + return 870828711 === match?0:[0,caml_call1(destruct(t),v)]}; + case 1: + var str=enc$0[1]; + return function(v) + {var x=caml_call1(Repr[1],v); + if(typeof x !== "number" && -976970511 === x[1]) + {var s=x[2];if(caml_string_equal(s,str))return 0} + throw unexpected(x,str)}; + case 2: + var + match=enc$0[1], + upper_bound=match[5], + lower_bound=match[4], + to_float=match[3], + of_float=match[2], + int_name=match[1], + lower_bound$0=caml_call1(to_float,lower_bound), + upper_bound$0=caml_call1(to_float,upper_bound); + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && 365180284 === k[1]) + {var + v$0=k[2], + match=caml_modf_float(v$0), + v$1=match[2], + rest=match[1]; + if(rest != 0.) + {var + _fZ_= + caml_call2 + (Stdlib[28],int_name,cst_cannot_have_a_fractional_p), + exn=[0,Stdlib[7],_fZ_]; + throw [0,Cannot_destruct,[0,0,exn]]} + var + _f0_=v$1 < lower_bound$0?1:0, + _f1_=_f0_ || (upper_bound$0 < v$1?1:0); + if(_f1_) + {var + _f2_=caml_call2(Stdlib[28],int_name,cst_out_of_range$1), + exn$0=[0,Stdlib[7],_f2_]; + throw [0,Cannot_destruct,[0,0,exn$0]]} + return caml_call1(of_float,v$1)} + throw unexpected(k,cst_number$3)}; + case 3: + var _fS_=enc$0[1]; + if(_fS_) + {var + match$0=_fS_[1], + maximum=match$0[3], + minimum=match$0[2], + float_name=match$0[1]; + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && 365180284 === k[1]) + {var f=k[2]; + if(! (f < minimum) && ! (maximum < f))return f; + var + _fY_=caml_call2(Stdlib[28],float_name,cst_out_of_range$2), + exn=[0,Stdlib[7],_fY_]; + throw [0,Cannot_destruct,[0,0,exn]]} + throw unexpected(k,cst_float)}} + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && 365180284 === k[1]) + {var f=k[2];return f} + throw unexpected(k,cst_float$0)}; + case 4: + var t$0=enc$0[1]; + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number") + {var _fU_=k[1]; + if(65 === _fU_) + {var + cells=k[2], + _fV_=caml_call1(Stdlib_array[12],cells), + _fW_= + function(i,cell) + {try + {var _fX_=caml_call1(destruct(t$0),cell);return _fX_} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn[1] === Cannot_destruct) + {var match=exn[2],err=match[2],path=match[1]; + throw [0,Cannot_destruct,[0,[0,[0,-784200974,i],path],err]]} + throw exn}}; + return caml_call2(Stdlib_array[16],_fW_,_fV_)} + if(79 === _fU_ && ! k[2])return [0]} + throw unexpected(k,cst_array$3)}; + case 5: + var d=destruct_obj(enc$0); + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && 79 === k[1]) + {var + fields=k[2], + match=caml_call1(d,fields), + ign=match[3], + rest=match[2], + r=match[1]; + if(rest) + {var match$0=rest[1],field=match$0[1]; + if(! ign)throw [0,Unexpected_field,field]} + return r} + throw unexpected(k,cst_object$5)}; + case 6: + var d$0=destruct_obj(enc$0); + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && 79 === k[1]) + {var + fields=k[2], + match=caml_call1(d$0,fields), + ign=match[3], + rest=match[2], + r=match[1]; + if(rest) + {var match$0=rest[1],field=match$0[1]; + if(! ign)throw [0,Unexpected_field,field]} + return r} + throw unexpected(k,cst_object$6)}; + case 7: + var match$1=destruct_tup(0,enc$0),i=match$1[2],r=match$1[1]; + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && 65 === k[1]) + {var + cells=k[2], + cells$0=caml_call1(Stdlib_array[12],cells), + len=cells$0.length - 1; + if(i !== cells$0.length - 1) + throw [0,Cannot_destruct,[0,0,[0,Bad_array_size,len,i]]]; + return caml_call1(r,cells$0)} + throw unexpected(k,cst_array$4)}; + case 8: + var match$2=destruct_tup(0,enc$0),i$0=match$2[2],r$0=match$2[1]; + return function(v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number" && 65 === k[1]) + {var + cells=k[2], + cells$0=caml_call1(Stdlib_array[12],cells), + len=cells$0.length - 1; + if(i$0 !== cells$0.length - 1) + throw [0,Cannot_destruct,[0,0,[0,Bad_array_size,len,i$0]]]; + return caml_call1(r$0,cells$0)} + throw unexpected(k,cst_array$5)}; + case 9: + var match$3=enc$0[1],read=match$3[2]; + return caml_call1(read,Repr); + case 10: + var t$1=enc$0[3],fto=enc$0[2]; + return function(v) + {return caml_call1(fto,caml_call1(destruct(t$1),v))}; + case 11:var enc$1=enc$0[4],enc$0=enc$1;continue; + case 12: + var self=enc$0[4],enc$2=caml_call1(self,enc$0),enc$0=enc$2; + continue; + default: + var cases=enc$0[1]; + return function(v) + {function do_cases(errs,param) + {var errs$0=errs,param$0=param; + for(;;) + {if(param$0) + {var + rest=param$0[2], + match=param$0[1], + inj=match[5], + encoding=match[1]; + try + {var _f3_=caml_call1(inj,caml_call1(destruct(encoding),v)); + return _f3_} + catch(err) + {err = caml_wrap_exception(err); + var errs$1=[0,err,errs$0],errs$0=errs$1,param$0=rest; + continue}} + throw [0, + Cannot_destruct, + [0,0,[0,No_case_matched,caml_call1(Stdlib_list[9],errs$0)]]]}} + return do_cases(0,cases)}}} + function destruct_tup(i,t) + {var t$0=t; + for(;;) + {if(typeof t$0 !== "number") + switch(t$0[0]) + {case 7: + var t$1=t$0[1],_fO_=i + 1 | 0; + return [0, + function(arr) + {try + {var + _fQ_=runtime.caml_check_bound(arr,i)[1 + i], + _fR_=caml_call1(destruct(t$1),_fQ_); + return _fR_} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn[1] === Cannot_destruct) + {var match=exn[2],err=match[2],path=match[1]; + throw [0,Cannot_destruct,[0,[0,[0,-784200974,i],path],err]]} + throw exn}}, + _fO_]; + case 8: + var + t2=t$0[2], + t1=t$0[1], + match=destruct_tup(i,t1), + i$0=match[2], + r1=match[1], + match$0=destruct_tup(i$0,t2), + i$1=match$0[2], + r2=match$0[1]; + return [0, + function(arr) + {var _fP_=caml_call1(r2,arr); + return [0,caml_call1(r1,arr),_fP_]}, + i$1]; + case 10: + var + t$2=t$0[3], + fto=t$0[2], + match$1=destruct_tup(i,t$2), + i$2=match$1[2], + r=match$1[1]; + return [0, + function(arr){return caml_call1(fto,caml_call1(r,arr))}, + i$2]; + case 11:var t$3=t$0[4],t$0=t$3;continue; + case 12:var self=t$0[4],t$4=caml_call1(self,t$0),t$0=t$4;continue + } + return caml_call1(Stdlib[1],cst_Json_encoding_destruct_con)}} + function destruct_obj(t) + {var t$0=t; + for(;;) + {var + assoc= + function(acc,n,param) + {var acc$0=acc,param$0=param; + for(;;) + {if(param$0) + {var rest=param$0[2],oth=param$0[1],v=oth[2],f=oth[1]; + if(caml_equal(n,f)) + return [0,v,caml_call2(Stdlib[37],acc$0,rest)]; + var acc$1=[0,oth,acc$0],acc$0=acc$1,param$0=rest; + continue} + throw Stdlib[8]}}; + if(typeof t$0 === "number") + switch(t$0) + {case 1:return function(fields){return [0,0,fields,0]}; + case 2:return function(fields){return [0,0,fields,1]} + } + else + switch(t$0[0]) + {case 5: + var _fJ_=t$0[1]; + switch(_fJ_[0]) + {case 0: + var t$1=_fJ_[2],n=_fJ_[1]; + return function(fields) + {try + {var + match$0=assoc(0,n,fields), + rest=match$0[2], + v=match$0[1], + _fM_=[0,caml_call1(destruct(t$1),v),rest,0]; + return _fM_} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn === Stdlib[8]) + throw [0,Cannot_destruct,[0,0,[0,Missing_field,n]]]; + if(exn[1] === Cannot_destruct) + {var match=exn[2],err=match[2],path=match[1]; + throw [0,Cannot_destruct,[0,[0,[0,331416730,n],path],err]]} + throw exn}}; + case 1: + var t$2=_fJ_[2],n$0=_fJ_[1]; + return function(fields) + {try + {var + match$0=assoc(0,n$0,fields), + rest=match$0[2], + v=match$0[1], + _fL_=[0,[0,caml_call1(destruct(t$2),v)],rest,0]; + return _fL_} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn === Stdlib[8])return [0,0,fields,0]; + if(exn[1] === Cannot_destruct) + {var match=exn[2],err=match[2],path=match[1]; + throw [0,Cannot_destruct,[0,[0,[0,331416730,n$0],path],err]]} + throw exn}}; + default: + var d=_fJ_[5],t$3=_fJ_[2],n$1=_fJ_[1]; + return function(fields) + {try + {var + match$0=assoc(0,n$1,fields), + rest=match$0[2], + v=match$0[1], + _fN_=[0,caml_call1(destruct(t$3),v),rest,0]; + return _fN_} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn === Stdlib[8])return [0,d,fields,0]; + if(exn[1] === Cannot_destruct) + {var match=exn[2],err=match[2],path=match[1]; + throw [0,Cannot_destruct,[0,[0,[0,331416730,n$1],path],err]]} + throw exn}}} + case 6: + var o2=t$0[2],o1=t$0[1],d1=destruct_obj(o1),d2=destruct_obj(o2); + return function(fields) + {var + match=caml_call1(d1,fields), + ign1=match[3], + rest=match[2], + r1=match[1], + match$0=caml_call1(d2,rest), + ign2=match$0[3], + rest$0=match$0[2], + r2=match$0[1], + ign1$0=ign1 || ign2; + return [0,[0,r1,r2],rest$0,ign1$0]}; + case 10: + var t$4=t$0[3],fto=t$0[2],d$0=destruct_obj(t$4); + return function(fields) + {var + match=caml_call1(d$0,fields), + ign=match[3], + rest=match[2], + r=match[1]; + return [0,caml_call1(fto,r),rest,ign]}; + case 11:var t$5=t$0[4],t$0=t$5;continue; + case 12: + var self=t$0[4],t$6=caml_call1(self,t$0),t$0=t$6;continue; + case 13: + var cases=t$0[1]; + return function(fields) + {function do_cases(errs,param) + {var errs$0=errs,param$0=param; + for(;;) + {if(param$0) + {var + rest=param$0[2], + match=param$0[1], + inj=match[5], + encoding=match[1]; + try + {var + match$0=caml_call1(destruct_obj(encoding),fields), + ign=match$0[3], + rest$0=match$0[2], + r=match$0[1], + _fK_=[0,caml_call1(inj,r),rest$0,ign]; + return _fK_} + catch(err) + {err = caml_wrap_exception(err); + var errs$1=[0,err,errs$0],errs$0=errs$1,param$0=rest; + continue}} + throw [0, + Cannot_destruct, + [0,0,[0,No_case_matched,caml_call1(Stdlib_list[9],errs$0)]]]}} + return do_cases(0,cases)} + } + return caml_call1(Stdlib[1],cst_Json_encoding_destruct_con$0)}} + function custom(write,read,schema) + {function read$0(Repr_f,repr) + {return caml_call1(read,convert(Repr_f,Repr,repr))} + function write$0(Repr_f,v) + {return convert(Repr,Repr_f,caml_call1(write,v))} + return [9,[0,write$0,read$0],schema]} + return [0,construct,destruct,custom]} + var Ezjsonm_encoding=Make$1(Ezjsonm); + function patch_description(title,description,elt) + {return title + ?description + ?[0,title,description,elt[3],elt[4],elt[5],elt[6],elt[7]] + :[0,title,elt[2],elt[3],elt[4],elt[5],elt[6],elt[7]] + :description + ?[0,elt[1],description,elt[3],elt[4],elt[5],elt[6],elt[7]] + :elt} + function schema(definitions_path,encoding) + {var sch=[0,any]; + function prod(l1,l2) + {if(l1) + {var + es=l1[2], + match=l1[1], + b1=match[2], + l1$0=match[1], + _fG_=prod(es,l2), + _fH_= + function(param) + {var b2=param[2],l2=param[1],b1$0=b1 || b2; + return [0,caml_call2(Stdlib[37],l1$0,l2),b1$0]}, + _fI_=caml_call2(Stdlib_list[17],_fH_,l2); + return caml_call2(Stdlib[37],_fI_,_fG_)} + return 0} + function object_schema(enc) + {var enc$0=enc; + for(;;) + {if(typeof enc$0 === "number") + switch(enc$0){case 1:return _bH_;case 2:return _bI_} + else + switch(enc$0[0]) + {case 5: + var _fB_=enc$0[1]; + switch(_fB_[0]) + {case 0: + var description=_fB_[4],title=_fB_[3],t=_fB_[2],n=_fB_[1]; + return [0, + [0, + [0, + [0,n,patch_description(title,description,schema(t)),1,0], + 0], + 0], + 0]; + case 1: + var + description$0=_fB_[4], + title$0=_fB_[3], + t$0=_fB_[2], + n$0=_fB_[1]; + return [0, + [0, + [0, + [0, + n$0, + patch_description(title$0,description$0,schema(t$0)), + 0, + 0], + 0], + 0], + 0]; + default: + var + d=_fB_[5], + description$1=_fB_[4], + title$1=_fB_[3], + t$1=_fB_[2], + n$1=_fB_[1], + d$0=[0,Ezjsonm,caml_call2(Ezjsonm_encoding[1],t$1,d)]; + return [0, + [0, + [0, + [0, + n$1, + patch_description(title$1,description$1,schema(t$1)), + 0, + [0,d$0]], + 0], + 0], + 0]} + case 6: + var o2=enc$0[2],o1=enc$0[1],_fC_=object_schema(o2); + return prod(object_schema(o1),_fC_); + case 10: + if(! enc$0[4]){var enc$1=enc$0[3],enc$0=enc$1;continue}break; + case 11:var enc$2=enc$0[4],enc$0=enc$2;continue; + case 12: + var self=enc$0[4],enc$3=caml_call1(self,enc$0),enc$0=enc$3; + continue; + case 13: + var _fD_=enc$0[1]; + if(_fD_) + {var + _fE_=function(param){var o=param[1];return object_schema(o)}, + _fF_=caml_call2(Stdlib_list[17],_fE_,_fD_); + return caml_call1(Stdlib_list[14],_fF_)} + return caml_call1(Stdlib[1],cst_Json_encoding_schema_empty) + } + return caml_call1(Stdlib[1],cst_Json_encoding_schema_conse)}} + function array_schema(enc) + {var enc$0=enc; + for(;;) + {if(typeof enc$0 !== "number") + switch(enc$0[0]) + {case 7:var t=enc$0[1];return [0,schema(t),0]; + case 8: + var + t2=enc$0[2], + t1=enc$0[1], + _fz_=array_schema(t2), + _fA_=array_schema(t1); + return caml_call2(Stdlib[37],_fA_,_fz_); + case 10: + if(! enc$0[4]){var enc$1=enc$0[3],enc$0=enc$1;continue}break; + case 11:var enc$2=enc$0[4],enc$0=enc$2;continue; + case 12: + var self=enc$0[4],enc$3=caml_call1(self,enc$0),enc$0=enc$3; + continue + } + return caml_call1(Stdlib[1],cst_Json_encoding_schema_conse$0)}} + function schema(o) + {var o$0=o; + for(;;) + if(typeof o$0 === "number") + switch(o$0) + {case 0:return element(1); + case 1: + return element + ([0, + [0, + object_specs[1], + object_specs[2], + 0, + object_specs[4], + object_specs[5], + object_specs[6], + object_specs[7]]]); + case 2:return element(2); + case 3:return element(0); + default:return element([7,string_specs$0])} + else + switch(o$0[0]) + {case 0: + var t=o$0[1],_fk_=[0,element(1),0]; + return element([3,1,[0,schema(t),_fk_]]); + case 1: + var + str=o$0[1], + init=element([7,string_specs$0]), + _fl_=init[7], + _fm_=init[6], + _fn_=init[5], + _fo_=[0,[0,to_any([0,-976970511,str]),0]]; + return [0,init[1],init[2],init[3],_fo_,_fn_,_fm_,_fl_]; + case 2: + var + match=o$0[1], + upper_bound=match[5], + lower_bound=match[4], + to_float=match[3], + minimum=[0,[0,caml_call1(to_float,lower_bound),672226188]], + maximum=[0,[0,caml_call1(to_float,upper_bound),672226188]]; + return element([8,[0,0,minimum,maximum]]); + case 3: + var _fp_=o$0[1]; + if(_fp_) + {var match$0=_fp_[1],maximum$0=match$0[3],minimum$0=match$0[2]; + return element + ([9, + [0, + 0, + [0,[0,minimum$0,672226188]], + [0,[0,maximum$0,672226188]]]])} + return element([9,numeric_specs$0]); + case 4: + var t$0=o$0[1];return element([2,schema(t$0),array_specs$0]); + case 5: + var more=object_schema(o$0); + if(more && ! more[2]) + {var + match$1=more[1], + ext=match$1[2], + properties=match$1[1], + additional_properties=ext?[0,element(2)]:0; + return element + ([0, + [0, + properties, + object_specs[2], + additional_properties, + object_specs[4], + object_specs[5], + object_specs[6], + object_specs[7]]])} + var + _fq_= + function(param) + {var + ext=param[2], + properties=param[1], + additional_properties=ext?[0,element(2)]:0; + return element + ([0, + [0, + properties, + object_specs[2], + additional_properties, + object_specs[4], + object_specs[5], + object_specs[6], + object_specs[7]]])}, + elements=caml_call2(Stdlib_list[17],_fq_,more); + return element([3,1,elements]); + case 6: + var more$0=object_schema(o$0); + if(more$0 && ! more$0[2]) + {var + match$2=more$0[1], + ext$0=match$2[2], + properties$0=match$2[1], + additional_properties$0=ext$0?[0,element(2)]:0; + return element + ([0, + [0, + properties$0, + object_specs[2], + additional_properties$0, + object_specs[4], + object_specs[5], + object_specs[6], + object_specs[7]]])} + var + _fr_= + function(param) + {var + ext=param[2], + properties=param[1], + additional_properties=ext?[0,element(2)]:0; + return element + ([0, + [0, + properties, + object_specs[2], + additional_properties, + object_specs[4], + object_specs[5], + object_specs[6], + object_specs[7]]])}, + elements$0=caml_call2(Stdlib_list[17],_fr_,more$0); + return element([3,1,elements$0]); + case 7:return element([1,array_schema(o$0),array_specs$0]); + case 8:return element([1,array_schema(o$0),array_specs$0]); + case 9: + var s=o$0[2]; + sch[1] = caml_call1(merge_definitions,[0,sch[1],s])[1]; + return caml_call1(root,s); + case 10: + var _fs_=o$0[4],_ft_=o$0[3]; + if(_fs_) + {var s$0=_fs_[1]; + sch[1] = caml_call1(merge_definitions,[0,sch[1],s$0])[1]; + return caml_call1(root,s$0)} + var o$0=_ft_; + continue; + case 11: + var + encoding=o$0[4], + description=o$0[3], + title=o$0[2], + name=o$0[1], + schema$0=patch_description(title,description,schema(encoding)), + match$3= + caml_call4 + (add_definition,definitions_path,name,schema$0,sch[1]), + def=match$3[2], + s$1=match$3[1]; + sch[1] = caml_call1(merge_definitions,[0,sch[1],s$1])[1]; + return def; + case 12: + var f=o$0[4],description$0=o$0[3],title$0=o$0[2],name$0=o$0[1]; + if(caml_call3(definition_exists,definitions_path,name$0,sch[1])) + var + _fu_=sch[1], + fake_schema= + caml_call2 + (update, + caml_call2(definition_ref,definitions_path,name$0), + _fu_); + else + var + _fw_=sch[1], + match$5= + caml_call4 + (add_definition,definitions_path,name$0,element(3),_fw_), + elt=match$5[2], + sch$0=match$5[1], + fake_schema=caml_call2(update,elt,sch$0); + var + _fv_=function(param){throw [0,Assert_failure,_bJ_]}, + fake_self= + [9, + [0,function(param,_fy_){throw [0,Assert_failure,_bK_]},_fv_], + fake_schema], + root$0= + patch_description + (title$0,description$0,schema(caml_call1(f,fake_self))), + match$4= + caml_call4 + (add_definition,definitions_path,name$0,root$0,sch[1]), + def$0=match$4[2], + nsch=match$4[1]; + sch[1] = nsch; + return def$0; + default: + var + cases=o$0[1], + _fx_= + function(param) + {var description=param[3],title=param[2],encoding=param[1]; + return patch_description(title,description,schema(encoding))}, + elements$1=caml_call2(Stdlib_list[17],_fx_,cases); + return element([3,1,elements$1])}} + var schema$0=schema(encoding); + return caml_call2(update,schema$0,sch[1])} + function req(title,description,n,t){return [0,n,t,title,description]} + function opt(title,description,n,t){return [1,n,t,title,description]} + function dft(title,description,n,t,d){return [2,n,t,title,description,d]} + function mu(name,title,description,self) + {return [12,name,title,description,self]} + var null$0=0,_bL_=1073741823,_bM_=-1073741824; + function _bN_(_fj_){return _fj_} + var int$0=[2,[0,cst_int,function(_fi_){return _fi_ | 0},_bN_,_bM_,_bL_]]; + function ranged_int(lower_bound,upper_bound,name) + {var _fc_=64 === Stdlib_sys[9]?1:0; + if(_fc_) + var + _fd_=lower_bound < -1073741824?1:0, + _fe_=_fd_ || (1073741823 < upper_bound?1:0); + else + var _fe_=_fc_; + if(_fe_)caml_call1(Stdlib[1],cst_Json_encoding_ranged_int_b); + function _ff_(_fh_){return _fh_} + return [2, + [0, + name, + function(_fg_){return _fg_ | 0}, + _ff_, + lower_bound, + upper_bound]]} + var + int53= + [2, + [0, + cst_int53, + caml_int64_of_float, + caml_int64_to_float, + caml_int64_neg(caml_int64_shift_left(_bP_,53)), + caml_int64_shift_left(_bO_,53)]]; + function ranged_int53(lower_bound,upper_bound,name) + {var + _fa_= + caml_lessthan + (lower_bound,caml_int64_neg(caml_int64_shift_left(_bQ_,53))), + _fb_= + _fa_ + || + caml_greaterthan(upper_bound,caml_int64_shift_left(_bR_,53)); + if(_fb_)caml_call1(Stdlib[1],cst_Json_encoding_ranged_int53); + return [2, + [0, + name, + caml_int64_of_float, + caml_int64_to_float, + lower_bound, + upper_bound]]} + var _bS_=Stdlib_int32[9],_bT_=Stdlib_int32[10]; + function _bU_(_e$_){return _e$_} + var + int32= + [2,[0,cst_int32,function(_e__){return _e__ | 0},_bU_,_bT_,_bS_]]; + function ranged_int32(lower_bound,upper_bound,name) + {function _e7_(_e9_){return _e9_} + return [2, + [0, + name, + function(_e8_){return _e8_ | 0}, + _e7_, + lower_bound, + upper_bound]]} + function ranged_float(minimum,maximum,float_name) + {return [3,[0,[0,float_name,minimum,maximum]]]} + var string=4; + function conv(ffrom,fto,schema,t){return [10,ffrom,fto,t,schema]} + var bytes=[10,Stdlib_bytes[6],Stdlib_bytes[5],string,0],bool=3; + function array(t){return [4,t]} + function obj1(f1){return [5,f1]} + function obj2(f1,f2){return [6,[5,f1],[5,f2]]} + function obj3(f1,f2,f3) + {var _e4_=[6,[5,f1],[6,[5,f2],[5,f3]]],_e5_=0; + function _e6_(param) + {var match=param[2],c=match[2],b=match[1],a=param[1];return [0,a,b,c]} + return [10, + function(param) + {var c=param[3],b=param[2],a=param[1];return [0,a,[0,b,c]]}, + _e6_, + _e4_, + _e5_]} + function obj4(f1,f2,f3,f4) + {var _e0_=[6,[5,f1],[6,[5,f2],[6,[5,f3],[5,f4]]]],_e1_=0; + function _e2_(param) + {var + _e3_=param[2], + match=_e3_[2], + d=match[2], + c=match[1], + b=_e3_[1], + a=param[1]; + return [0,a,b,c,d]} + return [10, + function(param) + {var d=param[4],c=param[3],b=param[2],a=param[1]; + return [0,a,[0,b,[0,c,d]]]}, + _e2_, + _e0_, + _e1_]} + function obj5(f1,f2,f3,f4,f5) + {var _eV_=[6,[5,f1],[6,[5,f2],[6,[5,f3],[6,[5,f4],[5,f5]]]]],_eW_=0; + function _eX_(param) + {var + _eY_=param[2], + _eZ_=_eY_[2], + match=_eZ_[2], + e=match[2], + d=match[1], + c=_eZ_[1], + b=_eY_[1], + a=param[1]; + return [0,a,b,c,d,e]} + return [10, + function(param) + {var e=param[5],d=param[4],c=param[3],b=param[2],a=param[1]; + return [0,a,[0,b,[0,c,[0,d,e]]]]}, + _eX_, + _eV_, + _eW_]} + function obj6(f1,f2,f3,f4,f5,f6) + {var + _eP_=[6,[5,f1],[6,[5,f2],[6,[5,f3],[6,[5,f4],[6,[5,f5],[5,f6]]]]]], + _eQ_=0; + function _eR_(param) + {var + _eS_=param[2], + _eT_=_eS_[2], + _eU_=_eT_[2], + match=_eU_[2], + f=match[2], + e=match[1], + d=_eU_[1], + c=_eT_[1], + b=_eS_[1], + a=param[1]; + return [0,a,b,c,d,e,f]} + return [10, + function(param) + {var + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,f]]]]]}, + _eR_, + _eP_, + _eQ_]} + function obj7(f1,f2,f3,f4,f5,f6,f7) + {var + rest=[6,[5,f6],[5,f7]], + _eI_=[6,[5,f1],[6,[5,f2],[6,[5,f3],[6,[5,f4],[6,[5,f5],rest]]]]], + _eJ_=0; + function _eK_(param) + {var + _eL_=param[2], + _eM_=_eL_[2], + _eN_=_eM_[2], + _eO_=_eN_[2], + match=_eO_[2], + g=match[2], + f=match[1], + e=_eO_[1], + d=_eN_[1], + c=_eM_[1], + b=_eL_[1], + a=param[1]; + return [0,a,b,c,d,e,f,g]} + return [10, + function(param) + {var + g=param[7], + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,[0,f,g]]]]]]}, + _eK_, + _eI_, + _eJ_]} + function obj8(f1,f2,f3,f4,f5,f6,f7,f8) + {var + rest=[6,[5,f6],[6,[5,f7],[5,f8]]], + _eA_=[6,[5,f1],[6,[5,f2],[6,[5,f3],[6,[5,f4],[6,[5,f5],rest]]]]], + _eB_=0; + function _eC_(param) + {var + _eD_=param[2], + _eE_=_eD_[2], + _eF_=_eE_[2], + _eG_=_eF_[2], + _eH_=_eG_[2], + match=_eH_[2], + h=match[2], + g=match[1], + f=_eH_[1], + e=_eG_[1], + d=_eF_[1], + c=_eE_[1], + b=_eD_[1], + a=param[1]; + return [0,a,b,c,d,e,f,g,h]} + return [10, + function(param) + {var + h=param[8], + g=param[7], + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,[0,f,[0,g,h]]]]]]]}, + _eC_, + _eA_, + _eB_]} + function obj9(f1,f2,f3,f4,f5,f6,f7,f8,f9) + {var + rest=[6,[5,f6],[6,[5,f7],[6,[5,f8],[5,f9]]]], + _er_=[6,[5,f1],[6,[5,f2],[6,[5,f3],[6,[5,f4],[6,[5,f5],rest]]]]], + _es_=0; + function _et_(param) + {var + _eu_=param[2], + _ev_=_eu_[2], + _ew_=_ev_[2], + _ex_=_ew_[2], + _ey_=_ex_[2], + _ez_=_ey_[2], + match=_ez_[2], + i=match[2], + h=match[1], + g=_ez_[1], + f=_ey_[1], + e=_ex_[1], + d=_ew_[1], + c=_ev_[1], + b=_eu_[1], + a=param[1]; + return [0,a,b,c,d,e,f,g,h,i]} + return [10, + function(param) + {var + i=param[9], + h=param[8], + g=param[7], + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,[0,f,[0,g,[0,h,i]]]]]]]]}, + _et_, + _er_, + _es_]} + function obj10(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10) + {var + rest=[6,[5,f6],[6,[5,f7],[6,[5,f8],[6,[5,f9],[5,f10]]]]], + _eh_=[6,[5,f1],[6,[5,f2],[6,[5,f3],[6,[5,f4],[6,[5,f5],rest]]]]], + _ei_=0; + function _ej_(param) + {var + _ek_=param[2], + _el_=_ek_[2], + _em_=_el_[2], + _en_=_em_[2], + _eo_=_en_[2], + _ep_=_eo_[2], + _eq_=_ep_[2], + match=_eq_[2], + j=match[2], + i=match[1], + h=_eq_[1], + g=_ep_[1], + f=_eo_[1], + e=_en_[1], + d=_em_[1], + c=_el_[1], + b=_ek_[1], + a=param[1]; + return [0,a,b,c,d,e,f,g,h,i,j]} + return [10, + function(param) + {var + j=param[10], + i=param[9], + h=param[8], + g=param[7], + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,[0,f,[0,g,[0,h,[0,i,j]]]]]]]]]}, + _ej_, + _eh_, + _ei_]} + function tup1(f1){return [7,f1]} + function tup2(f1,f2){return [8,[7,f1],[7,f2]]} + function tup3(f1,f2,f3) + {var _ee_=[8,[7,f1],[8,[7,f2],[7,f3]]],_ef_=0; + function _eg_(param) + {var match=param[2],c=match[2],b=match[1],a=param[1];return [0,a,b,c]} + return [10, + function(param) + {var c=param[3],b=param[2],a=param[1];return [0,a,[0,b,c]]}, + _eg_, + _ee_, + _ef_]} + function tup4(f1,f2,f3,f4) + {var _ea_=[8,[7,f1],[8,[7,f2],[8,[7,f3],[7,f4]]]],_eb_=0; + function _ec_(param) + {var + _ed_=param[2], + match=_ed_[2], + d=match[2], + c=match[1], + b=_ed_[1], + a=param[1]; + return [0,a,b,c,d]} + return [10, + function(param) + {var d=param[4],c=param[3],b=param[2],a=param[1]; + return [0,a,[0,b,[0,c,d]]]}, + _ec_, + _ea_, + _eb_]} + function tup5(f1,f2,f3,f4,f5) + {var _d7_=[8,[7,f1],[8,[7,f2],[8,[7,f3],[8,[7,f4],[7,f5]]]]],_d8_=0; + function _d9_(param) + {var + _d__=param[2], + _d$_=_d__[2], + match=_d$_[2], + e=match[2], + d=match[1], + c=_d$_[1], + b=_d__[1], + a=param[1]; + return [0,a,b,c,d,e]} + return [10, + function(param) + {var e=param[5],d=param[4],c=param[3],b=param[2],a=param[1]; + return [0,a,[0,b,[0,c,[0,d,e]]]]}, + _d9_, + _d7_, + _d8_]} + function tup6(f1,f2,f3,f4,f5,f6) + {var + _d1_=[8,[7,f1],[8,[7,f2],[8,[7,f3],[8,[7,f4],[8,[7,f5],[7,f6]]]]]], + _d2_=0; + function _d3_(param) + {var + _d4_=param[2], + _d5_=_d4_[2], + _d6_=_d5_[2], + match=_d6_[2], + f=match[2], + e=match[1], + d=_d6_[1], + c=_d5_[1], + b=_d4_[1], + a=param[1]; + return [0,a,b,c,d,e,f]} + return [10, + function(param) + {var + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,f]]]]]}, + _d3_, + _d1_, + _d2_]} + function tup7(f1,f2,f3,f4,f5,f6,f7) + {var + rest=[8,[7,f6],[7,f7]], + _dU_=[8,[7,f1],[8,[7,f2],[8,[7,f3],[8,[7,f4],[8,[7,f5],rest]]]]], + _dV_=0; + function _dW_(param) + {var + _dX_=param[2], + _dY_=_dX_[2], + _dZ_=_dY_[2], + _d0_=_dZ_[2], + match=_d0_[2], + g=match[2], + f=match[1], + e=_d0_[1], + d=_dZ_[1], + c=_dY_[1], + b=_dX_[1], + a=param[1]; + return [0,a,b,c,d,e,f,g]} + return [10, + function(param) + {var + g=param[7], + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,[0,f,g]]]]]]}, + _dW_, + _dU_, + _dV_]} + function tup8(f1,f2,f3,f4,f5,f6,f7,f8) + {var + rest=[8,[7,f6],[8,[7,f7],[7,f8]]], + _dM_=[8,[7,f1],[8,[7,f2],[8,[7,f3],[8,[7,f4],[8,[7,f5],rest]]]]], + _dN_=0; + function _dO_(param) + {var + _dP_=param[2], + _dQ_=_dP_[2], + _dR_=_dQ_[2], + _dS_=_dR_[2], + _dT_=_dS_[2], + match=_dT_[2], + h=match[2], + g=match[1], + f=_dT_[1], + e=_dS_[1], + d=_dR_[1], + c=_dQ_[1], + b=_dP_[1], + a=param[1]; + return [0,a,b,c,d,e,f,g,h]} + return [10, + function(param) + {var + h=param[8], + g=param[7], + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,[0,f,[0,g,h]]]]]]]}, + _dO_, + _dM_, + _dN_]} + function tup9(f1,f2,f3,f4,f5,f6,f7,f8,f9) + {var + rest=[8,[7,f6],[8,[7,f7],[8,[7,f8],[7,f9]]]], + _dD_=[8,[7,f1],[8,[7,f2],[8,[7,f3],[8,[7,f4],[8,[7,f5],rest]]]]], + _dE_=0; + function _dF_(param) + {var + _dG_=param[2], + _dH_=_dG_[2], + _dI_=_dH_[2], + _dJ_=_dI_[2], + _dK_=_dJ_[2], + _dL_=_dK_[2], + match=_dL_[2], + i=match[2], + h=match[1], + g=_dL_[1], + f=_dK_[1], + e=_dJ_[1], + d=_dI_[1], + c=_dH_[1], + b=_dG_[1], + a=param[1]; + return [0,a,b,c,d,e,f,g,h,i]} + return [10, + function(param) + {var + i=param[9], + h=param[8], + g=param[7], + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,[0,f,[0,g,[0,h,i]]]]]]]]}, + _dF_, + _dD_, + _dE_]} + function tup10(f1,f2,f3,f4,f5,f6,f7,f8,f9,f10) + {var + rest=[8,[7,f6],[8,[7,f7],[8,[7,f8],[8,[7,f9],[7,f10]]]]], + _dt_=[8,[7,f1],[8,[7,f2],[8,[7,f3],[8,[7,f4],[8,[7,f5],rest]]]]], + _du_=0; + function _dv_(param) + {var + _dw_=param[2], + _dx_=_dw_[2], + _dy_=_dx_[2], + _dz_=_dy_[2], + _dA_=_dz_[2], + _dB_=_dA_[2], + _dC_=_dB_[2], + match=_dC_[2], + j=match[2], + i=match[1], + h=_dC_[1], + g=_dB_[1], + f=_dA_[1], + e=_dz_[1], + d=_dy_[1], + c=_dx_[1], + b=_dw_[1], + a=param[1]; + return [0,a,b,c,d,e,f,g,h,i,j]} + return [10, + function(param) + {var + j=param[10], + i=param[9], + h=param[8], + g=param[7], + f=param[6], + e=param[5], + d=param[4], + c=param[3], + b=param[2], + a=param[1]; + return [0,a,[0,b,[0,c,[0,d,[0,e,[0,f,[0,g,[0,h,[0,i,j]]]]]]]]]}, + _dv_, + _dt_, + _du_]} + function repr_agnostic_custom(param,schema) + {var read=param[2],write=param[1];return [9,[0,write,read],schema]} + function constant(s){return [1,s]} + function string_enum(cases) + {function _de_(param){var s=param[1];return [0,Ezjsonm,[0,-976970511,s]]} + var + enum$0=caml_call2(Stdlib_list[17],_de_,cases), + _df_=element([7,specs]), + schema= + caml_call2 + (update, + [0,_df_[1],_df_[2],_df_[3],[0,enum$0],_df_[5],_df_[6],_df_[7]], + any), + len=caml_call1(Stdlib_list[1],cases), + mcases=caml_call2(Stdlib_hashtbl[1],0,len), + rcases=caml_call2(Stdlib_hashtbl[1],0,len); + function _dg_(x) + {var _ds_=caml_call2(Stdlib[28],x[1],cst$7); + return caml_call2(Stdlib[28],cst$8,_ds_)} + var + _dh_=caml_call2(Stdlib_list[17],_dg_,cases), + cases_str=caml_call2(Stdlib_string[7],cst$9,_dh_); + function _di_(param) + {var c=param[2],s=param[1]; + if(caml_call2(Stdlib_hashtbl[9],mcases,s)) + caml_call1(Stdlib[1],cst_Json_encoding_string_enum_); + caml_call3(Stdlib_hashtbl[5],mcases,s,c); + return caml_call3(Stdlib_hashtbl[5],rcases,c,s)} + caml_call2(Stdlib_list[15],_di_,cases); + var _dj_=[0,schema]; + function _dk_(s) + {try + {var _do_=caml_call2(Stdlib_hashtbl[6],mcases,s);return _do_} + catch(_dp_) + {_dp_ = caml_wrap_exception(_dp_); + if(_dp_ === Stdlib[8]) + {var + orpat= + function(ppf,param) + {if(param) + {var _dq_=param[2],_dr_=param[1][1]; + if(_dq_) + {if(_dq_[2]) + return caml_call5 + (Stdlib_format[123],ppf,_bV_,_dr_,orpat,_dq_); + var match=_dq_[1],last=match[1]; + return caml_call4(Stdlib_format[123],ppf,_bW_,_dr_,last)} + return caml_call3(Stdlib_format[123],ppf,_bX_,_dr_)} + throw [0,Assert_failure,_bY_]}, + unexpected=caml_call2(Stdlib_format[127],_bZ_,s), + expected=caml_call3(Stdlib_format[127],_b0_,orpat,cases); + throw [0, + Cannot_destruct, + [0,0,[0,Unexpected$0,unexpected,expected]]]} + throw _dp_}} + return [10, + function(v) + {try + {var _dm_=caml_call2(Stdlib_hashtbl[6],rcases,v);return _dm_} + catch(_dn_) + {_dn_ = caml_wrap_exception(_dn_); + if(_dn_ === Stdlib[8]) + {var _dl_=caml_call2(Stdlib_format[126],_b1_,cases_str); + return caml_call1(Stdlib[1],_dl_)} + throw _dn_}}, + _dk_, + string, + _dj_]} + function def(id,title,description,encoding) + {return [11,id,title,description,encoding]} + function assoc(t) + {var + s=schema(0,t), + _c4_=object_specs[7], + _c5_=object_specs[6], + _c6_=object_specs[5], + _c7_=object_specs[4], + _c8_=[0,caml_call1(root,s)], + _c9_= + caml_call2 + (update, + element + ([0,[0,object_specs[1],object_specs[2],_c8_,_c7_,_c6_,_c5_,_c4_]]), + s); + function _c__(v) + {if(typeof v !== "number" && 79 === v[1]) + {var + l=v[2], + destruct= + function(n,t,v) + {try + {var _dc_=caml_call2(Ezjsonm_encoding[2],t,v);return _dc_} + catch(_dd_) + {_dd_ = caml_wrap_exception(_dd_); + if(_dd_[1] === Cannot_destruct) + {var match=_dd_[2],exn=match[2],p=match[1]; + throw [0,Cannot_destruct,[0,[0,[0,331416730,n],p],exn]]} + throw _dd_}}, + _db_= + function(param) + {var v=param[2],n=param[1];return [0,n,destruct(n,t,v)]}; + return caml_call2(Stdlib_list[17],_db_,l)} + throw unexpected(v,cst_asssociative_object)} + function _c$_(l) + {function _da_(param) + {var v=param[2],n=param[1]; + return [0,n,caml_call2(Ezjsonm_encoding[1],t,v)]} + return [0,79,caml_call2(Stdlib_list[17],_da_,l)]} + return caml_call3(Ezjsonm_encoding[3],_c$_,_c__,_c9_)} + function is_nullable$0(enc) + {var enc$0=enc; + for(;;) + if(typeof enc$0 === "number") + switch(enc$0) + {case 0:return 1; + case 1:return 0; + case 2:return 1; + case 3:return 0; + default:return 0} + else + switch(enc$0[0]) + {case 0:return 1; + case 1:return 0; + case 2:return 0; + case 3:return 0; + case 4:return 0; + case 5:return 0; + case 6:return 0; + case 7:return 0; + case 8:return 0; + case 9:var sch=enc$0[2];return caml_call1(is_nullable,sch); + case 10:var enc$1=enc$0[3],enc$0=enc$1;continue; + case 11:var enc$2=enc$0[4],enc$0=enc$2;continue; + case 12: + var self=enc$0[4],enc$3=caml_call1(self,enc$0),enc$0=enc$3; + continue; + default: + var + cases=enc$0[1], + _c3_=function(param){var t=param[1];return is_nullable$0(t)}; + return caml_call2(Stdlib_list[29],_c3_,cases)}} + function option(t) + {if(is_nullable$0(t)) + caml_call1(Stdlib[1],cst_Json_encoding_option_canno); + return [0,t]} + function read(repr,v){return [0,repr,v]} + function write(repr,v){return any_to_repr(repr,v)} + var any_value=[9,[0,write,read],any]; + function read$0(repr,v){return convert(repr,Ezjsonm,v)} + function write$0(repr,v){return convert(Ezjsonm,repr,v)} + var any_ezjson_value=[9,[0,write$0,read$0],any]; + function read$1(Repr,v) + {var k=caml_call1(Repr[1],v); + if(typeof k !== "number") + {var _c2_=k[1],switch$0=0; + if(65 === _c2_ || 79 === _c2_)switch$0 = 1; + if(switch$0)return [0,Repr,v]} + throw unexpected(k,cst_array_or_object)} + function write$1(repr,v){return any_to_repr(repr,v)} + var any_document=[9,[0,write$1,read$1],any]; + function _b2_(j) + {try + {var _c1_=caml_call1(of_json,j);return _c1_} + catch(err) + {err = caml_wrap_exception(err); + throw [0,Cannot_destruct,[0,0,[0,Bad_schema,err]]]}} + var any_schema=caml_call3(Ezjsonm_encoding[3],to_json,_b2_,self); + function merge_tups(t1,t2) + {function is_tup(enc) + {var enc$0=enc; + for(;;) + {if(typeof enc$0 !== "number") + switch(enc$0[0]) + {case 7:return 1; + case 8:return 1; + case 10: + if(! enc$0[4]){var enc$1=enc$0[3],enc$0=enc$1;continue}break; + case 11:var enc$2=enc$0[4],enc$0=enc$2;continue; + case 12: + var self=enc$0[4],enc$3=caml_call1(self,enc$0),enc$0=enc$3; + continue + } + return 0}} + if(is_tup(t1) && is_tup(t2))return [8,t1,t2]; + return caml_call1(Stdlib[1],cst_Json_encoding_merge_tups)} + function list(t){return [10,Stdlib_array[12],Stdlib_array[11],[4,t],0]} + function merge_objs(o1,o2) + {function is_obj(enc) + {var enc$0=enc; + for(;;) + {if(typeof enc$0 === "number") + switch(enc$0){case 1:return 1;case 2:return 1} + else + switch(enc$0[0]) + {case 5:return 1; + case 6:return 1; + case 10: + if(! enc$0[4]){var enc$1=enc$0[3],enc$0=enc$1;continue}break; + case 11:var enc$2=enc$0[4],enc$0=enc$2;continue; + case 12: + var self=enc$0[4],enc$3=caml_call1(self,enc$0),enc$0=enc$3; + continue; + case 13: + var + cases=enc$0[1], + _c0_=function(param){var o=param[1];return is_obj(o)}; + return caml_call2(Stdlib_list[28],_c0_,cases) + } + return 0}} + if(is_obj(o1) && is_obj(o2))return [6,o1,o2]; + return caml_call1(Stdlib[1],cst_Json_encoding_merge_objs)} + var empty=1,unit=2; + function case$0(title,description,encoding,proj,inj) + {return [0,encoding,title,description,proj,inj]} + function union(cases) + {return cases?[13,cases]:caml_call1(Stdlib[1],cst_Json_encoding_union)} + function print_error$1(print_unknown,ppf,exn) + {var exn$0=exn; + for(;;) + {if(exn$0[1] === Cannot_destruct) + {var _cl_=exn$0[2],_cm_=_cl_[1]; + if(! _cm_){var exn$4=_cl_[2],exn$0=exn$4;continue} + var _cn_=_cl_[2]; + if(_cn_[1] === Unexpected$0) + {var + ex=_cn_[3], + unex=_cn_[2], + _co_= + function(_cY_,_cZ_) + {return print_path_as_json_path(_b3_,_cY_,_cZ_)}; + return caml_call6(Stdlib_format[123],ppf,_b4_,_co_,_cm_,unex,ex)} + if(_cn_[1] === No_case_matched) + {var + errs=_cn_[2], + _cp_= + function(_cW_,_cX_) + {return print_error$1(print_unknown,_cW_,_cX_)}, + _cq_=caml_call2(Stdlib_format[119],0,_cp_), + _cr_= + function(_cU_,_cV_) + {return print_path_as_json_path(_b5_,_cU_,_cV_)}; + return caml_call6(Stdlib_format[123],ppf,_b6_,_cr_,_cm_,_cq_,errs)} + if(_cn_[1] === Bad_array_size) + {var + ex$0=_cn_[3], + unex$0=_cn_[2], + _cs_= + function(_cS_,_cT_) + {return print_path_as_json_path(_b7_,_cS_,_cT_)}; + return caml_call6 + (Stdlib_format[123],ppf,_b8_,_cs_,_cm_,unex$0,ex$0)} + if(_cn_[1] === Missing_field) + {var + n=_cn_[2], + _ct_= + function(_cQ_,_cR_) + {return print_path_as_json_path(_b9_,_cQ_,_cR_)}; + return caml_call5(Stdlib_format[123],ppf,_b__,_ct_,_cm_,n)} + if(_cn_[1] === Unexpected_field) + {var + n$0=_cn_[2], + _cu_= + function(_cO_,_cP_) + {return print_path_as_json_path(_b$_,_cO_,_cP_)}; + return caml_call5(Stdlib_format[123],ppf,_ca_,_cu_,_cm_,n$0)} + if(_cn_[1] === Bad_schema) + {var + exn$1=_cn_[2], + _cv_= + function(_cM_,_cN_) + {return print_error$1(print_unknown,_cM_,_cN_)}, + _cw_= + function(_cK_,_cL_) + {return print_path_as_json_path(_cb_,_cK_,_cL_)}; + return caml_call6 + (Stdlib_format[123],ppf,_cc_,_cw_,_cm_,_cv_,exn$1)}} + else + if(exn$0[1] === Unexpected$0) + {var ex$2=exn$0[3],unex$2=exn$0[2]; + return caml_call4(Stdlib_format[123],ppf,_ck_,unex$2,ex$2)} + if(exn$0[1] === No_case_matched) + {var + errs$0=exn$0[2], + _cx_= + function(_cI_,_cJ_){return print_error$1(print_unknown,_cI_,_cJ_)}, + _cy_=caml_call2(Stdlib_format[119],0,_cx_); + return caml_call4(Stdlib_format[123],ppf,_cd_,_cy_,errs$0)} + if(exn$0[1] === Bad_array_size) + {var ex$1=exn$0[3],unex$1=exn$0[2]; + return caml_call4(Stdlib_format[123],ppf,_ce_,unex$1,ex$1)} + if(exn$0[1] === Missing_field) + {var n$1=exn$0[2];return caml_call3(Stdlib_format[123],ppf,_cf_,n$1)} + if(exn$0[1] === Unexpected_field) + {var n$2=exn$0[2];return caml_call3(Stdlib_format[123],ppf,_cg_,n$2)} + if(exn$0[1] === Bad_schema) + {var + exn$2=exn$0[2], + _cz_= + function(_cG_,_cH_){return print_error$1(print_unknown,_cG_,_cH_)}; + return caml_call4(Stdlib_format[123],ppf,_ch_,_cz_,exn$2)} + if(exn$0[1] === Cannot_destruct) + {var + match=exn$0[2], + exn$3=match[2], + path=match[1], + _cA_= + function(_cE_,_cF_){return print_error$1(print_unknown,_cE_,_cF_)}, + _cB_= + function(_cC_,_cD_) + {return print_path_as_json_path(_ci_,_cC_,_cD_)}; + return caml_call6(Stdlib_format[123],ppf,_cj_,_cB_,path,_cA_,exn$3)} + return print_error$0(print_unknown,ppf,exn$0)}} + var + construct=Ezjsonm_encoding[1], + destruct=Ezjsonm_encoding[2], + custom=Ezjsonm_encoding[3], + Json_encoding= + [0, + construct, + destruct, + unit, + null$0, + empty, + int$0, + int32, + int53, + ranged_int, + ranged_int32, + ranged_int53, + bool, + string, + string_enum, + constant, + bytes, + float$0, + ranged_float, + option, + req, + opt, + dft, + obj1, + obj2, + obj3, + obj4, + obj5, + obj6, + obj7, + obj8, + obj9, + obj10, + merge_objs, + array, + list, + assoc, + tup1, + tup2, + tup3, + tup4, + tup5, + tup6, + tup7, + tup8, + tup9, + tup10, + merge_tups, + case$0, + union, + custom, + conv, + mu, + any_ezjson_value, + any_document, + any_schema, + schema, + def, + Cannot_destruct, + Unexpected$0, + No_case_matched, + Bad_array_size, + Missing_field, + Unexpected_field, + Bad_schema, + print_error$1, + Make$1, + repr_agnostic_custom, + any_value, + is_nullable$0]; + caml_register_global(469,Json_encoding,"Json_encoding"); return} (function(){return this}())); -//# 1 "../../.js/jsonm/jsonm.cma.js" +//# 1 "../../.js/ocplib-endian/ocplib_endian.cma.js" (function(joo_global_object) {"use strict"; var runtime=joo_global_object.jsoo_runtime, - caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, + caml_bswap16=runtime.caml_bswap16, + caml_bytes_get=runtime.caml_bytes_get, + caml_bytes_set=runtime.caml_bytes_set, + caml_bytes_set16=runtime.caml_bytes_set16, + caml_bytes_set32=runtime.caml_bytes_set32, + caml_bytes_set64=runtime.caml_bytes_set64, + caml_bytes_unsafe_get=runtime.caml_bytes_unsafe_get, + caml_bytes_unsafe_set=runtime.caml_bytes_unsafe_set, + caml_int32_bits_of_float=runtime.caml_int32_bits_of_float, + caml_int32_bswap=runtime.caml_int32_bswap, + caml_int32_float_of_bits=runtime.caml_int32_float_of_bits, + caml_int64_bits_of_float=runtime.caml_int64_bits_of_float, + caml_int64_bswap=runtime.caml_int64_bswap, + caml_int64_float_of_bits=runtime.caml_int64_float_of_bits, + caml_register_global=runtime.caml_register_global, caml_string_get=runtime.caml_string_get, - caml_string_notequal=runtime.caml_string_notequal, + caml_string_get16=runtime.caml_string_get16, + caml_string_get32=runtime.caml_string_get32, + caml_string_get64=runtime.caml_string_get64, + caml_string_unsafe_get=runtime.caml_string_unsafe_get, + global_data=runtime.caml_get_global_data(), + Stdlib_sys=global_data.Stdlib__sys, + _a_=caml_string_get, + _b_=caml_bytes_set, + _c_=caml_string_unsafe_get; + function _d_(_gx_,_gw_,_gv_) + {caml_bytes_unsafe_set(_gx_,_gw_,_gv_);return 0} + var _e_=caml_string_get; + function _f_(_gs_,_gr_) + {var _gt_=Stdlib_sys[9] - 9 | 0,_gu_=Stdlib_sys[9] - 9 | 0; + return caml_string_get(_gs_,_gr_) << _gu_ >> _gt_} + var _g_=caml_bytes_set,_h_=caml_string_unsafe_get; + function _i_(_gq_,_gp_) + {return caml_string_unsafe_get(_gq_,_gp_) + << + (Stdlib_sys[9] - 9 | 0) + >> + (Stdlib_sys[9] - 9 | 0)} + function _j_(_go_,_gn_,_gm_){return _d_(_go_,_gn_,_gm_)} + function _k_(_gl_,_gk_) + {return Stdlib_sys[11] + ?caml_string_get16(_gl_,_gk_) + :caml_bswap16(caml_string_get16(_gl_,_gk_))} + function _l_(_gh_,_gg_) + {var _gi_=Stdlib_sys[9] - 17 | 0,_gj_=Stdlib_sys[9] - 17 | 0; + return _k_(_gh_,_gg_) << _gj_ >> _gi_} + function _m_(_gf_,_ge_) + {return Stdlib_sys[11] + ?caml_string_get32(_gf_,_ge_) + :caml_int32_bswap(caml_string_get32(_gf_,_ge_))} + function _n_(_gd_,_gc_) + {return Stdlib_sys[11] + ?caml_string_get64(_gd_,_gc_) + :caml_int64_bswap(caml_string_get64(_gd_,_gc_))} + function _o_(_gb_,_ga_,_f$_) + {return Stdlib_sys[11] + ?caml_bytes_set16(_gb_,_ga_,_f$_) + :caml_bytes_set16(_gb_,_ga_,caml_bswap16(_f$_))} + function _p_(_f__,_f9_,_f8_) + {return Stdlib_sys[11] + ?caml_bytes_set32(_f__,_f9_,_f8_) + :caml_bytes_set32(_f__,_f9_,caml_int32_bswap(_f8_))} + function _q_(_f7_,_f6_,_f5_) + {return Stdlib_sys[11] + ?caml_bytes_set64(_f7_,_f6_,_f5_) + :caml_bytes_set64(_f7_,_f6_,caml_int64_bswap(_f5_))} + function _r_(_f4_,_f3_){return caml_int32_float_of_bits(_m_(_f4_,_f3_))} + function _s_(_f2_,_f1_){return caml_int64_float_of_bits(_n_(_f2_,_f1_))} + function _t_(_f0_,_fZ_,_fY_) + {return _p_(_f0_,_fZ_,caml_int32_bits_of_float(_fY_))} + function _u_(_fX_,_fW_,_fV_) + {return _q_(_fX_,_fW_,caml_int64_bits_of_float(_fV_))} + function _v_(_fU_,_fT_) + {return Stdlib_sys[11] + ?caml_string_get16(_fU_,_fT_) + :caml_bswap16(caml_string_get16(_fU_,_fT_))} + function _w_(_fQ_,_fP_) + {var _fR_=Stdlib_sys[9] - 17 | 0,_fS_=Stdlib_sys[9] - 17 | 0; + return _v_(_fQ_,_fP_) << _fS_ >> _fR_} + function _x_(_fO_,_fN_) + {return Stdlib_sys[11] + ?caml_string_get32(_fO_,_fN_) + :caml_int32_bswap(caml_string_get32(_fO_,_fN_))} + function _y_(_fM_,_fL_) + {return Stdlib_sys[11] + ?caml_string_get64(_fM_,_fL_) + :caml_int64_bswap(caml_string_get64(_fM_,_fL_))} + function _z_(_fK_,_fJ_,_fI_) + {return Stdlib_sys[11] + ?caml_bytes_set16(_fK_,_fJ_,_fI_) + :caml_bytes_set16(_fK_,_fJ_,caml_bswap16(_fI_))} + function _A_(_fH_,_fG_,_fF_) + {return Stdlib_sys[11] + ?caml_bytes_set32(_fH_,_fG_,_fF_) + :caml_bytes_set32(_fH_,_fG_,caml_int32_bswap(_fF_))} + function _B_(_fE_,_fD_,_fC_) + {return Stdlib_sys[11] + ?caml_bytes_set64(_fE_,_fD_,_fC_) + :caml_bytes_set64(_fE_,_fD_,caml_int64_bswap(_fC_))} + function _C_(_fB_,_fA_){return caml_int32_float_of_bits(_x_(_fB_,_fA_))} + function _D_(_fz_,_fy_){return caml_int64_float_of_bits(_y_(_fz_,_fy_))} + function _E_(_fx_,_fw_,_fv_) + {return _A_(_fx_,_fw_,caml_int32_bits_of_float(_fv_))} + function _F_(_fu_,_ft_,_fs_) + {return _B_(_fu_,_ft_,caml_int64_bits_of_float(_fs_))} + function _G_(_fr_,_fq_) + {return Stdlib_sys[11] + ?caml_bswap16(caml_string_get16(_fr_,_fq_)) + :caml_string_get16(_fr_,_fq_)} + function _H_(_fn_,_fm_) + {var _fo_=Stdlib_sys[9] - 17 | 0,_fp_=Stdlib_sys[9] - 17 | 0; + return _G_(_fn_,_fm_) << _fp_ >> _fo_} + function _I_(_fl_,_fk_) + {return Stdlib_sys[11] + ?caml_int32_bswap(caml_string_get32(_fl_,_fk_)) + :caml_string_get32(_fl_,_fk_)} + function _J_(_fj_,_fi_) + {return Stdlib_sys[11] + ?caml_int64_bswap(caml_string_get64(_fj_,_fi_)) + :caml_string_get64(_fj_,_fi_)} + function _K_(_fh_,_fg_,_ff_) + {return Stdlib_sys[11] + ?caml_bytes_set16(_fh_,_fg_,caml_bswap16(_ff_)) + :caml_bytes_set16(_fh_,_fg_,_ff_)} + function _L_(_fe_,_fd_,_fc_) + {return Stdlib_sys[11] + ?caml_bytes_set32(_fe_,_fd_,caml_int32_bswap(_fc_)) + :caml_bytes_set32(_fe_,_fd_,_fc_)} + function _M_(_fb_,_fa_,_e$_) + {return Stdlib_sys[11] + ?caml_bytes_set64(_fb_,_fa_,caml_int64_bswap(_e$_)) + :caml_bytes_set64(_fb_,_fa_,_e$_)} + function _N_(_e__,_e9_){return caml_int32_float_of_bits(_I_(_e__,_e9_))} + function _O_(_e8_,_e7_){return caml_int64_float_of_bits(_J_(_e8_,_e7_))} + function _P_(_e6_,_e5_,_e4_) + {return _L_(_e6_,_e5_,caml_int32_bits_of_float(_e4_))} + function _Q_(_e3_,_e2_,_e1_) + {return _M_(_e3_,_e2_,caml_int64_bits_of_float(_e1_))} + function _R_(_e0_,_eZ_) + {return Stdlib_sys[11] + ?caml_bswap16(caml_string_get16(_e0_,_eZ_)) + :caml_string_get16(_e0_,_eZ_)} + function _S_(_eW_,_eV_) + {var _eX_=Stdlib_sys[9] - 17 | 0,_eY_=Stdlib_sys[9] - 17 | 0; + return _R_(_eW_,_eV_) << _eY_ >> _eX_} + function _T_(_eU_,_eT_) + {return Stdlib_sys[11] + ?caml_int32_bswap(caml_string_get32(_eU_,_eT_)) + :caml_string_get32(_eU_,_eT_)} + function _U_(_eS_,_eR_) + {return Stdlib_sys[11] + ?caml_int64_bswap(caml_string_get64(_eS_,_eR_)) + :caml_string_get64(_eS_,_eR_)} + function _V_(_eQ_,_eP_,_eO_) + {return Stdlib_sys[11] + ?caml_bytes_set16(_eQ_,_eP_,caml_bswap16(_eO_)) + :caml_bytes_set16(_eQ_,_eP_,_eO_)} + function _W_(_eN_,_eM_,_eL_) + {return Stdlib_sys[11] + ?caml_bytes_set32(_eN_,_eM_,caml_int32_bswap(_eL_)) + :caml_bytes_set32(_eN_,_eM_,_eL_)} + function _X_(_eK_,_eJ_,_eI_) + {return Stdlib_sys[11] + ?caml_bytes_set64(_eK_,_eJ_,caml_int64_bswap(_eI_)) + :caml_bytes_set64(_eK_,_eJ_,_eI_)} + function _Y_(_eH_,_eG_){return caml_int32_float_of_bits(_T_(_eH_,_eG_))} + function _Z_(_eF_,_eE_){return caml_int64_float_of_bits(_U_(_eF_,_eE_))} + function ___(_eD_,_eC_,_eB_) + {return _W_(_eD_,_eC_,caml_int32_bits_of_float(_eB_))} + function _$_(_eA_,_ez_,_ey_) + {return _X_(_eA_,_ez_,caml_int64_bits_of_float(_ey_))} + var _aa_=caml_string_get16; + function _ab_(_ev_,_eu_) + {var _ew_=Stdlib_sys[9] - 17 | 0,_ex_=Stdlib_sys[9] - 17 | 0; + return caml_string_get16(_ev_,_eu_) << _ex_ >> _ew_} + var + _ac_=caml_string_get32, + _ad_=caml_string_get64, + _ae_=caml_bytes_set16, + _af_=caml_bytes_set32, + _ag_=caml_bytes_set64; + function _ah_(_et_,_es_) + {return caml_int32_float_of_bits(caml_string_get32(_et_,_es_))} + function _ai_(_er_,_eq_) + {return caml_int64_float_of_bits(caml_string_get64(_er_,_eq_))} + function _aj_(_ep_,_eo_,_en_) + {return caml_bytes_set32(_ep_,_eo_,caml_int32_bits_of_float(_en_))} + function _ak_(_em_,_el_,_ek_) + {return caml_bytes_set64(_em_,_el_,caml_int64_bits_of_float(_ek_))} + var _al_=caml_string_get16; + function _am_(_eh_,_eg_) + {var _ei_=Stdlib_sys[9] - 17 | 0,_ej_=Stdlib_sys[9] - 17 | 0; + return caml_string_get16(_eh_,_eg_) << _ej_ >> _ei_} + var + _an_=caml_string_get32, + _ao_=caml_string_get64, + _ap_=caml_bytes_set16, + _aq_=caml_bytes_set32, + _ar_=caml_bytes_set64; + function _as_(_ef_,_ee_) + {return caml_int32_float_of_bits(caml_string_get32(_ef_,_ee_))} + function _at_(_ed_,_ec_) + {return caml_int64_float_of_bits(caml_string_get64(_ed_,_ec_))} + function _au_(_eb_,_ea_,_d$_) + {return caml_bytes_set32(_eb_,_ea_,caml_int32_bits_of_float(_d$_))} + var + EndianString= + [0, + [0,_a_,_e_,_f_,_k_,_l_,_m_,_n_,_r_,_s_,_b_,_g_,_o_,_p_,_q_,_t_,_u_], + [0,_c_,_h_,_i_,_v_,_w_,_x_,_y_,_C_,_D_,_d_,_j_,_z_,_A_,_B_,_E_,_F_], + [0,_a_,_e_,_f_,_G_,_H_,_I_,_J_,_N_,_O_,_b_,_g_,_K_,_L_,_M_,_P_,_Q_], + [0,_c_,_h_,_i_,_R_,_S_,_T_,_U_,_Y_,_Z_,_d_,_j_,_V_,_W_,_X_,___,_$_], + [0, + _a_, + _e_, + _f_, + _aa_, + _ab_, + _ac_, + _ad_, + _ah_, + _ai_, + _b_, + _g_, + _ae_, + _af_, + _ag_, + _aj_, + _ak_], + [0, + _c_, + _h_, + _i_, + _al_, + _am_, + _an_, + _ao_, + _as_, + _at_, + _d_, + _j_, + _ap_, + _aq_, + _ar_, + _au_, + function(_d__,_d9_,_d8_) + {return caml_bytes_set64(_d__,_d9_,caml_int64_bits_of_float(_d8_))}]]; + caml_register_global(1,EndianString,"EndianString"); + var _av_=caml_bytes_get,_aw_=caml_bytes_set,_ax_=caml_bytes_unsafe_get; + function _ay_(_d7_,_d6_,_d5_) + {caml_bytes_unsafe_set(_d7_,_d6_,_d5_);return 0} + var _az_=caml_bytes_get; + function _aA_(_d2_,_d1_) + {var _d3_=Stdlib_sys[9] - 9 | 0,_d4_=Stdlib_sys[9] - 9 | 0; + return caml_bytes_get(_d2_,_d1_) << _d4_ >> _d3_} + var _aB_=caml_bytes_set,_aC_=caml_bytes_unsafe_get; + function _aD_(_d0_,_dZ_) + {return caml_bytes_unsafe_get(_d0_,_dZ_) + << + (Stdlib_sys[9] - 9 | 0) + >> + (Stdlib_sys[9] - 9 | 0)} + function _aE_(_dY_,_dX_,_dW_){return _ay_(_dY_,_dX_,_dW_)} + function _aF_(_dV_,_dU_) + {return Stdlib_sys[11] + ?caml_string_get16(_dV_,_dU_) + :caml_bswap16(caml_string_get16(_dV_,_dU_))} + function _aG_(_dR_,_dQ_) + {var _dS_=Stdlib_sys[9] - 17 | 0,_dT_=Stdlib_sys[9] - 17 | 0; + return _aF_(_dR_,_dQ_) << _dT_ >> _dS_} + function _aH_(_dP_,_dO_) + {return Stdlib_sys[11] + ?caml_string_get32(_dP_,_dO_) + :caml_int32_bswap(caml_string_get32(_dP_,_dO_))} + function _aI_(_dN_,_dM_) + {return Stdlib_sys[11] + ?caml_string_get64(_dN_,_dM_) + :caml_int64_bswap(caml_string_get64(_dN_,_dM_))} + function _aJ_(_dL_,_dK_,_dJ_) + {return Stdlib_sys[11] + ?caml_bytes_set16(_dL_,_dK_,_dJ_) + :caml_bytes_set16(_dL_,_dK_,caml_bswap16(_dJ_))} + function _aK_(_dI_,_dH_,_dG_) + {return Stdlib_sys[11] + ?caml_bytes_set32(_dI_,_dH_,_dG_) + :caml_bytes_set32(_dI_,_dH_,caml_int32_bswap(_dG_))} + function _aL_(_dF_,_dE_,_dD_) + {return Stdlib_sys[11] + ?caml_bytes_set64(_dF_,_dE_,_dD_) + :caml_bytes_set64(_dF_,_dE_,caml_int64_bswap(_dD_))} + function _aM_(_dC_,_dB_){return caml_int32_float_of_bits(_aH_(_dC_,_dB_))} + function _aN_(_dA_,_dz_){return caml_int64_float_of_bits(_aI_(_dA_,_dz_))} + function _aO_(_dy_,_dx_,_dw_) + {return _aK_(_dy_,_dx_,caml_int32_bits_of_float(_dw_))} + function _aP_(_dv_,_du_,_dt_) + {return _aL_(_dv_,_du_,caml_int64_bits_of_float(_dt_))} + function _aQ_(_ds_,_dr_) + {return Stdlib_sys[11] + ?caml_string_get16(_ds_,_dr_) + :caml_bswap16(caml_string_get16(_ds_,_dr_))} + function _aR_(_do_,_dn_) + {var _dp_=Stdlib_sys[9] - 17 | 0,_dq_=Stdlib_sys[9] - 17 | 0; + return _aQ_(_do_,_dn_) << _dq_ >> _dp_} + function _aS_(_dm_,_dl_) + {return Stdlib_sys[11] + ?caml_string_get32(_dm_,_dl_) + :caml_int32_bswap(caml_string_get32(_dm_,_dl_))} + function _aT_(_dk_,_dj_) + {return Stdlib_sys[11] + ?caml_string_get64(_dk_,_dj_) + :caml_int64_bswap(caml_string_get64(_dk_,_dj_))} + function _aU_(_di_,_dh_,_dg_) + {return Stdlib_sys[11] + ?caml_bytes_set16(_di_,_dh_,_dg_) + :caml_bytes_set16(_di_,_dh_,caml_bswap16(_dg_))} + function _aV_(_df_,_de_,_dd_) + {return Stdlib_sys[11] + ?caml_bytes_set32(_df_,_de_,_dd_) + :caml_bytes_set32(_df_,_de_,caml_int32_bswap(_dd_))} + function _aW_(_dc_,_db_,_da_) + {return Stdlib_sys[11] + ?caml_bytes_set64(_dc_,_db_,_da_) + :caml_bytes_set64(_dc_,_db_,caml_int64_bswap(_da_))} + function _aX_(_c$_,_c__){return caml_int32_float_of_bits(_aS_(_c$_,_c__))} + function _aY_(_c9_,_c8_){return caml_int64_float_of_bits(_aT_(_c9_,_c8_))} + function _aZ_(_c7_,_c6_,_c5_) + {return _aV_(_c7_,_c6_,caml_int32_bits_of_float(_c5_))} + function _a0_(_c4_,_c3_,_c2_) + {return _aW_(_c4_,_c3_,caml_int64_bits_of_float(_c2_))} + function _a1_(_c1_,_c0_) + {return Stdlib_sys[11] + ?caml_bswap16(caml_string_get16(_c1_,_c0_)) + :caml_string_get16(_c1_,_c0_)} + function _a2_(_cX_,_cW_) + {var _cY_=Stdlib_sys[9] - 17 | 0,_cZ_=Stdlib_sys[9] - 17 | 0; + return _a1_(_cX_,_cW_) << _cZ_ >> _cY_} + function _a3_(_cV_,_cU_) + {return Stdlib_sys[11] + ?caml_int32_bswap(caml_string_get32(_cV_,_cU_)) + :caml_string_get32(_cV_,_cU_)} + function _a4_(_cT_,_cS_) + {return Stdlib_sys[11] + ?caml_int64_bswap(caml_string_get64(_cT_,_cS_)) + :caml_string_get64(_cT_,_cS_)} + function _a5_(_cR_,_cQ_,_cP_) + {return Stdlib_sys[11] + ?caml_bytes_set16(_cR_,_cQ_,caml_bswap16(_cP_)) + :caml_bytes_set16(_cR_,_cQ_,_cP_)} + function _a6_(_cO_,_cN_,_cM_) + {return Stdlib_sys[11] + ?caml_bytes_set32(_cO_,_cN_,caml_int32_bswap(_cM_)) + :caml_bytes_set32(_cO_,_cN_,_cM_)} + function _a7_(_cL_,_cK_,_cJ_) + {return Stdlib_sys[11] + ?caml_bytes_set64(_cL_,_cK_,caml_int64_bswap(_cJ_)) + :caml_bytes_set64(_cL_,_cK_,_cJ_)} + function _a8_(_cI_,_cH_){return caml_int32_float_of_bits(_a3_(_cI_,_cH_))} + function _a9_(_cG_,_cF_){return caml_int64_float_of_bits(_a4_(_cG_,_cF_))} + function _a__(_cE_,_cD_,_cC_) + {return _a6_(_cE_,_cD_,caml_int32_bits_of_float(_cC_))} + function _a$_(_cB_,_cA_,_cz_) + {return _a7_(_cB_,_cA_,caml_int64_bits_of_float(_cz_))} + function _ba_(_cy_,_cx_) + {return Stdlib_sys[11] + ?caml_bswap16(caml_string_get16(_cy_,_cx_)) + :caml_string_get16(_cy_,_cx_)} + function _bb_(_cu_,_ct_) + {var _cv_=Stdlib_sys[9] - 17 | 0,_cw_=Stdlib_sys[9] - 17 | 0; + return _ba_(_cu_,_ct_) << _cw_ >> _cv_} + function _bc_(_cs_,_cr_) + {return Stdlib_sys[11] + ?caml_int32_bswap(caml_string_get32(_cs_,_cr_)) + :caml_string_get32(_cs_,_cr_)} + function _bd_(_cq_,_cp_) + {return Stdlib_sys[11] + ?caml_int64_bswap(caml_string_get64(_cq_,_cp_)) + :caml_string_get64(_cq_,_cp_)} + function _be_(_co_,_cn_,_cm_) + {return Stdlib_sys[11] + ?caml_bytes_set16(_co_,_cn_,caml_bswap16(_cm_)) + :caml_bytes_set16(_co_,_cn_,_cm_)} + function _bf_(_cl_,_ck_,_cj_) + {return Stdlib_sys[11] + ?caml_bytes_set32(_cl_,_ck_,caml_int32_bswap(_cj_)) + :caml_bytes_set32(_cl_,_ck_,_cj_)} + function _bg_(_ci_,_ch_,_cg_) + {return Stdlib_sys[11] + ?caml_bytes_set64(_ci_,_ch_,caml_int64_bswap(_cg_)) + :caml_bytes_set64(_ci_,_ch_,_cg_)} + function _bh_(_cf_,_ce_){return caml_int32_float_of_bits(_bc_(_cf_,_ce_))} + function _bi_(_cd_,_cc_){return caml_int64_float_of_bits(_bd_(_cd_,_cc_))} + function _bj_(_cb_,_ca_,_b$_) + {return _bf_(_cb_,_ca_,caml_int32_bits_of_float(_b$_))} + function _bk_(_b__,_b9_,_b8_) + {return _bg_(_b__,_b9_,caml_int64_bits_of_float(_b8_))} + var _bl_=caml_string_get16; + function _bm_(_b5_,_b4_) + {var _b6_=Stdlib_sys[9] - 17 | 0,_b7_=Stdlib_sys[9] - 17 | 0; + return caml_string_get16(_b5_,_b4_) << _b7_ >> _b6_} + var + _bn_=caml_string_get32, + _bo_=caml_string_get64, + _bp_=caml_bytes_set16, + _bq_=caml_bytes_set32, + _br_=caml_bytes_set64; + function _bs_(_b3_,_b2_) + {return caml_int32_float_of_bits(caml_string_get32(_b3_,_b2_))} + function _bt_(_b1_,_b0_) + {return caml_int64_float_of_bits(caml_string_get64(_b1_,_b0_))} + function _bu_(_bZ_,_bY_,_bX_) + {return caml_bytes_set32(_bZ_,_bY_,caml_int32_bits_of_float(_bX_))} + function _bv_(_bW_,_bV_,_bU_) + {return caml_bytes_set64(_bW_,_bV_,caml_int64_bits_of_float(_bU_))} + var _bw_=caml_string_get16; + function _bx_(_bR_,_bQ_) + {var _bS_=Stdlib_sys[9] - 17 | 0,_bT_=Stdlib_sys[9] - 17 | 0; + return caml_string_get16(_bR_,_bQ_) << _bT_ >> _bS_} + var + _by_=caml_string_get32, + _bz_=caml_string_get64, + _bA_=caml_bytes_set16, + _bB_=caml_bytes_set32, + _bC_=caml_bytes_set64; + function _bD_(_bP_,_bO_) + {return caml_int32_float_of_bits(caml_string_get32(_bP_,_bO_))} + function _bE_(_bN_,_bM_) + {return caml_int64_float_of_bits(caml_string_get64(_bN_,_bM_))} + function _bF_(_bL_,_bK_,_bJ_) + {return caml_bytes_set32(_bL_,_bK_,caml_int32_bits_of_float(_bJ_))} + var + EndianBytes= + [0, + [0, + _av_, + _az_, + _aA_, + _aF_, + _aG_, + _aH_, + _aI_, + _aM_, + _aN_, + _aw_, + _aB_, + _aJ_, + _aK_, + _aL_, + _aO_, + _aP_], + [0, + _ax_, + _aC_, + _aD_, + _aQ_, + _aR_, + _aS_, + _aT_, + _aX_, + _aY_, + _ay_, + _aE_, + _aU_, + _aV_, + _aW_, + _aZ_, + _a0_], + [0, + _av_, + _az_, + _aA_, + _a1_, + _a2_, + _a3_, + _a4_, + _a8_, + _a9_, + _aw_, + _aB_, + _a5_, + _a6_, + _a7_, + _a__, + _a$_], + [0, + _ax_, + _aC_, + _aD_, + _ba_, + _bb_, + _bc_, + _bd_, + _bh_, + _bi_, + _ay_, + _aE_, + _be_, + _bf_, + _bg_, + _bj_, + _bk_], + [0, + _av_, + _az_, + _aA_, + _bl_, + _bm_, + _bn_, + _bo_, + _bs_, + _bt_, + _aw_, + _aB_, + _bp_, + _bq_, + _br_, + _bu_, + _bv_], + [0, + _ax_, + _aC_, + _aD_, + _bw_, + _bx_, + _by_, + _bz_, + _bD_, + _bE_, + _ay_, + _aE_, + _bA_, + _bB_, + _bC_, + _bF_, + function(_bI_,_bH_,_bG_) + {return caml_bytes_set64(_bI_,_bH_,caml_int64_bits_of_float(_bG_))}]]; + caml_register_global(2,EndianBytes,"EndianBytes"); + return} + (function(){return this}())); + + +//# 1 "../../.js/json-data-encoding-bson/json_data_encoding_bson.cma.js" +(function(joo_global_object) + {"use strict"; + var + runtime=joo_global_object.jsoo_runtime, + caml_ml_bytes_length=runtime.caml_ml_bytes_length, + caml_ml_string_length=runtime.caml_ml_string_length, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, caml_wrap_exception=runtime.caml_wrap_exception; function caml_call1(f,a0) {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} @@ -76505,1583 +87023,1580 @@ {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} function caml_call3(f,a0,a1,a2) {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} - function caml_call4(f,a0,a1,a2,a3) - {return f.length == 4 - ?f(a0,a1,a2,a3) - :runtime.caml_call_gen(f,[a0,a1,a2,a3])} function caml_call5(f,a0,a1,a2,a3,a4) {return f.length == 5 ?f(a0,a1,a2,a3,a4) :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} var global_data=runtime.caml_get_global_data(), - cst_false=caml_new_string("false"), - cst_null=caml_new_string("null"), - cst_true=caml_new_string("true"), - cst_u00=caml_new_string("\\u00"), - cst$0=caml_new_string("\\\\"), - cst=caml_new_string('\\"'), - cst_n=caml_new_string("\\n"), - cst$1=caml_new_string("//"), - cst$2=caml_new_string("*/"), - cst$3=caml_new_string("/*"), - cst_null$0=caml_new_string("null"), - cst_true$0=caml_new_string("true"), - cst_false$0=caml_new_string("false"), - cst_Lexeme_Ae=caml_new_string("`Lexeme `Ae"), - cst_Lexeme_Oe=caml_new_string("`Lexeme `Oe"), - cst_Lexeme_Null_Bool_Float_String_As_Os= - caml_new_string - ("`Lexeme (`Null | `Bool _ | `Float _ | `String _ | `As | `Os)"), - cst_Lexeme_Name_Oe=caml_new_string("`Lexeme (`Name _ | `Oe)"), - cst_any_Lexeme_but_Name_or_Oe= - caml_new_string("any `Lexeme but `Name or `Oe"), - cst_any_Lexeme_but_Name_Oe_or_Ae= - caml_new_string("any `Lexeme but `Name, `Oe or `Ae"), - cst_End=caml_new_string("`End"), - cst_Await=caml_new_string("`Await"), - partial= - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("stream"),[17,0,0]]], - partial$0=[17,[0,caml_new_string("@ "),1,0],[12,40,0]], - partial$1= - [11, - caml_new_string("('\"'"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("or"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("'}')"),[17,0,0]]]]]], - partial$2=[0,caml_new_string("@ "),1,0], - partial$3= - [11, - caml_new_string("(','"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("or"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("'}')"),[17,0,0]]]]]], - partial$4=[0,caml_new_string("@ "),1,0], - partial$5= - [11, - caml_new_string("or"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("']')"),[17,0,0]]]], - partial$6=[0,caml_new_string("@ "),1,0], - partial$7= - [11, - caml_new_string("(','"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("or"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("']')"),[17,0,0]]]]]], - partial$8=[0,caml_new_string("@ "),1,0], - partial$9= - [17,[0,caml_new_string("@ "),1,0],[12,40,[15,[12,41,[17,0,0]]]]], - err_bom=[0,106380200,-543455433], - err_unclosed_comment=[0,106380200,[0,-364210971,-826170817]], - err_unclosed_string=[0,106380200,[0,-364210971,-976970511]], - err_unclosed_arr=[0,106380200,[0,-364210971,14610]], - err_unclosed_obj=[0,106380200,[0,-364210971,17732]], - err_exp_comment=[0,106380200,[0,434236056,-826170817]], - err_exp_value=[0,106380200,[0,434236056,-991563951]], - err_exp_name=[0,106380200,[0,434236056,869834347]], - err_exp_nsep=[0,106380200,[0,434236056,713199754]], - err_exp_arr_fst=[0,106380200,[0,434236056,[0,726711616,1]]], - err_exp_arr_nxt=[0,106380200,[0,434236056,[0,726711616,0]]], - err_exp_obj_fst=[0,106380200,[0,434236056,[0,881518886,1]]], - err_exp_obj_nxt=[0,106380200,[0,434236056,[0,881518886,0]]], - err_exp_json=[0,106380200,[0,434236056,826371656]], - err_exp_eoi=[0,106380200,[0,434236056,3456159]], - Uutf=global_data.Uutf, - Stdlib_uchar=global_data.Stdlib__uchar, - Stdlib=global_data.Stdlib, - Assert_failure=global_data.Assert_failure, - Stdlib_buffer=global_data.Stdlib__buffer, - Stdlib_list=global_data.Stdlib__list, + cst_Json_repr_bson_to_bytes= + caml_string_of_jsbytes("Json_repr.bson_to_bytes"), + cst_Json_repr_bson_Repr_Bson_d= + caml_string_of_jsbytes("Json_repr_bson.Repr.Bson_decoding_error"), Stdlib_bytes=global_data.Stdlib__bytes, - Stdlib_printf=global_data.Stdlib__printf, + Stdlib_list=global_data.Stdlib__list, + Stdlib=global_data.Stdlib, + EndianBytes=global_data.EndianBytes, Stdlib_format=global_data.Stdlib__format, - _a_=Stdlib_format[123], - _$_=[0,-633954146,[0,737456202,1]], - _aa_=[0,-633954146,870828711], - _ab_=[0,-633954146,[0,737456202,0]], - _ad_=[0,-633954146,14610], - _ac_=[0,-633954146,17732], - _ag_=[0,caml_new_string("src/jsonm.ml"),398,27], - _ak_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _aj_= + Json_repr=global_data.Json_repr, + Json_encoding=global_data.Json_encoding, + Json_query=global_data.Json_query, + Bson_decoding_error= + [248,cst_Json_repr_bson_Repr_Bson_d,runtime.caml_fresh_oo_id(0)], + _v_=[0,0,0], + _m_= [0, - [15,[11,caml_new_string(" encoded but expected "),[2,0,0]]], - caml_new_string("%a encoded but expected %s")], - _ai_= + [11,caml_string_of_jsbytes("invalid field names for array field"),0], + caml_string_of_jsbytes("invalid field names for array field")], + _n_= + [0, + [11,caml_string_of_jsbytes("early terminator"),0], + caml_string_of_jsbytes("early terminator")], + _r_=[0,870828711], + _o_= [0, [11, - caml_new_string("invalid bounds (index "), - [4,0,0,0,[11,caml_new_string(", length "),[4,0,0,0,[12,41,0]]]]], - caml_new_string("invalid bounds (index %d, length %d)")], - _ah_=[0,caml_new_string("src/jsonm.ml"),404,29], - _af_=[0,-633954146,17718], - _ae_=[0,-633954146,14596], - ___=[0,caml_new_string("src/jsonm.ml"),212,8], - _Z_=[0,caml_new_string("src/jsonm.ml"),205,45], - _W_=[0,[11,caml_new_string("`S"),0],caml_new_string("`S")], - _X_=[0,[11,caml_new_string("`M"),0],caml_new_string("`M")], - _R_=[0,[11,caml_new_string("`Await"),0],caml_new_string("`Await")], - _S_=[0,[11,caml_new_string("`End"),0],caml_new_string("`End")], - _T_= + caml_string_of_jsbytes("unknown tag (0x"), + [4,8,[0,2,2],0,[12,41,0]]], + caml_string_of_jsbytes("unknown tag (0x%02X)")], + _p_= [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("`Error "), - [18, - [1,[0,0,caml_new_string("")]], - [12,40,[15,[12,41,[17,0,[17,0,0]]]]]]]], - caml_new_string("@[`Error @[(%a)@]@]")], - _U_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("`White "), - [18,[1,[0,0,caml_new_string("")]],[3,0,[17,0,[17,0,0]]]]]], - caml_new_string("@[`White @[%S@]@]")], - _V_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("`Lexeme "), - [18, - [1,[0,0,caml_new_string("")]], - [12,40,[15,[12,41,[17,0,[17,0,0]]]]]]]], - caml_new_string("@[`Lexeme @[(%a)@]@]")], - _Y_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("`Comment "), - [18, - [1,[0,0,caml_new_string("")]], - [12, - 40, - [15,[11,caml_new_string(", "),[3,0,[12,41,[17,0,[17,0,0]]]]]]]]]], - caml_new_string("@[`Comment @[(%a, %S)@]@]")], - _n_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("illegal"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("initial"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("BOM"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("in"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("character"),partial]]]]]]]]]], - caml_new_string("@[illegal@ initial@ BOM@ in@ character@ stream@]")], - _o_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("illegal"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("escape,"),[17,[0,caml_new_string("@ "),1,0],0]]]]], - caml_new_string("@[illegal@ escape,@ ")], - _q_= - [0, - [15, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("not"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("an"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("escaped"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("character"),[17,0,0]]]]]]]]]], - caml_new_string("%a@ not@ an@ escaped@ character@]")], - _r_= - [0, - [15, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("lone"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("low"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("surrogate"),[17,0,0]]]]]]]], - caml_new_string("%a@ lone@ low@ surrogate@]")], - _s_= - [0, - [15, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("lone"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("high"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("surrogate"),[17,0,0]]]]]]]], - caml_new_string("%a@ lone@ high@ surrogate@]")], - _t_= - [0, - [15, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("not"), - [17, - [0,caml_new_string("@ "),1,0], - [12, - 97, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("hex"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("digit"),[17,0,0]]]]]]]]]], - caml_new_string("%a@ not@ a@ hex@ digit@]")], - _p_= - [0, - [15, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("not"), - [17, - [0,caml_new_string("@ "),1,0], - [12, - 97, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("low"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("surrogate"),[17,0,0]]]]]]]]]], - caml_new_string("%a@ not@ a@ low@ surrogate@]")], - _u_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("illegal"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("bytes"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("in"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("character"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("stream"),partial$0]]]]]]]]]], - caml_new_string("@[illegal@ bytes@ in@ character@ stream@ (")], - _v_=[0,[4,8,[0,2,2],0,0],caml_new_string("%02X")], - _x_=[0,[12,32,[4,8,[0,2,2],0,0]],caml_new_string(" %02X")], - _w_=[0,[12,41,[17,0,0]],caml_new_string(")@]")], - _y_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11,caml_new_string("expected"),[17,[0,caml_new_string("@ "),1,0],0]]], - caml_new_string("@[expected@ ")], - _z_= + [11, + caml_string_of_jsbytes + ("not enough data, subdocument size tag expected (4 bytes)"), + 0], + caml_string_of_jsbytes + ("not enough data, subdocument size tag expected (4 bytes)")], + _q_= [0, [11, - caml_new_string("member"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("name"),[17,0,0]]]], - caml_new_string("member@ name@]")], - _A_= + caml_string_of_jsbytes("not enough data, subdocument expected ("), + [4,0,0,0,[11,caml_string_of_jsbytes(" bytes)"),0]]], + caml_string_of_jsbytes + ("not enough data, subdocument expected (%d bytes)")], + _h_= [0, [11, - caml_new_string("JSON"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("text (JSON value)"),[17,0,0]]]], - caml_new_string("JSON@ text (JSON value)@]")], - _B_= + caml_string_of_jsbytes + ("not enough data, field name terminator expected (0x00)"), + 0], + caml_string_of_jsbytes + ("not enough data, field name terminator expected (0x00)")], + _f_= [0, [11, - caml_new_string("name"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("separator"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("(':')"),[17,0,0]]]]]], - caml_new_string("name@ separator@ (':')@]")], - _C_= + caml_string_of_jsbytes("not enough data, bool expected (1 byte)"), + 0], + caml_string_of_jsbytes("not enough data, bool expected (1 byte)")], + _g_= [0, [11, - caml_new_string("end"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("of"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("input"),[17,0,0]]]]]], - caml_new_string("end@ of@ input@]")], - _D_= + caml_string_of_jsbytes("invalid bool value (0x"), + [4,8,[0,2,2],0,[12,41,0]]], + caml_string_of_jsbytes("invalid bool value (0x%02X)")], + _b_= [0, [11, - caml_new_string("JavaScript"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("comment"),[17,0,0]]]], - caml_new_string("JavaScript@ comment@]")], - _E_= + caml_string_of_jsbytes + ("not enough data, string size tag expected (4 bytes)"), + 0], + caml_string_of_jsbytes + ("not enough data, string size tag expected (4 bytes)")], + _c_= [0, [11, - caml_new_string("JSON"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("value"),[17,0,0]]]], - caml_new_string("JSON@ value@]")], - _G_= + caml_string_of_jsbytes("not enough data, string expected ("), + [4,0,0,0,[11,caml_string_of_jsbytes(" bytes)"),0]]], + caml_string_of_jsbytes("not enough data, string expected (%d bytes)")], + _d_= [0, [11, - caml_new_string("member"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("name"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("or"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("object"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("end"),[17,partial$2,partial$1]]]]]]]]]], - caml_new_string("member@ name@ or@ object@ end@ ('\"'@ or@ '}')@]")], - _F_= + caml_string_of_jsbytes + ("not enough data, string terminator expected (0x00)"), + 0], + caml_string_of_jsbytes + ("not enough data, string terminator expected (0x00)")], + _e_= [0, - [11, - caml_new_string("value"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("separator"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("or"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("object"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("end"),[17,partial$4,partial$3]]]]]]]]]], - caml_new_string("value@ separator@ or@ object@ end@ (','@ or@ '}')@]")], - _I_= + [11,caml_string_of_jsbytes("string terminator expected (0x00)"),0], + caml_string_of_jsbytes("string terminator expected (0x00)")], + _a_= [0, [11, - caml_new_string("value"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("or"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("array"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("end"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("(value"),[17,partial$6,partial$5]]]]]]]]]], - caml_new_string("value@ or@ array@ end@ (value@ or@ ']')@]")], - _H_= + caml_string_of_jsbytes("not enough data, double expected (8 bytes)"), + 0], + caml_string_of_jsbytes("not enough data, double expected (8 bytes)")], + _i_= [0, [11, - caml_new_string("value"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("separator"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("or"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("array"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("end"),[17,partial$8,partial$7]]]]]]]]]], - caml_new_string("value@ separator@ or@ array@ end@ (','@ or@ ']')@]")], - _J_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("illegal"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("number"), - [17,[0,caml_new_string("@ "),1,0],[12,40,[2,0,[12,41,[17,0,0]]]]]]]]], - caml_new_string("@[illegal@ number@ (%s)@]")], - _P_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("illegal"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("literal"), - [17,[0,caml_new_string("@ "),1,0],[12,40,[2,0,[12,41,[17,0,0]]]]]]]]], - caml_new_string("@[illegal@ literal@ (%s)@]")], - _Q_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("illegal"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("character"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("in"), - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("JSON"), - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("string"),partial$9]]]]]]]]]], - caml_new_string("@[illegal@ character@ in@ JSON@ string@ (%a)@]")], - _K_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11,caml_new_string("unclosed"),[17,[0,caml_new_string("@ "),1,0],0]]], - caml_new_string("@[unclosed@ ")], - _L_= - [0,[11,caml_new_string("object"),[17,0,0]],caml_new_string("object@]")], - _M_=[0,[11,caml_new_string("array"),[17,0,0]],caml_new_string("array@]")], - _N_= - [0, - [11,caml_new_string("comment"),[17,0,0]], - caml_new_string("comment@]")], - _O_= - [0,[11,caml_new_string("string"),[17,0,0]],caml_new_string("string@]")], - _m_= + caml_string_of_jsbytes("not enough data for size and terminator"), + 0], + caml_string_of_jsbytes("not enough data for size and terminator")], + _j_= [0, - [12,39,[2,0,[11,caml_new_string("' ("),[15,[12,41,0]]]]], - caml_new_string("'%s' (%a)")], + [11,caml_string_of_jsbytes("size tag inconsistent with actual data"),0], + caml_string_of_jsbytes("size tag inconsistent with actual data")], + _k_=[0,79,0], _l_= [0, - [11,caml_new_string("U+"),[4,8,[0,2,4],0,0]], - caml_new_string("U+%04X")], - _d_=[0,[11,caml_new_string("`Null"),0],caml_new_string("`Null")], - _e_=[0,[11,caml_new_string("`Os"),0],caml_new_string("`Os")], - _f_=[0,[11,caml_new_string("`Oe"),0],caml_new_string("`Oe")], - _g_=[0,[11,caml_new_string("`Ae"),0],caml_new_string("`Ae")], - _c_=[0,[11,caml_new_string("`As"),0],caml_new_string("`As")], - _h_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [11,caml_new_string("`Name "),[3,0,[17,0,0]]]], - caml_new_string("@[`Name %S@]")], - _i_= + [11,caml_string_of_jsbytes("early terminator"),0], + caml_string_of_jsbytes("early terminator")], + _s_= [0, - [18, - [1,[0,0,caml_new_string("")]], - [11,caml_new_string("`Bool "),[9,0,[17,0,0]]]], - caml_new_string("@[`Bool %b@]")], - _j_= + [11, + caml_string_of_jsbytes("unknown immediate tag (0x"), + [4,8,[0,2,2],0,[12,41,0]]], + caml_string_of_jsbytes("unknown immediate tag (0x%02X)")], + _t_= [0, - [18, - [1,[0,0,caml_new_string("")]], - [11,caml_new_string("`Float "),[2,0,[17,0,0]]]], - caml_new_string("@[`Float %s@]")], - _k_= + [11, + caml_string_of_jsbytes("not enough data, terminator expected (0x00)"), + 0], + caml_string_of_jsbytes("not enough data, terminator expected (0x00)")], + _u_= [0, - [18, - [1,[0,0,caml_new_string("")]], - [11,caml_new_string("`String "),[3,0,[17,0,0]]]], - caml_new_string("@[`String %S@]")]; - function unsafe_blit(s,soff,d,doff) - {var _dn_=caml_call1(Stdlib_bytes[43],s); - return function(_do_) - {return runtime.caml_blit_bytes(_dn_,soff,d,doff,_do_)}} - function unsafe_set_byte(s,j,byte$0) - {runtime.caml_bytes_unsafe_set(s,j,byte$0);return 0} - var - _b_=Stdlib[19], - ux_soi=Stdlib[19] - 1 | 0, - u_rep=caml_call1(Stdlib_uchar[10],Uutf[2]), - u_nl=10, - u_sp=32, - u_quot=34, - u_lbrack=91, - u_rbrack=93, - u_lbrace=123, - u_rbrace=125, - u_colon=58, - u_comma=44, - u_slash=47, - u_bslash=92, - u_times=42; - function is_white(param) - {var switch$0=11 <= param?32 === param?1:0:9 <= param?1:0; - return switch$0?1:0} - function is_val_sep(param) - {if(44 <= param) - var - _dm_=param - 45 | 0, - switch$0=79 < _dm_ >>> 0?81 <= _dm_?0:1:48 === _dm_?1:0; - else - var switch$0=11 <= param?32 === param?1:0:9 <= param?1:0; - return switch$0?1:0} - function pp_lexeme(ppf,param) - {if(typeof param === "number") - return 14610 === param - ?caml_call2(_a_,ppf,_c_) - :17732 <= param - ?870828711 <= param - ?caml_call2(_a_,ppf,_d_) - :caml_call2(_a_,ppf,_e_) - :17718 <= param - ?caml_call2(_a_,ppf,_f_) - :caml_call2(_a_,ppf,_g_); - var _dl_=param[1]; - if(737456202 <= _dl_) - {if(869834347 <= _dl_){var s=param[2];return caml_call3(_a_,ppf,_h_,s)} - var b=param[2]; - return caml_call3(_a_,ppf,_i_,b)} - if(365180284 <= _dl_) - {var f=param[2]; - return caml_call3(_a_,ppf,_j_,caml_call1(Stdlib[35],f))} - var s$0=param[2]; - return caml_call3(_a_,ppf,_k_,s$0)} - function err_lone_hi(p) - {return [0,106380200,[0,992790154,[0,225181919,p]]]} - function err_number(s){return [0,106380200,[0,30214610,s]]} - function pp_cp(ppf,u){return caml_call3(_a_,ppf,_l_,u)} - function pp_uchar(ppf,u) - {if(31 < caml_call1(Stdlib_uchar[10],u)) - {var b=caml_call1(Stdlib_buffer[1],4); - caml_call2(Uutf[23][1],b,u); - var _dk_=caml_call1(Stdlib_uchar[10],u); - return caml_call5 - (_a_,ppf,_m_,caml_call1(Stdlib_buffer[2],b),pp_cp,_dk_)} - return pp_cp(ppf,caml_call1(Stdlib_uchar[10],u))} - function pp_error(ppf,param) - {if(typeof param === "number")return caml_call2(_a_,ppf,_n_); - var _df_=param[1]; - if(30214610 <= _df_) - {if(732461442 <= _df_) - {if(992790154 <= _df_) - {var r=param[2]; - caml_call2(_a_,ppf,_o_); - var _dg_=r[1]; - if(153884648 === _dg_) - {var p=r[2];return caml_call4(_a_,ppf,_p_,pp_cp,p)} - if(429931233 <= _dg_) - {if(508493173 <= _dg_) - {var u=r[2];return caml_call4(_a_,ppf,_q_,pp_uchar,u)} - var p$0=r[2]; - return caml_call4(_a_,ppf,_r_,pp_cp,p$0)} - if(225181919 <= _dg_) - {var p$1=r[2];return caml_call4(_a_,ppf,_s_,pp_cp,p$1)} - var u$0=r[2]; - return caml_call4(_a_,ppf,_t_,pp_uchar,u$0)} - var bs=param[2],l=caml_ml_string_length(bs); - caml_call2(_a_,ppf,_u_); - if(0 < l)caml_call3(_a_,ppf,_v_,caml_string_get(bs,0)); - var _di_=l - 1 | 0,_dh_=1; - if(! (_di_ < 1)) - {var i=_dh_; + [11,caml_string_of_jsbytes("terminator expected (0x00)"),0], + caml_string_of_jsbytes("terminator expected (0x00)")]; + function view(root) + {var ___=root[1]; + if(1 === ___[0]) + {var + serialized=___[1], + array_field=serialized[4], + length=serialized[3], + offset=serialized[2], + buffer=serialized[1], + offset$0=[0,offset], + length$0=[0,length], + error= + function(fmt) + {function _ac_(msg) + {throw [0,Bson_decoding_error,msg,buffer,offset$0[1]]} + return caml_call2(Stdlib_format[133],_ac_,fmt)}, + box=function(node){return [0,node,0,root[3]]}, + skip= + function(n) + {offset$0[1] = offset$0[1] + n | 0; + length$0[1] = length$0[1] - n | 0; + return 0}, + read_float= + function(param) + {if(length$0[1] < 8)error(_a_); + var res=caml_call2(EndianBytes[4][9],buffer,offset$0[1]); + skip(8); + return res}, + read_string= + function(param) + {if(length$0[1] < 4)error(_b_); + var + strlen= + caml_call2(EndianBytes[4][6],buffer,offset$0[1]) - 1 | 0; + skip(4); + if(length$0[1] < strlen)caml_call1(error(_c_),strlen); + var res=caml_call3(Stdlib_bytes[8],buffer,offset$0[1],strlen); + skip(strlen); + if(length$0[1] < 1)error(_d_); + if(0 !== caml_call2(EndianBytes[4][3],buffer,offset$0[1])) + error(_e_); + skip(1); + return res}, + read_bool= + function(param) + {if(length$0[1] < 1)error(_f_); + var + byte$0=caml_call2(EndianBytes[4][3],buffer,offset$0[1]), + res=0 === byte$0?0:1 === byte$0?1:caml_call1(error(_g_),byte$0); + skip(1); + return res}, + read_field_name= + function(param) + {var len=0; for(;;) - {caml_call3(_a_,ppf,_x_,caml_string_get(bs,i)); - var _dj_=i + 1 | 0; - if(_di_ !== i){var i=_dj_;continue} - break}} - return caml_call2(_a_,ppf,_w_)} - if(434236056 <= _df_) - {var r$0=param[2]; - caml_call2(_a_,ppf,_y_); - return typeof r$0 === "number" - ?3456159 <= r$0 - ?826371656 <= r$0 - ?869834347 <= r$0 - ?caml_call2(_a_,ppf,_z_) - :caml_call2(_a_,ppf,_A_) - :713199754 <= r$0 - ?caml_call2(_a_,ppf,_B_) - :caml_call2(_a_,ppf,_C_) - :-826170817 <= r$0 - ?caml_call2(_a_,ppf,_D_) - :caml_call2(_a_,ppf,_E_) - :881518886 <= r$0[1] - ?0 === r$0[2] - ?caml_call2(_a_,ppf,_F_) - :caml_call2(_a_,ppf,_G_) - :0 === r$0[2] - ?caml_call2(_a_,ppf,_H_) - :caml_call2(_a_,ppf,_I_)} - var n=param[2]; - return caml_call3(_a_,ppf,_J_,n)} - if(-364210971 === _df_) - {var r$1=param[2]; - caml_call2(_a_,ppf,_K_); - return 14610 <= r$1 - ?17732 <= r$1?caml_call2(_a_,ppf,_L_):caml_call2(_a_,ppf,_M_) - :-826170817 <= r$1 - ?caml_call2(_a_,ppf,_N_) - :caml_call2(_a_,ppf,_O_)} - if(-67383738 <= _df_) - {var l$0=param[2];return caml_call3(_a_,ppf,_P_,l$0)} - var u$1=param[2]; - return caml_call4(_a_,ppf,_Q_,pp_uchar,u$1)} - function pp_decode(ppf,param) - {if(typeof param === "number") - return 1006505782 <= param - ?caml_call2(_a_,ppf,_R_) - :caml_call2(_a_,ppf,_S_); - var _de_=param[1]; - if(-588596599 <= _de_) - {if(106380200 <= _de_) - {var e=param[2];return caml_call4(_a_,ppf,_T_,pp_error,e)} - var s=param[2]; - return caml_call3(_a_,ppf,_U_,s)} - if(-633954146 <= _de_) - {var l=param[2];return caml_call4(_a_,ppf,_V_,pp_lexeme,l)} - var match=param[2],s$0=match[2],style=match[1]; - function pr_style(ppf,param) - {return 83 <= param?caml_call2(_a_,ppf,_W_):caml_call2(_a_,ppf,_X_)} - return caml_call5(_a_,ppf,_Y_,pr_style,style,s$0)} - function baddc(d,c) - {var _dd_=caml_call1(Stdlib_uchar[9],c); - return caml_call2(Uutf[23][1],d[2],_dd_)} - function badd(d) - {var _dc_=caml_call1(Stdlib_uchar[9],d[8]); - return caml_call2(Uutf[23][1],d[2],_dc_)} - function buf(d) - {var t=caml_call1(Stdlib_buffer[2],d[2]); - caml_call1(Stdlib_buffer[8],d[2]); - return t} - function dpos(d) - {var _db_=caml_call1(Uutf[10],d[1]); - return [0,caml_call1(Uutf[9],d[1]),_db_]} - function spos(d) - {d[4] = caml_call1(Uutf[9],d[1]); - d[5] = caml_call1(Uutf[10],d[1]); - return 0} - function epos(d) - {d[6] = caml_call1(Uutf[9],d[1]); - d[7] = caml_call1(Uutf[10],d[1]); - return 0} - function stack_range(d) - {var _da_=d[9]; - if(_da_) - {var match=_da_[1][2],c=match[2],l=match[1]; - d[4] = l; - d[5] = c; - return epos(d)} - throw [0,Assert_failure,_Z_]} - function dpop(d) - {spos(d); - epos(d); - var _c__=d[9]; - if(_c__) - {var _c$_=_c__[2]; - return _c$_ - ?17732 <= _c$_[1][1] - ?(d[10] = 1,d[9] = _c$_,0) - :(d[10] = 0,d[9] = _c$_,0) - :(d[10] = 0,d[9] = 0,0)} - throw [0,Assert_failure,___]} - function k(d){return 3455931} - function ret(v,k,d){d[12] = k;return v} - function readc(k,d) - {var match=caml_call1(Uutf[6],d[1]); - if(typeof match === "number") - return 1006505782 <= match - ?ret(1006505782,function(_c9_){return readc(k,_c9_)},d) - :(d[8] = _b_,caml_call1(k,d)); - if(852405675 <= match[1]) - {var u=match[2]; - d[8] = caml_call1(Stdlib_uchar[10],u); - return caml_call1(k,d)} - var bs=match[2]; - d[8] = u_rep; - epos(d); - return ret([0,106380200,[0,732461442,bs]],k,d)} - function r_scomment(k,d) - {if(d[8] !== 10) - if(d[8] !== _b_) - {badd(d);return readc(function(_c8_){return r_scomment(k,_c8_)},d)} - epos(d); - function _c6_(_c7_){return readc(k,_c7_)} - return ret([0,-826170817,[0,83,buf(d)]],_c6_,d)} - function r_mcomment(closing,k$0,d) - {if(d[8] === _b_){epos(d);return ret(err_unclosed_comment,k,d)} - if(closing) - {if(d[8] === 47) - {epos(d); - var _cW_=function(_c5_){return readc(k$0,_c5_)}; - return ret([0,-826170817,[0,77,buf(d)]],_cW_,d)} - if(d[8] === 42) - {badd(d); - var _cX_=1; - return readc(function(_c4_){return r_mcomment(_cX_,k$0,_c4_)},d)} - baddc(d,u_times); - badd(d); - var _cY_=0; - return readc(function(_c3_){return r_mcomment(_cY_,k$0,_c3_)},d)} - if(d[8] === 42) - {var _cZ_=1; - return readc(function(_c2_){return r_mcomment(_cZ_,k$0,_c2_)},d)} - badd(d); - var _c0_=0; - return readc(function(_c1_){return r_mcomment(_c0_,k$0,_c1_)},d)} - function r_ws_uncut(k,d) - {return is_white(d[8]) - ?(epos(d), - badd(d), - readc(function(_cV_){return r_ws_uncut(k,_cV_)},d)) - :ret([0,-588596599,buf(d)],k,d)} - function r_white_uncut(k,d) - {if(is_white(d[8])) - {spos(d); - return r_ws_uncut(function(_cU_){return r_white_uncut(k,_cU_)},d)} - if(d[8] === 47) - {spos(d); - var k$0=function(_cT_){return r_white_uncut(k,_cT_)}; - return readc - (function(d) - {if(d[8] === 47) - return readc(function(_cS_){return r_scomment(k$0,_cS_)},d); - if(d[8] === 42) - {var _cQ_=0; - return readc - (function(_cR_){return r_mcomment(_cQ_,k$0,_cR_)},d)} - epos(d); - return ret(err_exp_comment,k$0,d)}, - d)} - return caml_call1(k,d)} - function r_ws(k,d) - {return is_white(d[8]) - ?readc(function(_cP_){return r_ws(k,_cP_)},d) - :caml_call1(k,d)} - function r_white(k,d){return d[3]?r_white_uncut(k,d):r_ws(k,d)} - function r_u_escape(hi,u,count,k,d) - {function error(err,k,d){baddc(d,u_rep);return ret(err,k,d)} - if(0 < count) - {var _cD_=d[8],_cx_=48 <= _cD_?1:0,_cy_=_cx_?_cD_ <= 57?1:0:_cx_; - if(_cy_) - var _cz_=_cy_; + {if(0 === length$0[1])error(_h_); + var match=caml_call2(EndianBytes[4][3],buffer,offset$0[1]); + if(0 === match) + {skip(- len | 0); + var res=caml_call3(Stdlib_bytes[8],buffer,offset$0[1],len); + skip(len + 1 | 0); + return res} + skip(1); + var len$0=len + 1 | 0,len=len$0; + continue}}; + if(length$0[1] < 5)error(_i_); + var size=caml_call2(EndianBytes[4][6],buffer,offset$0[1]); + if(size !== length$0[1])error(_j_); + skip(4); + var tag=caml_call2(EndianBytes[4][3],buffer,offset$0[1]); + if(0 === tag) + var deserialized$0=1 === length$0[1]?_k_:error(_l_); else - {var _cA_=65 <= _cD_?1:0,_cB_=_cA_?_cD_ <= 70?1:0:_cA_; - if(_cB_) - var _cz_=_cB_; + {var switch$0=0; + if(root[2] || ! (128 === (tag & 240))) + switch$0 = 1; else - var _cC_=97 <= _cD_?1:0,_cz_=_cC_?_cD_ <= 102?1:0:_cC_} - if(_cz_) - {var - _cE_=57 < d[8]?70 < d[8]?d[8] - 87 | 0:d[8] - 55 | 0:d[8] - 48 | 0, - u$0=(u * 16 | 0) + _cE_ | 0; - epos(d); - var _cF_=count - 1 | 0; - return readc - (function(_cO_){return r_u_escape(hi,u$0,_cF_,k,_cO_)},d)} - epos(d); - var _cG_=function(_cN_){return readc(k,_cN_)}; - return error - ([0, - 106380200, - [0, - 992790154, - [0,-542918501,caml_call1(Stdlib_uchar[8],d[8])]]], - _cG_, - d)} - if(hi) - {var hi$0=hi[1]; - if(56320 <= u) - if(! (57343 < u)) - {var u$1=((hi$0 & 1023) << 10 | u & 1023) + 65536 | 0; - baddc(d,u$1); - return caml_call1(k,d)} - return error([0,106380200,[0,992790154,[0,153884648,u]]],k,d)} - if(55296 <= u) - if(! (57343 < u)) - return 56319 < u - ?error([0,106380200,[0,992790154,[0,429931233,u]]],k,d) - :d[8] !== 92 - ?error(err_lone_hi(u),k,d) - :readc - (function(d) - {if(117 === d[8]) - {var _cH_=4,_cI_=0,_cJ_=[0,u]; - return readc - (function(_cM_){return r_u_escape(_cJ_,_cI_,_cH_,k,_cM_)},d)} - function _cK_(_cL_){return r_escape(k,_cL_)} - return error(err_lone_hi(u),_cK_,d)}, - d); - baddc(d,u); - return caml_call1(k,d)} - function r_escape(k,d) - {var _cq_=d[8]; - if(34 === _cq_){baddc(d,u_quot);return readc(k,d)} - if(92 <= _cq_) - {if(! (118 <= _cq_)) - {var switcher=_cq_ - 92 | 0; - switch(switcher) - {case 0:baddc(d,u_bslash);return readc(k,d); - case 6:baddc(d,8);return readc(k,d); - case 10:baddc(d,12);return readc(k,d); - case 18:baddc(d,u_nl);return readc(k,d); - case 22:baddc(d,13);return readc(k,d); - case 24:baddc(d,9);return readc(k,d); - case 25: - var _cs_=4,_ct_=0,_cu_=0; - return readc - (function(_cw_){return r_u_escape(_cu_,_ct_,_cs_,k,_cw_)},d) - }}} - else - if(47 === _cq_){baddc(d,u_slash);return readc(k,d)} - epos(d); - baddc(d,u_rep); - function _cr_(_cv_){return readc(k,_cv_)} - return ret - ([0, - 106380200, - [0,992790154,[0,508493173,caml_call1(Stdlib_uchar[8],_cq_)]]], - _cr_, - d)} - function r_string(k$0,d) - {if(d[8] === _b_){epos(d);return ret(err_unclosed_string,k,d)} - var _ch_=d[8],_ce_=_ch_ <= 31?1:0; - if(_ce_) - var _cf_=_ce_; - else - var _cg_=34 === _ch_?1:0,_cf_=_cg_ || (92 === _ch_?1:0); - if(_cf_) - {if(d[8] === 34){epos(d);return readc(k$0,d)} - if(d[8] === 92) - {var _ci_=function(_cp_){return r_string(k$0,_cp_)}; - return readc(function(_co_){return r_escape(_ci_,_co_)},d)} - epos(d); - baddc(d,u_rep); - var - _cj_=function(_cn_){return r_string(k$0,_cn_)}, - _ck_=function(_cm_){return readc(_cj_,_cm_)}; - return ret - ([0,106380200,[0,-635137946,caml_call1(Stdlib_uchar[8],d[8])]], - _ck_, - d)} - badd(d); - return readc(function(_cl_){return r_string(k$0,_cl_)},d)} - function r_float(k,d) - {if(! is_val_sep(d[8])) - if(d[8] !== _b_) - {epos(d); - badd(d); - return readc(function(_cd_){return r_float(k,_cd_)},d)} - var s=buf(d); - try - {var - _cb_= - ret - ([0,-633954146,[0,365180284,runtime.caml_float_of_string(s)]],k,d); - return _cb_} - catch(_cc_) - {_cc_ = caml_wrap_exception(_cc_); - if(_cc_[1] === Stdlib[7])return ret(err_number(s),k,d); - throw _cc_}} - function r_literal(k,d) - {if(! is_val_sep(d[8])) - if(d[8] !== _b_) - {epos(d); - badd(d); - return readc(function(_ca_){return r_literal(k,_ca_)},d)} - var s=buf(d); - return caml_string_notequal(s,cst_false) - ?caml_string_notequal(s,cst_null) - ?caml_string_notequal(s,cst_true) - ?ret([0,106380200,[0,-67383738,s]],k,d) - :ret(_$_,k,d) - :ret(_aa_,k,d) - :ret(_ab_,k,d)} - function r_value(err,k,d) - {var _b5_=d[8]; - if(103 <= _b5_) - {var switcher=_b5_ - 110 | 0; - if(6 < switcher >>> 0) - {if(13 === switcher) - {spos(d); - epos(d); - d[11] = 1; - d[10] = 1; - var _b6_=d[9]; - d[9] = [0,[0,17732,dpos(d)],_b6_]; - return ret(_ac_,function(_b9_){return readc(k,_b9_)},d)} - var switch$0=0} - else - var switch$0=4 < (switcher - 1 | 0) >>> 0?1:0} - else - {if(34 === _b5_) - {spos(d); - var - _b7_= - function(d){return ret([0,-633954146,[0,-976970511,buf(d)]],k,d)}; - return readc(function(_b$_){return r_string(_b7_,_b$_)},d)} - if(91 === _b5_) - {spos(d); - epos(d); - d[11] = 1; - var _b8_=d[9]; - d[9] = [0,[0,14610,dpos(d)],_b8_]; - return ret(_ad_,function(_b__){return readc(k,_b__)},d)} - var switch$0=102 <= _b5_?1:0} - if(switch$0){spos(d);return r_literal(k,d)} - var _b3_=48 <= _b5_?1:0,_b4_=_b3_?_b5_ <= 57?1:0:_b3_; - if(! _b4_)if(_b5_ !== 45)return caml_call2(err,k,d); - spos(d); - return r_float(k,d)} - function discard_to(c1,c2,err,k,d) - {if(d[8] !== c1) - if(d[8] !== c2) - if(d[8] !== _b_) - {epos(d); - return readc(function(_b2_){return discard_to(c1,c2,err,k,_b2_)},d)} - return ret(err,k,d)} - function nxmem(err,k,d) - {spos(d);d[10] = 1;return discard_to(u_comma,u_rbrace,err,k,d)} - function k$0(d) - {var _bG_=d[9]; - return _bG_ - ?17732 <= _bG_[1][1] - ?d[10] - ?r_white - (function(d) - {function r_name(err,k,d) - {if(d[8] !== 34)return nxmem(err,k,d); - spos(d); - function _bL_(d) - {return ret([0,-633954146,[0,869834347,buf(d)]],k,d)} - return readc(function(_bM_){return r_string(_bL_,_bM_)},d)} - var last_start=d[11]; - d[11] = 0; - d[10] = 0; - if(d[8] === _b_) - {stack_range(d);return ret(err_unclosed_obj,k,d)} - if(d[8] === 125) - {dpop(d); - return ret(_af_,function(_bK_){return readc(k$0,_bK_)},d)} - if(last_start)return r_name(err_exp_obj_fst,k$0,d); - if(d[8] === 44) - {var - _bH_= - function(_bJ_){return r_name(err_exp_name,k$0,_bJ_)}; - return readc(function(_bI_){return r_white(_bH_,_bI_)},d)} - return nxmem(err_exp_obj_nxt,k$0,d)}, - d) - :r_white - (function(d) - {d[10] = 1; - if(d[8] === 58) - {var - _bN_= - function(_bR_,_bS_){return nxmem(err_exp_value,_bR_,_bS_)}, - _bO_=function(_bQ_){return r_value(_bN_,k$0,_bQ_)}; - return readc(function(_bP_){return r_white(_bO_,_bP_)},d)} - return nxmem(err_exp_nsep,k$0,d)}, - d) - :r_white - (function(d) - {function nxval(err,k,d) - {spos(d);return discard_to(u_comma,u_rbrack,err,k,d)} - var last_start=d[11]; - d[11] = 0; - if(d[8] === _b_) - {stack_range(d);return ret(err_unclosed_arr,k,d)} - if(d[8] === 93) - {dpop(d); - return ret(_ae_,function(_b1_){return readc(k$0,_b1_)},d)} - if(last_start) - return r_value - (function(_bZ_,_b0_) - {return nxval(err_exp_arr_fst,_bZ_,_b0_)}, - k$0, - d); - if(d[8] === 44) - {var - _bT_= - function(_bX_,_bY_){return nxval(err_exp_value,_bX_,_bY_)}, - _bU_=function(_bW_){return r_value(_bT_,k$0,_bW_)}; - return readc(function(_bV_){return r_white(_bU_,_bV_)},d)} - return nxval(err_exp_arr_nxt,k$0,d)}, - d) - :r_white - (function(d) - {return d[8] === _b_ - ?ret(3455931,k,d) - :(spos(d),discard_to(_b_,_b_,err_exp_eoi,k,d))}, - d)} - function discard_to_white(err,k,d) - {if(! is_white(d[8])) - if(d[8] !== _b_) - {epos(d); - return readc(function(_bF_){return discard_to_white(err,k,_bF_)},d)} - return ret(err,k,d)} - function r_json(k,d) - {function err(k,d) - {spos(d); - function _bC_(_bE_){return r_json(k,_bE_)} - return discard_to_white - (err_exp_json,function(_bD_){return r_white(_bC_,_bD_)},d)} - return d[8] !== _b_?r_value(err,k,d):ret(err_exp_json,k,d)} - function r_start(d) - {function _bz_(_bB_){return r_json(k$0,_bB_)} - function k(_bA_){return r_white(_bz_,_bA_)} - return readc - (function(d) - {return caml_call1(Uutf[13],d[1])?ret(err_bom,k,d):k(d)}, - d)} - var nln=[0,605782321,caml_call1(Stdlib_uchar[9],10)]; - function decoder(encoding,src) - {var u=caml_call3(Uutf[5],[0,nln],encoding,src); - return [0, - u, - caml_call1(Stdlib_buffer[1],1024), - 0, - 1, - 0, - 1, - 0, - ux_soi, - 0, - 0, - 0, - r_start]} - function decode_uncut(d){d[3] = 1;return caml_call1(d[12],d)} - function decode(d) - {d[3] = 0; - var v=caml_call1(d[12],d); - if(typeof v !== "number") - {var _by_=v[1]; - if(-633954146 !== _by_) - if(! (106380200 <= _by_))throw [0,Assert_failure,_ag_]} - return v} - function decoder_src(d){return caml_call1(Uutf[14],d[1])} - function decoded_range(d){return [0,[0,d[4],d[5]],[0,d[6],d[7]]]} - function decoder_encoding(d) - {var enc=caml_call1(Uutf[7],d[1]); - if(338302576 <= enc) - if(! (684370880 <= enc))throw [0,Assert_failure,_ah_]; - return enc} - function invalid_arg(fmt) + {skip(1); + var tag$0=tag & 15,switcher=tag$0 - 1 | 0,switch$1=0; + if(! (9 < switcher >>> 0)) + {var switch$2=0; + switch(switcher) + {case 0:var _$_=[0,365180284,read_float(0)];break; + case 1:var _$_=[0,-976970511,read_string(0)];break; + case 7:var _$_=[0,737456202,read_bool(0)];break; + case 9:var _$_=870828711;break; + default:switch$2 = 1} + if(! switch$2){var res=_$_;switch$1 = 1}} + if(! switch$1)var res=caml_call1(error(_s_),tag$0); + if(1 !== length$0[1])error(_t_); + if(0 !== caml_call2(EndianBytes[4][3],buffer,offset$0[1])) + error(_u_); + skip(1); + var deserialized$0=res} + if(switch$0) + var + loop= + function(acc) + {var acc$0=acc; + for(;;) + {var tag=caml_call2(EndianBytes[4][3],buffer,offset$0[1]); + if(0 === tag) + {if(1 === length$0[1]) + {if(array_field) + try + {var + to_array= + function(acc,i,param) + {var acc$0=acc,i$0=i,param$0=param; + for(;;) + {if(param$0) + {var + rest=param$0[2], + match=param$0[1], + bson=match[2], + name=match[1]; + if + (runtime.caml_string_equal(name,caml_call1(Stdlib[33],i$0))) + {var + i$1=i$0 + 1 | 0, + acc$1=[0,bson,acc$0], + acc$0=acc$1, + i$0=i$1, + param$0=rest; + continue} + throw Stdlib[3]} + return [0,65,caml_call1(Stdlib_list[9],acc$0)]}}, + _aa_=to_array(0,0,caml_call1(Stdlib_list[9],acc$0)); + return _aa_} + catch(_ab_) + {_ab_ = caml_wrap_exception(_ab_); + if(_ab_ === Stdlib[3])return error(_m_); + throw _ab_} + return [0,79,caml_call1(Stdlib_list[9],acc$0)]} + return error(_n_)} + skip(1); + var switcher=tag - 1 | 0; + if(! (9 < switcher >>> 0)) + switch(switcher) + {case 0: + var + name=read_field_name(0), + acc$1= + [0,[0,name,box([0,[0,365180284,read_float(0)]])],acc$0], + acc$0=acc$1; + continue; + case 1: + var + name$0=read_field_name(0), + acc$2= + [0,[0,name$0,box([0,[0,-976970511,read_string(0)]])],acc$0], + acc$0=acc$2; + continue; + case 7: + var + name$2=read_field_name(0), + acc$4= + [0,[0,name$2,box([0,[0,737456202,read_bool(0)]])],acc$0], + acc$0=acc$4; + continue; + case 9: + var + name$3=read_field_name(0), + acc$5=[0,[0,name$3,box(_r_)],acc$0], + acc$0=acc$5; + continue; + case 2: + case 3: + var name$1=read_field_name(0); + if(length$0[1] < 4)error(_p_); + var doclen=caml_call2(EndianBytes[4][6],buffer,offset$0[1]); + if(length$0[1] < doclen)caml_call1(error(_q_),doclen); + var serialized=[0,buffer,offset$0[1],doclen,4 === tag?1:0]; + skip(doclen); + var + acc$3=[0,[0,name$1,box([1,serialized])],acc$0], + acc$0=acc$3; + continue + } + return caml_call1(error(_o_),tag)}}, + deserialized$0=loop(0)} + root[1] = root[3]?[2,deserialized$0,serialized]:[0,deserialized$0]; + return deserialized$0} + var deserialized=___[1]; + return deserialized} + function repr(deserialized){return [0,[0,deserialized],0,1]} + var repr_uid=caml_call1(Json_repr[1],0); + function bson_to_bytes(opt,_B_,bson) + {if(opt)var sth=opt[1],cache=sth;else var cache=1; + if(_B_)var sth$0=_B_[1],conforming=sth$0;else var conforming=0; + var _A_=bson[1]; + switch(_A_[0]) + {case 0: + var + compute_size= + function(bson) + {var _Q_=bson[1]; + switch(_Q_[0]) + {case 0: + var deserialized=_Q_[1]; + if(typeof deserialized === "number")return 6; + var _R_=deserialized[1]; + if(65 === _R_) + {var + cells=deserialized[2], + _S_= + function(param,bson) + {var i=param[2],acc=param[1],match=view(bson); + if(typeof match === "number") + var self=0; + else + {var _Y_=match[1]; + if(365180284 <= _Y_) + var _Z_=737456202 <= _Y_?1:8; + else + if(65 <= _Y_) + var _Z_=compute_size(bson); + else + var + str=match[2], + _Z_=(4 + caml_ml_string_length(str) | 0) + 1 | 0; + var self=_Z_} + var acc$0=0,i$0=i,_X_=i + 1 | 0; + for(;;) + {if(9 < i$0) + {var + i$1=i$0 / 10 | 0, + acc$1=1 + acc$0 | 0, + acc$0=acc$1, + i$0=i$1; + continue} + return [0, + (((acc + 1 | 0) + (1 + acc$0 | 0) | 0) + 1 | 0) + self | 0, + _X_]}}, + match=caml_call3(Stdlib_list[21],_S_,_v_,cells), + acc=match[1]; + return (4 + acc | 0) + 1 | 0} + if(365180284 <= _R_)return 737456202 <= _R_?7:14; + if(79 <= _R_) + {var + fields=deserialized[2], + _T_=0, + _U_= + function(acc,param) + {var bson=param[2],name=param[1],match=view(bson); + if(typeof match === "number") + var self=0; + else + {var _V_=match[1]; + if(365180284 <= _V_) + var _W_=737456202 <= _V_?1:8; + else + if(65 <= _V_) + var _W_=compute_size(bson); + else + var + str=match[2], + _W_=(4 + caml_ml_string_length(str) | 0) + 1 | 0; + var self=_W_} + return (((acc + 1 | 0) + caml_ml_string_length(name) | 0) + + + 1 + | + 0) + + + self + | + 0}, + acc$0=caml_call3(Stdlib_list[21],_U_,_T_,fields); + return (4 + acc$0 | 0) + 1 | 0} + var str=deserialized[2]; + return ((9 + caml_ml_string_length(str) | 0) + 1 | 0) + 1 | 0; + case 1:var length=_Q_[1][3];break; + default:var length=_Q_[2][3]} + return length}, + computed_size=compute_size(bson), + result=runtime.caml_create_bytes(computed_size), + pos=[0,0], + symbol=function(r,i){r[1] = r[1] + i | 0;return 0}, + reserve_size_stamp= + function(param) + {var offset=pos[1]; + symbol(pos,4); + return function(param) + {caml_call3(EndianBytes[4][11],result,pos[1],0); + symbol(pos,1); + var size=pos[1] - offset | 0; + return caml_call3(EndianBytes[4][13],result,offset,size)}}, + serialize= + function(conforming,bson) + {var _H_=bson[1]; + switch(_H_[0]) + {case 0: + var deserialized=_H_[1],offset=pos[1],switch$0=0; + if(typeof deserialized === "number") + {if(870828711 !== deserialized)switch$0 = 1} + else + {var _F_=deserialized[1]; + if(66 <= _F_) + {if(365180284 !== _F_ && 737456202 !== _F_)switch$0 = 1} + else + if(-976970511 !== _F_ && ! (65 <= _F_))switch$0 = 1} + if(! switch$0 && conforming) + throw [0,Stdlib[6],cst_Json_repr_bson_to_bytes]; + if(typeof deserialized === "number") + {var update_size_stamp=reserve_size_stamp(0); + caml_call3(EndianBytes[4][11],result,pos[1],138); + symbol(pos,1); + caml_call1(update_size_stamp,0)} + else + {var _C_=deserialized[1]; + if(365180284 <= _C_) + if(737456202 <= _C_) + {var + b=deserialized[2], + update_size_stamp$0=reserve_size_stamp(0); + caml_call3(EndianBytes[4][11],result,pos[1],136); + symbol(pos,1); + var _D_=b?1:0; + caml_call3(EndianBytes[4][11],result,pos[1],_D_); + symbol(pos,1); + caml_call1(update_size_stamp$0,0)} + else + {var + f=deserialized[2], + update_size_stamp$1=reserve_size_stamp(0); + caml_call3(EndianBytes[4][11],result,pos[1],129); + symbol(pos,1); + caml_call3(EndianBytes[4][16],result,pos[1],f); + symbol(pos,8); + caml_call1(update_size_stamp$1,0)} + else + if(65 <= _C_) + {if(79 <= deserialized[1]) + var fields=deserialized[2],fields$0=fields; + else + var + cells=deserialized[2], + _E_=function(i,v){return [0,caml_call1(Stdlib[33],i),v]}, + fields$0=caml_call2(Stdlib_list[18],_E_,cells); + var + update_size_stamp$2=reserve_size_stamp(0), + _G_= + function(param) + {var bson=param[2],name=param[1],match=view(bson); + if(typeof match === "number") + var _L_=10; + else + var + _O_=match[1], + _P_= + 65 === _O_ + ?4 + :365180284 <= _O_?737456202 <= _O_?8:1:79 <= _O_?3:2, + _L_=_P_; + caml_call3(EndianBytes[4][11],result,pos[1],_L_); + symbol(pos,1); + var strlen=caml_ml_string_length(name); + caml_call5(Stdlib_bytes[12],name,0,result,pos[1],strlen); + symbol(pos,strlen); + caml_call3(EndianBytes[4][11],result,pos[1],0); + symbol(pos,1); + var match$0=view(bson); + if(typeof match$0 === "number")return 0; + var _M_=match$0[1]; + if(365180284 <= _M_) + {if(737456202 <= _M_) + {var b=match$0[2],_N_=b?1:0; + caml_call3(EndianBytes[4][11],result,pos[1],_N_); + return symbol(pos,1)} + var f=match$0[2]; + caml_call3(EndianBytes[4][16],result,pos[1],f); + return symbol(pos,8)} + if(65 <= _M_)return serialize(0,bson); + var str=match$0[2],strlen$0=caml_ml_string_length(str); + caml_call3 + (EndianBytes[4][13],result,pos[1],strlen$0 + 1 | 0); + symbol(pos,4); + caml_call5(Stdlib_bytes[12],str,0,result,pos[1],strlen$0); + symbol(pos,strlen$0); + caml_call3(EndianBytes[4][11],result,pos[1],0); + return symbol(pos,1)}; + caml_call2(Stdlib_list[15],_G_,fields$0); + caml_call1(update_size_stamp$2,0)} + else + {var + str=deserialized[2], + update_size_stamp$3=reserve_size_stamp(0); + caml_call3(EndianBytes[4][11],result,pos[1],130); + symbol(pos,1); + var strlen=caml_ml_string_length(str); + caml_call3(EndianBytes[4][13],result,pos[1],strlen + 1 | 0); + symbol(pos,4); + caml_call5(Stdlib_bytes[12],str,0,result,pos[1],strlen); + symbol(pos,strlen); + caml_call3(EndianBytes[4][11],result,pos[1],0); + symbol(pos,1); + caml_call1(update_size_stamp$3,0)}} + var length=pos[1] - offset | 0; + if(cache) + {var switch$1=0; + if + (typeof deserialized !== "number" && 65 === deserialized[1]) + {var array_field=1;switch$1 = 1} + if(! switch$1)var array_field=0; + var serialized=[0,result,offset,length,array_field]; + bson[1] = [2,deserialized,serialized]; + var _I_=0} + else + var _I_=cache; + return _I_; + case 1: + var _J_=_H_[1],buffer=_J_[1],offset$0=_J_[2],length$0=_J_[3]; + break; + default: + var _K_=_H_[2],buffer=_K_[1],offset$0=_K_[2],length$0=_K_[3]} + caml_call5 + (Stdlib_bytes[11],buffer,offset$0,result,pos[1],length$0); + pos[1] = pos[1] + length$0 | 0; + return 0}; + serialize(conforming,bson); + return result; + case 1:var serialized=_A_[1];break; + default:var serialized=_A_[2]} + if + (0 + === + serialized[2] + && + serialized[3] + === + caml_ml_bytes_length(serialized[1])) + return serialized[1]; + return caml_call3 + (Stdlib_bytes[7],serialized[1],serialized[2],serialized[3])} + function bytes_to_bson(opt,_x_,_w_,copy,buffer) + {if(opt)var sth=opt[1],laziness=sth;else var laziness=1; + if(_x_)var sth$0=_x_[1],cache=sth$0;else var cache=1; + if(_w_)var sth$1=_w_[1],conforming=sth$1;else var conforming=0; + var + buffer$0=copy?caml_call1(Stdlib_bytes[4],buffer):buffer, + serialized=[0,buffer$0,0,caml_ml_bytes_length(buffer$0),0], + root=[0,[1,serialized],conforming,cache]; + function traverse(bson) + {var match=view(bson); + if(typeof match !== "number") + {var _y_=match[1]; + if(65 === _y_) + {var cells=match[2]; + return caml_call2(Stdlib_list[15],traverse,cells)} + if(79 === _y_) + {var + fields=match[2], + _z_=function(param){var bson=param[2];return traverse(bson)}; + return caml_call2(Stdlib_list[15],_z_,fields)}} + return 0} + if(1 - laziness)traverse(root); + return root} + var + Json_encoding$0=caml_call1(Json_encoding[66],[0,view,repr,repr_uid]), + Json_query$0=caml_call1(Json_query[14],[0,view,repr,repr_uid]), + Json_repr_bson= + [0, + [0,view,repr,repr_uid], + Json_encoding$0, + Json_query$0, + bson_to_bytes, + Bson_decoding_error, + bytes_to_bson]; + runtime.caml_register_global(32,Json_repr_bson,"Json_repr_bson"); + return} + (function(){return this}())); + + +//# 1 "../../.js/zarith/zarith.cma.js" +(function(joo_global_object) + {"use strict"; + var + runtime=joo_global_object.jsoo_runtime, + caml_equal=runtime.caml_equal, + caml_int64_to_float=runtime.caml_int64_to_float, + caml_ldexp_float=runtime.caml_ldexp_float, + caml_ml_string_length=runtime.caml_ml_string_length, + caml_register_global=runtime.caml_register_global, + caml_string_equal=runtime.caml_string_equal, + caml_string_notequal=runtime.caml_string_notequal, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_wrap_exception=runtime.caml_wrap_exception; + function caml_call1(f,a0) + {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} + function caml_call2(f,a0,a1) + {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} + function caml_call3(f,a0,a1,a2) + {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} + var + global_data=runtime.caml_get_global_data(), + cst_Z_log2up=caml_string_of_jsbytes("Z.log2up"), + cst_Z_log2=caml_string_of_jsbytes("Z.log2"), + cst_Z_signed_extract_negative_= + caml_string_of_jsbytes("Z.signed_extract: negative bit offset"), + cst_Z_signed_extract_nonpositi= + caml_string_of_jsbytes("Z.signed_extract: nonpositive bit length"), + cst_Z_testbit=caml_string_of_jsbytes("Z.testbit"), + cst_Z_Overflow=caml_string_of_jsbytes("Z.Overflow"), + cst_ml_z_overflow=caml_string_of_jsbytes("ml_z_overflow"), + cst_d=caml_string_of_jsbytes("%d"), + cst_1_10=caml_string_of_jsbytes("1.10"), + cst_impossible_case$0=caml_string_of_jsbytes("impossible case"), + cst_impossible_case=caml_string_of_jsbytes("impossible case"), + cst_0=caml_string_of_jsbytes("0"), + cst_inf$2=caml_string_of_jsbytes("+inf"), + cst_inf$3=caml_string_of_jsbytes("-inf"), + cst_undef$0=caml_string_of_jsbytes("undef"), + cst$2=caml_string_of_jsbytes("/"), + cst_Q_of_string_scientific_not= + caml_string_of_jsbytes + ("Q.of_string: scientific notations have to be in decimal or hexadecimal"), + cst_Q_of_string=caml_string_of_jsbytes("Q.of_string"), + cst=caml_string_of_jsbytes(""), + cst_inf=caml_string_of_jsbytes("inf"), + cst_inf$0=caml_string_of_jsbytes("+inf"), + cst_inf$1=caml_string_of_jsbytes("-inf"), + cst_undef=caml_string_of_jsbytes("undef"), + cst_0b=caml_string_of_jsbytes("0b"), + cst_0o=caml_string_of_jsbytes("0o"), + cst_0x=caml_string_of_jsbytes("0x"), + cst$1=caml_string_of_jsbytes("-"), + cst$0=caml_string_of_jsbytes("-"), + cst_int64_of_big_int=caml_string_of_jsbytes("int64_of_big_int"), + cst_nativeint_of_big_int=caml_string_of_jsbytes("nativeint_of_big_int"), + cst_int32_of_big_int=caml_string_of_jsbytes("int32_of_big_int"), + cst_int_of_big_int=caml_string_of_jsbytes("int_of_big_int"), + cst_power_big_int_positive_big= + caml_string_of_jsbytes("power_big_int_positive_big_int"), + cst_power_int_positive_big_int= + caml_string_of_jsbytes("power_int_positive_big_int"), + cst_power_big_int_positive_int= + caml_string_of_jsbytes("power_big_int_positive_int"), + cst_power_int_positive_int= + caml_string_of_jsbytes("power_int_positive_int"), + Stdlib_format=global_data.Stdlib__format, + Stdlib_buffer=global_data.Stdlib__buffer, + Stdlib=global_data.Stdlib, + Stdlib_callback=global_data.Stdlib__callback, + Stdlib_string=global_data.Stdlib__string, + _a_=[248,cst_Z_Overflow,runtime.caml_fresh_oo_id(0)]; + runtime.ml_z_init(0); + runtime.ml_z_install_frametable(0); + caml_call2(Stdlib_callback[2],cst_ml_z_overflow,_a_); + var + _b_=runtime.ml_z_of_int(0), + _c_=runtime.ml_z_of_int(1), + _d_=runtime.ml_z_of_int(-1), + _A_=runtime.caml_int64_create_lo_mi_hi(1,0,0); + function _e_(_gm_,_gl_) + {return 0 < runtime.ml_z_compare(_gm_,_gl_)?_gl_:_gm_} + function _f_(_gk_,_gj_) + {return 0 <= runtime.ml_z_compare(_gk_,_gj_)?_gk_:_gj_} + function _g_(_gi_,_gh_){return runtime.ml_z_compare(_gi_,_gh_) <= 0?1:0} + function _h_(_gg_,_gf_){return 0 <= runtime.ml_z_compare(_gg_,_gf_)?1:0} + function _i_(_ge_,_gd_){return runtime.ml_z_compare(_ge_,_gd_) < 0?1:0} + function _j_(_gc_,_gb_){return 0 < runtime.ml_z_compare(_gc_,_gb_)?1:0} + function _k_(_ga_){return runtime.ml_z_format(cst_d,_ga_)} + function _l_(_f$_) + {return runtime.ml_z_of_substring_base + (0,_f$_,0,caml_ml_string_length(_f$_))} + function _m_(_f8_,_f9_,_f__) + {return runtime.ml_z_of_substring_base(0,_f8_,_f9_,_f__)} + function _n_(_f7_,_f6_) + {return runtime.ml_z_of_substring_base + (_f7_,_f6_,0,caml_ml_string_length(_f6_))} + function _o_(_f0_,_fZ_) + {var _f1_=runtime.ml_z_div_rem(_f0_,_fZ_),_f2_=_f1_[2],_f3_=_f1_[1]; + if(0 <= runtime.ml_z_sign(_f2_))return [0,_f3_,_f2_]; + if(0 <= runtime.ml_z_sign(_fZ_)) + {var _f4_=runtime.ml_z_add(_f2_,_fZ_); + return [0,runtime.ml_z_pred(_f3_),_f4_]} + var _f5_=runtime.ml_z_sub(_f2_,_fZ_); + return [0,runtime.ml_z_succ(_f3_),_f5_]} + function _p_(_fY_,_fX_) + {return 0 <= runtime.ml_z_sign(_fX_) + ?runtime.ml_z_fdiv(_fY_,_fX_) + :runtime.ml_z_cdiv(_fY_,_fX_)} + function _q_(_fV_,_fU_) + {var _fW_=runtime.ml_z_rem(_fV_,_fU_); + return 0 <= runtime.ml_z_sign(_fW_) + ?_fW_ + :runtime.ml_z_add(_fW_,runtime.ml_z_abs(_fU_))} + function _r_(_fM_,_fL_) {var - b=caml_call1(Stdlib_buffer[1],20), - ppf=caml_call1(Stdlib_format[107],b); - function k(ppf) - {caml_call2(Stdlib_format[36],ppf,0); - var _bx_=caml_call1(Stdlib_buffer[2],b); - return caml_call1(Stdlib[1],_bx_)} - return caml_call3(Stdlib_format[130],k,ppf,fmt)} - function expect(e,v){return caml_call3(invalid_arg(_aj_),pp_decode,v,e)} - function o_rem(e){return (e[5] - e[4] | 0) + 1 | 0} - function dst(e,s,j,l) - {var _bu_=j < 0?1:0; - if(_bu_) - var _bv_=_bu_; - else + _fN_=runtime.ml_z_sign(_fM_), + _fO_=runtime.ml_z_sign(_fL_), + _fP_=_fN_ + 1 | 0; + if(! (2 < _fP_ >>> 0)) + switch(_fP_) + {case 0:if(0 === _fO_)return [0,runtime.ml_z_neg(_fM_),_d_,_b_];break; + case 1: + var _fT_=_fO_ + 1 | 0; + if(! (2 < _fT_ >>> 0)) + switch(_fT_) + {case 0:return [0,runtime.ml_z_neg(_fL_),_b_,_d_]; + case 1:return [0,_b_,_b_,_b_]; + default:return [0,_fL_,_b_,_c_]} + break; + default:if(0 === _fO_)return [0,_fM_,_c_,_b_]} + var + _fQ_=runtime.ml_z_gcdext_intern(_fM_,_fL_), + _fR_=_fQ_[2], + _fS_=_fQ_[1]; + return _fQ_[3] + ?[0, + _fS_, + _fR_, + runtime.ml_z_div + (runtime.ml_z_sub(_fS_,runtime.ml_z_mul(_fM_,_fR_)),_fL_)] + :[0, + _fS_, + runtime.ml_z_div + (runtime.ml_z_sub(_fS_,runtime.ml_z_mul(_fL_,_fR_)),_fM_), + _fR_]} + function _s_(_fK_,_fJ_) + {if(! caml_equal(_fK_,_b_) && ! caml_equal(_fJ_,_b_)) + return runtime.ml_z_abs + (runtime.ml_z_mul + (runtime.ml_z_divexact(_fK_,runtime.ml_z_gcd(_fK_,_fJ_)), + _fJ_)); + return _b_} + function _t_(_fI_,_fH_) + {return 0 <= _fH_ + ?runtime.ml_z_testbit(_fI_,_fH_) + :caml_call1(Stdlib[1],cst_Z_testbit)} + function _u_(_fG_){return runtime.ml_z_testbit(_fG_,0)} + function _v_(_fF_){return 1 - runtime.ml_z_testbit(_fF_,0)} + function _w_(_fE_,_fD_,_fC_) + {if(_fD_ < 0)caml_call1(Stdlib[1],cst_Z_signed_extract_negative_); + if(_fC_ < 1)caml_call1(Stdlib[1],cst_Z_signed_extract_nonpositi); + return _t_(_fE_,(_fD_ + _fC_ | 0) - 1 | 0) + ?runtime.ml_z_lognot + (runtime.ml_z_extract(runtime.ml_z_lognot(_fE_),_fD_,_fC_)) + :runtime.ml_z_extract(_fE_,_fD_,_fC_)} + function _x_(_fB_) + {return 0 < runtime.ml_z_sign(_fB_) + ?runtime.ml_z_numbits(_fB_) - 1 | 0 + :caml_call1(Stdlib[1],cst_Z_log2)} + function _y_(_fA_) + {return 0 < runtime.ml_z_sign(_fA_) + ?runtime.ml_z_numbits(runtime.ml_z_pred(_fA_)) + :caml_call1(Stdlib[1],cst_Z_log2up)} + function _z_(_fx_,_fw_) + {var + _fy_=runtime.ml_z_to_int64(_fx_), + _fz_=_fw_?_fy_:runtime.caml_int64_or(_fy_,_A_); + return caml_int64_to_float(_fz_)} + function _B_(_fs_) + {if(typeof _fs_ === "number")return _fs_; + var _ft_=runtime.ml_z_numbits(_fs_); + if(63 < _ft_) + {var _fu_=_ft_ - 55 | 0,_fv_=runtime.ml_z_shift_right(_fs_,_fu_); + return caml_ldexp_float + (_z_ + (_fv_, + runtime.ml_z_equal(_fs_,runtime.ml_z_shift_left(_fv_,_fu_))), + _fu_)} + return caml_int64_to_float(runtime.ml_z_to_int64(_fs_))} + function _C_(_fq_){var _fr_=_k_(_fq_);return caml_call1(Stdlib[42],_fr_)} + function _D_(_fo_,_fn_) + {var _fp_=_k_(_fn_);return caml_call2(Stdlib[66],_fo_,_fp_)} + function _E_(_fm_,_fl_){return _k_(_fl_)} + function _F_(_fj_,_fi_) + {var _fk_=_k_(_fi_);return caml_call2(Stdlib_buffer[14],_fj_,_fk_)} + function _G_(_fg_,_ff_) + {var _fh_=_k_(_ff_);return caml_call2(Stdlib_format[13],_fg_,_fh_)} + function _H_(_fe_){return _fe_} + function _I_(_fd_,_fc_){return runtime.ml_z_equal(_fd_,_fc_)} + var + Z= + [0, + _a_, + _b_, + _c_, + _d_, + _l_, + _m_, + _n_, + _o_, + _p_, + _q_, + _t_, + _B_, + _k_, + _C_, + _D_, + _E_, + _F_, + _G_, + _g_, + _h_, + _i_, + _j_, + _e_, + _f_, + _v_, + _u_, + _r_, + _s_, + _x_, + _y_, + _w_, + _H_, + [0, + _I_, + _i_, + _j_, + _g_, + _h_, + function(_fb_,_fa_){return 1 - runtime.ml_z_equal(_fb_,_fa_)}], + cst_1_10, + _z_]; + caml_register_global(42,Z,"Z"); + function _J_(_e9_,_e8_) + {if(_e9_ !== _b_ && _e8_ !== _c_) + {var _e__=runtime.ml_z_gcd(_e9_,_e8_); + if(_e__ === _c_)return [0,_e9_,_e8_]; + var _e$_=runtime.ml_z_divexact(_e8_,_e__); + return [0,runtime.ml_z_divexact(_e9_,_e__),_e$_]} + return [0,_e9_,_c_]} + function _K_(_e5_,_e4_) + {var _e6_=runtime.ml_z_sign(_e4_); + if(0 === _e6_) + return [0,runtime.ml_z_of_int(runtime.ml_z_sign(_e5_)),_b_]; + if(0 < _e6_)return _J_(_e5_,_e4_); + var _e7_=runtime.ml_z_neg(_e4_); + return _J_(runtime.ml_z_neg(_e5_),_e7_)} + function _L_(_e3_){return [0,_e3_,_c_]} + function _M_(_e2_){return _L_(runtime.ml_z_of_int(_e2_))} + function _N_(_e1_){return _L_(runtime.ml_z_of_int32(_e1_))} + function _O_(_e0_){return _L_(runtime.ml_z_of_int64(_e0_))} + function _P_(_eZ_){return _L_(runtime.ml_z_of_nativeint(_eZ_))} + function _Q_(_eX_,_eW_) + {var _eY_=runtime.ml_z_of_int(_eW_); + return _K_(runtime.ml_z_of_int(_eX_),_eY_)} + var + _R_=_L_(_b_), + _S_=_L_(_c_), + _U_=[0,_c_,_b_], + _V_=[0,_d_,_b_], + _W_=[0,_b_,_b_], + _T_=_L_(_d_); + function _X_(_eS_) + {if(_eS_ == Stdlib[22])return _U_; + if(_eS_ == Stdlib[23])return _V_; + if(4 === runtime.caml_classify_float(_eS_))return _W_; + var + _eT_=runtime.caml_frexp_float(_eS_), + _eU_=_eT_[2] - 53 | 0, + _eV_=runtime.ml_z_of_float(caml_ldexp_float(_eT_[1],53)); + return 0 <= _eU_ + ?_L_(runtime.ml_z_shift_left(_eV_,_eU_)) + :_J_(_eV_,runtime.ml_z_shift_left(_c_,- _eU_ | 0))} + function _Y_(_ef_) + {function _eg_(_eR_,_eQ_){return _L_(_n_(_eR_,_eQ_))} + function _eh_(_eF_,_eE_,_eD_) + {try + {var + _eH_=caml_call2(Stdlib_string[14],_eE_,46), + _eI_=(caml_ml_string_length(_eE_) - _eH_ | 0) - 1 | 0, + _eJ_=caml_call3(Stdlib_string[4],_eE_,_eH_ + 1 | 0,_eI_), + _eK_=caml_call3(Stdlib_string[4],_eE_,0,_eH_), + _eL_=caml_call2(Stdlib[28],_eK_,_eJ_); + if(_eD_ < _eI_) + var + _eM_=runtime.ml_z_pow(runtime.ml_z_of_int(_eF_),_eI_ - _eD_ | 0), + _eN_=_K_(_n_(_eF_,_eL_),_eM_); + else + var + _eO_=caml_call2(Stdlib_string[1],_eD_ - _eI_ | 0,48), + _eN_=_eg_(_eF_,caml_call2(Stdlib[28],_eL_,_eO_)); + return _eN_} + catch(_eP_) + {_eP_ = caml_wrap_exception(_eP_); + if(_eP_ === Stdlib[8]) + {var _eG_=caml_call2(Stdlib_string[1],_eD_,48); + return _eg_(_eF_,caml_call2(Stdlib[28],_eE_,_eG_))} + throw _eP_}} + if(caml_string_equal(_ef_,cst))return _R_; + if + (! + caml_string_equal(_ef_,cst_inf) + && + ! + caml_string_equal(_ef_,cst_inf$0)) + {if(caml_string_equal(_ef_,cst_inf$1))return _V_; + if(caml_string_equal(_ef_,cst_undef))return _W_; + try + {var + _ex_=caml_call2(Stdlib_string[14],_ef_,47), + _ey_= + runtime.ml_z_of_substring_base + (0, + _ef_, + _ex_ + 1 | 0, + (caml_ml_string_length(_ef_) - _ex_ | 0) - 1 | 0), + _ez_=_K_(runtime.ml_z_of_substring_base(0,_ef_,0,_ex_),_ey_); + return _ez_} + catch(_eA_) + {_eA_ = caml_wrap_exception(_eA_); + if(_eA_ === Stdlib[8]) + {var _ei_=runtime.caml_string_get(_ef_,0),switch$0=0; + if(43 !== _ei_ && 45 !== _ei_){var _ej_=[0,43,_ef_];switch$0 = 1} + if(! switch$0) + var + _ej_= + [0, + _ei_, + caml_call3 + (Stdlib_string[4],_ef_,1,caml_ml_string_length(_ef_) - 1 | 0)]; + var _ek_=_ej_[2],_el_=_ej_[1]; + if(2 <= caml_ml_string_length(_ek_)) + var + _em_=caml_call3(Stdlib_string[4],_ek_,0,2), + _en_= + caml_string_notequal(_em_,cst_0b) + ?caml_string_notequal(_em_,cst_0o) + ?caml_string_notequal(_em_,cst_0x) + ?[0,10,_ek_] + :[0, + 16, + caml_call3 + (Stdlib_string[4], + _ek_, + 2, + caml_ml_string_length(_ek_) - 2 | 0)] + :[0, + 8, + caml_call3 + (Stdlib_string[4], + _ek_, + 2, + caml_ml_string_length(_ek_) - 2 | 0)] + :[0, + 2, + caml_call3 + (Stdlib_string[4], + _ek_, + 2, + caml_ml_string_length(_ek_) - 2 | 0)], + _eo_=_en_; + else + var _eo_=[0,10,_ek_]; + var _ep_=_eo_[2],_eq_=_eo_[1],_er_=[0,0]; + try + {var + _ev_= + function(_eC_) + {_er_[1]++; + var switch$0=0; + if(81 <= _eC_) + {if(101 === _eC_) + switch$0 = 1; + else + if(112 === _eC_)switch$0 = 2} + else + if(69 === _eC_)switch$0 = 1;else if(80 <= _eC_)switch$0 = 2; + switch(switch$0) + {case 0:return 0; + case 1: + if(10 === _eq_)throw Stdlib[3]; + return 16 === _eq_ + ?0 + :caml_call1(Stdlib[1],cst_Q_of_string_scientific_not); + default: + if(16 === _eq_)throw Stdlib[3]; + return caml_call1(Stdlib[1],cst_Q_of_string)}}; + caml_call2(Stdlib_string[8],_ev_,_ep_); + var + _ew_= + 43 === _el_ + ?_eh_(_eq_,_ep_,0) + :_eh_(_eq_,caml_call2(Stdlib[28],cst$1,_ep_),0); + return _ew_} + catch(_eB_) + {_eB_ = caml_wrap_exception(_eB_); + if(_eB_ === Stdlib[3]) + {var + _es_=caml_call3(Stdlib_string[4],_ep_,0,_er_[1] - 1 | 0), + _et_= + _n_ + (_eq_, + caml_call3 + (Stdlib_string[4], + _ep_, + _er_[1], + caml_ml_string_length(_ep_) - _er_[1] | 0)); + if(43 === _el_) + return _eh_(_eq_,_es_,runtime.ml_z_to_int(_et_)); + var _eu_=runtime.ml_z_to_int(_et_); + return _eh_(_eq_,caml_call2(Stdlib[28],cst$0,_es_),_eu_)} + throw _eB_}} + throw _eA_}} + return _U_} + function _Z_(_ed_) + {if(_ed_[2] === _b_) + {var _ee_=runtime.ml_z_sign(_ed_[1]) + 1 | 0; + if(! (2 < _ee_ >>> 0)) + switch(_ee_){case 0:return 2;case 1:break;default:return 1} + return 3} + return _ed_[1] === _b_?0:4} + function ___(_ec_){return _ec_[2] !== _b_?1:0} + function _$_(_eb_){return _eb_[1]} + function _aa_(_ea_){return _ea_[2]} + function _ab_(_d$_){return runtime.ml_z_sign(_d$_[1])} + function _ac_(_d7_,_d6_) + {var _d8_=runtime.ml_z_equal(_d7_[1],_d6_[1]); + if(_d8_) var - _bw_=l < 0?1:0, - _bv_=_bw_ || (runtime.caml_ml_bytes_length(s) < (j + l | 0)?1:0); - if(_bv_)caml_call2(invalid_arg(_ai_),j,l); - e[3] = s; - e[4] = j; - e[5] = (j + l | 0) - 1 | 0; + _d9_=runtime.ml_z_equal(_d7_[2],_d6_[2]), + _d__=_d9_?3 !== _Z_(_d7_)?1:0:_d9_; + else + var _d__=_d8_; + return _d__} + function _ad_(_d0_,_dZ_) + {var _d1_=_Z_(_d0_),_d2_=_Z_(_dZ_),switch$0=0; + switch(_d1_) + {case 1: + var _d5_=_d2_ - 1 | 0; + if(! (2 < _d5_ >>> 0)) + switch(_d5_) + {case 0:switch$0 = 2;break;case 1:break;default:switch$0 = 1} + break; + case 2: + if(1 === _d2_) + switch$0 = 1; + else + if(0 !== _d2_) + switch(_d2_ - 2 | 0) + {case 1:switch$0 = 1;break;case 2:break;default:switch$0 = 2} + break; + case 3:if(3 !== _d2_)return -1;switch$0 = 2;break; + default:switch$0 = 1} + var switch$1=0; + switch(switch$0) + {case 1: + var _d3_=_d2_ - 1 | 0; + if(! (2 < _d3_ >>> 0)) + switch(_d3_) + {case 0:switch$1 = 1;break;case 1:break;default:return 1} + break; + case 0:break; + default:return 0} + if(! switch$1) + {var switch$2=0; + if(! (4 <= _d1_)) + switch(_d1_) + {case 0:break;case 2:switch$2 = 1;break;default:switch$2 = 2} + var switch$3=0; + switch(switch$2) + {case 0: + if(2 !== _d2_) + {if(caml_equal(_d0_[2],_dZ_[2])) + return runtime.ml_z_compare(_d0_[1],_dZ_[1]); + var _d4_=runtime.ml_z_mul(_dZ_[1],_d0_[2]); + return runtime.ml_z_compare + (runtime.ml_z_mul(_d0_[1],_dZ_[2]),_d4_)} + switch$3 = 1; + break; + case 1:break; + default:switch$3 = 1} + if(switch$3)return 1} + return -1} + function _ae_(_dY_,_dX_){return 0 < _ad_(_dY_,_dX_)?_dX_:_dY_} + function _af_(_dW_,_dV_){return 0 <= _ad_(_dW_,_dV_)?_dW_:_dV_} + function _ag_(_dQ_,_dP_) + {var _dR_=_Z_(_dQ_),_dS_=_Z_(_dP_); + if(3 !== _dR_) + {var _dT_=_dS_ - 1 | 0,switch$0=0; + if(! (2 < _dT_ >>> 0)) + switch(_dT_) + {case 0:switch$0 = 2;break;case 1:break;default:switch$0 = 1} + var switch$1=0; + switch(switch$0) + {case 0: + var switch$2=0; + if(! (4 <= _dR_)) + switch(_dR_) + {case 0:break; + case 2:switch$1 = 1;switch$2 = 2;break; + default:switch$2 = 1} + var switch$3=0; + switch(switch$2) + {case 2:switch$3 = 1;break; + case 0: + if(2 !== _dS_) + {if(caml_equal(_dQ_[2],_dP_[2]))return _g_(_dQ_[1],_dP_[1]); + var _dU_=runtime.ml_z_mul(_dP_[1],_dQ_[2]); + return _g_(runtime.ml_z_mul(_dQ_[1],_dP_[2]),_dU_)} + break + } + if(! switch$3)return 0; + break; + case 1:break; + default:switch$1 = 1} + if(switch$1)return 1} return 0} - function flush(k,e) - {var _bt_=e[1]; - if(typeof _bt_ === "number") - {e[11] - = - function(e,v) - {return 1006505782 === v?caml_call1(k,e):expect(cst_Await,v)}; - return 939392865} - if(438511779 <= _bt_[1]) - {var oc=_bt_[2]; - caml_call4(Stdlib[68],oc,e[3],0,e[4]); - e[4] = 0; - return caml_call1(k,e)} - var b=_bt_[2],o=caml_call1(Stdlib_bytes[42],e[3]); - caml_call4(Stdlib_buffer[16],b,o,0,e[4]); - e[4] = 0; - return caml_call1(k,e)} - function writeb(b,k,e) - {return e[5] < e[4] - ?flush(function(_bs_){return writeb(b,k,_bs_)},e) - :(unsafe_set_byte(e[3],e[4],b), - e[4] - = - e[4] - + - 1 - | - 0, - caml_call1(k,e))} - function writes(s,j,l,k,e) - {var rem=o_rem(e); - if(l <= rem) - {caml_call1(unsafe_blit(s,j,e[3],e[4]),l); - e[4] = e[4] + l | 0; - return caml_call1(k,e)} - caml_call1(unsafe_blit(s,j,e[3],e[4]),rem); - e[4] = e[4] + rem | 0; - var _bp_=l - rem | 0,_bq_=j + rem | 0; - return flush(function(_br_){return writes(s,_bq_,_bp_,k,_br_)},e)} - function writebuf(j,l,k,e) - {var rem=o_rem(e); - if(l <= rem) - {caml_call5(Stdlib_buffer[5],e[6],j,e[3],e[4],l); - e[4] = e[4] + l | 0; - return caml_call1(k,e)} - caml_call5(Stdlib_buffer[5],e[6],j,e[3],e[4],rem); - e[4] = e[4] + rem | 0; - var _bm_=l - rem | 0,_bn_=j + rem | 0; - return flush(function(_bo_){return writebuf(_bn_,_bm_,k,_bo_)},e)} - function w_indent(k,e) - {function loop(indent,k,e) - {function spaces(e,indent) - {var max=(e[4] + indent | 0) - 1 | 0,_bk_=e[4]; - if(! (max < _bk_)) - {var j=_bk_; - for(;;) - {unsafe_set_byte(e[3],j,u_sp); - var _bl_=j + 1 | 0; - if(max !== j){var j=_bl_;continue} - break}} - e[4] = max + 1 | 0; - return 0} - var rem=o_rem(e); - if(rem < indent) - {spaces(e,rem); - var _bi_=indent - rem | 0; - return flush(function(_bj_){return loop(_bi_,k,_bj_)},e)} - spaces(e,indent); - return caml_call1(k,e)} - return loop(e[8] * 2 | 0,k,e)} - function w_json_string(s,k,e) - {function loop(s,j,pos,max,k,e) - {var pos$0=pos; - for(;;) - {if(max < pos$0) - return max < j?caml_call1(k,e):writes(s,j,pos$0 - j | 0,k,e); - var - next=pos$0 + 1 | 0, - escape$0= - function(pos,next) - {function escape(esc) - {function _bd_(_bh_){return loop(s,next,next,max,k,_bh_)} - var _be_=2,_bf_=0; - return writes - (s, - j, - pos - j | 0, - function(_bg_){return writes(esc,_bf_,_be_,_bd_,_bg_)}, - e)} - return escape}, - escape=escape$0(pos$0,next), - c=runtime.caml_string_unsafe_get(s,pos$0); - if(10 === c)return escape(cst_n); - if(34 === c)return escape(cst); - if(92 === c)return escape(cst$0); - if(31 < c){var pos$0=next;continue} - var - hex=function(d){return 10 <= d?65 + (d - 10 | 0) | 0:48 + d | 0}, - _a4_=function(_bc_){return loop(s,next,next,max,k,_bc_)}, - _a5_=hex(c & 15), - _a6_=function(_bb_){return writeb(_a5_,_a4_,_bb_)}, - _a7_=hex(c >>> 4 | 0), - _a8_=function(_ba_){return writeb(_a7_,_a6_,_ba_)}, - _a9_=4, - _a__=0; - return writes - (s, - j, - pos$0 - j | 0, - function(_a$_){return writes(cst_u00,_a__,_a9_,_a8_,_a$_)}, - e)}} - function _aY_(_a3_){return writeb(u_quot,k,_a3_)} - var _aZ_=caml_ml_string_length(s) - 1 | 0,_a0_=0,_a1_=0; - return writeb - (u_quot, - function(_a2_){return loop(s,_a1_,_a0_,_aZ_,_aY_,_a2_)}, - e)} - function w_name(n,k,e) - {e[10] = 0; - e[9] = 0; - return w_json_string(n,function(_aX_){return writeb(u_colon,k,_aX_)},e)} - function w_value(in_obj,l,k,e) - {if(typeof l === "number") - {if(17732 <= l) - return 870828711 <= l - ?(e[10] = 0,e[9] = in_obj,writes(cst_null$0,0,4,k,e)) - :(e[10] - = - 1, - e[9] - = - 1, - e[8] - = - e[8] - + - 1 - | - 0, - e[7] - = - [0,17732,e[7]], - writeb(u_lbrace,k,e)); - if(14610 === l) - {e[10] = 1; - e[9] = 0; - e[8] = e[8] + 1 | 0; - e[7] = [0,14610,e[7]]; - return writeb(u_lbrack,k,e)}} - else - {var _aW_=l[1]; - if(! (737456202 <= _aW_)) - {if(365180284 <= _aW_) - {var f=l[2]; - e[10] = 0; - e[9] = in_obj; - caml_call1(Stdlib_buffer[8],e[6]); - caml_call3(Stdlib_printf[5],e[6],_ak_,f); - return writebuf(0,caml_call1(Stdlib_buffer[7],e[6]),k,e)} - var s=l[2]; - e[10] = 0; - e[9] = in_obj; - return w_json_string(s,k,e)} - if(! (869834347 <= _aW_)) - {var b=l[2]; - e[10] = 0; - e[9] = in_obj; - return b?writes(cst_true$0,0,4,k,e):writes(cst_false$0,0,5,k,e)}} - return in_obj - ?expect(cst_any_Lexeme_but_Name_Oe_or_Ae,[0,-633954146,l]) - :expect(cst_any_Lexeme_but_Name_or_Oe,[0,-633954146,l])} - function encode(k,e,v) - {if(typeof v === "number") - {if(1006505782 <= v)return 17724; - if(0 === e[7])return flush(k,e); - var - lstart=caml_call1(Stdlib_list[5],e[7]), - _ap_=14610 === lstart?cst_Lexeme_Ae:cst_Lexeme_Oe; - return expect(_ap_,v)} - var _as_=v[1]; - if(-633954146 === _as_) - {var l=v[2]; - if(0 === e[7])return expect(cst_End,[0,-633954146,l]); - var - epop= - function(e) - {e[10] = 0; - e[8] = e[8] - 1 | 0; - e[7] = caml_call1(Stdlib_list[6],e[7]); - var _aV_=e[7]; - if(_aV_)if(17732 === _aV_[1]){e[9] = 1;return 0} - e[9] = 0; - return 0}, - match=caml_call1(Stdlib_list[5],e[7]); - if(17732 <= match) - {if(e[9]) - {if(typeof l === "number") - {if(17718 === l) - {if(! e[2]) - if(! e[10]) - {epop(e); - var _aq_=function(_aO_){return writeb(u_rbrace,k,_aO_)}; - return writeb - (u_nl,function(_aN_){return w_indent(_aq_,_aN_)},e)} - epop(e); - return writeb(u_rbrace,k,e)}} - else - if(869834347 === l[1]) - {var - n=l[2], - name= - function(n,k,e) - {if(e[2])return w_name(n,k,e); - function _aQ_(_aU_){return writeb(u_sp,k,_aU_)} - function _aR_(_aT_){return w_name(n,_aQ_,_aT_)} - return writeb - (u_nl,function(_aS_){return w_indent(_aR_,_aS_)},e)}; - return e[10] - ?name(n,k,e) - :writeb(u_comma,function(_aP_){return name(n,k,_aP_)},e)} - return expect(cst_Lexeme_Name_Oe,[0,-633954146,l])} - return w_value(1,l,k,e)} - if(14596 === l) - {if(! e[2]) - if(! e[10]) - {epop(e); - var _ar_=function(_aM_){return writeb(u_rbrack,k,_aM_)}; - return writeb(u_nl,function(_aL_){return w_indent(_ar_,_aL_)},e)} - epop(e); - return writeb(u_rbrack,k,e)} - var - value= - function(l,k,e) - {if(e[2])return w_value(0,l,k,e); - var _aH_=0; - function _aI_(_aK_){return w_value(_aH_,l,k,_aK_)} - return writeb(u_nl,function(_aJ_){return w_indent(_aI_,_aJ_)},e)}; - return e[10] - ?value(l,k,e) - :writeb(u_comma,function(_aG_){return value(l,k,_aG_)},e)} - if(-588596599 <= _as_) - {var w=v[2];return writes(w,0,caml_ml_string_length(w),k,e)} - var _at_=v[2]; - if(83 <= _at_[1]) - {var - c=_at_[2], - _au_=function(_aF_){return writeb(u_nl,k,_aF_)}, - _av_=caml_ml_string_length(c), - _aw_=0; - return writes - (cst$1, - 0, - 2, - function(_aE_){return writes(c,_aw_,_av_,_au_,_aE_)}, - e)} - var c$0=_at_[2],_ax_=2,_ay_=0; - function _az_(_aD_){return writes(cst$2,_ay_,_ax_,k,_aD_)} - var _aA_=caml_ml_string_length(c$0),_aB_=0; - return writes - (cst$3, - 0, - 2, - function(_aC_){return writes(c$0,_aB_,_aA_,_az_,_aC_)}, - e)} - function encode_loop(e) - {e[11] = function(_an_,_ao_){return encode(encode_loop,_an_,_ao_)}; - return 17724} - function encode_json(e,v) - {if(typeof v === "number") - {if(1006505782 <= v)return 17724} - else - {if(-633954146 !== v[1]) - return encode(function(e){e[11] = encode_json;return 17724},e,v); - var _al_=v[2]; - if(typeof _al_ === "number") + function _ah_(_dL_,_dK_) + {var _dM_=_Z_(_dL_),_dN_=_Z_(_dK_); + if(3 !== _dM_) + {var switch$0=0; + if(2 <= _dN_) + switch(_dN_ - 2 | 0) + {case 2:break;case 1:switch$0 = 1;break;default:switch$0 = 2} + var switch$1=0; + switch(switch$0) + {case 0: + var switch$2=0; + if(! (4 <= _dM_)) + switch(_dM_) + {case 0:break; + case 1:switch$1 = 1;switch$2 = 2;break; + default:switch$2 = 1} + var switch$3=0; + switch(switch$2) + {case 2:switch$3 = 1;break; + case 0: + if(1 !== _dN_) + {if(caml_equal(_dL_[2],_dK_[2]))return _i_(_dL_[1],_dK_[1]); + var _dO_=runtime.ml_z_mul(_dK_[1],_dL_[2]); + return _i_(runtime.ml_z_mul(_dL_[1],_dK_[2]),_dO_)} + break + } + if(! switch$3)return 1; + break; + case 1:break; + default:switch$1 = 1} + if(switch$1)return 0} + return 0} + function _ai_(_dJ_,_dI_){return _ag_(_dI_,_dJ_)} + function _aj_(_dH_,_dG_){return _ah_(_dG_,_dH_)} + function _ak_(_dC_) + {switch(_Z_(_dC_)) + {case 0:return cst_0; + case 1:return cst_inf$2; + case 2:return cst_inf$3; + case 3:return cst_undef$0; + default: + if(runtime.ml_z_equal(_dC_[2],_c_))return _k_(_dC_[1]); var - switch$0= - 14610 === _al_?0:17732 === _al_?0:870828711 === _al_?0:1; - else + _dD_=_k_(_dC_[2]), + _dE_=caml_call2(Stdlib[28],cst$2,_dD_), + _dF_=_k_(_dC_[1]); + return caml_call2(Stdlib[28],_dF_,_dE_)}} + function _al_(_dB_){return runtime.ml_z_div(_dB_[1],_dB_[2])} + function _am_(_dA_){return runtime.ml_z_to_int(_al_(_dA_))} + function _an_(_dz_){return runtime.ml_z_to_int32(_al_(_dz_))} + function _ao_(_dy_){return runtime.ml_z_to_int64(_al_(_dy_))} + function _ap_(_dx_){return runtime.ml_z_to_nativeint(_al_(_dx_))} + function _aq_(_dm_) + {switch(_Z_(_dm_)) + {case 0:return 0.; + case 1:return Stdlib[22]; + case 2:return Stdlib[23]; + case 3:return Stdlib[24]; + default: var - _am_=_al_[1], - switch$0= - -976970511 === _am_?0:365180284 === _am_?0:737456202 === _am_?0:1; - if(! switch$0)return w_value(0,_al_,encode_loop,e)} - return expect(cst_Lexeme_Null_Bool_Float_String_As_Os,v)} - function encoder(opt,dst) - {if(opt)var sth=opt[1],minify=sth;else var minify=1; - if(typeof dst === "number") - var o=Stdlib_bytes[3],o_pos=1,o_max=0; - else - var o$0=runtime.caml_create_bytes(65536),o=o$0,o_pos=0,o_max=65535; + _dn_=_dm_[1], + _do_=_dm_[2], + _dp_=runtime.ml_z_numbits(_dn_), + _dq_=runtime.ml_z_numbits(_do_); + if(! (53 < _dp_) && ! (53 < _dq_)) + {var _dw_=caml_int64_to_float(runtime.ml_z_to_int64(_do_)); + return caml_int64_to_float(runtime.ml_z_to_int64(_dn_)) / _dw_} + var _dr_=55 - (_dp_ - _dq_ | 0) | 0; + if(0 <= _dr_) + var _dt_=runtime.ml_z_shift_left(_dn_,_dr_),_ds_=_do_; + else + var _dt_=_dn_,_ds_=runtime.ml_z_shift_left(_do_,- _dr_ | 0); + var _du_=_o_(_dt_,_ds_),_dv_=0 === runtime.ml_z_sign(_du_[2])?1:0; + return caml_ldexp_float(_z_(_du_[1],_dv_),- _dr_ | 0)}} + function _ar_(_dk_) + {var _dl_=_dk_[2];return [0,runtime.ml_z_neg(_dk_[1]),_dl_]} + function _as_(_di_) + {var _dj_=_di_[2];return [0,runtime.ml_z_abs(_di_[1]),_dj_]} + function _at_(_de_,_dd_,_dc_) + {if(_dd_[2] === _dc_[2]) + {var _df_=_dd_[2];return _J_(caml_call2(_de_,_dd_[1],_dc_[1]),_df_)} + var + _dg_=runtime.ml_z_mul(_dd_[2],_dc_[2]), + _dh_=runtime.ml_z_mul(_dc_[1],_dd_[2]); + return _J_(caml_call2(_de_,runtime.ml_z_mul(_dd_[1],_dc_[2]),_dh_),_dg_)} + function _au_(_c9_,_c8_) + {if(_c9_[2] !== _b_ && _c8_[2] !== _b_) + return _at_ + (function(_db_,_da_){return runtime.ml_z_add(_db_,_da_)}, + _c9_, + _c8_); + var _c__=_Z_(_c9_),_c$_=_Z_(_c8_),switch$0=0; + switch(_c__) + {case 0:return _c8_; + case 1: + switch(_c$_) + {case 2:switch$0 = 3;break;case 0:case 3:break;default:switch$0 = 1} + break; + case 2: + switch(_c$_) + {case 2:switch$0 = 2;break; + case 1:switch$0 = 3;break; + case 4:switch$0 = 4;break + } + break; + case 4: + switch(_c$_) + {case 4:return caml_call1(Stdlib[2],cst_impossible_case); + case 0: + case 3:break; + default:switch$0 = 2} + break + } + var switch$1=0; + switch(switch$0) + {case 0: + if(3 === _c$_)switch$1 = 1;else if(0 === _c$_)return _c9_;break; + case 1:break; + case 2:switch$1 = 2 <= _c$_?3:2;break; + case 3:return _W_; + default:switch$1 = 3} + var switch$2=0; + switch(switch$1) + {case 0:if(! (3 <= _c__))switch$2 = 1;break; + case 1:break; + case 2:switch$2 = 1;break; + default:return _V_} + return switch$2?_U_:_W_} + function _av_(_c3_,_c2_) + {if(_c3_[2] !== _b_ && _c2_[2] !== _b_) + return _at_ + (function(_c7_,_c6_){return runtime.ml_z_sub(_c7_,_c6_)}, + _c3_, + _c2_); + var _c4_=_Z_(_c3_),_c5_=_Z_(_c2_),switch$0=0; + switch(_c4_) + {case 0:return _ar_(_c2_); + case 1: + switch(_c5_) + {case 1:switch$0 = 3;break;case 0:case 3:break;default:switch$0 = 1} + break; + case 2: + switch(_c5_) + {case 1:switch$0 = 2;break; + case 2:switch$0 = 3;break; + case 4:switch$0 = 4;break + } + break; + case 4: + switch(_c5_) + {case 4:return caml_call1(Stdlib[2],cst_impossible_case$0); + case 0: + case 3:break; + default:switch$0 = 2} + break + } + var switch$1=0; + switch(switch$0) + {case 0: + if(3 === _c5_)switch$1 = 1;else if(0 === _c5_)return _c3_;break; + case 1:break; + case 2:switch$1 = 2 <= _c5_?2:3;break; + case 3:return _W_; + default:switch$1 = 3} + var switch$2=0; + switch(switch$1) + {case 0:if(! (3 <= _c4_))switch$2 = 1;break; + case 1:break; + case 2:switch$2 = 1;break; + default:return _V_} + return switch$2?_U_:_W_} + function _aw_(_cZ_,_cY_) + {if(_cZ_[2] !== _b_ && _cY_[2] !== _b_) + {var _c1_=runtime.ml_z_mul(_cZ_[2],_cY_[2]); + return _J_(runtime.ml_z_mul(_cZ_[1],_cY_[1]),_c1_)} + var _c0_=runtime.ml_z_sign(_cY_[1]); return [0, - dst, - minify, - o, - o_pos, - o_max, - caml_call1(Stdlib_buffer[1],30), - 0, - 0, - 0, - 0, - encode_json]} - function encode$0(e,v){return caml_call2(e[11],e,v)} - function encoder_dst(e){return e[1]} - function encoder_minify(e){return e[2]} - function src(d){return caml_call1(Uutf[21][1],d[1])} - var Manual=[0,src,dst,o_rem]; - function encode$1(e,v){return caml_call2(e[11],e,v)} - var - Uncut=[0,decode_uncut,pp_decode,encode$1], - Jsonm= + runtime.ml_z_of_int + (runtime.caml_mul(runtime.ml_z_sign(_cZ_[1]),_c0_)), + _b_]} + function _ax_(_cV_) + {var _cW_=runtime.ml_z_sign(_cV_[1]) + 1 | 0; + if(! (2 < _cW_ >>> 0)) + switch(_cW_) + {case 0: + var _cX_=runtime.ml_z_neg(_cV_[1]); + return [0,runtime.ml_z_neg(_cV_[2]),_cX_]; + case 1:break; + default:return [0,_cV_[2],_cV_[1]]} + return _cV_[2] === _b_?_W_:_U_} + function _ay_(_cT_,_cS_) + {if(0 <= runtime.ml_z_sign(_cS_[1])) + return _aw_(_cT_,[0,_cS_[2],_cS_[1]]); + var _cU_=runtime.ml_z_neg(_cS_[1]); + return _aw_(_cT_,[0,runtime.ml_z_neg(_cS_[2]),_cU_])} + function _az_(_cQ_,_cP_) + {if(_cQ_[2] === _b_)return _cQ_; + var _cR_=_cQ_[2]; + return _J_(runtime.ml_z_shift_left(_cQ_[1],_cP_),_cR_)} + function _aA_(_cN_,_cM_) + {if(_cN_[2] === _b_)return _cN_; + var _cO_=runtime.ml_z_shift_left(_cN_[2],_cM_); + return _J_(_cN_[1],_cO_)} + function _aB_(_cK_) + {var _cL_=_ak_(_cK_);return caml_call1(Stdlib[42],_cL_)} + function _aC_(_cI_,_cH_) + {var _cJ_=_ak_(_cH_);return caml_call2(Stdlib[66],_cI_,_cJ_)} + function _aD_(_cG_,_cF_){return _ak_(_cF_)} + function _aE_(_cD_,_cC_) + {var _cE_=_ak_(_cC_);return caml_call2(Stdlib_buffer[14],_cD_,_cE_)} + function _aF_(_cA_,_cz_) + {var _cB_=_ak_(_cz_);return caml_call2(Stdlib_format[13],_cA_,_cB_)} + function _aG_(_cy_){return _cy_} + var + Q= [0, - pp_lexeme, - pp_error, - decoder, - decode, - decoded_range, - decoder_encoding, - decoder_src, - encoder, - encode$0, - encoder_dst, - encoder_minify, - Manual, - Uncut]; - runtime.caml_register_global(108,Jsonm,"Jsonm"); - return} - (function(){return this}())); - - -//# 1 "../../.js/bigarray-compat/bigarray_compat.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - global_data=runtime.caml_get_global_data(), - Stdlib_bigarray=global_data.Stdlib__bigarray, - float32=Stdlib_bigarray[1], - float64=Stdlib_bigarray[2], - complex32=Stdlib_bigarray[3], - complex64=Stdlib_bigarray[4], - int8_signed=Stdlib_bigarray[5], - int8_unsigned=Stdlib_bigarray[6], - int16_signed=Stdlib_bigarray[7], - int16_unsigned=Stdlib_bigarray[8], - int$0=Stdlib_bigarray[9], - int32=Stdlib_bigarray[10], - int64=Stdlib_bigarray[11], - nativeint=Stdlib_bigarray[12], - char$0=Stdlib_bigarray[13], - kind_size_in_bytes=Stdlib_bigarray[14], - c_layout=Stdlib_bigarray[15], - fortran_layout=Stdlib_bigarray[16], - Genarray=Stdlib_bigarray[17], - Array0=Stdlib_bigarray[18], - Array1=Stdlib_bigarray[19], - Array2=Stdlib_bigarray[20], - Array3=Stdlib_bigarray[21], - array0_of_genarray=Stdlib_bigarray[22], - array1_of_genarray=Stdlib_bigarray[23], - array2_of_genarray=Stdlib_bigarray[24], - array3_of_genarray=Stdlib_bigarray[25], - reshape=Stdlib_bigarray[26], - reshape_0=Stdlib_bigarray[27], - reshape_1=Stdlib_bigarray[28], - reshape_2=Stdlib_bigarray[29], - reshape_3=Stdlib_bigarray[30], - Bigarray_compat= + _K_, + _R_, + _S_, + _T_, + _U_, + _V_, + _W_, + _L_, + _M_, + _N_, + _O_, + _P_, + _Q_, + _X_, + _Y_, + _$_, + _aa_, + _Z_, + ___, + _ab_, + _ad_, + _ac_, + _ae_, + _af_, + _ag_, + _ai_, + _ah_, + _aj_, + _al_, + _am_, + _an_, + _ao_, + _ap_, + _ak_, + _aq_, + _ar_, + _as_, + _au_, + _av_, + _aw_, + _ax_, + _ay_, + _az_, + _aA_, + _aB_, + _aC_, + _aD_, + _aE_, + _aF_, + _ar_, + _aG_, + _au_, + _av_, + _aw_, + _ay_, + _az_, + _aA_, + _M_, + _Q_, + _L_, + _K_, + _ac_, + _ah_, + _aj_, + _ag_, + _ai_, + function(_cx_,_cw_){return 1 - _ac_(_cx_,_cw_)}]; + caml_register_global(44,Q,"Q"); + function _aH_(_cv_){return runtime.ml_z_neg(_cv_)} + function _aI_(_cu_){return runtime.ml_z_abs(_cu_)} + function _aJ_(_ct_,_cs_){return runtime.ml_z_add(_ct_,_cs_)} + function _aK_(_cr_){return runtime.ml_z_succ(_cr_)} + function _aL_(_cq_,_cp_) + {return runtime.ml_z_add(runtime.ml_z_of_int(_cq_),_cp_)} + function _aM_(_co_,_cn_){return runtime.ml_z_sub(_co_,_cn_)} + function _aN_(_cm_){return runtime.ml_z_pred(_cm_)} + function _aO_(_cl_,_ck_){return runtime.ml_z_mul(_cl_,_ck_)} + function _aP_(_cj_,_ci_) + {return runtime.ml_z_mul(runtime.ml_z_of_int(_cj_),_ci_)} + function _aQ_(_ch_){return runtime.ml_z_mul(_ch_,_ch_)} + function _aR_(_cg_){return runtime.ml_z_sqrt(_cg_)} + function _aS_(_cf_,_ce_){return runtime.ml_z_gcd(_cf_,_ce_)} + function _aT_(_cd_,_cc_){return runtime.ml_z_pow(_cd_,_cc_)} + function _aU_(_cb_,_ca_) + {return runtime.ml_z_pow(_cb_,runtime.ml_z_to_int(_ca_))} + function _aV_(_b$_,_b__) + {if(_b__ < 0)throw [0,Stdlib[6],cst_power_int_positive_int]; + return runtime.ml_z_pow(runtime.ml_z_of_int(_b$_),_b__)} + function _aW_(_b9_,_b8_) + {if(_b8_ < 0)throw [0,Stdlib[6],cst_power_big_int_positive_int]; + return runtime.ml_z_pow(_b9_,_b8_)} + function _aX_(_b7_,_b6_) + {if(runtime.ml_z_sign(_b6_) < 0) + throw [0,Stdlib[6],cst_power_int_positive_big_int]; + return _aU_(runtime.ml_z_of_int(_b7_),_b6_)} + function _aY_(_b5_,_b4_) + {if(runtime.ml_z_sign(_b4_) < 0) + throw [0,Stdlib[6],cst_power_big_int_positive_big]; + return _aU_(_b5_,_b4_)} + function _aZ_(_b3_){return runtime.ml_z_sign(_b3_)} + function _a0_(_b2_,_b1_){return runtime.ml_z_compare(_b2_,_b1_)} + function _a1_(_b0_,_bZ_){return runtime.ml_z_equal(_b0_,_bZ_)} + function _a2_(_bY_,_bX_){return runtime.ml_z_compare(_bY_,_bX_) <= 0?1:0} + function _a3_(_bW_,_bV_){return 0 <= runtime.ml_z_compare(_bW_,_bV_)?1:0} + function _a4_(_bU_,_bT_){return runtime.ml_z_compare(_bU_,_bT_) < 0?1:0} + function _a5_(_bS_,_bR_){return 0 < runtime.ml_z_compare(_bS_,_bR_)?1:0} + function _a6_(_bQ_){return runtime.ml_z_size(_bQ_)} + function _a7_(_bP_){return runtime.ml_z_of_int(_bP_)} + function _a8_(_bO_){return runtime.ml_z_fits_int(_bO_)} + function _a9_(_bL_) + {try + {var _bM_=runtime.ml_z_to_int(_bL_);return _bM_} + catch(_bN_) + {_bN_ = caml_wrap_exception(_bN_); + if(_bN_ === _a_)return caml_call1(Stdlib[2],cst_int_of_big_int); + throw _bN_}} + function _a__(_bK_){return runtime.ml_z_of_int32(_bK_)} + function _a$_(_bJ_){return runtime.ml_z_of_nativeint(_bJ_)} + function _ba_(_bI_){return runtime.ml_z_of_int64(_bI_)} + function _bb_(_bF_) + {try + {var _bG_=runtime.ml_z_to_int32(_bF_);return _bG_} + catch(_bH_) + {_bH_ = caml_wrap_exception(_bH_); + if(_bH_ === _a_)return caml_call1(Stdlib[2],cst_int32_of_big_int); + throw _bH_}} + function _bc_(_bC_) + {try + {var _bD_=runtime.ml_z_to_nativeint(_bC_);return _bD_} + catch(_bE_) + {_bE_ = caml_wrap_exception(_bE_); + if(_bE_ === _a_)return caml_call1(Stdlib[2],cst_nativeint_of_big_int); + throw _bE_}} + function _bd_(_bz_) + {try + {var _bA_=runtime.ml_z_to_int64(_bz_);return _bA_} + catch(_bB_) + {_bB_ = caml_wrap_exception(_bB_); + if(_bB_ === _a_)return caml_call1(Stdlib[2],cst_int64_of_big_int); + throw _bB_}} + function _be_(_by_,_bx_){return runtime.ml_z_logand(_by_,_bx_)} + function _bf_(_bw_,_bv_){return runtime.ml_z_logor(_bw_,_bv_)} + function _bg_(_bu_,_bt_){return runtime.ml_z_logxor(_bu_,_bt_)} + function _bh_(_bs_,_br_){return runtime.ml_z_shift_left(_bs_,_br_)} + function _bi_(_bq_,_bp_){return runtime.ml_z_shift_right(_bq_,_bp_)} + function _bj_(_bo_,_bn_){return runtime.ml_z_shift_right_trunc(_bo_,_bn_)} + var + Big_int_Z= [0, - float32, - float64, - complex32, - complex64, - int8_signed, - int8_unsigned, - int16_signed, - int16_unsigned, - int$0, - int32, - int64, - nativeint, - char$0, - kind_size_in_bytes, - c_layout, - fortran_layout, - Genarray, - Array0, - Array1, - Array2, - Array3, - array0_of_genarray, - array1_of_genarray, - array2_of_genarray, - array3_of_genarray, - reshape, - reshape_0, - reshape_1, - reshape_2, - reshape_3]; - runtime.caml_register_global(1,Bigarray_compat,"Bigarray_compat"); + _b_, + _c_, + _aH_, + _aI_, + _aJ_, + _aK_, + _aL_, + _aM_, + _aN_, + _aO_, + _aP_, + _aQ_, + _aR_, + _o_, + _p_, + _q_, + _aS_, + _aT_, + _aU_, + _aV_, + _aW_, + _aX_, + _aY_, + _aZ_, + _a0_, + _a1_, + _a2_, + _a3_, + _a4_, + _a5_, + _f_, + _e_, + _a6_, + _k_, + _l_, + _a7_, + _a8_, + _a9_, + _a__, + _a$_, + _ba_, + _bb_, + _bc_, + _bd_, + _B_, + _be_, + _bf_, + _bg_, + _bh_, + _bi_, + _bj_, + function(_bm_,_bl_,_bk_){return runtime.ml_z_extract(_bm_,_bl_,_bk_)}]; + caml_register_global(45,Big_int_Z,"Big_int_Z"); return} (function(){return this}())); -//# 1 "../../.js/cstruct/cstruct.cma.js" +//# 1 "../../.js/uutf/uutf.cma.js" (function(joo_global_object) {"use strict"; var runtime=joo_global_object.jsoo_runtime, - caml_ba_dim_1=runtime.caml_ba_dim_1, - caml_ba_get_1=runtime.caml_ba_get_1, - caml_ba_set_1=runtime.caml_ba_set_1, - caml_blit_bigstring_to_string=runtime.caml_blit_bigstring_to_string, - caml_blit_string_to_bigstring=runtime.caml_blit_string_to_bigstring, - caml_bswap16=runtime.caml_bswap16, + caml_blit_bytes=runtime.caml_blit_bytes, + caml_bytes_unsafe_get=runtime.caml_bytes_unsafe_get, + caml_check_bound=runtime.caml_check_bound, caml_create_bytes=runtime.caml_create_bytes, - caml_int32_bswap=runtime.caml_int32_bswap, - caml_int64_bswap=runtime.caml_int64_bswap, caml_ml_bytes_length=runtime.caml_ml_bytes_length, caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, - caml_register_global=runtime.caml_register_global, - caml_wrap_exception=runtime.caml_wrap_exception; + caml_string_compare=runtime.caml_string_compare, + caml_string_get=runtime.caml_string_get, + caml_string_notequal=runtime.caml_string_notequal, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes; function caml_call1(f,a0) {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} function caml_call2(f,a0,a1) @@ -78092,5146 +88607,4167 @@ {return f.length == 4 ?f(a0,a1,a2,a3) :runtime.caml_call_gen(f,[a0,a1,a2,a3])} - function caml_call5(f,a0,a1,a2,a3,a4) - {return f.length == 5 - ?f(a0,a1,a2,a3,a4) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} - function caml_call7(f,a0,a1,a2,a3,a4,a5,a6) - {return f.length == 7 - ?f(a0,a1,a2,a3,a4,a5,a6) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6])} var global_data=runtime.caml_get_global_data(), - cst_Cstruct_concat=caml_new_string("Cstruct.concat"), - cst_Cstruct_copyv=caml_new_string("Cstruct.copyv"), - cst_Cstruct_lenv=caml_new_string("Cstruct.lenv"), - cst_LE$4=caml_new_string("LE"), - cst_LE$3=caml_new_string("LE"), - cst_LE$2=caml_new_string("LE"), - cst_LE$1=caml_new_string("LE"), - cst_LE$0=caml_new_string("LE"), - cst_LE=caml_new_string("LE"), - cst_BE$4=caml_new_string("BE"), - cst_BE$3=caml_new_string("BE"), - cst_BE$2=caml_new_string("BE"), - cst_BE$1=caml_new_string("BE"), - cst_BE$0=caml_new_string("BE"), - cst_BE=caml_new_string("BE"), - cst_get_uint64=caml_new_string(".get_uint64"), - cst_get_uint32=caml_new_string(".get_uint32"), - cst_get_uint16=caml_new_string(".get_uint16"), - cst_set_uint64=caml_new_string(".set_uint64"), - cst_set_uint32=caml_new_string(".set_uint32"), - cst_set_uint16=caml_new_string(".set_uint16"), - cst_get_char=caml_new_string("get_char"), - cst_get_uint8=caml_new_string("get_uint8"), - cst_set_char=caml_new_string("set_char"), - cst_set_uint8=caml_new_string("set_uint8"), - cst_check_alignment_must_be_positive_integer= - caml_new_string("check_alignment must be positive integer"), - cst_Cstruct_Cap_concat=caml_new_string("Cstruct.Cap.concat"), - Stdlib=global_data.Stdlib, - Stdlib_list=global_data.Stdlib__list, - Stdlib_format=global_data.Stdlib__format, - Stdlib_string=global_data.Stdlib__string, + cst_UTF_8$0=caml_string_of_jsbytes("UTF-8"), + cst_US_ASCII$0=caml_string_of_jsbytes("US-ASCII"), + cst_ISO_8859_1$1=caml_string_of_jsbytes("ISO-8859-1"), + cst_UTF_16$0=caml_string_of_jsbytes("UTF-16"), + cst_UTF_16LE$0=caml_string_of_jsbytes("UTF-16LE"), + cst_UTF_16BE$0=caml_string_of_jsbytes("UTF-16BE"), + cst_ISO646_US=caml_string_of_jsbytes("ISO646-US"), + cst_CSISOLATIN1=caml_string_of_jsbytes("CSISOLATIN1"), + cst_ANSI_X3_4_1968=caml_string_of_jsbytes("ANSI_X3.4-1968"), + cst_ANSI_X3_4_1986=caml_string_of_jsbytes("ANSI_X3.4-1986"), + cst_ASCII=caml_string_of_jsbytes("ASCII"), + cst_CP367=caml_string_of_jsbytes("CP367"), + cst_CP819=caml_string_of_jsbytes("CP819"), + cst_CSASCII=caml_string_of_jsbytes("CSASCII"), + cst_IBM367=caml_string_of_jsbytes("IBM367"), + cst_IBM819=caml_string_of_jsbytes("IBM819"), + cst_ISO_8859_1$0=caml_string_of_jsbytes("ISO-8859-1"), + cst_ISO_IR_100=caml_string_of_jsbytes("ISO-IR-100"), + cst_ISO_IR_6=caml_string_of_jsbytes("ISO-IR-6"), + cst_US=caml_string_of_jsbytes("US"), + cst_ISO_646_IRV_1991=caml_string_of_jsbytes("ISO_646.IRV:1991"), + cst_ISO_8859_1=caml_string_of_jsbytes("ISO_8859-1"), + cst_ISO_8859_1_1987=caml_string_of_jsbytes("ISO_8859-1:1987"), + cst_L1=caml_string_of_jsbytes("L1"), + cst_LATIN1=caml_string_of_jsbytes("LATIN1"), + cst_US_ASCII=caml_string_of_jsbytes("US-ASCII"), + cst_UTF_16=caml_string_of_jsbytes("UTF-16"), + cst_UTF_16BE=caml_string_of_jsbytes("UTF-16BE"), + cst_UTF_16LE=caml_string_of_jsbytes("UTF-16LE"), + cst_UTF_8=caml_string_of_jsbytes("UTF-8"), + cst_expected_Await_encode= + caml_string_of_jsbytes("expected `Await encode"), + Stdlib_uchar=global_data.Stdlib__uchar, + Stdlib_buffer=global_data.Stdlib__buffer, Stdlib_bytes=global_data.Stdlib__bytes, - Stdlib_sys=global_data.Stdlib__sys, + Stdlib=global_data.Stdlib, Assert_failure=global_data.Assert_failure, - Stdlib_char=global_data.Stdlib__char, - Bigarray_compat=global_data.Bigarray_compat, - Stdlib_buffer=global_data.Stdlib__buffer, - _E_=[0,[17,3,[15,[17,4,0]]],caml_new_string("@\n%a@.")], - _B_=[0,[17,[0,caml_new_string("@;"),1,0],0],caml_new_string("@;")], - _A_=[0,[12,32,0],caml_new_string(" ")], - _z_=[0,[11,caml_new_string(" "),0],caml_new_string(" ")], - _C_=[0,[15,[4,6,0,[0,2],[15,0]]],caml_new_string("%a%.2x%a")], - _x_= - [0, - [11, - caml_new_string("of_hex: invalid character at pos "), - [4,0,0,0,[11,caml_new_string(": "),[1,0]]]], - caml_new_string("of_hex: invalid character at pos %d: %C")], - _y_= - [0, - [11,caml_new_string("of_hex: odd numbers of characters"),0], - caml_new_string("of_hex: odd numbers of characters")], + Stdlib_string=global_data.Stdlib__string, + Stdlib_printf=global_data.Stdlib__printf, + Stdlib_format=global_data.Stdlib__format, + _a_=Stdlib_format[123], + _B_=[0,caml_string_of_jsbytes("src/uutf.ml"),364,9], _u_= [0, - [11, - caml_new_string("ERROR: t.off+t.len="), - [4,0,0,0,[12,32,[15,[12,10,[10,0]]]]]], - caml_new_string("ERROR: t.off+t.len=%d %a\n%!")], - _v_=[0,caml_new_string("lib/cstruct.ml"),128,4], - _w_=[0,[15,0],caml_new_string("%a")], - _t_= - [0, - [11, - caml_new_string("Cstruct.iter "), - [15, - [11, - caml_new_string(" i="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]], - caml_new_string("Cstruct.iter %a i=%d len=%d")], - _s_= + [11,caml_string_of_jsbytes("`Await"),0], + caml_string_of_jsbytes("`Await")], + _v_= + [0,[11,caml_string_of_jsbytes("`End"),0],caml_string_of_jsbytes("`End")], + _w_= [0, - [11, - caml_new_string("Cstruct.split "), - [15, - [11, - caml_new_string(" start="), - [4,0,0,0,[11,caml_new_string(" off="),[4,0,0,0,0]]]]]], - caml_new_string("Cstruct.split %a start=%d off=%d")], - _r_= + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11,caml_string_of_jsbytes("`Uchar U+"),[4,8,[0,2,4],0,[17,0,0]]]], + caml_string_of_jsbytes("@[`Uchar U+%04X@]")], + _x_= [0, - [11, - caml_new_string("invalid bounds in Cstruct."), - [2, - 0, - [12, - 32, - [15, - [11, - caml_new_string(" off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]]]], - caml_new_string("invalid bounds in Cstruct.%s %a off=%d len=%d")], - _q_= + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11,caml_string_of_jsbytes("`Malformed ("),0]], + caml_string_of_jsbytes("@[`Malformed (")], + _y_=[0,[4,8,[0,2,2],0,0],caml_string_of_jsbytes("%02X")], + _A_=[0,[12,32,[4,8,[0,2,2],0,0]],caml_string_of_jsbytes(" %02X")], + _z_=[0,[12,41,[17,0,0]],caml_string_of_jsbytes(")@]")], + _p_=[0,-211555818,3299808], + _k_=[0,-211558048,3299808], + _q_=[0,684370880,3299808], + _o_=[0,684370880,427938126], + _l_=[0,-211558048,427938126], + _m_=[0,caml_string_of_jsbytes("src/uutf.ml"),154,55], + _n_=[0,684370880,427938126], + _r_=[0,caml_string_of_jsbytes("src/uutf.ml"),153,55], + _s_=[0,caml_string_of_jsbytes("src/uutf.ml"),155,55], + _t_=[0,684370880,3455931], + _j_=[0,caml_string_of_jsbytes("src/uutf.ml"),121,9], + _c_=[0,684370880], + _d_=[0,-211555818], + _e_=[0,-211558048], + _f_=[0,143365725], + _g_=[0,423112016], + _h_=[0,338302576], + _b_= [0, [11, - caml_new_string("Cstruct.blit_to_bytes src="), - [15, - [11, - caml_new_string(" dst="), - [15, - [11, - caml_new_string(" dst-off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]]]], - caml_new_string - ("Cstruct.blit_to_bytes src=%a dst=%a dst-off=%d len=%d")], - _p_= + caml_string_of_jsbytes("invalid bounds (index "), + [4,0,0,0,[11,caml_string_of_jsbytes(", length "),[4,0,0,0,[12,41,0]]]]], + caml_string_of_jsbytes("invalid bounds (index %d, length %d)")], + _i_= [0, - [11, - caml_new_string("Cstruct.blit_to_bytes src="), - [15, - [11, - caml_new_string(" dst="), - [15, - [11, - caml_new_string(" src-off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]]]], - caml_new_string - ("Cstruct.blit_to_bytes src=%a dst=%a src-off=%d len=%d")], - _o_= - [0, - [11, - caml_new_string("Cstruct.blit_from_bytes src="), - [15, - [11, - caml_new_string(" dst="), - [15, - [11, - caml_new_string(" dst-off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]]]], - caml_new_string - ("Cstruct.blit_from_bytes src=%a dst=%a dst-off=%d len=%d")], - _n_= - [0, - [11, - caml_new_string("Cstruct.blit_from_bytes src="), - [15, - [11, - caml_new_string(" dst="), - [15, - [11, - caml_new_string(" src-off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]]]], - caml_new_string - ("Cstruct.blit_from_bytes src=%a dst=%a src-off=%d len=%d")], - _m_= - [0, - [11, - caml_new_string("Cstruct.blit_from_string src="), - [15, - [11, - caml_new_string(" dst="), - [15, - [11, - caml_new_string(" dst-off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]]]], - caml_new_string - ("Cstruct.blit_from_string src=%a dst=%a dst-off=%d len=%d")], - _l_= - [0, - [11, - caml_new_string("Cstruct.blit_from_string src="), - [15, - [11, - caml_new_string(" dst="), - [15, - [11, - caml_new_string(" src-off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]]]], - caml_new_string - ("Cstruct.blit_from_string src=%a dst=%a src-off=%d len=%d")], - _k_= - [0, - [11, - caml_new_string("Cstruct.blit src="), - [15, - [11, - caml_new_string(" dst="), - [15, - [11, - caml_new_string(" dst-off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]]]], - caml_new_string("Cstruct.blit src=%a dst=%a dst-off=%d len=%d")], - _j_= - [0, - [11, - caml_new_string("Cstruct.blit src="), - [15, - [11, - caml_new_string(" dst="), - [15, - [11, - caml_new_string(" src-off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]]]], - caml_new_string("Cstruct.blit src=%a dst=%a src-off=%d len=%d")], - _i_= - [0, - [11, - caml_new_string("Cstruct.copy "), - [15, - [11, - caml_new_string(" off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]], - caml_new_string("Cstruct.copy %a off=%d len=%d")], - _h_= - [0, - [11,caml_new_string("Cstruct.add_len "),[15,[12,32,[4,0,0,0,0]]]], - caml_new_string("Cstruct.add_len %a %d")], - _g_= - [0, - [11,caml_new_string("Cstruct.set_len "),[15,[12,32,[4,0,0,0,0]]]], - caml_new_string("Cstruct.set_len %a %d")], - _f_= - [0, - [11,caml_new_string("Cstruct.shift "),[15,[12,32,[4,0,0,0,0]]]], - caml_new_string("Cstruct.shift %a %d")], - _e_= - [0, - [11, - caml_new_string("Cstruct.sub: "), - [15, - [11, - caml_new_string(" off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]]]], - caml_new_string("Cstruct.sub: %a off=%d len=%d")], - _d_= - [0, - [11, - caml_new_string("Cstruct.of_bigarray off="), - [4,0,0,0,[11,caml_new_string(" len="),[4,0,0,0,0]]]], - caml_new_string("Cstruct.of_bigarray off=%d len=%d")], - _c_=[0,[12,91,[4,0,0,0,[12,93,0]]],caml_new_string("[%d]")], - _b_=[0,[12,91,[4,0,0,0,[12,93,0]]],caml_new_string("[%d]")], - _a_= - [0, - [12, - 91, - [4, - 0, - 0, - 0, - [12,44,[4,0,0,0,[11,caml_new_string("]("),[4,0,0,0,[12,41,0]]]]]]], - caml_new_string("[%d,%d](%d)")], - _D_=[0,[17,3,[15,[17,4,0]]],caml_new_string("@\n%a@.")], - _F_=[0,caml_new_string("lib/cstruct_cap.ml"),82,2]; - function pp_t(ppf,t) - {var _al_=caml_ba_dim_1(t[1]); - return caml_call5(Stdlib_format[123],ppf,_a_,t[2],t[3],_al_)} - function string_t(ppf,str) - {return caml_call3(Stdlib_format[123],ppf,_b_,caml_ml_string_length(str))} - function bytes_t(ppf,str) - {return caml_call3(Stdlib_format[123],ppf,_c_,caml_ml_bytes_length(str))} - function err(fmt) + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 1, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 2, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 3, + 4, + 4, + 4, + 4, + 4, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0, + 0]; + function invalid_bounds(j,l) + {var _aF_=caml_call3(Stdlib_printf[4],_b_,j,l); + return caml_call1(Stdlib[1],_aF_)} + function unsafe_set_byte(s,j,byte$0) + {runtime.caml_bytes_unsafe_set(s,j,byte$0);return 0} + var + u_bom=caml_call1(Stdlib_uchar[9],65279), + u_rep=caml_call1(Stdlib_uchar[9],65533); + function encoding_of_string(s) {var - b=caml_call1(Stdlib_buffer[1],20), - ppf=caml_call1(Stdlib_format[107],b); - function k(ppf) - {caml_call2(Stdlib_format[36],ppf,0); - var _ak_=caml_call1(Stdlib_buffer[2],b); - return caml_call1(Stdlib[1],_ak_)} - return caml_call3(Stdlib_format[130],k,ppf,fmt)} - function err_invalid_bounds(f){return caml_call2(err(_r_),f,pp_t)} - function err_split(t){return caml_call2(err(_s_),pp_t,t)} - function err_iter(t){return caml_call2(err(_t_),pp_t,t)} - function of_bigarray(opt,len,buffer) - {if(opt)var sth=opt[1],off=sth;else var off=0; - var dim=caml_ba_dim_1(buffer); - if(len)var len$0=len[1],len$1=len$0;else var len$1=dim - off | 0; - if(0 <= off) - if(0 <= len$1) - if(0 <= (off + len$1 | 0)) - if(! (dim < (off + len$1 | 0)))return [0,buffer,off,len$1]; - return caml_call1(caml_call1(err(_d_),off),len$1)} - function to_bigarray(buffer) - {return runtime.caml_ba_sub(buffer[1],buffer[2],buffer[3])} - function create_unsafe(len) + match=caml_call1(Stdlib_string[25],s), + _aD_=caml_string_compare(match,cst_ISO646_US), + switch$1=0; + if(0 <= _aD_) + {if(0 < _aD_) + {var switch$0=caml_string_compare(match,cst_US); + if(0 <= switch$0) + {if(0 < switch$0 && caml_string_notequal(match,cst_US_ASCII)) + {if(! caml_string_notequal(match,cst_UTF_16))return _f_; + if(! caml_string_notequal(match,cst_UTF_16BE))return _e_; + if(! caml_string_notequal(match,cst_UTF_16LE))return _d_; + if(! caml_string_notequal(match,cst_UTF_8))return _c_; + switch$1 = 2}} + else + if(caml_string_notequal(match,cst_ISO_646_IRV_1991)) + if + (caml_string_notequal(match,cst_ISO_8859_1) + && + caml_string_notequal(match,cst_ISO_8859_1_1987) + && + caml_string_notequal(match,cst_L1) + && + caml_string_notequal(match,cst_LATIN1)) + switch$1 = 2; + else + switch$1 = 1}} + else + {var _aE_=caml_string_compare(match,cst_CSISOLATIN1); + if(0 <= _aE_) + if(0 < _aE_) + {if(caml_string_notequal(match,cst_IBM367)) + if + (caml_string_notequal(match,cst_IBM819) + && + caml_string_notequal(match,cst_ISO_8859_1$0) + && + caml_string_notequal(match,cst_ISO_IR_100)) + {if(caml_string_notequal(match,cst_ISO_IR_6))switch$1 = 2} + else + switch$1 = 1} + else + switch$1 = 1; + else + if + (caml_string_notequal(match,cst_ANSI_X3_4_1968) + && + caml_string_notequal(match,cst_ANSI_X3_4_1986) + && + caml_string_notequal(match,cst_ASCII) + && + caml_string_notequal(match,cst_CP367)) + if(caml_string_notequal(match,cst_CP819)) + {if(caml_string_notequal(match,cst_CSASCII))switch$1 = 2} + else + switch$1 = 1} + switch(switch$1){case 2:return 0;case 0:return _g_;default:return _h_}} + function encoding_to_string(param) + {return 143365725 <= param + ?423112016 <= param + ?684370880 <= param?cst_UTF_8$0:cst_US_ASCII$0 + :338302576 <= param?cst_ISO_8859_1$1:cst_UTF_16$0 + :-211555818 <= param?cst_UTF_16LE$0:cst_UTF_16BE$0} + function malformed(s,j,l) + {return [0,659980059,caml_call3(Stdlib_bytes[8],s,j,l)]} + function malformed_pair(be,hi,s,j,l) + {var bs1=caml_call3(Stdlib_bytes[7],s,j,l),bs0=caml_create_bytes(2); + if(be)var j0=0,j1=1;else var j0=1,j1=0; + unsafe_set_byte(bs0,j0,hi >>> 8 | 0); + unsafe_set_byte(bs0,j1,hi & 255); + var _aC_=caml_call2(Stdlib_bytes[14],bs0,bs1); + return [0,659980059,caml_call1(Stdlib_bytes[42],_aC_)]} + var utf_8_len=_i_.slice(); + function r_utf_8(s,j,l) + {function uchar(c){return [0,852405675,caml_call1(Stdlib_uchar[9],c)]} + var switcher=l - 1 | 0; + if(3 < switcher >>> 0)throw [0,Assert_failure,_j_]; + switch(switcher) + {case 0:return uchar(caml_bytes_unsafe_get(s,j)); + case 1: + var + b0=caml_bytes_unsafe_get(s,j), + b1=caml_bytes_unsafe_get(s,j + 1 | 0); + return 2 === (b1 >>> 6 | 0) + ?uchar((b0 & 31) << 6 | b1 & 63) + :malformed(s,j,l); + case 2: + var + b0$0=caml_bytes_unsafe_get(s,j), + b1$0=caml_bytes_unsafe_get(s,j + 1 | 0), + b2=caml_bytes_unsafe_get(s,j + 2 | 0), + c=(b0$0 & 15) << 12 | (b1$0 & 63) << 6 | b2 & 63; + if(2 === (b2 >>> 6 | 0)) + {if(224 === b0$0) + {if(160 <= b1$0 && ! (191 < b1$0))return uchar(c); + return malformed(s,j,l)} + if(237 === b0$0) + {if(128 <= b1$0 && ! (159 < b1$0))return uchar(c); + return malformed(s,j,l)} + return 2 === (b1$0 >>> 6 | 0)?uchar(c):malformed(s,j,l)} + return malformed(s,j,l); + default: + var + b0$1=caml_bytes_unsafe_get(s,j), + b1$1=caml_bytes_unsafe_get(s,j + 1 | 0), + b2$0=caml_bytes_unsafe_get(s,j + 2 | 0), + b3=caml_bytes_unsafe_get(s,j + 3 | 0), + c$0= + (b0$1 & 7) + << + 18 + | + (b1$1 & 63) + << + 12 + | + (b2$0 & 63) + << + 6 + | + b3 + & + 63; + if(2 === (b3 >>> 6 | 0) && 2 === (b2$0 >>> 6 | 0)) + {if(240 === b0$1) + {if(144 <= b1$1 && ! (191 < b1$1))return uchar(c$0); + return malformed(s,j,l)} + if(244 === b0$1) + {if(128 <= b1$1 && ! (143 < b1$1))return uchar(c$0); + return malformed(s,j,l)} + return 2 === (b1$1 >>> 6 | 0)?uchar(c$0):malformed(s,j,l)} + return malformed(s,j,l)}} + function r_utf_16(s,j0,j1) {var - buffer= - caml_call3 - (Bigarray_compat[19][1],Bigarray_compat[13],Bigarray_compat[15],len); - return [0,buffer,0,len]} - function check_bounds(t,len) - {var _ai_=0 <= len?1:0,_aj_=_ai_?len <= caml_ba_dim_1(t[1])?1:0:_ai_; - return _aj_} - var empty=create_unsafe(0); - function check_alignment(t,alignment) - {return 0 < alignment - ?runtime.caml_check_alignment_bigstring(t[1],t[2],alignment) - :caml_call1 - (Stdlib[1],cst_check_alignment_must_be_positive_integer)} - function byte$0(i){return caml_call1(Stdlib_char[1],i)} - function byte_to_int(b){return b} - function debug(t) - {var max_len=caml_ba_dim_1(t[1]); - if(! (max_len < (t[2] + t[3] | 0))) - if(0 <= t[3]) - if(0 <= t[2])return caml_call3(Stdlib_format[127],_w_,pp_t,t); - caml_call4(Stdlib_format[124],_u_,t[2] + t[3] | 0,pp_t,t); - throw [0,Assert_failure,_v_]} - function sub(t,off,len) + b0=caml_bytes_unsafe_get(s,j0), + b1=caml_bytes_unsafe_get(s,j1), + u=b0 << 8 | b1; + if(55296 <= u && ! (57343 < u)) + return 56319 < u + ?malformed(s,caml_call2(Stdlib[16],j0,j1),2) + :[0,16161,u]; + return [0,852405675,caml_call1(Stdlib_uchar[9],u)]} + function r_utf_16_lo(hi,s,j0,j1) {var - new_start=t[2] + off | 0, - new_end=new_start + len | 0, - old_end=t[2] + t[3] | 0; - if(t[2] <= new_start) - if(new_end <= old_end) - if(new_start <= new_end)return [0,t[1],new_start,len]; - return caml_call2(caml_call2(err(_e_),pp_t,t),off,len)} - function shift(t,amount) - {var off=t[2] + amount | 0,len=t[3] - amount | 0; - if(0 <= amount) - if(! (t[3] < amount)) - if(check_bounds(t,off + len | 0))return [0,t[1],off,len]; - return caml_call1(caml_call2(err(_f_),pp_t,t),amount)} - function set_len(t,len) - {if(0 <= len)if(check_bounds(t,t[2] + len | 0))return [0,t[1],t[2],len]; - return caml_call1(caml_call2(err(_g_),pp_t,t),len)} - function add_len(t,len) - {var len$0=t[3] + len | 0; - if(0 <= len$0) - if(check_bounds(t,t[2] + len$0 | 0))return [0,t[1],t[2],len$0]; - return caml_call1(caml_call2(err(_h_),pp_t,t),len$0)} - function copy(src,srcoff,len) - {if(0 <= len) - if(0 <= srcoff) - if(! ((src[3] - srcoff | 0) < len)) - {var b=caml_create_bytes(len); - caml_blit_bigstring_to_string(src[1],src[2] + srcoff | 0,b,0,len); - return caml_call1(Stdlib_bytes[42],b)} - return caml_call2(caml_call2(err(_i_),pp_t,src),srcoff,len)} - function blit(src,srcoff,dst,dstoff,len) - {if(0 <= len) - if(0 <= srcoff) - if(! ((src[3] - srcoff | 0) < len)) - {if(0 <= dstoff) - if(! ((dst[3] - dstoff | 0) < len)) - return runtime.caml_blit_bigstring_to_bigstring - (src[1],src[2] + srcoff | 0,dst[1],dst[2] + dstoff | 0,len); - return caml_call2(caml_call4(err(_k_),pp_t,src,pp_t,dst),dstoff,len)} - return caml_call2(caml_call4(err(_j_),pp_t,src,pp_t,dst),srcoff,len)} - function blit_from_string(src,srcoff,dst,dstoff,len) - {if(0 <= len) - if(0 <= srcoff) - if(0 <= dstoff) - if(! ((caml_ml_string_length(src) - srcoff | 0) < len)) - return (dst[3] - dstoff | 0) < len - ?caml_call2 - (caml_call4(err(_m_),string_t,src,pp_t,dst),dstoff,len) - :caml_blit_string_to_bigstring - (src,srcoff,dst[1],dst[2] + dstoff | 0,len); - return caml_call2(caml_call4(err(_l_),string_t,src,pp_t,dst),srcoff,len)} - function blit_from_bytes(src,srcoff,dst,dstoff,len) - {if(0 <= len) - if(0 <= srcoff) - if(0 <= dstoff) - if(! ((caml_ml_bytes_length(src) - srcoff | 0) < len)) - return (dst[3] - dstoff | 0) < len - ?caml_call2 - (caml_call4(err(_o_),bytes_t,src,pp_t,dst),dstoff,len) - :caml_blit_string_to_bigstring - (src,srcoff,dst[1],dst[2] + dstoff | 0,len); - return caml_call2(caml_call4(err(_n_),bytes_t,src,pp_t,dst),srcoff,len)} - function blit_to_string(src,srcoff,dst,dstoff,len) - {if(0 <= len) - if(0 <= srcoff) - if(0 <= dstoff) - if(! ((src[3] - srcoff | 0) < len)) - return (caml_ml_bytes_length(dst) - dstoff | 0) < len - ?caml_call2 - (caml_call4(err(_q_),pp_t,src,bytes_t,dst),dstoff,len) - :caml_blit_bigstring_to_string - (src[1],src[2] + srcoff | 0,dst,dstoff,len); - return caml_call2(caml_call4(err(_p_),pp_t,src,bytes_t,dst),srcoff,len)} - function compare(t1,t2) - {var l1=t1[3],l2=t2[3],r=runtime.caml_int_compare(l1,l2); - if(0 === r) - {var r$0=runtime.caml_compare_bigstring(t1[1],t1[2],t2[1],t2[2],l1); - return 0 === r$0?0:0 <= r$0?1:-1} - return r} - function equal(t1,t2){return 0 === compare(t1,t2)?1:0} - function memset(t,x){return runtime.caml_fill_bigstring(t[1],t[2],t[3],x)} - function create(len){var t=create_unsafe(len);memset(t,0);return t} - function set_uint8(t,i,c) - {if(! (t[3] <= i))if(0 <= i)return caml_ba_set_1(t[1],t[2] + i | 0,c); - return caml_call3(err_invalid_bounds(cst_set_uint8),t,i,1)} - function set_char(t,i,c) - {if(! (t[3] <= i))if(0 <= i)return caml_ba_set_1(t[1],t[2] + i | 0,c); - return caml_call3(err_invalid_bounds(cst_set_char),t,i,1)} - function get_uint8(t,i) - {if(! (t[3] <= i))if(0 <= i)return caml_ba_get_1(t[1],t[2] + i | 0); - return caml_call3(err_invalid_bounds(cst_get_uint8),t,i,1)} - function get_char(t,i) - {if(! (t[3] <= i))if(0 <= i)return caml_ba_get_1(t[1],t[2] + i | 0); - return caml_call3(err_invalid_bounds(cst_get_char),t,i,1)} - function set_uint16(swap,p,t,i,c) - {if(! ((t[3] - 2 | 0) < i)) - if(0 <= i) - {var _ah_=swap?caml_bswap16(c):c; - return runtime.caml_ba_uint8_set16(t[1],t[2] + i | 0,_ah_)} - return caml_call3 - (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_set_uint16)), - t, - i, - 2)} - function set_uint32(swap,p,t,i,c) - {if(! ((t[3] - 4 | 0) < i)) - if(0 <= i) - {var _ag_=swap?caml_int32_bswap(c):c; - return runtime.caml_ba_uint8_set32(t[1],t[2] + i | 0,_ag_)} - return caml_call3 - (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_set_uint32)), - t, - i, - 4)} - function set_uint64(swap,p,t,i,c) - {if(! ((t[3] - 8 | 0) < i)) - if(0 <= i) - {var _af_=swap?caml_int64_bswap(c):c; - return runtime.caml_ba_uint8_set64(t[1],t[2] + i | 0,_af_)} - return caml_call3 - (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_set_uint64)), - t, - i, - 8)} - function get_uint16(swap,p,t,i) - {if(! ((t[3] - 2 | 0) < i)) - if(0 <= i) - {var r=runtime.caml_ba_uint8_get16(t[1],t[2] + i | 0); - return swap?caml_bswap16(r):r} - return caml_call3 - (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_get_uint16)), - t, - i, - 2)} - function get_uint32(swap,p,t,i) - {if(! ((t[3] - 4 | 0) < i)) - if(0 <= i) - {var r=runtime.caml_ba_uint8_get32(t[1],t[2] + i | 0); - return swap?caml_int32_bswap(r):r} - return caml_call3 - (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_get_uint32)), - t, - i, - 4)} - function get_uint64(swap,p,t,i) - {if(! ((t[3] - 8 | 0) < i)) - if(0 <= i) - {var r=runtime.caml_ba_uint8_get64(t[1],t[2] + i | 0); - return swap?caml_int64_bswap(r):r} - return caml_call3 - (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_get_uint64)), - t, - i, - 8)} - function set_uint16$0(t,i,c) - {return set_uint16(1 - Stdlib_sys[11],cst_BE,t,i,c)} - function set_uint32$0(t,i,c) - {return set_uint32(1 - Stdlib_sys[11],cst_BE$0,t,i,c)} - function set_uint64$0(t,i,c) - {return set_uint64(1 - Stdlib_sys[11],cst_BE$1,t,i,c)} - function get_uint16$0(t,i) - {return get_uint16(1 - Stdlib_sys[11],cst_BE$2,t,i)} - function get_uint32$0(t,i) - {return get_uint32(1 - Stdlib_sys[11],cst_BE$3,t,i)} - function get_uint64$0(t,i) - {return get_uint64(1 - Stdlib_sys[11],cst_BE$4,t,i)} - function set_uint16$1(t,i,c) - {return set_uint16(Stdlib_sys[11],cst_LE,t,i,c)} - function set_uint32$1(t,i,c) - {return set_uint32(Stdlib_sys[11],cst_LE$0,t,i,c)} - function set_uint64$1(t,i,c) - {return set_uint64(Stdlib_sys[11],cst_LE$1,t,i,c)} - function get_uint16$1(t,i){return get_uint16(Stdlib_sys[11],cst_LE$2,t,i)} - function get_uint32$1(t,i){return get_uint32(Stdlib_sys[11],cst_LE$3,t,i)} - function get_uint64$1(t,i){return get_uint64(Stdlib_sys[11],cst_LE$4,t,i)} - function length(t){return t[3]} - function sum_lengths(caller,l) - {var acc=0,param=l; - for(;;) - {if(param) - {var t=param[2],h=param[1],acc$0=h[3] + acc | 0; - if(acc$0 < acc)return caml_call1(Stdlib[1],caller); - var acc=acc$0,param=t; - continue} - return acc}} - function lenv(l){return sum_lengths(cst_Cstruct_lenv,l)} - function copyv(ts) - {var - sz=sum_lengths(cst_Cstruct_copyv,ts), - dst=caml_create_bytes(sz), - _ad_=0; - function _ae_(off,src) - {var x=src[3]; - caml_blit_bigstring_to_string(src[1],src[2],dst,off,x); - return off + x | 0} - caml_call3(Stdlib_list[21],_ae_,_ad_,ts); - return caml_call1(Stdlib_bytes[42],dst)} - function fillv(param,dst) - {var dst$0=dst,n=0,param$0=param; - for(;;) - {if(param$0) - {var tl=param$0[2],hd=param$0[1],avail=dst$0[3],first=hd[3]; - if(first <= avail) - {blit(hd,0,dst$0,0,first); - var - n$0=n + first | 0, - dst$1=shift(dst$0,first), - dst$0=dst$1, - n=n$0, - param$0=tl; - continue} - blit(hd,0,dst$0,0,avail); - var rest_hd=shift(hd,avail); - return [0,n + avail | 0,[0,rest_hd,tl]]} - return [0,n,0]}} - function to_bytes(t) - {var sz=t[3],b=caml_create_bytes(sz); - caml_blit_bigstring_to_string(t[1],t[2],b,0,sz); - return b} - function to_string(t) - {var _ac_=to_bytes(t);return caml_call1(Stdlib_bytes[42],_ac_)} - function of_data_abstract(blitfun,lenfun,allocator,opt,len,buf) - {if(opt)var sth=opt[1],off=sth;else var off=0; - if(len) - var len$0=len[1],buflen=len$0; - else - var buflen=caml_call1(lenfun,buf); - if(allocator) - {var fn=allocator[1],c=caml_call1(fn,buflen); - caml_call5(blitfun,buf,off,c,0,buflen); - return set_len(c,buflen)} - var c$0=create_unsafe(buflen); - caml_call5(blitfun,buf,off,c$0,0,buflen); - return c$0} - function of_string(allocator,off,len,buf) - {return of_data_abstract - (blit_from_string,caml_ml_string_length,allocator,off,len,buf)} - function of_bytes(allocator,off,len,buf) - {return of_data_abstract - (blit_from_bytes,caml_ml_bytes_length,allocator,off,len,buf)} - function of_hex(str) - {var - z=[0,create_unsafe(caml_ml_string_length(str) >>> 1 | 0),0,0,0], - st=[0,z]; - function _W_(char$0) - {var - ___=st[1], - acc=___[4], - p=___[3], - i=___[2], - cs=___[1], - p$0=p + 1 | 0, - _aa_=char$0 - 9 | 0, - switch$0=4 < _aa_ >>> 0?23 === _aa_?1:0:1 < (_aa_ - 2 | 0) >>> 0?1:0, - _ab_=switch$0?1:0; - if(_ab_) - var _$_=[0,cs,i,p$0,acc]; - else - {if(65 <= char$0) - if(97 <= char$0) - if(103 <= char$0) - var switch$1=0; - else - var match=char$0 - 87 | 0,switch$1=1; - else - if(71 <= char$0) - var switch$1=0; - else - var match=char$0 - 55 | 0,switch$1=1; + b0=caml_bytes_unsafe_get(s,j0), + b1=caml_bytes_unsafe_get(s,j1), + lo=b0 << 8 | b1; + if(56320 <= lo && ! (57343 < lo)) + return [0, + 852405675, + caml_call1 + (Stdlib_uchar[9],((hi & 1023) << 10 | lo & 1023) + 65536 | 0)]; + return malformed_pair(j0 < j1?1:0,hi,s,caml_call2(Stdlib[16],j0,j1),2)} + function r_encoding(s,j,l) + {function some(i){return i < l?[0,caml_bytes_unsafe_get(s,j + i | 0)]:0} + var match=some(0),match$0=some(1),match$1=some(2); + if(match) + {var _aB_=match[1],switch$0=0; + if(240 <= _aB_) + if(254 === _aB_) + {if(match$0){if(255 === match$0[1])return _k_;switch$0 = 1}} + else + if(255 === _aB_) + {if(match$0){if(254 === match$0[1])return _p_;switch$0 = 1}} else - {var switcher=char$0 - 48 | 0; - if(9 < switcher >>> 0) - var switch$1=0; - else - var match=char$0 - 48 | 0,switch$1=1} - if(! switch$1) - var match=caml_call4(Stdlib_format[133],Stdlib[1],_x_,p,char$0); - if(acc) - {var y=acc[1]; - set_uint8(cs,i,match | y); - var _$_=[0,cs,i + 1 | 0,p$0,0]} + switch$0 = 1; + else + if(0 === _aB_) + {if(match$0) + {var p=match$0[1]; + if(0 < p)return [0,-211558048,[0,605782321,p]]; + switch$0 = 1}} + else + if(239 <= _aB_) + {if(match$0) + if(187 === match$0[1]) + {if(match$1 && 191 === match$1[1])return _q_} + else + switch$0 = 1} else - var _$_=[0,cs,i,p$0,[0,match << 4]]} - st[1] = _$_; - return 0} - caml_call2(Stdlib_string[8],_W_,str); - var _X_=st[1],_Y_=_X_[2],_Z_=_X_[1]; - return _X_[4] - ?caml_call2(Stdlib_format[133],Stdlib[1],_y_) - :sub(_Z_,0,_Y_)} - function hexdump_pp(fmt,t) - {function before(fmt,param) - {return 0 === param - ?0 - :8 === param - ?caml_call2(Stdlib_format[123],fmt,_z_) - :caml_call2(Stdlib_format[123],fmt,_A_)} - function after(fmt,param) - {return 15 === param?caml_call2(Stdlib_format[123],fmt,_B_):0} - caml_call2(Stdlib_format[7],fmt,0); - var _U_=t[3] - 1 | 0,_T_=0; - if(! (_U_ < 0)) - {var i=_T_; + switch$0 = 1; + if(switch$0 && match$0 && 0 === match$0[1] && 0 < _aB_) + return [0,-211555818,[0,605782321,_aB_]]; + if(0 === caml_check_bound(utf_8_len,_aB_)[1 + _aB_]) + {if(match$0)return _l_; + if(match$1)throw [0,Assert_failure,_m_]; + return _n_} + return _o_} + if(match$0)throw [0,Assert_failure,_r_]; + if(match$1)throw [0,Assert_failure,_s_]; + return _t_} + function pp_decode(ppf,param) + {if(typeof param === "number") + return 1006505782 <= param + ?caml_call2(_a_,ppf,_u_) + :caml_call2(_a_,ppf,_v_); + if(852405675 <= param[1]) + {var u=param[2]; + return caml_call3(_a_,ppf,_w_,caml_call1(Stdlib_uchar[10],u))} + var bs=param[2],l=caml_ml_string_length(bs); + caml_call2(_a_,ppf,_x_); + if(0 < l)caml_call3(_a_,ppf,_y_,caml_string_get(bs,0)); + var _az_=l - 1 | 0,_ay_=1; + if(! (_az_ < 1)) + {var i=_ay_; for(;;) - {var column=i % 16 | 0,c=caml_ba_get_1(t[1],t[2] + i | 0); - caml_call7(Stdlib_format[123],fmt,_C_,before,column,c,after,column); - var _V_=i + 1 | 0; - if(_U_ !== i){var i=_V_;continue} + {caml_call3(_a_,ppf,_A_,caml_string_get(bs,i)); + var _aA_=i + 1 | 0; + if(_az_ !== i){var i=_aA_;continue} break}} - return caml_call2(Stdlib_format[3],fmt,0)} - var hexdump=caml_call2(Stdlib_format[124],_D_,hexdump_pp); - function hexdump_to_buffer(buf,t) - {var f=caml_call1(Stdlib_format[107],buf); - return caml_call4(Stdlib_format[123],f,_E_,hexdump_pp,t)} - function split(opt,t,off) - {if(opt)var sth=opt[1],start=sth;else var start=0; - try + return caml_call2(_a_,ppf,_z_)} + function i_rem(d){return (d[7] - d[6] | 0) + 1 | 0} + function eoi(d) + {d[5] = Stdlib_bytes[3];d[6] = 0;d[7] = Stdlib[20];return 0} + function src(d,s,j,l) + {if(0 <= j && 0 <= l && ! (caml_ml_bytes_length(s) < (j + l | 0))) + return 0 === l?eoi(d):(d[5] = s,d[6] = j,d[7] = (j + l | 0) - 1 | 0,0); + return invalid_bounds(j,l)} + function refill(k,d) + {var _ax_=d[1]; + if(typeof _ax_ === "number"){d[18] = k;return 1006505782} + if(438511779 <= _ax_[1]) {var - header=sub(t,start,off), - body=sub(t,start + off | 0,(t[3] - off | 0) - start | 0), - _R_=[0,header,body]; - return _R_} - catch(_S_) - {_S_ = caml_wrap_exception(_S_); - if(_S_[1] === Stdlib[6])return caml_call2(err_split(t),start,off); - throw _S_}} - function iter(lenfn,pfn,t) - {var body=[0,[0,t]],i=[0,0]; - return function(param) - {var _N_=body[1]; - if(_N_) - {var buf=_N_[1]; - if(0 === buf[3]){body[1] = 0;return 0} - var match=caml_call1(lenfn,buf); - if(match) - {var plen=match[1]; - i[1]++; - try - {var _P_=split(0,buf,plen),match$0=_P_} - catch(_Q_) - {_Q_ = caml_wrap_exception(_Q_); - if(_Q_[1] !== Stdlib[6])throw _Q_; - var _O_=i[1],match$0=caml_call2(err_iter(buf),_O_,plen)} - var rest=match$0[2],p=match$0[1]; - body[1] = [0,rest]; - return [0,caml_call1(pfn,p)]} - body[1] = 0; - return 0} - return 0}} - function fold(f,next,acc) - {var acc$0=acc; - for(;;) - {var match=caml_call1(next,0); - if(match) - {var v=match[1],acc$1=caml_call2(f,acc$0,v),acc$0=acc$1;continue} - return acc$0}} - function append(cs1,cs2) - {var l1=cs1[3],l2=cs2[3],cs=create_unsafe(l1 + l2 | 0); - blit(cs1,0,cs,0,l1); - blit(cs2,0,cs,l1,l2); - return cs} - function concat(css) - {if(css) - {if(css[2]) - {var - result=create_unsafe(sum_lengths(cst_Cstruct_concat,css)), - aux= - function(off,cs) - {var n=cs[3];blit(cs,0,result,off,n);return off + n | 0}; - caml_call3(Stdlib_list[21],aux,0,css); - return result} - var cs=css[1]; - return cs} - return create_unsafe(0)} - function rev(t) - {var n=t[3],out=create_unsafe(n),_L_=n - 1 | 0,_K_=0; - if(! (_L_ < 0)) - {var i_src=_K_; - for(;;) - {var byte$0=get_uint8(t,i_src),i_dst=(n - 1 | 0) - i_src | 0; - set_uint8(out,i_dst,byte$0); - var _M_=i_src + 1 | 0; - if(_L_ !== i_src){var i_src=_M_;continue} - break}} - return out} - var - LE= - [0, - get_uint16$1, - get_uint32$1, - get_uint64$1, - set_uint16$1, - set_uint32$1, - set_uint64$1], - BE= - [0, - get_uint16$0, - get_uint32$0, - get_uint64$0, - set_uint16$0, - set_uint32$0, - set_uint64$0], - include= - [0, - byte$0, - empty, - of_bigarray, - to_bigarray, - create, - create_unsafe, - of_string, - of_bytes, - of_hex, - equal, - compare, - byte_to_int, - check_bounds, - check_alignment, - get_char, - get_uint8, - set_char, - set_uint8, - sub, - shift, - copy, - blit, - blit_from_string, - blit_from_bytes, - blit_to_string, - blit_to_string, - memset, - length, - set_len, - add_len, - split, - to_string, - to_bytes, - hexdump, - hexdump_to_buffer, - hexdump_pp, - debug, - BE, - LE, - lenv, - copyv, - fillv, - iter, - fold, - append, - concat, - rev, - sum_lengths]; - caml_register_global(69,include,"Cstruct"); - function of_string$0(off,len,x){return of_string(0,off,len,x)} - function of_bytes$0(off,len,x){return of_bytes(0,off,len,x)} - function to_string$0(opt,len,t) - {if(opt)var sth=opt[1],off=sth;else var off=0; - if(len)var len$0=len[1],len$1=len$0;else var len$1=t[3] - off | 0; - return copy(t,off,len$1)} - function to_bytes$0(opt,len,t) - {if(opt)var sth=opt[1],off=sth;else var off=0; - if(len)var len$0=len[1],len$1=len$0;else var len$1=t[3] - off | 0; - var _J_=copy(t,off,len$1); - return caml_call1(Stdlib_bytes[43],_J_)} - function pp(ppf,t){return hexdump_pp(ppf,t)} - function blit$0(src,src_off,dst,dst_off,len) - {return blit(src,src_off,dst,dst_off,len)} - function blit_from_string$0(src,src_off,dst,dst_off,len) - {return blit_from_string(src,src_off,dst,dst_off,len)} - function blit_from_bytes$0(src,src_off,dst,dst_off,len) - {return blit_from_bytes(src,src_off,dst,dst_off,len)} - function blit_to_bytes(src,src_off,dst,dst_off,len) - {return blit_to_string(src,src_off,dst,dst_off,len)} - function sub$0(t,off,len){return sub(t,off,len)} - function concat$0(vss) - {var res=create_unsafe(sum_lengths(cst_Cstruct_Cap_concat,vss)); - function go(off,v) - {var len=v[3];blit(v,0,res,off,len);return off + len | 0} - var len=caml_call3(Stdlib_list[21],go,0,vss); - if(len === res[3])return res; - throw [0,Assert_failure,_F_]} - function _G_(_I_){return _I_} - var - Cstruct_cap= - [0, - create, - create_unsafe, - function(_H_){return _H_}, - _G_, - of_string$0, - of_bytes$0, - of_hex, - to_bigarray, - equal, - compare, - check_alignment, - get_char, - get_uint8, - set_char, - set_uint8, - sub$0, - shift, - to_string$0, - to_bytes$0, - blit$0, - blit_from_string$0, - blit_from_bytes$0, - blit_to_bytes, - memset, - length, - split, - pp, - BE, - LE, - lenv, - copyv, - fillv, - iter, - fold, - append, - concat$0, - rev]; - caml_register_global(70,Cstruct_cap,"Cstruct_cap"); - return} - (function(){return this}())); - - -//# 1 "../../.js/hex/hex.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - caml_ba_get_1=runtime.caml_ba_get_1, - caml_bytes_unsafe_set=runtime.caml_bytes_unsafe_set, - caml_create_bytes=runtime.caml_create_bytes, - caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, - caml_string_get=runtime.caml_string_get, - caml_string_unsafe_get=runtime.caml_string_unsafe_get; - function caml_call1(f,a0) - {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} - function caml_call2(f,a0,a1) - {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} - function caml_call3(f,a0,a1,a2) - {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} - function caml_call4(f,a0,a1,a2,a3) - {return f.length == 4 - ?f(a0,a1,a2,a3) - :runtime.caml_call_gen(f,[a0,a1,a2,a3])} - var - global_data=runtime.caml_get_global_data(), - cst$2=caml_new_string("."), - cst$1=caml_new_string(" "), - cst$3=caml_new_string("\n"), - cst=caml_new_string(""), - hexa=caml_new_string("0123456789abcdef"), - hexa1= - caml_new_string - ("0000000000000000111111111111111122222222222222223333333333333333444444444444444455555555555555556666666666666666777777777777777788888888888888889999999999999999aaaaaaaaaaaaaaaabbbbbbbbbbbbbbbbccccccccccccccccddddddddddddddddeeeeeeeeeeeeeeeeffffffffffffffff"), - hexa2= - caml_new_string - ("0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef"), - cst$0=caml_new_string(""), - Stdlib_format=global_data.Stdlib__format, - Stdlib_printf=global_data.Stdlib__printf, - Stdlib_buffer=global_data.Stdlib__buffer, - Stdlib_string=global_data.Stdlib__string, - Bigarray_compat=global_data.Bigarray_compat, - Cstruct=global_data.Cstruct, - Stdlib_bytes=global_data.Stdlib__bytes, - Stdlib_list=global_data.Stdlib__list, - Stdlib_char=global_data.Stdlib__char, - Stdlib=global_data.Stdlib, - _h_=[0,[2,0,0],caml_new_string("%s")], - _e_=[0,[0,0],caml_new_string("%c")], - _c_= - [0,[4,0,0,[0,8],[11,caml_new_string(": "),0]],caml_new_string("%.8d: ")], - _f_=[0,[12,32,0],caml_new_string(" ")], - _g_=[0,[0,0],caml_new_string("%c")], - _d_=[0,[2,0,0],caml_new_string("%s")], - _b_= - [0, - [11,caml_new_string("hex conversion: invalid hex string"),0], - caml_new_string("hex conversion: invalid hex string")], - _a_= - [0, - [11, - caml_new_string("Hex.to_char: "), - [4,0,0,0,[11,caml_new_string(" is an invalid char"),0]]], - caml_new_string("Hex.to_char: %d is an invalid char")]; - function invalid_arg(fmt) - {function _M_(str){throw [0,Stdlib[6],str]} - return caml_call2(Stdlib_printf[9],_M_,fmt)} - function of_char(x) - {var _L_=caml_string_get(hexa,x & 15); - return [0,caml_string_get(hexa,x >>> 4 | 0),_L_]} - function to_char(x,y) - {function code(c) - {if(65 <= c) - {if(97 <= c) - {if(! (103 <= c))return c - 87 | 0} - else - if(! (71 <= c))return c - 55 | 0} - else - {var switcher=c - 48 | 0;if(! (9 < switcher >>> 0))return c - 48 | 0} - return caml_call1(invalid_arg(_a_),c)} - var _J_=code(y),_K_=(code(x) << 4) + _J_ | 0; - return caml_call1(Stdlib_char[1],_K_)} - function of_helper(ignore,next,len) - {var buf=caml_call1(Stdlib_buffer[1],len),_H_=len - 1 | 0,_G_=0; - if(! (_H_ < 0)) - {var i=_G_; - for(;;) - {var c=caml_call1(next,i); - if(! caml_call2(Stdlib_list[32],c,ignore)) - {var match=of_char(c),y=match[2],x=match[1]; - caml_call2(Stdlib_buffer[10],buf,x); - caml_call2(Stdlib_buffer[10],buf,y)} - var _I_=i + 1 | 0; - if(_H_ !== i){var i=_I_;continue} - break}} - return [0,3603131,caml_call1(Stdlib_buffer[2],buf)]} - function of_string(ignore,s) - {if(ignore) - {var ignore$0=ignore[1],_F_=caml_ml_string_length(s); - return of_helper - (ignore$0,function(i){return caml_string_get(s,i)},_F_)} - var - len=caml_ml_string_length(s), - buf=caml_create_bytes(len * 2 | 0), - _D_=len - 1 | 0, - _C_=0; - if(! (_D_ < 0)) - {var i=_C_; - for(;;) - {caml_bytes_unsafe_set - (buf, - i * 2 | 0, - caml_string_unsafe_get(hexa1,caml_string_unsafe_get(s,i))); - caml_bytes_unsafe_set - (buf, - (i * 2 | 0) + 1 | 0, - caml_string_unsafe_get(hexa2,caml_string_unsafe_get(s,i))); - var _E_=i + 1 | 0; - if(_D_ !== i){var i=_E_;continue} - break}} - return [0,3603131,caml_call1(Stdlib_bytes[6],buf)]} - function of_bytes(ignore,b) - {return of_string(ignore,caml_call1(Stdlib_bytes[6],b))} - function to_helper(empty_return,create,set,param) - {var s=param[2]; - if(runtime.caml_string_equal(s,cst))return empty_return; - var n=caml_ml_string_length(s),buf=caml_call1(create,n / 2 | 0),i=0,j=1; - for(;;) - {if(! (n <= i)) - {if(! (n <= j)) - {var _B_=caml_string_get(s,j); - caml_call3(set,buf,i / 2 | 0,to_char(caml_string_get(s,i),_B_)); - var j$0=j + 2 | 0,i$0=j + 1 | 0,i=i$0,j=j$0; - continue} - invalid_arg(_b_)} - return buf}} - function to_bytes(hex) - {return to_helper - (Stdlib_bytes[3],caml_create_bytes,runtime.caml_bytes_set,hex)} - function to_string(hex) - {var _A_=to_bytes(hex);return caml_call1(Stdlib_bytes[6],_A_)} - function of_cstruct(opt,cs) - {if(opt)var sth=opt[1],ignore=sth;else var ignore=0; - var _z_=cs[3]; - return of_helper - (ignore, - function(i){return caml_ba_get_1(cs[1],cs[2] + i | 0)}, - _z_)} - var empty_cstruct=caml_call4(Cstruct[7],0,0,0,cst$0); - function to_cstruct(hex) - {return to_helper(empty_cstruct,Cstruct[5],Cstruct[17],hex)} - function of_bigstring(opt,buf) - {if(opt)var sth=opt[1],ignore=sth;else var ignore=0; - var _x_=runtime.caml_ba_dim_1(buf); - return of_helper - (ignore,function(_y_){return caml_ba_get_1(buf,_y_)},_x_)} - function to_bigstring(hex) - {var - _w_= - caml_call2 - (Bigarray_compat[19][1],Bigarray_compat[13],Bigarray_compat[15]); - return to_helper(empty_cstruct[1],_w_,runtime.caml_ba_set_1,hex)} - function hexdump_s(opt,_j_,param) - {var s=param[2]; - if(opt) - var sth=opt[1],print_row_numbers=sth; + ic=_ax_[2], + rc=caml_call4(Stdlib[84],ic,d[5],0,caml_ml_bytes_length(d[5])); + src(d,d[5],0,rc); + return caml_call1(k,d)} + eoi(d); + return caml_call1(k,d)} + function t_need(d,need){d[9] = 0;d[10] = need;return 0} + function t_fill(k,d) + {function blit(d,l) + {caml_blit_bytes(d[5],d[6],d[8],d[9],l); + d[6] = d[6] + l | 0; + d[9] = d[9] + l | 0; + return 0} + var rem=i_rem(d); + if(0 <= rem) + {var need=d[10] - d[9] | 0; + return rem < need + ?(blit(d,rem),refill(function(_aw_){return t_fill(k,_aw_)},d)) + :(blit(d,need),caml_call1(k,d))} + return caml_call1(k,d)} + function ret(k,v,byte_count,d) + {d[18] = k;d[15] = d[15] + byte_count | 0;return caml_call2(d[17],d,v)} + function decode_us_ascii(d) + {var rem=i_rem(d); + if(0 < rem) + {var j=d[6]; + d[6] = d[6] + 1 | 0; + var + _au_=d[5], + b0=caml_bytes_unsafe_get(_au_,j), + _at_=1, + _av_= + 127 < b0 + ?malformed(_au_,j,1) + :[0,852405675,caml_call1(Stdlib_uchar[9],b0)]; + return ret(decode_us_ascii,_av_,_at_,d)} + return 0 <= rem?refill(decode_us_ascii,d):3455931} + function decode_iso_8859_1(d) + {var rem=i_rem(d); + if(0 < rem) + {var j=d[6]; + d[6] = d[6] + 1 | 0; + return ret + (decode_iso_8859_1, + [0, + 852405675, + caml_call1(Stdlib_uchar[9],caml_bytes_unsafe_get(d[5],j))], + 1, + d)} + return 0 <= rem?refill(decode_iso_8859_1,d):3455931} + function t_decode_utf_8(d) + {if(d[9] < d[10]) + {var _ar_=d[9];return ret(decode_utf_8,malformed(d[8],0,d[9]),_ar_,d)} + var _as_=d[9]; + return ret(decode_utf_8,r_utf_8(d[8],0,d[9]),_as_,d)} + function decode_utf_8(d) + {var rem=i_rem(d); + if(0 < rem) + {var need=utf_8_len[1 + caml_bytes_unsafe_get(d[5],d[6])]; + if(rem < need){t_need(d,need);return t_fill(t_decode_utf_8,d)} + var j=d[6]; + return 0 === need + ?(d[6] + = + d[6] + + + 1 + | + 0, + ret(decode_utf_8,malformed(d[5],j,1),1,d)) + :(d[6] + = + d[6] + + + need + | + 0, + ret(decode_utf_8,r_utf_8(d[5],j,need),need,d))} + return 0 <= rem?refill(decode_utf_8,d):3455931} + function t_decode_utf_16be_lo(hi,d) + {var bcount=d[9] + 2 | 0; + return d[9] < d[10] + ?ret(decode_utf_16be,malformed_pair(1,hi,d[8],0,d[9]),bcount,d) + :ret(decode_utf_16be,r_utf_16_lo(hi,d[8],0,1),bcount,d)} + function decode_utf_16be_lo(v,d) + {if(659980059 <= v[1])return ret(decode_utf_16be,v,2,d); + var hi=v[2],rem=i_rem(d); + if(2 <= rem) + {var j=d[6]; + d[6] = d[6] + 2 | 0; + return ret(decode_utf_16be,r_utf_16_lo(hi,d[5],j,j + 1 | 0),4,d)} + t_need(d,2); + return t_fill(function(_aq_){return t_decode_utf_16be_lo(hi,_aq_)},d)} + function t_decode_utf_16be(d) + {if(d[9] < d[10]) + {var _ap_=d[9]; + return ret(decode_utf_16be,malformed(d[8],0,d[9]),_ap_,d)} + return decode_utf_16be_lo(r_utf_16(d[8],0,1),d)} + function decode_utf_16be(d) + {var rem=i_rem(d); + if(0 < rem) + {if(2 <= rem) + {var j=d[6]; + d[6] = d[6] + 2 | 0; + return decode_utf_16be_lo(r_utf_16(d[5],j,j + 1 | 0),d)} + t_need(d,2); + return t_fill(t_decode_utf_16be,d)} + return 0 <= rem?refill(decode_utf_16be,d):3455931} + function t_decode_utf_16_lo(hi,d) + {var bcount=d[9] + 2 | 0; + return d[9] < d[10] + ?ret(decode_utf_16,malformed_pair(0,hi,d[8],0,d[9]),bcount,d) + :ret(decode_utf_16,r_utf_16_lo(hi,d[8],1,0),bcount,d)} + function decode_utf_16le_lo(v,d) + {if(659980059 <= v[1])return ret(decode_utf_16,v,2,d); + var hi=v[2],rem=i_rem(d); + if(2 <= rem) + {var j=d[6]; + d[6] = d[6] + 2 | 0; + return ret(decode_utf_16,r_utf_16_lo(hi,d[5],j + 1 | 0,j),4,d)} + t_need(d,2); + return t_fill(function(_ao_){return t_decode_utf_16_lo(hi,_ao_)},d)} + function t_decode_utf_16(d) + {if(d[9] < d[10]) + {var _an_=d[9];return ret(decode_utf_16,malformed(d[8],0,d[9]),_an_,d)} + return decode_utf_16le_lo(r_utf_16(d[8],1,0),d)} + function decode_utf_16(d) + {var rem=i_rem(d); + if(0 < rem) + {if(2 <= rem) + {var j=d[6]; + d[6] = d[6] + 2 | 0; + return decode_utf_16le_lo(r_utf_16(d[5],j + 1 | 0,j),d)} + t_need(d,2); + return t_fill(t_decode_utf_16,d)} + return 0 <= rem?refill(decode_utf_16,d):3455931} + function guessed_utf_16(d,be,v) + {if(be) + var + decode_utf_16$0=decode_utf_16be, + t_decode_utf_16$0=t_decode_utf_16be, + t_decode_utf_16_lo$0=t_decode_utf_16be_lo, + j0=0, + j1=1; else - var print_row_numbers=1; - if(_j_)var sth$0=_j_[1],print_chars=sth$0;else var print_chars=1; - var - buf=caml_call1(Stdlib_buffer[1],caml_ml_string_length(s) * 4 | 0), - hex_len=32; - function symbol(buf,s){return caml_call2(Stdlib_buffer[14],buf,s)} - var - n=caml_ml_string_length(s), - _k_=0 === (n % 32 | 0)?0:1, - rows=(n / 32 | 0) + _k_ | 0, - _m_=rows - 1 | 0, - _l_=0; - if(! (_m_ < 0)) - {var row=_l_; - for(;;) - {var last_row=row === (rows - 1 | 0)?1:0; - if(print_row_numbers) - symbol(buf,caml_call2(Stdlib_printf[4],_c_,row)); - if(last_row) - var - rem=n % 32 | 0, - hex_len$0=0 === rem?hex_len:rem, - row_len=hex_len$0; - else - var row_len=hex_len; - var _o_=row_len - 1 | 0,_n_=0; - if(! (_o_ < 0)) - {var i$1=_n_; - for(;;) - {var _s_=0 === (i$1 % 4 | 0)?1:0,_t_=_s_?0 !== i$1?1:0:_s_; - if(_t_)symbol(buf,caml_call1(Stdlib_printf[4],_f_)); - var i$2=i$1 + (row * 32 | 0) | 0,_u_=caml_string_get(s,i$2); - symbol(buf,caml_call2(Stdlib_printf[4],_g_,_u_)); - var _v_=i$1 + 1 | 0; - if(_o_ !== i$1){var i$1=_v_;continue} - break}} - if(last_row) + var + decode_utf_16$0=decode_utf_16, + t_decode_utf_16$0=t_decode_utf_16, + t_decode_utf_16_lo$0=t_decode_utf_16_lo, + j0=1, + j1=0; + function b3(k,d) + {return 3 <= d[9] + ?(d[10] + = + 2, + d[9] + = + 1, + unsafe_set_byte(d[8],0,caml_bytes_unsafe_get(d[8],2)), + t_fill(k,d)) + :decode_utf_16$0(d)} + if(typeof v === "number") + {if(427938126 <= v) + {var v$0=r_utf_16(d[8],j0,j1); + if(659980059 <= v$0[1]) + {var _ad_=2; + return ret + (function(_am_){return b3(t_decode_utf_16$0,_am_)}, + v$0, + _ad_, + d)} + var hi=v$0[2]; + if(3 <= d[9]) + return b3(function(_al_){return t_decode_utf_16_lo$0(hi,_al_)},d); + var _ae_=d[9]; + return ret + (decode_utf_16$0, + malformed_pair(be,hi,Stdlib_bytes[3],0,0), + _ae_, + d)} + var _af_=2,_ag_=[0,852405675,u_bom]; + return ret + (function(_ak_){return b3(t_decode_utf_16$0,_ak_)}, + _ag_, + _af_, + d)} + var u=v[2],_ah_=2,_ai_=[0,852405675,caml_call1(Stdlib_uchar[9],u)]; + return ret + (function(_aj_){return b3(t_decode_utf_16$0,_aj_)},_ai_,_ah_,d)} + function k(d) + {function setup(d) + {var match=r_encoding(d[8],0,d[9]),_ac_=match[1]; + if(-211555818 === _ac_) + {var r=match[2]; + d[2] = -211555818; + d[18] = decode_utf_16; + return guessed_utf_16(d,0,r)} + if(684370880 <= _ac_) + {var r$0=match[2]; + d[2] = 684370880; + d[18] = decode_utf_8; + if(3455931 === r$0)return 3455931; + if(427938126 <= r$0) {var - missed_chars=32 - row_len | 0, - pad=missed_chars + (missed_chars / 4 | 0) | 0, - _p_=caml_call2(Stdlib_string[1],pad,32); - symbol(buf,caml_call2(Stdlib_printf[4],_d_,_p_))} - if(print_chars) - {symbol(buf,cst$1); - var i=0,j=1; - for(;;) - {if(! ((row_len - 2 | 0) < i)) + b3= + function(d) {var - pos=i + (row * 32 | 0) | 0, - pos$0=pos + 1 | 0, - _q_=caml_string_get(s,pos$0), - c=to_char(caml_string_get(s,pos),_q_), - switcher=c - 9 | 0; - if(1 < switcher >>> 0) - symbol(buf,caml_call2(Stdlib_printf[4],_e_,c)); + b3=caml_bytes_unsafe_get(d[8],2), + n=caml_check_bound(utf_8_len,b3)[1 + b3]; + return 0 === n + ?ret(decode_utf_8,malformed(d[8],2,1),1,d) + :(d[10] + = + n, + d[9] + = + 1, + unsafe_set_byte(d[8],0,b3), + t_fill(t_decode_utf_8,d))}, + b2= + function(d) + {var + b2=caml_bytes_unsafe_get(d[8],1), + b3$0=2 < d[9]?b3:decode_utf_8, + n=caml_check_bound(utf_8_len,b2)[1 + b2]; + if(0 === n)return ret(b3$0,malformed(d[8],1,1),1,d); + if(1 === n)return ret(b3$0,r_utf_8(d[8],1,1),1,d); + d[10] = n; + unsafe_set_byte(d[8],0,b2); + if(3 <= d[9]) + {d[9] = 2; + unsafe_set_byte(d[8],1,caml_bytes_unsafe_get(d[8],2))} else - symbol(buf,cst$2); - var j$0=j + 2 | 0,i$0=j + 1 | 0,i=i$0,j=j$0; - continue} - break}} - symbol(buf,cst$3); - var _r_=row + 1 | 0; - if(_m_ !== row){var row=_r_;continue} - break}} - return caml_call1(Stdlib_buffer[2],buf)} - function hexdump(print_row_numbers,print_chars,hex) - {var _i_=hexdump_s(print_row_numbers,print_chars,hex); - return caml_call2(Stdlib_printf[2],_h_,_i_)} - function pp(ppf,param) - {var hex=param[2];return caml_call2(Stdlib_format[13],ppf,hex)} - function show(param){var hex=param[2];return hex} - var - Hex= - [0, - of_char, - to_char, - of_string, - to_string, - of_bytes, - to_bytes, - of_cstruct, - to_cstruct, - of_bigstring, - to_bigstring, - hexdump, - hexdump_s, - pp, - show]; - runtime.caml_register_global(26,Hex,"Hex"); - return} - (function(){return this}())); - - -//# 1 "../../.js/bigarray/bigarray.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - global_data=runtime.caml_get_global_data(), - Stdlib_bigarray=global_data.Stdlib__bigarray, - float32=Stdlib_bigarray[1], - float64=Stdlib_bigarray[2], - complex32=Stdlib_bigarray[3], - complex64=Stdlib_bigarray[4], - int8_signed=Stdlib_bigarray[5], - int8_unsigned=Stdlib_bigarray[6], - int16_signed=Stdlib_bigarray[7], - int16_unsigned=Stdlib_bigarray[8], - int$0=Stdlib_bigarray[9], - int32=Stdlib_bigarray[10], - int64=Stdlib_bigarray[11], - nativeint=Stdlib_bigarray[12], - char$0=Stdlib_bigarray[13], - kind_size_in_bytes=Stdlib_bigarray[14], - c_layout=Stdlib_bigarray[15], - fortran_layout=Stdlib_bigarray[16], - array0_of_genarray=Stdlib_bigarray[22], - array1_of_genarray=Stdlib_bigarray[23], - array2_of_genarray=Stdlib_bigarray[24], - array3_of_genarray=Stdlib_bigarray[25], - reshape=Stdlib_bigarray[26], - reshape_0=Stdlib_bigarray[27], - reshape_1=Stdlib_bigarray[28], - reshape_2=Stdlib_bigarray[29], - reshape_3=Stdlib_bigarray[30], - Bigarray= - [0, - float32, - float64, - complex32, - complex64, - int8_signed, - int8_unsigned, - int16_signed, - int16_unsigned, - int$0, - int32, - int64, - nativeint, - char$0, - kind_size_in_bytes, - c_layout, - fortran_layout, - array0_of_genarray, - array1_of_genarray, - array2_of_genarray, - array3_of_genarray, - reshape, - reshape_0, - reshape_1, - reshape_2, - reshape_3]; - runtime.caml_register_global(1,Bigarray,"Bigarray"); - return} - (function(){return this}())); - - -//# 1 "../../.js/sexplib/sexplib.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - caml_ba_dim_1=runtime.caml_ba_dim_1, - caml_ba_get_1=runtime.caml_ba_get_1, - caml_ba_set_1=runtime.caml_ba_set_1, - caml_bytes_set=runtime.caml_bytes_set, - caml_create_bytes=runtime.caml_create_bytes, - caml_equal=runtime.caml_equal, - caml_fresh_oo_id=runtime.caml_fresh_oo_id, - caml_ml_bytes_length=runtime.caml_ml_bytes_length, - caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, - caml_register_global=runtime.caml_register_global, - caml_string_equal=runtime.caml_string_equal, - caml_string_get=runtime.caml_string_get, - caml_string_unsafe_get=runtime.caml_string_unsafe_get, - caml_trampoline=runtime.caml_trampoline, - caml_trampoline_return=runtime.caml_trampoline_return, - caml_wrap_exception=runtime.caml_wrap_exception; - function caml_call1(f,a0) - {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} - function caml_call2(f,a0,a1) - {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} - function caml_call3(f,a0,a1,a2) - {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} - function caml_call4(f,a0,a1,a2,a3) - {return f.length == 4 - ?f(a0,a1,a2,a3) - :runtime.caml_call_gen(f,[a0,a1,a2,a3])} - function caml_call5(f,a0,a1,a2,a3,a4) - {return f.length == 5 - ?f(a0,a1,a2,a3,a4) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} - function caml_call6(f,a0,a1,a2,a3,a4,a5) - {return f.length == 6 - ?f(a0,a1,a2,a3,a4,a5) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5])} - function caml_call7(f,a0,a1,a2,a3,a4,a5,a6) - {return f.length == 7 - ?f(a0,a1,a2,a3,a4,a5,a6) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6])} - function caml_call8(f,a0,a1,a2,a3,a4,a5,a6,a7) - {return f.length == 8 - ?f(a0,a1,a2,a3,a4,a5,a6,a7) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7])} - function caml_call9(f,a0,a1,a2,a3,a4,a5,a6,a7,a8) - {return f.length == 9 - ?f(a0,a1,a2,a3,a4,a5,a6,a7,a8) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7,a8])} - function caml_call10(f,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9) - {return f.length == 10 - ?f(a0,a1,a2,a3,a4,a5,a6,a7,a8,a9) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7,a8,a9])} - var - global_data=runtime.caml_get_global_data(), - zero=[0,0,0], - origin=[0,1,1], - cst_parser=caml_new_string("parser"), - what=caml_new_string("sexp"), - yylhs= - caml_new_string - ("\xff\xff\x01\0\x01\0\x06\0\x06\0\x06\0\x06\0\b\0\b\0\x05\0\x05\0\x02\0\x02\0\x02\0\x02\0\x07\0\x07\0\x07\0\x07\0\x04\0\x04\0\x03\0\x03\0\0\0\0\0\0\0\0\0"), - yylen= - caml_new_string - ("\x02\0\x02\0\x01\0\x01\0\x02\0\x03\0\x01\0\x02\0\x03\0\x01\0\x02\0\x01\0\x02\0\x01\0\x02\0\x01\0\x01\0\x02\0\x02\0\x02\0\x01\0\x02\0\x01\0\x02\0\x02\0\x02\0\x02\0"), - yydefred= - caml_new_string - ("\0\0\0\0\0\0\0\0\0\0\0\0\x06\0\x03\0\0\0\0\0\x17\0\0\0\x02\0\t\0\r\0\x18\0\0\0\x0b\0\x16\0\x19\0\x0f\0\0\0\x10\0\x14\0\x1a\0\0\0\x04\0\0\0\0\0\x07\0\x01\0\n\0\x0e\0\f\0\x15\0\x11\0\x12\0\x13\0\x05\0\b\0"), - yydgoto= - caml_new_string("\x05\0\n\0\x0f\0\x13\0\x18\0\x0b\0\x14\0\x15\0\r\0"), - yysindex= - caml_new_string - ('(\0"\xff\x01\0\x06\0\x0b\0\0\0\0\0\0\0:\xff"\xff\0\0"\xff\0\0\0\0\0\0\0\0\x10\0\0\0\0\0\0\0\0\0\x15\0\0\0\0\0\0\0\x1a\0\0\0?\xff"\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0'), - yyrindex= - caml_new_string - ("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"), - yygindex= - caml_new_string("\0\0\0\0\0\0\0\0\0\0\xfe\xff\x03\0\x05\0\x1d\0"), - yytable= - caml_new_string - ("\x10\0\x0e\0\0\0\0\0\f\0\x11\0\x12\0\x1c\0\0\0\x19\0\0\0\x17\0\x1d\0\x1b\0\x1e\0\0\0 \0\0\0\0\0!\0\0\0\"\0\0\0\0\0#\0\0\0%\0\0\0#\0\0\0#\0'\0\x16\0\x16\0\x06\0\x07\0\b\0\x16\0\t\0\0\0\x1f\0\x01\0\x02\0\x03\0\x04\0\x1f\0\0\0\0\0\0\0\0\0$\0\0\0\0\0\0\0$\0\0\0$\0\x1f\0\x06\0\x07\0\b\0\x1a\0\t\0\x06\0\x07\0\b\0&\0\t\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x06\0\x07\0\b\0\0\0\t\0\x06\0\x07\0\b\0\0\0\t\0\x06\0\x07\0\b\0\0\0\t\0\x06\0\x07\0\b\0\0\0\t\0\x06\0\x07\0\b\0\0\0\t\0\x06\0\x07\0\b\0\0\0\t\0"), - yycheck= - caml_new_string - ("\x02\0\0\0\xff\xff\xff\xff\x01\0\x02\0\0\0\t\0\xff\xff\x04\0\xff\xff\0\0\t\0\b\0\x0b\0\xff\xff\0\0\xff\xff\xff\xff\x10\0\xff\xff\0\0\xff\xff\xff\xff\x15\0\xff\xff\0\0\xff\xff\x19\0\xff\xff\x1b\0\x1c\0\x03\0\x04\0\0\x01\x01\x01\x02\x01\b\0\x04\x01\xff\xff\x0b\0\x01\0\x02\0\x03\0\x04\0\x10\0\xff\xff\xff\xff\xff\xff\xff\xff\x15\0\xff\xff\xff\xff\xff\xff\x19\0\xff\xff\x1b\0\x1c\0\0\x01\x01\x01\x02\x01\x03\x01\x04\x01\0\x01\x01\x01\x02\x01\x03\x01\x04\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\x01\x01\x01\x02\x01\xff\xff\x04\x01\0\x01\x01\x01\x02\x01\xff\xff\x04\x01\0\x01\x01\x01\x02\x01\xff\xff\x04\x01\0\x01\x01\x01\x02\x01\xff\xff\x04\x01\0\x01\x01\x01\x02\x01\xff\xff\x04\x01\0\x01\x01\x01\x02\x01\xff\xff\x04\x01"), - yynames_const=caml_new_string("LPAREN\0RPAREN\0EOF\0HASH_SEMI\0"), - yynames_block=caml_new_string("STRING\0"), - cst_parser$0=caml_new_string("parser"), - what$0=caml_new_string("sexp"), - yylhs$0= - caml_new_string - ("\xff\xff\x06\0\x06\0\x06\0\b\0\b\0\t\0\t\0\n\0\n\0\x07\0\x07\0\x01\0\x02\0\x02\0\x0b\0\x0b\0\x05\0\x05\0\x03\0\x03\0\x04\0\0\0\0\0\0\0\0\0\0\0"), - yylen$0= - caml_new_string - ("\x02\0\x01\0\x03\0\x01\0\x01\0\x03\0\0\0\x02\0\x01\0\x01\0\0\0\x02\0\x01\0\x01\0\x01\0\x01\0\x02\0\x02\0\x01\0\x02\0\x01\0\x02\0\x02\0\x02\0\x02\0\x02\0\x02\0"), - yydefred$0= - caml_new_string - ("\0\0\0\0\0\0\0\0\n\0\0\0\0\0\x03\0\x01\0\x04\0\n\0\x06\0\x16\0\b\0\t\0\f\0\x0e\0\r\0\x17\0\x14\0\x0f\0\x18\0\0\0\x19\0\0\0\x12\0\x1a\0\0\0\0\0\0\0\x13\0\x10\0\x15\0\x0b\0\x11\0\x02\0\x05\0\x07\0"), - yydgoto$0= - caml_new_string - ("\x06\0\x14\0\x12\0\x15\0\x17\0\x1a\0\r\0\x18\0\x0e\0\x1d\0\x0f\0\x16\0"), - yysindex$0= - caml_new_string - ("%\0\t\xff\x01\0\x07\0\0\0\r\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x13\0\0\0\x19\0\0\0\0\0\x1f\0 \xff\t\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"), - yyrindex$0= - caml_new_string - ("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"), - yygindex$0= - caml_new_string - ("\0\0\x02\0\0\0\0\0\0\0\0\0\xe3\xff\xfb\xff\xeb\xff\0\0\xea\xff\n\0"), - yytable$0= - caml_new_string - ('$\0\x10\0!\0\f\0\x11\0\x1c\0!\0\x13\0%\0\x07\0\b\0\t\0\n\0\x19\0\x0b\0\x1b\0\0\0\0\0\0\0\x1e\0\0\0\0\0\0\0\0\0\x1f\0 \0\0\0\0\0\0\0\x1f\0\0\0"\0\x07\0\b\0\t\0\n\0#\0\x0b\0\x01\0\x02\0\x03\0\x04\0\x05\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x07\0\b\0\t\0\n\0\0\0\x0b\0\x07\0\b\0\t\0\n\0\0\0\x0b\0\x07\0\b\0\t\0\n\0\0\0\x0b\0\x07\0\b\0\t\0\n\0\0\0\x0b\0\x07\0\b\0\t\0\n\0\0\0\x0b\0\x07\0\b\0\t\0\n\0\0\0\x0b\0'), - yycheck$0= - caml_new_string - ("\x1d\0\0\0\x18\0\x01\0\x02\0\n\0\x1c\0\0\0\x1d\0\0\x01\x01\x01\x02\x01\x03\x01\0\0\x05\x01\x05\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\x16\0\0\0\xff\xff\xff\xff\xff\xff\x1b\0\xff\xff\0\0\0\x01\x01\x01\x02\x01\x03\x01\x04\x01\x05\x01\x01\0\x02\0\x03\0\x04\0\x05\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\x01\x01\x01\x02\x01\x03\x01\xff\xff\x05\x01\0\x01\x01\x01\x02\x01\x03\x01\xff\xff\x05\x01\0\x01\x01\x01\x02\x01\x03\x01\xff\xff\x05\x01\0\x01\x01\x01\x02\x01\x03\x01\xff\xff\x05\x01\0\x01\x01\x01\x02\x01\x03\x01\xff\xff\x05\x01\0\x01\x01\x01\x02\x01\x03\x01\xff\xff\x05\x01"), - yynames_const$0=caml_new_string("LPAREN\0RPAREN\0EOF\0HASH_SEMI\0"), - yynames_block$0=caml_new_string("STRING\0COMMENT\0"), - cst_illegal_end_of_comment=caml_new_string("illegal end of comment"), - cst_comment_tokens_in_unquoted_atom= - caml_new_string("comment tokens in unquoted atom"), - ocaml_lex_tables= - [0, - caml_new_string - ("\0\0\xf4\xff\n\0+\x005\0\xfa\xff\xfb\xff\xfc\xff\x01\0\x06\0\x06\0\xff\xffV\0\xf8\xff\xf9\xff`\0\x81\0\x8b\0\xac\0\xb6\0\xdc\0\xe6\0\x07\x01\xf7\xff\x11\x012\x01<\x01]\x01g\x01\x88\x01\x92\x01\xb5\x01\xbf\x01\xe0\x01\xea\x01\x0b\x02%\0\xf6\xffP\0\xf8\xff\x17\x02\xff\xff\xf9\xff9\x02!\x02\xfc\xff\x07\0\x10\0\x11\0p\x02\xfb\xff\x90\x02\xfa\xffQ\0\xfa\xff\xfd\xffz\0\xff\xff\xa6\0\x82\x01\xfc\xff\xfb\xff\xad\x01\xfb\x01"), - caml_new_string - ("\xff\xff\xff\xff\n\0\n\0\n\0\xff\xff\xff\xff\xff\xff\x02\0\x01\0\xff\xff\xff\xff\n\0\xff\xff\xff\xff\t\0\n\0\t\0\t\0\t\0\t\0\t\0\n\0\xff\xff\t\0\n\0\t\0\t\0\t\0\t\0\t\0\n\0\n\0\t\0\t\0\t\0\xff\xff\xff\xff\b\0\xff\xff\xff\xff\xff\xff\xff\xff\x06\0\x06\0\xff\xff\x06\0\x01\0\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"), - caml_new_string - ('\x02\0\0\0\x02\0\x02\0\x02\0\0\0\0\0\0\0\b\0\xff\xff\xff\xff\0\0\x02\0\0\0\0\0\x14\0\x02\0\x12\0\x12\0\x12\0\x14\0\x14\0\x02\0\0\0\x1d\0\x02\0\x1b\0\x1b\0\x1b\0\x1d\0\x1d\0\x02\0\x02\0"\0"\0"\0&\0\0\0&\0\0\0*\0\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\0\x008\0\0\0\0\x008\0\0\x008\x008\0\0\0\0\x008\x008\0'), - caml_new_string - ("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\t\0\x0b\0\xff\xff\t\0\n\0\xff\xff\t\0\x0b\x000\0\t\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0/\x000\0\0\0\0\0\0\0\0\0\0\0\t\0\0\0\x05\0\x04\0\0\0\0\0\t\0\0\0\x07\0\x06\0\xff\xff\0\0\xff\xff \0\0\0'\0/\x000\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\b\0\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0)\0\0\0\0\0\0\0\xff\xff\0\0\xff\xff\x17\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\f\0\0\0\xff\xff9\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\x0e\0\0\0\xff\xff7\0;\0\0\0\xff\xff\0\0\xff\xff\x10\0\0\0\0\0\x03\0\0\0\xff\xff\xff\xff\xff\xff(\0\xff\xff\x13\0\xff\xff\0\0\x1f\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\xff\xff?\0\0\0\0\0\0\0\xff\xff\0\0\xff\xff\x10\0\0\0\0\0\x16\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x13\0\0\x009\0\r\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\x007\0=\0\0\0\0\0\xff\xff:\0\xff\xff\x13\0\0\0\0\0\x0f\0\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\x13\0\0\0\0\0\x0f\0\0\0\xff\xff\xff\xff\0\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\0\0>\0\0\0\0\0\0\0\0\0\0\0\xff\xff\x11\0\xff\xff\x15\0\x01\0\xff\xff\0\0\0\0\xff\xff\xff\xff\xff\xff\x11\0\xff\xff\x15\0\xff\xff\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff:\0\0\0\0\0%\0\0\0\xff\xff\x11\0\xff\xff\x18\0\xff\xff\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\x11\0\xff\xff\x18\0\xff\xff\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\0\0\xff\xff6\0\xff\xff\0\0\xff\xff\x1a\0\xff\xff\0\0\x0f\0\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\x1a\0\xff\xff\0\0\x11\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\0\0\xff\xff\x1a\0\xff\xff\0\0\x19\0\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\x1a\0\xff\xff9\0\x1c\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\x007\0;\0\xff\xff\0\0\xff\xff\0\0\xff\xff\x18\0\xff\xff\0\0\x19\0\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\x1a\0\xff\xff\xff\xff\x1c\0\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\0\0\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\0\0\0\0\xff\xff\0\0\xff\xff#\0\x1c\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff \0\x1c\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\0\0\0\0<\0\0\0\xff\xff\0\0\xff\xff#\0\x1e\0\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff#\0\x1e\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\0\0\xff\xff?\0\0\0\0\0/\0\0\0\0\0.\0\xff\xff\0\0\0\0\0\0>\0\0\0\xff\xff\0\0\xff\xff#\0\0\0\0\0\x1f\0\xff\xff\xff\xff\xff\xff\0\0\0\0-\0\0\0-\0\0\0!\0\xff\xff\0\0-\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff,\0,\0,\0,\0,\0,\0,\0,\0,\0,\x001\x001\x001\x001\x001\x001\x001\x001\x001\x001\0\0\0!\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0!\0\xff\xff\0\x003\x003\x003\x003\x003\x003\x003\x003\x003\x003\0-\0\0\0\0\0\0\0\xff\xff\0\0-\x003\x003\x003\x003\x003\x003\0\0\0\0\0\xff\xff\0\0\0\0-\0\0\0!\0\xff\xff-\0\0\0-\0\0\0\0\0\0\0+\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\x003\x003\x003\x003\x003\x003\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\0\0\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff4\x004\x004\x004\x004\x004\x004\x004\x004\x004\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x004\x004\x004\x004\x004\x004\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\x004\x004\x004\x004\x004\x004\0\0\0\0\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"), - caml_new_string - ('\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\0\0\b\0\0\0\0\0\b\0\t\0\n\0.\0\t\0\x02\0\x02\0\xff\xff\x02\0\x02\0\xff\xff/\x000\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\0\0\0\0\xff\xff\xff\xff\t\0\xff\xff\0\0\0\0\x02\0\xff\xff\x02\0\x02\0\xff\xff$\0/\x000\0\x02\0\x02\0\x03\0\x03\0\xff\xff\x03\0\x03\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\x04\0\x04\0\xff\xff\x04\0\x04\0\xff\xff\xff\xff\x02\0\xff\xff$\0\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\x03\0\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\x03\0\x04\0\xff\xff\x04\0\x04\0\xff\xff&\x005\0\xff\xff\x04\0\x04\0\f\0\f\0\xff\xff\f\0\f\0\xff\xff\xff\xff\x03\0\xff\xff\xff\xff\x0f\0\x0f\0\xff\xff\x0f\0\x0f\0\xff\xff\xff\xff\x04\0\xff\xff&\x005\x005\0\xff\xff\f\0\xff\xff\f\0\f\0\xff\xff\xff\xff\0\0\xff\xff\f\0\f\0\x0f\0$\0\x0f\0\x0f\x008\0\xff\xff\x02\0\xff\xff\x0f\0\x0f\0\x10\0\x10\0\xff\xff\x10\0\x10\0\xff\xff\xff\xff\f\0\xff\xff\xff\xff\x11\0\x11\0\xff\xff\x11\0\x11\0\xff\xff\xff\xff\x0f\x008\x008\0\xff\xff\xff\xff\xff\xff\x10\0\xff\xff\x10\0\x10\0\xff\xff\xff\xff\x03\0\xff\xff\x10\0\x10\0\x11\0&\0\x11\0\x11\0\xff\xff:\0\x04\0\xff\xff\x11\0\x11\0\x12\0\x12\0\xff\xff\x12\0\x12\0\xff\xff\xff\xff\x10\0\xff\xff\xff\xff\x13\0\x13\0\xff\xff\x13\0\x13\0\xff\xff\xff\xff\x11\0\xff\xff:\0:\0\xff\xff\xff\xff\x12\x005\0\x12\0\x12\0\xff\xff\xff\xff\f\0\xff\xff\x12\0\x12\0\x13\0\xff\xff\x13\0\x13\0\xff\xff\xff\xff\x0f\0\xff\xff\x13\0\x13\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x14\0\x14\0\x12\0\x14\0\x14\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x15\0\x15\0\x13\0\x15\0\x15\0\xff\xff\xff\xff8\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x14\0\x10\0\x14\0\x14\0\0\0\b\0\xff\xff\xff\xff\x14\0\x14\0\x15\0\x11\0\x15\0\x15\0\x02\0\xff\xff\xff\xff\xff\xff\x15\0\x15\0\x16\0\x16\0\xff\xff\x16\0\x16\0\xff\xff\xff\xff\x14\0\xff\xff\xff\xff\x18\0\x18\0\xff\xff\x18\0\x18\0\xff\xff\xff\xff\x15\0:\0\xff\xff\xff\xff$\0\xff\xff\x16\0\x12\0\x16\0\x16\0\x03\0\xff\xff\xff\xff\xff\xff\x16\0\x16\0\x18\0\x13\0\x18\0\x18\0\x04\0\xff\xff\xff\xff\xff\xff\x18\0\x18\0\x19\0\x19\0\xff\xff\x19\0\x19\0\xff\xff\xff\xff\x16\0\xff\xff\xff\xff\x1a\0\x1a\0\xff\xff\x1a\0\x1a\0\xff\xff\xff\xff\x18\0\xff\xff\xff\xff\xff\xff&\x005\0\x19\0\xff\xff\x19\0\x19\0\f\0\xff\xff\x14\0\xff\xff\x19\0\x19\0\x1a\0\xff\xff\x1a\0\x1a\0\x0f\0\xff\xff\x15\0\xff\xff\x1a\0\x1a\0\x1b\0\x1b\0\xff\xff\x1b\0\x1b\0\xff\xff\xff\xff\x19\0\xff\xff\xff\xff\x1c\0\x1c\0\xff\xff\x1c\0\x1c\0\xff\xff\xff\xff\x1a\0\xff\xff\xff\xff8\0\xff\xff\xff\xff\x1b\0\xff\xff\x1b\0\x1b\0\x10\0\xff\xff\x16\0\xff\xff\x1b\0\x1b\0\x1c\0\xff\xff\x1c\0\x1c\0\x11\0;\0\x18\0\xff\xff\x1c\0\x1c\0\x1d\0\x1d\0\xff\xff\x1d\0\x1d\0\xff\xff\xff\xff\x1b\0\xff\xff\xff\xff\x1e\0\x1e\0\xff\xff\x1e\0\x1e\0\xff\xff\xff\xff\x1c\0\xff\xff;\0;\0:\0\xff\xff\x1d\0\xff\xff\x1d\0\x1d\0\x12\0\xff\xff\x19\0\xff\xff\x1d\0\x1d\0\x1e\0\xff\xff\x1e\0\x1e\0\x13\0>\0\x1a\0\xff\xff\x1e\0\x1e\0\xff\xff\xff\xff\x1f\0\x1f\0\xff\xff\x1f\0\x1f\0\x1d\0\xff\xff\xff\xff\xff\xff\xff\xff \0 \0\xff\xff \0 \0\x1e\0\xff\xff>\0>\0\xff\xff\xff\xff\xff\xff\xff\xff\x1f\0\xff\xff\x1f\0\x1f\0\x1b\0\xff\xff\xff\xff\x14\0\x1f\0\x1f\0 \0\xff\xff \0 \0\x1c\0\xff\xff\xff\xff\x15\0 \0 \0!\0!\0\xff\xff!\0!\0\xff\xff\xff\xff\x1f\0\xff\xff\xff\xff"\0"\0\xff\xff"\0"\0\xff\xff\xff\xff \0\xff\xff\xff\xff\xff\xff;\0\xff\xff!\0\xff\xff!\0!\0\x1d\0?\0\xff\xff\x16\0!\0!\0"\0\xff\xff"\0"\0\x1e\0\xff\xff\xff\xff\x18\0"\0"\0#\0#\0\xff\xff#\0#\0\xff\xff\xff\xff!\0\xff\xff?\0?\0\xff\xff\xff\xff(\0\xff\xff\xff\xff(\0"\0\xff\xff\xff\xff\xff\xff>\0\xff\xff#\0\xff\xff#\0#\0\xff\xff\xff\xff\x1f\0\x19\0#\0#\0\xff\xff\xff\xff(\0\xff\xff(\0\xff\xff \0\x1a\0\xff\xff(\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff#\0(\0(\0(\0(\0(\0(\0(\0(\0(\0(\0,\0,\0,\0,\0,\0,\0,\0,\0,\0,\0\xff\xff!\0\x1b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"\0\x1c\0\xff\xff+\0+\0+\0+\0+\0+\0+\0+\0+\0+\0(\0\xff\xff\xff\xff\xff\xff?\0\xff\xff(\0+\0+\0+\0+\0+\0+\0\xff\xff\xff\xff;\0\xff\xff\xff\xff(\0\xff\xff#\0\x1d\0(\0\xff\xff(\0\xff\xff\xff\xff\xff\xff(\0\xff\xff\xff\xff\x1e\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff+\0+\0+\0+\0+\0+\x001\x001\x001\x001\x001\x001\x001\x001\x001\x001\0\xff\xff\xff\xff\xff\xff>\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x1f\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff \x003\x003\x003\x003\x003\x003\x003\x003\x003\x003\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff3\x003\x003\x003\x003\x003\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff!\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff3\x003\x003\x003\x003\x003\0\xff\xff\xff\xff\xff\xff\xff\xff?\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff#\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff(\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff'), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string("")], - cst_Sexplib_Sexp_subst_found_short_list_when_position_requested= - caml_new_string - ("Sexplib.Sexp.subst_found: short list when position requested"), - cst_Sexplib_Sexp_subst_found_atom_when_position_requested= - caml_new_string - ("Sexplib.Sexp.subst_found: atom when position requested"), - cst_Annotated_of_bigstring=caml_new_string("Annotated.of_bigstring"), - cst$5=caml_new_string(" "), - cst_Annotated_of_string=caml_new_string("Annotated.of_string"), - cst$4=caml_new_string(" "), - cst_additional_incomplete_data= - caml_new_string("additional incomplete data"), - cst$3=caml_new_string(" "), - cst_of_bigstring=caml_new_string("of_bigstring"), - cst$2=caml_new_string(" "), - cst_of_string=caml_new_string("of_string"), - cst$1=caml_new_string(" "), - cst_Sexplib_Sexp_input_rev_sexps_reached_EOF_while_in_state= - caml_new_string - ("Sexplib.Sexp.input_rev_sexps: reached EOF while in state "), - cst$0=caml_new_string(" "), - cst_Sexplib_Sexp_parser_continuation_called_twice= - caml_new_string("Sexplib.Sexp: parser continuation called twice"), - cst_parse_pos_0=caml_new_string("parse: pos < 0"), - cst_parse_len_0=caml_new_string("parse: len < 0"), - cst_parse_pos_len_str_len=caml_new_string("parse: pos + len > str_len"), - cst_Parsing_toplevel_whitespace= - caml_new_string("Parsing_toplevel_whitespace"), - cst_Parsing_nested_whitespace= - caml_new_string("Parsing_nested_whitespace"), - cst_Parsing_atom=caml_new_string("Parsing_atom"), - cst_Parsing_list=caml_new_string("Parsing_list"), - cst_Parsing_sexp_comment=caml_new_string("Parsing_sexp_comment"), - cst_Parsing_block_comment=caml_new_string("Parsing_block_comment"), - cst_Sexplib_Sexp_Parse_pos_create= - caml_new_string("Sexplib.Sexp.Parse_pos.create: "), - cst_text_line_1=caml_new_string("text_line < 1"), - cst_text_char_0=caml_new_string("text_char < 0"), - cst_global_offset_0=caml_new_string("global_offset < 0"), - cst_buf_pos_0=caml_new_string("buf_pos < 0"), - cst=caml_new_string("\n"), - cst_tmp=caml_new_string("tmp"), - cst_Sexplib_Pre_sexp_Annot_Conv_exn= - caml_new_string("Sexplib__Pre_sexp.Annot.Conv_exn"), - cst_Sexplib_Pre_sexp_Annot_Annot_sexp= - caml_new_string("Sexplib__Pre_sexp.Annot.Annot_sexp"), - cst_Sexplib_Pre_sexp_Parse_error= - caml_new_string("Sexplib__Pre_sexp.Parse_error"), - cst_Sexplib_Pre_sexp_Parser_output_Bare_sexp_Found= - caml_new_string("Sexplib__Pre_sexp.Parser_output.Bare_sexp.Found"), - cst_Sexplib_Pre_sexp_Parser_output_Annotated_sexp_Found= - caml_new_string("Sexplib__Pre_sexp.Parser_output.Annotated_sexp.Found"), - gen_load_sexp_loc=caml_new_string("Sexplib.Sexp.gen_load_sexp"), - cst_Sexplib_Pre_sexp_Of_string_conv_exn_E= - caml_new_string("Sexplib__Pre_sexp.Of_string_conv_exn.E"), - unit=[1,0], - cst$6=caml_new_string(""), - cst$7=caml_new_string("#;"), - cst_float_mat_of_sexp_not_enough_data= - caml_new_string("float_mat_of_sexp: not enough data"), - cst_float_mat_of_sexp_list_needed= - caml_new_string("float_mat_of_sexp: list needed"), - cst_float_mat_of_sexp_list_too_short= - caml_new_string("float_mat_of_sexp: list too short"), - cst_float_mat_of_sexp_too_much_data= - caml_new_string("float_mat_of_sexp: too much data"), - cst_float_vec_of_sexp_list_needed= - caml_new_string("float_vec_of_sexp: list needed"), - cst_bigstring_of_sexp_atom_needed= - caml_new_string("bigstring_of_sexp: atom needed"), - cst_EOF_reading_index=caml_new_string("EOF reading index"), - cst_empty_index=caml_new_string("empty index"), - cst_double=caml_new_string("double '.'"), - cst_EOF_after_escape=caml_new_string("EOF after escape"), - cst_path_empty=caml_new_string("path empty"), - cst_Path_parse=caml_new_string("Path.parse: "), - cst_extract_rec=caml_new_string("extract_rec"), - cst_extract_match=caml_new_string("extract_match"), - cst_extract_match$0=caml_new_string("extract_match"), - cst_Path_extract_match_unexpected_nested_list_in= - caml_new_string("Path.extract_match: unexpected nested list in: "), - cst_extract_pos=caml_new_string("extract_pos"), - cst_extract_pos$0=caml_new_string("extract_pos"), - Stdlib_printf=global_data.Stdlib__printf, - Stdlib_list=global_data.Stdlib__list, - Stdlib_parsing=global_data.Stdlib__parsing, - Stdlib=global_data.Stdlib, - Stdlib_buffer=global_data.Stdlib__buffer, - Stdlib_lexing=global_data.Stdlib__lexing, - Stdlib_char=global_data.Stdlib__char, - Assert_failure=global_data.Assert_failure, - Stdlib_format=global_data.Stdlib__format, - Stdlib_string=global_data.Stdlib__string, - Stdlib_bytes=global_data.Stdlib__bytes, - Parsexp_Parser_automaton=global_data.Parsexp__Parser_automaton, - Parsexp_Positions=global_data.Parsexp__Positions, - include$2=global_data.Sexplib0__Sexp_conv, - Stdlib_random=global_data.Stdlib__random, - Sexplib0_Sexp=global_data.Sexplib0__Sexp, - Parsexp=global_data.Parsexp, - Stdlib_bigarray=global_data.Stdlib__bigarray, - Stdlib_hashtbl=global_data.Stdlib__hashtbl, - Stdlib_lazy=global_data.Stdlib__lazy, - Stdlib_obj=global_data.Stdlib__obj, - Sexplib0_Sexp_conv_error=global_data.Sexplib0__Sexp_conv_error, - Sexplib=[0]; - caml_register_global(145,Sexplib,"Sexplib"); - var Sexplib_Type=[0]; - caml_register_global(146,Sexplib_Type,"Sexplib__Type"); - var - _a_=[0,[4,0,0,0,[12,58,[4,0,0,0,0]]],caml_new_string("%d:%d")], - _e_=[0,caml_new_string("Atom")], - _f_=[0,caml_new_string("List")], - _g_=[0,caml_new_string("Sexp")], - _h_=[0,caml_new_string("Comment")], - _i_=[0,caml_new_string("Plain_comment")], - _j_=[0,caml_new_string("Sexp_comment")], - _d_=[1,0], - _J_=[1,0], - _k_= - [0, - [11, - caml_new_string("Sexplib.Parser: failed to parse line "), - [4, - 0, - 0, - 0, - [11, - caml_new_string(" char "), - [4,0,0,0,[11,caml_new_string(": "),[2,0,0]]]]]], - caml_new_string("Sexplib.Parser: failed to parse line %d char %d: %s")], - _l_=[0,258,259,0,260,0], - _N_= - [0, - [11, - caml_new_string("Sexplib.Parser: failed to parse line "), - [4, - 0, - 0, - 0, - [11, - caml_new_string(" char "), - [4,0,0,0,[11,caml_new_string(": "),[2,0,0]]]]]], - caml_new_string("Sexplib.Parser: failed to parse line %d char %d: %s")], - _O_=[0,259,260,0,261,0], - _ao_= - [0, - [11, - caml_new_string("Sexplib.Lexer.scan_string: illegal escape at line "), - [4, - 0, - 0, - 0, - [11, - caml_new_string(" char "), - [4,0,0,0,[11,caml_new_string(": `\\"),[0,[0,[0,[12,39,0]]]]]]]]], - caml_new_string - ("Sexplib.Lexer.scan_string: illegal escape at line %d char %d: `\\%c%c%c'")], - _ap_= - [0, - [11, - caml_new_string - ("Sexplib.Lexer.scan_string: unterminated string at line "), - [4,0,0,0,[11,caml_new_string(" char "),[4,0,0,0,0]]]], - caml_new_string - ("Sexplib.Lexer.scan_string: unterminated string at line %d char %d")], - _aq_=[0,caml_new_string("src/lexer.mll"),234,16], - _ar_= - [0, - [11, - caml_new_string - ("Sexplib.Lexer.scan_block_comment: unterminated block comment at line "), - [4,0,0,0,[11,caml_new_string(" char "),[4,0,0,0,0]]]], - caml_new_string - ("Sexplib.Lexer.scan_block_comment: unterminated block comment at line %d char %d")], - _as_=[0,caml_new_string("src/lexer.mll"),239,16], - _an_= - [0, - [11, - caml_new_string("Sexplib.Lexer.main: "), - [2, - 0, - [11, - caml_new_string(" at line "), - [4,0,0,0,[11,caml_new_string(" char "),[4,0,0,0,0]]]]]], - caml_new_string("Sexplib.Lexer.main: %s at line %d char %d")], - _aZ_=[0,caml_new_string("src/pre_sexp.ml"),796,15], - _aX_= - [0, - [2,0,[12,58,[4,0,0,0,[12,58,[4,0,0,0,0]]]]], - caml_new_string("%s:%d:%d")], - _aV_= - [0, - [2, - 0, - [11,caml_new_string(": more than one S-expression in file "),[2,0,0]]], - caml_new_string("%s: more than one S-expression in file %s")], - _aW_= - [0, - [2, - 0, - [11, - caml_new_string(": "), - [2, - 0, - [11, - caml_new_string(" in state "), - [2,0,[11,caml_new_string(" loading file "),[2,0,0]]]]]]], - caml_new_string("%s: %s in state %s loading file %s")], - _aU_= - [0, - [2, - 0, - [11, - caml_new_string(": EOF in "), - [2,0,[11,caml_new_string(" while in state "),[2,0,0]]]]], - caml_new_string("%s: EOF in %s while in state %s")], - _aR_= - [0, - [11, - caml_new_string("Sexplib.Sexp."), - [2, - 0, - [11, - caml_new_string - (": got multiple S-expressions where only one was expected."), - 0]]], - caml_new_string - ("Sexplib.Sexp.%s: got multiple S-expressions where only one was expected.")], - _aS_= - [0, - [11, - caml_new_string("Sexplib.Sexp."), - [2, - 0, - [11, - caml_new_string(": S-expression followed by data at position "), - [4,0,0,0,[11,caml_new_string("..."),0]]]]], - caml_new_string - ("Sexplib.Sexp.%s: S-expression followed by data at position %d...")], - _aT_= - [0, - [11, - caml_new_string("Sexplib.Sexp."), - [2, - 0, - [11, - caml_new_string(": incomplete S-expression while in state "), - [2,0,[11,caml_new_string(": "),[2,0,0]]]]]], - caml_new_string - ("Sexplib.Sexp.%s: incomplete S-expression while in state %s: %s")], - _aP_=[0,0], - _aH_=[0,caml_new_string("buf_pos")], - _aI_=[0,caml_new_string("global_offset")], - _aJ_=[0,caml_new_string("text_char")], - _aK_=[0,caml_new_string("text_line")], - _aL_=[0,caml_new_string("err_msg")], - _aM_=[0,caml_new_string("Sexplib.Sexp.Parse_error")], - _aN_=[0,caml_new_string("src/pre_sexp.ml"),295,13], - _aE_=[0,caml_new_string("src/pre_sexp.ml"),210,8], - _aB_=[0,caml_new_string("Result")], - _aC_=[0,caml_new_string("Error")], - _az_=[0,caml_new_string("src/pre_sexp.ml"),167,15], - _av_=[0,caml_new_string("containing_sexp")], - _aw_=[0,caml_new_string("invalid_sexp")], - _ax_=[0,[0,caml_new_string("Of_sexp_error")],0], - _au_=[0,1,[0,3,[0,5,[0,7,0]]]], - _at_=[0,[2,0,[4,6,[0,2,6],0,[2,0,0]]],caml_new_string("%s%06x%s")], - _aA_=[0,0], - _aF_=[0,0], - _aO_=[0,0], - _a0_=[0,0], - _a1_=[0,caml_new_string("src/sexp_with_layout.ml"),106,4], - _bS_= - [0, - [11, - caml_new_string("of_string failed on "), - [2,0,[11,caml_new_string(" with "),[2,0,0]]]], - caml_new_string("of_string failed on %s with %s")], - _bW_= - [0, - [11,caml_new_string("illegal character in index: "),[0,0]], - caml_new_string("illegal character in index: %c")], - _bX_= - [0, - [11,caml_new_string("'.' expected; got '"),[0,[12,39,0]]], - caml_new_string("'.' expected; got '%c'")], - _bV_= - [0, - [11, - caml_new_string('Path.extract_rec: key "'), - [2,0,[11,caml_new_string('" not found in: '),[2,0,0]]]], - caml_new_string('Path.extract_rec: key "%s" not found in: %s')], - _bU_= - [0, - [11, - caml_new_string("Path."), - [2, - 0, - [11, - caml_new_string(": illegal index "), - [4,0,0,0,[11,caml_new_string(" in: "),[2,0,0]]]]]], - caml_new_string("Path.%s: illegal index %d in: %s")], - _bT_= - [0, - [11, - caml_new_string("Path."), - [2,0,[11,caml_new_string(": illegal atom: "),[2,0,0]]]], - caml_new_string("Path.%s: illegal atom: %s")]; - function sexp_of_t(param) - {var col=param[2],row=param[1]; - return [0,caml_call3(Stdlib_printf[4],_a_,row,col)]} - function add(t1,t2){return [0,t1[1] + t2[1] | 0,t1[2] + t2[2] | 0]} - function sub(t1,t2){return [0,t1[1] - t2[1] | 0,t1[2] - t2[2] | 0]} - function geq(t1,t2) - {var - c2=t2[2], - r2=t2[1], - c1=t1[2], - r1=t1[1], - _e0_=r1 === r2?c1 - c2 | 0:r1 - r2 | 0; - return 0 <= _e0_?1:0} - function of_lexing(param) - {var pos_cnum=param[4],pos_bol=param[3],pos_lnum=param[2]; - return [0,pos_lnum,(pos_cnum - pos_bol | 0) + 1 | 0]} - var - _b_=[0,sexp_of_t,origin,of_lexing,sub,add,sub,geq], - _c_=[0,sexp_of_t,zero,add,sub], - Sexplib_Src_pos=[0,_c_,_b_]; - caml_register_global(148,Sexplib_Src_pos,"Sexplib__Src_pos"); - function map(t,f) - {var _eZ_=caml_call2(Stdlib_list[19],f,t); - return caml_call1(Stdlib_list[9],_eZ_)} - function Make(Pos) - {var T=[0],of_pos=Pos[1]; - function of_list(of_a,xs){return [1,map(xs,of_a)]} - function of_t(param) - {if(0 === param[0]) - {var v3=param[3],v2=param[2],v1=param[1],_eV_=0; - if(v3)var x=v3[1],_eW_=[1,[0,[0,x],0]];else var _eW_=_d_; - return [1, - [0,_e_,[0,caml_call1(of_pos,v1),[0,[0,v2],[0,_eW_,_eV_]]]]]} - var - v3$0=param[3], - v2$0=param[2], - v1$0=param[1], - _eX_=[0,caml_call1(of_pos,v3$0),0], - _eY_=[0,of_list(of_t_or_comment,v2$0),_eX_]; - return [1,[0,_f_,[0,caml_call1(of_pos,v1$0),_eY_]]]} - function of_t_or_comment(param) - {if(0 === param[0]){var t=param[1];return [1,[0,_g_,[0,of_t(t),0]]]} - var c=param[1]; - return [1,[0,_h_,[0,of_comment(c),0]]]} - function of_comment(param) - {if(0 === param[0]) - {var v2=param[2],v1=param[1]; - return [1,[0,_i_,[0,caml_call1(of_pos,v1),[0,[0,v2],0]]]]} + d[9] = 1; + return t_fill(t_decode_utf_8,d)}, + b1=caml_bytes_unsafe_get(d[8],0), + b2$0=1 < d[9]?b2:decode_utf_8, + n=caml_check_bound(utf_8_len,b1)[1 + b1]; + if(4 < n >>> 0)throw [0,Assert_failure,_B_]; + switch(n) + {case 0:return ret(b2$0,malformed(d[8],0,1),1,d); + case 1:return ret(b2$0,r_utf_8(d[8],0,1),1,d); + case 2: + return 2 <= d[9] + ?3 <= d[9] + ?ret(b3,r_utf_8(d[8],0,2),2,d) + :ret(decode_utf_8,r_utf_8(d[8],0,2),2,d) + :ret(decode_utf_8,malformed(d[8],0,1),1,d); + case 3: + if(3 <= d[9])return ret(decode_utf_8,r_utf_8(d[8],0,3),3,d); + var _aa_=d[9]; + return ret(decode_utf_8,malformed(d[8],0,d[9]),_aa_,d); + default: + if(3 <= d[9]){d[10] = 4;return t_fill(t_decode_utf_8,d)} + var _ab_=d[9]; + return ret(decode_utf_8,malformed(d[8],0,d[9]),_ab_,d)}} + return ret(decode_utf_8,[0,852405675,u_bom],3,d)} + var r$1=match[2]; + d[2] = -211558048; + d[18] = decode_utf_16be; + return guessed_utf_16(d,1,r$1)} + t_need(d,3); + return t_fill(setup,d)} + function nline(d){d[14] = 0;d[13] = d[13] + 1 | 0;return 0} + function ncol(d){d[14] = d[14] + 1 | 0;return 0} + function ncount(d){d[16] = d[16] + 1 | 0;return 0} + function cr(d,b){d[12] = b;return 0} + function pp(d,v) + {if(852405675 <= v[1]) + {var + u=v[2], + match=caml_call1(Stdlib_uchar[10],u), + _$_=match - 133 | 0, + switch$0=0; + if(8100 < _$_ >>> 0) + {var switcher=_$_ + 123 | 0; + if(! (3 < switcher >>> 0)) + switch(switcher) + {case 0: + var last_cr=d[12]; + cr(d,0); + ncount(d); + return last_cr?v:(nline(d),v); + case 1:break; + case 2:switch$0 = 1;break; + default:cr(d,1);ncount(d);nline(d);return v}} + else + if(8097 < (_$_ - 1 | 0) >>> 0)switch$0 = 1; + return switch$0 + ?(cr(d,0),ncount(d),nline(d),v) + :(cr(d,0),ncount(d),ncol(d),v)} + cr(d,0); + ncount(d); + ncol(d); + return v} + function pp_nln_readline(d,v) + {if(852405675 <= v[1]) + {var + u=v[2], + match=caml_call1(Stdlib_uchar[10],u), + ___=match - 133 | 0, + switch$0=0; + if(8100 < ___ >>> 0) + {var switcher=___ + 123 | 0; + if(! (3 < switcher >>> 0)) + switch(switcher) + {case 0: + var last_cr=d[12]; + cr(d,0); + return last_cr + ?caml_call1(d[18],d) + :(ncount(d),nline(d),[0,852405675,d[4]]); + case 1:break; + case 2:switch$0 = 1;break; + default:cr(d,1);ncount(d);nline(d);return [0,852405675,d[4]]}} + else + if(8097 < (___ - 1 | 0) >>> 0)switch$0 = 1; + return switch$0 + ?(cr(d,0),ncount(d),nline(d),[0,852405675,d[4]]) + :(cr(d,0),ncount(d),ncol(d),v)} + cr(d,0); + ncount(d); + ncol(d); + return v} + function pp_nln_nlf(d,v) + {if(852405675 <= v[1]) + {var u=v[2],match=caml_call1(Stdlib_uchar[10],u),switch$0=0; + if(14 <= match) + {if(8232 <= match) + {if(! (8234 <= match))switch$0 = 1} + else + if(133 === match) + {cr(d,0);ncount(d);nline(d);return [0,852405675,d[4]]}} + else + if(10 <= match) + {var switcher=match - 10 | 0; + switch(switcher) + {case 0: + var last_cr=d[12]; + cr(d,0); + return last_cr + ?caml_call1(d[18],d) + :(ncount(d),nline(d),[0,852405675,d[4]]); + case 1:break; + case 2:switch$0 = 1;break; + default:cr(d,1);ncount(d);nline(d);return [0,852405675,d[4]]}} + return switch$0 + ?(cr(d,0),ncount(d),nline(d),v) + :(cr(d,0),ncount(d),ncol(d),v)} + cr(d,0); + ncount(d); + ncol(d); + return v} + function pp_nln_ascii(d,v) + {if(852405675 <= v[1]) + {var + u=v[2], + match=caml_call1(Stdlib_uchar[10],u), + _Z_=match - 133 | 0, + switch$0=0; + if(8100 < _Z_ >>> 0) + {var switcher=_Z_ + 123 | 0; + if(! (3 < switcher >>> 0)) + switch(switcher) + {case 0: + var last_cr=d[12]; + cr(d,0); + return last_cr + ?caml_call1(d[18],d) + :(ncount(d),nline(d),[0,852405675,d[4]]); + case 1:break; + case 2:switch$0 = 1;break; + default:cr(d,1);ncount(d);nline(d);return [0,852405675,d[4]]}} + else + if(8097 < (_Z_ - 1 | 0) >>> 0)switch$0 = 1; + return switch$0 + ?(cr(d,0),ncount(d),nline(d),v) + :(cr(d,0),ncount(d),ncol(d),v)} + cr(d,0); + ncount(d); + ncol(d); + return v} + function decode_fun(param) + {return 143365725 <= param + ?423112016 <= param + ?684370880 <= param?decode_utf_8:decode_us_ascii + :338302576 <= param?decode_iso_8859_1:decode_utf_16be + :-211555818 <= param?decode_utf_16:decode_utf_16be} + function decoder(nln,encoding,src) + {if(nln) + {var _X_=nln[1],_Y_=_X_[1]; + if(3895880 === _Y_) + var nl=_X_[2],pp$0=pp_nln_nlf,nl$0=nl; + else + if(605782321 <= _Y_) + var nl$1=_X_[2],pp$0=pp_nln_ascii,nl$0=nl$1; + else + var nl$2=_X_[2],pp$0=pp_nln_readline,nl$0=nl$2} + else + var nl$3=caml_call1(Stdlib_uchar[9],10),pp$0=pp,nl$0=nl$3; + if(encoding) + var e=encoding[1],encoding$0=e,k$0=decode_fun(e); + else + var encoding$0=684370880,k$0=k; + if(typeof src === "number") + var i=Stdlib_bytes[3],i_pos=1,i_max=0; + else + if(438511779 <= src[1]) + var i=caml_create_bytes(65536),i_pos=1,i_max=0; + else var - v3=param[3], - v2$0=param[2], - v1$0=param[1], - _eT_=[0,of_t(v3),0], - _eU_=[0,of_list(of_comment,v2$0),_eT_]; - return [1,[0,_j_,[0,caml_call1(of_pos,v1$0),_eU_]]]} - var - To_sexp=[0,of_t,of_comment,of_t_or_comment], - sexp_of_t=To_sexp[1], - sexp_of_comment=To_sexp[2], - sexp_of_t_or_comment=To_sexp[3]; - return [0,T,To_sexp,sexp_of_t,sexp_of_comment,sexp_of_t_or_comment]} - var - include=Make([0,_c_[1]]), - sexp_of_t$0=include[3], - sexp_of_comment=include[4], - sexp_of_t_or_comment=include[5], - Parsed=Make([0,_b_[1]]); - function rel(outer_p,p){return caml_call2(_b_[4],p,outer_p)} - function aux_t(outer_p,param) - {if(0 === param[0]) - {var sopt=param[3],s=param[2],pos=param[1]; - return [0,rel(outer_p,pos),s,sopt]} - var - end_pos=param[3], - tocs=param[2], - start_pos=param[1], - _eR_=rel(outer_p,end_pos), - _eS_=map(tocs,function(toc){return aux_toc(start_pos,toc)}); - return [1,rel(outer_p,start_pos),_eS_,_eR_]} - function aux_toc(outer_p,param) - {if(0 === param[0]){var t=param[1];return [0,aux_t(outer_p,t)]} - var c=param[1]; - return [1,aux_c(outer_p,c)]} - function aux_c(outer_p,param) - {if(0 === param[0]) - {var txt=param[2],pos=param[1];return [0,rel(outer_p,pos),txt]} - var - t=param[3], - cs=param[2], - pos$0=param[1], - _eP_=aux_t(outer_p,t), - _eQ_=map(cs,function(c){return aux_c(outer_p,c)}); - return [1,rel(outer_p,pos$0),_eQ_,_eP_]} - function relativize(toc){return aux_toc(_b_[2],toc)} - var Parsed$0=[0,Parsed[3],Parsed[4],Parsed[5]]; - function Make$0(_eO_){return [0]} - var - include$0= - [0, - Make$0, - Parsed$0, - sexp_of_t$0, - sexp_of_comment, - sexp_of_t_or_comment, - relativize]; - caml_register_global(150,include$0,"Sexplib__Type_with_layout"); - var yytransl_const=_l_.slice(),yytransl_block=[0,257,0],yytablesize=286; - function _m_(caml_parser_env) - {var _eN_=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - throw [0,Stdlib_parsing[12],_eN_]} - function _n_(caml_parser_env) - {var _eM_=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - throw [0,Stdlib_parsing[12],_eM_]} - function _o_(caml_parser_env) - {var _eL_=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - throw [0,Stdlib_parsing[12],_eL_]} - function _p_(caml_parser_env) - {var _eK_=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - throw [0,Stdlib_parsing[12],_eK_]} - function _q_(caml_parser_env){return 0} - function _r_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1); - return caml_call1(Stdlib_list[9],_1)} - function _s_(caml_parser_env){return 0} - function _t_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1);return _1} - function _u_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1); - caml_call2(Stdlib_parsing[14],caml_parser_env,0); - return _1} - function _v_(caml_parser_env) - {var - _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1), - _2=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - return [0,_2,_1]} - function _w_(caml_parser_env) - {caml_call2(Stdlib_parsing[14],caml_parser_env,0);return 0} - function _x_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,0);return [0,_1,0]} - function _y_(caml_parser_env) - {caml_call2(Stdlib_parsing[14],caml_parser_env,1);return 0} - function _z_(caml_parser_env){return 0} - function _A_(caml_parser_env) - {caml_call2(Stdlib_parsing[14],caml_parser_env,1); - var _2=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - return [0,_2]} - function _B_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,0);return [0,_1]} - function _C_(caml_parser_env) - {caml_call2(Stdlib_parsing[14],caml_parser_env,1); - caml_call2(Stdlib_parsing[14],caml_parser_env,0); - return 0} - function _D_(caml_parser_env) - {caml_call2(Stdlib_parsing[14],caml_parser_env,0);return 0} - function _E_(caml_parser_env) - {caml_call2(Stdlib_parsing[14],caml_parser_env,1); - caml_call2(Stdlib_parsing[14],caml_parser_env,0); + s=src[2], + i_max$0=caml_ml_string_length(s) - 1 | 0, + i$0=caml_call1(Stdlib_bytes[43],s), + i=i$0, + i_pos=0, + i_max=i_max$0; + var utf16=143365725 === encoding$0?1:0; + return [0, + src, + encoding$0, + nln, + nl$0, + i, + i_pos, + i_max, + caml_create_bytes(4), + 0, + 0, + 0, + 0, + 1, + 0, + 0, + 0, + function(d,v) + {if(852405675 <= v[1]) + {var u=v[2],match=caml_call1(Stdlib_uchar[10],u); + if(65279 === match) + {if(utf16){d[2] = -211558048;d[18] = decode_utf_16be} + d[11] = 1; + d[17] = pp$0; + return caml_call1(d[18],d)} + if(65534 === match && utf16) + {d[2] = -211555818; + d[18] = decode_utf_16; + d[11] = 1; + d[17] = pp$0; + return caml_call1(d[18],d)} + d[11] = 0; + d[17] = pp$0; + return caml_call2(d[17],d,v)} + d[11] = 0; + d[17] = pp$0; + return caml_call2(d[17],d,v)}, + k$0]} + function decode(d){return caml_call1(d[18],d)} + function decoder_line(d){return d[13]} + function decoder_col(d){return d[14]} + function decoder_byte_count(d){return d[15]} + function decoder_count(d){return d[16]} + function decoder_removed_bom(d){return d[11]} + function decoder_src(d){return d[1]} + function decoder_nln(d){return d[3]} + function decoder_encoding(d){return d[2]} + function set_decoder_encoding(d,e) + {d[2] = e;d[18] = decode_fun(e);return 0} + function o_rem(e){return (e[5] - e[4] | 0) + 1 | 0} + function dst(e,s,j,l) + {var _U_=j < 0?1:0; + if(_U_) + var _V_=_U_; + else + var + _W_=l < 0?1:0, + _V_=_W_ || (caml_ml_bytes_length(s) < (j + l | 0)?1:0); + if(_V_)invalid_bounds(j,l); + e[3] = s; + e[4] = j; + e[5] = (j + l | 0) - 1 | 0; return 0} - function _F_(caml_parser_env) - {caml_call2(Stdlib_parsing[14],caml_parser_env,0);return 0} - function _G_(caml_parser_env) + function flush(k,e) + {var _T_=e[1]; + if(typeof _T_ === "number") + {e[9] + = + function(e,param) + {if(typeof param === "number" && 1006505782 <= param) + return caml_call1(k,e); + return caml_call1(Stdlib[1],cst_expected_Await_encode)}; + return 939392865} + if(438511779 <= _T_[1]) + {var oc=_T_[2]; + caml_call4(Stdlib[68],oc,e[3],0,e[4]); + e[4] = 0; + return caml_call1(k,e)} + var b=_T_[2],o=caml_call1(Stdlib_bytes[42],e[3]); + caml_call4(Stdlib_buffer[16],b,o,0,e[4]); + e[4] = 0; + return caml_call1(k,e)} + function t_range(e,max){e[7] = 0;e[8] = max;return 0} + function t_flush(k,e) + {function blit(e,l) + {caml_blit_bytes(e[6],e[7],e[3],e[4],l); + e[4] = e[4] + l | 0; + e[7] = e[7] + l | 0; + return 0} + var rem=o_rem(e),len=(e[8] - e[7] | 0) + 1 | 0; + return rem < len + ?(blit(e,rem),flush(function(_S_){return t_flush(k,_S_)},e)) + :(blit(e,len),caml_call1(k,e))} + function encode_utf_8(e,v) + {function k(e){e[9] = encode_utf_8;return 17724} + if(typeof v === "number")return 1006505782 <= v?k(e):flush(k,e); + var u=v[2],u$0=caml_call1(Stdlib_uchar[10],u),rem=o_rem(e); + if(127 < u$0) + {if(2047 < u$0) + {if(65535 < u$0) + {if(4 <= rem) + {var j=e[4];e[4] = e[4] + 4 | 0;var s=e[3],j$0=j,k$0=k} + else + {t_range(e,3); + var + _M_=function(_R_){return t_flush(k,_R_)}, + s=e[6], + j$0=0, + k$0=_M_} + unsafe_set_byte(s,j$0,240 | u$0 >>> 18 | 0); + unsafe_set_byte(s,j$0 + 1 | 0,128 | (u$0 >>> 12 | 0) & 63); + unsafe_set_byte(s,j$0 + 2 | 0,128 | (u$0 >>> 6 | 0) & 63); + unsafe_set_byte(s,j$0 + 3 | 0,128 | u$0 & 63); + return k$0(e)} + if(3 <= rem) + {var j$1=e[4];e[4] = e[4] + 3 | 0;var s$0=e[3],j$2=j$1,k$1=k} + else + {t_range(e,2); + var + _N_=function(_Q_){return t_flush(k,_Q_)}, + s$0=e[6], + j$2=0, + k$1=_N_} + unsafe_set_byte(s$0,j$2,224 | u$0 >>> 12 | 0); + unsafe_set_byte(s$0,j$2 + 1 | 0,128 | (u$0 >>> 6 | 0) & 63); + unsafe_set_byte(s$0,j$2 + 2 | 0,128 | u$0 & 63); + return k$1(e)} + if(2 <= rem) + {var j$3=e[4];e[4] = e[4] + 2 | 0;var s$1=e[3],j$4=j$3,k$2=k} + else + {t_range(e,1); + var _O_=function(_P_){return t_flush(k,_P_)},s$1=e[6],j$4=0,k$2=_O_} + unsafe_set_byte(s$1,j$4,192 | u$0 >>> 6 | 0); + unsafe_set_byte(s$1,j$4 + 1 | 0,128 | u$0 & 63); + return k$2(e)} + return 1 <= rem + ?(unsafe_set_byte(e[3],e[4],u$0),e[4] = e[4] + 1 | 0,k(e)) + :flush(function(e){return encode_utf_8(e,v)},e)} + function encode_utf_16be(e,v) + {function k(e){e[9] = encode_utf_16be;return 17724} + if(typeof v === "number")return 1006505782 <= v?k(e):flush(k,e); + var u=v[2],u$0=caml_call1(Stdlib_uchar[10],u),rem=o_rem(e); + if(65536 <= u$0) + {if(4 <= rem) + {var j=e[4];e[4] = e[4] + 4 | 0;var s=e[3],j$0=j,k$0=k} + else + {t_range(e,3); + var _I_=function(_L_){return t_flush(k,_L_)},s=e[6],j$0=0,k$0=_I_} + var + u$1=u$0 - 65536 | 0, + hi=55296 | u$1 >>> 10 | 0, + lo=56320 | u$1 & 1023; + unsafe_set_byte(s,j$0,hi >>> 8 | 0); + unsafe_set_byte(s,j$0 + 1 | 0,hi & 255); + unsafe_set_byte(s,j$0 + 2 | 0,lo >>> 8 | 0); + unsafe_set_byte(s,j$0 + 3 | 0,lo & 255); + return k$0(e)} + if(2 <= rem) + {var j$1=e[4];e[4] = e[4] + 2 | 0;var s$0=e[3],j$2=j$1,k$1=k} + else + {t_range(e,1); + var _J_=function(_K_){return t_flush(k,_K_)},s$0=e[6],j$2=0,k$1=_J_} + unsafe_set_byte(s$0,j$2,u$0 >>> 8 | 0); + unsafe_set_byte(s$0,j$2 + 1 | 0,u$0 & 255); + return k$1(e)} + function encode_utf_16le(e,v) + {function k(e){e[9] = encode_utf_16le;return 17724} + if(typeof v === "number")return 1006505782 <= v?k(e):flush(k,e); + var u=v[2],u$0=caml_call1(Stdlib_uchar[10],u),rem=o_rem(e); + if(65536 <= u$0) + {if(4 <= rem) + {var j=e[4];e[4] = e[4] + 4 | 0;var s=e[3],j$0=j,k$0=k} + else + {t_range(e,3); + var _E_=function(_H_){return t_flush(k,_H_)},s=e[6],j$0=0,k$0=_E_} + var + u$1=u$0 - 65536 | 0, + hi=55296 | u$1 >>> 10 | 0, + lo=56320 | u$1 & 1023; + unsafe_set_byte(s,j$0,hi & 255); + unsafe_set_byte(s,j$0 + 1 | 0,hi >>> 8 | 0); + unsafe_set_byte(s,j$0 + 2 | 0,lo & 255); + unsafe_set_byte(s,j$0 + 3 | 0,lo >>> 8 | 0); + return k$0(e)} + if(2 <= rem) + {var j$1=e[4];e[4] = e[4] + 2 | 0;var s$0=e[3],j$2=j$1,k$1=k} + else + {t_range(e,1); + var _F_=function(_G_){return t_flush(k,_G_)},s$0=e[6],j$2=0,k$1=_F_} + unsafe_set_byte(s$0,j$2,u$0 & 255); + unsafe_set_byte(s$0,j$2 + 1 | 0,u$0 >>> 8 | 0); + return k$1(e)} + function encoder(encoding,dst) + {if(typeof dst === "number") + var o=Stdlib_bytes[3],o_pos=1,o_max=0; + else + var o$0=caml_create_bytes(65536),o=o$0,o_pos=0,o_max=65535; + var + _D_= + 143365725 <= encoding + ?684370880 <= encoding?encode_utf_8:encode_utf_16be + :-211555818 <= encoding?encode_utf_16le:encode_utf_16be; + return [0,dst,encoding,o,o_pos,o_max,caml_create_bytes(4),1,0,_D_]} + function encode(e,v){return caml_call2(e[9],e,v)} + function encoder_encoding(e){return e[2]} + function encoder_dst(e){return e[1]} + var Manual=[0,src,dst,o_rem]; + function encoding_guess(s) {var - pos=caml_call1(Stdlib_parsing[5],0), - msg=caml_call4(Stdlib_printf[4],_k_,pos[2],pos[4] - pos[3] | 0,what); - return caml_call1(Stdlib[2],msg)} - function _H_(caml_parser_env) - {var _2=caml_call2(Stdlib_parsing[14],caml_parser_env,1); - return [1,caml_call1(Stdlib_list[9],_2)]} - function _I_(caml_parser_env){return _J_} - function _K_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,0);return [0,_1]} - function _L_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,0);return _1} - function _M_(caml_parser_env) - {caml_call2(Stdlib_parsing[14],caml_parser_env,1); - var _2=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - return _2} + s$0=caml_call1(Stdlib_bytes[43],s), + match= + r_encoding(s$0,0,caml_call2(Stdlib[17],caml_ml_bytes_length(s$0),3)), + _C_=match[1]; + if(-211555818 === _C_) + {var d=match[2];return [0,-211555818,3299808 === d?1:0]} + if(684370880 <= _C_) + {var d$0=match[2];return [0,684370880,3299808 === d$0?1:0]} + var d$1=match[2]; + return [0,-211558048,3299808 === d$1?1:0]} + function fold_utf_8(opt,len,f,acc,s) + {if(opt)var sth=opt[1],pos=sth;else var pos=0; + if(len) + var l=len[1],len$0=l; + else + var len$0=caml_ml_string_length(s) - pos | 0; + var + last=(pos + len$0 | 0) - 1 | 0, + s$0=caml_call1(Stdlib_bytes[43],s), + acc$0=acc, + i=pos; + for(;;) + {if(last < i)return acc$0; + var need=utf_8_len[1 + caml_bytes_unsafe_get(s$0,i)]; + if(0 === need) + {var + i$0=i + 1 | 0, + acc$1=caml_call3(f,acc$0,i,malformed(s$0,i,1)), + acc$0=acc$1, + i=i$0; + continue} + var rem=(last - i | 0) + 1 | 0; + if(rem < need)return caml_call3(f,acc$0,i,malformed(s$0,i,rem)); + var + i$1=i + need | 0, + acc$2=caml_call3(f,acc$0,i,r_utf_8(s$0,i,need)), + acc$0=acc$2, + i=i$1; + continue}} + function fold_utf_16be(opt,len,f,acc,s) + {if(opt)var sth=opt[1],pos=sth;else var pos=0; + if(len) + var l=len[1],len$0=l; + else + var len$0=caml_ml_string_length(s) - pos | 0; + var + last=(pos + len$0 | 0) - 1 | 0, + s$0=caml_call1(Stdlib_bytes[43],s), + acc$0=acc, + i=pos; + for(;;) + {if(last < i)return acc$0; + var rem=(last - i | 0) + 1 | 0; + if(2 <= rem) + {var v=r_utf_16(s$0,i,i + 1 | 0); + if(659980059 <= v[1]) + {var i$0=i + 2 | 0,acc$1=caml_call3(f,acc$0,i,v),acc$0=acc$1,i=i$0; + continue} + var hi=v[2]; + if(4 <= rem) + {var + i$1=i + 4 | 0, + acc$2= + caml_call3(f,acc$0,i,r_utf_16_lo(hi,s$0,i + 2 | 0,i + 3 | 0)), + acc$0=acc$2, + i=i$1; + continue} + return caml_call3(f,acc$0,i,malformed(s$0,i,rem))} + return caml_call3(f,acc$0,i,malformed(s$0,i,1))}} + function fold_utf_16le(opt,len,f,acc,s) + {if(opt)var sth=opt[1],pos=sth;else var pos=0; + if(len) + var l=len[1],len$0=l; + else + var len$0=caml_ml_string_length(s) - pos | 0; + var + last=(pos + len$0 | 0) - 1 | 0, + s$0=caml_call1(Stdlib_bytes[43],s), + acc$0=acc, + i=pos; + for(;;) + {if(last < i)return acc$0; + var rem=(last - i | 0) + 1 | 0; + if(2 <= rem) + {var v=r_utf_16(s$0,i + 1 | 0,i); + if(659980059 <= v[1]) + {var i$0=i + 2 | 0,acc$1=caml_call3(f,acc$0,i,v),acc$0=acc$1,i=i$0; + continue} + var hi=v[2]; + if(4 <= rem) + {var + i$1=i + 4 | 0, + acc$2= + caml_call3(f,acc$0,i,r_utf_16_lo(hi,s$0,i + 3 | 0,i + 2 | 0)), + acc$0=acc$2, + i=i$1; + continue} + return caml_call3(f,acc$0,i,malformed(s$0,i,rem))} + return caml_call3(f,acc$0,i,malformed(s$0,i,1))}} + var String=[0,encoding_guess,fold_utf_8,fold_utf_16be,fold_utf_16le]; + function add_utf_8(b,u) + {var u$0=caml_call1(Stdlib_uchar[10],u); + function w(byte$0){return caml_call2(Stdlib_buffer[10],b,byte$0)} + return 127 < u$0 + ?2047 < u$0 + ?65535 < u$0 + ?(w(240 | u$0 >>> 18 | 0), + w(128 | (u$0 >>> 12 | 0) & 63), + w(128 | (u$0 >>> 6 | 0) & 63), + w(128 | u$0 & 63)) + :(w(224 | u$0 >>> 12 | 0), + w(128 | (u$0 >>> 6 | 0) & 63), + w(128 | u$0 & 63)) + :(w(192 | u$0 >>> 6 | 0),w(128 | u$0 & 63)) + :w(u$0)} + function add_utf_16be(b,u) + {var u$0=caml_call1(Stdlib_uchar[10],u); + function w(byte$0){return caml_call2(Stdlib_buffer[10],b,byte$0)} + if(65536 <= u$0) + {var + u$1=u$0 - 65536 | 0, + hi=55296 | u$1 >>> 10 | 0, + lo=56320 | u$1 & 1023; + w(hi >>> 8 | 0); + w(hi & 255); + w(lo >>> 8 | 0); + return w(lo & 255)} + w(u$0 >>> 8 | 0); + return w(u$0 & 255)} + function add_utf_16le(b,u) + {var u$0=caml_call1(Stdlib_uchar[10],u); + function w(byte$0){return caml_call2(Stdlib_buffer[10],b,byte$0)} + if(65536 <= u$0) + {var + u$1=u$0 - 65536 | 0, + hi=55296 | u$1 >>> 10 | 0, + lo=56320 | u$1 & 1023; + w(hi & 255); + w(hi >>> 8 | 0); + w(lo & 255); + return w(lo >>> 8 | 0)} + w(u$0 & 255); + return w(u$0 >>> 8 | 0)} var - yyact= - [0, - function(param){return caml_call1(Stdlib[2],cst_parser)}, - _M_, - _L_, - _K_, - _I_, - _H_, - _G_, - _F_, - _E_, - _D_, - _C_, - _B_, - _A_, - _z_, - _y_, - _x_, - _w_, - _v_, - _u_, - _t_, - _s_, - _r_, - _q_, - _p_, - _o_, - _n_, - _m_], - yytables= + Buffer=[0,add_utf_8,add_utf_16be,add_utf_16le], + Uutf= [0, - yyact, - yytransl_const, - yytransl_block, - yylhs, - yylen, - yydefred, - yydgoto, - yysindex, - yyrindex, - yygindex, - yytablesize, - yytable, - yycheck, - Stdlib_parsing[16], - yynames_const, - yynames_block]; - function sexp(lexfun,lexbuf) - {return caml_call4(Stdlib_parsing[13],yytables,1,lexfun,lexbuf)} - function sexp_opt(lexfun,lexbuf) - {return caml_call4(Stdlib_parsing[13],yytables,2,lexfun,lexbuf)} - function sexps(lexfun,lexbuf) - {return caml_call4(Stdlib_parsing[13],yytables,3,lexfun,lexbuf)} - function rev_sexps(lexfun,lexbuf) - {return caml_call4(Stdlib_parsing[13],yytables,4,lexfun,lexbuf)} - var Sexplib_Parser=[0,sexp,sexp_opt,sexps,rev_sexps]; - caml_register_global(153,Sexplib_Parser,"Sexplib__Parser"); - var coerce=_b_[3]; - function start_pos(param) - {return caml_call1(coerce,caml_call1(Stdlib_parsing[5],0))} + u_bom, + u_rep, + encoding_of_string, + encoding_to_string, + decoder, + decode, + decoder_encoding, + set_decoder_encoding, + decoder_line, + decoder_col, + decoder_byte_count, + decoder_count, + decoder_removed_bom, + decoder_src, + decoder_nln, + pp_decode, + encoder, + encode, + encoder_encoding, + encoder_dst, + Manual, + String, + Buffer]; + runtime.caml_register_global(66,Uutf,"Uutf"); + return} + (function(){return this}())); + + +//# 1 "../../.js/jsonm/jsonm.cma.js" +(function(joo_global_object) + {"use strict"; var - yytransl_const$0=_O_.slice(), - yytransl_block$0=[0,257,258,0], - yytablesize$0=292; - function _P_(caml_parser_env) - {var _eJ_=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - throw [0,Stdlib_parsing[12],_eJ_]} - function _Q_(caml_parser_env) - {var _eI_=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - throw [0,Stdlib_parsing[12],_eI_]} - function _R_(caml_parser_env) - {var _eH_=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - throw [0,Stdlib_parsing[12],_eH_]} - function _S_(caml_parser_env) - {var _eG_=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - throw [0,Stdlib_parsing[12],_eG_]} - function _T_(caml_parser_env) - {var _eF_=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - throw [0,Stdlib_parsing[12],_eF_]} - function _U_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1); - return caml_call1(Stdlib_list[9],_1)} - function _V_(caml_parser_env){return 0} - function _W_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1); - return caml_call1(Stdlib_list[9],_1)} - function _X_(caml_parser_env){return 0} - function _Y_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1);return _1} - function _Z_(caml_parser_env) - {var - _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1), - _2=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - return [0,_2,_1]} - function ___(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,0);return [0,_1,0]} - function _$_(caml_parser_env){return 0} - function _aa_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,0);return [0,_1]} - function _ab_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - return relativize(_1)} - function _ac_(caml_parser_env) - {var - _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1), - _2=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - return [0,_2,_1]} - function _ad_(caml_parser_env){return 0} - function _ae_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,0);return [1,_1]} - function _af_(caml_parser_env) - {var _1=caml_call2(Stdlib_parsing[14],caml_parser_env,0);return [0,_1]} - function _ag_(caml_parser_env) - {var - _1=caml_call2(Stdlib_parsing[14],caml_parser_env,1), - _2=caml_call2(Stdlib_parsing[14],caml_parser_env,0); - return [0,_2,_1]} - function _ah_(caml_parser_env){return 0} - function _ai_(caml_parser_env) - {var - _2=caml_call2(Stdlib_parsing[14],caml_parser_env,1), - t=caml_call2(Stdlib_parsing[14],caml_parser_env,0), - cs=caml_call1(Stdlib_list[9],_2); - return [1,start_pos(0),cs,t]} - function _aj_(caml_parser_env) - {var - param=caml_call2(Stdlib_parsing[14],caml_parser_env,0), - pos_opt=param[2], - x=param[1]; - if(pos_opt) - var pos=pos_opt[1],pos$0=caml_call1(coerce,pos); - else - var pos$0=start_pos(0); - return [0,pos$0,x]} - function _ak_(caml_parser_env) - {var - pos=caml_call1(Stdlib_parsing[5],0), - msg=caml_call4(Stdlib_printf[4],_N_,pos[2],pos[4] - pos[3] | 0,what$0); - return caml_call1(Stdlib[2],msg)} - function _al_(caml_parser_env) - {var - _2=caml_call2(Stdlib_parsing[14],caml_parser_env,1), - ts=caml_call1(Stdlib_list[9],_2), - p=caml_call1(Stdlib_parsing[6],0), - _eE_=caml_call1(coerce,[0,p[1],p[2],p[3],p[4] - 1 | 0]); - return [1,start_pos(0),ts,_eE_]} - function _am_(caml_parser_env) - {var - param=caml_call2(Stdlib_parsing[14],caml_parser_env,0), - y=param[2], - x=param[1]; - if(y) - var - match=y[1], - x$0=match[2], - pos=match[1], - y$0=[0,x$0], - pos$0=caml_call1(coerce,pos), - y$1=y$0; - else - var y$2=[0,x],pos$1=start_pos(0),pos$0=pos$1,y$1=y$2; - return [0,pos$0,x,y$1]} + runtime=joo_global_object.jsoo_runtime, + caml_ml_string_length=runtime.caml_ml_string_length, + caml_string_get=runtime.caml_string_get, + caml_string_notequal=runtime.caml_string_notequal, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_wrap_exception=runtime.caml_wrap_exception; + function caml_call1(f,a0) + {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} + function caml_call2(f,a0,a1) + {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} + function caml_call3(f,a0,a1,a2) + {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} + function caml_call4(f,a0,a1,a2,a3) + {return f.length == 4 + ?f(a0,a1,a2,a3) + :runtime.caml_call_gen(f,[a0,a1,a2,a3])} + function caml_call5(f,a0,a1,a2,a3,a4) + {return f.length == 5 + ?f(a0,a1,a2,a3,a4) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} var - yyact$0= + global_data=runtime.caml_get_global_data(), + cst_false=caml_string_of_jsbytes("false"), + cst_null=caml_string_of_jsbytes("null"), + cst_true=caml_string_of_jsbytes("true"), + cst_u00=caml_string_of_jsbytes("\\u00"), + cst$0=caml_string_of_jsbytes("\\\\"), + cst=caml_string_of_jsbytes('\\"'), + cst_n=caml_string_of_jsbytes("\\n"), + cst$1=caml_string_of_jsbytes("//"), + cst$2=caml_string_of_jsbytes("*/"), + cst$3=caml_string_of_jsbytes("/*"), + cst_null$0=caml_string_of_jsbytes("null"), + cst_true$0=caml_string_of_jsbytes("true"), + cst_false$0=caml_string_of_jsbytes("false"), + cst_Lexeme_Ae=caml_string_of_jsbytes("`Lexeme `Ae"), + cst_Lexeme_Oe=caml_string_of_jsbytes("`Lexeme `Oe"), + cst_Lexeme_Null_Bool_Float_Str= + caml_string_of_jsbytes + ("`Lexeme (`Null | `Bool _ | `Float _ | `String _ | `As | `Os)"), + cst_Lexeme_Name_Oe=caml_string_of_jsbytes("`Lexeme (`Name _ | `Oe)"), + cst_any_Lexeme_but_Name_or_Oe= + caml_string_of_jsbytes("any `Lexeme but `Name or `Oe"), + cst_any_Lexeme_but_Name_Oe_or_= + caml_string_of_jsbytes("any `Lexeme but `Name, `Oe or `Ae"), + cst_End=caml_string_of_jsbytes("`End"), + cst_Await=caml_string_of_jsbytes("`Await"), + partial= + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("stream"),[17,0,0]]], + partial$0=[17,[0,caml_string_of_jsbytes("@ "),1,0],[12,40,0]], + partial$1= + [11, + caml_string_of_jsbytes("('\"'"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("or"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("'}')"),[17,0,0]]]]]], + partial$2=[0,caml_string_of_jsbytes("@ "),1,0], + partial$3= + [11, + caml_string_of_jsbytes("(','"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("or"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("'}')"),[17,0,0]]]]]], + partial$4=[0,caml_string_of_jsbytes("@ "),1,0], + partial$5= + [11, + caml_string_of_jsbytes("or"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("']')"),[17,0,0]]]], + partial$6=[0,caml_string_of_jsbytes("@ "),1,0], + partial$7= + [11, + caml_string_of_jsbytes("(','"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("or"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("']')"),[17,0,0]]]]]], + partial$8=[0,caml_string_of_jsbytes("@ "),1,0], + partial$9= + [17,[0,caml_string_of_jsbytes("@ "),1,0],[12,40,[15,[12,41,[17,0,0]]]]], + err_bom=[0,106380200,-543455433], + err_unclosed_comment=[0,106380200,[0,-364210971,-826170817]], + err_unclosed_string=[0,106380200,[0,-364210971,-976970511]], + err_unclosed_arr=[0,106380200,[0,-364210971,14610]], + err_unclosed_obj=[0,106380200,[0,-364210971,17732]], + err_exp_comment=[0,106380200,[0,434236056,-826170817]], + err_exp_value=[0,106380200,[0,434236056,-991563951]], + err_exp_name=[0,106380200,[0,434236056,869834347]], + err_exp_nsep=[0,106380200,[0,434236056,713199754]], + err_exp_arr_fst=[0,106380200,[0,434236056,[0,726711616,1]]], + err_exp_arr_nxt=[0,106380200,[0,434236056,[0,726711616,0]]], + err_exp_obj_fst=[0,106380200,[0,434236056,[0,881518886,1]]], + err_exp_obj_nxt=[0,106380200,[0,434236056,[0,881518886,0]]], + err_exp_json=[0,106380200,[0,434236056,826371656]], + err_exp_eoi=[0,106380200,[0,434236056,3456159]], + Uutf=global_data.Uutf, + Stdlib_uchar=global_data.Stdlib__uchar, + Stdlib=global_data.Stdlib, + Assert_failure=global_data.Assert_failure, + Stdlib_buffer=global_data.Stdlib__buffer, + Stdlib_list=global_data.Stdlib__list, + Stdlib_bytes=global_data.Stdlib__bytes, + Stdlib_printf=global_data.Stdlib__printf, + Stdlib_format=global_data.Stdlib__format, + _a_=Stdlib_format[123], + _$_=[0,-633954146,[0,737456202,1]], + _aa_=[0,-633954146,870828711], + _ab_=[0,-633954146,[0,737456202,0]], + _ad_=[0,-633954146,14610], + _ac_=[0,-633954146,17732], + _ag_=[0,caml_string_of_jsbytes("src/jsonm.ml"),398,27], + _ak_=[0,[8,[0,0,3],0,[0,16],0],caml_string_of_jsbytes("%.16g")], + _aj_= [0, - function(param){return caml_call1(Stdlib[2],cst_parser$0)}, - _am_, - _al_, - _ak_, - _aj_, - _ai_, - _ah_, - _ag_, - _af_, - _ae_, - _ad_, - _ac_, - _ab_, - _aa_, - _$_, - ___, - _Z_, - _Y_, - _X_, - _W_, - _V_, - _U_, - _T_, - _S_, - _R_, - _Q_, - _P_], - yytables$0= + [15,[11,caml_string_of_jsbytes(" encoded but expected "),[2,0,0]]], + caml_string_of_jsbytes("%a encoded but expected %s")], + _ai_= [0, - yyact$0, - yytransl_const$0, - yytransl_block$0, - yylhs$0, - yylen$0, - yydefred$0, - yydgoto$0, - yysindex$0, - yyrindex$0, - yygindex$0, - yytablesize$0, - yytable$0, - yycheck$0, - Stdlib_parsing[16], - yynames_const$0, - yynames_block$0]; - function sexp$0(lexfun,lexbuf) - {return caml_call4(Stdlib_parsing[13],yytables$0,1,lexfun,lexbuf)} - function sexp_opt$0(lexfun,lexbuf) - {return caml_call4(Stdlib_parsing[13],yytables$0,2,lexfun,lexbuf)} - function sexps$0(lexfun,lexbuf) - {return caml_call4(Stdlib_parsing[13],yytables$0,3,lexfun,lexbuf)} - function sexps_abs(lexfun,lexbuf) - {return caml_call4(Stdlib_parsing[13],yytables$0,4,lexfun,lexbuf)} - function rev_sexps$0(lexfun,lexbuf) - {return caml_call4(Stdlib_parsing[13],yytables$0,5,lexfun,lexbuf)} + [11, + caml_string_of_jsbytes("invalid bounds (index "), + [4,0,0,0,[11,caml_string_of_jsbytes(", length "),[4,0,0,0,[12,41,0]]]]], + caml_string_of_jsbytes("invalid bounds (index %d, length %d)")], + _ah_=[0,caml_string_of_jsbytes("src/jsonm.ml"),404,29], + _af_=[0,-633954146,17718], + _ae_=[0,-633954146,14596], + ___=[0,caml_string_of_jsbytes("src/jsonm.ml"),212,8], + _Z_=[0,caml_string_of_jsbytes("src/jsonm.ml"),205,45], + _W_=[0,[11,caml_string_of_jsbytes("`S"),0],caml_string_of_jsbytes("`S")], + _X_=[0,[11,caml_string_of_jsbytes("`M"),0],caml_string_of_jsbytes("`M")], + _R_= + [0, + [11,caml_string_of_jsbytes("`Await"),0], + caml_string_of_jsbytes("`Await")], + _S_= + [0,[11,caml_string_of_jsbytes("`End"),0],caml_string_of_jsbytes("`End")], + _T_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("`Error "), + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [12,40,[15,[12,41,[17,0,[17,0,0]]]]]]]], + caml_string_of_jsbytes("@[`Error @[(%a)@]@]")], + _U_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("`White "), + [18,[1,[0,0,caml_string_of_jsbytes("")]],[3,0,[17,0,[17,0,0]]]]]], + caml_string_of_jsbytes("@[`White @[%S@]@]")], + _V_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("`Lexeme "), + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [12,40,[15,[12,41,[17,0,[17,0,0]]]]]]]], + caml_string_of_jsbytes("@[`Lexeme @[(%a)@]@]")], + _Y_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("`Comment "), + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [12, + 40, + [15, + [11,caml_string_of_jsbytes(", "),[3,0,[12,41,[17,0,[17,0,0]]]]]]]]]], + caml_string_of_jsbytes("@[`Comment @[(%a, %S)@]@]")], + _n_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("illegal"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("initial"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("BOM"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("in"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("character"),partial]]]]]]]]]], + caml_string_of_jsbytes + ("@[illegal@ initial@ BOM@ in@ character@ stream@]")], + _o_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("illegal"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("escape,"), + [17,[0,caml_string_of_jsbytes("@ "),1,0],0]]]]], + caml_string_of_jsbytes("@[illegal@ escape,@ ")], + _q_= + [0, + [15, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("not"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("an"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("escaped"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("character"),[17,0,0]]]]]]]]]], + caml_string_of_jsbytes("%a@ not@ an@ escaped@ character@]")], + _r_= + [0, + [15, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("lone"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("low"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("surrogate"),[17,0,0]]]]]]]], + caml_string_of_jsbytes("%a@ lone@ low@ surrogate@]")], + _s_= + [0, + [15, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("lone"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("high"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("surrogate"),[17,0,0]]]]]]]], + caml_string_of_jsbytes("%a@ lone@ high@ surrogate@]")], + _t_= + [0, + [15, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("not"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [12, + 97, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("hex"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("digit"),[17,0,0]]]]]]]]]], + caml_string_of_jsbytes("%a@ not@ a@ hex@ digit@]")], + _p_= + [0, + [15, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("not"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [12, + 97, + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("low"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("surrogate"),[17,0,0]]]]]]]]]], + caml_string_of_jsbytes("%a@ not@ a@ low@ surrogate@]")], + _u_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("illegal"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("bytes"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("in"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("character"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("stream"),partial$0]]]]]]]]]], + caml_string_of_jsbytes("@[illegal@ bytes@ in@ character@ stream@ (")], + _v_=[0,[4,8,[0,2,2],0,0],caml_string_of_jsbytes("%02X")], + _x_=[0,[12,32,[4,8,[0,2,2],0,0]],caml_string_of_jsbytes(" %02X")], + _w_=[0,[12,41,[17,0,0]],caml_string_of_jsbytes(")@]")], + _y_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("expected"), + [17,[0,caml_string_of_jsbytes("@ "),1,0],0]]], + caml_string_of_jsbytes("@[expected@ ")], + _z_= + [0, + [11, + caml_string_of_jsbytes("member"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("name"),[17,0,0]]]], + caml_string_of_jsbytes("member@ name@]")], + _A_= + [0, + [11, + caml_string_of_jsbytes("JSON"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("text (JSON value)"),[17,0,0]]]], + caml_string_of_jsbytes("JSON@ text (JSON value)@]")], + _B_= + [0, + [11, + caml_string_of_jsbytes("name"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("separator"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("(':')"),[17,0,0]]]]]], + caml_string_of_jsbytes("name@ separator@ (':')@]")], + _C_= + [0, + [11, + caml_string_of_jsbytes("end"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("of"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("input"),[17,0,0]]]]]], + caml_string_of_jsbytes("end@ of@ input@]")], + _D_= + [0, + [11, + caml_string_of_jsbytes("JavaScript"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("comment"),[17,0,0]]]], + caml_string_of_jsbytes("JavaScript@ comment@]")], + _E_= + [0, + [11, + caml_string_of_jsbytes("JSON"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("value"),[17,0,0]]]], + caml_string_of_jsbytes("JSON@ value@]")], + _G_= + [0, + [11, + caml_string_of_jsbytes("member"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("name"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("or"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("object"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("end"),[17,partial$2,partial$1]]]]]]]]]], + caml_string_of_jsbytes + ("member@ name@ or@ object@ end@ ('\"'@ or@ '}')@]")], + _F_= + [0, + [11, + caml_string_of_jsbytes("value"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("separator"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("or"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("object"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("end"),[17,partial$4,partial$3]]]]]]]]]], + caml_string_of_jsbytes + ("value@ separator@ or@ object@ end@ (','@ or@ '}')@]")], + _I_= + [0, + [11, + caml_string_of_jsbytes("value"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("or"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("array"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("end"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("(value"),[17,partial$6,partial$5]]]]]]]]]], + caml_string_of_jsbytes("value@ or@ array@ end@ (value@ or@ ']')@]")], + _H_= + [0, + [11, + caml_string_of_jsbytes("value"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("separator"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("or"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("array"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("end"),[17,partial$8,partial$7]]]]]]]]]], + caml_string_of_jsbytes + ("value@ separator@ or@ array@ end@ (','@ or@ ']')@]")], + _J_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("illegal"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("number"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [12,40,[2,0,[12,41,[17,0,0]]]]]]]]], + caml_string_of_jsbytes("@[illegal@ number@ (%s)@]")], + _P_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("illegal"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("literal"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [12,40,[2,0,[12,41,[17,0,0]]]]]]]]], + caml_string_of_jsbytes("@[illegal@ literal@ (%s)@]")], + _Q_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("illegal"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("character"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("in"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11, + caml_string_of_jsbytes("JSON"), + [17, + [0,caml_string_of_jsbytes("@ "),1,0], + [11,caml_string_of_jsbytes("string"),partial$9]]]]]]]]]], + caml_string_of_jsbytes + ("@[illegal@ character@ in@ JSON@ string@ (%a)@]")], + _K_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11, + caml_string_of_jsbytes("unclosed"), + [17,[0,caml_string_of_jsbytes("@ "),1,0],0]]], + caml_string_of_jsbytes("@[unclosed@ ")], + _L_= + [0, + [11,caml_string_of_jsbytes("object"),[17,0,0]], + caml_string_of_jsbytes("object@]")], + _M_= + [0, + [11,caml_string_of_jsbytes("array"),[17,0,0]], + caml_string_of_jsbytes("array@]")], + _N_= + [0, + [11,caml_string_of_jsbytes("comment"),[17,0,0]], + caml_string_of_jsbytes("comment@]")], + _O_= + [0, + [11,caml_string_of_jsbytes("string"),[17,0,0]], + caml_string_of_jsbytes("string@]")], + _m_= + [0, + [12,39,[2,0,[11,caml_string_of_jsbytes("' ("),[15,[12,41,0]]]]], + caml_string_of_jsbytes("'%s' (%a)")], + _l_= + [0, + [11,caml_string_of_jsbytes("U+"),[4,8,[0,2,4],0,0]], + caml_string_of_jsbytes("U+%04X")], + _d_= + [0, + [11,caml_string_of_jsbytes("`Null"),0], + caml_string_of_jsbytes("`Null")], + _e_= + [0,[11,caml_string_of_jsbytes("`Os"),0],caml_string_of_jsbytes("`Os")], + _f_= + [0,[11,caml_string_of_jsbytes("`Oe"),0],caml_string_of_jsbytes("`Oe")], + _g_= + [0,[11,caml_string_of_jsbytes("`Ae"),0],caml_string_of_jsbytes("`Ae")], + _c_= + [0,[11,caml_string_of_jsbytes("`As"),0],caml_string_of_jsbytes("`As")], + _h_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11,caml_string_of_jsbytes("`Name "),[3,0,[17,0,0]]]], + caml_string_of_jsbytes("@[`Name %S@]")], + _i_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11,caml_string_of_jsbytes("`Bool "),[9,0,[17,0,0]]]], + caml_string_of_jsbytes("@[`Bool %b@]")], + _j_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11,caml_string_of_jsbytes("`Float "),[2,0,[17,0,0]]]], + caml_string_of_jsbytes("@[`Float %s@]")], + _k_= + [0, + [18, + [1,[0,0,caml_string_of_jsbytes("")]], + [11,caml_string_of_jsbytes("`String "),[3,0,[17,0,0]]]], + caml_string_of_jsbytes("@[`String %S@]")]; + function unsafe_blit(s,soff,d,doff) + {var _dn_=caml_call1(Stdlib_bytes[43],s); + return function(_do_) + {return runtime.caml_blit_bytes(_dn_,soff,d,doff,_do_)}} + function unsafe_set_byte(s,j,byte$0) + {runtime.caml_bytes_unsafe_set(s,j,byte$0);return 0} var - Sexplib_Parser_with_layout= - [0,sexp$0,sexp_opt$0,sexps$0,sexps_abs,rev_sexps$0]; - caml_register_global - (154,Sexplib_Parser_with_layout,"Sexplib__Parser_with_layout"); - var lf=10; - function found_newline(lexbuf) - {var lex_curr_p=lexbuf[12]; - return function(diff) - {lexbuf[12] - = - [0, - lex_curr_p[1], - lex_curr_p[2] + 1 | 0, - lex_curr_p[4] - diff | 0, - lex_curr_p[4]]; - return 0}} - function lexeme_len(param) - {var lex_start_pos=param[5],lex_curr_pos=param[6]; - return lex_curr_pos - lex_start_pos | 0} - function main_failure(lexbuf,msg) - {var - match=caml_call1(Stdlib_lexing[10],lexbuf), - pos_cnum=match[4], - pos_bol=match[3], - pos_lnum=match[2], - msg$0= - caml_call4(Stdlib_printf[4],_an_,msg,pos_lnum,pos_cnum - pos_bol | 0); - return caml_call1(Stdlib[2],msg$0)} - function Make$1(X) - {function _ey_(buf,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=0; - for(;;) - {var - ocaml_lex_state$0= - caml_call3 - (Stdlib_lexing[18],ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(11 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:caml_call1(found_newline(lexbuf),0);continue a; - case 1:continue a; - case 2: - var - text= - caml_call3(Stdlib_lexing[14],lexbuf,lexbuf[5],lexbuf[6]); - return caml_call4(X[2][7],text,_ey_,buf,lexbuf); - case 3:return X[2][1]; - case 4:return X[2][2]; - case 5: - var pos=caml_call1(Stdlib_lexing[10],lexbuf); - caml_call2(X[1][4],buf,lexbuf); - scan_string(buf,pos,lexbuf); - var tok=caml_call2(X[2][6],pos,buf); - caml_call1(X[1][5],buf); - return tok; - case 6:return X[2][5]; - case 7: - var pos$0=caml_call1(Stdlib_lexing[10],lexbuf); - caml_call2(X[1][4],buf,lexbuf); - var locs=[0,pos$0,0],locs$0=locs; - b: - for(;;) - {var ocaml_lex_state$1=53; - for(;;) - {var - ocaml_lex_state$2= - caml_call3 - (Stdlib_lexing[18], - ocaml_lex_tables, - ocaml_lex_state$1, - lexbuf); - if(5 < ocaml_lex_state$2 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$1=ocaml_lex_state$2; - continue} - switch(ocaml_lex_state$2) - {case 0: - caml_call2(X[1][4],buf,lexbuf); - caml_call1(found_newline(lexbuf),0); - continue b; - case 1:caml_call2(X[1][4],buf,lexbuf);continue b; - case 2: - caml_call2(X[1][4],buf,lexbuf); - var - cur=caml_call1(Stdlib_lexing[11],lexbuf), - start=[0,cur[1],cur[2],cur[3],cur[4] - 1 | 0]; - scan_string(buf,start,lexbuf); - continue b; - case 3: - caml_call2(X[1][4],buf,lexbuf); - var - cur$0=caml_call1(Stdlib_lexing[11],lexbuf), - start$0=[0,cur$0[1],cur$0[2],cur$0[3],cur$0[4] - 2 | 0], - locs$1=[0,start$0,locs$0], - locs$0=locs$1; - continue b; - case 4: - caml_call2(X[1][4],buf,lexbuf); - if(! locs$0)throw [0,Assert_failure,_aq_]; - var _eD_=locs$0[2]; - if(_eD_){var locs$0=_eD_;continue b} - break; - default: - if(! locs$0)throw [0,Assert_failure,_as_]; - var - match=locs$0[1], - pos_cnum=match[4], - pos_bol=match[3], - pos_lnum=match[2], - msg= - caml_call3 - (Stdlib_printf[4],_ar_,pos_lnum,pos_cnum - pos_bol | 0); - caml_call1(Stdlib[2],msg)} - var tok$0=caml_call4(X[2][8],pos$0,_ey_,buf,lexbuf); - caml_call1(X[1][5],buf); - return tok$0}} - case 8:return main_failure(lexbuf,cst_illegal_end_of_comment); - case 9: - return main_failure(lexbuf,cst_comment_tokens_in_unquoted_atom); - case 10: - var - str= - caml_call3(Stdlib_lexing[14],lexbuf,lexbuf[5],lexbuf[6]); - return caml_call1(X[2][4],str); - default:return X[2][3]}}}} - function scan_string(buf,start,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=36; - for(;;) - {var - ocaml_lex_state$0= - caml_call3 - (Stdlib_lexing[18],ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(9 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:caml_call2(X[1][4],buf,lexbuf);return 0; - case 1: - var len=lexeme_len(lexbuf) - 2 | 0; - caml_call1(found_newline(lexbuf),len); - caml_call2(X[1][4],buf,lexbuf); - continue a; - case 2: - var len$0=lexeme_len(lexbuf) - 3 | 0; - caml_call1(found_newline(lexbuf),len$0); - caml_call2(X[1][4],buf,lexbuf); - continue a; - case 3: - var c=caml_call2(Stdlib_lexing[16],lexbuf,lexbuf[5] + 1 | 0); - if(110 <= c) - if(117 <= c) - var switch$0=0; - else - {var switcher=c - 110 | 0; - switch(switcher) - {case 0:var _eA_=10,switch$0=1;break; - case 4:var _eA_=13,switch$0=1;break; - case 6:var _eA_=9,switch$0=1;break; - default:var switch$0=0}} - else - if(98 === c)var _eA_=8,switch$0=1;else var switch$0=0; - if(! switch$0)var _eA_=c; - caml_call2(X[1][2],buf,_eA_); - caml_call2(X[1][4],buf,lexbuf); - continue a; - case 4: - var - c1=caml_call2(Stdlib_lexing[16],lexbuf,lexbuf[5] + 1 | 0), - c2=caml_call2(Stdlib_lexing[16],lexbuf,lexbuf[5] + 2 | 0), - c3=caml_call2(Stdlib_lexing[16],lexbuf,lexbuf[5] + 3 | 0), - v= - ((100 * (c1 - 48 | 0) | 0) + (10 * (c2 - 48 | 0) | 0) | 0) - + - (c3 - 48 | 0) - | - 0; - if(255 < v) - {var - match=caml_call1(Stdlib_lexing[11],lexbuf), - pos_cnum=match[4], - pos_bol=match[3], - pos_lnum=match[2], - msg= - caml_call6 - (Stdlib_printf[4], - _ao_, - pos_lnum, - (pos_cnum - pos_bol | 0) - 3 | 0, - c1, - c2, - c3); - caml_call1(Stdlib[2],msg)} - var _eB_=caml_call1(Stdlib_char[1],v); - caml_call2(X[1][2],buf,_eB_); - caml_call2(X[1][4],buf,lexbuf); - continue a; - case 5: - var - d1=caml_call2(Stdlib_lexing[16],lexbuf,lexbuf[5] + 2 | 0), - c2$0=caml_call2(Stdlib_lexing[16],lexbuf,lexbuf[5] + 3 | 0), - val1=97 <= d1?d1 - 87 | 0:65 <= d1?d1 - 55 | 0:d1 - 48 | 0, - val2= - 97 <= c2$0 - ?c2$0 - 87 | 0 - :65 <= c2$0?c2$0 - 55 | 0:c2$0 - 48 | 0, - v$0=(val1 * 16 | 0) + val2 | 0, - _eC_=caml_call1(Stdlib_char[1],v$0); - caml_call2(X[1][2],buf,_eC_); - caml_call2(X[1][4],buf,lexbuf); - continue a; - case 6: - var c$0=caml_call2(Stdlib_lexing[16],lexbuf,lexbuf[5] + 1 | 0); - caml_call2(X[1][2],buf,92); - caml_call2(X[1][2],buf,c$0); - caml_call2(X[1][4],buf,lexbuf); - continue a; - case 7: - caml_call1(found_newline(lexbuf),0); - caml_call2(X[1][2],buf,lf); - caml_call2(X[1][4],buf,lexbuf); - continue a; - case 8: - var ofs=lexbuf[5],len$1=lexbuf[6] - ofs | 0; - caml_call4(X[1][3],buf,lexbuf[2],ofs,len$1); - caml_call2(X[1][4],buf,lexbuf); - continue a; - default: - var - msg$0= - caml_call3 - (Stdlib_printf[4],_ap_,start[2],start[4] - start[3] | 0); - return caml_call1(Stdlib[2],msg$0)}}}} - function main(buf) - {if(buf) - {var buf$0=buf[1]; - caml_call1(Stdlib_buffer[8],buf$0); - var buf$1=caml_call1(X[1][6],buf$0)} - else - var buf$1=caml_call1(X[1][1],64); - return function(_ez_){return _ey_(buf$1,_ez_)}} - return [0,main]} - var - create=Stdlib_buffer[1], - clear=Stdlib_buffer[8], - add_char=Stdlib_buffer[10], - add_subbytes=Stdlib_buffer[17]; - function add_lexeme(param,_ex_){return 0} - function of_buffer(b){return b} - var eof=2,lparen=0,rparen=1,hash_semi=3; - function simple_string(x){return [0,x]} - function quoted_string(param,buf) - {return [0,caml_call1(Stdlib_buffer[2],buf)]} - function block_comment(pos,main,buf,lexbuf) - {return caml_call2(main,buf,lexbuf)} - function comment(text,main,buf,lexbuf){return caml_call2(main,buf,lexbuf)} - var - Vanilla= - Make$1 - ([0, - [0,create,add_char,add_subbytes,add_lexeme,clear,of_buffer], - [0, - lparen, - rparen, - eof, - simple_string, - hash_semi, - quoted_string, - comment, - block_comment]]); - function create$0(n) - {var _ew_=caml_call1(Stdlib_buffer[1],n); - return [0,caml_call1(Stdlib_buffer[1],n),_ew_]} - function of_buffer$0(contents) - {return [0,contents,caml_call1(Stdlib_buffer[1],64)]} - function add_char$0(t,ch){return caml_call2(Stdlib_buffer[10],t[1],ch)} - function add_subbytes$0(t,str,ofs,len) - {return caml_call4(Stdlib_buffer[17],t[1],str,ofs,len)} - function add_lexeme$0(t,lexbuf) - {var _ev_=caml_call1(Stdlib_lexing[6],lexbuf); - return caml_call2(Stdlib_buffer[14],t[2],_ev_)} - function clear$0(t) - {caml_call1(Stdlib_buffer[8],t[2]); - return caml_call1(Stdlib_buffer[8],t[1])} - var eof$0=2,lparen$0=0,rparen$0=1,hash_semi$0=3; - function simple_string$0(x){return [0,[0,x,0]]} - function quoted_string$0(pos,param) - {var - lexeme=param[2], - contents=param[1], - _eu_=[0,[0,pos,caml_call1(Stdlib_buffer[2],lexeme)]]; - return [0,[0,caml_call1(Stdlib_buffer[2],contents),_eu_]]} - function block_comment$0(pos,param,_et_,lexbuf) - {var lexeme=_et_[2]; - return [1,[0,caml_call1(Stdlib_buffer[2],lexeme),[0,pos]]]} - function comment$0(text,param,buf,lexbuf){return [1,[0,text,0]]} - var - With_layout= - Make$1 - ([0, - [0, - create$0, - add_char$0, - add_subbytes$0, - add_lexeme$0, - clear$0, - of_buffer$0], - [0, - lparen$0, - rparen$0, - eof$0, - simple_string$0, - hash_semi$0, - quoted_string$0, - comment$0, - block_comment$0]]), - main=Vanilla[1], - main$0=With_layout[1], - Sexplib_Lexer=[0,main,main$0]; - caml_register_global(159,Sexplib_Lexer,"Sexplib__Lexer"); - var - of_int_style=Sexplib0_Sexp[17], - of_float_style=Sexplib0_Sexp[16], - to_string=Sexplib0_Sexp[15], - to_string_mach=Sexplib0_Sexp[14], - to_string_hum=Sexplib0_Sexp[13], - pp=Sexplib0_Sexp[12], - pp_mach=Sexplib0_Sexp[11], - pp_hum_indent=Sexplib0_Sexp[10], - pp_hum=Sexplib0_Sexp[9], - default_indent=Sexplib0_Sexp[8], - message=Sexplib0_Sexp[7], - Of_sexp_error=Sexplib0_Sexp[6], - Not_found_s=Sexplib0_Sexp[5], - compare=Sexplib0_Sexp[4], - equal=Sexplib0_Sexp[3], - include$1=Sexplib0_Sexp[18], - size=include$1[1], - buffer=include$1[2], - to_buffer=include$1[3], - to_buffer_hum=include$1[4], - to_buffer_mach=include$1[5], - to_buffer_gen=include$1[6], - mach_maybe_esc_str=include$1[7], - must_escape=include$1[8], - esc_str=include$1[9]; - function with_new_buffer(oc,f) - {var buf=caml_call1(buffer,0); - caml_call1(f,buf); - return caml_call2(Stdlib_buffer[21],oc,buf)} - function output_hum(oc,sexp) - {return with_new_buffer - (oc,function(buf){return caml_call3(to_buffer_hum,buf,0,sexp)})} - function output_hum_indent(indent,oc,sexp) - {return with_new_buffer - (oc, - function(buf) - {return caml_call3(to_buffer_hum,buf,[0,indent],sexp)})} - function output(oc,sexp) - {return with_new_buffer - (oc,function(buf){return caml_call2(to_buffer_mach,buf,sexp)})} - var prng=[0,0]; - function temp_file_name(prefix,suffix) - {var _es_=prng[1]; - if(_es_) - var v=_es_[1],rand_state=v; - else - {var ret=caml_call1(Stdlib_random[11][2],0); - prng[1] = [0,ret]; - var rand_state=ret} - var rnd=caml_call1(Stdlib_random[11][4],rand_state) & 16777215; - return caml_call4(Stdlib_printf[4],_at_,prefix,rnd,suffix)} - function open_temp_file(opt,prefix,suffix) - {if(opt)var sth=opt[1],perm=sth;else var perm=438; - function try_name(counter) - {var counter$0=counter; - for(;;) - {var name=temp_file_name(prefix,suffix); - try - {var oc=caml_call3(Stdlib[62],_au_,perm,name),_er_=[0,name,oc]; - return _er_} - catch(e) - {e = caml_wrap_exception(e); - if(e[1] === Stdlib[11]) - {if(1000 <= counter$0)throw e; - var counter$1=counter$0 + 1 | 0,counter$0=counter$1; - continue} - throw e}}} - return try_name(0)} - var Tmp_file=[0,prng,temp_file_name,open_temp_file]; - function save_of_output(perm,output_function,file,sexp) - {var - match=caml_call3(Tmp_file[3],perm,file,cst_tmp), - oc=match[2], - tmp_name=match[1]; - try - {caml_call2(output_function,oc,sexp);caml_call1(Stdlib[76],oc)} - catch(e) - {e = caml_wrap_exception(e); - caml_call1(Stdlib[77],oc); - try {runtime.caml_sys_remove(tmp_name)}catch(_eq_){} - throw e} - return runtime.caml_sys_rename(tmp_name,file)} - function output_sexp_nl(do_output,oc,sexp) - {caml_call2(do_output,oc,sexp);return caml_call2(Stdlib[66],oc,cst)} - function save_hum(perm,file,sexp) - {return save_of_output - (perm, - function(_eo_,_ep_) - {return output_sexp_nl(output_hum,_eo_,_ep_)}, - file, - sexp)} - function save(perm,file,sexp) - {return save_of_output(perm,output,file,sexp)} - function output_sexps_nl(do_output,oc,sexps) - {function _em_(_en_){return output_sexp_nl(do_output,oc,_en_)} - return caml_call2(Stdlib_list[15],_em_,sexps)} - function save_sexps_hum(perm,file,sexps) - {return save_of_output - (perm, - function(_ek_,_el_) - {return output_sexps_nl(output_hum,_ek_,_el_)}, - file, - sexps)} - function save_sexps(perm,file,sexps) - {return save_of_output - (perm, - function(_ei_,_ej_){return output_sexps_nl(output,_ei_,_ej_)}, - file, - sexps)} - function scan_sexp(buf,lexbuf){return sexp(caml_call1(main,buf),lexbuf)} - function scan_sexp_opt(buf,lexbuf) - {return sexp_opt(caml_call1(main,buf),lexbuf)} - function scan_sexps(buf,lexbuf){return sexps(caml_call1(main,buf),lexbuf)} - function scan_rev_sexps(buf,lexbuf) - {return rev_sexps(caml_call1(main,buf),lexbuf)} - function get_main_buf(buf) - {if(buf) - var buf$0=buf[1],buf$1=buf$0; - else - var buf$1=caml_call1(Stdlib_buffer[1],128); - return caml_call1(main,[0,buf$1])} - function scan_fold_sexps(buf,f,acc,lexbuf) - {var main=get_main_buf(buf),acc$0=acc; - for(;;) - {var match=sexp_opt(main,lexbuf); - if(match) - {var sexp=match[1],acc$1=caml_call2(f,acc$0,sexp),acc$0=acc$1; - continue} - return acc$0}} - function scan_iter_sexps(buf,f,lexbuf) - {var _eh_=0; - return scan_fold_sexps - (buf, - function(param,sexp){return caml_call1(f,sexp)}, - _eh_, - lexbuf)} - function scan_sexps_conv(buf,f,lexbuf) - {function coll(acc,sexp){return [0,caml_call1(f,sexp),acc]} - var _eg_=scan_fold_sexps(buf,coll,0,lexbuf); - return caml_call1(Stdlib_list[9],_eg_)} - function sexp_conversion_error_message - (containing_sexp,location,invalid_sexp,param,exn) - {var _d9_=0; - if(containing_sexp) - var x=containing_sexp[1],_d__=[0,[1,[0,_av_,[0,x,0]]],0]; - else - var _d__=0; - var _d$_=[0,_d__,_d9_]; - if(invalid_sexp) - var x$0=invalid_sexp[1],_ea_=[0,[1,[0,_aw_,[0,x$0,0]]],0]; + _b_=Stdlib[19], + ux_soi=Stdlib[19] - 1 | 0, + u_rep=caml_call1(Stdlib_uchar[10],Uutf[2]), + u_nl=10, + u_sp=32, + u_quot=34, + u_lbrack=91, + u_rbrack=93, + u_lbrace=123, + u_rbrace=125, + u_colon=58, + u_comma=44, + u_slash=47, + u_bslash=92, + u_times=42; + function is_white(param) + {var switch$0=0; + if(11 <= param) + {if(32 === param)switch$0 = 1} else - var _ea_=0; - var _eb_=[0,_ea_,_d$_],_ec_=0; - if(exn[1] === Stdlib[7]) - var x$1=exn[2],_ed_=[0,x$1]; + if(9 <= param)switch$0 = 1; + return switch$0?1:0} + function is_val_sep(param) + {var switch$0=0; + if(44 <= param) + {var _dm_=param - 45 | 0; + if(79 < _dm_ >>> 0) + {if(! (81 <= _dm_))switch$0 = 1} + else + if(48 === _dm_)switch$0 = 1} else - var _ed_=caml_call1(include$2[49],exn); - var _ee_=[0,[0,_ed_,_ec_],_eb_]; - if(location)var x$2=location[1],_ef_=[0,[0,x$2],0];else var _ef_=0; - return [1,caml_call1(Stdlib_list[13],[0,_ax_,[0,_ef_,_ee_]])]} - var - Conv_exn= - [248,cst_Sexplib_Pre_sexp_Annot_Conv_exn,caml_fresh_oo_id(0)]; - function _ay_(param) - {if(param[1] === Conv_exn) - {var exn=param[3],location=param[2]; - return sexp_conversion_error_message(0,[0,location],0,0,exn)} - throw [0,Assert_failure,_az_]} - caml_call3(include$2[51][2],_aA_,Conv_exn,_ay_); - function get_sexp(param) - {var sexp=0 === param[0]?param[2]:param[3];return sexp} - function get_range(param){var range=param[1];return range} - function sexp_of_conv(sexp_of_a,param) - {if(1025039613 <= param[1]) - {var a=param[2];return [1,[0,_aB_,[0,caml_call1(sexp_of_a,a),0]]]} - var match=param[2],t=match[2],exn=match[1],_d8_=[0,get_sexp(t),0]; - return [1,[0,_aC_,[0,[1,[0,caml_call1(include$2[49],exn),_d8_]],0]]]} - var - Annot_sexp= - [248,cst_Sexplib_Pre_sexp_Annot_Annot_sexp,caml_fresh_oo_id(0)]; - function find_sexp(annot_sexp,sexp) - {function loop(annot_sexp) - {var sub_sexp=0 === annot_sexp[0]?annot_sexp[2]:annot_sexp[3]; - if(sexp === sub_sexp)throw [0,Annot_sexp,annot_sexp]; - if(0 === annot_sexp[0])return 0; - var annots=annot_sexp[2]; - return caml_call2(Stdlib_list[15],loop,annots)} - try - {loop(annot_sexp);var _d7_=0;return _d7_} - catch(exn) - {exn = caml_wrap_exception(exn); - if(exn[1] === Annot_sexp){var res=exn[2];return [0,res]} - throw exn}} - var - Annot= - [0,Conv_exn,get_sexp,get_range,sexp_of_conv,Annot_sexp,find_sexp]; - function _aD_(param) - {if(param[1] === Of_sexp_error) - {var _d6_=param[2]; - if(_d6_[1] === Annot[1]) - {var invalid_sexp=param[3],exn=_d6_[3],location=_d6_[2]; - return sexp_conversion_error_message - (0,[0,location],[0,invalid_sexp],0,exn)} - var invalid_sexp$0=param[3]; - return sexp_conversion_error_message(0,0,[0,invalid_sexp$0],0,_d6_)} - throw [0,Assert_failure,_aE_]} - caml_call3(include$2[51][2],_aF_,Of_sexp_error,_aD_); - function create$1(opt,_d4_,_d3_,_d2_,param) - {if(opt)var sth=opt[1],text_line=sth;else var text_line=1; - if(_d4_)var sth$0=_d4_[1],text_char=sth$0;else var text_char=0; - if(_d3_)var sth$1=_d3_[1],buf_pos=sth$1;else var buf_pos=0; - if(_d2_)var sth$2=_d2_[1],global_offset=sth$2;else var global_offset=0; - function fail(msg) - {var _d5_=caml_call2(Stdlib[28],cst_Sexplib_Sexp_Parse_pos_create,msg); - return caml_call1(Stdlib[2],_d5_)} - return 1 <= text_line - ?0 <= text_char - ?0 <= global_offset - ?0 <= buf_pos - ?[0,text_line,text_char,global_offset,buf_pos] - :fail(cst_buf_pos_0) - :fail(cst_global_offset_0) - :fail(cst_text_char_0) - :fail(cst_text_line_1)} - function with_buf_pos(t,buf_pos){return [0,t[1],t[2],t[3],buf_pos]} - var Parse_pos=[0,create$1,with_buf_pos]; - function to_string$0(param) - {switch(param) - {case 0:return cst_Parsing_toplevel_whitespace; - case 1:return cst_Parsing_nested_whitespace; - case 2:return cst_Parsing_atom; - case 3:return cst_Parsing_list; - case 4:return cst_Parsing_sexp_comment; - default:return cst_Parsing_block_comment}} - var - Cont_state=[0,to_string$0], - Parse_error=[248,cst_Sexplib_Pre_sexp_Parse_error,caml_fresh_oo_id(0)]; - function _aG_(param) - {if(param[1] === Parse_error) - {var - pe=param[2], - match=pe[2], - ppos=match[2][1], - _dY_=[0,[1,[0,_aH_,[0,caml_call1(include$2[10],ppos[4]),0]]],0], - _dZ_=[0,[1,[0,_aI_,[0,caml_call1(include$2[10],ppos[3]),0]]],_dY_], - _d0_=[0,[1,[0,_aJ_,[0,caml_call1(include$2[10],ppos[2]),0]]],_dZ_], - _d1_=[0,[1,[0,_aK_,[0,caml_call1(include$2[10],ppos[1]),0]]],_d0_]; - return [1,[0,_aM_,[0,[1,[0,[1,[0,_aL_,[0,[0,pe[1]],0]]],_d1_]],0]]]} - throw [0,Assert_failure,_aN_]} - caml_call3(include$2[51][2],_aO_,Parse_error,_aG_); - function annotate_sexp(sexp,iter) - {if(0 === sexp[0]) - {var - start_pos=caml_call2(Parsexp_Positions[17][3],iter,0), - end_pos=caml_call2(Parsexp_Positions[17][3],iter,0); - return [0,[0,start_pos,end_pos],sexp]} - var l=sexp[1],start_pos$0=caml_call2(Parsexp_Positions[17][3],iter,0); - function _dW_(sexp){return annotate_sexp(sexp,iter)} - var - _dX_=caml_call2(Stdlib_list[19],_dW_,l), - annot=caml_call1(Stdlib_list[9],_dX_), - end_pos$0=caml_call2(Parsexp_Positions[17][3],iter,0); - return [1,[0,start_pos$0,end_pos$0],annot,sexp]} - var - Found= - [248, - cst_Sexplib_Pre_sexp_Parser_output_Bare_sexp_Found, - caml_fresh_oo_id(0)]; - function raise_found(state,sexp){throw [0,Found,sexp]} - var - Found$0= - [248, - cst_Sexplib_Pre_sexp_Parser_output_Annotated_sexp_Found, - caml_fresh_oo_id(0)]; - function raise_found$0(state,param) - {var - positions=param[2], - sexp=param[1], - annot= - annotate_sexp(sexp,caml_call1(Parsexp_Positions[17][1],positions)); - throw [0,Found$0,annot]} - var - Parser_output= - [0, - [0,Parsexp[5],Found,raise_found], - [0,Parsexp[8],Found$0,raise_found$0]]; - function Make_parser(T) - {function parse_pos_of_state(state,buf_pos) - {var - _dU_=caml_call1(T[1][1][2],state), - _dV_=caml_call1(T[1][1][4],state); - return [0,caml_call1(T[1][1][3],state),_dV_,_dU_,buf_pos]} - function check_str_bounds(pos,len,str) - {if(pos < 0)caml_call1(Stdlib[1],cst_parse_pos_0); - if(len < 0)caml_call1(Stdlib[1],cst_parse_len_0); - var str_len=caml_call1(T[4],str),pos_len=pos + len | 0; - if(str_len < pos_len)caml_call1(Stdlib[1],cst_parse_pos_len_str_len); - return pos_len - 1 | 0} - function handle_parsexp_error(state,pos,e) - {var - msg=caml_call1(Parsexp_Parser_automaton[15][3],e), - match=caml_call1(Parsexp_Parser_automaton[15][4],e); - if(434889564 <= match) - {var - parse_state=[0,parse_pos_of_state(state,pos)], - parse_error=[0,msg,[0,925483562,parse_state]]; - throw [0,Parse_error,parse_error]} - return caml_call1(Stdlib[2],msg)} - function mk_cont_state(state,stack) - {var used_ref=[0,0]; - function parse_fun(pos,len,str) - {return used_ref[1] - ?caml_call1 - (Stdlib[2], - cst_Sexplib_Sexp_parser_continuation_called_twice) - :(used_ref[1] = 1,run_feed_loop(state,stack,pos,len,str))} - var cont_state=caml_call1(T[1][1][9],state); - return [1,cont_state,parse_fun]} - function run_feed_loop(state,stack,pos,len,str) - {var - max_pos=check_str_bounds(pos,len,str), - previous_offset=caml_call1(T[1][1][2],state); - try - {var stack$0=caml_call5(T[5],state,stack,str,max_pos,pos)} - catch(exn) - {exn = caml_wrap_exception(exn); - if(exn[1] === T[2]) - {var - result=exn[2], - offset=caml_call1(T[1][1][2],state), - next_pos=pos + (offset - previous_offset | 0) | 0; - return [0,result,parse_pos_of_state(state,next_pos)]} - if(exn[1] === Parsexp_Parser_automaton[16]) - {var err=exn[2]; - return handle_parsexp_error - (state, - pos - + - (caml_call1(T[1][1][2],state) - previous_offset | 0) - | - 0, - err)} - throw exn} - return mk_cont_state(state,stack$0)} - function parse(opt,len,str) - {if(opt) - var sth=opt[1],parse_pos=sth; + if(11 <= param) + {if(32 === param)switch$0 = 1} + else + if(9 <= param)switch$0 = 1; + return switch$0?1:0} + function pp_lexeme(ppf,param) + {if(typeof param === "number") + return 14610 === param + ?caml_call2(_a_,ppf,_c_) + :17732 <= param + ?870828711 <= param + ?caml_call2(_a_,ppf,_d_) + :caml_call2(_a_,ppf,_e_) + :17718 <= param + ?caml_call2(_a_,ppf,_f_) + :caml_call2(_a_,ppf,_g_); + var _dl_=param[1]; + if(737456202 <= _dl_) + {if(869834347 <= _dl_){var s=param[2];return caml_call3(_a_,ppf,_h_,s)} + var b=param[2]; + return caml_call3(_a_,ppf,_i_,b)} + if(365180284 <= _dl_) + {var f=param[2]; + return caml_call3(_a_,ppf,_j_,caml_call1(Stdlib[35],f))} + var s$0=param[2]; + return caml_call3(_a_,ppf,_k_,s$0)} + function err_lone_hi(p) + {return [0,106380200,[0,992790154,[0,225181919,p]]]} + function err_number(s){return [0,106380200,[0,30214610,s]]} + function pp_cp(ppf,u){return caml_call3(_a_,ppf,_l_,u)} + function pp_uchar(ppf,u) + {if(31 < caml_call1(Stdlib_uchar[10],u)) + {var b=caml_call1(Stdlib_buffer[1],4); + caml_call2(Uutf[23][1],b,u); + var _dk_=caml_call1(Stdlib_uchar[10],u); + return caml_call5 + (_a_,ppf,_m_,caml_call1(Stdlib_buffer[2],b),pp_cp,_dk_)} + return pp_cp(ppf,caml_call1(Stdlib_uchar[10],u))} + function pp_error(ppf,param) + {if(typeof param === "number")return caml_call2(_a_,ppf,_n_); + var _df_=param[1]; + if(30214610 <= _df_) + {if(732461442 <= _df_) + {if(992790154 <= _df_) + {var r=param[2]; + caml_call2(_a_,ppf,_o_); + var _dg_=r[1]; + if(153884648 === _dg_) + {var p=r[2];return caml_call4(_a_,ppf,_p_,pp_cp,p)} + if(429931233 <= _dg_) + {if(508493173 <= _dg_) + {var u=r[2];return caml_call4(_a_,ppf,_q_,pp_uchar,u)} + var p$0=r[2]; + return caml_call4(_a_,ppf,_r_,pp_cp,p$0)} + if(225181919 <= _dg_) + {var p$1=r[2];return caml_call4(_a_,ppf,_s_,pp_cp,p$1)} + var u$0=r[2]; + return caml_call4(_a_,ppf,_t_,pp_uchar,u$0)} + var bs=param[2],l=caml_ml_string_length(bs); + caml_call2(_a_,ppf,_u_); + if(0 < l)caml_call3(_a_,ppf,_v_,caml_string_get(bs,0)); + var _di_=l - 1 | 0,_dh_=1; + if(! (_di_ < 1)) + {var i=_dh_; + for(;;) + {caml_call3(_a_,ppf,_x_,caml_string_get(bs,i)); + var _dj_=i + 1 | 0; + if(_di_ !== i){var i=_dj_;continue} + break}} + return caml_call2(_a_,ppf,_w_)} + if(434236056 <= _df_) + {var r$0=param[2]; + caml_call2(_a_,ppf,_y_); + return typeof r$0 === "number" + ?3456159 <= r$0 + ?826371656 <= r$0 + ?869834347 <= r$0 + ?caml_call2(_a_,ppf,_z_) + :caml_call2(_a_,ppf,_A_) + :713199754 <= r$0 + ?caml_call2(_a_,ppf,_B_) + :caml_call2(_a_,ppf,_C_) + :-826170817 <= r$0 + ?caml_call2(_a_,ppf,_D_) + :caml_call2(_a_,ppf,_E_) + :881518886 <= r$0[1] + ?0 === r$0[2] + ?caml_call2(_a_,ppf,_F_) + :caml_call2(_a_,ppf,_G_) + :0 === r$0[2] + ?caml_call2(_a_,ppf,_H_) + :caml_call2(_a_,ppf,_I_)} + var n=param[2]; + return caml_call3(_a_,ppf,_J_,n)} + if(-364210971 === _df_) + {var r$1=param[2]; + caml_call2(_a_,ppf,_K_); + return 14610 <= r$1 + ?17732 <= r$1?caml_call2(_a_,ppf,_L_):caml_call2(_a_,ppf,_M_) + :-826170817 <= r$1 + ?caml_call2(_a_,ppf,_N_) + :caml_call2(_a_,ppf,_O_)} + if(-67383738 <= _df_) + {var l$0=param[2];return caml_call3(_a_,ppf,_P_,l$0)} + var u$1=param[2]; + return caml_call4(_a_,ppf,_Q_,pp_uchar,u$1)} + function pp_decode(ppf,param) + {if(typeof param === "number") + return 1006505782 <= param + ?caml_call2(_a_,ppf,_R_) + :caml_call2(_a_,ppf,_S_); + var _de_=param[1]; + if(-588596599 <= _de_) + {if(106380200 <= _de_) + {var e=param[2];return caml_call4(_a_,ppf,_T_,pp_error,e)} + var s=param[2]; + return caml_call3(_a_,ppf,_U_,s)} + if(-633954146 <= _de_) + {var l=param[2];return caml_call4(_a_,ppf,_V_,pp_lexeme,l)} + var match=param[2],s$0=match[2],style=match[1]; + function pr_style(ppf,param) + {return 83 <= param?caml_call2(_a_,ppf,_W_):caml_call2(_a_,ppf,_X_)} + return caml_call5(_a_,ppf,_Y_,pr_style,style,s$0)} + function baddc(d,c) + {var _dd_=caml_call1(Stdlib_uchar[9],c); + return caml_call2(Uutf[23][1],d[2],_dd_)} + function badd(d) + {var _dc_=caml_call1(Stdlib_uchar[9],d[8]); + return caml_call2(Uutf[23][1],d[2],_dc_)} + function buf(d) + {var t=caml_call1(Stdlib_buffer[2],d[2]); + caml_call1(Stdlib_buffer[8],d[2]); + return t} + function dpos(d) + {var _db_=caml_call1(Uutf[10],d[1]); + return [0,caml_call1(Uutf[9],d[1]),_db_]} + function spos(d) + {d[4] = caml_call1(Uutf[9],d[1]); + d[5] = caml_call1(Uutf[10],d[1]); + return 0} + function epos(d) + {d[6] = caml_call1(Uutf[9],d[1]); + d[7] = caml_call1(Uutf[10],d[1]); + return 0} + function stack_range(d) + {var _da_=d[9]; + if(_da_) + {var match=_da_[1][2],c=match[2],l=match[1]; + d[4] = l; + d[5] = c; + return epos(d)} + throw [0,Assert_failure,_Z_]} + function dpop(d) + {spos(d); + epos(d); + var _c__=d[9]; + if(_c__) + {var _c$_=_c__[2]; + return _c$_ + ?17732 <= _c$_[1][1] + ?(d[10] = 1,d[9] = _c$_,0) + :(d[10] = 0,d[9] = _c$_,0) + :(d[10] = 0,d[9] = 0,0)} + throw [0,Assert_failure,___]} + function k(d){return 3455931} + function ret(v,k,d){d[12] = k;return v} + function readc(k,d) + {var match=caml_call1(Uutf[6],d[1]); + if(typeof match === "number") + return 1006505782 <= match + ?ret(1006505782,function(_c9_){return readc(k,_c9_)},d) + :(d[8] = _b_,caml_call1(k,d)); + if(852405675 <= match[1]) + {var u=match[2]; + d[8] = caml_call1(Stdlib_uchar[10],u); + return caml_call1(k,d)} + var bs=match[2]; + d[8] = u_rep; + epos(d); + return ret([0,106380200,[0,732461442,bs]],k,d)} + function r_scomment(k,d) + {if(d[8] !== 10 && d[8] !== _b_) + {badd(d);return readc(function(_c8_){return r_scomment(k,_c8_)},d)} + epos(d); + function _c6_(_c7_){return readc(k,_c7_)} + return ret([0,-826170817,[0,83,buf(d)]],_c6_,d)} + function r_mcomment(closing,k$0,d) + {if(d[8] === _b_){epos(d);return ret(err_unclosed_comment,k,d)} + if(closing) + {if(d[8] === 47) + {epos(d); + var _cW_=function(_c5_){return readc(k$0,_c5_)}; + return ret([0,-826170817,[0,77,buf(d)]],_cW_,d)} + if(d[8] === 42) + {badd(d); + var _cX_=1; + return readc(function(_c4_){return r_mcomment(_cX_,k$0,_c4_)},d)} + baddc(d,u_times); + badd(d); + var _cY_=0; + return readc(function(_c3_){return r_mcomment(_cY_,k$0,_c3_)},d)} + if(d[8] === 42) + {var _cZ_=1; + return readc(function(_c2_){return r_mcomment(_cZ_,k$0,_c2_)},d)} + badd(d); + var _c0_=0; + return readc(function(_c1_){return r_mcomment(_c0_,k$0,_c1_)},d)} + function r_ws_uncut(k,d) + {return is_white(d[8]) + ?(epos(d), + badd(d), + readc(function(_cV_){return r_ws_uncut(k,_cV_)},d)) + :ret([0,-588596599,buf(d)],k,d)} + function r_white_uncut(k,d) + {if(is_white(d[8])) + {spos(d); + return r_ws_uncut(function(_cU_){return r_white_uncut(k,_cU_)},d)} + if(d[8] === 47) + {spos(d); + var k$0=function(_cT_){return r_white_uncut(k,_cT_)}; + return readc + (function(d) + {if(d[8] === 47) + return readc(function(_cS_){return r_scomment(k$0,_cS_)},d); + if(d[8] === 42) + {var _cQ_=0; + return readc + (function(_cR_){return r_mcomment(_cQ_,k$0,_cR_)},d)} + epos(d); + return ret(err_exp_comment,k$0,d)}, + d)} + return caml_call1(k,d)} + function r_ws(k,d) + {return is_white(d[8]) + ?readc(function(_cP_){return r_ws(k,_cP_)},d) + :caml_call1(k,d)} + function r_white(k,d){return d[3]?r_white_uncut(k,d):r_ws(k,d)} + function r_u_escape(hi,u,count,k,d) + {function error(err,k,d){baddc(d,u_rep);return ret(err,k,d)} + if(0 < count) + {var _cD_=d[8],_cx_=48 <= _cD_?1:0,_cy_=_cx_?_cD_ <= 57?1:0:_cx_; + if(_cy_) + var _cz_=_cy_; else - var parse_pos=caml_call5(Parse_pos[1],0,0,0,0,0); + {var _cA_=65 <= _cD_?1:0,_cB_=_cA_?_cD_ <= 70?1:0:_cA_; + if(_cB_) + var _cz_=_cB_; + else + var _cC_=97 <= _cD_?1:0,_cz_=_cC_?_cD_ <= 102?1:0:_cC_} + if(_cz_) + {var + _cE_=57 < d[8]?70 < d[8]?d[8] - 87 | 0:d[8] - 55 | 0:d[8] - 48 | 0, + u$0=(u * 16 | 0) + _cE_ | 0; + epos(d); + var _cF_=count - 1 | 0; + return readc + (function(_cO_){return r_u_escape(hi,u$0,_cF_,k,_cO_)},d)} + epos(d); + var _cG_=function(_cN_){return readc(k,_cN_)}; + return error + ([0, + 106380200, + [0, + 992790154, + [0,-542918501,caml_call1(Stdlib_uchar[8],d[8])]]], + _cG_, + d)} + if(hi) + {var hi$0=hi[1]; + if(56320 <= u && ! (57343 < u)) + {var u$1=((hi$0 & 1023) << 10 | u & 1023) + 65536 | 0; + baddc(d,u$1); + return caml_call1(k,d)} + return error([0,106380200,[0,992790154,[0,153884648,u]]],k,d)} + if(55296 <= u && ! (57343 < u)) + return 56319 < u + ?error([0,106380200,[0,992790154,[0,429931233,u]]],k,d) + :d[8] !== 92 + ?error(err_lone_hi(u),k,d) + :readc + (function(d) + {if(117 === d[8]) + {var _cH_=4,_cI_=0,_cJ_=[0,u]; + return readc + (function(_cM_){return r_u_escape(_cJ_,_cI_,_cH_,k,_cM_)},d)} + function _cK_(_cL_){return r_escape(k,_cL_)} + return error(err_lone_hi(u),_cK_,d)}, + d); + baddc(d,u); + return caml_call1(k,d)} + function r_escape(k,d) + {var _cq_=d[8]; + if(34 === _cq_){baddc(d,u_quot);return readc(k,d)} + if(92 <= _cq_) + {if(! (118 <= _cq_)) + {var switcher=_cq_ - 92 | 0; + switch(switcher) + {case 0:baddc(d,u_bslash);return readc(k,d); + case 6:baddc(d,8);return readc(k,d); + case 10:baddc(d,12);return readc(k,d); + case 18:baddc(d,u_nl);return readc(k,d); + case 22:baddc(d,13);return readc(k,d); + case 24:baddc(d,9);return readc(k,d); + case 25: + var _cs_=4,_ct_=0,_cu_=0; + return readc + (function(_cw_){return r_u_escape(_cu_,_ct_,_cs_,k,_cw_)},d) + }}} + else + if(47 === _cq_){baddc(d,u_slash);return readc(k,d)} + epos(d); + baddc(d,u_rep); + function _cr_(_cv_){return readc(k,_cv_)} + return ret + ([0, + 106380200, + [0,992790154,[0,508493173,caml_call1(Stdlib_uchar[8],_cq_)]]], + _cr_, + d)} + function r_string(k$0,d) + {if(d[8] === _b_){epos(d);return ret(err_unclosed_string,k,d)} + var _ch_=d[8],_ce_=_ch_ <= 31?1:0; + if(_ce_) + var _cf_=_ce_; + else + var _cg_=34 === _ch_?1:0,_cf_=_cg_ || (92 === _ch_?1:0); + if(_cf_) + {if(d[8] === 34){epos(d);return readc(k$0,d)} + if(d[8] === 92) + {var _ci_=function(_cp_){return r_string(k$0,_cp_)}; + return readc(function(_co_){return r_escape(_ci_,_co_)},d)} + epos(d); + baddc(d,u_rep); var - text_line=parse_pos[1], - text_char=parse_pos[2], - global_offset=parse_pos[3], - buf_pos=parse_pos[4], - pos=[0,text_line,text_char,global_offset], - state=caml_call3(T[1][1][8],[0,pos],_aP_,T[3]), - stack=T[1][2][1]; - if(len) - var x=len[1],len$0=x; + _cj_=function(_cn_){return r_string(k$0,_cn_)}, + _ck_=function(_cm_){return readc(_cj_,_cm_)}; + return ret + ([0,106380200,[0,-635137946,caml_call1(Stdlib_uchar[8],d[8])]], + _ck_, + d)} + badd(d); + return readc(function(_cl_){return r_string(k$0,_cl_)},d)} + function r_float(k,d) + {if(! is_val_sep(d[8]) && d[8] !== _b_) + {epos(d); + badd(d); + return readc(function(_cd_){return r_float(k,_cd_)},d)} + var s=buf(d); + try + {var + _cb_= + ret + ([0,-633954146,[0,365180284,runtime.caml_float_of_string(s)]],k,d); + return _cb_} + catch(_cc_) + {_cc_ = caml_wrap_exception(_cc_); + if(_cc_[1] === Stdlib[7])return ret(err_number(s),k,d); + throw _cc_}} + function r_literal(k,d) + {if(! is_val_sep(d[8]) && d[8] !== _b_) + {epos(d); + badd(d); + return readc(function(_ca_){return r_literal(k,_ca_)},d)} + var s=buf(d); + return caml_string_notequal(s,cst_false) + ?caml_string_notequal(s,cst_null) + ?caml_string_notequal(s,cst_true) + ?ret([0,106380200,[0,-67383738,s]],k,d) + :ret(_$_,k,d) + :ret(_aa_,k,d) + :ret(_ab_,k,d)} + function r_value(err,k,d) + {var _b5_=d[8],switch$0=0; + if(103 <= _b5_) + {var switcher=_b5_ - 110 | 0; + if(6 < switcher >>> 0) + {if(13 === switcher) + {spos(d); + epos(d); + d[11] = 1; + d[10] = 1; + var _b6_=d[9]; + d[9] = [0,[0,17732,dpos(d)],_b6_]; + return ret(_ac_,function(_b9_){return readc(k,_b9_)},d)}} else - var len$0=caml_call1(T[4],str) - buf_pos | 0; - return run_feed_loop(state,stack,buf_pos,len$0,str)} - return [0,parse]} - var - include$3=Parser_output[1], - Impl=include$3[1], - Found$1=include$3[2], - raise_found$1=include$3[3], - length=caml_ml_string_length; - function unsafe_feed_loop(state,stack,str,max_pos,pos) - {var stack$0=stack,pos$0=pos; - for(;;) - {if(pos$0 <= max_pos) - {var - stack$1= - caml_call3 - (Impl[3],state,caml_string_unsafe_get(str,pos$0),stack$0), - pos$1=pos$0 + 1 | 0, - stack$0=stack$1, - pos$0=pos$1; - continue} - return stack$0}} - var - String_single_sexp= - Make_parser([0,Impl,Found$1,raise_found$1,length,unsafe_feed_loop]), - parse_str=String_single_sexp[1], - parse=String_single_sexp[1], - include$4=Parser_output[2], - Impl$0=include$4[1], - Found$2=include$4[2], - raise_found$2=include$4[3], - length$0=caml_ml_string_length; - function unsafe_feed_loop$0(state,stack,str,max_pos,pos) - {var stack$0=stack,pos$0=pos; - for(;;) - {if(pos$0 <= max_pos) - {var - stack$1= - caml_call3 - (Impl$0[3],state,caml_string_unsafe_get(str,pos$0),stack$0), - pos$1=pos$0 + 1 | 0, - stack$0=stack$1, - pos$0=pos$1; - continue} - return stack$0}} - var - String_single_annot= - Make_parser - ([0,Impl$0,Found$2,raise_found$2,length$0,unsafe_feed_loop$0]), - parse_str_annot=String_single_annot[1], - include$5=Parser_output[1], - Impl$1=include$5[1], - Found$3=include$5[2], - raise_found$3=include$5[3], - length$1=caml_ba_dim_1; - function unsafe_feed_loop$1(state,stack,str,max_pos,pos) - {var stack$0=stack,pos$0=pos; - for(;;) - {if(pos$0 <= max_pos) - {var - _dT_=caml_ba_get_1(str,pos$0), - stack$1=caml_call3(Impl$1[3],state,_dT_,stack$0), - pos$1=pos$0 + 1 | 0, - stack$0=stack$1, - pos$0=pos$1; - continue} - return stack$0}} - var - Bigstring_single_sexp= - Make_parser - ([0,Impl$1,Found$3,raise_found$3,length$1,unsafe_feed_loop$1]), - parse_bigstring=Bigstring_single_sexp[1], - include$6=Parser_output[2], - Impl$2=include$6[1], - Found$4=include$6[2], - raise_found$4=include$6[3], - length$2=caml_ba_dim_1; - function unsafe_feed_loop$2(state,stack,str,max_pos,pos) - {var stack$0=stack,pos$0=pos; - for(;;) - {if(pos$0 <= max_pos) - {var - _dS_=caml_ba_get_1(str,pos$0), - stack$1=caml_call3(Impl$2[3],state,_dS_,stack$0), - pos$1=pos$0 + 1 | 0, - stack$0=stack$1, - pos$0=pos$1; - continue} - return stack$0}} - var - Bigstring_single_annot= - Make_parser - ([0,Impl$2,Found$4,raise_found$4,length$2,unsafe_feed_loop$2]), - _aQ_=Bigstring_single_annot[1]; - function mk_this_parse(parse_pos,my_parse) - {return function(pos,len,str) - {if(parse_pos) - {var parse_pos$0=parse_pos[1]; - parse_pos$0[4] = pos; - var parse_pos$1=parse_pos$0} - else - var parse_pos$1=caml_call5(Parse_pos[1],0,0,[0,pos],0,0); - return caml_call3(my_parse,[0,parse_pos$1],[0,len],str)}} - function feed_end_of_input(this_parse,ws_buf) - {var match=caml_call3(this_parse,0,1,ws_buf); - if(0 === match[0]){var sexp=match[1];return [0,sexp]} - var cont_state=match[1]; - return [1,cont_state]} - function gen_input_sexp(my_parse,parse_pos,ic) - {var buf=caml_create_bytes(1); - function loop(this_parse) - {var this_parse$0=this_parse; + if(4 < (switcher - 1 | 0) >>> 0)switch$0 = 1} + else + {if(34 === _b5_) + {spos(d); + var + _b7_= + function(d){return ret([0,-633954146,[0,-976970511,buf(d)]],k,d)}; + return readc(function(_b$_){return r_string(_b7_,_b$_)},d)} + if(91 === _b5_) + {spos(d); + epos(d); + d[11] = 1; + var _b8_=d[9]; + d[9] = [0,[0,14610,dpos(d)],_b8_]; + return ret(_ad_,function(_b__){return readc(k,_b__)},d)} + if(102 <= _b5_)switch$0 = 1} + if(switch$0){spos(d);return r_literal(k,d)} + var _b3_=48 <= _b5_?1:0,_b4_=_b3_?_b5_ <= 57?1:0:_b3_; + if(! _b4_ && _b5_ !== 45)return caml_call2(err,k,d); + spos(d); + return r_float(k,d)} + function discard_to(c1,c2,err,k,d) + {if(d[8] !== c1 && d[8] !== c2 && d[8] !== _b_) + {epos(d); + return readc(function(_b2_){return discard_to(c1,c2,err,k,_b2_)},d)} + return ret(err,k,d)} + function nxmem(err,k,d) + {spos(d);d[10] = 1;return discard_to(u_comma,u_rbrace,err,k,d)} + function k$0(d) + {var _bG_=d[9]; + return _bG_ + ?17732 <= _bG_[1][1] + ?d[10] + ?r_white + (function(d) + {function r_name(err,k,d) + {if(d[8] !== 34)return nxmem(err,k,d); + spos(d); + function _bL_(d) + {return ret([0,-633954146,[0,869834347,buf(d)]],k,d)} + return readc(function(_bM_){return r_string(_bL_,_bM_)},d)} + var last_start=d[11]; + d[11] = 0; + d[10] = 0; + if(d[8] === _b_) + {stack_range(d);return ret(err_unclosed_obj,k,d)} + if(d[8] === 125) + {dpop(d); + return ret(_af_,function(_bK_){return readc(k$0,_bK_)},d)} + if(last_start)return r_name(err_exp_obj_fst,k$0,d); + if(d[8] === 44) + {var + _bH_= + function(_bJ_){return r_name(err_exp_name,k$0,_bJ_)}; + return readc(function(_bI_){return r_white(_bH_,_bI_)},d)} + return nxmem(err_exp_obj_nxt,k$0,d)}, + d) + :r_white + (function(d) + {d[10] = 1; + if(d[8] === 58) + {var + _bN_= + function(_bR_,_bS_){return nxmem(err_exp_value,_bR_,_bS_)}, + _bO_=function(_bQ_){return r_value(_bN_,k$0,_bQ_)}; + return readc(function(_bP_){return r_white(_bO_,_bP_)},d)} + return nxmem(err_exp_nsep,k$0,d)}, + d) + :r_white + (function(d) + {function nxval(err,k,d) + {spos(d);return discard_to(u_comma,u_rbrack,err,k,d)} + var last_start=d[11]; + d[11] = 0; + if(d[8] === _b_) + {stack_range(d);return ret(err_unclosed_arr,k,d)} + if(d[8] === 93) + {dpop(d); + return ret(_ae_,function(_b1_){return readc(k$0,_b1_)},d)} + if(last_start) + return r_value + (function(_bZ_,_b0_) + {return nxval(err_exp_arr_fst,_bZ_,_b0_)}, + k$0, + d); + if(d[8] === 44) + {var + _bT_= + function(_bX_,_bY_){return nxval(err_exp_value,_bX_,_bY_)}, + _bU_=function(_bW_){return r_value(_bT_,k$0,_bW_)}; + return readc(function(_bV_){return r_white(_bU_,_bV_)},d)} + return nxval(err_exp_arr_nxt,k$0,d)}, + d) + :r_white + (function(d) + {return d[8] === _b_ + ?ret(3455931,k,d) + :(spos(d),discard_to(_b_,_b_,err_exp_eoi,k,d))}, + d)} + function discard_to_white(err,k,d) + {if(! is_white(d[8]) && d[8] !== _b_) + {epos(d); + return readc(function(_bF_){return discard_to_white(err,k,_bF_)},d)} + return ret(err,k,d)} + function r_json(k,d) + {function err(k,d) + {spos(d); + function _bC_(_bE_){return r_json(k,_bE_)} + return discard_to_white + (err_exp_json,function(_bD_){return r_white(_bC_,_bD_)},d)} + return d[8] !== _b_?r_value(err,k,d):ret(err_exp_json,k,d)} + function r_start(d) + {function _bz_(_bB_){return r_json(k$0,_bB_)} + function k(_bA_){return r_white(_bz_,_bA_)} + return readc + (function(d) + {return caml_call1(Uutf[13],d[1])?ret(err_bom,k,d):k(d)}, + d)} + var nln=[0,605782321,caml_call1(Stdlib_uchar[9],10)]; + function decoder(encoding,src) + {var u=caml_call3(Uutf[5],[0,nln],encoding,src); + return [0, + u, + caml_call1(Stdlib_buffer[1],1024), + 0, + 1, + 0, + 1, + 0, + ux_soi, + 0, + 0, + 0, + r_start]} + function decode_uncut(d){d[3] = 1;return caml_call1(d[12],d)} + function decode(d) + {d[3] = 0; + var v=caml_call1(d[12],d); + if(typeof v !== "number") + {var _by_=v[1]; + if(-633954146 !== _by_ && ! (106380200 <= _by_)) + throw [0,Assert_failure,_ag_]} + return v} + function decoder_src(d){return caml_call1(Uutf[14],d[1])} + function decoded_range(d){return [0,[0,d[4],d[5]],[0,d[6],d[7]]]} + function decoder_encoding(d) + {var enc=caml_call1(Uutf[7],d[1]); + if(338302576 <= enc && ! (684370880 <= enc)) + throw [0,Assert_failure,_ah_]; + return enc} + function invalid_arg(fmt) + {var + b=caml_call1(Stdlib_buffer[1],20), + ppf=caml_call1(Stdlib_format[107],b); + function k(ppf) + {caml_call2(Stdlib_format[36],ppf,0); + var _bx_=caml_call1(Stdlib_buffer[2],b); + return caml_call1(Stdlib[1],_bx_)} + return caml_call3(Stdlib_format[130],k,ppf,fmt)} + function expect(e,v){return caml_call3(invalid_arg(_aj_),pp_decode,v,e)} + function o_rem(e){return (e[5] - e[4] | 0) + 1 | 0} + function dst(e,s,j,l) + {var _bu_=j < 0?1:0; + if(_bu_) + var _bv_=_bu_; + else + var + _bw_=l < 0?1:0, + _bv_=_bw_ || (runtime.caml_ml_bytes_length(s) < (j + l | 0)?1:0); + if(_bv_)caml_call2(invalid_arg(_ai_),j,l); + e[3] = s; + e[4] = j; + e[5] = (j + l | 0) - 1 | 0; + return 0} + function flush(k,e) + {var _bt_=e[1]; + if(typeof _bt_ === "number") + {e[11] + = + function(e,v) + {return 1006505782 === v?caml_call1(k,e):expect(cst_Await,v)}; + return 939392865} + if(438511779 <= _bt_[1]) + {var oc=_bt_[2]; + caml_call4(Stdlib[68],oc,e[3],0,e[4]); + e[4] = 0; + return caml_call1(k,e)} + var b=_bt_[2],o=caml_call1(Stdlib_bytes[42],e[3]); + caml_call4(Stdlib_buffer[16],b,o,0,e[4]); + e[4] = 0; + return caml_call1(k,e)} + function writeb(b,k,e) + {return e[5] < e[4] + ?flush(function(_bs_){return writeb(b,k,_bs_)},e) + :(unsafe_set_byte(e[3],e[4],b), + e[4] + = + e[4] + + + 1 + | + 0, + caml_call1(k,e))} + function writes(s,j,l,k,e) + {var rem=o_rem(e); + if(l <= rem) + {caml_call1(unsafe_blit(s,j,e[3],e[4]),l); + e[4] = e[4] + l | 0; + return caml_call1(k,e)} + caml_call1(unsafe_blit(s,j,e[3],e[4]),rem); + e[4] = e[4] + rem | 0; + var _bp_=l - rem | 0,_bq_=j + rem | 0; + return flush(function(_br_){return writes(s,_bq_,_bp_,k,_br_)},e)} + function writebuf(j,l,k,e) + {var rem=o_rem(e); + if(l <= rem) + {caml_call5(Stdlib_buffer[5],e[6],j,e[3],e[4],l); + e[4] = e[4] + l | 0; + return caml_call1(k,e)} + caml_call5(Stdlib_buffer[5],e[6],j,e[3],e[4],rem); + e[4] = e[4] + rem | 0; + var _bm_=l - rem | 0,_bn_=j + rem | 0; + return flush(function(_bo_){return writebuf(_bn_,_bm_,k,_bo_)},e)} + function w_indent(k,e) + {function loop(indent,k,e) + {function spaces(e,indent) + {var max=(e[4] + indent | 0) - 1 | 0,_bk_=e[4]; + if(! (max < _bk_)) + {var j=_bk_; + for(;;) + {unsafe_set_byte(e[3],j,u_sp); + var _bl_=j + 1 | 0; + if(max !== j){var j=_bl_;continue} + break}} + e[4] = max + 1 | 0; + return 0} + var rem=o_rem(e); + if(rem < indent) + {spaces(e,rem); + var _bi_=indent - rem | 0; + return flush(function(_bj_){return loop(_bi_,k,_bj_)},e)} + spaces(e,indent); + return caml_call1(k,e)} + return loop(e[8] * 2 | 0,k,e)} + function w_json_string(s,k,e) + {function loop(s,j,pos,max,k,e) + {var pos$0=pos; for(;;) - {try - {var c=caml_call1(Stdlib[82],ic)} - catch(_dR_) - {_dR_ = caml_wrap_exception(_dR_); - if(_dR_ === Stdlib[12]) - {var match=feed_end_of_input(this_parse$0,cst$0); - if(0 === match[0]){var sexp=match[1];return sexp} - throw Stdlib[12]} - throw _dR_; - var _dQ_=_dR_} - caml_bytes_set(buf,0,c); + {if(max < pos$0) + return max < j?caml_call1(k,e):writes(s,j,pos$0 - j | 0,k,e); var - match$0= - caml_call3(this_parse$0,0,1,caml_call1(Stdlib_bytes[42],buf)); - if(0 === match$0[0]){var sexp$0=match$0[1];return sexp$0} - var this_parse$1=match$0[2],this_parse$0=this_parse$1; - continue}} - return loop(mk_this_parse(parse_pos,my_parse))} - function input_sexp(parse_pos,ic) - {return gen_input_sexp(parse,parse_pos,ic)} - function gen_input_rev_sexps(my_parse,ws_buf,parse_pos,opt,ic) - {if(opt)var sth=opt[1],buf=sth;else var buf=caml_create_bytes(8192); - var - rev_sexps_ref=[0,0], - buf_len=caml_ml_bytes_length(buf), - len$3=caml_call4(Stdlib[84],ic,buf,0,buf_len), - this_parse$2=mk_this_parse(parse_pos,my_parse), - this_parse=this_parse$2, - pos=0, - len=len$3; - for(;;) - {if(0 < len) - {var - match= - caml_call3(this_parse,pos,len,caml_call1(Stdlib_bytes[42],buf)); - if(0 === match[0]) - {var parse_pos$0=match[2],sexp=match[1],buf_pos=parse_pos$0[4]; - rev_sexps_ref[1] = [0,sexp,rev_sexps_ref[1]]; - var - n_parsed=buf_pos - pos | 0, - this_parse$0=mk_this_parse([0,parse_pos$0],my_parse); - if(n_parsed === len) - {var - len$0=caml_call4(Stdlib[84],ic,buf,0,buf_len), - this_parse=this_parse$0, - pos=0, - len=len$0; - continue} - var - len$1=len - n_parsed | 0, - this_parse=this_parse$0, - pos=buf_pos, - len=len$1; - continue} + next=pos$0 + 1 | 0, + escape$0= + function(pos,next) + {function escape(esc) + {function _bd_(_bh_){return loop(s,next,next,max,k,_bh_)} + var _be_=2,_bf_=0; + return writes + (s, + j, + pos - j | 0, + function(_bg_){return writes(esc,_bf_,_be_,_bd_,_bg_)}, + e)} + return escape}, + escape=escape$0(pos$0,next), + c=runtime.caml_string_unsafe_get(s,pos$0); + if(10 === c)return escape(cst_n); + if(34 === c)return escape(cst); + if(92 === c)return escape(cst$0); + if(31 < c){var pos$0=next;continue} var - this_parse$1=match[2], - len$2=caml_call4(Stdlib[84],ic,buf,0,buf_len), - this_parse=this_parse$1, - pos=0, - len=len$2; - continue} - var match$0=feed_end_of_input(this_parse,ws_buf); - if(0 === match$0[0]) - {var sexp$0=match$0[1];return [0,sexp$0,rev_sexps_ref[1]]} - var _dN_=match$0[1]; - if(0 === _dN_)return rev_sexps_ref[1]; + hex=function(d){return 10 <= d?65 + (d - 10 | 0) | 0:48 + d | 0}, + _a4_=function(_bc_){return loop(s,next,next,max,k,_bc_)}, + _a5_=hex(c & 15), + _a6_=function(_bb_){return writeb(_a5_,_a4_,_bb_)}, + _a7_=hex(c >>> 4 | 0), + _a8_=function(_ba_){return writeb(_a7_,_a6_,_ba_)}, + _a9_=4, + _a__=0; + return writes + (s, + j, + pos$0 - j | 0, + function(_a$_){return writes(cst_u00,_a__,_a9_,_a8_,_a$_)}, + e)}} + function _aY_(_a3_){return writeb(u_quot,k,_a3_)} + var _aZ_=caml_ml_string_length(s) - 1 | 0,_a0_=0,_a1_=0; + return writeb + (u_quot, + function(_a2_){return loop(s,_a1_,_a0_,_aZ_,_aY_,_a2_)}, + e)} + function w_name(n,k,e) + {e[10] = 0; + e[9] = 0; + return w_json_string(n,function(_aX_){return writeb(u_colon,k,_aX_)},e)} + function w_value(in_obj,l,k,e) + {if(typeof l === "number") + {if(17732 <= l) + return 870828711 <= l + ?(e[10] = 0,e[9] = in_obj,writes(cst_null$0,0,4,k,e)) + :(e[10] + = + 1, + e[9] + = + 1, + e[8] + = + e[8] + + + 1 + | + 0, + e[7] + = + [0,17732,e[7]], + writeb(u_lbrace,k,e)); + if(14610 === l) + {e[10] = 1; + e[9] = 0; + e[8] = e[8] + 1 | 0; + e[7] = [0,14610,e[7]]; + return writeb(u_lbrack,k,e)}} + else + {var _aW_=l[1]; + if(! (737456202 <= _aW_)) + {if(365180284 <= _aW_) + {var f=l[2]; + e[10] = 0; + e[9] = in_obj; + caml_call1(Stdlib_buffer[8],e[6]); + caml_call3(Stdlib_printf[5],e[6],_ak_,f); + return writebuf(0,caml_call1(Stdlib_buffer[7],e[6]),k,e)} + var s=l[2]; + e[10] = 0; + e[9] = in_obj; + return w_json_string(s,k,e)} + if(! (869834347 <= _aW_)) + {var b=l[2]; + e[10] = 0; + e[9] = in_obj; + return b?writes(cst_true$0,0,4,k,e):writes(cst_false$0,0,5,k,e)}} + return in_obj + ?expect(cst_any_Lexeme_but_Name_Oe_or_,[0,-633954146,l]) + :expect(cst_any_Lexeme_but_Name_or_Oe,[0,-633954146,l])} + function encode(k,e,v) + {if(typeof v === "number") + {if(1006505782 <= v)return 17724; + if(0 === e[7])return flush(k,e); var - _dO_=caml_call1(Cont_state[1],_dN_), - _dP_= - caml_call2 - (Stdlib[28], - cst_Sexplib_Sexp_input_rev_sexps_reached_EOF_while_in_state, - _dO_); - return caml_call1(Stdlib[2],_dP_)}} - function input_rev_sexps(parse_pos,buf,ic) - {return gen_input_rev_sexps(parse,cst$1,parse_pos,buf,ic)} - function input_sexps(parse_pos,buf,ic) - {var _dM_=input_rev_sexps(parse_pos,buf,ic); - return caml_call1(Stdlib_list[9],_dM_)} - function of_string_bigstring(loc,my_parse,ws_buf,get_len,get_sub,str) - {var match=caml_call3(my_parse,0,0,str); - if(0 === match[0]) + lstart=caml_call1(Stdlib_list[5],e[7]), + _ap_=14610 === lstart?cst_Lexeme_Ae:cst_Lexeme_Oe; + return expect(_ap_,v)} + var _as_=v[1]; + if(-633954146 === _as_) + {var l=v[2]; + if(0 === e[7])return expect(cst_End,[0,-633954146,l]); + var + epop= + function(e) + {e[10] = 0; + e[8] = e[8] - 1 | 0; + e[7] = caml_call1(Stdlib_list[6],e[7]); + var _aV_=e[7]; + if(_aV_ && 17732 === _aV_[1]){e[9] = 1;return 0} + e[9] = 0; + return 0}, + match=caml_call1(Stdlib_list[5],e[7]); + if(17732 <= match) + {if(e[9]) + {if(typeof l === "number") + {if(17718 === l) + {if(! e[2] && ! e[10]) + {epop(e); + var _aq_=function(_aO_){return writeb(u_rbrace,k,_aO_)}; + return writeb + (u_nl,function(_aN_){return w_indent(_aq_,_aN_)},e)} + epop(e); + return writeb(u_rbrace,k,e)}} + else + if(869834347 === l[1]) + {var + n=l[2], + name= + function(n,k,e) + {if(e[2])return w_name(n,k,e); + function _aQ_(_aU_){return writeb(u_sp,k,_aU_)} + function _aR_(_aT_){return w_name(n,_aQ_,_aT_)} + return writeb + (u_nl,function(_aS_){return w_indent(_aR_,_aS_)},e)}; + return e[10] + ?name(n,k,e) + :writeb(u_comma,function(_aP_){return name(n,k,_aP_)},e)} + return expect(cst_Lexeme_Name_Oe,[0,-633954146,l])} + return w_value(1,l,k,e)} + if(14596 === l) + {if(! e[2] && ! e[10]) + {epop(e); + var _ar_=function(_aM_){return writeb(u_rbrack,k,_aM_)}; + return writeb(u_nl,function(_aL_){return w_indent(_ar_,_aL_)},e)} + epop(e); + return writeb(u_rbrack,k,e)} + var + value= + function(l,k,e) + {if(e[2])return w_value(0,l,k,e); + var _aH_=0; + function _aI_(_aK_){return w_value(_aH_,l,k,_aK_)} + return writeb(u_nl,function(_aJ_){return w_indent(_aI_,_aJ_)},e)}; + return e[10] + ?value(l,k,e) + :writeb(u_comma,function(_aG_){return value(l,k,_aG_)},e)} + if(-588596599 <= _as_) + {var w=v[2];return writes(w,0,caml_ml_string_length(w),k,e)} + var _at_=v[2]; + if(83 <= _at_[1]) {var - parse_pos=match[2], - sexp=match[1], - match$0=caml_call3(my_parse,[0,parse_pos],0,str); - if(0 === match$0[0]) - {var _dI_=caml_call2(Stdlib_format[126],_aR_,loc); - return caml_call1(Stdlib[2],_dI_)} - if(0 === match$0[1])return sexp; - var _dJ_=caml_call3(Stdlib_format[126],_aS_,loc,parse_pos[4]); - return caml_call1(Stdlib[2],_dJ_)} - var this_parse=match[2],match$1=feed_end_of_input(this_parse,ws_buf); - if(0 === match$1[0]){var sexp$0=match$1[1];return sexp$0} - var - cont_state=match$1[1], - cont_state_str=caml_call1(Cont_state[1],cont_state), - _dK_=caml_call3(get_sub,str,0,caml_call1(get_len,str)), - _dL_=caml_call4(Stdlib_format[126],_aT_,loc,cont_state_str,_dK_); - return caml_call1(Stdlib[2],_dL_)} - function of_string(str) - {return of_string_bigstring - (cst_of_string, - parse, - cst$2, - caml_ml_string_length, - Stdlib_string[4], - str)} - function get_bstr_sub_str(bstr,pos,len) - {var str=caml_create_bytes(len),_dG_=len - 1 | 0,_dF_=0; - if(! (_dG_ < 0)) - {var i=_dF_; - for(;;) - {caml_bytes_set(str,i,caml_ba_get_1(bstr,pos + i | 0)); - var _dH_=i + 1 | 0; - if(_dG_ !== i){var i=_dH_;continue} - break}} - return caml_call1(Stdlib_bytes[42],str)} - var - bstr_ws_buf= - caml_call3 - (Stdlib_bigarray[19][1],Stdlib_bigarray[13],Stdlib_bigarray[15],1); - caml_ba_set_1(bstr_ws_buf,0,32); - function of_bigstring(bstr) - {return of_string_bigstring - (cst_of_bigstring, - parse_bigstring, - bstr_ws_buf, - caml_ba_dim_1, - get_bstr_sub_str, - bstr)} - function gen_load_rev_sexps(input_rev_sexps,buf,file) - {var ic=caml_call1(Stdlib[79],file); - try - {var sexps=caml_call3(input_rev_sexps,0,buf,ic); - caml_call1(Stdlib[93],ic); - return sexps} - catch(exc) - {exc = caml_wrap_exception(exc);caml_call1(Stdlib[94],ic);throw exc}} - function load_rev_sexps(buf,file) - {return gen_load_rev_sexps(input_rev_sexps,buf,file)} - function load_sexps(buf,file) - {var _dE_=load_rev_sexps(buf,file); - return caml_call1(Stdlib_list[9],_dE_)} - function gen_load_sexp(my_parse,opt,_dy_,file) - {if(opt)var sth=opt[1],strict=sth;else var strict=1; - if(_dy_) - var sth$0=_dy_[1],buf=sth$0; + c=_at_[2], + _au_=function(_aF_){return writeb(u_nl,k,_aF_)}, + _av_=caml_ml_string_length(c), + _aw_=0; + return writes + (cst$1, + 0, + 2, + function(_aE_){return writes(c,_aw_,_av_,_au_,_aE_)}, + e)} + var c$0=_at_[2],_ax_=2,_ay_=0; + function _az_(_aD_){return writes(cst$2,_ay_,_ax_,k,_aD_)} + var _aA_=caml_ml_string_length(c$0),_aB_=0; + return writes + (cst$3, + 0, + 2, + function(_aC_){return writes(c$0,_aB_,_aA_,_az_,_aC_)}, + e)} + function encode_loop(e) + {e[11] = function(_an_,_ao_){return encode(encode_loop,_an_,_ao_)}; + return 17724} + function encode_json(e,v) + {if(typeof v === "number") + {if(1006505782 <= v)return 17724} else - var buf=caml_create_bytes(8192); - var buf_len=caml_ml_bytes_length(buf),ic=caml_call1(Stdlib[79],file); - function loop(this_parse) - {var this_parse$0=this_parse; - for(;;) - {var len=caml_call4(Stdlib[84],ic,buf,0,buf_len); - if(0 === len) - {var match=feed_end_of_input(this_parse$0,cst$3); - if(0 === match[0]){var sexp=match[1];return sexp} - var - cont_state=match[1], - _dz_=caml_call1(Cont_state[1],cont_state), - _dA_= - caml_call4(Stdlib_format[126],_aU_,gen_load_sexp_loc,file,_dz_); - return caml_call1(Stdlib[2],_dA_)} - var - match$0= - caml_call3(this_parse$0,0,len,caml_call1(Stdlib_bytes[42],buf)); - if(0 === match$0[0]) - {var parse_pos=match$0[2],sexp$0=match$0[1],buf_pos=parse_pos[4]; - if(strict) - {var - this_parse$3=mk_this_parse([0,parse_pos],my_parse), - len$2=len - buf_pos | 0, - this_parse$1=this_parse$3, - pos=buf_pos, - len$0=len$2; - for(;;) - {var - match$1= - caml_call3 - (this_parse$1,pos,len$0,caml_call1(Stdlib_bytes[42],buf)); - if(0 === match$1[0]) - {var - _dB_= - caml_call3(Stdlib_format[126],_aV_,gen_load_sexp_loc,file); - return caml_call1(Stdlib[2],_dB_)} - var - this_parse$2=match$1[2], - cont_state$0=match$1[1], - len$1=caml_call4(Stdlib[84],ic,buf,0,buf_len); - if(0 < len$1) - {var this_parse$1=this_parse$2,pos=0,len$0=len$1;continue} - if(0 === cont_state$0)return sexp$0; - var - _dC_=caml_call1(Cont_state[1],cont_state$0), - _dD_= - caml_call5 - (Stdlib_format[126], - _aW_, - gen_load_sexp_loc, - cst_additional_incomplete_data, - _dC_, - file); - return caml_call1(Stdlib[2],_dD_)}} - return sexp$0} - var this_parse$4=match$0[2],this_parse$0=this_parse$4; - continue}} - try - {var sexp=loop(mk_this_parse(0,my_parse)); - caml_call1(Stdlib[93],ic); - return sexp} - catch(exc) - {exc = caml_wrap_exception(exc);caml_call1(Stdlib[94],ic);throw exc}} - function load_sexp(strict,buf,file) - {return gen_load_sexp(parse,strict,buf,file)} + {if(-633954146 !== v[1]) + return encode(function(e){e[11] = encode_json;return 17724},e,v); + var _al_=v[2],switch$0=0; + if(typeof _al_ === "number") + {if(14610 !== _al_ && 17732 !== _al_ && 870828711 !== _al_) + switch$0 = 1} + else + {var _am_=_al_[1]; + if(-976970511 !== _am_ && 365180284 !== _am_ && 737456202 !== _am_) + switch$0 = 1} + if(! switch$0)return w_value(0,_al_,encode_loop,e)} + return expect(cst_Lexeme_Null_Bool_Float_Str,v)} + function encoder(opt,dst) + {if(opt)var sth=opt[1],minify=sth;else var minify=1; + if(typeof dst === "number") + var o=Stdlib_bytes[3],o_pos=1,o_max=0; + else + var o$0=runtime.caml_create_bytes(65536),o=o$0,o_pos=0,o_max=65535; + return [0, + dst, + minify, + o, + o_pos, + o_max, + caml_call1(Stdlib_buffer[1],30), + 0, + 0, + 0, + 0, + encode_json]} + function encode$0(e,v){return caml_call2(e[11],e,v)} + function encoder_dst(e){return e[1]} + function encoder_minify(e){return e[2]} + function src(d){return caml_call1(Uutf[21][1],d[1])} + var Manual=[0,src,dst,o_rem]; + function encode$1(e,v){return caml_call2(e[11],e,v)} var - Conv_exn$0=Annot[1], - get_sexp$0=Annot[2], - get_range$0=Annot[3], - sexp_of_conv$0=Annot[4], - Annot_sexp$0=Annot[5], - find_sexp$0=Annot[6]; - function input_rev_sexps$0(parse_pos,buf,ic) - {return gen_input_rev_sexps(parse_str_annot,cst$4,parse_pos,buf,ic)} - function input_sexp$0(parse_pos,ic) - {return gen_input_sexp(parse_str_annot,parse_pos,ic)} - function input_sexps$0(parse_pos,buf,ic) - {var _dx_=input_rev_sexps$0(parse_pos,buf,ic); - return caml_call1(Stdlib_list[9],_dx_)} - function of_string$0(str) - {return of_string_bigstring - (cst_Annotated_of_string, - parse_str_annot, - cst$5, - caml_ml_string_length, - Stdlib_string[4], - str)} - function of_bigstring$0(bstr) - {return of_string_bigstring - (cst_Annotated_of_bigstring, - _aQ_, - bstr_ws_buf, - caml_ba_dim_1, - get_bstr_sub_str, - bstr)} - function load_rev_sexps$0(buf,file) - {return gen_load_rev_sexps(input_rev_sexps$0,buf,file)} - function load_sexps$0(buf,file) - {var _dw_=load_rev_sexps$0(buf,file); - return caml_call1(Stdlib_list[9],_dw_)} - function load_sexp$0(strict,buf,file) - {return gen_load_sexp(parse_str_annot,strict,buf,file)} - function conv(f,annot_sexp) - {var sexp=caml_call1(get_sexp$0,annot_sexp); - try - {var _dv_=[0,1025039613,caml_call1(f,sexp)];return _dv_} - catch(e) - {e = caml_wrap_exception(e); - if(e[1] === Of_sexp_error) - {var - bad_sexp=e[3], - exc=e[2], - match=caml_call2(find_sexp$0,annot_sexp,bad_sexp); - if(match) - {var bad_annot_sexp=match[1]; - return [0,106380200,[0,exc,bad_annot_sexp]]} - throw e} - throw e}} - function get_conv_exn(file,exc,annot_sexp) - {var - range=caml_call1(get_range$0,annot_sexp), - match=range[1], - col=match[2], - line=match[1], - loc=caml_call4(Stdlib_format[126],_aX_,file,line,col), - _du_=caml_call1(get_sexp$0,annot_sexp); - return [0,Of_sexp_error,[0,Annot[1],loc,exc],_du_]} + Uncut=[0,decode_uncut,pp_decode,encode$1], + Jsonm= + [0, + pp_lexeme, + pp_error, + decoder, + decode, + decoded_range, + decoder_encoding, + decoder_src, + encoder, + encode$0, + encoder_dst, + encoder_minify, + Manual, + Uncut]; + runtime.caml_register_global(108,Jsonm,"Jsonm"); + return} + (function(){return this}())); + + +//# 1 "../../.js/bigarray-compat/bigarray_compat.cma.js" +(function(joo_global_object) + {"use strict"; var - Annotated= + runtime=joo_global_object.jsoo_runtime, + global_data=runtime.caml_get_global_data(), + Stdlib_bigarray=global_data.Stdlib__bigarray, + float32=Stdlib_bigarray[1], + float64=Stdlib_bigarray[2], + complex32=Stdlib_bigarray[3], + complex64=Stdlib_bigarray[4], + int8_signed=Stdlib_bigarray[5], + int8_unsigned=Stdlib_bigarray[6], + int16_signed=Stdlib_bigarray[7], + int16_unsigned=Stdlib_bigarray[8], + int$0=Stdlib_bigarray[9], + int32=Stdlib_bigarray[10], + int64=Stdlib_bigarray[11], + nativeint=Stdlib_bigarray[12], + char$0=Stdlib_bigarray[13], + kind_size_in_bytes=Stdlib_bigarray[14], + c_layout=Stdlib_bigarray[15], + fortran_layout=Stdlib_bigarray[16], + Genarray=Stdlib_bigarray[17], + Array0=Stdlib_bigarray[18], + Array1=Stdlib_bigarray[19], + Array2=Stdlib_bigarray[20], + Array3=Stdlib_bigarray[21], + array0_of_genarray=Stdlib_bigarray[22], + array1_of_genarray=Stdlib_bigarray[23], + array2_of_genarray=Stdlib_bigarray[24], + array3_of_genarray=Stdlib_bigarray[25], + reshape=Stdlib_bigarray[26], + reshape_0=Stdlib_bigarray[27], + reshape_1=Stdlib_bigarray[28], + reshape_2=Stdlib_bigarray[29], + reshape_3=Stdlib_bigarray[30], + Bigarray_compat= [0, - Conv_exn$0, - get_sexp$0, - get_range$0, - sexp_of_conv$0, - Annot_sexp$0, - find_sexp$0, - parse_str_annot, - _aQ_, - input_rev_sexps$0, - input_sexp$0, - input_sexps$0, - of_string$0, - of_bigstring$0, - load_rev_sexps$0, - load_sexps$0, - load_sexp$0, - conv, - get_conv_exn]; - function load_sexp_conv(opt,_dq_,file,f) - {if(opt)var sth=opt[1],strict=sth;else var strict=1; - if(_dq_) - var sth$0=_dq_[1],buf=sth$0; - else - var buf=caml_create_bytes(8192); - var sexp=load_sexp([0,strict],[0,buf],file); - try - {var _ds_=[0,1025039613,caml_call1(f,sexp)];return _ds_} - catch(_dt_) - {_dt_ = caml_wrap_exception(_dt_); - if(_dt_[1] === Of_sexp_error) - {var _dr_=caml_call3(Annotated[16],[0,strict],[0,buf],file); - return caml_call2(Annotated[17],f,_dr_)} - throw _dt_}} - function raise_conv_exn(file,param) - {if(1025039613 <= param[1]){var res=param[2];return res} - var match=param[2],annot_sexp=match[2],exc=match[1]; - throw caml_call3(Annotated[18],file,exc,annot_sexp)} - function load_sexp_conv_exn(strict,buf,file,f) - {return raise_conv_exn(file,load_sexp_conv(strict,buf,file,f))} - function load_sexps_conv(opt,file,f) - {if(opt)var sth=opt[1],buf=sth;else var buf=caml_create_bytes(8192); - var rev_sexps=load_rev_sexps([0,buf],file); - try - {var - _do_=function(sexp){return [0,1025039613,caml_call1(f,sexp)]}, - _dp_=caml_call2(Stdlib_list[19],_do_,rev_sexps); - return _dp_} - catch(e) - {e = caml_wrap_exception(e); - if(e[1] === Of_sexp_error) - {var rev_annot_sexps=caml_call2(Annotated[14],[0,buf],file); - if(rev_annot_sexps) - {var - _dn_= - function(annot_sexp) - {return caml_call2(Annotated[17],f,annot_sexp)}; - return caml_call2(Stdlib_list[19],_dn_,rev_annot_sexps)} - throw e} - throw e}} - function load_sexps_conv_exn(opt,file,f) - {if(opt)var sth=opt[1],buf=sth;else var buf=caml_create_bytes(8192); - var rev_sexps=load_rev_sexps([0,buf],file); - try - {var _dm_=caml_call2(Stdlib_list[19],f,rev_sexps);return _dm_} - catch(e) - {e = caml_wrap_exception(e); - if(e[1] === Of_sexp_error) - {var rev_annot_sexps=caml_call2(Annotated[14],[0,buf],file); - if(rev_annot_sexps) - {var - _dl_= - function(annot_sexp) - {return raise_conv_exn - (file,caml_call2(Annotated[17],f,annot_sexp))}; - return caml_call2(Stdlib_list[19],_dl_,rev_annot_sexps)} - throw e} - throw e}} - function gen_of_string_conv(of_string,annot_of_string,str,f) - {var sexp=caml_call1(of_string,str); - try - {var _dj_=[0,1025039613,caml_call1(f,sexp)];return _dj_} - catch(_dk_) - {_dk_ = caml_wrap_exception(_dk_); - if(_dk_[1] === Of_sexp_error) - {var _di_=caml_call1(annot_of_string,str); - return caml_call2(Annotated[17],f,_di_)} - throw _dk_}} - function of_string_conv(str,f) - {return gen_of_string_conv(of_string,Annotated[12],str,f)} - function of_bigstring_conv(bstr,f) - {return gen_of_string_conv(of_bigstring,Annotated[13],bstr,f)} - var E=[248,cst_Sexplib_Pre_sexp_Of_string_conv_exn_E,caml_fresh_oo_id(0)]; - function _aY_(param) - {if(param[1] === E) - {var osce=param[2]; - return sexp_conversion_error_message - ([0,osce[2]],0,[0,osce[3]],0,osce[1])} - throw [0,Assert_failure,_aZ_]} - caml_call3(include$2[51][2],_a0_,E,_aY_); - var Of_string_conv_exn=[0,E]; - function gen_of_string_conv_exn(of_string,str,f) - {var sexp=caml_call1(of_string,str); - try - {var _dh_=caml_call1(f,sexp);return _dh_} - catch(exn) - {exn = caml_wrap_exception(exn); - if(exn[1] === Of_sexp_error) - {var sub_sexp=exn[3],exc=exn[2]; - throw [0,Of_string_conv_exn[1],[0,exc,sexp,sub_sexp]]} - throw exn}} - function of_string_conv_exn(str,f) - {return gen_of_string_conv_exn(of_string,str,f)} - function of_bigstring_conv_exn(bstr,f) - {return gen_of_string_conv_exn(of_bigstring,bstr,f)} - function is_unit(param){if(1 === param[0])if(! param[1])return 1;return 0} - function search_physical(sexp,contained) - {if(sexp === contained)return 398750242; - if(0 === sexp[0])return -358247754; - var lst=sexp[1],i=0,param=lst; - for(;;) - {if(param) - {var t=param[2],h=param[1],res=search_physical(h,contained); - if(typeof res === "number") - if(! (398750242 <= res)){var i$0=i + 1 | 0,i=i$0,param=t;continue} - return [0,4003188,[0,i,res]]} - return -358247754}} - function subst_found(sexp,subst,param) - {if(typeof param === "number")return subst; - var match=param[2],found=match[2],pos=match[1]; - if(0 === sexp[0]) - return caml_call1 - (Stdlib[2], - cst_Sexplib_Sexp_subst_found_atom_when_position_requested); - var lst=sexp[1],acc=0,pos$0=pos,param$0=lst; - for(;;) - {if(param$0) - {var t=param$0[2],h=param$0[1]; - if(0 === pos$0) - {var _dg_=[0,subst_found(h,subst,found),t]; - return [1,caml_call2(Stdlib_list[12],acc,_dg_)]} - var - pos$1=pos$0 - 1 | 0, - acc$0=[0,h,acc], - acc=acc$0, - pos$0=pos$1, - param$0=t; - continue} - return caml_call1 - (Stdlib[2], - cst_Sexplib_Sexp_subst_found_short_list_when_position_requested)}} + float32, + float64, + complex32, + complex64, + int8_signed, + int8_unsigned, + int16_signed, + int16_unsigned, + int$0, + int32, + int64, + nativeint, + char$0, + kind_size_in_bytes, + c_layout, + fortran_layout, + Genarray, + Array0, + Array1, + Array2, + Array3, + array0_of_genarray, + array1_of_genarray, + array2_of_genarray, + array3_of_genarray, + reshape, + reshape_0, + reshape_1, + reshape_2, + reshape_3]; + runtime.caml_register_global(1,Bigarray_compat,"Bigarray_compat"); + return} + (function(){return this}())); + + +//# 1 "../../.js/cstruct/cstruct.cma.js" +(function(joo_global_object) + {"use strict"; var - include$7= + runtime=joo_global_object.jsoo_runtime, + caml_ba_dim_1=runtime.caml_ba_dim_1, + caml_ba_get_1=runtime.caml_ba_get_1, + caml_ba_set_1=runtime.caml_ba_set_1, + caml_blit_bigstring_to_string=runtime.caml_blit_bigstring_to_string, + caml_blit_string_to_bigstring=runtime.caml_blit_string_to_bigstring, + caml_bswap16=runtime.caml_bswap16, + caml_create_bytes=runtime.caml_create_bytes, + caml_int32_bswap=runtime.caml_int32_bswap, + caml_int64_bswap=runtime.caml_int64_bswap, + caml_ml_bytes_length=runtime.caml_ml_bytes_length, + caml_ml_string_length=runtime.caml_ml_string_length, + caml_register_global=runtime.caml_register_global, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_wrap_exception=runtime.caml_wrap_exception; + function caml_call1(f,a0) + {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} + function caml_call2(f,a0,a1) + {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} + function caml_call3(f,a0,a1,a2) + {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} + function caml_call4(f,a0,a1,a2,a3) + {return f.length == 4 + ?f(a0,a1,a2,a3) + :runtime.caml_call_gen(f,[a0,a1,a2,a3])} + function caml_call5(f,a0,a1,a2,a3,a4) + {return f.length == 5 + ?f(a0,a1,a2,a3,a4) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} + function caml_call7(f,a0,a1,a2,a3,a4,a5,a6) + {return f.length == 7 + ?f(a0,a1,a2,a3,a4,a5,a6) + :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6])} + var + global_data=runtime.caml_get_global_data(), + cst_Cstruct_concat=caml_string_of_jsbytes("Cstruct.concat"), + cst_Cstruct_copyv=caml_string_of_jsbytes("Cstruct.copyv"), + cst_Cstruct_lenv=caml_string_of_jsbytes("Cstruct.lenv"), + cst_LE$4=caml_string_of_jsbytes("LE"), + cst_LE$3=caml_string_of_jsbytes("LE"), + cst_LE$2=caml_string_of_jsbytes("LE"), + cst_LE$1=caml_string_of_jsbytes("LE"), + cst_LE$0=caml_string_of_jsbytes("LE"), + cst_LE=caml_string_of_jsbytes("LE"), + cst_BE$4=caml_string_of_jsbytes("BE"), + cst_BE$3=caml_string_of_jsbytes("BE"), + cst_BE$2=caml_string_of_jsbytes("BE"), + cst_BE$1=caml_string_of_jsbytes("BE"), + cst_BE$0=caml_string_of_jsbytes("BE"), + cst_BE=caml_string_of_jsbytes("BE"), + cst_get_uint64=caml_string_of_jsbytes(".get_uint64"), + cst_get_uint32=caml_string_of_jsbytes(".get_uint32"), + cst_get_uint16=caml_string_of_jsbytes(".get_uint16"), + cst_set_uint64=caml_string_of_jsbytes(".set_uint64"), + cst_set_uint32=caml_string_of_jsbytes(".set_uint32"), + cst_set_uint16=caml_string_of_jsbytes(".set_uint16"), + cst_get_char=caml_string_of_jsbytes("get_char"), + cst_get_uint8=caml_string_of_jsbytes("get_uint8"), + cst_set_char=caml_string_of_jsbytes("set_char"), + cst_set_uint8=caml_string_of_jsbytes("set_uint8"), + cst_check_alignment_must_be_po= + caml_string_of_jsbytes("check_alignment must be positive integer"), + cst_Cstruct_Cap_concat=caml_string_of_jsbytes("Cstruct.Cap.concat"), + Stdlib=global_data.Stdlib, + Stdlib_list=global_data.Stdlib__list, + Stdlib_format=global_data.Stdlib__format, + Stdlib_string=global_data.Stdlib__string, + Stdlib_bytes=global_data.Stdlib__bytes, + Stdlib_sys=global_data.Stdlib__sys, + Assert_failure=global_data.Assert_failure, + Stdlib_char=global_data.Stdlib__char, + Bigarray_compat=global_data.Bigarray_compat, + Stdlib_buffer=global_data.Stdlib__buffer, + _E_=[0,[17,3,[15,[17,4,0]]],caml_string_of_jsbytes("@\n%a@.")], + _B_= [0, - equal, - compare, - Not_found_s, - Of_sexp_error, - message, - default_indent, - pp_hum, - pp_hum_indent, - pp_mach, - pp, - to_string_hum, - to_string_mach, - to_string, - of_float_style, - of_int_style, - size, - buffer, - to_buffer, - to_buffer_hum, - to_buffer_mach, - to_buffer_gen, - mach_maybe_esc_str, - must_escape, - esc_str, - with_new_buffer, - output_hum, - output_hum_indent, - output, - output, - Tmp_file, - save_of_output, - output_sexp_nl, - save_hum, - save, - save, - output_sexps_nl, - save_sexps_hum, - save_sexps, - save_sexps, - scan_sexp, - scan_sexp_opt, - scan_sexps, - scan_rev_sexps, - get_main_buf, - scan_fold_sexps, - scan_iter_sexps, - scan_sexps_conv, - sexp_conversion_error_message, - Annot, - Parse_pos, - Cont_state, - Parse_error, - Parser_output, - Make_parser, - String_single_sexp, - parse_str, - parse, - String_single_annot, - parse_str_annot, - Bigstring_single_sexp, - parse_bigstring, - Bigstring_single_annot, - _aQ_, - mk_this_parse, - feed_end_of_input, - gen_input_sexp, - input_sexp, - gen_input_rev_sexps, - input_rev_sexps, - input_sexps, - of_string_bigstring, - of_string, - get_bstr_sub_str, - bstr_ws_buf, - of_bigstring, - gen_load_rev_sexps, - load_rev_sexps, - load_sexps, - gen_load_sexp_loc, - gen_load_sexp, - load_sexp, - Annotated, - load_sexp_conv, - raise_conv_exn, - load_sexp_conv_exn, - load_sexps_conv, - load_sexps_conv_exn, - gen_of_string_conv, - of_string_conv, - of_bigstring_conv, - Of_string_conv_exn, - gen_of_string_conv_exn, - of_string_conv_exn, - of_bigstring_conv_exn, - unit, - is_unit, - search_physical, - subst_found]; - caml_register_global(170,include$7,"Sexplib__Pre_sexp"); - function iter(t,f){return caml_call2(Stdlib_list[15],f,t)} - function map$0(t,f) - {var _df_=caml_call2(Stdlib_list[19],f,t); - return caml_call1(Stdlib_list[9],_df_)} - var List=[0,iter,map$0],sexp_of_pos=_c_[1],Lexer=[0,main$0]; - function return$0(a,putc,st){return a} - function bind(m,f,putc,st) - {return caml_call3(f,caml_call2(m,putc,st),putc,st)} - function run(putc,m){return caml_call2(m,putc,[0,_c_[2],_b_[2],0,0])} - function emit_char(putc,st,c) - {var match=st[2],col=match[2],row=match[1]; - caml_call1(putc,c); - return 10 === c - ?(st[2] = [0,1 + row | 0,1],0) - :(st[2] = [0,row,1 + col | 0],0)} - function emit_string(putc,st,str) - {var n=caml_ml_string_length(str),_dd_=n - 1 | 0,_dc_=0; - if(! (_dd_ < 0)) - {var i=_dc_; - for(;;) - {emit_char(putc,st,caml_string_get(str,i)); - var _de_=i + 1 | 0; - if(_dd_ !== i){var i=_de_;continue} - break}} - return 0} - function emit_chars(putc,st,c,n) - {return emit_string(putc,st,caml_call2(Stdlib_string[1],n,c))} - function advance(putc,anchor,st,delta,unescaped_atom,line_comment) - {var - _c9_=st[1], - _c__=caml_call2(_b_[5],anchor,delta), - new_pos=caml_call2(_b_[5],_c__,_c9_); - if(unescaped_atom) - {var _c$_=st[3]; - if(_c$_) - var - match=_c$_[1], - prev_unescaped=match[2], - immed_after=match[1], - _da_=caml_equal(new_pos,immed_after), - prev_unescaped$0=_da_?prev_unescaped:_da_, - prev_unescaped$1=prev_unescaped$0; - else - var prev_unescaped$1=0; - var - need_to_leave_room_between_two_unescaped_atoms_lest_they_become_one= - prev_unescaped$1} - else - var - need_to_leave_room_between_two_unescaped_atoms_lest_they_become_one= - unescaped_atom; - var - need_to_clear_line_comment=new_pos[1] === st[4]?1:0, - _db_=1 - caml_call2(_b_[7],new_pos,st[2]), - need_to_reposition= - _db_ - || - need_to_clear_line_comment - || - need_to_leave_room_between_two_unescaped_atoms_lest_they_become_one; - if(need_to_reposition) - var - new_row=1 + st[2][1] | 0, - row_delta=new_row - new_pos[1] | 0, - row_delta$0=row_delta, - new_pos$0=[0,new_row,new_pos[2]]; - else - var row_delta$0=0,new_pos$0=new_pos; - if(st[2][1] < new_pos$0[1]) - {var n=new_pos$0[1] - st[2][1] | 0;emit_chars(putc,st,10,n)} - if(st[2][2] < new_pos$0[2]) - {var n$0=new_pos$0[2] - st[2][2] | 0;emit_chars(putc,st,32,n$0)} - if(caml_equal(new_pos$0,st[2])) - {if(line_comment)st[4] = st[2][1]; - st[1] = [0,st[1][1] + row_delta$0 | 0,st[1][2]]; - return 0} - throw [0,Assert_failure,_a1_]} - function render_t(putc,anchor,st,t) - {if(0 === t[0]) - {var fmt_text=t[3],text=t[2],delta=t[1]; - if(fmt_text) - {var _c7_=fmt_text[1]; - if(runtime.caml_string_notequal(_c7_,cst$6)) - var fmt_text$0=_c7_,switch$0=1; - else - var switch$0=0} - else - var switch$0=0; - if(! switch$0)var fmt_text$0=caml_call1(mach_maybe_esc_str,text); - var unescaped=34 !== caml_string_get(fmt_text$0,0)?1:0; - advance(putc,anchor,st,delta,unescaped,0); - emit_string(putc,st,fmt_text$0); - st[3] = [0,[0,st[2],unescaped]]; - return 0} - var end_delta=t[3],tocs=t[2],start_delta=t[1]; - advance(putc,anchor,st,start_delta,0,0); - var child_anchor=caml_call2(_b_[6],st[2],st[1]); - emit_char(putc,st,40); - function _c8_(toc){return render_toc(putc,child_anchor,st,toc)} - caml_call2(List[1],tocs,_c8_); - advance(putc,anchor,st,end_delta,0,0); - emit_char(putc,st,41); - return 0} - function render_c(putc,anchor,st,param) - {if(0 === param[0]) - {var - text=param[2], - delta=param[1], - _c4_=0 < caml_ml_string_length(text)?1:0, - line_comment=_c4_?59 === caml_string_get(text,0)?1:0:_c4_; - advance(putc,anchor,st,delta,0,line_comment); - return emit_string(putc,st,text)} - var t=param[3],cs=param[2],delta$0=param[1]; - advance(putc,anchor,st,delta$0,0,0); - emit_string(putc,st,cst$7); - function _c5_(_c6_){return render_c(putc,anchor,st,_c6_)} - caml_call2(List[1],cs,_c5_); - return render_t(putc,anchor,st,t)} - function render_toc(putc,anchor,st,param) - {if(0 === param[0]){var t=param[1];return render_t(putc,anchor,st,t)} - var c=param[1]; - return render_c(putc,anchor,st,c)} - function render(asexp,putc,st){return render_toc(putc,_b_[2],st,asexp)} - var - Render= + [17,[0,caml_string_of_jsbytes("@;"),1,0],0], + caml_string_of_jsbytes("@;")], + _A_=[0,[12,32,0],caml_string_of_jsbytes(" ")], + _z_=[0,[11,caml_string_of_jsbytes(" "),0],caml_string_of_jsbytes(" ")], + _C_=[0,[15,[4,6,0,[0,2],[15,0]]],caml_string_of_jsbytes("%a%.2x%a")], + _x_= [0, - return$0, - bind, - run, - emit_char, - emit_string, - emit_chars, - advance, - render_t, - render_toc, - render_c, - render, - render]; - function forget_t$0(counter,t,k) - {if(0 === t[0]){var x=t[2];return caml_call1(k,[0,x])} - var tocs=t[2]; - function _c3_(xs){return caml_call1(k,[1,xs])} - if(counter < 50) - {var counter$0=counter + 1 | 0; - return forget_tocs$0(counter$0,tocs,_c3_)} - return caml_trampoline_return(forget_tocs$0,[0,tocs,_c3_])} - function forget_tocs$0(counter,tocs,k) - {if(tocs) - {var - tocs$0=tocs[2], - toc=tocs[1], - _c2_= - function(param) - {if(param) - {var x=param[1]; - return forget_tocs - (tocs$0,function(xs){return caml_call1(k,[0,x,xs])})} - return forget_tocs(tocs$0,k)}; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return forget_toc$0(counter$0,toc,_c2_)} - return caml_trampoline_return(forget_toc$0,[0,toc,_c2_])} - return caml_call1(k,0)} - function forget_toc$0(counter,toc,k) - {if(0 === toc[0]) - {var t=toc[1],_c1_=function(x){return caml_call1(k,[0,x])}; - if(counter < 50) - {var counter$0=counter + 1 | 0;return forget_t$0(counter$0,t,_c1_)} - return caml_trampoline_return(forget_t$0,[0,t,_c1_])} - return caml_call1(k,0)} - function forget_t(t,k){return caml_trampoline(forget_t$0(0,t,k))} - function forget_tocs(tocs,k) - {return caml_trampoline(forget_tocs$0(0,tocs,k))} - function forget_toc(toc,k){return caml_trampoline(forget_toc$0(0,toc,k))} - var Cps=[0,forget_t,forget_toc,forget_tocs]; - function t(x){function _c0_(y){return y}return caml_call2(Cps[1],x,_c0_)} - function t_or_comment(x) - {function _cZ_(y){return y}return caml_call2(Cps[2],x,_cZ_)} - function t_or_comments(x) - {function _cY_(y){return y}return caml_call2(Cps[3],x,_cY_)} - var - Forget=[0,Cps,t,t_or_comment,t_or_comments], - Sexplib_Sexp_with_layout= + [11, + caml_string_of_jsbytes("of_hex: invalid character at pos "), + [4,0,0,0,[11,caml_string_of_jsbytes(": "),[1,0]]]], + caml_string_of_jsbytes("of_hex: invalid character at pos %d: %C")], + _y_= [0, - List, - Make$0, - Parsed$0, - sexp_of_t$0, - sexp_of_comment, - sexp_of_t_or_comment, - relativize, - sexp_of_pos, - Lexer, - Render, - Forget]; - caml_register_global - (171,Sexplib_Sexp_with_layout,"Sexplib__Sexp_with_layout"); - var - _a2_= + [11,caml_string_of_jsbytes("of_hex: odd numbers of characters"),0], + caml_string_of_jsbytes("of_hex: odd numbers of characters")], + _u_= [0, - sexp_of_pos, - sexp_of_t$0, - sexp_of_comment, - sexp_of_t_or_comment, - [0,Forget[2],Forget[3],Forget[4]], - [0,Render[1],Render[2],Render[12],Render[3]], - [0,sexp$0,sexp_opt$0,sexps$0,rev_sexps$0,sexps_abs], - Lexer]; - function _a3_(_cX_){return _cX_} - function _a4_(_cW_){return _cW_} - var - Sexplib_Sexp= + [11, + caml_string_of_jsbytes("ERROR: t.off+t.len="), + [4,0,0,0,[12,32,[15,[12,10,[10,0]]]]]], + caml_string_of_jsbytes("ERROR: t.off+t.len=%d %a\n%!")], + _v_=[0,caml_string_of_jsbytes("lib/cstruct.ml"),128,4], + _w_=[0,[15,0],caml_string_of_jsbytes("%a")], + _t_= [0, - compare, - equal, - default_indent, - size, - scan_sexp, - scan_sexps, - scan_rev_sexps, - scan_sexp_opt, - scan_iter_sexps, - scan_fold_sexps, - scan_sexps_conv, - Parse_pos, - Cont_state, - [0, - Annotated[4], - Annotated[1], - Annotated[2], - Annotated[3], - Annotated[6], - Annotated[7], - Annotated[8], - Annotated[10], - Annotated[11], - Annotated[9], - Annotated[16], - Annotated[15], - Annotated[14], - Annotated[12], - Annotated[13], - Annotated[17], - Annotated[18]], - Parse_error, - parse, - parse_bigstring, - input_sexp, - input_sexps, - input_rev_sexps, - load_sexp, - load_sexps, - load_rev_sexps, - load_sexp_conv, - load_sexp_conv_exn, - load_sexps_conv, - load_sexps_conv_exn, - output_hum, - output_hum_indent, - output, - output, - save_hum, - save, - save, - save_sexps_hum, - save_sexps, - save_sexps, - pp_hum, - pp_hum_indent, - pp_mach, - pp, - Of_string_conv_exn, - of_string, - of_string_conv, - of_string_conv_exn, - of_bigstring, - of_bigstring_conv, - of_bigstring_conv_exn, - to_string_hum, - to_string_mach, - to_string, - to_buffer_hum, - to_buffer_mach, - to_buffer, - to_buffer_gen, - unit, - is_unit, - _a4_, - _a3_, - search_physical, - subst_found, - _a2_]; - caml_register_global(172,Sexplib_Sexp,"Sexplib__Sexp"); - var Sexplib_Sexp_intf=[0]; - caml_register_global(173,Sexplib_Sexp_intf,"Sexplib__Sexp_intf"); - var - _a9_=include$2[5], - _a__=include$2[6], - _a$_=include$2[7], - _bb_=include$2[9], - _bc_=include$2[10], - _bd_=include$2[11], - _be_=include$2[12], - _bf_=include$2[13], - _bg_=include$2[14], - _bh_=include$2[15], - _bi_=include$2[16], - _bj_=include$2[17], - _bm_=include$2[20], - _bn_=include$2[21], - _bo_=include$2[22], - _bt_=include$2[27], - _bv_=include$2[29], - _bw_=include$2[30], - _bx_=include$2[31], - _bz_=include$2[33], - _bA_=include$2[34], - _bB_=include$2[35], - _bC_=include$2[36], - _bD_=include$2[37], - _bE_=include$2[38], - _bF_=include$2[39], - _bG_=include$2[40], - _bH_=include$2[41], - _bK_=include$2[44], - _bL_=include$2[45], - _bM_=include$2[46], - _bP_=include$2[49], - _bR_=include$2[51], - _a5_=include$2[1], - _a6_=include$2[2], - _a7_=include$2[3], - _a8_=include$2[4], - _ba_=include$2[8], - _bk_=include$2[18], - _bl_=include$2[19], - _bp_=include$2[23], - _bq_=include$2[24], - _br_=include$2[25], - _bs_=include$2[26], - _bu_=include$2[28], - _by_=include$2[32], - _bI_=include$2[42], - _bJ_=include$2[43], - _bN_=include$2[47], - _bO_=include$2[48], - _bQ_=include$2[50]; - function sexp_of_float_vec(vec) - {var lst_ref=[0,0],_cT_=caml_ba_dim_1(vec); - if(! (_cT_ < 1)) - {var i=_cT_; - for(;;) - {var _cU_=lst_ref[1]; - lst_ref[1] = [0,caml_call1(_bd_,caml_ba_get_1(vec,i)),_cU_]; - var _cV_=i - 1 | 0; - if(1 !== i){var i=_cV_;continue} - break}} - return [1,lst_ref[1]]} - function sexp_of_bigstring(bstr) - {var - n=caml_ba_dim_1(bstr), - str=caml_create_bytes(n), - _cR_=n - 1 | 0, - _cQ_=0; - if(! (_cR_ < 0)) - {var i=_cQ_; - for(;;) - {caml_bytes_set(str,i,caml_ba_get_1(bstr,i)); - var _cS_=i + 1 | 0; - if(_cR_ !== i){var i=_cS_;continue} - break}} - return [0,caml_call1(Stdlib_bytes[42],str)]} - function sexp_of_float32_vec(vec){return sexp_of_float_vec(vec)} - function sexp_of_float64_vec(vec){return sexp_of_float_vec(vec)} - function sexp_of_vec(vec){return sexp_of_float_vec(vec)} - function sexp_of_float_mat(mat) - {var m=caml_ba_dim_1(mat),n=runtime.caml_ba_dim_2(mat),lst_ref=[0,0]; - if(! (n < 1)) - {var col=n; - for(;;) - {var vec=caml_call2(Stdlib_bigarray[20][5],mat,col); - if(! (m < 1)) - {var row=m; - for(;;) - {var _cO_=lst_ref[1]; - lst_ref[1] = [0,caml_call1(_bd_,caml_ba_get_1(vec,row)),_cO_]; - var _cP_=row - 1 | 0; - if(1 !== row){var row=_cP_;continue} - break}} - var _cN_=col - 1 | 0; - if(1 !== col){var col=_cN_;continue} - break}} - var _cL_=lst_ref[1],_cM_=[0,caml_call1(_bc_,n),_cL_]; - return [1,[0,caml_call1(_bc_,m),_cM_]]} - function sexp_of_float32_mat(mat){return sexp_of_float_mat(mat)} - function sexp_of_float64_mat(mat){return sexp_of_float_mat(mat)} - function sexp_of_mat(mat){return sexp_of_float_mat(mat)} - function bigstring_of_sexp(sexp) - {if(0 === sexp[0]) - {var - str=sexp[1], - len=caml_ml_string_length(str), - bstr= - caml_call3 - (Stdlib_bigarray[19][1], - Stdlib_bigarray[13], - Stdlib_bigarray[15], - len), - _cJ_=len - 1 | 0, - _cI_=0; - if(! (_cJ_ < 0)) - {var i=_cI_; - for(;;) - {caml_ba_set_1(bstr,i,caml_string_get(str,i)); - var _cK_=i + 1 | 0; - if(_cJ_ !== i){var i=_cK_;continue} - break}} - return bstr} - return caml_call2(_bt_,cst_bigstring_of_sexp_atom_needed,sexp)} - function float_vec_of_sexp(empty_float_vec,create_float_vec,sexp) - {if(0 === sexp[0]) - return caml_call2(_bt_,cst_float_vec_of_sexp_list_needed,sexp); - var _cH_=sexp[1]; - if(_cH_) - {var - len=caml_call1(Stdlib_list[1],_cH_), - res=caml_call1(create_float_vec,len), - i=1, - param=_cH_; - for(;;) - {if(param) - {var t=param[2],h=param[1]; - caml_ba_set_1(res,i,caml_call1(_bB_,h)); - var i$0=i + 1 | 0,i=i$0,param=t; - continue} - return res}} - return empty_float_vec} - var - create_float32_vec= - caml_call2 - (Stdlib_bigarray[19][1],Stdlib_bigarray[1],Stdlib_bigarray[16]), - create_float64_vec= - caml_call2 - (Stdlib_bigarray[19][1],Stdlib_bigarray[2],Stdlib_bigarray[16]), - empty_float32_vec=caml_call1(create_float32_vec,0), - empty_float64_vec=caml_call1(create_float64_vec,0); - function float32_vec_of_sexp(_cG_) - {return float_vec_of_sexp(empty_float32_vec,create_float32_vec,_cG_)} - function float64_vec_of_sexp(_cF_) - {return float_vec_of_sexp(empty_float64_vec,create_float64_vec,_cF_)} - function vec_of_sexp(_cE_) - {return float_vec_of_sexp(empty_float64_vec,create_float64_vec,_cE_)} - function check_too_much_data(sexp,data,res) - {return 0 === data - ?res - :caml_call2(_bt_,cst_float_mat_of_sexp_too_much_data,sexp)} - function float_mat_of_sexp(create_float_mat,sexp) - {if(0 === sexp[0]) - return caml_call2(_bt_,cst_float_mat_of_sexp_list_needed,sexp); - var _cC_=sexp[1]; - if(_cC_) - {var _cD_=_cC_[2]; - if(_cD_) - {var - data=_cD_[2], - sn=_cD_[1], - sm=_cC_[1], - m=caml_call1(_bA_,sm), - n=caml_call1(_bA_,sn), - res=caml_call2(create_float_mat,m,n); - if(0 !== m) - if(0 !== n) - {var col=1,data$0=data; - a: - for(;;) - {var - vec=caml_call2(Stdlib_bigarray[20][5],res,col), - row=1, - param=data$0; - for(;;) - {if(param) - {var t=param[2],h=param[1]; - caml_ba_set_1(vec,row,caml_call1(_bB_,h)); - if(row === m) - {if(col === n)return check_too_much_data(sexp,t,res); - var col$0=col + 1 | 0,col=col$0,data$0=t; - continue a} - var row$0=row + 1 | 0,row=row$0,param=t; - continue} - return caml_call2 - (_bt_,cst_float_mat_of_sexp_not_enough_data,sexp)}}} - return check_too_much_data(sexp,data,res)}} - return caml_call2(_bt_,cst_float_mat_of_sexp_list_too_short,sexp)} - var - create_float32_mat= - caml_call2 - (Stdlib_bigarray[20][1],Stdlib_bigarray[1],Stdlib_bigarray[16]), - create_float64_mat= - caml_call2 - (Stdlib_bigarray[20][1],Stdlib_bigarray[2],Stdlib_bigarray[16]); - function float32_mat_of_sexp(_cB_) - {return float_mat_of_sexp(create_float32_mat,_cB_)} - function float64_mat_of_sexp(_cA_) - {return float_mat_of_sexp(create_float64_mat,_cA_)} - function mat_of_sexp(_cz_) - {return float_mat_of_sexp(create_float64_mat,_cz_)} - function string_of_of_sexp_of(to_sexp,x) - {return caml_call1(to_string,caml_call1(to_sexp,x))} - function of_string_of_of_sexp(of_sexp,s) - {try - {var sexp=of_string(s),_cy_=caml_call1(of_sexp,sexp);return _cy_} - catch(e) - {e = caml_wrap_exception(e); - var - _cw_=caml_call2(to_string_hum,0,caml_call1(_bP_,e)), - _cx_=caml_call3(Stdlib_printf[4],_bS_,s,_cw_); - return caml_call1(Stdlib[2],_cx_)}} - var - Sexplib_Conv= + [11, + caml_string_of_jsbytes("Cstruct.iter "), + [15, + [11, + caml_string_of_jsbytes(" i="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]], + caml_string_of_jsbytes("Cstruct.iter %a i=%d len=%d")], + _s_= [0, - _a5_, - _a6_, - _a7_, - _a8_, - _a9_, - _a__, - _a$_, - _ba_, - _bb_, - _bc_, - _bd_, - _be_, - _bf_, - _bg_, - _bh_, - _bi_, - _bj_, - _bk_, - _bl_, - _bm_, - _bn_, - _bo_, - _bp_, - _bq_, - _br_, - _bs_, - _bt_, - _bu_, - _bv_, - _bw_, - _bx_, - _by_, - _bz_, - _bA_, - _bB_, - _bC_, - _bD_, - _bE_, - _bF_, - _bG_, - _bH_, - _bI_, - _bJ_, - _bK_, - _bL_, - _bM_, - _bN_, - _bO_, - _bP_, - _bQ_, - _bR_, - sexp_of_bigstring, - sexp_of_float32_vec, - sexp_of_float64_vec, - sexp_of_vec, - sexp_of_float32_mat, - sexp_of_float64_mat, - sexp_of_mat, - string_of_of_sexp_of, - bigstring_of_sexp, - float32_vec_of_sexp, - float64_vec_of_sexp, - vec_of_sexp, - float32_mat_of_sexp, - float64_mat_of_sexp, - mat_of_sexp, - of_string_of_of_sexp]; - caml_register_global(174,Sexplib_Conv,"Sexplib__Conv"); - var - create$2=Stdlib_hashtbl[1], - clear$1=Stdlib_hashtbl[2], - reset=Stdlib_hashtbl[3], - copy=Stdlib_hashtbl[4], - add$0=Stdlib_hashtbl[5], - find=Stdlib_hashtbl[6], - find_opt=Stdlib_hashtbl[7], - find_all=Stdlib_hashtbl[8], - mem=Stdlib_hashtbl[9], - remove=Stdlib_hashtbl[10], - replace=Stdlib_hashtbl[11], - iter$0=Stdlib_hashtbl[12], - filter_map_inplace=Stdlib_hashtbl[13], - fold=Stdlib_hashtbl[14], - length$3=Stdlib_hashtbl[15], - randomize=Stdlib_hashtbl[16], - is_randomized=Stdlib_hashtbl[17], - stats=Stdlib_hashtbl[18], - to_seq=Stdlib_hashtbl[19], - to_seq_keys=Stdlib_hashtbl[20], - to_seq_values=Stdlib_hashtbl[21], - add_seq=Stdlib_hashtbl[22], - replace_seq=Stdlib_hashtbl[23], - of_seq=Stdlib_hashtbl[24], - Make$2=Stdlib_hashtbl[25], - MakeSeeded=Stdlib_hashtbl[26], - hash=Stdlib_hashtbl[27], - seeded_hash=Stdlib_hashtbl[28], - hash_param=Stdlib_hashtbl[29], - seeded_hash_param=Stdlib_hashtbl[30], - Hashtbl= + [11, + caml_string_of_jsbytes("Cstruct.split "), + [15, + [11, + caml_string_of_jsbytes(" start="), + [4,0,0,0,[11,caml_string_of_jsbytes(" off="),[4,0,0,0,0]]]]]], + caml_string_of_jsbytes("Cstruct.split %a start=%d off=%d")], + _r_= [0, - create$2, - clear$1, - reset, - copy, - add$0, - find, - find_opt, - find_all, - mem, - remove, - replace, - iter$0, - filter_map_inplace, - fold, - length$3, - randomize, - is_randomized, - stats, - to_seq, - to_seq_keys, - to_seq_values, - add_seq, - replace_seq, - of_seq, - Make$2, - MakeSeeded, - hash, - seeded_hash, - hash_param, - seeded_hash_param, - _bo_, - _bM_], - Undefined=Stdlib_lazy[1], - force_val=Stdlib_lazy[2], - from_fun=Stdlib_lazy[3], - from_val=Stdlib_lazy[4], - is_val=Stdlib_lazy[5], - lazy_from_fun=Stdlib_lazy[6], - lazy_from_val=Stdlib_lazy[7], - lazy_is_val=Stdlib_lazy[8], - Lazy= + [11, + caml_string_of_jsbytes("invalid bounds in Cstruct."), + [2, + 0, + [12, + 32, + [15, + [11, + caml_string_of_jsbytes(" off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]]]], + caml_string_of_jsbytes("invalid bounds in Cstruct.%s %a off=%d len=%d")], + _q_= [0, - Undefined, - force_val, - from_fun, - from_val, - is_val, - lazy_from_fun, - lazy_from_val, - lazy_is_val, - _bG_, - _bi_], - Sexplib_Std= + [11, + caml_string_of_jsbytes("Cstruct.blit_to_bytes src="), + [15, + [11, + caml_string_of_jsbytes(" dst="), + [15, + [11, + caml_string_of_jsbytes(" dst-off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]]]], + caml_string_of_jsbytes + ("Cstruct.blit_to_bytes src=%a dst=%a dst-off=%d len=%d")], + _p_= [0, - Hashtbl, - Lazy, - _a9_, - _bv_, - _a__, - _bw_, - _a$_, - _bx_, - _bb_, - _bz_, - _bc_, - _bA_, - _bd_, - _bB_, - _be_, - _bC_, - _bf_, - _bD_, - _bg_, - _bE_, - _bh_, - _bF_, - _bi_, - _bG_, - _bj_, - _bH_, - _bm_, - _bK_, - _bn_, - _bL_, - _bP_]; - caml_register_global(177,Sexplib_Std,"Sexplib__Std"); - function illegal_atom(loc,sexp) - {var - _cu_=caml_call1(to_string,sexp), - _cv_=caml_call3(Stdlib_format[126],_bT_,loc,_cu_); - return caml_call1(Stdlib[2],_cv_)} - function extract_pos_lst(loc,sexp,ix,param) - {var acc=0,n=ix,param$0=param; - for(;;) - {if(param$0) - {var t=param$0[2],h=param$0[1]; - if(0 === n) - {var - subst= - function(param) - {if(param) - {var x=param[1]; - return caml_call2(Stdlib_list[12],acc,[0,x,t])} - return caml_call2(Stdlib_list[12],acc,t)}; - return [0,subst,h]} - var n$0=n - 1 | 0,acc$0=[0,h,acc],acc=acc$0,n=n$0,param$0=t; - continue} - var - sexp_str=caml_call1(to_string,sexp), - _ct_=caml_call4(Stdlib_format[126],_bU_,loc,ix,sexp_str); - return caml_call1(Stdlib[2],_ct_)}} - function extract_pos(n,sexp) - {if(0 === sexp[0])return illegal_atom(cst_extract_pos,sexp); - var - lst=sexp[1], - match=extract_pos_lst(cst_extract_pos$0,sexp,n,lst), - el=match[2], - subst=match[1]; - return [0,function(x){return [1,caml_call1(subst,x)]},el]} - function extract_match(tag,arg_ix,sexp) - {if(0 === sexp[0])return illegal_atom(cst_extract_match,sexp); - var _cq_=sexp[1]; - if(_cq_) - {var _cr_=_cq_[1]; - if(0 === _cr_[0]) - {var args=_cq_[2],str=_cr_[1]; - if(caml_string_equal(str,tag)) - {var - match=extract_pos_lst(cst_extract_match$0,[1,args],arg_ix,args), - el=match[2], - subst=match[1]; - return [0, - function(maybe_x) - {return [1,[0,_cr_,caml_call1(subst,maybe_x)]]}, - el]}}} - var - sexp_str=caml_call1(to_string,sexp), - _cs_= - caml_call2 - (Stdlib[28], - cst_Path_extract_match_unexpected_nested_list_in, - sexp_str); - return caml_call1(Stdlib[2],_cs_)} - function extract_rec(key,sexp) - {if(0 === sexp[0])return illegal_atom(cst_extract_rec,sexp); - var lst=sexp[1],acc=0,param=lst; - for(;;) - {if(param) - {var _cl_=param[1]; - if(1 === _cl_[0]) - {var _cm_=_cl_[1]; - if(_cm_) - {var _cn_=_cm_[1]; - if(0 === _cn_[0]) - {var _co_=_cm_[2]; - if(_co_) - if(! _co_[2]) - {var rest=param[2],v=_co_[1],str=_cn_[1]; - if(caml_string_equal(str,key)) - {var - subst= - function(x) - {return [1, - caml_call2 - (Stdlib_list[12],acc,[0,[1,[0,_cn_,[0,x,0]]],rest])]}; - return [0,subst,v]}}}}} - var param$0=param[2],acc$0=[0,_cl_,acc],acc=acc$0,param=param$0; - continue} - var - sexp_str=caml_call1(to_string,sexp), - _cp_=caml_call3(Stdlib_format[126],_bV_,key,sexp_str); - return caml_call1(Stdlib[2],_cp_)}} - function id(x){return x} - function subst_option(param,rest) + [11, + caml_string_of_jsbytes("Cstruct.blit_to_bytes src="), + [15, + [11, + caml_string_of_jsbytes(" dst="), + [15, + [11, + caml_string_of_jsbytes(" src-off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]]]], + caml_string_of_jsbytes + ("Cstruct.blit_to_bytes src=%a dst=%a src-off=%d len=%d")], + _o_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.blit_from_bytes src="), + [15, + [11, + caml_string_of_jsbytes(" dst="), + [15, + [11, + caml_string_of_jsbytes(" dst-off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]]]], + caml_string_of_jsbytes + ("Cstruct.blit_from_bytes src=%a dst=%a dst-off=%d len=%d")], + _n_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.blit_from_bytes src="), + [15, + [11, + caml_string_of_jsbytes(" dst="), + [15, + [11, + caml_string_of_jsbytes(" src-off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]]]], + caml_string_of_jsbytes + ("Cstruct.blit_from_bytes src=%a dst=%a src-off=%d len=%d")], + _m_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.blit_from_string src="), + [15, + [11, + caml_string_of_jsbytes(" dst="), + [15, + [11, + caml_string_of_jsbytes(" dst-off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]]]], + caml_string_of_jsbytes + ("Cstruct.blit_from_string src=%a dst=%a dst-off=%d len=%d")], + _l_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.blit_from_string src="), + [15, + [11, + caml_string_of_jsbytes(" dst="), + [15, + [11, + caml_string_of_jsbytes(" src-off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]]]], + caml_string_of_jsbytes + ("Cstruct.blit_from_string src=%a dst=%a src-off=%d len=%d")], + _k_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.blit src="), + [15, + [11, + caml_string_of_jsbytes(" dst="), + [15, + [11, + caml_string_of_jsbytes(" dst-off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]]]], + caml_string_of_jsbytes("Cstruct.blit src=%a dst=%a dst-off=%d len=%d")], + _j_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.blit src="), + [15, + [11, + caml_string_of_jsbytes(" dst="), + [15, + [11, + caml_string_of_jsbytes(" src-off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]]]], + caml_string_of_jsbytes("Cstruct.blit src=%a dst=%a src-off=%d len=%d")], + _i_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.copy "), + [15, + [11, + caml_string_of_jsbytes(" off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]], + caml_string_of_jsbytes("Cstruct.copy %a off=%d len=%d")], + _h_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.add_len "), + [15,[12,32,[4,0,0,0,0]]]], + caml_string_of_jsbytes("Cstruct.add_len %a %d")], + _g_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.set_len "), + [15,[12,32,[4,0,0,0,0]]]], + caml_string_of_jsbytes("Cstruct.set_len %a %d")], + _f_= + [0, + [11,caml_string_of_jsbytes("Cstruct.shift "),[15,[12,32,[4,0,0,0,0]]]], + caml_string_of_jsbytes("Cstruct.shift %a %d")], + _e_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.sub: "), + [15, + [11, + caml_string_of_jsbytes(" off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]]]], + caml_string_of_jsbytes("Cstruct.sub: %a off=%d len=%d")], + _d_= + [0, + [11, + caml_string_of_jsbytes("Cstruct.of_bigarray off="), + [4,0,0,0,[11,caml_string_of_jsbytes(" len="),[4,0,0,0,0]]]], + caml_string_of_jsbytes("Cstruct.of_bigarray off=%d len=%d")], + _c_=[0,[12,91,[4,0,0,0,[12,93,0]]],caml_string_of_jsbytes("[%d]")], + _b_=[0,[12,91,[4,0,0,0,[12,93,0]]],caml_string_of_jsbytes("[%d]")], + _a_= + [0, + [12, + 91, + [4, + 0, + 0, + 0, + [12, + 44, + [4,0,0,0,[11,caml_string_of_jsbytes("]("),[4,0,0,0,[12,41,0]]]]]]], + caml_string_of_jsbytes("[%d,%d](%d)")], + _D_=[0,[17,3,[15,[17,4,0]]],caml_string_of_jsbytes("@\n%a@.")], + _F_=[0,caml_string_of_jsbytes("lib/cstruct_cap.ml"),82,2]; + function pp_t(ppf,t) + {var _al_=caml_ba_dim_1(t[1]); + return caml_call5(Stdlib_format[123],ppf,_a_,t[2],t[3],_al_)} + function string_t(ppf,str) + {return caml_call3(Stdlib_format[123],ppf,_b_,caml_ml_string_length(str))} + function bytes_t(ppf,str) + {return caml_call3(Stdlib_format[123],ppf,_c_,caml_ml_bytes_length(str))} + function err(fmt) {var - el=param[2], - sup_subst=param[1], - match=subst_path(el,rest), - sub_el=match[2], - sub_subst=match[1]; - function subst(x) - {return caml_call1(sup_subst,[0,caml_call1(sub_subst,x)])} - return [0,subst,sub_el]} - function subst_path(sexp,param) - {if(param) - {var _ck_=param[1]; - switch(_ck_[0]) - {case 0: - var t=param[2],n=_ck_[1]; - return subst_option(extract_pos(n,sexp),t); - case 1: - var t$0=param[2],arg_ix=_ck_[2],tag=_ck_[1]; - return subst_option(extract_match(tag,arg_ix,sexp),t$0); - default: - var - rest=param[2], - key=_ck_[1], - match=extract_rec(key,sexp), - el=match[2], - rec_subst=match[1], - match$0=subst_path(el,rest), - sub_el=match$0[2], - sub_subst=match$0[1], - subst= - function(x){return caml_call1(rec_subst,caml_call1(sub_subst,x))}; - return [0,subst,sub_el]}} - return [0,id,sexp]} - function implode(param) + b=caml_call1(Stdlib_buffer[1],20), + ppf=caml_call1(Stdlib_format[107],b); + function k(ppf) + {caml_call2(Stdlib_format[36],ppf,0); + var _ak_=caml_call1(Stdlib_buffer[2],b); + return caml_call1(Stdlib[1],_ak_)} + return caml_call3(Stdlib_format[130],k,ppf,fmt)} + function err_invalid_bounds(f){return caml_call2(err(_r_),f,pp_t)} + function err_split(t){return caml_call2(err(_s_),pp_t,t)} + function err_iter(t){return caml_call2(err(_t_),pp_t,t)} + function of_bigarray(opt,len,buffer) + {if(opt)var sth=opt[1],off=sth;else var off=0; + var dim=caml_ba_dim_1(buffer); + if(len)var len$0=len[1],len$1=len$0;else var len$1=dim - off | 0; + if + (0 + <= + off + && + 0 + <= + len$1 + && + 0 + <= + (off + len$1 | 0) + && + ! + (dim < (off + len$1 | 0))) + return [0,buffer,off,len$1]; + return caml_call1(caml_call1(err(_d_),off),len$1)} + function to_bigarray(buffer) + {return runtime.caml_ba_sub(buffer[1],buffer[2],buffer[3])} + function create_unsafe(len) {var - len=caml_call1(Stdlib_list[1],param), - str=caml_create_bytes(len), - ix=0, - param$0=param; - for(;;) - {if(param$0) - {var t=param$0[2],h=param$0[1]; - caml_bytes_set(str,ix,h); - var ix$0=ix + 1 | 0,ix=ix$0,param$0=t; + buffer= + caml_call3 + (Bigarray_compat[19][1],Bigarray_compat[13],Bigarray_compat[15],len); + return [0,buffer,0,len]} + function check_bounds(t,len) + {var _ai_=0 <= len?1:0,_aj_=_ai_?len <= caml_ba_dim_1(t[1])?1:0:_ai_; + return _aj_} + var empty=create_unsafe(0); + function check_alignment(t,alignment) + {return 0 < alignment + ?runtime.caml_check_alignment_bigstring(t[1],t[2],alignment) + :caml_call1(Stdlib[1],cst_check_alignment_must_be_po)} + function byte$0(i){return caml_call1(Stdlib_char[1],i)} + function byte_to_int(b){return b} + function debug(t) + {var max_len=caml_ba_dim_1(t[1]); + if(! (max_len < (t[2] + t[3] | 0)) && 0 <= t[3] && 0 <= t[2]) + return caml_call3(Stdlib_format[127],_w_,pp_t,t); + caml_call4(Stdlib_format[124],_u_,t[2] + t[3] | 0,pp_t,t); + throw [0,Assert_failure,_v_]} + function sub(t,off,len) + {var + new_start=t[2] + off | 0, + new_end=new_start + len | 0, + old_end=t[2] + t[3] | 0; + if(t[2] <= new_start && new_end <= old_end && new_start <= new_end) + return [0,t[1],new_start,len]; + return caml_call2(caml_call2(err(_e_),pp_t,t),off,len)} + function shift(t,amount) + {var off=t[2] + amount | 0,len=t[3] - amount | 0; + if(0 <= amount && ! (t[3] < amount) && check_bounds(t,off + len | 0)) + return [0,t[1],off,len]; + return caml_call1(caml_call2(err(_f_),pp_t,t),amount)} + function set_len(t,len) + {if(0 <= len && check_bounds(t,t[2] + len | 0))return [0,t[1],t[2],len]; + return caml_call1(caml_call2(err(_g_),pp_t,t),len)} + function add_len(t,len) + {var len$0=t[3] + len | 0; + if(0 <= len$0 && check_bounds(t,t[2] + len$0 | 0)) + return [0,t[1],t[2],len$0]; + return caml_call1(caml_call2(err(_h_),pp_t,t),len$0)} + function copy(src,srcoff,len) + {if(0 <= len && 0 <= srcoff && ! ((src[3] - srcoff | 0) < len)) + {var b=caml_create_bytes(len); + caml_blit_bigstring_to_string(src[1],src[2] + srcoff | 0,b,0,len); + return caml_call1(Stdlib_bytes[42],b)} + return caml_call2(caml_call2(err(_i_),pp_t,src),srcoff,len)} + function blit(src,srcoff,dst,dstoff,len) + {if(0 <= len && 0 <= srcoff && ! ((src[3] - srcoff | 0) < len)) + {if(0 <= dstoff && ! ((dst[3] - dstoff | 0) < len)) + return runtime.caml_blit_bigstring_to_bigstring + (src[1],src[2] + srcoff | 0,dst[1],dst[2] + dstoff | 0,len); + return caml_call2(caml_call4(err(_k_),pp_t,src,pp_t,dst),dstoff,len)} + return caml_call2(caml_call4(err(_j_),pp_t,src,pp_t,dst),srcoff,len)} + function blit_from_string(src,srcoff,dst,dstoff,len) + {if + (0 + <= + len + && + 0 + <= + srcoff + && + 0 + <= + dstoff + && + ! + ((caml_ml_string_length(src) - srcoff | 0) < len)) + return (dst[3] - dstoff | 0) < len + ?caml_call2 + (caml_call4(err(_m_),string_t,src,pp_t,dst),dstoff,len) + :caml_blit_string_to_bigstring + (src,srcoff,dst[1],dst[2] + dstoff | 0,len); + return caml_call2(caml_call4(err(_l_),string_t,src,pp_t,dst),srcoff,len)} + function blit_from_bytes(src,srcoff,dst,dstoff,len) + {if + (0 + <= + len + && + 0 + <= + srcoff + && + 0 + <= + dstoff + && + ! + ((caml_ml_bytes_length(src) - srcoff | 0) < len)) + return (dst[3] - dstoff | 0) < len + ?caml_call2 + (caml_call4(err(_o_),bytes_t,src,pp_t,dst),dstoff,len) + :caml_blit_string_to_bigstring + (src,srcoff,dst[1],dst[2] + dstoff | 0,len); + return caml_call2(caml_call4(err(_n_),bytes_t,src,pp_t,dst),srcoff,len)} + function blit_to_string(src,srcoff,dst,dstoff,len) + {if + (0 + <= + len + && + 0 + <= + srcoff + && + 0 + <= + dstoff + && + ! + ((src[3] - srcoff | 0) < len)) + return (caml_ml_bytes_length(dst) - dstoff | 0) < len + ?caml_call2 + (caml_call4(err(_q_),pp_t,src,bytes_t,dst),dstoff,len) + :caml_blit_bigstring_to_string + (src[1],src[2] + srcoff | 0,dst,dstoff,len); + return caml_call2(caml_call4(err(_p_),pp_t,src,bytes_t,dst),srcoff,len)} + function compare(t1,t2) + {var l1=t1[3],l2=t2[3],r=runtime.caml_int_compare(l1,l2); + if(0 === r) + {var r$0=runtime.caml_compare_bigstring(t1[1],t1[2],t2[1],t2[2],l1); + return 0 === r$0?0:0 <= r$0?1:-1} + return r} + function equal(t1,t2){return 0 === compare(t1,t2)?1:0} + function memset(t,x){return runtime.caml_fill_bigstring(t[1],t[2],t[3],x)} + function create(len){var t=create_unsafe(len);memset(t,0);return t} + function set_uint8(t,i,c) + {if(! (t[3] <= i) && 0 <= i)return caml_ba_set_1(t[1],t[2] + i | 0,c); + return caml_call3(err_invalid_bounds(cst_set_uint8),t,i,1)} + function set_char(t,i,c) + {if(! (t[3] <= i) && 0 <= i)return caml_ba_set_1(t[1],t[2] + i | 0,c); + return caml_call3(err_invalid_bounds(cst_set_char),t,i,1)} + function get_uint8(t,i) + {if(! (t[3] <= i) && 0 <= i)return caml_ba_get_1(t[1],t[2] + i | 0); + return caml_call3(err_invalid_bounds(cst_get_uint8),t,i,1)} + function get_char(t,i) + {if(! (t[3] <= i) && 0 <= i)return caml_ba_get_1(t[1],t[2] + i | 0); + return caml_call3(err_invalid_bounds(cst_get_char),t,i,1)} + function set_uint16(swap,p,t,i,c) + {if(! ((t[3] - 2 | 0) < i) && 0 <= i) + {var _ah_=swap?caml_bswap16(c):c; + return runtime.caml_ba_uint8_set16(t[1],t[2] + i | 0,_ah_)} + return caml_call3 + (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_set_uint16)), + t, + i, + 2)} + function set_uint32(swap,p,t,i,c) + {if(! ((t[3] - 4 | 0) < i) && 0 <= i) + {var _ag_=swap?caml_int32_bswap(c):c; + return runtime.caml_ba_uint8_set32(t[1],t[2] + i | 0,_ag_)} + return caml_call3 + (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_set_uint32)), + t, + i, + 4)} + function set_uint64(swap,p,t,i,c) + {if(! ((t[3] - 8 | 0) < i) && 0 <= i) + {var _af_=swap?caml_int64_bswap(c):c; + return runtime.caml_ba_uint8_set64(t[1],t[2] + i | 0,_af_)} + return caml_call3 + (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_set_uint64)), + t, + i, + 8)} + function get_uint16(swap,p,t,i) + {if(! ((t[3] - 2 | 0) < i) && 0 <= i) + {var r=runtime.caml_ba_uint8_get16(t[1],t[2] + i | 0); + return swap?caml_bswap16(r):r} + return caml_call3 + (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_get_uint16)), + t, + i, + 2)} + function get_uint32(swap,p,t,i) + {if(! ((t[3] - 4 | 0) < i) && 0 <= i) + {var r=runtime.caml_ba_uint8_get32(t[1],t[2] + i | 0); + return swap?caml_int32_bswap(r):r} + return caml_call3 + (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_get_uint32)), + t, + i, + 4)} + function get_uint64(swap,p,t,i) + {if(! ((t[3] - 8 | 0) < i) && 0 <= i) + {var r=runtime.caml_ba_uint8_get64(t[1],t[2] + i | 0); + return swap?caml_int64_bswap(r):r} + return caml_call3 + (err_invalid_bounds(caml_call2(Stdlib[28],p,cst_get_uint64)), + t, + i, + 8)} + function set_uint16$0(t,i,c) + {return set_uint16(1 - Stdlib_sys[11],cst_BE,t,i,c)} + function set_uint32$0(t,i,c) + {return set_uint32(1 - Stdlib_sys[11],cst_BE$0,t,i,c)} + function set_uint64$0(t,i,c) + {return set_uint64(1 - Stdlib_sys[11],cst_BE$1,t,i,c)} + function get_uint16$0(t,i) + {return get_uint16(1 - Stdlib_sys[11],cst_BE$2,t,i)} + function get_uint32$0(t,i) + {return get_uint32(1 - Stdlib_sys[11],cst_BE$3,t,i)} + function get_uint64$0(t,i) + {return get_uint64(1 - Stdlib_sys[11],cst_BE$4,t,i)} + function set_uint16$1(t,i,c) + {return set_uint16(Stdlib_sys[11],cst_LE,t,i,c)} + function set_uint32$1(t,i,c) + {return set_uint32(Stdlib_sys[11],cst_LE$0,t,i,c)} + function set_uint64$1(t,i,c) + {return set_uint64(Stdlib_sys[11],cst_LE$1,t,i,c)} + function get_uint16$1(t,i){return get_uint16(Stdlib_sys[11],cst_LE$2,t,i)} + function get_uint32$1(t,i){return get_uint32(Stdlib_sys[11],cst_LE$3,t,i)} + function get_uint64$1(t,i){return get_uint64(Stdlib_sys[11],cst_LE$4,t,i)} + function length(t){return t[3]} + function sum_lengths(caller,l) + {var acc=0,param=l; + for(;;) + {if(param) + {var t=param[2],h=param[1],acc$0=h[3] + acc | 0; + if(acc$0 < acc)return caml_call1(Stdlib[1],caller); + var acc=acc$0,param=t; continue} - return caml_call1(Stdlib_bytes[42],str)}} - function fail_parse(msg) - {var _cj_=caml_call2(Stdlib[28],cst_Path_parse,msg); - return caml_call1(Stdlib[2],_cj_)} - function parse$0(str) - {var len=caml_ml_string_length(str); - if(0 === len)return fail_parse(cst_path_empty); - var acc=0,dot_ix=0; - a: + return acc}} + function lenv(l){return sum_lengths(cst_Cstruct_lenv,l)} + function copyv(ts) + {var + sz=sum_lengths(cst_Cstruct_copyv,ts), + dst=caml_create_bytes(sz), + _ad_=0; + function _ae_(off,src) + {var x=src[3]; + caml_blit_bigstring_to_string(src[1],src[2],dst,off,x); + return off + x | 0} + caml_call3(Stdlib_list[21],_ae_,_ad_,ts); + return caml_call1(Stdlib_bytes[42],dst)} + function fillv(param,dst) + {var dst$0=dst,n=0,param$0=param; for(;;) - {var c=caml_string_get(str,dot_ix); - if(46 === c) - {var ix=dot_ix + 1 | 0; - if(ix === len)return caml_call1(Stdlib_list[9],acc); - var acc$0=acc,str_acc=0,ix$0=ix; - for(;;) - {if(ix$0 === len) - {var _ci_=[0,[2,implode(caml_call1(Stdlib_list[9],str_acc))],0]; - return caml_call2(Stdlib_list[12],acc$0,_ci_)} - var c$0=caml_string_get(str,ix$0),switcher=c$0 - 91 | 0; - if(1 < switcher >>> 0) - {if(-45 === switcher) - {if(0 === str_acc)fail_parse(cst_double); - var - path_el=[2,implode(caml_call1(Stdlib_list[9],str_acc))], - ix$1=ix$0 + 1 | 0, - acc$1=[0,path_el,acc$0], - acc$0=acc$1, - str_acc=0, - ix$0=ix$1; - continue} - var - ix$2=ix$0 + 1 | 0, - str_acc$0=[0,c$0,str_acc], - str_acc=str_acc$0, - ix$0=ix$2; - continue} - if(0 === switcher) - {var ix$6=ix$0 + 1 | 0,index_acc=0,ix$3=ix$6; - for(;;) - {if(ix$3 === len)return fail_parse(cst_EOF_reading_index); - var c$1=caml_string_get(str,ix$3); - if(58 <= c$1) - {if(93 === c$1) - {if(index_acc) - {var - index_acc$0=index_acc[1], - path_el$0= - 0 === str_acc - ?[0,index_acc$0] - :[1,implode(caml_call1(Stdlib_list[9],str_acc)),index_acc$0], - dot_ix$0=ix$3 + 1 | 0; - if(dot_ix$0 === len) - return caml_call2(Stdlib_list[12],acc$0,[0,path_el$0,0]); - var acc$2=[0,path_el$0,acc$0],acc=acc$2,dot_ix=dot_ix$0; - continue a} - return fail_parse(cst_empty_index)}} - else - if(48 <= c$1) - {if(index_acc) - {var - index_acc$1=index_acc[1], - index_acc$2=[0,((10 * index_acc$1 | 0) + c$1 | 0) - 48 | 0], - ix$4=ix$3 + 1 | 0, - index_acc=index_acc$2, - ix$3=ix$4; - continue} - var - ix$5=ix$3 + 1 | 0, - index_acc$3=[0,c$1 - 48 | 0], - index_acc=index_acc$3, - ix$3=ix$5; - continue} - return fail_parse(caml_call2(Stdlib_format[126],_bW_,c$1))}} - var ix1=ix$0 + 1 | 0; - if(ix1 === len)return fail_parse(cst_EOF_after_escape); + {if(param$0) + {var tl=param$0[2],hd=param$0[1],avail=dst$0[3],first=hd[3]; + if(first <= avail) + {blit(hd,0,dst$0,0,first); var - ix$7=ix$0 + 1 | 0, - str_acc$1=[0,caml_string_get(str,ix1),str_acc], - str_acc=str_acc$1, - ix$0=ix$7; - continue}} - return fail_parse(caml_call2(Stdlib_format[126],_bX_,c))}} - function get_subst(path,match,sexp) - {if(path) - var path$0=path[1],path$1=path$0; + n$0=n + first | 0, + dst$1=shift(dst$0,first), + dst$0=dst$1, + n=n$0, + param$0=tl; + continue} + blit(hd,0,dst$0,0,avail); + var rest_hd=shift(hd,avail); + return [0,n + avail | 0,[0,rest_hd,tl]]} + return [0,n,0]}} + function to_bytes(t) + {var sz=t[3],b=caml_create_bytes(sz); + caml_blit_bigstring_to_string(t[1],t[2],b,0,sz); + return b} + function to_string(t) + {var _ac_=to_bytes(t);return caml_call1(Stdlib_bytes[42],_ac_)} + function of_data_abstract(blitfun,lenfun,allocator,opt,len,buf) + {if(opt)var sth=opt[1],off=sth;else var off=0; + if(len) + var len$0=len[1],buflen=len$0; else - if(match)var str=match[1],path$1=parse$0(str);else var path$1=0; - return subst_path(sexp,path$1)} - function get(path,str,sexp){return get_subst(path,str,sexp)[2]} - function replace$0(path,str,sexp,subst) - {var match=get_subst(path,str,sexp),subst_fun=match[1]; - return caml_call1(subst_fun,subst)} - function replace_no_path(str,sexp,subst) - {return replace$0(0,[0,str],sexp,subst)} - var - Sexplib_Path= - [0, - parse$0, - get, - replace$0, - replace_no_path, - subst_path, - extract_pos, - extract_match, - extract_rec]; - caml_register_global(178,Sexplib_Path,"Sexplib__Path"); - var of_val=Stdlib_obj[22]; - function register(exc,exc_name) - {function _cg_(exc){return [0,exc_name]} - var _ch_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_ch_,_cg_)} - function register1(make_exc,exc_name,sexp_of_arg1) - {var exc=caml_call1(make_exc,0); - function _ce_(exc) - {var sexp1=caml_call1(sexp_of_arg1,exc[2]); - return [1,[0,[0,exc_name],[0,sexp1,0]]]} - var _cf_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_cf_,_ce_)} - function register2(make_exc,exc_name,sexp_of_arg1,sexp_of_arg2) - {var exc=caml_call2(make_exc,0,0); - function _cc_(repr) - {var - sexp1=caml_call1(sexp_of_arg1,repr[2]), - sexp2=caml_call1(sexp_of_arg2,repr[3]); - return [1,[0,[0,exc_name],[0,sexp1,[0,sexp2,0]]]]} - var _cd_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_cd_,_cc_)} - function register3 - (make_exc,exc_name,sexp_of_arg1,sexp_of_arg2,sexp_of_arg3) - {var exc=caml_call3(make_exc,0,0,0); - function _ca_(repr) - {var - sexp1=caml_call1(sexp_of_arg1,repr[2]), - sexp2=caml_call1(sexp_of_arg2,repr[3]), - sexp3=caml_call1(sexp_of_arg3,repr[4]); - return [1,[0,[0,exc_name],[0,sexp1,[0,sexp2,[0,sexp3,0]]]]]} - var _cb_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_cb_,_ca_)} - function register4 - (make_exc,exc_name,sexp_of_arg1,sexp_of_arg2,sexp_of_arg3,sexp_of_arg4) - {var exc=caml_call4(make_exc,0,0,0,0); - function _b__(repr) - {var - sexp1=caml_call1(sexp_of_arg1,repr[2]), - sexp2=caml_call1(sexp_of_arg2,repr[3]), - sexp3=caml_call1(sexp_of_arg3,repr[4]), - sexp4=caml_call1(sexp_of_arg4,repr[5]); - return [1,[0,[0,exc_name],[0,sexp1,[0,sexp2,[0,sexp3,[0,sexp4,0]]]]]]} - var _b$_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_b$_,_b__)} - function register5 - (make_exc, - exc_name, - sexp_of_arg1, - sexp_of_arg2, - sexp_of_arg3, - sexp_of_arg4, - sexp_of_arg5) - {var exc=caml_call5(make_exc,0,0,0,0,0); - function _b8_(repr) - {var - sexp1=caml_call1(sexp_of_arg1,repr[2]), - sexp2=caml_call1(sexp_of_arg2,repr[3]), - sexp3=caml_call1(sexp_of_arg3,repr[4]), - sexp4=caml_call1(sexp_of_arg4,repr[5]), - sexp5=caml_call1(sexp_of_arg5,repr[6]); - return [1, - [0, - [0,exc_name], - [0,sexp1,[0,sexp2,[0,sexp3,[0,sexp4,[0,sexp5,0]]]]]]]} - var _b9_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_b9_,_b8_)} - function register6 - (make_exc, - exc_name, - sexp_of_arg1, - sexp_of_arg2, - sexp_of_arg3, - sexp_of_arg4, - sexp_of_arg5, - sexp_of_arg6) - {var exc=caml_call6(make_exc,0,0,0,0,0,0); - function _b6_(repr) - {var - sexp1=caml_call1(sexp_of_arg1,repr[2]), - sexp2=caml_call1(sexp_of_arg2,repr[3]), - sexp3=caml_call1(sexp_of_arg3,repr[4]), - sexp4=caml_call1(sexp_of_arg4,repr[5]), - sexp5=caml_call1(sexp_of_arg5,repr[6]), - sexp6=caml_call1(sexp_of_arg6,repr[7]); - return [1, - [0, - [0,exc_name], - [0,sexp1,[0,sexp2,[0,sexp3,[0,sexp4,[0,sexp5,[0,sexp6,0]]]]]]]]} - var _b7_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_b7_,_b6_)} - function register7 - (make_exc, - exc_name, - sexp_of_arg1, - sexp_of_arg2, - sexp_of_arg3, - sexp_of_arg4, - sexp_of_arg5, - sexp_of_arg6, - sexp_of_arg7) - {var exc=caml_call7(make_exc,0,0,0,0,0,0,0); - function _b4_(repr) + var buflen=caml_call1(lenfun,buf); + if(allocator) + {var fn=allocator[1],c=caml_call1(fn,buflen); + caml_call5(blitfun,buf,off,c,0,buflen); + return set_len(c,buflen)} + var c$0=create_unsafe(buflen); + caml_call5(blitfun,buf,off,c$0,0,buflen); + return c$0} + function of_string(allocator,off,len,buf) + {return of_data_abstract + (blit_from_string,caml_ml_string_length,allocator,off,len,buf)} + function of_bytes(allocator,off,len,buf) + {return of_data_abstract + (blit_from_bytes,caml_ml_bytes_length,allocator,off,len,buf)} + function of_hex(str) + {var + z=[0,create_unsafe(caml_ml_string_length(str) >>> 1 | 0),0,0,0], + st=[0,z]; + function _W_(char$0) {var - sexp1=caml_call1(sexp_of_arg1,repr[2]), - sexp2=caml_call1(sexp_of_arg2,repr[3]), - sexp3=caml_call1(sexp_of_arg3,repr[4]), - sexp4=caml_call1(sexp_of_arg4,repr[5]), - sexp5=caml_call1(sexp_of_arg5,repr[6]), - sexp6=caml_call1(sexp_of_arg6,repr[7]), - sexp7=caml_call1(sexp_of_arg7,repr[8]); - return [1, - [0, - [0,exc_name], - [0, - sexp1, - [0, - sexp2, - [0,sexp3,[0,sexp4,[0,sexp5,[0,sexp6,[0,sexp7,0]]]]]]]]]} - var _b5_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_b5_,_b4_)} - function register8 - (make_exc, - exc_name, - sexp_of_arg1, - sexp_of_arg2, - sexp_of_arg3, - sexp_of_arg4, - sexp_of_arg5, - sexp_of_arg6, - sexp_of_arg7, - sexp_of_arg8) - {var exc=caml_call8(make_exc,0,0,0,0,0,0,0,0); - function _b2_(repr) + ___=st[1], + acc=___[4], + p=___[3], + i=___[2], + cs=___[1], + p$0=p + 1 | 0, + _aa_=char$0 - 9 | 0, + switch$0=0; + if(4 < _aa_ >>> 0) + {if(23 === _aa_)switch$0 = 1} + else + if(1 < (_aa_ - 2 | 0) >>> 0)switch$0 = 1; + var _ab_=switch$0?1:0; + if(_ab_) + var _$_=[0,cs,i,p$0,acc]; + else + {var switch$1=0; + if(65 <= char$0) + if(97 <= char$0) + if(103 <= char$0)switch$1 = 1;else var match=char$0 - 87 | 0; + else + if(71 <= char$0)switch$1 = 1;else var match=char$0 - 55 | 0; + else + {var switcher=char$0 - 48 | 0; + if(9 < switcher >>> 0)switch$1 = 1;else var match=char$0 - 48 | 0} + if(switch$1) + var match=caml_call4(Stdlib_format[133],Stdlib[1],_x_,p,char$0); + if(acc) + {var y=acc[1]; + set_uint8(cs,i,match | y); + var _$_=[0,cs,i + 1 | 0,p$0,0]} + else + var _$_=[0,cs,i,p$0,[0,match << 4]]} + st[1] = _$_; + return 0} + caml_call2(Stdlib_string[8],_W_,str); + var _X_=st[1],_Y_=_X_[2],_Z_=_X_[1]; + return _X_[4] + ?caml_call2(Stdlib_format[133],Stdlib[1],_y_) + :sub(_Z_,0,_Y_)} + function hexdump_pp(fmt,t) + {function before(fmt,param) + {return 0 === param + ?0 + :8 === param + ?caml_call2(Stdlib_format[123],fmt,_z_) + :caml_call2(Stdlib_format[123],fmt,_A_)} + function after(fmt,param) + {return 15 === param?caml_call2(Stdlib_format[123],fmt,_B_):0} + caml_call2(Stdlib_format[7],fmt,0); + var _U_=t[3] - 1 | 0,_T_=0; + if(! (_U_ < 0)) + {var i=_T_; + for(;;) + {var column=i % 16 | 0,c=caml_ba_get_1(t[1],t[2] + i | 0); + caml_call7(Stdlib_format[123],fmt,_C_,before,column,c,after,column); + var _V_=i + 1 | 0; + if(_U_ !== i){var i=_V_;continue} + break}} + return caml_call2(Stdlib_format[3],fmt,0)} + var hexdump=caml_call2(Stdlib_format[124],_D_,hexdump_pp); + function hexdump_to_buffer(buf,t) + {var f=caml_call1(Stdlib_format[107],buf); + return caml_call4(Stdlib_format[123],f,_E_,hexdump_pp,t)} + function split(opt,t,off) + {if(opt)var sth=opt[1],start=sth;else var start=0; + try {var - sexp1=caml_call1(sexp_of_arg1,repr[2]), - sexp2=caml_call1(sexp_of_arg2,repr[3]), - sexp3=caml_call1(sexp_of_arg3,repr[4]), - sexp4=caml_call1(sexp_of_arg4,repr[5]), - sexp5=caml_call1(sexp_of_arg5,repr[6]), - sexp6=caml_call1(sexp_of_arg6,repr[7]), - sexp7=caml_call1(sexp_of_arg7,repr[8]), - sexp8=caml_call1(sexp_of_arg8,repr[9]); - return [1, - [0, - [0,exc_name], - [0, - sexp1, - [0, - sexp2, - [0, - sexp3, - [0,sexp4,[0,sexp5,[0,sexp6,[0,sexp7,[0,sexp8,0]]]]]]]]]]} - var _b3_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_b3_,_b2_)} - function register9 - (make_exc, - exc_name, - sexp_of_arg1, - sexp_of_arg2, - sexp_of_arg3, - sexp_of_arg4, - sexp_of_arg5, - sexp_of_arg6, - sexp_of_arg7, - sexp_of_arg8, - sexp_of_arg9) - {var exc=caml_call9(make_exc,0,0,0,0,0,0,0,0,0); - function _b0_(repr) - {var - sexp1=caml_call1(sexp_of_arg1,repr[2]), - sexp2=caml_call1(sexp_of_arg2,repr[3]), - sexp3=caml_call1(sexp_of_arg3,repr[4]), - sexp4=caml_call1(sexp_of_arg4,repr[5]), - sexp5=caml_call1(sexp_of_arg5,repr[6]), - sexp6=caml_call1(sexp_of_arg6,repr[7]), - sexp7=caml_call1(sexp_of_arg7,repr[8]), - sexp8=caml_call1(sexp_of_arg8,repr[9]), - sexp9=caml_call1(sexp_of_arg9,repr[10]); - return [1, - [0, - [0,exc_name], - [0, - sexp1, - [0, - sexp2, - [0, - sexp3, - [0, - sexp4, - [0,sexp5,[0,sexp6,[0,sexp7,[0,sexp8,[0,sexp9,0]]]]]]]]]]]} - var _b1_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_b1_,_b0_)} - function register10 - (make_exc, - exc_name, - sexp_of_arg1, - sexp_of_arg2, - sexp_of_arg3, - sexp_of_arg4, - sexp_of_arg5, - sexp_of_arg6, - sexp_of_arg7, - sexp_of_arg8, - sexp_of_arg9, - sexp_of_arg10) - {var exc=caml_call10(make_exc,0,0,0,0,0,0,0,0,0,0); - function _bY_(repr) - {var - sexp1=caml_call1(sexp_of_arg1,repr[2]), - sexp2=caml_call1(sexp_of_arg2,repr[3]), - sexp3=caml_call1(sexp_of_arg3,repr[4]), - sexp4=caml_call1(sexp_of_arg4,repr[5]), - sexp5=caml_call1(sexp_of_arg5,repr[6]), - sexp6=caml_call1(sexp_of_arg6,repr[7]), - sexp7=caml_call1(sexp_of_arg7,repr[8]), - sexp8=caml_call1(sexp_of_arg8,repr[9]), - sexp9=caml_call1(sexp_of_arg9,repr[10]), - sexp10=caml_call1(sexp_of_arg10,repr[11]); - return [1, - [0, - [0,exc_name], - [0, - sexp1, - [0, - sexp2, - [0, - sexp3, - [0, - sexp4, - [0, - sexp5, - [0,sexp6,[0,sexp7,[0,sexp8,[0,sexp9,[0,sexp10,0]]]]]]]]]]]]} - var _bZ_=caml_call1(of_val,exc); - return caml_call3(_bR_[2],0,_bZ_,_bY_)} + header=sub(t,start,off), + body=sub(t,start + off | 0,(t[3] - off | 0) - start | 0), + _R_=[0,header,body]; + return _R_} + catch(_S_) + {_S_ = caml_wrap_exception(_S_); + if(_S_[1] === Stdlib[6])return caml_call2(err_split(t),start,off); + throw _S_}} + function iter(lenfn,pfn,t) + {var body=[0,[0,t]],i=[0,0]; + return function(param) + {var _N_=body[1]; + if(_N_) + {var buf=_N_[1]; + if(0 === buf[3]){body[1] = 0;return 0} + var match=caml_call1(lenfn,buf); + if(match) + {var plen=match[1]; + i[1]++; + try + {var _P_=split(0,buf,plen),match$0=_P_} + catch(_Q_) + {_Q_ = caml_wrap_exception(_Q_); + if(_Q_[1] !== Stdlib[6])throw _Q_; + var _O_=i[1],match$0=caml_call2(err_iter(buf),_O_,plen)} + var rest=match$0[2],p=match$0[1]; + body[1] = [0,rest]; + return [0,caml_call1(pfn,p)]} + body[1] = 0; + return 0} + return 0}} + function fold(f,next,acc) + {var acc$0=acc; + for(;;) + {var match=caml_call1(next,0); + if(match) + {var v=match[1],acc$1=caml_call2(f,acc$0,v),acc$0=acc$1;continue} + return acc$0}} + function append(cs1,cs2) + {var l1=cs1[3],l2=cs2[3],cs=create_unsafe(l1 + l2 | 0); + blit(cs1,0,cs,0,l1); + blit(cs2,0,cs,l1,l2); + return cs} + function concat(css) + {if(css) + {if(css[2]) + {var + result=create_unsafe(sum_lengths(cst_Cstruct_concat,css)), + aux= + function(off,cs) + {var n=cs[3];blit(cs,0,result,off,n);return off + n | 0}; + caml_call3(Stdlib_list[21],aux,0,css); + return result} + var cs=css[1]; + return cs} + return create_unsafe(0)} + function rev(t) + {var n=t[3],out=create_unsafe(n),_L_=n - 1 | 0,_K_=0; + if(! (_L_ < 0)) + {var i_src=_K_; + for(;;) + {var byte$0=get_uint8(t,i_src),i_dst=(n - 1 | 0) - i_src | 0; + set_uint8(out,i_dst,byte$0); + var _M_=i_src + 1 | 0; + if(_L_ !== i_src){var i_src=_M_;continue} + break}} + return out} var - Sexplib_Exn_magic= + LE= [0, - register, - register1, - register2, - register3, - register4, - register5, - register6, - register7, - register8, - register9, - register10]; - caml_register_global(180,Sexplib_Exn_magic,"Sexplib__Exn_magic"); + get_uint16$1, + get_uint32$1, + get_uint64$1, + set_uint16$1, + set_uint32$1, + set_uint64$1], + BE= + [0, + get_uint16$0, + get_uint32$0, + get_uint64$0, + set_uint16$0, + set_uint32$0, + set_uint64$0], + include= + [0, + byte$0, + empty, + of_bigarray, + to_bigarray, + create, + create_unsafe, + of_string, + of_bytes, + of_hex, + equal, + compare, + byte_to_int, + check_bounds, + check_alignment, + get_char, + get_uint8, + set_char, + set_uint8, + sub, + shift, + copy, + blit, + blit_from_string, + blit_from_bytes, + blit_to_string, + blit_to_string, + memset, + length, + set_len, + add_len, + split, + to_string, + to_bytes, + hexdump, + hexdump_to_buffer, + hexdump_pp, + debug, + BE, + LE, + lenv, + copyv, + fillv, + iter, + fold, + append, + concat, + rev, + sum_lengths]; + caml_register_global(69,include,"Cstruct"); + function of_string$0(off,len,x){return of_string(0,off,len,x)} + function of_bytes$0(off,len,x){return of_bytes(0,off,len,x)} + function to_string$0(opt,len,t) + {if(opt)var sth=opt[1],off=sth;else var off=0; + if(len)var len$0=len[1],len$1=len$0;else var len$1=t[3] - off | 0; + return copy(t,off,len$1)} + function to_bytes$0(opt,len,t) + {if(opt)var sth=opt[1],off=sth;else var off=0; + if(len)var len$0=len[1],len$1=len$0;else var len$1=t[3] - off | 0; + var _J_=copy(t,off,len$1); + return caml_call1(Stdlib_bytes[43],_J_)} + function pp(ppf,t){return hexdump_pp(ppf,t)} + function blit$0(src,src_off,dst,dst_off,len) + {return blit(src,src_off,dst,dst_off,len)} + function blit_from_string$0(src,src_off,dst,dst_off,len) + {return blit_from_string(src,src_off,dst,dst_off,len)} + function blit_from_bytes$0(src,src_off,dst,dst_off,len) + {return blit_from_bytes(src,src_off,dst,dst_off,len)} + function blit_to_bytes(src,src_off,dst,dst_off,len) + {return blit_to_string(src,src_off,dst,dst_off,len)} + function sub$0(t,off,len){return sub(t,off,len)} + function concat$0(vss) + {var res=create_unsafe(sum_lengths(cst_Cstruct_Cap_concat,vss)); + function go(off,v) + {var len=v[3];blit(v,0,res,off,len);return off + len | 0} + var len=caml_call3(Stdlib_list[21],go,0,vss); + if(len === res[3])return res; + throw [0,Assert_failure,_F_]} + function _G_(_I_){return _I_} var - Of_sexp_error$0=Sexplib0_Sexp_conv_error[1], - tuple_of_size_n_expected=Sexplib0_Sexp_conv_error[2], - stag_no_args=Sexplib0_Sexp_conv_error[3], - stag_incorrect_n_args=Sexplib0_Sexp_conv_error[4], - stag_takes_args=Sexplib0_Sexp_conv_error[5], - nested_list_invalid_sum=Sexplib0_Sexp_conv_error[6], - empty_list_invalid_sum=Sexplib0_Sexp_conv_error[7], - unexpected_stag=Sexplib0_Sexp_conv_error[8], - record_only_pairs_expected=Sexplib0_Sexp_conv_error[9], - record_superfluous_fields=Sexplib0_Sexp_conv_error[10], - record_duplicate_fields=Sexplib0_Sexp_conv_error[11], - record_extra_fields=Sexplib0_Sexp_conv_error[12], - record_get_undefined_loop=Sexplib0_Sexp_conv_error[13], - record_undefined_elements=Sexplib0_Sexp_conv_error[14], - record_list_instead_atom=Sexplib0_Sexp_conv_error[15], - record_poly_field_value=Sexplib0_Sexp_conv_error[16], - No_variant_match=Sexplib0_Sexp_conv_error[17], - no_variant_match=Sexplib0_Sexp_conv_error[18], - no_matching_variant_found=Sexplib0_Sexp_conv_error[19], - ptag_no_args=Sexplib0_Sexp_conv_error[20], - ptag_incorrect_n_args=Sexplib0_Sexp_conv_error[21], - ptag_takes_args=Sexplib0_Sexp_conv_error[22], - nested_list_invalid_poly_var=Sexplib0_Sexp_conv_error[23], - empty_list_invalid_poly_var=Sexplib0_Sexp_conv_error[24], - silly_type=Sexplib0_Sexp_conv_error[25], - empty_type=Sexplib0_Sexp_conv_error[26], - Sexplib_Conv_error= + Cstruct_cap= [0, - Of_sexp_error$0, - tuple_of_size_n_expected, - stag_no_args, - stag_incorrect_n_args, - stag_takes_args, - nested_list_invalid_sum, - empty_list_invalid_sum, - unexpected_stag, - record_only_pairs_expected, - record_superfluous_fields, - record_duplicate_fields, - record_extra_fields, - record_get_undefined_loop, - record_undefined_elements, - record_list_instead_atom, - record_poly_field_value, - No_variant_match, - no_variant_match, - no_matching_variant_found, - ptag_no_args, - ptag_incorrect_n_args, - ptag_takes_args, - nested_list_invalid_poly_var, - empty_list_invalid_poly_var, - silly_type, - empty_type]; - caml_register_global(182,Sexplib_Conv_error,"Sexplib__Conv_error"); + create, + create_unsafe, + function(_H_){return _H_}, + _G_, + of_string$0, + of_bytes$0, + of_hex, + to_bigarray, + equal, + compare, + check_alignment, + get_char, + get_uint8, + set_char, + set_uint8, + sub$0, + shift, + to_string$0, + to_bytes$0, + blit$0, + blit_from_string$0, + blit_from_bytes$0, + blit_to_bytes, + memset, + length, + split, + pp, + BE, + LE, + lenv, + copyv, + fillv, + iter, + fold, + append, + concat$0, + rev]; + caml_register_global(70,Cstruct_cap,"Cstruct_cap"); return} (function(){return this}())); -//# 1 "../../.js/ezjsonm/ezjsonm.cma.js" +//# 1 "../../.js/hex/hex.cma.js" (function(joo_global_object) {"use strict"; var runtime=joo_global_object.jsoo_runtime, - caml_fresh_oo_id=runtime.caml_fresh_oo_id, - caml_new_string=runtime.caml_new_string, - caml_trampoline=runtime.caml_trampoline, - caml_trampoline_return=runtime.caml_trampoline_return, - caml_wrap_exception=runtime.caml_wrap_exception; + caml_ba_get_1=runtime.caml_ba_get_1, + caml_bytes_unsafe_set=runtime.caml_bytes_unsafe_set, + caml_create_bytes=runtime.caml_create_bytes, + caml_ml_string_length=runtime.caml_ml_string_length, + caml_string_get=runtime.caml_string_get, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_string_unsafe_get=runtime.caml_string_unsafe_get; function caml_call1(f,a0) {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} function caml_call2(f,a0,a1) {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} - function caml_call5(f,a0,a1,a2,a3,a4) - {return f.length == 5 - ?f(a0,a1,a2,a3,a4) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} + function caml_call3(f,a0,a1,a2) + {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} + function caml_call4(f,a0,a1,a2,a3) + {return f.length == 4 + ?f(a0,a1,a2,a3) + :runtime.caml_call_gen(f,[a0,a1,a2,a3])} var global_data=runtime.caml_get_global_data(), - cst_Ezjsonm_t_of_sexp_encountered_a_value_fragment_rather_than_a_t= - caml_new_string - ("Ezjsonm: t_of_sexp encountered a value (fragment) rather than a t"), - cst_hex$0=caml_new_string("hex"), - cst_hex=caml_new_string("hex"), - cst_Ezjsonm_Escape=caml_new_string("Ezjsonm.Escape"), - cst_Ezjsonm_Parse_error=caml_new_string("Ezjsonm.Parse_error"), - cst_Ezjsonm_Not_utf8=caml_new_string("Ezjsonm.Not_utf8"), - Stdlib=global_data.Stdlib, - Hex=global_data.Hex, - Uutf=global_data.Uutf, - Assert_failure=global_data.Assert_failure, + cst$2=caml_string_of_jsbytes("."), + cst$1=caml_string_of_jsbytes(" "), + cst$3=caml_string_of_jsbytes("\n"), + cst=caml_string_of_jsbytes(""), + hexa=caml_string_of_jsbytes("0123456789abcdef"), + hexa1= + caml_string_of_jsbytes + ("0000000000000000111111111111111122222222222222223333333333333333444444444444444455555555555555556666666666666666777777777777777788888888888888889999999999999999aaaaaaaaaaaaaaaabbbbbbbbbbbbbbbbccccccccccccccccddddddddddddddddeeeeeeeeeeeeeeeeffffffffffffffff"), + hexa2= + caml_string_of_jsbytes + ("0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef0123456789abcdef"), + cst$0=caml_string_of_jsbytes(""), Stdlib_format=global_data.Stdlib__format, - Jsonm=global_data.Jsonm, Stdlib_printf=global_data.Stdlib__printf, Stdlib_buffer=global_data.Stdlib__buffer, + Stdlib_string=global_data.Stdlib__string, + Bigarray_compat=global_data.Bigarray_compat, + Cstruct=global_data.Cstruct, + Stdlib_bytes=global_data.Stdlib__bytes, Stdlib_list=global_data.Stdlib__list, - _t_= - [0, - [11,caml_new_string("Ezjsonm.to_sexp"),0], - caml_new_string("Ezjsonm.to_sexp")], - _s_= - [0, - [11,caml_new_string("Ezjsonm.decode_string_exn"),0], - caml_new_string("Ezjsonm.decode_string_exn")], - _r_= - [0, - [11,caml_new_string("Ezjsonm.get_triple"),0], - caml_new_string("Ezjsonm.get_triple")], - _q_= - [0, - [11,caml_new_string("Ezjsonm.get_pair"),0], - caml_new_string("Ezjsonm.get_pair")], - _p_= - [0, - [11,caml_new_string("Ezjsonm.get_dict"),0], - caml_new_string("Ezjsonm.get_dict")], - _o_= - [0, - [11,caml_new_string("Ezjsonm.get_option"),0], - caml_new_string("Ezjsonm.get_option")], - _n_= - [0, - [11,caml_new_string("Ezjsonm.get_list"),0], - caml_new_string("Ezjsonm.get_list")], - _m_= - [0, - [11,caml_new_string("Ezjsonm.get_float"),0], - caml_new_string("Ezjsonm.get_float")], - _l_= - [0, - [11,caml_new_string("Ezjsonm.get_int64"),0], - caml_new_string("Ezjsonm.get_int64")], - _k_= - [0, - [11,caml_new_string("Ezjsonm.get_int32"),0], - caml_new_string("Ezjsonm.get_int32")], - _j_= - [0, - [11,caml_new_string("Ezjsonm.get_int"),0], - caml_new_string("Ezjsonm.get_int")], - _i_= - [0, - [11,caml_new_string("Ezjsonm.get_string"),0], - caml_new_string("Ezjsonm.get_string")], - _h_= - [0, - [11,caml_new_string("Ezjsonm.get_bool"),0], - caml_new_string("Ezjsonm.get_bool")], - _g_= + Stdlib_char=global_data.Stdlib__char, + Stdlib=global_data.Stdlib, + _h_=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _e_=[0,[0,0],caml_string_of_jsbytes("%c")], + _c_= [0, - [11,caml_new_string("Ezjsonm.get_unit"),0], - caml_new_string("Ezjsonm.get_unit")], - _f_=[0,caml_new_string("lib/ezjsonm.ml"),134,9], - _e_= + [4,0,0,[0,8],[11,caml_string_of_jsbytes(": "),0]], + caml_string_of_jsbytes("%.8d: ")], + _f_=[0,[12,32,0],caml_string_of_jsbytes(" ")], + _g_=[0,[0,0],caml_string_of_jsbytes("%c")], + _d_=[0,[2,0,0],caml_string_of_jsbytes("%s")], + _b_= [0, - [11,caml_new_string("JSON.of_buffer "),[2,0,0]], - caml_new_string("JSON.of_buffer %s")], - _d_= + [11,caml_string_of_jsbytes("hex conversion: invalid hex string"),0], + caml_string_of_jsbytes("hex conversion: invalid hex string")], + _a_= [0, - [11,caml_new_string("Not unwrappable"),0], - caml_new_string("Not unwrappable")], - _b_=[0,caml_new_string("lib/ezjsonm.ml"),56,11], - _c_=[0,caml_new_string("lib/ezjsonm.ml"),63,17], - _a_=[0,caml_new_string("lib/ezjsonm.ml"),47,19]; - function value(t){return t} - var - Escape=[248,cst_Ezjsonm_Escape,caml_fresh_oo_id(0)], - rev=Stdlib_list[9], - rev_append=Stdlib_list[12], - rev_map=Stdlib_list[19], - assoc=Stdlib_list[39], - mem_assoc=Stdlib_list[43]; - function map(f,l){return caml_call1(rev,caml_call2(rev_map,f,l))} - function json_of_src(src) - {var d=caml_call2(Jsonm[3],0,src); - function dec(param) - {var match=caml_call1(Jsonm[4],d); - if(typeof match === "number")throw [0,Assert_failure,_a_]; - if(106380200 <= match[1]) - {var e=match[2];throw [0,Escape,caml_call1(Jsonm[5],d),e]} - var l=match[2]; - return l} - function value$0(counter,v,k) - {if(typeof v === "number") - {if(14610 === v) - {var _ag_=0; - if(counter < 50) - {var counter$1=counter + 1 | 0;return arr$0(counter$1,_ag_,k)} - return caml_trampoline_return(arr$0,[0,_ag_,k])} - if(17732 === v) - {var _ah_=0; - if(counter < 50) - {var counter$0=counter + 1 | 0;return obj$0(counter$0,_ah_,k)} - return caml_trampoline_return(obj$0,[0,_ah_,k])} - var switch$0=870828711 === v?1:0} - else - var - _ai_=v[1], - switch$0= - -976970511 === _ai_?1:365180284 === _ai_?1:737456202 === _ai_?1:0; - if(switch$0)return caml_call1(k,v); - throw [0,Assert_failure,_b_]} - function arr$0(counter,vs,k) - {var v=dec(0); - if(14596 === v)return caml_call1(k,[0,65,caml_call1(rev,vs)]); - function _af_(v){return arr([0,v,vs],k)} - if(counter < 50) - {var counter$0=counter + 1 | 0;return value$0(counter$0,v,_af_)} - return caml_trampoline_return(value$0,[0,v,_af_])} - function obj$0(counter,ms,k) - {var match=dec(0); - if(typeof match === "number") - {if(17718 === match)return caml_call1(k,[0,79,caml_call1(rev,ms)])} + [11, + caml_string_of_jsbytes("Hex.to_char: "), + [4,0,0,0,[11,caml_string_of_jsbytes(" is an invalid char"),0]]], + caml_string_of_jsbytes("Hex.to_char: %d is an invalid char")]; + function invalid_arg(fmt) + {function _M_(str){throw [0,Stdlib[6],str]} + return caml_call2(Stdlib_printf[9],_M_,fmt)} + function of_char(x) + {var _L_=caml_string_get(hexa,x & 15); + return [0,caml_string_get(hexa,x >>> 4 | 0),_L_]} + function to_char(x,y) + {function code(c) + {if(65 <= c) + {if(97 <= c) + {if(! (103 <= c))return c - 87 | 0} + else + if(! (71 <= c))return c - 55 | 0} else - if(869834347 === match[1]) - {var - n=match[2], - _ad_=function(v){return obj([0,[0,n,v],ms],k)}, - _ae_=dec(0); - if(counter < 50) - {var counter$0=counter + 1 | 0; - return value$0(counter$0,_ae_,_ad_)} - return caml_trampoline_return(value$0,[0,_ae_,_ad_])} - throw [0,Assert_failure,_c_]} - function value(v,k){return caml_trampoline(value$0(0,v,k))} - function arr(vs,k){return caml_trampoline(arr$0(0,vs,k))} - function obj(ms,k){return caml_trampoline(obj$0(0,ms,k))} - try - {var _ab_=function(x){return x},_ac_=[0,824773160,value(dec(0),_ab_)]; - return _ac_} - catch(exn) - {exn = caml_wrap_exception(exn); - if(exn[1] === Escape) - {var e=exn[3],r=exn[2];return [0,106380200,[0,r,e]]} - throw exn}} - function value_to_dst(opt,dst,json) - {if(opt)var sth=opt[1],minify=sth;else var minify=1; - function enc(e,l){caml_call2(Jsonm[9],e,[0,-633954146,l]);return 0} - function value$0(counter,v,k,e) - {if(typeof v !== "number") - {var _aa_=v[1]; - if(65 <= _aa_) - if(! (365180284 <= _aa_)) - {if(79 <= v[1]) - {var ms=v[2]; - enc(e,17732); - if(counter < 50) - {var counter$0=counter + 1 | 0; - return obj_ms$0(counter$0,ms,k,e)} - return caml_trampoline_return(obj_ms$0,[0,ms,k,e])} - var vs=v[2]; - enc(e,14610); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return arr_vs$0(counter$1,vs,k,e)} - return caml_trampoline_return(arr_vs$0,[0,vs,k,e])}} - enc(e,v); - return caml_call1(k,e)} - function arr_vs$0(counter,vs,k,e) - {if(vs) - {var vs$0=vs[2],v=vs[1],___=function(_$_){return arr_vs(vs$0,k,_$_)}; - if(counter < 50) - {var counter$0=counter + 1 | 0;return value$0(counter$0,v,___,e)} - return caml_trampoline_return(value$0,[0,v,___,e])} - enc(e,14596); - return caml_call1(k,e)} - function obj_ms$0(counter,ms,k,e) - {if(ms) - {var ms$0=ms[2],match=ms[1],v=match[2],n=match[1]; - enc(e,[0,869834347,n]); - var _Y_=function(_Z_){return obj_ms(ms$0,k,_Z_)}; - if(counter < 50) - {var counter$0=counter + 1 | 0;return value$0(counter$0,v,_Y_,e)} - return caml_trampoline_return(value$0,[0,v,_Y_,e])} - enc(e,17718); - return caml_call1(k,e)} - function value(v,k,e){return caml_trampoline(value$0(0,v,k,e))} - function arr_vs(vs,k,e){return caml_trampoline(arr_vs$0(0,vs,k,e))} - function obj_ms(ms,k,e){return caml_trampoline(obj_ms$0(0,ms,k,e))} - var e=caml_call2(Jsonm[8],[0,minify],dst); - function finish(e){caml_call2(Jsonm[9],e,3455931);return 0} - return value(json,finish,e)} - function value_to_buffer(minify,buf,json) - {return value_to_dst(minify,[0,86585632,buf],json)} - function to_buffer(minify,buf,json) - {return value_to_buffer(minify,buf,json)} - function value_to_string(minify,json) - {var buf=caml_call1(Stdlib_buffer[1],1024); - value_to_buffer(minify,buf,json); - return caml_call1(Stdlib_buffer[2],buf)} - function to_string(minify,json){return value_to_string(minify,json)} - function value_to_channel(minify,oc,json) - {return value_to_dst(minify,[0,438511779,oc],json)} - function to_channel(minify,oc,json) - {return value_to_channel(minify,oc,json)} - var Parse_error=[248,cst_Ezjsonm_Parse_error,caml_fresh_oo_id(0)]; - function parse_error(t,fmt) - {function _X_(msg){throw [0,Parse_error,t,msg]} - return caml_call2(Stdlib_printf[11],_X_,fmt)} - function wrap(t){return [0,65,[0,t,0]]} - function unwrap(v) - {if(typeof v !== "number") - if(65 === v[1]) - {var _W_=v[2];if(_W_)if(! _W_[2]){var t=_W_[1];return t}} - return parse_error(v,_d_)} - function value_from_src(src) - {var match=json_of_src(src); - if(824773160 <= match[1]){var t=match[2];return t} - var match$0=match[2],e=match$0[2]; - caml_call2(Jsonm[2],Stdlib_format[109],e); - var _V_=caml_call1(Stdlib_format[110],0); - return caml_call1(parse_error(870828711,_e_),_V_)} - function value_from_string(str){return value_from_src([0,-976970511,str])} - function value_from_channel(chan) - {return value_from_src([0,438511779,chan])} - function ensure_document(t) - {if(typeof t !== "number") - {var _U_=t[1],switch$0=65 === _U_?1:79 === _U_?1:0; - if(switch$0)return t} - throw [0,Assert_failure,_f_]} - function from_string(str){return ensure_document(value_from_string(str))} - function from_channel(chan) - {return ensure_document(value_from_channel(chan))} - function unit(param){return 870828711} - function get_unit(j){return 870828711 === j?0:parse_error(j,_g_)} - function bool(b){return [0,737456202,b]} - function get_bool(j) - {if(typeof j !== "number")if(737456202 === j[1]){var b=j[2];return b} - return parse_error(j,_h_)} - function string(s){return [0,-976970511,s]} - function get_string(j) - {if(typeof j !== "number")if(-976970511 === j[1]){var s=j[2];return s} - return parse_error(j,_i_)} - function int$0(i){return [0,365180284,i]} - function int32(i){return [0,365180284,i]} - function int64(i){return [0,365180284,runtime.caml_int64_to_float(i)]} - function get_int(j) - {if(typeof j !== "number")if(365180284 === j[1]){var f=j[2];return f | 0} - return parse_error(j,_j_)} - function get_int32(j) - {if(typeof j !== "number")if(365180284 === j[1]){var f=j[2];return f | 0} - return parse_error(j,_k_)} - function get_int64(j) - {if(typeof j !== "number") - if(365180284 === j[1]) - {var f=j[2];return runtime.caml_int64_of_float(f)} - return parse_error(j,_l_)} - function float$0(f){return [0,365180284,f]} - function get_float(j) - {if(typeof j !== "number")if(365180284 === j[1]){var f=j[2];return f} - return parse_error(j,_m_)} - function list(fn,l){return [0,65,map(fn,l)]} - function get_list(fn,j) - {if(typeof j !== "number")if(65 === j[1]){var ks=j[2];return map(fn,ks)} - return parse_error(j,_n_)} - function strings(strings){return list(string,strings)} - function get_strings(_T_){return get_list(get_string,_T_)} - function option(fn,param) - {if(param){var x=param[1];return [0,65,[0,caml_call1(fn,x),0]]} - return 870828711} - function get_option(fn,j) - {if(typeof j === "number") - {if(870828711 === j)return 0} - else - if(65 === j[1]) - {var _S_=j[2]; - if(_S_)if(! _S_[2]){var j$0=_S_[1];return [0,caml_call1(fn,j$0)]}} - return parse_error(j,_o_)} - function dict(d){return [0,79,d]} - function get_dict(j) - {if(typeof j !== "number")if(79 === j[1]){var d=j[2];return d} - return parse_error(j,_p_)} - function pair(fk,fv,param) - {var v=param[2],k=param[1],_R_=[0,caml_call1(fv,v),0]; - return [0,65,[0,caml_call1(fk,k),_R_]]} - function get_pair(fk,fv,j) - {if(typeof j !== "number") - if(65 === j[1]) - {var _O_=j[2]; - if(_O_) - {var _P_=_O_[2]; - if(_P_) - if(! _P_[2]) - {var v=_P_[1],k=_O_[1],_Q_=caml_call1(fv,v); - return [0,caml_call1(fk,k),_Q_]}}} - return parse_error(j,_q_)} - function triple(fa,fb,fc,param) + {var switcher=c - 48 | 0;if(! (9 < switcher >>> 0))return c - 48 | 0} + return caml_call1(invalid_arg(_a_),c)} + var _J_=code(y),_K_=(code(x) << 4) + _J_ | 0; + return caml_call1(Stdlib_char[1],_K_)} + function of_helper(ignore,next,len) + {var buf=caml_call1(Stdlib_buffer[1],len),_H_=len - 1 | 0,_G_=0; + if(! (_H_ < 0)) + {var i=_G_; + for(;;) + {var c=caml_call1(next,i); + if(! caml_call2(Stdlib_list[32],c,ignore)) + {var match=of_char(c),y=match[2],x=match[1]; + caml_call2(Stdlib_buffer[10],buf,x); + caml_call2(Stdlib_buffer[10],buf,y)} + var _I_=i + 1 | 0; + if(_H_ !== i){var i=_I_;continue} + break}} + return [0,3603131,caml_call1(Stdlib_buffer[2],buf)]} + function of_string(ignore,s) + {if(ignore) + {var ignore$0=ignore[1],_F_=caml_ml_string_length(s); + return of_helper + (ignore$0,function(i){return caml_string_get(s,i)},_F_)} + var + len=caml_ml_string_length(s), + buf=caml_create_bytes(len * 2 | 0), + _D_=len - 1 | 0, + _C_=0; + if(! (_D_ < 0)) + {var i=_C_; + for(;;) + {caml_bytes_unsafe_set + (buf, + i * 2 | 0, + caml_string_unsafe_get(hexa1,caml_string_unsafe_get(s,i))); + caml_bytes_unsafe_set + (buf, + (i * 2 | 0) + 1 | 0, + caml_string_unsafe_get(hexa2,caml_string_unsafe_get(s,i))); + var _E_=i + 1 | 0; + if(_D_ !== i){var i=_E_;continue} + break}} + return [0,3603131,caml_call1(Stdlib_bytes[6],buf)]} + function of_bytes(ignore,b) + {return of_string(ignore,caml_call1(Stdlib_bytes[6],b))} + function to_helper(empty_return,create,set,param) + {var s=param[2]; + if(runtime.caml_string_equal(s,cst))return empty_return; + var n=caml_ml_string_length(s),buf=caml_call1(create,n / 2 | 0),i=0,j=1; + for(;;) + {if(! (n <= i)) + {if(! (n <= j)) + {var _B_=caml_string_get(s,j); + caml_call3(set,buf,i / 2 | 0,to_char(caml_string_get(s,i),_B_)); + var j$0=j + 2 | 0,i$0=j + 1 | 0,i=i$0,j=j$0; + continue} + invalid_arg(_b_)} + return buf}} + function to_bytes(hex) + {return to_helper + (Stdlib_bytes[3],caml_create_bytes,runtime.caml_bytes_set,hex)} + function to_string(hex) + {var _A_=to_bytes(hex);return caml_call1(Stdlib_bytes[6],_A_)} + function of_cstruct(opt,cs) + {if(opt)var sth=opt[1],ignore=sth;else var ignore=0; + var _z_=cs[3]; + return of_helper + (ignore, + function(i){return caml_ba_get_1(cs[1],cs[2] + i | 0)}, + _z_)} + var empty_cstruct=caml_call4(Cstruct[7],0,0,0,cst$0); + function to_cstruct(hex) + {return to_helper(empty_cstruct,Cstruct[5],Cstruct[17],hex)} + function of_bigstring(opt,buf) + {if(opt)var sth=opt[1],ignore=sth;else var ignore=0; + var _x_=runtime.caml_ba_dim_1(buf); + return of_helper + (ignore,function(_y_){return caml_ba_get_1(buf,_y_)},_x_)} + function to_bigstring(hex) {var - c=param[3], - b=param[2], - a=param[1], - _M_=[0,caml_call1(fc,c),0], - _N_=[0,caml_call1(fb,b),_M_]; - return [0,65,[0,caml_call1(fa,a),_N_]]} - function get_triple(fa,fb,fc,j) - {if(typeof j !== "number") - if(65 === j[1]) - {var _H_=j[2]; - if(_H_) - {var _I_=_H_[2]; - if(_I_) - {var _J_=_I_[2]; - if(_J_) - if(! _J_[2]) + _w_= + caml_call2 + (Bigarray_compat[19][1],Bigarray_compat[13],Bigarray_compat[15]); + return to_helper(empty_cstruct[1],_w_,runtime.caml_ba_set_1,hex)} + function hexdump_s(opt,_j_,param) + {var s=param[2]; + if(opt) + var sth=opt[1],print_row_numbers=sth; + else + var print_row_numbers=1; + if(_j_)var sth$0=_j_[1],print_chars=sth$0;else var print_chars=1; + var + buf=caml_call1(Stdlib_buffer[1],caml_ml_string_length(s) * 4 | 0), + hex_len=32; + function symbol(buf,s){return caml_call2(Stdlib_buffer[14],buf,s)} + var + n=caml_ml_string_length(s), + _k_=0 === (n % 32 | 0)?0:1, + rows=(n / 32 | 0) + _k_ | 0, + _m_=rows - 1 | 0, + _l_=0; + if(! (_m_ < 0)) + {var row=_l_; + for(;;) + {var last_row=row === (rows - 1 | 0)?1:0; + if(print_row_numbers) + symbol(buf,caml_call2(Stdlib_printf[4],_c_,row)); + if(last_row) + var + rem=n % 32 | 0, + hex_len$0=0 === rem?hex_len:rem, + row_len=hex_len$0; + else + var row_len=hex_len; + var _o_=row_len - 1 | 0,_n_=0; + if(! (_o_ < 0)) + {var i$1=_n_; + for(;;) + {var _s_=0 === (i$1 % 4 | 0)?1:0,_t_=_s_?0 !== i$1?1:0:_s_; + if(_t_)symbol(buf,caml_call1(Stdlib_printf[4],_f_)); + var i$2=i$1 + (row * 32 | 0) | 0,_u_=caml_string_get(s,i$2); + symbol(buf,caml_call2(Stdlib_printf[4],_g_,_u_)); + var _v_=i$1 + 1 | 0; + if(_o_ !== i$1){var i$1=_v_;continue} + break}} + if(last_row) + {var + missed_chars=32 - row_len | 0, + pad=missed_chars + (missed_chars / 4 | 0) | 0, + _p_=caml_call2(Stdlib_string[1],pad,32); + symbol(buf,caml_call2(Stdlib_printf[4],_d_,_p_))} + if(print_chars) + {symbol(buf,cst$1); + var i=0,j=1; + for(;;) + {if(! ((row_len - 2 | 0) < i)) {var - c=_J_[1], - b=_I_[1], - a=_H_[1], - _K_=caml_call1(fc,c), - _L_=caml_call1(fb,b); - return [0,caml_call1(fa,a),_L_,_K_]}}}} - return parse_error(j,_r_)} - function mem(j,p) - {var j$0=j,p$0=p; - for(;;) - {if(p$0) - {if(typeof j$0 !== "number") - if(79 === j$0[1]) - {var o=j$0[2],tl=p$0[2],h=p$0[1],_G_=caml_call2(mem_assoc,h,o); - if(_G_){var j$1=caml_call2(assoc,h,o),j$0=j$1,p$0=tl;continue} - return _G_} - return 0} - return 1}} - function find(j,p) - {var j$0=j,p$0=p; - for(;;) - {if(p$0) - {if(typeof j$0 !== "number") - if(79 === j$0[1]) - {var - o=j$0[2], - tl=p$0[2], - h=p$0[1], - j$1=caml_call2(assoc,h,o), - j$0=j$1, - p$0=tl; - continue} - throw Stdlib[8]} - return j$0}} - function map$0(f,t,path) - {function aux(t,param$0) - {if(param$0) - {var tl=param$0[2],h=param$0[1]; - if(typeof t !== "number") - if(79 === t[1]) - {var d=t[2],f$0=function(t){return aux(t,tl)},acc=0,param=d; - for(;;) - {if(param) - {var dict=param[2],e=param[1],j=e[2],l=e[1]; - if(! runtime.caml_equal(l,h)) - {var acc$0=[0,e,acc],acc=acc$0,param=dict;continue} - var match=f$0(j); - if(match) - var - j$0=match[1], - _F_=caml_call2(rev_append,acc,[0,[0,l,j$0],dict]); - else - var _F_=caml_call2(rev_append,acc,dict)} - else - {var match$0=f$0(870828711); - if(match$0) - var - j$1=match$0[1], - _F_=caml_call2(rev_append,acc,[0,[0,h,j$1],0]); - else - var _F_=caml_call1(rev,acc)} - return [0,[0,79,_F_]]}} - return 0} - return caml_call1(f,t)} - var match=aux(t,path); - if(match){var j=match[1];return j} - throw Stdlib[8]} - function update(t,path,v){return map$0(function(param){return v},t,path)} - var Not_utf8=[248,cst_Ezjsonm_Not_utf8,caml_fresh_oo_id(0)]; - function is_valid_utf8(str) - {try - {var - _z_=0, - _A_= - function(param,_E_,_D_) - {if(typeof _D_ !== "number")if(659980059 === _D_[1])throw Not_utf8; - return 0}; - caml_call5(Uutf[22][2],0,0,_A_,_z_,str); - var _B_=1; - return _B_} - catch(_C_) - {_C_ = caml_wrap_exception(_C_);if(_C_ === Not_utf8)return 0;throw _C_}} - function encode_string(str) - {if(is_valid_utf8(str))return string(str); - var match=caml_call2(Hex[3],0,str),h=match[2]; - return [0,79,[0,[0,cst_hex,string(h)],0]]} - function decode_string(param) - {if(typeof param !== "number") - {var _v_=param[1]; - if(-976970511 === _v_){var str=param[2];return [0,str]} - if(79 === _v_) - {var _w_=param[2]; - if(_w_) - {var _x_=_w_[1]; - if(! runtime.caml_string_notequal(_x_[1],cst_hex$0)) - {var _y_=_x_[2]; - if(typeof _y_ !== "number") - if(-976970511 === _y_[1]) - if(! _w_[2]) - {var str$0=_y_[2]; - return [0,caml_call1(Hex[4],[0,3603131,str$0])]}}}}} - return 0} - function decode_string_exn(j) - {var match=decode_string(j); - if(match){var s=match[1];return s} - return parse_error(j,_s_)} - function of_sexp(param) - {if(0 === param[0]){var x=param[1];return encode_string(x)} - var l=param[1]; - return list(of_sexp,l)} - function t_of_sexp(s) - {var match=of_sexp(s); - if(typeof match !== "number") - {var _u_=match[1]; - if(65 === _u_){var x=match[2];return [0,65,x]} - if(79 === _u_){var x$0=match[2];return [0,79,x$0]}} - return caml_call1 - (Stdlib[2], - cst_Ezjsonm_t_of_sexp_encountered_a_value_fragment_rather_than_a_t)} - function to_sexp(json) - {var match=decode_string(json); - if(match){var s=match[1];return [0,s]} - if(typeof json !== "number") - if(65 === json[1]){var l=json[2];return [1,map(to_sexp,l)]} - return parse_error(json,_t_)} - function sexp_of_t(t){return to_sexp(t)} + pos=i + (row * 32 | 0) | 0, + pos$0=pos + 1 | 0, + _q_=caml_string_get(s,pos$0), + c=to_char(caml_string_get(s,pos),_q_), + switcher=c - 9 | 0; + if(1 < switcher >>> 0) + symbol(buf,caml_call2(Stdlib_printf[4],_e_,c)); + else + symbol(buf,cst$2); + var j$0=j + 2 | 0,i$0=j + 1 | 0,i=i$0,j=j$0; + continue} + break}} + symbol(buf,cst$3); + var _r_=row + 1 | 0; + if(_m_ !== row){var row=_r_;continue} + break}} + return caml_call1(Stdlib_buffer[2],buf)} + function hexdump(print_row_numbers,print_chars,hex) + {var _i_=hexdump_s(print_row_numbers,print_chars,hex); + return caml_call2(Stdlib_printf[2],_h_,_i_)} + function pp(ppf,param) + {var hex=param[2];return caml_call2(Stdlib_format[13],ppf,hex)} + function show(param){var hex=param[2];return hex} var - Ezjsonm= + Hex= [0, - value, - wrap, - unwrap, - from_channel, - from_string, - value_from_channel, - value_from_string, - value_from_src, - to_channel, - to_buffer, + of_char, + to_char, + of_string, to_string, - value_to_channel, - value_to_buffer, - value_to_string, - value_to_dst, - unit, - bool, - string, - strings, - int$0, - int32, - int64, - float$0, - list, - option, - dict, - pair, - triple, - Parse_error, - get_unit, - get_bool, - get_string, - get_strings, - get_int, - get_int32, - get_int64, - get_float, - get_list, - get_option, - get_dict, - get_pair, - get_triple, - mem, - find, - update, - map$0, - encode_string, - decode_string, - decode_string_exn, - to_sexp, - to_sexp, - sexp_of_t, - of_sexp, - of_sexp, - t_of_sexp, - parse_error]; - runtime.caml_register_global(35,Ezjsonm,"Ezjsonm"); + of_bytes, + to_bytes, + of_cstruct, + to_cstruct, + of_bigstring, + to_bigstring, + hexdump, + hexdump_s, + pp, + show]; + runtime.caml_register_global(26,Hex,"Hex"); return} (function(){return this}())); -//# 1 "../../.js/easy-format/easy_format.cma.js" +//# 1 "../../.js/unix/unix.cma.js" (function(joo_global_object) {"use strict"; var runtime=joo_global_object.jsoo_runtime, + caml_check_bound=runtime.caml_check_bound, + caml_ml_bytes_length=runtime.caml_ml_bytes_length, caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, - caml_wrap_exception=runtime.caml_wrap_exception; + caml_register_global=runtime.caml_register_global, + caml_string_equal=runtime.caml_string_equal, + caml_string_of_jsbytes=runtime.caml_string_of_jsbytes, + caml_sys_exit=runtime.caml_sys_exit, + caml_wrap_exception=runtime.caml_wrap_exception, + unix_inet_addr_of_string=runtime.unix_inet_addr_of_string; function caml_call1(f,a0) {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} function caml_call2(f,a0,a1) @@ -83244,34803 +92780,48421 @@ :runtime.caml_call_gen(f,[a0,a1,a2,a3])} var global_data=runtime.caml_get_global_data(), - cst$1=caml_new_string(" "), - cst$2=caml_new_string(" "), - cst$3=caml_new_string(" "), - cst$4=caml_new_string(" "), - cst$5=caml_new_string(" "), - cst$6=caml_new_string(" "), - cst$7=caml_new_string(" "), - cst$8=caml_new_string(" "), - cst$0=caml_new_string(""), - cst=caml_new_string(""), - atom=[0,0], - list=[0,1,1,0,1,1,1,1,-921200851,2,0,0,0,0,0], - label=[0,726666127,1,2,0], - list_true=[0,1,1,1,1,1,1,1,-921200851,2,0,0,0,0,0], - list_false=[0,0,0,0,0,0,0,0,-921200851,2,0,0,0,0,0], - label_true=[0,726666127,1,2,0], - label_false=[0,726666127,0,2,0], - Stdlib_buffer=global_data.Stdlib__buffer, - Stdlib_format=global_data.Stdlib__format, - Stdlib_list=global_data.Stdlib__list, - Stdlib_printf=global_data.Stdlib__printf, + cst_close_process_full=caml_string_of_jsbytes("close_process_full"), + cst_close_process=caml_string_of_jsbytes("close_process"), + cst_close_process_out=caml_string_of_jsbytes("close_process_out"), + cst_close_process_in=caml_string_of_jsbytes("close_process_in"), + cst_process_full_pid=caml_string_of_jsbytes("process_full_pid"), + cst_process_pid=caml_string_of_jsbytes("process_pid"), + cst_process_out_pid=caml_string_of_jsbytes("process_out_pid"), + cst_process_in_pid=caml_string_of_jsbytes("process_in_pid"), + cst$9=caml_string_of_jsbytes(""), + cst_c$0=caml_string_of_jsbytes("-c"), + cst_c=caml_string_of_jsbytes("-c"), + cst$8=caml_string_of_jsbytes(""), + cst_udp$1=caml_string_of_jsbytes("udp"), + cst_tcp$1=caml_string_of_jsbytes("tcp"), + cst$5=caml_string_of_jsbytes(""), + cst$7=caml_string_of_jsbytes(""), + cst_tcp=caml_string_of_jsbytes("tcp"), + cst_udp=caml_string_of_jsbytes("udp"), + cst_udp$0=caml_string_of_jsbytes("udp"), + cst_tcp$0=caml_string_of_jsbytes("tcp"), + cst$6=caml_string_of_jsbytes(""), + cst_0_0_0_0$0=caml_string_of_jsbytes("0.0.0.0"), + cst_127_0_0_1$0=caml_string_of_jsbytes("127.0.0.1"), + cst_Unix_sendto=caml_string_of_jsbytes("Unix.sendto"), + cst_Unix_send=caml_string_of_jsbytes("Unix.send"), + cst_Unix_recvfrom=caml_string_of_jsbytes("Unix.recvfrom"), + cst_Unix_recv=caml_string_of_jsbytes("Unix.recv"), + cst_Unix_single_write=caml_string_of_jsbytes("Unix.single_write"), + cst_Unix_write=caml_string_of_jsbytes("Unix.write"), + cst_Unix_read=caml_string_of_jsbytes("Unix.read"), + cst$4=caml_string_of_jsbytes(""), + cst_execvpe=caml_string_of_jsbytes("execvpe"), + cst_PATH=caml_string_of_jsbytes("PATH"), + cst_bin_usr_bin=caml_string_of_jsbytes("/bin:/usr/bin"), + cst$1=caml_string_of_jsbytes(': "'), + cst_failed=caml_string_of_jsbytes('" failed'), + cst_on=caml_string_of_jsbytes(' on "'), + cst$2=caml_string_of_jsbytes('"'), + cst$3=caml_string_of_jsbytes(": "), + cst_E2BIG=caml_string_of_jsbytes("E2BIG"), + cst_EACCES=caml_string_of_jsbytes("EACCES"), + cst_EAGAIN=caml_string_of_jsbytes("EAGAIN"), + cst_EBADF=caml_string_of_jsbytes("EBADF"), + cst_EBUSY=caml_string_of_jsbytes("EBUSY"), + cst_ECHILD=caml_string_of_jsbytes("ECHILD"), + cst_EDEADLK=caml_string_of_jsbytes("EDEADLK"), + cst_EDOM=caml_string_of_jsbytes("EDOM"), + cst_EEXIST=caml_string_of_jsbytes("EEXIST"), + cst_EFAULT=caml_string_of_jsbytes("EFAULT"), + cst_EFBIG=caml_string_of_jsbytes("EFBIG"), + cst_EINTR=caml_string_of_jsbytes("EINTR"), + cst_EINVAL=caml_string_of_jsbytes("EINVAL"), + cst_EIO=caml_string_of_jsbytes("EIO"), + cst_EISDIR=caml_string_of_jsbytes("EISDIR"), + cst_EMFILE=caml_string_of_jsbytes("EMFILE"), + cst_EMLINK=caml_string_of_jsbytes("EMLINK"), + cst_ENAMETOOLONG=caml_string_of_jsbytes("ENAMETOOLONG"), + cst_ENFILE=caml_string_of_jsbytes("ENFILE"), + cst_ENODEV=caml_string_of_jsbytes("ENODEV"), + cst_ENOENT=caml_string_of_jsbytes("ENOENT"), + cst_ENOEXEC=caml_string_of_jsbytes("ENOEXEC"), + cst_ENOLCK=caml_string_of_jsbytes("ENOLCK"), + cst_ENOMEM=caml_string_of_jsbytes("ENOMEM"), + cst_ENOSPC=caml_string_of_jsbytes("ENOSPC"), + cst_ENOSYS=caml_string_of_jsbytes("ENOSYS"), + cst_ENOTDIR=caml_string_of_jsbytes("ENOTDIR"), + cst_ENOTEMPTY=caml_string_of_jsbytes("ENOTEMPTY"), + cst_ENOTTY=caml_string_of_jsbytes("ENOTTY"), + cst_ENXIO=caml_string_of_jsbytes("ENXIO"), + cst_EPERM=caml_string_of_jsbytes("EPERM"), + cst_EPIPE=caml_string_of_jsbytes("EPIPE"), + cst_ERANGE=caml_string_of_jsbytes("ERANGE"), + cst_EROFS=caml_string_of_jsbytes("EROFS"), + cst_ESPIPE=caml_string_of_jsbytes("ESPIPE"), + cst_ESRCH=caml_string_of_jsbytes("ESRCH"), + cst_EXDEV=caml_string_of_jsbytes("EXDEV"), + cst_EWOULDBLOCK=caml_string_of_jsbytes("EWOULDBLOCK"), + cst_EINPROGRESS=caml_string_of_jsbytes("EINPROGRESS"), + cst_EALREADY=caml_string_of_jsbytes("EALREADY"), + cst_ENOTSOCK=caml_string_of_jsbytes("ENOTSOCK"), + cst_EDESTADDRREQ=caml_string_of_jsbytes("EDESTADDRREQ"), + cst_EMSGSIZE=caml_string_of_jsbytes("EMSGSIZE"), + cst_EPROTOTYPE=caml_string_of_jsbytes("EPROTOTYPE"), + cst_ENOPROTOOPT=caml_string_of_jsbytes("ENOPROTOOPT"), + cst_EPROTONOSUPPORT=caml_string_of_jsbytes("EPROTONOSUPPORT"), + cst_ESOCKTNOSUPPORT=caml_string_of_jsbytes("ESOCKTNOSUPPORT"), + cst_EOPNOTSUPP=caml_string_of_jsbytes("EOPNOTSUPP"), + cst_EPFNOSUPPORT=caml_string_of_jsbytes("EPFNOSUPPORT"), + cst_EAFNOSUPPORT=caml_string_of_jsbytes("EAFNOSUPPORT"), + cst_EADDRINUSE=caml_string_of_jsbytes("EADDRINUSE"), + cst_EADDRNOTAVAIL=caml_string_of_jsbytes("EADDRNOTAVAIL"), + cst_ENETDOWN=caml_string_of_jsbytes("ENETDOWN"), + cst_ENETUNREACH=caml_string_of_jsbytes("ENETUNREACH"), + cst_ENETRESET=caml_string_of_jsbytes("ENETRESET"), + cst_ECONNABORTED=caml_string_of_jsbytes("ECONNABORTED"), + cst_ECONNRESET=caml_string_of_jsbytes("ECONNRESET"), + cst_ENOBUFS=caml_string_of_jsbytes("ENOBUFS"), + cst_EISCONN=caml_string_of_jsbytes("EISCONN"), + cst_ENOTCONN=caml_string_of_jsbytes("ENOTCONN"), + cst_ESHUTDOWN=caml_string_of_jsbytes("ESHUTDOWN"), + cst_ETOOMANYREFS=caml_string_of_jsbytes("ETOOMANYREFS"), + cst_ETIMEDOUT=caml_string_of_jsbytes("ETIMEDOUT"), + cst_ECONNREFUSED=caml_string_of_jsbytes("ECONNREFUSED"), + cst_EHOSTDOWN=caml_string_of_jsbytes("EHOSTDOWN"), + cst_EHOSTUNREACH=caml_string_of_jsbytes("EHOSTUNREACH"), + cst_ELOOP=caml_string_of_jsbytes("ELOOP"), + cst_EOVERFLOW=caml_string_of_jsbytes("EOVERFLOW"), + shell=caml_string_of_jsbytes("/bin/sh"), + cst_Unix_Unix_error=caml_string_of_jsbytes("Unix.Unix_error"), + cst=caml_string_of_jsbytes(""), + cst$0=caml_string_of_jsbytes(""), + cst_Unix_Unix_error$0=caml_string_of_jsbytes("Unix.Unix_error"), + cst_0_0_0_0=caml_string_of_jsbytes("0.0.0.0"), + cst_127_0_0_1=caml_string_of_jsbytes("127.0.0.1"), + cst$10=caml_string_of_jsbytes("::"), + cst_1=caml_string_of_jsbytes("::1"), Stdlib=global_data.Stdlib, - Stdlib_string=global_data.Stdlib__string, Stdlib_hashtbl=global_data.Stdlib__hashtbl, - _a_=[0,[2,0,[2,0,0]],caml_new_string("%s%s")], - _b_=[0,[2,0,0],caml_new_string("%s")]; - function set_escape(fmt,escape) - {var - match=caml_call2(Stdlib_format[94],fmt,0), - flush0=match[2], - print0=match[1], - tagf0=caml_call2(Stdlib_format[147],fmt,0), - is_tag=[0,0]; - function mot(tag){is_tag[1] = 1;return caml_call1(tagf0[1],tag)} - function mct(tag){is_tag[1] = 1;return caml_call1(tagf0[2],tag)} - function print(s,p,n) - {return is_tag[1] - ?(caml_call3(print0,s,p,n),is_tag[1] = 0,0) - :caml_call4(escape,print0,s,p,n)} - var tagf=[0,mot,mct,tagf0[3],tagf0[4]]; - caml_call3(Stdlib_format[92],fmt,print,flush0); - return caml_call2(Stdlib_format[145],fmt,tagf)} - function define_styles(fmt,escape$0,l) - {if(0 !== l) - {caml_call2(Stdlib_format[80],fmt,1); - var - _R_=2 * caml_call1(Stdlib_list[1],l) | 0, - tbl1=caml_call2(Stdlib_hashtbl[1],0,_R_), - _S_=2 * caml_call1(Stdlib_list[1],l) | 0, - tbl2=caml_call2(Stdlib_hashtbl[1],0,_S_), - _T_= - function(param) - {var style=param[2],style_name=param[1]; - caml_call3(Stdlib_hashtbl[5],tbl1,style_name,style[1]); - return caml_call3(Stdlib_hashtbl[5],tbl2,style_name,style[2])}; - caml_call2(Stdlib_list[15],_T_,l); - var - mark_open_tag= - function(style_name) - {try - {var _X_=caml_call2(Stdlib_hashtbl[6],tbl1,style_name); - return _X_} - catch(_Y_) - {_Y_ = caml_wrap_exception(_Y_); - if(_Y_ === Stdlib[8])return cst; - throw _Y_}}, - mark_close_tag= - function(style_name) - {try - {var _V_=caml_call2(Stdlib_hashtbl[6],tbl2,style_name); - return _V_} - catch(_W_) - {_W_ = caml_wrap_exception(_W_); - if(_W_ === Stdlib[8])return cst$0; - throw _W_}}, - _U_=caml_call2(Stdlib_format[147],fmt,0), - tagf=[0,mark_open_tag,mark_close_tag,_U_[3],_U_[4]]; - caml_call2(Stdlib_format[145],fmt,tagf)} - if(typeof escape$0 === "number")return 0; - if(258914209 <= escape$0[1]) - {var esc=escape$0[2];return set_escape(fmt,esc)} - var esc$0=escape$0[2]; - function escape(print,s,p,n) - {var s0=caml_call3(Stdlib_string[4],s,p,n),s1=caml_call1(esc$0,s0); - return caml_call3(print,s1,0,caml_ml_string_length(s1))} - return set_escape(fmt,escape)} - function pp_open_xbox(fmt,p,indent) - {var _Q_=p[8]; - if(451368025 <= _Q_) - {if(! (736550845 <= _Q_))return caml_call2(Stdlib_format[7],fmt,indent)} - else - if(379096626 <= _Q_)return caml_call2(Stdlib_format[5],fmt,0); - return caml_call2(Stdlib_format[9],fmt,indent)} - function extra_box(p,l) - {var _M_=p[8]; - if(379096626 <= _M_) - var wrap=922275930 <= _M_?1:0; - else - var - _P_=function(param){return 0 === param[0]?1:0}, - wrap=caml_call2(Stdlib_list[28],_P_,l); - if(wrap) - {var _N_=function(fmt){return caml_call2(Stdlib_format[3],fmt,0)}; - return [0, - function(fmt){return caml_call2(Stdlib_format[11],fmt,0)}, - _N_]} - function _O_(param){return 0} - return [0,function(param){return 0},_O_]} - function open_tag(fmt,param) - {if(param){var s=param[1];return caml_call2(Stdlib_format[141],fmt,s)} - return 0} - function close_tag(fmt,param) - {return param?caml_call2(Stdlib_format[143],fmt,0):0} - function tag_string(fmt,o,s) - {if(o) - {var tag=o[1]; - caml_call2(Stdlib_format[141],fmt,tag); - caml_call2(Stdlib_format[13],fmt,s); - return caml_call2(Stdlib_format[143],fmt,0)} - return caml_call2(Stdlib_format[13],fmt,s)} - function fprint_list(fmt,label,param,l) - {var _F_=param[4],_G_=param[3],_H_=param[1]; - if(l) - {var tl=l[2],hd=l[1]; - if(0 !== tl) - if(! _F_[4]) - {var - p$0=param[4], - cl$0=param[3], - sep$0=param[2], - op$0=param[1], - base_indent=p$0[9], - _K_=p$0[2]?1:0, - sep_indent=caml_ml_string_length(sep$0) + _K_ | 0, - indent$0=base_indent + sep_indent | 0; - pp_open_xbox(fmt,p$0,indent$0); - fprint_opt_label(fmt,label); - tag_string(fmt,p$0[11],op$0); - if(p$0[1]) - caml_call2(Stdlib_format[25],fmt,0); - else - caml_call2(Stdlib_format[27],fmt,0); - var - match$0=extra_box(p$0,l), - close_extra$0=match$0[2], - open_extra$0=match$0[1]; - caml_call1(open_extra$0,fmt); - fprint_t(fmt,hd); - var - _L_= - function(x) - {if(p$0[3]) - caml_call3(Stdlib_format[29],fmt,1,- sep_indent | 0); - else - caml_call3(Stdlib_format[29],fmt,0,- sep_indent | 0); - tag_string(fmt,p$0[13],sep$0); - if(p$0[2])caml_call2(Stdlib_format[13],fmt,cst$5); - return fprint_t(fmt,x)}; - caml_call2(Stdlib_list[15],_L_,tl); - caml_call1(close_extra$0,fmt); - if(p$0[5]) - caml_call3(Stdlib_format[29],fmt,1,- indent$0 | 0); - else - caml_call3(Stdlib_format[29],fmt,0,- indent$0 | 0); - tag_string(fmt,p$0[14],cl$0); - return caml_call2(Stdlib_format[3],fmt,0)} - var p=param[4],cl=param[3],sep=param[2],op=param[1],indent=p[9]; - pp_open_xbox(fmt,p,indent); - fprint_opt_label(fmt,label); - tag_string(fmt,p[11],op); - if(p[1]) - caml_call2(Stdlib_format[25],fmt,0); - else - caml_call2(Stdlib_format[27],fmt,0); - var match=extra_box(p,l),close_extra=match[2],open_extra=match[1]; - caml_call1(open_extra,fmt); - fprint_list_body_stick_left(fmt,p,sep,hd,tl); - caml_call1(close_extra,fmt); - if(p[5]) - caml_call3(Stdlib_format[29],fmt,1,- indent | 0); - else - caml_call3(Stdlib_format[29],fmt,0,- indent | 0); - tag_string(fmt,p[14],cl); - return caml_call2(Stdlib_format[3],fmt,0)} - fprint_opt_label(fmt,label); - tag_string(fmt,_F_[11],_H_); - var _I_=_F_[1],_J_=_I_ || _F_[5]; - if(_J_)caml_call2(Stdlib_format[13],fmt,cst$4); - return tag_string(fmt,_F_[14],_G_)} - function fprint_t(fmt,param) - {switch(param[0]) - {case 0:var p=param[2],s=param[1];return tag_string(fmt,p[1],s); - case 1: - var l=param[2],param$0=param[1],p$0=param$0[4]; - open_tag(fmt,p$0[10]); - if(p$0[7]) - fprint_list(fmt,0,param$0,l); - else - {var _x_=param$0[4],_y_=param$0[3],_z_=param$0[2],_A_=param$0[1]; - if(l) - {var tl=l[2],hd=l[1]; - tag_string(fmt,_x_[11],_A_); - if(_x_[1])caml_call2(Stdlib_format[13],fmt,cst$6); - var _u_=_x_[8],indent=0; - if(379096626 === _u_) - caml_call2(Stdlib_format[5],fmt,0); - else - if(736550845 <= _u_) - if(922275930 <= _u_) - caml_call2(Stdlib_format[11],fmt,indent); - else - caml_call2(Stdlib_format[9],fmt,indent); - else - if(-921200850 <= _u_) - caml_call2(Stdlib_format[7],fmt,indent); - else - {var _v_=function(param){return 0 === param[0]?1:0}; - if(caml_call2(Stdlib_list[28],_v_,l)) - caml_call2(Stdlib_format[11],fmt,indent); - else - caml_call2(Stdlib_format[9],fmt,indent)} - if(_x_[4]) - fprint_list_body_stick_left(fmt,_x_,_z_,hd,tl); - else - {open_tag(fmt,_x_[12]); - fprint_t(fmt,hd); - var - _w_= - function(x) - {if(_x_[3]) - caml_call2(Stdlib_format[25],fmt,0); - else - caml_call2(Stdlib_format[27],fmt,0); - tag_string(fmt,_x_[13],_z_); - if(_x_[2])caml_call2(Stdlib_format[13],fmt,cst$2); - return fprint_t(fmt,x)}; - caml_call2(Stdlib_list[15],_w_,tl); - close_tag(fmt,_x_[12])} - caml_call2(Stdlib_format[3],fmt,0); - if(_x_[5])caml_call2(Stdlib_format[13],fmt,cst$7); - tag_string(fmt,_x_[14],_y_)} - else - {tag_string(fmt,_x_[11],_A_); - var _B_=_x_[1],_C_=_B_ || _x_[5]; - if(_C_)caml_call2(Stdlib_format[13],fmt,cst$8); - tag_string(fmt,_x_[14],_y_)}} - return close_tag(fmt,p$0[10]); - case 2: - var x=param[2],label=param[1],lp=label[2],lab=label[1]; - if(1 === x[0]) - {var - l$0=x[2], - match=x[1], - p$1=match[4], - cl=match[3], - sep=match[2], - op=match[1]; - if(p$1[6]) - if(p$1[7])return fprint_list(fmt,[0,label],[0,op,sep,cl,p$1],l$0)} - var indent$0=lp[3]; - caml_call2(Stdlib_format[9],fmt,0); - open_tag(fmt,lp[4]); - fprint_t(fmt,lab); - close_tag(fmt,lp[4]); - var _D_=lp[1]; - if(726666127 === _D_) - if(lp[2]) - caml_call3(Stdlib_format[29],fmt,1,indent$0); - else - caml_call3(Stdlib_format[29],fmt,0,indent$0); - else - if(744337004 <= _D_) - {if(lp[2])caml_call2(Stdlib_format[21],fmt,32)} - else - {caml_call2(Stdlib_format[32],fmt,0); - var _E_=caml_call2(Stdlib_string[1],indent$0,32); - caml_call2(Stdlib_format[13],fmt,_E_)} - fprint_t(fmt,x); - return caml_call2(Stdlib_format[3],fmt,0); - default:var f=param[1];return caml_call1(f,fmt)}} - function fprint_list_body_stick_left(fmt,p,sep,hd,tl) - {open_tag(fmt,p[12]); - fprint_t(fmt,hd); - function _t_(x) - {if(p[3])caml_call2(Stdlib_format[13],fmt,cst$1); - tag_string(fmt,p[13],sep); - if(p[2]) - caml_call2(Stdlib_format[25],fmt,0); - else - caml_call2(Stdlib_format[27],fmt,0); - return fprint_t(fmt,x)} - caml_call2(Stdlib_list[15],_t_,tl); - return close_tag(fmt,p[12])} - function fprint_opt_label(fmt,param) - {if(param) - {var match=param[1],lp=match[2],lab=match[1]; - open_tag(fmt,lp[4]); - fprint_t(fmt,lab); - close_tag(fmt,lp[4]); - var _s_=lp[2]; - return _s_?caml_call2(Stdlib_format[13],fmt,cst$3):_s_} - return 0} - function to_formatter(fmt,x) - {function init_acc(param) - {switch(param[0]) - {case 1:var switch$0=451368025 === param[1][4][8]?0:1;break; - case 2:var switch$0=3884224 === param[1][2][1]?0:1;break; - default:var switch$0=1} - return switch$0?0:1} - function merge_acc(force_breaks1,force_breaks2) - {var force_breaks1$0=force_breaks1 || force_breaks2; - return force_breaks1$0} - function map_node(x,force_breaks) - {switch(x[0]) - {case 1: - var - _j_=x[1], - _k_=_j_[4], - _l_=_k_[8], - _m_=_j_[3], - _n_=_j_[2], - _o_=_j_[1]; - if(379096626 !== _l_) - {if(451368025 === _l_)return [0,x,1]; - if(610243080 === _l_)return [0,x,force_breaks]; - var children=x[2]; - if(force_breaks) - {var - p= - [0, - _k_[1], - _k_[2], - _k_[3], - _k_[4], - _k_[5], - _k_[6], - _k_[7], - 610243080, - _k_[9], - _k_[10], - _k_[11], - _k_[12], - _k_[13], - _k_[14]]; - return [0,[1,[0,_o_,_n_,_m_,p],children],1]} - return [0,x,0]} - break; - case 2: - var _p_=x[1],_q_=_p_[2],_r_=_p_[1]; - if(726666127 === _q_[1]) - {var b=x[2]; - if(force_breaks) - {var lp=[0,-76840209,_q_[2],_q_[3],_q_[4]]; - return [0,[2,[0,_r_,lp],b],1]} - return [0,x,0]} - break - } - return [0,x,force_breaks]} - function aux(x$0) - {switch(x$0[0]) - {case 0:var acc=init_acc(x$0);return map_node(x$0,acc); - case 1: - var - children=x$0[2], - param$1=x$0[1], - param$2=caml_call2(Stdlib_list[19],aux,children), - new_children=0, - accs=0, - param=param$2; - for(;;) - {if(param) - {var - param$0=param[2], - match=param[1], - y=match[2], - x=match[1], - ys=[0,y,accs], - xs=[0,x,new_children], - new_children=xs, - accs=ys, - param=param$0; - continue} - var - _i_=init_acc(x$0), - acc$0=caml_call3(Stdlib_list[21],merge_acc,_i_,accs); - return map_node([1,param$1,new_children],acc$0)} - case 2: - var - x2=x$0[2], - match$0=x$0[1], - param$3=match$0[2], - x1=match$0[1], - acc0=init_acc(x$0), - match$1=aux(x1), - acc1=match$1[2], - new_x1=match$1[1], - match$2=aux(x2), - acc2=match$2[2], - new_x2=match$2[1], - acc$1=merge_acc(merge_acc(acc0,acc1),acc2); - return map_node([2,[0,new_x1,param$3],new_x2],acc$1); - default:var acc$2=init_acc(x$0);return map_node(x$0,acc$2)}} - var match=aux(x),new_x=match[1]; - fprint_t(fmt,new_x); - return caml_call2(Stdlib_format[36],fmt,0)} - function to_buffer(opt,_h_,buf,x) - {if(opt)var sth=opt[1],escape=sth;else var escape=870530776; - if(_h_)var sth$0=_h_[1],styles=sth$0;else var styles=0; - var fmt=caml_call1(Stdlib_format[107],buf); - define_styles(fmt,escape,styles); - return to_formatter(fmt,x)} - function to_string(escape,styles,x) - {var buf=caml_call1(Stdlib_buffer[1],500); - to_buffer(escape,styles,buf,x); - return caml_call1(Stdlib_buffer[2],buf)} - function to_channel(opt,_g_,oc,x) - {if(opt)var sth=opt[1],escape=sth;else var escape=870530776; - if(_g_)var sth$0=_g_[1],styles=sth$0;else var styles=0; - var fmt=caml_call1(Stdlib_format[104],oc); - define_styles(fmt,escape,styles); - return to_formatter(fmt,x)} - function to_stdout(escape,styles,x) - {return to_channel(escape,styles,Stdlib[39],x)} - function to_stderr(escape,styles,x) - {return to_channel(escape,styles,Stdlib[40],x)} - function fprint_t$0(buf,param) - {var param$0=param; - for(;;) - switch(param$0[0]) - {case 0:var s=param$0[1];return caml_call2(Stdlib_buffer[14],buf,s); - case 1: - var - l=param$0[2], - param$1=param$0[1], - _c_=param$1[3], - _e_=param$1[1], - _d_=param$1[2]; - if(l) - {var tl=l[2],x$0=l[1]; - caml_call2(Stdlib_buffer[14],buf,_e_); - fprint_t$0(buf,x$0); - var - _f_= - function(x) - {caml_call2(Stdlib_buffer[14],buf,_d_); - return fprint_t$0(buf,x)}; - caml_call2(Stdlib_list[15],_f_,tl); - return caml_call2(Stdlib_buffer[14],buf,_c_)} - return caml_call4(Stdlib_printf[5],buf,_a_,_e_,_c_); - case 2: - var x=param$0[2],label=param$0[1],label$0=label[1]; - fprint_t$0(buf,label$0); - var param$0=x; - continue; - default: - var f=param$0[1],fmt=caml_call1(Stdlib_format[107],buf); - caml_call1(f,fmt); - return caml_call2(Stdlib_format[36],fmt,0)}} - function to_buffer$0(buf,x){return fprint_t$0(buf,x)} - function to_string$0(x) - {var buf=caml_call1(Stdlib_buffer[1],500); - to_buffer$0(buf,x); - return caml_call1(Stdlib_buffer[2],buf)} - function to_formatter$0(fmt,x) - {var s=to_string$0(x); - caml_call3(Stdlib_format[123],fmt,_b_,s); - return caml_call2(Stdlib_format[36],fmt,0)} - function to_channel$0(oc,x) - {var buf=caml_call1(Stdlib_buffer[1],500); - to_buffer$0(buf,x); - return caml_call2(Stdlib_buffer[21],oc,buf)} - function to_stdout$0(x){return to_channel$0(Stdlib[39],x)} - function to_stderr$0(x){return to_channel$0(Stdlib[40],x)} - var - Easy_format= - [0, - atom, - list, - label, - [0, - define_styles, - to_formatter, - to_buffer, - to_string, - to_channel, - to_stdout, - to_stderr], - [0, - to_buffer$0, - to_string$0, - to_channel$0, - to_stdout$0, - to_stderr$0, - to_formatter$0], - [0,list_true,label_true,list_false,label_false]]; - runtime.caml_register_global(26,Easy_format,"Easy_format"); - return} - (function(){return this}())); - - -//# 1 "../../.js/biniou/biniou.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - caml_bytes_get=runtime.caml_bytes_get, - caml_bytes_set=runtime.caml_bytes_set, - caml_bytes_unsafe_get=runtime.caml_bytes_unsafe_get, - caml_bytes_unsafe_set=runtime.caml_bytes_unsafe_set, - caml_check_bound=runtime.caml_check_bound, - caml_create_bytes=runtime.caml_create_bytes, - caml_fresh_oo_id=runtime.caml_fresh_oo_id, - caml_make_vect=runtime.caml_make_vect, - caml_ml_bytes_length=runtime.caml_ml_bytes_length, - caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, - caml_obj_tag=runtime.caml_obj_tag, - caml_register_global=runtime.caml_register_global, - caml_string_get=runtime.caml_string_get, - caml_string_notequal=runtime.caml_string_notequal, - caml_string_unsafe_get=runtime.caml_string_unsafe_get, - caml_sys_getenv=runtime.caml_sys_getenv, - caml_wrap_exception=runtime.caml_wrap_exception; - function caml_call1(f,a0) - {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} - function caml_call2(f,a0,a1) - {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} - function caml_call3(f,a0,a1,a2) - {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} - function caml_call4(f,a0,a1,a2,a3) - {return f.length == 4 - ?f(a0,a1,a2,a3) - :runtime.caml_call_gen(f,[a0,a1,a2,a3])} - function caml_call5(f,a0,a1,a2,a3,a4) - {return f.length == 5 - ?f(a0,a1,a2,a3,a4) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} - var - global_data=runtime.caml_get_global_data(), - cst_Bi_util_print_bits=caml_new_string("Bi_util.print_bits"), - cst_Bi_util_print_bits$0=caml_new_string("Bi_util.print_bits"), - cst_Bi_util_Error=caml_new_string("Bi_util.Error"), - cst_Corrupted_data_invalid_reference= - caml_new_string("Corrupted data (invalid reference)"), - cst_Bi_share_Rd_poly_create_type_id_exhausted_available_type_id_s= - caml_new_string - ("Bi_share.Rd_poly.create_type_id: exhausted available type_id's"), - cst_Bi_inbuf_refill_from_channel= - caml_new_string("Bi_inbuf.refill_from_channel"), - cst_Bi_inbuf_End_of_input=caml_new_string("Bi_inbuf.End_of_input"), - cst_Buf_extend_reached_Sys_max_string_length= - caml_new_string("Buf.extend: reached Sys.max_string_length"), - cst_Junk_input_after_end_of_vint= - caml_new_string("Junk input after end of vint"), - cst_Unterminated_vint_or_vint_exceeding_range_of_OCaml_ints= - caml_new_string - ("Unterminated vint or vint exceeding range of OCaml ints"), - cst_Vint_exceeding_range_of_OCaml_ints= - caml_new_string("Vint exceeding range of OCaml ints"), - cst$0=caml_new_string(""), - cst_test_stream_dat=caml_new_string("test-stream.dat"), - cst_test_stream_dat$0=caml_new_string("test-stream.dat"), - cst=caml_new_string("\0\0\0\0"), - cst_Corrupted_stream_excessive_chunk_length= - caml_new_string("Corrupted stream: excessive chunk length"), - cst_Chunk_length_exceeds_supported_range_on_this_platform$0= - caml_new_string("Chunk length exceeds supported range on this platform"), - cst_Chunk_length_exceeds_supported_range_on_this_platform= - caml_new_string("Chunk length exceeds supported range on this platform"), - cst_Bi_stream=caml_new_string("Bi_stream: "), - cst_Bi_io_write_t_Malformed_Table= - caml_new_string("Bi_io.write_t: Malformed `Table"), - cst_Corrupted_data_invalid_tag$0= - caml_new_string("Corrupted data (invalid tag)"), - cst_unit=caml_new_string("unit"), - cst$1=caml_new_string("]"), - cst$2=caml_new_string(","), - cst$3=caml_new_string("["), - cst$4=caml_new_string("[]"), - cst$5=caml_new_string("}"), - cst$6=caml_new_string(","), - cst$7=caml_new_string("{"), - cst_true=caml_new_string("true"), - cst_false=caml_new_string("false"), - cst$8=caml_new_string(")"), - cst$9=caml_new_string(","), - cst$10=caml_new_string("("), - cst$11=caml_new_string(":"), - cst$12=caml_new_string(">"), - cst$13=caml_new_string(""), - cst$14=caml_new_string("<"), - cst$15=caml_new_string(">"), - cst$16=caml_new_string("<"), - cst$17=caml_new_string("[]"), - cst$18=caml_new_string(""), - cst_Some=caml_new_string("Some"), - cst_None=caml_new_string("None"), - cst_Corrupted_data_invalid_tag= - caml_new_string("Corrupted data (invalid tag)"), - cst_Corrupted_data_string=caml_new_string("Corrupted data (string)"), - cst_Corrupted_data_bool_value= - caml_new_string("Corrupted data (bool value)"), - cst_Corrupted_data_unit_value= - caml_new_string("Corrupted data (unit value)"), - s=caml_new_string("?\xf0\x06\x05\x04\x03\x02\x01"), - cst_Corrupted_data_invalid_numtag= - caml_new_string("Corrupted data (invalid numtag)"), - cst_Corrupted_data_invalid_field_hashtag= - caml_new_string("Corrupted data (invalid field hashtag)"), - cst_Cygwin=caml_new_string("Cygwin"), - cst_Unix=caml_new_string("Unix"), - cst_Win32=caml_new_string("Win32"), - cst_bdump_dict=caml_new_string("_bdump-dict"), - cst_HOMEPATH=caml_new_string("HOMEPATH"), - cst_bdump_dict$0=caml_new_string(".bdump-dict"), - cst_HOME=caml_new_string("HOME"), - cst_bdump_dict$1=caml_new_string(".bdump-dict"), - cst_HOME$0=caml_new_string("HOME"), - Stdlib=global_data.Stdlib, + Stdlib_list=global_data.Stdlib__list, + Stdlib_int=global_data.Stdlib__int, + Stdlib_array=global_data.Stdlib__array, Stdlib_bytes=global_data.Stdlib__bytes, - Stdlib_char=global_data.Stdlib__char, - Stdlib_hashtbl=global_data.Stdlib__hashtbl, - Stdlib_sys=global_data.Stdlib__sys, + Stdlib_filename=global_data.Stdlib__filename, Stdlib_string=global_data.Stdlib__string, Stdlib_printf=global_data.Stdlib__printf, - Stdlib_list=global_data.Stdlib__list, - Stdlib_array=global_data.Stdlib__array, - Assert_failure=global_data.Assert_failure, - Stdlib_stream=global_data.Stdlib__stream, - Easy_format=global_data.Easy_format, - CamlinternalLazy=global_data.CamlinternalLazy, - Stdlib_obj=global_data.Stdlib__obj, + Stdlib_callback=global_data.Stdlib__callback, Stdlib_printexc=global_data.Stdlib__printexc, - Stdlib_buffer=global_data.Stdlib__buffer, - Stdlib_filename=global_data.Stdlib__filename, - Error=[248,cst_Bi_util_Error,caml_fresh_oo_id(0)], - _g_= - [0, - [11,caml_new_string("Corrupted stream: "),[1,0]], - caml_new_string("Corrupted stream: %C")], - _f_= - [0, - [11, - caml_new_string("Corrupted stream: excessive chunk length ("), - [4,3,0,0,[11,caml_new_string(" bytes)"),0]]], - caml_new_string("Corrupted stream: excessive chunk length (%i bytes)")], - _i_=[0,caml_new_string("src/bi_stream.ml"),131,22], - _j_=[0,2], - _h_=[0,caml_new_string("src/bi_stream.ml"),102,20], - _e_= - [0, - [11,caml_new_string("unsupported word size ("),[4,3,0,0,[12,41,0]]], - caml_new_string("unsupported word size (%i)")], - _d_= - [0, - [11,caml_new_string("unsupported word size ("),[4,3,0,0,[12,41,0]]], - caml_new_string("unsupported word size (%i)")], - _s_= - [0, - [11,caml_new_string("0x"),[4,6,[0,2,2],0,0]], - caml_new_string("0x%02x")], - _t_=[0,[3,0,0],caml_new_string("%S")], - _u_=[0,[12,35,[5,6,[0,2,8],0,0]],caml_new_string("#%08lx")], - _v_= - [0, - [11,caml_new_string("shared"),[4,3,0,0,[11,caml_new_string(" ->"),0]]], - caml_new_string("shared%i ->")], - _w_= - [0, - [11,caml_new_string("shared"),[4,3,0,0,0]], - caml_new_string("shared%i")], - _x_= - [0, - [11,caml_new_string("0x"),[7,6,[0,2,16],0,0]], - caml_new_string("0x%016Lx")], - _y_= - [0, - [11,caml_new_string("0x"),[5,6,[0,2,8],0,0]], - caml_new_string("0x%08lx")], - _z_= + Unix_error=[248,cst_Unix_Unix_error,runtime.caml_fresh_oo_id(0)]; + caml_call2 + (Stdlib_callback[2],cst_Unix_Unix_error$0,[0,Unix_error,0,cst$0,cst]); + var + _p_=[0,1], + _q_=[0,1], + _o_=[0,1], + _l_=[0,1], + _m_=[0,1], + _n_=[0,1], + _j_=[0,1], + _k_=[0,1], + _i_=[0,1], + _h_=[0,1], + _e_=[0,0], + _f_=[0,0], + _g_=[0,0], + _d_=runtime.caml_int64_create_lo_mi_hi(0,0,0), + _c_= [0, - [11,caml_new_string("0x"),[4,6,[0,2,4],0,0]], - caml_new_string("0x%04x")], - _A_=[0,[3,0,0],caml_new_string("%S")], - _B_=[0,[3,0,0],caml_new_string("%S")], - _D_=[0,[12,35,[5,6,[0,2,8],0,0]],caml_new_string("#%08lx")], - _C_=[0,[2,0,[12,58,0]],caml_new_string("%s:")], - _p_=[0,951901561,0], - _q_=[0,504440814,0], - _n_=[0,caml_new_string("src/bi_io.ml"),270,4], - _o_=[0,caml_new_string("src/bi_io.ml"),274,4], - _m_=[0,caml_new_string("src/bi_io.ml"),212,11], - _k_= + [11,caml_string_of_jsbytes("EUNKNOWNERR "),[4,0,0,0,0]], + caml_string_of_jsbytes("EUNKNOWNERR %d")], + _b_= [0, [11, - caml_new_string("Bi_io.make_unhash: "), - [3, + caml_string_of_jsbytes("Unix.Unix_error(Unix."), + [2, 0, [11, - caml_new_string(" and "), - [3, - 0, - [11, - caml_new_string(" have the same hash, please pick another name"), - 0]]]]], - caml_new_string - ("Bi_io.make_unhash: %S and %S have the same hash, please pick another name")], - _l_=[0,caml_new_string("src/bi_io.ml"),169,13], - _H_=[0,caml_new_string("src/bi_io.ml"),85,2], - _G_=[0,[2,0,[12,10,0]],caml_new_string("%s\n")], - _F_=[0,[2,0,[12,10,0]],caml_new_string("%s\n")], - _E_= - [0, - [11, - caml_new_string("Cannot load dictionary from "), - [3,0,[11,caml_new_string(": "),[2,0,[12,10,[10,0]]]]]], - caml_new_string("Cannot load dictionary from %S: %s\n%!")]; - function error(s){throw [0,Error,s]} - function string8_of_int(x) - {var s=caml_create_bytes(8),i=0; - for(;;) - {caml_bytes_set - (s, - 7 - i | 0, - caml_call1(Stdlib_char[1],255 & (x >>> (8 * i | 0) | 0))); - var _c4_=i + 1 | 0; - if(7 !== i){var i=_c4_;continue} - return caml_call1(Stdlib_bytes[6],s)}} - function string4_of_int(x) - {var s=caml_create_bytes(4),i=0; - for(;;) - {caml_bytes_set - (s, - 3 - i | 0, - caml_call1(Stdlib_char[1],255 & (x >>> (8 * i | 0) | 0))); - var _c3_=i + 1 | 0; - if(3 !== i){var i=_c3_;continue} - return caml_call1(Stdlib_bytes[6],s)}} - function print_bits(opt,len,s) - {if(opt)var sth=opt[1],pos=sth;else var pos=0; - var slen=caml_ml_string_length(s),_cT_=pos < 0?1:0; - if(_cT_) - var _cU_=_cT_; - else - var _c2_=0 < pos?1:0,_cU_=_c2_?slen <= pos?1:0:_c2_; - if(_cU_)caml_call1(Stdlib[1],cst_Bi_util_print_bits); - if(len) - var - len$0=len[1], - _cV_= - (slen - pos | 0) < len$0 - ?caml_call1(Stdlib[1],cst_Bi_util_print_bits$0) - :len$0, - len$1=_cV_; - else - var len$1=slen - pos | 0; - var r=caml_create_bytes(len$1 * 9 | 0),_cX_=len$1 - 1 | 0,_cW_=0; - if(! (_cX_ < 0)) - {var i=_cW_; - a: - for(;;) - {var k=i * 9 | 0,x=caml_string_get(s,pos + i | 0),j=0; - for(;;) - {var _c0_=0 === ((x >>> (7 - j | 0) | 0) & 1)?48:49; - caml_bytes_set(r,k + j | 0,_c0_); - var _c1_=j + 1 | 0; - if(7 !== j){var j=_c1_;continue} - var _cY_=0 === ((i + 1 | 0) % 8 | 0)?10:32; - caml_bytes_set(r,k + 8 | 0,_cY_); - var _cZ_=i + 1 | 0; - if(_cX_ !== i){var i=_cZ_;continue a} - break} - break}} - return caml_call1(Stdlib_bytes[6],r)} - var c=[0,0],r=[0,-1]; - for(;;) - {if(0 === r[1]) - {var - int_size=c[1], - Bi_util= - [0,Error,error,string8_of_int,string4_of_int,print_bits,int_size]; - caml_register_global(101,Bi_util,"Bi_util"); - var - n=[0,0], - dummy_type_id=0, - create_type_id= - function(param) - {n[1]++; - return 0 <= n[1] - ?n[1] - :caml_call1 - (Stdlib[2], - cst_Bi_share_Rd_poly_create_type_id_exhausted_available_type_id_s)}, - equal= - function(param,_cQ_) - {var - t2=_cQ_[2], - x2=_cQ_[1], - t1=param[2], - x1=param[1], - _cR_=x1 === x2?1:0, - _cS_=_cR_?t1 === t2?1:0:_cR_; - return _cS_}, - hash=Stdlib_hashtbl[27], - H=caml_call1(Stdlib_hashtbl[25],[0,equal,hash]), - create=H[1], - clear= - function(tbl) - {var _cP_=0 < caml_call1(H[15],tbl)?1:0; - return _cP_?caml_call1(H[2],tbl):_cP_}, - put= - function(tbl,k,pos) - {try - {var pos0=caml_call2(H[7],tbl,k),_cN_=pos - pos0 | 0;return _cN_} - catch(_cO_) - {_cO_ = caml_wrap_exception(_cO_); - if(_cO_ === Stdlib[8]){caml_call3(H[5],tbl,k,pos);return 0} - throw _cO_}}, - create$0=function(n){return caml_call2(Stdlib_hashtbl[1],0,n)}, - clear$0=Stdlib_hashtbl[2], - put$0= - function(tbl,pos,x){return caml_call3(Stdlib_hashtbl[5],tbl,pos,x)}, - get= - function(tbl,pos) - {try - {var _cL_=caml_call2(Stdlib_hashtbl[6],tbl,pos);return _cL_} - catch(_cM_) - {_cM_ = caml_wrap_exception(_cM_); - if(_cM_ === Stdlib[8]) - return error(cst_Corrupted_data_invalid_reference); - throw _cM_}}, - Rd=[0,create$0,clear$0,put$0,get], - _a_=[0,create,clear,put], - Bi_share=[0,dummy_type_id,create_type_id,_a_,Rd]; - caml_register_global(103,Bi_share,"Bi_share"); - var - End_of_input=[248,cst_Bi_inbuf_End_of_input,caml_fresh_oo_id(0)], - try_preread= - function(ib,n) - {return (ib[3] - ib[2] | 0) < n - ?(caml_call2(ib[6],ib,n), - caml_call2(Stdlib[16],ib[3] - ib[2] | 0,n)) - :n}, - read= - function(ib,n) - {var pos=ib[2]; - if(n <= (ib[3] - pos | 0)){ib[2] = pos + n | 0;return pos} - if(n <= try_preread(ib,n)) - {var pos$0=ib[2];ib[2] = ib[2] + n | 0;return pos$0} - throw End_of_input}, - read_char= - function(ib) - {var pos=ib[2]; - if(0 < (ib[3] - pos | 0)) - {var c=caml_bytes_unsafe_get(ib[1],pos); - ib[2] = pos + 1 | 0; - return c} - if(0 < try_preread(ib,1)) - {var pos$0=ib[2],c$0=caml_bytes_unsafe_get(ib[1],pos$0); - ib[2] = pos$0 + 1 | 0; - return c$0} - throw End_of_input}, - peek= - function(ib) - {var pos=ib[2]; - if(0 < (ib[3] - pos | 0))return caml_bytes_unsafe_get(ib[1],pos); - if(0 < try_preread(ib,1)) - return caml_bytes_unsafe_get(ib[1],ib[2]); - throw End_of_input}, - from_bytes= - function(opt,_cJ_,s) - {if(opt)var sth=opt[1],pos=sth;else var pos=0; - if(_cJ_)var sth$0=_cJ_[1],shrlen=sth$0;else var shrlen=16; - var _cK_=caml_call1(Rd[1],shrlen); - return [0, - s, - pos, - caml_ml_bytes_length(s), - - pos | 0, - caml_ml_bytes_length(s), - function(ib,n){return 0}, - _cK_]}, - from_string= - function(pos,shrlen,s) - {return from_bytes(pos,shrlen,caml_call1(Stdlib_bytes[5],s))}, - from_channel= - function(opt,_cF_,ic) - {if(opt)var sth=opt[1],len=sth;else var len=4096; - if(_cF_)var sth$0=_cF_[1],shrlen=sth$0;else var shrlen=16; - var _cG_=caml_call1(Rd[1],shrlen); - return [0, - caml_create_bytes(len), - 0, - 0, - 0, - len, - function(ib,n$0) - {if(ib[5] < n$0) - return caml_call1 - (Stdlib[1],cst_Bi_inbuf_refill_from_channel); - var pos$1=ib[3] - ib[2] | 0,_cH_=pos$1 < n$0?1:0; - if(_cH_) - {var s=ib[1]; - caml_call5(Stdlib_bytes[11],s,ib[2],s,0,pos$1); - var len$1=n$0 - pos$1 | 0,pos=pos$1,len=len$1,accu=0; - for(;;) - {var n=caml_call4(Stdlib[84],ic,s,pos,len); - if(n < len) - if(0 < n) - {var - accu$0=accu + n | 0, - len$0=len - n | 0, - pos$0=pos + n | 0, - pos=pos$0, - len=len$0, - accu=accu$0; - continue} - var really_read=accu + n | 0; - ib[4] = ib[4] + ib[2] | 0; - ib[2] = 0; - ib[3] = pos$1 + really_read | 0; - var _cI_=0; - break}} - else - var _cI_=_cH_; - return _cI_}, - _cG_]}, - Bi_inbuf= - [0, - End_of_input, - try_preread, - read, - read_char, - peek, - from_string, - from_bytes, - from_channel]; - caml_register_global(104,Bi_inbuf,"Bi_inbuf"); - var - really_extend= - function(b,n) - {var - slen0=b[2], - reqlen=b[3] + n | 0, - x=caml_call2(Stdlib[17],reqlen,2 * slen0 | 0), - slen= - x <= Stdlib_sys[12] - ?x - :Stdlib_sys[12] < reqlen - ?caml_call1 - (Stdlib[1],cst_Buf_extend_reached_Sys_max_string_length) - :Stdlib_sys[12], - s=caml_create_bytes(slen); - caml_call5(Stdlib_bytes[11],b[1],0,s,0,b[3]); - b[1] = s; - b[2] = slen; - return 0}, - flush_to_output= - function(abstract_output,b,n) - {var _cD_=b[3]; - caml_call3 - (abstract_output,caml_call1(Stdlib_bytes[6],b[1]),0,_cD_); - b[4] = b[4] + b[3] | 0; - b[3] = 0; - var _cE_=b[2] < n?1:0; - return _cE_?really_extend(b,n):_cE_}, - flush_to_channel= - function(oc) - {var _cA_=caml_call1(Stdlib[69],oc); - return function(_cB_,_cC_){return flush_to_output(_cA_,_cB_,_cC_)}}, - create$1= - function(opt,_cz_,n) - {if(opt) - var sth=opt[1],make_room=sth; - else - var make_room=really_extend; - if(_cz_)var sth$0=_cz_[1],shrlen=sth$0;else var shrlen=16; - return [0, - caml_create_bytes(n), - n, - 0, - 0, - n, - make_room, - caml_call1(_a_[1],shrlen), - shrlen]}, - create_channel_writer= - function(opt,shrlen,oc) - {if(opt)var sth=opt[1],len=sth;else var len=4096; - return create$1([0,flush_to_channel(oc)],shrlen,len)}, - flush_output_writer=function(b){return caml_call2(b[6],b,0)}, - create_output_writer= - function(opt,shrlen,out) - {if(opt)var sth=opt[1],len=sth;else var len=4096; - var - _cw_= - caml_call1(runtime.caml_get_public_method(out,209784577,1),out); - return create$1 - ([0, - function(_cx_,_cy_){return flush_to_output(_cw_,_cx_,_cy_)}], - shrlen, - len)}, - extend= - function(b,n) - {var _cv_=b[2] < (b[3] + n | 0)?1:0; - return _cv_?caml_call2(b[6],b,n):_cv_}, - alloc= - function(b,n) - {extend(b,n);var pos=b[3];b[3] = pos + n | 0;return pos}, - add_sub= - function(blit,b,s,pos,len) - {extend(b,len); - caml_call5(blit,s,pos,b[1],b[3],len); - b[3] = b[3] + len | 0; - return 0}, - _b_=Stdlib_string[6], - add_substring= - function(_cr_,_cs_,_ct_,_cu_) - {return add_sub(_b_,_cr_,_cs_,_ct_,_cu_)}, - _c_=Stdlib_bytes[11], - add_subbytes= - function(_cn_,_co_,_cp_,_cq_) - {return add_sub(_c_,_cn_,_co_,_cp_,_cq_)}, - add_string= - function(b,s){return add_substring(b,s,0,caml_ml_string_length(s))}, - add_bytes= - function(b,s){return add_subbytes(b,s,0,caml_ml_bytes_length(s))}, - add_char= - function(b,c){var pos=alloc(b,1);return caml_bytes_set(b[1],pos,c)}, - unsafe_add_char= - function(b,c) - {var len=b[3]; - caml_bytes_set(b[1],len,c); - b[3] = len + 1 | 0; - return 0}, - add_char2= - function(b,c1,c2) - {var pos=alloc(b,2),s=b[1]; - caml_bytes_unsafe_set(s,pos,c1); - caml_bytes_unsafe_set(s,pos + 1 | 0,c2); - return 0}, - add_char4= - function(b,c1,c2,c3,c4) - {var pos=alloc(b,4),s=b[1]; - caml_bytes_unsafe_set(s,pos,c1); - caml_bytes_unsafe_set(s,pos + 1 | 0,c2); - caml_bytes_unsafe_set(s,pos + 2 | 0,c3); - caml_bytes_unsafe_set(s,pos + 3 | 0,c4); - return 0}, - clear$1=function(b){b[4] = 0;b[3] = 0;return caml_call1(_a_[2],b[7])}, - reset= - function(b) - {if(caml_ml_bytes_length(b[1]) !== b[5]) - b[1] = caml_create_bytes(b[5]); - b[4] = 0; - b[3] = 0; - b[7] = caml_call1(_a_[1],b[8]); - return 0}, - contents=function(b){return caml_call3(Stdlib_bytes[8],b[1],0,b[3])}, - Bi_outbuf= - [0, - really_extend, - flush_to_channel, - create$1, - contents, - create_channel_writer, - flush_output_writer, - create_output_writer, - flush_output_writer, - extend, - alloc, - add_bytes, - add_subbytes, - add_string, - add_substring, - add_char, - add_char2, - add_char4, - unsafe_add_char, - clear$1, - reset]; - caml_register_global(107,Bi_outbuf,"Bi_outbuf"); - if(0 === (int_size % 7 | 0)) - var m=int_size / 7 | 0,max_vint_bytes=m,max_highest_byte=127; + caml_string_of_jsbytes(", "), + [3,0,[11,caml_string_of_jsbytes(", "),[3,0,[12,41,0]]]]]]], + caml_string_of_jsbytes("Unix.Unix_error(Unix.%s, %S, %S)")]; + function _a_(param) + {if(param[1] === Unix_error) + {var s=param[4],s$0=param[3],e=param[2]; + if(typeof e === "number") + {var _dC_=e; + if(34 <= _dC_) + switch(_dC_) + {case 34:var msg=cst_ESPIPE;break; + case 35:var msg=cst_ESRCH;break; + case 36:var msg=cst_EXDEV;break; + case 37:var msg=cst_EWOULDBLOCK;break; + case 38:var msg=cst_EINPROGRESS;break; + case 39:var msg=cst_EALREADY;break; + case 40:var msg=cst_ENOTSOCK;break; + case 41:var msg=cst_EDESTADDRREQ;break; + case 42:var msg=cst_EMSGSIZE;break; + case 43:var msg=cst_EPROTOTYPE;break; + case 44:var msg=cst_ENOPROTOOPT;break; + case 45:var msg=cst_EPROTONOSUPPORT;break; + case 46:var msg=cst_ESOCKTNOSUPPORT;break; + case 47:var msg=cst_EOPNOTSUPP;break; + case 48:var msg=cst_EPFNOSUPPORT;break; + case 49:var msg=cst_EAFNOSUPPORT;break; + case 50:var msg=cst_EADDRINUSE;break; + case 51:var msg=cst_EADDRNOTAVAIL;break; + case 52:var msg=cst_ENETDOWN;break; + case 53:var msg=cst_ENETUNREACH;break; + case 54:var msg=cst_ENETRESET;break; + case 55:var msg=cst_ECONNABORTED;break; + case 56:var msg=cst_ECONNRESET;break; + case 57:var msg=cst_ENOBUFS;break; + case 58:var msg=cst_EISCONN;break; + case 59:var msg=cst_ENOTCONN;break; + case 60:var msg=cst_ESHUTDOWN;break; + case 61:var msg=cst_ETOOMANYREFS;break; + case 62:var msg=cst_ETIMEDOUT;break; + case 63:var msg=cst_ECONNREFUSED;break; + case 64:var msg=cst_EHOSTDOWN;break; + case 65:var msg=cst_EHOSTUNREACH;break; + case 66:var msg=cst_ELOOP;break; + default:var msg=cst_EOVERFLOW} + else + switch(_dC_) + {case 0:var msg=cst_E2BIG;break; + case 1:var msg=cst_EACCES;break; + case 2:var msg=cst_EAGAIN;break; + case 3:var msg=cst_EBADF;break; + case 4:var msg=cst_EBUSY;break; + case 5:var msg=cst_ECHILD;break; + case 6:var msg=cst_EDEADLK;break; + case 7:var msg=cst_EDOM;break; + case 8:var msg=cst_EEXIST;break; + case 9:var msg=cst_EFAULT;break; + case 10:var msg=cst_EFBIG;break; + case 11:var msg=cst_EINTR;break; + case 12:var msg=cst_EINVAL;break; + case 13:var msg=cst_EIO;break; + case 14:var msg=cst_EISDIR;break; + case 15:var msg=cst_EMFILE;break; + case 16:var msg=cst_EMLINK;break; + case 17:var msg=cst_ENAMETOOLONG;break; + case 18:var msg=cst_ENFILE;break; + case 19:var msg=cst_ENODEV;break; + case 20:var msg=cst_ENOENT;break; + case 21:var msg=cst_ENOEXEC;break; + case 22:var msg=cst_ENOLCK;break; + case 23:var msg=cst_ENOMEM;break; + case 24:var msg=cst_ENOSPC;break; + case 25:var msg=cst_ENOSYS;break; + case 26:var msg=cst_ENOTDIR;break; + case 27:var msg=cst_ENOTEMPTY;break; + case 28:var msg=cst_ENOTTY;break; + case 29:var msg=cst_ENXIO;break; + case 30:var msg=cst_EPERM;break; + case 31:var msg=cst_EPIPE;break; + case 32:var msg=cst_ERANGE;break; + default:var msg=cst_EROFS}} else - var - m$0=(int_size / 7 | 0) + 1 | 0, - h=(1 << (int_size % 7 | 0)) - 1 | 0, - max_vint_bytes=m$0, - max_highest_byte=h; - var - check_highest_byte= - function(x) - {var _cm_=max_highest_byte < x?1:0; - return _cm_?error(cst_Vint_exceeding_range_of_OCaml_ints):_cm_}, - unsigned_of_signed= - function(i){return 0 <= i?i << 1:(-1 - i | 0) << 1 | 1}, - write_untagged_uvint= - function(buf,i) - {extend(buf,max_vint_bytes); - var x=[0,i]; - for(;;) - {if(0 === (x[1] >>> 7 | 0)) - return unsafe_add_char(buf,caml_call1(Stdlib_char[1],x[1])); - var byte$0=128 | x[1] & 127; - unsafe_add_char(buf,caml_call1(Stdlib_char[1],byte$0)); - x[1] = x[1] >>> 7 | 0; - continue}}, - write_untagged_svint= - function(buf,i) - {return write_untagged_uvint(buf,unsigned_of_signed(i))}, - uvint_of_uint= - function(buf,i) - {if(buf)var b=buf[1],buffer=b;else var buffer=create$1(0,0,10); - clear$1(buffer); - write_untagged_uvint(buffer,i); - return contents(buffer)}, - svint_of_int= - function(buf,i){return uvint_of_uint(buf,unsigned_of_signed(i))}, - read_untagged_uvint= - function(ib) + var x=e[1],msg=caml_call2(Stdlib_printf[4],_c_,x); + return [0,caml_call4(Stdlib_printf[4],_b_,msg,s$0,s)]} + return 0} + caml_call1(Stdlib_printexc[9],_a_); + function handle_unix_error(f,arg) + {try + {var _dB_=caml_call1(f,arg);return _dB_} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn[1] === Unix_error) + {var + arg$0=exn[4], + fun_name=exn[3], + err=exn[2], + _dz_=caml_check_bound(runtime.caml_sys_argv(0),0)[1]; + caml_call1(Stdlib[49],_dz_); + caml_call1(Stdlib[49],cst$1); + caml_call1(Stdlib[49],fun_name); + caml_call1(Stdlib[49],cst_failed); + if(0 < caml_ml_string_length(arg$0)) + {caml_call1(Stdlib[49],cst_on); + caml_call1(Stdlib[49],arg$0); + caml_call1(Stdlib[49],cst$2)} + caml_call1(Stdlib[49],cst$3); + var _dA_=runtime.unix_error_message(err); + caml_call1(Stdlib[53],_dA_); + return caml_call1(Stdlib[99],2)} + throw exn}} + function execvpe(name,args,env) + {try + {var _dt_=runtime.unix_execvpe(name,args,env);return _dt_} + catch(_du_) + {_du_ = caml_wrap_exception(_du_); + if(_du_[1] === Unix_error) + {var _ds_=_du_[2]; + if(typeof _ds_ === "number" && 25 === _ds_) {var - avail=try_preread(ib,max_vint_bytes), - s=ib[1], - pos=ib[2], - x=[0,0]; + exec= + function(file) + {try + {var _dx_=runtime.unix_execve(file,args,env);return _dx_} + catch(_dy_) + {_dy_ = caml_wrap_exception(_dy_); + if(_dy_[1] === Unix_error) + {var _dw_=_dy_[2]; + if(typeof _dw_ === "number" && 21 === _dw_) + {var + argc=args.length - 1, + args$0= + 0 === argc + ?args + :caml_call3(Stdlib_array[7],args,1,argc - 1 | 0), + new_args=caml_call2(Stdlib_array[5],[0,shell,file],args$0); + return runtime.unix_execve + (caml_check_bound(new_args,0)[1],new_args,env)}} + throw _dy_}}; + if(caml_call2(Stdlib_string[22],name,47))return exec(name); try - {var _cj_=avail - 1 | 0,_ci_=0; - if(! (_cj_ < 0)) - {var i=_ci_; - for(;;) - {var b=caml_bytes_get(s,pos + i | 0); - x[1] = (b & 127) << (7 * i | 0) | x[1]; - if(b < 128) - {ib[2] = (pos + i | 0) + 1 | 0; - if((i + 1 | 0) === max_vint_bytes)check_highest_byte(b); - throw Stdlib[3]} - var _ck_=i + 1 | 0; - if(_cj_ !== i){var i=_ck_;continue} - break}} - error - (cst_Unterminated_vint_or_vint_exceeding_range_of_OCaml_ints)} - catch(_cl_) - {_cl_ = caml_wrap_exception(_cl_); - if(_cl_ !== Stdlib[3])throw _cl_} - return x[1]}, - read_untagged_svint= - function(ib) - {var i=read_untagged_uvint(ib); - return 0 === (i & 1)?i >>> 1 | 0:-1 - (i >>> 1 | 0) | 0}, - check_end_of_input= - function(ib) - {var _ch_=0 < try_preread(ib,1)?1:0; - return _ch_?error(cst_Junk_input_after_end_of_vint):_ch_}, - uint_of_uvint= - function(s) - {var ib=from_string(0,0,s),x=read_untagged_uvint(ib); - check_end_of_input(ib); - return x}, - int_of_svint= - function(s) - {var ib=from_string(0,0,s),x=read_untagged_svint(ib); - check_end_of_input(ib); - return x}, - Bi_vint= - [0, - uvint_of_uint, - svint_of_int, - uint_of_uvint, - int_of_svint, - write_untagged_uvint, - write_untagged_svint, - read_untagged_uvint, - read_untagged_svint]; - caml_register_global(110,Bi_vint,"Bi_vint"); - var - error$0= - function(s) - {var _cg_=caml_call2(Stdlib[28],cst_Bi_stream,s); - return caml_call1(Stdlib[2],_cg_)}, - read_stream= - function(of_string,ic) - {function _b__(i$2) - {var c=caml_call1(Stdlib[82],ic); - if(1 === c) - {var _ca_=Stdlib_sys[9]; - if(32 === _ca_) - {var i$0=1; - for(;;) - {if(0 !== caml_call1(Stdlib[87],ic)) - error$0 - (cst_Chunk_length_exceeds_supported_range_on_this_platform$0); - var _cd_=i$0 + 1 | 0; - if(4 !== i$0){var i$0=_cd_;continue} - var n=[0,0],i=1; - for(;;) - {var _cb_=caml_call1(Stdlib[87],ic); - n[1] = n[1] << 8 | _cb_; - var _cc_=i + 1 | 0; - if(4 !== i){var i=_cc_;continue} - if(n[1] < 0) - error$0 - (cst_Chunk_length_exceeds_supported_range_on_this_platform); - var len=n[1]; - break} - break}} - else - if(64 === _ca_) - {var n$0=[0,0],i$1=1; - for(;;) - {var _ce_=caml_call1(Stdlib[87],ic); - n$0[1] = n$0[1] << 8 | _ce_; - var _cf_=i$1 + 1 | 0; - if(8 !== i$1){var i$1=_cf_;continue} - if(n$0[1] < 0) - error$0(cst_Corrupted_stream_excessive_chunk_length); - var len=n$0[1]; - break}} - else - var len=error$0(caml_call2(Stdlib_printf[4],_d_,_ca_)); - if(Stdlib_sys[12] < len) - error$0(caml_call2(Stdlib_printf[4],_f_,len)); - var s=caml_create_bytes(len); - caml_call4(Stdlib[85],ic,s,0,len); - return [0,caml_call1(of_string,caml_call1(Stdlib_bytes[6],s))]} - return 0 === c?0:error$0(caml_call2(Stdlib_printf[4],_g_,c))} - var st=caml_call1(Stdlib_stream[3],_b__),a=[0,[0]],pos=[0,0]; - function next(i) - {for(;;) - {if(a[1].length - 1 <= pos[1]) - {var match=caml_call1(Stdlib_stream[11],st); - if(match) - {var a$0=match[1]; - caml_call1(Stdlib_stream[12],st); - a[1] = a$0; - pos[1] = 0; - continue} - return 0} - var _b$_=pos[1],x=caml_check_bound(a[1],_b$_)[1 + _b$_]; - pos[1]++; - return [0,x]}} - return caml_call1(Stdlib_stream[3],next)}, - write_stream= - function(opt,to_string,oc,st) - {if(opt)var sth=opt[1],chunk_len=sth;else var chunk_len=1024; - var n=[0,0],acc=[0,0]; - function flush_chunk(param) - {var _b9_=acc[1]; - if(_b9_) - {var - tl=_b9_[2], - x=_b9_[1], - r=[0,tl], - len=caml_call1(Stdlib_list[1],_b9_), - a=caml_make_vect(len,x), - _b6_=len - 2 | 0; - if(! (_b6_ < 0)) - {var i$1=_b6_; - for(;;) - {var _b7_=r[1]; - if(! _b7_)throw [0,Assert_failure,_h_]; - var tl$0=_b7_[2],hd=_b7_[1]; - caml_check_bound(a,i$1)[1 + i$1] = hd; - r[1] = tl$0; - var _b8_=i$1 - 1 | 0; - if(0 !== i$1){var i$1=_b8_;continue} - break}} - var a$0=a} - else - var a$0=[0]; - acc[1] = 0; - n[1] = 0; - var s=caml_call1(to_string,a$0); - caml_call2(Stdlib[65],oc,1); - var n$2=caml_ml_string_length(s),_b1_=Stdlib_sys[9]; - if(32 === _b1_) - {caml_call2(Stdlib[66],oc,cst); - var n$0=[0,n$2],i=1; - for(;;) - {var _b2_=caml_call1(Stdlib[29],n$0[1] >>> 24 | 0); - caml_call2(Stdlib[65],oc,_b2_); - n$0[1] = n$0[1] << 8; - var _b3_=i + 1 | 0; - if(4 !== i){var i=_b3_;continue} - break}} - else - if(64 === _b1_) - {var n$1=[0,n$2],i$0=1; - for(;;) - {var _b4_=caml_call1(Stdlib[29],n$1[1] >>> 56 | 0); - caml_call2(Stdlib[65],oc,_b4_); - n$1[1] = n$1[1] << 8; - var _b5_=i$0 + 1 | 0; - if(8 !== i$0){var i$0=_b5_;continue} - break}} - else - error$0(caml_call2(Stdlib_printf[4],_e_,_b1_)); - return caml_call2(Stdlib[66],oc,s)} - function _bZ_(x) - {n[1]++; - acc[1] = [0,x,acc[1]]; - var _b0_=chunk_len <= n[1]?1:0; - return _b0_?flush_chunk(0):_b0_} - caml_call2(Stdlib_stream[8],_bZ_,st); - if(0 < n[1])flush_chunk(0); - return caml_call2(Stdlib[65],oc,0)}, - test= - function(l) - {function _bT_(x) - {if(0 <= x)if(! (9 < x))return 0;throw [0,Assert_failure,_i_]} - caml_call2(Stdlib_list[15],_bT_,l); - function to_string(a) - {var - _bX_=caml_call1(Stdlib_array[11],a), - _bY_=caml_call2(Stdlib_list[17],Stdlib[33],_bX_); - return caml_call2(Stdlib_string[7],cst$0,_bY_)} - function of_string(s) - {function _bV_(i) - {var _bW_=caml_string_get(s,i); - return runtime.caml_int_of_string - (caml_call2(Stdlib_string[1],1,_bW_))} - return caml_call2(Stdlib_array[2],caml_ml_string_length(s),_bV_)} - var - st=caml_call1(Stdlib_stream[4],l), - oc=caml_call1(Stdlib[60],cst_test_stream_dat); - write_stream(_j_,to_string,oc,st); - caml_call1(Stdlib[76],oc); + {var _dr_=runtime.caml_sys_unsafe_getenv(cst_PATH),_dq_=_dr_} + catch(_dv_) + {_dv_ = caml_wrap_exception(_dv_); + if(_dv_ !== Stdlib[8])throw _dv_; + var _dq_=cst_bin_usr_bin} var - ic=caml_call1(Stdlib[79],cst_test_stream_dat$0), - st$0=read_stream(of_string,ic), - l$0=[0,0]; - function _bU_(i){l$0[1] = [0,i,l$0[1]];return 0} - caml_call2(Stdlib_stream[8],_bU_,st$0); - caml_call1(Stdlib[93],ic); - return runtime.caml_equal(l,caml_call1(Stdlib_list[9],l$0[1]))}, - Bi_stream=[0,read_stream,write_stream,test]; - caml_register_global(114,Bi_stream,"Bi_stream"); - var - bool_tag=0, - int8_tag=1, - int16_tag=2, - int32_tag=3, - int64_tag=4, - float32_tag=11, - float64_tag=12, - uvint_tag=16, - svint_tag=17, - string_tag=18, - array_tag=19, - tuple_tag=20, - record_tag=21, - num_variant_tag=22, - variant_tag=23, - unit_tag=24, - table_tag=25, - shared_tag=26, - make_signed=function(x){return 1073741823 < x?x + 2147483648 | 0:x}, - hash_name= - function(s) - {var accu=[0,0],_bQ_=caml_ml_string_length(s) - 1 | 0,_bP_=0; - if(! (_bQ_ < 0)) - {var i=_bP_; - for(;;) - {var _bR_=caml_string_get(s,i); - accu[1] = (223 * accu[1] | 0) + _bR_ | 0; - var _bS_=i + 1 | 0; - if(_bQ_ !== i){var i=_bS_;continue} - break}} - accu[1] = accu[1] & 2147483647; - return make_signed(accu[1])}, - n$0=int_size - 31 | 0; - if(0 <= n$0) - {var - write_hashtag= - function(ob,h$0,has_arg) - {var h=h$0 << n$0 >>> n$0 | 0,pos=alloc(ob,4),s=ob[1]; - caml_bytes_unsafe_set - (s,pos + 3 | 0,caml_call1(Stdlib_char[1],h & 255)); - var h$1=h >>> 8 | 0; - caml_bytes_unsafe_set - (s,pos + 2 | 0,caml_call1(Stdlib_char[1],h$1 & 255)); - var h$2=h$1 >>> 8 | 0; - caml_bytes_unsafe_set - (s,pos + 1 | 0,caml_call1(Stdlib_char[1],h$2 & 255)); - var h$3=h$2 >>> 8 | 0,_bO_=has_arg?h$3 | 128:h$3; - caml_bytes_unsafe_set(s,pos,caml_call1(Stdlib_char[1],_bO_)); - return 0}, - string_of_hashtag= - function(h,has_arg) - {var ob=create$1(0,0,4); - write_hashtag(ob,h,has_arg); - return contents(ob)}, - read_hashtag= - function(ib,cont) - {var - i=read(ib,4), - s=ib[1], - x0=caml_bytes_get(s,i), - has_arg=128 <= x0?1:0, - x1=(x0 & 127) << 24, - x2=caml_bytes_get(s,i + 1 | 0) << 16, - x3=caml_bytes_get(s,i + 2 | 0) << 8, - x4=caml_bytes_get(s,i + 3 | 0), - h=make_signed(x1 | x2 | x3 | x4); - return caml_call3(cont,ib,h,has_arg)}, - read_field_hashtag= - function(ib) - {var i=read(ib,4),s=ib[1],x0=caml_bytes_unsafe_get(s,i); - if(x0 < 128)error(cst_Corrupted_data_invalid_field_hashtag); - var - x1=(x0 & 127) << 24, - x2=caml_bytes_unsafe_get(s,i + 1 | 0) << 16, - x3=caml_bytes_unsafe_get(s,i + 2 | 0) << 8, - x4=caml_bytes_unsafe_get(s,i + 3 | 0); - return make_signed(x1 | x2 | x3 | x4)}, - write_numtag= - function(ob,i,has_arg) - {var _bM_=i < 0?1:0,_bN_=_bM_ || (127 < i?1:0); - if(_bN_)error(cst_Corrupted_data_invalid_numtag); - var x=has_arg?i | 128:i; - return add_char(ob,caml_call1(Stdlib_char[1],x))}, - read_numtag= - function(ib,cont) - {var i=read(ib,1),x=caml_bytes_get(ib[1],i),has_arg=128 <= x?1:0; - return caml_call3(cont,ib,x & 127,has_arg)}, - make_unhash= - function(l) - {var - _bE_=4 * caml_call1(Stdlib_list[1],l) | 0, - tbl=caml_call2(Stdlib_hashtbl[1],0,_bE_); - function _bF_(s) - {var h=hash_name(s); + param$0=caml_call2(Stdlib_string[35],58,_dq_), + eacces=0, + param=param$0; + for(;;) + {if(param) + {var + rem=param[2], + dir=param[1], + dir$0=caml_string_equal(dir,cst$4)?Stdlib_filename[1]:dir; try - {var match=caml_call2(Stdlib_hashtbl[6],tbl,h); - if(match) - {var s$0=match[1],_bI_=caml_string_notequal(s,s$0); - if(_bI_) - var - _bJ_=caml_call3(Stdlib_printf[4],_k_,s,s$0), - _bK_=caml_call1(Stdlib[2],_bJ_); - else - var _bK_=_bI_; - return _bK_} - throw [0,Assert_failure,_l_]} - catch(_bL_) - {_bL_ = caml_wrap_exception(_bL_); - if(_bL_ === Stdlib[8]) - return caml_call3(Stdlib_hashtbl[5],tbl,h,[0,s]); - throw _bL_}} - caml_call2(Stdlib_list[15],_bF_,l); - return function(h) - {try - {var _bG_=caml_call2(Stdlib_hashtbl[6],tbl,h);return _bG_} - catch(_bH_) - {_bH_ = caml_wrap_exception(_bH_); - if(_bH_ === Stdlib[8])return 0; - throw _bH_}}}, - write_tag= - function(ob,x){return add_char(ob,caml_call1(Stdlib_char[1],x))}, - write_untagged_unit=function(ob,param){return add_char(ob,0)}, - write_untagged_bool= - function(ob,x){var _bD_=x?1:0;return add_char(ob,_bD_)}, - write_untagged_char=function(ob,x){return add_char(ob,x)}, - write_untagged_int8= - function(ob,x){return add_char(ob,caml_call1(Stdlib_char[1],x))}, - write_untagged_int16= - function(ob,x) - {add_char(ob,caml_call1(Stdlib_char[1],x >>> 8 | 0)); - return add_char(ob,caml_call1(Stdlib_char[1],x & 255))}, - write_untagged_int32= - function(ob,low) - {var high=low >>> 16 | 0; - add_char(ob,caml_call1(Stdlib_char[1],high >>> 8 | 0)); - add_char(ob,caml_call1(Stdlib_char[1],high & 255)); - add_char(ob,caml_call1(Stdlib_char[1],(low >>> 8 | 0) & 255)); - return add_char(ob,caml_call1(Stdlib_char[1],low & 255))}, - write_untagged_float32= - function(ob,x) - {return write_untagged_int32 - (ob,runtime.caml_int32_bits_of_float(x))}, - float_endianness= - [246, - function(_bC_) - {var match=caml_string_unsafe_get(1.,0); - if(63 === match)return 3305632; - if(0 === match)return 624392470; - throw [0,Assert_failure,_m_]}], - read_untagged_float64= - function(ib) - {var - i=read(ib,8), - s=ib[1], - x=runtime.caml_obj_block(Stdlib_obj[14],8), - _by_=caml_obj_tag(float_endianness), - _bz_= - 250 === _by_ - ?float_endianness[1] - :246 === _by_ - ?caml_call1(CamlinternalLazy[2],float_endianness) - :float_endianness; - if(624392470 <= _bz_) - {var j=0; - for(;;) - {caml_bytes_unsafe_set - (x,7 - j | 0,caml_bytes_unsafe_get(s,i + j | 0)); - var _bA_=j + 1 | 0; - if(7 !== j){var j=_bA_;continue} - break}} + {var _do_=exec(caml_call2(Stdlib_filename[4],dir$0,name)); + return _do_} + catch(exn) + {exn = caml_wrap_exception(exn); + if(exn[1] === Unix_error) + {var err=exn[2]; + if(typeof err === "number") + {var _dn_=err - 62 | 0,switch$0=0; + if(4 < _dn_ >>> 0) + {if(! (-35 <= _dn_)) + {var switcher=_dn_ + 62 | 0; + switch(switcher) + {case 1:var eacces=1,param=rem;continue; + case 14: + case 17: + case 19: + case 20: + case 26:switch$0 = 1;break + }}} + else + if(2 < (_dn_ - 1 | 0) >>> 0)switch$0 = 1; + if(switch$0){var param=rem;continue}} + throw exn} + throw exn}} + var _dp_=eacces?1:20; + throw [0,Unix_error,_dp_,cst_execvpe,name]}}} + throw _du_}} + var stdin=0,stdout=1,stderr=2; + function read(fd,buf,ofs,len) + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_bytes_length(buf) - len | 0) < ofs)) + return runtime.unix_read(fd,buf,ofs,len); + return caml_call1(Stdlib[1],cst_Unix_read)} + function write(fd,buf,ofs,len) + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_bytes_length(buf) - len | 0) < ofs)) + return runtime.unix_write(fd,buf,ofs,len); + return caml_call1(Stdlib[1],cst_Unix_write)} + function single_write(fd,buf,ofs,len) + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_bytes_length(buf) - len | 0) < ofs)) + return runtime.unix_single_write(fd,buf,ofs,len); + return caml_call1(Stdlib[1],cst_Unix_single_write)} + function write_substring(fd,buf,ofs,len) + {return write(fd,caml_call1(Stdlib_bytes[43],buf),ofs,len)} + function single_write_substring(fd,buf,ofs,len) + {return single_write(fd,caml_call1(Stdlib_bytes[43],buf),ofs,len)} + function map_file(fd,opt,kind,layout,shared,dims) + {if(opt)var sth=opt[1],pos=sth;else var pos=_d_; + return runtime.caml_unix_map_file_bytecode + (fd,kind,layout,shared,dims,pos)} + function pause(param) + {var sigs=runtime.unix_sigprocmask(1,0); + return runtime.unix_sigsuspend(sigs)} + function sleep(duration){return runtime.unix_sleep(duration)} + var + inet_addr_any=unix_inet_addr_of_string(cst_0_0_0_0), + inet_addr_loopback=unix_inet_addr_of_string(cst_127_0_0_1); + try + {var _A_=unix_inet_addr_of_string(cst$10),inet_addr_any$0=_A_} + catch(_dm_) + {_dm_ = caml_wrap_exception(_dm_); + if(_dm_[1] !== Stdlib[7])throw _dm_; + var inet_addr_any$0=inet_addr_any} + try + {var _z_=unix_inet_addr_of_string(cst_1),inet6_addr_loopback=_z_} + catch(_dl_) + {_dl_ = caml_wrap_exception(_dl_); + if(_dl_[1] !== Stdlib[7])throw _dl_; + var inet6_addr_loopback=inet_addr_loopback} + function domain_of_sockaddr(param) + {if(0 === param[0])return 0; + var a=param[1]; + return 16 === caml_ml_string_length(a)?2:1} + function recv(fd,buf,ofs,len,flags) + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_bytes_length(buf) - len | 0) < ofs)) + return runtime.unix_recv(fd,buf,ofs,len,flags); + return caml_call1(Stdlib[1],cst_Unix_recv)} + function recvfrom(fd,buf,ofs,len,flags) + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_bytes_length(buf) - len | 0) < ofs)) + return runtime.unix_recvfrom(fd,buf,ofs,len,flags); + return caml_call1(Stdlib[1],cst_Unix_recvfrom)} + function send(fd,buf,ofs,len,flags) + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_bytes_length(buf) - len | 0) < ofs)) + return runtime.unix_send(fd,buf,ofs,len,flags); + return caml_call1(Stdlib[1],cst_Unix_send)} + function sendto(fd,buf,ofs,len,flags,addr) + {if + (0 + <= + ofs + && + 0 + <= + len + && + ! + ((caml_ml_bytes_length(buf) - len | 0) < ofs)) + return runtime.unix_sendto(fd,buf,ofs,len,flags,addr); + return caml_call1(Stdlib[1],cst_Unix_sendto)} + function send_substring(fd,buf,ofs,len,flags) + {return send(fd,caml_call1(Stdlib_bytes[43],buf),ofs,len,flags)} + function sendto_substring(fd,buf,ofs,len,flags,addr) + {return sendto(fd,caml_call1(Stdlib_bytes[43],buf),ofs,len,flags,addr)} + function getsockopt(fd,opt){return runtime.unix_getsockopt(0,fd,opt)} + function setsockopt(fd,opt,v){return runtime.unix_setsockopt(0,fd,opt,v)} + function getsockopt_int(fd,opt){return runtime.unix_getsockopt(1,fd,opt)} + function setsockopt_int(fd,opt,v) + {return runtime.unix_setsockopt(1,fd,opt,v)} + function getsockopt_optint(fd,opt) + {return runtime.unix_getsockopt(2,fd,opt)} + function setsockopt_optint(fd,opt,v) + {return runtime.unix_setsockopt(2,fd,opt,v)} + function getsockopt_float(fd,opt) + {return runtime.unix_getsockopt(3,fd,opt)} + function setsockopt_float(fd,opt,v) + {return runtime.unix_setsockopt(3,fd,opt,v)} + function getsockopt_error(fd){return runtime.unix_getsockopt(4,fd,0)} + function getaddrinfo(node,service,opts) + {try + {var + _db_=runtime.unix_getaddrinfo(node,service,opts), + _dc_=caml_call1(Stdlib_list[9],_db_); + return _dc_} + catch(_dd_) + {_dd_ = caml_wrap_exception(_dd_); + if(_dd_[1] === Stdlib[6]) + {var + opt_socktype=[0,0], + opt_protocol=[0,0], + opt_passive=[0,0], + _c0_= + function(param) + {if(typeof param === "number") + {if(2 === param){opt_passive[1] = 1;return 0}} else - {var j$0=0; - for(;;) - {caml_bytes_unsafe_set - (x,j$0,caml_bytes_unsafe_get(s,i + j$0 | 0)); - var _bB_=j$0 + 1 | 0; - if(7 !== j$0){var j$0=_bB_;continue} - break}} - return x}, - write_untagged_float64= - function(ob,x) - {var - i=alloc(ob,8), - s=ob[1], - _bu_=caml_obj_tag(float_endianness), - _bv_= - 250 === _bu_ - ?float_endianness[1] - :246 === _bu_ - ?caml_call1(CamlinternalLazy[2],float_endianness) - :float_endianness; - if(624392470 <= _bv_) - {var j=0; - for(;;) - {caml_bytes_unsafe_set - (s,i + j | 0,caml_string_unsafe_get(x,7 - j | 0)); - var _bw_=j + 1 | 0; - if(7 !== j){var j=_bw_;continue} - return 0}} - var j$0=0; - for(;;) - {caml_bytes_unsafe_set - (s,i + j$0 | 0,caml_string_unsafe_get(x,j$0)); - var _bx_=j$0 + 1 | 0; - if(7 !== j$0){var j$0=_bx_;continue} - return 0}}, - write_untagged_int64= - function(ob,x) - {return write_untagged_float64 - (ob,runtime.caml_int64_float_of_bits(x))}, - safety_test= + switch(param[0]) + {case 1:var s=param[1];opt_socktype[1] = [0,s];return 0; + case 2:var p=param[1];opt_protocol[1] = p;return 0 + } + return 0}; + caml_call2(Stdlib_list[15],_c0_,opts); + var + get_port= + function(ty,kind) + {if(caml_string_equal(service,cst$5))return [0,[0,ty,0],0]; + try + {var _di_=[0,[0,ty,runtime.caml_int_of_string(service)],0]; + return _di_} + catch(_dj_) + {_dj_ = caml_wrap_exception(_dj_); + if(_dj_[1] === Stdlib[7]) + try + {var + _dh_= + [0,[0,ty,runtime.unix_getservbyname(service,kind)[3]],0]; + return _dh_} + catch(_dk_) + {_dk_ = caml_wrap_exception(_dk_); + if(_dk_ === Stdlib[8])return 0; + throw _dk_} + throw _dj_}}, + _c1_=opt_socktype[1]; + if(_c1_) + var + _c2_=_c1_[1], + _c3_= + 1 === _c2_ + ?get_port(1,cst_udp) + :0 === _c2_ + ?get_port(0,cst_tcp) + :caml_string_equal(service,cst$7)?[0,[0,_c2_,0],0]:0, + ports=_c3_; + else + var + _c$_=get_port(1,cst_udp$0), + _da_=get_port(0,cst_tcp$0), + ports=caml_call2(Stdlib[37],_da_,_c$_); + if(caml_string_equal(node,cst$6)) + var + addresses= + caml_call2(Stdlib_list[32],2,opts) + ?[0,[0,inet_addr_any,cst_0_0_0_0$0],0] + :[0,[0,inet_addr_loopback,cst_127_0_0_1$0],0]; + else + try + {var + _c__=[0,[0,unix_inet_addr_of_string(node),node],0], + addresses=_c__} + catch(_df_) + {_df_ = caml_wrap_exception(_df_); + if(_df_[1] !== Stdlib[7])throw _df_; + try + {var + he=runtime.unix_gethostbyname(node), + _c7_=caml_call1(Stdlib_array[11],he[4]), + _c8_=function(a){return [0,a,he[1]]}, + _c9_=caml_call2(Stdlib_list[17],_c8_,_c7_), + _c6_=_c9_} + catch(_dg_) + {_dg_ = caml_wrap_exception(_dg_); + if(_dg_ !== Stdlib[8])throw _dg_; + var _c6_=0} + var addresses=_c6_} + var + _c4_= function(param) - {var - y=read_untagged_float64(from_string(0,0,s)), - x=1.00146962706651288; - if(1.00146962706651288 != y)throw [0,Assert_failure,_n_]; - var ob=create$1(0,0,8); - write_untagged_float64(ob,x); - var _bt_=caml_string_notequal(contents(ob),s); - if(_bt_)throw [0,Assert_failure,_o_]; - return _bt_}, - write_untagged_string= - function(ob,s) - {write_untagged_uvint(ob,caml_ml_string_length(s)); - return add_string(ob,s)}, - write_unit= - function(ob,param) - {write_tag(ob,unit_tag);return write_untagged_unit(ob,0)}, - write_bool= - function(ob,x) - {write_tag(ob,bool_tag);return write_untagged_bool(ob,x)}, - write_char= - function(ob,x) - {write_tag(ob,int8_tag);return write_untagged_char(ob,x)}, - write_int8= - function(ob,x) - {write_tag(ob,int8_tag);return write_untagged_int8(ob,x)}, - write_int16= - function(ob,x) - {write_tag(ob,int16_tag);return write_untagged_int16(ob,x)}, - write_int32= - function(ob,x) - {write_tag(ob,int32_tag);return write_untagged_int32(ob,x)}, - write_int64= - function(ob,x) - {write_tag(ob,int64_tag);return write_untagged_int64(ob,x)}, - write_float32= - function(ob,x) - {write_tag(ob,float32_tag);return write_untagged_float32(ob,x)}, - write_float64= - function(ob,x) - {write_tag(ob,float64_tag);return write_untagged_float64(ob,x)}, - write_string= - function(ob,x) - {write_tag(ob,string_tag);return write_untagged_string(ob,x)}, - write_uvint= - function(ob,x) - {write_tag(ob,uvint_tag);return write_untagged_uvint(ob,x)}, - write_svint= - function(ob,x) - {write_tag(ob,svint_tag);return write_untagged_svint(ob,x)}, - write_t= - function(ob,tagged,x) - {var tagged$0=tagged,x$0=x; - for(;;) - {if(typeof x$0 === "number") - {if(tagged$0)write_tag(ob,unit_tag); - return write_untagged_unit(ob,0)} - var _a__=x$0[1]; - if(708012133 <= _a__) - {if(847309489 <= _a__) - {if(928626971 === _a__) - {var x$1=x$0[2]; - if(tagged$0)write_tag(ob,float32_tag); - return write_untagged_float32(ob,x$1)} - if(951901561 <= _a__) - {if(1063160078 <= _a__) - {var x$2=x$0[2]; - if(tagged$0)write_tag(ob,uvint_tag); - return write_untagged_uvint(ob,x$2)} - var o=x$0[2]; - if(tagged$0)write_tag(ob,array_tag); - if(o) - {var - match=o[1], - a=match[2], - node_tag=match[1], - len=a.length - 1; - write_untagged_uvint(ob,len); - var _a$_=0 < len?1:0; - if(_a$_) - {write_tag(ob,node_tag); - var - _ba_=0, - _bb_=function(_bs_){return write_t(ob,_ba_,_bs_)}; - return caml_call2(Stdlib_array[13],_bb_,a)} - return _a$_} - return write_untagged_uvint(ob,0)} - if(928627642 <= _a__) - {var x$3=x$0[2]; - if(tagged$0)write_tag(ob,float64_tag); - return write_untagged_float64(ob,x$3)} - var a$0=x$0[2]; - if(tagged$0)write_tag(ob,record_tag); - write_untagged_uvint(ob,a$0.length - 1); - var - _bc_= - function(param) - {var x=param[3],h=param[2]; - write_hashtag(ob,h,1); - return write_t(ob,1,x)}; - return caml_call2(Stdlib_array[13],_bc_,a$0)} - if(737456202 <= _a__) - {if(815034505 <= _a__) - {var x$4=x$0[2]; - if(tagged$0)write_tag(ob,int8_tag); - return write_untagged_char(ob,x$4)} - var x$5=x$0[2]; - if(tagged$0)write_tag(ob,bool_tag); - return write_untagged_bool(ob,x$5)} - if(726928360 <= _a__) - {var a$1=x$0[2]; - if(tagged$0)write_tag(ob,tuple_tag); - write_untagged_uvint(ob,a$1.length - 1); - var - _bd_=1, - _be_=function(_br_){return write_t(ob,_bd_,_br_)}; - return caml_call2(Stdlib_array[13],_be_,a$1)} - var match$0=x$0[2],x$6=match$0[3],h=match$0[2]; - if(tagged$0)write_tag(ob,variant_tag); - write_hashtag(ob,h,0 !== x$6?1:0); - if(x$6){var x$7=x$6[1],tagged$0=1,x$0=x$7;continue} - return 0} - if(-775957819 <= _a__) - {if(412180492 <= _a__) - {if(504440814 <= _a__) - {var o$0=x$0[2]; - if(tagged$0)write_tag(ob,table_tag); - if(o$0) - {var - match$1=o$0[1], - a$2=match$1[2], - fields=match$1[1], - row_num=a$2.length - 1; - write_untagged_uvint(ob,row_num); - var _bf_=0 < row_num?1:0; - if(_bf_) - {var col_num=fields.length - 1; - write_untagged_uvint(ob,col_num); - var - _bg_= - function(param) - {var tag=param[3],h=param[2]; - write_hashtag(ob,h,1); - return write_tag(ob,tag)}; - caml_call2(Stdlib_array[13],_bg_,fields); - var _bh_=0 < row_num?1:0; - if(_bh_) - {var _bj_=row_num - 1 | 0,_bi_=0; - if(! (_bj_ < 0)) - {var i=_bi_; - for(;;) - {var ai=caml_check_bound(a$2,i)[1 + i]; - if(ai.length - 1 !== col_num) - caml_call1(Stdlib[1],cst_Bi_io_write_t_Malformed_Table); - var _bn_=col_num - 1 | 0,_bm_=0; - if(! (_bn_ < 0)) - {var j=_bm_; - for(;;) - {write_t(ob,0,caml_check_bound(ai,j)[1 + j]); - var _bp_=j + 1 | 0; - if(_bn_ !== j){var j=_bp_;continue} - break}} - var _bo_=i + 1 | 0; - if(_bj_ !== i){var i=_bo_;continue} - break}} - var _bk_=0} - else - var _bk_=_bh_; - var _bl_=_bk_} - else - var _bl_=_bf_; - return _bl_} - return write_untagged_uvint(ob,0)} - var x$8=x$0[2]; - if(tagged$0)write_tag(ob,svint_tag); - return write_untagged_svint(ob,x$8)} - if(221365804 <= _a__) - {var match$2=x$0[2],x$9=match$2[2],i$0=match$2[1]; - if(tagged$0)write_tag(ob,num_variant_tag); - write_numtag(ob,i$0,0 !== x$9?1:0); - if(x$9){var x$10=x$9[1],tagged$0=1,x$0=x$10;continue} - return 0} - var x$11=x$0[2]; - if(tagged$0)write_tag(ob,shared_tag); - var - offset= - caml_call3 - (_a_[3],ob[7],[0,x$11,dummy_type_id],ob[4] + ob[3] | 0); - write_untagged_uvint(ob,offset); - var _bq_=0 === offset?1:0; - if(_bq_){var tagged$0=1,x$0=x$11;continue} - return _bq_} - if(-783416530 <= _a__) - {if(-783415859 <= _a__) - {var x$12=x$0[2]; - if(tagged$0)write_tag(ob,int64_tag); - return write_untagged_int64(ob,x$12)} - var x$13=x$0[2]; - if(tagged$0)write_tag(ob,int32_tag); - return write_untagged_int32(ob,x$13)} - if(-783416972 <= _a__) - {var x$14=x$0[2]; - if(tagged$0)write_tag(ob,int16_tag); - return write_untagged_int16(ob,x$14)} - var s=x$0[2]; - if(tagged$0)write_tag(ob,string_tag); - return write_untagged_string(ob,s)}}, - write_tree=function(ob,x){return write_t(ob,1,x)}, - string_of_tree= - function(x) - {var ob=create$1(0,0,1000);write_tree(ob,x);return contents(ob)}, - tag_of_tree= - function(x) - {if(typeof x === "number")return unit_tag; - var _a9_=x[1]; - return 708012133 <= _a9_ - ?847309489 <= _a9_ - ?928626971 === _a9_ - ?float32_tag - :951901561 <= _a9_ - ?1063160078 <= _a9_?uvint_tag:array_tag - :928627642 <= _a9_?float64_tag:record_tag - :737456202 <= _a9_ - ?815034505 <= _a9_?int8_tag:bool_tag - :726928360 <= _a9_?tuple_tag:variant_tag - :-775957819 <= _a9_ - ?412180492 <= _a9_ - ?504440814 <= _a9_?table_tag:svint_tag - :221365804 <= _a9_?num_variant_tag:shared_tag - :-783416530 <= _a9_ - ?-783415859 <= _a9_?int64_tag:int32_tag - :-783416972 <= _a9_?int16_tag:string_tag}, - read_tag=function(ib){return read_char(ib)}, - read_untagged_unit= - function(ib) - {var match=read_char(ib); - return 0 === match?0:error(cst_Corrupted_data_unit_value)}, - read_untagged_bool= - function(ib) - {var match=read_char(ib); - return 1 === match - ?1 - :0 === match?0:error(cst_Corrupted_data_bool_value)}, - read_untagged_char=function(ib){return read_char(ib)}, - read_untagged_int8=function(ib){return read_char(ib)}, - read_untagged_int16= - function(ib) - {var i=read(ib,2),s=ib[1],_a8_=caml_bytes_get(s,i + 1 | 0); - return caml_bytes_get(s,i) << 8 | _a8_}, - read_untagged_int32= - function(ib) - {var - i=read(ib,4), - s=ib[1], - _a6_=caml_bytes_get(s,i + 1 | 0), - x1=caml_bytes_get(s,i) << 8 | _a6_, - _a7_=caml_bytes_get(s,i + 3 | 0), - x2=caml_bytes_get(s,i + 2 | 0) << 8 | _a7_; - return x1 << 16 | x2}, - read_untagged_float32= - function(ib) - {return runtime.caml_int32_float_of_bits(read_untagged_int32(ib))}, - read_untagged_int64= - function(ib) - {return runtime.caml_int64_bits_of_float - (read_untagged_float64(ib))}, - read_untagged_string= - function(ib) - {var - len=read_untagged_uvint(ib), - str=caml_create_bytes(len), - pos=[0,0], - rem=[0,len]; - for(;;) - {if(0 < rem[1]) - {var bytes_read=try_preread(ib,rem[1]); - if(0 === bytes_read) - error(cst_Corrupted_data_string); - else - {caml_call5 - (Stdlib_bytes[11],ib[1],ib[2],str,pos[1],bytes_read); - ib[2] = ib[2] + bytes_read | 0; - pos[1] = pos[1] + bytes_read | 0; - rem[1] = rem[1] - bytes_read | 0} - continue} - return caml_call1(Stdlib_bytes[6],str)}}, - read_unit=function(ib){read_untagged_unit(ib);return 948106916}, - read_bool=function(ib){return [0,737456202,read_untagged_bool(ib)]}, - read_int8=function(ib){return [0,815034505,read_untagged_char(ib)]}, - read_int16= - function(ib){return [0,-783416972,read_untagged_int16(ib)]}, - read_int32= - function(ib){return [0,-783416530,read_untagged_int32(ib)]}, - read_int64= - function(ib){return [0,-783415859,read_untagged_int64(ib)]}, - read_float32= - function(ib){return [0,928626971,read_untagged_float32(ib)]}, - read_float64= - function(ib){return [0,928627642,read_untagged_float64(ib)]}, - read_uvint= - function(ib){return [0,1063160078,read_untagged_uvint(ib)]}, - read_svint= - function(ib){return [0,412180492,read_untagged_svint(ib)]}, - read_string= - function(ib){return [0,-976970511,read_untagged_string(ib)]}, - read_tree= - function(opt,ib) - {if(opt)var sth=opt[1],unhash=sth;else var unhash=make_unhash(0); - function read_array(ib) - {var len=read_untagged_uvint(ib); - if(0 === len)return _p_; - var tag=read_tag(ib),read=reader_of_tag(tag); - function _a5_(param){return caml_call1(read,ib)} - return [0, - 951901561, - [0,[0,tag,caml_call2(Stdlib_array[2],len,_a5_)]]]} - function read_tuple(ib) - {var len=read_untagged_uvint(ib); - function _a4_(param){return read_tree(ib)} - return [0,726928360,caml_call2(Stdlib_array[2],len,_a4_)]} - function read_record(ib) - {var len=read_untagged_uvint(ib); - function _a3_(param) - {var - h=read_field_hashtag(ib), - name=caml_call1(unhash,h), - x=read_tree(ib); - return [0,name,h,x]} - return [0,847309489,caml_call2(Stdlib_array[2],len,_a3_)]} - function read_num_variant_cont(ib,i,has_arg) - {var x=has_arg?[0,read_tree(ib)]:0; - return [0,221365804,[0,i,x]]} - function read_num_variant(ib) - {return read_numtag(ib,read_num_variant_cont)} - function read_variant_cont(ib,h,has_arg) - {var name=caml_call1(unhash,h),x=has_arg?[0,read_tree(ib)]:0; - return [0,708012133,[0,name,h,x]]} - function read_variant(ib) - {return read_hashtag(ib,read_variant_cont)} - function read_table(ib) - {var row_num=read_untagged_uvint(ib); - if(0 === row_num)return _q_; - var col_num=read_untagged_uvint(ib); - function _aZ_(param) - {var - h=read_field_hashtag(ib), - name=caml_call1(unhash,h), - tag=read_tag(ib); - return [0,name,h,tag]} - var fields=caml_call2(Stdlib_array[2],col_num,_aZ_); - function _a0_(param) - {var tag=param[3];return reader_of_tag(tag)} - var readers=caml_call2(Stdlib_array[15],_a0_,fields); - function _a1_(param) - {function _a2_(j) - {return caml_call1(caml_check_bound(readers,j)[1 + j],ib)} - return caml_call2(Stdlib_array[2],col_num,_a2_)} - var a=caml_call2(Stdlib_array[2],row_num,_a1_); - return [0,504440814,[0,[0,fields,a]]]} - function read_shared(ib) - {var pos=ib[4] + ib[2] | 0,offset=read_untagged_uvint(ib); - if(0 === offset) - {var r=[]; - runtime.caml_update_dummy(r,[0,-775957819,r]); - caml_call3(Rd[3],ib[7],[0,pos,dummy_type_id],r); - var x=read_tree(ib); - r[2] = x; - return r} - return caml_call2 - (Rd[4],ib[7],[0,pos - offset | 0,dummy_type_id])} - function reader_of_tag(param) - {if(! (26 < param >>> 0)) - switch(param) - {case 0:return read_bool; - case 1:return read_int8; - case 2:return read_int16; - case 3:return read_int32; - case 4:return read_int64; - case 11:return read_float32; - case 12:return read_float64; - case 16:return read_uvint; - case 17:return read_svint; - case 18:return read_string; - case 19:return read_array; - case 20:return read_tuple; - case 21:return read_record; - case 22:return read_num_variant; - case 23:return read_variant; - case 24:return read_unit; - case 25:return read_table; - case 26:return read_shared - } - return error(cst_Corrupted_data_invalid_tag)} - function read_tree(ib) - {return caml_call1(reader_of_tag(read_tag(ib)),ib)} - return read_tree(ib)}, - tree_of_string= - function(unhash,s){return read_tree(unhash,from_string(0,0,s))}, - skip_bytes=function(ib,n){read(ib,n);return 0}, - skip_unit=function(ib){return skip_bytes(ib,1)}, - skip_bool=function(ib){return skip_bytes(ib,1)}, - skip_int8=function(ib){return skip_bytes(ib,1)}, - skip_int16=function(ib){return skip_bytes(ib,2)}, - skip_int32=function(ib){return skip_bytes(ib,4)}, - skip_int64=function(ib){return skip_bytes(ib,8)}, - skip_float32=function(ib){return skip_bytes(ib,4)}, - skip_float64=function(ib){return skip_bytes(ib,8)}, - skip_uvint=function(ib){read_untagged_uvint(ib);return 0}, - skip_svint=function(ib){read_untagged_svint(ib);return 0}, - skip_string= - function(ib) - {var len=read_untagged_uvint(ib);return skip_bytes(ib,len)}, - skip_array= - function(ib) - {var len=read_untagged_uvint(ib); - if(0 === len)return 0; - var tag=read_tag(ib),read=skipper_of_tag(tag),_aX_=1; - if(! (len < 1)) - {var i=_aX_; - for(;;) - {caml_call1(read,ib); - var _aY_=i + 1 | 0; - if(len !== i){var i=_aY_;continue} - break}} - return 0}, - skip_tuple= - function(ib) - {var len=read_untagged_uvint(ib),_aV_=1; - if(! (len < 1)) - {var i=_aV_; - for(;;) - {skip(ib); - var _aW_=i + 1 | 0; - if(len !== i){var i=_aW_;continue} - break}} - return 0}, - skip_record= - function(ib) - {var len=read_untagged_uvint(ib),_aT_=1; - if(! (len < 1)) - {var i=_aT_; - for(;;) - {read_field_hashtag(ib); - skip(ib); - var _aU_=i + 1 | 0; - if(len !== i){var i=_aU_;continue} - break}} - return 0}, - skip= - function(ib){return caml_call1(skipper_of_tag(read_tag(ib)),ib)}, - skip_num_variant_cont= - function(ib,i,has_arg){return has_arg?skip(ib):has_arg}, - skip_num_variant= - function(ib){return read_numtag(ib,skip_num_variant_cont)}, - skip_variant_cont= - function(ib,h,has_arg){return has_arg?skip(ib):has_arg}, - skip_variant= - function(ib){return read_hashtag(ib,skip_variant_cont)}, - skip_table= - function(ib) - {var row_num=read_untagged_uvint(ib); - if(0 === row_num)return 0; - var col_num=read_untagged_uvint(ib); - function _aO_(param) - {read_field_hashtag(ib);return skipper_of_tag(read_tag(ib))} - var readers=caml_call2(Stdlib_array[2],col_num,_aO_),_aP_=1; - if(! (row_num < 1)) - {var i=_aP_; - for(;;) - {var _aQ_=1; - if(! (col_num < 1)) - {var j=_aQ_; - for(;;) - {caml_call1(caml_check_bound(readers,j)[1 + j],ib); - var _aS_=j + 1 | 0; - if(col_num !== j){var j=_aS_;continue} - break}} - var _aR_=i + 1 | 0; - if(row_num !== i){var i=_aR_;continue} - break}} - return 0}, - skipper_of_tag= - function(param) - {if(! (25 < param >>> 0)) - switch(param) - {case 0:return skip_bool; - case 1:return skip_int8; - case 2:return skip_int16; - case 3:return skip_int32; - case 4:return skip_int64; - case 11:return skip_float32; - case 12:return skip_float64; - case 16:return skip_uvint; - case 17:return skip_svint; - case 18:return skip_string; - case 19:return skip_array; - case 20:return skip_tuple; - case 21:return skip_record; - case 22:return skip_num_variant; - case 23:return skip_variant; - case 24:return skip_unit; - case 25:return skip_table - } - return error(cst_Corrupted_data_invalid_tag$0)}, - array=Easy_format[2], - record=Easy_format[2], - _r_=Easy_format[2], - tuple= - [0, - 0, - _r_[2], - _r_[3], - _r_[4], - 0, - _r_[6], - 0, - _r_[8], - _r_[9], - _r_[10], - _r_[11], - _r_[12], - _r_[13], - _r_[14]], - map= - function(f,a) - {var len=a.length - 1; - if(0 === len) - var _aN_=[0]; - else - {var - r=caml_make_vect(len,caml_call1(f,a[1])), - _aL_=len - 1 | 0, - _aK_=1; - if(! (_aL_ < 1)) - {var i=_aK_; - for(;;) - {r[1 + i] = caml_call1(f,a[1 + i]); - var _aM_=i + 1 | 0; - if(_aL_ !== i){var i=_aM_;continue} - break}} - var _aN_=r} - return caml_call1(Stdlib_array[11],_aN_)}, - format= - function(shared,x) - {var x$0=x; - for(;;) - {if(typeof x$0 === "number")return [0,cst_unit,Easy_format[1]]; - var _ad_=x$0[1]; - if(708012133 <= _ad_) - {if(847309489 <= _ad_) - {if(928626971 === _ad_) - {var x$1=x$0[2],_ae_=Easy_format[1]; - return [0,caml_call1(Stdlib[35],x$1),_ae_]} - if(951901561 <= _ad_) - {if(1063160078 <= _ad_) - {var x$2=x$0[2],_af_=Easy_format[1]; - return [0,caml_call1(Stdlib[33],x$2),_af_]} - var _ag_=x$0[2]; - if(_ag_) - {var match=_ag_[1],a=match[2]; - return [1, - [0,cst$3,cst$2,cst$1,array], - map(function(_aJ_){return format(shared,_aJ_)},a)]} - return [0,cst$4,Easy_format[1]]} - if(928627642 <= _ad_) - {var x$3=x$0[2],_ah_=Easy_format[1]; - return [0,caml_call1(Stdlib[35],x$3),_ah_]} - var a$0=x$0[2]; - return [1, - [0,cst$7,cst$6,cst$5,record], - map - (function(param) - {var x=param[3],h=param[2],o=param[1]; - if(o) - var s=o[1],s$0=caml_call2(Stdlib_printf[4],_B_,s); - else - var s$0=caml_call2(Stdlib_printf[4],_D_,h); - var - _aG_=format(shared,x), - _aH_=Easy_format[3], - _aI_=Easy_format[1]; - return [2, - [0,[0,caml_call2(Stdlib_printf[4],_C_,s$0),_aI_],_aH_], - _aG_]}, - a$0)]} - if(737456202 <= _ad_) - {if(815034505 <= _ad_) - {var x$4=x$0[2],_ai_=Easy_format[1]; - return [0,caml_call2(Stdlib_printf[4],_s_,x$4),_ai_]} - var - x$5=x$0[2], - _aj_=Easy_format[1], - _ak_=x$5?cst_true:cst_false; - return [0,_ak_,_aj_]} - if(726928360 <= _ad_) - {var a$1=x$0[2]; - return [1, - [0,cst$10,cst$9,cst$8,tuple], - map(function(_aF_){return format(shared,_aF_)},a$1)]} - var - match$0=x$0[2], - o=match$0[3], - h=match$0[2], - opt_name=match$0[1]; - if(opt_name) - var s=opt_name[1],name=caml_call2(Stdlib_printf[4],_t_,s); - else - var name=caml_call2(Stdlib_printf[4],_u_,h); - if(o) - {var - x$6=o[1], - _al_=format(shared,x$6), - _am_=Easy_format[3], - _an_=Easy_format[1]; - return [1, - [0,cst$14,cst$13,cst$12,tuple], - [0, - [2, - [0,[0,caml_call2(Stdlib[28],name,cst$11),_an_],_am_], - _al_], - 0]]} - var - _ao_=Easy_format[1], - _ap_=caml_call2(Stdlib[28],name,cst$15); - return [0,caml_call2(Stdlib[28],cst$16,_ap_),_ao_]} - if(-775957819 <= _ad_) - {if(412180492 <= _ad_) - {if(504440814 <= _ad_) - {var _aq_=x$0[2]; - if(_aq_) - {var - match$1=_aq_[1], - aa=match$1[2], - header=match$1[1], - _ar_= - function(header) - {return function(a) - {function _aE_(i,x) - {var - match=caml_check_bound(header,i)[1 + i], - h=match[2], - s=match[1]; - return [0,s,h,x]} - return [0,847309489,caml_call2(Stdlib_array[16],_aE_,a)]}} - (header), - x$7= - [0, - 951901561, - [0,[0,record_tag,caml_call2(Stdlib_array[15],_ar_,aa)]]], - x$0=x$7; - continue} - return [0,cst$17,Easy_format[1]]} - var x$8=x$0[2],_as_=Easy_format[1]; - return [0,caml_call1(Stdlib[33],x$8),_as_]} - if(221365804 <= _ad_) - {var - match$2=x$0[2], - o$0=match$2[2], - i=match$2[1], - suffix=0 === i?cst$18:caml_call1(Stdlib[33],i); - if(o$0) - {var - x$9=o$0[1], - _at_=Easy_format[1], - cons=[0,caml_call2(Stdlib[28],cst_Some,suffix),_at_], - _au_=format(shared,x$9); - return [2,[0,cons,Easy_format[3]],_au_]} - var _av_=Easy_format[1]; - return [0,caml_call2(Stdlib[28],cst_None,suffix),_av_]} - var x$10=x$0[2],p=shared[2],tbl=shared[1]; - p[1]++; - var - pos=p[1], - offset=caml_call3(_a_[3],tbl,[0,x$10,dummy_type_id],pos); - if(0 === offset) - {var - _aw_=format(shared,x$10), - _ax_=Easy_format[3], - _ay_=Easy_format[1]; - return [2, - [0,[0,caml_call2(Stdlib_printf[4],_v_,pos),_ay_],_ax_], - _aw_]} - var _az_=Easy_format[1]; - return [0, - caml_call2(Stdlib_printf[4],_w_,pos - offset | 0), - _az_]} - if(-783416530 <= _ad_) - {if(-783415859 <= _ad_) - {var x$11=x$0[2],_aA_=Easy_format[1]; - return [0,caml_call2(Stdlib_printf[4],_x_,x$11),_aA_]} - var x$12=x$0[2],_aB_=Easy_format[1]; - return [0,caml_call2(Stdlib_printf[4],_y_,x$12),_aB_]} - if(-783416972 <= _ad_) - {var x$13=x$0[2],_aC_=Easy_format[1]; - return [0,caml_call2(Stdlib_printf[4],_z_,x$13),_aC_]} - var s$0=x$0[2],_aD_=Easy_format[1]; - return [0,caml_call2(Stdlib_printf[4],_A_,s$0),_aD_]}}, - init=function(param){return [0,caml_call1(_a_[1],512),[0,0]]}, - view_of_tree= - function(t) - {var _ac_=format(init(0),t); - return caml_call3(Easy_format[4][4],0,0,_ac_)}, - print_view_of_tree= - function(t) - {var _ab_=format(init(0),t); - return caml_call3(Easy_format[4][6],0,0,_ab_)}, - output_view_of_tree= - function(oc,t) - {var _aa_=format(init(0),t); - return caml_call4(Easy_format[4][5],0,0,oc,_aa_)}, - view= - function(unhash,s){return view_of_tree(tree_of_string(unhash,s))}, - print_view= - function(unhash,s) - {return print_view_of_tree(tree_of_string(unhash,s))}, - output_view= - function(unhash,oc,s) - {return output_view_of_tree(oc,tree_of_string(unhash,s))}, - Bi_io= - [0, - bool_tag, - int8_tag, - int16_tag, - int32_tag, - int64_tag, - float32_tag, - float64_tag, - uvint_tag, - svint_tag, - string_tag, - array_tag, - tuple_tag, - record_tag, - num_variant_tag, - variant_tag, - unit_tag, - table_tag, - shared_tag, - write_tag, - read_tag, - hash_name, - write_hashtag, - string_of_hashtag, - read_hashtag, - read_field_hashtag, - make_unhash, - write_numtag, - read_numtag, - write_untagged_unit, - write_untagged_bool, - write_untagged_char, - write_untagged_int8, - write_untagged_int16, - write_untagged_int32, - write_untagged_int64, - write_untagged_float32, - write_untagged_float64, - write_untagged_string, - write_untagged_uvint, - write_untagged_svint, - write_unit, - write_bool, - write_char, - write_int8, - write_int16, - write_int32, - write_int64, - write_float32, - write_float64, - write_string, - write_uvint, - write_svint, - read_untagged_unit, - read_untagged_bool, - read_untagged_char, - read_untagged_int8, - read_untagged_int16, - read_untagged_int32, - read_untagged_int64, - read_untagged_float32, - read_untagged_float64, - read_untagged_string, - read_untagged_uvint, - read_untagged_svint, - skip, - write_tree, - string_of_tree, - read_tree, - tree_of_string, - tag_of_tree, - view_of_tree, - view, - print_view_of_tree, - print_view, - output_view_of_tree, - output_view, - safety_test]; - caml_register_global(118,Bi_io,"Bi_io"); - var - split= - function(s) - {var - acc=[0,0], - stop=[0,caml_ml_string_length(s)], - _Y_=stop[1] - 1 | 0; - if(! (_Y_ < 0)) - {var i=_Y_; - for(;;) - {if(44 === caml_string_get(s,i)) - {var start=i + 1 | 0,___=acc[1]; - acc[1] - = - [0, - caml_call3(Stdlib_string[4],s,start,stop[1] - start | 0), - ___]; - stop[1] = i} - var _$_=i - 1 | 0; - if(0 !== i){var i=_$_;continue} - break}} - var _Z_=acc[1]; - return [0,caml_call3(Stdlib_string[4],s,0,stop[1]),_Z_]}, - load_lines= - function(accu,s) - {var ic=caml_call1(Stdlib[79],s),l=[0,accu]; - try - {for(;;) - {var _W_=caml_call1(Stdlib_list[9],l[1]); - l[1] = [0,caml_call1(Stdlib[83],ic),_W_]; - continue}} - catch(_X_) - {_X_ = caml_wrap_exception(_X_); - if(_X_ === Stdlib[12]){caml_call1(Stdlib[93],ic);return l[1]} - throw _X_}}, - load= - function(ic) - {var buf=caml_call1(Stdlib_buffer[1],1000); - try - {for(;;) - {var _U_=caml_call1(Stdlib[82],ic); - caml_call2(Stdlib_buffer[10],buf,_U_); - continue}} - catch(_V_) - {_V_ = caml_wrap_exception(_V_); - if(_V_ === Stdlib[12])return caml_call1(Stdlib_buffer[2],buf); - throw _V_}}, - symbol=Stdlib_filename[4], - default_dict_path= - function(param) - {try - {var - _R_=Stdlib_sys[4], - _S_= - caml_string_notequal(_R_,cst_Cygwin) - ?caml_string_notequal(_R_,cst_Unix) - ?caml_string_notequal(_R_,cst_Win32) - ?0 - :[0, - caml_call2 - (symbol,caml_sys_getenv(cst_HOMEPATH),cst_bdump_dict)] - :[0, - caml_call2 - (symbol,caml_sys_getenv(cst_HOME),cst_bdump_dict$0)] - :[0, - caml_call2 - (symbol,caml_sys_getenv(cst_HOME$0),cst_bdump_dict$1)]; - return _S_} - catch(_T_) - {_T_ = caml_wrap_exception(_T_); - if(_T_ === Stdlib[8])return 0; - throw _T_}}, - load_dictionary= - function(dic_file,accu) - {if(dic_file) - {var fn=dic_file[1]; - if(runtime.caml_sys_file_exists(fn)) - try - {var _Q_=load_lines(accu,fn);return _Q_} - catch(e) - {e = caml_wrap_exception(e); - var - _O_=caml_call1(Stdlib_printexc[1],e), - _P_=caml_call3(Stdlib_printf[4],_E_,fn,_O_); - return caml_call1(Stdlib[2],_P_)} - return accu} - return accu}, - write_uniq= - function(oc,a) - {var _J_=0 < a.length - 1?1:0; - if(_J_) - {var _K_=caml_check_bound(a,0)[1]; - caml_call3(Stdlib_printf[1],oc,_F_,_K_); - var - _L_=caml_check_bound(a,0)[1], - _M_= - function(last,x) - {if(caml_string_notequal(last,x)) - caml_call3(Stdlib_printf[1],oc,_G_,x); - return x}; - caml_call3(Stdlib_array[17],_M_,_L_,a); - var _N_=0} - else - var _N_=_J_; - return _N_}, - save_dictionary= - function(dic_file,l) - {if(dic_file) - {var fn=dic_file[1],a=caml_call1(Stdlib_array[12],l); - caml_call2(Stdlib_array[25],Stdlib_string[33],a); - var - oc=caml_call1(Stdlib[60],fn), - finally$0=function(param){return caml_call1(Stdlib[77],oc)}; - try - {write_uniq(oc,a);var _I_=finally$0(0);return _I_} - catch(e){e = caml_wrap_exception(e);finally$0(0);throw e}} - return 0}, - Bi_dump= - [0, - split, - load_lines, - load, - symbol, - default_dict_path, - load_dictionary, - write_uniq, - save_dictionary]; - caml_register_global(122,Bi_dump,"Bi_dump"); - return} - throw [0,Assert_failure,_H_]} - r[1] = r[1] >>> 1 | 0; - c[1]++; - continue}} - (function(){return this}())); - - -//# 1 "../../.js/yojson/yojson.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - caml_bytes_get=runtime.caml_bytes_get, - caml_bytes_set=runtime.caml_bytes_set, - caml_check_bound=runtime.caml_check_bound, - caml_classify_float=runtime.caml_classify_float, - caml_create_bytes=runtime.caml_create_bytes, - caml_equal=runtime.caml_equal, - caml_float_of_string=runtime.caml_float_of_string, - caml_fresh_oo_id=runtime.caml_fresh_oo_id, - caml_int64_of_string=runtime.caml_int64_of_string, - caml_int_of_string=runtime.caml_int_of_string, - caml_lex_engine=runtime.caml_lex_engine, - caml_make_vect=runtime.caml_make_vect, - caml_ml_string_length=runtime.caml_ml_string_length, - caml_new_string=runtime.caml_new_string, - caml_register_global=runtime.caml_register_global, - caml_string_equal=runtime.caml_string_equal, - caml_string_get=runtime.caml_string_get, - caml_string_notequal=runtime.caml_string_notequal, - caml_trampoline=runtime.caml_trampoline, - caml_trampoline_return=runtime.caml_trampoline_return, - caml_wrap_exception=runtime.caml_wrap_exception; - function caml_call1(f,a0) - {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} - function caml_call2(f,a0,a1) - {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} - function caml_call3(f,a0,a1,a2) - {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} - function caml_call4(f,a0,a1,a2,a3) - {return f.length == 4 - ?f(a0,a1,a2,a3) - :runtime.caml_call_gen(f,[a0,a1,a2,a3])} - function caml_call5(f,a0,a1,a2,a3,a4) - {return f.length == 5 - ?f(a0,a1,a2,a3,a4) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} - var - global_data=runtime.caml_get_global_data(), - cst_Cannot_convert_heterogenous_array_to_biniou= - caml_new_string("Cannot convert heterogenous array to biniou"), - cst_Cannot_convert_big_int_to_biniou= - caml_new_string("Cannot convert big int to biniou"), - cst_Cannot_convert_hashed_field_name_to_JSON= - caml_new_string("Cannot convert hashed field name to JSON"), - cst_Cannot_convert_uvint_to_JSON= - caml_new_string("Cannot convert uvint to JSON"), - cst_Cannot_convert_int8_to_JSON= - caml_new_string("Cannot convert int8 to JSON"), - cst_Cannot_convert_hashed_variant_name_to_JSON= - caml_new_string("Cannot convert hashed variant name to JSON"), - cst_Cannot_convert_num_variant_to_JSON= - caml_new_string("Cannot convert num_variant to JSON"), - cst_Cannot_convert_shared_node_to_JSON= - caml_new_string("Cannot convert shared node to JSON"), - cst_Cannot_convert_int64_to_JSON= - caml_new_string("Cannot convert int64 to JSON"), - cst_Cannot_convert_int32_to_JSON= - caml_new_string("Cannot convert int32 to JSON"), - cst_Cannot_convert_int16_to_JSON= - caml_new_string("Cannot convert int16 to JSON"), - cst_Malformed_biniou_table=caml_new_string("Malformed biniou table"), - cst_Cannot_convert_hashed_field_name_to_JSON$0= - caml_new_string("Cannot convert hashed field name to JSON"), - cst_Null=caml_new_string("`Null"), - cst_Some=caml_new_string("(Some "), - cst$1=caml_new_string(")"), - cst_None=caml_new_string("None"), - cst_Null$2=caml_new_string("`Null"), - cst_Some$1=caml_new_string("(Some "), - cst$33=caml_new_string(")"), - cst_None$1=caml_new_string("None"), - cst_Unexpected_end_of_input$92=caml_new_string("Unexpected end of input"), - cst_Invalid_token$12=caml_new_string("Invalid token"), - cst_Unexpected_end_of_input$93=caml_new_string("Unexpected end of input"), - cst_Unexpected_end_of_input$94=caml_new_string("Unexpected end of input"), - cst_Invalid_escape_sequence$1=caml_new_string("Invalid escape sequence"), - cst_Unexpected_end_of_input$95=caml_new_string("Unexpected end of input"), - cst_Invalid_low_surrogate_for_code_point_beyond_U_FFFF$1= - caml_new_string("Invalid low surrogate for code point beyond U+FFFF"), - cst_Missing_escape_sequence_representing_low_surrogate_for_code_point_beyond_U_FFFF$1= - caml_new_string - ("Missing escape sequence representing low surrogate for code point beyond U+FFFF"), - cst_Unexpected_end_of_input$96=caml_new_string("Unexpected end of input"), - cst_Invalid_string_literal$5=caml_new_string("Invalid string literal"), - cst_Unexpected_end_of_input$97=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$29= - caml_new_string("Expected ':' or '>' but found"), - cst_Unexpected_end_of_input$98=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$30=caml_new_string("Expected '<' but found"), - cst_Unexpected_end_of_input$99=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$31=caml_new_string("Expected '>' but found"), - cst_Unexpected_end_of_input$100= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$32=caml_new_string("Expected ',' but found"), - cst_Unexpected_end_of_input$101= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$30= - caml_new_string("Expected '<', '\"' or '[' but found"), - cst_Unexpected_end_of_input$102= - caml_new_string("Unexpected end of input"), - cst_Unterminated_comment$3=caml_new_string("Unterminated comment"), - cst_Expected_null_but_found$1= - caml_new_string("Expected 'null' but found"), - cst_Unexpected_end_of_input$103= - caml_new_string("Unexpected end of input"), - cst_Expected_true_or_false_but_found$1= - caml_new_string("Expected 'true' or 'false' but found"), - cst_Unexpected_end_of_input$104= - caml_new_string("Unexpected end of input"), - cst_Int_overflow$5=caml_new_string("Int overflow"), - cst_Int_overflow$6=caml_new_string("Int overflow"), - cst_Expected_an_integer_but_found_a_string_that_doesn_t_even_represent_an_integer$1= - caml_new_string - ("Expected an integer but found a string that doesn't even represent an integer"), - cst_Expected_integer_but_found$1= - caml_new_string("Expected integer but found"), - cst_Unexpected_end_of_input$105= - caml_new_string("Unexpected end of input"), - cst_Int32_overflow$3=caml_new_string("Int32 overflow"), - cst_Expected_an_int32_but_found_a_string_that_doesn_t_even_represent_an_integer$1= - caml_new_string - ("Expected an int32 but found a string that doesn't even represent an integer"), - cst_Expected_int32_but_found$1= - caml_new_string("Expected int32 but found"), - cst_Unexpected_end_of_input$106= - caml_new_string("Unexpected end of input"), - cst_Int32_overflow$4=caml_new_string("Int32 overflow"), - cst_Expected_an_int64_but_found_a_string_that_doesn_t_even_represent_an_integer$1= - caml_new_string - ("Expected an int64 but found a string that doesn't even represent an integer"), - cst_Expected_int64_but_found$1= - caml_new_string("Expected int64 but found"), - cst_Unexpected_end_of_input$107= - caml_new_string("Unexpected end of input"), - cst_Infinity$21=caml_new_string("-Infinity"), - cst_Infinity$22=caml_new_string("Infinity"), - cst_NaN$10=caml_new_string("NaN"), - cst_Expected_a_number_but_found_a_string_that_doesn_t_even_represent_a_number$1= - caml_new_string - ("Expected a number but found a string that doesn't even represent a number"), - cst_Expected_number_but_found$1= - caml_new_string("Expected number but found"), - cst_Unexpected_end_of_input$108= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$33=caml_new_string("Expected '\"' but found"), - cst_Unexpected_end_of_input$109= - caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$7= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$110= - caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$8= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$111= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$34=caml_new_string("Expected '[' but found"), - cst_Unexpected_end_of_input$112= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$35=caml_new_string("Expected '[' but found"), - cst_Unexpected_end_of_input$113= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$31= - caml_new_string("Expected ',' or ']' but found"), - cst_Unexpected_end_of_input$114= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$36=caml_new_string("Expected ')' but found"), - cst_Unexpected_end_of_input$115= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$32= - caml_new_string("Expected ')' or '' but found"), - cst_Expected_or_but_found$33= - caml_new_string("Expected ']' or '' but found"), - cst_Expected_or_but_found$34= - caml_new_string("Expected ',' or ')' but found"), - cst_Unexpected_end_of_input$116= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$35= - caml_new_string("Expected ',' or ']' but found"), - cst_Expected_or_but_found$36= - caml_new_string("Expected ',' or ')' but found"), - cst_Expected_or_but_found$37= - caml_new_string("Expected ',' or ')' but found"), - cst_Unexpected_end_of_input$117= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$37=caml_new_string("Expected '{' but found"), - cst_Unexpected_end_of_input$118= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$38=caml_new_string("Expected '{' but found"), - cst_Unexpected_end_of_input$119= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$38= - caml_new_string("Expected ',' or '}' but found"), - cst_Unexpected_end_of_input$120= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$39=caml_new_string("Expected ':' but found"), - cst_Unexpected_end_of_input$121= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$39= - caml_new_string("Expected '(' or '[' but found"), - cst_Unexpected_end_of_input$122= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$40=caml_new_string("Expected '(' but found"), - cst_Unexpected_end_of_input$123= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$41=caml_new_string("Expected ')' but found"), - cst_Unexpected_end_of_input$124= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$42=caml_new_string("Expected '[' but found"), - cst_Unexpected_end_of_input$125= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$43=caml_new_string("Expected ']' but found"), - cst_Unexpected_end_of_input$126= - caml_new_string("Unexpected end of input"), - cst_Unexpected_end_of_input$127= - caml_new_string("Unexpected end of input"), - cst_Invalid_token$13=caml_new_string("Invalid token"), - cst_Invalid_string_literal$6=caml_new_string("Invalid string literal"), - cst_Unexpected_end_of_input$128= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$40= - caml_new_string("Expected ':' or '>' but found"), - cst_Unexpected_end_of_input$129= - caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$9= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$130= - caml_new_string("Unexpected end of input"), - cst$34=caml_new_string("/*"), - cst_Unexpected_end_of_input$131= - caml_new_string("Unexpected end of input"), - cst_Invalid_token$14=caml_new_string("Invalid token"), - cst_Invalid_string_literal$7=caml_new_string("Invalid string literal"), - cst_Unexpected_end_of_input$132= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$41= - caml_new_string("Expected ':' or '>' but found"), - cst_Unexpected_end_of_input$133= - caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$10= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$134= - caml_new_string("Unexpected end of input"), - cst$35=caml_new_string("/*"), - cst_Expected_or_but_found$42= - caml_new_string("Expected ',' or '}' but found"), - cst_Unexpected_end_of_input$135= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$43= - caml_new_string("Expected ',' or ']' but found"), - cst_Unexpected_end_of_input$136= - caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$44= - caml_new_string("Expected ',' or ')' but found"), - cst_Unexpected_end_of_input$137= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$44=caml_new_string("Expected ':' but found"), - cst_Unexpected_end_of_input$138= - caml_new_string("Unexpected end of input"), - cst_Expected_but_found$45=caml_new_string("Expected '>' but found"), - cst_Unexpected_end_of_input$139= - caml_new_string("Unexpected end of input"), - cst$36=caml_new_string("*/"), - cst_Unterminated_comment$4=caml_new_string("Unterminated comment"), - stream$1=[0,1], - cst_Blank_input_data$4=caml_new_string("Blank input data"), - cst_Blank_input_data$3=caml_new_string("Blank input data"), - cst_Junk_after_end_of_JSON_value$1= - caml_new_string("Junk after end of JSON value:"), - cst_Int8_overflow$1=caml_new_string("Int8 overflow"), - cst_Line$1=caml_new_string("Line"), - cst_Root_is_not_an_object_or_array$2= - caml_new_string("Root is not an object or array"), - cst_true$3=caml_new_string("true"), - cst_false$3=caml_new_string("false"), - cst_null$5=caml_new_string("null"), - cst_b$2=caml_new_string("\\b"), - cst_t$2=caml_new_string("\\t"), - cst_n$2=caml_new_string("\\n"), - cst_f$2=caml_new_string("\\f"), - cst_r$2=caml_new_string("\\r"), - cst$32=caml_new_string('\\"'), - cst$31=caml_new_string("\\\\"), - cst_u00$2=caml_new_string("\\u00"), - cst_Null$1=caml_new_string("`Null"), - cst_Some$0=caml_new_string("(Some "), - cst$27=caml_new_string(")"), - cst_None$0=caml_new_string("None"), - cst_Unexpected_end_of_input$44=caml_new_string("Unexpected end of input"), - cst_Invalid_token$9=caml_new_string("Invalid token"), - cst_Unexpected_end_of_input$45=caml_new_string("Unexpected end of input"), - cst_Unexpected_end_of_input$46=caml_new_string("Unexpected end of input"), - cst_Invalid_escape_sequence$0=caml_new_string("Invalid escape sequence"), - cst_Unexpected_end_of_input$47=caml_new_string("Unexpected end of input"), - cst_Invalid_low_surrogate_for_code_point_beyond_U_FFFF$0= - caml_new_string("Invalid low surrogate for code point beyond U+FFFF"), - cst_Missing_escape_sequence_representing_low_surrogate_for_code_point_beyond_U_FFFF$0= - caml_new_string - ("Missing escape sequence representing low surrogate for code point beyond U+FFFF"), - cst_Unexpected_end_of_input$48=caml_new_string("Unexpected end of input"), - cst_Invalid_string_literal$2=caml_new_string("Invalid string literal"), - cst_Unexpected_end_of_input$49=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$13= - caml_new_string("Expected ':' or '>' but found"), - cst_Unexpected_end_of_input$50=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$14=caml_new_string("Expected '<' but found"), - cst_Unexpected_end_of_input$51=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$15=caml_new_string("Expected '>' but found"), - cst_Unexpected_end_of_input$52=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$16=caml_new_string("Expected ',' but found"), - cst_Unexpected_end_of_input$53=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$14= - caml_new_string("Expected '<', '\"' or '[' but found"), - cst_Unexpected_end_of_input$54=caml_new_string("Unexpected end of input"), - cst_Unterminated_comment$1=caml_new_string("Unterminated comment"), - cst_Expected_null_but_found$0= - caml_new_string("Expected 'null' but found"), - cst_Unexpected_end_of_input$55=caml_new_string("Unexpected end of input"), - cst_Expected_true_or_false_but_found$0= - caml_new_string("Expected 'true' or 'false' but found"), - cst_Unexpected_end_of_input$56=caml_new_string("Unexpected end of input"), - cst_Int_overflow$3=caml_new_string("Int overflow"), - cst_Int_overflow$4=caml_new_string("Int overflow"), - cst_Expected_an_integer_but_found_a_string_that_doesn_t_even_represent_an_integer$0= - caml_new_string - ("Expected an integer but found a string that doesn't even represent an integer"), - cst_Expected_integer_but_found$0= - caml_new_string("Expected integer but found"), - cst_Unexpected_end_of_input$57=caml_new_string("Unexpected end of input"), - cst_Int32_overflow$1=caml_new_string("Int32 overflow"), - cst_Expected_an_int32_but_found_a_string_that_doesn_t_even_represent_an_integer$0= - caml_new_string - ("Expected an int32 but found a string that doesn't even represent an integer"), - cst_Expected_int32_but_found$0= - caml_new_string("Expected int32 but found"), - cst_Unexpected_end_of_input$58=caml_new_string("Unexpected end of input"), - cst_Int32_overflow$2=caml_new_string("Int32 overflow"), - cst_Expected_an_int64_but_found_a_string_that_doesn_t_even_represent_an_integer$0= - caml_new_string - ("Expected an int64 but found a string that doesn't even represent an integer"), - cst_Expected_int64_but_found$0= - caml_new_string("Expected int64 but found"), - cst_Unexpected_end_of_input$59=caml_new_string("Unexpected end of input"), - cst_Infinity$19=caml_new_string("-Infinity"), - cst_Infinity$20=caml_new_string("Infinity"), - cst_NaN$9=caml_new_string("NaN"), - cst_Expected_a_number_but_found_a_string_that_doesn_t_even_represent_a_number$0= - caml_new_string - ("Expected a number but found a string that doesn't even represent a number"), - cst_Expected_number_but_found$0= - caml_new_string("Expected number but found"), - cst_Unexpected_end_of_input$60=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$17=caml_new_string("Expected '\"' but found"), - cst_Unexpected_end_of_input$61=caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$3= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$62=caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$4= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$63=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$18=caml_new_string("Expected '[' but found"), - cst_Unexpected_end_of_input$64=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$19=caml_new_string("Expected '[' but found"), - cst_Unexpected_end_of_input$65=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$15= - caml_new_string("Expected ',' or ']' but found"), - cst_Unexpected_end_of_input$66=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$20=caml_new_string("Expected ')' but found"), - cst_Unexpected_end_of_input$67=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$16= - caml_new_string("Expected ')' or '' but found"), - cst_Expected_or_but_found$17= - caml_new_string("Expected ']' or '' but found"), - cst_Expected_or_but_found$18= - caml_new_string("Expected ',' or ')' but found"), - cst_Unexpected_end_of_input$68=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$19= - caml_new_string("Expected ',' or ']' but found"), - cst_Expected_or_but_found$20= - caml_new_string("Expected ',' or ')' but found"), - cst_Expected_or_but_found$21= - caml_new_string("Expected ',' or ')' but found"), - cst_Unexpected_end_of_input$69=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$21=caml_new_string("Expected '{' but found"), - cst_Unexpected_end_of_input$70=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$22=caml_new_string("Expected '{' but found"), - cst_Unexpected_end_of_input$71=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$22= - caml_new_string("Expected ',' or '}' but found"), - cst_Unexpected_end_of_input$72=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$23=caml_new_string("Expected ':' but found"), - cst_Unexpected_end_of_input$73=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$23= - caml_new_string("Expected '(' or '[' but found"), - cst_Unexpected_end_of_input$74=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$24=caml_new_string("Expected '(' but found"), - cst_Unexpected_end_of_input$75=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$25=caml_new_string("Expected ')' but found"), - cst_Unexpected_end_of_input$76=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$26=caml_new_string("Expected '[' but found"), - cst_Unexpected_end_of_input$77=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$27=caml_new_string("Expected ']' but found"), - cst_Unexpected_end_of_input$78=caml_new_string("Unexpected end of input"), - cst_Unexpected_end_of_input$79=caml_new_string("Unexpected end of input"), - cst_Invalid_token$10=caml_new_string("Invalid token"), - cst_Invalid_string_literal$3=caml_new_string("Invalid string literal"), - cst_Unexpected_end_of_input$80=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$24= - caml_new_string("Expected ':' or '>' but found"), - cst_Unexpected_end_of_input$81=caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$5= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$82=caml_new_string("Unexpected end of input"), - cst$28=caml_new_string("/*"), - cst_Unexpected_end_of_input$83=caml_new_string("Unexpected end of input"), - cst_Invalid_token$11=caml_new_string("Invalid token"), - cst_Invalid_string_literal$4=caml_new_string("Invalid string literal"), - cst_Unexpected_end_of_input$84=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$25= - caml_new_string("Expected ':' or '>' but found"), - cst_Unexpected_end_of_input$85=caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$6= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$86=caml_new_string("Unexpected end of input"), - cst$29=caml_new_string("/*"), - cst_Expected_or_but_found$26= - caml_new_string("Expected ',' or '}' but found"), - cst_Unexpected_end_of_input$87=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$27= - caml_new_string("Expected ',' or ']' but found"), - cst_Unexpected_end_of_input$88=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$28= - caml_new_string("Expected ',' or ')' but found"), - cst_Unexpected_end_of_input$89=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$28=caml_new_string("Expected ':' but found"), - cst_Unexpected_end_of_input$90=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$29=caml_new_string("Expected '>' but found"), - cst_Unexpected_end_of_input$91=caml_new_string("Unexpected end of input"), - cst$30=caml_new_string("*/"), - cst_Unterminated_comment$2=caml_new_string("Unterminated comment"), - cst_Expected_two_objects_check_inputs$0= - caml_new_string("Expected two objects, check inputs"), - cst_Can_t_convert_each_element_of_non_array_type$0= - caml_new_string("Can't convert each element of non-array type "), - cst_Expected_string_or_null_got$0= - caml_new_string("Expected string or null, got "), - cst_Expected_string_got$0=caml_new_string("Expected string, got "), - cst_Expected_array_got$0=caml_new_string("Expected array, got "), - cst_Expected_int_or_null_got$0= - caml_new_string("Expected int or null, got "), - cst_Expected_int_got$0=caml_new_string("Expected int, got "), - cst_Expected_float_or_null_got$0= - caml_new_string("Expected float or null, got "), - cst_Expected_float_got$0=caml_new_string("Expected float, got "), - cst_Expected_number_or_null_got$0= - caml_new_string("Expected number or null, got "), - cst_Expected_number_got$0=caml_new_string("Expected number, got "), - cst_Expected_bool_or_null_got$0= - caml_new_string("Expected bool or null, got "), - cst_Expected_bool_got$0=caml_new_string("Expected bool, got "), - cst_Expected_object_got$0=caml_new_string("Expected object, got "), - cst_Can_t_map_function_over_non_array_type$0= - caml_new_string("Can't map function over non-array type "), - cst_out_of_bounds$0=caml_new_string(" out of bounds"), - cst_Index$0=caml_new_string("Index "), - cst_of_non_array_type$0=caml_new_string(" of non-array type "), - cst_Can_t_get_index$0=caml_new_string("Can't get index "), - cst_of_non_object_type$0=caml_new_string("' of non-object type "), - cst_Can_t_get_member$0=caml_new_string("Can't get member '"), - cst_null$4=caml_new_string("null"), - cst_object$0=caml_new_string("object"), - cst_array$0=caml_new_string("array"), - cst_bool$0=caml_new_string("bool"), - cst_variant$0=caml_new_string("variant"), - cst_tuple$0=caml_new_string("tuple"), - cst_float$0=caml_new_string("float"), - cst_int$0=caml_new_string("int"), - cst_intlit$0=caml_new_string("intlit"), - cst_string$0=caml_new_string("string"), - stream$0=[0,1], - cst_Blank_input_data$2=caml_new_string("Blank input data"), - cst_Blank_input_data$1=caml_new_string("Blank input data"), - cst_Junk_after_end_of_JSON_value$0= - caml_new_string("Junk after end of JSON value:"), - cst_Int8_overflow$0=caml_new_string("Int8 overflow"), - cst_Line$0=caml_new_string("Line"), - cst_Root_is_not_an_object_or_array$1= - caml_new_string("Root is not an object or array"), - cst_NaN_value_not_allowed_in_standard_JSON$7= - caml_new_string("NaN value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$15= - caml_new_string("Infinity value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$16= - caml_new_string("-Infinity value not allowed in standard JSON"), - cst_NaN_value_not_allowed_in_standard_JSON$6= - caml_new_string("NaN value not allowed in standard JSON"), - cst_0$13=caml_new_string(".0"), - cst_Infinity_value_not_allowed_in_standard_JSON$13= - caml_new_string("Infinity value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$14= - caml_new_string("-Infinity value not allowed in standard JSON"), - cst_NaN_value_not_allowed_in_standard_JSON$5= - caml_new_string("NaN value not allowed in standard JSON"), - cst_0$12=caml_new_string(".0"), - cst_Infinity_value_not_allowed_in_standard_JSON$11= - caml_new_string("Infinity value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$12= - caml_new_string("-Infinity value not allowed in standard JSON"), - cst_NaN$8=caml_new_string("NaN"), - cst_Infinity$17=caml_new_string("Infinity"), - cst_Infinity$18=caml_new_string("-Infinity"), - cst_0$11=caml_new_string(".0"), - cst_NaN$7=caml_new_string("NaN"), - cst_0$10=caml_new_string(".0"), - cst_Infinity$15=caml_new_string("Infinity"), - cst_Infinity$16=caml_new_string("-Infinity"), - cst_NaN$6=caml_new_string("NaN"), - cst_0$9=caml_new_string(".0"), - cst_Infinity$13=caml_new_string("Infinity"), - cst_Infinity$14=caml_new_string("-Infinity"), - cst_true$2=caml_new_string("true"), - cst_false$2=caml_new_string("false"), - cst_null$3=caml_new_string("null"), - cst_b$1=caml_new_string("\\b"), - cst_t$1=caml_new_string("\\t"), - cst_n$1=caml_new_string("\\n"), - cst_f$1=caml_new_string("\\f"), - cst_r$1=caml_new_string("\\r"), - cst$26=caml_new_string('\\"'), - cst$25=caml_new_string("\\\\"), - cst_u00$1=caml_new_string("\\u00"), - cst_Null$0=caml_new_string("`Null"), - cst_Invalid_token=caml_new_string("Invalid token"), - cst_Invalid_token$0=caml_new_string("Invalid token"), - cst_Unexpected_end_of_input=caml_new_string("Unexpected end of input"), - cst_Invalid_token$1=caml_new_string("Invalid token"), - cst_Unexpected_end_of_input$0=caml_new_string("Unexpected end of input"), - cst_Unexpected_end_of_input$1=caml_new_string("Unexpected end of input"), - cst_Invalid_escape_sequence=caml_new_string("Invalid escape sequence"), - cst_Unexpected_end_of_input$2=caml_new_string("Unexpected end of input"), - cst_Invalid_low_surrogate_for_code_point_beyond_U_FFFF= - caml_new_string("Invalid low surrogate for code point beyond U+FFFF"), - cst_Missing_escape_sequence_representing_low_surrogate_for_code_point_beyond_U_FFFF= - caml_new_string - ("Missing escape sequence representing low surrogate for code point beyond U+FFFF"), - cst_Unexpected_end_of_input$3=caml_new_string("Unexpected end of input"), - cst_Invalid_string_literal=caml_new_string("Invalid string literal"), - cst_Unexpected_end_of_input$4=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found= - caml_new_string("Expected ':' or '>' but found"), - cst_Unexpected_end_of_input$5=caml_new_string("Unexpected end of input"), - cst_Expected_but_found=caml_new_string("Expected '<' but found"), - cst_Unexpected_end_of_input$6=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$0=caml_new_string("Expected '>' but found"), - cst_Unexpected_end_of_input$7=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$1=caml_new_string("Expected ',' but found"), - cst_Unexpected_end_of_input$8=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$0= - caml_new_string("Expected '<', '\"' or '[' but found"), - cst_Unexpected_end_of_input$9=caml_new_string("Unexpected end of input"), - cst_Unterminated_comment=caml_new_string("Unterminated comment"), - cst_Expected_null_but_found=caml_new_string("Expected 'null' but found"), - cst_Unexpected_end_of_input$10=caml_new_string("Unexpected end of input"), - cst_Expected_true_or_false_but_found= - caml_new_string("Expected 'true' or 'false' but found"), - cst_Unexpected_end_of_input$11=caml_new_string("Unexpected end of input"), - cst_Int_overflow$1=caml_new_string("Int overflow"), - cst_Int_overflow$2=caml_new_string("Int overflow"), - cst_Expected_an_integer_but_found_a_string_that_doesn_t_even_represent_an_integer= - caml_new_string - ("Expected an integer but found a string that doesn't even represent an integer"), - cst_Expected_integer_but_found= - caml_new_string("Expected integer but found"), - cst_Unexpected_end_of_input$12=caml_new_string("Unexpected end of input"), - cst_Int32_overflow=caml_new_string("Int32 overflow"), - cst_Expected_an_int32_but_found_a_string_that_doesn_t_even_represent_an_integer= - caml_new_string - ("Expected an int32 but found a string that doesn't even represent an integer"), - cst_Expected_int32_but_found=caml_new_string("Expected int32 but found"), - cst_Unexpected_end_of_input$13=caml_new_string("Unexpected end of input"), - cst_Int32_overflow$0=caml_new_string("Int32 overflow"), - cst_Expected_an_int64_but_found_a_string_that_doesn_t_even_represent_an_integer= - caml_new_string - ("Expected an int64 but found a string that doesn't even represent an integer"), - cst_Expected_int64_but_found=caml_new_string("Expected int64 but found"), - cst_Unexpected_end_of_input$14=caml_new_string("Unexpected end of input"), - cst_Infinity$11=caml_new_string("-Infinity"), - cst_Infinity$12=caml_new_string("Infinity"), - cst_NaN$5=caml_new_string("NaN"), - cst_Expected_a_number_but_found_a_string_that_doesn_t_even_represent_a_number= - caml_new_string - ("Expected a number but found a string that doesn't even represent a number"), - cst_Expected_number_but_found= - caml_new_string("Expected number but found"), - cst_Unexpected_end_of_input$15=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$2=caml_new_string("Expected '\"' but found"), - cst_Unexpected_end_of_input$16=caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$17=caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$0= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$18=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$3=caml_new_string("Expected '[' but found"), - cst_Unexpected_end_of_input$19=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$4=caml_new_string("Expected '[' but found"), - cst_Unexpected_end_of_input$20=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$1= - caml_new_string("Expected ',' or ']' but found"), - cst_Unexpected_end_of_input$21=caml_new_string("Unexpected end of input"), - cst_Invalid_token$2=caml_new_string("Invalid token"), - cst_Expected_but_found$5=caml_new_string("Expected ')' but found"), - cst_Unexpected_end_of_input$22=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$2= - caml_new_string("Expected ')' or '' but found"), - cst_Expected_or_but_found$3= - caml_new_string("Expected ']' or '' but found"), - cst_Expected_or_but_found$4= - caml_new_string("Expected ',' or ')' but found"), - cst_Unexpected_end_of_input$23=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$5= - caml_new_string("Expected ',' or ']' but found"), - cst_Expected_or_but_found$6= - caml_new_string("Expected ',' or ')' but found"), - cst_Expected_or_but_found$7= - caml_new_string("Expected ',' or ')' but found"), - cst_Unexpected_end_of_input$24=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$6=caml_new_string("Expected '{' but found"), - cst_Unexpected_end_of_input$25=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$7=caml_new_string("Expected '{' but found"), - cst_Unexpected_end_of_input$26=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$8= - caml_new_string("Expected ',' or '}' but found"), - cst_Unexpected_end_of_input$27=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$8=caml_new_string("Expected ':' but found"), - cst_Unexpected_end_of_input$28=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$9= - caml_new_string("Expected '(' or '[' but found"), - cst_Unexpected_end_of_input$29=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$9=caml_new_string("Expected '(' but found"), - cst_Unexpected_end_of_input$30=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$10=caml_new_string("Expected ')' but found"), - cst_Unexpected_end_of_input$31=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$11=caml_new_string("Expected '[' but found"), - cst_Unexpected_end_of_input$32=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$12=caml_new_string("Expected ']' but found"), - cst_Unexpected_end_of_input$33=caml_new_string("Unexpected end of input"), - cst_Invalid_token$3=caml_new_string("Invalid token"), - cst_Invalid_token$4=caml_new_string("Invalid token"), - cst_Unexpected_end_of_input$34=caml_new_string("Unexpected end of input"), - cst_Invalid_token$5=caml_new_string("Invalid token"), - cst_Invalid_string_literal$0=caml_new_string("Invalid string literal"), - cst_Unexpected_end_of_input$35=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$10= - caml_new_string("Expected ':' or '>' but found"), - cst_Unexpected_end_of_input$36=caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$1= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$37=caml_new_string("Unexpected end of input"), - cst_Invalid_token$6=caml_new_string("Invalid token"), - cst_Invalid_token$7=caml_new_string("Invalid token"), - cst$22=caml_new_string("/*"), - cst_Unexpected_end_of_input$38=caml_new_string("Unexpected end of input"), - cst_Invalid_token$8=caml_new_string("Invalid token"), - cst_Invalid_string_literal$1=caml_new_string("Invalid string literal"), - cst_Unexpected_end_of_input$39=caml_new_string("Unexpected end of input"), - cst_Expected_string_or_identifier_but_found$2= - caml_new_string("Expected string or identifier but found"), - cst_Unexpected_end_of_input$40=caml_new_string("Unexpected end of input"), - cst$23=caml_new_string("/*"), - cst_Expected_or_but_found$11= - caml_new_string("Expected ',' or '}' but found"), - cst_Unexpected_end_of_input$41=caml_new_string("Unexpected end of input"), - cst_Expected_or_but_found$12= - caml_new_string("Expected ',' or ']' but found"), - cst_Unexpected_end_of_input$42=caml_new_string("Unexpected end of input"), - cst_Expected_but_found$13=caml_new_string("Expected ':' but found"), - cst_Unexpected_end_of_input$43=caml_new_string("Unexpected end of input"), - cst$24=caml_new_string("*/"), - cst_Unterminated_comment$0=caml_new_string("Unterminated comment"), - cst_Expected_two_objects_check_inputs= - caml_new_string("Expected two objects, check inputs"), - cst_Can_t_convert_each_element_of_non_array_type= - caml_new_string("Can't convert each element of non-array type "), - cst_Expected_string_or_null_got= - caml_new_string("Expected string or null, got "), - cst_Expected_string_got=caml_new_string("Expected string, got "), - cst_Expected_array_got=caml_new_string("Expected array, got "), - cst_Expected_int_or_null_got= - caml_new_string("Expected int or null, got "), - cst_Expected_int_got=caml_new_string("Expected int, got "), - cst_Expected_float_or_null_got= - caml_new_string("Expected float or null, got "), - cst_Expected_float_got=caml_new_string("Expected float, got "), - cst_Expected_number_or_null_got= - caml_new_string("Expected number or null, got "), - cst_Expected_number_got=caml_new_string("Expected number, got "), - cst_Expected_bool_or_null_got= - caml_new_string("Expected bool or null, got "), - cst_Expected_bool_got=caml_new_string("Expected bool, got "), - cst_Expected_object_got=caml_new_string("Expected object, got "), - cst_Can_t_map_function_over_non_array_type= - caml_new_string("Can't map function over non-array type "), - cst_out_of_bounds=caml_new_string(" out of bounds"), - cst_Index=caml_new_string("Index "), - cst_of_non_array_type=caml_new_string(" of non-array type "), - cst_Can_t_get_index=caml_new_string("Can't get index "), - cst_of_non_object_type=caml_new_string("' of non-object type "), - cst_Can_t_get_member=caml_new_string("Can't get member '"), - cst_null$2=caml_new_string("null"), - cst_object=caml_new_string("object"), - cst_array=caml_new_string("array"), - cst_bool=caml_new_string("bool"), - cst_variant=caml_new_string("variant"), - cst_tuple=caml_new_string("tuple"), - cst_float=caml_new_string("float"), - cst_int=caml_new_string("int"), - cst_intlit=caml_new_string("intlit"), - cst_string=caml_new_string("string"), - stream=[0,1], - cst_Blank_input_data$0=caml_new_string("Blank input data"), - cst_Blank_input_data=caml_new_string("Blank input data"), - cst_Junk_after_end_of_JSON_value= - caml_new_string("Junk after end of JSON value:"), - cst_Int8_overflow=caml_new_string("Int8 overflow"), - cst_Int_overflow$0=caml_new_string("Int overflow"), - cst_Int_overflow=caml_new_string("Int overflow"), - cst_Line=caml_new_string("Line"), - cst_Root_is_not_an_object_or_array$0= - caml_new_string("Root is not an object or array"), - cst_NaN_value_not_allowed_in_standard_JSON$4= - caml_new_string("NaN value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$9= - caml_new_string("Infinity value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$10= - caml_new_string("-Infinity value not allowed in standard JSON"), - cst_NaN_value_not_allowed_in_standard_JSON$3= - caml_new_string("NaN value not allowed in standard JSON"), - cst_0$8=caml_new_string(".0"), - cst_Infinity_value_not_allowed_in_standard_JSON$7= - caml_new_string("Infinity value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$8= - caml_new_string("-Infinity value not allowed in standard JSON"), - cst_NaN_value_not_allowed_in_standard_JSON$2= - caml_new_string("NaN value not allowed in standard JSON"), - cst_0$7=caml_new_string(".0"), - cst_Infinity_value_not_allowed_in_standard_JSON$5= - caml_new_string("Infinity value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$6= - caml_new_string("-Infinity value not allowed in standard JSON"), - cst_NaN$4=caml_new_string("NaN"), - cst_Infinity$9=caml_new_string("Infinity"), - cst_Infinity$10=caml_new_string("-Infinity"), - cst_0$6=caml_new_string(".0"), - cst_NaN$3=caml_new_string("NaN"), - cst_0$5=caml_new_string(".0"), - cst_Infinity$7=caml_new_string("Infinity"), - cst_Infinity$8=caml_new_string("-Infinity"), - cst_NaN$2=caml_new_string("NaN"), - cst_0$4=caml_new_string(".0"), - cst_Infinity$5=caml_new_string("Infinity"), - cst_Infinity$6=caml_new_string("-Infinity"), - cst_true$1=caml_new_string("true"), - cst_false$1=caml_new_string("false"), - cst_null$1=caml_new_string("null"), - cst_b$0=caml_new_string("\\b"), - cst_t$0=caml_new_string("\\t"), - cst_n$0=caml_new_string("\\n"), - cst_f$0=caml_new_string("\\f"), - cst_r$0=caml_new_string("\\r"), - cst$21=caml_new_string('\\"'), - cst$20=caml_new_string("\\\\"), - cst_u00$0=caml_new_string("\\u00"), - cst_null$0=caml_new_string("null"), - cst$2=caml_new_string("}"), - cst$3=caml_new_string(","), - cst$4=caml_new_string("{"), - cst$5=caml_new_string("{}"), - cst$6=caml_new_string("]"), - cst$7=caml_new_string(","), - cst$8=caml_new_string("["), - cst$9=caml_new_string("[]"), - cst$10=caml_new_string("()"), - cst$11=caml_new_string(")"), - cst$12=caml_new_string(","), - cst$13=caml_new_string("("), - cst_true$0=caml_new_string("true"), - cst_false$0=caml_new_string("false"), - cst$14=caml_new_string(":"), - cst$15=caml_new_string("<"), - cst$16=caml_new_string(">"), - cst$17=caml_new_string(""), - cst$18=caml_new_string(">"), - cst$19=caml_new_string("<"), - cst_Root_is_not_an_object_or_array_as_requested_by_the_JSON_standard= - caml_new_string - ("Root is not an object or array as requested by the JSON standard"), - cst_Root_is_not_an_object_or_array= - caml_new_string("Root is not an object or array"), - cst_NaN_value_not_allowed_in_standard_JSON$1= - caml_new_string("NaN value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$3= - caml_new_string("Infinity value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$4= - caml_new_string("-Infinity value not allowed in standard JSON"), - cst_NaN_value_not_allowed_in_standard_JSON$0= - caml_new_string("NaN value not allowed in standard JSON"), - cst_0$3=caml_new_string(".0"), - cst_Infinity_value_not_allowed_in_standard_JSON$1= - caml_new_string("Infinity value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$2= - caml_new_string("-Infinity value not allowed in standard JSON"), - cst_NaN_value_not_allowed_in_standard_JSON= - caml_new_string("NaN value not allowed in standard JSON"), - cst_0$2=caml_new_string(".0"), - cst_Infinity_value_not_allowed_in_standard_JSON= - caml_new_string("Infinity value not allowed in standard JSON"), - cst_Infinity_value_not_allowed_in_standard_JSON$0= - caml_new_string("-Infinity value not allowed in standard JSON"), - cst_NaN$1=caml_new_string("NaN"), - cst_Infinity$3=caml_new_string("Infinity"), - cst_Infinity$4=caml_new_string("-Infinity"), - cst_0$1=caml_new_string(".0"), - cst_NaN$0=caml_new_string("NaN"), - cst_0$0=caml_new_string(".0"), - cst_Infinity$1=caml_new_string("Infinity"), - cst_Infinity$2=caml_new_string("-Infinity"), - cst_NaN=caml_new_string("NaN"), - cst_0=caml_new_string(".0"), - cst_Infinity=caml_new_string("Infinity"), - cst_Infinity$0=caml_new_string("-Infinity"), - cst_true=caml_new_string("true"), - cst_false=caml_new_string("false"), - cst_null=caml_new_string("null"), - cst_b=caml_new_string("\\b"), - cst_t=caml_new_string("\\t"), - cst_n=caml_new_string("\\n"), - cst_f=caml_new_string("\\f"), - cst_r=caml_new_string("\\r"), - cst$0=caml_new_string('\\"'), - cst=caml_new_string("\\\\"), - cst_u00=caml_new_string("\\u00"), - version=caml_new_string("1.7.0"), - cst_Yojson_Json_error=caml_new_string("Yojson.Json_error"), - cst_Yojson_End_of_array=caml_new_string("Yojson.End_of_array"), - cst_Yojson_End_of_object=caml_new_string("Yojson.End_of_object"), - cst_Yojson_End_of_tuple=caml_new_string("Yojson.End_of_tuple"), - cst_Yojson_End_of_input=caml_new_string("Yojson.End_of_input"), - cst_Yojson_Basic_Int_overflow= - caml_new_string("Yojson.Basic.Int_overflow"), - ocaml_lex_tables= - [0, - caml_new_string - ("\0\0\xec\xff\xed\xff\x03\0\xef\xff\x10\0\xf2\xff\xf3\xff\xf4\xff\xf5\xff\0\0\x1f\0\xf9\xffU\0\x01\0\0\0\0\0\x01\0\0\0\x01\0\x02\0\xff\xff\0\0\0\0\x03\0\xfe\xff\x01\0\x04\0\xfd\xff\x0b\0\xfc\xff\x03\0\x01\0\x03\0\x02\0\x03\0\0\0\xfb\xff\x15\0a\0\n\0\x16\0\x14\0\x10\0\x16\0\f\0\b\0\xfa\xffw\0\x81\0\x8b\0\xa1\0\xab\0\xb5\0\xc1\0\xd1\0\xf0\xff\x0b\0&\0\xfc\xffA\0\xfe\xff\xff\xffn\0\xfc\xff\xa3\0\xfe\xff\xff\xff\xea\0\xf7\xff\xf8\xff0\x01\xfa\xff\xfb\xff\xfc\xff\xfd\xff\xfe\xff\xff\xffG\x01~\x01\x95\x01\xf9\xff'\0\xfd\xff\xfe\xff&\0\xbb\x01\xd2\x01\xf8\x01\x0f\x02\xff\xff\xdc\0\xfd\xff\xff\xff\xf5\0'\x02m\x02\x0e\x01X\x02\xa4\x02\xbb\x02\xe1\x02\r\0\xfc\xff\xfd\xff\xfe\xff\xff\xff\x0e\0\xfd\xff\xfe\xff\xff\xff\x1e\0\xfd\xff\xfe\xff\xff\xff\x0f\0\xfd\xff\xfe\xff\xff\xff\x11\x01\xfb\xff\xfc\xff\xfd\xff\xfe\xff\xff\xff\x13\0\xfc\xff\xfd\xff\xfe\xff\x0f\0\xff\xff\x10\0\xff\xff\b\x01\x05\0\xfd\xff\x17\0\xfe\xff\x14\0\xff\xff.\0\xfd\xff\xfe\xff*\x004\x005\0\xff\xff5\x000\0[\0\\\0\xff\xff\x1b\x01\xfa\xff\xfb\xff\x89\0h\0Y\0X\0j\0\xff\xff\x8f\0\x89\0\xb1\0\xfe\xff\xb7\0\xa8\0\xa6\0\xb7\0\x02\0\xfd\xff\xb1\0\xac\0\xbb\0\x04\0\xfc\xff5\x02\xfb\xff\xfc\xff\xfd\xffg\x01\xff\xff\xf8\x02\xfe\xff\x06\x03\x1e\x03\xfc\xff\xfd\xff\xfe\xff\xff\xff(\x032\x03J\x03\xfc\xff\xfd\xff\xfe\xff\xff\xff=\x03T\x03l\x03\xf9\xff\xfa\xff\xfb\xff\xf4\0x\x03\x8e\x03\xb3\0\xc2\0\x0f\0\xff\xff\xbe\0\xbc\0\xbb\0\xc1\0\xb7\0\xb3\0\xfe\xff\xbf\0\xc9\0\xc8\0\xc4\0\xcb\0\xc1\0\xbd\0\xfd\xff\x9d\x03_\x03\xae\x03\xc4\x03\xce\x03\xd8\x03\xe4\x03\xef\x03<\0\xfd\xff\xfe\xff\xff\xff\f\x04\xfc\xff\xfd\xffW\x04\xff\xff\x91\x04\xfc\xff\xfd\xff\xdd\x04\xff\xff\xe5\0\xfd\xff\xfe\xff\xff\xff\xe7\0\xfd\xff\xfe\xff\xff\xff\x02\0\xff\xff\x12\x01\xfc\xff\xfd\xff\xfe\xff\xff\xff\"\x01\xfd\xff\xfe\xff\xff\xff\0\0\xff\xff\x03\0\xfe\xff\xff\xff&\x01\xfc\xff\xfd\xff\xfe\xff\xff\xffx\x01\xfb\xff\xfc\xff\xfd\xff\xfe\xff\xff\xff\xd0\0\xfd\xff\xfe\xff\xff\xff\xd3\0\xfd\xff\xfe\xff\xff\xff\xbd\0\xff\xff\x8f\x01\xfc\xff\xfd\xff\xfe\xff\xff\xff\r\x01\xfd\xff\xfe\xff\xff\xff_\x01\xfc\xff\xfd\xff\xfe\xff\xff\xff2\x01\xfd\xff\xfe\xff\xff\xff\x1a\x01\xfd\xff\xfe\xff\xff\xff\xe9\0\xfd\xff\xfe\xff\xff\xff\xde\0\xfd\xff\xfe\xff\xff\xffO\x05\xed\xff\xee\xff\n\0\xf0\xff,\x01\xf3\xff\xf4\xff\xf5\xff\xf6\xff=\x01\x02\x04\xf9\xff-\x05\xd1\0\xe4\0\xd3\0\xe8\0\xe1\0\xdf\0\xf0\0\xff\xff\xeb\0\xea\0\b\x01\xfe\xff\x04\x01\x17\x01\xfd\xff6\x01\xfc\xff\x1f\x01\x1d\x01 \x01'\x011\x01-\x01\xfb\xff9\x01R\x01P\x01N\x01T\x01J\x01V\x01\xfa\xffn\x05\f\x04{\x05\x9b\x05\xa5\x05\xb1\x05\xbb\x05\xc5\x05\xf1\xff\xc7\x01M\x02\xfd\xff\xff\xff\x9a\x02\xde\x05\xd1\x05\x9b\x02\xef\x055\x06L\x06r\x06\x10\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\x98\x06\xfc\xff\xfd\xff\xe3\x06\xff\xffU\x07\xf4\xff\xf5\xff\x0b\0\xf7\xffL\x02\xfa\xff\xfb\xff\xfc\xff\xfd\xff\xfe\xff\x1f\x02\xf3\x053\x07d\x01s\x01h\x01\x85\x01v\x01\x9a\x01\xab\x01\xff\xff\xad\x01\xb0\x01\xbf\x01\xb9\x01\xbb\x01\xfd\x01\xe6\x01\xe6\x01\xea\x01\xf7\x01\xed\x01\xea\x01\t\x02\x13\x02\x13\x02\x0f\x02\x15\x02\x0b\x02\x07\x02\x8e\x06\x98\x06t\x07\xaa\x07\xb4\x07\xbe\x07\xc8\x07\xd2\x07\xf8\xffx\x02\xa7\x02\xfd\xff\xff\xff\xd8\x02R\x07\xdc\x07\xec\x02\xf4\x07:\bQ\bw\bL\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\x9d\b\xfc\xff\xfd\xff\xe8\b\xff\xff\x87\x02x\x02\xfd\xffd\x02\xfe\xff\xb6\x02\xff\xff\x0b\x02\xff\xff\xcc\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff.\x02\xff\xff\xb2\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\x17\0\xff\xff\xb7\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\xbb\x02\xfd\xff\xfe\xff\xff\xffy\x02\xfd\xff\xfe\xff\xff\xff\xb8\x02\xfc\xff\xfd\xff\xfe\xff\x13\0\xff\xff\x8c\x01\x92\x01\xff\xff\x96\x01\x97\x01\x9a\x01\xa8\x01\xaa\x01\xab\x01\xac\x01\xad\x01\xb5\x01\xb8\x01\xb9\x01\xbb\x01\xbf\x01\xc1\x01\xc3\x01\xc4\x01\xc5\x01\xc8\x01\xcb\x01\xdf\x01\xe1\x01\xe4\x01\xf9\x01\xfb\x01\x02\x02\x04\x02\x0b\x02\f\x02\r\x02\0\0"), - caml_new_string - ("\xff\xff\xff\xff\xff\xff\x11\0\xff\xff\x13\0\xff\xff\xff\xff\xff\xff\xff\xff\x07\0\x07\0\xff\xff\x13\0\x13\0\x13\0\x13\0\x13\0\x13\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\b\0\b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\t\0\xff\xff\t\0\xff\xff\t\0\xff\xff\xff\xff\x0e\0\xff\xff\xff\xff\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x07\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\x01\0\xff\xff\x04\0\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x04\0\x04\0\x04\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\0\0\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\x03\0\x05\0\x05\0\x05\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\x03\0\xff\xff\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x10\0\xff\xff\x12\0\xff\xff\xff\xff\xff\xff\xff\xff\x07\0\x07\0\xff\xff\x12\0\x12\0\x12\0\x12\0\x12\0\x12\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\b\0\xff\xff\b\0\xff\xff\b\0\xff\xff\xff\xff\r\0\xff\xff\xff\xff\xff\xff\x01\0\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\t\0\xff\xff\x0b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\0\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\x06\0\xff\xff\xff\xff\xff\xff\x01\0\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\x04\0\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"), - caml_new_string - ("\x01\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\x009\0<\0\0\0<\0\0\0\0\0A\0\0\0A\0\0\0\0\0F\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\0\0T\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0^\0\0\0\0\0a\0\xff\xff\xff\xffa\0\xff\xff\xff\xff\xff\xff\xff\xffh\0\0\0\0\0\0\0\0\0m\0\0\0\0\0\0\0q\0\0\0\0\0\0\0u\0\0\0\0\0\0\0y\0\0\0\0\0\0\0\0\0\0\0~\0\0\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\x8a\0\0\0\x8e\0\0\0\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\x9a\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xb2\0\0\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\xff\xff\xbb\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xc2\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xc9\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xeb\0\0\0\0\0\0\0\xef\0\0\0\0\0\xff\xff\0\0\xf4\0\0\0\0\0\xff\xff\0\0\xf9\0\0\0\0\0\0\0\xfd\0\0\0\0\0\0\0\xff\xff\0\0\x03\x01\0\0\0\0\0\0\0\0\b\x01\0\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\x11\x01\0\0\0\0\0\0\0\0\x16\x01\0\0\0\0\0\0\0\0\0\0\x1c\x01\0\0\0\0\0\0 \x01\0\0\0\0\0\0\xff\xff\0\0&\x01\0\0\0\0\0\0\0\0+\x01\0\0\0\0\0\0/\x01\0\0\0\0\0\0\0\x004\x01\0\0\0\0\0\x008\x01\0\0\0\0\0\0<\x01\0\0\0\0\0\0@\x01\0\0\0\0\0\0C\x01\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0y\x01}\x01\0\0\0\0\x80\x01\xff\xff\xff\xff\x80\x01\xff\xff\xff\xff\xff\xff\xff\xff\x87\x01\0\0\0\0\0\0\0\0\x8c\x01\0\0\0\0\xff\xff\0\0\x90\x01\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xc1\x01\xc5\x01\0\0\0\0\xc8\x01\xff\xff\xff\xff\xc8\x01\xff\xff\xff\xff\xff\xff\xff\xff\xcf\x01\0\0\0\0\0\0\0\0\xd4\x01\0\0\0\0\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\xdc\x01\0\0\xff\xff\0\0\xe2\x01\0\0\0\0\0\0\0\0\xff\xff\0\0\xe9\x01\0\0\0\0\0\0\0\0\xff\xff\0\0\xf0\x01\0\0\0\0\0\0\0\0\xf5\x01\0\0\0\0\0\0\xf9\x01\0\0\0\0\0\0\xfc\x01\0\0\0\0\0\0\xff\xff\0\0\x02\x02\x04\x02\0\0\x05\x02\x06\x02\x07\x02\b\x02\t\x02\n\x02\x0b\x02\f\x02\r\x02\x0e\x02\x0f\x02\x10\x02\x11\x02\x12\x02\x13\x02\x14\x02\x15\x02\x16\x02\x17\x02\x18\x02\x19\x02\x1a\x02\x1b\x02\x1c\x02\x1d\x02\x1e\x02\x1f\x02 \x02!\x02\x03\x02"), - caml_new_string - ("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x03\0\x04\0\0\0\x03\0\x03\0\x86\0\0\0\x03\0\0\0\x86\0E\x01\x92\x01\xff\xff\0\0E\x01\x92\x01\0\0\0\0\0\0\0\0\x7f\0\x8b\0\0\0\x03\0\0\0\f\0\x03\0\xaa\0\x86\0\xaf\0\0\0\x07\0\x0b\x01E\x01\x92\x01\x0e\x01\r\x001\0\x05\0\n\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\x008\0v\0\x06\0\x81\0\x82\x009\0\xed\x01\x89\0\0\x021\0\0\x000\0\x8a\0j\0>\0\x0e\0n\0i\0\0\x001\0\x0f\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x1e\x000\0\b\0r\0\xd1\0\xec\0\0\x01\r\x01\x1d\0\x16\0\xff\xff0\x000\0\x11\0\x15\0\x19\0 \0!\0#\0\x17\0\x1b\0\x10\0\x1f\0\x1c\0\"\0\x13\0\x18\0\x12\0\x1a\0\x14\0$\0)\0%\x000\0\t\0*\0+\0,\0-\0.\0/\0=\0U\x000\0&\0'\0'\0'\0'\0'\0'\0'\0'\0'\x001\0C\0'\0'\0'\0'\0'\0'\0'\0'\0'\0'\0V\0\x8f\0\xff\xff(\0\x90\0\x91\0\x92\x007\0\x94\x007\0\x95\x000\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\0\xff\xff0\0\x96\0\x97\0\xa1\0B\0\x9e\x005\0\x9f\x005\0\xa0\x003\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\0\xa5\x003\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\0\xa2\0\xa3\0\xa6\0]\0\xff\xff\x02\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\0\xff\xffM\0g\0l\0t\0\x84\0\x86\0\x87\0\x80\0\x8b\0\x86\0\xa4\0]\0\xab\0M\0\xa7\0\xa8\0\xa9\0\xac\0p\0\xad\0\xae\0\xd2\0\xe2\0\xd0\0\xd3\0\xd4\0;\0S\0\x86\0\xd5\0\xd6\0\xd7\0\xd8\0\xda\0\x8d\0\xdb\0]\0\xdc\0\xdd\0{\0\xde\0\xdf\0\xe0\0\x88\0_\0\xe1\0#\x01A\x01\xea\0\x9b\0\x05\x01a\x01\xfa\0\xff\xff\xfe\x009\x01=\x01_\x01M\0,\x01\\\x01X\x01\t\x01\x1d\x01L\0|\0!\x01\x12\x01K\0b\0\x13\x01U\x01V\x01W\x01x\x01Y\x01J\0\xe1\x005\x01y\x01I\0Z\x01H\0G\0N\0N\0N\0N\0N\0N\0N\0N\0N\0N\0b\0q\x01z\0[\x01@\0\x04\x01]\x01N\0N\0N\0N\0N\0N\0O\0O\0O\0O\0O\0O\0O\0O\0O\0O\0\x9c\0p\x01^\x01`\x01b\x01c\x011\x01O\0O\0O\0O\0O\0O\0d\x01\x9d\0e\x01N\0N\0N\0N\0N\0N\0\xb7\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\x18\x01p\x01\xff\xff\x19\x01f\x01g\x01i\x01O\0O\0O\0O\0O\0O\0P\0P\0P\0P\0P\0P\0P\0P\0P\0P\0j\x01k\x010\x01(\x01l\x01m\x01n\x01P\0P\0P\0P\0P\0P\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0o\x01\x1b\x01\xff\xff\xab\x01\x1f\x01\xaa\x01\x17\x01Q\0Q\0Q\0Q\0Q\0Q\0\\\0\xa8\x01?\x01P\0P\0P\0P\0P\0P\0\xf8\0\xa5\x01\xfc\0\xa2\x01;\x01E\0W\0W\0W\0W\0W\0W\0W\0W\0W\0W\0\xff\xffQ\0Q\0Q\0Q\0Q\0Q\0W\0W\0W\0W\0W\0W\0X\0X\0X\0X\0X\0X\0X\0X\0X\0X\0'\x01*\x01\xff\xff\xa3\x01\xa4\x01x\0\x02\x01X\0X\0X\0X\0X\0X\0\xa6\x017\x01\x99\0W\0W\0W\0W\0W\0W\0\x07\x01\xa7\x01\xa4\x01\xa9\x01\x10\x01\xa4\x01Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\x003\x01X\0X\0X\0X\0X\0X\0Y\0Y\0Y\0Y\0Y\0Y\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0a\0\x89\x01\xa4\x01\xac\x01\xb9\x01\x88\x01\xad\x01Z\0Z\0Z\0Z\0Z\0Z\0a\0\xb3\0\xae\x01Y\0Y\0Y\0Y\0Y\0Y\0.\x01\xaf\x01\xb0\x01\xb4\0\xa4\x01\xb8\x01\xb5\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0|\x01Z\0Z\0Z\0Z\0Z\0Z\0\xc0\x01\xb2\x01\x15\x01\xb3\x01a\0\xc1\x01\xb4\x01\xb5\x01\xb6\x01\xb7\x01\xa4\x01\xd8\x01\xff\xffa\0\xb8\x01\xd8\x01\xd1\x01a\0\xdf\x01a\0\xd0\x01\xe6\x01\x03\x02a\0\xdb\x01%\x01\xd8\x01\xd9\x01\x03\x02\xdc\x01\xd8\x01a\0\x03\x02\x03\x02\xd8\x01a\0\x03\x02a\0`\0c\0c\0c\0c\0c\0c\0c\0c\0c\0c\0\xd8\x01\x03\x02~\x01\x03\x02\x03\x02\x03\x02\x03\x02c\0c\0c\0c\0c\0c\0a\0\x03\x02\xda\x01\xfa\x01\x03\x02\x03\x02a\0\x03\x02|\x01|\x01a\0\x03\x02\xdd\x01\x03\x02\xfd\x01\x03\x02\x03\x02\x03\x02a\0\xff\xff\x03\x02\xc4\x01a\0\x03\x02a\0`\0c\0c\0c\0c\0c\0c\0d\0d\0d\0d\0d\0d\0d\0d\0d\0d\0\xeb\x01\x03\x02\xf1\x01\x03\x02\xff\x01\xf2\x01\x03\x02d\0d\0d\0d\0d\0d\0e\0e\0e\0e\0e\0e\0e\0e\0e\0e\0\xf6\x01\x81\x01\x81\x01\xe4\x01\x03\x02\xc4\x01\x03\x02e\0e\0e\0e\0e\0e\0\x03\x02\xc6\x01\x03\x02d\0d\0d\0d\0d\0d\0\x03\x02\x03\x02\x03\x02\xc4\x01\xea\x01\x86\x01a\0a\0a\0a\0a\0a\0a\0a\0a\0a\0\0\0e\0e\0e\0e\0e\0e\0a\0a\0a\0a\0a\0a\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\0\0\0\0\xc9\x01\xb1\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xbc\0\0\0a\0a\0a\0a\0a\0a\0\xc9\x01\xe3\x01\0\0\xbf\0\xce\x01{\x01\xbd\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbd\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xc3\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc6\0\xff\xff\xf8\x01\xc4\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc4\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xca\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xcd\0\xff\xff\xff\xff\xcb\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe2\0\xc3\x01\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe8\x01\0\0\0\0\xce\0\xdd\x01\xef\x01\xfe\x01\0\0\xcf\0\xf4\x01\0\0\xe1\0\xcb\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe8\0\0\0\xe8\0\0\0\xe1\x01\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xd9\0\xff\xff\0\0\0\0\0\0\0\0\xe1\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\0\0\0\0\0\0\0\0\xff\xff\0\0\0\0\xe6\0\0\0\xe6\0\0\0\xe4\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\0\0\xe4\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xba\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\0\0\0\0\0\0\0\0\0\0\xf1\0\0\0q\x01\0\0M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01\0\0p\x01\0\0\0\0\xc1\0\0\0\0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0p\x01\0\0\0\0\0\0\xf0\0\xc8\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\0\0\xf6\0\0\0\0\0\xf0\0\0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\0\0\0\0\0\0\0\0\xf5\0\0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xee\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\0\0\0\0\0\0\0\0\xf5\0\0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0E\x01F\x01\0\0\0\0E\x01L\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0E\x01\0\0N\x01\0\0\0\0\0\0\0\0h\x01I\x01\0\0\0\0\0\0\0\0O\x01\0\0G\x01L\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01\0\0\0\0H\x01\0\0\0\0\0\0\0\0\0\0\xf3\0\0\0\0\0\0\0\0\0\0\0\0\0P\x01w\x01\0\0w\x01\0\0Q\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01\0\0\0\0J\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01S\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0R\x01\0\0\0\0s\x01\0\0\0\0T\x01\0\0\0\0u\x01\0\0u\x01\0\0K\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01\0\0s\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01\0\0\x80\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\0\0\0\0\x80\x01\0\0\0\0\0\0\x80\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\0\0\0\0\0\0\0\0\0\0\0\0\x80\x01\0\0\0\0\xb9\x01\0\0\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\0\0\0\0\0\0\0\0\0\0\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\xb8\x01\0\0\x80\x01\0\0\0\0\0\0\0\0\0\0\x80\x01\0\0\0\0\0\0\x80\x01\0\0\0\0\0\0\0\0\0\0\0\0\x80\x01\x80\x01\0\0\0\0D\x01\x80\x01\x80\x01\x80\x01\x7f\x01\0\0\x80\x01\0\0\0\0\xb8\x01\0\0\0\0\0\0\0\0\x80\x01\0\0\0\0\0\0\x80\x01\0\0\x80\x01\x7f\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\0\0\0\0\0\0\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\0\0\0\0\0\0\0\0\0\0\0\0\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\0\0\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\xbf\x01\x8e\x01\xbf\x01\0\0\0\0\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\0\0\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\0\0\0\0\0\0\0\0\x8d\x01\0\0\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\0\0\0\0\0\0\0\0\x8d\x01\0\0\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x92\x01\x93\x01\0\0\0\0\x92\x01\x9a\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\x92\x01\0\0\x99\x01\0\0\0\0\0\0\0\0\xb1\x01\x96\x01\0\0\0\0\0\0\xc8\x01\x9c\x01\0\0\x94\x01\x9a\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\0\0\0\0\x95\x01\0\0\0\0\0\0\0\0\0\0\0\0\x8b\x01\0\0\0\0\0\0\0\0\0\0\x9d\x01\0\0\0\0\0\0\0\0\x9e\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xc8\x01\0\0\x97\x01\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\xc8\x01\xbb\x01\0\0\xa0\x01\0\0\0\0\0\0\0\0\xc8\x01\0\0\0\0\x9f\x01\xc8\x01\0\0\xc8\x01\xc7\x01\0\0\xa1\x01\0\0\0\0\0\0\0\0\0\0\0\0\x98\x01\0\0\0\0\0\0\0\0\xbd\x01\0\0\xbd\x01\0\0\xbb\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xc8\x01\0\0\0\0\0\0\0\0\0\0\0\0\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xc8\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\0\0\x91\x01\xc8\x01\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\xc8\x01\0\0\xc8\x01\xc7\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\0\0\0\0\0\0\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\0\0\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\0\0\xd6\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\xd5\x01\0\0\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\xd5\x01\0\0\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xd3\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"), - caml_new_string - ("\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\0\0\xff\xff\x03\0\0\0\x86\0\xff\xff\x03\0\xff\xff\x86\0E\x01\x92\x019\0\xff\xffE\x01\x92\x01\xff\xff\xff\xff\xff\xff\xff\xff}\0\x8a\0\xff\xff\0\0\xff\xff\0\0\x03\0\xa9\0\x86\0\xae\0\xff\xff\0\0\n\x01E\x01\x92\x01\f\x01\0\0\n\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x05\0s\0\0\0}\0\x81\0\x05\0\xec\x01\x88\0\xff\x01&\0\xff\xff\n\0\x88\0f\0:\0\0\0k\0f\0\xff\xff\x0b\0\0\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x1d\0&\0\0\0o\0\xd0\0\xe9\0\xff\0\f\x01\x0f\0\x11\0<\0\x0b\0\n\0\0\0\x14\0\x18\0\x1f\0 \0\"\0\x16\0\x1a\0\0\0\x0e\0\x1b\0!\0\x12\0\x17\0\0\0\x10\0\x13\0#\0(\0$\0&\0\0\0)\0*\0+\0,\0-\0.\0:\0R\0\x0b\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0'\0?\0'\0'\0'\0'\0'\0'\0'\0'\0'\0'\0U\0\x8c\0<\0\r\0\x8f\0\x90\0\x91\x000\0\x93\x000\0\x94\0'\x000\x000\x000\x000\x000\x000\x000\x000\x000\x000\x001\x001\x001\x001\x001\x001\x001\x001\x001\x001\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\0A\0'\0\x95\0\x96\0\x9c\0?\0\x9d\x003\0\x9e\x003\0\x9f\x002\x003\x003\x003\x003\x003\x003\x003\x003\x003\x003\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x005\x005\x005\x005\x005\x005\x005\x005\x005\x005\0\x9b\x002\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\0\xa1\0\xa2\0\x9b\0[\0A\0\0\x007\x007\x007\x007\x007\x007\x007\x007\x007\x007\x009\0D\0f\0k\0s\0\x83\0\x85\0\x85\0}\0\x8a\0\x85\0\xa3\0^\0\xa5\0D\0\xa6\0\xa7\0\xa8\0\xab\0o\0\xac\0\xad\0\xce\0\xcb\0\xcf\0\xd2\0\xd3\0:\0R\0\x85\0\xd4\0\xd5\0\xd6\0\xd7\0\xd9\0\x8c\0\xda\0a\0\xdb\0\xdc\0w\0\xdd\0\xde\0\xdf\0\x85\0[\0\xcb\0\"\x01>\x01\xe9\0\x98\0\x01\x01P\x01\xf7\0<\0\xfb\x006\x01:\x01Q\x01D\0)\x01R\x01S\x01\x06\x01\x1a\x01D\0w\0\x1e\x01\x0f\x01D\0^\0\x0f\x01T\x01U\x01V\x01G\x01X\x01D\0\xcb\x002\x01G\x01D\0Y\x01D\0D\0G\0G\0G\0G\0G\0G\0G\0G\0G\0G\0a\0L\x01w\0Z\x01?\0\x01\x01\\\x01G\0G\0G\0G\0G\0G\0N\0N\0N\0N\0N\0N\0N\0N\0N\0N\0\x98\0L\x01]\x01_\x01a\x01b\x01-\x01N\0N\0N\0N\0N\0N\0c\x01\x98\0d\x01G\0G\0G\0G\0G\0G\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\x14\x01L\x01A\0\x14\x01e\x01f\x01h\x01N\0N\0N\0N\0N\0N\0O\0O\0O\0O\0O\0O\0O\0O\0O\0O\0i\x01j\x01-\x01$\x01k\x01l\x01m\x01O\0O\0O\0O\0O\0O\0P\0P\0P\0P\0P\0P\0P\0P\0P\0P\0n\x01\x1a\x01y\x01\x9d\x01\x1e\x01\x9e\x01\x14\x01P\0P\0P\0P\0P\0P\0[\0\x9f\x01>\x01O\0O\0O\0O\0O\0O\0\xf7\0\xa0\x01\xfb\0\xa1\x01:\x01D\0V\0V\0V\0V\0V\0V\0V\0V\0V\0V\0^\0P\0P\0P\0P\0P\0P\0V\0V\0V\0V\0V\0V\0W\0W\0W\0W\0W\0W\0W\0W\0W\0W\0$\x01)\x01a\0\xa2\x01\xa3\x01w\0\x01\x01W\0W\0W\0W\0W\0W\0\xa5\x016\x01\x98\0V\0V\0V\0V\0V\0V\0\x06\x01\xa6\x01\xa7\x01\xa8\x01\x0f\x01\xa9\x01X\0X\0X\0X\0X\0X\0X\0X\0X\0X\x002\x01W\0W\0W\0W\0W\0W\0X\0X\0X\0X\0X\0X\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0_\0\x85\x01\xaa\x01\xab\x01\x9a\x01\x85\x01\xac\x01Y\0Y\0Y\0Y\0Y\0Y\0_\0\xb0\0\xad\x01X\0X\0X\0X\0X\0X\0-\x01\xae\x01\xaf\x01\xb0\0\xb0\x01\x9a\x01\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0z\x01Y\0Y\0Y\0Y\0Y\0Y\0\x94\x01\xb1\x01\x14\x01\xb2\x01b\0\x94\x01\xb3\x01\xb4\x01\xb5\x01\xb6\x01\xb7\x01\xd8\x01\xc1\x01_\0\x9a\x01\xd8\x01\xcd\x01b\0\xde\x01_\0\xcd\x01\xe5\x01\x01\x02_\0\xda\x01$\x01\xd7\x01\xd7\x01\x02\x02\xda\x01\xd7\x01_\0\x04\x02\x05\x02\xd8\x01_\0\x06\x02_\0_\0`\0`\0`\0`\0`\0`\0`\0`\0`\0`\0\xd7\x01\x07\x02z\x01\b\x02\t\x02\n\x02\x0b\x02`\0`\0`\0`\0`\0`\0b\0\f\x02\xd7\x01\xf7\x01\r\x02\x0e\x02b\0\x0f\x02}\x01\x80\x01b\0\x10\x02\xdc\x01\x11\x02\xfb\x01\x12\x02\x13\x02\x14\x02b\0y\x01\x15\x02\xc2\x01b\0\x16\x02b\0b\0`\0`\0`\0`\0`\0`\0c\0c\0c\0c\0c\0c\0c\0c\0c\0c\0\xe7\x01\x17\x02\xee\x01\x18\x02\xfb\x01\xee\x01\x19\x02c\0c\0c\0c\0c\0c\0d\0d\0d\0d\0d\0d\0d\0d\0d\0d\0\xf3\x01}\x01\x80\x01\xe0\x01\x1a\x02\xc5\x01\x1b\x02d\0d\0d\0d\0d\0d\0\x1c\x02\xc2\x01\x1d\x02c\0c\0c\0c\0c\0c\0\x1e\x02\x1f\x02 \x02\xc8\x01\xe7\x01\x85\x01e\0e\0e\0e\0e\0e\0e\0e\0e\0e\0\xff\xffd\0d\0d\0d\0d\0d\0e\0e\0e\0e\0e\0e\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xff\xff\xff\xff\xc5\x01\xb0\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb9\0\xff\xffe\0e\0e\0e\0e\0e\0\xc8\x01\xe0\x01\xff\xff\xb9\0\xcd\x01z\x01\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xc0\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc0\0\xc1\x01\xf7\x01\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc7\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xc7\0}\x01\x80\x01\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xcc\0\xc2\x01\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe7\x01\xff\xff\xff\xff\xc7\0\xdc\x01\xee\x01\xfb\x01\xff\xff\xc7\0\xf3\x01\xff\xff\xcc\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xe1\0\xff\xff\xe1\0\xff\xff\xe0\x01\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xcd\0\xc5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xcc\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xff\xff\xff\xff\xff\xff\xff\xff\xc8\x01\xff\xff\xff\xff\xe4\0\xff\xff\xe4\0\xff\xff\xe3\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xff\xff\xe3\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xb9\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xed\0\xff\xffM\x01\xff\xffM\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01\xff\xffM\x01\xff\xff\xff\xff\xc0\0\xff\xff\xff\xff\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0M\x01\xff\xff\xff\xff\xff\xff\xed\0\xc7\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xff\xff\xf2\0\xff\xff\xff\xff\xf0\0\xff\xff\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xff\xff\xff\xff\xff\xff\xff\xff\xf2\0\xff\xff\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xed\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xff\xff\xff\xff\xff\xff\xff\xff\xf5\0\xff\xff\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0B\x01B\x01\xff\xff\xff\xffB\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffB\x01\xff\xffB\x01\xff\xff\xff\xff\xff\xff\xff\xffO\x01B\x01\xff\xff\xff\xff\xff\xff\xff\xffB\x01\xff\xffB\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01\xff\xff\xff\xffB\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf2\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffB\x01p\x01\xff\xffp\x01\xff\xffB\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01\xff\xff\xff\xffB\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01B\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffB\x01\xff\xff\xff\xffr\x01\xff\xff\xff\xffB\x01\xff\xff\xff\xffs\x01\xff\xffs\x01\xff\xffB\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01\xff\xffr\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01\xff\xff~\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\xff\xff\xff\xff~\x01\xff\xff\xff\xff\xff\xff\x81\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x81\x01\xff\xff\xff\xff\x9b\x01\xff\xff\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x9b\x01\xff\xff~\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff~\x01\xff\xff\xff\xff\xff\xff~\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x81\x01~\x01\xff\xff\xff\xffB\x01~\x01\x81\x01~\x01~\x01\xff\xff\x81\x01\xff\xff\xff\xff\x9b\x01\xff\xff\xff\xff\xff\xff\xff\xff\x81\x01\xff\xff\xff\xff\xff\xff\x81\x01\xff\xff\x81\x01\x81\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\xff\xff\xff\xff\xff\xff\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\xff\xff\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\xb8\x01\x8a\x01\xb8\x01\xff\xff\xff\xff\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xff\xff\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8a\x01\xff\xff\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8d\x01\xff\xff\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8f\x01\x8f\x01\xff\xff\xff\xff\x8f\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc6\x01\x8f\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\x9c\x01\x8f\x01\xff\xff\xff\xff\xff\xff\xc6\x01\x8f\x01\xff\xff\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\xff\xff\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8a\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xc6\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xc6\x01\xff\xff\xff\xff\xff\xff\xc6\x01\xba\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xc6\x01\xff\xff\xff\xff\x8f\x01\xc6\x01\xff\xff\xc6\x01\xc6\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xbb\x01\xff\xff\xbb\x01\xff\xff\xba\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xc9\x01\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xc9\x01\xc9\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xff\xff\xff\xff\xff\xff\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xff\xff\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xff\xff\xd2\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xff\xff\xff\xff\xff\xff\xff\xff\xd2\x01\xff\xff\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xd5\x01\xff\xff\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xd2\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string("")], - cst_Yojson_Basic_Finally=caml_new_string("Yojson.Basic.Finally"), - cst_Yojson_Basic_Util_Type_error= - caml_new_string("Yojson.Basic.Util.Type_error"), - cst_Yojson_Basic_Util_Undefined= - caml_new_string("Yojson.Basic.Util.Undefined"), - cst_Yojson_Safe_Int_overflow=caml_new_string("Yojson.Safe.Int_overflow"), - ocaml_lex_tables$0= - [0, - caml_new_string - ("\0\0\xec\xff\xed\xff\x03\0\xef\xff\x10\0\xf2\xff\xf3\xff\xf4\xff\xf5\xff\0\0\x1f\0\xf9\xffU\0\x01\0\0\0\0\0\x01\0\0\0\x01\0\x02\0\xff\xff\0\0\0\0\x03\0\xfe\xff\x01\0\x04\0\xfd\xff\x0b\0\xfc\xff\x03\0\x01\0\x03\0\x02\0\x03\0\0\0\xfb\xff\x15\0a\0\n\0\x16\0\x14\0\x10\0\x16\0\f\0\b\0\xfa\xffw\0\x81\0\x8b\0\xa1\0\xab\0\xb5\0\xc1\0\xd1\0\xf0\xff\x0b\0&\0\xfc\xffA\0\xfe\xff\xff\xffn\0\xfc\xff\xa3\0\xfe\xff\xff\xff\xea\0\xf7\xff\xf8\xff0\x01\xfa\xff\xfb\xff\xfc\xff\xfd\xff\xfe\xff\xff\xffG\x01~\x01\x95\x01\xf9\xff'\0\xfd\xff\xfe\xff&\0\xbb\x01\xd2\x01\xf8\x01\x0f\x02\xff\xff\xdc\0\xfd\xff\xff\xff\xf5\0'\x02m\x02\x0e\x01X\x02\xa4\x02\xbb\x02\xe1\x02\r\0\xfc\xff\xfd\xff\xfe\xff\xff\xff\x0e\0\xfd\xff\xfe\xff\xff\xff\x1e\0\xfd\xff\xfe\xff\xff\xff\x0f\0\xfd\xff\xfe\xff\xff\xff\x11\x01\xfb\xff\xfc\xff\xfd\xff\xfe\xff\xff\xff\x13\0\xfc\xff\xfd\xff\xfe\xff\x0f\0\xff\xff\x10\0\xff\xff\b\x01\x05\0\xfd\xff\x17\0\xfe\xff\x14\0\xff\xff.\0\xfd\xff\xfe\xff*\x004\x005\0\xff\xff5\x000\0[\0\\\0\xff\xff\x1b\x01\xfa\xff\xfb\xff\x89\0h\0Y\0X\0j\0\xff\xff\x8f\0\x89\0\xb1\0\xfe\xff\xb7\0\xa8\0\xa6\0\xb7\0\x02\0\xfd\xff\xb1\0\xac\0\xbb\0\x04\0\xfc\xff5\x02\xfb\xff\xfc\xff\xfd\xffg\x01\xff\xff\xf8\x02\xfe\xff\x06\x03\x1e\x03\xfc\xff\xfd\xff\xfe\xff\xff\xff(\x032\x03J\x03\xfc\xff\xfd\xff\xfe\xff\xff\xff=\x03T\x03l\x03\xf9\xff\xfa\xff\xfb\xff\xf4\0x\x03\x8e\x03\xb3\0\xc2\0\x0f\0\xff\xff\xbe\0\xbc\0\xbb\0\xc1\0\xb7\0\xb3\0\xfe\xff\xbf\0\xc9\0\xc8\0\xc4\0\xcb\0\xc1\0\xbd\0\xfd\xff\x9d\x03_\x03\xae\x03\xc4\x03\xce\x03\xd8\x03\xe4\x03\xef\x03<\0\xfd\xff\xfe\xff\xff\xff\f\x04\xfc\xff\xfd\xffW\x04\xff\xff\x91\x04\xfc\xff\xfd\xff\xdd\x04\xff\xff\xe5\0\xfd\xff\xfe\xff\xff\xff\xe7\0\xfd\xff\xfe\xff\xff\xff\x02\0\xff\xff\x12\x01\xfc\xff\xfd\xff\xfe\xff\xff\xff\"\x01\xfd\xff\xfe\xff\xff\xff\0\0\xff\xff\x03\0\xfe\xff\xff\xff&\x01\xfc\xff\xfd\xff\xfe\xff\xff\xffx\x01\xfb\xff\xfc\xff\xfd\xff\xfe\xff\xff\xff\xd0\0\xfd\xff\xfe\xff\xff\xff\xd3\0\xfd\xff\xfe\xff\xff\xff\xbd\0\xff\xff\x8f\x01\xfc\xff\xfd\xff\xfe\xff\xff\xff\r\x01\xfd\xff\xfe\xff\xff\xff_\x01\xfc\xff\xfd\xff\xfe\xff\xff\xff2\x01\xfd\xff\xfe\xff\xff\xff\x1a\x01\xfd\xff\xfe\xff\xff\xff\xe9\0\xfd\xff\xfe\xff\xff\xff\xde\0\xfd\xff\xfe\xff\xff\xffO\x05\xed\xff\xee\xff\n\0\xf0\xff,\x01\xf3\xff\xf4\xff\xf5\xff\xf6\xff=\x01\x02\x04\xf9\xff-\x05\xd1\0\xe4\0\xd3\0\xe8\0\xe1\0\xdf\0\xf0\0\xff\xff\xeb\0\xea\0\b\x01\xfe\xff\x04\x01\x17\x01\xfd\xff6\x01\xfc\xff\x1f\x01\x1d\x01 \x01'\x011\x01-\x01\xfb\xff9\x01R\x01P\x01N\x01T\x01J\x01V\x01\xfa\xffn\x05\f\x04{\x05\x9b\x05\xa5\x05\xb1\x05\xbb\x05\xc5\x05\xf1\xff\xc7\x01M\x02\xfd\xff\xff\xff\x9a\x02\xde\x05\xd1\x05\x9b\x02\xef\x055\x06L\x06r\x06\x10\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\x98\x06\xfc\xff\xfd\xff\xe3\x06\xff\xffU\x07\xf4\xff\xf5\xff\x0b\0\xf7\xffL\x02\xfa\xff\xfb\xff\xfc\xff\xfd\xff\xfe\xff\x1f\x02\xf3\x053\x07d\x01s\x01h\x01\x85\x01v\x01\x9a\x01\xab\x01\xff\xff\xad\x01\xb0\x01\xbf\x01\xb9\x01\xbb\x01\xfd\x01\xe6\x01\xe6\x01\xea\x01\xf7\x01\xed\x01\xea\x01\t\x02\x13\x02\x13\x02\x0f\x02\x15\x02\x0b\x02\x07\x02\x8e\x06\x98\x06t\x07\xaa\x07\xb4\x07\xbe\x07\xc8\x07\xd2\x07\xf8\xffx\x02\xa7\x02\xfd\xff\xff\xff\xd8\x02R\x07\xdc\x07\xec\x02\xf4\x07:\bQ\bw\bL\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\x9d\b\xfc\xff\xfd\xff\xe8\b\xff\xff\x87\x02x\x02\xfd\xffd\x02\xfe\xff\xb6\x02\xff\xff\x0b\x02\xff\xff\xcc\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff.\x02\xff\xff\xb2\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\x17\0\xff\xff\xb7\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\xbb\x02\xfd\xff\xfe\xff\xff\xffy\x02\xfd\xff\xfe\xff\xff\xff\xb8\x02\xfc\xff\xfd\xff\xfe\xff\x13\0\xff\xff\x8c\x01\x92\x01\xff\xff\x96\x01\x97\x01\x9a\x01\xa8\x01\xaa\x01\xab\x01\xac\x01\xad\x01\xb5\x01\xb8\x01\xb9\x01\xbb\x01\xbf\x01\xc1\x01\xc3\x01\xc4\x01\xc5\x01\xc8\x01\xcb\x01\xdf\x01\xe1\x01\xe4\x01\xf9\x01\xfb\x01\x02\x02\x04\x02\x0b\x02\f\x02\r\x02\0\0"), - caml_new_string - ("\xff\xff\xff\xff\xff\xff\x11\0\xff\xff\x13\0\xff\xff\xff\xff\xff\xff\xff\xff\x07\0\x07\0\xff\xff\x13\0\x13\0\x13\0\x13\0\x13\0\x13\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\b\0\b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\t\0\xff\xff\t\0\xff\xff\t\0\xff\xff\xff\xff\x0e\0\xff\xff\xff\xff\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x07\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\x01\0\xff\xff\x04\0\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x04\0\x04\0\x04\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\0\0\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\x03\0\x05\0\x05\0\x05\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\x03\0\xff\xff\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x10\0\xff\xff\x12\0\xff\xff\xff\xff\xff\xff\xff\xff\x07\0\x07\0\xff\xff\x12\0\x12\0\x12\0\x12\0\x12\0\x12\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\b\0\xff\xff\b\0\xff\xff\b\0\xff\xff\xff\xff\r\0\xff\xff\xff\xff\xff\xff\x01\0\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\t\0\xff\xff\x0b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\0\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\x06\0\xff\xff\xff\xff\xff\xff\x01\0\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\x04\0\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"), - caml_new_string - ("\x01\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\x009\0<\0\0\0<\0\0\0\0\0A\0\0\0A\0\0\0\0\0F\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\0\0T\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0^\0\0\0\0\0a\0\xff\xff\xff\xffa\0\xff\xff\xff\xff\xff\xff\xff\xffh\0\0\0\0\0\0\0\0\0m\0\0\0\0\0\0\0q\0\0\0\0\0\0\0u\0\0\0\0\0\0\0y\0\0\0\0\0\0\0\0\0\0\0~\0\0\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\x8a\0\0\0\x8e\0\0\0\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\x9a\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xb2\0\0\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\xff\xff\xbb\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xc2\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xc9\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xeb\0\0\0\0\0\0\0\xef\0\0\0\0\0\xff\xff\0\0\xf4\0\0\0\0\0\xff\xff\0\0\xf9\0\0\0\0\0\0\0\xfd\0\0\0\0\0\0\0\xff\xff\0\0\x03\x01\0\0\0\0\0\0\0\0\b\x01\0\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\x11\x01\0\0\0\0\0\0\0\0\x16\x01\0\0\0\0\0\0\0\0\0\0\x1c\x01\0\0\0\0\0\0 \x01\0\0\0\0\0\0\xff\xff\0\0&\x01\0\0\0\0\0\0\0\0+\x01\0\0\0\0\0\0/\x01\0\0\0\0\0\0\0\x004\x01\0\0\0\0\0\x008\x01\0\0\0\0\0\0<\x01\0\0\0\0\0\0@\x01\0\0\0\0\0\0C\x01\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0y\x01}\x01\0\0\0\0\x80\x01\xff\xff\xff\xff\x80\x01\xff\xff\xff\xff\xff\xff\xff\xff\x87\x01\0\0\0\0\0\0\0\0\x8c\x01\0\0\0\0\xff\xff\0\0\x90\x01\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xc1\x01\xc5\x01\0\0\0\0\xc8\x01\xff\xff\xff\xff\xc8\x01\xff\xff\xff\xff\xff\xff\xff\xff\xcf\x01\0\0\0\0\0\0\0\0\xd4\x01\0\0\0\0\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\xdc\x01\0\0\xff\xff\0\0\xe2\x01\0\0\0\0\0\0\0\0\xff\xff\0\0\xe9\x01\0\0\0\0\0\0\0\0\xff\xff\0\0\xf0\x01\0\0\0\0\0\0\0\0\xf5\x01\0\0\0\0\0\0\xf9\x01\0\0\0\0\0\0\xfc\x01\0\0\0\0\0\0\xff\xff\0\0\x02\x02\x04\x02\0\0\x05\x02\x06\x02\x07\x02\b\x02\t\x02\n\x02\x0b\x02\f\x02\r\x02\x0e\x02\x0f\x02\x10\x02\x11\x02\x12\x02\x13\x02\x14\x02\x15\x02\x16\x02\x17\x02\x18\x02\x19\x02\x1a\x02\x1b\x02\x1c\x02\x1d\x02\x1e\x02\x1f\x02 \x02!\x02\x03\x02"), - caml_new_string - ("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x03\0\x04\0\0\0\x03\0\x03\0\x86\0\0\0\x03\0\0\0\x86\0E\x01\x92\x01\xff\xff\0\0E\x01\x92\x01\0\0\0\0\0\0\0\0\x7f\0\x8b\0\0\0\x03\0\0\0\f\0\x03\0\xaa\0\x86\0\xaf\0\0\0\x07\0\x0b\x01E\x01\x92\x01\x0e\x01\r\x001\0\x05\0\n\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\x008\0v\0\x06\0\x81\0\x82\x009\0\xed\x01\x89\0\0\x021\0\0\x000\0\x8a\0j\0>\0\x0e\0n\0i\0\0\x001\0\x0f\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x1e\x000\0\b\0r\0\xd1\0\xec\0\0\x01\r\x01\x1d\0\x16\0\xff\xff0\x000\0\x11\0\x15\0\x19\0 \0!\0#\0\x17\0\x1b\0\x10\0\x1f\0\x1c\0\"\0\x13\0\x18\0\x12\0\x1a\0\x14\0$\0)\0%\x000\0\t\0*\0+\0,\0-\0.\0/\0=\0U\x000\0&\0'\0'\0'\0'\0'\0'\0'\0'\0'\x001\0C\0'\0'\0'\0'\0'\0'\0'\0'\0'\0'\0V\0\x8f\0\xff\xff(\0\x90\0\x91\0\x92\x007\0\x94\x007\0\x95\x000\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\0\xff\xff0\0\x96\0\x97\0\xa1\0B\0\x9e\x005\0\x9f\x005\0\xa0\x003\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\0\xa5\x003\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\0\xa2\0\xa3\0\xa6\0]\0\xff\xff\x02\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\0\xff\xffM\0g\0l\0t\0\x84\0\x86\0\x87\0\x80\0\x8b\0\x86\0\xa4\0]\0\xab\0M\0\xa7\0\xa8\0\xa9\0\xac\0p\0\xad\0\xae\0\xd2\0\xe2\0\xd0\0\xd3\0\xd4\0;\0S\0\x86\0\xd5\0\xd6\0\xd7\0\xd8\0\xda\0\x8d\0\xdb\0]\0\xdc\0\xdd\0{\0\xde\0\xdf\0\xe0\0\x88\0_\0\xe1\0#\x01A\x01\xea\0\x9b\0\x05\x01a\x01\xfa\0\xff\xff\xfe\x009\x01=\x01_\x01M\0,\x01\\\x01X\x01\t\x01\x1d\x01L\0|\0!\x01\x12\x01K\0b\0\x13\x01U\x01V\x01W\x01x\x01Y\x01J\0\xe1\x005\x01y\x01I\0Z\x01H\0G\0N\0N\0N\0N\0N\0N\0N\0N\0N\0N\0b\0q\x01z\0[\x01@\0\x04\x01]\x01N\0N\0N\0N\0N\0N\0O\0O\0O\0O\0O\0O\0O\0O\0O\0O\0\x9c\0p\x01^\x01`\x01b\x01c\x011\x01O\0O\0O\0O\0O\0O\0d\x01\x9d\0e\x01N\0N\0N\0N\0N\0N\0\xb7\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\x18\x01p\x01\xff\xff\x19\x01f\x01g\x01i\x01O\0O\0O\0O\0O\0O\0P\0P\0P\0P\0P\0P\0P\0P\0P\0P\0j\x01k\x010\x01(\x01l\x01m\x01n\x01P\0P\0P\0P\0P\0P\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0o\x01\x1b\x01\xff\xff\xab\x01\x1f\x01\xaa\x01\x17\x01Q\0Q\0Q\0Q\0Q\0Q\0\\\0\xa8\x01?\x01P\0P\0P\0P\0P\0P\0\xf8\0\xa5\x01\xfc\0\xa2\x01;\x01E\0W\0W\0W\0W\0W\0W\0W\0W\0W\0W\0\xff\xffQ\0Q\0Q\0Q\0Q\0Q\0W\0W\0W\0W\0W\0W\0X\0X\0X\0X\0X\0X\0X\0X\0X\0X\0'\x01*\x01\xff\xff\xa3\x01\xa4\x01x\0\x02\x01X\0X\0X\0X\0X\0X\0\xa6\x017\x01\x99\0W\0W\0W\0W\0W\0W\0\x07\x01\xa7\x01\xa4\x01\xa9\x01\x10\x01\xa4\x01Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\x003\x01X\0X\0X\0X\0X\0X\0Y\0Y\0Y\0Y\0Y\0Y\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0a\0\x89\x01\xa4\x01\xac\x01\xb9\x01\x88\x01\xad\x01Z\0Z\0Z\0Z\0Z\0Z\0a\0\xb3\0\xae\x01Y\0Y\0Y\0Y\0Y\0Y\0.\x01\xaf\x01\xb0\x01\xb4\0\xa4\x01\xb8\x01\xb5\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0|\x01Z\0Z\0Z\0Z\0Z\0Z\0\xc0\x01\xb2\x01\x15\x01\xb3\x01a\0\xc1\x01\xb4\x01\xb5\x01\xb6\x01\xb7\x01\xa4\x01\xd8\x01\xff\xffa\0\xb8\x01\xd8\x01\xd1\x01a\0\xdf\x01a\0\xd0\x01\xe6\x01\x03\x02a\0\xdb\x01%\x01\xd8\x01\xd9\x01\x03\x02\xdc\x01\xd8\x01a\0\x03\x02\x03\x02\xd8\x01a\0\x03\x02a\0`\0c\0c\0c\0c\0c\0c\0c\0c\0c\0c\0\xd8\x01\x03\x02~\x01\x03\x02\x03\x02\x03\x02\x03\x02c\0c\0c\0c\0c\0c\0a\0\x03\x02\xda\x01\xfa\x01\x03\x02\x03\x02a\0\x03\x02|\x01|\x01a\0\x03\x02\xdd\x01\x03\x02\xfd\x01\x03\x02\x03\x02\x03\x02a\0\xff\xff\x03\x02\xc4\x01a\0\x03\x02a\0`\0c\0c\0c\0c\0c\0c\0d\0d\0d\0d\0d\0d\0d\0d\0d\0d\0\xeb\x01\x03\x02\xf1\x01\x03\x02\xff\x01\xf2\x01\x03\x02d\0d\0d\0d\0d\0d\0e\0e\0e\0e\0e\0e\0e\0e\0e\0e\0\xf6\x01\x81\x01\x81\x01\xe4\x01\x03\x02\xc4\x01\x03\x02e\0e\0e\0e\0e\0e\0\x03\x02\xc6\x01\x03\x02d\0d\0d\0d\0d\0d\0\x03\x02\x03\x02\x03\x02\xc4\x01\xea\x01\x86\x01a\0a\0a\0a\0a\0a\0a\0a\0a\0a\0\0\0e\0e\0e\0e\0e\0e\0a\0a\0a\0a\0a\0a\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\0\0\0\0\xc9\x01\xb1\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xbc\0\0\0a\0a\0a\0a\0a\0a\0\xc9\x01\xe3\x01\0\0\xbf\0\xce\x01{\x01\xbd\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbd\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xc3\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc6\0\xff\xff\xf8\x01\xc4\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc4\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xca\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xcd\0\xff\xff\xff\xff\xcb\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe2\0\xc3\x01\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe8\x01\0\0\0\0\xce\0\xdd\x01\xef\x01\xfe\x01\0\0\xcf\0\xf4\x01\0\0\xe1\0\xcb\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe8\0\0\0\xe8\0\0\0\xe1\x01\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xd9\0\xff\xff\0\0\0\0\0\0\0\0\xe1\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\0\0\0\0\0\0\0\0\xff\xff\0\0\0\0\xe6\0\0\0\xe6\0\0\0\xe4\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\0\0\xe4\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xba\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\0\0\0\0\0\0\0\0\0\0\xf1\0\0\0q\x01\0\0M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01\0\0p\x01\0\0\0\0\xc1\0\0\0\0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0p\x01\0\0\0\0\0\0\xf0\0\xc8\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\0\0\xf6\0\0\0\0\0\xf0\0\0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\0\0\0\0\0\0\0\0\xf5\0\0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xee\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\0\0\0\0\0\0\0\0\xf5\0\0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0E\x01F\x01\0\0\0\0E\x01L\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0E\x01\0\0N\x01\0\0\0\0\0\0\0\0h\x01I\x01\0\0\0\0\0\0\0\0O\x01\0\0G\x01L\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01\0\0\0\0H\x01\0\0\0\0\0\0\0\0\0\0\xf3\0\0\0\0\0\0\0\0\0\0\0\0\0P\x01w\x01\0\0w\x01\0\0Q\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01\0\0\0\0J\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01S\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0R\x01\0\0\0\0s\x01\0\0\0\0T\x01\0\0\0\0u\x01\0\0u\x01\0\0K\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01\0\0s\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01\0\0\x80\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\0\0\0\0\x80\x01\0\0\0\0\0\0\x80\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\0\0\0\0\0\0\0\0\0\0\0\0\x80\x01\0\0\0\0\xb9\x01\0\0\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\0\0\0\0\0\0\0\0\0\0\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\xb8\x01\0\0\x80\x01\0\0\0\0\0\0\0\0\0\0\x80\x01\0\0\0\0\0\0\x80\x01\0\0\0\0\0\0\0\0\0\0\0\0\x80\x01\x80\x01\0\0\0\0D\x01\x80\x01\x80\x01\x80\x01\x7f\x01\0\0\x80\x01\0\0\0\0\xb8\x01\0\0\0\0\0\0\0\0\x80\x01\0\0\0\0\0\0\x80\x01\0\0\x80\x01\x7f\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\0\0\0\0\0\0\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\0\0\0\0\0\0\0\0\0\0\0\0\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\0\0\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\xbf\x01\x8e\x01\xbf\x01\0\0\0\0\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\0\0\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\0\0\0\0\0\0\0\0\x8d\x01\0\0\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\0\0\0\0\0\0\0\0\x8d\x01\0\0\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x92\x01\x93\x01\0\0\0\0\x92\x01\x9a\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\x92\x01\0\0\x99\x01\0\0\0\0\0\0\0\0\xb1\x01\x96\x01\0\0\0\0\0\0\xc8\x01\x9c\x01\0\0\x94\x01\x9a\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\0\0\0\0\x95\x01\0\0\0\0\0\0\0\0\0\0\0\0\x8b\x01\0\0\0\0\0\0\0\0\0\0\x9d\x01\0\0\0\0\0\0\0\0\x9e\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xc8\x01\0\0\x97\x01\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\xc8\x01\xbb\x01\0\0\xa0\x01\0\0\0\0\0\0\0\0\xc8\x01\0\0\0\0\x9f\x01\xc8\x01\0\0\xc8\x01\xc7\x01\0\0\xa1\x01\0\0\0\0\0\0\0\0\0\0\0\0\x98\x01\0\0\0\0\0\0\0\0\xbd\x01\0\0\xbd\x01\0\0\xbb\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xc8\x01\0\0\0\0\0\0\0\0\0\0\0\0\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xc8\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\0\0\x91\x01\xc8\x01\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\xc8\x01\0\0\xc8\x01\xc7\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\0\0\0\0\0\0\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\0\0\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\0\0\xd6\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\xd5\x01\0\0\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\xd5\x01\0\0\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xd3\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"), - caml_new_string - ("\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\0\0\xff\xff\x03\0\0\0\x86\0\xff\xff\x03\0\xff\xff\x86\0E\x01\x92\x019\0\xff\xffE\x01\x92\x01\xff\xff\xff\xff\xff\xff\xff\xff}\0\x8a\0\xff\xff\0\0\xff\xff\0\0\x03\0\xa9\0\x86\0\xae\0\xff\xff\0\0\n\x01E\x01\x92\x01\f\x01\0\0\n\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x05\0s\0\0\0}\0\x81\0\x05\0\xec\x01\x88\0\xff\x01&\0\xff\xff\n\0\x88\0f\0:\0\0\0k\0f\0\xff\xff\x0b\0\0\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x1d\0&\0\0\0o\0\xd0\0\xe9\0\xff\0\f\x01\x0f\0\x11\0<\0\x0b\0\n\0\0\0\x14\0\x18\0\x1f\0 \0\"\0\x16\0\x1a\0\0\0\x0e\0\x1b\0!\0\x12\0\x17\0\0\0\x10\0\x13\0#\0(\0$\0&\0\0\0)\0*\0+\0,\0-\0.\0:\0R\0\x0b\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0'\0?\0'\0'\0'\0'\0'\0'\0'\0'\0'\0'\0U\0\x8c\0<\0\r\0\x8f\0\x90\0\x91\x000\0\x93\x000\0\x94\0'\x000\x000\x000\x000\x000\x000\x000\x000\x000\x000\x001\x001\x001\x001\x001\x001\x001\x001\x001\x001\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\0A\0'\0\x95\0\x96\0\x9c\0?\0\x9d\x003\0\x9e\x003\0\x9f\x002\x003\x003\x003\x003\x003\x003\x003\x003\x003\x003\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x005\x005\x005\x005\x005\x005\x005\x005\x005\x005\0\x9b\x002\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\0\xa1\0\xa2\0\x9b\0[\0A\0\0\x007\x007\x007\x007\x007\x007\x007\x007\x007\x007\x009\0D\0f\0k\0s\0\x83\0\x85\0\x85\0}\0\x8a\0\x85\0\xa3\0^\0\xa5\0D\0\xa6\0\xa7\0\xa8\0\xab\0o\0\xac\0\xad\0\xce\0\xcb\0\xcf\0\xd2\0\xd3\0:\0R\0\x85\0\xd4\0\xd5\0\xd6\0\xd7\0\xd9\0\x8c\0\xda\0a\0\xdb\0\xdc\0w\0\xdd\0\xde\0\xdf\0\x85\0[\0\xcb\0\"\x01>\x01\xe9\0\x98\0\x01\x01P\x01\xf7\0<\0\xfb\x006\x01:\x01Q\x01D\0)\x01R\x01S\x01\x06\x01\x1a\x01D\0w\0\x1e\x01\x0f\x01D\0^\0\x0f\x01T\x01U\x01V\x01G\x01X\x01D\0\xcb\x002\x01G\x01D\0Y\x01D\0D\0G\0G\0G\0G\0G\0G\0G\0G\0G\0G\0a\0L\x01w\0Z\x01?\0\x01\x01\\\x01G\0G\0G\0G\0G\0G\0N\0N\0N\0N\0N\0N\0N\0N\0N\0N\0\x98\0L\x01]\x01_\x01a\x01b\x01-\x01N\0N\0N\0N\0N\0N\0c\x01\x98\0d\x01G\0G\0G\0G\0G\0G\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\x14\x01L\x01A\0\x14\x01e\x01f\x01h\x01N\0N\0N\0N\0N\0N\0O\0O\0O\0O\0O\0O\0O\0O\0O\0O\0i\x01j\x01-\x01$\x01k\x01l\x01m\x01O\0O\0O\0O\0O\0O\0P\0P\0P\0P\0P\0P\0P\0P\0P\0P\0n\x01\x1a\x01y\x01\x9d\x01\x1e\x01\x9e\x01\x14\x01P\0P\0P\0P\0P\0P\0[\0\x9f\x01>\x01O\0O\0O\0O\0O\0O\0\xf7\0\xa0\x01\xfb\0\xa1\x01:\x01D\0V\0V\0V\0V\0V\0V\0V\0V\0V\0V\0^\0P\0P\0P\0P\0P\0P\0V\0V\0V\0V\0V\0V\0W\0W\0W\0W\0W\0W\0W\0W\0W\0W\0$\x01)\x01a\0\xa2\x01\xa3\x01w\0\x01\x01W\0W\0W\0W\0W\0W\0\xa5\x016\x01\x98\0V\0V\0V\0V\0V\0V\0\x06\x01\xa6\x01\xa7\x01\xa8\x01\x0f\x01\xa9\x01X\0X\0X\0X\0X\0X\0X\0X\0X\0X\x002\x01W\0W\0W\0W\0W\0W\0X\0X\0X\0X\0X\0X\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0_\0\x85\x01\xaa\x01\xab\x01\x9a\x01\x85\x01\xac\x01Y\0Y\0Y\0Y\0Y\0Y\0_\0\xb0\0\xad\x01X\0X\0X\0X\0X\0X\0-\x01\xae\x01\xaf\x01\xb0\0\xb0\x01\x9a\x01\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0z\x01Y\0Y\0Y\0Y\0Y\0Y\0\x94\x01\xb1\x01\x14\x01\xb2\x01b\0\x94\x01\xb3\x01\xb4\x01\xb5\x01\xb6\x01\xb7\x01\xd8\x01\xc1\x01_\0\x9a\x01\xd8\x01\xcd\x01b\0\xde\x01_\0\xcd\x01\xe5\x01\x01\x02_\0\xda\x01$\x01\xd7\x01\xd7\x01\x02\x02\xda\x01\xd7\x01_\0\x04\x02\x05\x02\xd8\x01_\0\x06\x02_\0_\0`\0`\0`\0`\0`\0`\0`\0`\0`\0`\0\xd7\x01\x07\x02z\x01\b\x02\t\x02\n\x02\x0b\x02`\0`\0`\0`\0`\0`\0b\0\f\x02\xd7\x01\xf7\x01\r\x02\x0e\x02b\0\x0f\x02}\x01\x80\x01b\0\x10\x02\xdc\x01\x11\x02\xfb\x01\x12\x02\x13\x02\x14\x02b\0y\x01\x15\x02\xc2\x01b\0\x16\x02b\0b\0`\0`\0`\0`\0`\0`\0c\0c\0c\0c\0c\0c\0c\0c\0c\0c\0\xe7\x01\x17\x02\xee\x01\x18\x02\xfb\x01\xee\x01\x19\x02c\0c\0c\0c\0c\0c\0d\0d\0d\0d\0d\0d\0d\0d\0d\0d\0\xf3\x01}\x01\x80\x01\xe0\x01\x1a\x02\xc5\x01\x1b\x02d\0d\0d\0d\0d\0d\0\x1c\x02\xc2\x01\x1d\x02c\0c\0c\0c\0c\0c\0\x1e\x02\x1f\x02 \x02\xc8\x01\xe7\x01\x85\x01e\0e\0e\0e\0e\0e\0e\0e\0e\0e\0\xff\xffd\0d\0d\0d\0d\0d\0e\0e\0e\0e\0e\0e\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xff\xff\xff\xff\xc5\x01\xb0\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb9\0\xff\xffe\0e\0e\0e\0e\0e\0\xc8\x01\xe0\x01\xff\xff\xb9\0\xcd\x01z\x01\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xc0\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc0\0\xc1\x01\xf7\x01\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc7\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xc7\0}\x01\x80\x01\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xcc\0\xc2\x01\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe7\x01\xff\xff\xff\xff\xc7\0\xdc\x01\xee\x01\xfb\x01\xff\xff\xc7\0\xf3\x01\xff\xff\xcc\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xe1\0\xff\xff\xe1\0\xff\xff\xe0\x01\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xcd\0\xc5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xcc\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xff\xff\xff\xff\xff\xff\xff\xff\xc8\x01\xff\xff\xff\xff\xe4\0\xff\xff\xe4\0\xff\xff\xe3\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xff\xff\xe3\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xb9\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xed\0\xff\xffM\x01\xff\xffM\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01\xff\xffM\x01\xff\xff\xff\xff\xc0\0\xff\xff\xff\xff\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0M\x01\xff\xff\xff\xff\xff\xff\xed\0\xc7\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xff\xff\xf2\0\xff\xff\xff\xff\xf0\0\xff\xff\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xff\xff\xff\xff\xff\xff\xff\xff\xf2\0\xff\xff\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xed\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xff\xff\xff\xff\xff\xff\xff\xff\xf5\0\xff\xff\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0B\x01B\x01\xff\xff\xff\xffB\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffB\x01\xff\xffB\x01\xff\xff\xff\xff\xff\xff\xff\xffO\x01B\x01\xff\xff\xff\xff\xff\xff\xff\xffB\x01\xff\xffB\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01\xff\xff\xff\xffB\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf2\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffB\x01p\x01\xff\xffp\x01\xff\xffB\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01\xff\xff\xff\xffB\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01B\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffB\x01\xff\xff\xff\xffr\x01\xff\xff\xff\xffB\x01\xff\xff\xff\xffs\x01\xff\xffs\x01\xff\xffB\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01\xff\xffr\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01\xff\xff~\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\xff\xff\xff\xff~\x01\xff\xff\xff\xff\xff\xff\x81\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x81\x01\xff\xff\xff\xff\x9b\x01\xff\xff\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x9b\x01\xff\xff~\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff~\x01\xff\xff\xff\xff\xff\xff~\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x81\x01~\x01\xff\xff\xff\xffB\x01~\x01\x81\x01~\x01~\x01\xff\xff\x81\x01\xff\xff\xff\xff\x9b\x01\xff\xff\xff\xff\xff\xff\xff\xff\x81\x01\xff\xff\xff\xff\xff\xff\x81\x01\xff\xff\x81\x01\x81\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\xff\xff\xff\xff\xff\xff\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\xff\xff\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\xb8\x01\x8a\x01\xb8\x01\xff\xff\xff\xff\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xff\xff\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8a\x01\xff\xff\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8d\x01\xff\xff\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8f\x01\x8f\x01\xff\xff\xff\xff\x8f\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc6\x01\x8f\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\x9c\x01\x8f\x01\xff\xff\xff\xff\xff\xff\xc6\x01\x8f\x01\xff\xff\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\xff\xff\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8a\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xc6\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xc6\x01\xff\xff\xff\xff\xff\xff\xc6\x01\xba\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xc6\x01\xff\xff\xff\xff\x8f\x01\xc6\x01\xff\xff\xc6\x01\xc6\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xbb\x01\xff\xff\xbb\x01\xff\xff\xba\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xc9\x01\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xc9\x01\xc9\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xff\xff\xff\xff\xff\xff\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xff\xff\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xff\xff\xd2\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xff\xff\xff\xff\xff\xff\xff\xff\xd2\x01\xff\xff\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xd5\x01\xff\xff\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xd2\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string("")], - cst_Yojson_Safe_Finally=caml_new_string("Yojson.Safe.Finally"), - cst_Yojson_Safe_Util_Type_error= - caml_new_string("Yojson.Safe.Util.Type_error"), - cst_Yojson_Safe_Util_Undefined= - caml_new_string("Yojson.Safe.Util.Undefined"), - cst_Yojson_Raw_Int_overflow=caml_new_string("Yojson.Raw.Int_overflow"), - ocaml_lex_tables$1= - [0, - caml_new_string - ("\0\0\xec\xff\xed\xff\x03\0\xef\xff\x10\0\xf2\xff\xf3\xff\xf4\xff\xf5\xff\0\0\x1f\0\xf9\xffU\0\x01\0\0\0\0\0\x01\0\0\0\x01\0\x02\0\xff\xff\0\0\0\0\x03\0\xfe\xff\x01\0\x04\0\xfd\xff\x0b\0\xfc\xff\x03\0\x01\0\x03\0\x02\0\x03\0\0\0\xfb\xff\x15\0a\0\n\0\x16\0\x14\0\x10\0\x16\0\f\0\b\0\xfa\xffw\0\x81\0\x8b\0\xa1\0\xab\0\xb5\0\xc1\0\xd1\0\xf0\xff\x0b\0&\0\xfc\xffA\0\xfe\xff\xff\xffn\0\xfc\xff\xa3\0\xfe\xff\xff\xff\xea\0\xf7\xff\xf8\xff0\x01\xfa\xff\xfb\xff\xfc\xff\xfd\xff\xfe\xff\xff\xffG\x01~\x01\x95\x01\xf9\xff'\0\xfd\xff\xfe\xff&\0\xbb\x01\xd2\x01\xf8\x01\x0f\x02\xff\xff\xdc\0\xfd\xff\xff\xff\xf5\0'\x02m\x02\x0e\x01X\x02\xa4\x02\xbb\x02\xe1\x02\r\0\xfc\xff\xfd\xff\xfe\xff\xff\xff\x0e\0\xfd\xff\xfe\xff\xff\xff\x1e\0\xfd\xff\xfe\xff\xff\xff\x0f\0\xfd\xff\xfe\xff\xff\xff\x11\x01\xfb\xff\xfc\xff\xfd\xff\xfe\xff\xff\xff\x13\0\xfc\xff\xfd\xff\xfe\xff\x0f\0\xff\xff\x10\0\xff\xff\b\x01\x05\0\xfd\xff\x17\0\xfe\xff\x14\0\xff\xff.\0\xfd\xff\xfe\xff*\x004\x005\0\xff\xff5\x000\0[\0\\\0\xff\xff\x1b\x01\xfa\xff\xfb\xff\x89\0h\0Y\0X\0j\0\xff\xff\x8f\0\x89\0\xb1\0\xfe\xff\xb7\0\xa8\0\xa6\0\xb7\0\x02\0\xfd\xff\xb1\0\xac\0\xbb\0\x04\0\xfc\xff5\x02\xfb\xff\xfc\xff\xfd\xffg\x01\xff\xff\xf8\x02\xfe\xff\x06\x03\x1e\x03\xfc\xff\xfd\xff\xfe\xff\xff\xff(\x032\x03J\x03\xfc\xff\xfd\xff\xfe\xff\xff\xff=\x03T\x03l\x03\xf9\xff\xfa\xff\xfb\xff\xf4\0x\x03\x8e\x03\xb3\0\xc2\0\x0f\0\xff\xff\xbe\0\xbc\0\xbb\0\xc1\0\xb7\0\xb3\0\xfe\xff\xbf\0\xc9\0\xc8\0\xc4\0\xcb\0\xc1\0\xbd\0\xfd\xff\x9d\x03_\x03\xae\x03\xc4\x03\xce\x03\xd8\x03\xe4\x03\xef\x03<\0\xfd\xff\xfe\xff\xff\xff\f\x04\xfc\xff\xfd\xffW\x04\xff\xff\x91\x04\xfc\xff\xfd\xff\xdd\x04\xff\xff\xe5\0\xfd\xff\xfe\xff\xff\xff\xe7\0\xfd\xff\xfe\xff\xff\xff\x02\0\xff\xff\x12\x01\xfc\xff\xfd\xff\xfe\xff\xff\xff\"\x01\xfd\xff\xfe\xff\xff\xff\0\0\xff\xff\x03\0\xfe\xff\xff\xff&\x01\xfc\xff\xfd\xff\xfe\xff\xff\xffx\x01\xfb\xff\xfc\xff\xfd\xff\xfe\xff\xff\xff\xd0\0\xfd\xff\xfe\xff\xff\xff\xd3\0\xfd\xff\xfe\xff\xff\xff\xbd\0\xff\xff\x8f\x01\xfc\xff\xfd\xff\xfe\xff\xff\xff\r\x01\xfd\xff\xfe\xff\xff\xff_\x01\xfc\xff\xfd\xff\xfe\xff\xff\xff2\x01\xfd\xff\xfe\xff\xff\xff\x1a\x01\xfd\xff\xfe\xff\xff\xff\xe9\0\xfd\xff\xfe\xff\xff\xff\xde\0\xfd\xff\xfe\xff\xff\xffO\x05\xed\xff\xee\xff\n\0\xf0\xff,\x01\xf3\xff\xf4\xff\xf5\xff\xf6\xff=\x01\x02\x04\xf9\xff-\x05\xd1\0\xe4\0\xd3\0\xe8\0\xe1\0\xdf\0\xf0\0\xff\xff\xeb\0\xea\0\b\x01\xfe\xff\x04\x01\x17\x01\xfd\xff6\x01\xfc\xff\x1f\x01\x1d\x01 \x01'\x011\x01-\x01\xfb\xff9\x01R\x01P\x01N\x01T\x01J\x01V\x01\xfa\xffn\x05\f\x04{\x05\x9b\x05\xa5\x05\xb1\x05\xbb\x05\xc5\x05\xf1\xff\xc7\x01M\x02\xfd\xff\xff\xff\x9a\x02\xde\x05\xd1\x05\x9b\x02\xef\x055\x06L\x06r\x06\x10\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\x98\x06\xfc\xff\xfd\xff\xe3\x06\xff\xffU\x07\xf4\xff\xf5\xff\x0b\0\xf7\xffL\x02\xfa\xff\xfb\xff\xfc\xff\xfd\xff\xfe\xff\x1f\x02\xf3\x053\x07d\x01s\x01h\x01\x85\x01v\x01\x9a\x01\xab\x01\xff\xff\xad\x01\xb0\x01\xbf\x01\xb9\x01\xbb\x01\xfd\x01\xe6\x01\xe6\x01\xea\x01\xf7\x01\xed\x01\xea\x01\t\x02\x13\x02\x13\x02\x0f\x02\x15\x02\x0b\x02\x07\x02\x8e\x06\x98\x06t\x07\xaa\x07\xb4\x07\xbe\x07\xc8\x07\xd2\x07\xf8\xffx\x02\xa7\x02\xfd\xff\xff\xff\xd8\x02R\x07\xdc\x07\xec\x02\xf4\x07:\bQ\bw\bL\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\x9d\b\xfc\xff\xfd\xff\xe8\b\xff\xff\x87\x02x\x02\xfd\xffd\x02\xfe\xff\xb6\x02\xff\xff\x0b\x02\xff\xff\xcc\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff.\x02\xff\xff\xb2\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\x17\0\xff\xff\xb7\x02\xfc\xff\xfd\xff\xfe\xff\xff\xff\xbb\x02\xfd\xff\xfe\xff\xff\xffy\x02\xfd\xff\xfe\xff\xff\xff\xb8\x02\xfc\xff\xfd\xff\xfe\xff\x13\0\xff\xff\x8c\x01\x92\x01\xff\xff\x96\x01\x97\x01\x9a\x01\xa8\x01\xaa\x01\xab\x01\xac\x01\xad\x01\xb5\x01\xb8\x01\xb9\x01\xbb\x01\xbf\x01\xc1\x01\xc3\x01\xc4\x01\xc5\x01\xc8\x01\xcb\x01\xdf\x01\xe1\x01\xe4\x01\xf9\x01\xfb\x01\x02\x02\x04\x02\x0b\x02\f\x02\r\x02\0\0"), - caml_new_string - ("\xff\xff\xff\xff\xff\xff\x11\0\xff\xff\x13\0\xff\xff\xff\xff\xff\xff\xff\xff\x07\0\x07\0\xff\xff\x13\0\x13\0\x13\0\x13\0\x13\0\x13\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\b\0\b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\t\0\xff\xff\t\0\xff\xff\t\0\xff\xff\xff\xff\x0e\0\xff\xff\xff\xff\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x07\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\x01\0\xff\xff\x04\0\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x04\0\x04\0\x04\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\0\0\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\x03\0\x05\0\x05\0\x05\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\x03\0\xff\xff\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\x02\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x10\0\xff\xff\x12\0\xff\xff\xff\xff\xff\xff\xff\xff\x07\0\x07\0\xff\xff\x12\0\x12\0\x12\0\x12\0\x12\0\x12\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\b\0\xff\xff\b\0\xff\xff\b\0\xff\xff\xff\xff\r\0\xff\xff\xff\xff\xff\xff\x01\0\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\t\0\xff\xff\x0b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\0\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\x06\0\xff\xff\xff\xff\xff\xff\x01\0\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\x04\0\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x01\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x03\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"), - caml_new_string - ("\x01\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\x009\0<\0\0\0<\0\0\0\0\0A\0\0\0A\0\0\0\0\0F\0\0\0\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\0\0T\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0^\0\0\0\0\0a\0\xff\xff\xff\xffa\0\xff\xff\xff\xff\xff\xff\xff\xffh\0\0\0\0\0\0\0\0\0m\0\0\0\0\0\0\0q\0\0\0\0\0\0\0u\0\0\0\0\0\0\0y\0\0\0\0\0\0\0\0\0\0\0~\0\0\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\x8a\0\0\0\x8e\0\0\0\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\x9a\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xb2\0\0\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\xff\xff\xbb\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xc2\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xc9\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xeb\0\0\0\0\0\0\0\xef\0\0\0\0\0\xff\xff\0\0\xf4\0\0\0\0\0\xff\xff\0\0\xf9\0\0\0\0\0\0\0\xfd\0\0\0\0\0\0\0\xff\xff\0\0\x03\x01\0\0\0\0\0\0\0\0\b\x01\0\0\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\x11\x01\0\0\0\0\0\0\0\0\x16\x01\0\0\0\0\0\0\0\0\0\0\x1c\x01\0\0\0\0\0\0 \x01\0\0\0\0\0\0\xff\xff\0\0&\x01\0\0\0\0\0\0\0\0+\x01\0\0\0\0\0\0/\x01\0\0\0\0\0\0\0\x004\x01\0\0\0\0\0\x008\x01\0\0\0\0\0\0<\x01\0\0\0\0\0\0@\x01\0\0\0\0\0\0C\x01\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\0\0\0\0\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0y\x01}\x01\0\0\0\0\x80\x01\xff\xff\xff\xff\x80\x01\xff\xff\xff\xff\xff\xff\xff\xff\x87\x01\0\0\0\0\0\0\0\0\x8c\x01\0\0\0\0\xff\xff\0\0\x90\x01\0\0\0\0\xff\xff\0\0\xff\xff\0\0\0\0\0\0\0\0\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\xc1\x01\xc5\x01\0\0\0\0\xc8\x01\xff\xff\xff\xff\xc8\x01\xff\xff\xff\xff\xff\xff\xff\xff\xcf\x01\0\0\0\0\0\0\0\0\xd4\x01\0\0\0\0\xff\xff\0\0\xff\xff\xff\xff\0\0\xff\xff\0\0\xdc\x01\0\0\xff\xff\0\0\xe2\x01\0\0\0\0\0\0\0\0\xff\xff\0\0\xe9\x01\0\0\0\0\0\0\0\0\xff\xff\0\0\xf0\x01\0\0\0\0\0\0\0\0\xf5\x01\0\0\0\0\0\0\xf9\x01\0\0\0\0\0\0\xfc\x01\0\0\0\0\0\0\xff\xff\0\0\x02\x02\x04\x02\0\0\x05\x02\x06\x02\x07\x02\b\x02\t\x02\n\x02\x0b\x02\f\x02\r\x02\x0e\x02\x0f\x02\x10\x02\x11\x02\x12\x02\x13\x02\x14\x02\x15\x02\x16\x02\x17\x02\x18\x02\x19\x02\x1a\x02\x1b\x02\x1c\x02\x1d\x02\x1e\x02\x1f\x02 \x02!\x02\x03\x02"), - caml_new_string - ("\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x03\0\x04\0\0\0\x03\0\x03\0\x86\0\0\0\x03\0\0\0\x86\0E\x01\x92\x01\xff\xff\0\0E\x01\x92\x01\0\0\0\0\0\0\0\0\x7f\0\x8b\0\0\0\x03\0\0\0\f\0\x03\0\xaa\0\x86\0\xaf\0\0\0\x07\0\x0b\x01E\x01\x92\x01\x0e\x01\r\x001\0\x05\0\n\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\x008\0v\0\x06\0\x81\0\x82\x009\0\xed\x01\x89\0\0\x021\0\0\x000\0\x8a\0j\0>\0\x0e\0n\0i\0\0\x001\0\x0f\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x1e\x000\0\b\0r\0\xd1\0\xec\0\0\x01\r\x01\x1d\0\x16\0\xff\xff0\x000\0\x11\0\x15\0\x19\0 \0!\0#\0\x17\0\x1b\0\x10\0\x1f\0\x1c\0\"\0\x13\0\x18\0\x12\0\x1a\0\x14\0$\0)\0%\x000\0\t\0*\0+\0,\0-\0.\0/\0=\0U\x000\0&\0'\0'\0'\0'\0'\0'\0'\0'\0'\x001\0C\0'\0'\0'\0'\0'\0'\0'\0'\0'\0'\0V\0\x8f\0\xff\xff(\0\x90\0\x91\0\x92\x007\0\x94\x007\0\x95\x000\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\0\xff\xff0\0\x96\0\x97\0\xa1\0B\0\x9e\x005\0\x9f\x005\0\xa0\x003\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\0\xa5\x003\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\0\xa2\0\xa3\0\xa6\0]\0\xff\xff\x02\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\0\xff\xffM\0g\0l\0t\0\x84\0\x86\0\x87\0\x80\0\x8b\0\x86\0\xa4\0]\0\xab\0M\0\xa7\0\xa8\0\xa9\0\xac\0p\0\xad\0\xae\0\xd2\0\xe2\0\xd0\0\xd3\0\xd4\0;\0S\0\x86\0\xd5\0\xd6\0\xd7\0\xd8\0\xda\0\x8d\0\xdb\0]\0\xdc\0\xdd\0{\0\xde\0\xdf\0\xe0\0\x88\0_\0\xe1\0#\x01A\x01\xea\0\x9b\0\x05\x01a\x01\xfa\0\xff\xff\xfe\x009\x01=\x01_\x01M\0,\x01\\\x01X\x01\t\x01\x1d\x01L\0|\0!\x01\x12\x01K\0b\0\x13\x01U\x01V\x01W\x01x\x01Y\x01J\0\xe1\x005\x01y\x01I\0Z\x01H\0G\0N\0N\0N\0N\0N\0N\0N\0N\0N\0N\0b\0q\x01z\0[\x01@\0\x04\x01]\x01N\0N\0N\0N\0N\0N\0O\0O\0O\0O\0O\0O\0O\0O\0O\0O\0\x9c\0p\x01^\x01`\x01b\x01c\x011\x01O\0O\0O\0O\0O\0O\0d\x01\x9d\0e\x01N\0N\0N\0N\0N\0N\0\xb7\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\x18\x01p\x01\xff\xff\x19\x01f\x01g\x01i\x01O\0O\0O\0O\0O\0O\0P\0P\0P\0P\0P\0P\0P\0P\0P\0P\0j\x01k\x010\x01(\x01l\x01m\x01n\x01P\0P\0P\0P\0P\0P\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0Q\0o\x01\x1b\x01\xff\xff\xab\x01\x1f\x01\xaa\x01\x17\x01Q\0Q\0Q\0Q\0Q\0Q\0\\\0\xa8\x01?\x01P\0P\0P\0P\0P\0P\0\xf8\0\xa5\x01\xfc\0\xa2\x01;\x01E\0W\0W\0W\0W\0W\0W\0W\0W\0W\0W\0\xff\xffQ\0Q\0Q\0Q\0Q\0Q\0W\0W\0W\0W\0W\0W\0X\0X\0X\0X\0X\0X\0X\0X\0X\0X\0'\x01*\x01\xff\xff\xa3\x01\xa4\x01x\0\x02\x01X\0X\0X\0X\0X\0X\0\xa6\x017\x01\x99\0W\0W\0W\0W\0W\0W\0\x07\x01\xa7\x01\xa4\x01\xa9\x01\x10\x01\xa4\x01Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\x003\x01X\0X\0X\0X\0X\0X\0Y\0Y\0Y\0Y\0Y\0Y\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0Z\0a\0\x89\x01\xa4\x01\xac\x01\xb9\x01\x88\x01\xad\x01Z\0Z\0Z\0Z\0Z\0Z\0a\0\xb3\0\xae\x01Y\0Y\0Y\0Y\0Y\0Y\0.\x01\xaf\x01\xb0\x01\xb4\0\xa4\x01\xb8\x01\xb5\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0|\x01Z\0Z\0Z\0Z\0Z\0Z\0\xc0\x01\xb2\x01\x15\x01\xb3\x01a\0\xc1\x01\xb4\x01\xb5\x01\xb6\x01\xb7\x01\xa4\x01\xd8\x01\xff\xffa\0\xb8\x01\xd8\x01\xd1\x01a\0\xdf\x01a\0\xd0\x01\xe6\x01\x03\x02a\0\xdb\x01%\x01\xd8\x01\xd9\x01\x03\x02\xdc\x01\xd8\x01a\0\x03\x02\x03\x02\xd8\x01a\0\x03\x02a\0`\0c\0c\0c\0c\0c\0c\0c\0c\0c\0c\0\xd8\x01\x03\x02~\x01\x03\x02\x03\x02\x03\x02\x03\x02c\0c\0c\0c\0c\0c\0a\0\x03\x02\xda\x01\xfa\x01\x03\x02\x03\x02a\0\x03\x02|\x01|\x01a\0\x03\x02\xdd\x01\x03\x02\xfd\x01\x03\x02\x03\x02\x03\x02a\0\xff\xff\x03\x02\xc4\x01a\0\x03\x02a\0`\0c\0c\0c\0c\0c\0c\0d\0d\0d\0d\0d\0d\0d\0d\0d\0d\0\xeb\x01\x03\x02\xf1\x01\x03\x02\xff\x01\xf2\x01\x03\x02d\0d\0d\0d\0d\0d\0e\0e\0e\0e\0e\0e\0e\0e\0e\0e\0\xf6\x01\x81\x01\x81\x01\xe4\x01\x03\x02\xc4\x01\x03\x02e\0e\0e\0e\0e\0e\0\x03\x02\xc6\x01\x03\x02d\0d\0d\0d\0d\0d\0\x03\x02\x03\x02\x03\x02\xc4\x01\xea\x01\x86\x01a\0a\0a\0a\0a\0a\0a\0a\0a\0a\0\0\0e\0e\0e\0e\0e\0e\0a\0a\0a\0a\0a\0a\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\0\0\0\0\xc9\x01\xb1\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xbc\0\0\0a\0a\0a\0a\0a\0a\0\xc9\x01\xe3\x01\0\0\xbf\0\xce\x01{\x01\xbd\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbd\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xc3\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc6\0\xff\xff\xf8\x01\xc4\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc4\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xca\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xcd\0\xff\xff\xff\xff\xcb\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe2\0\xc3\x01\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe8\x01\0\0\0\0\xce\0\xdd\x01\xef\x01\xfe\x01\0\0\xcf\0\xf4\x01\0\0\xe1\0\xcb\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe8\0\0\0\xe8\0\0\0\xe1\x01\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xd9\0\xff\xff\0\0\0\0\0\0\0\0\xe1\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\0\0\0\0\0\0\0\0\xff\xff\0\0\0\0\xe6\0\0\0\xe6\0\0\0\xe4\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\0\0\xe4\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xba\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\0\0\0\0\0\0\0\0\0\0\xf1\0\0\0q\x01\0\0M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01\0\0p\x01\0\0\0\0\xc1\0\0\0\0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0p\x01\0\0\0\0\0\0\xf0\0\xc8\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\0\0\xf6\0\0\0\0\0\xf0\0\0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\0\0\0\0\0\0\0\0\xf5\0\0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xee\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\0\0\0\0\0\0\0\0\xf5\0\0\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0E\x01F\x01\0\0\0\0E\x01L\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0E\x01\0\0N\x01\0\0\0\0\0\0\0\0h\x01I\x01\0\0\0\0\0\0\0\0O\x01\0\0G\x01L\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01\0\0\0\0H\x01\0\0\0\0\0\0\0\0\0\0\xf3\0\0\0\0\0\0\0\0\0\0\0\0\0P\x01w\x01\0\0w\x01\0\0Q\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01\0\0\0\0J\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01S\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0R\x01\0\0\0\0s\x01\0\0\0\0T\x01\0\0\0\0u\x01\0\0u\x01\0\0K\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01\0\0s\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01\0\0\x80\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\0\0\0\0\x80\x01\0\0\0\0\0\0\x80\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\0\0\0\0\0\0\0\0\0\0\0\0\x80\x01\0\0\0\0\xb9\x01\0\0\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\0\0\0\0\0\0\0\0\0\0\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\xb8\x01\0\0\x80\x01\0\0\0\0\0\0\0\0\0\0\x80\x01\0\0\0\0\0\0\x80\x01\0\0\0\0\0\0\0\0\0\0\0\0\x80\x01\x80\x01\0\0\0\0D\x01\x80\x01\x80\x01\x80\x01\x7f\x01\0\0\x80\x01\0\0\0\0\xb8\x01\0\0\0\0\0\0\0\0\x80\x01\0\0\0\0\0\0\x80\x01\0\0\x80\x01\x7f\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\0\0\0\0\0\0\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\0\0\0\0\0\0\0\0\0\0\0\0\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\0\0\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\xbf\x01\x8e\x01\xbf\x01\0\0\0\0\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\0\0\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x80\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\0\0\0\0\0\0\0\0\x8d\x01\0\0\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\0\0\0\0\0\0\0\0\x8d\x01\0\0\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x92\x01\x93\x01\0\0\0\0\x92\x01\x9a\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\x92\x01\0\0\x99\x01\0\0\0\0\0\0\0\0\xb1\x01\x96\x01\0\0\0\0\0\0\xc8\x01\x9c\x01\0\0\x94\x01\x9a\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\0\0\0\0\x95\x01\0\0\0\0\0\0\0\0\0\0\0\0\x8b\x01\0\0\0\0\0\0\0\0\0\0\x9d\x01\0\0\0\0\0\0\0\0\x9e\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xc8\x01\0\0\x97\x01\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\xc8\x01\xbb\x01\0\0\xa0\x01\0\0\0\0\0\0\0\0\xc8\x01\0\0\0\0\x9f\x01\xc8\x01\0\0\xc8\x01\xc7\x01\0\0\xa1\x01\0\0\0\0\0\0\0\0\0\0\0\0\x98\x01\0\0\0\0\0\0\0\0\xbd\x01\0\0\xbd\x01\0\0\xbb\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xc8\x01\0\0\0\0\0\0\0\0\0\0\0\0\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xc8\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\0\0\x91\x01\xc8\x01\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\0\0\0\0\0\0\xc8\x01\0\0\xc8\x01\xc7\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\0\0\0\0\0\0\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\0\0\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\0\0\xd6\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xc8\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\xd5\x01\0\0\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\xd5\x01\0\0\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\xd3\x01\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0"), - caml_new_string - ("\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\0\0\0\0\xff\xff\x03\0\0\0\x86\0\xff\xff\x03\0\xff\xff\x86\0E\x01\x92\x019\0\xff\xffE\x01\x92\x01\xff\xff\xff\xff\xff\xff\xff\xff}\0\x8a\0\xff\xff\0\0\xff\xff\0\0\x03\0\xa9\0\x86\0\xae\0\xff\xff\0\0\n\x01E\x01\x92\x01\f\x01\0\0\n\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\x05\0s\0\0\0}\0\x81\0\x05\0\xec\x01\x88\0\xff\x01&\0\xff\xff\n\0\x88\0f\0:\0\0\0k\0f\0\xff\xff\x0b\0\0\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x0b\0\x1d\0&\0\0\0o\0\xd0\0\xe9\0\xff\0\f\x01\x0f\0\x11\0<\0\x0b\0\n\0\0\0\x14\0\x18\0\x1f\0 \0\"\0\x16\0\x1a\0\0\0\x0e\0\x1b\0!\0\x12\0\x17\0\0\0\x10\0\x13\0#\0(\0$\0&\0\0\0)\0*\0+\0,\0-\0.\0:\0R\0\x0b\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0\r\0'\0?\0'\0'\0'\0'\0'\0'\0'\0'\0'\0'\0U\0\x8c\0<\0\r\0\x8f\0\x90\0\x91\x000\0\x93\x000\0\x94\0'\x000\x000\x000\x000\x000\x000\x000\x000\x000\x000\x001\x001\x001\x001\x001\x001\x001\x001\x001\x001\x002\x002\x002\x002\x002\x002\x002\x002\x002\x002\0A\0'\0\x95\0\x96\0\x9c\0?\0\x9d\x003\0\x9e\x003\0\x9f\x002\x003\x003\x003\x003\x003\x003\x003\x003\x003\x003\x004\x004\x004\x004\x004\x004\x004\x004\x004\x004\x005\x005\x005\x005\x005\x005\x005\x005\x005\x005\0\x9b\x002\x006\x006\x006\x006\x006\x006\x006\x006\x006\x006\0\xa1\0\xa2\0\x9b\0[\0A\0\0\x007\x007\x007\x007\x007\x007\x007\x007\x007\x007\x009\0D\0f\0k\0s\0\x83\0\x85\0\x85\0}\0\x8a\0\x85\0\xa3\0^\0\xa5\0D\0\xa6\0\xa7\0\xa8\0\xab\0o\0\xac\0\xad\0\xce\0\xcb\0\xcf\0\xd2\0\xd3\0:\0R\0\x85\0\xd4\0\xd5\0\xd6\0\xd7\0\xd9\0\x8c\0\xda\0a\0\xdb\0\xdc\0w\0\xdd\0\xde\0\xdf\0\x85\0[\0\xcb\0\"\x01>\x01\xe9\0\x98\0\x01\x01P\x01\xf7\0<\0\xfb\x006\x01:\x01Q\x01D\0)\x01R\x01S\x01\x06\x01\x1a\x01D\0w\0\x1e\x01\x0f\x01D\0^\0\x0f\x01T\x01U\x01V\x01G\x01X\x01D\0\xcb\x002\x01G\x01D\0Y\x01D\0D\0G\0G\0G\0G\0G\0G\0G\0G\0G\0G\0a\0L\x01w\0Z\x01?\0\x01\x01\\\x01G\0G\0G\0G\0G\0G\0N\0N\0N\0N\0N\0N\0N\0N\0N\0N\0\x98\0L\x01]\x01_\x01a\x01b\x01-\x01N\0N\0N\0N\0N\0N\0c\x01\x98\0d\x01G\0G\0G\0G\0G\0G\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\xb4\0\x14\x01L\x01A\0\x14\x01e\x01f\x01h\x01N\0N\0N\0N\0N\0N\0O\0O\0O\0O\0O\0O\0O\0O\0O\0O\0i\x01j\x01-\x01$\x01k\x01l\x01m\x01O\0O\0O\0O\0O\0O\0P\0P\0P\0P\0P\0P\0P\0P\0P\0P\0n\x01\x1a\x01y\x01\x9d\x01\x1e\x01\x9e\x01\x14\x01P\0P\0P\0P\0P\0P\0[\0\x9f\x01>\x01O\0O\0O\0O\0O\0O\0\xf7\0\xa0\x01\xfb\0\xa1\x01:\x01D\0V\0V\0V\0V\0V\0V\0V\0V\0V\0V\0^\0P\0P\0P\0P\0P\0P\0V\0V\0V\0V\0V\0V\0W\0W\0W\0W\0W\0W\0W\0W\0W\0W\0$\x01)\x01a\0\xa2\x01\xa3\x01w\0\x01\x01W\0W\0W\0W\0W\0W\0\xa5\x016\x01\x98\0V\0V\0V\0V\0V\0V\0\x06\x01\xa6\x01\xa7\x01\xa8\x01\x0f\x01\xa9\x01X\0X\0X\0X\0X\0X\0X\0X\0X\0X\x002\x01W\0W\0W\0W\0W\0W\0X\0X\0X\0X\0X\0X\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0Y\0_\0\x85\x01\xaa\x01\xab\x01\x9a\x01\x85\x01\xac\x01Y\0Y\0Y\0Y\0Y\0Y\0_\0\xb0\0\xad\x01X\0X\0X\0X\0X\0X\0-\x01\xae\x01\xaf\x01\xb0\0\xb0\x01\x9a\x01\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0\xb0\0z\x01Y\0Y\0Y\0Y\0Y\0Y\0\x94\x01\xb1\x01\x14\x01\xb2\x01b\0\x94\x01\xb3\x01\xb4\x01\xb5\x01\xb6\x01\xb7\x01\xd8\x01\xc1\x01_\0\x9a\x01\xd8\x01\xcd\x01b\0\xde\x01_\0\xcd\x01\xe5\x01\x01\x02_\0\xda\x01$\x01\xd7\x01\xd7\x01\x02\x02\xda\x01\xd7\x01_\0\x04\x02\x05\x02\xd8\x01_\0\x06\x02_\0_\0`\0`\0`\0`\0`\0`\0`\0`\0`\0`\0\xd7\x01\x07\x02z\x01\b\x02\t\x02\n\x02\x0b\x02`\0`\0`\0`\0`\0`\0b\0\f\x02\xd7\x01\xf7\x01\r\x02\x0e\x02b\0\x0f\x02}\x01\x80\x01b\0\x10\x02\xdc\x01\x11\x02\xfb\x01\x12\x02\x13\x02\x14\x02b\0y\x01\x15\x02\xc2\x01b\0\x16\x02b\0b\0`\0`\0`\0`\0`\0`\0c\0c\0c\0c\0c\0c\0c\0c\0c\0c\0\xe7\x01\x17\x02\xee\x01\x18\x02\xfb\x01\xee\x01\x19\x02c\0c\0c\0c\0c\0c\0d\0d\0d\0d\0d\0d\0d\0d\0d\0d\0\xf3\x01}\x01\x80\x01\xe0\x01\x1a\x02\xc5\x01\x1b\x02d\0d\0d\0d\0d\0d\0\x1c\x02\xc2\x01\x1d\x02c\0c\0c\0c\0c\0c\0\x1e\x02\x1f\x02 \x02\xc8\x01\xe7\x01\x85\x01e\0e\0e\0e\0e\0e\0e\0e\0e\0e\0\xff\xffd\0d\0d\0d\0d\0d\0e\0e\0e\0e\0e\0e\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xb6\0\xff\xff\xff\xff\xc5\x01\xb0\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb8\0\xb9\0\xff\xffe\0e\0e\0e\0e\0e\0\xc8\x01\xe0\x01\xff\xff\xb9\0\xcd\x01z\x01\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xb9\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbe\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xbf\0\xc0\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc5\0\xc0\0\xc1\x01\xf7\x01\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc0\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc6\0\xc7\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xe2\0\xc7\0}\x01\x80\x01\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xc7\0\xcc\0\xc2\x01\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xcc\0\xe7\x01\xff\xff\xff\xff\xc7\0\xdc\x01\xee\x01\xfb\x01\xff\xff\xc7\0\xf3\x01\xff\xff\xcc\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xcd\0\xe1\0\xff\xff\xe1\0\xff\xff\xe0\x01\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xe1\0\xcd\0\xc5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xcc\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xe3\0\xff\xff\xff\xff\xff\xff\xff\xff\xc8\x01\xff\xff\xff\xff\xe4\0\xff\xff\xe4\0\xff\xff\xe3\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe4\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe5\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xe6\0\xff\xff\xe3\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xe7\0\xb9\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xe8\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xed\0\xff\xffM\x01\xff\xffM\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01M\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01q\x01\xff\xffM\x01\xff\xff\xff\xff\xc0\0\xff\xff\xff\xff\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0M\x01\xff\xff\xff\xff\xff\xff\xed\0\xc7\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xed\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xff\xff\xf2\0\xff\xff\xff\xff\xf0\0\xff\xff\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf0\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xff\xff\xff\xff\xff\xff\xff\xff\xf2\0\xff\xff\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xf2\0\xed\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xff\xff\xff\xff\xff\xff\xff\xff\xf5\0\xff\xff\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0\xf5\0B\x01B\x01\xff\xff\xff\xffB\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01O\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffB\x01\xff\xffB\x01\xff\xff\xff\xff\xff\xff\xff\xffO\x01B\x01\xff\xff\xff\xff\xff\xff\xff\xffB\x01\xff\xffB\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01B\x01\xff\xff\xff\xffB\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xf2\0\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffB\x01p\x01\xff\xffp\x01\xff\xffB\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01p\x01\xff\xff\xff\xffB\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01r\x01B\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xffB\x01\xff\xff\xff\xffr\x01\xff\xff\xff\xffB\x01\xff\xff\xff\xffs\x01\xff\xffs\x01\xff\xffB\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01s\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01t\x01\xff\xffr\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01u\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01v\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01w\x01\xff\xff~\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\xff\xff\xff\xff~\x01\xff\xff\xff\xff\xff\xff\x81\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x81\x01\xff\xff\xff\xff\x9b\x01\xff\xff\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\x9b\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x7f\x01\x9b\x01\xff\xff~\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff~\x01\xff\xff\xff\xff\xff\xff~\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x81\x01~\x01\xff\xff\xff\xffB\x01~\x01\x81\x01~\x01~\x01\xff\xff\x81\x01\xff\xff\xff\xff\x9b\x01\xff\xff\xff\xff\xff\xff\xff\xff\x81\x01\xff\xff\xff\xff\xff\xff\x81\x01\xff\xff\x81\x01\x81\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\xff\xff\xff\xff\xff\xff\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\x82\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\xff\xff\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x83\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\xb8\x01\x8a\x01\xb8\x01\xff\xff\xff\xff\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb8\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xb9\x01\xff\xff\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x84\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8a\x01\xff\xff\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8a\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8d\x01\xff\xff\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8d\x01\x8f\x01\x8f\x01\xff\xff\xff\xff\x8f\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\x9c\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc6\x01\x8f\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\x9c\x01\x8f\x01\xff\xff\xff\xff\xff\xff\xc6\x01\x8f\x01\xff\xff\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\x8f\x01\xff\xff\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8a\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xba\x01\xc6\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xc6\x01\xff\xff\xff\xff\xff\xff\xc6\x01\xba\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xc6\x01\xff\xff\xff\xff\x8f\x01\xc6\x01\xff\xff\xc6\x01\xc6\x01\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xff\xff\xff\xff\xff\xff\xff\xff\xbb\x01\xff\xff\xbb\x01\xff\xff\xba\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbb\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbc\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbd\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbe\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xbf\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xc7\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\x8f\x01\xc9\x01\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xff\xff\xff\xff\xc9\x01\xff\xff\xc9\x01\xc9\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xff\xff\xff\xff\xff\xff\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xca\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xff\xff\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcb\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xff\xff\xd2\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xcc\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xff\xff\xff\xff\xff\xff\xff\xff\xd2\x01\xff\xff\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd2\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xd5\x01\xff\xff\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xd5\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xd2\x01\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff\xff"), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string(""), - caml_new_string("")], - cst_Yojson_Raw_Finally=caml_new_string("Yojson.Raw.Finally"), - Bi_io=global_data.Bi_io, - Stdlib_array=global_data.Stdlib__array, - Stdlib=global_data.Stdlib, - Bi_outbuf=global_data.Bi_outbuf, - Stdlib_string=global_data.Stdlib__string, - Stdlib_list=global_data.Stdlib__list, - Stdlib_format=global_data.Stdlib__format, - Assert_failure=global_data.Assert_failure, - Stdlib_bytes=global_data.Stdlib__bytes, - Stdlib_stream=global_data.Stdlib__stream, - Stdlib_printf=global_data.Stdlib__printf, - Easy_format=global_data.Easy_format, - Stdlib_char=global_data.Stdlib__char, - Stdlib_lexing=global_data.Stdlib__lexing, - _a_=[0,951901561,0], - _b_=[0,848054398,0], - _c_=[0,848054398,0], - ___= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _S_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _G_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _H_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _I_=[0,[3,0,0],caml_new_string("%S")], - _J_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _K_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _E_= - [0, - [11, - caml_new_string("`Assoc ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Assoc (@[")], - _F_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _L_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _M_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _N_= - [0, - [11, - caml_new_string("`Floatlit ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Floatlit (@[")], - _O_=[0,[3,0,0],caml_new_string("%S")], - _P_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _Q_= - [0, - [11, - caml_new_string("`List ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`List (@[")], - _R_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _T_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _U_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _V_= - [0, - [11, - caml_new_string("`Bool ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Bool (@[")], - _W_=[0,[9,0,0],caml_new_string("%B")], - _X_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _Y_= - [0, - [11, - caml_new_string("`Tuple ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Tuple (@[")], - _Z_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _$_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _aa_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ab_= - [0, - [11, - caml_new_string("`Variant ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Variant (@[")], - _ac_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _ad_=[0,[3,0,0],caml_new_string("%S")], - _ae_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _af_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ag_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ak_= - [0, - [11, - caml_new_string("`Float ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Float (@[")], - _al_=[0,[8,[0,0,5],0,0,0],caml_new_string("%F")], - _am_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _an_= - [0, - [11, - caml_new_string("`Int ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Int (@[")], - _ao_=[0,[4,0,0,0,0],caml_new_string("%d")], - _ap_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _aq_= - [0, - [11, - caml_new_string("`Stringlit ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Stringlit (@[")], - _ar_=[0,[3,0,0],caml_new_string("%S")], - _as_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _at_= - [0, - [11, - caml_new_string("`String ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`String (@[")], - _au_=[0,[3,0,0],caml_new_string("%S")], - _av_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ah_= - [0, - [11, - caml_new_string("`Intlit ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Intlit (@[")], - _ai_=[0,[3,0,0],caml_new_string("%S")], - _aj_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _de_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _c8_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _cW_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _cX_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _cY_=[0,[3,0,0],caml_new_string("%S")], - _cZ_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _c0_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cU_= - [0, - [11, - caml_new_string("`Assoc ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Assoc (@[")], - _cV_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _c1_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _c2_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _c3_= - [0, - [11, - caml_new_string("`Floatlit ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Floatlit (@[")], - _c4_=[0,[3,0,0],caml_new_string("%S")], - _c5_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _c6_= - [0, - [11, - caml_new_string("`List ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`List (@[")], - _c7_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _c9_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _c__=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _c$_= - [0, - [11, - caml_new_string("`Bool ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Bool (@[")], - _da_=[0,[9,0,0],caml_new_string("%B")], - _db_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _dc_= - [0, - [11, - caml_new_string("`Tuple ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Tuple (@[")], - _dd_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _df_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _dg_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _dh_= - [0, - [11, - caml_new_string("`Variant ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Variant (@[")], - _di_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _dj_=[0,[3,0,0],caml_new_string("%S")], - _dk_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dl_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _dm_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _dn_= - [0, - [11, - caml_new_string("`Stringlit ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Stringlit (@[")], - _do_=[0,[3,0,0],caml_new_string("%S")], - _dp_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _dq_= - [0, - [11, - caml_new_string("`Intlit ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Intlit (@[")], - _dr_=[0,[3,0,0],caml_new_string("%S")], - _ds_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _dE_=[0,737456202,1], - _dF_=[0,737456202,0], - _dG_=[0,928231259,caml_new_string("NaN")], - _dH_=[0,928231259,caml_new_string("Infinity")], - _dI_=[0,928231259,caml_new_string("-Infinity")], - _dB_= - [0, - [2,0,[11,caml_new_string(" '"),[2,0,[2,0,[12,39,0]]]]], - caml_new_string("%s '%s%s'")], - _dA_=[0,caml_new_string("lib/read.mll"),72,32], - _dz_= - [0, - [2,0,[11,caml_new_string(" '"),[2,0,[12,39,0]]]], - caml_new_string("%s '%s'")], - _dv_= - [0, - [11,caml_new_string("File "),[2,0,[11,caml_new_string(", line"),0]]], - caml_new_string("File %s, line")], - _dw_= - [0,[11,caml_new_string("byte "),[4,3,0,0,0]],caml_new_string("byte %i")], - _dy_= - [0, - [11,caml_new_string("bytes "),[4,3,0,0,[12,45,[4,3,0,0,0]]]], - caml_new_string("bytes %i-%i")], - _dx_= - [0, - [2, - 0, - [12, - 32, - [4, - 3, - 0, - 0, - [11,caml_new_string(", "),[2,0,[11,caml_new_string(":\n"),[2,0,0]]]]]]], - caml_new_string("%s %i, %s:\n%s")], - _du_=[0,caml_new_string("lib/read.mll"),44,13], - _dt_=[0,[15,0],caml_new_string("%a")], - _cR_= - [0, - [11, - caml_new_string("src="), - [3, - 0, - [11, - caml_new_string(" start="), - [4,3,0,0,[11,caml_new_string(" len="),[4,3,0,0,[12,10,[10,0]]]]]]]], - caml_new_string("src=%S start=%i len=%i\n%!")], - _b4_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _cg_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _b9_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _b__= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _b$_=[0,[3,0,0],caml_new_string("%S")], - _ca_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cb_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _b7_= - [0, - [11, - caml_new_string("`Assoc ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Assoc (@[")], - _b8_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _cc_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _cd_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ce_= - [0, - [11, - caml_new_string("`List ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`List (@[")], - _cf_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _ch_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _ci_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cj_= - [0, - [11, - caml_new_string("`Bool ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Bool (@[")], - _ck_=[0,[9,0,0],caml_new_string("%B")], - _cl_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cm_= - [0, - [11, - caml_new_string("`Variant ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Variant (@[")], - _cn_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _co_=[0,[3,0,0],caml_new_string("%S")], - _cp_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cq_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cr_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _b2_= - [0, - [11, - caml_new_string("`Tuple ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Tuple (@[")], - _b3_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _b5_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _b6_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cs_= - [0, - [11, - caml_new_string("`Float ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Float (@[")], - _ct_=[0,[8,[0,0,5],0,0,0],caml_new_string("%F")], - _cu_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cv_= - [0, - [11, - caml_new_string("`Int ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Int (@[")], - _cw_=[0,[4,0,0,0,0],caml_new_string("%d")], - _cx_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cy_= - [0, - [11, - caml_new_string("`Intlit ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Intlit (@[")], - _cz_=[0,[3,0,0],caml_new_string("%S")], - _cA_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cB_= - [0, - [11, - caml_new_string("`String ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`String (@[")], - _cC_=[0,[3,0,0],caml_new_string("%S")], - _cD_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cP_=[0,737456202,1], - _cQ_=[0,737456202,0], - _cM_= - [0, - [2,0,[11,caml_new_string(" '"),[2,0,[2,0,[12,39,0]]]]], - caml_new_string("%s '%s%s'")], - _cL_=[0,caml_new_string("lib/read.mll"),72,32], - _cK_= - [0, - [2,0,[11,caml_new_string(" '"),[2,0,[12,39,0]]]], - caml_new_string("%s '%s'")], - _cG_= - [0, - [11,caml_new_string("File "),[2,0,[11,caml_new_string(", line"),0]]], - caml_new_string("File %s, line")], - _cH_= - [0,[11,caml_new_string("byte "),[4,3,0,0,0]],caml_new_string("byte %i")], - _cJ_= - [0, - [11,caml_new_string("bytes "),[4,3,0,0,[12,45,[4,3,0,0,0]]]], - caml_new_string("bytes %i-%i")], - _cI_= - [0, - [2, - 0, - [12, - 32, - [4, - 3, - 0, - 0, - [11,caml_new_string(", "),[2,0,[11,caml_new_string(":\n"),[2,0,0]]]]]]], - caml_new_string("%s %i, %s:\n%s")], - _cF_=[0,caml_new_string("lib/read.mll"),44,13], - _cE_=[0,[15,0],caml_new_string("%a")], - _b0_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _b1_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _bZ_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _bI_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _bJ_=[0,[8,[0,0,3],0,[0,1],0],caml_new_string("%.1g")], - _bK_=[0,[8,[0,0,3],0,[0,2],0],caml_new_string("%.2g")], - _bL_=[0,[8,[0,0,3],0,[0,3],0],caml_new_string("%.3g")], - _bM_=[0,[8,[0,0,3],0,[0,4],0],caml_new_string("%.4g")], - _bN_=[0,[8,[0,0,3],0,[0,5],0],caml_new_string("%.5g")], - _bO_=[0,[8,[0,0,3],0,[0,6],0],caml_new_string("%.6g")], - _bP_=[0,[8,[0,0,3],0,[0,7],0],caml_new_string("%.7g")], - _bQ_=[0,[8,[0,0,3],0,[0,8],0],caml_new_string("%.8g")], - _bR_=[0,[8,[0,0,3],0,[0,9],0],caml_new_string("%.9g")], - _bS_=[0,[8,[0,0,3],0,[0,10],0],caml_new_string("%.10g")], - _bT_=[0,[8,[0,0,3],0,[0,11],0],caml_new_string("%.11g")], - _bU_=[0,[8,[0,0,3],0,[0,12],0],caml_new_string("%.12g")], - _bV_=[0,[8,[0,0,3],0,[0,13],0],caml_new_string("%.13g")], - _bW_=[0,[8,[0,0,3],0,[0,14],0],caml_new_string("%.14g")], - _bX_=[0,[8,[0,0,3],0,[0,15],0],caml_new_string("%.15g")], - _bY_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _bG_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _bH_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _bF_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _bC_= - [0, - [11, - caml_new_string("src="), - [3, - 0, - [11, - caml_new_string(" start="), - [4,3,0,0,[11,caml_new_string(" len="),[4,3,0,0,[12,10,[10,0]]]]]]]], - caml_new_string("src=%S start=%i len=%i\n%!")], - _ba_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _a3_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _a4_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _a5_=[0,[3,0,0],caml_new_string("%S")], - _a6_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _a7_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _a1_= - [0, - [11, - caml_new_string("`Assoc ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Assoc (@[")], - _a2_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _a8_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _a9_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _a__= - [0, - [11, - caml_new_string("`List ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`List (@[")], - _a$_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _bb_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _bc_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _bd_= - [0, - [11, - caml_new_string("`Bool ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Bool (@[")], - _be_=[0,[9,0,0],caml_new_string("%B")], - _bf_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _bg_= - [0, - [11, - caml_new_string("`Float ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Float (@[")], - _bh_=[0,[8,[0,0,5],0,0,0],caml_new_string("%F")], - _bi_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _bj_= - [0, - [11, - caml_new_string("`Int ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`Int (@[")], - _bk_=[0,[4,0,0,0,0],caml_new_string("%d")], - _bl_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _bm_= - [0, - [11, - caml_new_string("`String ("), - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - 0]], - caml_new_string("`String (@[")], - _bn_=[0,[3,0,0],caml_new_string("%S")], - _bo_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _bA_=[0,737456202,1], - _bB_=[0,737456202,0], - _bx_= - [0, - [2,0,[11,caml_new_string(" '"),[2,0,[2,0,[12,39,0]]]]], - caml_new_string("%s '%s%s'")], - _bw_=[0,caml_new_string("lib/read.mll"),72,32], - _bv_= - [0, - [2,0,[11,caml_new_string(" '"),[2,0,[12,39,0]]]], - caml_new_string("%s '%s'")], - _br_= - [0, - [11,caml_new_string("File "),[2,0,[11,caml_new_string(", line"),0]]], - caml_new_string("File %s, line")], - _bs_= - [0,[11,caml_new_string("byte "),[4,3,0,0,0]],caml_new_string("byte %i")], - _bu_= - [0, - [11,caml_new_string("bytes "),[4,3,0,0,[12,45,[4,3,0,0,0]]]], - caml_new_string("bytes %i-%i")], - _bt_= - [0, - [2, - 0, - [12, - 32, - [4, - 3, - 0, - 0, - [11,caml_new_string(", "),[2,0,[11,caml_new_string(":\n"),[2,0,0]]]]]]], - caml_new_string("%s %i, %s:\n%s")], - _bq_=[0,caml_new_string("lib/read.mll"),44,13], - _bp_=[0,[15,0],caml_new_string("%a")], - _aZ_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _a0_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _aY_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _aH_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _aI_=[0,[8,[0,0,3],0,[0,1],0],caml_new_string("%.1g")], - _aJ_=[0,[8,[0,0,3],0,[0,2],0],caml_new_string("%.2g")], - _aK_=[0,[8,[0,0,3],0,[0,3],0],caml_new_string("%.3g")], - _aL_=[0,[8,[0,0,3],0,[0,4],0],caml_new_string("%.4g")], - _aM_=[0,[8,[0,0,3],0,[0,5],0],caml_new_string("%.5g")], - _aN_=[0,[8,[0,0,3],0,[0,6],0],caml_new_string("%.6g")], - _aO_=[0,[8,[0,0,3],0,[0,7],0],caml_new_string("%.7g")], - _aP_=[0,[8,[0,0,3],0,[0,8],0],caml_new_string("%.8g")], - _aQ_=[0,[8,[0,0,3],0,[0,9],0],caml_new_string("%.9g")], - _aR_=[0,[8,[0,0,3],0,[0,10],0],caml_new_string("%.10g")], - _aS_=[0,[8,[0,0,3],0,[0,11],0],caml_new_string("%.11g")], - _aT_=[0,[8,[0,0,3],0,[0,12],0],caml_new_string("%.12g")], - _aU_=[0,[8,[0,0,3],0,[0,13],0],caml_new_string("%.13g")], - _aV_=[0,[8,[0,0,3],0,[0,14],0],caml_new_string("%.14g")], - _aW_=[0,[8,[0,0,3],0,[0,15],0],caml_new_string("%.15g")], - _aX_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _aF_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _aG_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _aE_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _aB_= - [0, - [11, - caml_new_string("src="), - [3, - 0, - [11, - caml_new_string(" start="), - [4,3,0,0,[11,caml_new_string(" len="),[4,3,0,0,[12,10,[10,0]]]]]]]], - caml_new_string("src=%S start=%i len=%i\n%!")], - _aA_=[0,[2,0,[12,58,0]],caml_new_string("%s:")], - _aw_=[0,[15,0],caml_new_string("%a")], - _C_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _D_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _B_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _k_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _l_=[0,[8,[0,0,3],0,[0,1],0],caml_new_string("%.1g")], - _m_=[0,[8,[0,0,3],0,[0,2],0],caml_new_string("%.2g")], - _n_=[0,[8,[0,0,3],0,[0,3],0],caml_new_string("%.3g")], - _o_=[0,[8,[0,0,3],0,[0,4],0],caml_new_string("%.4g")], - _p_=[0,[8,[0,0,3],0,[0,5],0],caml_new_string("%.5g")], - _q_=[0,[8,[0,0,3],0,[0,6],0],caml_new_string("%.6g")], - _r_=[0,[8,[0,0,3],0,[0,7],0],caml_new_string("%.7g")], - _s_=[0,[8,[0,0,3],0,[0,8],0],caml_new_string("%.8g")], - _t_=[0,[8,[0,0,3],0,[0,9],0],caml_new_string("%.9g")], - _u_=[0,[8,[0,0,3],0,[0,10],0],caml_new_string("%.10g")], - _v_=[0,[8,[0,0,3],0,[0,11],0],caml_new_string("%.11g")], - _w_=[0,[8,[0,0,3],0,[0,12],0],caml_new_string("%.12g")], - _x_=[0,[8,[0,0,3],0,[0,13],0],caml_new_string("%.13g")], - _y_=[0,[8,[0,0,3],0,[0,14],0],caml_new_string("%.14g")], - _z_=[0,[8,[0,0,3],0,[0,15],0],caml_new_string("%.15g")], - _A_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _i_=[0,[8,[0,0,3],0,[0,16],0],caml_new_string("%.16g")], - _j_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _h_=[0,[8,[0,0,3],0,[0,17],0],caml_new_string("%.17g")], - _e_= - [0, - [11, - caml_new_string("src="), - [3, - 0, - [11, - caml_new_string(" start="), - [4,3,0,0,[11,caml_new_string(" len="),[4,3,0,0,[12,10,[10,0]]]]]]]], - caml_new_string("src=%S start=%i len=%i\n%!")], - _d_=[0,caml_new_string("common.ml"),57,4]; - function biniou_of_json(param) - {if(typeof param === "number")return 948106916; - var _li_=param[1]; - if(708012133 <= _li_) - {if(726928360 === _li_) - {var l=param[2],_lj_=caml_call1(Stdlib_array[12],l); - return [0, - 726928360, - caml_call2(Stdlib_array[15],biniou_of_json,_lj_)]} - if(848054398 <= _li_) - {if(963043957 <= _li_) - {var - l$0=param[2], - _lk_=caml_call1(Stdlib_array[12],l$0), - _ll_= - function(param) - {var x=param[2],s=param[1],_lu_=biniou_of_json(x); - return [0,[0,s],caml_call1(Bi_io[21],s),_lu_]}, - a=caml_call2(Stdlib_array[15],_ll_,_lk_); - return [0,847309489,a]} - var l$1=param[2]; - if(l$1) - {var - _lm_=caml_call1(Stdlib_array[12],l$1), - a$0=caml_call2(Stdlib_array[15],biniou_of_json,_lm_), - _ln_=caml_check_bound(a$0,0)[1], - tag=caml_call1(Bi_io[70],_ln_); - try - {var _lp_=a$0.length - 1 - 1 | 0,_lo_=1; - if(! (_lp_ < 1)) - {var i=_lo_; - for(;;) - {var _lr_=caml_check_bound(a$0,i)[1 + i]; - if(caml_call1(Bi_io[70],_lr_) !== tag)throw Stdlib[3]; - var _ls_=i + 1 | 0; - if(_lp_ !== i){var i=_ls_;continue} - break}} - var _lq_=[0,951901561,[0,[0,tag,a$0]]]; - return _lq_} - catch(_lt_) - {_lt_ = caml_wrap_exception(_lt_); - if(_lt_ === Stdlib[3]) - return caml_call1 - (Stdlib[2],cst_Cannot_convert_heterogenous_array_to_biniou); - throw _lt_}} - return _a_} - if(737456202 <= _li_){var b=param[2];return [0,737456202,b]} - var match=param[2],o=match[2],s=match[1]; - if(o)var x=o[1],o$0=[0,biniou_of_json(x)];else var o$0=0; - return [0,708012133,[0,[0,s],caml_call1(Bi_io[21],s),o$0]]} - if(3654863 <= _li_) - {if(365180284 <= _li_){var f=param[2];return [0,928627642,f]} - var i$0=param[2]; - return [0,412180492,i$0]} - if(-752863768 <= _li_) - return caml_call1(Stdlib[2],cst_Cannot_convert_big_int_to_biniou); - var s$0=param[2]; - return [0,-976970511,s$0]} - function json_of_biniou(x) - {if(typeof x === "number")return 870828711; - var _k3_=x[1]; - if(708012133 <= _k3_) - {if(847309489 <= _k3_) - {if(951901561 <= _k3_) - {if(1063160078 <= _k3_) - return caml_call1(Stdlib[2],cst_Cannot_convert_uvint_to_JSON); - var _k4_=x[2]; - if(_k4_) - {var - match=_k4_[1], - a=match[2], - _k5_=caml_call2(Stdlib_array[15],json_of_biniou,a); - return [0,848054398,caml_call1(Stdlib_array[11],_k5_)]} - return _b_} - if(928626971 <= _k3_){var f=x[2];return [0,365180284,f]} - var - a$0=x[2], - _k6_= - function(param) - {var _lh_=param[1]; - if(_lh_) - {var x=param[3],s=_lh_[1];return [0,s,json_of_biniou(x)]} - return caml_call1 - (Stdlib[2],cst_Cannot_convert_hashed_field_name_to_JSON)}, - _k7_=caml_call2(Stdlib_array[15],_k6_,a$0); - return [0,963043957,caml_call1(Stdlib_array[11],_k7_)]} - if(737456202 <= _k3_) - {if(815034505 <= _k3_) - return caml_call1(Stdlib[2],cst_Cannot_convert_int8_to_JSON); - var b=x[2]; - return [0,737456202,b]} - if(726928360 <= _k3_) - {var a$1=x[2],_k8_=caml_call2(Stdlib_array[15],json_of_biniou,a$1); - return [0,726928360,caml_call1(Stdlib_array[11],_k8_)]} - var _k9_=x[2],_k__=_k9_[1]; - if(_k__) - {var _k$_=_k9_[3],_la_=_k__[1]; - if(_k$_) - {var x$0=_k$_[1]; - return [0,708012133,[0,_la_,[0,json_of_biniou(x$0)]]]} - return [0,708012133,[0,_la_,0]]} - return caml_call1 - (Stdlib[2],cst_Cannot_convert_hashed_variant_name_to_JSON)} - if(-775957819 <= _k3_) - {if(412180492 <= _k3_) - {if(504440814 <= _k3_) - {var _lb_=x[2]; - if(_lb_) - {var - match$0=_lb_[1], - rows=match$0[2], - header=match$0[1], - _lc_= - function(a) - {var n=header.length - 1; - if(a.length - 1 !== n) - caml_call1(Stdlib[2],cst_Malformed_biniou_table); - var l=[0,0],_le_=n - 1 | 0; - if(! (_le_ < 0)) - {var i=_le_; - for(;;) - {var - match=caml_check_bound(header,i)[1 + i], - o=match[1], - x=caml_check_bound(a,i)[1 + i]; - if(o) - {var s=o[1],_lf_=l[1]; - l[1] = [0,[0,s,json_of_biniou(x)],_lf_]} - else - caml_call1 - (Stdlib[2],cst_Cannot_convert_hashed_field_name_to_JSON$0); - var _lg_=i - 1 | 0; - if(0 !== i){var i=_lg_;continue} - break}} - return [0,963043957,l[1]]}, - _ld_=caml_call2(Stdlib_array[15],_lc_,rows); - return [0,848054398,caml_call1(Stdlib_array[11],_ld_)]} - return _c_} - var i=x[2]; - return [0,3654863,i]} - return 221365804 <= _k3_ - ?caml_call1(Stdlib[2],cst_Cannot_convert_num_variant_to_JSON) - :caml_call1(Stdlib[2],cst_Cannot_convert_shared_node_to_JSON)} - if(-783416530 <= _k3_) - return -783415859 <= _k3_ - ?caml_call1(Stdlib[2],cst_Cannot_convert_int64_to_JSON) - :caml_call1(Stdlib[2],cst_Cannot_convert_int32_to_JSON); - if(-783416972 <= _k3_) - return caml_call1(Stdlib[2],cst_Cannot_convert_int16_to_JSON); - var s=x[2]; - return [0,-976970511,s]} - var Yojson_biniou=[0,biniou_of_json,json_of_biniou]; - caml_register_global(1022,Yojson_biniou,"Yojson_biniou"); - var Json_error=[248,cst_Yojson_Json_error,caml_fresh_oo_id(0)]; - function json_error(s){throw [0,Json_error,s]} - var - End_of_array=[248,cst_Yojson_End_of_array,caml_fresh_oo_id(0)], - End_of_object=[248,cst_Yojson_End_of_object,caml_fresh_oo_id(0)], - End_of_tuple=[248,cst_Yojson_End_of_tuple,caml_fresh_oo_id(0)], - End_of_input=[248,cst_Yojson_End_of_input,caml_fresh_oo_id(0)]; - function utf8_of_code(buf,x) - {var add=Bi_outbuf[15]; - function maxbits(n,x){return 0 === (x >>> n | 0)?1:0} - if(maxbits(7,x))return caml_call2(add,buf,caml_call1(Stdlib_char[1],x)); - if(maxbits(11,x)) - {caml_call2 - (add,buf,caml_call1(Stdlib_char[1],192 | (x >>> 6 | 0) & 31)); - return caml_call2(add,buf,caml_call1(Stdlib_char[1],128 | x & 63))} - if(maxbits(16,x)) - {caml_call2 - (add,buf,caml_call1(Stdlib_char[1],224 | (x >>> 12 | 0) & 15)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 6 | 0) & 63)); - return caml_call2(add,buf,caml_call1(Stdlib_char[1],128 | x & 63))} - if(maxbits(21,x)) - {caml_call2 - (add,buf,caml_call1(Stdlib_char[1],240 | (x >>> 18 | 0) & 7)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 12 | 0) & 63)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 6 | 0) & 63)); - return caml_call2(add,buf,caml_call1(Stdlib_char[1],128 | x & 63))} - if(maxbits(26,x)) - {caml_call2 - (add,buf,caml_call1(Stdlib_char[1],248 | (x >>> 24 | 0) & 3)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 18 | 0) & 63)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 12 | 0) & 63)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 6 | 0) & 63)); - return caml_call2(add,buf,caml_call1(Stdlib_char[1],128 | x & 63))} - if(maxbits(31,x)) - {caml_call2 - (add,buf,caml_call1(Stdlib_char[1],252 | (x >>> 30 | 0) & 1)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 24 | 0) & 63)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 18 | 0) & 63)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 12 | 0) & 63)); - caml_call2 - (add,buf,caml_call1(Stdlib_char[1],128 | (x >>> 6 | 0) & 63)); - return caml_call2(add,buf,caml_call1(Stdlib_char[1],128 | x & 63))} - throw [0,Assert_failure,_d_]} - function utf8_of_surrogate_pair(buf,i,j) - {var high10=i - 55296 | 0,low10=j - 56320 | 0; - return utf8_of_code(buf,65536 + (high10 << 10 | low10) | 0)} - function is_object_or_array(x) - {if(typeof x !== "number") - {var _k2_=x[1],switch$0=848054398 === _k2_?1:963043957 === _k2_?1:0; - if(switch$0)return 1} - return 0} - var Lexer_state=[0]; - function init_lexer(buf,fname,opt,param) - {if(opt)var sth=opt[1],lnum=sth;else var lnum=1; - if(buf) - var buf$0=buf[1],buf$1=buf$0; - else - var buf$1=caml_call3(Bi_outbuf[3],0,0,256); - return [0,buf$1,lnum,0,fname]} - function hex(n) - {var _k1_=10 <= n?n + 87 | 0:n + 48 | 0; - return caml_call1(Stdlib_char[1],_k1_)} - function write_special(src,start,stop,ob,str) - {caml_call4(Bi_outbuf[14],ob,src,start[1],stop - start[1] | 0); - caml_call2(Bi_outbuf[13],ob,str); - start[1] = stop + 1 | 0; - return 0} - function finish_string(src,start,ob) - {try - {var - _k0_= - caml_call4 - (Bi_outbuf[14], - ob, - src, - start[1], - caml_ml_string_length(src) - start[1] | 0); - return _k0_} - catch(exc) - {exc = caml_wrap_exception(exc); - caml_call4 - (Stdlib_printf[3], - _e_, - src, - start[1], - caml_ml_string_length(src) - start[1] | 0); - throw exc}} - function write_string(ob,s) - {caml_call2(Bi_outbuf[15],ob,34); - var start=[0,0],_kY_=caml_ml_string_length(s) - 1 | 0,_kX_=0; - if(! (_kY_ < 0)) - {var i$0=_kX_; - for(;;) - {var c=caml_string_get(s,i$0); - if(92 === c) - write_special(s,start,i$0,ob,cst); - else - {if(35 <= c) - var switch$0=127 === c?1:0; - else - if(8 <= c) - {var switcher=c - 8 | 0; - switch(switcher) - {case 0: - write_special(s,start,i$0,ob,cst_b);var switch$1=1;break; - case 1: - write_special(s,start,i$0,ob,cst_t);var switch$1=1;break; - case 2: - write_special(s,start,i$0,ob,cst_n);var switch$1=1;break; - case 4: - write_special(s,start,i$0,ob,cst_f);var switch$1=1;break; - case 5: - write_special(s,start,i$0,ob,cst_r);var switch$1=1;break; - case 26: - write_special(s,start,i$0,ob,cst$0);var switch$1=1;break; - case 24: - case 25:var switch$0=0,switch$1=0;break; - default:var switch$0=1,switch$1=0} - if(switch$1)var switch$0=2} - else - var switch$0=1; - switch(switch$0) - {case 0:break; - case 1: - caml_call4(Bi_outbuf[14],ob,s,start[1],i$0 - start[1] | 0); - var i=caml_call2(Bi_outbuf[10],ob,6),dst=ob[1]; - caml_call5(Stdlib_bytes[12],cst_u00,0,dst,i,4); - caml_bytes_set(dst,i + 4 | 0,hex(c >>> 4 | 0)); - caml_bytes_set(dst,i + 5 | 0,hex(c & 15)); - start[1] = i$0 + 1 | 0; - break - }} - var _kZ_=i$0 + 1 | 0; - if(_kY_ !== i$0){var i$0=_kZ_;continue} - break}} - finish_string(s,start,ob); - return caml_call2(Bi_outbuf[15],ob,34)} - function json_string_of_string(s) - {var ob=caml_call3(Bi_outbuf[3],0,0,10); - write_string(ob,s); - return caml_call1(Bi_outbuf[4],ob)} - function write_null(ob,param) - {return caml_call2(Bi_outbuf[13],ob,cst_null)} - function write_bool(ob,x) - {var _kW_=x?cst_true:cst_false;return caml_call2(Bi_outbuf[13],ob,_kW_)} - var - _f_=caml_ml_string_length(caml_call1(Stdlib[33],Stdlib[20])), - _g_=caml_ml_string_length(caml_call1(Stdlib[33],Stdlib[19])), - max_digits=caml_call2(Stdlib[17],_g_,_f_); - function write_digits(s,pos,x) - {if(0 === x)return pos; - var - d=x % 10 | 0, - pos$0=write_digits(s,pos,x / 10 | 0), - n=caml_call1(Stdlib[18],d); - caml_bytes_set(s,pos$0,caml_call1(Stdlib_char[1],n + 48 | 0)); - return pos$0 + 1 | 0} - function write_int(ob,x) - {caml_call2(Bi_outbuf[9],ob,max_digits); - if(0 < x){ob[3] = write_digits(ob[1],ob[3],x);return 0} - if(0 <= x)return caml_call2(Bi_outbuf[15],ob,48); - var s=ob[1],pos=ob[3]; - caml_bytes_set(s,pos,45); - ob[3] = write_digits(s,pos + 1 | 0,x); - return 0} - function float_needs_period(s) - {try - {var _kS_=caml_ml_string_length(s) - 1 | 0,_kR_=0; - if(! (_kS_ < 0)) - {var i=_kR_; - for(;;) - {var - match=caml_string_get(s,i), - switch$0=48 <= match?58 <= match?0:1:45 === match?1:0; - if(! switch$0)throw Stdlib[3]; - var _kU_=i + 1 | 0; - if(_kS_ !== i){var i=_kU_;continue} - break}} - var _kT_=1; - return _kT_} - catch(_kV_) - {_kV_ = caml_wrap_exception(_kV_); - if(_kV_ === Stdlib[3])return 0; - throw _kV_}} - function write_float_fast(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var _kP_=0. < x?cst_Infinity:cst_Infinity$0; - return caml_call2(Bi_outbuf[13],ob,_kP_)} - if(4 <= match)return caml_call2(Bi_outbuf[13],ob,cst_NaN); - var s=caml_call2(Stdlib_printf[4],_h_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _kQ_=float_needs_period(s); - return _kQ_?caml_call2(Bi_outbuf[13],ob,cst_0):_kQ_} - function write_float(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var _kN_=0. < x?cst_Infinity$1:cst_Infinity$2; - return caml_call2(Bi_outbuf[13],ob,_kN_)} - if(4 <= match)return caml_call2(Bi_outbuf[13],ob,cst_NaN$0); - var - s1=caml_call2(Stdlib_printf[4],_i_,x), - s=caml_float_of_string(s1) == x?s1:caml_call2(Stdlib_printf[4],_j_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _kO_=float_needs_period(s); - return _kO_?caml_call2(Bi_outbuf[13],ob,cst_0$0):_kO_} - function write_normal_float_prec(significant_figures,ob,x) - {var switcher=significant_figures - 1 | 0; - if(15 < switcher >>> 0) - var s=caml_call2(Stdlib_printf[4],_k_,x); - else - switch(switcher) - {case 0:var s=caml_call2(Stdlib_printf[4],_l_,x);break; - case 1:var s=caml_call2(Stdlib_printf[4],_m_,x);break; - case 2:var s=caml_call2(Stdlib_printf[4],_n_,x);break; - case 3:var s=caml_call2(Stdlib_printf[4],_o_,x);break; - case 4:var s=caml_call2(Stdlib_printf[4],_p_,x);break; - case 5:var s=caml_call2(Stdlib_printf[4],_q_,x);break; - case 6:var s=caml_call2(Stdlib_printf[4],_r_,x);break; - case 7:var s=caml_call2(Stdlib_printf[4],_s_,x);break; - case 8:var s=caml_call2(Stdlib_printf[4],_t_,x);break; - case 9:var s=caml_call2(Stdlib_printf[4],_u_,x);break; - case 10:var s=caml_call2(Stdlib_printf[4],_v_,x);break; - case 11:var s=caml_call2(Stdlib_printf[4],_w_,x);break; - case 12:var s=caml_call2(Stdlib_printf[4],_x_,x);break; - case 13:var s=caml_call2(Stdlib_printf[4],_y_,x);break; - case 14:var s=caml_call2(Stdlib_printf[4],_z_,x);break; - default:var s=caml_call2(Stdlib_printf[4],_A_,x)} - caml_call2(Bi_outbuf[13],ob,s); - var _kM_=float_needs_period(s); - return _kM_?caml_call2(Bi_outbuf[13],ob,cst_0$1):_kM_} - function write_float_prec(significant_figures,ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var _kL_=0. < x?cst_Infinity$3:cst_Infinity$4; - return caml_call2(Bi_outbuf[13],ob,_kL_)} - return 4 <= match - ?caml_call2(Bi_outbuf[13],ob,cst_NaN$1) - :write_normal_float_prec(significant_figures,ob,x)} - function write_std_float_fast(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var - _kJ_= - 0. < x - ?cst_Infinity_value_not_allowed_in_standard_JSON - :cst_Infinity_value_not_allowed_in_standard_JSON$0; - return json_error(_kJ_)} - if(4 <= match) - return json_error(cst_NaN_value_not_allowed_in_standard_JSON); - var s=caml_call2(Stdlib_printf[4],_B_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _kK_=float_needs_period(s); - return _kK_?caml_call2(Bi_outbuf[13],ob,cst_0$2):_kK_} - function write_std_float(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var - _kH_= - 0. < x - ?cst_Infinity_value_not_allowed_in_standard_JSON$1 - :cst_Infinity_value_not_allowed_in_standard_JSON$2; - return json_error(_kH_)} - if(4 <= match) - return json_error(cst_NaN_value_not_allowed_in_standard_JSON$0); - var - s1=caml_call2(Stdlib_printf[4],_C_,x), - s=caml_float_of_string(s1) == x?s1:caml_call2(Stdlib_printf[4],_D_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _kI_=float_needs_period(s); - return _kI_?caml_call2(Bi_outbuf[13],ob,cst_0$3):_kI_} - function write_std_float_prec(significant_figures,ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var - _kG_= - 0. < x - ?cst_Infinity_value_not_allowed_in_standard_JSON$3 - :cst_Infinity_value_not_allowed_in_standard_JSON$4; - return json_error(_kG_)} - return 4 <= match - ?json_error(cst_NaN_value_not_allowed_in_standard_JSON$1) - :write_normal_float_prec(significant_figures,ob,x)} - var - write_intlit=Bi_outbuf[13], - write_floatlit=Bi_outbuf[13], - write_stringlit=Bi_outbuf[13]; - function iter2(f_elt,f_sep,x,param$0) - {if(param$0) - {var l$0=param$0[2],y$0=param$0[1]; - caml_call2(f_elt,x,y$0); - var param=l$0; - for(;;) - {if(param) - {var l=param[2],y=param[1]; - caml_call1(f_sep,x); - caml_call2(f_elt,x,y); - var param=l; - continue} - return 0}} - return 0} - function f_sep(ob){return caml_call2(Bi_outbuf[15],ob,44)} - function write_variant(ob,s,o) - {caml_call2(Bi_outbuf[15],ob,60); - write_string(ob,s); - if(o){var x=o[1];caml_call2(Bi_outbuf[15],ob,58);write_t(ob,x)} - return caml_call2(Bi_outbuf[15],ob,62)} - function write_tuple(ob,l) - {caml_call2(Bi_outbuf[15],ob,40); - iter2(write_t,f_sep,ob,l); - return caml_call2(Bi_outbuf[15],ob,41)} - function write_list(ob,l) - {caml_call2(Bi_outbuf[15],ob,91); - iter2(write_t,f_sep,ob,l); - return caml_call2(Bi_outbuf[15],ob,93)} - function write_assoc(ob,l) - {function f_elt(ob,param) - {var x=param[2],s=param[1]; - write_string(ob,s); - caml_call2(Bi_outbuf[15],ob,58); - return write_t(ob,x)} - caml_call2(Bi_outbuf[15],ob,123); - iter2(f_elt,f_sep,ob,l); - return caml_call2(Bi_outbuf[15],ob,125)} - function write_t(ob,x) - {if(typeof x === "number")return write_null(ob,0); - var _kF_=x[1]; - if(708012133 <= _kF_) - {if(737456202 <= _kF_) - {if(928231259 <= _kF_) - {if(963043957 <= _kF_){var l=x[2];return write_assoc(ob,l)} - var s=x[2]; - return caml_call2(Bi_outbuf[13],ob,s)} - if(848054398 <= _kF_){var l$0=x[2];return write_list(ob,l$0)} - var b=x[2]; - return write_bool(ob,b)} - if(726928360 <= _kF_){var l$1=x[2];return write_tuple(ob,l$1)} - var match=x[2],o=match[2],s$0=match[1]; - return write_variant(ob,s$0,o)} - if(-752863768 === _kF_) - {var s$1=x[2];return caml_call2(Bi_outbuf[13],ob,s$1)} - if(3654863 <= _kF_) - {if(365180284 <= _kF_){var f=x[2];return write_float(ob,f)} - var i=x[2]; - return write_int(ob,i)} - if(-375152890 <= _kF_) - {var s$2=x[2];return caml_call2(Bi_outbuf[13],ob,s$2)} - var s$3=x[2]; - return write_string(ob,s$3)} - function write_std_variant(ob,s,o) - {if(o) - {var x=o[1]; - caml_call2(Bi_outbuf[15],ob,91); - write_string(ob,s); - caml_call2(Bi_outbuf[15],ob,44); - write_std_json(ob,x); - return caml_call2(Bi_outbuf[15],ob,93)} - return write_string(ob,s)} - function write_std_tuple(ob,l) - {caml_call2(Bi_outbuf[15],ob,91); - iter2(write_std_json,f_sep,ob,l); - return caml_call2(Bi_outbuf[15],ob,93)} - function write_std_json(ob,x) - {if(typeof x === "number")return write_null(ob,0); - var _kE_=x[1]; - if(708012133 <= _kE_) - {if(737456202 <= _kE_) - {if(928231259 <= _kE_) - {if(963043957 <= _kE_) - {var - l=x[2], - f_elt= - function(ob,param) - {var x=param[2],s=param[1]; - write_string(ob,s); - caml_call2(Bi_outbuf[15],ob,58); - return write_std_json(ob,x)}; - caml_call2(Bi_outbuf[15],ob,123); - iter2(f_elt,f_sep,ob,l); - return caml_call2(Bi_outbuf[15],ob,125)} - var s=x[2]; - return caml_call2(Bi_outbuf[13],ob,s)} - if(848054398 <= _kE_) - {var l$0=x[2]; - caml_call2(Bi_outbuf[15],ob,91); - iter2(write_std_json,f_sep,ob,l$0); - return caml_call2(Bi_outbuf[15],ob,93)} - var b=x[2]; - return write_bool(ob,b)} - if(726928360 <= _kE_){var l$1=x[2];return write_std_tuple(ob,l$1)} - var match=x[2],o=match[2],s$0=match[1]; - return write_std_variant(ob,s$0,o)} - if(-752863768 === _kE_) - {var s$1=x[2];return caml_call2(Bi_outbuf[13],ob,s$1)} - if(3654863 <= _kE_) - {if(365180284 <= _kE_){var f=x[2];return write_std_float(ob,f)} - var i=x[2]; - return write_int(ob,i)} - if(-375152890 <= _kE_) - {var s$2=x[2];return caml_call2(Bi_outbuf[13],ob,s$2)} - var s$3=x[2]; - return write_string(ob,s$3)} - function to_outbuf(opt,ob,x) - {if(opt)var sth=opt[1],std=sth;else var std=0; - return std - ?is_object_or_array(x) - ?write_std_json(ob,x) - :json_error(cst_Root_is_not_an_object_or_array) - :write_t(ob,x)} - function to_string(buf,opt,std,x) - {if(opt)var sth=opt[1],len=sth;else var len=256; - if(buf) - {var ob=buf[1];caml_call1(Bi_outbuf[19],ob);var ob$0=ob} - else - var ob$0=caml_call3(Bi_outbuf[3],0,0,len); - to_outbuf(std,ob$0,x); - var s=caml_call1(Bi_outbuf[4],ob$0); - caml_call1(Bi_outbuf[19],ob$0); - return s} - function to_channel(buf,len,std,oc,x) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[5],len,0,oc); - to_outbuf(std,ob$0,x); - return caml_call1(Bi_outbuf[6],ob$0)} - function to_output(buf,len,std,out,x) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[7],len,0,out); - to_outbuf(std,ob$0,x); - return caml_call1(Bi_outbuf[8],ob$0)} - function to_file(len,std,file,x) - {var oc=caml_call1(Stdlib[60],file); - try - {to_channel(0,len,std,oc,x); - var _kD_=caml_call1(Stdlib[76],oc); - return _kD_} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[77],oc);throw e}} - function stream_to_outbuf(std,ob,st) - {function _kB_(_kC_){return to_outbuf(std,ob,_kC_)} - return caml_call2(Stdlib_stream[8],_kB_,st)} - function stream_to_string(buf,opt,std,st) - {if(opt)var sth=opt[1],len=sth;else var len=256; - if(buf) - {var ob=buf[1];caml_call1(Bi_outbuf[19],ob);var ob$0=ob} - else - var ob$0=caml_call3(Bi_outbuf[3],0,0,len); - stream_to_outbuf(std,ob$0,st); - var s=caml_call1(Bi_outbuf[4],ob$0); - caml_call1(Bi_outbuf[19],ob$0); - return s} - function stream_to_channel(buf,len,std,oc,st) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[5],len,0,oc); - stream_to_outbuf(std,ob$0,st); - return caml_call1(Bi_outbuf[6],ob$0)} - function stream_to_file(len,std,file,st) - {var oc=caml_call1(Stdlib[60],file); - try - {stream_to_channel(0,len,std,oc,st); - var _kA_=caml_call1(Stdlib[76],oc); - return _kA_} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[77],oc);throw e}} - function sort(x) - {if(typeof x !== "number") - {var _kr_=x[1]; - if(726928361 <= _kr_) - {if(848054398 === _kr_) - {var l=x[2],_ks_=caml_call2(Stdlib_list[19],sort,l); - return [0,848054398,caml_call1(Stdlib_list[9],_ks_)]} - if(963043957 === _kr_) - {var - l$0=x[2], - _kt_= - function(param){var v=param[2],k=param[1];return [0,k,sort(v)]}, - _ku_=caml_call2(Stdlib_list[19],_kt_,l$0), - l$1=caml_call1(Stdlib_list[9],_ku_), - _kv_= - function(param,_kz_) - {var b=_kz_[1],a=param[1]; - return caml_call2(Stdlib_string[33],a,b)}; - return [0,963043957,caml_call2(Stdlib_list[50],_kv_,l$1)]}} - else - if(708012133 === _kr_) - {var _kw_=x[2],_kx_=_kw_[2]; - if(_kx_) - {var v=_kx_[1],k=_kw_[1],v$0=sort(v); - return v === v$0?x:[0,708012133,[0,k,[0,v$0]]]}} - else - if(726928360 <= _kr_) - {var l$2=x[2],_ky_=caml_call2(Stdlib_list[19],sort,l$2); - return [0,726928360,caml_call1(Stdlib_list[9],_ky_)]}} - return x} - function pp(fmt,param) - {if(typeof param === "number") - return caml_call2(Stdlib_format[13],fmt,cst_Null); - var _kk_=param[1]; - if(708012133 <= _kk_) - {if(737456202 <= _kk_) - {if(928231259 <= _kk_) - {if(963043957 <= _kk_) - {var xs=param[2]; - caml_call2(Stdlib_format[123],fmt,_E_); - caml_call2(Stdlib_format[123],fmt,_F_); - var - _kl_=0, - _km_= - function(sep,param) - {var value=param[2],key=param[1]; - if(sep)caml_call2(Stdlib_format[123],fmt,_G_); - caml_call2(Stdlib_format[123],fmt,_H_); - caml_call3(Stdlib_format[123],fmt,_I_,key); - caml_call2(Stdlib_format[123],fmt,_J_); - pp(fmt,value); - caml_call2(Stdlib_format[123],fmt,_K_); - return 1}; - caml_call3(Stdlib_list[21],_km_,_kl_,xs); - caml_call2(Stdlib_format[123],fmt,_L_); - return caml_call2(Stdlib_format[123],fmt,_M_)} - var x=param[2]; - caml_call2(Stdlib_format[123],fmt,_N_); - caml_call3(Stdlib_format[123],fmt,_O_,x); - return caml_call2(Stdlib_format[123],fmt,_P_)} - if(848054398 <= _kk_) - {var xs$0=param[2]; - caml_call2(Stdlib_format[123],fmt,_Q_); - caml_call2(Stdlib_format[123],fmt,_R_); - var - _kn_=0, - _ko_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_S_); - pp(fmt,x); - return 1}; - caml_call3(Stdlib_list[21],_ko_,_kn_,xs$0); - caml_call2(Stdlib_format[123],fmt,_T_); - return caml_call2(Stdlib_format[123],fmt,_U_)} - var x$0=param[2]; - caml_call2(Stdlib_format[123],fmt,_V_); - caml_call3(Stdlib_format[123],fmt,_W_,x$0); - return caml_call2(Stdlib_format[123],fmt,_X_)} - if(726928360 <= _kk_) - {var tup=param[2]; - caml_call2(Stdlib_format[123],fmt,_Y_); - caml_call2(Stdlib_format[123],fmt,_Z_); - var - _kp_=0, - _kq_= - function(sep,e) - {if(sep)caml_call2(Stdlib_format[123],fmt,___); - pp(fmt,e); - return 1}; - caml_call3(Stdlib_list[21],_kq_,_kp_,tup); - caml_call2(Stdlib_format[123],fmt,_$_); - return caml_call2(Stdlib_format[123],fmt,_aa_)} - var match=param[2],value=match[2],name=match[1]; - caml_call2(Stdlib_format[123],fmt,_ab_); - caml_call2(Stdlib_format[123],fmt,_ac_); - caml_call3(Stdlib_format[123],fmt,_ad_,name); - caml_call2(Stdlib_format[123],fmt,_ae_); - if(value) - {var x$1=value[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some); - pp(fmt,x$1); - caml_call2(Stdlib_format[13],fmt,cst$1)} - else - caml_call2(Stdlib_format[13],fmt,cst_None); - caml_call2(Stdlib_format[123],fmt,_af_); - return caml_call2(Stdlib_format[123],fmt,_ag_)} - if(-752863768 === _kk_) - {var x$2=param[2]; - caml_call2(Stdlib_format[123],fmt,_ah_); - caml_call3(Stdlib_format[123],fmt,_ai_,x$2); - return caml_call2(Stdlib_format[123],fmt,_aj_)} - if(3654863 <= _kk_) - {if(365180284 <= _kk_) - {var x$3=param[2]; - caml_call2(Stdlib_format[123],fmt,_ak_); - caml_call3(Stdlib_format[123],fmt,_al_,x$3); - return caml_call2(Stdlib_format[123],fmt,_am_)} - var x$4=param[2]; - caml_call2(Stdlib_format[123],fmt,_an_); - caml_call3(Stdlib_format[123],fmt,_ao_,x$4); - return caml_call2(Stdlib_format[123],fmt,_ap_)} - if(-375152890 <= _kk_) - {var x$5=param[2]; - caml_call2(Stdlib_format[123],fmt,_aq_); - caml_call3(Stdlib_format[123],fmt,_ar_,x$5); - return caml_call2(Stdlib_format[123],fmt,_as_)} - var x$6=param[2]; - caml_call2(Stdlib_format[123],fmt,_at_); - caml_call3(Stdlib_format[123],fmt,_au_,x$6); - return caml_call2(Stdlib_format[123],fmt,_av_)} - function show(x){return caml_call3(Stdlib_format[127],_aw_,pp,x)} - function equal(a,b) - {var a$0=a,b$0=b; - for(;;) - {if(typeof a$0 === "number") - {if(870828711 === a$0)if(870828711 === b$0)return 1} - else - {var _kd_=a$0[1]; - if(708012133 <= _kd_) - {if(848054398 <= _kd_) - if(928231259 === _kd_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(928231259 === b$0[1]) - {var b$1=b$0[2],a$1=a$0[2];return caml_equal(a$1,b$1)} - var switch$0=0} - else - if(963043957 === _kd_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(963043957 === b$0[1]) - {var - ys=b$0[2], - xs=a$0[2], - compare_keys= - function(param,_kj_) - {var key=_kj_[1],key$0=param[1]; - return caml_call2(Stdlib_string[33],key$0,key)}, - xs$0=caml_call2(Stdlib_list[50],compare_keys,xs), - ys$0=caml_call2(Stdlib_list[50],compare_keys,ys); - try - {var - _ke_= - function(param,_ki_) - {var - value=_ki_[2], - key=_ki_[1], - value$0=param[2], - key$0=param[1], - match=caml_string_equal(key$0,key); - return 0 === match?0:equal(value$0,value)}, - result=caml_call3(Stdlib_list[30],_ke_,xs$0,ys$0); - return result} - catch(_kh_) - {_kh_ = caml_wrap_exception(_kh_); - if(_kh_[1] === Stdlib[6])return 0; - throw _kh_}} - var switch$0=0} - else - if(848054399 <= _kd_) - var switch$0=0; - else - if(typeof b$0 === "number") - var switch$0=0; - else - if(848054398 === b$0[1]) - var xs$1=a$0[2],ys$1=b$0[2],switch$0=1; - else - var switch$0=0; - else - if(726928360 === _kd_) - if(typeof b$0 === "number") - var switch$0=0; - else - if(726928360 === b$0[1]) - var xs$1=a$0[2],ys$1=b$0[2],switch$0=1; - else - var switch$0=0; - else - if(737456202 === _kd_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(737456202 === b$0[1]) - {var b$2=b$0[2],a$2=a$0[2];return caml_equal(a$2,b$2)} - var switch$0=0} - else - if(708012134 <= _kd_) - var switch$0=0; - else - if(typeof b$0 === "number") - var switch$0=0; - else - {if(708012133 === b$0[1]) - {var - _kf_=b$0[2], - value=_kf_[2], - name=_kf_[1], - match=a$0[2], - value$0=match[2], - name$0=match[1], - match$0=caml_equal(name$0,name); - if(0 === match$0)return 0; - if(value$0) - {if(value) - {var b$3=value[1],a$3=value$0[1],a$0=a$3,b$0=b$3;continue}} - else - if(! value)return 1; - return 0} - var switch$0=0} - if(switch$0) - try - {var result$0=caml_call3(Stdlib_list[30],equal,xs$1,ys$1); - return result$0} - catch(_kg_) - {_kg_ = caml_wrap_exception(_kg_); - if(_kg_[1] === Stdlib[6])return 0; - throw _kg_}} - else - if(-375152890 <= _kd_) - {if(3654863 === _kd_) - {if(typeof b$0 !== "number") - if(3654863 === b$0[1]) - {var b$4=b$0[2],a$4=a$0[2];return caml_equal(a$4,b$4)}} - else - if(365180284 === _kd_) - {if(typeof b$0 !== "number") - if(365180284 === b$0[1]) - {var b$5=b$0[2],a$5=a$0[2];return caml_equal(a$5,b$5)}} - else - if(! (-375152889 <= _kd_)) - if(typeof b$0 !== "number") - if(-375152890 === b$0[1]) - {var b$6=b$0[2],a$6=a$0[2];return caml_equal(a$6,b$6)}} - else - if(-976970511 === _kd_) - {if(typeof b$0 !== "number") - if(-976970511 === b$0[1]) - {var b$7=b$0[2],a$7=a$0[2];return caml_equal(a$7,b$7)}} - else - if(-752863768 === _kd_) - if(typeof b$0 !== "number") - if(-752863768 === b$0[1]) - {var b$8=b$0[2],a$8=a$0[2];return caml_equal(a$8,b$8)}} - return 0}} - var - array=Easy_format[2], - record=Easy_format[2], - _ax_=Easy_format[2], - tuple= - [0, - 0, - _ax_[2], - _ax_[3], - _ax_[4], - 0, - _ax_[6], - 0, - _ax_[8], - _ax_[9], - _ax_[10], - _ax_[11], - _ax_[12], - _ax_[13], - _ax_[14]], - _ay_=Easy_format[2], - variant= - [0, - _ay_[1], - _ay_[2], - _ay_[3], - _ay_[4], - 0, - _ay_[6], - _ay_[7], - _ay_[8], - _ay_[9], - _ay_[10], - _ay_[11], - _ay_[12], - _ay_[13], - _ay_[14]]; - function _az_(std,x) - {var x$0=x; - for(;;) - {if(typeof x$0 === "number")return [0,cst_null$0,Easy_format[1]]; - var _jT_=x$0[1]; - if(726928360 <= _jT_) - {if(737456202 === _jT_) - {var - x$1=x$0[2], - _jU_=Easy_format[1], - _jV_=x$1?cst_true$0:cst_false$0; - return [0,_jV_,_jU_]} - if(! (928231259 <= _jT_)) - {if(848054398 <= _jT_) - {var _jY_=x$0[2]; - if(_jY_) - {var _jZ_=function(_kc_){return _az_(std,_kc_)}; - return [1, - [0,cst$8,cst$7,cst$6,array], - caml_call2(Stdlib_list[17],_jZ_,_jY_)]} - return [0,cst$9,Easy_format[1]]} - var l=x$0[2]; - if(std){var x$2=[0,848054398,l],x$0=x$2;continue} - if(0 === l)return [0,cst$10,Easy_format[1]]; - var _j0_=function(_kb_){return _az_(std,_kb_)}; - return [1, - [0,cst$13,cst$12,cst$11,tuple], - caml_call2(Stdlib_list[17],_j0_,l)]} - if(963043957 <= _jT_) - {var _jW_=x$0[2]; - if(_jW_) - {var - _jX_= - function(param) - {var - x=param[2], - name=param[1], - _j$_=json_string_of_string(name), - s=caml_call2(Stdlib_printf[4],_aA_,_j$_), - _ka_=_az_(std,x); - return [2,[0,[0,s,Easy_format[1]],Easy_format[3]],_ka_]}; - return [1, - [0,cst$4,cst$3,cst$2,record], - caml_call2(Stdlib_list[17],_jX_,_jW_)]} - return [0,cst$5,Easy_format[1]]}} - else - {if(3654863 === _jT_) - {var x$3=x$0[2],_j1_=Easy_format[1]; - return [0,caml_call1(Stdlib[33],x$3),_j1_]} - if(365180284 <= _jT_) - {if(708012133 <= _jT_) - {var _j2_=x$0[2],_j3_=_j2_[2],_j4_=_j2_[1]; - if(_j3_) - {var x$4=_j3_[1]; - if(std) - {var - x$5=[0,848054398,[0,[0,-976970511,_j4_],[0,x$4,0]]], - x$0=x$5; - continue} - var - _j5_=json_string_of_string(_j4_), - _j6_=caml_call2(Stdlib[28],_j5_,cst$14), - op=caml_call2(Stdlib[28],cst$15,_j6_); - return [1,[0,op,cst$17,cst$16,variant],[0,_az_(std,x$4),0]]} - if(std){var x$6=[0,-976970511,_j4_],x$0=x$6;continue} - var - _j7_=Easy_format[1], - _j8_=json_string_of_string(_j4_), - _j9_=caml_call2(Stdlib[28],_j8_,cst$18); - return [0,caml_call2(Stdlib[28],cst$19,_j9_),_j7_]} - var x$7=x$0[2]; - if(std) - {var ob$0=caml_call3(Bi_outbuf[3],0,0,20); - write_std_float(ob$0,x$7); - var s$0=caml_call1(Bi_outbuf[4],ob$0)} - else - {var ob=caml_call3(Bi_outbuf[3],0,0,20); - write_float(ob,x$7); - var s$0=caml_call1(Bi_outbuf[4],ob)} - return [0,s$0,Easy_format[1]]} - if(! (-752863768 <= _jT_)) - {var s$1=x$0[2],_j__=Easy_format[1]; - return [0,json_string_of_string(s$1),_j__]}} - var s=x$0[2]; - return [0,s,Easy_format[1]]}} - function format(opt,x) - {if(opt)var sth=opt[1],std=sth;else var std=0; - if(std) - if(! is_object_or_array(x)) - return json_error - (cst_Root_is_not_an_object_or_array_as_requested_by_the_JSON_standard); - return _az_(std,x)} - function to_string$0(std,x) - {var _jS_=format(std,x);return caml_call3(Easy_format[4][4],0,0,_jS_)} - function to_channel$0(std,oc,x) - {var _jR_=format(std,x);return caml_call4(Easy_format[4][5],0,0,oc,_jR_)} - function pretty_format(std,x){return format(std,x)} - function pretty_print(std,out,x) - {var _jQ_=pretty_format(std,x); - return caml_call2(Easy_format[4][2],out,_jQ_)} - function pretty_to_string(std,x){return to_string$0(std,x)} - function pretty_to_channel(std,oc,x){return to_channel$0(std,oc,x)} - function hex$0(n) - {var _jP_=10 <= n?n + 87 | 0:n + 48 | 0; - return caml_call1(Stdlib_char[1],_jP_)} - function write_special$0(src,start,stop,ob,str) - {caml_call4(Bi_outbuf[14],ob,src,start[1],stop - start[1] | 0); - caml_call2(Bi_outbuf[13],ob,str); - start[1] = stop + 1 | 0; - return 0} - function finish_string$0(src,start,ob) - {try - {var - _jO_= - caml_call4 - (Bi_outbuf[14], - ob, - src, - start[1], - caml_ml_string_length(src) - start[1] | 0); - return _jO_} - catch(exc) - {exc = caml_wrap_exception(exc); - caml_call4 - (Stdlib_printf[3], - _aB_, - src, - start[1], - caml_ml_string_length(src) - start[1] | 0); - throw exc}} - function write_string$0(ob,s) - {caml_call2(Bi_outbuf[15],ob,34); - var start=[0,0],_jM_=caml_ml_string_length(s) - 1 | 0,_jL_=0; - if(! (_jM_ < 0)) - {var i$0=_jL_; - for(;;) - {var c=caml_string_get(s,i$0); - if(92 === c) - write_special$0(s,start,i$0,ob,cst$20); - else - {if(35 <= c) - var switch$0=127 === c?1:0; - else - if(8 <= c) - {var switcher=c - 8 | 0; - switch(switcher) - {case 0: - write_special$0(s,start,i$0,ob,cst_b$0); - var switch$1=1; - break; - case 1: - write_special$0(s,start,i$0,ob,cst_t$0); - var switch$1=1; - break; - case 2: - write_special$0(s,start,i$0,ob,cst_n$0); - var switch$1=1; - break; - case 4: - write_special$0(s,start,i$0,ob,cst_f$0); - var switch$1=1; - break; - case 5: - write_special$0(s,start,i$0,ob,cst_r$0); - var switch$1=1; - break; - case 26: - write_special$0(s,start,i$0,ob,cst$21);var switch$1=1;break; - case 24: - case 25:var switch$0=0,switch$1=0;break; - default:var switch$0=1,switch$1=0} - if(switch$1)var switch$0=2} - else - var switch$0=1; - switch(switch$0) - {case 0:break; - case 1: - caml_call4(Bi_outbuf[14],ob,s,start[1],i$0 - start[1] | 0); - var i=caml_call2(Bi_outbuf[10],ob,6),dst=ob[1]; - caml_call5(Stdlib_bytes[12],cst_u00$0,0,dst,i,4); - caml_bytes_set(dst,i + 4 | 0,hex$0(c >>> 4 | 0)); - caml_bytes_set(dst,i + 5 | 0,hex$0(c & 15)); - start[1] = i$0 + 1 | 0; - break - }} - var _jN_=i$0 + 1 | 0; - if(_jM_ !== i$0){var i$0=_jN_;continue} - break}} - finish_string$0(s,start,ob); - return caml_call2(Bi_outbuf[15],ob,34)} - function write_null$0(ob,param) - {return caml_call2(Bi_outbuf[13],ob,cst_null$1)} - function write_bool$0(ob,x) - {var _jK_=x?cst_true$1:cst_false$1; - return caml_call2(Bi_outbuf[13],ob,_jK_)} - var - _aC_=caml_ml_string_length(caml_call1(Stdlib[33],Stdlib[20])), - _aD_=caml_ml_string_length(caml_call1(Stdlib[33],Stdlib[19])), - max_digits$0=caml_call2(Stdlib[17],_aD_,_aC_); - function write_digits$0(s,pos,x) - {if(0 === x)return pos; - var - d=x % 10 | 0, - pos$0=write_digits$0(s,pos,x / 10 | 0), - n=caml_call1(Stdlib[18],d); - caml_bytes_set(s,pos$0,caml_call1(Stdlib_char[1],n + 48 | 0)); - return pos$0 + 1 | 0} - function write_int$0(ob,x) - {caml_call2(Bi_outbuf[9],ob,max_digits$0); - if(0 < x){ob[3] = write_digits$0(ob[1],ob[3],x);return 0} - if(0 <= x)return caml_call2(Bi_outbuf[15],ob,48); - var s=ob[1],pos=ob[3]; - caml_bytes_set(s,pos,45); - ob[3] = write_digits$0(s,pos + 1 | 0,x); - return 0} - function float_needs_period$0(s) - {try - {var _jG_=caml_ml_string_length(s) - 1 | 0,_jF_=0; - if(! (_jG_ < 0)) - {var i=_jF_; - for(;;) - {var - match=caml_string_get(s,i), - switch$0=48 <= match?58 <= match?0:1:45 === match?1:0; - if(! switch$0)throw Stdlib[3]; - var _jI_=i + 1 | 0; - if(_jG_ !== i){var i=_jI_;continue} - break}} - var _jH_=1; - return _jH_} - catch(_jJ_) - {_jJ_ = caml_wrap_exception(_jJ_); - if(_jJ_ === Stdlib[3])return 0; - throw _jJ_}} - function write_float_fast$0(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var _jD_=0. < x?cst_Infinity$5:cst_Infinity$6; - return caml_call2(Bi_outbuf[13],ob,_jD_)} - if(4 <= match)return caml_call2(Bi_outbuf[13],ob,cst_NaN$2); - var s=caml_call2(Stdlib_printf[4],_aE_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _jE_=float_needs_period$0(s); - return _jE_?caml_call2(Bi_outbuf[13],ob,cst_0$4):_jE_} - function write_float$0(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var _jB_=0. < x?cst_Infinity$7:cst_Infinity$8; - return caml_call2(Bi_outbuf[13],ob,_jB_)} - if(4 <= match)return caml_call2(Bi_outbuf[13],ob,cst_NaN$3); - var - s1=caml_call2(Stdlib_printf[4],_aF_,x), - s=caml_float_of_string(s1) == x?s1:caml_call2(Stdlib_printf[4],_aG_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _jC_=float_needs_period$0(s); - return _jC_?caml_call2(Bi_outbuf[13],ob,cst_0$5):_jC_} - function write_normal_float_prec$0(significant_figures,ob,x) - {var switcher=significant_figures - 1 | 0; - if(15 < switcher >>> 0) - var s=caml_call2(Stdlib_printf[4],_aH_,x); - else - switch(switcher) - {case 0:var s=caml_call2(Stdlib_printf[4],_aI_,x);break; - case 1:var s=caml_call2(Stdlib_printf[4],_aJ_,x);break; - case 2:var s=caml_call2(Stdlib_printf[4],_aK_,x);break; - case 3:var s=caml_call2(Stdlib_printf[4],_aL_,x);break; - case 4:var s=caml_call2(Stdlib_printf[4],_aM_,x);break; - case 5:var s=caml_call2(Stdlib_printf[4],_aN_,x);break; - case 6:var s=caml_call2(Stdlib_printf[4],_aO_,x);break; - case 7:var s=caml_call2(Stdlib_printf[4],_aP_,x);break; - case 8:var s=caml_call2(Stdlib_printf[4],_aQ_,x);break; - case 9:var s=caml_call2(Stdlib_printf[4],_aR_,x);break; - case 10:var s=caml_call2(Stdlib_printf[4],_aS_,x);break; - case 11:var s=caml_call2(Stdlib_printf[4],_aT_,x);break; - case 12:var s=caml_call2(Stdlib_printf[4],_aU_,x);break; - case 13:var s=caml_call2(Stdlib_printf[4],_aV_,x);break; - case 14:var s=caml_call2(Stdlib_printf[4],_aW_,x);break; - default:var s=caml_call2(Stdlib_printf[4],_aX_,x)} - caml_call2(Bi_outbuf[13],ob,s); - var _jA_=float_needs_period$0(s); - return _jA_?caml_call2(Bi_outbuf[13],ob,cst_0$6):_jA_} - function write_float_prec$0(significant_figures,ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var _jz_=0. < x?cst_Infinity$9:cst_Infinity$10; - return caml_call2(Bi_outbuf[13],ob,_jz_)} - return 4 <= match - ?caml_call2(Bi_outbuf[13],ob,cst_NaN$4) - :write_normal_float_prec$0(significant_figures,ob,x)} - function write_std_float_fast$0(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var - _jx_= - 0. < x - ?cst_Infinity_value_not_allowed_in_standard_JSON$5 - :cst_Infinity_value_not_allowed_in_standard_JSON$6; - return json_error(_jx_)} - if(4 <= match) - return json_error(cst_NaN_value_not_allowed_in_standard_JSON$2); - var s=caml_call2(Stdlib_printf[4],_aY_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _jy_=float_needs_period$0(s); - return _jy_?caml_call2(Bi_outbuf[13],ob,cst_0$7):_jy_} - function write_std_float$0(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var - _jv_= - 0. < x - ?cst_Infinity_value_not_allowed_in_standard_JSON$7 - :cst_Infinity_value_not_allowed_in_standard_JSON$8; - return json_error(_jv_)} - if(4 <= match) - return json_error(cst_NaN_value_not_allowed_in_standard_JSON$3); - var - s1=caml_call2(Stdlib_printf[4],_aZ_,x), - s=caml_float_of_string(s1) == x?s1:caml_call2(Stdlib_printf[4],_a0_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _jw_=float_needs_period$0(s); - return _jw_?caml_call2(Bi_outbuf[13],ob,cst_0$8):_jw_} - function write_std_float_prec$0(significant_figures,ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var - _ju_= - 0. < x - ?cst_Infinity_value_not_allowed_in_standard_JSON$9 - :cst_Infinity_value_not_allowed_in_standard_JSON$10; - return json_error(_ju_)} - return 4 <= match - ?json_error(cst_NaN_value_not_allowed_in_standard_JSON$4) - :write_normal_float_prec$0(significant_figures,ob,x)} - function iter2$0(f_elt,f_sep,x,param$0) - {if(param$0) - {var l$0=param$0[2],y$0=param$0[1]; - caml_call2(f_elt,x,y$0); - var param=l$0; - for(;;) - {if(param) - {var l=param[2],y=param[1]; - caml_call1(f_sep,x); - caml_call2(f_elt,x,y); - var param=l; - continue} - return 0}} - return 0} - function f_sep$0(ob){return caml_call2(Bi_outbuf[15],ob,44)} - function write_list$0(ob,l) - {caml_call2(Bi_outbuf[15],ob,91); - iter2$0(write_t$0,f_sep$0,ob,l); - return caml_call2(Bi_outbuf[15],ob,93)} - function write_assoc$0(ob,l) - {function f_elt(ob,param) - {var x=param[2],s=param[1]; - write_string$0(ob,s); - caml_call2(Bi_outbuf[15],ob,58); - return write_t$0(ob,x)} - caml_call2(Bi_outbuf[15],ob,123); - iter2$0(f_elt,f_sep$0,ob,l); - return caml_call2(Bi_outbuf[15],ob,125)} - function write_t$0(ob,x) - {if(typeof x === "number")return write_null$0(ob,0); - var _jt_=x[1]; - if(365180284 <= _jt_) - {if(848054398 <= _jt_) - {if(963043957 <= _jt_){var l=x[2];return write_assoc$0(ob,l)} - var l$0=x[2]; - return write_list$0(ob,l$0)} - if(737456202 <= _jt_){var b=x[2];return write_bool$0(ob,b)} - var f=x[2]; - return write_float$0(ob,f)} - if(3654863 <= _jt_){var i=x[2];return write_int$0(ob,i)} - var s=x[2]; - return write_string$0(ob,s)} - function write_std_json$0(ob,x) - {if(typeof x === "number")return write_null$0(ob,0); - var _js_=x[1]; - if(365180284 <= _js_) - {if(848054398 <= _js_) - {if(963043957 <= _js_) - {var - l=x[2], - f_elt= - function(ob,param) - {var x=param[2],s=param[1]; - write_string$0(ob,s); - caml_call2(Bi_outbuf[15],ob,58); - return write_std_json$0(ob,x)}; - caml_call2(Bi_outbuf[15],ob,123); - iter2$0(f_elt,f_sep$0,ob,l); - return caml_call2(Bi_outbuf[15],ob,125)} - var l$0=x[2]; - caml_call2(Bi_outbuf[15],ob,91); - iter2$0(write_std_json$0,f_sep$0,ob,l$0); - return caml_call2(Bi_outbuf[15],ob,93)} - if(737456202 <= _js_){var b=x[2];return write_bool$0(ob,b)} - var f=x[2]; - return write_std_float$0(ob,f)} - if(3654863 <= _js_){var i=x[2];return write_int$0(ob,i)} - var s=x[2]; - return write_string$0(ob,s)} - function to_outbuf$0(opt,ob,x) - {if(opt)var sth=opt[1],std=sth;else var std=0; - return std - ?is_object_or_array(x) - ?write_std_json$0(ob,x) - :json_error(cst_Root_is_not_an_object_or_array$0) - :write_t$0(ob,x)} - function to_string$1(buf,opt,std,x) - {if(opt)var sth=opt[1],len=sth;else var len=256; - if(buf) - {var ob=buf[1];caml_call1(Bi_outbuf[19],ob);var ob$0=ob} - else - var ob$0=caml_call3(Bi_outbuf[3],0,0,len); - to_outbuf$0(std,ob$0,x); - var s=caml_call1(Bi_outbuf[4],ob$0); - caml_call1(Bi_outbuf[19],ob$0); - return s} - function to_channel$1(buf,len,std,oc,x) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[5],len,0,oc); - to_outbuf$0(std,ob$0,x); - return caml_call1(Bi_outbuf[6],ob$0)} - function to_output$0(buf,len,std,out,x) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[7],len,0,out); - to_outbuf$0(std,ob$0,x); - return caml_call1(Bi_outbuf[8],ob$0)} - function to_file$0(len,std,file,x) - {var oc=caml_call1(Stdlib[60],file); - try - {to_channel$1(0,len,std,oc,x); - var _jr_=caml_call1(Stdlib[76],oc); - return _jr_} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[77],oc);throw e}} - function stream_to_outbuf$0(std,ob,st) - {function _jp_(_jq_){return to_outbuf$0(std,ob,_jq_)} - return caml_call2(Stdlib_stream[8],_jp_,st)} - function stream_to_string$0(buf,opt,std,st) - {if(opt)var sth=opt[1],len=sth;else var len=256; - if(buf) - {var ob=buf[1];caml_call1(Bi_outbuf[19],ob);var ob$0=ob} - else - var ob$0=caml_call3(Bi_outbuf[3],0,0,len); - stream_to_outbuf$0(std,ob$0,st); - var s=caml_call1(Bi_outbuf[4],ob$0); - caml_call1(Bi_outbuf[19],ob$0); - return s} - function stream_to_channel$0(buf,len,std,oc,st) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[5],len,0,oc); - stream_to_outbuf$0(std,ob$0,st); - return caml_call1(Bi_outbuf[6],ob$0)} - function stream_to_file$0(len,std,file,st) - {var oc=caml_call1(Stdlib[60],file); - try - {stream_to_channel$0(0,len,std,oc,st); - var _jo_=caml_call1(Stdlib[76],oc); - return _jo_} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[77],oc);throw e}} - function sort$0(x) - {if(typeof x !== "number") - {var _ji_=x[1]; - if(848054398 === _ji_) - {var l=x[2],_jj_=caml_call2(Stdlib_list[19],sort$0,l); - return [0,848054398,caml_call1(Stdlib_list[9],_jj_)]} - if(963043957 === _ji_) - {var - l$0=x[2], - _jk_= - function(param){var v=param[2],k=param[1];return [0,k,sort$0(v)]}, - _jl_=caml_call2(Stdlib_list[19],_jk_,l$0), - l$1=caml_call1(Stdlib_list[9],_jl_), - _jm_= - function(param,_jn_) - {var b=_jn_[1],a=param[1]; - return caml_call2(Stdlib_string[33],a,b)}; - return [0,963043957,caml_call2(Stdlib_list[50],_jm_,l$1)]}} - return x} - function pp$0(fmt,param) - {if(typeof param === "number") - return caml_call2(Stdlib_format[13],fmt,cst_Null$0); - var _jd_=param[1]; - if(365180284 <= _jd_) - {if(848054398 <= _jd_) - {if(963043957 <= _jd_) - {var xs=param[2]; - caml_call2(Stdlib_format[123],fmt,_a1_); - caml_call2(Stdlib_format[123],fmt,_a2_); - var - _je_=0, - _jf_= - function(sep,param) - {var value=param[2],key=param[1]; - if(sep)caml_call2(Stdlib_format[123],fmt,_a3_); - caml_call2(Stdlib_format[123],fmt,_a4_); - caml_call3(Stdlib_format[123],fmt,_a5_,key); - caml_call2(Stdlib_format[123],fmt,_a6_); - pp$0(fmt,value); - caml_call2(Stdlib_format[123],fmt,_a7_); - return 1}; - caml_call3(Stdlib_list[21],_jf_,_je_,xs); - caml_call2(Stdlib_format[123],fmt,_a8_); - return caml_call2(Stdlib_format[123],fmt,_a9_)} - var xs$0=param[2]; - caml_call2(Stdlib_format[123],fmt,_a__); - caml_call2(Stdlib_format[123],fmt,_a$_); - var - _jg_=0, - _jh_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_ba_); - pp$0(fmt,x); - return 1}; - caml_call3(Stdlib_list[21],_jh_,_jg_,xs$0); - caml_call2(Stdlib_format[123],fmt,_bb_); - return caml_call2(Stdlib_format[123],fmt,_bc_)} - if(737456202 <= _jd_) - {var x=param[2]; - caml_call2(Stdlib_format[123],fmt,_bd_); - caml_call3(Stdlib_format[123],fmt,_be_,x); - return caml_call2(Stdlib_format[123],fmt,_bf_)} - var x$0=param[2]; - caml_call2(Stdlib_format[123],fmt,_bg_); - caml_call3(Stdlib_format[123],fmt,_bh_,x$0); - return caml_call2(Stdlib_format[123],fmt,_bi_)} - if(3654863 <= _jd_) - {var x$1=param[2]; - caml_call2(Stdlib_format[123],fmt,_bj_); - caml_call3(Stdlib_format[123],fmt,_bk_,x$1); - return caml_call2(Stdlib_format[123],fmt,_bl_)} - var x$2=param[2]; - caml_call2(Stdlib_format[123],fmt,_bm_); - caml_call3(Stdlib_format[123],fmt,_bn_,x$2); - return caml_call2(Stdlib_format[123],fmt,_bo_)} - function show$0(x){return caml_call3(Stdlib_format[127],_bp_,pp$0,x)} - function equal$0(a,match) - {if(typeof a === "number") - {if(870828711 === a)if(870828711 === match)return 1} - else - {var _i9_=a[1]; - if(365180285 <= _i9_) - {if(737456202 === _i9_) - {if(typeof match !== "number") - if(737456202 === match[1]) - {var b=match[2],a$0=a[2];return caml_equal(a$0,b)}} - else - if(848054398 === _i9_) - {if(typeof match !== "number") - if(848054398 === match[1]) - {var ys=match[2],xs=a[2]; - try - {var result=caml_call3(Stdlib_list[30],equal$0,xs,ys); - return result} - catch(_i$_) - {_i$_ = caml_wrap_exception(_i$_); - if(_i$_[1] === Stdlib[6])return 0; - throw _i$_}}} - else - if(963043957 === _i9_) - if(typeof match !== "number") - if(963043957 === match[1]) - {var - ys$0=match[2], - xs$0=a[2], - compare_keys= - function(param,_jc_) - {var key=_jc_[1],key$0=param[1]; - return caml_call2(Stdlib_string[33],key$0,key)}, - xs$1=caml_call2(Stdlib_list[50],compare_keys,xs$0), - ys$1=caml_call2(Stdlib_list[50],compare_keys,ys$0); - try - {var - _i__= - function(param,_jb_) - {var - value=_jb_[2], - key=_jb_[1], - value$0=param[2], - key$0=param[1], - match=caml_string_equal(key$0,key); - return 0 === match?0:equal$0(value$0,value)}, - result$0=caml_call3(Stdlib_list[30],_i__,xs$1,ys$1); - return result$0} - catch(_ja_) - {_ja_ = caml_wrap_exception(_ja_); - if(_ja_[1] === Stdlib[6])return 0; - throw _ja_}}} - else - if(-976970511 === _i9_) - {if(typeof match !== "number") - if(-976970511 === match[1]) - {var b$0=match[2],a$1=a[2];return caml_equal(a$1,b$0)}} - else - if(3654863 === _i9_) - {if(typeof match !== "number") - if(3654863 === match[1]) - {var b$1=match[2],a$2=a[2];return caml_equal(a$2,b$1)}} - else - if(365180284 <= _i9_) - if(typeof match !== "number") - if(365180284 === match[1]) - {var b$2=match[2],a$3=a[2];return caml_equal(a$3,b$2)}} - return 0} - function pretty_format$0(std,x){return format(std,x)} - function pretty_print$0(std,out,x) - {var _i8_=pretty_format$0(std,x); - return caml_call2(Easy_format[4][2],out,_i8_)} - function pretty_to_string$0(std,x){return to_string$0(std,x)} - function pretty_to_channel$0(std,oc,x){return to_channel$0(std,oc,x)} - var - from_channel=Stdlib_lexing[2], - from_string=Stdlib_lexing[3], - lexeme=Stdlib_lexing[6], - sub_lexeme=Stdlib_lexing[14], - sub_lexeme_char=Stdlib_lexing[16]; - function hex$1(c) - {if(65 <= c) - {if(97 <= c) - {if(! (103 <= c))return (c - 97 | 0) + 10 | 0} - else - if(! (71 <= c))return (c - 65 | 0) + 10 | 0} - else - {var switcher=c - 48 | 0;if(! (9 < switcher >>> 0))return c - 48 | 0} - throw [0,Assert_failure,_bq_]} - function custom_error(descr,v,lexbuf) - {var - offs=lexbuf[4] - 1 | 0, - bol=v[3], - pos1=((offs + lexbuf[5] | 0) - bol | 0) - 1 | 0, - pos2=caml_call2(Stdlib[17],pos1,(offs + lexbuf[6] | 0) - bol | 0), - _i7_=v[4]; - if(_i7_) - var s=_i7_[1],file_line=caml_call2(Stdlib_printf[4],_br_,s); - else - var file_line=cst_Line; - var - bytes= - pos1 === pos2 - ?caml_call2(Stdlib_printf[4],_bs_,pos1 + 1 | 0) - :caml_call3(Stdlib_printf[4],_bu_,pos1 + 1 | 0,pos2 + 1 | 0), - msg=caml_call5(Stdlib_printf[4],_bt_,file_line,v[2],bytes,descr); - return json_error(msg)} - function lexer_error(descr,v,lexbuf) - {var _i6_=caml_call1(lexeme,lexbuf); - return custom_error - (caml_call3(Stdlib_printf[4],_bv_,descr,_i6_),v,lexbuf)} - var read_junk=[0,function(param){throw [0,Assert_failure,_bw_]}]; - function long_error(descr,v,lexbuf) - {var - junk=caml_call1(lexeme,lexbuf), - extra_junk=caml_call1(read_junk[1],lexbuf); - return custom_error - (caml_call4(Stdlib_printf[4],_bx_,descr,junk,extra_junk), - v, - lexbuf)} - var - _by_=0 === (Stdlib[20] % 10 | 0)?0:1, - min10=(Stdlib[20] / 10 | 0) - _by_ | 0, - _bz_=0 === (Stdlib[19] % 10 | 0)?0:1, - max10=(Stdlib[19] / 10 | 0) + _bz_ | 0, - Int_overflow=[248,cst_Yojson_Basic_Int_overflow,caml_fresh_oo_id(0)]; - function extract_positive_int(lexbuf) - {var - start=lexbuf[5], - stop=lexbuf[6], - s=lexbuf[2], - n=[0,0], - _i3_=stop - 1 | 0; - if(! (_i3_ < start)) - {var i=start; - for(;;) - {if(max10 <= n[1])throw Int_overflow; - var _i4_=caml_bytes_get(s,i) - 48 | 0; - n[1] = (10 * n[1] | 0) + _i4_ | 0; - var _i5_=i + 1 | 0; - if(_i3_ !== i){var i=_i5_;continue} - break}} - if(0 <= n[1])return n[1]; - throw Int_overflow} - function extract_negative_int(lexbuf) - {var - start=lexbuf[5] + 1 | 0, - stop=lexbuf[6], - s=lexbuf[2], - n=[0,0], - _i0_=stop - 1 | 0; - if(! (_i0_ < start)) - {var i=start; - for(;;) - {if(n[1] <= min10)throw Int_overflow; - var _i1_=caml_bytes_get(s,i) - 48 | 0; - n[1] = (10 * n[1] | 0) - _i1_ | 0; - var _i2_=i + 1 | 0; - if(_i0_ !== i){var i=_i2_;continue} - break}} - if(0 < n[1])throw Int_overflow; - return n[1]} - function newline(v,lexbuf) - {v[2] = v[2] + 1 | 0;v[3] = lexbuf[4] + lexbuf[6] | 0;return 0} - function add_lexeme(buf,lexbuf) - {var len=lexbuf[6] - lexbuf[5] | 0; - return caml_call4(Bi_outbuf[12],buf,lexbuf[2],lexbuf[5],len)} - function read_json$2(counter,v,lexbuf) - {var _iZ_=0; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return ocaml_lex_read_json_rec(counter$0,v,lexbuf,_iZ_)} - return caml_trampoline_return(ocaml_lex_read_json_rec,[0,v,lexbuf,_iZ_])} - function ocaml_lex_read_json_rec(counter,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(19 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return _bA_; - case 1:return _bB_; - case 2:return 870828711; - case 3:return [0,365180284,Stdlib[24]]; - case 4:return [0,365180284,Stdlib[22]]; - case 5:return [0,365180284,Stdlib[23]]; - case 6: - caml_call1(Bi_outbuf[19],v[1]); - return [0,-976970511,finish_string$1(v,lexbuf)]; - case 7: - try - {var _iP_=[0,3654863,extract_positive_int(lexbuf)];return _iP_} - catch(_iY_) - {_iY_ = caml_wrap_exception(_iY_); - if(_iY_ === Int_overflow) - return lexer_error(cst_Int_overflow,v,lexbuf); - throw _iY_} - case 8: - try - {var _iQ_=[0,3654863,extract_negative_int(lexbuf)];return _iQ_} - catch(_iX_) - {_iX_ = caml_wrap_exception(_iX_); - if(_iX_ === Int_overflow) - return lexer_error(cst_Int_overflow$0,v,lexbuf); - throw _iX_} - case 9: - return [0, - 365180284, - caml_float_of_string(caml_call1(lexeme,lexbuf))]; - case 10: - var acc=[0,0]; - try - {read_space(v,lexbuf); - read_object_end(lexbuf); - var field_name=read_ident(v,lexbuf); - read_space(v,lexbuf); - read_colon(v,lexbuf); - read_space(v,lexbuf); - var _iR_=acc[1]; - acc[1] = [0,[0,field_name,read_json(v,lexbuf)],_iR_]; - for(;;) - {read_space(v,lexbuf); - read_object_sep(v,lexbuf); - read_space(v,lexbuf); - var field_name$0=read_ident(v,lexbuf); - read_space(v,lexbuf); - read_colon(v,lexbuf); - read_space(v,lexbuf); - var _iS_=acc[1]; - acc[1] = [0,[0,field_name$0,read_json(v,lexbuf)],_iS_]; - continue}} - catch(_iW_) - {_iW_ = caml_wrap_exception(_iW_); - if(_iW_ === End_of_object) - return [0,963043957,caml_call1(Stdlib_list[9],acc[1])]; - throw _iW_} - case 11: - var acc$0=[0,0]; - try - {read_space(v,lexbuf); - read_array_end(lexbuf); - var _iT_=acc$0[1]; - acc$0[1] = [0,read_json(v,lexbuf),_iT_]; - for(;;) - {read_space(v,lexbuf); - read_array_sep(v,lexbuf); - read_space(v,lexbuf); - var _iU_=acc$0[1]; - acc$0[1] = [0,read_json(v,lexbuf),_iU_]; - continue}} - catch(_iV_) - {_iV_ = caml_wrap_exception(_iV_); - if(_iV_ === End_of_array) - return [0,848054398,caml_call1(Stdlib_list[9],acc$0[1])]; - throw _iV_} - case 12:return long_error(cst_Invalid_token,v,lexbuf); - case 13:return long_error(cst_Invalid_token$0,v,lexbuf); - case 14: - if(counter < 50) - {var counter$0=counter + 1 | 0; - return read_json$2(counter$0,v,lexbuf)} - return caml_trampoline_return(read_json$2,[0,v,lexbuf]); - case 15: - finish_comment(v,lexbuf); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return read_json$2(counter$1,v,lexbuf)} - return caml_trampoline_return(read_json$2,[0,v,lexbuf]); - case 16: - newline(v,lexbuf); - if(counter < 50) - {var counter$2=counter + 1 | 0; - return read_json$2(counter$2,v,lexbuf)} - return caml_trampoline_return(read_json$2,[0,v,lexbuf]); - case 17: - if(counter < 50) - {var counter$3=counter + 1 | 0; - return read_json$2(counter$3,v,lexbuf)} - return caml_trampoline_return(read_json$2,[0,v,lexbuf]); - case 18:return custom_error(cst_Unexpected_end_of_input,v,lexbuf); - default:return long_error(cst_Invalid_token$1,v,lexbuf)}}} - function read_json(v,lexbuf) - {return caml_trampoline(read_json$2(0,v,lexbuf))} - function finish_string$1(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=58; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call1(Bi_outbuf[4],v[1]); - case 1:finish_escaped_char(v,lexbuf);continue a; - case 2:add_lexeme(v[1],lexbuf);continue a; - default: - return custom_error(cst_Unexpected_end_of_input$0,v,lexbuf)}}}} - function map_string(v,f,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=63; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var b=v[1],_iO_=b[3]; - return caml_call3(f,caml_call1(Stdlib_bytes[6],b[1]),0,_iO_); - case 1:finish_escaped_char(v,lexbuf);continue a; - case 2:add_lexeme(v[1],lexbuf);continue a; - default: - return custom_error(cst_Unexpected_end_of_input$1,v,lexbuf)}}}} - function finish_escaped_char(v,lexbuf) - {var ocaml_lex_state=68; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(8 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var c=caml_call2(sub_lexeme_char,lexbuf,lexbuf[5]); - return caml_call2(Bi_outbuf[15],v[1],c); - case 1:return caml_call2(Bi_outbuf[15],v[1],8); - case 2:return caml_call2(Bi_outbuf[15],v[1],12); - case 3:return caml_call2(Bi_outbuf[15],v[1],10); - case 4:return caml_call2(Bi_outbuf[15],v[1],13); - case 5:return caml_call2(Bi_outbuf[15],v[1],9); - case 6: - var - a=caml_call2(sub_lexeme_char,lexbuf,lexbuf[5] + 1 | 0), - b=caml_call2(sub_lexeme_char,lexbuf,lexbuf[5] + 2 | 0), - c$0=caml_call2(sub_lexeme_char,lexbuf,lexbuf[5] + 3 | 0), - d=caml_call2(sub_lexeme_char,lexbuf,lexbuf[5] + 4 | 0), - _iI_=hex$1(d), - _iJ_=hex$1(c$0) << 4, - _iK_=hex$1(b) << 8, - x=hex$1(a) << 12 | _iK_ | _iJ_ | _iI_; - if(55296 <= x) - if(! (56319 < x)) - {var ocaml_lex_state$1=82; - for(;;) - {var - ocaml_lex_state$2= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$1,lexbuf); - if(2 < ocaml_lex_state$2 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$1=ocaml_lex_state$2; - continue} - switch(ocaml_lex_state$2) - {case 0: - var - a$0=caml_call2(sub_lexeme_char,lexbuf,lexbuf[5] + 2 | 0), - b$0=caml_call2(sub_lexeme_char,lexbuf,lexbuf[5] + 3 | 0), - c$1=caml_call2(sub_lexeme_char,lexbuf,lexbuf[5] + 4 | 0), - d$0=caml_call2(sub_lexeme_char,lexbuf,lexbuf[5] + 5 | 0), - _iL_=hex$1(d$0), - _iM_=hex$1(c$1) << 4, - _iN_=hex$1(b$0) << 8, - y=hex$1(a$0) << 12 | _iN_ | _iM_ | _iL_; - if(56320 <= y) - if(! (57343 < y))return utf8_of_surrogate_pair(v[1],x,y); - return long_error - (cst_Invalid_low_surrogate_for_code_point_beyond_U_FFFF, - v, - lexbuf); - case 1: - return long_error - (cst_Missing_escape_sequence_representing_low_surrogate_for_code_point_beyond_U_FFFF, - v, - lexbuf); - default: - return custom_error(cst_Unexpected_end_of_input$3,v,lexbuf)}}} - return utf8_of_code(v[1],x); - case 7:return long_error(cst_Invalid_escape_sequence,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$2,v,lexbuf)}}} - function finish_stringlit(v,lexbuf) - {var ocaml_lex_state=91; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var len=lexbuf[6] - lexbuf[5] | 0,s=caml_create_bytes(len + 1 | 0); - caml_bytes_set(s,0,34); - caml_call5(Stdlib_bytes[11],lexbuf[2],lexbuf[5],s,1,len); - return caml_call1(Stdlib_bytes[6],s); - case 1:return long_error(cst_Invalid_string_literal,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$4,v,lexbuf)}}} - function finish_variant(v,lexbuf) - {var ocaml_lex_state=102; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var x=read_json(v,lexbuf); - read_space(v,lexbuf); - read_gt(v,lexbuf); - return [0,x]; - case 1:return 0; - case 2:return long_error(cst_Expected_or_but_found,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$5,v,lexbuf)}}} - function read_lt(v,lexbuf) - {var ocaml_lex_state=107; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_but_found,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$6,v,lexbuf)}}} - function read_gt(v,lexbuf) - {var ocaml_lex_state=111; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_but_found$0,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$7,v,lexbuf)}}} - function read_comma(v,lexbuf) - {var ocaml_lex_state=115; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_but_found$1,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$8,v,lexbuf)}}} - function start_any_variant(v,lexbuf) - {var ocaml_lex_state=119; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return -154522342; - case 1:caml_call1(Bi_outbuf[19],v[1]);return -589953938; - case 2:return -124528282; - case 3:return long_error(cst_Expected_or_but_found$0,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$9,v,lexbuf)}}} - function finish_comment(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=125; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Unterminated_comment,v,lexbuf); - case 2:newline(v,lexbuf);continue a; - default:continue a}}}} - function read_eof(lexbuf) - {var ocaml_lex_state=131; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)return 1; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_space(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=133; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:newline(v,lexbuf);continue a; - case 1:finish_comment(v,lexbuf);continue a; - case 2:newline(v,lexbuf);continue a; - case 3:continue a; - default:return 0}}}} - function read_null(v,lexbuf) - {var ocaml_lex_state=140; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_null_but_found,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$10,v,lexbuf)}}} - function read_null_if_possible(v,lexbuf) - {var ocaml_lex_state=147; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)return 1; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_bool(v,lexbuf) - {var ocaml_lex_state=152; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(5 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 1; - case 1:return 0; - case 2:return 1; - case 3:return 0; - case 4: - return long_error(cst_Expected_true_or_false_but_found,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$11,v,lexbuf)}}} - function ocaml_lex_read_int_rec(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(4 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - try - {var _iC_=extract_positive_int(lexbuf);return _iC_} - catch(_iH_) - {_iH_ = caml_wrap_exception(_iH_); - if(_iH_ === Int_overflow) - return lexer_error(cst_Int_overflow$1,v,lexbuf); - throw _iH_} - case 1: - try - {var _iD_=extract_negative_int(lexbuf);return _iD_} - catch(_iG_) - {_iG_ = caml_wrap_exception(_iG_); - if(_iG_ === Int_overflow) - return lexer_error(cst_Int_overflow$2,v,lexbuf); - throw _iG_} - case 2: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$1(v,lexbuf); - try - {var _iE_=caml_int_of_string(s);return _iE_} - catch(_iF_) - {return custom_error - (cst_Expected_an_integer_but_found_a_string_that_doesn_t_even_represent_an_integer, - v, - lexbuf)} - case 3:return long_error(cst_Expected_integer_but_found,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$12,v,lexbuf)}}} - function read_int(v,lexbuf){return ocaml_lex_read_int_rec(v,lexbuf,176)} - function ocaml_lex_read_int32_rec(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(3 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - try - {var _iy_=caml_int_of_string(caml_call1(lexeme,lexbuf)); - return _iy_} - catch(_iB_){return lexer_error(cst_Int32_overflow,v,lexbuf)} - case 1: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$1(v,lexbuf); - try - {var _iz_=caml_int_of_string(s);return _iz_} - catch(_iA_) - {return custom_error - (cst_Expected_an_int32_but_found_a_string_that_doesn_t_even_represent_an_integer, - v, - lexbuf)} - case 2:return long_error(cst_Expected_int32_but_found,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$13,v,lexbuf)}}} - function read_int32(v,lexbuf) - {return ocaml_lex_read_int32_rec(v,lexbuf,185)} - function ocaml_lex_read_int64_rec(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(3 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - try - {var _iu_=caml_int64_of_string(caml_call1(lexeme,lexbuf)); - return _iu_} - catch(_ix_){return lexer_error(cst_Int32_overflow$0,v,lexbuf)} - case 1: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$1(v,lexbuf); - try - {var _iv_=caml_int64_of_string(s);return _iv_} - catch(_iw_) - {return custom_error - (cst_Expected_an_int64_but_found_a_string_that_doesn_t_even_represent_an_integer, - v, - lexbuf)} - case 2:return long_error(cst_Expected_int64_but_found,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$14,v,lexbuf)}}} - function read_int64(v,lexbuf) - {return ocaml_lex_read_int64_rec(v,lexbuf,192)} - function ocaml_lex_read_number_rec(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(6 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return Stdlib[24]; - case 1:return Stdlib[22]; - case 2:return Stdlib[23]; - case 3:return caml_float_of_string(caml_call1(lexeme,lexbuf)); - case 4: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$1(v,lexbuf); - try - {var _is_=caml_float_of_string(s);return _is_} - catch(_it_) - {return caml_string_notequal(s,cst_Infinity$11) - ?caml_string_notequal(s,cst_Infinity$12) - ?caml_string_notequal(s,cst_NaN$5) - ?custom_error - (cst_Expected_a_number_but_found_a_string_that_doesn_t_even_represent_a_number, - v, - lexbuf) - :Stdlib[24] - :Stdlib[22] - :Stdlib[23]} - case 5:return long_error(cst_Expected_number_but_found,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$15,v,lexbuf)}}} - function read_number(v,lexbuf) - {return ocaml_lex_read_number_rec(v,lexbuf,199)} - function read_string(v,lexbuf) - {var ocaml_lex_state=233; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call1(Bi_outbuf[19],v[1]);return finish_string$1(v,lexbuf); - case 1:return long_error(cst_Expected_but_found$2,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$16,v,lexbuf)}}} - function read_ident(v,lexbuf) - {var ocaml_lex_state=237; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call1(Bi_outbuf[19],v[1]);return finish_string$1(v,lexbuf); - case 1: - var s=caml_call3(sub_lexeme,lexbuf,lexbuf[5],lexbuf[6]);return s; - case 2: - return long_error - (cst_Expected_string_or_identifier_but_found,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$17,v,lexbuf)}}} - function map_ident(v,f,lexbuf) - {var ocaml_lex_state=242; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:caml_call1(Bi_outbuf[19],v[1]);return map_string(v,f,lexbuf); - case 1: - var len=lexbuf[6] - lexbuf[5] | 0,_ir_=lexbuf[5]; - return caml_call3(f,caml_call1(Stdlib_bytes[6],lexbuf[2]),_ir_,len); - case 2: - return long_error - (cst_Expected_string_or_identifier_but_found$0,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$18,v,lexbuf)}}} - function ocaml_lex_read_sequence_rec - (read_cell,init_acc,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var acc=[0,init_acc]; - try - {read_space(v,lexbuf); - read_array_end(lexbuf); - acc[1] = caml_call3(read_cell,acc[1],v,lexbuf); - for(;;) - {read_space(v,lexbuf); - read_array_sep(v,lexbuf); - read_space(v,lexbuf); - acc[1] = caml_call3(read_cell,acc[1],v,lexbuf); - continue}} - catch(_iq_) - {_iq_ = caml_wrap_exception(_iq_); - if(_iq_ === End_of_array)return acc[1]; - throw _iq_} - case 1:return long_error(cst_Expected_but_found$3,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$19,v,lexbuf)}}} - function read_sequence(read_cell,init_acc,v,lexbuf) - {return ocaml_lex_read_sequence_rec(read_cell,init_acc,v,lexbuf,247)} - function ocaml_lex_read_list_rev_rec(read_cell,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var acc=[0,0]; - try - {read_space(v,lexbuf); - read_array_end(lexbuf); - var _in_=acc[1]; - acc[1] = [0,caml_call2(read_cell,v,lexbuf),_in_]; - for(;;) - {read_space(v,lexbuf); - read_array_sep(v,lexbuf); - read_space(v,lexbuf); - var _io_=acc[1]; - acc[1] = [0,caml_call2(read_cell,v,lexbuf),_io_]; - continue}} - catch(_ip_) - {_ip_ = caml_wrap_exception(_ip_); - if(_ip_ === End_of_array)return acc[1]; - throw _ip_} - case 1:return long_error(cst_Expected_but_found$4,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$20,v,lexbuf)}}} - function read_list_rev(read_cell,v,lexbuf) - {return ocaml_lex_read_list_rev_rec(read_cell,v,lexbuf,251)} - function read_array_end(lexbuf) - {var ocaml_lex_state=255; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)throw End_of_array; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_array_sep(v,lexbuf) - {var ocaml_lex_state=257; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:throw End_of_array; - case 2:return long_error(cst_Expected_or_but_found$1,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$21,v,lexbuf)}}} - function read_tuple(read_cell,init_acc,v,lexbuf) - {var ocaml_lex_state=262; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return long_error(cst_Invalid_token$2,v,lexbuf); - case 1:return long_error(cst_Expected_but_found$5,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$22,v,lexbuf)}}} - function read_tuple_end(lexbuf) - {var ocaml_lex_state=266; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)throw End_of_tuple; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_tuple_end2(v,std,lexbuf) - {var ocaml_lex_state=268; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - if(std)return long_error(cst_Expected_or_but_found$2,v,lexbuf); - throw End_of_tuple; - case 1: - if(std)throw End_of_tuple; - return long_error(cst_Expected_or_but_found$3,v,lexbuf); - default:return 0}}} - function read_tuple_sep(v,lexbuf) - {var ocaml_lex_state=271; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:throw End_of_tuple; - case 2:return long_error(cst_Expected_or_but_found$4,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$23,v,lexbuf)}}} - function read_tuple_sep2(v,std,lexbuf) - {var ocaml_lex_state=276; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1: - if(std)return long_error(cst_Expected_or_but_found$5,v,lexbuf); - throw End_of_tuple; - case 2: - if(std)throw End_of_tuple; - return long_error(cst_Expected_or_but_found$6,v,lexbuf); - case 3:return long_error(cst_Expected_or_but_found$7,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$24,v,lexbuf)}}} - function ocaml_lex_read_abstract_fields_rec - (read_key,read_field,init_acc,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var acc=[0,init_acc]; - try - {read_space(v,lexbuf); - read_object_end(lexbuf); - var field_name=caml_call2(read_key,v,lexbuf); - read_space(v,lexbuf); - read_colon(v,lexbuf); - read_space(v,lexbuf); - acc[1] = caml_call4(read_field,acc[1],field_name,v,lexbuf); - for(;;) - {read_space(v,lexbuf); - read_object_sep(v,lexbuf); - read_space(v,lexbuf); - var field_name$0=caml_call2(read_key,v,lexbuf); - read_space(v,lexbuf); - read_colon(v,lexbuf); - read_space(v,lexbuf); - acc[1] = caml_call4(read_field,acc[1],field_name$0,v,lexbuf); - continue}} - catch(_im_) - {_im_ = caml_wrap_exception(_im_); - if(_im_ === End_of_object)return acc[1]; - throw _im_} - case 1:return long_error(cst_Expected_but_found$6,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$25,v,lexbuf)}}} - function read_abstract_fields(read_key,read_field,init_acc,v,lexbuf) - {return ocaml_lex_read_abstract_fields_rec - (read_key,read_field,init_acc,v,lexbuf,282)} - function read_lcurl(v,lexbuf) - {var ocaml_lex_state=286; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_but_found$7,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$26,v,lexbuf)}}} - function read_object_end(lexbuf) - {var ocaml_lex_state=290; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)throw End_of_object; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_object_sep(v,lexbuf) - {var ocaml_lex_state=292; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:throw End_of_object; - case 2:return long_error(cst_Expected_or_but_found$8,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$27,v,lexbuf)}}} - function read_colon(v,lexbuf) - {var ocaml_lex_state=297; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_but_found$8,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$28,v,lexbuf)}}} - function start_any_tuple(v,lexbuf) - {var ocaml_lex_state=301; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return 1; - case 2:return long_error(cst_Expected_or_but_found$9,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$29,v,lexbuf)}}} - function read_lpar(v,lexbuf) - {var ocaml_lex_state=306; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_but_found$9,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$30,v,lexbuf)}}} - function read_rpar(v,lexbuf) - {var ocaml_lex_state=310; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_but_found$10,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$31,v,lexbuf)}}} - function read_lbr(v,lexbuf) - {var ocaml_lex_state=314; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_but_found$11,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$32,v,lexbuf)}}} - function read_rbr(v,lexbuf) - {var ocaml_lex_state=318; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Expected_but_found$12,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$33,v,lexbuf)}}} - function finish_skip_stringlit(v,lexbuf) - {var ocaml_lex_state=378; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error(cst_Invalid_string_literal$0,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$35,v,lexbuf)}}} - function skip_json$2(counter,v,lexbuf) - {var _il_=322; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return ocaml_lex_skip_json_rec(counter$0,v,lexbuf,_il_)} - return caml_trampoline_return(ocaml_lex_skip_json_rec,[0,v,lexbuf,_il_])} - function ocaml_lex_skip_json_rec(counter,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(18 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return 0; - case 1:return 0; - case 2:return 0; - case 3:return 0; - case 4:return 0; - case 5:return 0; - case 6:return finish_skip_stringlit(v,lexbuf); - case 7:return 0; - case 8:return 0; - case 9: - try - {read_space(v,lexbuf); - read_object_end(lexbuf); - skip_ident(v,lexbuf); - read_space(v,lexbuf); - read_colon(v,lexbuf); - read_space(v,lexbuf); - skip_json(v,lexbuf); - for(;;) - {read_space(v,lexbuf); - read_object_sep(v,lexbuf); - read_space(v,lexbuf); - skip_ident(v,lexbuf); - read_space(v,lexbuf); - read_colon(v,lexbuf); - read_space(v,lexbuf); - skip_json(v,lexbuf); - continue}} - catch(_ik_) - {_ik_ = caml_wrap_exception(_ik_); - if(_ik_ === End_of_object)return 0; - throw _ik_} - case 10: - try - {read_space(v,lexbuf); - read_array_end(lexbuf); - skip_json(v,lexbuf); - for(;;) - {read_space(v,lexbuf); - read_array_sep(v,lexbuf); - read_space(v,lexbuf); - skip_json(v,lexbuf); - continue}} - catch(_ij_) - {_ij_ = caml_wrap_exception(_ij_); - if(_ij_ === End_of_array)return 0; - throw _ij_} - case 11:return long_error(cst_Invalid_token$3,v,lexbuf); - case 12:return long_error(cst_Invalid_token$4,v,lexbuf); - case 13: - if(counter < 50) - {var counter$0=counter + 1 | 0; - return skip_json$2(counter$0,v,lexbuf)} - return caml_trampoline_return(skip_json$2,[0,v,lexbuf]); - case 14: - finish_comment(v,lexbuf); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return skip_json$2(counter$1,v,lexbuf)} - return caml_trampoline_return(skip_json$2,[0,v,lexbuf]); - case 15: - newline(v,lexbuf); - if(counter < 50) - {var counter$2=counter + 1 | 0; - return skip_json$2(counter$2,v,lexbuf)} - return caml_trampoline_return(skip_json$2,[0,v,lexbuf]); - case 16: - if(counter < 50) - {var counter$3=counter + 1 | 0; - return skip_json$2(counter$3,v,lexbuf)} - return caml_trampoline_return(skip_json$2,[0,v,lexbuf]); - case 17: - return custom_error(cst_Unexpected_end_of_input$34,v,lexbuf); - default:return long_error(cst_Invalid_token$5,v,lexbuf)}}} - function skip_json(v,lexbuf) - {return caml_trampoline(skip_json$2(0,v,lexbuf))} - function finish_skip_variant(v,lexbuf) - {var ocaml_lex_state=389; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - skip_json(v,lexbuf);read_space(v,lexbuf);return read_gt(v,lexbuf); - case 1:return 0; - case 2:return long_error(cst_Expected_or_but_found$10,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$36,v,lexbuf)}}} - function skip_ident(v,lexbuf) - {var ocaml_lex_state=394; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return finish_skip_stringlit(v,lexbuf); - case 1:return 0; - case 2: - return long_error - (cst_Expected_string_or_identifier_but_found$1,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$37,v,lexbuf)}}} - function finish_buffer_stringlit(v,lexbuf) - {var ocaml_lex_state=450; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call2(Bi_outbuf[15],v[1],34);return add_lexeme(v[1],lexbuf); - case 1:return long_error(cst_Invalid_string_literal$1,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$39,v,lexbuf)}}} - function buffer_json$2(counter,v,lexbuf) - {var _ii_=399; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return ocaml_lex_buffer_json_rec(counter$0,v,lexbuf,_ii_)} - return caml_trampoline_return - (ocaml_lex_buffer_json_rec,[0,v,lexbuf,_ii_])} - function ocaml_lex_buffer_json_rec(counter,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state$0,lexbuf); - if(11 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return add_lexeme(v[1],lexbuf); - case 1:return finish_buffer_stringlit(v,lexbuf); - case 2: - try - {caml_call2(Bi_outbuf[15],v[1],123); - buffer_space(v,lexbuf); - buffer_object_end(v,lexbuf); - buffer_ident(v,lexbuf); - buffer_space(v,lexbuf); - buffer_colon(v,lexbuf); - buffer_space(v,lexbuf); - buffer_json(v,lexbuf); - for(;;) - {buffer_space(v,lexbuf); - buffer_object_sep(v,lexbuf); - buffer_space(v,lexbuf); - buffer_ident(v,lexbuf); - buffer_space(v,lexbuf); - buffer_colon(v,lexbuf); - buffer_space(v,lexbuf); - buffer_json(v,lexbuf); - continue}} - catch(_ih_) - {_ih_ = caml_wrap_exception(_ih_); - if(_ih_ === End_of_object)return 0; - throw _ih_} - case 3: - try - {caml_call2(Bi_outbuf[15],v[1],91); - buffer_space(v,lexbuf); - buffer_array_end(v,lexbuf); - buffer_json(v,lexbuf); - for(;;) - {buffer_space(v,lexbuf); - buffer_array_sep(v,lexbuf); - buffer_space(v,lexbuf); - buffer_json(v,lexbuf); - continue}} - catch(_ig_) - {_ig_ = caml_wrap_exception(_ig_); - if(_ig_ === End_of_array)return 0; - throw _ig_} - case 4:return long_error(cst_Invalid_token$6,v,lexbuf); - case 5:return long_error(cst_Invalid_token$7,v,lexbuf); - case 6: - add_lexeme(v[1],lexbuf); - if(counter < 50) - {var counter$0=counter + 1 | 0; - return buffer_json$2(counter$0,v,lexbuf)} - return caml_trampoline_return(buffer_json$2,[0,v,lexbuf]); - case 7: - caml_call2(Bi_outbuf[13],v[1],cst$22); - finish_buffer_comment(v,lexbuf); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return buffer_json$2(counter$1,v,lexbuf)} - return caml_trampoline_return(buffer_json$2,[0,v,lexbuf]); - case 8: - caml_call2(Bi_outbuf[15],v[1],10); - newline(v,lexbuf); - if(counter < 50) - {var counter$2=counter + 1 | 0; - return buffer_json$2(counter$2,v,lexbuf)} - return caml_trampoline_return(buffer_json$2,[0,v,lexbuf]); - case 9: - add_lexeme(v[1],lexbuf); - if(counter < 50) - {var counter$3=counter + 1 | 0; - return buffer_json$2(counter$3,v,lexbuf)} - return caml_trampoline_return(buffer_json$2,[0,v,lexbuf]); - case 10: - return custom_error(cst_Unexpected_end_of_input$38,v,lexbuf); - default:return long_error(cst_Invalid_token$8,v,lexbuf)}}} - function buffer_json(v,lexbuf) - {return caml_trampoline(buffer_json$2(0,v,lexbuf))} - function buffer_ident(v,lexbuf) - {var ocaml_lex_state=466; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return finish_buffer_stringlit(v,lexbuf); - case 1:return add_lexeme(v[1],lexbuf); - case 2: - return long_error - (cst_Expected_string_or_identifier_but_found$2,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$40,v,lexbuf)}}} - function buffer_space(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=471; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:add_lexeme(v[1],lexbuf);newline(v,lexbuf);continue a; - case 1: - caml_call2(Bi_outbuf[13],v[1],cst$23); - finish_buffer_comment(v,lexbuf); - continue a; - case 2: - caml_call2(Bi_outbuf[15],v[1],10);newline(v,lexbuf);continue a; - case 3:add_lexeme(v[1],lexbuf);continue a; - default:return 0}}}} - function buffer_object_end(v,lexbuf) - {var ocaml_lex_state=478; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0) - {caml_call2(Bi_outbuf[15],v[1],125);throw End_of_object} - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function buffer_object_sep(v,lexbuf) - {var ocaml_lex_state=480; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],44); - case 1:caml_call2(Bi_outbuf[15],v[1],125);throw End_of_object; - case 2:return long_error(cst_Expected_or_but_found$11,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$41,v,lexbuf)}}} - function buffer_array_end(v,lexbuf) - {var ocaml_lex_state=485; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0) - {caml_call2(Bi_outbuf[15],v[1],93);throw End_of_array} - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function buffer_array_sep(v,lexbuf) - {var ocaml_lex_state=487; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],44); - case 1:caml_call2(Bi_outbuf[15],v[1],93);throw End_of_array; - case 2:return long_error(cst_Expected_or_but_found$12,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$42,v,lexbuf)}}} - function buffer_colon(v,lexbuf) - {var ocaml_lex_state=499; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],58); - case 1:return long_error(cst_Expected_but_found$13,v,lexbuf); - default:return custom_error(cst_Unexpected_end_of_input$43,v,lexbuf)}}} - function finish_buffer_comment(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=507; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[13],v[1],cst$24); - case 1:return long_error(cst_Unterminated_comment$0,v,lexbuf); - case 2: - caml_call2(Bi_outbuf[15],v[1],10);newline(v,lexbuf);continue a; - default:add_lexeme(v[1],lexbuf);continue a}}}} - function junk(lexbuf) - {var ocaml_lex_state=513; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)return caml_call1(lexeme,lexbuf); - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - read_junk[1] = junk; - function read_int8(v,lexbuf) - {var n=read_int(v,lexbuf); - if(0 <= n)if(! (255 < n))return caml_call1(Stdlib[29],n); - return lexer_error(cst_Int8_overflow,v,lexbuf)} - function read_list(read_cell,v,lexbuf) - {var _if_=read_list_rev(read_cell,v,lexbuf); - return caml_call1(Stdlib_list[9],_if_)} - function read_array(read_cell,v,lexbuf) - {var l=read_list_rev(read_cell,v,lexbuf); - if(l) - {var - tl=l[2], - x=l[1], - len=caml_call1(Stdlib_list[1],l), - a=caml_make_vect(len,x), - r=[0,tl], - _ic_=len - 2 | 0; - if(! (_ic_ < 0)) - {var i=_ic_; - for(;;) - {var _id_=caml_call1(Stdlib_list[5],r[1]); - caml_check_bound(a,i)[1 + i] = _id_; - r[1] = caml_call1(Stdlib_list[6],r[1]); - var _ie_=i - 1 | 0; - if(0 !== i){var i=_ie_;continue} - break}} - return a} - return [0]} - function read_fields(read_field,init_acc,v) - {return function(_ib_) - {return read_abstract_fields(read_ident,read_field,init_acc,v,_ib_)}} - function from_lexbuf(v,opt,lexbuf) - {if(opt)var sth=opt[1],stream=sth;else var stream=0; - read_space(v,lexbuf); - if(read_eof(lexbuf))throw End_of_input; - var x=read_json(v,lexbuf); - if(1 - stream) - {read_space(v,lexbuf); - if(1 - read_eof(lexbuf)) - long_error(cst_Junk_after_end_of_JSON_value,v,lexbuf)} - return x} - function from_string$0(buf,fname,lnum,s) - {try - {var - lexbuf=caml_call2(from_string,0,s), - v=init_lexer(buf,fname,lnum,0), - _h$_=from_lexbuf(v,0,lexbuf); - return _h$_} - catch(_ia_) - {_ia_ = caml_wrap_exception(_ia_); - if(_ia_ === End_of_input)return json_error(cst_Blank_input_data); - throw _ia_}} - function from_channel$0(buf,fname,lnum,ic) - {try - {var - lexbuf=caml_call2(from_channel,0,ic), - v=init_lexer(buf,fname,lnum,0), - _h9_=from_lexbuf(v,0,lexbuf); - return _h9_} - catch(_h__) - {_h__ = caml_wrap_exception(_h__); - if(_h__ === End_of_input)return json_error(cst_Blank_input_data$0); - throw _h__}} - function from_file(buf,fname,lnum,file) - {var ic=caml_call1(Stdlib[79],file); - try - {var x=from_channel$0(buf,fname,lnum,ic); - caml_call1(Stdlib[93],ic); - return x} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[94],ic);throw e}} - var Finally=[248,cst_Yojson_Basic_Finally,caml_fresh_oo_id(0)]; - function stream_from_lexbuf(v,opt,lexbuf) - {if(opt)var sth=opt[1],fin=sth;else var fin=function(param){return 0}; - function f(i) - {try - {var _h8_=[0,from_lexbuf(v,stream,lexbuf)];return _h8_} - catch(e) - {e = caml_wrap_exception(e); - if(e === End_of_input){caml_call1(fin,0);return 0} - try - {caml_call1(fin,0)} - catch(fin_e) - {fin_e = caml_wrap_exception(fin_e);throw [0,Finally,e,fin_e]} - throw e}} - return caml_call1(Stdlib_stream[3],f)} - function stream_from_string(buf,fname,lnum,s) - {var v=init_lexer(buf,fname,lnum,0); - return stream_from_lexbuf(v,0,caml_call2(from_string,0,s))} - function stream_from_channel(buf,fin,fname,lnum,ic) - {var lexbuf=caml_call2(from_channel,0,ic),v=init_lexer(buf,fname,lnum,0); - return stream_from_lexbuf(v,fin,lexbuf)} - function stream_from_file(buf,fname,lnum,file) - {var ic=caml_call1(Stdlib[79],file); - function fin(param){return caml_call1(Stdlib[93],ic)} - var - fname$0=fname || [0,file], - lexbuf=caml_call2(from_channel,0,ic), - v=init_lexer(buf,fname$0,lnum,0); - return stream_from_lexbuf(v,[0,fin],lexbuf)} - function linestream_from_channel(buf,opt,fname,_h6_,ic) - {if(opt)var sth=opt[1],fin=sth;else var fin=function(param){return 0}; - if(_h6_)var sth$0=_h6_[1],lnum0=sth$0;else var lnum0=1; - var buf$0=buf || [0,caml_call3(Bi_outbuf[3],0,0,256)]; - function f(i) - {try - {var - line=caml_call1(Stdlib[83],ic), - lnum=lnum0 + i | 0, - _h7_=[0,[0,826371656,from_string$0(buf$0,fname,[0,lnum],line)]]; - return _h7_} - catch(e) - {e = caml_wrap_exception(e); - return e === Stdlib[12]?(caml_call1(fin,0),0):[0,[0,3458171,e]]}} - return caml_call1(Stdlib_stream[3],f)} - function linestream_from_file(buf,fname,lnum,file) - {var ic=caml_call1(Stdlib[79],file); - function fin(param){return caml_call1(Stdlib[93],ic)} - var fname$0=fname || [0,file]; - return linestream_from_channel(buf,[0,fin],fname$0,lnum,ic)} - function prettify(std,s) - {return pretty_to_string$0(std,from_string$0(0,0,0,s))} - function compact(std,s){return to_string$1(0,0,0,from_string$0(0,0,0,s))} - function validate_json(path,value){return 0} - var Type_error=[248,cst_Yojson_Basic_Util_Type_error,caml_fresh_oo_id(0)]; - function typerr(msg,js) - {if(typeof js === "number") - var _h5_=cst_null$2; - else - var - _h4_=js[1], - _h5_= - 708012133 <= _h4_ - ?726928360 === _h4_ - ?cst_tuple - :848054398 <= _h4_ - ?963043957 <= _h4_?cst_object:cst_array - :737456202 <= _h4_?cst_bool:cst_variant - :3654863 <= _h4_ - ?365180284 <= _h4_?cst_float:cst_int - :-752863768 <= _h4_?cst_intlit:cst_string; - throw [0,Type_error,caml_call2(Stdlib[28],msg,_h5_),js]} - var Undefined=[248,cst_Yojson_Basic_Util_Undefined,caml_fresh_oo_id(0)]; - function symbol(_h3_,_h2_){return caml_call1(_h2_,_h3_)} - function assoc(name,obj) - {try - {var _h0_=caml_call2(Stdlib_list[39],name,obj);return _h0_} - catch(_h1_) - {_h1_ = caml_wrap_exception(_h1_); - if(_h1_ === Stdlib[8])return 870828711; - throw _h1_}} - function member(name,js) - {if(typeof js !== "number") - if(963043957 === js[1]){var obj=js[2];return assoc(name,obj)} - var _hZ_=caml_call2(Stdlib[28],name,cst_of_non_object_type); - return typerr(caml_call2(Stdlib[28],cst_Can_t_get_member,_hZ_),js)} - function index(i,js) - {if(typeof js !== "number") - if(848054398 === js[1]) - {var - l=js[2], - len=caml_call1(Stdlib_list[1],l), - wrapped_index=0 <= i?i:len + i | 0; - if(0 <= wrapped_index) - if(! (len <= wrapped_index)) - return caml_call2(Stdlib_list[7],l,wrapped_index); - var - _hX_=caml_call1(Stdlib[33],i), - _hY_=caml_call2(Stdlib[28],_hX_,cst_out_of_bounds); - throw [0,Undefined,caml_call2(Stdlib[28],cst_Index,_hY_),js]} - var - _hV_=caml_call1(Stdlib[33],i), - _hW_=caml_call2(Stdlib[28],_hV_,cst_of_non_array_type); - return typerr(caml_call2(Stdlib[28],cst_Can_t_get_index,_hW_),js)} - function map(f,js) - {if(typeof js !== "number") - if(848054398 === js[1]) - {var l=js[2];return [0,848054398,caml_call2(Stdlib_list[17],f,l)]} - return typerr(cst_Can_t_map_function_over_non_array_type,js)} - function to_assoc(js) - {if(typeof js !== "number") - if(963043957 === js[1]){var obj=js[2];return obj} - return typerr(cst_Expected_object_got,js)} - function to_option(f,x){return 870828711 === x?0:[0,caml_call1(f,x)]} - function to_bool(js) - {if(typeof js !== "number")if(737456202 === js[1]){var b=js[2];return b} - return typerr(cst_Expected_bool_got,js)} - function to_bool_option(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - if(737456202 === js[1]){var b=js[2];return [0,b]} - return typerr(cst_Expected_bool_or_null_got,js)} - function to_number(js) - {if(typeof js !== "number") - {var _hU_=js[1]; - if(3654863 === _hU_){var i=js[2];return i} - if(365180284 === _hU_){var f=js[2];return f}} - return typerr(cst_Expected_number_got,js)} - function to_number_option(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - {var _hT_=js[1]; - if(3654863 === _hT_){var i=js[2];return [0,i]} - if(365180284 === _hT_){var f=js[2];return [0,f]}} - return typerr(cst_Expected_number_or_null_got,js)} - function to_float(js) - {if(typeof js !== "number")if(365180284 === js[1]){var f=js[2];return f} - return typerr(cst_Expected_float_got,js)} - function to_float_option(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - if(365180284 === js[1]){var f=js[2];return [0,f]} - return typerr(cst_Expected_float_or_null_got,js)} - function to_int(js) - {if(typeof js !== "number")if(3654863 === js[1]){var i=js[2];return i} - return typerr(cst_Expected_int_got,js)} - function to_int_option(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - if(3654863 === js[1]){var i=js[2];return [0,i]} - return typerr(cst_Expected_int_or_null_got,js)} - function to_list(js) - {if(typeof js !== "number")if(848054398 === js[1]){var l=js[2];return l} - return typerr(cst_Expected_array_got,js)} - function to_string$2(js) - {if(typeof js !== "number")if(-976970511 === js[1]){var s=js[2];return s} - return typerr(cst_Expected_string_got,js)} - function to_string_option(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - if(-976970511 === js[1]){var s=js[2];return [0,s]} - return typerr(cst_Expected_string_or_null_got,js)} - function convert_each(f,js) - {if(typeof js !== "number") - if(848054398 === js[1]) - {var l=js[2];return caml_call2(Stdlib_list[17],f,l)} - return typerr(cst_Can_t_convert_each_element_of_non_array_type,js)} - function filter_map(f,l$0) - {var acc=0,l=l$0; - for(;;) - {if(l) - {var tl=l[2],x=l[1],match=caml_call1(f,x); - if(match){var y=match[1],acc$0=[0,y,acc],acc=acc$0,l=tl;continue} - var l=tl; - continue} - return caml_call1(Stdlib_list[9],acc)}} - function flatten(l$0) - {var acc=0,l=l$0; - for(;;) - {if(l) - {var tl=l[2],x=l[1]; - if(typeof x !== "number") - if(848054398 === x[1]) - {var - l2=x[2], - acc$0=caml_call2(Stdlib_list[12],l2,acc), - acc=acc$0, - l=tl; - continue} - var l=tl; - continue} - return caml_call1(Stdlib_list[9],acc)}} - function filter_index(i,l) - {return filter_map - (function(param) - {if(typeof param !== "number") - if(848054398 === param[1]) - {var l=param[2]; - try - {var _hR_=[0,caml_call2(Stdlib_list[7],l,i)];return _hR_} - catch(_hS_){return 0}} - return 0}, - l)} - function filter_list(l) - {return filter_map - (function(param) - {if(typeof param !== "number") - if(848054398 === param[1]){var l=param[2];return [0,l]} - return 0}, - l)} - function filter_member(k,l) - {return filter_map - (function(param) - {if(typeof param !== "number") - if(963043957 === param[1]) - {var l=param[2]; - try - {var _hP_=[0,caml_call2(Stdlib_list[39],k,l)];return _hP_} - catch(_hQ_){return 0}} - return 0}, - l)} - function filter_assoc(l) - {return filter_map - (function(param) - {if(typeof param !== "number") - if(963043957 === param[1]){var l=param[2];return [0,l]} - return 0}, - l)} - function filter_bool(l) - {return filter_map - (function(param) - {if(typeof param !== "number") - if(737456202 === param[1]){var x=param[2];return [0,x]} - return 0}, - l)} - function filter_int(l) - {return filter_map - (function(param) - {if(typeof param !== "number") - if(3654863 === param[1]){var x=param[2];return [0,x]} - return 0}, - l)} - function filter_float(l) - {return filter_map - (function(param) - {if(typeof param !== "number") - if(365180284 === param[1]){var x=param[2];return [0,x]} - return 0}, - l)} - function filter_number(l) - {return filter_map - (function(param) - {if(typeof param !== "number") - {var _hO_=param[1]; - if(3654863 === _hO_){var x=param[2];return [0,x]} - if(365180284 === _hO_){var x$0=param[2];return [0,x$0]}} - return 0}, - l)} - function filter_string(l) - {return filter_map - (function(param) - {if(typeof param !== "number") - if(-976970511 === param[1]){var x=param[2];return [0,x]} - return 0}, - l)} - function keys(o) - {function _hM_(param){var key=param[1];return key} - var _hN_=caml_call1(Stdlib_list[17],_hM_); - return symbol(to_assoc(o),_hN_)} - function values(o) - {function _hK_(param){var value=param[2];return value} - var _hL_=caml_call1(Stdlib_list[17],_hK_); - return symbol(to_assoc(o),_hL_)} - function combine(first,match) - {if(typeof first !== "number") - if(963043957 === first[1]) - if(typeof match !== "number") - if(963043957 === match[1]) - {var b=match[2],a=first[2]; - return [0,963043957,caml_call2(Stdlib[37],a,b)]} - throw [0,Stdlib[6],cst_Expected_two_objects_check_inputs]} - function to_basic(x) - {if(typeof x !== "number") - {var _hD_=x[1]; - if(726928360 <= _hD_) - {if(737456202 !== _hD_) - {if(963043957 <= _hD_) - {var - l=x[2], - _hE_= - function(param) - {var v=param[2],k=param[1];return [0,k,to_basic(v)]}, - _hF_=caml_call2(Stdlib_list[19],_hE_,l); - return [0,963043957,caml_call1(Stdlib_list[9],_hF_)]} - var l$0=x[2],_hG_=caml_call2(Stdlib_list[19],to_basic,l$0); - return [0,848054398,caml_call1(Stdlib_list[9],_hG_)]}} - else - {if(-752863768 === _hD_){var s=x[2];return [0,-976970511,s]} - if(708012133 <= _hD_) - {var _hH_=x[2],_hI_=_hH_[2],_hJ_=_hH_[1]; - if(_hI_) - {var v=_hI_[1]; - return [0,848054398,[0,[0,-976970511,_hJ_],[0,to_basic(v),0]]]} - return [0,-976970511,_hJ_]}}} - return x} - function hex$2(n) - {var _hC_=10 <= n?n + 87 | 0:n + 48 | 0; - return caml_call1(Stdlib_char[1],_hC_)} - function write_special$1(src,start,stop,ob,str) - {caml_call4(Bi_outbuf[14],ob,src,start[1],stop - start[1] | 0); - caml_call2(Bi_outbuf[13],ob,str); - start[1] = stop + 1 | 0; - return 0} - function finish_string$2(src,start,ob) - {try - {var - _hB_= - caml_call4 - (Bi_outbuf[14], - ob, - src, - start[1], - caml_ml_string_length(src) - start[1] | 0); - return _hB_} - catch(exc) - {exc = caml_wrap_exception(exc); - caml_call4 - (Stdlib_printf[3], - _bC_, - src, - start[1], - caml_ml_string_length(src) - start[1] | 0); - throw exc}} - function write_string$1(ob,s) - {caml_call2(Bi_outbuf[15],ob,34); - var start=[0,0],_hz_=caml_ml_string_length(s) - 1 | 0,_hy_=0; - if(! (_hz_ < 0)) - {var i$0=_hy_; - for(;;) - {var c=caml_string_get(s,i$0); - if(92 === c) - write_special$1(s,start,i$0,ob,cst$25); - else - {if(35 <= c) - var switch$0=127 === c?1:0; - else - if(8 <= c) - {var switcher=c - 8 | 0; - switch(switcher) - {case 0: - write_special$1(s,start,i$0,ob,cst_b$1); - var switch$1=1; - break; - case 1: - write_special$1(s,start,i$0,ob,cst_t$1); - var switch$1=1; - break; - case 2: - write_special$1(s,start,i$0,ob,cst_n$1); - var switch$1=1; - break; - case 4: - write_special$1(s,start,i$0,ob,cst_f$1); - var switch$1=1; - break; - case 5: - write_special$1(s,start,i$0,ob,cst_r$1); - var switch$1=1; - break; - case 26: - write_special$1(s,start,i$0,ob,cst$26);var switch$1=1;break; - case 24: - case 25:var switch$0=0,switch$1=0;break; - default:var switch$0=1,switch$1=0} - if(switch$1)var switch$0=2} - else - var switch$0=1; - switch(switch$0) - {case 0:break; - case 1: - caml_call4(Bi_outbuf[14],ob,s,start[1],i$0 - start[1] | 0); - var i=caml_call2(Bi_outbuf[10],ob,6),dst=ob[1]; - caml_call5(Stdlib_bytes[12],cst_u00$1,0,dst,i,4); - caml_bytes_set(dst,i + 4 | 0,hex$2(c >>> 4 | 0)); - caml_bytes_set(dst,i + 5 | 0,hex$2(c & 15)); - start[1] = i$0 + 1 | 0; - break - }} - var _hA_=i$0 + 1 | 0; - if(_hz_ !== i$0){var i$0=_hA_;continue} - break}} - finish_string$2(s,start,ob); - return caml_call2(Bi_outbuf[15],ob,34)} - function write_null$1(ob,param) - {return caml_call2(Bi_outbuf[13],ob,cst_null$3)} - function write_bool$1(ob,x) - {var _hx_=x?cst_true$2:cst_false$2; - return caml_call2(Bi_outbuf[13],ob,_hx_)} - var - _bD_=caml_ml_string_length(caml_call1(Stdlib[33],Stdlib[20])), - _bE_=caml_ml_string_length(caml_call1(Stdlib[33],Stdlib[19])), - max_digits$1=caml_call2(Stdlib[17],_bE_,_bD_); - function write_digits$1(s,pos,x) - {if(0 === x)return pos; - var - d=x % 10 | 0, - pos$0=write_digits$1(s,pos,x / 10 | 0), - n=caml_call1(Stdlib[18],d); - caml_bytes_set(s,pos$0,caml_call1(Stdlib_char[1],n + 48 | 0)); - return pos$0 + 1 | 0} - function write_int$1(ob,x) - {caml_call2(Bi_outbuf[9],ob,max_digits$1); - if(0 < x){ob[3] = write_digits$1(ob[1],ob[3],x);return 0} - if(0 <= x)return caml_call2(Bi_outbuf[15],ob,48); - var s=ob[1],pos=ob[3]; - caml_bytes_set(s,pos,45); - ob[3] = write_digits$1(s,pos + 1 | 0,x); - return 0} - function float_needs_period$1(s) - {try - {var _ht_=caml_ml_string_length(s) - 1 | 0,_hs_=0; - if(! (_ht_ < 0)) - {var i=_hs_; - for(;;) - {var - match=caml_string_get(s,i), - switch$0=48 <= match?58 <= match?0:1:45 === match?1:0; - if(! switch$0)throw Stdlib[3]; - var _hv_=i + 1 | 0; - if(_ht_ !== i){var i=_hv_;continue} - break}} - var _hu_=1; - return _hu_} - catch(_hw_) - {_hw_ = caml_wrap_exception(_hw_); - if(_hw_ === Stdlib[3])return 0; - throw _hw_}} - function write_float_fast$1(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var _hq_=0. < x?cst_Infinity$13:cst_Infinity$14; - return caml_call2(Bi_outbuf[13],ob,_hq_)} - if(4 <= match)return caml_call2(Bi_outbuf[13],ob,cst_NaN$6); - var s=caml_call2(Stdlib_printf[4],_bF_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _hr_=float_needs_period$1(s); - return _hr_?caml_call2(Bi_outbuf[13],ob,cst_0$9):_hr_} - function write_float$1(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var _ho_=0. < x?cst_Infinity$15:cst_Infinity$16; - return caml_call2(Bi_outbuf[13],ob,_ho_)} - if(4 <= match)return caml_call2(Bi_outbuf[13],ob,cst_NaN$7); - var - s1=caml_call2(Stdlib_printf[4],_bG_,x), - s=caml_float_of_string(s1) == x?s1:caml_call2(Stdlib_printf[4],_bH_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _hp_=float_needs_period$1(s); - return _hp_?caml_call2(Bi_outbuf[13],ob,cst_0$10):_hp_} - function write_normal_float_prec$1(significant_figures,ob,x) - {var switcher=significant_figures - 1 | 0; - if(15 < switcher >>> 0) - var s=caml_call2(Stdlib_printf[4],_bI_,x); - else - switch(switcher) - {case 0:var s=caml_call2(Stdlib_printf[4],_bJ_,x);break; - case 1:var s=caml_call2(Stdlib_printf[4],_bK_,x);break; - case 2:var s=caml_call2(Stdlib_printf[4],_bL_,x);break; - case 3:var s=caml_call2(Stdlib_printf[4],_bM_,x);break; - case 4:var s=caml_call2(Stdlib_printf[4],_bN_,x);break; - case 5:var s=caml_call2(Stdlib_printf[4],_bO_,x);break; - case 6:var s=caml_call2(Stdlib_printf[4],_bP_,x);break; - case 7:var s=caml_call2(Stdlib_printf[4],_bQ_,x);break; - case 8:var s=caml_call2(Stdlib_printf[4],_bR_,x);break; - case 9:var s=caml_call2(Stdlib_printf[4],_bS_,x);break; - case 10:var s=caml_call2(Stdlib_printf[4],_bT_,x);break; - case 11:var s=caml_call2(Stdlib_printf[4],_bU_,x);break; - case 12:var s=caml_call2(Stdlib_printf[4],_bV_,x);break; - case 13:var s=caml_call2(Stdlib_printf[4],_bW_,x);break; - case 14:var s=caml_call2(Stdlib_printf[4],_bX_,x);break; - default:var s=caml_call2(Stdlib_printf[4],_bY_,x)} - caml_call2(Bi_outbuf[13],ob,s); - var _hn_=float_needs_period$1(s); - return _hn_?caml_call2(Bi_outbuf[13],ob,cst_0$11):_hn_} - function write_float_prec$1(significant_figures,ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var _hm_=0. < x?cst_Infinity$17:cst_Infinity$18; - return caml_call2(Bi_outbuf[13],ob,_hm_)} - return 4 <= match - ?caml_call2(Bi_outbuf[13],ob,cst_NaN$8) - :write_normal_float_prec$1(significant_figures,ob,x)} - function write_std_float_fast$1(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var - _hk_= - 0. < x - ?cst_Infinity_value_not_allowed_in_standard_JSON$11 - :cst_Infinity_value_not_allowed_in_standard_JSON$12; - return json_error(_hk_)} - if(4 <= match) - return json_error(cst_NaN_value_not_allowed_in_standard_JSON$5); - var s=caml_call2(Stdlib_printf[4],_bZ_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _hl_=float_needs_period$1(s); - return _hl_?caml_call2(Bi_outbuf[13],ob,cst_0$12):_hl_} - function write_std_float$1(ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var - _hi_= - 0. < x - ?cst_Infinity_value_not_allowed_in_standard_JSON$13 - :cst_Infinity_value_not_allowed_in_standard_JSON$14; - return json_error(_hi_)} - if(4 <= match) - return json_error(cst_NaN_value_not_allowed_in_standard_JSON$6); - var - s1=caml_call2(Stdlib_printf[4],_b0_,x), - s=caml_float_of_string(s1) == x?s1:caml_call2(Stdlib_printf[4],_b1_,x); - caml_call2(Bi_outbuf[13],ob,s); - var _hj_=float_needs_period$1(s); - return _hj_?caml_call2(Bi_outbuf[13],ob,cst_0$13):_hj_} - function write_std_float_prec$1(significant_figures,ob,x) - {var match=caml_classify_float(x); - if(3 === match) - {var - _hh_= - 0. < x - ?cst_Infinity_value_not_allowed_in_standard_JSON$15 - :cst_Infinity_value_not_allowed_in_standard_JSON$16; - return json_error(_hh_)} - return 4 <= match - ?json_error(cst_NaN_value_not_allowed_in_standard_JSON$7) - :write_normal_float_prec$1(significant_figures,ob,x)} - var write_intlit$0=Bi_outbuf[13]; - function iter2$1(f_elt,f_sep,x,param$0) - {if(param$0) - {var l$0=param$0[2],y$0=param$0[1]; - caml_call2(f_elt,x,y$0); - var param=l$0; - for(;;) - {if(param) - {var l=param[2],y=param[1]; - caml_call1(f_sep,x); - caml_call2(f_elt,x,y); - var param=l; - continue} - return 0}} - return 0} - function f_sep$1(ob){return caml_call2(Bi_outbuf[15],ob,44)} - function write_variant$0(ob,s,o) - {caml_call2(Bi_outbuf[15],ob,60); - write_string$1(ob,s); - if(o){var x=o[1];caml_call2(Bi_outbuf[15],ob,58);write_t$1(ob,x)} - return caml_call2(Bi_outbuf[15],ob,62)} - function write_tuple$0(ob,l) - {caml_call2(Bi_outbuf[15],ob,40); - iter2$1(write_t$1,f_sep$1,ob,l); - return caml_call2(Bi_outbuf[15],ob,41)} - function write_list$1(ob,l) - {caml_call2(Bi_outbuf[15],ob,91); - iter2$1(write_t$1,f_sep$1,ob,l); - return caml_call2(Bi_outbuf[15],ob,93)} - function write_assoc$1(ob,l) - {function f_elt(ob,param) - {var x=param[2],s=param[1]; - write_string$1(ob,s); - caml_call2(Bi_outbuf[15],ob,58); - return write_t$1(ob,x)} - caml_call2(Bi_outbuf[15],ob,123); - iter2$1(f_elt,f_sep$1,ob,l); - return caml_call2(Bi_outbuf[15],ob,125)} - function write_t$1(ob,x) - {if(typeof x === "number")return write_null$1(ob,0); - var _hg_=x[1]; - if(708012133 <= _hg_) - {if(726928360 === _hg_){var l=x[2];return write_tuple$0(ob,l)} - if(848054398 <= _hg_) - {if(963043957 <= _hg_){var l$0=x[2];return write_assoc$1(ob,l$0)} - var l$1=x[2]; - return write_list$1(ob,l$1)} - if(737456202 <= _hg_){var b=x[2];return write_bool$1(ob,b)} - var match=x[2],o=match[2],s=match[1]; - return write_variant$0(ob,s,o)} - if(3654863 <= _hg_) - {if(365180284 <= _hg_){var f=x[2];return write_float$1(ob,f)} - var i=x[2]; - return write_int$1(ob,i)} - if(-752863768 <= _hg_) - {var s$0=x[2];return caml_call2(Bi_outbuf[13],ob,s$0)} - var s$1=x[2]; - return write_string$1(ob,s$1)} - function write_std_variant$0(ob,s,o) - {if(o) - {var x=o[1]; - caml_call2(Bi_outbuf[15],ob,91); - write_string$1(ob,s); - caml_call2(Bi_outbuf[15],ob,44); - write_std_json$1(ob,x); - return caml_call2(Bi_outbuf[15],ob,93)} - return write_string$1(ob,s)} - function write_std_tuple$0(ob,l) - {caml_call2(Bi_outbuf[15],ob,91); - iter2$1(write_std_json$1,f_sep$1,ob,l); - return caml_call2(Bi_outbuf[15],ob,93)} - function write_std_json$1(ob,x) - {if(typeof x === "number")return write_null$1(ob,0); - var _hf_=x[1]; - if(708012133 <= _hf_) - {if(726928360 === _hf_){var l=x[2];return write_std_tuple$0(ob,l)} - if(848054398 <= _hf_) - {if(963043957 <= _hf_) - {var - l$0=x[2], - f_elt= - function(ob,param) - {var x=param[2],s=param[1]; - write_string$1(ob,s); - caml_call2(Bi_outbuf[15],ob,58); - return write_std_json$1(ob,x)}; - caml_call2(Bi_outbuf[15],ob,123); - iter2$1(f_elt,f_sep$1,ob,l$0); - return caml_call2(Bi_outbuf[15],ob,125)} - var l$1=x[2]; - caml_call2(Bi_outbuf[15],ob,91); - iter2$1(write_std_json$1,f_sep$1,ob,l$1); - return caml_call2(Bi_outbuf[15],ob,93)} - if(737456202 <= _hf_){var b=x[2];return write_bool$1(ob,b)} - var match=x[2],o=match[2],s=match[1]; - return write_std_variant$0(ob,s,o)} - if(3654863 <= _hf_) - {if(365180284 <= _hf_){var f=x[2];return write_std_float$1(ob,f)} - var i=x[2]; - return write_int$1(ob,i)} - if(-752863768 <= _hf_) - {var s$0=x[2];return caml_call2(Bi_outbuf[13],ob,s$0)} - var s$1=x[2]; - return write_string$1(ob,s$1)} - function to_outbuf$1(opt,ob,x) - {if(opt)var sth=opt[1],std=sth;else var std=0; - return std - ?is_object_or_array(x) - ?write_std_json$1(ob,x) - :json_error(cst_Root_is_not_an_object_or_array$1) - :write_t$1(ob,x)} - function to_string$3(buf,opt,std,x) - {if(opt)var sth=opt[1],len=sth;else var len=256; - if(buf) - {var ob=buf[1];caml_call1(Bi_outbuf[19],ob);var ob$0=ob} - else - var ob$0=caml_call3(Bi_outbuf[3],0,0,len); - to_outbuf$1(std,ob$0,x); - var s=caml_call1(Bi_outbuf[4],ob$0); - caml_call1(Bi_outbuf[19],ob$0); - return s} - function to_channel$2(buf,len,std,oc,x) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[5],len,0,oc); - to_outbuf$1(std,ob$0,x); - return caml_call1(Bi_outbuf[6],ob$0)} - function to_output$1(buf,len,std,out,x) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[7],len,0,out); - to_outbuf$1(std,ob$0,x); - return caml_call1(Bi_outbuf[8],ob$0)} - function to_file$1(len,std,file,x) - {var oc=caml_call1(Stdlib[60],file); - try - {to_channel$2(0,len,std,oc,x); - var _he_=caml_call1(Stdlib[76],oc); - return _he_} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[77],oc);throw e}} - function stream_to_outbuf$1(std,ob,st) - {function _hc_(_hd_){return to_outbuf$1(std,ob,_hd_)} - return caml_call2(Stdlib_stream[8],_hc_,st)} - function stream_to_string$1(buf,opt,std,st) - {if(opt)var sth=opt[1],len=sth;else var len=256; - if(buf) - {var ob=buf[1];caml_call1(Bi_outbuf[19],ob);var ob$0=ob} - else - var ob$0=caml_call3(Bi_outbuf[3],0,0,len); - stream_to_outbuf$1(std,ob$0,st); - var s=caml_call1(Bi_outbuf[4],ob$0); - caml_call1(Bi_outbuf[19],ob$0); - return s} - function stream_to_channel$1(buf,len,std,oc,st) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[5],len,0,oc); - stream_to_outbuf$1(std,ob$0,st); - return caml_call1(Bi_outbuf[6],ob$0)} - function stream_to_file$1(len,std,file,st) - {var oc=caml_call1(Stdlib[60],file); - try - {stream_to_channel$1(0,len,std,oc,st); - var _hb_=caml_call1(Stdlib[76],oc); - return _hb_} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[77],oc);throw e}} - function sort$1(x) - {if(typeof x !== "number") - {var _g4_=x[1]; - if(726928361 <= _g4_) - {if(848054398 === _g4_) - {var l=x[2],_g5_=caml_call2(Stdlib_list[19],sort$1,l); - return [0,848054398,caml_call1(Stdlib_list[9],_g5_)]} - if(963043957 === _g4_) - {var - l$0=x[2], - _g6_= - function(param) - {var v=param[2],k=param[1];return [0,k,sort$1(v)]}, - _g7_=caml_call2(Stdlib_list[19],_g6_,l$0), - l$1=caml_call1(Stdlib_list[9],_g7_), - _g8_= - function(param,_ha_) - {var b=_ha_[1],a=param[1]; - return caml_call2(Stdlib_string[33],a,b)}; - return [0,963043957,caml_call2(Stdlib_list[50],_g8_,l$1)]}} - else - if(708012133 === _g4_) - {var _g9_=x[2],_g__=_g9_[2]; - if(_g__) - {var v=_g__[1],k=_g9_[1],v$0=sort$1(v); - return v === v$0?x:[0,708012133,[0,k,[0,v$0]]]}} - else - if(726928360 <= _g4_) - {var l$2=x[2],_g$_=caml_call2(Stdlib_list[19],sort$1,l$2); - return [0,726928360,caml_call1(Stdlib_list[9],_g$_)]}} - return x} - function pp$1(fmt,param) - {if(typeof param === "number") - return caml_call2(Stdlib_format[13],fmt,cst_Null$1); - var _gX_=param[1]; - if(708012133 <= _gX_) - {if(726928360 === _gX_) - {var tup=param[2]; - caml_call2(Stdlib_format[123],fmt,_b2_); - caml_call2(Stdlib_format[123],fmt,_b3_); - var - _gY_=0, - _gZ_= - function(sep,e) - {if(sep)caml_call2(Stdlib_format[123],fmt,_b4_); - pp$1(fmt,e); - return 1}; - caml_call3(Stdlib_list[21],_gZ_,_gY_,tup); - caml_call2(Stdlib_format[123],fmt,_b5_); - return caml_call2(Stdlib_format[123],fmt,_b6_)} - if(848054398 <= _gX_) - {if(963043957 <= _gX_) - {var xs=param[2]; - caml_call2(Stdlib_format[123],fmt,_b7_); - caml_call2(Stdlib_format[123],fmt,_b8_); - var - _g0_=0, - _g1_= - function(sep,param) - {var value=param[2],key=param[1]; - if(sep)caml_call2(Stdlib_format[123],fmt,_b9_); - caml_call2(Stdlib_format[123],fmt,_b__); - caml_call3(Stdlib_format[123],fmt,_b$_,key); - caml_call2(Stdlib_format[123],fmt,_ca_); - pp$1(fmt,value); - caml_call2(Stdlib_format[123],fmt,_cb_); - return 1}; - caml_call3(Stdlib_list[21],_g1_,_g0_,xs); - caml_call2(Stdlib_format[123],fmt,_cc_); - return caml_call2(Stdlib_format[123],fmt,_cd_)} - var xs$0=param[2]; - caml_call2(Stdlib_format[123],fmt,_ce_); - caml_call2(Stdlib_format[123],fmt,_cf_); - var - _g2_=0, - _g3_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_cg_); - pp$1(fmt,x); - return 1}; - caml_call3(Stdlib_list[21],_g3_,_g2_,xs$0); - caml_call2(Stdlib_format[123],fmt,_ch_); - return caml_call2(Stdlib_format[123],fmt,_ci_)} - if(737456202 <= _gX_) - {var x=param[2]; - caml_call2(Stdlib_format[123],fmt,_cj_); - caml_call3(Stdlib_format[123],fmt,_ck_,x); - return caml_call2(Stdlib_format[123],fmt,_cl_)} - var match=param[2],value=match[2],name=match[1]; - caml_call2(Stdlib_format[123],fmt,_cm_); - caml_call2(Stdlib_format[123],fmt,_cn_); - caml_call3(Stdlib_format[123],fmt,_co_,name); - caml_call2(Stdlib_format[123],fmt,_cp_); - if(value) - {var x$0=value[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$0); - pp$1(fmt,x$0); - caml_call2(Stdlib_format[13],fmt,cst$27)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$0); - caml_call2(Stdlib_format[123],fmt,_cq_); - return caml_call2(Stdlib_format[123],fmt,_cr_)} - if(3654863 <= _gX_) - {if(365180284 <= _gX_) - {var x$1=param[2]; - caml_call2(Stdlib_format[123],fmt,_cs_); - caml_call3(Stdlib_format[123],fmt,_ct_,x$1); - return caml_call2(Stdlib_format[123],fmt,_cu_)} - var x$2=param[2]; - caml_call2(Stdlib_format[123],fmt,_cv_); - caml_call3(Stdlib_format[123],fmt,_cw_,x$2); - return caml_call2(Stdlib_format[123],fmt,_cx_)} - if(-752863768 <= _gX_) - {var x$3=param[2]; - caml_call2(Stdlib_format[123],fmt,_cy_); - caml_call3(Stdlib_format[123],fmt,_cz_,x$3); - return caml_call2(Stdlib_format[123],fmt,_cA_)} - var x$4=param[2]; - caml_call2(Stdlib_format[123],fmt,_cB_); - caml_call3(Stdlib_format[123],fmt,_cC_,x$4); - return caml_call2(Stdlib_format[123],fmt,_cD_)} - function show$1(x){return caml_call3(Stdlib_format[127],_cE_,pp$1,x)} - function equal$1(a,b) - {var a$0=a,b$0=b; - for(;;) - {if(typeof a$0 === "number") - {if(870828711 === a$0)if(870828711 === b$0)return 1} - else - {var _gQ_=a$0[1]; - if(708012133 <= _gQ_) - {if(737456203 <= _gQ_) - if(848054398 === _gQ_) - if(typeof b$0 === "number") - var switch$0=0; - else - if(848054398 === b$0[1]) - var xs=a$0[2],ys=b$0[2],switch$0=1; - else - var switch$0=0; - else - if(963043957 === _gQ_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(963043957 === b$0[1]) - {var - ys$0=b$0[2], - xs$0=a$0[2], - compare_keys= - function(param,_gW_) - {var key=_gW_[1],key$0=param[1]; - return caml_call2(Stdlib_string[33],key$0,key)}, - xs$1=caml_call2(Stdlib_list[50],compare_keys,xs$0), - ys$1=caml_call2(Stdlib_list[50],compare_keys,ys$0); - try - {var - _gR_= - function(param,_gV_) - {var - value=_gV_[2], - key=_gV_[1], - value$0=param[2], - key$0=param[1], - match=caml_string_equal(key$0,key); - return 0 === match?0:equal$1(value$0,value)}, - result$0=caml_call3(Stdlib_list[30],_gR_,xs$1,ys$1); - return result$0} - catch(_gU_) - {_gU_ = caml_wrap_exception(_gU_); - if(_gU_[1] === Stdlib[6])return 0; - throw _gU_}} - var switch$0=0} - else - var switch$0=0; - else - if(726928360 === _gQ_) - if(typeof b$0 === "number") - var switch$0=0; - else - if(726928360 === b$0[1]) - var xs=a$0[2],ys=b$0[2],switch$0=1; - else - var switch$0=0; - else - if(708012134 <= _gQ_) - if(737456202 <= _gQ_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(737456202 === b$0[1]) - {var b$1=b$0[2],a$1=a$0[2];return caml_equal(a$1,b$1)} - var switch$0=0} - else - var switch$0=0; - else - if(typeof b$0 === "number") - var switch$0=0; - else - {if(708012133 === b$0[1]) - {var - _gS_=b$0[2], - value=_gS_[2], - name=_gS_[1], - match=a$0[2], - value$0=match[2], - name$0=match[1], - match$0=caml_equal(name$0,name); - if(0 === match$0)return 0; - if(value$0) - {if(value) - {var b$2=value[1],a$2=value$0[1],a$0=a$2,b$0=b$2;continue}} - else - if(! value)return 1; - return 0} - var switch$0=0} - if(switch$0) - try - {var result=caml_call3(Stdlib_list[30],equal$1,xs,ys); - return result} - catch(_gT_) - {_gT_ = caml_wrap_exception(_gT_); - if(_gT_[1] === Stdlib[6])return 0; - throw _gT_}} - else - if(-752863767 <= _gQ_) - {if(3654863 === _gQ_) - {if(typeof b$0 !== "number") - if(3654863 === b$0[1]) - {var b$3=b$0[2],a$3=a$0[2];return caml_equal(a$3,b$3)}} - else - if(365180284 === _gQ_) - if(typeof b$0 !== "number") - if(365180284 === b$0[1]) - {var b$4=b$0[2],a$4=a$0[2];return caml_equal(a$4,b$4)}} - else - if(-976970511 === _gQ_) - {if(typeof b$0 !== "number") - if(-976970511 === b$0[1]) - {var b$5=b$0[2],a$5=a$0[2];return caml_equal(a$5,b$5)}} - else - if(-752863768 <= _gQ_) - if(typeof b$0 !== "number") - if(-752863768 === b$0[1]) - {var b$6=b$0[2],a$6=a$0[2];return caml_equal(a$6,b$6)}} - return 0}} - function pretty_format$1(std,x){return format(std,x)} - function pretty_print$1(std,out,x) - {var _gP_=pretty_format$1(std,x); - return caml_call2(Easy_format[4][2],out,_gP_)} - function pretty_to_string$1(std,x){return to_string$0(std,x)} - function pretty_to_channel$1(std,oc,x){return to_channel$0(std,oc,x)} - var - from_channel$1=Stdlib_lexing[2], - from_string$1=Stdlib_lexing[3], - lexeme$0=Stdlib_lexing[6], - sub_lexeme$0=Stdlib_lexing[14], - sub_lexeme_char$0=Stdlib_lexing[16]; - function hex$3(c) - {if(65 <= c) - {if(97 <= c) - {if(! (103 <= c))return (c - 97 | 0) + 10 | 0} - else - if(! (71 <= c))return (c - 65 | 0) + 10 | 0} - else - {var switcher=c - 48 | 0;if(! (9 < switcher >>> 0))return c - 48 | 0} - throw [0,Assert_failure,_cF_]} - function custom_error$0(descr,v,lexbuf) - {var - offs=lexbuf[4] - 1 | 0, - bol=v[3], - pos1=((offs + lexbuf[5] | 0) - bol | 0) - 1 | 0, - pos2=caml_call2(Stdlib[17],pos1,(offs + lexbuf[6] | 0) - bol | 0), - _gO_=v[4]; - if(_gO_) - var s=_gO_[1],file_line=caml_call2(Stdlib_printf[4],_cG_,s); - else - var file_line=cst_Line$0; - var - bytes= - pos1 === pos2 - ?caml_call2(Stdlib_printf[4],_cH_,pos1 + 1 | 0) - :caml_call3(Stdlib_printf[4],_cJ_,pos1 + 1 | 0,pos2 + 1 | 0), - msg=caml_call5(Stdlib_printf[4],_cI_,file_line,v[2],bytes,descr); - return json_error(msg)} - function lexer_error$0(descr,v,lexbuf) - {var _gN_=caml_call1(lexeme$0,lexbuf); - return custom_error$0 - (caml_call3(Stdlib_printf[4],_cK_,descr,_gN_),v,lexbuf)} - var read_junk$0=[0,function(param){throw [0,Assert_failure,_cL_]}]; - function long_error$0(descr,v,lexbuf) - {var - junk=caml_call1(lexeme$0,lexbuf), - extra_junk=caml_call1(read_junk$0[1],lexbuf); - return custom_error$0 - (caml_call4(Stdlib_printf[4],_cM_,descr,junk,extra_junk), - v, - lexbuf)} - var - _cN_=0 === (Stdlib[20] % 10 | 0)?0:1, - min10$0=(Stdlib[20] / 10 | 0) - _cN_ | 0, - _cO_=0 === (Stdlib[19] % 10 | 0)?0:1, - max10$0=(Stdlib[19] / 10 | 0) + _cO_ | 0, - Int_overflow$0=[248,cst_Yojson_Safe_Int_overflow,caml_fresh_oo_id(0)]; - function extract_positive_int$0(lexbuf) - {var - start=lexbuf[5], - stop=lexbuf[6], - s=lexbuf[2], - n=[0,0], - _gK_=stop - 1 | 0; - if(! (_gK_ < start)) - {var i=start; - for(;;) - {if(max10$0 <= n[1])throw Int_overflow$0; - var _gL_=caml_bytes_get(s,i) - 48 | 0; - n[1] = (10 * n[1] | 0) + _gL_ | 0; - var _gM_=i + 1 | 0; - if(_gK_ !== i){var i=_gM_;continue} - break}} - if(0 <= n[1])return n[1]; - throw Int_overflow$0} - function extract_negative_int$0(lexbuf) - {var - start=lexbuf[5] + 1 | 0, - stop=lexbuf[6], - s=lexbuf[2], - n=[0,0], - _gH_=stop - 1 | 0; - if(! (_gH_ < start)) - {var i=start; - for(;;) - {if(n[1] <= min10$0)throw Int_overflow$0; - var _gI_=caml_bytes_get(s,i) - 48 | 0; - n[1] = (10 * n[1] | 0) - _gI_ | 0; - var _gJ_=i + 1 | 0; - if(_gH_ !== i){var i=_gJ_;continue} - break}} - if(0 < n[1])throw Int_overflow$0; - return n[1]} - function newline$0(v,lexbuf) - {v[2] = v[2] + 1 | 0;v[3] = lexbuf[4] + lexbuf[6] | 0;return 0} - function add_lexeme$0(buf,lexbuf) - {var len=lexbuf[6] - lexbuf[5] | 0; - return caml_call4(Bi_outbuf[12],buf,lexbuf[2],lexbuf[5],len)} - function read_json$3(counter,v,lexbuf) - {var _gG_=0; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return ocaml_lex_read_json_rec$0(counter$0,v,lexbuf,_gG_)} - return caml_trampoline_return - (ocaml_lex_read_json_rec$0,[0,v,lexbuf,_gG_])} - function ocaml_lex_read_json_rec$0(counter,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(19 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return _cP_; - case 1:return _cQ_; - case 2:return 870828711; - case 3:return [0,365180284,Stdlib[24]]; - case 4:return [0,365180284,Stdlib[22]]; - case 5:return [0,365180284,Stdlib[23]]; - case 6: - caml_call1(Bi_outbuf[19],v[1]); - return [0,-976970511,finish_string$3(v,lexbuf)]; - case 7: - try - {var _gt_=[0,3654863,extract_positive_int$0(lexbuf)];return _gt_} - catch(_gF_) - {_gF_ = caml_wrap_exception(_gF_); - if(_gF_ === Int_overflow$0) - return [0,-752863768,caml_call1(lexeme$0,lexbuf)]; - throw _gF_} - case 8: - try - {var _gu_=[0,3654863,extract_negative_int$0(lexbuf)];return _gu_} - catch(_gE_) - {_gE_ = caml_wrap_exception(_gE_); - if(_gE_ === Int_overflow$0) - return [0,-752863768,caml_call1(lexeme$0,lexbuf)]; - throw _gE_} - case 9: - return [0, - 365180284, - caml_float_of_string(caml_call1(lexeme$0,lexbuf))]; - case 10: - var acc=[0,0]; - try - {read_space$0(v,lexbuf); - read_object_end$0(lexbuf); - var field_name=read_ident$0(v,lexbuf); - read_space$0(v,lexbuf); - read_colon$0(v,lexbuf); - read_space$0(v,lexbuf); - var _gv_=acc[1]; - acc[1] = [0,[0,field_name,read_json$0(v,lexbuf)],_gv_]; - for(;;) - {read_space$0(v,lexbuf); - read_object_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - var field_name$0=read_ident$0(v,lexbuf); - read_space$0(v,lexbuf); - read_colon$0(v,lexbuf); - read_space$0(v,lexbuf); - var _gw_=acc[1]; - acc[1] = [0,[0,field_name$0,read_json$0(v,lexbuf)],_gw_]; - continue}} - catch(_gD_) - {_gD_ = caml_wrap_exception(_gD_); - if(_gD_ === End_of_object) - return [0,963043957,caml_call1(Stdlib_list[9],acc[1])]; - throw _gD_} - case 11: - var acc$0=[0,0]; - try - {read_space$0(v,lexbuf); - read_array_end$0(lexbuf); - var _gx_=acc$0[1]; - acc$0[1] = [0,read_json$0(v,lexbuf),_gx_]; - for(;;) - {read_space$0(v,lexbuf); - read_array_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - var _gy_=acc$0[1]; - acc$0[1] = [0,read_json$0(v,lexbuf),_gy_]; - continue}} - catch(_gC_) - {_gC_ = caml_wrap_exception(_gC_); - if(_gC_ === End_of_array) - return [0,848054398,caml_call1(Stdlib_list[9],acc$0[1])]; - throw _gC_} - case 12: - var acc$1=[0,0]; - try - {read_space$0(v,lexbuf); - read_tuple_end$0(lexbuf); - var _gz_=acc$1[1]; - acc$1[1] = [0,read_json$0(v,lexbuf),_gz_]; - for(;;) - {read_space$0(v,lexbuf); - read_tuple_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - var _gA_=acc$1[1]; - acc$1[1] = [0,read_json$0(v,lexbuf),_gA_]; - continue}} - catch(_gB_) - {_gB_ = caml_wrap_exception(_gB_); - if(_gB_ === End_of_tuple) - return [0,726928360,caml_call1(Stdlib_list[9],acc$1[1])]; - throw _gB_} - case 13: - read_space$0(v,lexbuf); - var cons=read_ident$0(v,lexbuf); - read_space$0(v,lexbuf); - return [0,708012133,[0,cons,finish_variant$0(v,lexbuf)]]; - case 14: - if(counter < 50) - {var counter$0=counter + 1 | 0; - return read_json$3(counter$0,v,lexbuf)} - return caml_trampoline_return(read_json$3,[0,v,lexbuf]); - case 15: - finish_comment$0(v,lexbuf); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return read_json$3(counter$1,v,lexbuf)} - return caml_trampoline_return(read_json$3,[0,v,lexbuf]); - case 16: - newline$0(v,lexbuf); - if(counter < 50) - {var counter$2=counter + 1 | 0; - return read_json$3(counter$2,v,lexbuf)} - return caml_trampoline_return(read_json$3,[0,v,lexbuf]); - case 17: - if(counter < 50) - {var counter$3=counter + 1 | 0; - return read_json$3(counter$3,v,lexbuf)} - return caml_trampoline_return(read_json$3,[0,v,lexbuf]); - case 18: - return custom_error$0(cst_Unexpected_end_of_input$44,v,lexbuf); - default:return long_error$0(cst_Invalid_token$9,v,lexbuf)}}} - function read_json$0(v,lexbuf) - {return caml_trampoline(read_json$3(0,v,lexbuf))} - function finish_string$3(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=58; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call1(Bi_outbuf[4],v[1]); - case 1:finish_escaped_char$0(v,lexbuf);continue a; - case 2:add_lexeme$0(v[1],lexbuf);continue a; - default: - return custom_error$0(cst_Unexpected_end_of_input$45,v,lexbuf)}}}} - function map_string$0(v,f,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=63; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var b=v[1],_gs_=b[3]; - return caml_call3(f,caml_call1(Stdlib_bytes[6],b[1]),0,_gs_); - case 1:finish_escaped_char$0(v,lexbuf);continue a; - case 2:add_lexeme$0(v[1],lexbuf);continue a; - default: - return custom_error$0(cst_Unexpected_end_of_input$46,v,lexbuf)}}}} - function finish_escaped_char$0(v,lexbuf) - {var ocaml_lex_state=68; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(8 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var c=caml_call2(sub_lexeme_char$0,lexbuf,lexbuf[5]); - return caml_call2(Bi_outbuf[15],v[1],c); - case 1:return caml_call2(Bi_outbuf[15],v[1],8); - case 2:return caml_call2(Bi_outbuf[15],v[1],12); - case 3:return caml_call2(Bi_outbuf[15],v[1],10); - case 4:return caml_call2(Bi_outbuf[15],v[1],13); - case 5:return caml_call2(Bi_outbuf[15],v[1],9); - case 6: - var - a=caml_call2(sub_lexeme_char$0,lexbuf,lexbuf[5] + 1 | 0), - b=caml_call2(sub_lexeme_char$0,lexbuf,lexbuf[5] + 2 | 0), - c$0=caml_call2(sub_lexeme_char$0,lexbuf,lexbuf[5] + 3 | 0), - d=caml_call2(sub_lexeme_char$0,lexbuf,lexbuf[5] + 4 | 0), - _gm_=hex$3(d), - _gn_=hex$3(c$0) << 4, - _go_=hex$3(b) << 8, - x=hex$3(a) << 12 | _go_ | _gn_ | _gm_; - if(55296 <= x) - if(! (56319 < x)) - {var ocaml_lex_state$1=82; - for(;;) - {var - ocaml_lex_state$2= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$1,lexbuf); - if(2 < ocaml_lex_state$2 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$1=ocaml_lex_state$2; - continue} - switch(ocaml_lex_state$2) - {case 0: - var - a$0=caml_call2(sub_lexeme_char$0,lexbuf,lexbuf[5] + 2 | 0), - b$0=caml_call2(sub_lexeme_char$0,lexbuf,lexbuf[5] + 3 | 0), - c$1=caml_call2(sub_lexeme_char$0,lexbuf,lexbuf[5] + 4 | 0), - d$0=caml_call2(sub_lexeme_char$0,lexbuf,lexbuf[5] + 5 | 0), - _gp_=hex$3(d$0), - _gq_=hex$3(c$1) << 4, - _gr_=hex$3(b$0) << 8, - y=hex$3(a$0) << 12 | _gr_ | _gq_ | _gp_; - if(56320 <= y) - if(! (57343 < y))return utf8_of_surrogate_pair(v[1],x,y); - return long_error$0 - (cst_Invalid_low_surrogate_for_code_point_beyond_U_FFFF$0, - v, - lexbuf); - case 1: - return long_error$0 - (cst_Missing_escape_sequence_representing_low_surrogate_for_code_point_beyond_U_FFFF$0, - v, - lexbuf); - default: - return custom_error$0 - (cst_Unexpected_end_of_input$48,v,lexbuf)}}} - return utf8_of_code(v[1],x); - case 7:return long_error$0(cst_Invalid_escape_sequence$0,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$47,v,lexbuf)}}} - function finish_stringlit$0(v,lexbuf) - {var ocaml_lex_state=91; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var len=lexbuf[6] - lexbuf[5] | 0,s=caml_create_bytes(len + 1 | 0); - caml_bytes_set(s,0,34); - caml_call5(Stdlib_bytes[11],lexbuf[2],lexbuf[5],s,1,len); - return caml_call1(Stdlib_bytes[6],s); - case 1:return long_error$0(cst_Invalid_string_literal$2,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$49,v,lexbuf)}}} - function finish_variant$0(v,lexbuf) - {var ocaml_lex_state=102; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var x=read_json$0(v,lexbuf); - read_space$0(v,lexbuf); - read_gt$0(v,lexbuf); - return [0,x]; - case 1:return 0; - case 2:return long_error$0(cst_Expected_or_but_found$13,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$50,v,lexbuf)}}} - function read_lt$0(v,lexbuf) - {var ocaml_lex_state=107; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_but_found$14,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$51,v,lexbuf)}}} - function read_gt$0(v,lexbuf) - {var ocaml_lex_state=111; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_but_found$15,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$52,v,lexbuf)}}} - function read_comma$0(v,lexbuf) - {var ocaml_lex_state=115; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_but_found$16,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$53,v,lexbuf)}}} - function start_any_variant$0(v,lexbuf) - {var ocaml_lex_state=119; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return -154522342; - case 1:caml_call1(Bi_outbuf[19],v[1]);return -589953938; - case 2:return -124528282; - case 3:return long_error$0(cst_Expected_or_but_found$14,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$54,v,lexbuf)}}} - function finish_comment$0(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=125; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Unterminated_comment$1,v,lexbuf); - case 2:newline$0(v,lexbuf);continue a; - default:continue a}}}} - function read_eof$0(lexbuf) - {var ocaml_lex_state=131; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)return 1; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_space$0(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=133; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:newline$0(v,lexbuf);continue a; - case 1:finish_comment$0(v,lexbuf);continue a; - case 2:newline$0(v,lexbuf);continue a; - case 3:continue a; - default:return 0}}}} - function read_null$0(v,lexbuf) - {var ocaml_lex_state=140; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_null_but_found$0,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$55,v,lexbuf)}}} - function read_null_if_possible$0(v,lexbuf) - {var ocaml_lex_state=147; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)return 1; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_bool$0(v,lexbuf) - {var ocaml_lex_state=152; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(5 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 1; - case 1:return 0; - case 2:return 1; - case 3:return 0; - case 4: - return long_error$0 - (cst_Expected_true_or_false_but_found$0,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$56,v,lexbuf)}}} - function ocaml_lex_read_int_rec$0(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(4 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - try - {var _gg_=extract_positive_int$0(lexbuf);return _gg_} - catch(_gl_) - {_gl_ = caml_wrap_exception(_gl_); - if(_gl_ === Int_overflow$0) - return lexer_error$0(cst_Int_overflow$3,v,lexbuf); - throw _gl_} - case 1: - try - {var _gh_=extract_negative_int$0(lexbuf);return _gh_} - catch(_gk_) - {_gk_ = caml_wrap_exception(_gk_); - if(_gk_ === Int_overflow$0) - return lexer_error$0(cst_Int_overflow$4,v,lexbuf); - throw _gk_} - case 2: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$3(v,lexbuf); - try - {var _gi_=caml_int_of_string(s);return _gi_} - catch(_gj_) - {return custom_error$0 - (cst_Expected_an_integer_but_found_a_string_that_doesn_t_even_represent_an_integer$0, - v, - lexbuf)} - case 3: - return long_error$0(cst_Expected_integer_but_found$0,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$57,v,lexbuf)}}} - function read_int$0(v,lexbuf) - {return ocaml_lex_read_int_rec$0(v,lexbuf,176)} - function ocaml_lex_read_int32_rec$0(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(3 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - try - {var _gc_=caml_int_of_string(caml_call1(lexeme$0,lexbuf)); - return _gc_} - catch(_gf_){return lexer_error$0(cst_Int32_overflow$1,v,lexbuf)} - case 1: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$3(v,lexbuf); - try - {var _gd_=caml_int_of_string(s);return _gd_} - catch(_ge_) - {return custom_error$0 - (cst_Expected_an_int32_but_found_a_string_that_doesn_t_even_represent_an_integer$0, - v, - lexbuf)} - case 2:return long_error$0(cst_Expected_int32_but_found$0,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$58,v,lexbuf)}}} - function read_int32$0(v,lexbuf) - {return ocaml_lex_read_int32_rec$0(v,lexbuf,185)} - function ocaml_lex_read_int64_rec$0(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(3 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - try - {var _f__=caml_int64_of_string(caml_call1(lexeme$0,lexbuf)); - return _f__} - catch(_gb_){return lexer_error$0(cst_Int32_overflow$2,v,lexbuf)} - case 1: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$3(v,lexbuf); - try - {var _f$_=caml_int64_of_string(s);return _f$_} - catch(_ga_) - {return custom_error$0 - (cst_Expected_an_int64_but_found_a_string_that_doesn_t_even_represent_an_integer$0, - v, - lexbuf)} - case 2:return long_error$0(cst_Expected_int64_but_found$0,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$59,v,lexbuf)}}} - function read_int64$0(v,lexbuf) - {return ocaml_lex_read_int64_rec$0(v,lexbuf,192)} - function ocaml_lex_read_number_rec$0(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(6 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return Stdlib[24]; - case 1:return Stdlib[22]; - case 2:return Stdlib[23]; - case 3:return caml_float_of_string(caml_call1(lexeme$0,lexbuf)); - case 4: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$3(v,lexbuf); - try - {var _f8_=caml_float_of_string(s);return _f8_} - catch(_f9_) - {return caml_string_notequal(s,cst_Infinity$19) - ?caml_string_notequal(s,cst_Infinity$20) - ?caml_string_notequal(s,cst_NaN$9) - ?custom_error$0 - (cst_Expected_a_number_but_found_a_string_that_doesn_t_even_represent_a_number$0, - v, - lexbuf) - :Stdlib[24] - :Stdlib[22] - :Stdlib[23]} - case 5: - return long_error$0(cst_Expected_number_but_found$0,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$60,v,lexbuf)}}} - function read_number$0(v,lexbuf) - {return ocaml_lex_read_number_rec$0(v,lexbuf,199)} - function read_string$0(v,lexbuf) - {var ocaml_lex_state=233; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call1(Bi_outbuf[19],v[1]);return finish_string$3(v,lexbuf); - case 1:return long_error$0(cst_Expected_but_found$17,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$61,v,lexbuf)}}} - function read_ident$0(v,lexbuf) - {var ocaml_lex_state=237; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call1(Bi_outbuf[19],v[1]);return finish_string$3(v,lexbuf); - case 1: - var s=caml_call3(sub_lexeme$0,lexbuf,lexbuf[5],lexbuf[6]);return s; - case 2: - return long_error$0 - (cst_Expected_string_or_identifier_but_found$3,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$62,v,lexbuf)}}} - function map_ident$0(v,f,lexbuf) - {var ocaml_lex_state=242; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call1(Bi_outbuf[19],v[1]);return map_string$0(v,f,lexbuf); - case 1: - var len=lexbuf[6] - lexbuf[5] | 0,_f7_=lexbuf[5]; - return caml_call3(f,caml_call1(Stdlib_bytes[6],lexbuf[2]),_f7_,len); - case 2: - return long_error$0 - (cst_Expected_string_or_identifier_but_found$4,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$63,v,lexbuf)}}} - function ocaml_lex_read_sequence_rec$0 - (read_cell,init_acc,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var acc=[0,init_acc]; - try - {read_space$0(v,lexbuf); - read_array_end$0(lexbuf); - acc[1] = caml_call3(read_cell,acc[1],v,lexbuf); - for(;;) - {read_space$0(v,lexbuf); - read_array_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - acc[1] = caml_call3(read_cell,acc[1],v,lexbuf); - continue}} - catch(_f6_) - {_f6_ = caml_wrap_exception(_f6_); - if(_f6_ === End_of_array)return acc[1]; - throw _f6_} - case 1:return long_error$0(cst_Expected_but_found$18,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$64,v,lexbuf)}}} - function read_sequence$0(read_cell,init_acc,v,lexbuf) - {return ocaml_lex_read_sequence_rec$0(read_cell,init_acc,v,lexbuf,247)} - function ocaml_lex_read_list_rev_rec$0(read_cell,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var acc=[0,0]; - try - {read_space$0(v,lexbuf); - read_array_end$0(lexbuf); - var _f3_=acc[1]; - acc[1] = [0,caml_call2(read_cell,v,lexbuf),_f3_]; - for(;;) - {read_space$0(v,lexbuf); - read_array_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - var _f4_=acc[1]; - acc[1] = [0,caml_call2(read_cell,v,lexbuf),_f4_]; - continue}} - catch(_f5_) - {_f5_ = caml_wrap_exception(_f5_); - if(_f5_ === End_of_array)return acc[1]; - throw _f5_} - case 1:return long_error$0(cst_Expected_but_found$19,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$65,v,lexbuf)}}} - function read_list_rev$0(read_cell,v,lexbuf) - {return ocaml_lex_read_list_rev_rec$0(read_cell,v,lexbuf,251)} - function read_array_end$0(lexbuf) - {var ocaml_lex_state=255; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)throw End_of_array; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_array_sep$0(v,lexbuf) - {var ocaml_lex_state=257; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:throw End_of_array; - case 2:return long_error$0(cst_Expected_or_but_found$15,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$66,v,lexbuf)}}} - function ocaml_lex_read_tuple_rec - (read_cell,init_acc,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var pos=[0,0],acc=[0,init_acc]; - try - {read_space$0(v,lexbuf); - read_tuple_end$0(lexbuf); - acc[1] = caml_call4(read_cell,pos[1],acc[1],v,lexbuf); - pos[1]++; - for(;;) - {read_space$0(v,lexbuf); - read_tuple_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - acc[1] = caml_call4(read_cell,pos[1],acc[1],v,lexbuf); - pos[1]++; - continue}} - catch(_f2_) - {_f2_ = caml_wrap_exception(_f2_); - if(_f2_ === End_of_tuple)return acc[1]; - throw _f2_} - case 1:return long_error$0(cst_Expected_but_found$20,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$67,v,lexbuf)}}} - function read_tuple$0(read_cell,init_acc,v,lexbuf) - {return ocaml_lex_read_tuple_rec(read_cell,init_acc,v,lexbuf,262)} - function read_tuple_end$0(lexbuf) - {var ocaml_lex_state=266; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)throw End_of_tuple; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_tuple_end2$0(v,std,lexbuf) - {var ocaml_lex_state=268; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - if(std)return long_error$0(cst_Expected_or_but_found$16,v,lexbuf); - throw End_of_tuple; - case 1: - if(std)throw End_of_tuple; - return long_error$0(cst_Expected_or_but_found$17,v,lexbuf); - default:return 0}}} - function read_tuple_sep$0(v,lexbuf) - {var ocaml_lex_state=271; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:throw End_of_tuple; - case 2:return long_error$0(cst_Expected_or_but_found$18,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$68,v,lexbuf)}}} - function read_tuple_sep2$0(v,std,lexbuf) - {var ocaml_lex_state=276; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1: - if(std)return long_error$0(cst_Expected_or_but_found$19,v,lexbuf); - throw End_of_tuple; - case 2: - if(std)throw End_of_tuple; - return long_error$0(cst_Expected_or_but_found$20,v,lexbuf); - case 3:return long_error$0(cst_Expected_or_but_found$21,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$69,v,lexbuf)}}} - function ocaml_lex_read_abstract_fields_rec$0 - (read_key,read_field,init_acc,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var acc=[0,init_acc]; - try - {read_space$0(v,lexbuf); - read_object_end$0(lexbuf); - var field_name=caml_call2(read_key,v,lexbuf); - read_space$0(v,lexbuf); - read_colon$0(v,lexbuf); - read_space$0(v,lexbuf); - acc[1] = caml_call4(read_field,acc[1],field_name,v,lexbuf); - for(;;) - {read_space$0(v,lexbuf); - read_object_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - var field_name$0=caml_call2(read_key,v,lexbuf); - read_space$0(v,lexbuf); - read_colon$0(v,lexbuf); - read_space$0(v,lexbuf); - acc[1] = caml_call4(read_field,acc[1],field_name$0,v,lexbuf); - continue}} - catch(_f1_) - {_f1_ = caml_wrap_exception(_f1_); - if(_f1_ === End_of_object)return acc[1]; - throw _f1_} - case 1:return long_error$0(cst_Expected_but_found$21,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$70,v,lexbuf)}}} - function read_abstract_fields$0(read_key,read_field,init_acc,v,lexbuf) - {return ocaml_lex_read_abstract_fields_rec$0 - (read_key,read_field,init_acc,v,lexbuf,282)} - function read_lcurl$0(v,lexbuf) - {var ocaml_lex_state=286; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_but_found$22,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$71,v,lexbuf)}}} - function read_object_end$0(lexbuf) - {var ocaml_lex_state=290; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)throw End_of_object; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_object_sep$0(v,lexbuf) - {var ocaml_lex_state=292; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:throw End_of_object; - case 2:return long_error$0(cst_Expected_or_but_found$22,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$72,v,lexbuf)}}} - function read_colon$0(v,lexbuf) - {var ocaml_lex_state=297; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_but_found$23,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$73,v,lexbuf)}}} - function start_any_tuple$0(v,lexbuf) - {var ocaml_lex_state=301; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return 1; - case 2:return long_error$0(cst_Expected_or_but_found$23,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$74,v,lexbuf)}}} - function read_lpar$0(v,lexbuf) - {var ocaml_lex_state=306; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_but_found$24,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$75,v,lexbuf)}}} - function read_rpar$0(v,lexbuf) - {var ocaml_lex_state=310; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_but_found$25,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$76,v,lexbuf)}}} - function read_lbr$0(v,lexbuf) - {var ocaml_lex_state=314; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_but_found$26,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$77,v,lexbuf)}}} - function read_rbr$0(v,lexbuf) - {var ocaml_lex_state=318; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Expected_but_found$27,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$78,v,lexbuf)}}} - function finish_skip_variant$0(v,lexbuf) - {var ocaml_lex_state=389; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - skip_json$0(v,lexbuf); - read_space$0(v,lexbuf); - return read_gt$0(v,lexbuf); - case 1:return 0; - case 2:return long_error$0(cst_Expected_or_but_found$24,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$81,v,lexbuf)}}} - function finish_skip_stringlit$0(v,lexbuf) - {var ocaml_lex_state=378; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$0(cst_Invalid_string_literal$3,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$80,v,lexbuf)}}} - function skip_json$3(counter,v,lexbuf) - {var _f0_=322; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return ocaml_lex_skip_json_rec$0(counter$0,v,lexbuf,_f0_)} - return caml_trampoline_return - (ocaml_lex_skip_json_rec$0,[0,v,lexbuf,_f0_])} - function ocaml_lex_skip_json_rec$0(counter,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(18 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return 0; - case 1:return 0; - case 2:return 0; - case 3:return 0; - case 4:return 0; - case 5:return 0; - case 6:return finish_skip_stringlit$0(v,lexbuf); - case 7:return 0; - case 8:return 0; - case 9: - try - {read_space$0(v,lexbuf); - read_object_end$0(lexbuf); - skip_ident$0(v,lexbuf); - read_space$0(v,lexbuf); - read_colon$0(v,lexbuf); - read_space$0(v,lexbuf); - skip_json$0(v,lexbuf); - for(;;) - {read_space$0(v,lexbuf); - read_object_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - skip_ident$0(v,lexbuf); - read_space$0(v,lexbuf); - read_colon$0(v,lexbuf); - read_space$0(v,lexbuf); - skip_json$0(v,lexbuf); - continue}} - catch(_fZ_) - {_fZ_ = caml_wrap_exception(_fZ_); - if(_fZ_ === End_of_object)return 0; - throw _fZ_} - case 10: - try - {read_space$0(v,lexbuf); - read_array_end$0(lexbuf); - skip_json$0(v,lexbuf); - for(;;) - {read_space$0(v,lexbuf); - read_array_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - skip_json$0(v,lexbuf); - continue}} - catch(_fY_) - {_fY_ = caml_wrap_exception(_fY_); - if(_fY_ === End_of_array)return 0; - throw _fY_} - case 11: - try - {read_space$0(v,lexbuf); - read_tuple_end$0(lexbuf); - skip_json$0(v,lexbuf); - for(;;) - {read_space$0(v,lexbuf); - read_tuple_sep$0(v,lexbuf); - read_space$0(v,lexbuf); - skip_json$0(v,lexbuf); - continue}} - catch(_fX_) - {_fX_ = caml_wrap_exception(_fX_); - if(_fX_ === End_of_tuple)return 0; - throw _fX_} - case 12: - read_space$0(v,lexbuf); - skip_ident$0(v,lexbuf); - read_space$0(v,lexbuf); - return finish_skip_variant$0(v,lexbuf); - case 13: - if(counter < 50) - {var counter$0=counter + 1 | 0; - return skip_json$3(counter$0,v,lexbuf)} - return caml_trampoline_return(skip_json$3,[0,v,lexbuf]); - case 14: - finish_comment$0(v,lexbuf); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return skip_json$3(counter$1,v,lexbuf)} - return caml_trampoline_return(skip_json$3,[0,v,lexbuf]); - case 15: - newline$0(v,lexbuf); - if(counter < 50) - {var counter$2=counter + 1 | 0; - return skip_json$3(counter$2,v,lexbuf)} - return caml_trampoline_return(skip_json$3,[0,v,lexbuf]); - case 16: - if(counter < 50) - {var counter$3=counter + 1 | 0; - return skip_json$3(counter$3,v,lexbuf)} - return caml_trampoline_return(skip_json$3,[0,v,lexbuf]); - case 17: - return custom_error$0(cst_Unexpected_end_of_input$79,v,lexbuf); - default:return long_error$0(cst_Invalid_token$10,v,lexbuf)}}} - function skip_json$0(v,lexbuf) - {return caml_trampoline(skip_json$3(0,v,lexbuf))} - function skip_ident$0(v,lexbuf) - {var ocaml_lex_state=394; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return finish_skip_stringlit$0(v,lexbuf); - case 1:return 0; - case 2: - return long_error$0 - (cst_Expected_string_or_identifier_but_found$5,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$82,v,lexbuf)}}} - function finish_buffer_variant(v,lexbuf) - {var ocaml_lex_state=461; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call2(Bi_outbuf[15],v[1],58); - buffer_json$0(v,lexbuf); - buffer_space$0(v,lexbuf); - var ocaml_lex_state$1=503; - for(;;) - {var - ocaml_lex_state$2= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$1,lexbuf); - if(2 < ocaml_lex_state$2 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$1=ocaml_lex_state$2; - continue} - switch(ocaml_lex_state$2) - {case 0:return caml_call2(Bi_outbuf[15],v[1],62); - case 1:return long_error$0(cst_Expected_but_found$29,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$91,v,lexbuf)}} - case 1:return caml_call2(Bi_outbuf[15],v[1],62); - case 2:return long_error$0(cst_Expected_or_but_found$25,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$85,v,lexbuf)}}} - function finish_buffer_stringlit$0(v,lexbuf) - {var ocaml_lex_state=450; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call2(Bi_outbuf[15],v[1],34);return add_lexeme$0(v[1],lexbuf); - case 1:return long_error$0(cst_Invalid_string_literal$4,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$84,v,lexbuf)}}} - function buffer_json$3(counter,v,lexbuf) - {var _fW_=399; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return ocaml_lex_buffer_json_rec$0(counter$0,v,lexbuf,_fW_)} - return caml_trampoline_return - (ocaml_lex_buffer_json_rec$0,[0,v,lexbuf,_fW_])} - function ocaml_lex_buffer_json_rec$0(counter,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state$0,lexbuf); - if(11 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return add_lexeme$0(v[1],lexbuf); - case 1:return finish_buffer_stringlit$0(v,lexbuf); - case 2: - try - {caml_call2(Bi_outbuf[15],v[1],123); - buffer_space$0(v,lexbuf); - buffer_object_end$0(v,lexbuf); - buffer_ident$0(v,lexbuf); - buffer_space$0(v,lexbuf); - buffer_colon$0(v,lexbuf); - buffer_space$0(v,lexbuf); - buffer_json$0(v,lexbuf); - for(;;) - {buffer_space$0(v,lexbuf); - buffer_object_sep$0(v,lexbuf); - buffer_space$0(v,lexbuf); - buffer_ident$0(v,lexbuf); - buffer_space$0(v,lexbuf); - buffer_colon$0(v,lexbuf); - buffer_space$0(v,lexbuf); - buffer_json$0(v,lexbuf); - continue}} - catch(_fV_) - {_fV_ = caml_wrap_exception(_fV_); - if(_fV_ === End_of_object)return 0; - throw _fV_} - case 3: - try - {caml_call2(Bi_outbuf[15],v[1],91); - buffer_space$0(v,lexbuf); - buffer_array_end$0(v,lexbuf); - buffer_json$0(v,lexbuf); - for(;;) - {buffer_space$0(v,lexbuf); - buffer_array_sep$0(v,lexbuf); - buffer_space$0(v,lexbuf); - buffer_json$0(v,lexbuf); - continue}} - catch(_fU_) - {_fU_ = caml_wrap_exception(_fU_); - if(_fU_ === End_of_array)return 0; - throw _fU_} - case 4: - try - {caml_call2(Bi_outbuf[15],v[1],40); - buffer_space$0(v,lexbuf); - buffer_tuple_end(v,lexbuf); - buffer_json$0(v,lexbuf); - for(;;) - {buffer_space$0(v,lexbuf); - buffer_tuple_sep(v,lexbuf); - buffer_space$0(v,lexbuf); - buffer_json$0(v,lexbuf); - continue}} - catch(_fT_) - {_fT_ = caml_wrap_exception(_fT_); - if(_fT_ === End_of_tuple)return 0; - throw _fT_} - case 5: - caml_call2(Bi_outbuf[15],v[1],60); - buffer_space$0(v,lexbuf); - buffer_ident$0(v,lexbuf); - buffer_space$0(v,lexbuf); - return finish_buffer_variant(v,lexbuf); - case 6: - add_lexeme$0(v[1],lexbuf); - if(counter < 50) - {var counter$0=counter + 1 | 0; - return buffer_json$3(counter$0,v,lexbuf)} - return caml_trampoline_return(buffer_json$3,[0,v,lexbuf]); - case 7: - caml_call2(Bi_outbuf[13],v[1],cst$28); - finish_buffer_comment$0(v,lexbuf); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return buffer_json$3(counter$1,v,lexbuf)} - return caml_trampoline_return(buffer_json$3,[0,v,lexbuf]); - case 8: - caml_call2(Bi_outbuf[15],v[1],10); - newline$0(v,lexbuf); - if(counter < 50) - {var counter$2=counter + 1 | 0; - return buffer_json$3(counter$2,v,lexbuf)} - return caml_trampoline_return(buffer_json$3,[0,v,lexbuf]); - case 9: - add_lexeme$0(v[1],lexbuf); - if(counter < 50) - {var counter$3=counter + 1 | 0; - return buffer_json$3(counter$3,v,lexbuf)} - return caml_trampoline_return(buffer_json$3,[0,v,lexbuf]); - case 10: - return custom_error$0(cst_Unexpected_end_of_input$83,v,lexbuf); - default:return long_error$0(cst_Invalid_token$11,v,lexbuf)}}} - function buffer_json$0(v,lexbuf) - {return caml_trampoline(buffer_json$3(0,v,lexbuf))} - function buffer_ident$0(v,lexbuf) - {var ocaml_lex_state=466; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return finish_buffer_stringlit$0(v,lexbuf); - case 1:return add_lexeme$0(v[1],lexbuf); - case 2: - return long_error$0 - (cst_Expected_string_or_identifier_but_found$6,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$86,v,lexbuf)}}} - function buffer_space$0(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=471; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:add_lexeme$0(v[1],lexbuf);newline$0(v,lexbuf);continue a; - case 1: - caml_call2(Bi_outbuf[13],v[1],cst$29); - finish_buffer_comment$0(v,lexbuf); - continue a; - case 2: - caml_call2(Bi_outbuf[15],v[1],10);newline$0(v,lexbuf);continue a; - case 3:add_lexeme$0(v[1],lexbuf);continue a; - default:return 0}}}} - function buffer_object_end$0(v,lexbuf) - {var ocaml_lex_state=478; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0) - {caml_call2(Bi_outbuf[15],v[1],125);throw End_of_object} - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function buffer_object_sep$0(v,lexbuf) - {var ocaml_lex_state=480; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],44); - case 1:caml_call2(Bi_outbuf[15],v[1],125);throw End_of_object; - case 2:return long_error$0(cst_Expected_or_but_found$26,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$87,v,lexbuf)}}} - function buffer_array_end$0(v,lexbuf) - {var ocaml_lex_state=485; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0) - {caml_call2(Bi_outbuf[15],v[1],93);throw End_of_array} - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function buffer_array_sep$0(v,lexbuf) - {var ocaml_lex_state=487; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],44); - case 1:caml_call2(Bi_outbuf[15],v[1],93);throw End_of_array; - case 2:return long_error$0(cst_Expected_or_but_found$27,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$88,v,lexbuf)}}} - function buffer_tuple_end(v,lexbuf) - {var ocaml_lex_state=492; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0) - {caml_call2(Bi_outbuf[15],v[1],41);throw End_of_tuple} - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function buffer_tuple_sep(v,lexbuf) - {var ocaml_lex_state=494; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],44); - case 1:caml_call2(Bi_outbuf[15],v[1],41);throw End_of_tuple; - case 2:return long_error$0(cst_Expected_or_but_found$28,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$89,v,lexbuf)}}} - function buffer_colon$0(v,lexbuf) - {var ocaml_lex_state=499; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],58); - case 1:return long_error$0(cst_Expected_but_found$28,v,lexbuf); - default: - return custom_error$0(cst_Unexpected_end_of_input$90,v,lexbuf)}}} - function finish_buffer_comment$0(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=507; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[13],v[1],cst$30); - case 1:return long_error$0(cst_Unterminated_comment$2,v,lexbuf); - case 2: - caml_call2(Bi_outbuf[15],v[1],10);newline$0(v,lexbuf);continue a; - default:add_lexeme$0(v[1],lexbuf);continue a}}}} - function junk$0(lexbuf) - {var ocaml_lex_state=513; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$0,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)return caml_call1(lexeme$0,lexbuf); - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - read_junk$0[1] = junk$0; - function read_int8$0(v,lexbuf) - {var n=read_int$0(v,lexbuf); - if(0 <= n)if(! (255 < n))return caml_call1(Stdlib[29],n); - return lexer_error$0(cst_Int8_overflow$0,v,lexbuf)} - function read_list$0(read_cell,v,lexbuf) - {var _fS_=read_list_rev$0(read_cell,v,lexbuf); - return caml_call1(Stdlib_list[9],_fS_)} - function read_array$0(read_cell,v,lexbuf) - {var l=read_list_rev$0(read_cell,v,lexbuf); - if(l) - {var - tl=l[2], - x=l[1], - len=caml_call1(Stdlib_list[1],l), - a=caml_make_vect(len,x), - r=[0,tl], - _fP_=len - 2 | 0; - if(! (_fP_ < 0)) - {var i=_fP_; - for(;;) - {var _fQ_=caml_call1(Stdlib_list[5],r[1]); - caml_check_bound(a,i)[1 + i] = _fQ_; - r[1] = caml_call1(Stdlib_list[6],r[1]); - var _fR_=i - 1 | 0; - if(0 !== i){var i=_fR_;continue} - break}} - return a} - return [0]} - function read_fields$0(read_field,init_acc,v) - {return function(_fO_) - {return read_abstract_fields$0(read_ident$0,read_field,init_acc,v,_fO_)}} - function from_lexbuf$0(v,opt,lexbuf) - {if(opt)var sth=opt[1],stream=sth;else var stream=0; - read_space$0(v,lexbuf); - if(read_eof$0(lexbuf))throw End_of_input; - var x=read_json$0(v,lexbuf); - if(1 - stream) - {read_space$0(v,lexbuf); - if(1 - read_eof$0(lexbuf)) - long_error$0(cst_Junk_after_end_of_JSON_value$0,v,lexbuf)} - return x} - function from_string$2(buf,fname,lnum,s) - {try - {var - lexbuf=caml_call2(from_string$1,0,s), - v=init_lexer(buf,fname,lnum,0), - _fM_=from_lexbuf$0(v,0,lexbuf); - return _fM_} - catch(_fN_) - {_fN_ = caml_wrap_exception(_fN_); - if(_fN_ === End_of_input)return json_error(cst_Blank_input_data$1); - throw _fN_}} - function from_channel$2(buf,fname,lnum,ic) - {try - {var - lexbuf=caml_call2(from_channel$1,0,ic), - v=init_lexer(buf,fname,lnum,0), - _fK_=from_lexbuf$0(v,0,lexbuf); - return _fK_} - catch(_fL_) - {_fL_ = caml_wrap_exception(_fL_); - if(_fL_ === End_of_input)return json_error(cst_Blank_input_data$2); - throw _fL_}} - function from_file$0(buf,fname,lnum,file) - {var ic=caml_call1(Stdlib[79],file); - try - {var x=from_channel$2(buf,fname,lnum,ic); - caml_call1(Stdlib[93],ic); - return x} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[94],ic);throw e}} - var Finally$0=[248,cst_Yojson_Safe_Finally,caml_fresh_oo_id(0)]; - function stream_from_lexbuf$0(v,opt,lexbuf) - {if(opt)var sth=opt[1],fin=sth;else var fin=function(param){return 0}; - function f(i) - {try - {var _fJ_=[0,from_lexbuf$0(v,stream$0,lexbuf)];return _fJ_} - catch(e) - {e = caml_wrap_exception(e); - if(e === End_of_input){caml_call1(fin,0);return 0} - try - {caml_call1(fin,0)} - catch(fin_e) - {fin_e = caml_wrap_exception(fin_e);throw [0,Finally$0,e,fin_e]} - throw e}} - return caml_call1(Stdlib_stream[3],f)} - function stream_from_string$0(buf,fname,lnum,s) - {var v=init_lexer(buf,fname,lnum,0); - return stream_from_lexbuf$0(v,0,caml_call2(from_string$1,0,s))} - function stream_from_channel$0(buf,fin,fname,lnum,ic) - {var - lexbuf=caml_call2(from_channel$1,0,ic), - v=init_lexer(buf,fname,lnum,0); - return stream_from_lexbuf$0(v,fin,lexbuf)} - function stream_from_file$0(buf,fname,lnum,file) - {var ic=caml_call1(Stdlib[79],file); - function fin(param){return caml_call1(Stdlib[93],ic)} - var - fname$0=fname || [0,file], - lexbuf=caml_call2(from_channel$1,0,ic), - v=init_lexer(buf,fname$0,lnum,0); - return stream_from_lexbuf$0(v,[0,fin],lexbuf)} - function linestream_from_channel$0(buf,opt,fname,_fH_,ic) - {if(opt)var sth=opt[1],fin=sth;else var fin=function(param){return 0}; - if(_fH_)var sth$0=_fH_[1],lnum0=sth$0;else var lnum0=1; - var buf$0=buf || [0,caml_call3(Bi_outbuf[3],0,0,256)]; - function f(i) - {try - {var - line=caml_call1(Stdlib[83],ic), - lnum=lnum0 + i | 0, - _fI_=[0,[0,826371656,from_string$2(buf$0,fname,[0,lnum],line)]]; - return _fI_} - catch(e) - {e = caml_wrap_exception(e); - return e === Stdlib[12]?(caml_call1(fin,0),0):[0,[0,3458171,e]]}} - return caml_call1(Stdlib_stream[3],f)} - function linestream_from_file$0(buf,fname,lnum,file) - {var ic=caml_call1(Stdlib[79],file); - function fin(param){return caml_call1(Stdlib[93],ic)} - var fname$0=fname || [0,file]; - return linestream_from_channel$0(buf,[0,fin],fname$0,lnum,ic)} - function prettify$0(std,s) - {return pretty_to_string$1(std,from_string$2(0,0,0,s))} - function compact$0(std,s) - {return to_string$3(0,0,0,from_string$2(0,0,0,s))} - function validate_json$0(path,value){return 0} - var - Type_error$0= - [248,cst_Yojson_Safe_Util_Type_error,caml_fresh_oo_id(0)]; - function typerr$0(msg,js) - {if(typeof js === "number") - var _fG_=cst_null$4; - else - var - _fF_=js[1], - _fG_= - 708012133 <= _fF_ - ?726928360 === _fF_ - ?cst_tuple$0 - :848054398 <= _fF_ - ?963043957 <= _fF_?cst_object$0:cst_array$0 - :737456202 <= _fF_?cst_bool$0:cst_variant$0 - :3654863 <= _fF_ - ?365180284 <= _fF_?cst_float$0:cst_int$0 - :-752863768 <= _fF_?cst_intlit$0:cst_string$0; - throw [0,Type_error$0,caml_call2(Stdlib[28],msg,_fG_),js]} - var Undefined$0=[248,cst_Yojson_Safe_Util_Undefined,caml_fresh_oo_id(0)]; - function symbol$0(_fE_,_fD_){return caml_call1(_fD_,_fE_)} - function assoc$0(name,obj) - {try - {var _fB_=caml_call2(Stdlib_list[39],name,obj);return _fB_} - catch(_fC_) - {_fC_ = caml_wrap_exception(_fC_); - if(_fC_ === Stdlib[8])return 870828711; - throw _fC_}} - function member$0(name,js) - {if(typeof js !== "number") - if(963043957 === js[1]){var obj=js[2];return assoc$0(name,obj)} - var _fA_=caml_call2(Stdlib[28],name,cst_of_non_object_type$0); - return typerr$0(caml_call2(Stdlib[28],cst_Can_t_get_member$0,_fA_),js)} - function index$0(i,js) - {if(typeof js !== "number") - if(848054398 === js[1]) - {var - l=js[2], - len=caml_call1(Stdlib_list[1],l), - wrapped_index=0 <= i?i:len + i | 0; - if(0 <= wrapped_index) - if(! (len <= wrapped_index)) - return caml_call2(Stdlib_list[7],l,wrapped_index); - var - _fy_=caml_call1(Stdlib[33],i), - _fz_=caml_call2(Stdlib[28],_fy_,cst_out_of_bounds$0); - throw [0,Undefined$0,caml_call2(Stdlib[28],cst_Index$0,_fz_),js]} - var - _fw_=caml_call1(Stdlib[33],i), - _fx_=caml_call2(Stdlib[28],_fw_,cst_of_non_array_type$0); - return typerr$0(caml_call2(Stdlib[28],cst_Can_t_get_index$0,_fx_),js)} - function map$0(f,js) - {if(typeof js !== "number") - if(848054398 === js[1]) - {var l=js[2];return [0,848054398,caml_call2(Stdlib_list[17],f,l)]} - return typerr$0(cst_Can_t_map_function_over_non_array_type$0,js)} - function to_assoc$0(js) - {if(typeof js !== "number") - if(963043957 === js[1]){var obj=js[2];return obj} - return typerr$0(cst_Expected_object_got$0,js)} - function to_option$0(f,x){return 870828711 === x?0:[0,caml_call1(f,x)]} - function to_bool$0(js) - {if(typeof js !== "number")if(737456202 === js[1]){var b=js[2];return b} - return typerr$0(cst_Expected_bool_got$0,js)} - function to_bool_option$0(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - if(737456202 === js[1]){var b=js[2];return [0,b]} - return typerr$0(cst_Expected_bool_or_null_got$0,js)} - function to_number$0(js) - {if(typeof js !== "number") - {var _fv_=js[1]; - if(3654863 === _fv_){var i=js[2];return i} - if(365180284 === _fv_){var f=js[2];return f}} - return typerr$0(cst_Expected_number_got$0,js)} - function to_number_option$0(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - {var _fu_=js[1]; - if(3654863 === _fu_){var i=js[2];return [0,i]} - if(365180284 === _fu_){var f=js[2];return [0,f]}} - return typerr$0(cst_Expected_number_or_null_got$0,js)} - function to_float$0(js) - {if(typeof js !== "number")if(365180284 === js[1]){var f=js[2];return f} - return typerr$0(cst_Expected_float_got$0,js)} - function to_float_option$0(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - if(365180284 === js[1]){var f=js[2];return [0,f]} - return typerr$0(cst_Expected_float_or_null_got$0,js)} - function to_int$0(js) - {if(typeof js !== "number")if(3654863 === js[1]){var i=js[2];return i} - return typerr$0(cst_Expected_int_got$0,js)} - function to_int_option$0(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - if(3654863 === js[1]){var i=js[2];return [0,i]} - return typerr$0(cst_Expected_int_or_null_got$0,js)} - function to_list$0(js) - {if(typeof js !== "number")if(848054398 === js[1]){var l=js[2];return l} - return typerr$0(cst_Expected_array_got$0,js)} - function to_string$4(js) - {if(typeof js !== "number")if(-976970511 === js[1]){var s=js[2];return s} - return typerr$0(cst_Expected_string_got$0,js)} - function to_string_option$0(js) - {if(typeof js === "number") - {if(870828711 === js)return 0} - else - if(-976970511 === js[1]){var s=js[2];return [0,s]} - return typerr$0(cst_Expected_string_or_null_got$0,js)} - function convert_each$0(f,js) - {if(typeof js !== "number") - if(848054398 === js[1]) - {var l=js[2];return caml_call2(Stdlib_list[17],f,l)} - return typerr$0(cst_Can_t_convert_each_element_of_non_array_type$0,js)} - function filter_map$0(f,l$0) - {var acc=0,l=l$0; - for(;;) - {if(l) - {var tl=l[2],x=l[1],match=caml_call1(f,x); - if(match){var y=match[1],acc$0=[0,y,acc],acc=acc$0,l=tl;continue} - var l=tl; - continue} - return caml_call1(Stdlib_list[9],acc)}} - function flatten$0(l$0) - {var acc=0,l=l$0; - for(;;) - {if(l) - {var tl=l[2],x=l[1]; - if(typeof x !== "number") - if(848054398 === x[1]) - {var - l2=x[2], - acc$0=caml_call2(Stdlib_list[12],l2,acc), - acc=acc$0, - l=tl; - continue} - var l=tl; - continue} - return caml_call1(Stdlib_list[9],acc)}} - function filter_index$0(i,l) - {return filter_map$0 - (function(param) - {if(typeof param !== "number") - if(848054398 === param[1]) - {var l=param[2]; - try - {var _fs_=[0,caml_call2(Stdlib_list[7],l,i)];return _fs_} - catch(_ft_){return 0}} - return 0}, - l)} - function filter_list$0(l) - {return filter_map$0 - (function(param) - {if(typeof param !== "number") - if(848054398 === param[1]){var l=param[2];return [0,l]} - return 0}, - l)} - function filter_member$0(k,l) - {return filter_map$0 - (function(param) - {if(typeof param !== "number") - if(963043957 === param[1]) - {var l=param[2]; - try - {var _fq_=[0,caml_call2(Stdlib_list[39],k,l)];return _fq_} - catch(_fr_){return 0}} - return 0}, - l)} - function filter_assoc$0(l) - {return filter_map$0 - (function(param) - {if(typeof param !== "number") - if(963043957 === param[1]){var l=param[2];return [0,l]} - return 0}, - l)} - function filter_bool$0(l) - {return filter_map$0 - (function(param) - {if(typeof param !== "number") - if(737456202 === param[1]){var x=param[2];return [0,x]} - return 0}, - l)} - function filter_int$0(l) - {return filter_map$0 - (function(param) - {if(typeof param !== "number") - if(3654863 === param[1]){var x=param[2];return [0,x]} - return 0}, - l)} - function filter_float$0(l) - {return filter_map$0 - (function(param) - {if(typeof param !== "number") - if(365180284 === param[1]){var x=param[2];return [0,x]} - return 0}, - l)} - function filter_number$0(l) - {return filter_map$0 - (function(param) - {if(typeof param !== "number") - {var _fp_=param[1]; - if(3654863 === _fp_){var x=param[2];return [0,x]} - if(365180284 === _fp_){var x$0=param[2];return [0,x$0]}} - return 0}, - l)} - function filter_string$0(l) - {return filter_map$0 - (function(param) - {if(typeof param !== "number") - if(-976970511 === param[1]){var x=param[2];return [0,x]} - return 0}, - l)} - function keys$0(o) - {function _fn_(param){var key=param[1];return key} - var _fo_=caml_call1(Stdlib_list[17],_fn_); - return symbol$0(to_assoc$0(o),_fo_)} - function values$0(o) - {function _fl_(param){var value=param[2];return value} - var _fm_=caml_call1(Stdlib_list[17],_fl_); - return symbol$0(to_assoc$0(o),_fm_)} - function combine$0(first,match) - {if(typeof first !== "number") - if(963043957 === first[1]) - if(typeof match !== "number") - if(963043957 === match[1]) - {var b=match[2],a=first[2]; - return [0,963043957,caml_call2(Stdlib[37],a,b)]} - throw [0,Stdlib[6],cst_Expected_two_objects_check_inputs$0]} - function hex$4(n) - {var _fk_=10 <= n?n + 87 | 0:n + 48 | 0; - return caml_call1(Stdlib_char[1],_fk_)} - function write_special$2(src,start,stop,ob,str) - {caml_call4(Bi_outbuf[14],ob,src,start[1],stop - start[1] | 0); - caml_call2(Bi_outbuf[13],ob,str); - start[1] = stop + 1 | 0; - return 0} - function finish_string$4(src,start,ob) - {try - {var - _fj_= - caml_call4 - (Bi_outbuf[14], - ob, - src, - start[1], - caml_ml_string_length(src) - start[1] | 0); - return _fj_} - catch(exc) - {exc = caml_wrap_exception(exc); - caml_call4 - (Stdlib_printf[3], - _cR_, - src, - start[1], - caml_ml_string_length(src) - start[1] | 0); - throw exc}} - function write_string$2(ob,s) - {caml_call2(Bi_outbuf[15],ob,34); - var start=[0,0],_fh_=caml_ml_string_length(s) - 1 | 0,_fg_=0; - if(! (_fh_ < 0)) - {var i$0=_fg_; - for(;;) - {var c=caml_string_get(s,i$0); - if(92 === c) - write_special$2(s,start,i$0,ob,cst$31); - else - {if(35 <= c) - var switch$0=127 === c?1:0; - else - if(8 <= c) - {var switcher=c - 8 | 0; - switch(switcher) - {case 0: - write_special$2(s,start,i$0,ob,cst_b$2); - var switch$1=1; - break; - case 1: - write_special$2(s,start,i$0,ob,cst_t$2); - var switch$1=1; - break; - case 2: - write_special$2(s,start,i$0,ob,cst_n$2); - var switch$1=1; - break; - case 4: - write_special$2(s,start,i$0,ob,cst_f$2); - var switch$1=1; - break; - case 5: - write_special$2(s,start,i$0,ob,cst_r$2); - var switch$1=1; - break; - case 26: - write_special$2(s,start,i$0,ob,cst$32);var switch$1=1;break; - case 24: - case 25:var switch$0=0,switch$1=0;break; - default:var switch$0=1,switch$1=0} - if(switch$1)var switch$0=2} - else - var switch$0=1; - switch(switch$0) - {case 0:break; - case 1: - caml_call4(Bi_outbuf[14],ob,s,start[1],i$0 - start[1] | 0); - var i=caml_call2(Bi_outbuf[10],ob,6),dst=ob[1]; - caml_call5(Stdlib_bytes[12],cst_u00$2,0,dst,i,4); - caml_bytes_set(dst,i + 4 | 0,hex$4(c >>> 4 | 0)); - caml_bytes_set(dst,i + 5 | 0,hex$4(c & 15)); - start[1] = i$0 + 1 | 0; - break - }} - var _fi_=i$0 + 1 | 0; - if(_fh_ !== i$0){var i$0=_fi_;continue} - break}} - finish_string$4(s,start,ob); - return caml_call2(Bi_outbuf[15],ob,34)} - function write_null$2(ob,param) - {return caml_call2(Bi_outbuf[13],ob,cst_null$5)} - function write_bool$2(ob,x) - {var _ff_=x?cst_true$3:cst_false$3; - return caml_call2(Bi_outbuf[13],ob,_ff_)} - var - _cS_=caml_ml_string_length(caml_call1(Stdlib[33],Stdlib[20])), - _cT_=caml_ml_string_length(caml_call1(Stdlib[33],Stdlib[19])); - caml_call2(Stdlib[17],_cT_,_cS_); - var - write_intlit$1=Bi_outbuf[13], - write_floatlit$0=Bi_outbuf[13], - write_stringlit$0=Bi_outbuf[13]; - function iter2$2(f_elt,f_sep,x,param$0) - {if(param$0) - {var l$0=param$0[2],y$0=param$0[1]; - caml_call2(f_elt,x,y$0); - var param=l$0; - for(;;) - {if(param) - {var l=param[2],y=param[1]; - caml_call1(f_sep,x); - caml_call2(f_elt,x,y); - var param=l; - continue} - return 0}} - return 0} - function f_sep$2(ob){return caml_call2(Bi_outbuf[15],ob,44)} - function write_variant$1(ob,s,o) - {caml_call2(Bi_outbuf[15],ob,60); - write_string$2(ob,s); - if(o){var x=o[1];caml_call2(Bi_outbuf[15],ob,58);write_t$2(ob,x)} - return caml_call2(Bi_outbuf[15],ob,62)} - function write_tuple$1(ob,l) - {caml_call2(Bi_outbuf[15],ob,40); - iter2$2(write_t$2,f_sep$2,ob,l); - return caml_call2(Bi_outbuf[15],ob,41)} - function write_list$2(ob,l) - {caml_call2(Bi_outbuf[15],ob,91); - iter2$2(write_t$2,f_sep$2,ob,l); - return caml_call2(Bi_outbuf[15],ob,93)} - function write_assoc$2(ob,l) - {function f_elt(ob,param) - {var x=param[2],s=param[1]; - write_string$2(ob,s); - caml_call2(Bi_outbuf[15],ob,58); - return write_t$2(ob,x)} - caml_call2(Bi_outbuf[15],ob,123); - iter2$2(f_elt,f_sep$2,ob,l); - return caml_call2(Bi_outbuf[15],ob,125)} - function write_t$2(ob,x) - {if(typeof x === "number")return write_null$2(ob,0); - var _fe_=x[1]; - if(737456202 <= _fe_) - {if(928231259 <= _fe_) - {if(963043957 <= _fe_){var l=x[2];return write_assoc$2(ob,l)} - var s=x[2]; - return caml_call2(Bi_outbuf[13],ob,s)} - if(848054398 <= _fe_){var l$0=x[2];return write_list$2(ob,l$0)} - var b=x[2]; - return write_bool$2(ob,b)} - if(708012133 <= _fe_) - {if(726928360 <= _fe_){var l$1=x[2];return write_tuple$1(ob,l$1)} - var match=x[2],o=match[2],s$0=match[1]; - return write_variant$1(ob,s$0,o)} - if(-375152890 <= _fe_) - {var s$1=x[2];return caml_call2(Bi_outbuf[13],ob,s$1)} - var s$2=x[2]; - return caml_call2(Bi_outbuf[13],ob,s$2)} - function write_std_variant$1(ob,s,o) - {if(o) - {var x=o[1]; - caml_call2(Bi_outbuf[15],ob,91); - write_string$2(ob,s); - caml_call2(Bi_outbuf[15],ob,44); - write_std_json$2(ob,x); - return caml_call2(Bi_outbuf[15],ob,93)} - return write_string$2(ob,s)} - function write_std_tuple$1(ob,l) - {caml_call2(Bi_outbuf[15],ob,91); - iter2$2(write_std_json$2,f_sep$2,ob,l); - return caml_call2(Bi_outbuf[15],ob,93)} - function write_std_json$2(ob,x) - {if(typeof x === "number")return write_null$2(ob,0); - var _fd_=x[1]; - if(737456202 <= _fd_) - {if(928231259 <= _fd_) - {if(963043957 <= _fd_) - {var - l=x[2], - f_elt= - function(ob,param) - {var x=param[2],s=param[1]; - write_string$2(ob,s); - caml_call2(Bi_outbuf[15],ob,58); - return write_std_json$2(ob,x)}; - caml_call2(Bi_outbuf[15],ob,123); - iter2$2(f_elt,f_sep$2,ob,l); - return caml_call2(Bi_outbuf[15],ob,125)} - var s=x[2]; - return caml_call2(Bi_outbuf[13],ob,s)} - if(848054398 <= _fd_) - {var l$0=x[2]; - caml_call2(Bi_outbuf[15],ob,91); - iter2$2(write_std_json$2,f_sep$2,ob,l$0); - return caml_call2(Bi_outbuf[15],ob,93)} - var b=x[2]; - return write_bool$2(ob,b)} - if(708012133 <= _fd_) - {if(726928360 <= _fd_){var l$1=x[2];return write_std_tuple$1(ob,l$1)} - var match=x[2],o=match[2],s$0=match[1]; - return write_std_variant$1(ob,s$0,o)} - if(-375152890 <= _fd_) - {var s$1=x[2];return caml_call2(Bi_outbuf[13],ob,s$1)} - var s$2=x[2]; - return caml_call2(Bi_outbuf[13],ob,s$2)} - function to_outbuf$2(opt,ob,x) - {if(opt)var sth=opt[1],std=sth;else var std=0; - return std - ?is_object_or_array(x) - ?write_std_json$2(ob,x) - :json_error(cst_Root_is_not_an_object_or_array$2) - :write_t$2(ob,x)} - function to_string$5(buf,opt,std,x) - {if(opt)var sth=opt[1],len=sth;else var len=256; - if(buf) - {var ob=buf[1];caml_call1(Bi_outbuf[19],ob);var ob$0=ob} - else - var ob$0=caml_call3(Bi_outbuf[3],0,0,len); - to_outbuf$2(std,ob$0,x); - var s=caml_call1(Bi_outbuf[4],ob$0); - caml_call1(Bi_outbuf[19],ob$0); - return s} - function to_channel$3(buf,len,std,oc,x) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[5],len,0,oc); - to_outbuf$2(std,ob$0,x); - return caml_call1(Bi_outbuf[6],ob$0)} - function to_output$2(buf,len,std,out,x) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[7],len,0,out); - to_outbuf$2(std,ob$0,x); - return caml_call1(Bi_outbuf[8],ob$0)} - function to_file$2(len,std,file,x) - {var oc=caml_call1(Stdlib[60],file); - try - {to_channel$3(0,len,std,oc,x); - var _fc_=caml_call1(Stdlib[76],oc); - return _fc_} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[77],oc);throw e}} - function stream_to_outbuf$2(std,ob,st) - {function _fa_(_fb_){return to_outbuf$2(std,ob,_fb_)} - return caml_call2(Stdlib_stream[8],_fa_,st)} - function stream_to_string$2(buf,opt,std,st) - {if(opt)var sth=opt[1],len=sth;else var len=256; - if(buf) - {var ob=buf[1];caml_call1(Bi_outbuf[19],ob);var ob$0=ob} - else - var ob$0=caml_call3(Bi_outbuf[3],0,0,len); - stream_to_outbuf$2(std,ob$0,st); - var s=caml_call1(Bi_outbuf[4],ob$0); - caml_call1(Bi_outbuf[19],ob$0); - return s} - function stream_to_channel$2(buf,len,std,oc,st) - {if(buf) - var ob=buf[1],ob$0=ob; - else - var ob$0=caml_call3(Bi_outbuf[5],len,0,oc); - stream_to_outbuf$2(std,ob$0,st); - return caml_call1(Bi_outbuf[6],ob$0)} - function stream_to_file$2(len,std,file,st) - {var oc=caml_call1(Stdlib[60],file); - try - {stream_to_channel$2(0,len,std,oc,st); - var _e$_=caml_call1(Stdlib[76],oc); - return _e$_} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[77],oc);throw e}} - function sort$2(x) - {if(typeof x !== "number") - {var _e2_=x[1]; - if(726928361 <= _e2_) - {if(848054398 === _e2_) - {var l=x[2],_e3_=caml_call2(Stdlib_list[19],sort$2,l); - return [0,848054398,caml_call1(Stdlib_list[9],_e3_)]} - if(963043957 === _e2_) - {var - l$0=x[2], - _e4_= - function(param) - {var v=param[2],k=param[1];return [0,k,sort$2(v)]}, - _e5_=caml_call2(Stdlib_list[19],_e4_,l$0), - l$1=caml_call1(Stdlib_list[9],_e5_), - _e6_= - function(param,_e__) - {var b=_e__[1],a=param[1]; - return caml_call2(Stdlib_string[33],a,b)}; - return [0,963043957,caml_call2(Stdlib_list[50],_e6_,l$1)]}} - else - if(708012133 === _e2_) - {var _e7_=x[2],_e8_=_e7_[2]; - if(_e8_) - {var v=_e8_[1],k=_e7_[1],v$0=sort$2(v); - return v === v$0?x:[0,708012133,[0,k,[0,v$0]]]}} - else - if(726928360 <= _e2_) - {var l$2=x[2],_e9_=caml_call2(Stdlib_list[19],sort$2,l$2); - return [0,726928360,caml_call1(Stdlib_list[9],_e9_)]}} - return x} - function pp$2(fmt,param) - {if(typeof param === "number") - return caml_call2(Stdlib_format[13],fmt,cst_Null$2); - var _eV_=param[1]; - if(737456202 <= _eV_) - {if(928231259 <= _eV_) - {if(963043957 <= _eV_) - {var xs=param[2]; - caml_call2(Stdlib_format[123],fmt,_cU_); - caml_call2(Stdlib_format[123],fmt,_cV_); - var - _eW_=0, - _eX_= - function(sep,param) - {var value=param[2],key=param[1]; - if(sep)caml_call2(Stdlib_format[123],fmt,_cW_); - caml_call2(Stdlib_format[123],fmt,_cX_); - caml_call3(Stdlib_format[123],fmt,_cY_,key); - caml_call2(Stdlib_format[123],fmt,_cZ_); - pp$2(fmt,value); - caml_call2(Stdlib_format[123],fmt,_c0_); - return 1}; - caml_call3(Stdlib_list[21],_eX_,_eW_,xs); - caml_call2(Stdlib_format[123],fmt,_c1_); - return caml_call2(Stdlib_format[123],fmt,_c2_)} - var x=param[2]; - caml_call2(Stdlib_format[123],fmt,_c3_); - caml_call3(Stdlib_format[123],fmt,_c4_,x); - return caml_call2(Stdlib_format[123],fmt,_c5_)} - if(848054398 <= _eV_) - {var xs$0=param[2]; - caml_call2(Stdlib_format[123],fmt,_c6_); - caml_call2(Stdlib_format[123],fmt,_c7_); - var - _eY_=0, - _eZ_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_c8_); - pp$2(fmt,x); - return 1}; - caml_call3(Stdlib_list[21],_eZ_,_eY_,xs$0); - caml_call2(Stdlib_format[123],fmt,_c9_); - return caml_call2(Stdlib_format[123],fmt,_c__)} - var x$0=param[2]; - caml_call2(Stdlib_format[123],fmt,_c$_); - caml_call3(Stdlib_format[123],fmt,_da_,x$0); - return caml_call2(Stdlib_format[123],fmt,_db_)} - if(708012133 <= _eV_) - {if(726928360 <= _eV_) - {var tup=param[2]; - caml_call2(Stdlib_format[123],fmt,_dc_); - caml_call2(Stdlib_format[123],fmt,_dd_); - var - _e0_=0, - _e1_= - function(sep,e) - {if(sep)caml_call2(Stdlib_format[123],fmt,_de_); - pp$2(fmt,e); - return 1}; - caml_call3(Stdlib_list[21],_e1_,_e0_,tup); - caml_call2(Stdlib_format[123],fmt,_df_); - return caml_call2(Stdlib_format[123],fmt,_dg_)} - var match=param[2],value=match[2],name=match[1]; - caml_call2(Stdlib_format[123],fmt,_dh_); - caml_call2(Stdlib_format[123],fmt,_di_); - caml_call3(Stdlib_format[123],fmt,_dj_,name); - caml_call2(Stdlib_format[123],fmt,_dk_); - if(value) - {var x$1=value[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$1); - pp$2(fmt,x$1); - caml_call2(Stdlib_format[13],fmt,cst$33)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$1); - caml_call2(Stdlib_format[123],fmt,_dl_); - return caml_call2(Stdlib_format[123],fmt,_dm_)} - if(-375152890 <= _eV_) - {var x$2=param[2]; - caml_call2(Stdlib_format[123],fmt,_dn_); - caml_call3(Stdlib_format[123],fmt,_do_,x$2); - return caml_call2(Stdlib_format[123],fmt,_dp_)} - var x$3=param[2]; - caml_call2(Stdlib_format[123],fmt,_dq_); - caml_call3(Stdlib_format[123],fmt,_dr_,x$3); - return caml_call2(Stdlib_format[123],fmt,_ds_)} - function show$2(x){return caml_call3(Stdlib_format[127],_dt_,pp$2,x)} - function equal$2(a,b) - {var a$0=a,b$0=b; - for(;;) - {if(typeof a$0 === "number") - {if(870828711 === a$0)if(870828711 === b$0)return 1} - else - {var _eO_=a$0[1]; - if(726928361 <= _eO_) - if(848054399 <= _eO_) - if(928231259 === _eO_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(928231259 === b$0[1]) - {var b$1=b$0[2],a$1=a$0[2];return caml_equal(a$1,b$1)} - var switch$0=0} - else - if(963043957 === _eO_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(963043957 === b$0[1]) - {var - ys=b$0[2], - xs=a$0[2], - compare_keys= - function(param,_eU_) - {var key=_eU_[1],key$0=param[1]; - return caml_call2(Stdlib_string[33],key$0,key)}, - xs$0=caml_call2(Stdlib_list[50],compare_keys,xs), - ys$0=caml_call2(Stdlib_list[50],compare_keys,ys); - try - {var - _eP_= - function(param,_eT_) - {var - value=_eT_[2], - key=_eT_[1], - value$0=param[2], - key$0=param[1], - match=caml_string_equal(key$0,key); - return 0 === match?0:equal$2(value$0,value)}, - result=caml_call3(Stdlib_list[30],_eP_,xs$0,ys$0); - return result} - catch(_eS_) - {_eS_ = caml_wrap_exception(_eS_); - if(_eS_[1] === Stdlib[6])return 0; - throw _eS_}} - var switch$0=0} - else - var switch$0=0; - else - if(737456202 === _eO_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(737456202 === b$0[1]) - {var b$2=b$0[2],a$2=a$0[2];return caml_equal(a$2,b$2)} - var switch$0=0} - else - if(848054398 <= _eO_) - if(typeof b$0 === "number") - var switch$0=0; - else - if(848054398 === b$0[1]) - var xs$1=a$0[2],ys$1=b$0[2],switch$0=1; - else - var switch$0=0; - else - var switch$0=0; - else - if(-375152889 <= _eO_) - if(708012133 === _eO_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(708012133 === b$0[1]) - {var - _eQ_=b$0[2], - value=_eQ_[2], - name=_eQ_[1], - match=a$0[2], - value$0=match[2], - name$0=match[1], - match$0=caml_equal(name$0,name); - if(0 === match$0)return 0; - if(value$0) - {if(value) - {var b$3=value[1],a$3=value$0[1],a$0=a$3,b$0=b$3;continue}} - else - if(! value)return 1; - return 0} - var switch$0=0} - else - if(726928360 <= _eO_) - if(typeof b$0 === "number") - var switch$0=0; - else - if(726928360 === b$0[1]) - var xs$1=a$0[2],ys$1=b$0[2],switch$0=1; - else - var switch$0=0; - else - var switch$0=0; - else - if(-752863768 === _eO_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(-752863768 === b$0[1]) - {var b$4=b$0[2],a$4=a$0[2];return caml_equal(a$4,b$4)} - var switch$0=0} - else - if(-375152890 <= _eO_) - if(typeof b$0 === "number") - var switch$0=0; - else - {if(-375152890 === b$0[1]) - {var b$5=b$0[2],a$5=a$0[2];return caml_equal(a$5,b$5)} - var switch$0=0} - else - var switch$0=0; - if(switch$0) - try - {var result$0=caml_call3(Stdlib_list[30],equal$2,xs$1,ys$1); - return result$0} - catch(_eR_) - {_eR_ = caml_wrap_exception(_eR_); - if(_eR_[1] === Stdlib[6])return 0; - throw _eR_}} - return 0}} - function pretty_format$2(std,x){return format(std,x)} - function pretty_print$2(std,out,x) - {var _eN_=pretty_format$2(std,x); - return caml_call2(Easy_format[4][2],out,_eN_)} - function pretty_to_string$2(std,x){return to_string$0(std,x)} - function pretty_to_channel$2(std,oc,x){return to_channel$0(std,oc,x)} - var - from_channel$3=Stdlib_lexing[2], - from_string$3=Stdlib_lexing[3], - lexeme$1=Stdlib_lexing[6], - sub_lexeme$1=Stdlib_lexing[14], - sub_lexeme_char$1=Stdlib_lexing[16]; - function hex$5(c) - {if(65 <= c) - {if(97 <= c) - {if(! (103 <= c))return (c - 97 | 0) + 10 | 0} - else - if(! (71 <= c))return (c - 65 | 0) + 10 | 0} - else - {var switcher=c - 48 | 0;if(! (9 < switcher >>> 0))return c - 48 | 0} - throw [0,Assert_failure,_du_]} - function custom_error$1(descr,v,lexbuf) - {var - offs=lexbuf[4] - 1 | 0, - bol=v[3], - pos1=((offs + lexbuf[5] | 0) - bol | 0) - 1 | 0, - pos2=caml_call2(Stdlib[17],pos1,(offs + lexbuf[6] | 0) - bol | 0), - _eM_=v[4]; - if(_eM_) - var s=_eM_[1],file_line=caml_call2(Stdlib_printf[4],_dv_,s); - else - var file_line=cst_Line$1; - var - bytes= - pos1 === pos2 - ?caml_call2(Stdlib_printf[4],_dw_,pos1 + 1 | 0) - :caml_call3(Stdlib_printf[4],_dy_,pos1 + 1 | 0,pos2 + 1 | 0), - msg=caml_call5(Stdlib_printf[4],_dx_,file_line,v[2],bytes,descr); - return json_error(msg)} - function lexer_error$1(descr,v,lexbuf) - {var _eL_=caml_call1(lexeme$1,lexbuf); - return custom_error$1 - (caml_call3(Stdlib_printf[4],_dz_,descr,_eL_),v,lexbuf)} - var read_junk$1=[0,function(param){throw [0,Assert_failure,_dA_]}]; - function long_error$1(descr,v,lexbuf) - {var - junk=caml_call1(lexeme$1,lexbuf), - extra_junk=caml_call1(read_junk$1[1],lexbuf); - return custom_error$1 - (caml_call4(Stdlib_printf[4],_dB_,descr,junk,extra_junk), - v, - lexbuf)} - var - _dC_=0 === (Stdlib[20] % 10 | 0)?0:1, - min10$1=(Stdlib[20] / 10 | 0) - _dC_ | 0, - _dD_=0 === (Stdlib[19] % 10 | 0)?0:1, - max10$1=(Stdlib[19] / 10 | 0) + _dD_ | 0, - Int_overflow$1=[248,cst_Yojson_Raw_Int_overflow,caml_fresh_oo_id(0)]; - function extract_positive_int$1(lexbuf) - {var - start=lexbuf[5], - stop=lexbuf[6], - s=lexbuf[2], - n=[0,0], - _eI_=stop - 1 | 0; - if(! (_eI_ < start)) - {var i=start; - for(;;) - {if(max10$1 <= n[1])throw Int_overflow$1; - var _eJ_=caml_bytes_get(s,i) - 48 | 0; - n[1] = (10 * n[1] | 0) + _eJ_ | 0; - var _eK_=i + 1 | 0; - if(_eI_ !== i){var i=_eK_;continue} - break}} - if(0 <= n[1])return n[1]; - throw Int_overflow$1} - function make_positive_int(v,lexbuf) - {return [0,-752863768,caml_call1(lexeme$1,lexbuf)]} - function extract_negative_int$1(lexbuf) - {var - start=lexbuf[5] + 1 | 0, - stop=lexbuf[6], - s=lexbuf[2], - n=[0,0], - _eF_=stop - 1 | 0; - if(! (_eF_ < start)) - {var i=start; - for(;;) - {if(n[1] <= min10$1)throw Int_overflow$1; - var _eG_=caml_bytes_get(s,i) - 48 | 0; - n[1] = (10 * n[1] | 0) - _eG_ | 0; - var _eH_=i + 1 | 0; - if(_eF_ !== i){var i=_eH_;continue} - break}} - if(0 < n[1])throw Int_overflow$1; - return n[1]} - function make_negative_int(v,lexbuf) - {return [0,-752863768,caml_call1(lexeme$1,lexbuf)]} - function newline$1(v,lexbuf) - {v[2] = v[2] + 1 | 0;v[3] = lexbuf[4] + lexbuf[6] | 0;return 0} - function add_lexeme$1(buf,lexbuf) - {var len=lexbuf[6] - lexbuf[5] | 0; - return caml_call4(Bi_outbuf[12],buf,lexbuf[2],lexbuf[5],len)} - function read_json$4(counter,v,lexbuf) - {var _eE_=0; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return ocaml_lex_read_json_rec$1(counter$0,v,lexbuf,_eE_)} - return caml_trampoline_return - (ocaml_lex_read_json_rec$1,[0,v,lexbuf,_eE_])} - function ocaml_lex_read_json_rec$1(counter,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(19 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return _dE_; - case 1:return _dF_; - case 2:return 870828711; - case 3:return _dG_; - case 4:return _dH_; - case 5:return _dI_; - case 6:return [0,-375152890,finish_stringlit$1(v,lexbuf)]; - case 7:return make_positive_int(v,lexbuf); - case 8:return make_negative_int(v,lexbuf); - case 9:return [0,928231259,caml_call1(lexeme$1,lexbuf)]; - case 10: - var acc=[0,0]; - try - {read_space$1(v,lexbuf); - read_object_end$1(lexbuf); - var field_name=read_ident$1(v,lexbuf); - read_space$1(v,lexbuf); - read_colon$1(v,lexbuf); - read_space$1(v,lexbuf); - var _ev_=acc[1]; - acc[1] = [0,[0,field_name,read_json$1(v,lexbuf)],_ev_]; - for(;;) - {read_space$1(v,lexbuf); - read_object_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - var field_name$0=read_ident$1(v,lexbuf); - read_space$1(v,lexbuf); - read_colon$1(v,lexbuf); - read_space$1(v,lexbuf); - var _ew_=acc[1]; - acc[1] = [0,[0,field_name$0,read_json$1(v,lexbuf)],_ew_]; - continue}} - catch(_eD_) - {_eD_ = caml_wrap_exception(_eD_); - if(_eD_ === End_of_object) - return [0,963043957,caml_call1(Stdlib_list[9],acc[1])]; - throw _eD_} - case 11: - var acc$0=[0,0]; - try - {read_space$1(v,lexbuf); - read_array_end$1(lexbuf); - var _ex_=acc$0[1]; - acc$0[1] = [0,read_json$1(v,lexbuf),_ex_]; - for(;;) - {read_space$1(v,lexbuf); - read_array_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - var _ey_=acc$0[1]; - acc$0[1] = [0,read_json$1(v,lexbuf),_ey_]; - continue}} - catch(_eC_) - {_eC_ = caml_wrap_exception(_eC_); - if(_eC_ === End_of_array) - return [0,848054398,caml_call1(Stdlib_list[9],acc$0[1])]; - throw _eC_} - case 12: - var acc$1=[0,0]; - try - {read_space$1(v,lexbuf); - read_tuple_end$1(lexbuf); - var _ez_=acc$1[1]; - acc$1[1] = [0,read_json$1(v,lexbuf),_ez_]; - for(;;) - {read_space$1(v,lexbuf); - read_tuple_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - var _eA_=acc$1[1]; - acc$1[1] = [0,read_json$1(v,lexbuf),_eA_]; - continue}} - catch(_eB_) - {_eB_ = caml_wrap_exception(_eB_); - if(_eB_ === End_of_tuple) - return [0,726928360,caml_call1(Stdlib_list[9],acc$1[1])]; - throw _eB_} - case 13: - read_space$1(v,lexbuf); - var cons=read_ident$1(v,lexbuf); - read_space$1(v,lexbuf); - return [0,708012133,[0,cons,finish_variant$1(v,lexbuf)]]; - case 14: - if(counter < 50) - {var counter$0=counter + 1 | 0; - return read_json$4(counter$0,v,lexbuf)} - return caml_trampoline_return(read_json$4,[0,v,lexbuf]); - case 15: - finish_comment$1(v,lexbuf); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return read_json$4(counter$1,v,lexbuf)} - return caml_trampoline_return(read_json$4,[0,v,lexbuf]); - case 16: - newline$1(v,lexbuf); - if(counter < 50) - {var counter$2=counter + 1 | 0; - return read_json$4(counter$2,v,lexbuf)} - return caml_trampoline_return(read_json$4,[0,v,lexbuf]); - case 17: - if(counter < 50) - {var counter$3=counter + 1 | 0; - return read_json$4(counter$3,v,lexbuf)} - return caml_trampoline_return(read_json$4,[0,v,lexbuf]); - case 18: - return custom_error$1(cst_Unexpected_end_of_input$92,v,lexbuf); - default:return long_error$1(cst_Invalid_token$12,v,lexbuf)}}} - function read_json$1(v,lexbuf) - {return caml_trampoline(read_json$4(0,v,lexbuf))} - function finish_string$5(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=58; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call1(Bi_outbuf[4],v[1]); - case 1:finish_escaped_char$1(v,lexbuf);continue a; - case 2:add_lexeme$1(v[1],lexbuf);continue a; - default: - return custom_error$1(cst_Unexpected_end_of_input$93,v,lexbuf)}}}} - function map_string$1(v,f,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=63; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var b=v[1],_eu_=b[3]; - return caml_call3(f,caml_call1(Stdlib_bytes[6],b[1]),0,_eu_); - case 1:finish_escaped_char$1(v,lexbuf);continue a; - case 2:add_lexeme$1(v[1],lexbuf);continue a; - default: - return custom_error$1(cst_Unexpected_end_of_input$94,v,lexbuf)}}}} - function finish_escaped_char$1(v,lexbuf) - {var ocaml_lex_state=68; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(8 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var c=caml_call2(sub_lexeme_char$1,lexbuf,lexbuf[5]); - return caml_call2(Bi_outbuf[15],v[1],c); - case 1:return caml_call2(Bi_outbuf[15],v[1],8); - case 2:return caml_call2(Bi_outbuf[15],v[1],12); - case 3:return caml_call2(Bi_outbuf[15],v[1],10); - case 4:return caml_call2(Bi_outbuf[15],v[1],13); - case 5:return caml_call2(Bi_outbuf[15],v[1],9); - case 6: - var - a=caml_call2(sub_lexeme_char$1,lexbuf,lexbuf[5] + 1 | 0), - b=caml_call2(sub_lexeme_char$1,lexbuf,lexbuf[5] + 2 | 0), - c$0=caml_call2(sub_lexeme_char$1,lexbuf,lexbuf[5] + 3 | 0), - d=caml_call2(sub_lexeme_char$1,lexbuf,lexbuf[5] + 4 | 0), - _eo_=hex$5(d), - _ep_=hex$5(c$0) << 4, - _eq_=hex$5(b) << 8, - x=hex$5(a) << 12 | _eq_ | _ep_ | _eo_; - if(55296 <= x) - if(! (56319 < x)) - {var ocaml_lex_state$1=82; - for(;;) - {var - ocaml_lex_state$2= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$1,lexbuf); - if(2 < ocaml_lex_state$2 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$1=ocaml_lex_state$2; - continue} - switch(ocaml_lex_state$2) - {case 0: - var - a$0=caml_call2(sub_lexeme_char$1,lexbuf,lexbuf[5] + 2 | 0), - b$0=caml_call2(sub_lexeme_char$1,lexbuf,lexbuf[5] + 3 | 0), - c$1=caml_call2(sub_lexeme_char$1,lexbuf,lexbuf[5] + 4 | 0), - d$0=caml_call2(sub_lexeme_char$1,lexbuf,lexbuf[5] + 5 | 0), - _er_=hex$5(d$0), - _es_=hex$5(c$1) << 4, - _et_=hex$5(b$0) << 8, - y=hex$5(a$0) << 12 | _et_ | _es_ | _er_; - if(56320 <= y) - if(! (57343 < y))return utf8_of_surrogate_pair(v[1],x,y); - return long_error$1 - (cst_Invalid_low_surrogate_for_code_point_beyond_U_FFFF$1, - v, - lexbuf); - case 1: - return long_error$1 - (cst_Missing_escape_sequence_representing_low_surrogate_for_code_point_beyond_U_FFFF$1, - v, - lexbuf); - default: - return custom_error$1 - (cst_Unexpected_end_of_input$96,v,lexbuf)}}} - return utf8_of_code(v[1],x); - case 7:return long_error$1(cst_Invalid_escape_sequence$1,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$95,v,lexbuf)}}} - function finish_stringlit$1(v,lexbuf) - {var ocaml_lex_state=91; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var len=lexbuf[6] - lexbuf[5] | 0,s=caml_create_bytes(len + 1 | 0); - caml_bytes_set(s,0,34); - caml_call5(Stdlib_bytes[11],lexbuf[2],lexbuf[5],s,1,len); - return caml_call1(Stdlib_bytes[6],s); - case 1:return long_error$1(cst_Invalid_string_literal$5,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$97,v,lexbuf)}}} - function finish_variant$1(v,lexbuf) - {var ocaml_lex_state=102; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - var x=read_json$1(v,lexbuf); - read_space$1(v,lexbuf); - read_gt$1(v,lexbuf); - return [0,x]; - case 1:return 0; - case 2:return long_error$1(cst_Expected_or_but_found$29,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$98,v,lexbuf)}}} - function read_lt$1(v,lexbuf) - {var ocaml_lex_state=107; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_but_found$30,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$99,v,lexbuf)}}} - function read_gt$1(v,lexbuf) - {var ocaml_lex_state=111; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_but_found$31,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$100,v,lexbuf)}}} - function read_comma$1(v,lexbuf) - {var ocaml_lex_state=115; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_but_found$32,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$101,v,lexbuf)}}} - function start_any_variant$1(v,lexbuf) - {var ocaml_lex_state=119; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return -154522342; - case 1:caml_call1(Bi_outbuf[19],v[1]);return -589953938; - case 2:return -124528282; - case 3:return long_error$1(cst_Expected_or_but_found$30,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$102,v,lexbuf)}}} - function finish_comment$1(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=125; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Unterminated_comment$3,v,lexbuf); - case 2:newline$1(v,lexbuf);continue a; - default:continue a}}}} - function read_eof$1(lexbuf) - {var ocaml_lex_state=131; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)return 1; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_space$1(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=133; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:newline$1(v,lexbuf);continue a; - case 1:finish_comment$1(v,lexbuf);continue a; - case 2:newline$1(v,lexbuf);continue a; - case 3:continue a; - default:return 0}}}} - function read_null$1(v,lexbuf) - {var ocaml_lex_state=140; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_null_but_found$1,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$103,v,lexbuf)}}} - function read_null_if_possible$1(v,lexbuf) - {var ocaml_lex_state=147; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)return 1; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_bool$1(v,lexbuf) - {var ocaml_lex_state=152; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(5 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 1; - case 1:return 0; - case 2:return 1; - case 3:return 0; - case 4: - return long_error$1 - (cst_Expected_true_or_false_but_found$1,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$104,v,lexbuf)}}} - function ocaml_lex_read_int_rec$1(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(4 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - try - {var _ei_=extract_positive_int$1(lexbuf);return _ei_} - catch(_en_) - {_en_ = caml_wrap_exception(_en_); - if(_en_ === Int_overflow$1) - return lexer_error$1(cst_Int_overflow$5,v,lexbuf); - throw _en_} - case 1: - try - {var _ej_=extract_negative_int$1(lexbuf);return _ej_} - catch(_em_) - {_em_ = caml_wrap_exception(_em_); - if(_em_ === Int_overflow$1) - return lexer_error$1(cst_Int_overflow$6,v,lexbuf); - throw _em_} - case 2: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$5(v,lexbuf); - try - {var _ek_=caml_int_of_string(s);return _ek_} - catch(_el_) - {return custom_error$1 - (cst_Expected_an_integer_but_found_a_string_that_doesn_t_even_represent_an_integer$1, - v, - lexbuf)} - case 3: - return long_error$1(cst_Expected_integer_but_found$1,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$105,v,lexbuf)}}} - function read_int$1(v,lexbuf) - {return ocaml_lex_read_int_rec$1(v,lexbuf,176)} - function ocaml_lex_read_int32_rec$1(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(3 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - try - {var _ee_=caml_int_of_string(caml_call1(lexeme$1,lexbuf)); - return _ee_} - catch(_eh_){return lexer_error$1(cst_Int32_overflow$3,v,lexbuf)} - case 1: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$5(v,lexbuf); - try - {var _ef_=caml_int_of_string(s);return _ef_} - catch(_eg_) - {return custom_error$1 - (cst_Expected_an_int32_but_found_a_string_that_doesn_t_even_represent_an_integer$1, - v, - lexbuf)} - case 2:return long_error$1(cst_Expected_int32_but_found$1,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$106,v,lexbuf)}}} - function read_int32$1(v,lexbuf) - {return ocaml_lex_read_int32_rec$1(v,lexbuf,185)} - function ocaml_lex_read_int64_rec$1(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(3 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - try - {var _ea_=caml_int64_of_string(caml_call1(lexeme$1,lexbuf)); - return _ea_} - catch(_ed_){return lexer_error$1(cst_Int32_overflow$4,v,lexbuf)} - case 1: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$5(v,lexbuf); - try - {var _eb_=caml_int64_of_string(s);return _eb_} - catch(_ec_) - {return custom_error$1 - (cst_Expected_an_int64_but_found_a_string_that_doesn_t_even_represent_an_integer$1, - v, - lexbuf)} - case 2:return long_error$1(cst_Expected_int64_but_found$1,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$107,v,lexbuf)}}} - function read_int64$1(v,lexbuf) - {return ocaml_lex_read_int64_rec$1(v,lexbuf,192)} - function ocaml_lex_read_number_rec$1(v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(6 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return Stdlib[24]; - case 1:return Stdlib[22]; - case 2:return Stdlib[23]; - case 3:return caml_float_of_string(caml_call1(lexeme$1,lexbuf)); - case 4: - caml_call1(Bi_outbuf[19],v[1]); - var s=finish_string$5(v,lexbuf); - try - {var _d__=caml_float_of_string(s);return _d__} - catch(_d$_) - {return caml_string_notequal(s,cst_Infinity$21) - ?caml_string_notequal(s,cst_Infinity$22) - ?caml_string_notequal(s,cst_NaN$10) - ?custom_error$1 - (cst_Expected_a_number_but_found_a_string_that_doesn_t_even_represent_a_number$1, - v, - lexbuf) - :Stdlib[24] - :Stdlib[22] - :Stdlib[23]} - case 5: - return long_error$1(cst_Expected_number_but_found$1,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$108,v,lexbuf)}}} - function read_number$1(v,lexbuf) - {return ocaml_lex_read_number_rec$1(v,lexbuf,199)} - function read_string$1(v,lexbuf) - {var ocaml_lex_state=233; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call1(Bi_outbuf[19],v[1]);return finish_string$5(v,lexbuf); - case 1:return long_error$1(cst_Expected_but_found$33,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$109,v,lexbuf)}}} - function read_ident$1(v,lexbuf) - {var ocaml_lex_state=237; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call1(Bi_outbuf[19],v[1]);return finish_string$5(v,lexbuf); - case 1: - var s=caml_call3(sub_lexeme$1,lexbuf,lexbuf[5],lexbuf[6]);return s; - case 2: - return long_error$1 - (cst_Expected_string_or_identifier_but_found$7,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$110,v,lexbuf)}}} - function map_ident$1(v,f,lexbuf) - {var ocaml_lex_state=242; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call1(Bi_outbuf[19],v[1]);return map_string$1(v,f,lexbuf); - case 1: - var len=lexbuf[6] - lexbuf[5] | 0,_d9_=lexbuf[5]; - return caml_call3(f,caml_call1(Stdlib_bytes[6],lexbuf[2]),_d9_,len); - case 2: - return long_error$1 - (cst_Expected_string_or_identifier_but_found$8,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$111,v,lexbuf)}}} - function ocaml_lex_read_sequence_rec$1 - (read_cell,init_acc,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var acc=[0,init_acc]; - try - {read_space$1(v,lexbuf); - read_array_end$1(lexbuf); - acc[1] = caml_call3(read_cell,acc[1],v,lexbuf); - for(;;) - {read_space$1(v,lexbuf); - read_array_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - acc[1] = caml_call3(read_cell,acc[1],v,lexbuf); - continue}} - catch(_d8_) - {_d8_ = caml_wrap_exception(_d8_); - if(_d8_ === End_of_array)return acc[1]; - throw _d8_} - case 1:return long_error$1(cst_Expected_but_found$34,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$112,v,lexbuf)}}} - function read_sequence$1(read_cell,init_acc,v,lexbuf) - {return ocaml_lex_read_sequence_rec$1(read_cell,init_acc,v,lexbuf,247)} - function ocaml_lex_read_list_rev_rec$1(read_cell,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var acc=[0,0]; - try - {read_space$1(v,lexbuf); - read_array_end$1(lexbuf); - var _d5_=acc[1]; - acc[1] = [0,caml_call2(read_cell,v,lexbuf),_d5_]; - for(;;) - {read_space$1(v,lexbuf); - read_array_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - var _d6_=acc[1]; - acc[1] = [0,caml_call2(read_cell,v,lexbuf),_d6_]; - continue}} - catch(_d7_) - {_d7_ = caml_wrap_exception(_d7_); - if(_d7_ === End_of_array)return acc[1]; - throw _d7_} - case 1:return long_error$1(cst_Expected_but_found$35,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$113,v,lexbuf)}}} - function read_list_rev$1(read_cell,v,lexbuf) - {return ocaml_lex_read_list_rev_rec$1(read_cell,v,lexbuf,251)} - function read_array_end$1(lexbuf) - {var ocaml_lex_state=255; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)throw End_of_array; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_array_sep$1(v,lexbuf) - {var ocaml_lex_state=257; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:throw End_of_array; - case 2:return long_error$1(cst_Expected_or_but_found$31,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$114,v,lexbuf)}}} - function ocaml_lex_read_tuple_rec$0 - (read_cell,init_acc,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var pos=[0,0],acc=[0,init_acc]; - try - {read_space$1(v,lexbuf); - read_tuple_end$1(lexbuf); - acc[1] = caml_call4(read_cell,pos[1],acc[1],v,lexbuf); - pos[1]++; - for(;;) - {read_space$1(v,lexbuf); - read_tuple_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - acc[1] = caml_call4(read_cell,pos[1],acc[1],v,lexbuf); - pos[1]++; - continue}} - catch(_d4_) - {_d4_ = caml_wrap_exception(_d4_); - if(_d4_ === End_of_tuple)return acc[1]; - throw _d4_} - case 1:return long_error$1(cst_Expected_but_found$36,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$115,v,lexbuf)}}} - function read_tuple$1(read_cell,init_acc,v,lexbuf) - {return ocaml_lex_read_tuple_rec$0(read_cell,init_acc,v,lexbuf,262)} - function read_tuple_end$1(lexbuf) - {var ocaml_lex_state=266; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)throw End_of_tuple; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_tuple_end2$1(v,std,lexbuf) - {var ocaml_lex_state=268; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - if(std)return long_error$1(cst_Expected_or_but_found$32,v,lexbuf); - throw End_of_tuple; - case 1: - if(std)throw End_of_tuple; - return long_error$1(cst_Expected_or_but_found$33,v,lexbuf); - default:return 0}}} - function read_tuple_sep$1(v,lexbuf) - {var ocaml_lex_state=271; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:throw End_of_tuple; - case 2:return long_error$1(cst_Expected_or_but_found$34,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$116,v,lexbuf)}}} - function read_tuple_sep2$1(v,std,lexbuf) - {var ocaml_lex_state=276; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1: - if(std)return long_error$1(cst_Expected_or_but_found$35,v,lexbuf); - throw End_of_tuple; - case 2: - if(std)throw End_of_tuple; - return long_error$1(cst_Expected_or_but_found$36,v,lexbuf); - case 3:return long_error$1(cst_Expected_or_but_found$37,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$117,v,lexbuf)}}} - function ocaml_lex_read_abstract_fields_rec$1 - (read_key,read_field,init_acc,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(2 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0: - var acc=[0,init_acc]; - try - {read_space$1(v,lexbuf); - read_object_end$1(lexbuf); - var field_name=caml_call2(read_key,v,lexbuf); - read_space$1(v,lexbuf); - read_colon$1(v,lexbuf); - read_space$1(v,lexbuf); - acc[1] = caml_call4(read_field,acc[1],field_name,v,lexbuf); - for(;;) - {read_space$1(v,lexbuf); - read_object_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - var field_name$0=caml_call2(read_key,v,lexbuf); - read_space$1(v,lexbuf); - read_colon$1(v,lexbuf); - read_space$1(v,lexbuf); - acc[1] = caml_call4(read_field,acc[1],field_name$0,v,lexbuf); - continue}} - catch(_d3_) - {_d3_ = caml_wrap_exception(_d3_); - if(_d3_ === End_of_object)return acc[1]; - throw _d3_} - case 1:return long_error$1(cst_Expected_but_found$37,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$118,v,lexbuf)}}} - function read_abstract_fields$1(read_key,read_field,init_acc,v,lexbuf) - {return ocaml_lex_read_abstract_fields_rec$1 - (read_key,read_field,init_acc,v,lexbuf,282)} - function read_lcurl$1(v,lexbuf) - {var ocaml_lex_state=286; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_but_found$38,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$119,v,lexbuf)}}} - function read_object_end$1(lexbuf) - {var ocaml_lex_state=290; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)throw End_of_object; - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function read_object_sep$1(v,lexbuf) - {var ocaml_lex_state=292; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:throw End_of_object; - case 2:return long_error$1(cst_Expected_or_but_found$38,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$120,v,lexbuf)}}} - function read_colon$1(v,lexbuf) - {var ocaml_lex_state=297; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_but_found$39,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$121,v,lexbuf)}}} - function start_any_tuple$1(v,lexbuf) - {var ocaml_lex_state=301; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return 1; - case 2:return long_error$1(cst_Expected_or_but_found$39,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$122,v,lexbuf)}}} - function read_lpar$1(v,lexbuf) - {var ocaml_lex_state=306; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_but_found$40,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$123,v,lexbuf)}}} - function read_rpar$1(v,lexbuf) - {var ocaml_lex_state=310; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_but_found$41,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$124,v,lexbuf)}}} - function read_lbr$1(v,lexbuf) - {var ocaml_lex_state=314; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_but_found$42,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$125,v,lexbuf)}}} - function read_rbr$1(v,lexbuf) - {var ocaml_lex_state=318; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Expected_but_found$43,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$126,v,lexbuf)}}} - function finish_skip_variant$1(v,lexbuf) - {var ocaml_lex_state=389; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - skip_json$1(v,lexbuf); - read_space$1(v,lexbuf); - return read_gt$1(v,lexbuf); - case 1:return 0; - case 2:return long_error$1(cst_Expected_or_but_found$40,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$129,v,lexbuf)}}} - function finish_skip_stringlit$1(v,lexbuf) - {var ocaml_lex_state=378; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return 0; - case 1:return long_error$1(cst_Invalid_string_literal$6,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$128,v,lexbuf)}}} - function skip_json$4(counter,v,lexbuf) - {var _d2_=322; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return ocaml_lex_skip_json_rec$1(counter$0,v,lexbuf,_d2_)} - return caml_trampoline_return - (ocaml_lex_skip_json_rec$1,[0,v,lexbuf,_d2_])} - function ocaml_lex_skip_json_rec$1(counter,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(18 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return 0; - case 1:return 0; - case 2:return 0; - case 3:return 0; - case 4:return 0; - case 5:return 0; - case 6:return finish_skip_stringlit$1(v,lexbuf); - case 7:return 0; - case 8:return 0; - case 9: - try - {read_space$1(v,lexbuf); - read_object_end$1(lexbuf); - skip_ident$1(v,lexbuf); - read_space$1(v,lexbuf); - read_colon$1(v,lexbuf); - read_space$1(v,lexbuf); - skip_json$1(v,lexbuf); - for(;;) - {read_space$1(v,lexbuf); - read_object_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - skip_ident$1(v,lexbuf); - read_space$1(v,lexbuf); - read_colon$1(v,lexbuf); - read_space$1(v,lexbuf); - skip_json$1(v,lexbuf); - continue}} - catch(_d1_) - {_d1_ = caml_wrap_exception(_d1_); - if(_d1_ === End_of_object)return 0; - throw _d1_} - case 10: - try - {read_space$1(v,lexbuf); - read_array_end$1(lexbuf); - skip_json$1(v,lexbuf); - for(;;) - {read_space$1(v,lexbuf); - read_array_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - skip_json$1(v,lexbuf); - continue}} - catch(_d0_) - {_d0_ = caml_wrap_exception(_d0_); - if(_d0_ === End_of_array)return 0; - throw _d0_} - case 11: - try - {read_space$1(v,lexbuf); - read_tuple_end$1(lexbuf); - skip_json$1(v,lexbuf); - for(;;) - {read_space$1(v,lexbuf); - read_tuple_sep$1(v,lexbuf); - read_space$1(v,lexbuf); - skip_json$1(v,lexbuf); - continue}} - catch(_dZ_) - {_dZ_ = caml_wrap_exception(_dZ_); - if(_dZ_ === End_of_tuple)return 0; - throw _dZ_} - case 12: - read_space$1(v,lexbuf); - skip_ident$1(v,lexbuf); - read_space$1(v,lexbuf); - return finish_skip_variant$1(v,lexbuf); - case 13: - if(counter < 50) - {var counter$0=counter + 1 | 0; - return skip_json$4(counter$0,v,lexbuf)} - return caml_trampoline_return(skip_json$4,[0,v,lexbuf]); - case 14: - finish_comment$1(v,lexbuf); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return skip_json$4(counter$1,v,lexbuf)} - return caml_trampoline_return(skip_json$4,[0,v,lexbuf]); - case 15: - newline$1(v,lexbuf); - if(counter < 50) - {var counter$2=counter + 1 | 0; - return skip_json$4(counter$2,v,lexbuf)} - return caml_trampoline_return(skip_json$4,[0,v,lexbuf]); - case 16: - if(counter < 50) - {var counter$3=counter + 1 | 0; - return skip_json$4(counter$3,v,lexbuf)} - return caml_trampoline_return(skip_json$4,[0,v,lexbuf]); - case 17: - return custom_error$1(cst_Unexpected_end_of_input$127,v,lexbuf); - default:return long_error$1(cst_Invalid_token$13,v,lexbuf)}}} - function skip_json$1(v,lexbuf) - {return caml_trampoline(skip_json$4(0,v,lexbuf))} - function skip_ident$1(v,lexbuf) - {var ocaml_lex_state=394; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return finish_skip_stringlit$1(v,lexbuf); - case 1:return 0; - case 2: - return long_error$1 - (cst_Expected_string_or_identifier_but_found$9,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$130,v,lexbuf)}}} - function finish_buffer_variant$0(v,lexbuf) - {var ocaml_lex_state=461; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call2(Bi_outbuf[15],v[1],58); - buffer_json$1(v,lexbuf); - buffer_space$1(v,lexbuf); - var ocaml_lex_state$1=503; - for(;;) - {var - ocaml_lex_state$2= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$1,lexbuf); - if(2 < ocaml_lex_state$2 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$1=ocaml_lex_state$2; - continue} - switch(ocaml_lex_state$2) - {case 0:return caml_call2(Bi_outbuf[15],v[1],62); - case 1:return long_error$1(cst_Expected_but_found$45,v,lexbuf); - default: - return custom_error$1 - (cst_Unexpected_end_of_input$139,v,lexbuf)}} - case 1:return caml_call2(Bi_outbuf[15],v[1],62); - case 2:return long_error$1(cst_Expected_or_but_found$41,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$133,v,lexbuf)}}} - function finish_buffer_stringlit$1(v,lexbuf) - {var ocaml_lex_state=450; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0: - caml_call2(Bi_outbuf[15],v[1],34);return add_lexeme$1(v[1],lexbuf); - case 1:return long_error$1(cst_Invalid_string_literal$7,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$132,v,lexbuf)}}} - function buffer_json$4(counter,v,lexbuf) - {var _dY_=399; - if(counter < 50) - {var counter$0=counter + 1 | 0; - return ocaml_lex_buffer_json_rec$1(counter$0,v,lexbuf,_dY_)} - return caml_trampoline_return - (ocaml_lex_buffer_json_rec$1,[0,v,lexbuf,_dY_])} - function ocaml_lex_buffer_json_rec$1(counter,v,lexbuf,ocaml_lex_state) - {var ocaml_lex_state$0=ocaml_lex_state; - for(;;) - {var - ocaml_lex_state$1= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state$0,lexbuf); - if(11 < ocaml_lex_state$1 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state$0=ocaml_lex_state$1; - continue} - switch(ocaml_lex_state$1) - {case 0:return add_lexeme$1(v[1],lexbuf); - case 1:return finish_buffer_stringlit$1(v,lexbuf); - case 2: - try - {caml_call2(Bi_outbuf[15],v[1],123); - buffer_space$1(v,lexbuf); - buffer_object_end$1(v,lexbuf); - buffer_ident$1(v,lexbuf); - buffer_space$1(v,lexbuf); - buffer_colon$1(v,lexbuf); - buffer_space$1(v,lexbuf); - buffer_json$1(v,lexbuf); - for(;;) - {buffer_space$1(v,lexbuf); - buffer_object_sep$1(v,lexbuf); - buffer_space$1(v,lexbuf); - buffer_ident$1(v,lexbuf); - buffer_space$1(v,lexbuf); - buffer_colon$1(v,lexbuf); - buffer_space$1(v,lexbuf); - buffer_json$1(v,lexbuf); - continue}} - catch(_dX_) - {_dX_ = caml_wrap_exception(_dX_); - if(_dX_ === End_of_object)return 0; - throw _dX_} - case 3: - try - {caml_call2(Bi_outbuf[15],v[1],91); - buffer_space$1(v,lexbuf); - buffer_array_end$1(v,lexbuf); - buffer_json$1(v,lexbuf); - for(;;) - {buffer_space$1(v,lexbuf); - buffer_array_sep$1(v,lexbuf); - buffer_space$1(v,lexbuf); - buffer_json$1(v,lexbuf); - continue}} - catch(_dW_) - {_dW_ = caml_wrap_exception(_dW_); - if(_dW_ === End_of_array)return 0; - throw _dW_} - case 4: - try - {caml_call2(Bi_outbuf[15],v[1],40); - buffer_space$1(v,lexbuf); - buffer_tuple_end$0(v,lexbuf); - buffer_json$1(v,lexbuf); - for(;;) - {buffer_space$1(v,lexbuf); - buffer_tuple_sep$0(v,lexbuf); - buffer_space$1(v,lexbuf); - buffer_json$1(v,lexbuf); - continue}} - catch(_dV_) - {_dV_ = caml_wrap_exception(_dV_); - if(_dV_ === End_of_tuple)return 0; - throw _dV_} - case 5: - caml_call2(Bi_outbuf[15],v[1],60); - buffer_space$1(v,lexbuf); - buffer_ident$1(v,lexbuf); - buffer_space$1(v,lexbuf); - return finish_buffer_variant$0(v,lexbuf); - case 6: - add_lexeme$1(v[1],lexbuf); - if(counter < 50) - {var counter$0=counter + 1 | 0; - return buffer_json$4(counter$0,v,lexbuf)} - return caml_trampoline_return(buffer_json$4,[0,v,lexbuf]); - case 7: - caml_call2(Bi_outbuf[13],v[1],cst$34); - finish_buffer_comment$1(v,lexbuf); - if(counter < 50) - {var counter$1=counter + 1 | 0; - return buffer_json$4(counter$1,v,lexbuf)} - return caml_trampoline_return(buffer_json$4,[0,v,lexbuf]); - case 8: - caml_call2(Bi_outbuf[15],v[1],10); - newline$1(v,lexbuf); - if(counter < 50) - {var counter$2=counter + 1 | 0; - return buffer_json$4(counter$2,v,lexbuf)} - return caml_trampoline_return(buffer_json$4,[0,v,lexbuf]); - case 9: - add_lexeme$1(v[1],lexbuf); - if(counter < 50) - {var counter$3=counter + 1 | 0; - return buffer_json$4(counter$3,v,lexbuf)} - return caml_trampoline_return(buffer_json$4,[0,v,lexbuf]); - case 10: - return custom_error$1(cst_Unexpected_end_of_input$131,v,lexbuf); - default:return long_error$1(cst_Invalid_token$14,v,lexbuf)}}} - function buffer_json$1(v,lexbuf) - {return caml_trampoline(buffer_json$4(0,v,lexbuf))} - function buffer_ident$1(v,lexbuf) - {var ocaml_lex_state=466; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return finish_buffer_stringlit$1(v,lexbuf); - case 1:return add_lexeme$1(v[1],lexbuf); - case 2: - return long_error$1 - (cst_Expected_string_or_identifier_but_found$10,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$134,v,lexbuf)}}} - function buffer_space$1(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=471; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(4 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:add_lexeme$1(v[1],lexbuf);newline$1(v,lexbuf);continue a; - case 1: - caml_call2(Bi_outbuf[13],v[1],cst$35); - finish_buffer_comment$1(v,lexbuf); - continue a; - case 2: - caml_call2(Bi_outbuf[15],v[1],10);newline$1(v,lexbuf);continue a; - case 3:add_lexeme$1(v[1],lexbuf);continue a; - default:return 0}}}} - function buffer_object_end$1(v,lexbuf) - {var ocaml_lex_state=478; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0) - {caml_call2(Bi_outbuf[15],v[1],125);throw End_of_object} - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function buffer_object_sep$1(v,lexbuf) - {var ocaml_lex_state=480; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],44); - case 1:caml_call2(Bi_outbuf[15],v[1],125);throw End_of_object; - case 2:return long_error$1(cst_Expected_or_but_found$42,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$135,v,lexbuf)}}} - function buffer_array_end$1(v,lexbuf) - {var ocaml_lex_state=485; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0) - {caml_call2(Bi_outbuf[15],v[1],93);throw End_of_array} - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function buffer_array_sep$1(v,lexbuf) - {var ocaml_lex_state=487; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],44); - case 1:caml_call2(Bi_outbuf[15],v[1],93);throw End_of_array; - case 2:return long_error$1(cst_Expected_or_but_found$43,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$136,v,lexbuf)}}} - function buffer_tuple_end$0(v,lexbuf) - {var ocaml_lex_state=492; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0) - {caml_call2(Bi_outbuf[15],v[1],41);throw End_of_tuple} - if(1 === ocaml_lex_state$0)return 0; - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - function buffer_tuple_sep$0(v,lexbuf) - {var ocaml_lex_state=494; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],44); - case 1:caml_call2(Bi_outbuf[15],v[1],41);throw End_of_tuple; - case 2:return long_error$1(cst_Expected_or_but_found$44,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$137,v,lexbuf)}}} - function buffer_colon$1(v,lexbuf) - {var ocaml_lex_state=499; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(2 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[15],v[1],58); - case 1:return long_error$1(cst_Expected_but_found$44,v,lexbuf); - default: - return custom_error$1(cst_Unexpected_end_of_input$138,v,lexbuf)}}} - function finish_buffer_comment$1(v,lexbuf) - {a: - for(;;) - {var ocaml_lex_state=507; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(3 < ocaml_lex_state$0 >>> 0) - {caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue} - switch(ocaml_lex_state$0) - {case 0:return caml_call2(Bi_outbuf[13],v[1],cst$36); - case 1:return long_error$1(cst_Unterminated_comment$4,v,lexbuf); - case 2: - caml_call2(Bi_outbuf[15],v[1],10);newline$1(v,lexbuf);continue a; - default:add_lexeme$1(v[1],lexbuf);continue a}}}} - function junk$1(lexbuf) - {var ocaml_lex_state=513; - for(;;) - {var - ocaml_lex_state$0= - caml_lex_engine(ocaml_lex_tables$1,ocaml_lex_state,lexbuf); - if(0 === ocaml_lex_state$0)return caml_call1(lexeme$1,lexbuf); - caml_call1(lexbuf[1],lexbuf); - var ocaml_lex_state=ocaml_lex_state$0; - continue}} - read_junk$1[1] = junk$1; - function read_int8$1(v,lexbuf) - {var n=read_int$1(v,lexbuf); - if(0 <= n)if(! (255 < n))return caml_call1(Stdlib[29],n); - return lexer_error$1(cst_Int8_overflow$1,v,lexbuf)} - function read_list$1(read_cell,v,lexbuf) - {var _dU_=read_list_rev$1(read_cell,v,lexbuf); - return caml_call1(Stdlib_list[9],_dU_)} - function read_array$1(read_cell,v,lexbuf) - {var l=read_list_rev$1(read_cell,v,lexbuf); - if(l) - {var - tl=l[2], - x=l[1], - len=caml_call1(Stdlib_list[1],l), - a=caml_make_vect(len,x), - r=[0,tl], - _dR_=len - 2 | 0; - if(! (_dR_ < 0)) - {var i=_dR_; - for(;;) - {var _dS_=caml_call1(Stdlib_list[5],r[1]); - caml_check_bound(a,i)[1 + i] = _dS_; - r[1] = caml_call1(Stdlib_list[6],r[1]); - var _dT_=i - 1 | 0; - if(0 !== i){var i=_dT_;continue} - break}} - return a} - return [0]} - function read_fields$1(read_field,init_acc,v) - {return function(_dQ_) - {return read_abstract_fields$1(read_ident$1,read_field,init_acc,v,_dQ_)}} - function from_lexbuf$1(v,opt,lexbuf) - {if(opt)var sth=opt[1],stream=sth;else var stream=0; - read_space$1(v,lexbuf); - if(read_eof$1(lexbuf))throw End_of_input; - var x=read_json$1(v,lexbuf); - if(1 - stream) - {read_space$1(v,lexbuf); - if(1 - read_eof$1(lexbuf)) - long_error$1(cst_Junk_after_end_of_JSON_value$1,v,lexbuf)} - return x} - function from_string$4(buf,fname,lnum,s) - {try - {var - lexbuf=caml_call2(from_string$3,0,s), - v=init_lexer(buf,fname,lnum,0), - _dO_=from_lexbuf$1(v,0,lexbuf); - return _dO_} - catch(_dP_) - {_dP_ = caml_wrap_exception(_dP_); - if(_dP_ === End_of_input)return json_error(cst_Blank_input_data$3); - throw _dP_}} - function from_channel$4(buf,fname,lnum,ic) - {try - {var - lexbuf=caml_call2(from_channel$3,0,ic), - v=init_lexer(buf,fname,lnum,0), - _dM_=from_lexbuf$1(v,0,lexbuf); - return _dM_} - catch(_dN_) - {_dN_ = caml_wrap_exception(_dN_); - if(_dN_ === End_of_input)return json_error(cst_Blank_input_data$4); - throw _dN_}} - function from_file$1(buf,fname,lnum,file) - {var ic=caml_call1(Stdlib[79],file); - try - {var x=from_channel$4(buf,fname,lnum,ic); - caml_call1(Stdlib[93],ic); - return x} - catch(e){e = caml_wrap_exception(e);caml_call1(Stdlib[94],ic);throw e}} - var Finally$1=[248,cst_Yojson_Raw_Finally,caml_fresh_oo_id(0)]; - function stream_from_lexbuf$1(v,opt,lexbuf) - {if(opt)var sth=opt[1],fin=sth;else var fin=function(param){return 0}; - function f(i) - {try - {var _dL_=[0,from_lexbuf$1(v,stream$1,lexbuf)];return _dL_} - catch(e) - {e = caml_wrap_exception(e); - if(e === End_of_input){caml_call1(fin,0);return 0} - try - {caml_call1(fin,0)} - catch(fin_e) - {fin_e = caml_wrap_exception(fin_e);throw [0,Finally$1,e,fin_e]} - throw e}} - return caml_call1(Stdlib_stream[3],f)} - function stream_from_string$1(buf,fname,lnum,s) - {var v=init_lexer(buf,fname,lnum,0); - return stream_from_lexbuf$1(v,0,caml_call2(from_string$3,0,s))} - function stream_from_channel$1(buf,fin,fname,lnum,ic) - {var - lexbuf=caml_call2(from_channel$3,0,ic), - v=init_lexer(buf,fname,lnum,0); - return stream_from_lexbuf$1(v,fin,lexbuf)} - function stream_from_file$1(buf,fname,lnum,file) - {var ic=caml_call1(Stdlib[79],file); - function fin(param){return caml_call1(Stdlib[93],ic)} - var - fname$0=fname || [0,file], - lexbuf=caml_call2(from_channel$3,0,ic), - v=init_lexer(buf,fname$0,lnum,0); - return stream_from_lexbuf$1(v,[0,fin],lexbuf)} - function linestream_from_channel$1(buf,opt,fname,_dJ_,ic) - {if(opt)var sth=opt[1],fin=sth;else var fin=function(param){return 0}; - if(_dJ_)var sth$0=_dJ_[1],lnum0=sth$0;else var lnum0=1; - var buf$0=buf || [0,caml_call3(Bi_outbuf[3],0,0,256)]; - function f(i) - {try - {var - line=caml_call1(Stdlib[83],ic), - lnum=lnum0 + i | 0, - _dK_=[0,[0,826371656,from_string$4(buf$0,fname,[0,lnum],line)]]; - return _dK_} - catch(e) - {e = caml_wrap_exception(e); - return e === Stdlib[12]?(caml_call1(fin,0),0):[0,[0,3458171,e]]}} - return caml_call1(Stdlib_stream[3],f)} - function linestream_from_file$1(buf,fname,lnum,file) - {var ic=caml_call1(Stdlib[79],file); - function fin(param){return caml_call1(Stdlib[93],ic)} - var fname$0=fname || [0,file]; - return linestream_from_channel$1(buf,[0,fin],fname$0,lnum,ic)} - function prettify$1(std,s) - {return pretty_to_string$2(std,from_string$4(0,0,0,s))} - function compact$1(std,s) - {return to_string$5(0,0,0,from_string$4(0,0,0,s))} - function validate_json$1(path,value){return 0} - var - Yojson= - [0, - version, - Json_error, - json_error, - Lexer_state, - init_lexer, - End_of_array, - End_of_object, - End_of_tuple, - End_of_input, - [0, - to_string$1, - to_channel$1, - to_output$0, - to_file$0, - to_outbuf$0, - stream_to_string$0, - stream_to_channel$0, - stream_to_file$0, - stream_to_outbuf$0, - write_t$0, - sort$0, - write_null$0, - write_bool$0, - write_int$0, - write_float$0, - write_std_float$0, - write_float_fast$0, - write_std_float_fast$0, - write_float_prec$0, - write_std_float_prec$0, - write_string$0, - write_assoc$0, - write_list$0, - write_t$0, - write_std_json$0, - pp$0, - show$0, - equal$0, - pretty_format$0, - pretty_print$0, - pretty_to_string$0, - pretty_to_channel$0, - prettify, - compact, - Finally, - from_string$0, - from_channel$0, - from_file, - init_lexer, - from_lexbuf, - stream_from_string, - stream_from_channel, - stream_from_file, - stream_from_lexbuf, - linestream_from_channel, - linestream_from_file, - read_json, - finish_string$1, - read_string, - read_ident, - map_string, - map_ident, - start_any_variant, - finish_variant, - finish_skip_variant, - read_lt, - read_gt, - read_comma, - finish_stringlit, - finish_skip_stringlit, - finish_escaped_char, - finish_comment, - read_space, - read_eof, - read_null, - read_null_if_possible, - read_bool, - read_int, - read_int8, - read_int32, - read_int64, - read_number, - skip_ident, - read_sequence, - read_list, - read_list_rev, - read_array_end, - read_array_sep, - read_array, - read_tuple, - start_any_tuple, - read_lpar, - read_rpar, - read_tuple_end, - read_tuple_end2, - read_tuple_sep, - read_tuple_sep2, - read_lbr, - read_rbr, - read_fields, - read_abstract_fields, - read_lcurl, - read_object_end, - read_object_sep, - read_colon, - read_json, - skip_json, - buffer_json, - validate_json, - [0, - Type_error, - Undefined, - symbol, - keys, - values, - combine, - member, - index, - map, - to_assoc, - to_option, - to_bool, - to_bool_option, - to_number, - to_number_option, - to_float, - to_float_option, - to_int, - to_int_option, - to_list, - to_string$2, - to_string_option, - convert_each, - filter_map, - flatten, - filter_index, - filter_list, - filter_member, - filter_assoc, - filter_bool, - filter_int, - filter_float, - filter_number, - filter_string]], - [0, - pp$1, - show$1, - equal$1, - to_basic, - to_string$3, - to_channel$2, - to_output$1, - to_file$1, - to_outbuf$1, - stream_to_string$1, - stream_to_channel$1, - stream_to_file$1, - stream_to_outbuf$1, - write_t$1, - sort$1, - write_null$1, - write_bool$1, - write_int$1, - write_float$1, - write_std_float$1, - write_float_fast$1, - write_std_float_fast$1, - write_float_prec$1, - write_std_float_prec$1, - write_string$1, - write_intlit$0, - write_assoc$1, - write_list$1, - write_tuple$0, - write_std_tuple$0, - write_variant$0, - write_std_variant$0, - write_t$1, - write_std_json$1, - pretty_format$1, - pretty_print$1, - pretty_to_string$1, - pretty_to_channel$1, - prettify$0, - compact$0, - Finally$0, - from_string$2, - from_channel$2, - from_file$0, - init_lexer, - from_lexbuf$0, - stream_from_string$0, - stream_from_channel$0, - stream_from_file$0, - stream_from_lexbuf$0, - linestream_from_channel$0, - linestream_from_file$0, - read_json$0, - finish_string$3, - read_string$0, - read_ident$0, - map_string$0, - map_ident$0, - start_any_variant$0, - finish_variant$0, - finish_skip_variant$0, - read_lt$0, - read_gt$0, - read_comma$0, - finish_stringlit$0, - finish_skip_stringlit$0, - finish_escaped_char$0, - finish_comment$0, - read_space$0, - read_eof$0, - read_null$0, - read_null_if_possible$0, - read_bool$0, - read_int$0, - read_int8$0, - read_int32$0, - read_int64$0, - read_number$0, - skip_ident$0, - read_sequence$0, - read_list$0, - read_list_rev$0, - read_array_end$0, - read_array_sep$0, - read_array$0, - read_tuple$0, - start_any_tuple$0, - read_lpar$0, - read_rpar$0, - read_tuple_end$0, - read_tuple_end2$0, - read_tuple_sep$0, - read_tuple_sep2$0, - read_lbr$0, - read_rbr$0, - read_fields$0, - read_abstract_fields$0, - read_lcurl$0, - read_object_end$0, - read_object_sep$0, - read_colon$0, - read_json$0, - skip_json$0, - buffer_json$0, - validate_json$0, - [0, - Type_error$0, - Undefined$0, - symbol$0, - keys$0, - values$0, - combine$0, - member$0, - index$0, - map$0, - to_assoc$0, - to_option$0, - to_bool$0, - to_bool_option$0, - to_number$0, - to_number_option$0, - to_float$0, - to_float_option$0, - to_int$0, - to_int_option$0, - to_list$0, - to_string$4, - to_string_option$0, - convert_each$0, - filter_map$0, - flatten$0, - filter_index$0, - filter_list$0, - filter_member$0, - filter_assoc$0, - filter_bool$0, - filter_int$0, - filter_float$0, - filter_number$0, - filter_string$0]], - [0, - pp$2, - show$2, - equal$2, - to_string$5, - to_channel$3, - to_output$2, - to_file$2, - to_outbuf$2, - stream_to_string$2, - stream_to_channel$2, - stream_to_file$2, - stream_to_outbuf$2, - write_t$2, - sort$2, - write_null$2, - write_bool$2, - write_intlit$1, - write_floatlit$0, - write_stringlit$0, - write_assoc$2, - write_list$2, - write_tuple$1, - write_std_tuple$1, - write_variant$1, - write_std_variant$1, - write_t$2, - write_std_json$2, - pretty_format$2, - pretty_print$2, - pretty_to_string$2, - pretty_to_channel$2, - prettify$1, - compact$1, - Finally$1, - from_string$4, - from_channel$4, - from_file$1, - init_lexer, - from_lexbuf$1, - stream_from_string$1, - stream_from_channel$1, - stream_from_file$1, - stream_from_lexbuf$1, - linestream_from_channel$1, - linestream_from_file$1, - read_json$1, - finish_string$5, - read_string$1, - read_ident$1, - map_string$1, - map_ident$1, - start_any_variant$1, - finish_variant$1, - finish_skip_variant$1, - read_lt$1, - read_gt$1, - read_comma$1, - finish_stringlit$1, - finish_skip_stringlit$1, - finish_escaped_char$1, - finish_comment$1, - read_space$1, - read_eof$1, - read_null$1, - read_null_if_possible$1, - read_bool$1, - read_int$1, - read_int8$1, - read_int32$1, - read_int64$1, - read_number$1, - skip_ident$1, - read_sequence$1, - read_list$1, - read_list_rev$1, - read_array_end$1, - read_array_sep$1, - read_array$1, - read_tuple$1, - start_any_tuple$1, - read_lpar$1, - read_rpar$1, - read_tuple_end$1, - read_tuple_end2$1, - read_tuple_sep$1, - read_tuple_sep2$1, - read_lbr$1, - read_rbr$1, - read_fields$1, - read_abstract_fields$1, - read_lcurl$1, - read_object_end$1, - read_object_sep$1, - read_colon$1, - read_json$1, - skip_json$1, - buffer_json$1, - validate_json$1], - pp, - show, - equal, - to_string, - to_channel, - to_output, - to_file, - to_outbuf, - stream_to_string, - stream_to_channel, - stream_to_file, - stream_to_outbuf, - write_t, - sort, - write_null, - write_bool, - write_int, - write_float, - write_std_float, - write_float_fast, - write_std_float_fast, - write_float_prec, - write_std_float_prec, - write_string, - write_intlit, - write_floatlit, - write_stringlit, - write_assoc, - write_list, - write_tuple, - write_std_tuple, - write_variant, - write_std_variant, - write_t, - write_std_json, - pretty_format, - pretty_print, - pretty_to_string, - pretty_to_channel]; - caml_register_global(1035,Yojson,"Yojson"); - return} - (function(){return this}())); - - -//# 1 "../michelson_base/.michelson_base.objs/michelson_base.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - caml_int_compare=runtime.caml_int_compare, - caml_new_string=runtime.caml_new_string, - caml_register_global=runtime.caml_register_global; - function caml_call2(f,a0,a1) - {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} - function caml_call3(f,a0,a1,a2) - {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} - var - global_data=runtime.caml_get_global_data(), - cst_T_unit=caml_new_string("T_unit"), - cst_T_bool=caml_new_string("T_bool"), - cst_T_nat=caml_new_string("T_nat"), - cst_T_int=caml_new_string("T_int"), - cst_T_mutez=caml_new_string("T_mutez"), - cst_T_string=caml_new_string("T_string"), - cst_T_bytes=caml_new_string("T_bytes"), - cst_T_chain_id=caml_new_string("T_chain_id"), - cst_T_timestamp=caml_new_string("T_timestamp"), - cst_T_address=caml_new_string("T_address"), - cst_T_key=caml_new_string("T_key"), - cst_T_key_hash=caml_new_string("T_key_hash"), - cst_T_signature=caml_new_string("T_signature"), - cst_T_operation=caml_new_string("T_operation"), - cst_T_sapling_state=caml_new_string("T_sapling_state"), - cst_T_sapling_transaction=caml_new_string("T_sapling_transaction"), - cst_T_never=caml_new_string("T_never"), - cst_T_option=caml_new_string("T_option"), - cst_T_list=caml_new_string("T_list"), - cst_T_set=caml_new_string("T_set"), - cst_T_contract=caml_new_string("T_contract"), - cst_T_lambda=caml_new_string("T_lambda"), - cst_T_map=caml_new_string("T_map"), - cst_T_big_map=caml_new_string("T_big_map"), - cst_lambda=caml_new_string("lambda"), - cst_map=caml_new_string("map"), - cst_big_map=caml_new_string("big_map"), - cst_option=caml_new_string("option"), - cst_list=caml_new_string("list"), - cst_set=caml_new_string("set"), - cst_contract=caml_new_string("contract"), - cst_unit=caml_new_string("unit"), - cst_bool=caml_new_string("bool"), - cst_nat=caml_new_string("nat"), - cst_int=caml_new_string("int"), - cst_mutez=caml_new_string("mutez"), - cst_string=caml_new_string("string"), - cst_bytes=caml_new_string("bytes"), - cst_chain_id=caml_new_string("chain_id"), - cst_timestamp=caml_new_string("timestamp"), - cst_address=caml_new_string("address"), - cst_key=caml_new_string("key"), - cst_key_hash=caml_new_string("key_hash"), - cst_signature=caml_new_string("signature"), - cst_operation=caml_new_string("operation"), - cst_sapling_state=caml_new_string("sapling_state"), - cst_sapling_transaction=caml_new_string("sapling_transaction"), - cst_never=caml_new_string("never"), - Stdlib_format=global_data.Stdlib__format, - Michelson_base=[0]; - caml_register_global(54,Michelson_base,"Michelson_base"); - var - _a_=[0,[15,0],caml_new_string("%a")], - _b_=[0,[15,0],caml_new_string("%a")], - _c_=[0,[15,0],caml_new_string("%a")], - _f_=[0,[2,0,0],caml_new_string("%s")], - _e_=[0,[2,0,0],caml_new_string("%s")], - _d_=[0,[2,0,0],caml_new_string("%s")]; - function equal_type0(lhs,rhs) - {switch(lhs) - {case 0:if(0 === rhs)return 1;break; - case 1:if(1 === rhs)return 1;break; - case 2:if(2 === rhs)return 1;break; - case 3:if(3 === rhs)return 1;break; - case 4:if(4 === rhs)return 1;break; - case 5:if(5 === rhs)return 1;break; - case 6:if(6 === rhs)return 1;break; - case 7:if(7 === rhs)return 1;break; - case 8:if(8 === rhs)return 1;break; - case 9:if(9 === rhs)return 1;break; - case 10:if(10 === rhs)return 1;break; - case 11:if(11 === rhs)return 1;break; - case 12:if(12 === rhs)return 1;break; - case 13:if(13 === rhs)return 1;break; - case 14:if(14 === rhs)return 1;break; - case 15:if(15 === rhs)return 1;break; - default:if(16 <= rhs)return 1} - return 0} - function compare_type0(lhs,rhs) - {switch(lhs) - {case 0:if(0 === rhs)return 0;break; - case 1:if(1 === rhs)return 0;break; - case 2:if(2 === rhs)return 0;break; - case 3:if(3 === rhs)return 0;break; - case 4:if(4 === rhs)return 0;break; - case 5:if(5 === rhs)return 0;break; - case 6:if(6 === rhs)return 0;break; - case 7:if(7 === rhs)return 0;break; - case 8:if(8 === rhs)return 0;break; - case 9:if(9 === rhs)return 0;break; - case 10:if(10 === rhs)return 0;break; - case 11:if(11 === rhs)return 0;break; - case 12:if(12 === rhs)return 0;break; - case 13:if(13 === rhs)return 0;break; - case 14:if(14 === rhs)return 0;break; - case 15:if(15 === rhs)return 0;break; - default:if(16 <= rhs)return 0} - function to_int(param) - {switch(param) - {case 0:return 0; - case 1:return 1; - case 2:return 2; - case 3:return 3; - case 4:return 4; - case 5:return 5; - case 6:return 6; - case 7:return 7; - case 8:return 8; - case 9:return 9; - case 10:return 10; - case 11:return 11; - case 12:return 12; - case 13:return 13; - case 14:return 14; - case 15:return 15; - default:return 16}} - var _l_=to_int(rhs); - return caml_int_compare(to_int(lhs),_l_)} - function pp_type0(fmt,param) - {switch(param) - {case 0:return caml_call2(Stdlib_format[13],fmt,cst_T_unit); - case 1:return caml_call2(Stdlib_format[13],fmt,cst_T_bool); - case 2:return caml_call2(Stdlib_format[13],fmt,cst_T_nat); - case 3:return caml_call2(Stdlib_format[13],fmt,cst_T_int); - case 4:return caml_call2(Stdlib_format[13],fmt,cst_T_mutez); - case 5:return caml_call2(Stdlib_format[13],fmt,cst_T_string); - case 6:return caml_call2(Stdlib_format[13],fmt,cst_T_bytes); - case 7:return caml_call2(Stdlib_format[13],fmt,cst_T_chain_id); - case 8:return caml_call2(Stdlib_format[13],fmt,cst_T_timestamp); - case 9:return caml_call2(Stdlib_format[13],fmt,cst_T_address); - case 10:return caml_call2(Stdlib_format[13],fmt,cst_T_key); - case 11:return caml_call2(Stdlib_format[13],fmt,cst_T_key_hash); - case 12:return caml_call2(Stdlib_format[13],fmt,cst_T_signature); - case 13:return caml_call2(Stdlib_format[13],fmt,cst_T_operation); - case 14:return caml_call2(Stdlib_format[13],fmt,cst_T_sapling_state); - case 15: - return caml_call2(Stdlib_format[13],fmt,cst_T_sapling_transaction); - default:return caml_call2(Stdlib_format[13],fmt,cst_T_never)}} - function show_type0(x) - {return caml_call3(Stdlib_format[127],_a_,pp_type0,x)} - function equal_type1(lhs,rhs) - {switch(lhs) - {case 0:if(0 === rhs)return 1;break; - case 1:if(1 === rhs)return 1;break; - case 2:if(2 === rhs)return 1;break; - default:if(3 <= rhs)return 1} - return 0} - function compare_type1(lhs,rhs) - {switch(lhs) - {case 0:if(0 === rhs)return 0;break; - case 1:if(1 === rhs)return 0;break; - case 2:if(2 === rhs)return 0;break; - default:if(3 <= rhs)return 0} - function to_int(param) - {switch(param) - {case 0:return 0;case 1:return 1;case 2:return 2;default:return 3}} - var _k_=to_int(rhs); - return caml_int_compare(to_int(lhs),_k_)} - function pp_type1(fmt,param) - {switch(param) - {case 0:return caml_call2(Stdlib_format[13],fmt,cst_T_option); - case 1:return caml_call2(Stdlib_format[13],fmt,cst_T_list); - case 2:return caml_call2(Stdlib_format[13],fmt,cst_T_set); - default:return caml_call2(Stdlib_format[13],fmt,cst_T_contract)}} - function show_type1(x) - {return caml_call3(Stdlib_format[127],_b_,pp_type1,x)} - function equal_type2(lhs,rhs) - {switch(lhs) - {case 0:if(0 === rhs)return 1;break; - case 1:if(1 === rhs)return 1;break; - default:if(2 <= rhs)return 1} - return 0} - function compare_type2(lhs,rhs) - {switch(lhs) - {case 0:if(0 === rhs)return 0;break; - case 1:if(1 === rhs)return 0;break; - default:if(2 <= rhs)return 0} - function to_int(param) - {switch(param){case 0:return 0;case 1:return 1;default:return 2}} - var _j_=to_int(rhs); - return caml_int_compare(to_int(lhs),_j_)} - function pp_type2(fmt,param) - {switch(param) - {case 0:return caml_call2(Stdlib_format[13],fmt,cst_T_lambda); - case 1:return caml_call2(Stdlib_format[13],fmt,cst_T_map); - default:return caml_call2(Stdlib_format[13],fmt,cst_T_big_map)}} - function show_type2(x) - {return caml_call3(Stdlib_format[127],_c_,pp_type2,x)} - function string_of_type0(param) - {switch(param) - {case 0:return cst_unit; - case 1:return cst_bool; - case 2:return cst_nat; - case 3:return cst_int; - case 4:return cst_mutez; - case 5:return cst_string; - case 6:return cst_bytes; - case 7:return cst_chain_id; - case 8:return cst_timestamp; - case 9:return cst_address; - case 10:return cst_key; - case 11:return cst_key_hash; - case 12:return cst_signature; - case 13:return cst_operation; - case 14:return cst_sapling_state; - case 15:return cst_sapling_transaction; - default:return cst_never}} - function string_of_type1(param) - {switch(param) - {case 0:return cst_option; - case 1:return cst_list; - case 2:return cst_set; - default:return cst_contract}} - function string_of_type2(param) - {switch(param) - {case 0:return cst_lambda; - case 1:return cst_map; - default:return cst_big_map}} - function print_type0(ppf,x) - {var _i_=string_of_type0(x); - return caml_call3(Stdlib_format[123],ppf,_d_,_i_)} - function print_type1(ppf,x) - {var _h_=string_of_type1(x); - return caml_call3(Stdlib_format[123],ppf,_e_,_h_)} - function print_type2(ppf,x) - {var _g_=string_of_type2(x); - return caml_call3(Stdlib_format[123],ppf,_f_,_g_)} - var - Michelson_base_Type= - [0, - equal_type0, - compare_type0, - pp_type0, - show_type0, - equal_type1, - compare_type1, - pp_type1, - show_type1, - equal_type2, - compare_type2, - pp_type2, - show_type2, - string_of_type0, - string_of_type1, - string_of_type2, - print_type0, - print_type1, - print_type2]; - caml_register_global(56,Michelson_base_Type,"Michelson_base__Type"); - return} - (function(){return this}())); - - -//# 1 "../michel/.michel.objs/michel.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - caml_equal=runtime.caml_equal, - caml_new_string=runtime.caml_new_string, - caml_register_global=runtime.caml_register_global, - caml_string_equal=runtime.caml_string_equal, - caml_string_notequal=runtime.caml_string_notequal, - caml_update_dummy=runtime.caml_update_dummy; - function caml_call1(f,a0) - {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} - function caml_call2(f,a0,a1) - {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} - function caml_call3(f,a0,a1,a2) - {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} - function caml_call4(f,a0,a1,a2,a3) - {return f.length == 4 - ?f(a0,a1,a2,a3) - :runtime.caml_call_gen(f,[a0,a1,a2,a3])} - function caml_call5(f,a0,a1,a2,a3,a4) - {return f.length == 5 - ?f(a0,a1,a2,a3,a4) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} - function caml_call6(f,a0,a1,a2,a3,a4,a5) - {return f.length == 6 - ?f(a0,a1,a2,a3,a4,a5) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5])} - function caml_call7(f,a0,a1,a2,a3,a4,a5,a6) - {return f.length == 7 - ?f(a0,a1,a2,a3,a4,a5,a6) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6])} - function caml_call8(f,a0,a1,a2,a3,a4,a5,a6,a7) - {return f.length == 8 - ?f(a0,a1,a2,a3,a4,a5,a6,a7) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7])} - function caml_call9(f,a0,a1,a2,a3,a4,a5,a6,a7,a8) - {return f.length == 9 - ?f(a0,a1,a2,a3,a4,a5,a6,a7,a8) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7,a8])} - var - global_data=runtime.caml_get_global_data(), - cst$0=caml_new_string(";"), - cst$1=caml_new_string("|"), - cst_Some$0=caml_new_string("Some"), - cst_None$0=caml_new_string("None"), - cst_Stack_failed=caml_new_string("Stack_failed"), - cst_Some=caml_new_string("(Some "), - cst=caml_new_string(")"), - cst_None=caml_new_string("None"), - t_unit=[0,0], - t_nat=[0,2], - t_int=[0,3], - t_mutez=[0,4], - t_string=[0,5], - t_bytes=[0,6], - t_chain_id=[0,7], - t_timestamp=[0,8], - t_address=[0,9], - t_key=[0,10], - t_key_hash=[0,11], - t_signature=[0,12], - t_operation=[0,13], - t_sapling_state=[0,14], - t_sapling_transaction=[0,15], - t_never=[0,16], - cst_Some$9=caml_new_string("(Some "), - cst$9=caml_new_string(")"), - cst_None$8=caml_new_string("None"), - cst_Some$8=caml_new_string("(Some "), - cst$8=caml_new_string(")"), - cst_None$7=caml_new_string("None"), - cst_Add=caml_new_string("Add"), - cst_Mul=caml_new_string("Mul"), - cst_Sub=caml_new_string("Sub"), - cst_Lsr=caml_new_string("Lsr"), - cst_Lsl=caml_new_string("Lsl"), - cst_Xor=caml_new_string("Xor"), - cst_Ediv=caml_new_string("Ediv"), - cst_And=caml_new_string("And"), - cst_Or=caml_new_string("Or"), - cst_Cons=caml_new_string("Cons"), - cst_Compare=caml_new_string("Compare"), - cst_Concat2=caml_new_string("Concat2"), - cst_Get=caml_new_string("Get"), - cst_Mem=caml_new_string("Mem"), - cst_Exec=caml_new_string("Exec"), - cst_Apply=caml_new_string("Apply"), - cst_Sapling_verify_update=caml_new_string("Sapling_verify_update"), - cst_Slice=caml_new_string("Slice"), - cst_Update=caml_new_string("Update"), - cst_Transfer_tokens=caml_new_string("Transfer_tokens"), - cst_Check_signature=caml_new_string("Check_signature"), - cst_Swap=caml_new_string("Swap"), - cst_Dup=caml_new_string("Dup"), - cst_Some$13=caml_new_string("(Some "), - cst$13=caml_new_string(")"), - cst_None$12=caml_new_string("None"), - cst_Some$12=caml_new_string("(Some "), - cst$12=caml_new_string(")"), - cst_None$11=caml_new_string("None"), - cst_cons=caml_new_string("cons"), - cst_var=caml_new_string("var"), - cst_rhs=caml_new_string("rhs"), - cst$27=caml_new_string(""), - cst$28=caml_new_string(""), - cst$29=caml_new_string(" )"), - cst$30=caml_new_string("( "), - cst$31=caml_new_string(""), - cst$32=caml_new_string(""), - cst$33=caml_new_string(""), - cst$34=caml_new_string(""), - cst$35=caml_new_string(")"), - cst$36=caml_new_string("("), - cst$37=caml_new_string(")"), - cst$38=caml_new_string("("), - cst_create_contract_illegal_argument_types$0= - caml_new_string("create_contract: illegal argument types"), - cst_create_contract_illegal_argument_types= - caml_new_string("create_contract: illegal argument types"), - cst$51=caml_new_string("|"), - cst_map_entry_has_unexpected_type= - caml_new_string("map entry has unexpected type"), - cst_set_element_has_unexpected_type= - caml_new_string("set element has unexpected type"), - cst_list_element_has_unexpected_type= - caml_new_string("list element has unexpected type"), - cst_Some$27=caml_new_string("Some"), - cst_None$26=caml_new_string("None"), - cst$47=caml_new_string("_"), - cst$44=caml_new_string("."), - cst$45=caml_new_string("_"), - partial=[17,0,0], - cst$39=caml_new_string(""), - cst$40=caml_new_string(""), - cst$41=caml_new_string("_"), - cst$42=caml_new_string(">"), - cst$43=caml_new_string("<"), - partial$0=[17,0,0], - partial$1= - [16, - [17, - 0, - [17, - [0,caml_new_string("@,"),0,0], - [11,caml_new_string("done"),[17,0,0]]]]], - partial$2=[0,caml_new_string("@;<1 2>"),1,2], - partial$3=[16,[17,0,0]], - partial$4=[0,caml_new_string("@;<1 2>"),1,2], - cst$46=caml_new_string("_"), - partial$5= - [11, - caml_new_string("else"), - [17,[0,caml_new_string("@;<1 2>"),1,2],[16,[17,0,0]]]], - partial$6=[0,caml_new_string("@ "),1,0], - cst_Right=caml_new_string("Right"), - cst_Left=caml_new_string("Left"), - cst$48=caml_new_string("_"), - cst$49=caml_new_string("_"), - partial$7= - [16, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("else"), - [17,[0,caml_new_string("@;<1 2>"),1,2],[16,[17,0,0]]]]]], - partial$8=[0,caml_new_string("@;<1 2>"),1,2], - cst$50=caml_new_string("\n"), - cst_expr=caml_new_string("expr"), - cst_texpr=caml_new_string("texpr"), - cst_tys=caml_new_string("tys"), - cst_Some$26=caml_new_string("(Some "), - cst$26=caml_new_string(")"), - cst_None$25=caml_new_string("None"), - cst_Some$25=caml_new_string("(Some "), - cst$25=caml_new_string(")"), - cst_None$24=caml_new_string("None"), - cst_Some$24=caml_new_string("(Some "), - cst$24=caml_new_string(")"), - cst_None$23=caml_new_string("None"), - cst_Some$23=caml_new_string("(Some "), - cst$23=caml_new_string(")"), - cst_None$22=caml_new_string("None"), - cst_Some$22=caml_new_string("(Some "), - cst$22=caml_new_string(")"), - cst_None$21=caml_new_string("None"), - cst_Some$21=caml_new_string("(Some "), - cst$21=caml_new_string(")"), - cst_None$20=caml_new_string("None"), - cst_Some$20=caml_new_string("(Some "), - cst$20=caml_new_string(")"), - cst_None$19=caml_new_string("None"), - cst_Some$19=caml_new_string("(Some "), - cst$19=caml_new_string(")"), - cst_None$18=caml_new_string("None"), - cst_Some$18=caml_new_string("(Some "), - cst$18=caml_new_string(")"), - cst_None$17=caml_new_string("None"), - cst_Some$17=caml_new_string("(Some "), - cst$17=caml_new_string(")"), - cst_None$16=caml_new_string("None"), - cst_Some$16=caml_new_string("(Some "), - cst$16=caml_new_string(")"), - cst_None$15=caml_new_string("None"), - cst_Some$15=caml_new_string("(Some "), - cst$15=caml_new_string(")"), - cst_None$14=caml_new_string("None"), - cst_Some$14=caml_new_string("(Some "), - cst$14=caml_new_string(")"), - cst_None$13=caml_new_string("None"), - cst_tparameter=caml_new_string("tparameter"), - cst_tstorage=caml_new_string("tstorage"), - cst_parameter_and_storage=caml_new_string("parameter_and_storage"), - cst_body=caml_new_string("body"), - cst_Some$11=caml_new_string("(Some "), - cst$11=caml_new_string(")"), - cst_None$10=caml_new_string("None"), - cst_Some$10=caml_new_string("(Some "), - cst$10=caml_new_string(")"), - cst_None$9=caml_new_string("None"), - cst_Some$7=caml_new_string("(Some "), - cst$7=caml_new_string(")"), - cst_None$6=caml_new_string("None"), - cst_Some$6=caml_new_string("(Some "), - cst$6=caml_new_string(")"), - cst_None$5=caml_new_string("None"), - cst_Some$5=caml_new_string("(Some "), - cst$5=caml_new_string(")"), - cst_None$4=caml_new_string("None"), - cst_Some$4=caml_new_string("(Some "), - cst$4=caml_new_string(")"), - cst_None$3=caml_new_string("None"), - cst_Some$3=caml_new_string("(Some "), - cst$3=caml_new_string(")"), - cst_None$2=caml_new_string("None"), - cst_Car=caml_new_string("Car"), - cst_Cdr=caml_new_string("Cdr"), - cst_Some$2=caml_new_string("Some_"), - cst_Failwith=caml_new_string("Failwith"), - cst_Eq=caml_new_string("Eq"), - cst_Abs=caml_new_string("Abs"), - cst_Neg=caml_new_string("Neg"), - cst_Int=caml_new_string("Int"), - cst_IsNat=caml_new_string("IsNat"), - cst_Neq=caml_new_string("Neq"), - cst_Le=caml_new_string("Le"), - cst_Lt=caml_new_string("Lt"), - cst_Ge=caml_new_string("Ge"), - cst_Gt=caml_new_string("Gt"), - cst_Not=caml_new_string("Not"), - cst_Never=caml_new_string("Never"), - cst_Concat1=caml_new_string("Concat1"), - cst_Size=caml_new_string("Size"), - cst_Address=caml_new_string("Address"), - cst_Implicit_account=caml_new_string("Implicit_account"), - cst_Pack=caml_new_string("Pack"), - cst_Hash_key=caml_new_string("Hash_key"), - cst_Blake2b=caml_new_string("Blake2b"), - cst_Sha256=caml_new_string("Sha256"), - cst_Sha512=caml_new_string("Sha512"), - cst_Set_delegate=caml_new_string("Set_delegate"), - cst_Some$1=caml_new_string("(Some "), - cst$2=caml_new_string(")"), - cst_None$1=caml_new_string("None"), - cst_Sender=caml_new_string("Sender"), - cst_Source=caml_new_string("Source"), - cst_Amount=caml_new_string("Amount"), - cst_Balance=caml_new_string("Balance"), - cst_Now=caml_new_string("Now"), - cst_Chain_id=caml_new_string("Chain_id"), - cst_Sapling_empty_state=caml_new_string("Sapling_empty_state"), - cst_Unit=caml_new_string("Unit"), - cst_True=caml_new_string("True"), - cst_False=caml_new_string("False"), - unit=[0,[3,0]], - cst$53=caml_new_string(" > "), - cst$52=caml_new_string("."), - cst$54=caml_new_string(" > "), - cst_fix_mangle$0=caml_new_string("fix_mangle"), - cst_flatten_matches$0=caml_new_string("flatten_matches"), - cst_distribute_lets$0=caml_new_string("distribute_lets"), - cst_post$1=caml_new_string("post"), - cst_main=caml_new_string("main"), - cst_fix_mangle=caml_new_string("fix_mangle"), - gp=caml_new_string("__parameter"), - s=caml_new_string("__storage"), - cst_eta_expand_parameter_and_storage= - caml_new_string("eta_expand_parameter_and_storage"), - cst_unfold_stack_ops=caml_new_string("unfold_stack_ops"), - cst_single_lets=caml_new_string("single_lets"), - cst_x$0=caml_new_string("x"), - cst_x=caml_new_string("x"), - cst_False$1=caml_new_string("False"), - cst_None$27=caml_new_string("None"), - cst_Some$28=caml_new_string("Some"), - cst_True$1=caml_new_string("True"), - cst_False$2=caml_new_string("False"), - cst_None$28=caml_new_string("None"), - cst_Some$29=caml_new_string("Some"), - cst_True$2=caml_new_string("True"), - cst_Some$30=caml_new_string("Some"), - cst_True$3=caml_new_string("True"), - cst_False$3=caml_new_string("False"), - cst_None$29=caml_new_string("None"), - cst_binarize_matches=caml_new_string("binarize_matches"), - cst_r=caml_new_string("r"), - cst_l=caml_new_string("l"), - cst_True$0=caml_new_string("True"), - cst_False$0=caml_new_string("False"), - cst_factorise_clauses=caml_new_string("factorise_clauses"), - cst_o=caml_new_string("o"), - cst_unify_fields=caml_new_string("unify_fields"), - cst_remove_invariant_loop_state= - caml_new_string("remove_invariant_loop_state"), - cst_unused_loop_state=caml_new_string("unused_loop_state"), - cst_s=caml_new_string("s"), - cst$55=caml_new_string(";"), - cst_mangle=caml_new_string("mangle"), - v=caml_new_string("s"), - cst_run_transformer=caml_new_string("run_transformer"), - cst_typecheck=caml_new_string(": typecheck"), - cst_preserves=caml_new_string("preserves: "), - cst_post$0=caml_new_string("post: "), - cst_pre=caml_new_string("pre: "), - cst_post=caml_new_string("post: "), - cst_bindings_unique=caml_new_string("bindings_unique"), - lbl=caml_new_string("bindings_used"), - cst_is_linear=caml_new_string("is_linear"), - cst_inline=caml_new_string("inline"), - cst_inline_vars=caml_new_string("inline_vars"), - cst_mark_unused=caml_new_string("mark_unused"), - cst_field_access=caml_new_string("field_access"), - cst_flatten_matches=caml_new_string("flatten_matches"), - cst_distribute_lets=caml_new_string("distribute_lets"), - cst_fold_constants=caml_new_string("fold_constants"), - cst_infer_constructors=caml_new_string("infer_constructors"), - cst_inline_invariant_loop_state= - caml_new_string("inline_invariant_loop_state"), - cst_reify_booleans=caml_new_string("reify_booleans"), - cst_unfold_ifs=caml_new_string("unfold_ifs"), - cst_fold_ifs=caml_new_string("fold_ifs"), - cst_nest_ifs=caml_new_string("nest_ifs"), - cst_flatten_ifs=caml_new_string("flatten_ifs"), - cst_unvectortize_lets=caml_new_string("unvectortize_lets"), - cst_binarize_projs=caml_new_string("binarize_projs"), - cst_drop_unused=caml_new_string("drop_unused"), - cst_chop_stack_ops=caml_new_string("chop_stack_ops"), - cst_elim_drops=caml_new_string("elim_drops"), - Michelson_base_Type=global_data.Michelson_base__Type, - Utils_Option=global_data.Utils__Option, - Stdlib_format=global_data.Stdlib__format, - Utils_List=global_data.Utils__List, - Stdlib_list=global_data.Stdlib__list, - Utils_Binary_tree=global_data.Utils__Binary_tree, - Stdlib=global_data.Stdlib, - Utils_Control=global_data.Utils__Control, - Assert_failure=global_data.Assert_failure, - Stdlib_printf=global_data.Stdlib__printf, - Utils_String=global_data.Utils__String, - Utils_Bigint=global_data.Utils__Bigint, - Michel=[0]; - caml_register_global(777,Michel,"Michel"); - var - equal_ty=function _Bi_(_Bg_,_Bh_){return _Bi_.fun(_Bg_,_Bh_)}, - equal_row=function _Bf_(_Be_){return _Bf_.fun(_Be_)}, - _J_=[0,[15,[12,32,[2,0,[12,32,[15,0]]]]],caml_new_string("%a %s %a")], - _H_= - [0,[2,0,[11,caml_new_string(" : "),[15,0]]],caml_new_string("%s : %a")], - _I_=[0,[15,0],caml_new_string("%a")], - _K_=[0,[12,40,[16,[12,41,0]]],caml_new_string("(%t)")], - _L_=[0,[2,0,0],caml_new_string("%s")], - _M_=[0,[15,[12,40,[15,[12,41,0]]]],caml_new_string("%a(%a)")], - _N_= - [0, - [15,[12,40,[15,[11,caml_new_string(", "),[15,[12,41,0]]]]]], - caml_new_string("%a(%a, %a)")], - _O_= - [0, - [11,caml_new_string("{ "),[15,[11,caml_new_string(" }"),0]]], - caml_new_string("{ %a }")], - _P_= - [0, - [11,caml_new_string("< "),[15,[11,caml_new_string(" >"),0]]], - caml_new_string("< %a >")], - _Q_= - [0, - [11,caml_new_string("missing("),[3,0,[12,41,0]]], - caml_new_string("missing(%S)")], - _T_= - [0, - [11,caml_new_string("not a singleton: "),[15,0]], - caml_new_string("not a singleton: %a")], - _R_=[0,[15,0],caml_new_string("%a")], - _S_=[0,[11,caml_new_string("failed"),0],caml_new_string("failed")], - _F_=[0,caml_new_string("None")], - _G_=[0,caml_new_string("Some")], - _B_=[0,[15,0],caml_new_string("%a")], - _y_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _x_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _z_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _w_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Stack_ok"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Stack_ok@ ")], - _A_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _v_=[0,[15,0],caml_new_string("%a")], - _s_=[0,[3,0,0],caml_new_string("%S")], - _r_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _t_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _u_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _q_=[0,[15,0],caml_new_string("%a")], - _a_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("T0"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>T0@ ")], - _b_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _c_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("T1 ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>T1 (@,")], - _d_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _e_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _f_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("T2 ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>T2 (@,")], - _g_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _h_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _i_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _j_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("T_record"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>T_record@ ")], - _k_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _l_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("T_variant"), - [17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>T_variant@ ")], - _m_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _n_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("T_missing"), - [17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>T_missing@ ")], - _o_=[0,[3,0,0],caml_new_string("%S")], - _p_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _C_=[0,caml_new_string("False")], - _E_=[0,caml_new_string("True")], - _a6_=[0,[3,0,0],caml_new_string("%S")], - _a4_=[0,[3,0,0],caml_new_string("%S")], - _a3_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Pair ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Pair (@,")], - _a5_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _a7_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _a8_=[0,[15,0],caml_new_string("%a")], - _a9_=[0,[15,0],caml_new_string("%a")], - _a__= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Dig"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Dig@ ")], - _a$_=[0,[4,0,0,0,0],caml_new_string("%d")], - _ba_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _bb_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Dug"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Dug@ ")], - _bc_=[0,[4,0,0,0,0],caml_new_string("%d")], - _bd_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _be_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Drop"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Drop@ ")], - _bf_=[0,[4,0,0,0,0],caml_new_string("%d")], - _bg_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _bh_=[0,[15,0],caml_new_string("%a")], - _bv_=[0,[3,0,0],caml_new_string("%S")], - _br_=[0,[3,0,0],caml_new_string("%S")], - _bp_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("{ "),0]], - caml_new_string("@[<2>{ ")], - _bq_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _bs_=[0,[17,0,0],caml_new_string("@]")], - _bt_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _bu_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _bw_=[0,[17,0,0],caml_new_string("@]")], - _bx_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _by_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _bz_=[0,[17,0,0],caml_new_string("@]")], - _bA_= - [0, - [17,[0,caml_new_string("@ "),1,0],[12,125,[17,0,0]]], - caml_new_string("@ }@]")], - _bB_=[0,[15,0],caml_new_string("%a")], - _eP_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [2, - 0, - [15, - [17, - [0,caml_new_string("@,"),0,0], - [11,caml_new_string("; "),[15,[2,0,[17,0,0]]]]]]]], - caml_new_string("@[%s%a@,; %a%s@]")], - _eQ_=[0,[12,46,0],caml_new_string(".")], - _eR_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [2, - 0, - [12, - 32, - [15, - [17, - [0,caml_new_string("@,"),0,0], - [11, - caml_new_string("; "), - [15,[17,[0,caml_new_string("@ "),1,0],[2,0,[17,0,0]]]]]]]]]], - caml_new_string("@[%s %a@,; %a@ %s@]")], - _eS_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [2, - 0, - [12, - 32, - [15, - [17, - [0,caml_new_string("@,"),0,0], - [11, - caml_new_string("; "), - [15,[17,[0,caml_new_string("@ "),1,0],[2,0,[17,0,0]]]]]]]]]], - caml_new_string("@[%s %a@,; %a@ %s@]")], - _gi_=[0,0], - _gm_= - [0, - [11,caml_new_string("mk_variant "),[15,[12,32,[2,0,0]]]], - caml_new_string("mk_variant %a %s")], - _gf_=[0,0], - _gg_=[0,0], - _ge_= - [0, - [11, - caml_new_string("typecheck_precontract: invalid final stack "), - [15,[11,caml_new_string(" for storage "),[15,0]]]], - caml_new_string - ("typecheck_precontract: invalid final stack %a for storage %a")], - _gd_=[1,caml_new_string("map_over")], - _gc_=[1,caml_new_string("map_over: mismatch")], - _gb_=[1,caml_new_string("iter_over")], - _f$_= - [0, - [11, - caml_new_string("iter_over: "), - [15,[11,caml_new_string(" vs. "),[15,0]]]], - caml_new_string("iter_over: %a vs. %a")], - _ga_=[1,caml_new_string("iter_over: FAILED")], - _f__=[1,caml_new_string("If_cons: branch mismatch")], - _f9_=[1,caml_new_string("If_cons: not an option")], - _f7_= - [0, - [11, - caml_new_string("If_left: branch mismatch: "), - [15,[11,caml_new_string(" vs. "),[15,0]]]], - caml_new_string("If_left: branch mismatch: %a vs. %a")], - _f8_= - [0, - [11,caml_new_string("If_left: not an or-type: "),[15,0]], - caml_new_string("If_left: not an or-type: %a")], - _f5_= - [0, - [11, - caml_new_string("If_some: branch mismatch: "), - [15,[11,caml_new_string(" vs. "),[15,0]]]], - caml_new_string("If_some: branch mismatch: %a vs. %a")], - _f6_= - [0, - [11,caml_new_string("If_some: not an option: "),[15,0]], - caml_new_string("If_some: not an option: %a")], - _f3_= - [0, - [11, - caml_new_string("If: branch mismatch: "), - [15,[11,caml_new_string(" vs. "),[15,0]]]], - caml_new_string("If: branch mismatch: %a vs. %a")], - _f4_=[1,caml_new_string("If: not a bool")], - _f0_=[1,caml_new_string("loop: step result mismatch")], - _f1_= - [0, - [11,caml_new_string("loop: step result: "),[15,0]], - caml_new_string("loop: step result: %a")], - _f2_=[1,caml_new_string("loop")], - _fX_=[1,caml_new_string("match: wrong constructor")], - _fY_=[0,0], - _fU_=[0,[11,caml_new_string(" "),[15,0]],caml_new_string(" %a")], - _fV_= - [0, - [11, - caml_new_string("match: branches mismatch while matching "), - [15,[11,caml_new_string(":\n"),[15,0]]]], - caml_new_string("match: branches mismatch while matching %a:\n%a")], - _fW_=[0,caml_new_string("smartML/michel/expr.ml"),791,22], - _fZ_= - [0, - [11,caml_new_string("match: incompatible shape "),[15,0]], - caml_new_string("match: incompatible shape %a")], - _fT_= - [0, - [11, - caml_new_string("match on non-variant "), - [15,[11,caml_new_string(" : "),[15,0]]]], - caml_new_string("match on non-variant %a : %a")], - _fS_=[1,caml_new_string("lambda: non-singleton result")], - _fR_=[0,caml_new_string("smartML/michel/expr.ml"),1053,14], - _fQ_= - [0, - [11,caml_new_string("Unbound variable: "),[3,0,0]], - caml_new_string("Unbound variable: %S")], - _fP_= - [0, - [11, - caml_new_string("pattern "), - [15,[11,caml_new_string(" cannot match expression of type "),[15,0]]]], - caml_new_string("pattern %a cannot match expression of type %a")], - _fO_=[0,0], - _fN_= - [0, - [11, - caml_new_string("pattern "), - [15, - [11, - caml_new_string(" cannot record-match expression of type "), - [15,0]]]], - caml_new_string("pattern %a cannot record-match expression of type %a")], - _fK_= - [0, - [11,caml_new_string("type error: "),[15,[12,32,[15,0]]]], - caml_new_string("type error: %a %a")], - _fL_=[1,caml_new_string("dig")], - _fM_=[1,caml_new_string("dug")], - _fJ_= - [0, - [11, - caml_new_string("type error: "), - [15,[12,32,[15,[12,32,[15,[12,32,[15,0]]]]]]]], - caml_new_string("type error: %a %a %a %a")], - _fI_= - [0, - [11,caml_new_string("type error: "),[15,[12,32,[15,[12,32,[15,0]]]]]], - caml_new_string("type error: %a %a %a")], - _fD_=[0,caml_new_string("None")], - _fE_=[0,caml_new_string("Some")], - _fF_=[0,0], - _fG_=[0,0], - _fH_= - [0, - [11,caml_new_string("Unknown field: "),[3,0,0]], - caml_new_string("Unknown field: %S")], - _fC_= - [0, - [11,caml_new_string("type error: "),[15,[12,32,[15,0]]]], - caml_new_string("type error: %a %a")], - _fz_=[0,[16,0],caml_new_string("%t")], - _fs_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("| "), - [2, - 0, - [12, - 32, - [2, - 0, - [11, - caml_new_string(" ->"), - [17,[0,caml_new_string("@;<1 2>"),1,2],[16,[17,0,0]]]]]]]]], - caml_new_string("@[| %s %s ->@;<1 2>%t@]")], - _fk_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("| "), - [2, - 0, - [12, - 32, - [2, - 0, - [11, - caml_new_string(" ->"), - [17,[0,caml_new_string("@;<1 2>"),1,2],[16,[17,0,0]]]]]]]]], - caml_new_string("@[| %s %s ->@;<1 2>%t@]")], - _fl_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [15,[17,[0,caml_new_string("@,"),0,0],[15,[17,0,0]]]]], - caml_new_string("@[%a@,%a@]")], - _fh_=[0,[11,caml_new_string("; "),0],caml_new_string("; ")], - _fg_=[0,[16,[11,caml_new_string(": "),[16,0]]],caml_new_string("%t: %t")], - _fc_= - [0,[2,0,[11,caml_new_string(" : "),[15,0]]],caml_new_string("%s : %a")], - _fa_= - [0,[2,0,[11,caml_new_string(" = "),[16,0]]],caml_new_string("%s = %t")], - _e1_=[0,[2,0,0],caml_new_string("%s")], - _e2_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("let "), - [15, - [11, - caml_new_string(" ="), - [17, - [0,caml_new_string("@;<1 2>"),1,2], - [16,[17,0,[17,[0,caml_new_string("@,"),0,0],[16,partial]]]]]]]]]], - caml_new_string("@[@[let %a =@;<1 2>%t@]@,%t@]")], - _e3_= - [0, - [11, - caml_new_string("(fun ("), - [15, - [11, - caml_new_string(" : "), - [15, - [11, - caml_new_string(") : "), - [15, - [11, - caml_new_string(" ->"), - [17,[0,caml_new_string("@ "),1,0],[16,[12,41,0]]]]]]]]]], - caml_new_string("(fun (%a : %a) : %a ->@ %t)")], - _e4_=[0,[15,[11,caml_new_string("()"),0]],caml_new_string("%a()")], - _e6_=[0,[16,[12,46,[2,0,0]]],caml_new_string("%t.%s")], - _e7_= - [0, - [11, - caml_new_string("Contract("), - [16,[12,37,[2,0,[11,caml_new_string(", "),[15,[12,41,0]]]]]]], - caml_new_string("Contract(%t%%%s, %a)")], - _e8_= - [0, - [11, - caml_new_string("Contract("), - [16,[11,caml_new_string(", "),[15,[12,41,0]]]]], - caml_new_string("Contract(%t, %a)")], - _e5_=[0,[15,[12,40,[16,[12,41,0]]]],caml_new_string("%a(%t)")], - _e9_= - [0, - [15,[12,40,[16,[11,caml_new_string(", "),[16,[12,41,0]]]]]], - caml_new_string("%a(%t, %t)")], - _e__= - [0, - [15, - [12, - 40, - [16, - [11, - caml_new_string(", "), - [16,[11,caml_new_string(", "),[16,[12,41,0]]]]]]]], - caml_new_string("%a(%t, %t, %t)")], - _e$_=[0,[15,[12,40,[16,[12,41,0]]]],caml_new_string("%a(%t)")], - _fb_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11,caml_new_string("{ "),[15,[11,caml_new_string(" }"),[17,0,0]]]]], - caml_new_string("@[{ %a }@]")], - _fd_= - [0, - [2,0,[12,35,[15,[12,40,[16,[12,41,0]]]]]], - caml_new_string("%s#%a(%t)")], - _fe_= - [0, - [12,91,[16,[11,caml_new_string("]#list("),[15,[12,41,0]]]]], - caml_new_string("[%t]#list(%a)")], - _ff_= - [0, - [12,91,[16,[11,caml_new_string("]#set("),[15,[12,41,0]]]]], - caml_new_string("[%t]#set(%a)")], - _fi_= - [0, - [12,91,[16,[11,caml_new_string("]#map("),[15,[12,44,[15,[12,41,0]]]]]]], - caml_new_string("[%t]#map(%a,%a)")], - _fj_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("let record "), - [15, - [11, - caml_new_string(" ="), - [17, - [0,caml_new_string("@;<1 2>"),1,2], - [16,[17,0,[17,[0,caml_new_string("@,"),0,0],[16,partial$0]]]]]]]]]], - caml_new_string("@[@[let record %a =@;<1 2>%t@]@,%t@]")], - _fm_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("match "), - [16, - [11,caml_new_string(" with"),[17,[0,caml_new_string("@,"),0,0],0]]]]], - caml_new_string("@[match %t with@,")], - _fn_=[0,[15,0],caml_new_string("%a")], - _fo_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("end"),[17,0,0]]], - caml_new_string("@,end@]")], - _fp_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("loop "), - [16, - [17, - [0,caml_new_string("@,"),0,0], - [11, - caml_new_string(" "), - [18, - [1,[0,0,caml_new_string("")]], - [11, - caml_new_string("step "), - [15,[11,caml_new_string(" ->"),[17,partial$2,partial$1]]]]]]]]]], - caml_new_string("@[loop %t@, @[step %a ->@;<1 2>%t@]@,done@]")], - _fq_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("if "), - [16, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("then"), - [17, - [0,caml_new_string("@;<1 2>"),1,2], - [16, - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("else"),[17,partial$4,partial$3]]]]]]]]]], - caml_new_string("@[if %t@ then@;<1 2>%t@ else@;<1 2>%t@]")], - _fr_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("if "), - [16, - [11, - caml_new_string(" is Some "), - [2, - 0, - [17, - [0,caml_new_string("@ "),1,0], - [11, - caml_new_string("then"), - [17, - [0,caml_new_string("@;<1 2>"),1,2], - [16,[17,partial$6,partial$5]]]]]]]]]], - caml_new_string - ("@[if %t is Some %s@ then@;<1 2>%t@ else@;<1 2>%t@]")], - _ft_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("if_left "), - [16, - [11,caml_new_string(" with"),[17,[0,caml_new_string("@,"),0,0],0]]]]], - caml_new_string("@[if_left %t with@,")], - _fu_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [15,[17,[0,caml_new_string("@,"),0,0],[15,[17,0,0]]]]], - caml_new_string("@[%a@,%a@]")], - _fv_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("end"),[17,0,0]]], - caml_new_string("@,end@]")], - _fw_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("if "), - [16, - [11, - caml_new_string(" is "), - [2, - 0, - [11, - caml_new_string(" :: "), - [2, - 0, - [17, - [0,caml_new_string("@ "),1,0], - [11,caml_new_string("then"),[17,partial$8,partial$7]]]]]]]]]], - caml_new_string - ("@[if %t is %s :: %s@ then@;<1 2>%t@ else@;<1 2>%t@]")], - _fx_= - [0, - [11, - caml_new_string("iter("), - [15, - [11, - caml_new_string(" -> "), - [16,[11,caml_new_string(", "),[16,[12,41,0]]]]]]], - caml_new_string("iter(%a -> %t, %t)")], - _fy_= - [0, - [11, - caml_new_string("map("), - [15, - [11, - caml_new_string(" -> "), - [16,[11,caml_new_string(", "),[16,[12,41,0]]]]]]], - caml_new_string("map(%a -> %t, %t)")], - _fA_= - [0, - [11, - caml_new_string("create_contract("), - [15, - [11, - caml_new_string(", "), - [16, - [11, - caml_new_string(", "), - [16,[11,caml_new_string(", "),[16,[12,41,0]]]]]]]]], - caml_new_string("create_contract(%a, %t, %t, %t)")], - _fB_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("(* "), - [2, - 0, - [11, - caml_new_string(" *)"), - [17,[0,caml_new_string("@;<1 2>"),1,2],[16,[17,0,[17,0,0]]]]]]]]], - caml_new_string("@[@[(* %s *)@;<1 2>%t@]@]")], - _eW_= - [0, - [18,[1,[0,[11,caml_new_string(""),0],caml_new_string("")]],0], - caml_new_string("@[")], - _eX_= - [0, - [11, - caml_new_string("parameter : "), - [15,[17,[0,caml_new_string("@;"),1,0],0]]], - caml_new_string("parameter : %a@;")], - _eY_= - [0, - [11, - caml_new_string("storage : "), - [15,[17,[0,caml_new_string("@;"),1,0],0]]], - caml_new_string("storage : %a@;")], - _eZ_= - [0, - [15, - [11,caml_new_string(" -> "),[15,[17,[0,caml_new_string("@;"),1,0],0]]]], - caml_new_string("%a -> %a@;")], - _e0_=[0,[17,0,0],caml_new_string("@]")], - _eT_=[0,[11,caml_new_string("; "),0],caml_new_string("; ")], - _eU_=[0,[11,caml_new_string("[ "),0],caml_new_string("[ ")], - _eV_=[0,[11,caml_new_string(" ]"),0],caml_new_string(" ]")], - _eL_= - [0, - [15, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string(", "),[15,0]]]], - caml_new_string("%a@,, %a")], - _eK_=[0,[15,0],caml_new_string("%a")], - _eM_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [11, - caml_new_string("( "), - [16,[17,[0,caml_new_string("@ "),1,0],[12,41,[17,0,0]]]]]], - caml_new_string("@[( %t@ )@]")], - _eN_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [16,[17,0,0]]], - caml_new_string("@[%t@]")], - _eI_=[0,[11,caml_new_string("; "),0],caml_new_string("; ")], - _eG_=[0,[2,0,0],caml_new_string("%s")], - _eH_=[0,[12,95,0],caml_new_string("_")], - _eu_=[0,[11,caml_new_string("()"),0],caml_new_string("()")], - _ev_=[0,[11,caml_new_string("True"),0],caml_new_string("True")], - _ew_=[0,[11,caml_new_string("False"),0],caml_new_string("False")], - _ex_=[0,[15,[11,caml_new_string("#nat"),0]],caml_new_string("%a#nat")], - _ey_=[0,[15,0],caml_new_string("%a")], - _ez_= - [0,[15,[11,caml_new_string("#mutez"),0]],caml_new_string("%a#mutez")], - _eA_=[0,[3,0,0],caml_new_string("%S")], - _eB_= - [0, - [3,0,[11,caml_new_string("#key_hash"),0]], - caml_new_string("%S#key_hash")], - _eC_= - [0,[3,0,[11,caml_new_string("#bytes"),0]],caml_new_string("%S#bytes")], - _eD_= - [0, - [3,0,[11,caml_new_string("#chain_id"),0]], - caml_new_string("%S#chain_id")], - _eE_= - [0, - [3,0,[11,caml_new_string("#address"),0]], - caml_new_string("%S#address")], - _eF_= - [0, - [3,0,[11,caml_new_string("#timestamp"),0]], - caml_new_string("%S#timestamp")], - _eq_=[0,[15,0],caml_new_string("%a")], - _em_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("{ "),0]], - caml_new_string("@[<2>{ ")], - _en_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _eo_=[0,[17,0,0],caml_new_string("@]")], - _ep_= - [0, - [17,[0,caml_new_string("@ "),1,0],[12,125,[17,0,0]]], - caml_new_string("@ }@]")], - _el_=[0,[15,0],caml_new_string("%a")], - _ee_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("{ "),0]], - caml_new_string("@[<2>{ ")], - _ef_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _eg_=[0,[17,0,0],caml_new_string("@]")], - _eh_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _ei_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _ej_=[0,[17,0,0],caml_new_string("@]")], - _ek_= - [0, - [17,[0,caml_new_string("@ "),1,0],[12,125,[17,0,0]]], - caml_new_string("@ }@]")], - _ed_=[0,[15,0],caml_new_string("%a")], - _d__= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _d$_=[0,[3,0,0],caml_new_string("%S")], - _d9_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _ea_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _d0_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _dZ_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _d1_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _dV_=[0,[3,0,0],caml_new_string("%S")], - _dU_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _dT_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _dW_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _dP_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _dO_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _dQ_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _dK_=[0,[3,0,0],caml_new_string("%S")], - _dJ_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _dI_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _dL_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _dD_=[0,[3,0,0],caml_new_string("%S")], - _dB_=[0,[3,0,0],caml_new_string("%S")], - _dw_=[0,[3,0,0],caml_new_string("%S")], - _dt_=[0,[3,0,0],caml_new_string("%S")], - _dn_=[0,[3,0,0],caml_new_string("%S")], - _de_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _dd_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _df_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _c__=[0,[3,0,0],caml_new_string("%S")], - _c9_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _c8_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _c$_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _cU_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _cV_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cW_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cT_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _cS_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _cX_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _cM_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _cL_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _cN_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _cG_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _cF_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _cH_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _cz_=[0,[3,0,0],caml_new_string("%S")], - _cu_=[0,[3,0,0],caml_new_string("%S")], - _ct_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _cv_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cw_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cp_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _co_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _cq_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _b3_=[0,[3,0,0],caml_new_string("%S")], - _bX_=[0,[3,0,0],caml_new_string("%S")], - _bW_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _bV_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [12,91,0]], - caml_new_string("@[<2>[")], - _bY_= - [0, - [17,[0,caml_new_string("@,"),0,0],[12,93,[17,0,0]]], - caml_new_string("@,]@]")], - _bR_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Var"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Var@ ")], - _bS_=[0,[3,0,0],caml_new_string("%S")], - _bT_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _bU_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Let_in ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Let_in (@,")], - _bZ_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _b0_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _b1_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _b2_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Lambda ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Lambda (@,")], - _b4_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _b5_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _b6_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _b7_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _b8_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Lit"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Lit@ ")], - _b9_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _b__= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Prim0"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Prim0@ ")], - _b$_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ca_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Prim1 ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Prim1 (@,")], - _cb_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cc_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _cd_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Prim2 ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Prim2 (@,")], - _ce_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cf_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cg_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _ch_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Prim3 ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Prim3 (@,")], - _ci_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cj_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _ck_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cl_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _cm_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Stack_op ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Stack_op (@,")], - _cn_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cr_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _cs_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Record"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Record@ ")], - _cx_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _cy_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Variant ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Variant (@,")], - _cA_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cB_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cC_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _cD_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("List ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>List (@,")], - _cE_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cI_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _cJ_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Set ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Set (@,")], - _cK_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cO_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _cP_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Map ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Map (@,")], - _cQ_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cR_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _cY_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _cZ_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Match_record ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Match_record (@,")], - _c0_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _c1_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _c2_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _c3_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Match_variant ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Match_variant (@,")], - _c4_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _c5_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _c6_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Loop ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Loop (@,")], - _c7_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _da_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _db_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _dc_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Vector"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Vector@ ")], - _dg_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _dh_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("If ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>If (@,")], - _di_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dj_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dk_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _dl_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("If_some ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>If_some (@,")], - _dm_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _do_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dp_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dq_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _dr_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("If_left ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>If_left (@,")], - _ds_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _du_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dv_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dx_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dy_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _dz_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("If_cons ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>If_cons (@,")], - _dA_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dC_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dE_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dF_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dG_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _dH_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Iter_over ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Iter_over (@,")], - _dM_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dN_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dR_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _dS_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Map_over ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Map_over (@,")], - _dX_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _dY_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _d2_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _d3_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Create_contract ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Create_contract (@,")], - _d4_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _d5_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _d6_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _d7_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _d8_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Comment ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Comment (@,")], - _eb_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _ec_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _bQ_=[0,[15,0],caml_new_string("%a")], - _bK_=[0,[3,0,0],caml_new_string("%S")], - _bC_= - [0, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("{ "),0]], - caml_new_string("@[<2>{ ")], - _bD_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _bE_=[0,[17,0,0],caml_new_string("@]")], - _bF_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _bG_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _bH_=[0,[17,0,0],caml_new_string("@]")], - _bI_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _bJ_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _bL_=[0,[17,0,0],caml_new_string("@]")], - _bM_= - [0,[12,59,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(";@ ")], - _bN_= - [0, - [18, - [1,[0,0,caml_new_string("")]], - [2,0,[11,caml_new_string(" ="),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("@[%s =@ ")], - _bO_=[0,[17,0,0],caml_new_string("@]")], - _bP_= - [0, - [17,[0,caml_new_string("@ "),1,0],[12,125,[17,0,0]]], - caml_new_string("@ }@]")], - _bo_=[0,[15,0],caml_new_string("%a")], - _bn_=[0,[3,0,0],caml_new_string("%S")], - _bm_=[0,[15,0],caml_new_string("%a")], - _bj_=[0,[3,0,0],caml_new_string("%S")], - _bi_= - [0,[12,40,[18,[1,[0,0,caml_new_string("")]],0]],caml_new_string("(@[")], - _bk_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _bl_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _a2_=[0,[15,0],caml_new_string("%a")], - _aX_=[0,[3,0,0],caml_new_string("%S")], - _aT_=[0,[3,0,0],caml_new_string("%S")], - _aR_=[0,[3,0,0],caml_new_string("%S")], - _aN_=[0,[3,0,0],caml_new_string("%S")], - _aL_=[0,[3,0,0],caml_new_string("%S")], - _aH_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Proj_field"), - [17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Proj_field@ ")], - _aI_=[0,[3,0,0],caml_new_string("%S")], - _aJ_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _aK_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Left ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Left (@,")], - _aM_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _aO_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _aP_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _aQ_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Right ("),[17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Right (@,")], - _aS_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _aU_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _aV_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _aW_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Contract ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Contract (@,")], - _aY_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _aZ_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _a0_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Unpack"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Unpack@ ")], - _a1_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _aG_=[0,[15,0],caml_new_string("%a")], - _as_=[0,[3,0,0],caml_new_string("%S")], - _ar_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Self"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Self@ ")], - _at_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _au_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("None_"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>None_@ ")], - _av_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _aw_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Nil"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Nil@ ")], - _ax_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ay_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Empty_set"), - [17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Empty_set@ ")], - _az_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _aA_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Empty_map ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Empty_map (@,")], - _aB_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _aC_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _aD_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Empty_bigmap ("), - [17,[0,caml_new_string("@,"),0,0],0]]]], - caml_new_string("(@[<2>Empty_bigmap (@,")], - _aE_= - [0,[12,44,[17,[0,caml_new_string("@ "),1,0],0]],caml_new_string(",@ ")], - _aF_= - [0, - [17,[0,caml_new_string("@,"),0,0],[11,caml_new_string("))"),[17,0,0]]], - caml_new_string("@,))@]")], - _aq_=[0,[15,0],caml_new_string("%a")], - _U_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Nat"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Nat@ ")], - _V_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _W_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Int"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Int@ ")], - _X_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _Y_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Mutez"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Mutez@ ")], - _Z_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - ___= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("String"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>String@ ")], - _$_=[0,[3,0,0],caml_new_string("%S")], - _aa_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ab_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Key_hash"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Key_hash@ ")], - _ac_=[0,[3,0,0],caml_new_string("%S")], - _ad_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ae_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Bytes"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Bytes@ ")], - _af_=[0,[3,0,0],caml_new_string("%S")], - _ag_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ah_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Chain_id"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Chain_id@ ")], - _ai_=[0,[3,0,0],caml_new_string("%S")], - _aj_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _ak_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11,caml_new_string("Address"),[17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Address@ ")], - _al_=[0,[3,0,0],caml_new_string("%S")], - _am_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _an_= - [0, - [12, - 40, - [18, - [1,[0,[11,caml_new_string("<2>"),0],caml_new_string("<2>")]], - [11, - caml_new_string("Timestamp"), - [17,[0,caml_new_string("@ "),1,0],0]]]], - caml_new_string("(@[<2>Timestamp@ ")], - _ao_=[0,[3,0,0],caml_new_string("%S")], - _ap_=[0,[17,0,[12,41,0]],caml_new_string("@])")], - _gh_=[0,[15,0],caml_new_string("%a")], - _gs_=[0,caml_new_string("smartML/michel/analyser.ml"),79,12], - _gv_= - [0, - [2,0,[11,caml_new_string(": failed to converge"),0]], - caml_new_string("%s: failed to converge")], - _gP_=[0,caml_new_string("smartML/michel/transformer.ml"),569,21], - _hn_=[0,caml_new_string("remove")], - _hm_=[0,caml_new_string("remove")], - _hp_=[0,caml_new_string("let")], - _ho_=[0,caml_new_string("common")], - _hj_=[0,caml_new_string("smartML/michel/transformer.ml"),1223,11], - _hk_=[0,caml_new_string("smartML/michel/transformer.ml"),1228,11], - _hh_=[0,0,0], - _he_=[0,caml_new_string("smartML/michel/transformer.ml"),924,28], - _hc_=[0,caml_new_string("smartML/michel/transformer.ml"),884,8], - _g9_=[0,caml_new_string("smartML/michel/transformer.ml"),840,35], - _g__=[0,caml_new_string("smartML/michel/transformer.ml"),839,35], - _g4_=[0,caml_new_string("False")], - _g5_=[0,caml_new_string("True")], - _g6_=[0,caml_new_string("None")], - _g7_=[0,caml_new_string("Some")], - _g2_=[0,0], - _gZ_=[0,caml_new_string("smartML/michel/transformer.ml"),733,20], - _gY_=[0,0], - _g0_=[0,0], - _g1_=[0,0], - _gX_=[0,[0,0,0]], - _gW_=[0,caml_new_string("smartML/michel/transformer.ml"),646,8], - _gV_=[0,caml_new_string("smartML/michel/transformer.ml"),655,8], - _gU_=[0,caml_new_string("smartML/michel/transformer.ml"),625,8], - _gT_=[0,caml_new_string("smartML/michel/transformer.ml"),618,2], - _gR_=[0,caml_new_string("smartML/michel/transformer.ml"),598,12], - _gM_= - [0, - [11, - caml_new_string("infer_constructors:\n <"), - [15,[11,caml_new_string(">\n ("),[15,[12,41,0]]]]], - caml_new_string("infer_constructors:\n <%a>\n (%a)")], - _gL_=[0,[11,caml_new_string(" | "),0],caml_new_string(" | ")], - _gK_=[0,[12,95,0],caml_new_string("_")], - _gH_=[0,1], - _gt_= - [0, - [18, - [1,[0,[11,caml_new_string(""),0],caml_new_string("")]], - [2, - 0, - [11,caml_new_string(": typecheck: "),[2,0,[12,10,[17,0,[15,0]]]]]]], - caml_new_string("@[%s: typecheck: %s\n@]%a")]; - caml_update_dummy - (equal_ty, - function(lhs,match) - {switch(lhs[0]) - {case 0: - if(0 === match[0]) - {var rhs0=match[1],lhs0=lhs[1]; - return caml_call1(caml_call1(Michelson_base_Type[1],lhs0),rhs0)} - break; - case 1: - if(1 === match[0]) - {var - rhs1=match[2], - rhs0$0=match[1], - lhs1=lhs[2], - lhs0$0=lhs[1], - _Bb_= - caml_call1(caml_call1(Michelson_base_Type[5],lhs0$0),rhs0$0); - return _Bb_?caml_call1(caml_call1(equal_ty,lhs1),rhs1):_Bb_} - break; - case 2: - if(2 === match[0]) - {var - rhs2=match[3], - rhs1$0=match[2], - rhs0$1=match[1], - lhs2=lhs[3], - lhs1$0=lhs[2], - lhs0$1=lhs[1], - _Bc_= - caml_call1(caml_call1(Michelson_base_Type[9],lhs0$1),rhs0$1), - _Bd_=_Bc_?caml_call1(caml_call1(equal_ty,lhs1$0),rhs1$0):_Bc_; - return _Bd_?caml_call1(caml_call1(equal_ty,lhs2),rhs2):_Bd_} - break; - case 3: - if(3 === match[0]) - {var rhs0$2=match[1],lhs0$2=lhs[1]; - return caml_call1(caml_call1(equal_row,lhs0$2),rhs0$2)} - break; - case 4: - if(4 === match[0]) - {var rhs0$3=match[1],lhs0$3=lhs[1]; - return caml_call1(caml_call1(equal_row,lhs0$3),rhs0$3)} - break; - default: - if(5 === match[0]) - {var rhs0$4=match[1],lhs0$4=lhs[1]; - return caml_string_equal(lhs0$4,rhs0$4)}} - return 0}); - caml_update_dummy - (equal_row, - function(x) - {function _A__(param,_A$_) - {var rhs1=_A$_[2],rhs0=_A$_[1],lhs1=param[2],lhs0=param[1]; - if(lhs0) - if(rhs0) - var b=rhs0[1],a=lhs0[1],_Ba_=caml_string_equal(a,b),switch$0=1; - else - var switch$0=0; - else - if(rhs0)var switch$0=0;else var _Ba_=1,switch$0=1; - if(! switch$0)var _Ba_=0; - return _Ba_?caml_call1(caml_call1(equal_ty,lhs1),rhs1):_Ba_} - return caml_call1(caml_call1(Utils_Binary_tree[1],_A__),x)}); - var - pp_ty=function _A9_(_A7_,_A8_){return _A9_.fun(_A7_,_A8_)}, - show_ty=function _A6_(_A5_){return _A6_.fun(_A5_)}, - pp_row=function _A4_(_A3_){return _A4_.fun(_A3_)}, - show_row=function _A2_(_A1_){return _A2_.fun(_A1_)}; - caml_update_dummy - (pp_ty, - function(fmt,param) - {switch(param[0]) - {case 0: - var a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_a_); - caml_call1(caml_call1(Michelson_base_Type[3],fmt),a0); - return caml_call2(Stdlib_format[123],fmt,_b_); - case 1: - var a1=param[2],a0$0=param[1]; - caml_call2(Stdlib_format[123],fmt,_c_); - caml_call1(caml_call1(Michelson_base_Type[7],fmt),a0$0); - caml_call2(Stdlib_format[123],fmt,_d_); - caml_call1(caml_call1(pp_ty,fmt),a1); - return caml_call2(Stdlib_format[123],fmt,_e_); - case 2: - var a2=param[3],a1$0=param[2],a0$1=param[1]; - caml_call2(Stdlib_format[123],fmt,_f_); - caml_call1(caml_call1(Michelson_base_Type[11],fmt),a0$1); - caml_call2(Stdlib_format[123],fmt,_g_); - caml_call1(caml_call1(pp_ty,fmt),a1$0); - caml_call2(Stdlib_format[123],fmt,_h_); - caml_call1(caml_call1(pp_ty,fmt),a2); - return caml_call2(Stdlib_format[123],fmt,_i_); - case 3: - var a0$2=param[1]; - caml_call2(Stdlib_format[123],fmt,_j_); - caml_call1(caml_call1(pp_row,fmt),a0$2); - return caml_call2(Stdlib_format[123],fmt,_k_); - case 4: - var a0$3=param[1]; - caml_call2(Stdlib_format[123],fmt,_l_); - caml_call1(caml_call1(pp_row,fmt),a0$3); - return caml_call2(Stdlib_format[123],fmt,_m_); - default: - var a0$4=param[1]; - caml_call2(Stdlib_format[123],fmt,_n_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_o_),a0$4); - return caml_call2(Stdlib_format[123],fmt,_p_)}}); - caml_update_dummy - (show_ty,function(x){return caml_call3(Stdlib_format[127],_q_,pp_ty,x)}); - caml_update_dummy - (pp_row, - function(fmt) - {function _A0_(fmt,param) - {var a1=param[2],a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_r_); - if(a0) - {var x=a0[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some); - caml_call1(caml_call2(Stdlib_format[123],fmt,_s_),x); - caml_call2(Stdlib_format[13],fmt,cst)} - else - caml_call2(Stdlib_format[13],fmt,cst_None); - caml_call2(Stdlib_format[123],fmt,_t_); - caml_call1(caml_call1(pp_ty,fmt),a1); - return caml_call2(Stdlib_format[123],fmt,_u_)} - return caml_call2(Utils_Binary_tree[2],_A0_,fmt)}); - caml_update_dummy - (show_row, - function(x){return caml_call3(Stdlib_format[127],_v_,pp_row,x)}); - var equal_tys=function _AZ_(_AX_,_AY_){return _AZ_.fun(_AX_,_AY_)}; - caml_update_dummy - (equal_tys, - function(lhs,rhs) - {if(lhs) - {if(rhs) - {var rhs0=rhs[1],lhs0=lhs[1],x=lhs0,y=rhs0; - for(;;) - {if(x) - {if(y) - {var - y$0=y[2], - b=y[1], - x$0=x[2], - a=x[1], - _AW_=caml_call1(caml_call1(equal_ty,a),b); - if(_AW_){var x=x$0,y=y$0;continue} - return _AW_}} - else - if(! y)return 1; - return 0}}} - else - if(! rhs)return 1; - return 0}); - var - pp_tys=function _AV_(_AT_,_AU_){return _AV_.fun(_AT_,_AU_)}, - show_tys=function _AS_(_AR_){return _AS_.fun(_AR_)}; - caml_update_dummy - (pp_tys, - function(fmt,param) - {if(param) - {var a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_w_); - caml_call2(Stdlib_format[123],fmt,_x_); - var - _AP_=0, - _AQ_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_y_); - caml_call1(caml_call1(pp_ty,fmt),x); - return 1}; - caml_call3(Stdlib_list[21],_AQ_,_AP_,a0); - caml_call2(Stdlib_format[123],fmt,_z_); - return caml_call2(Stdlib_format[123],fmt,_A_)} - return caml_call2(Stdlib_format[13],fmt,cst_Stack_failed)}); - caml_update_dummy - (show_tys, - function(x){return caml_call3(Stdlib_format[127],_B_,pp_tys,x)}); - function mk_leaf(l,t){return [0,[0,l,t]]} - function mk_node(n1,n2){return [1,n1,n2]} - function t_record(r){return [3,r]} - function t_variant(r){return [4,r]} - function lub(t1,match) - {switch(t1[0]) - {case 0: - var _Au_=t1[1]; - switch(match[0]) - {case 0: - var u=match[1]; - if(caml_call2(Michelson_base_Type[1],_Au_,u))return [0,[0,_Au_]]; - var switch$0=1; - break; - case 3:var switch$0=0;break; - default:var switch$0=1} - break; - case 1: - var _Ax_=t1[1],_Aw_=t1[2]; - switch(match[0]) - {case 1: - var u1=match[2],u$0=match[1]; - if(caml_call2(Michelson_base_Type[5],_Ax_,u$0)) - {var _Ay_=lub(_Aw_,u1),_Az_=function(_AO_){return [1,_Ax_,_AO_]}; - return caml_call2(Utils_Option[19],_Az_,_Ay_)} - var switch$0=1; - break; - case 3:var switch$0=0;break; - default:var switch$0=1} - break; - case 2: - var _AC_=t1[1],_AA_=t1[3],_AB_=t1[2]; - switch(match[0]) - {case 2: - var u2=match[3],u1$0=match[2],u$1=match[1]; - if(caml_call2(Michelson_base_Type[9],_AC_,u$1)) - {var - _AD_=lub(_AA_,u2), - _AE_=lub(_AB_,u1$0), - _AF_=function(_AM_,_AN_){return [2,_AC_,_AM_,_AN_]}, - _AG_=caml_call2(Utils_Option[19],_AF_,_AE_); - return caml_call2(Utils_Option[23],_AG_,_AD_)} - var switch$0=1; - break; - case 3:var switch$0=0;break; - default:var switch$0=1} - break; - case 3: - var _AH_=t1[1]; - if(3 === match[0]) - {var s$0=match[1],_AJ_=lub_row(1,_AH_,s$0); - return caml_call2(Utils_Option[19],t_record,_AJ_)} - var _AI_=lub_row(1,_AH_,[0,[0,0,match]]); - return caml_call2(Utils_Option[19],t_record,_AI_); - case 4: - var _AK_=t1[1]; - switch(match[0]) - {case 3:var switch$0=0;break; - case 4: - var s$1=match[1],_AL_=lub_row(0,_AK_,s$1); - return caml_call2(Utils_Option[19],t_variant,_AL_); - default:var switch$0=1} - break; - default:var switch$0=0} - if(! switch$0) - if(3 === match[0]) - {var s=match[1],_Av_=lub_row(1,[0,[0,0,t1]],s); - return caml_call2(Utils_Option[19],t_record,_Av_)} - return 0} - function lub_row(is_record,r1,r2) - {var r1$0=r1,r2$0=r2; - for(;;) - {if(0 === r1$0[0]) - {var _z7_=r1$0[1],_z8_=_z7_[1]; - if(_z8_) - {var _z__=_z8_[1],_z9_=_z7_[2]; - if(0 === r2$0[0]) - {var _z$_=r2$0[1],_Aa_=_z$_[1]; - if(_Aa_) - {var t2=_z$_[2],l2=_Aa_[1]; - if(caml_string_equal(_z__,l2)) - {var - _Ab_=lub(_z9_,t2), - _Ac_=[0,_z__], - _Ad_=function(_At_){return mk_leaf(_Ac_,_At_)}; - return caml_call2(Utils_Option[19],_Ad_,_Ab_)} - return 0} - var switch$0=0} - else - var switch$0=1} - else - {var _Ai_=_z7_[2]; - switch(_Ai_[0]) - {case 3: - var _Aj_=_Ai_[1]; - if(0 === r2$0[0]) - var switch$0=0; - else - {if(is_record){var r1$0=_Aj_;continue}var switch$0=1} - break; - case 4: - var _Ak_=_Ai_[1]; - if(0 === r2$0[0]) - var switch$0=0; - else - {if(! is_record){var r1$0=_Ak_;continue}var switch$0=1} - break; - default:var switch$0=0}} - if(! switch$0) - {var _Ae_=_z7_[2]; - if(0 === r2$0[0]) - {var - match=r2$0[1], - t2$0=match[2], - _Af_=lub(_Ae_,t2$0), - _Ag_=0, - _Ah_=function(_As_){return mk_leaf(_Ag_,_As_)}; - return caml_call2(Utils_Option[19],_Ah_,_Af_)}}} - else - {var _Al_=r1$0[2],_Am_=r1$0[1]; - if(0 !== r2$0[0]) - {var - s2=r2$0[2], - s1=r2$0[1], - _Ap_=lub_row(is_record,_Al_,s2), - _Aq_=lub_row(is_record,_Am_,s1), - _Ar_=caml_call2(Utils_Option[19],mk_node,_Aq_); - return caml_call2(Utils_Option[23],_Ar_,_Ap_)} - var _An_=r2$0[1]; - if(! _An_[1]) - {var _Ao_=_An_[2]; - switch(_Ao_[0]) - {case 3: - var r2$1=_Ao_[1];if(is_record){var r2$0=r2$1;continue}break; - case 4: - var r2$2=_Ao_[1];if(! is_record){var r2$0=r2$2;continue}break - }}} - return 0}} - function lubs(t1,match) - {if(t1) - {if(match) - {var ts2=match[1],ts1=t1[1],_z4_=caml_call1(Utils_List[4],ts2); - if(caml_call1(Utils_List[4],ts1) === _z4_) - {var - _z5_=caml_call3(Utils_Option[28],lub,ts1,ts2), - _z6_=function(x){return [0,x]}; - return caml_call2(Utils_Option[19],_z6_,_z5_)} - return 0} - return [0,t1]} - return [0,match]} - function compatible(t1,t2) - {var _z3_=lub(t1,t2);return caml_call1(Utils_Option[46],_z3_)} - function t_missing(s){return [5,s]} - function t_list(t){return [1,1,t]} - function t_set(t){return [1,2,t]} - function t_contract(t){return [1,3,t]} - function t_map(k,v){return [2,1,k,v]} - function t_big_map(k,v){return [2,2,k,v]} - function t_lambda(a,b){return [2,0,a,b]} - function t_variant_node(r1,r2){return [4,[1,r1,r2]]} - function t_record_node(r1,r2){return [3,[1,r1,r2]]} - function r_or(t1,t2){return [1,[0,[0,0,t1]],[0,[0,0,t2]]]} - function t_or(t1,t2){return [4,r_or(t1,t2)]} - function leaf(lbl,t){return [0,[0,lbl,t]]} - function t_pair(annot1,annot2,t1,t2) - {return t_record_node([0,[0,annot1,t1]],[0,[0,annot2,t2]])} - var _D_=leaf(_C_,t_unit),r_bool=[1,leaf(_E_,t_unit),_D_]; - function r_option(t) - {var _z2_=leaf(_F_,t_unit);return [1,leaf(_G_,t),_z2_]} - function t_option(t){return [4,r_option(t)]} - var t_bool=[4,r_bool]; - function print_row(sep) - {function f(protect,ppf,param) - {if(0 === param[0]) - {var _zS_=param[1],_zT_=_zS_[1]; - if(_zT_) - {var t=_zS_[2],s=_zT_[1]; - return caml_call5(Stdlib_format[123],ppf,_H_,s,pp,t)} - var t$0=_zS_[2]; - return caml_call4(Stdlib_format[123],ppf,_I_,pp,t$0)} - var r2=param[2],r1=param[1]; - function r(ppf) - {var _zU_=1; - function _zV_(_z0_,_z1_){return f(_zU_,_z0_,_z1_)} - var _zW_=1; - function _zX_(_zY_,_zZ_){return f(_zW_,_zY_,_zZ_)} - return caml_call7(Stdlib_format[123],ppf,_J_,_zX_,r1,sep,_zV_,r2)} - return protect?caml_call3(Stdlib_format[123],ppf,_K_,r):r(ppf)} - var _zP_=0; - return function(_zQ_,_zR_){return f(_zP_,_zQ_,_zR_)}} - function pp(ppf,param) - {switch(param[0]) - {case 0: - var t=param[1],_zM_=caml_call1(Michelson_base_Type[13],t); - return caml_call3(Stdlib_format[123],ppf,_L_,_zM_); - case 1: - var t1=param[2],t$0=param[1]; - return caml_call6 - (Stdlib_format[123], - ppf, - _M_, - Michelson_base_Type[17], - t$0, - pp, - t1); - case 2: - var t2=param[3],t1$0=param[2],t$1=param[1]; - return caml_call8 - (Stdlib_format[123], - ppf, - _N_, - Michelson_base_Type[18], - t$1, - pp, - t1$0, - pp, - t2); - case 3: - var r=param[1],_zN_=print_row(cst$0); - return caml_call4(Stdlib_format[123],ppf,_O_,_zN_,r); - case 4: - var r$0=param[1],_zO_=print_row(cst$1); - return caml_call4(Stdlib_format[123],ppf,_P_,_zO_,r$0); - default:var s=param[1];return caml_call3(Stdlib_format[123],ppf,_Q_,s)}} - function print_tys(ppf,param) - {if(param) - {var ts=param[1],_zL_=caml_call1(Utils_List[2],pp); - return caml_call4(Stdlib_format[123],ppf,_R_,_zL_,ts)} - return caml_call2(Stdlib_format[123],ppf,_S_)} - function get1(tys) - {if(tys) - {var _zK_=tys[1];if(_zK_)if(! _zK_[2]){var t=_zK_[1];return [0,t]}} - return [1,caml_call3(Stdlib_format[127],_T_,print_tys,tys)]} - function unleaf_variant(t) - {if(0 === t[0]){var match=t[1],t$0=match[2];return t$0}return [4,t]} - function view_option(param) - {if(4 === param[0]) - {var _zB_=param[1]; - if(0 !== _zB_[0]) - {var _zC_=_zB_[1]; - if(0 === _zC_[0]) - {var _zD_=_zC_[1],_zE_=_zD_[1]; - if(_zE_) - if(! caml_string_notequal(_zE_[1],cst_Some$0)) - {var _zF_=_zB_[2],_zG_=_zD_[2]; - if(0 === _zF_[0]) - {var _zH_=_zF_[1],_zI_=_zH_[1]; - if(_zI_) - if(! caml_string_notequal(_zI_[1],cst_None$0)) - {var _zJ_=_zH_[2]; - if(0 === _zJ_[0])if(0 === _zJ_[1])return [0,_zG_]}}}}}} - return 0} - function view_or(param) - {if(4 === param[0]) - {var _zz_=param[1]; - if(0 !== _zz_[0]) - {var tr=_zz_[2],tl=_zz_[1],_zA_=unleaf_variant(tr); - return [0,[0,unleaf_variant(tl),_zA_]]}} - return 0} - var - Michel_Type= - [0, - equal_ty, - equal_row, - pp_ty, - show_ty, - pp_row, - show_row, - equal_tys, - pp_tys, - show_tys, - lub, - lubs, - compatible, - t_unit, - t_missing, - t_nat, - t_int, - t_mutez, - t_string, - t_bytes, - t_chain_id, - t_timestamp, - t_address, - t_key, - t_key_hash, - t_signature, - t_operation, - t_sapling_state, - t_sapling_transaction, - t_never, - t_list, - t_set, - t_contract, - t_map, - t_big_map, - t_lambda, - t_variant, - t_record, - t_variant_node, - t_record_node, - leaf, - t_bool, - r_option, - t_option, - t_pair, - r_or, - t_or, - r_bool, - print_row, - pp, - print_tys, - get1, - unleaf_variant, - view_option, - view_or]; - caml_register_global(784,Michel_Type,"Michel__Type"); - var equal_lit=function _zy_(_zw_,_zx_){return _zy_.fun(_zw_,_zx_)}; - caml_update_dummy - (equal_lit, - function(lhs,match) - {if(typeof lhs === "number") - switch(lhs) - {case 0:if(typeof match === "number")if(0 === match)return 1;break; - case 1:if(typeof match === "number")if(1 === match)return 1;break; - default:if(typeof match === "number")if(2 <= match)return 1} - else - switch(lhs[0]) - {case 0: - if(typeof match !== "number" && 0 === match[0]) - {var rhs0=match[1],lhs0=lhs[1]; - return caml_call1(caml_call1(Utils_Bigint[1],lhs0),rhs0)} - break; - case 1: - if(typeof match !== "number" && 1 === match[0]) - {var rhs0$0=match[1],lhs0$0=lhs[1]; - return caml_call1(caml_call1(Utils_Bigint[1],lhs0$0),rhs0$0)} - break; - case 2: - if(typeof match !== "number" && 2 === match[0]) - {var rhs0$1=match[1],lhs0$1=lhs[1]; - return caml_call1(caml_call1(Utils_Bigint[1],lhs0$1),rhs0$1)} - break; - case 3: - if(typeof match !== "number" && 3 === match[0]) - {var rhs0$2=match[1],lhs0$2=lhs[1]; - return caml_string_equal(lhs0$2,rhs0$2)} - break; - case 4: - if(typeof match !== "number" && 4 === match[0]) - {var rhs0$3=match[1],lhs0$3=lhs[1]; - return caml_string_equal(lhs0$3,rhs0$3)} - break; - case 5: - if(typeof match !== "number" && 5 === match[0]) - {var rhs0$4=match[1],lhs0$4=lhs[1]; - return caml_string_equal(lhs0$4,rhs0$4)} - break; - case 6: - if(typeof match !== "number" && 6 === match[0]) - {var rhs0$5=match[1],lhs0$5=lhs[1]; - return caml_string_equal(lhs0$5,rhs0$5)} - break; - case 7: - if(typeof match !== "number" && 7 === match[0]) - {var rhs0$6=match[1],lhs0$6=lhs[1]; - return caml_string_equal(lhs0$6,rhs0$6)} - break; - default: - if(typeof match !== "number" && 8 === match[0]) - {var rhs0$7=match[1],lhs0$7=lhs[1]; - return caml_string_equal(lhs0$7,rhs0$7)}} - return 0}); - var - pp_lit=function _zv_(_zt_,_zu_){return _zv_.fun(_zt_,_zu_)}, - show_lit=function _zs_(_zr_){return _zs_.fun(_zr_)}; - caml_update_dummy - (pp_lit, - function(fmt,param) - {if(typeof param === "number") - switch(param) - {case 0:return caml_call2(Stdlib_format[13],fmt,cst_Unit); - case 1:return caml_call2(Stdlib_format[13],fmt,cst_True); - default:return caml_call2(Stdlib_format[13],fmt,cst_False)} - else - switch(param[0]) - {case 0: - var a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_U_); - caml_call1(caml_call1(Utils_Bigint[3],fmt),a0); - return caml_call2(Stdlib_format[123],fmt,_V_); - case 1: - var a0$0=param[1]; - caml_call2(Stdlib_format[123],fmt,_W_); - caml_call1(caml_call1(Utils_Bigint[3],fmt),a0$0); - return caml_call2(Stdlib_format[123],fmt,_X_); - case 2: - var a0$1=param[1]; - caml_call2(Stdlib_format[123],fmt,_Y_); - caml_call1(caml_call1(Utils_Bigint[3],fmt),a0$1); - return caml_call2(Stdlib_format[123],fmt,_Z_); - case 3: - var a0$2=param[1]; - caml_call2(Stdlib_format[123],fmt,___); - caml_call1(caml_call2(Stdlib_format[123],fmt,_$_),a0$2); - return caml_call2(Stdlib_format[123],fmt,_aa_); - case 4: - var a0$3=param[1]; - caml_call2(Stdlib_format[123],fmt,_ab_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_ac_),a0$3); - return caml_call2(Stdlib_format[123],fmt,_ad_); - case 5: - var a0$4=param[1]; - caml_call2(Stdlib_format[123],fmt,_ae_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_af_),a0$4); - return caml_call2(Stdlib_format[123],fmt,_ag_); - case 6: - var a0$5=param[1]; - caml_call2(Stdlib_format[123],fmt,_ah_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_ai_),a0$5); - return caml_call2(Stdlib_format[123],fmt,_aj_); - case 7: - var a0$6=param[1]; - caml_call2(Stdlib_format[123],fmt,_ak_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_al_),a0$6); - return caml_call2(Stdlib_format[123],fmt,_am_); - default: - var a0$7=param[1]; - caml_call2(Stdlib_format[123],fmt,_an_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_ao_),a0$7); - return caml_call2(Stdlib_format[123],fmt,_ap_)}}); - caml_update_dummy - (show_lit, - function(x){return caml_call3(Stdlib_format[127],_aq_,pp_lit,x)}); - var equal_prim0=function _zq_(_zo_,_zp_){return _zq_.fun(_zo_,_zp_)}; - caml_update_dummy - (equal_prim0, - function(lhs,match) - {if(typeof lhs === "number") - switch(lhs) - {case 0:if(typeof match === "number")if(0 === match)return 1;break; - case 1:if(typeof match === "number")if(1 === match)return 1;break; - case 2:if(typeof match === "number")if(2 === match)return 1;break; - case 3:if(typeof match === "number")if(3 === match)return 1;break; - case 4:if(typeof match === "number")if(4 === match)return 1;break; - case 5:if(typeof match === "number")if(5 === match)return 1;break; - default:if(typeof match === "number")if(6 <= match)return 1} - else - switch(lhs[0]) - {case 0: - if(typeof match !== "number" && 0 === match[0]) - {var rhs0=match[1],lhs0=lhs[1]; - if(lhs0) - {if(rhs0) - {var b=rhs0[1],a=lhs0[1];return caml_string_equal(a,b)}} - else - if(! rhs0)return 1; - return 0} - break; - case 1: - if(typeof match !== "number" && 1 === match[0]) - {var rhs0$0=match[1],lhs0$0=lhs[1]; - return caml_call1(caml_call1(equal_ty,lhs0$0),rhs0$0)} - break; - case 2: - if(typeof match !== "number" && 2 === match[0]) - {var rhs0$1=match[1],lhs0$1=lhs[1]; - return caml_call1(caml_call1(equal_ty,lhs0$1),rhs0$1)} - break; - case 3: - if(typeof match !== "number" && 3 === match[0]) - {var rhs0$2=match[1],lhs0$2=lhs[1]; - return caml_call1(caml_call1(equal_ty,lhs0$2),rhs0$2)} - break; - case 4: - if(typeof match !== "number" && 4 === match[0]) - {var - rhs1=match[2], - rhs0$3=match[1], - lhs1=lhs[2], - lhs0$3=lhs[1], - _zm_=caml_call1(caml_call1(equal_ty,lhs0$3),rhs0$3); - return _zm_?caml_call1(caml_call1(equal_ty,lhs1),rhs1):_zm_} - break; - default: - if(typeof match !== "number" && 5 === match[0]) - {var - rhs1$0=match[2], - rhs0$4=match[1], - lhs1$0=lhs[2], - lhs0$4=lhs[1], - _zn_=caml_call1(caml_call1(equal_ty,lhs0$4),rhs0$4); - return _zn_?caml_call1(caml_call1(equal_ty,lhs1$0),rhs1$0):_zn_}} - return 0}); - var - pp_prim0=function _zl_(_zj_,_zk_){return _zl_.fun(_zj_,_zk_)}, - show_prim0=function _zi_(_zh_){return _zi_.fun(_zh_)}; - caml_update_dummy - (pp_prim0, - function(fmt,param) - {if(typeof param === "number") - switch(param) - {case 0:return caml_call2(Stdlib_format[13],fmt,cst_Sender); - case 1:return caml_call2(Stdlib_format[13],fmt,cst_Source); - case 2:return caml_call2(Stdlib_format[13],fmt,cst_Amount); - case 3:return caml_call2(Stdlib_format[13],fmt,cst_Balance); - case 4:return caml_call2(Stdlib_format[13],fmt,cst_Now); - case 5:return caml_call2(Stdlib_format[13],fmt,cst_Chain_id); - default: - return caml_call2(Stdlib_format[13],fmt,cst_Sapling_empty_state)} - else - switch(param[0]) - {case 0: - var a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_ar_); - if(a0) - {var x=a0[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$1); - caml_call1(caml_call2(Stdlib_format[123],fmt,_as_),x); - caml_call2(Stdlib_format[13],fmt,cst$2)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$1); - return caml_call2(Stdlib_format[123],fmt,_at_); - case 1: - var a0$0=param[1]; - caml_call2(Stdlib_format[123],fmt,_au_); - caml_call1(caml_call1(pp_ty,fmt),a0$0); - return caml_call2(Stdlib_format[123],fmt,_av_); - case 2: - var a0$1=param[1]; - caml_call2(Stdlib_format[123],fmt,_aw_); - caml_call1(caml_call1(pp_ty,fmt),a0$1); - return caml_call2(Stdlib_format[123],fmt,_ax_); - case 3: - var a0$2=param[1]; - caml_call2(Stdlib_format[123],fmt,_ay_); - caml_call1(caml_call1(pp_ty,fmt),a0$2); - return caml_call2(Stdlib_format[123],fmt,_az_); - case 4: - var a1=param[2],a0$3=param[1]; - caml_call2(Stdlib_format[123],fmt,_aA_); - caml_call1(caml_call1(pp_ty,fmt),a0$3); - caml_call2(Stdlib_format[123],fmt,_aB_); - caml_call1(caml_call1(pp_ty,fmt),a1); - return caml_call2(Stdlib_format[123],fmt,_aC_); - default: - var a1$0=param[2],a0$4=param[1]; - caml_call2(Stdlib_format[123],fmt,_aD_); - caml_call1(caml_call1(pp_ty,fmt),a0$4); - caml_call2(Stdlib_format[123],fmt,_aE_); - caml_call1(caml_call1(pp_ty,fmt),a1$0); - return caml_call2(Stdlib_format[123],fmt,_aF_)}}); - caml_update_dummy - (show_prim0, - function(x){return caml_call3(Stdlib_format[127],_aG_,pp_prim0,x)}); - var equal_prim1=function _zg_(_ze_,_zf_){return _zg_.fun(_ze_,_zf_)}; - caml_update_dummy - (equal_prim1, - function(lhs,match) - {if(typeof lhs === "number") - switch(lhs) - {case 0:if(typeof match === "number")if(0 === match)return 1;break; - case 1:if(typeof match === "number")if(1 === match)return 1;break; - case 2:if(typeof match === "number")if(2 === match)return 1;break; - case 3:if(typeof match === "number")if(3 === match)return 1;break; - case 4:if(typeof match === "number")if(4 === match)return 1;break; - case 5:if(typeof match === "number")if(5 === match)return 1;break; - case 6:if(typeof match === "number")if(6 === match)return 1;break; - case 7:if(typeof match === "number")if(7 === match)return 1;break; - case 8:if(typeof match === "number")if(8 === match)return 1;break; - case 9:if(typeof match === "number")if(9 === match)return 1;break; - case 10: - if(typeof match === "number")if(10 === match)return 1;break; - case 11: - if(typeof match === "number")if(11 === match)return 1;break; - case 12: - if(typeof match === "number")if(12 === match)return 1;break; - case 13: - if(typeof match === "number")if(13 === match)return 1;break; - case 14: - if(typeof match === "number")if(14 === match)return 1;break; - case 15: - if(typeof match === "number")if(15 === match)return 1;break; - case 16: - if(typeof match === "number")if(16 === match)return 1;break; - case 17: - if(typeof match === "number")if(17 === match)return 1;break; - case 18: - if(typeof match === "number")if(18 === match)return 1;break; - case 19: - if(typeof match === "number")if(19 === match)return 1;break; - case 20: - if(typeof match === "number")if(20 === match)return 1;break; - case 21: - if(typeof match === "number")if(21 === match)return 1;break; - case 22: - if(typeof match === "number")if(22 === match)return 1;break; - case 23: - if(typeof match === "number")if(23 === match)return 1;break; - case 24: - if(typeof match === "number")if(24 === match)return 1;break; - default:if(typeof match === "number")if(25 <= match)return 1} - else - switch(lhs[0]) - {case 0: - if(typeof match !== "number" && 0 === match[0]) - {var rhs0=match[1],lhs0=lhs[1]; - return caml_string_equal(lhs0,rhs0)} - break; - case 1: - if(typeof match !== "number" && 1 === match[0]) - {var - rhs2=match[3], - rhs1=match[2], - rhs0$0=match[1], - lhs2=lhs[3], - lhs1=lhs[2], - lhs0$0=lhs[1]; - if(lhs0$0) - if(rhs0$0) - var - b=rhs0$0[1], - a=lhs0$0[1], - _y9_=caml_string_equal(a,b), - switch$0=1; - else - var switch$0=0; - else - if(rhs0$0)var switch$0=0;else var _y9_=1,switch$0=1; - if(! switch$0)var _y9_=0; - if(_y9_) - {if(lhs1) - if(rhs1) - var - b$0=rhs1[1], - a$0=lhs1[1], - _y__=caml_string_equal(a$0,b$0), - switch$1=1; - else - var switch$1=0; - else - if(rhs1)var switch$1=0;else var _y__=1,switch$1=1; - if(! switch$1)var _y__=0; - var _y$_=_y__} - else - var _y$_=_y9_; - return _y$_?caml_call1(caml_call1(equal_ty,lhs2),rhs2):_y$_} - break; - case 2: - if(typeof match !== "number" && 2 === match[0]) - {var - rhs2$0=match[3], - rhs1$0=match[2], - rhs0$1=match[1], - lhs2$0=lhs[3], - lhs1$0=lhs[2], - lhs0$1=lhs[1]; - if(lhs0$1) - if(rhs0$1) - var - b$1=rhs0$1[1], - a$1=lhs0$1[1], - _za_=caml_string_equal(a$1,b$1), - switch$2=1; - else - var switch$2=0; - else - if(rhs0$1)var switch$2=0;else var _za_=1,switch$2=1; - if(! switch$2)var _za_=0; - if(_za_) - {if(lhs1$0) - if(rhs1$0) - var - b$2=rhs1$0[1], - a$2=lhs1$0[1], - _zb_=caml_string_equal(a$2,b$2), - switch$3=1; - else - var switch$3=0; - else - if(rhs1$0)var switch$3=0;else var _zb_=1,switch$3=1; - if(! switch$3)var _zb_=0; - var _zc_=_zb_} - else - var _zc_=_za_; - return _zc_?caml_call1(caml_call1(equal_ty,lhs2$0),rhs2$0):_zc_} - break; - case 3: - if(typeof match !== "number" && 3 === match[0]) - {var rhs1$1=match[2],rhs0$2=match[1],lhs1$1=lhs[2],lhs0$2=lhs[1]; - if(lhs0$2) - if(rhs0$2) - var - b$3=rhs0$2[1], - a$3=lhs0$2[1], - _zd_=caml_string_equal(a$3,b$3), - switch$4=1; - else - var switch$4=0; - else - if(rhs0$2)var switch$4=0;else var _zd_=1,switch$4=1; - if(! switch$4)var _zd_=0; - return _zd_?caml_call1(caml_call1(equal_ty,lhs1$1),rhs1$1):_zd_} - break; - default: - if(typeof match !== "number" && 4 === match[0]) - {var rhs0$3=match[1],lhs0$3=lhs[1]; - return caml_call1(caml_call1(equal_ty,lhs0$3),rhs0$3)}} - return 0}); - var - pp_prim1=function _y8_(_y6_,_y7_){return _y8_.fun(_y6_,_y7_)}, - show_prim1=function _y5_(_y4_){return _y5_.fun(_y4_)}; - caml_update_dummy - (pp_prim1, - function(fmt,param) - {if(typeof param === "number") - switch(param) - {case 0:return caml_call2(Stdlib_format[13],fmt,cst_Car); - case 1:return caml_call2(Stdlib_format[13],fmt,cst_Cdr); - case 2:return caml_call2(Stdlib_format[13],fmt,cst_Some$2); - case 3:return caml_call2(Stdlib_format[13],fmt,cst_Failwith); - case 4:return caml_call2(Stdlib_format[13],fmt,cst_Eq); - case 5:return caml_call2(Stdlib_format[13],fmt,cst_Abs); - case 6:return caml_call2(Stdlib_format[13],fmt,cst_Neg); - case 7:return caml_call2(Stdlib_format[13],fmt,cst_Int); - case 8:return caml_call2(Stdlib_format[13],fmt,cst_IsNat); - case 9:return caml_call2(Stdlib_format[13],fmt,cst_Neq); - case 10:return caml_call2(Stdlib_format[13],fmt,cst_Le); - case 11:return caml_call2(Stdlib_format[13],fmt,cst_Lt); - case 12:return caml_call2(Stdlib_format[13],fmt,cst_Ge); - case 13:return caml_call2(Stdlib_format[13],fmt,cst_Gt); - case 14:return caml_call2(Stdlib_format[13],fmt,cst_Not); - case 15:return caml_call2(Stdlib_format[13],fmt,cst_Never); - case 16:return caml_call2(Stdlib_format[13],fmt,cst_Concat1); - case 17:return caml_call2(Stdlib_format[13],fmt,cst_Size); - case 18:return caml_call2(Stdlib_format[13],fmt,cst_Address); - case 19: - return caml_call2(Stdlib_format[13],fmt,cst_Implicit_account); - case 20:return caml_call2(Stdlib_format[13],fmt,cst_Pack); - case 21:return caml_call2(Stdlib_format[13],fmt,cst_Hash_key); - case 22:return caml_call2(Stdlib_format[13],fmt,cst_Blake2b); - case 23:return caml_call2(Stdlib_format[13],fmt,cst_Sha256); - case 24:return caml_call2(Stdlib_format[13],fmt,cst_Sha512); - default:return caml_call2(Stdlib_format[13],fmt,cst_Set_delegate)} - else - switch(param[0]) - {case 0: - var a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_aH_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_aI_),a0); - return caml_call2(Stdlib_format[123],fmt,_aJ_); - case 1: - var a2=param[3],a1=param[2],a0$0=param[1]; - caml_call2(Stdlib_format[123],fmt,_aK_); - if(a0$0) - {var x=a0$0[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$3); - caml_call1(caml_call2(Stdlib_format[123],fmt,_aL_),x); - caml_call2(Stdlib_format[13],fmt,cst$3)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$2); - caml_call2(Stdlib_format[123],fmt,_aM_); - if(a1) - {var x$0=a1[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$4); - caml_call1(caml_call2(Stdlib_format[123],fmt,_aN_),x$0); - caml_call2(Stdlib_format[13],fmt,cst$4)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$3); - caml_call2(Stdlib_format[123],fmt,_aO_); - caml_call1(caml_call1(pp_ty,fmt),a2); - return caml_call2(Stdlib_format[123],fmt,_aP_); - case 2: - var a2$0=param[3],a1$0=param[2],a0$1=param[1]; - caml_call2(Stdlib_format[123],fmt,_aQ_); - if(a0$1) - {var x$1=a0$1[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$5); - caml_call1(caml_call2(Stdlib_format[123],fmt,_aR_),x$1); - caml_call2(Stdlib_format[13],fmt,cst$5)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$4); - caml_call2(Stdlib_format[123],fmt,_aS_); - if(a1$0) - {var x$2=a1$0[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$6); - caml_call1(caml_call2(Stdlib_format[123],fmt,_aT_),x$2); - caml_call2(Stdlib_format[13],fmt,cst$6)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$5); - caml_call2(Stdlib_format[123],fmt,_aU_); - caml_call1(caml_call1(pp_ty,fmt),a2$0); - return caml_call2(Stdlib_format[123],fmt,_aV_); - case 3: - var a1$1=param[2],a0$2=param[1]; - caml_call2(Stdlib_format[123],fmt,_aW_); - if(a0$2) - {var x$3=a0$2[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$7); - caml_call1(caml_call2(Stdlib_format[123],fmt,_aX_),x$3); - caml_call2(Stdlib_format[13],fmt,cst$7)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$6); - caml_call2(Stdlib_format[123],fmt,_aY_); - caml_call1(caml_call1(pp_ty,fmt),a1$1); - return caml_call2(Stdlib_format[123],fmt,_aZ_); - default: - var a0$3=param[1]; - caml_call2(Stdlib_format[123],fmt,_a0_); - caml_call1(caml_call1(pp_ty,fmt),a0$3); - return caml_call2(Stdlib_format[123],fmt,_a1_)}}); - caml_update_dummy - (show_prim1, - function(x){return caml_call3(Stdlib_format[127],_a2_,pp_prim1,x)}); - function pp_prim2(fmt,param) - {if(typeof param === "number") - switch(param) - {case 0:return caml_call2(Stdlib_format[13],fmt,cst_Add); - case 1:return caml_call2(Stdlib_format[13],fmt,cst_Mul); - case 2:return caml_call2(Stdlib_format[13],fmt,cst_Sub); - case 3:return caml_call2(Stdlib_format[13],fmt,cst_Lsr); - case 4:return caml_call2(Stdlib_format[13],fmt,cst_Lsl); - case 5:return caml_call2(Stdlib_format[13],fmt,cst_Xor); - case 6:return caml_call2(Stdlib_format[13],fmt,cst_Ediv); - case 7:return caml_call2(Stdlib_format[13],fmt,cst_And); - case 8:return caml_call2(Stdlib_format[13],fmt,cst_Or); - case 9:return caml_call2(Stdlib_format[13],fmt,cst_Cons); - case 10:return caml_call2(Stdlib_format[13],fmt,cst_Compare); - case 11:return caml_call2(Stdlib_format[13],fmt,cst_Concat2); - case 12:return caml_call2(Stdlib_format[13],fmt,cst_Get); - case 13:return caml_call2(Stdlib_format[13],fmt,cst_Mem); - case 14:return caml_call2(Stdlib_format[13],fmt,cst_Exec); - case 15:return caml_call2(Stdlib_format[13],fmt,cst_Apply); - default: - return caml_call2(Stdlib_format[13],fmt,cst_Sapling_verify_update)} - var a1=param[2],a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_a3_); - if(a0) - {var x=a0[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$8); - caml_call1(caml_call2(Stdlib_format[123],fmt,_a4_),x); - caml_call2(Stdlib_format[13],fmt,cst$8)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$7); - caml_call2(Stdlib_format[123],fmt,_a5_); - if(a1) - {var x$0=a1[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$9); - caml_call1(caml_call2(Stdlib_format[123],fmt,_a6_),x$0); - caml_call2(Stdlib_format[13],fmt,cst$9)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$8); - return caml_call2(Stdlib_format[123],fmt,_a7_)} - function show_prim2(x) - {return caml_call3(Stdlib_format[127],_a8_,pp_prim2,x)} - function pp_prim3(fmt,param) - {switch(param) - {case 0:return caml_call2(Stdlib_format[13],fmt,cst_Slice); - case 1:return caml_call2(Stdlib_format[13],fmt,cst_Update); - case 2:return caml_call2(Stdlib_format[13],fmt,cst_Transfer_tokens); - default:return caml_call2(Stdlib_format[13],fmt,cst_Check_signature)}} - function show_prim3(x) - {return caml_call3(Stdlib_format[127],_a9_,pp_prim3,x)} - function equal_stack_op(lhs,match) - {if(typeof lhs === "number") - {if(0 === lhs) - {if(typeof match === "number")if(0 === match)return 1} - else - if(typeof match === "number")if(0 !== match)return 1} - else - switch(lhs[0]) - {case 0: - if(typeof match !== "number" && 0 === match[0]) - {var rhs0=match[1],lhs0=lhs[1];return lhs0 === rhs0?1:0} - break; - case 1: - if(typeof match !== "number" && 1 === match[0]) - {var rhs0$0=match[1],lhs0$0=lhs[1];return lhs0$0 === rhs0$0?1:0} - break; - default: - if(typeof match !== "number" && 2 === match[0]) - {var rhs0$1=match[1],lhs0$1=lhs[1];return lhs0$1 === rhs0$1?1:0}} - return 0} - function pp_stack_op(fmt,param) - {if(typeof param === "number") - return 0 === param - ?caml_call2(Stdlib_format[13],fmt,cst_Swap) - :caml_call2(Stdlib_format[13],fmt,cst_Dup); - else - switch(param[0]) - {case 0: - var a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_a__); - caml_call1(caml_call2(Stdlib_format[123],fmt,_a$_),a0); - return caml_call2(Stdlib_format[123],fmt,_ba_); - case 1: - var a0$0=param[1]; - caml_call2(Stdlib_format[123],fmt,_bb_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_bc_),a0$0); - return caml_call2(Stdlib_format[123],fmt,_bd_); - default: - var a0$1=param[1]; - caml_call2(Stdlib_format[123],fmt,_be_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_bf_),a0$1); - return caml_call2(Stdlib_format[123],fmt,_bg_)}} - function show_stack_op(x) - {return caml_call3(Stdlib_format[127],_bh_,pp_stack_op,x)} - var equal_row_context=function _y3_(_y2_){return _y3_.fun(_y2_)}; - caml_update_dummy - (equal_row_context, - function(x) - {function _yZ_(param,_y0_) - {var rhs1=_y0_[2],rhs0=_y0_[1],lhs1=param[2],lhs0=param[1]; - if(lhs0) - if(rhs0) - var b=rhs0[1],a=lhs0[1],_y1_=caml_string_equal(a,b),switch$0=1; - else - var switch$0=0; - else - if(rhs0)var switch$0=0;else var _y1_=1,switch$0=1; - if(! switch$0)var _y1_=0; - return _y1_?caml_call1(caml_call1(equal_ty,lhs1),rhs1):_y1_} - return caml_call1(caml_call1(Utils_Binary_tree[51],_yZ_),x)}); - var - pp_row_context=function _yY_(_yX_){return _yY_.fun(_yX_)}, - show_row_context=function _yW_(_yV_){return _yW_.fun(_yV_)}; - caml_update_dummy - (pp_row_context, - function(fmt) - {function _yU_(fmt,param) - {var a1=param[2],a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_bi_); - if(a0) - {var x=a0[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$10); - caml_call1(caml_call2(Stdlib_format[123],fmt,_bj_),x); - caml_call2(Stdlib_format[13],fmt,cst$10)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$9); - caml_call2(Stdlib_format[123],fmt,_bk_); - caml_call1(caml_call1(pp_ty,fmt),a1); - return caml_call2(Stdlib_format[123],fmt,_bl_)} - return caml_call2(Utils_Binary_tree[52],_yU_,fmt)}); - caml_update_dummy - (show_row_context, - function(x){return caml_call3(Stdlib_format[127],_bm_,pp_row_context,x)}); - var equal_record_pattern=function _yT_(_yS_){return _yT_.fun(_yS_)}; - caml_update_dummy - (equal_record_pattern, - function(x) - {function _yR_(x,y) - {if(x) - {if(y){var b=y[1],a=x[1];return caml_string_equal(a,b)}} - else - if(! y)return 1; - return 0} - return caml_call1(caml_call1(Utils_Binary_tree[1],_yR_),x)}); - var - pp_record_pattern=function _yQ_(_yP_){return _yQ_.fun(_yP_)}, - show_record_pattern=function _yO_(_yN_){return _yO_.fun(_yN_)}; - caml_update_dummy - (pp_record_pattern, - function(fmt) - {function _yM_(fmt,param) - {if(param) - {var x=param[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$11); - caml_call1(caml_call2(Stdlib_format[123],fmt,_bn_),x); - return caml_call2(Stdlib_format[13],fmt,cst$11)} - return caml_call2(Stdlib_format[13],fmt,cst_None$10)} - return caml_call2(Utils_Binary_tree[2],_yM_,fmt)}); - caml_update_dummy - (show_record_pattern, - function(x) - {return caml_call3(Stdlib_format[127],_bo_,pp_record_pattern,x)}); - function map_match_clause(poly_e,x) - {var _yL_=caml_call1(poly_e,x[3]);return [0,x[1],x[2],_yL_]} - function fold_match_clause(poly_e,acc,x) - {return caml_call2(poly_e,acc,x[3])} - function pp_match_clause(poly_e,fmt,x) - {caml_call2(Stdlib_format[123],fmt,_bp_); - caml_call3(Stdlib_format[123],fmt,_bq_,cst_cons); - var _yI_=x[1]; - if(_yI_) - {var x$0=_yI_[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$12); - caml_call1(caml_call2(Stdlib_format[123],fmt,_br_),x$0); - caml_call2(Stdlib_format[13],fmt,cst$12)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$11); - caml_call2(Stdlib_format[123],fmt,_bs_); - caml_call2(Stdlib_format[123],fmt,_bt_); - caml_call3(Stdlib_format[123],fmt,_bu_,cst_var); - var _yJ_=x[2]; - if(_yJ_) - {var x$1=_yJ_[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$13); - caml_call1(caml_call2(Stdlib_format[123],fmt,_bv_),x$1); - caml_call2(Stdlib_format[13],fmt,cst$13)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$12); - caml_call2(Stdlib_format[123],fmt,_bw_); - caml_call2(Stdlib_format[123],fmt,_bx_); - caml_call3(Stdlib_format[123],fmt,_by_,cst_rhs); - var _yK_=x[3]; - caml_call1(caml_call1(poly_e,fmt),_yK_); - caml_call2(Stdlib_format[123],fmt,_bz_); - return caml_call2(Stdlib_format[123],fmt,_bA_)} - function show_match_clause(poly_e,x) - {function _yF_(_yG_,_yH_){return pp_match_clause(poly_e,_yG_,_yH_)} - return caml_call3(Stdlib_format[127],_bB_,_yF_,x)} - var - equal_precontract= - function _yE_(_yB_,_yC_,_yD_){return _yE_.fun(_yB_,_yC_,_yD_)}; - caml_update_dummy - (equal_precontract, - function(poly_e,lhs,rhs) - {var _yt_=rhs[1],_yu_=caml_call1(caml_call1(equal_ty,lhs[1]),_yt_); - if(_yu_) - var _yv_=rhs[2],_yw_=caml_call1(caml_call1(equal_ty,lhs[2]),_yv_); - else - var _yw_=_yu_; - if(_yw_) - {var _yx_=rhs[3],_yy_=lhs[3]; - if(_yy_) - if(_yx_) - var b=_yx_[1],a=_yy_[1],_yz_=caml_string_equal(a,b),switch$0=1; - else - var switch$0=0; - else - if(_yx_)var switch$0=0;else var _yz_=1,switch$0=1; - if(! switch$0)var _yz_=0; - var _yA_=_yz_} - else - var _yA_=_yw_; - return _yA_?caml_call2(poly_e,lhs[4],rhs[4]):_yA_}); - function map_precontract(poly_e,x) - {var _ys_=caml_call1(poly_e,x[4]);return [0,x[1],x[2],x[3],_ys_]} - function fold_precontract(poly_e,acc,x) - {return caml_call2(poly_e,acc,x[4])} - var - pp_precontract= - function _yr_(_yo_,_yp_,_yq_){return _yr_.fun(_yo_,_yp_,_yq_)}, - show_precontract=function _yn_(_yl_,_ym_){return _yn_.fun(_yl_,_ym_)}; - caml_update_dummy - (pp_precontract, - function(poly_e,fmt,x) - {caml_call2(Stdlib_format[123],fmt,_bC_); - caml_call3(Stdlib_format[123],fmt,_bD_,cst_tparameter); - var _yh_=x[1]; - caml_call1(caml_call1(pp_ty,fmt),_yh_); - caml_call2(Stdlib_format[123],fmt,_bE_); - caml_call2(Stdlib_format[123],fmt,_bF_); - caml_call3(Stdlib_format[123],fmt,_bG_,cst_tstorage); - var _yi_=x[2]; - caml_call1(caml_call1(pp_ty,fmt),_yi_); - caml_call2(Stdlib_format[123],fmt,_bH_); - caml_call2(Stdlib_format[123],fmt,_bI_); - caml_call3(Stdlib_format[123],fmt,_bJ_,cst_parameter_and_storage); - var _yj_=x[3]; - if(_yj_) - {var x$0=_yj_[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$14); - caml_call1(caml_call2(Stdlib_format[123],fmt,_bK_),x$0); - caml_call2(Stdlib_format[13],fmt,cst$14)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$13); - caml_call2(Stdlib_format[123],fmt,_bL_); - caml_call2(Stdlib_format[123],fmt,_bM_); - caml_call3(Stdlib_format[123],fmt,_bN_,cst_body); - var _yk_=x[4]; - caml_call1(caml_call1(poly_e,fmt),_yk_); - caml_call2(Stdlib_format[123],fmt,_bO_); - return caml_call2(Stdlib_format[123],fmt,_bP_)}); - caml_update_dummy - (show_precontract, - function(poly_e,x) - {var _yg_=caml_call1(pp_precontract,poly_e); - return caml_call3(Stdlib_format[127],_bQ_,_yg_,x)}); - var - equal_expr_f= - function _yf_(_yc_,_yd_,_ye_){return _yf_.fun(_yc_,_yd_,_ye_)}; - caml_update_dummy - (equal_expr_f, - function(poly_e,lhs,match) - {switch(lhs[0]) - {case 0: - if(0 === match[0]) - {var rhs0$0=match[1],lhs0$0=lhs[1]; - return caml_string_equal(lhs0$0,rhs0$0)} - break; - case 1: - if(1 === match[0]) - {var - rhs2=match[3], - rhs1$0=match[2], - rhs0$1=match[1], - lhs2=lhs[3], - lhs1$0=lhs[2], - lhs0$1=lhs[1], - x=lhs0$1, - y=rhs0$1; - for(;;) - {if(x) - if(y) - {var y$0=y[2],b$1=y[1],x$0=x[2],a$1=x[1]; - if(a$1) - if(b$1) - var - b$2=b$1[1], - a$2=a$1[1], - _w4_=caml_string_equal(a$2,b$2), - switch$1=1; - else - var switch$1=0; - else - if(b$1)var switch$1=0;else var _w4_=1,switch$1=1; - if(! switch$1)var _w4_=0; - if(_w4_){var x=x$0,y=y$0;continue} - var _w5_=_w4_,switch$0=1} - else - var switch$0=0; - else - if(y)var switch$0=0;else var _w5_=1,switch$0=1; - if(! switch$0)var _w5_=0; - var _w6_=_w5_?caml_call2(poly_e,lhs1$0,rhs1$0):_w5_; - return _w6_?caml_call2(poly_e,lhs2,rhs2):_w6_}} - break; - case 2: - if(2 === match[0]) - {var - rhs3=match[4], - rhs2$0=match[3], - rhs1$1=match[2], - rhs0$2=match[1], - lhs3=lhs[4], - lhs2$0=lhs[3], - lhs1$1=lhs[2], - lhs0$2=lhs[1]; - if(lhs0$2) - if(rhs0$2) - var - b$3=rhs0$2[1], - a$3=lhs0$2[1], - _w7_=caml_string_equal(a$3,b$3), - switch$2=1; - else - var switch$2=0; - else - if(rhs0$2)var switch$2=0;else var _w7_=1,switch$2=1; - if(! switch$2)var _w7_=0; - var - _w8_=_w7_?caml_call1(caml_call1(equal_ty,lhs1$1),rhs1$1):_w7_, - _w9_=_w8_?caml_call1(caml_call1(equal_ty,lhs2$0),rhs2$0):_w8_; - return _w9_?caml_call2(poly_e,lhs3,rhs3):_w9_} - break; - case 3: - if(3 === match[0]) - {var rhs0$3=match[1],lhs0$3=lhs[1]; - return caml_call1(caml_call1(equal_lit,lhs0$3),rhs0$3)} - break; - case 4: - if(4 === match[0]) - {var rhs0$4=match[1],lhs0$4=lhs[1]; - return caml_call1(caml_call1(equal_prim0,lhs0$4),rhs0$4)} - break; - case 5: - if(5 === match[0]) - {var - rhs1$2=match[2], - rhs0$5=match[1], - lhs1$2=lhs[2], - lhs0$5=lhs[1], - _w__=caml_call1(caml_call1(equal_prim1,lhs0$5),rhs0$5); - return _w__?caml_call2(poly_e,lhs1$2,rhs1$2):_w__} - break; - case 6: - if(6 === match[0]) - {var - rhs2$1=match[3], - rhs1$3=match[2], - rhs0$6=match[1], - lhs2$1=lhs[3], - lhs1$3=lhs[2], - lhs0$6=lhs[1]; - if(typeof lhs0$6 === "number") - switch(lhs0$6) - {case 0: - if(typeof rhs0$6 === "number") - if(0 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 1: - if(typeof rhs0$6 === "number") - if(1 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 2: - if(typeof rhs0$6 === "number") - if(2 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 3: - if(typeof rhs0$6 === "number") - if(3 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 4: - if(typeof rhs0$6 === "number") - if(4 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 5: - if(typeof rhs0$6 === "number") - if(5 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 6: - if(typeof rhs0$6 === "number") - if(6 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 7: - if(typeof rhs0$6 === "number") - if(7 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 8: - if(typeof rhs0$6 === "number") - if(8 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 9: - if(typeof rhs0$6 === "number") - if(9 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 10: - if(typeof rhs0$6 === "number") - if(10 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 11: - if(typeof rhs0$6 === "number") - if(11 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 12: - if(typeof rhs0$6 === "number") - if(12 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 13: - if(typeof rhs0$6 === "number") - if(13 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 14: - if(typeof rhs0$6 === "number") - if(14 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - case 15: - if(typeof rhs0$6 === "number") - if(15 === rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0; - break; - default: - if(typeof rhs0$6 === "number") - if(16 <= rhs0$6)var _x2_=1,switch$3=1;else var switch$3=0; - else - var switch$3=0} - else - if(typeof rhs0$6 === "number") - var switch$3=0; - else - {var - rhs1=rhs0$6[2], - rhs0=rhs0$6[1], - lhs1=lhs0$6[2], - lhs0=lhs0$6[1]; - if(lhs0) - if(rhs0) - var - b=rhs0[1], - a=lhs0[1], - _w3_=caml_string_equal(a,b), - switch$4=1; - else - var switch$4=0; - else - if(rhs0)var switch$4=0;else var _w3_=1,switch$4=1; - if(! switch$4)var _w3_=0; - if(_w3_) - {if(lhs1) - if(rhs1) - var - b$0=rhs1[1], - a$0=lhs1[1], - _x2_=caml_string_equal(a$0,b$0), - switch$3=1, - switch$5=0; - else - var switch$5=1; - else - if(rhs1) - var switch$5=1; - else - var _x2_=1,switch$3=1,switch$5=0; - if(switch$5)var _x2_=0,switch$3=1} - else - var _x2_=_w3_,switch$3=1} - if(! switch$3)var _x2_=0; - var _w$_=_x2_?caml_call2(poly_e,lhs1$3,rhs1$3):_x2_; - return _w$_?caml_call2(poly_e,lhs2$1,rhs2$1):_w$_} - break; - case 7: - if(7 === match[0]) - {var - rhs3$0=match[4], - rhs2$2=match[3], - rhs1$4=match[2], - rhs0$7=match[1], - lhs3$0=lhs[4], - lhs2$2=lhs[3], - lhs1$4=lhs[2], - lhs0$7=lhs[1]; - switch(lhs0$7) - {case 0: - if(0 === rhs0$7)var _x3_=1,switch$6=1;else var switch$6=0; - break; - case 1: - if(1 === rhs0$7)var _x3_=1,switch$6=1;else var switch$6=0; - break; - case 2: - if(2 === rhs0$7)var _x3_=1,switch$6=1;else var switch$6=0; - break; - default: - if(3 <= rhs0$7)var _x3_=1,switch$6=1;else var switch$6=0} - if(! switch$6)var _x3_=0; - var - _xa_=_x3_?caml_call2(poly_e,lhs1$4,rhs1$4):_x3_, - _xb_=_xa_?caml_call2(poly_e,lhs2$2,rhs2$2):_xa_; - return _xb_?caml_call2(poly_e,lhs3$0,rhs3$0):_xb_} - break; - case 8: - if(8 === match[0]) - {var - rhs1$5=match[2], - rhs0$8=match[1], - lhs1$5=lhs[2], - lhs0$8=lhs[1], - _x4_=equal_stack_op(lhs0$8,rhs0$8); - if(_x4_) - {var x$1=lhs1$5,y$1=rhs1$5; - for(;;) - {if(x$1) - {if(y$1) - {var - y$2=y$1[2], - b$4=y$1[1], - x$2=x$1[2], - a$4=x$1[1], - _xc_=caml_call2(poly_e,a$4,b$4); - if(_xc_){var x$1=x$2,y$1=y$2;continue} - return _xc_}} - else - if(! y$1)return 1; - return 0}} - return _x4_} - break; - case 9: - if(9 === match[0]) - {var - rhs0$9=match[1], - lhs0$9=lhs[1], - _xd_= - function(param,_ya_) - {var rhs1=_ya_[2],rhs0=_ya_[1],lhs1=param[2],lhs0=param[1]; - if(lhs0) - if(rhs0) - var - b=rhs0[1], - a=lhs0[1], - _yb_=caml_string_equal(a,b), - switch$0=1; - else - var switch$0=0; - else - if(rhs0)var switch$0=0;else var _yb_=1,switch$0=1; - if(! switch$0)var _yb_=0; - return _yb_?caml_call2(poly_e,lhs1,rhs1):_yb_}; - return caml_call1 - (caml_call1(caml_call1(Utils_Binary_tree[1],_xd_),lhs0$9), - rhs0$9)} - break; - case 10: - if(10 === match[0]) - {var - rhs2$3=match[3], - rhs1$6=match[2], - rhs0$10=match[1], - lhs2$3=lhs[3], - lhs1$6=lhs[2], - lhs0$10=lhs[1]; - if(lhs0$10) - if(rhs0$10) - var - b$5=rhs0$10[1], - a$5=lhs0$10[1], - _xe_=caml_string_equal(a$5,b$5), - switch$7=1; - else - var switch$7=0; - else - if(rhs0$10)var switch$7=0;else var _xe_=1,switch$7=1; - if(! switch$7)var _xe_=0; - var - _xf_= - _xe_ - ?caml_call1(caml_call1(equal_row_context,lhs1$6),rhs1$6) - :_xe_; - return _xf_?caml_call2(poly_e,lhs2$3,rhs2$3):_xf_} - break; - case 11: - if(11 === match[0]) - {var - rhs1$7=match[2], - rhs0$11=match[1], - lhs1$7=lhs[2], - lhs0$11=lhs[1], - _xg_=caml_call1(caml_call1(equal_ty,lhs0$11),rhs0$11); - if(_xg_) - {var x$3=lhs1$7,y$3=rhs1$7; - for(;;) - {if(x$3) - {if(y$3) - {var - y$4=y$3[2], - b$6=y$3[1], - x$4=x$3[2], - a$6=x$3[1], - _xh_=caml_call2(poly_e,a$6,b$6); - if(_xh_){var x$3=x$4,y$3=y$4;continue} - return _xh_}} - else - if(! y$3)return 1; - return 0}} - return _xg_} - break; - case 12: - if(12 === match[0]) - {var - rhs1$8=match[2], - rhs0$12=match[1], - lhs1$8=lhs[2], - lhs0$12=lhs[1], - _xi_=caml_call1(caml_call1(equal_ty,lhs0$12),rhs0$12); - if(_xi_) - {var x$5=lhs1$8,y$5=rhs1$8; - for(;;) - {if(x$5) - {if(y$5) - {var - y$6=y$5[2], - b$7=y$5[1], - x$6=x$5[2], - a$7=x$5[1], - _xj_=caml_call2(poly_e,a$7,b$7); - if(_xj_){var x$5=x$6,y$5=y$6;continue} - return _xj_}} - else - if(! y$5)return 1; - return 0}} - return _xi_} - break; - case 13: - if(13 === match[0]) - {var - rhs2$4=match[3], - rhs1$9=match[2], - rhs0$13=match[1], - lhs2$4=lhs[3], - lhs1$9=lhs[2], - lhs0$13=lhs[1], - _xk_=caml_call1(caml_call1(equal_ty,lhs0$13),rhs0$13), - _xl_=_xk_?caml_call1(caml_call1(equal_ty,lhs1$9),rhs1$9):_xk_; - if(_xl_) - {var x$7=lhs2$4,y$7=rhs2$4; - for(;;) - {if(x$7) - {if(y$7) - {var - y$8=y$7[2], - b$8=y$7[1], - x$8=x$7[2], - a$8=x$7[1], - rhs1$10=b$8[2], - rhs0$14=b$8[1], - lhs1$10=a$8[2], - lhs0$14=a$8[1], - _xm_=caml_call2(poly_e,lhs0$14,rhs0$14), - _xn_=_xm_?caml_call2(poly_e,lhs1$10,rhs1$10):_xm_; - if(_xn_){var x$7=x$8,y$7=y$8;continue} - return _xn_}} - else - if(! y$7)return 1; - return 0}} - return _xl_} - break; - case 14: - if(14 === match[0]) - {var - rhs2$5=match[3], - rhs1$11=match[2], - rhs0$15=match[1], - lhs2$5=lhs[3], - lhs1$11=lhs[2], - lhs0$15=lhs[1], - _xo_= - caml_call1(caml_call1(equal_record_pattern,lhs0$15),rhs0$15), - _xp_=_xo_?caml_call2(poly_e,lhs1$11,rhs1$11):_xo_; - return _xp_?caml_call2(poly_e,lhs2$5,rhs2$5):_xp_} - break; - case 15: - if(15 === match[0]) - {var - rhs1$12=match[2], - rhs0$16=match[1], - lhs1$12=lhs[2], - lhs0$16=lhs[1], - _xq_=caml_call2(poly_e,lhs0$16,rhs0$16); - if(_xq_) - {var - _xr_= - function(lhs) - {return function(rhs) - {var _x5_=rhs[1],_x6_=lhs[1]; - if(_x6_) - if(_x5_) - var - b=_x5_[1], - a=_x6_[1], - _x7_=caml_string_equal(a,b), - switch$0=1; - else - var switch$0=0; - else - if(_x5_)var switch$0=0;else var _x7_=1,switch$0=1; - if(! switch$0)var _x7_=0; - if(_x7_) - {var _x8_=rhs[2],_x9_=lhs[2]; - if(_x9_) - if(_x8_) - var - b$0=_x8_[1], - a$0=_x9_[1], - _x__=caml_string_equal(a$0,b$0), - switch$1=1; - else - var switch$1=0; - else - if(_x8_)var switch$1=0;else var _x__=1,switch$1=1; - if(! switch$1)var _x__=0; - var _x$_=_x__} - else - var _x$_=_x7_; - return _x$_?caml_call2(poly_e,lhs[3],rhs[3]):_x$_}}; - return caml_call1 - (caml_call1(caml_call1(Utils_Binary_tree[1],_xr_),lhs1$12), - rhs1$12)} - return _xq_} - break; - case 16: - if(16 === match[0]) - {var - rhs2$6=match[3], - rhs1$13=match[2], - rhs0$17=match[1], - lhs2$6=lhs[3], - lhs1$13=lhs[2], - lhs0$17=lhs[1], - _xs_=caml_call2(poly_e,lhs0$17,rhs0$17); - if(_xs_) - {var x$9=lhs1$13,y$9=rhs1$13; - for(;;) - {if(x$9) - if(y$9) - {var y$10=y$9[2],b$9=y$9[1],x$10=x$9[2],a$9=x$9[1]; - if(a$9) - if(b$9) - var - b$10=b$9[1], - a$10=a$9[1], - _xt_=caml_string_equal(a$10,b$10), - switch$9=1; - else - var switch$9=0; - else - if(b$9)var switch$9=0;else var _xt_=1,switch$9=1; - if(! switch$9)var _xt_=0; - if(_xt_){var x$9=x$10,y$9=y$10;continue} - var _xu_=_xt_,switch$8=1} - else - var switch$8=0; - else - if(y$9)var switch$8=0;else var _xu_=1,switch$8=1; - if(! switch$8)var _xu_=0; - var _xv_=_xu_; - break}} - else - var _xv_=_xs_; - return _xv_?caml_call2(poly_e,lhs2$6,rhs2$6):_xv_} - break; - case 17: - if(17 === match[0]) - {var rhs0$18=match[1],lhs0$18=lhs[1],x$11=lhs0$18,y$11=rhs0$18; - for(;;) - {if(x$11) - {if(y$11) - {var - y$12=y$11[2], - b$11=y$11[1], - x$12=x$11[2], - a$11=x$11[1], - _xw_=caml_call2(poly_e,a$11,b$11); - if(_xw_){var x$11=x$12,y$11=y$12;continue} - return _xw_}} - else - if(! y$11)return 1; - return 0}} - break; - case 18: - if(18 === match[0]) - {var - rhs2$7=match[3], - rhs1$14=match[2], - rhs0$19=match[1], - lhs2$7=lhs[3], - lhs1$14=lhs[2], - lhs0$19=lhs[1], - _xx_=caml_call2(poly_e,lhs0$19,rhs0$19), - _xy_=_xx_?caml_call2(poly_e,lhs1$14,rhs1$14):_xx_; - return _xy_?caml_call2(poly_e,lhs2$7,rhs2$7):_xy_} - break; - case 19: - if(19 === match[0]) - {var - rhs3$1=match[4], - rhs2$8=match[3], - rhs1$15=match[2], - rhs0$20=match[1], - lhs3$1=lhs[4], - lhs2$8=lhs[3], - lhs1$15=lhs[2], - lhs0$20=lhs[1], - _xz_=caml_call2(poly_e,lhs0$20,rhs0$20); - if(_xz_) - {if(lhs1$15) - if(rhs1$15) - var - b$12=rhs1$15[1], - a$12=lhs1$15[1], - _xA_=caml_string_equal(a$12,b$12), - switch$10=1; - else - var switch$10=0; - else - if(rhs1$15)var switch$10=0;else var _xA_=1,switch$10=1; - if(! switch$10)var _xA_=0; - var _xB_=_xA_} - else - var _xB_=_xz_; - var _xC_=_xB_?caml_call2(poly_e,lhs2$8,rhs2$8):_xB_; - return _xC_?caml_call2(poly_e,lhs3$1,rhs3$1):_xC_} - break; - case 20: - if(20 === match[0]) - {var - rhs4=match[5], - rhs3$2=match[4], - rhs2$9=match[3], - rhs1$16=match[2], - rhs0$21=match[1], - lhs4=lhs[5], - lhs3$2=lhs[4], - lhs2$9=lhs[3], - lhs1$16=lhs[2], - lhs0$21=lhs[1], - _xD_=caml_call2(poly_e,lhs0$21,rhs0$21); - if(_xD_) - {if(lhs1$16) - if(rhs1$16) - var - b$13=rhs1$16[1], - a$13=lhs1$16[1], - _xE_=caml_string_equal(a$13,b$13), - switch$11=1; - else - var switch$11=0; - else - if(rhs1$16)var switch$11=0;else var _xE_=1,switch$11=1; - if(! switch$11)var _xE_=0; - var _xF_=_xE_} - else - var _xF_=_xD_; - var _xG_=_xF_?caml_call2(poly_e,lhs2$9,rhs2$9):_xF_; - if(_xG_) - {if(lhs3$2) - if(rhs3$2) - var - b$14=rhs3$2[1], - a$14=lhs3$2[1], - _xH_=caml_string_equal(a$14,b$14), - switch$12=1; - else - var switch$12=0; - else - if(rhs3$2)var switch$12=0;else var _xH_=1,switch$12=1; - if(! switch$12)var _xH_=0; - var _xI_=_xH_} - else - var _xI_=_xG_; - return _xI_?caml_call2(poly_e,lhs4,rhs4):_xI_} - break; - case 21: - if(21 === match[0]) - {var - rhs4$0=match[5], - rhs3$3=match[4], - rhs2$10=match[3], - rhs1$17=match[2], - rhs0$22=match[1], - lhs4$0=lhs[5], - lhs3$3=lhs[4], - lhs2$10=lhs[3], - lhs1$17=lhs[2], - lhs0$22=lhs[1], - _xJ_=caml_call2(poly_e,lhs0$22,rhs0$22); - if(_xJ_) - {if(lhs1$17) - if(rhs1$17) - var - b$15=rhs1$17[1], - a$15=lhs1$17[1], - _xK_=caml_string_equal(a$15,b$15), - switch$13=1; - else - var switch$13=0; - else - if(rhs1$17)var switch$13=0;else var _xK_=1,switch$13=1; - if(! switch$13)var _xK_=0; - var _xL_=_xK_} - else - var _xL_=_xJ_; - if(_xL_) - {if(lhs2$10) - if(rhs2$10) - var - b$16=rhs2$10[1], - a$16=lhs2$10[1], - _xM_=caml_string_equal(a$16,b$16), - switch$14=1; - else - var switch$14=0; - else - if(rhs2$10)var switch$14=0;else var _xM_=1,switch$14=1; - if(! switch$14)var _xM_=0; - var _xN_=_xM_} - else - var _xN_=_xL_; - var _xO_=_xN_?caml_call2(poly_e,lhs3$3,rhs3$3):_xN_; - return _xO_?caml_call2(poly_e,lhs4$0,rhs4$0):_xO_} - break; - case 22: - if(22 === match[0]) - {var - rhs2$11=match[3], - rhs1$18=match[2], - rhs0$23=match[1], - lhs2$11=lhs[3], - lhs1$18=lhs[2], - lhs0$23=lhs[1], - x$13=lhs0$23, - y$13=rhs0$23; - for(;;) - {if(x$13) - if(y$13) - {var y$14=y$13[2],b$17=y$13[1],x$14=x$13[2],a$17=x$13[1]; - if(a$17) - if(b$17) - var - b$18=b$17[1], - a$18=a$17[1], - _xP_=caml_string_equal(a$18,b$18), - switch$16=1; - else - var switch$16=0; - else - if(b$17)var switch$16=0;else var _xP_=1,switch$16=1; - if(! switch$16)var _xP_=0; - if(_xP_){var x$13=x$14,y$13=y$14;continue} - var _xQ_=_xP_,switch$15=1} - else - var switch$15=0; - else - if(y$13)var switch$15=0;else var _xQ_=1,switch$15=1; - if(! switch$15)var _xQ_=0; - var _xR_=_xQ_?caml_call2(poly_e,lhs1$18,rhs1$18):_xQ_; - if(_xR_) - {var x$15=lhs2$11,y$15=rhs2$11; - for(;;) - {if(x$15) - {if(y$15) - {var - y$16=y$15[2], - b$19=y$15[1], - x$16=x$15[2], - a$19=x$15[1], - _xS_=caml_call2(poly_e,a$19,b$19); - if(_xS_){var x$15=x$16,y$15=y$16;continue} - return _xS_}} - else - if(! y$15)return 1; - return 0}} - return _xR_}} - break; - case 23: - if(23 === match[0]) - {var - rhs2$12=match[3], - rhs1$19=match[2], - rhs0$24=match[1], - lhs2$12=lhs[3], - lhs1$19=lhs[2], - lhs0$24=lhs[1], - x$17=lhs0$24, - y$17=rhs0$24; - for(;;) - {if(x$17) - if(y$17) - {var y$18=y$17[2],b$20=y$17[1],x$18=x$17[2],a$20=x$17[1]; - if(a$20) - if(b$20) - var - b$21=b$20[1], - a$21=a$20[1], - _xT_=caml_string_equal(a$21,b$21), - switch$18=1; - else - var switch$18=0; - else - if(b$20)var switch$18=0;else var _xT_=1,switch$18=1; - if(! switch$18)var _xT_=0; - if(_xT_){var x$17=x$18,y$17=y$18;continue} - var _xU_=_xT_,switch$17=1} - else - var switch$17=0; - else - if(y$17)var switch$17=0;else var _xU_=1,switch$17=1; - if(! switch$17)var _xU_=0; - var _xV_=_xU_?caml_call2(poly_e,lhs1$19,rhs1$19):_xU_; - if(_xV_) - {var x$19=lhs2$12,y$19=rhs2$12; - for(;;) - {if(x$19) - {if(y$19) - {var - y$20=y$19[2], - b$22=y$19[1], - x$20=x$19[2], - a$22=x$19[1], - _xW_=caml_call2(poly_e,a$22,b$22); - if(_xW_){var x$19=x$20,y$19=y$20;continue} - return _xW_}} - else - if(! y$19)return 1; - return 0}} - return _xV_}} - break; - case 24: - if(24 === match[0]) - {var - rhs3$4=match[4], - rhs2$13=match[3], - rhs1$20=match[2], - rhs0$25=match[1], - lhs3$4=lhs[4], - lhs2$13=lhs[3], - lhs1$20=lhs[2], - lhs0$25=lhs[1], - _xX_= - caml_call1 - (caml_call1(caml_call1(equal_precontract,poly_e),lhs0$25), - rhs0$25), - _xY_=_xX_?caml_call2(poly_e,lhs1$20,rhs1$20):_xX_, - _xZ_=_xY_?caml_call2(poly_e,lhs2$13,rhs2$13):_xY_; - return _xZ_?caml_call2(poly_e,lhs3$4,rhs3$4):_xZ_} - break; - default: - if(25 === match[0]) - {var - rhs1$21=match[2], - rhs0$26=match[1], - lhs1$21=lhs[2], - lhs0$26=lhs[1], - x$21=lhs0$26, - y$21=rhs0$26; - for(;;) - {if(x$21) - if(y$21) - {var - y$22=y$21[2], - b$23=y$21[1], - x$22=x$21[2], - a$23=x$21[1], - _x0_=caml_string_equal(a$23,b$23); - if(_x0_){var x$21=x$22,y$21=y$22;continue} - var _x1_=_x0_,switch$19=1} - else - var switch$19=0; - else - if(y$21)var switch$19=0;else var _x1_=1,switch$19=1; - if(! switch$19)var _x1_=0; - return _x1_?caml_call2(poly_e,lhs1$21,rhs1$21):_x1_}}} - return 0}); - function map_expr_f(poly_e,param) - {switch(param[0]) - {case 0:var a0=param[1];return [0,a0]; - case 1: - var a2=param[3],a1=param[2],a0$0=param[1],_wE_=caml_call1(poly_e,a2); - return [1,a0$0,caml_call1(poly_e,a1),_wE_]; - case 2: - var a3=param[4],a2$0=param[3],a1$0=param[2],a0$1=param[1]; - return [2,a0$1,a1$0,a2$0,caml_call1(poly_e,a3)]; - case 3:var a0$2=param[1];return [3,a0$2]; - case 4:var a0$3=param[1];return [4,a0$3]; - case 5: - var a1$1=param[2],a0$4=param[1]; - return [5,a0$4,caml_call1(poly_e,a1$1)]; - case 6: - var - a2$1=param[3], - a1$2=param[2], - a0$5=param[1], - _wF_=caml_call1(poly_e,a2$1); - return [6,a0$5,caml_call1(poly_e,a1$2),_wF_]; - case 7: - var - a3$0=param[4], - a2$2=param[3], - a1$3=param[2], - a0$6=param[1], - _wG_=caml_call1(poly_e,a3$0), - _wH_=caml_call1(poly_e,a2$2); - return [7,a0$6,caml_call1(poly_e,a1$3),_wH_,_wG_]; - case 8: - var a1$4=param[2],a0$7=param[1]; - return [8,a0$7,caml_call1(caml_call1(Stdlib_list[17],poly_e),a1$4)]; - case 9: - var - a0$8=param[1], - _wI_= - function(param) - {var a1=param[2],a0=param[1];return [0,a0,caml_call1(poly_e,a1)]}; - return [9,caml_call1(caml_call1(Utils_Binary_tree[10],_wI_),a0$8)]; - case 10: - var a2$3=param[3],a1$5=param[2],a0$9=param[1]; - return [10,a0$9,a1$5,caml_call1(poly_e,a2$3)]; - case 11: - var a1$6=param[2],a0$10=param[1]; - return [11,a0$10,caml_call1(caml_call1(Stdlib_list[17],poly_e),a1$6)]; - case 12: - var a1$7=param[2],a0$11=param[1]; - return [12,a0$11,caml_call1(caml_call1(Stdlib_list[17],poly_e),a1$7)]; - case 13: - var - a2$4=param[3], - a1$8=param[2], - a0$12=param[1], - _wJ_= - function(param) - {var a1=param[2],a0=param[1],_w2_=caml_call1(poly_e,a1); - return [0,caml_call1(poly_e,a0),_w2_]}; - return [13, - a0$12, - a1$8, - caml_call1(caml_call1(Stdlib_list[17],_wJ_),a2$4)]; - case 14: - var - a2$5=param[3], - a1$9=param[2], - a0$13=param[1], - _wK_=caml_call1(poly_e,a2$5); - return [14,a0$13,caml_call1(poly_e,a1$9),_wK_]; - case 15: - var - a1$10=param[2], - a0$14=param[1], - _wL_=function(_w1_){return map_match_clause(poly_e,_w1_)}, - _wM_=caml_call1(caml_call1(Utils_Binary_tree[10],_wL_),a1$10); - return [15,caml_call1(poly_e,a0$14),_wM_]; - case 16: - var - a2$6=param[3], - a1$11=param[2], - a0$15=param[1], - _wN_=caml_call1(poly_e,a2$6); - return [16,caml_call1(poly_e,a0$15),a1$11,_wN_]; - case 17: - var a0$16=param[1]; - return [17,caml_call1(caml_call1(Stdlib_list[17],poly_e),a0$16)]; - case 18: - var - a2$7=param[3], - a1$12=param[2], - a0$17=param[1], - _wO_=caml_call1(poly_e,a2$7), - _wP_=caml_call1(poly_e,a1$12); - return [18,caml_call1(poly_e,a0$17),_wP_,_wO_]; - case 19: - var - a3$1=param[4], - a2$8=param[3], - a1$13=param[2], - a0$18=param[1], - _wQ_=caml_call1(poly_e,a3$1), - _wR_=caml_call1(poly_e,a2$8); - return [19,caml_call1(poly_e,a0$18),a1$13,_wR_,_wQ_]; - case 20: - var - a4=param[5], - a3$2=param[4], - a2$9=param[3], - a1$14=param[2], - a0$19=param[1], - _wS_=caml_call1(poly_e,a4), - _wT_=caml_call1(poly_e,a2$9); - return [20,caml_call1(poly_e,a0$19),a1$14,_wT_,a3$2,_wS_]; - case 21: - var - a4$0=param[5], - a3$3=param[4], - a2$10=param[3], - a1$15=param[2], - a0$20=param[1], - _wU_=caml_call1(poly_e,a4$0), - _wV_=caml_call1(poly_e,a3$3); - return [21,caml_call1(poly_e,a0$20),a1$15,a2$10,_wV_,_wU_]; - case 22: - var - a2$11=param[3], - a1$16=param[2], - a0$21=param[1], - _wW_=caml_call1(caml_call1(Stdlib_list[17],poly_e),a2$11); - return [22,a0$21,caml_call1(poly_e,a1$16),_wW_]; - case 23: - var - a2$12=param[3], - a1$17=param[2], - a0$22=param[1], - _wX_=caml_call1(caml_call1(Stdlib_list[17],poly_e),a2$12); - return [23,a0$22,caml_call1(poly_e,a1$17),_wX_]; - case 24: - var - a3$4=param[4], - a2$13=param[3], - a1$18=param[2], - a0$23=param[1], - _wY_=caml_call1(poly_e,a3$4), - _wZ_=caml_call1(poly_e,a2$13), - _w0_=caml_call1(poly_e,a1$18); - return [24,map_precontract(poly_e,a0$23),_w0_,_wZ_,_wY_]; - default: - var a1$19=param[2],a0$24=param[1]; - return [25,a0$24,caml_call1(poly_e,a1$19)]}} - function fold_expr_f(poly_e,acc,param) - {switch(param[0]) - {case 0:return acc; - case 1: - var a2=param[3],a1=param[2],acc$0=caml_call2(poly_e,acc,a1); - return caml_call2(poly_e,acc$0,a2); - case 2:var a3=param[4];return caml_call2(poly_e,acc,a3); - case 3:return acc; - case 4:return acc; - case 5:var a1$0=param[2];return caml_call2(poly_e,acc,a1$0); - case 6: - var a2$0=param[3],a1$1=param[2],acc$1=caml_call2(poly_e,acc,a1$1); - return caml_call2(poly_e,acc$1,a2$0); - case 7: - var - a3$0=param[4], - a2$1=param[3], - a1$2=param[2], - acc$2=caml_call2(poly_e,acc,a1$2), - acc$3=caml_call2(poly_e,acc$2,a2$1); - return caml_call2(poly_e,acc$3,a3$0); - case 8: - var a1$3=param[2]; - return caml_call2(caml_call1(Stdlib_list[21],poly_e),acc,a1$3); - case 9: - var - a0=param[1], - _wz_= - function(acc,param) - {var a1=param[2];return caml_call2(poly_e,acc,a1)}; - return caml_call2(caml_call1(Utils_Binary_tree[4],_wz_),acc,a0); - case 10:var a2$2=param[3];return caml_call2(poly_e,acc,a2$2); - case 11: - var a1$4=param[2]; - return caml_call2(caml_call1(Stdlib_list[21],poly_e),acc,a1$4); - case 12: - var a1$5=param[2]; - return caml_call2(caml_call1(Stdlib_list[21],poly_e),acc,a1$5); - case 13: - var - a2$3=param[3], - _wA_= - function(acc,param) - {var a1=param[2],a0=param[1],acc$0=caml_call2(poly_e,acc,a0); - return caml_call2(poly_e,acc$0,a1)}; - return caml_call2(caml_call1(Stdlib_list[21],_wA_),acc,a2$3); - case 14: - var a2$4=param[3],a1$6=param[2],acc$4=caml_call2(poly_e,acc,a1$6); - return caml_call2(poly_e,acc$4,a2$4); - case 15: - var - a1$7=param[2], - a0$0=param[1], - acc$5=caml_call2(poly_e,acc,a0$0), - _wB_=function(_wC_,_wD_){return fold_match_clause(poly_e,_wC_,_wD_)}; - return caml_call2(caml_call1(Utils_Binary_tree[4],_wB_),acc$5,a1$7); - case 16: - var a2$5=param[3],a0$1=param[1],acc$6=caml_call2(poly_e,acc,a0$1); - return caml_call2(poly_e,acc$6,a2$5); - case 17: - var a0$2=param[1]; - return caml_call2(caml_call1(Stdlib_list[21],poly_e),acc,a0$2); - case 18: - var - a2$6=param[3], - a1$8=param[2], - a0$3=param[1], - acc$7=caml_call2(poly_e,acc,a0$3), - acc$8=caml_call2(poly_e,acc$7,a1$8); - return caml_call2(poly_e,acc$8,a2$6); - case 19: - var - a3$1=param[4], - a2$7=param[3], - a0$4=param[1], - acc$9=caml_call2(poly_e,acc,a0$4), - acc$10=caml_call2(poly_e,acc$9,a2$7); - return caml_call2(poly_e,acc$10,a3$1); - case 20: - var - a4=param[5], - a2$8=param[3], - a0$5=param[1], - acc$11=caml_call2(poly_e,acc,a0$5), - acc$12=caml_call2(poly_e,acc$11,a2$8); - return caml_call2(poly_e,acc$12,a4); - case 21: - var - a4$0=param[5], - a3$2=param[4], - a0$6=param[1], - acc$13=caml_call2(poly_e,acc,a0$6), - acc$14=caml_call2(poly_e,acc$13,a3$2); - return caml_call2(poly_e,acc$14,a4$0); - case 22: - var a2$9=param[3],a1$9=param[2],acc$15=caml_call2(poly_e,acc,a1$9); - return caml_call2(caml_call1(Stdlib_list[21],poly_e),acc$15,a2$9); - case 23: - var - a2$10=param[3], - a1$10=param[2], - acc$16=caml_call2(poly_e,acc,a1$10); - return caml_call2(caml_call1(Stdlib_list[21],poly_e),acc$16,a2$10); - case 24: - var - a3$3=param[4], - a2$11=param[3], - a1$11=param[2], - a0$7=param[1], - acc$19=fold_precontract(poly_e,acc,a0$7), - acc$17=caml_call2(poly_e,acc$19,a1$11), - acc$18=caml_call2(poly_e,acc$17,a2$11); - return caml_call2(poly_e,acc$18,a3$3); - default:var a1$12=param[2];return caml_call2(poly_e,acc,a1$12)}} - var - pp_expr_f=function _wy_(_wv_,_ww_,_wx_){return _wy_.fun(_wv_,_ww_,_wx_)}, - show_expr_f=function _wu_(_ws_,_wt_){return _wu_.fun(_ws_,_wt_)}; - caml_update_dummy - (pp_expr_f, - function(poly_e,fmt,param) - {switch(param[0]) - {case 0: - var a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_bR_); - caml_call1(caml_call2(Stdlib_format[123],fmt,_bS_),a0); - return caml_call2(Stdlib_format[123],fmt,_bT_); - case 1: - var a2=param[3],a1=param[2],a0$0=param[1]; - caml_call2(Stdlib_format[123],fmt,_bU_); - caml_call2(Stdlib_format[123],fmt,_bV_); - var - _v2_=0, - _v3_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_bW_); - if(x) - {var x$0=x[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$15); - caml_call1(caml_call2(Stdlib_format[123],fmt,_bX_),x$0); - caml_call2(Stdlib_format[13],fmt,cst$15)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$14); - return 1}; - caml_call3(Stdlib_list[21],_v3_,_v2_,a0$0); - caml_call2(Stdlib_format[123],fmt,_bY_); - caml_call2(Stdlib_format[123],fmt,_bZ_); - caml_call1(caml_call1(poly_e,fmt),a1); - caml_call2(Stdlib_format[123],fmt,_b0_); - caml_call1(caml_call1(poly_e,fmt),a2); - return caml_call2(Stdlib_format[123],fmt,_b1_); - case 2: - var a3=param[4],a2$0=param[3],a1$0=param[2],a0$1=param[1]; - caml_call2(Stdlib_format[123],fmt,_b2_); - if(a0$1) - {var x=a0$1[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$16); - caml_call1(caml_call2(Stdlib_format[123],fmt,_b3_),x); - caml_call2(Stdlib_format[13],fmt,cst$16)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$15); - caml_call2(Stdlib_format[123],fmt,_b4_); - caml_call1(caml_call1(pp_ty,fmt),a1$0); - caml_call2(Stdlib_format[123],fmt,_b5_); - caml_call1(caml_call1(pp_ty,fmt),a2$0); - caml_call2(Stdlib_format[123],fmt,_b6_); - caml_call1(caml_call1(poly_e,fmt),a3); - return caml_call2(Stdlib_format[123],fmt,_b7_); - case 3: - var a0$2=param[1]; - caml_call2(Stdlib_format[123],fmt,_b8_); - caml_call1(caml_call1(pp_lit,fmt),a0$2); - return caml_call2(Stdlib_format[123],fmt,_b9_); - case 4: - var a0$3=param[1]; - caml_call2(Stdlib_format[123],fmt,_b__); - caml_call1(caml_call1(pp_prim0,fmt),a0$3); - return caml_call2(Stdlib_format[123],fmt,_b$_); - case 5: - var a1$1=param[2],a0$4=param[1]; - caml_call2(Stdlib_format[123],fmt,_ca_); - caml_call1(caml_call1(pp_prim1,fmt),a0$4); - caml_call2(Stdlib_format[123],fmt,_cb_); - caml_call1(caml_call1(poly_e,fmt),a1$1); - return caml_call2(Stdlib_format[123],fmt,_cc_); - case 6: - var a2$1=param[3],a1$2=param[2],a0$5=param[1]; - caml_call2(Stdlib_format[123],fmt,_cd_); - pp_prim2(fmt,a0$5); - caml_call2(Stdlib_format[123],fmt,_ce_); - caml_call1(caml_call1(poly_e,fmt),a1$2); - caml_call2(Stdlib_format[123],fmt,_cf_); - caml_call1(caml_call1(poly_e,fmt),a2$1); - return caml_call2(Stdlib_format[123],fmt,_cg_); - case 7: - var a3$0=param[4],a2$2=param[3],a1$3=param[2],a0$6=param[1]; - caml_call2(Stdlib_format[123],fmt,_ch_); - pp_prim3(fmt,a0$6); - caml_call2(Stdlib_format[123],fmt,_ci_); - caml_call1(caml_call1(poly_e,fmt),a1$3); - caml_call2(Stdlib_format[123],fmt,_cj_); - caml_call1(caml_call1(poly_e,fmt),a2$2); - caml_call2(Stdlib_format[123],fmt,_ck_); - caml_call1(caml_call1(poly_e,fmt),a3$0); - return caml_call2(Stdlib_format[123],fmt,_cl_); - case 8: - var a1$4=param[2],a0$7=param[1]; - caml_call2(Stdlib_format[123],fmt,_cm_); - pp_stack_op(fmt,a0$7); - caml_call2(Stdlib_format[123],fmt,_cn_); - caml_call2(Stdlib_format[123],fmt,_co_); - var - _v4_=0, - _v5_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_cp_); - caml_call1(caml_call1(poly_e,fmt),x); - return 1}; - caml_call3(Stdlib_list[21],_v5_,_v4_,a1$4); - caml_call2(Stdlib_format[123],fmt,_cq_); - return caml_call2(Stdlib_format[123],fmt,_cr_); - case 9: - var a0$8=param[1]; - caml_call2(Stdlib_format[123],fmt,_cs_); - var - _v6_= - function(fmt,param) - {var a1=param[2],a0=param[1]; - caml_call2(Stdlib_format[123],fmt,_ct_); - if(a0) - {var x=a0[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$17); - caml_call1(caml_call2(Stdlib_format[123],fmt,_cu_),x); - caml_call2(Stdlib_format[13],fmt,cst$17)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$16); - caml_call2(Stdlib_format[123],fmt,_cv_); - caml_call1(caml_call1(poly_e,fmt),a1); - return caml_call2(Stdlib_format[123],fmt,_cw_)}; - caml_call1(caml_call2(Utils_Binary_tree[2],_v6_,fmt),a0$8); - return caml_call2(Stdlib_format[123],fmt,_cx_); - case 10: - var a2$3=param[3],a1$5=param[2],a0$9=param[1]; - caml_call2(Stdlib_format[123],fmt,_cy_); - if(a0$9) - {var x$0=a0$9[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$18); - caml_call1(caml_call2(Stdlib_format[123],fmt,_cz_),x$0); - caml_call2(Stdlib_format[13],fmt,cst$18)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$17); - caml_call2(Stdlib_format[123],fmt,_cA_); - caml_call1(caml_call1(pp_row_context,fmt),a1$5); - caml_call2(Stdlib_format[123],fmt,_cB_); - caml_call1(caml_call1(poly_e,fmt),a2$3); - return caml_call2(Stdlib_format[123],fmt,_cC_); - case 11: - var a1$6=param[2],a0$10=param[1]; - caml_call2(Stdlib_format[123],fmt,_cD_); - caml_call1(caml_call1(pp_ty,fmt),a0$10); - caml_call2(Stdlib_format[123],fmt,_cE_); - caml_call2(Stdlib_format[123],fmt,_cF_); - var - _v7_=0, - _v8_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_cG_); - caml_call1(caml_call1(poly_e,fmt),x); - return 1}; - caml_call3(Stdlib_list[21],_v8_,_v7_,a1$6); - caml_call2(Stdlib_format[123],fmt,_cH_); - return caml_call2(Stdlib_format[123],fmt,_cI_); - case 12: - var a1$7=param[2],a0$11=param[1]; - caml_call2(Stdlib_format[123],fmt,_cJ_); - caml_call1(caml_call1(pp_ty,fmt),a0$11); - caml_call2(Stdlib_format[123],fmt,_cK_); - caml_call2(Stdlib_format[123],fmt,_cL_); - var - _v9_=0, - _v__= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_cM_); - caml_call1(caml_call1(poly_e,fmt),x); - return 1}; - caml_call3(Stdlib_list[21],_v__,_v9_,a1$7); - caml_call2(Stdlib_format[123],fmt,_cN_); - return caml_call2(Stdlib_format[123],fmt,_cO_); - case 13: - var a2$4=param[3],a1$8=param[2],a0$12=param[1]; - caml_call2(Stdlib_format[123],fmt,_cP_); - caml_call1(caml_call1(pp_ty,fmt),a0$12); - caml_call2(Stdlib_format[123],fmt,_cQ_); - caml_call1(caml_call1(pp_ty,fmt),a1$8); - caml_call2(Stdlib_format[123],fmt,_cR_); - caml_call2(Stdlib_format[123],fmt,_cS_); - var - _v$_=0, - _wa_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_cT_); - var a1=x[2],a0=x[1]; - caml_call2(Stdlib_format[123],fmt,_cU_); - caml_call1(caml_call1(poly_e,fmt),a0); - caml_call2(Stdlib_format[123],fmt,_cV_); - caml_call1(caml_call1(poly_e,fmt),a1); - caml_call2(Stdlib_format[123],fmt,_cW_); - return 1}; - caml_call3(Stdlib_list[21],_wa_,_v$_,a2$4); - caml_call2(Stdlib_format[123],fmt,_cX_); - return caml_call2(Stdlib_format[123],fmt,_cY_); - case 14: - var a2$5=param[3],a1$9=param[2],a0$13=param[1]; - caml_call2(Stdlib_format[123],fmt,_cZ_); - caml_call1(caml_call1(pp_record_pattern,fmt),a0$13); - caml_call2(Stdlib_format[123],fmt,_c0_); - caml_call1(caml_call1(poly_e,fmt),a1$9); - caml_call2(Stdlib_format[123],fmt,_c1_); - caml_call1(caml_call1(poly_e,fmt),a2$5); - return caml_call2(Stdlib_format[123],fmt,_c2_); - case 15: - var a1$10=param[2],a0$14=param[1]; - caml_call2(Stdlib_format[123],fmt,_c3_); - caml_call1(caml_call1(poly_e,fmt),a0$14); - caml_call2(Stdlib_format[123],fmt,_c4_); - var - _wb_= - function(fmt) - {function _wq_(fmt){return caml_call1(poly_e,fmt)} - return function(_wr_){return pp_match_clause(_wq_,fmt,_wr_)}}; - caml_call1(caml_call2(Utils_Binary_tree[2],_wb_,fmt),a1$10); - return caml_call2(Stdlib_format[123],fmt,_c5_); - case 16: - var a2$6=param[3],a1$11=param[2],a0$15=param[1]; - caml_call2(Stdlib_format[123],fmt,_c6_); - caml_call1(caml_call1(poly_e,fmt),a0$15); - caml_call2(Stdlib_format[123],fmt,_c7_); - caml_call2(Stdlib_format[123],fmt,_c8_); - var - _wc_=0, - _wd_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_c9_); - if(x) - {var x$0=x[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$19); - caml_call1(caml_call2(Stdlib_format[123],fmt,_c__),x$0); - caml_call2(Stdlib_format[13],fmt,cst$19)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$18); - return 1}; - caml_call3(Stdlib_list[21],_wd_,_wc_,a1$11); - caml_call2(Stdlib_format[123],fmt,_c$_); - caml_call2(Stdlib_format[123],fmt,_da_); - caml_call1(caml_call1(poly_e,fmt),a2$6); - return caml_call2(Stdlib_format[123],fmt,_db_); - case 17: - var a0$16=param[1]; - caml_call2(Stdlib_format[123],fmt,_dc_); - caml_call2(Stdlib_format[123],fmt,_dd_); - var - _we_=0, - _wf_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_de_); - caml_call1(caml_call1(poly_e,fmt),x); - return 1}; - caml_call3(Stdlib_list[21],_wf_,_we_,a0$16); - caml_call2(Stdlib_format[123],fmt,_df_); - return caml_call2(Stdlib_format[123],fmt,_dg_); - case 18: - var a2$7=param[3],a1$12=param[2],a0$17=param[1]; - caml_call2(Stdlib_format[123],fmt,_dh_); - caml_call1(caml_call1(poly_e,fmt),a0$17); - caml_call2(Stdlib_format[123],fmt,_di_); - caml_call1(caml_call1(poly_e,fmt),a1$12); - caml_call2(Stdlib_format[123],fmt,_dj_); - caml_call1(caml_call1(poly_e,fmt),a2$7); - return caml_call2(Stdlib_format[123],fmt,_dk_); - case 19: - var a3$1=param[4],a2$8=param[3],a1$13=param[2],a0$18=param[1]; - caml_call2(Stdlib_format[123],fmt,_dl_); - caml_call1(caml_call1(poly_e,fmt),a0$18); - caml_call2(Stdlib_format[123],fmt,_dm_); - if(a1$13) - {var x$1=a1$13[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$20); - caml_call1(caml_call2(Stdlib_format[123],fmt,_dn_),x$1); - caml_call2(Stdlib_format[13],fmt,cst$20)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$19); - caml_call2(Stdlib_format[123],fmt,_do_); - caml_call1(caml_call1(poly_e,fmt),a2$8); - caml_call2(Stdlib_format[123],fmt,_dp_); - caml_call1(caml_call1(poly_e,fmt),a3$1); - return caml_call2(Stdlib_format[123],fmt,_dq_); - case 20: - var - a4=param[5], - a3$2=param[4], - a2$9=param[3], - a1$14=param[2], - a0$19=param[1]; - caml_call2(Stdlib_format[123],fmt,_dr_); - caml_call1(caml_call1(poly_e,fmt),a0$19); - caml_call2(Stdlib_format[123],fmt,_ds_); - if(a1$14) - {var x$2=a1$14[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$21); - caml_call1(caml_call2(Stdlib_format[123],fmt,_dt_),x$2); - caml_call2(Stdlib_format[13],fmt,cst$21)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$20); - caml_call2(Stdlib_format[123],fmt,_du_); - caml_call1(caml_call1(poly_e,fmt),a2$9); - caml_call2(Stdlib_format[123],fmt,_dv_); - if(a3$2) - {var x$3=a3$2[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$22); - caml_call1(caml_call2(Stdlib_format[123],fmt,_dw_),x$3); - caml_call2(Stdlib_format[13],fmt,cst$22)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$21); - caml_call2(Stdlib_format[123],fmt,_dx_); - caml_call1(caml_call1(poly_e,fmt),a4); - return caml_call2(Stdlib_format[123],fmt,_dy_); - case 21: - var - a4$0=param[5], - a3$3=param[4], - a2$10=param[3], - a1$15=param[2], - a0$20=param[1]; - caml_call2(Stdlib_format[123],fmt,_dz_); - caml_call1(caml_call1(poly_e,fmt),a0$20); - caml_call2(Stdlib_format[123],fmt,_dA_); - if(a1$15) - {var x$4=a1$15[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$23); - caml_call1(caml_call2(Stdlib_format[123],fmt,_dB_),x$4); - caml_call2(Stdlib_format[13],fmt,cst$23)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$22); - caml_call2(Stdlib_format[123],fmt,_dC_); - if(a2$10) - {var x$5=a2$10[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$24); - caml_call1(caml_call2(Stdlib_format[123],fmt,_dD_),x$5); - caml_call2(Stdlib_format[13],fmt,cst$24)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$23); - caml_call2(Stdlib_format[123],fmt,_dE_); - caml_call1(caml_call1(poly_e,fmt),a3$3); - caml_call2(Stdlib_format[123],fmt,_dF_); - caml_call1(caml_call1(poly_e,fmt),a4$0); - return caml_call2(Stdlib_format[123],fmt,_dG_); - case 22: - var a2$11=param[3],a1$16=param[2],a0$21=param[1]; - caml_call2(Stdlib_format[123],fmt,_dH_); - caml_call2(Stdlib_format[123],fmt,_dI_); - var - _wg_=0, - _wh_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_dJ_); - if(x) - {var x$0=x[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$25); - caml_call1(caml_call2(Stdlib_format[123],fmt,_dK_),x$0); - caml_call2(Stdlib_format[13],fmt,cst$25)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$24); - return 1}; - caml_call3(Stdlib_list[21],_wh_,_wg_,a0$21); - caml_call2(Stdlib_format[123],fmt,_dL_); - caml_call2(Stdlib_format[123],fmt,_dM_); - caml_call1(caml_call1(poly_e,fmt),a1$16); - caml_call2(Stdlib_format[123],fmt,_dN_); - caml_call2(Stdlib_format[123],fmt,_dO_); - var - _wi_=0, - _wj_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_dP_); - caml_call1(caml_call1(poly_e,fmt),x); - return 1}; - caml_call3(Stdlib_list[21],_wj_,_wi_,a2$11); - caml_call2(Stdlib_format[123],fmt,_dQ_); - return caml_call2(Stdlib_format[123],fmt,_dR_); - case 23: - var a2$12=param[3],a1$17=param[2],a0$22=param[1]; - caml_call2(Stdlib_format[123],fmt,_dS_); - caml_call2(Stdlib_format[123],fmt,_dT_); - var - _wk_=0, - _wl_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_dU_); - if(x) - {var x$0=x[1]; - caml_call2(Stdlib_format[13],fmt,cst_Some$26); - caml_call1(caml_call2(Stdlib_format[123],fmt,_dV_),x$0); - caml_call2(Stdlib_format[13],fmt,cst$26)} - else - caml_call2(Stdlib_format[13],fmt,cst_None$25); - return 1}; - caml_call3(Stdlib_list[21],_wl_,_wk_,a0$22); - caml_call2(Stdlib_format[123],fmt,_dW_); - caml_call2(Stdlib_format[123],fmt,_dX_); - caml_call1(caml_call1(poly_e,fmt),a1$17); - caml_call2(Stdlib_format[123],fmt,_dY_); - caml_call2(Stdlib_format[123],fmt,_dZ_); - var - _wm_=0, - _wn_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_d0_); - caml_call1(caml_call1(poly_e,fmt),x); - return 1}; - caml_call3(Stdlib_list[21],_wn_,_wm_,a2$12); - caml_call2(Stdlib_format[123],fmt,_d1_); - return caml_call2(Stdlib_format[123],fmt,_d2_); - case 24: - var a3$4=param[4],a2$13=param[3],a1$18=param[2],a0$23=param[1]; - caml_call2(Stdlib_format[123],fmt,_d3_); - caml_call1 - (caml_call2 - (pp_precontract, - function(fmt){return caml_call1(poly_e,fmt)}, - fmt), - a0$23); - caml_call2(Stdlib_format[123],fmt,_d4_); - caml_call1(caml_call1(poly_e,fmt),a1$18); - caml_call2(Stdlib_format[123],fmt,_d5_); - caml_call1(caml_call1(poly_e,fmt),a2$13); - caml_call2(Stdlib_format[123],fmt,_d6_); - caml_call1(caml_call1(poly_e,fmt),a3$4); - return caml_call2(Stdlib_format[123],fmt,_d7_); - default: - var a1$19=param[2],a0$24=param[1]; - caml_call2(Stdlib_format[123],fmt,_d8_); - caml_call2(Stdlib_format[123],fmt,_d9_); - var - _wo_=0, - _wp_= - function(sep,x) - {if(sep)caml_call2(Stdlib_format[123],fmt,_d__); - caml_call1(caml_call2(Stdlib_format[123],fmt,_d$_),x); - return 1}; - caml_call3(Stdlib_list[21],_wp_,_wo_,a0$24); - caml_call2(Stdlib_format[123],fmt,_ea_); - caml_call2(Stdlib_format[123],fmt,_eb_); - caml_call1(caml_call1(poly_e,fmt),a1$19); - return caml_call2(Stdlib_format[123],fmt,_ec_)}}); - caml_update_dummy - (show_expr_f, - function(poly_e,x) - {var _v1_=caml_call1(pp_expr_f,poly_e); - return caml_call3(Stdlib_format[127],_ed_,_v1_,x)}); - function equal_expr_f$0(eq,x,match) - {if(1 === x[0]) - if(1 === match[0]) - {var - e2=match[3], - e1=match[2], - xs=match[1], - e2$0=x[3], - e1$0=x[2], - xs$0=x[1], - _vX_=caml_call1(Utils_Option[10],Utils_String[33]), - _vY_=caml_call3(Utils_List[1],_vX_,xs$0,xs); - if(_vY_) - {var _vZ_=caml_call2(eq,e1$0,e1); - if(_vZ_)return caml_call2(eq,e2$0,e2); - var _v0_=_vZ_} - else - var _v0_=_vY_; - return _v0_} - return caml_call3(equal_expr_f,eq,x,match)} - var equal_texpr=function _vW_(_vU_,_vV_){return _vW_.fun(_vU_,_vV_)}; - caml_update_dummy - (equal_texpr, - function(lhs,rhs) - {var - _vQ_=rhs[1], - _vR_=lhs[1], - _vT_= - equal_expr_f$0 - (function(x){return caml_call1(equal_texpr,x)},_vR_,_vQ_); - if(_vT_) - {var _vS_=rhs[2]; - return caml_call1(caml_call1(equal_tys,lhs[2]),_vS_)} - return _vT_}); - var - pp_texpr=function _vP_(_vN_,_vO_){return _vP_.fun(_vN_,_vO_)}, - show_texpr=function _vM_(_vL_){return _vM_.fun(_vL_)}; - caml_update_dummy - (pp_texpr, - function(fmt,x) - {caml_call2(Stdlib_format[123],fmt,_ee_); - caml_call3(Stdlib_format[123],fmt,_ef_,cst_texpr); - var _vJ_=x[1]; - caml_call1 - (caml_call2 - (pp_expr_f,function(fmt){return caml_call1(pp_texpr,fmt)},fmt), - _vJ_); - caml_call2(Stdlib_format[123],fmt,_eg_); - caml_call2(Stdlib_format[123],fmt,_eh_); - caml_call3(Stdlib_format[123],fmt,_ei_,cst_tys); - var _vK_=x[2]; - caml_call1(caml_call1(pp_tys,fmt),_vK_); - caml_call2(Stdlib_format[123],fmt,_ej_); - return caml_call2(Stdlib_format[123],fmt,_ek_)}); - caml_update_dummy - (show_texpr, - function(x){return caml_call3(Stdlib_format[127],_el_,pp_texpr,x)}); - var equal_expr=function _vI_(_vG_,_vH_){return _vI_.fun(_vG_,_vH_)}; - caml_update_dummy - (equal_expr, - function(lhs,rhs) - {var _vE_=rhs[1],_vF_=lhs[1]; - return equal_expr_f$0 - (function(x){return caml_call1(equal_expr,x)},_vF_,_vE_)}); - var - pp_expr=function _vD_(_vB_,_vC_){return _vD_.fun(_vB_,_vC_)}, - show_expr=function _vA_(_vz_){return _vA_.fun(_vz_)}; - caml_update_dummy - (pp_expr, - function(fmt,x) - {caml_call2(Stdlib_format[123],fmt,_em_); - caml_call3(Stdlib_format[123],fmt,_en_,cst_expr); - var _vy_=x[1]; - caml_call1 - (caml_call2 - (pp_expr_f,function(fmt){return caml_call1(pp_expr,fmt)},fmt), - _vy_); - caml_call2(Stdlib_format[123],fmt,_eo_); - return caml_call2(Stdlib_format[123],fmt,_ep_)}); - caml_update_dummy - (show_expr, - function(x){return caml_call3(Stdlib_format[127],_eq_,pp_expr,x)}); - var - equal_checked_precontract= - function _vx_(_vv_,_vw_){return _vx_.fun(_vv_,_vw_)}; - caml_update_dummy - (equal_checked_precontract, - function(lhs,rhs) - {var _vt_=rhs[1],_vu_=lhs[1]; - return caml_call1 - (caml_call1 - (caml_call1 - (equal_precontract, - function(x){return caml_call1(equal_texpr,x)}), - _vu_), - _vt_)}); - function Traversable(A) - {var - BT=caml_call1(Utils_Binary_tree[50],A), - open=caml_call1(Utils_Control[7],[0,A[3],A[1],A[2]]), - return$0=open[1], - symbol=open[4], - let$0=open[5], - and=open[6], - symbol$0=open[8], - mapA_list=open[11], - sequenceA_list=open[15]; - function sequenceA(e) - {switch(e[0]) - {case 0:return caml_call1(return$0,e); - case 1: - var - e2=e[3], - e1=e[2], - rp=e[1], - _u9_= - function(param){var e2=param[2],e1=param[1];return [1,rp,e1,e2]}; - return caml_call2(let$0,caml_call2(and,e1,e2),_u9_); - case 2: - var e$0=e[4],b=e[3],a=e[2],rp$0=e[1]; - return caml_call2(let$0,e$0,function(e){return [2,rp$0,a,b,e]}); - case 3:return caml_call1(return$0,e); - case 4:var p=e[1];return caml_call1(return$0,[4,p]); - case 5: - var e1$0=e[2],p$0=e[1]; - return caml_call2(let$0,e1$0,function(e1){return [5,p$0,e1]}); - case 6: - var - e2$0=e[3], - e1$1=e[2], - p$1=e[1], - _u__= - function(param){var e2=param[2],e1=param[1];return [6,p$1,e1,e2]}; - return caml_call2(let$0,caml_call2(and,e1$1,e2$0),_u__); - case 7: - var - e3=e[4], - e2$1=e[3], - e1$2=e[2], - p$2=e[1], - _u$_= - function(param) - {var e3=param[2],match=param[1],e2=match[2],e1=match[1]; - return [7,p$2,e1,e2,e3]}; - return caml_call2 - (let$0,caml_call2(and,caml_call2(and,e1$2,e2$1),e3),_u$_); - case 8: - var xs=e[2],op=e[1],_va_=function(xs){return [8,op,xs]}; - return caml_call2(let$0,caml_call1(sequenceA_list,xs),_va_); - case 9: - var - r=e[1], - _vb_=function(r){return [9,r]}, - _vc_= - function(param) - {var y=param[2],x=param[1]; - return caml_call2(symbol,caml_call1(Utils_Control[2],x),y)}; - return caml_call2(let$0,caml_call2(BT[1],_vc_,r),_vb_); - case 10: - var e$1=e[3],rc=e[2],lbl=e[1]; - return caml_call2(let$0,e$1,function(e){return [10,lbl,rc,e]}); - case 11: - var es=e[2],ty=e[1],_vd_=function(es){return [11,ty,es]}; - return caml_call2(let$0,caml_call1(sequenceA_list,es),_vd_); - case 12: - var es$0=e[2],ty$0=e[1],_ve_=function(es){return [12,ty$0,es]}; - return caml_call2(let$0,caml_call1(sequenceA_list,es$0),_ve_); - case 13: - var - xs$0=e[3], - ty2=e[2], - ty1=e[1], - _vf_=function(xs){return [13,ty1,ty2,xs]}; - return caml_call2 - (let$0, - caml_call2 - (mapA_list, - function(param) - {var y=param[2],x=param[1]; - return caml_call2 - (symbol$0,caml_call2(symbol,Utils_Control[2],x),y)}, - xs$0), - _vf_); - case 14: - var - e2$2=e[3], - e1$3=e[2], - rp$1=e[1], - _vg_= - function(param) - {var e2=param[2],e1=param[1];return [14,rp$1,e1,e2]}; - return caml_call2(let$0,caml_call2(and,e1$3,e2$2),_vg_); - case 15: - var - clauses=e[2], - e$2=e[1], - _vh_= - function(param) - {var clauses=param[2],e=param[1];return [15,e,clauses]}, - _vi_= - function(param) - {var rhs=param[3],var$0=param[2],cons=param[1]; - return caml_call2 - (let$0,rhs,function(rhs){return [0,cons,var$0,rhs]})}; - return caml_call2 - (let$0, - caml_call2(and,e$2,caml_call2(BT[1],_vi_,clauses)), - _vh_); - case 16: - var - step=e[3], - xs$1=e[2], - init=e[1], - _vj_= - function(param) - {var step=param[2],init=param[1];return [16,init,xs$1,step]}; - return caml_call2(let$0,caml_call2(and,init,step),_vj_); - case 17: - var es$1=e[1],_vk_=function(es){return [17,es]}; - return caml_call2(let$0,caml_call1(sequenceA_list,es$1),_vk_); - case 18: - var - e3$0=e[3], - e2$3=e[2], - e1$4=e[1], - _vl_= - function(param) - {var e3=param[2],match=param[1],e2=match[2],e1=match[1]; - return [18,e1,e2,e3]}; - return caml_call2 - (let$0,caml_call2(and,caml_call2(and,e1$4,e2$3),e3$0),_vl_); - case 19: - var - e3$1=e[4], - e2$4=e[3], - x=e[2], - e1$5=e[1], - _vm_= - function(param) - {var e3=param[2],match=param[1],e2=match[2],e1=match[1]; - return [19,e1,x,e2,e3]}; - return caml_call2 - (let$0,caml_call2(and,caml_call2(and,e1$5,e2$4),e3$1),_vm_); - case 20: - var - e3$2=e[5], - x3=e[4], - e2$5=e[3], - x2=e[2], - e1$6=e[1], - _vn_= - function(param) - {var e3=param[2],match=param[1],e2=match[2],e1=match[1]; - return [20,e1,x2,e2,x3,e3]}; - return caml_call2 - (let$0,caml_call2(and,caml_call2(and,e1$6,e2$5),e3$2),_vn_); - case 21: - var - e3$3=e[5], - e2$6=e[4], - x2$0=e[3], - x1=e[2], - e1$7=e[1], - _vo_= - function(param) - {var e3=param[2],match=param[1],e2=match[2],e1=match[1]; - return [21,e1,x1,x2$0,e2,e3]}; - return caml_call2 - (let$0,caml_call2(and,caml_call2(and,e1$7,e2$6),e3$3),_vo_); - case 22: - var - e2$7=e[3], - e1$8=e[2], - xs$2=e[1], - _vp_= - function(param) - {var e2=param[2],e1=param[1];return [22,xs$2,e1,e2]}; - return caml_call2 - (let$0, - caml_call2(and,e1$8,caml_call1(sequenceA_list,e2$7)), - _vp_); - case 23: - var - e2$8=e[3], - e1$9=e[2], - xs$3=e[1], - _vq_= - function(param) - {var e2=param[2],e1=param[1];return [23,xs$3,e1,e2]}; - return caml_call2 - (let$0, - caml_call2(and,e1$9,caml_call1(sequenceA_list,e2$8)), - _vq_); - case 24: - var - e3$4=e[4], - e2$9=e[3], - e1$10=e[2], - match=e[1], - body=match[4], - parameter_and_storage=match[3], - tstorage=match[2], - tparameter=match[1], - _vr_= - function(param) - {var - e3=param[2], - _vs_=param[1], - e2=_vs_[2], - match=_vs_[1], - e1=match[2], - body=match[1]; - return [24, - [0,tparameter,tstorage,parameter_and_storage,body], - e1, - e2, - e3]}; - return caml_call2 - (let$0, - caml_call2 - (and,caml_call2(and,caml_call2(and,body,e1$10),e2$9),e3$4), - _vr_); - default: - var e$3=e[2],c=e[1]; - return caml_call2(let$0,e$3,function(e){return [25,c,e]})}} - return [0,BT,sequenceA]} - function cata_expr(f,param) - {var expr=param[1]; - return caml_call1 - (f,map_expr_f(function(_u8_){return cata_expr(f,_u8_)},expr))} - function _er_(f,param) - {var expr=param[1]; - return [0, - [0,expr], - caml_call1 - (f,map_expr_f(function(_u7_){return _er_(f,_u7_)},expr))]} - function para_expr(f,e){return _er_(f,e)[2]} - function _es_(f,param) - {var tys=param[2],texpr=param[1]; - return [0, - caml_call2 - (f,map_expr_f(function(_u6_){return _es_(f,_u6_)},texpr),tys), - tys]} - function cata_texpr(f,x){return _es_(f,x)[1]} - function _et_(f,param) - {var tys=param[2],texpr=param[1]; - return [0, - [0,texpr,tys], - caml_call1 - (f,map_expr_f(function(_u5_){return _et_(f,_u5_)},texpr))]} - function para_texpr(f,e){return _et_(f,e)[2]} - function erase_types(x) - {return cata_texpr - (function(e,param) - {return [0,map_expr_f(function(_u4_){return _u4_[1]},e)]}, - x)} - function print_var(ppf,param) - {if(param) - {var x=param[1];return caml_call3(Stdlib_format[123],ppf,_eG_,x)} - return caml_call2(Stdlib_format[123],ppf,_eH_)} - var - _eJ_= - [0,function(ppf,param){return caml_call2(Stdlib_format[123],ppf,_eI_)}], - print_vars=caml_call2(Stdlib_format[119],_eJ_,print_var); - function f(protect,ppf,param) - {if(0 === param[0]) - {var x=param[1]; - return caml_call4(Stdlib_format[123],ppf,_eK_,print_var,x)} - var r2=param[2],r1=param[1]; - function r(ppf) - {var _uW_=0; - function _uX_(_u2_,_u3_){return f(_uW_,_u2_,_u3_)} - var _uY_=1; - function _uZ_(_u0_,_u1_){return f(_uY_,_u0_,_u1_)} - return caml_call6(Stdlib_format[123],ppf,_eL_,_uZ_,r1,_uX_,r2)} - return protect - ?caml_call3(Stdlib_format[123],ppf,_eM_,r) - :caml_call3(Stdlib_format[123],ppf,_eN_,r)} - var _eO_=0; - function print_record_pattern(_uU_,_uV_){return f(_eO_,_uU_,_uV_)} - function print_rowish(pre,post,ppf,param) - {if(0 === param[0]){var x=param[1];return caml_call1(x,ppf)} - var r2=param[2],r1=param[1]; - function pr(_uS_,_uT_){return print_rowish(cst$28,cst$27,_uS_,_uT_)} - function prp(_uQ_,_uR_){return print_rowish(cst$30,cst$29,_uQ_,_uR_)} - return caml_call8(Stdlib_format[123],ppf,_eP_,pre,prp,r1,pr,r2,post)} - function print_row_context(pre,post,ppf) - {function pr(_uO_,_uP_){return print_rowish(cst$32,cst$31,_uO_,_uP_)} - function prc(_uN_){return print_row_context(cst$34,cst$33,_uN_)} - function prp(_uL_,_uM_){return print_rowish(cst$36,cst$35,_uL_,_uM_)} - function prcp(_uK_){return print_row_context(cst$38,cst$37,_uK_)} - return function(param) - {if(typeof param === "number") - return caml_call2(Stdlib_format[123],ppf,_eQ_); - else - {if(0 === param[0]) - {var t=param[2],c=param[1]; - return caml_call8 - (Stdlib_format[123],ppf,_eR_,pre,prcp,c,pr,t,post)} - var c$0=param[2],t$0=param[1]; - return caml_call8 - (Stdlib_format[123],ppf,_eS_,pre,prp,t$0,prc,c$0,post)}}} - function print_vector(es,ppf) - {function pp_sep(ppf,param) - {return caml_call2(Stdlib_format[123],ppf,_eT_)} - caml_call2(Stdlib_format[123],ppf,_eU_); - function _uJ_(ppf,f){return caml_call1(f,ppf)} - caml_call4(Stdlib_format[119],[0,pp_sep],_uJ_,ppf,es); - return caml_call2(Stdlib_format[123],ppf,_eV_)} - function print_precontract(pp$0,ppf,param) - {var - body=param[4], - parameter_and_storage=param[3], - tstorage=param[2], - tparameter=param[1]; - caml_call2(Stdlib_format[123],ppf,_eW_); - caml_call4(Stdlib_format[123],ppf,_eX_,pp,tparameter); - caml_call4(Stdlib_format[123],ppf,_eY_,pp,tstorage); - caml_call6 - (Stdlib_format[123],ppf,_eZ_,print_var,parameter_and_storage,pp$0,body); - return caml_call2(Stdlib_format[123],ppf,_e0_)} - function print_expr_f(e,ppf) - {switch(e[0]) - {case 0: - var s$5=e[1];return caml_call3(Stdlib_format[123],ppf,_e1_,s$5); - case 1: - var e2=e[3],e1=e[2],vs=e[1]; - return caml_call6(Stdlib_format[123],ppf,_e2_,print_vars,vs,e1,e2); - case 2: - var e$0=e[4],b=e[3],a=e[2],rp=e[1]; - return caml_call9 - (Stdlib_format[123],ppf,_e3_,print_var,rp,pp,a,pp,b,e$0); - case 3: - var l=e[1]; - if(typeof l === "number") - switch(l) - {case 0:return caml_call2(Stdlib_format[123],ppf,_eu_); - case 1:return caml_call2(Stdlib_format[123],ppf,_ev_); - default:return caml_call2(Stdlib_format[123],ppf,_ew_)} - else - switch(l[0]) - {case 0: - var i=l[1]; - return caml_call4(Stdlib_format[123],ppf,_ex_,Utils_Bigint[3],i); - case 1: - var i$0=l[1]; - return caml_call4 - (Stdlib_format[123],ppf,_ey_,Utils_Bigint[3],i$0); - case 2: - var i$1=l[1]; - return caml_call4 - (Stdlib_format[123],ppf,_ez_,Utils_Bigint[3],i$1); - case 3: - var s=l[1];return caml_call3(Stdlib_format[123],ppf,_eA_,s); - case 4: - var s$0=l[1];return caml_call3(Stdlib_format[123],ppf,_eB_,s$0); - case 5: - var s$1=l[1];return caml_call3(Stdlib_format[123],ppf,_eC_,s$1); - case 6: - var s$2=l[1];return caml_call3(Stdlib_format[123],ppf,_eD_,s$2); - case 7: - var s$3=l[1];return caml_call3(Stdlib_format[123],ppf,_eE_,s$3); - default: - var s$4=l[1];return caml_call3(Stdlib_format[123],ppf,_eF_,s$4)} - case 4: - var op=e[1]; - return caml_call4(Stdlib_format[123],ppf,_e4_,pp_prim0,op); - case 5: - var _uk_=e[1]; - if(typeof _uk_ !== "number") - switch(_uk_[0]) - {case 0: - var e$2=e[2],fld=_uk_[1]; - return caml_call4(Stdlib_format[123],ppf,_e6_,e$2,fld); - case 3: - var _ul_=_uk_[1]; - if(_ul_) - {var e$3=e[2],t=_uk_[2],ep=_ul_[1]; - return caml_call6(Stdlib_format[123],ppf,_e7_,e$3,ep,pp,t)} - var e$4=e[2],t$0=_uk_[2]; - return caml_call5(Stdlib_format[123],ppf,_e8_,e$4,pp,t$0) - } - var e$1=e[2]; - return caml_call5(Stdlib_format[123],ppf,_e5_,pp_prim1,_uk_,e$1); - case 6: - var e2$0=e[3],e1$0=e[2],op$0=e[1]; - return caml_call6 - (Stdlib_format[123],ppf,_e9_,pp_prim2,op$0,e1$0,e2$0); - case 7: - var e3=e[4],e2$1=e[3],e1$1=e[2],op$1=e[1]; - return caml_call7 - (Stdlib_format[123],ppf,_e__,pp_prim3,op$1,e1$1,e2$1,e3); - case 8: - var - xs=e[2], - op$2=e[1], - _um_=function(_uI_){return print_vector(xs,_uI_)}; - return caml_call5(Stdlib_format[123],ppf,_e$_,pp_stack_op,op$2,_um_); - case 9: - var - r=e[1], - f= - function(param) - {var _uH_=param[1]; - if(_uH_) - {var rhs=param[2],lhs=_uH_[1]; - return function(ppf) - {return caml_call4(Stdlib_format[123],ppf,_fa_,lhs,rhs)}} - var rhs$0=param[2]; - return rhs$0}, - _un_=caml_call2(Utils_Binary_tree[10],f,r), - _uo_= - function(_uF_,_uG_){return print_rowish(cst$40,cst$39,_uF_,_uG_)}; - return caml_call4(Stdlib_format[123],ppf,_fb_,_uo_,_un_); - case 10: - var - e$5=e[3], - rc=e[2], - cons=e[1], - f$0= - function(param) - {var _uE_=param[1]; - if(_uE_) - {var t=param[2],lhs=_uE_[1]; - return function(ppf) - {return caml_call5(Stdlib_format[123],ppf,_fc_,lhs,pp,t)}} - var t$0=param[2]; - return function(ppf){return pp(ppf,t$0)}}, - cons$0=caml_call2(Utils_Option[44],cst$41,cons), - _up_=caml_call2(Utils_Binary_tree[56][4],f$0,rc), - _uq_=function(_uD_){return print_row_context(cst$43,cst$42,_uD_)}; - return caml_call6(Stdlib_format[123],ppf,_fd_,cons$0,_uq_,_up_,e$5); - case 11: - var xs$0=e[2],t$1=e[1],_ur_=caml_call1(Utils_Control[14],xs$0); - return caml_call5(Stdlib_format[123],ppf,_fe_,_ur_,pp,t$1); - case 12: - var xs$1=e[2],t$2=e[1],_us_=caml_call1(Utils_Control[14],xs$1); - return caml_call5(Stdlib_format[123],ppf,_ff_,_us_,pp,t$2); - case 13: - var - xs$2=e[3], - v=e[2], - k=e[1], - xs$3= - function(ppf) - {function _uB_(ppf,param) - {var v=param[2],k=param[1]; - return caml_call4(Stdlib_format[123],ppf,_fg_,k,v)} - var - _uC_= - [0, - function(ppf,param) - {return caml_call2(Stdlib_format[123],ppf,_fh_)}]; - return caml_call4(Stdlib_format[119],_uC_,_uB_,ppf,xs$2)}; - return caml_call7(Stdlib_format[123],ppf,_fi_,xs$3,pp,k,pp,v); - case 14: - var e2$2=e[3],e1$2=e[2],vs$0=e[1]; - return caml_call6 - (Stdlib_format[123], - ppf, - _fj_, - print_record_pattern, - vs$0, - e1$2, - e2$2); - case 15: - var - clauses=e[2], - scrutinee=e[1], - pp$0= - function(ppf,param) - {if(0 === param[0]) - {var - match=param[1], - rhs=match[3], - var$0=match[2], - cons=match[1], - cons$0=caml_call2(Utils_Option[44],cst$44,cons), - var$1=caml_call2(Utils_Option[44],cst$45,var$0); - return caml_call5(Stdlib_format[123],ppf,_fk_,cons$0,var$1,rhs)} - var t2=param[2],t1=param[1]; - return caml_call6(Stdlib_format[123],ppf,_fl_,pp$0,t1,pp$0,t2)}; - caml_call3(Stdlib_format[123],ppf,_fm_,scrutinee); - caml_call4(Stdlib_format[123],ppf,_fn_,pp$0,clauses); - return caml_call2(Stdlib_format[123],ppf,_fo_); - case 16: - var step=e[3],xs$4=e[2],init=e[1]; - return caml_call6 - (Stdlib_format[123],ppf,_fp_,init,print_vars,xs$4,step); - case 17:var es=e[1];return print_vector(es,ppf); - case 18: - var e3$0=e[3],e2$3=e[2],e1$3=e[1]; - return caml_call5(Stdlib_format[123],ppf,_fq_,e1$3,e2$3,e3$0); - case 19: - var - e3$1=e[4], - e2$4=e[3], - x=e[2], - e1$4=e[1], - x$0=caml_call2(Utils_Option[44],cst$46,x); - return caml_call6(Stdlib_format[123],ppf,_fr_,e1$4,x$0,e2$4,e3$1); - case 20: - var - e3$2=e[5], - xr=e[4], - e2$5=e[3], - xl=e[2], - scrutinee$0=e[1], - pp$1= - function(ppf,param) - {var - e=param[3], - x=param[2], - cons=param[1], - x$0=caml_call2(Utils_Option[44],cst$47,x); - return caml_call5(Stdlib_format[123],ppf,_fs_,cons,x$0,e)}; - caml_call3(Stdlib_format[123],ppf,_ft_,scrutinee$0); - caml_call6 - (Stdlib_format[123], - ppf, - _fu_, - pp$1, - [0,cst_Left,xl,e2$5], - pp$1, - [0,cst_Right,xr,e3$2]); - return caml_call2(Stdlib_format[123],ppf,_fv_); - case 21: - var - e3$3=e[5], - e2$6=e[4], - xs$5=e[3], - x$1=e[2], - e1$5=e[1], - x$2=caml_call2(Utils_Option[44],cst$48,x$1), - xs$6=caml_call2(Utils_Option[44],cst$49,xs$5); - return caml_call7 - (Stdlib_format[123],ppf,_fw_,e1$5,x$2,xs$6,e2$6,e3$3); - case 22: - var - e2$7=e[3], - e1$6=e[2], - x$3=e[1], - _ut_=function(_uA_){return print_vector(e2$7,_uA_)}; - return caml_call6 - (Stdlib_format[123],ppf,_fx_,print_vars,x$3,e1$6,_ut_); - case 23: - var - e2$8=e[3], - e1$7=e[2], - x$4=e[1], - _uu_=function(_uz_){return print_vector(e2$8,_uz_)}; - return caml_call6 - (Stdlib_format[123],ppf,_fy_,print_vars,x$4,e1$7,_uu_); - case 24: - var - e3$4=e[4], - e2$9=e[3], - e1$8=e[2], - c=e[1], - _uv_=function(ppf){return caml_call2(Stdlib_format[123],ppf,_fz_)}, - pp$2=function(_ux_,_uy_){return print_precontract(_uv_,_ux_,_uy_)}; - return caml_call7(Stdlib_format[123],ppf,_fA_,pp$2,c,e1$8,e2$9,e3$4); - default: - var e$6=e[2],c$0=e[1],_uw_=caml_call2(Utils_String[7],cst$50,c$0); - return caml_call4(Stdlib_format[123],ppf,_fB_,_uw_,e$6)}} - function print_expr(ppf,e) - {return caml_call1(cata_expr(print_expr_f,e),ppf)} - function ok1(x){return [0,[0,[0,x,0]]]} - function with_lub(err,t1,t2,k) - {var match=lub(t1,t2); - if(match){var t=match[1];return caml_call1(k,t)} - return err} - function un_option(param) - {if(1 === param[0]) - {var _uc_=param[1]; - if(0 === _uc_[0]) - {var _ud_=_uc_[1],_ue_=_ud_[1]; - if(_ue_) - if(! caml_string_notequal(_ue_[1],cst_Some$27)) - {var _uf_=param[2],_ug_=_ud_[2]; - if(0 === _uf_[0]) - {var _uh_=_uf_[1],_ui_=_uh_[1]; - if(_ui_) - if(! caml_string_notequal(_ui_[1],cst_None$26)) - {var _uj_=_uh_[2]; - if(0 === _uj_[0])if(0 === _uj_[1])return [0,_ug_]}}}}} - return 0} - function bind_vars(xs,s) - {if(s) - {var ts=s[1],_t__=caml_call1(Utils_List[4],ts); - if(caml_call1(Utils_List[4],xs) === _t__) - {var - _t$_=caml_call4(Utils_List[70],0,Utils_Control[2],xs,ts), - _ua_= - function(param) - {var t=param[2],x=param[1]; - function _ub_(x){return [0,x,t]} - return caml_call2(Utils_Option[18],_ub_,x)}; - return [0,caml_call2(Utils_List[71],_ua_,_t$_)]}} - var _t9_=caml_call5(Stdlib_format[127],_fP_,print_vars,xs,print_tys,s); - return caml_call1(Utils_Control[10][4],_t9_)} - function add_to_env(x,t,env) - {function _t8_(x){return [0,[0,x,t],env]} - return caml_call3(Utils_Option[13],env,_t8_,x)} - function typecheck(tparameter,env,e) - {return caml_call1 - (cata_expr - (function(e) - {var - _qy_=Utils_Control[10], - BTR= - caml_call1 - (Utils_Binary_tree[50], - [0, - _qy_[7], - _qy_[8], - _qy_[9], - _qy_[10], - _qy_[11], - _qy_[12], - _qy_[13], - _qy_[14], - _qy_[15], - _qy_[16], - _qy_[17], - _qy_[18], - _qy_[19], - _qy_[20], - _qy_[21], - _qy_[22], - _qy_[23], - _qy_[24], - _qy_[25], - _qy_[26]]); - switch(e[0]) - {case 1: - var e2=e[3],e1=e[2],xs=e[1]; - return function(env) - {function _sN_(e1) - {function _sP_(bs) - {function _sR_(e2){return [0,[0,[1,xs,e1,e2],e2[2]]]} - var _sS_=caml_call1(e2,caml_call2(Stdlib[37],bs,env)); - return caml_call2(Utils_Control[10][27],_sS_,_sR_)} - var _sQ_=bind_vars(xs,e1[2]); - return caml_call2(Utils_Control[10][27],_sQ_,_sP_)} - var _sO_=caml_call1(e1,env); - return caml_call2(Utils_Control[10][27],_sO_,_sN_)}; - case 2: - var body=e[4],b=e[3],a=e[2],rp=e[1]; - return function(env) - {if(rp)var x=rp[1],bs=[0,[0,x,a],0];else var bs=0; - function _sJ_(body) - {var _sL_=body[2]; - if(_sL_) - {var _sM_=_sL_[1]; - if(_sM_) - if(! _sM_[2]) - {var r=_sM_[1]; - if(compatible(r,b)) - return [0,[0,[2,rp,a,b,body],[0,[0,[2,0,a,b],0]]]]}} - return _fS_} - var _sK_=caml_call1(body,bs); - return caml_call2(Utils_Control[10][27],_sK_,_sJ_)}; - case 14: - var e2$0=e[3],e1$0=e[2],rp$0=e[1]; - return function(env) - {function _sp_(e1) - {function _sr_(t) - {function _su_(bs) - {function _sH_(e2){return [0,[0,[14,rp$0,e1,e2],e2[2]]]} - var _sI_=caml_call1(e2$0,caml_call2(Stdlib[37],bs,env)); - return caml_call2(Utils_Control[10][27],_sI_,_sH_)} - function f(param) - {var param$0=param; - for(;;) - {var _sw_=param$0[1]; - if(0 === _sw_[0]) - {var _sx_=_sw_[1]; - if(_sx_) - {var _sy_=param$0[2],_sz_=_sx_[1]; - if(0 === _sy_[0]) - {var match=_sy_[1],t$0=match[2]; - return [0,[0,[0,_sz_,t$0],0]]} - return [0,[0,[0,_sz_,[3,_sy_]],0]]} - return _fO_} - var _sA_=param$0[2],_sB_=_sw_[2],_sC_=_sw_[1]; - if(0 === _sA_[0]) - {var _sD_=_sA_[1][2]; - if(3 === _sD_[0]) - {var t$1=_sD_[1],param$1=[0,_sw_,t$1],param$0=param$1; - continue} - var - _sv_= - caml_call5 - (Stdlib_format[127],_fN_,print_record_pattern,rp$0,pp,t); - return caml_call1(Utils_Control[10][4],_sv_)} - var - t2=_sA_[2], - t1=_sA_[1], - _sE_=f([0,_sC_,t1]), - _sF_=f([0,_sB_,t2]), - _sG_=caml_call2(Utils_Control[10][10],Stdlib[37],_sF_); - return caml_call2(Utils_Control[10][14],_sG_,_sE_)}} - var _st_=f([0,rp$0,[0,[0,0,t]]]); - return caml_call2(Utils_Control[10][27],_st_,_su_)} - var _ss_=get1(e1[2]); - return caml_call2(Utils_Control[10][27],_ss_,_sr_)} - var _sq_=caml_call1(e1$0,env); - return caml_call2(Utils_Control[10][27],_sq_,_sp_)}; - case 15: - var clauses=e[2],scrutinee=e[1]; - return function(env) - {function _r0_(scrutinee) - {var _r2_=scrutinee[2]; - if(_r2_) - {var _r3_=_r2_[1]; - if(_r3_) - {var _r4_=_r3_[1]; - if(4 === _r4_[0]) - if(! _r3_[2]) - {var - r=_r4_[1], - match=caml_call2(Utils_Binary_tree[43],clauses,r); - if(match) - {var - clauses$0=match[1], - _r6_= - function(clauses) - {var match=caml_call1(Utils_Binary_tree[38],clauses); - if(match) - {var - xs=match[2], - x=match[1], - _sg_=[0,x[3][2]], - _sh_= - function(x,y) - {var _sm_=y[3][2]; - function _sn_(_so_){return lubs(_sm_,_so_)} - return caml_call2(Utils_Option[39],x,_sn_)}, - match$0=caml_call3(Utils_List[24],_sh_,_sg_,xs); - if(match$0) - {var tys=match$0[1]; - return [0,[0,[15,scrutinee,clauses],tys]]} - var - _si_=[0,x,xs], - _sj_= - function(ppf,x) - {return caml_call4 - (Stdlib_format[123],ppf,_fU_,print_tys,x[3][2])}, - _sk_=caml_call2(Stdlib_format[119],0,_sj_), - _sl_=erase_types(scrutinee); - return [1, - caml_call5 - (Stdlib_format[127],_fV_,print_expr,_sl_,_sk_,_si_)]} - throw [0,Assert_failure,_fW_]}, - _r7_= - function(param) - {var - var_r=param[2], - match=param[1], - rhs=match[3], - var$0=match[2], - cons=match[1]; - function _r$_(param) - {if(var$0) - {var var$1=var$0[1]; - if(0 === var_r[0]) - var match=var_r[1],t=match[2],_sd_=t; - else - var _sd_=[4,var_r]; - var env$0=[0,[0,var$1,_sd_],env]} - else - var env$0=env; - function _se_(rhs){return [0,cons,var$0,rhs]} - var _sf_=caml_call1(rhs,env$0); - return caml_call2(Utils_Control[10][11],_sf_,_se_)} - if(cons) - {var _sa_=cons[1]; - if(0 === var_r[0]) - {var _sb_=var_r[1][1]; - if(_sb_) - {var c=_sb_[1]; - if(caml_string_notequal(_sa_,c)) - var _sc_=_fX_,switch$0=1; - else - var switch$0=0} - else - var switch$0=0} - else - var switch$0=0} - else - var switch$0=0; - if(! switch$0)var _sc_=_fY_; - return caml_call2(Utils_Control[10][27],_sc_,_r$_)}, - _r8_=caml_call2(BTR[1],_r7_,clauses$0); - return caml_call2(Utils_Control[10][27],_r8_,_r6_)} - var - _r9_=print_row(cst$51), - _r__=caml_call3(Stdlib_format[127],_fZ_,_r9_,r); - return caml_call1(Stdlib[2],_r__)}}} - var _r5_=erase_types(scrutinee); - return [1, - caml_call5 - (Stdlib_format[127],_fT_,print_expr,_r5_,print_tys,_r2_)]} - var _r1_=caml_call1(scrutinee,env); - return caml_call2(Utils_Control[10][27],_r1_,_r0_)}; - case 16: - var step=e[3],rp$1=e[2],init=e[1]; - return function(env) - {function _rQ_(init) - {var _rS_=init[2]; - if(_rS_) - {var _rT_=_rS_[1]; - if(_rT_) - {var tail=_rT_[2],cond=_rT_[1]; - if(caml_call2(equal_ty,cond,t_bool)) - {var - _rU_= - function(xs) - {function _rW_(step) - {var _rY_=step[2]; - if(_rY_) - {var _rZ_=_rY_[1]; - if(_rZ_) - {var tail$0=_rZ_[2],cond=_rZ_[1]; - if(caml_call2(equal_ty,cond,t_bool)) - {var match=lubs([0,tail],[0,tail$0]); - if(match) - {var tys=match[1];return [0,[0,[16,init,rp$1,step],tys]]} - return _f0_}}} - return [1, - caml_call3(Stdlib_format[127],_f1_,print_tys,_rY_)]} - var _rX_=caml_call1(step,caml_call2(Stdlib[37],xs,env)); - return caml_call2(Utils_Control[10][27],_rX_,_rW_)}, - _rV_=bind_vars(rp$1,[0,tail]); - return caml_call2(Utils_Control[10][27],_rV_,_rU_)}}} - return _f2_} - var _rR_=caml_call1(init,env); - return caml_call2(Utils_Control[10][27],_rR_,_rQ_)}; - case 18: - var r=e[3],l=e[2],cond=e[1]; - return function(env) - {function _rI_(cond) - {function _rK_(cond_t) - {if(caml_call2(equal_ty,cond_t,t_bool)) - {var - _rM_= - function(l) - {function _rO_(r) - {var match=lubs(l[2],r[2]); - if(match){var tys=match[1];return [0,[0,[18,cond,l,r],tys]]} - return [1, - caml_call5 - (Stdlib_format[127],_f3_,print_tys,l[2],print_tys,r[2])]} - var _rP_=caml_call1(r,env); - return caml_call2(Utils_Control[10][27],_rP_,_rO_)}, - _rN_=caml_call1(l,env); - return caml_call2(Utils_Control[10][27],_rN_,_rM_)} - return _f4_} - var _rL_=get1(cond[2]); - return caml_call2(Utils_Control[10][27],_rL_,_rK_)} - var _rJ_=caml_call1(cond,env); - return caml_call2(Utils_Control[10][27],_rJ_,_rI_)}; - case 19: - var r$0=e[4],l$0=e[3],xl=e[2],scrutinee$0=e[1]; - return function(env) - {function _rA_(scrutinee) - {function _rC_(scrutinee_t) - {var match=view_option(scrutinee_t); - if(match) - {var - t=match[1], - _rE_= - function(l) - {function _rG_(r) - {var match=lubs(l[2],r[2]); - if(match) - {var tys=match[1];return [0,[0,[19,scrutinee,xl,l,r],tys]]} - return [1, - caml_call5 - (Stdlib_format[127],_f5_,print_tys,l[2],print_tys,r[2])]} - var _rH_=caml_call1(r$0,env); - return caml_call2(Utils_Control[10][27],_rH_,_rG_)}, - _rF_=caml_call1(l$0,add_to_env(xl,t,env)); - return caml_call2(Utils_Control[10][27],_rF_,_rE_)} - return [1, - caml_call3(Stdlib_format[127],_f6_,pp,scrutinee_t)]} - var _rD_=get1(scrutinee[2]); - return caml_call2(Utils_Control[10][27],_rD_,_rC_)} - var _rB_=caml_call1(scrutinee$0,env); - return caml_call2(Utils_Control[10][27],_rB_,_rA_)}; - case 20: - var r$1=e[5],xr=e[4],l$1=e[3],xl$0=e[2],scrutinee$1=e[1]; - return function(env) - {function _rq_(scrutinee) - {function _rs_(scrutinee_t) - {var match=view_or(scrutinee_t); - if(match) - {var - match$0=match[1], - tr=match$0[2], - tl=match$0[1], - _ru_= - function(l) - {function _rx_(r) - {var match=lubs(l[2],r[2]); - if(match) - {var tys=match[1]; - return [0,[0,[20,scrutinee,xl$0,l,xr,r],tys]]} - return [1, - caml_call5 - (Stdlib_format[127],_f7_,print_tys,l[2],print_tys,r[2])]} - function _ry_(xr){return [0,[0,xr,tr],env]} - var - _rz_= - caml_call1 - (r$1,caml_call1(caml_call2(Utils_Option[13],env,_ry_),xr)); - return caml_call2(Utils_Control[10][27],_rz_,_rx_)}, - _rv_=function(xl){return [0,[0,xl,tl],env]}, - _rw_= - caml_call1 - (l$1,caml_call1(caml_call2(Utils_Option[13],env,_rv_),xl$0)); - return caml_call2(Utils_Control[10][27],_rw_,_ru_)} - return [1, - caml_call3(Stdlib_format[127],_f8_,pp,scrutinee_t)]} - var _rt_=get1(scrutinee[2]); - return caml_call2(Utils_Control[10][27],_rt_,_rs_)} - var _rr_=caml_call1(scrutinee$1,env); - return caml_call2(Utils_Control[10][27],_rr_,_rq_)}; - case 21: - var r$2=e[5],l$2=e[4],xs$0=e[3],x=e[2],scrutinee$2=e[1]; - return function(env) - {function _ri_(scrutinee) - {function _rk_(scrutinee_t) - {if(1 === scrutinee_t[0]) - if(1 === scrutinee_t[1]) - {var - t=scrutinee_t[2], - _rm_= - function(l) - {function _ro_(r) - {var match=lubs(l[2],r[2]); - if(match) - {var tys=match[1]; - return [0,[0,[21,scrutinee,x,xs$0,l,r],tys]]} - return _f__} - var _rp_=caml_call1(r$2,env); - return caml_call2(Utils_Control[10][27],_rp_,_ro_)}, - _rn_= - caml_call1 - (l$2,add_to_env(x,t,add_to_env(xs$0,t_list(t),env))); - return caml_call2(Utils_Control[10][27],_rn_,_rm_)} - return _f9_} - var _rl_=get1(scrutinee[2]); - return caml_call2(Utils_Control[10][27],_rl_,_rk_)} - var _rj_=caml_call1(scrutinee$2,env); - return caml_call2(Utils_Control[10][27],_rj_,_ri_)}; - case 22: - var input=e[3],step$0=e[2],xs$1=e[1]; - return function(env) - {function _q6_(input) - {function _q9_(param) - {var ts=param[2],top=param[1]; - function _rd_(bs) - {function _rf_(step) - {var texpr=[22,xs$1,step,input],_rh_=step[2]; - if(_rh_) - {var bs=_rh_[1]; - if(caml_call3(Utils_List[32],compatible,bs,ts)) - return [0,[0,texpr,[0,ts]]]; - var pp$0=caml_call1(Utils_List[2],pp); - return [1, - caml_call5(Stdlib_format[127],_f$_,pp$0,bs,pp$0,ts)]} - return _ga_} - var _rg_=caml_call1(step$0,bs); - return caml_call2(Utils_Control[10][27],_rg_,_rf_)} - var _re_=bind_vars(xs$1,[0,[0,top,ts]]); - return caml_call2(Utils_Control[10][27],_re_,_rd_)} - function _q__(input_tys) - {if(input_tys) - {var _rc_=input_tys[1]; - switch(_rc_[0]) - {case 1: - var switcher=_rc_[1] - 1 | 0; - if(! (1 < switcher >>> 0)) - {var ts=input_tys[2],a=_rc_[2];return [0,[0,a,ts]]} - break; - case 2: - if(1 === _rc_[1]) - {var ts$0=input_tys[2],v=_rc_[3],k=_rc_[2]; - return [0,[0,t_pair(0,0,k,v),ts$0]]} - break - }} - return _gb_} - function _q$_(x){return get1(x[2])} - var - _ra_=caml_call2(Utils_Control[10][17],_q$_,input), - _rb_=caml_call2(Utils_Control[10][27],_ra_,_q__); - return caml_call2(Utils_Control[10][27],_rb_,_q9_)} - function _q7_(x){return caml_call1(x,env)} - var _q8_=caml_call2(Utils_Control[10][17],_q7_,input); - return caml_call2(Utils_Control[10][27],_q8_,_q6_)}; - case 23: - var input$0=e[3],step$1=e[2],xs$2=e[1]; - return function(env) - {function _qP_(input) - {function _qS_(param) - {var ts=param[3],top=param[2],close=param[1]; - function _q0_(bs) - {function _q2_(step) - {var texpr=[23,xs$2,step,input],_q4_=step[2]; - if(_q4_) - {var _q5_=_q4_[1]; - if(_q5_) - {var bs=_q5_[2],b=_q5_[1]; - if(caml_call3(Utils_List[32],compatible,bs,ts)) - return [0,[0,texpr,[0,[0,caml_call1(close,b),ts]]]]}} - return _gc_} - var _q3_=caml_call1(step$1,bs); - return caml_call2(Utils_Control[10][27],_q3_,_q2_)} - var _q1_=bind_vars(xs$2,[0,[0,top,ts]]); - return caml_call2(Utils_Control[10][27],_q1_,_q0_)} - function _qT_(input_tys) - {if(input_tys) - {var _qX_=input_tys[1]; - switch(_qX_[0]) - {case 1: - if(1 === _qX_[1]) - {var ts=input_tys[2],a=_qX_[2];return [0,[0,t_list,a,ts]]} - break; - case 2: - if(1 === _qX_[1]) - {var - ts$0=input_tys[2], - v=_qX_[3], - k=_qX_[2], - _qY_=t_pair(0,0,k,v); - return [0, - [0,function(_qZ_){return t_map(k,_qZ_)},_qY_,ts$0]]} - break - }} - return _gd_} - function _qU_(x){return get1(x[2])} - var - _qV_=caml_call2(Utils_Control[10][17],_qU_,input), - _qW_=caml_call2(Utils_Control[10][27],_qV_,_qT_); - return caml_call2(Utils_Control[10][27],_qW_,_qS_)} - function _qQ_(x){return caml_call1(x,env)} - var _qR_=caml_call2(Utils_Control[10][17],_qQ_,input$0); - return caml_call2(Utils_Control[10][27],_qR_,_qP_)}; - case 24: - var - storage=e[4], - balance=e[3], - baker=e[2], - match=e[1], - body$0=match[4], - parameter_and_storage=match[3], - tstorage=match[2], - tparameter$0=match[1]; - return function(env) - {function _qz_(body) - {function _qC_(baker) - {function _qE_(balance) - {function _qG_(storage) - {function _qI_(tbaker) - {function _qK_(tbalance) - {function _qM_(tstorage$0) - {if(4 === tbaker[0]) - if(0 === tbalance[0]) - if(4 === tbalance[1]) - {var option_key_hash=tbaker[1]; - if(compatible(tstorage,tstorage$0)) - {var match=un_option(option_key_hash); - if(match) - {var _qO_=match[1]; - if(0 === _qO_[0]) - if(11 === _qO_[1]) - {var - texpr= - [24, - [0,tparameter$0,tstorage,parameter_and_storage,body], - baker, - balance, - storage]; - return [0,[0,texpr,[0,[0,t_operation,[0,t_address,0]]]]]}} - return caml_call1 - (Utils_Control[10][4], - cst_create_contract_illegal_argument_types$0)}} - return caml_call1 - (Utils_Control[10][4], - cst_create_contract_illegal_argument_types)} - var _qN_=get1(storage[2]); - return caml_call2(Utils_Control[10][27],_qN_,_qM_)} - var _qL_=get1(balance[2]); - return caml_call2(Utils_Control[10][27],_qL_,_qK_)} - var _qJ_=get1(baker[2]); - return caml_call2(Utils_Control[10][27],_qJ_,_qI_)} - var _qH_=caml_call1(storage,env); - return caml_call2(Utils_Control[10][27],_qH_,_qG_)} - var _qF_=caml_call1(balance,env); - return caml_call2(Utils_Control[10][27],_qF_,_qE_)} - var _qD_=caml_call1(baker,env); - return caml_call2(Utils_Control[10][27],_qD_,_qC_)} - function _qA_(ps) - {return [0,[0,ps,t_pair(0,0,tparameter$0,tstorage)],0]} - var - _qB_= - caml_call1 - (body$0, - caml_call3(Utils_Option[13],0,_qA_,parameter_and_storage)); - return caml_call2(Utils_Control[10][27],_qB_,_qz_)}; - default: - return function(env) - {var - _sT_=Utils_Control[10], - TR= - Traversable - ([0, - _sT_[7], - _sT_[8], - _sT_[9], - _sT_[10], - _sT_[11], - _sT_[12], - _sT_[13], - _sT_[14], - _sT_[15], - _sT_[16], - _sT_[17], - _sT_[18], - _sT_[19], - _sT_[20], - _sT_[21], - _sT_[22], - _sT_[23], - _sT_[24], - _sT_[25], - _sT_[26]]); - function _sU_(texpr) - {var - match= - map_expr_f - (function(param){var tys=param[2];return tys},texpr); - switch(match[0]) - {case 0: - var x=match[1],match$0=caml_call2(Utils_List[42],x,env); - if(match$0) - var x$0=match$0[1],_sX_=ok1(x$0); - else - var _sX_=[1,caml_call2(Stdlib_printf[4],_fQ_,x)]; - var tys=_sX_; - break; - case 3: - var l=match[1]; - if(typeof l === "number") - var _sZ_=0 === l?t_unit:t_bool; - else - switch(l[0]) - {case 0:var _sZ_=t_nat;break; - case 1:var _sZ_=t_int;break; - case 2:var _sZ_=t_mutez;break; - case 3:var _sZ_=t_string;break; - case 4:var _sZ_=t_key_hash;break; - case 5:var _sZ_=t_bytes;break; - case 6:var _sZ_=t_chain_id;break; - case 7:var _sZ_=t_address;break; - default:var _sZ_=t_timestamp} - var tys=ok1(_sZ_); - break; - case 4: - var p=match[1]; - if(typeof p === "number") - switch(p) - {case 4:var _s0_=ok1(t_timestamp);break; - case 5:var _s0_=ok1(t_chain_id);break; - case 6:var _s0_=ok1(t_sapling_state);break; - case 2: - case 3:var _s0_=ok1(t_mutez);break; - default:var _s0_=ok1(t_address)} - else - switch(p[0]) - {case 0:var _s0_=ok1(t_contract(tparameter));break; - case 1:var t=p[1],_s0_=ok1(t_option(t));break; - case 2:var t$0=p[1],_s0_=ok1(t_list(t$0));break; - case 3:var t$1=p[1],_s0_=ok1(t_set(t$1));break; - case 4:var tv=p[2],tk=p[1],_s0_=ok1(t_map(tk,tv));break; - default: - var tv$0=p[2],tk$0=p[1],_s0_=ok1(t_big_map(tk$0,tv$0))} - var tys=_s0_; - break; - case 5: - var - t1=match[2], - p$0=match[1], - _s1_= - function(t1) - {if(typeof p$0 === "number") - switch(p$0) - {case 0: - if(3 === t1[0]) - {var _t1_=t1[1]; - if(0 !== _t1_[0]) - {var _t2_=_t1_[1]; - if(0 === _t2_[0]) - {var match=_t2_[1],t=match[2];return ok1(t)} - return ok1([3,_t2_])} - var switch$0=0} - else - var switch$0=0; - break; - case 1: - if(3 === t1[0]) - {var _t3_=t1[1]; - if(0 !== _t3_[0]) - {var _t4_=_t3_[2]; - if(0 === _t4_[0]) - {var match$0=_t4_[1],t$0=match$0[2];return ok1(t$0)} - return ok1([3,_t4_])} - var switch$0=0} - else - var switch$0=0; - break; - case 2: - return ok1([4,[1,[0,[0,_fE_,t1]],[0,[0,_fD_,t_unit]]]]); - case 3:return _fF_; - case 5: - if(0 === t1[0]) - {if(3 === t1[1])return ok1(t_nat);var switch$0=0} - else - var switch$0=0; - break; - case 7: - if(0 === t1[0]) - {if(2 === t1[1])return ok1(t_int);var switch$0=0} - else - var switch$0=0; - break; - case 8: - if(0 === t1[0]) - {if(3 === t1[1])return ok1(t_option(t_nat));var switch$0=0} - else - var switch$0=0; - break; - case 15: - if(caml_call2(equal_ty,t1,t_never))return _fG_; - var switch$0=0; - break; - case 16: - if(1 === t1[0]) - if(1 === t1[1]) - {var _t5_=t1[2]; - if(0 === _t5_[0]) - {var _t6_=_t5_[1]; - if(5 === _t6_)return ok1(t_string); - if(6 === _t6_)return ok1(t_bytes); - var switch$0=0} - else - var switch$0=0} - else - var switch$0=0; - else - var switch$0=0; - break; - case 17: - switch(t1[0]) - {case 0: - if(1 < (t1[1] - 5 | 0) >>> 0) - var switch$0=0,switch$1=0; - else - var switch$1=1; - break; - case 1: - if(1 < (t1[1] - 1 | 0) >>> 0) - var switch$0=0,switch$1=0; - else - var switch$1=1; - break; - case 2: - if(1 === t1[1]) - var switch$1=1; - else - var switch$0=0,switch$1=0; - break; - default:var switch$0=0,switch$1=0} - if(switch$1)return ok1(t_nat); - break; - case 18: - if(1 === t1[0]) - {if(3 <= t1[1])return ok1(t_address);var switch$0=0} - else - var switch$0=0; - break; - case 19: - if(0 === t1[0]) - {if(11 === t1[1])return ok1(t_contract(t_unit)); - var switch$0=0} - else - var switch$0=0; - break; - case 20:return ok1(t_bytes); - case 21: - if(0 === t1[0]) - {if(10 === t1[1])return ok1(t_key_hash);var switch$0=0} - else - var switch$0=0; - break; - case 25: - if(caml_call2(equal_ty,t1,t_option(t_key_hash))) - return ok1(t_operation); - var switch$0=0; - break; - case 6: - case 14: - if(0 === t1[0]) - {var switcher=t1[1] - 2 | 0; - if(! (1 < switcher >>> 0))return ok1(t_int)} - if(typeof p$0 === "number") - if(14 === p$0) - {if(caml_call2(equal_ty,t1,t_bool))return ok1(t_bool); - var switch$0=0} - else - var switch$0=0; - else - var switch$0=0; - break; - case 22: - case 23: - case 24: - if(0 === t1[0]) - {if(6 === t1[1])return ok1(t_bytes);var switch$0=0} - else - var switch$0=0; - break; - default: - if(0 === t1[0]) - {if(3 === t1[1])return ok1(t_bool);var switch$0=0} - else - var switch$0=0} - else - switch(p$0[0]) - {case 0: - if(3 === t1[0]) - {var - r=t1[1], - fld=p$0[1], - _t7_=caml_call1(Utils_Binary_tree[38],r), - match$1=caml_call2(Utils_List[42],[0,fld],_t7_); - if(match$1){var t$1=match$1[1];return ok1(t$1)} - return [1,caml_call2(Stdlib_format[126],_fH_,fld)]} - var switch$0=0; - break; - case 1: - var a1=p$0[1],a2=p$0[2],tl=t1,tr=p$0[3],switch$0=1;break; - case 2: - var a1=p$0[1],a2=p$0[2],tl=p$0[3],tr=t1,switch$0=1;break; - case 3: - if(0 === t1[0]) - {if(9 === t1[1]) - {var t$2=p$0[2];return ok1(t_option(t_contract(t$2)))} - var switch$0=0} - else - var switch$0=0; - break; - default: - if(0 === t1[0]) - {if(6 === t1[1]){var t$3=p$0[1];return ok1(t_option(t$3))} - var switch$0=0} - else - var switch$0=0} - return switch$0 - ?ok1([4,[1,[0,[0,a1,tl]],[0,[0,a2,tr]]]]) - :[1,caml_call5(Stdlib_format[127],_fC_,pp_prim1,p$0,pp,t1)]}, - _s2_=get1(t1), - tys=caml_call2(Utils_Control[10][27],_s2_,_s1_); - break; - case 6: - var - t2=match[3], - t1$0=match[2], - p$1=match[1], - _s3_= - function(t1) - {function _tL_(t2$0) - {var - _tN_= - caml_call7 - (Stdlib_format[127],_fI_,pp_prim2,p$1,pp,t1,pp,t2$0), - err=caml_call1(Utils_Control[10][4],_tN_); - if(typeof p$1 === "number") - {switch(p$1) - {case 0: - if(0 === t1[0]) - {var _tO_=t1[1]; - if(3 === _tO_) - if(0 === t2$0[0]) - {if(8 === t2$0[1])return ok1(t_timestamp);var switch$0=0} - else - var switch$0=0; - else - if(8 === _tO_) - if(0 === t2$0[0]) - {if(3 === t2$0[1])return ok1(t_timestamp);var switch$0=0} - else - var switch$0=0; - else - var switch$0=0} - else - var switch$0=0; - break; - case 1: - if(0 === t1[0]) - {var switcher=t1[1] - 2 | 0; - if(2 < switcher >>> 0) - var switch$0=0; - else - switch(switcher) - {case 0: - if(0 === t2$0[0]) - {if(4 === t2$0[1])return ok1(t_mutez);var switch$0=0} - else - var switch$0=0; - break; - case 1:var switch$0=0;break; - default: - if(0 === t2$0[0]) - {if(2 === t2$0[1])return ok1(t_mutez);var switch$0=0} - else - var switch$0=0}} - else - var switch$0=0; - break; - case 2: - if(0 === t1[0]) - {var _tS_=t1[1]; - if(2 === _tS_) - if(0 === t2$0[0]) - {if(2 === t2$0[1])return ok1(t_int);var switch$0=0} - else - var switch$0=0; - else - if(8 === _tS_) - if(0 === t2$0[0]) - {var _tT_=t2$0[1]; - if(3 === _tT_)return ok1(t_timestamp); - if(8 === _tT_)return ok1(t_int); - var switch$0=0} - else - var switch$0=0; - else - var switch$0=0} - else - var switch$0=0; - break; - case 6: - if(0 === t1[0]) - {var _tU_=t1[1]; - if(5 <= _tU_) - var switch$0=2; - else - switch(_tU_) - {case 2: - if(0 === t2$0[0]) - {var _tV_=t2$0[1]; - if(2 === _tV_)return ok1(t_option(t_pair(0,0,t_nat,t_nat))); - if(3 === _tV_)return ok1(t_option(t_pair(0,0,t_int,t_nat))); - var switch$0=2} - else - var switch$0=2; - break; - case 3: - if(0 === t2$0[0]) - {var _tW_=t2$0[1]; - if(2 === _tW_)return ok1(t_option(t_pair(0,0,t_int,t_nat))); - if(3 === _tW_)return ok1(t_option(t_pair(0,0,t_int,t_nat))); - var switch$0=2} - else - var switch$0=2; - break; - case 4: - if(0 === t2$0[0]) - {var switcher$0=t2$0[1] - 2 | 0; - if(2 < switcher$0 >>> 0) - var switch$0=2; - else - switch(switcher$0) - {case 0:return ok1(t_option(t_pair(0,0,t_mutez,t_mutez))); - case 1:var switch$0=2;break; - default:return ok1(t_option(t_pair(0,0,t_nat,t_mutez)))}} - else - var switch$0=2; - break; - default:var switch$0=2}} - else - var switch$0=2; - break; - case 9: - if(1 === t2$0[0]) - {if(1 === t2$0[1]) - {var t2=t2$0[2]; - return with_lub - (err,t1,t2,function(t){return ok1(t_list(t))})} - var switch$0=2} - else - var switch$0=2; - break; - case 10: - return with_lub(err,t1,t2$0,function(t){return ok1(t_int)}); - case 11: - if(0 === t1[0]) - {var _tX_=t1[1]; - if(5 === _tX_) - if(0 === t2$0[0]) - {if(5 === t2$0[1])return ok1(t_string);var switch$0=2} - else - var switch$0=2; - else - if(6 === _tX_) - if(0 === t2$0[0]) - {if(6 === t2$0[1])return ok1(t_bytes);var switch$0=2} - else - var switch$0=2; - else - var switch$0=2} - else - var switch$0=2; - break; - case 12: - if(2 === t2$0[0]) - {if(0 !== t2$0[1]) - {var v=t2$0[3],k2=t2$0[2]; - return with_lub - (err,t1,k2,function(k){return ok1(t_option(v))})} - var switch$0=2} - else - var switch$0=2; - break; - case 13: - switch(t2$0[0]) - {case 1: - if(2 === t2$0[1]) - {var el2=t2$0[2]; - return with_lub(err,t1,el2,function(el){return ok1(t_bool)})} - var switch$0=2; - break; - case 2: - if(0 !== t2$0[1]) - {var k2$0=t2$0[2]; - return with_lub(err,t1,k2$0,function(k){return ok1(t_bool)})} - var switch$0=2; - break; - default:var switch$0=2} - break; - case 14: - if(2 === t2$0[0]) - {if(0 === t2$0[1]) - {var b=t2$0[3],a2=t2$0[2]; - return with_lub(err,t1,a2,function(el){return ok1(b)})} - var switch$0=2} - else - var switch$0=2; - break; - case 15: - if(2 === t2$0[0]) - if(0 === t2$0[1]) - {var _tY_=t2$0[2]; - if(3 === _tY_[0]) - {var _tZ_=_tY_[1]; - if(0 === _tZ_[0]) - var switch$0=2; - else - {var _t0_=_tZ_[1]; - if(0 === _t0_[0]) - {var c=t2$0[3],b$0=_tZ_[2],match=_t0_[1],a2$0=match[2]; - return with_lub - (err,t1,a2$0,function(a){return ok1(t_lambda([3,b$0],c))})} - var switch$0=2}} - else - var switch$0=2} - else - var switch$0=2; - else - var switch$0=2; - break; - case 16: - if(0 === t1[0]) - if(15 === t1[1]) - if(0 === t2$0[0]) - {if(14 === t2$0[1]) - return ok1(t_option(t_pair(0,0,t_int,t_sapling_state))); - var switch$0=2} - else - var switch$0=2; - else - var switch$0=2; - else - var switch$0=2; - break; - default:var switch$0=1} - switch(switch$0) - {case 0: - if(0 === t1[0]) - {var _tP_=t1[1]; - if(5 <= _tP_) - var switch$1=2; - else - switch(_tP_) - {case 2: - if(0 === t2$0[0]) - {var _tQ_=t2$0[1]; - if(2 === _tQ_) - var switch$1=0; - else - {if(3 === _tQ_)return ok1(t_int);var switch$1=2}} - else - var switch$1=2; - break; - case 3: - if(0 === t2$0[0]) - {var _tR_=t2$0[1]; - if(2 === _tR_)return ok1(t_int); - if(3 === _tR_)return ok1(t_int); - var switch$1=2} - else - var switch$1=2; - break; - case 4:var switch$1=1;break; - default:var switch$1=2}} - else - var switch$1=2; - break; - case 1:var switch$1=0;break; - default:var switch$1=2} - switch(switch$1) - {case 0: - if(typeof p$1 === "number") - if(2 === p$1)var switch$2=1,switch$3=0;else var switch$3=1; - else - var switch$3=1; - if(switch$3) - if(0 === t1[0]) - if(2 === t1[1]) - if(0 === t2$0[0]) - {if(2 === t2$0[1])return ok1(t_nat);var switch$2=0} - else - var switch$2=0; - else - var switch$2=0; - else - var switch$2=0; - break; - case 1:var switch$2=0;break; - default:var switch$2=1} - if(! switch$2) - {if(typeof p$1 === "number") - switch(p$1) - {case 0: - case 2: - if(0 === t2$0[0]) - {if(4 === t2$0[1])return ok1(t_mutez);var switch$4=1} - else - var switch$4=1; - break; - case 1: - case 3: - case 4:var switch$4=1;break; - default:var switch$4=0} - else - var switch$4=0; - if(! switch$4) - {if(caml_call2(equal_ty,t1,t_bool)) - if(caml_call2(equal_ty,t2$0,t_bool))return ok1(t_bool); - if(typeof p$1 === "number") - if(7 === p$1) - if(0 === t1[0]) - if(3 === t1[1]) - if(0 === t2$0[0]) - {if(2 === t2$0[1])return ok1(t_nat);var switch$5=1} - else - var switch$5=1; - else - var switch$5=1; - else - var switch$5=1; - else - var switch$5=0; - else - var switch$5=0}} - return err} - var annot2=p$1[2],annot1=p$1[1]; - return ok1(t_pair(annot1,annot2,t1,t2$0))} - var _tM_=get1(t2); - return caml_call2(Utils_Control[10][27],_tM_,_tL_)}, - _s4_=get1(t1$0), - tys=caml_call2(Utils_Control[10][27],_s4_,_s3_); - break; - case 7: - var - t3=match[4], - t2$0=match[3], - t1$1=match[2], - p$2=match[1], - _s5_= - function(t1) - {function _tA_(t2) - {function _tC_(t3) - {var - _tE_= - caml_call9 - (Stdlib_format[127],_fJ_,pp_prim3,p$2,pp,t1,pp,t2,pp,t3), - err=caml_call1(Utils_Control[10][4],_tE_); - switch(p$2) - {case 0: - if(0 === t1[0]) - if(2 === t1[1]) - if(0 === t2[0]) - if(2 === t2[1]) - if(0 === t3[0]) - {var _tF_=t3[1]; - if(5 === _tF_)return ok1(t_option(t_string)); - if(6 === _tF_)return ok1(t_option(t_bytes))} - break; - case 1: - switch(t3[0]) - {case 1: - if(2 === t3[1]) - {var e=t3[2]; - if(caml_call2(equal_ty,t2,t_bool)) - {var match=lub(t1,e); - if(match){var e$0=match[1];return ok1(t_set(e$0))} - return err}} - break; - case 2: - if(4 === t2[0]) - {var _tG_=t3[1],_tH_=t2[1]; - if(0 !== _tG_) - {var - v=t3[3], - k=t3[2], - match$0=lub(t1,k), - _tI_=function(_tK_){return lub(v,_tK_)}, - _tJ_=un_option(_tH_), - match$1=caml_call2(Utils_Option[39],_tJ_,_tI_); - if(match$0) - if(match$1) - {var - v$0=match$1[1], - k$0=match$0[1], - map=1 === _tG_?t_map:t_big_map; - return ok1(map(k$0,v$0))} - return err}} - break - } - break; - case 2: - if(0 === t2[0]) - if(4 === t2[1]) - if(1 === t3[0]) - if(3 <= t3[1]) - {var p=t3[2];return compatible(t1,p)?ok1(t_operation):err} - break; - default: - if(0 === t1[0]) - if(10 === t1[1]) - if(0 === t2[0]) - if(12 === t2[1]) - if(0 === t3[0])if(6 === t3[1])return ok1(t_bool)} - return err} - var _tD_=get1(t3); - return caml_call2(Utils_Control[10][27],_tD_,_tC_)} - var _tB_=get1(t2$0); - return caml_call2(Utils_Control[10][27],_tB_,_tA_)}, - _s6_=get1(t1$1), - tys=caml_call2(Utils_Control[10][27],_s6_,_s5_); - break; - case 8: - var - xs=match[2], - op=match[1], - _s7_= - function(xs) - {var - _tv_=caml_call1(Utils_List[2],pp), - _tw_= - caml_call5(Stdlib_format[127],_fK_,pp_stack_op,op,_tv_,xs), - err=caml_call1(Utils_Control[10][4],_tw_); - if(typeof op === "number") - {if(0 === op) - {if(xs) - {var _tx_=xs[2]; - if(_tx_) - {var ts=_tx_[2],t2=_tx_[1],t1=xs[1]; - return [0,[0,[0,t2,[0,t1,ts]]]]}}} - else - if(xs) - {var ts$0=xs[2],t1$0=xs[1]; - return [0,[0,[0,t1$0,[0,t1$0,ts$0]]]]}} - else - switch(op[0]) - {case 0: - var - n=op[1], - match=caml_call2(Utils_List[59],n,xs), - lo=match[2], - hi=match[1]; - if(lo) - {var lo$0=lo[2],x=lo[1]; - return [0,[0,caml_call2(Stdlib[37],[0,x,hi],lo$0)]]} - return _fL_; - case 1: - var - n$0=op[1], - _ty_=caml_call2(Utils_List[59],n$0 + 1 | 0,xs), - _tz_=_ty_[1]; - if(_tz_) - {var lo$1=_ty_[2],hi$0=_tz_[2],x$0=_tz_[1]; - if(n$0 < caml_call1(Utils_List[4],xs)) - return [0,[0,caml_call2(Stdlib[37],hi$0,[0,x$0,lo$1])]]} - return _fM_; - default: - var n$1=op[1]; - if(n$1 <= caml_call1(Utils_List[4],xs)) - return [0,[0,caml_call2(Utils_List[61],n$1,xs)]]} - return err}, - _s8_=caml_call2(Utils_Control[10][17],get1,xs), - tys=caml_call2(Utils_Control[10][27],_s8_,_s7_); - break; - case 9: - var - xs$0=match[1], - _s9_=function(xs){return ok1([3,xs])}, - _s__= - function(param) - {var - t=param[2], - lbl=param[1], - _tt_=get1(t), - _tu_=caml_call1(Utils_Control[2],lbl); - return caml_call2(Utils_Control[10][10],_tu_,_tt_)}, - _s$_=caml_call2(TR[1][1],_s__,xs$0), - tys=caml_call2(Utils_Control[10][27],_s$_,_s9_); - break; - case 10: - var - t$2=match[3], - rc=match[2], - lbl=match[1], - _ta_= - function(t) - {return ok1 - ([4,caml_call2(Utils_Binary_tree[55],[0,[0,lbl,t]],rc)])}, - _tb_=get1(t$2), - tys=caml_call2(Utils_Control[10][27],_tb_,_ta_); - break; - case 11: - var - xs$1=match[2], - t$3=match[1], - _tc_= - function(xs) - {function _ts_(t){return 1 - compatible(t$3,t)} - var match=caml_call2(Utils_List[37],_ts_,xs); - return match - ?caml_call1 - (Utils_Control[10][4],cst_list_element_has_unexpected_type) - :ok1(t_list(t$3))}, - _td_=caml_call2(Utils_Control[10][17],get1,xs$1), - tys=caml_call2(Utils_Control[10][27],_td_,_tc_); - break; - case 12: - var - xs$2=match[2], - t$4=match[1], - _te_= - function(xs) - {function _tr_(t){return 1 - compatible(t$4,t)} - var match=caml_call2(Utils_List[37],_tr_,xs); - return match - ?caml_call1 - (Utils_Control[10][4],cst_set_element_has_unexpected_type) - :ok1(t_set(t$4))}, - _tf_=caml_call2(Utils_Control[10][17],get1,xs$2), - tys=caml_call2(Utils_Control[10][27],_tf_,_te_); - break; - case 13: - var - entries=match[3], - tv$1=match[2], - tk$1=match[1], - _tg_= - function(entries) - {function _to_(param) - {var - tv=param[2], - tk=param[1], - _tp_=compatible(tk$1,tk), - _tq_=_tp_?compatible(tv$1,tv):_tp_; - return 1 - _tq_} - var match=caml_call2(Utils_List[37],_to_,entries); - return match - ?caml_call1 - (Utils_Control[10][4],cst_map_entry_has_unexpected_type) - :ok1(t_map(tk$1,tv$1))}, - _th_= - function(param) - {var - v=param[2], - k=param[1], - _tl_=get1(v), - _tm_=get1(k), - _tn_=caml_call2(Utils_Control[10][10],Utils_Control[2],_tm_); - return caml_call2(Utils_Control[10][14],_tn_,_tl_)}, - _ti_=caml_call2(Utils_Control[10][17],_th_,entries), - tys=caml_call2(Utils_Control[10][27],_ti_,_tg_); - break; - case 17: - var - ts=match[1], - _tj_= - function(ts){return caml_call1(Utils_Control[10][7],[0,ts])}, - _tk_=caml_call2(Utils_Control[10][17],get1,ts), - tys=caml_call2(Utils_Control[10][27],_tk_,_tj_); - break; - case 25: - var ts$0=match[2],tys=caml_call1(Utils_Control[10][7],ts$0); - break; - default:throw [0,Assert_failure,_fR_]} - function _sY_(tys){return [0,texpr,tys]} - return caml_call2(Utils_Control[10][11],tys,_sY_)} - var - _sV_=map_expr_f(function(x){return caml_call1(x,env)},e), - _sW_=caml_call1(TR[2],_sV_); - return caml_call2(Utils_Control[10][27],_sW_,_sU_)}}}, - e), - env)} - function typecheck_precontract(param) - {var - body=param[4], - parameter_and_storage=param[3], - tstorage=param[2], - tparameter=param[1]; - function _qr_(ps){return [0,[0,ps,t_pair(0,0,tparameter,tstorage)],0]} - var env=caml_call3(Utils_Option[13],0,_qr_,parameter_and_storage); - function _qs_(body) - {function _qu_(param) - {return [0,[0,[0,tparameter,tstorage,parameter_and_storage,body]]]} - var _qv_=body[2]; - if(_qv_) - {var _qw_=_qv_[1]; - if(_qw_) - if(_qw_[2]) - var switch$0=0; - else - {var out=_qw_[1]; - if(compatible(out,t_pair(0,0,t_list(t_operation),tstorage))) - var _qx_=_gf_,switch$0=1; - else - var switch$0=0} - else - var switch$0=0; - if(! switch$0) - var - _qx_= - [1, - caml_call5(Stdlib_format[127],_ge_,print_tys,_qv_,pp,tstorage)]} - else - var _qx_=_gg_; - return caml_call2(Utils_Control[10][27],_qx_,_qu_)} - var _qt_=typecheck(tparameter,env,body); - return caml_call2(Utils_Control[10][27],_qt_,_qs_)} - function tuple(xs) - {var - _qp_=caml_call1(Utils_Control[2],0), - _qq_=caml_call2(Utils_List[20],_qp_,xs); - return [0,[9,caml_call1(Utils_Binary_tree[40],_qq_)]]} - function proj_field(l,e){return [0,[5,[0,l],e]]} - function match_record(rp,e1,e2){return [0,[14,rp,e1,e2]]} - function match_variant(cond,clauses){return [0,[15,cond,clauses]]} - function loop(init,rp,step){return [0,[16,init,rp,step]]} - function erase_types_precontract(param) - {var - match=param[1], - body=match[4], - parameter_and_storage=match[3], - tstorage=match[2], - tparameter=match[1], - body$0=erase_types(body); - return [0,tparameter,tstorage,parameter_and_storage,body$0]} - function print_checked_precontract(ppf,c) - {return print_precontract(print_expr,ppf,erase_types_precontract(c))} - var - show_checked_precontract= - caml_call2(Stdlib_format[127],_gh_,print_checked_precontract); - function prim0(op){return [0,[4,op]]} - function prim1(op,x){return [0,[5,op,x]]} - function prim2(op,x,y){return [0,[6,op,x,y]]} - function prim3(op,x,y,z){return [0,[7,op,x,y,z]]} - function stack_op(op,x){return [0,[8,op,x]]} - function lit(l){return [0,[3,l]]} - function var$0(x){return [0,[0,x]]} - function michel_list(t,entries){return [0,[11,t,entries]]} - function michel_set(t,entries){return [0,[12,t,entries]]} - function michel_map(tk,tv,entries){return [0,[13,tk,tv,entries]]} - function variant(lbl,rc,x){return [0,[10,lbl,rc,x]]} - function row_context(lbl) - {return function(param) - {if(0 === param[0]) - {var _qm_=param[1][1]; - if(_qm_){var l=_qm_[1];return caml_equal(lbl,l)?_gi_:0} - return 0} - var r=param[2],l$0=param[1],match=caml_call1(row_context(lbl),l$0); - if(match){var l$1=match[1];return [0,[0,l$1,r]]} - function _qn_(r){return [1,l$0,r]} - var _qo_=caml_call1(row_context(lbl),r); - return caml_call2(Utils_Option[20],_qo_,_qn_)}} - function let_in(rp,e1,e2){return [0,[1,rp,e1,e2]]} - function _gj_(param,e) - {var rhs=param[2],lhs=param[1];return let_in(lhs,rhs,e)} - var lets=caml_call1(Utils_List[25],_gj_); - function lambda(rp,a,b,e){return [0,[2,rp,a,b,e]]} - function _gk_(i) - {var _qj_=1; - return fold_expr_f(function(_ql_,_qk_){return _ql_ + _qk_ | 0},_qj_,i)} - function size_expr(_qi_){return cata_expr(_gk_,_qi_)} - function _gl_(i,param) - {var _qh_=1; - return fold_expr_f - (function(s,param){var x=param[1];return s + x | 0},_qh_,i)} - function size_texpr(_qg_){return cata_texpr(_gl_,_qg_)} - function substitute(subst) - {function _qc_(expr) - {if(0 === expr[0]) - {var v=expr[1],_qe_=caml_call2(Utils_List[42],v,subst),_qf_=var$0(v); - return caml_call2(Utils_Option[44],_qf_,_qe_)} - return [0,expr]} - return function(_qd_){return cata_expr(_qc_,_qd_)}} - function tsubstitute(subst) - {function _p__(e) - {if(0 === e[0]) - {var v=e[1]; - return function(tys) - {var _qb_=caml_call2(Utils_List[42],v,subst); - return caml_call2(Utils_Option[44],[0,[0,v],tys],_qb_)}} - return function(tys) - {return [0,map_expr_f(function(_qa_){return _qa_[1]},e),tys]}} - return function(_p$_){return cata_texpr(_p__,_p$_)}} - function mk_variant(r,lbl,x) - {var match=caml_call1(row_context(lbl),r); - if(match){var c=match[1];return variant([0,lbl],c,x)} - var _p9_=caml_call4(Stdlib_format[127],_gm_,pp_row,r,lbl); - return caml_call1(Stdlib[2],_p9_)} - function nil(t){return prim0([2,t])} - var _gn_=2; - function some(_p8_){return prim1(_gn_,_p8_)} - function left(a1,a2,t) - {var _p6_=[1,a1,a2,t];return function(_p7_){return prim1(_p6_,_p7_)}} - function right(a1,a2,t) - {var _p4_=[2,a1,a2,t];return function(_p5_){return prim1(_p4_,_p5_)}} - function none(t){return prim0([1,t])} - var true$0=lit(1),false$0=lit(2),_go_=1; - function dup(_p3_){return stack_op(_go_,_p3_)} - function if$0(cond,l,r){return [0,[18,cond,l,r]]} - function if_some(scrutinee,param,r) - {var l=param[2],xl=param[1];return [0,[19,scrutinee,xl,l,r]]} - function if_left(scrutinee,param,_p2_) - {var r=_p2_[2],xr=_p2_[1],l=param[2],xl=param[1]; - return [0,[20,scrutinee,xl,l,xr,r]]} - function if_cons(scrutinee,param,r) - {var l=param[3],xs=param[2],x=param[1]; - return [0,[21,scrutinee,x,xs,l,r]]} - function vector(xs){return [0,[17,xs]]} - function pair(a1,a2) - {var _pZ_=[0,a1,a2]; - return function(_p0_,_p1_){return prim2(_pZ_,_p0_,_p1_)}} - function comment(c,e){return [0,[25,c,e]]} - function map_over(xs,step,input){return [0,[23,xs,step,input]]} - function iter_over(xs,step,input){return [0,[22,xs,step,input]]} - var - Michel_Expr= - [0, - pp_prim1, - show_prim1, - pp_prim2, - show_prim2, - pp_prim3, - show_prim3, - equal_stack_op, - pp_stack_op, - show_stack_op, - equal_row_context, - pp_row_context, - show_row_context, - equal_record_pattern, - pp_record_pattern, - show_record_pattern, - map_match_clause, - fold_match_clause, - pp_match_clause, - show_match_clause, - equal_precontract, - map_precontract, - fold_precontract, - pp_precontract, - show_precontract, - map_expr_f, - fold_expr_f, - pp_expr_f, - show_expr_f, - function(_pY_){return [0,Traversable(_pY_)[2]]}, - equal_texpr, - pp_texpr, - show_texpr, - equal_expr, - pp_expr, - show_expr, - equal_checked_precontract, - erase_types, - erase_types_precontract, - cata_expr, - para_expr, - cata_texpr, - para_texpr, - print_expr, - print_precontract, - print_record_pattern, - typecheck, - typecheck_precontract, - tuple, - proj_field, - match_record, - match_variant, - loop, - print_checked_precontract, - show_checked_precontract, - prim0, - prim1, - prim2, - prim3, - lit, - var$0, - michel_list, - michel_set, - michel_map, - variant, - unit, - row_context, - let_in, - lets, - lambda, - size_expr, - size_texpr, - substitute, - tsubstitute, - mk_variant, - some, - none, - left, - right, - nil, - true$0, - false$0, - dup, - vector, - if$0, - if_some, - if_left, - if_cons, - pair, - stack_op, - comment, - map_over, - iter_over]; - caml_register_global(791,Michel_Expr,"Michel__Expr"); - var _gp_=Utils_Control[1]; - function _gq_(_pX_,_pW_){return _pX_ + _pW_ | 0} - var - mode_occurrences= - [0,1,function(_pV_,_pU_){return _pV_ + _pU_ | 0},_gq_,_gp_]; - function seq(param) - {var _pS_=param[1]; - if(3953222 === _pS_) - var switch$0=1003109192 === param[2]?1:0; - else - if(1003109192 === _pS_) - {var _pT_=param[2]; - if(3953222 === _pT_) - var switch$0=1; - else - {if(1003109192 === _pT_)return 1003109192;var switch$0=0}} - else - var switch$0=0; - return switch$0?3953222:785140586} - function par(x,y){return caml_equal(x,y)?x:785140586} - function _gr_(param){return 785140586} - var - mode_consumptions= - [0,3953222,caml_call1(Utils_Control[16],seq),par,_gr_]; - function count_free_vars_f(param) - {var - repeat=param[4], - par=param[3], - seq=param[2], - var$0=param[1], - remove_var= - caml_call2(Utils_Option[13],Utils_Control[1],Utils_String[41][7]); - function remove_vars(xs,vars) - {var _pO_=caml_call2(Utils_List[20],remove_var,xs); - function _pP_(_pR_,_pQ_){return caml_call1(_pQ_,_pR_)} - return caml_call3(Utils_List[24],_pP_,vars,_pO_)} - function _pH_(param,c1,c2){return [0,caml_call2(seq,c1,c2)]} - var symbol=caml_call1(Utils_String[41][9],_pH_); - function _pI_(param,c1,c2){return [0,caml_call2(par,c1,c2)]} - var symbol$0=caml_call1(Utils_String[41][9],_pI_); - return function(e) - {switch(e[0]) - {case 0:var v=e[1];return caml_call2(Utils_String[41][6],v,var$0); - case 1: - var e2=e[3],e1=e[2],xs=e[1]; - return caml_call2(symbol,e1,remove_vars(xs,e2)); - case 2:var e$0=e[4],x=e[1];return caml_call2(remove_var,x,e$0); - case 14: - var e2$0=e[3],e1$0=e[2],rp=e[1]; - return caml_call2 - (symbol, - e1$0, - remove_vars(caml_call1(Utils_Binary_tree[38],rp),e2$0)); - case 15: - var - clauses=e[2], - e$1=e[1], - clauses$0=caml_call1(Utils_Binary_tree[38],clauses), - _pJ_= - function(param) - {var rhs=param[3],var$0=param[2]; - return caml_call2(remove_var,var$0,rhs)}, - match=caml_call2(Utils_List[20],_pJ_,clauses$0); - if(match) - {var cs=match[2],c=match[1]; - return caml_call2 - (symbol,e$1,caml_call3(Utils_List[24],symbol$0,c,cs))} - return e$1; - case 16: - var e2$1=e[3],xs$0=e[2],e1$1=e[1],_pK_=remove_vars(xs$0,e2$1); - return caml_call2 - (symbol,e1$1,caml_call2(Utils_String[41][33],repeat,_pK_)); - case 18: - var e3=e[3],e2$2=e[2],e1$2=e[1]; - return caml_call2(symbol,e1$2,caml_call2(symbol$0,e2$2,e3)); - case 19: - var e3$0=e[4],e2$3=e[3],x$0=e[2],e1$3=e[1]; - return caml_call2 - (symbol, - e1$3, - caml_call2(symbol$0,caml_call2(remove_var,x$0,e2$3),e3$0)); - case 20: - var - e3$1=e[5], - x2=e[4], - e2$4=e[3], - x1=e[2], - e1$4=e[1], - _pL_=caml_call2(remove_var,x2,e3$1); - return caml_call2 - (symbol, - e1$4, - caml_call2(symbol$0,caml_call2(remove_var,x1,e2$4),_pL_)); - case 21: - var e3$2=e[5],e2$5=e[4],x2$0=e[3],x1$0=e[2],e1$5=e[1]; - return caml_call2 - (symbol, - e1$5, - caml_call2 - (symbol$0,remove_vars([0,x1$0,[0,x2$0,0]],e2$5),e3$2)); - case 24: - var - storage=e[4], - balance=e[3], - baker=e[2], - match$0=e[1], - body=match$0[4], - parameter_and_storage=match$0[3]; - return caml_call2 - (symbol, - caml_call2 - (symbol, - caml_call2 - (symbol, - caml_call2(remove_var,parameter_and_storage,body), - baker), - balance), - storage); - case 22: - case 23: - var - input=e[3], - step=e[2], - xs$1=e[1], - _pM_=remove_vars(xs$1,step), - _pN_=caml_call2(Utils_String[41][33],repeat,_pM_); - return caml_call3(Utils_List[24],symbol,_pN_,input); - default:return fold_expr_f(symbol,Utils_String[41][1],e)}}} - function free_vars_f(e) - {function _pE_(param){return 1} - var - singl=caml_call1(Utils_String[42],_pE_), - _pG_=map_expr_f(singl,e), - m=caml_call1(count_free_vars_f(mode_occurrences),_pG_), - _pF_=caml_call1(Utils_String[41][40],m); - return caml_call1(Utils_String[40][36],_pF_)} - function count_free_vars(mode) - {var _pC_=count_free_vars_f(mode); - return function(_pD_){return cata_expr(_pC_,_pD_)}} - function with_count_free_vars(mode,x) - {var alg1=count_free_vars_f(mode); - return function(e) - {var _pA_=caml_call1(x,e); - return [0, - caml_call1(alg1,map_expr_f(function(_pB_){return _pB_[1]},e)), - _pA_]}} - function x(e) - {var match=map_expr_f(function(_pz_){return _pz_[1]},e); - if(16 === match[0]) - var - step=match[3], - xs=match[2], - f= - function(k,v) - {if(1 <= v)return caml_call2(Utils_List[34],[0,k],xs); - throw [0,Assert_failure,_gs_]}, - l=caml_call2(Utils_String[41][14],f,step); - else - var l=1; - var _pu_=map_expr_f(function(_py_){return _py_[2]},e); - return fold_expr_f - (function(_pw_,_pv_){var _px_=_pw_?_pv_:_pw_;return _px_}, - l, - _pu_)} - function loops_closed(e) - {return cata_expr(with_count_free_vars(mode_occurrences,x),e)[2]} - function check_bound_occs(mode,check) - {function check_var(m) - {function _pt_(x) - {return caml_call2(check,x,caml_call2(Utils_String[41][28],x,m))} - return caml_call2(Utils_Option[13],1,_pt_)} - function check_vars(m) - {var _ps_=check_var(m);return caml_call1(Utils_List[30],_ps_)} - function f(e) - {var match=map_expr_f(function(_pr_){return _pr_[1]},e); - switch(match[0]) - {case 1: - var e$0=match[3],xs=match[1],l=caml_call1(check_vars(e$0),xs); - break; - case 2: - var e$1=match[4],x=match[1],l=caml_call1(check_var(e$1),x);break; - case 14: - var - e$2=match[3], - rp=match[1], - _ph_=caml_call1(Utils_Binary_tree[38],rp), - l=caml_call1(check_vars(e$2),_ph_); - break; - case 15: - var - clauses=match[2], - _pj_=caml_call1(Utils_Binary_tree[38],clauses), - _pk_= - function(param) - {var rhs=param[3],var$0=param[2]; - return caml_call1(check_var(rhs),var$0)}, - l=caml_call2(Utils_List[30],_pk_,_pj_); - break; - case 16: - var e2=match[3],xs$0=match[2],l=caml_call1(check_vars(e2),xs$0); - break; - case 19: - var e2$0=match[3],x$0=match[2],l=caml_call1(check_var(e2$0),x$0); - break; - case 20: - var - e2$1=match[5], - x2=match[4], - e1=match[3], - x1=match[2], - _pl_=caml_call1(check_var(e1),x1), - _pm_=_pl_?caml_call1(check_var(e2$1),x2):_pl_, - l=_pm_; - break; - case 21: - var - e$3=match[4], - x2$0=match[3], - x1$0=match[2], - l=caml_call1(check_vars(e$3),[0,x1$0,[0,x2$0,0]]); - break; - case 24: - var - match$0=match[1], - body=match$0[4], - parameter_and_storage=match$0[3], - l=caml_call1(check_vars(body),[0,parameter_and_storage,0]); - break; - case 22: - case 23: - var - step=match[2], - xs$1=match[1], - l=caml_call1(check_vars(step),xs$1); - break; - default:var l=1} - var _pi_=map_expr_f(function(_pq_){return _pq_[2]},e); - return fold_expr_f - (function(_po_,_pn_){var _pp_=_po_?_pn_:_po_;return _pp_}, - l, - _pi_)} - return function(e){return cata_expr(with_count_free_vars(mode,f),e)[2]}} - var - is_linear= - check_bound_occs - (mode_consumptions, - function(param) - {function _pg_(n){return 3953222 === n?1:0} - return caml_call2(Utils_Option[13],0,_pg_)}), - c= - check_bound_occs - (mode_occurrences, - function(param) - {function _pf_(n){return 1 <= n?1:0} - return caml_call2(Utils_Option[13],0,_pf_)}), - Michel_Analyser= - [0, - mode_occurrences, - mode_consumptions, - is_linear, - loops_closed, - c, - free_vars_f, - count_free_vars_f, - count_free_vars]; - caml_register_global(792,Michel_Analyser,"Michel__Analyser"); - var - TO= - caml_call1 - (Utils_Binary_tree[50], - [0, - Utils_Option[16], - Utils_Option[17], - Utils_Option[18], - Utils_Option[19], - Utils_Option[20], - Utils_Option[21], - Utils_Option[22], - Utils_Option[23], - Utils_Option[24], - Utils_Option[25], - Utils_Option[26], - Utils_Option[27], - Utils_Option[28], - Utils_Option[29], - Utils_Option[30], - Utils_Option[31], - Utils_Option[32], - Utils_Option[33], - Utils_Option[34], - Utils_Option[35]]); - function mk_t(label,transform,conditions) - {var _pb_=[0,transform]; - function _pc_(_pe_,_pd_){return caml_call1(_pd_,_pe_)} - return [4,label,caml_call3(Utils_List[24],_pc_,_pb_,conditions)]} - function mk(label,transform,conditions) - {var _o9_=[1,transform]; - function _o__(_pa_,_o$_){return caml_call1(_o$_,_pa_)} - return [4,label,caml_call3(Utils_List[24],_o__,_o9_,conditions)]} - function pre_post(param,t) - {var c=param[2],lbl=param[1]; - function c$0(x,y) - {return caml_call1(c,x) - ?caml_call1(c,y)?0:[0,caml_call2(Stdlib[28],cst_post$0,lbl)] - :[0,caml_call2(Stdlib[28],cst_pre,lbl)]} - return [6,c$0,t]} - function preserves(param,t) - {var c=param[2],lbl=param[1]; - function c$0(x,y) - {if(caml_call1(c,x)) - if(! caml_call1(c,y)) - return [0,caml_call2(Stdlib[28],cst_preserves,lbl)]; - return 0} - return [6,c$0,t]} - function log_time(s,f,x){return caml_call1(f,x)} - function _gu_(path,t,x) - {var t$0=t; - for(;;) - {var - body=x[4], - parameter_and_storage=x[3], - tstorage=x[2], - tparameter=x[1], - _oU_= - function(x,y) - {var _o8_=caml_call2(Stdlib[28],cst$53,y); - return caml_call2(Stdlib[28],x,_o8_)}, - lbl=caml_call3(Utils_List[24],_oU_,cst$52,path); - switch(t$0[0]) - {case 0: - var - transform=t$0[1], - y= - log_time - (caml_call2(Stdlib[28],lbl,cst_typecheck), - typecheck_precontract, - x); - if(0 === y[0]) - var y$0=y[1],x$0=y$0; - else - var - msg=y[1], - pp= - function(_o6_,_o7_) - {return print_precontract(print_expr,_o6_,_o7_)}, - _oT_=caml_call5(Stdlib_format[127],_gt_,lbl,msg,pp,x), - x$0=caml_call1(Stdlib[2],_oT_); - var - body$0=caml_call1(transform,x$0[1][4]), - y$1=[0,tparameter,tstorage,parameter_and_storage,body$0]; - return y$1; - case 1: - var - transform$0=t$0[1], - body$1=caml_call1(transform$0,body), - y$2=[0,tparameter,tstorage,parameter_and_storage,body$1]; - return y$2; - case 2: - var t$1=t$0[1],n=100,x$1=x; - for(;;) - {if(0 === n) - {var _oV_=caml_call2(Stdlib_printf[4],_gv_,lbl); - return caml_call1(Stdlib[2],_oV_)} - var x$2=_gu_(path,t$1,x$1); - if(caml_call3(equal_precontract,equal_expr,x$1,x$2))return x$1; - var n$0=n - 1 | 0,n=n$0,x$1=x$2; - continue} - case 3: - var - ts=t$0[1], - _oW_=function(_o4_,_o5_){return _gu_(path,_o4_,_o5_)}, - _oX_=caml_call2(Utils_List[20],_oW_,ts), - _oY_=function(_o3_,_o2_){return caml_call1(_o2_,_o3_)}; - return caml_call3(Utils_List[24],_oY_,x,_oX_); - case 4: - var - t$2=t$0[2], - lbl$0=t$0[1], - _oZ_=0, - _o0_= - function(param) - {return _gu_(caml_call2(Stdlib[37],path,[0,lbl$0,0]),t$2,x)}, - _o1_=caml_call2(Stdlib[28],cst$54,lbl$0), - y$3=log_time(caml_call2(Stdlib[28],lbl,_o1_),_o0_,_oZ_); - return y$3; - case 5:var t$3=t$0[2],t$0=t$3;continue; - default:var t$4=t$0[2],t$0=t$4;continue}}} - function run_transformer(t,c) - {var - _oR_=0, - c$0= - log_time - (cst_run_transformer,function(_oS_){return _gu_(_oR_,t,_oS_)},c); - return c$0} - function fresh(param,x) - {var var_counter=param[1],i=var_counter[1]; - var_counter[1]++; - var _oQ_=caml_call1(Stdlib[33],i); - return caml_call2(Stdlib[28],x,_oQ_)} - function freshen(st,s) - {function _oP_(param){return fresh(st,s)} - return caml_call1(Utils_List[20],_oP_)} - function _gw_(e) - {switch(e[0]) - {case 5: - var _oK_=e[1]; - if(typeof _oK_ === "number") - {if(3 === _oK_)return 1;if(15 === _oK_)return 1} - break; - case 6: - var _oL_=e[1]; - if(typeof _oL_ === "number") - {if(14 === _oL_)return 1;if(! (5 <= _oL_))return 1} - break; - case 16:return 1 - } - var _oJ_=0; - return fold_expr_f - (function(_oN_,_oM_){var _oO_=_oN_ || _oM_;return _oO_},_oJ_,e)} - function may_fail(_oI_){return cata_expr(_gw_,_oI_)} - function is_tmutez(param) - {if(param) - {var _oG_=param[1]; - if(_oG_) - {var _oH_=_oG_[1]; - if(0 === _oH_[0])if(4 === _oH_[1])if(! _oG_[2])return 1}} - return 0} - function _gx_(param,x,y){return [0,x + y | 0]} - var - sum_map=caml_call1(Utils_String[41][9],_gx_), - sum_maps=caml_call2(Utils_List[24],sum_map,Utils_String[41][1]); - function count_occs_f(e) - {if(0 === e[0]){var v=e[1];return caml_call2(Utils_String[41][6],v,1)} - return fold_expr_f(sum_map,Utils_String[41][1],e)} - function count_occs(_oF_){return cata_expr(count_occs_f,_oF_)} - function _gy_(x){return caml_call2(Utils_String[41][6],x,1)} - var count_var=caml_call2(Utils_Option[13],Utils_String[41][1],_gy_); - function count_tree(f,x) - {var _oE_=caml_call2(Utils_Binary_tree[10],f,x); - return caml_call3(Utils_Binary_tree[4],sum_map,Utils_String[41][1],_oE_)} - function f$0(e) - {switch(e[0]) - {case 1: - var e2=e[3],e1=e[2],xs=e[1]; - return caml_call1 - (sum_maps, - [0,e1,[0,e2,caml_call2(Utils_List[20],count_var,xs)]]); - case 2: - var e$0=e[4],x=e[1]; - return caml_call2(sum_map,caml_call1(count_var,x),e$0); - case 14: - var e2$0=e[3],e1$0=e[2],rp=e[1]; - return caml_call1 - (sum_maps,[0,count_tree(count_var,rp),[0,e1$0,[0,e2$0,0]]]); - case 15: - var - clauses=e[2], - e$1=e[1], - count_clause= - function(param) - {var rhs=param[3],var$0=param[2]; - return caml_call2(sum_map,caml_call1(count_var,var$0),rhs)}; - return caml_call2(sum_map,e$1,count_tree(count_clause,clauses)); - case 16: - var e2$1=e[3],xs$0=e[2],e1$1=e[1]; - return caml_call1 - (sum_maps, - [0,e1$1,[0,e2$1,caml_call2(Utils_List[20],count_var,xs$0)]]); - case 19: - var e3=e[4],e2$2=e[3],x$0=e[2],e1$2=e[1]; - return caml_call1 - (sum_maps, - [0,e1$2,[0,caml_call1(count_var,x$0),[0,e2$2,[0,e3,0]]]]); - case 20: - var - e3$0=e[5], - x2=e[4], - e2$3=e[3], - x1=e[2], - e1$3=e[1], - _oC_=[0,e2$3,[0,caml_call1(count_var,x2),[0,e3$0,0]]]; - return caml_call1 - (sum_maps,[0,e1$3,[0,caml_call1(count_var,x1),_oC_]]); - case 21: - var - e3$1=e[5], - e2$4=e[4], - x2$0=e[3], - x1$0=e[2], - e1$4=e[1], - _oD_=[0,caml_call1(count_var,x2$0),[0,e2$4,[0,e3$1,0]]]; - return caml_call1 - (sum_maps,[0,e1$4,[0,caml_call1(count_var,x1$0),_oD_]]); - default:return fold_expr_f(sum_map,Utils_String[41][1],e)}} - var - bindings_unique= - [0, - cst_bindings_unique, - function(e) - {var _oB_=cata_expr(f$0,e); - function _oA_(param,n){return 1 === n?1:0} - return caml_call2(Utils_String[41][14],_oA_,_oB_)}], - is_linear$0=[0,cst_is_linear,is_linear]; - function is_simple(param) - {var param$0=param; - for(;;) - {var expr=param$0[1]; - switch(expr[0]) - {case 0:return 1; - case 3:return 1; - case 4:return 1; - case 5: - var _ox_=expr[1]; - if(typeof _ox_ === "number") - if(! (2 <= _ox_)){var param$1=expr[2],param$0=param$1;continue} - break; - case 6: - if(typeof expr[1] !== "number") - {var y=expr[3],x=expr[2],_oy_=is_simple(x); - if(_oy_){var param$0=y;continue} - return _oy_} - break; - case 9: - var - r=expr[1], - _oz_=function(param){var e=param[2];return is_simple(e)}; - return caml_call2(Utils_Binary_tree[48],_oz_,r); - case 10:var param$2=expr[3],param$0=param$2;continue; - case 17: - var xs=expr[1];return caml_call2(Utils_List[30],is_simple,xs) - } - return 0}} - function is_var(param){var expr=param[1];return 0 === expr[0]?1:0} - function inline(e) - {var - match= - cata_texpr - (function(e$0,param) - {switch(e$0[0]) - {case 0: - var - v=e$0[1], - _op_= - function(subst) - {var - _ov_=caml_call2(Utils_String[41][28],v,subst), - _ow_=var$0(v); - return caml_call2(Utils_Option[44],_ow_,_ov_)}, - switch$0=1; - break; - case 1: - var _om_=e$0[1]; - if(_om_) - {var _on_=_om_[1]; - if(_on_) - if(_om_[2]) - var switch$0=0; - else - var - _oo_=e$0[3][1], - e2=_oo_[3], - occs2=_oo_[1], - match$0=e$0[2][1], - e1=match$0[3], - mf1=match$0[2], - x=_on_[1], - _op_= - function(subst) - {var - e1$0=caml_call1(e1,subst), - single_occ= - 1 === caml_call3(Utils_String[41][39],0,x,occs2)?1:0, - simple=is_simple(e1$0), - switch$0=simple?0:single_occ?0:1; - if(! switch$0) - if(! mf1) - return caml_call1 - (e2,caml_call3(Utils_String[41][4],x,e1$0,subst)); - return let_in([0,[0,x],0],e1$0,caml_call1(e2,subst))}, - switch$0=1; - else - var switch$0=0} - else - var switch$0=0; - break; - default:var switch$0=0} - if(! switch$0) - var - _op_= - function(subst) - {return [0, - map_expr_f - (function(param) - {var match=param[1],x=match[3];return caml_call1(x,subst)}, - e$0)]}; - var - e= - map_expr_f - (function(param) - {var tys=param[2],match=param[1],mf=match[2]; - return [0,mf,tys]}, - e$0); - switch(e[0]) - {case 5: - var _oj_=e[1]; - if(typeof _oj_ === "number") - if(3 === _oj_) - var _oq_=1,switch$1=1; - else - if(15 === _oj_)var _oq_=1,switch$1=1;else var switch$1=0; - else - var switch$1=0; - break; - case 6: - var _ok_=e[1]; - if(typeof _ok_ === "number") - if(5 <= _ok_) - if(14 === _ok_)var _oq_=1,switch$1=1;else var switch$1=0; - else - if(3 <= _ok_) - var _oq_=1,switch$1=1; - else - {var t2=e[3][2],match=e[2],t1=match[2],_ol_=is_tmutez(t1); - if(_ol_) - var _oq_=_ol_,switch$1=1; - else - var _oq_=is_tmutez(t2),switch$1=1} - else - var switch$1=0; - break; - case 16:var _oq_=1,switch$1=1;break; - default:var switch$1=0} - if(! switch$1) - var - _oh_=map_expr_f(function(_ou_){return _ou_[1]},e), - _oi_=0, - _oq_= - fold_expr_f - (function(_os_,_or_){var _ot_=_os_ || _or_;return _ot_}, - _oi_, - _oh_); - return [0, - count_occs_f - (map_expr_f - (function(param) - {var match=param[1],occs=match[1];return occs}, - e$0)), - _oq_, - _op_]}, - e), - r=match[3]; - return caml_call1(r,Utils_String[41][1])} - var - _gz_=0, - _gA_=[0,function(_og_){return preserves(is_linear$0,_og_)},_gz_], - inline$0= - mk_t - (cst_inline, - inline, - [0,function(_of_){return preserves(bindings_unique,_of_)},_gA_]); - function inline_vars(e) - {function f(e) - {switch(e[0]) - {case 0: - var v=e[1]; - return function(subst) - {var _od_=caml_call2(Utils_String[41][28],v,subst),_oe_=var$0(v); - return caml_call2(Utils_Option[44],_oe_,_od_)}; - case 1: - var _ob_=e[1]; - if(_ob_) - {var _oc_=_ob_[1]; - if(_oc_) - if(! _ob_[2]) - {var e2=e[3],e1=e[2],x=_oc_[1]; - return function(subst) - {var e1$0=caml_call1(e1,subst); - return 0 === e1$0[1][0] - ?caml_call1(e2,caml_call3(Utils_String[41][4],x,e1$0,subst)) - :let_in([0,[0,x],0],e1$0,caml_call1(e2,subst))}}} - break - } - return function(subst) - {return [0,map_expr_f(function(x){return caml_call1(x,subst)},e)]}} - var _oa_=Utils_String[41][1]; - return caml_call1(cata_expr(f,e),_oa_)} - var - _gB_=0, - _gC_=[0,function(_n$_){return preserves(is_linear$0,_n$_)},_gB_], - inline_vars$0= - mk - (cst_inline_vars, - inline_vars, - [0,function(_n__){return preserves(bindings_unique,_n__)},_gC_]); - function underscore_var(occs,x) - {if(x) - {var x$0=x[1];if(! caml_call2(Utils_String[40][3],x$0,occs))return 0} - return x} - function underscore_vars(occs) - {function _n8_(_n9_){return underscore_var(occs,_n9_)} - return caml_call1(Utils_List[20],_n8_)} - function underscore_clause(param) - {var - match=param[3], - rhs=match[2], - occs=match[1], - var$0=param[2], - cons=param[1]; - return [0,cons,underscore_var(occs,var$0),rhs]} - function mark_unused_f(e$2) - {switch(e$2[0]) - {case 1: - var - _nO_=e$2[3], - e2=_nO_[2], - occs=_nO_[1], - match=e$2[2], - e1=match[2], - xs=e$2[1], - _n1_=let_in(caml_call1(underscore_vars(occs),xs),e1,e2); - break; - case 2: - var - match$0=e$2[4], - e=match$0[2], - occs$0=match$0[1], - b=e$2[3], - a=e$2[2], - x=e$2[1], - _n1_=[0,[2,underscore_var(occs$0,x),a,b,e]]; - break; - case 14: - var - _nP_=e$2[3], - e2$0=_nP_[2], - occs$1=_nP_[1], - match$1=e$2[2], - e1$0=match$1[2], - rp=e$2[1], - _nN_=function(_n6_){return underscore_var(occs$1,_n6_)}, - _n1_= - match_record - (caml_call1(caml_call1(Utils_Binary_tree[10],_nN_),rp),e1$0,e2$0); - break; - case 15: - var - clauses=e$2[2], - match$2=e$2[1], - scrutinee=match$2[2], - _n1_= - match_variant - (scrutinee, - caml_call2(Utils_Binary_tree[10],underscore_clause,clauses)); - break; - case 16: - var - _nQ_=e$2[3], - step=_nQ_[2], - occs$2=_nQ_[1], - xs$0=e$2[2], - match$3=e$2[1], - init=match$3[2], - _n1_=[0,[16,init,caml_call1(underscore_vars(occs$2),xs$0),step]]; - break; - case 19: - var - e3=e$2[4][2], - _nR_=e$2[3], - e2$1=_nR_[2], - occs$3=_nR_[1], - x$0=e$2[2], - match$4=e$2[1], - e1$1=match$4[2], - _n1_=if_some(e1$1,[0,underscore_var(occs$3,x$0),e2$1],e3); - break; - case 20: - var - _nS_=e$2[5], - e3$0=_nS_[2], - occs3=_nS_[1], - x2=e$2[4], - _nT_=e$2[3], - e2$2=_nT_[2], - occs2=_nT_[1], - x1=e$2[2], - match$5=e$2[1], - e1$2=match$5[2], - _nU_=[0,underscore_var(occs3,x2),e3$0], - _n1_=if_left(e1$2,[0,underscore_var(occs2,x1),e2$2],_nU_); - break; - case 21: - var - e3$1=e$2[5][2], - _nV_=e$2[4], - e2$3=_nV_[2], - occs$4=_nV_[1], - x2$0=e$2[3], - x1$0=e$2[2], - match$6=e$2[1], - e1$3=match$6[2], - _nW_=underscore_var(occs$4,x2$0), - _n1_=if_cons(e1$3,[0,underscore_var(occs$4,x1$0),_nW_,e2$3],e3$1); - break; - case 22: - var - es=e$2[3], - match$7=e$2[2], - e$0=match$7[2], - occs$5=match$7[1], - xs$1=e$2[1], - _nX_=function(_n5_){return _n5_[2]}, - _nY_=caml_call2(Utils_List[20],_nX_,es), - _n1_=iter_over(caml_call1(underscore_vars(occs$5),xs$1),e$0,_nY_); - break; - case 23: - var - es$0=e$2[3], - match$8=e$2[2], - e$1=match$8[2], - occs$6=match$8[1], - xs$2=e$2[1], - _nZ_=function(_n4_){return _n4_[2]}, - _n0_=caml_call2(Utils_List[20],_nZ_,es$0), - _n1_=map_over(caml_call1(underscore_vars(occs$6),xs$2),e$1,_n0_); - break; - case 24: - var - e3$2=e$2[4][2], - e2$4=e$2[3][2], - match$9=e$2[2], - e1$4=match$9[2], - c=e$2[1], - match$10=c[4], - body=match$10[2], - occs$7=match$10[1], - parameter_and_storage=c[3], - tstorage=c[2], - tparameter=c[1], - parameter_and_storage$0=underscore_var(occs$7,parameter_and_storage), - c$0=[0,tparameter,tstorage,parameter_and_storage$0,body], - _n1_=[0,[24,c$0,e1$4,e2$4,e3$2]]; - break; - default:var _n1_=[0,map_expr_f(function(_n7_){return _n7_[2]},e$2)]} - var e$3=map_expr_f(function(_n3_){return _n3_[1]},e$2); - if(0 === e$3[0]) - var v=e$3[1],_n2_=caml_call1(Utils_String[40][5],v); - else - var _n2_=fold_expr_f(Utils_String[40][7],Utils_String[40][1],e$3); - return [0,_n2_,_n1_]} - function t(e){return cata_expr(mark_unused_f,e)[2]} - var - _gD_=0, - _gE_= - [0, - function(t) - {function c$0(param,y) - {return caml_call1(c,y)?0:[0,caml_call2(Stdlib[28],cst_post,lbl)]} - return [6,c$0,t]}, - _gD_], - mark_unused= - mk - (cst_mark_unused, - t, - [0,function(_nM_){return preserves(bindings_unique,_nM_)},_gE_]); - function _gF_(e,param) - {if(5 === e[0]) - {var _nu_=e[1]; - if(typeof _nu_ === "number") - if(1 === _nu_) - {var _nv_=e[2],_nw_=_nv_[2]; - if(_nw_) - {var _nx_=_nw_[1]; - if(_nx_) - {var _ny_=_nx_[1]; - if(3 === _ny_[0]) - {var _nz_=_ny_[1],_nA_=_nv_[1]; - if(0 !== _nz_[0]) - {var _nB_=_nz_[2]; - if(0 === _nB_[0]) - {var _nC_=_nB_[1][1]; - if(_nC_) - if(! _nx_[2]){var lbl=_nC_[1];return prim1([0,lbl],_nA_)}}}}}}} - else - if(0 === _nu_) - {var _nD_=e[2],_nE_=_nD_[2]; - if(_nE_) - {var _nF_=_nE_[1]; - if(_nF_) - {var _nG_=_nF_[1]; - if(3 === _nG_[0]) - {var _nH_=_nG_[1],_nI_=_nD_[1]; - if(0 !== _nH_[0]) - {var _nJ_=_nH_[1]; - if(0 === _nJ_[0]) - {var _nK_=_nJ_[1][1]; - if(_nK_) - if(! _nF_[2]) - {var lbl$0=_nK_[1];return prim1([0,lbl$0],_nI_)}}}}}}}} - return [0,map_expr_f(function(_nL_){return _nL_[1]},e)]} - function field_access(_nt_){return cata_texpr(_gF_,_nt_)} - var - _gG_=0, - field_access$0= - mk_t - (cst_field_access, - field_access, - [0,function(_ns_){return preserves(bindings_unique,_ns_)},_gG_]); - function flatten_matches(e) - {var occs=count_occs(e); - function extract(c) - {var _np_=c[2]; - if(_np_) - {var _nq_=c[3][1]; - if(15 === _nq_[0]) - {var _nr_=_nq_[1][1]; - if(0 === _nr_[0]) - {var clauses=_nq_[2],scrutinee=_nr_[1],var$0=_np_[1]; - if(caml_string_equal(var$0,scrutinee)) - if - (caml_equal(caml_call2(Utils_String[41][28],var$0,occs),_gH_)) - return clauses}}} - return caml_call1(Utils_Binary_tree[35],c)} - function f(expr) - {if(15 === expr[0]) - {var - clauses=expr[2], - scrutinee=expr[1], - _no_=caml_call2(Utils_Binary_tree[10],extract,clauses); - return [0,[15,scrutinee,caml_call1(Utils_Binary_tree[32],_no_)]]} - return [0,expr]} - return cata_expr(f,e)} - var - _gI_=0, - flatten_matches$0= - mk - (cst_flatten_matches, - flatten_matches, - [0,function(_nn_){return preserves(bindings_unique,_nn_)},_gI_]); - function singleton_or_record(xs) - {if(0 === xs[0]){var _nm_=xs[1];if(! _nm_[1]){var x=_nm_[2];return x}} - return [0,[9,xs]]} - function is_failwith(param) - {var _nk_=param[1]; - if(5 === _nk_[0]) - {var _nl_=_nk_[1];if(typeof _nl_ === "number")if(3 === _nl_)return 1} - return 0} - function mostly_fails(clauses) - {function _ni_(param){var rhs=param[3];return 1 - is_failwith(rhs)} - var _nj_=caml_call2(Utils_Binary_tree[42],_ni_,clauses); - return caml_call3(Utils_Option[13],0,Utils_Binary_tree[6],_nj_) <= 1?1:0} - function mangle(st) - {var - _m1_=0, - _m2_=[0,function(_nh_){return preserves(bindings_unique,_nh_)},_m1_]; - function f(expr) - {if(1 === expr[0]) - {var _m4_=expr[1]; - if(_m4_) - {var _m5_=_m4_[1]; - if(_m5_) - if(_m4_[2]) - var switch$1=1; - else - {var _nd_=expr[3][1]; - if(0 === _nd_[0]) - {var x=_nd_[1],e1$1=expr[2],x$0=_m5_[1]; - if(caml_string_equal(x$0,x))return e1$1; - var switch$0=0,switch$1=0} - else - var switch$0=0,switch$1=0} - else - if(_m4_[2]) - var switch$1=1; - else - {var e2$2=expr[3],e1$2=expr[2]; - if(! may_fail(e1$2))return e2$2; - var switch$0=0,switch$1=0} - if(switch$1) - {var _m6_=_m4_[2]; - if(_m6_[2]) - var switch$0=0; - else - {var _m$_=expr[2][1],_na_=_m6_[1]; - switch(_m$_[0]) - {case 9: - var _nb_=_m$_[1]; - if(0 !== _nb_[0]) - {var - e2$1=expr[3], - r2=_nb_[2], - r1=_nb_[1], - unwrap= - function(x) - {if(0 === x[0]){var match=x[1],x$0=match[2];return x$0} - return [0,[9,x]]}, - _nc_=let_in([0,_na_,0],unwrap(r2),e2$1); - return let_in([0,_m5_,0],unwrap(r1),_nc_)} - var switch$0=1; - break; - case 1: - case 5: - case 15:var switch$0=0;break; - default:var switch$0=1}}}} - else - var switch$0=0; - if(! switch$0) - {var _m7_=expr[2],_m8_=_m7_[1]; - switch(_m8_[0]) - {case 1: - var e3=expr[3],e1=_m8_[3],e2=_m8_[2],rp2=_m8_[1]; - return let_in(rp2,e2,let_in(_m4_,e1,e3)); - case 5: - var _m9_=_m8_[1]; - if(typeof _m9_ === "number")if(3 === _m9_)return _m7_; - break; - case 15: - var e2$0=expr[3],clauses=_m8_[2],e1$0=_m8_[1]; - if(mostly_fails(clauses)) - {var - mk_clause= - function(c) - {var rhs=c[3],var$0=c[2],cons=c[1]; - return is_failwith(rhs) - ?c - :[0,cons,var$0,let_in(_m4_,rhs,e2$0)]}, - r= - match_variant - (e1$0,caml_call2(Utils_Binary_tree[10],mk_clause,clauses)); - return r} - if(caml_call2(Utils_List[31],Utils_Option[45],_m4_)) - {var - mk_clause$0= - function(c) - {var rhs=c[3],var$1=c[2],cons=c[1]; - if(is_failwith(rhs))return c; - function _ne_(param){return fresh(st,v)} - var - _nf_=caml_call1(Utils_Option[18],_ne_), - xs=caml_call1(caml_call1(Utils_List[20],_nf_),_m4_), - _ng_=caml_call2(Utils_List[23],Utils_Control[1],xs), - xs_used= - vector(caml_call1(caml_call1(Utils_List[20],var$0),_ng_)), - rhs$0=let_in(xs,rhs,xs_used); - return [0,cons,var$1,rhs$0]}, - _m__=caml_call1(Utils_List[73],_m4_), - xs=caml_call2(Utils_List[20],Utils_Option[14],_m__); - return let_in - (xs, - match_variant - (e1$0,caml_call2(Utils_Binary_tree[10],mk_clause$0,clauses)), - e2$0)} - break - }}} - return [0,expr]} - return mk(cst_mangle,function(_m3_){return cata_expr(f,_m3_)},_m2_)} - function f$1(expr) - {switch(expr[0]) - {case 1: - var _mP_=expr[1]; - if(_mP_) - {var _mQ_=_mP_[1]; - if(_mQ_) - if(_mP_[2]) - var switch$0=0; - else - {var _mS_=expr[2][1]; - if(15 === _mS_[0]) - {var _mT_=_mS_[1]; - if(0 === _mT_[1][0]) - {var _mU_=expr[3][1]; - if(6 === _mU_[0]) - if(typeof _mU_[1] === "number") - var switch$0=0; - else - {var _mV_=_mU_[2],_mW_=_mV_[1]; - if(4 === _mW_[0]) - {var _mX_=_mW_[1]; - if(typeof _mX_ === "number") - var switch$1=1; - else - if(2 === _mX_[0]) - {var _mY_=_mU_[3][1]; - if(0 === _mY_[0]) - {var x=_mY_[1],clauses$1=_mS_[2],x$0=_mQ_[1]; - if(caml_string_equal(x$0,x)) - {var - f$0= - function(param) - {var rhs=param[3],var$0=param[2],cons=param[1]; - return [0,cons,var$0,caml_call2(pair(0,0),_mV_,rhs)]}, - clauses$2=caml_call2(Utils_Binary_tree[10],f$0,clauses$1); - return match_variant(_mT_,clauses$2)} - var switch$0=0,switch$1=0} - else - var switch$0=0,switch$1=0} - else - var switch$1=1; - if(switch$1)var switch$0=0} - else - var switch$0=0} - else - var switch$0=0} - else - var switch$0=0} - else - var switch$0=1} - else - var switch$0=0} - else - var switch$0=0; - if(! switch$0) - {var _mR_=expr[2][1]; - if(15 === _mR_[0]) - {var e=expr[3],clauses=_mR_[2],scrutinee=_mR_[1]; - if(is_var(scrutinee)) - if(is_simple(e)) - {var - f= - function(param) - {var rhs=param[3],var$0=param[2],cons=param[1]; - return [0,cons,var$0,let_in(_mP_,rhs,e)]}, - clauses$0=caml_call2(Utils_Binary_tree[10],f,clauses); - return match_variant(scrutinee,clauses$0)}}} - break; - case 6: - var _mZ_=expr[1]; - if(typeof _mZ_ !== "number") - {var _m0_=expr[3][1]; - if(15 === _m0_[0]) - {var - clauses$3=_m0_[2], - scrutinee$0=_m0_[1], - l=expr[2], - a2=_mZ_[2], - a1=_mZ_[1]; - if(is_var(scrutinee$0)) - if(is_simple(l)) - {var - f$1= - function(param) - {var rhs=param[3],var$0=param[2],cons=param[1]; - return [0,cons,var$0,caml_call2(pair(a1,a2),l,rhs)]}, - clauses$4=caml_call2(Utils_Binary_tree[10],f$1,clauses$3); - return match_variant(scrutinee$0,clauses$4)}}} - break - } - return [0,expr]} - function distribute_lets(_mO_){return cata_expr(f$1,_mO_)} - var distribute_lets$0=mk(cst_distribute_lets,distribute_lets,0); - function f$2(expr) - {if(5 === expr[0]) - {var _mH_=expr[1]; - if(typeof _mH_ === "number") - if(1 === _mH_) - {var _mI_=expr[2][1]; - switch(_mI_[0]) - {case 6: - if(typeof _mI_[1] !== "number"){var y=_mI_[3];return y}break; - case 9: - var _mJ_=_mI_[1]; - if(0 !== _mJ_[0]) - {var _mK_=_mJ_[2]; - if(0 === _mK_[0]){var match=_mK_[1],e2=match[2];return e2} - return [0,[9,_mK_]]} - break - }} - else - if(0 === _mH_) - {var _mL_=expr[2][1]; - switch(_mL_[0]) - {case 6: - if(typeof _mL_[1] !== "number"){var x=_mL_[2];return x}break; - case 9: - var _mM_=_mL_[1]; - if(0 !== _mM_[0]) - {var _mN_=_mM_[1]; - if(0 === _mN_[0]) - {var match$0=_mN_[1],e1=match$0[2];return e1} - return [0,[9,_mN_]]} - break - }}} - return [0,expr]} - function fold_constants(_mG_){return cata_expr(f$2,_mG_)} - var - _gJ_=0, - fold_constants$0= - mk - (cst_fold_constants, - fold_constants, - [0,function(_mF_){return preserves(bindings_unique,_mF_)},_gJ_]); - function pp_tree_skel(x) - {function _mD_(ppf,param){return caml_call2(Stdlib_format[123],ppf,_gK_)} - function _mE_(ppf){return caml_call2(Stdlib_format[123],ppf,_gL_)} - return caml_call3(Utils_Binary_tree[37],_mE_,_mD_,x)} - function _gN_(e,param) - {if(15 === e[0]) - {var _mq_=e[1],_mr_=_mq_[2]; - if(_mr_) - {var _ms_=_mr_[1]; - if(_ms_) - {var _mt_=_ms_[1]; - if(4 === _mt_[0]) - if(! _ms_[2]) - {var - clauses=e[2], - r_scrutinee=_mt_[1], - scrutinee=_mq_[1], - match=caml_call2(Utils_Binary_tree[43],clauses,r_scrutinee); - if(match) - {var - clauses$0=match[1], - put_cons= - function(param) - {var _mx_=param[1],_my_=_mx_[1]; - if(! _my_) - {var _mz_=param[2],_mA_=_mx_[3][1],_mB_=_mx_[2]; - if(0 === _mz_[0]) - {var _mC_=_mz_[1][1]; - if(_mC_){var cons=_mC_[1];return [0,[0,cons],_mB_,_mA_]}}} - var match=_mx_[3],rhs=match[1],var$0=_mx_[2]; - return [0,_my_,var$0,rhs]}, - clauses$1= - caml_call2(Utils_Binary_tree[10],put_cons,clauses$0); - return [0,[15,scrutinee,clauses$1]]} - var - _mu_=print_row(cst$55), - _mv_= - caml_call5 - (Stdlib_format[127], - _gM_, - _mu_, - r_scrutinee, - pp_tree_skel, - clauses); - return caml_call1(Stdlib[2],_mv_)}}}} - return [0,map_expr_f(function(_mw_){return _mw_[1]},e)]} - function infer_constructors(_mp_){return cata_texpr(_gN_,_mp_)} - var - _gO_=0, - infer_constructors$0= - mk_t - (cst_infer_constructors, - infer_constructors, - [0,function(_mo_){return preserves(bindings_unique,_mo_)},_gO_]); - function cons(x,xs){return [0,x,xs]} - var _gQ_=Utils_Control[1],bound=0; - function lens_lets(param$1) - {var bound$0=bound,wrap=_gQ_,param=param$1; - for(;;) - {var expr=param[1]; - switch(expr[0]) - {case 1: - var - e2=expr[3], - e1=expr[2], - xs=expr[1], - wrap$4= - function(wrap,e1,xs) - {function wrap$0(e2){return caml_call1(wrap,[0,[1,xs,e1,e2]])} - return wrap$0}, - wrap$0=wrap$4(wrap,e1,xs), - _mj_=caml_call1(Utils_List[73],xs), - bound$1=caml_call2(Stdlib[37],_mj_,bound$0), - bound$0=bound$1, - wrap=wrap$0, - param=e2; - continue; - case 15: - var clauses=expr[2],e=expr[1]; - if(mostly_fails(clauses)) - {var - _mk_=caml_call1(Utils_Binary_tree[38],clauses), - _ml_= - function(param){var rhs=param[3];return 1 - is_failwith(rhs)}, - match=caml_call2(Utils_List[37],_ml_,_mk_); - if(match) - {var - match$0=match[1], - rhs=match$0[3], - var$0=match$0[2], - wrap$5= - function(wrap,clauses,e) - {function wrap$0(rhs) - {function f(c) - {var rhs$0=c[3],var$0=c[2],cons=c[1]; - return is_failwith(rhs$0)?c:[0,cons,var$0,rhs]} - return caml_call1 - (wrap, - match_variant(e,caml_call2(Utils_Binary_tree[10],f,clauses)))} - return wrap$0}, - wrap$1=wrap$5(wrap,clauses,e), - bound$2= - caml_call4 - (Utils_Option[13],Utils_Control[1],cons,var$0,bound$0), - bound$0=bound$2, - wrap=wrap$1, - param=rhs; - continue} - return [0,bound$0,[0,expr],wrap]} - break; - case 20: - var - r=expr[5], - xr=expr[4], - l=expr[3], - xl=expr[2], - s=expr[1], - match$1=is_failwith(l), - match$2=is_failwith(r); - if(0 === match$1) - {if(0 !== match$2)throw [0,Assert_failure,_gP_]} - else - if(0 === match$2) - {var - _mm_=function(x){return [0,x,0]}, - _mn_=caml_call3(Utils_Option[13],0,_mm_,xr), - bound$3=caml_call2(Stdlib[37],_mn_,bound$0), - wrap$6= - function(xr,l,xl,s) - {function wrap(r){return [0,[20,s,xl,l,xr,r]]}return wrap}, - wrap$2=wrap$6(xr,l,xl,s), - bound$0=bound$3, - wrap=wrap$2, - param=r; - continue} - return [0,bound$0,[0,expr],wrap]; - case 25: - var - param$0=expr[2], - xs$0=expr[1], - wrap$7= - function(wrap,xs) - {function wrap$0(e){return caml_call1(wrap,[0,[25,xs,e]])} - return wrap$0}, - wrap$3=wrap$7(wrap,xs$0), - wrap=wrap$3, - param=param$0; - continue - } - return [0,bound$0,[0,expr],wrap]}} - function f$3(expr) - {if(16 === expr[0]) - {var _l9_=expr[1],_l__=_l9_[1]; - if(1 === _l__[0]) - {var step$1=expr[3],ts=expr[2],e2=_l__[3],e1=_l__[2],xs$0=_l__[1]; - return [0,[1,xs$0,e1,[0,[16,e2,ts,step$1]]]]} - var step=expr[3],xs=expr[2],_l$_=lens_lets(step),_ma_=_l9_[1]; - if(17 === _ma_[0]) - {var _mb_=_ma_[1]; - if(_mb_) - {var _mc_=_l$_[2][1]; - if(17 === _mc_[0]) - {var _md_=_mc_[1]; - if(_md_) - {var - step$0=_md_[2], - init=_mb_[2], - f= - function(x,s,i) - {if(x) - {var _mi_=s[1]; - if(0 === _mi_[0]) - if(0 === i[1][0]) - {var s$0=_mi_[1],x$0=x[1]; - if(caml_string_equal(x$0,s$0))return [0,[0,x$0,i]]}} - return 0}, - _me_=caml_call1(Utils_List[4],init), - _mf_=caml_call1(Utils_List[4],step$0), - _mg_=caml_call1(Utils_List[4],xs); - if(caml_call3(Utils_Control[18],_mg_,_mf_,_me_)) - {var - _mh_=caml_call5(Utils_List[64],0,f,xs,step$0,init), - s=caml_call1(Utils_List[73],_mh_); - return caml_call1(substitute(s),[0,expr])} - throw [0,Assert_failure,_gR_]}}}} - return [0,expr]} - return [0,expr]} - function inline_invariant_loop_state(_l8_){return cata_expr(f$3,_l8_)} - var - _gS_=0, - inline_invariant_loop_state$0= - mk - (cst_inline_invariant_loop_state, - inline_invariant_loop_state, - [0,function(_l7_){return preserves(bindings_unique,_l7_)},_gS_]); - function remove_in_vector(st,used,e) - {function _l5_(u){return u?[0,fresh(st,cst_s)]:0} - var - xs=caml_call2(Utils_List[20],_l5_,used), - _l6_=caml_call1(Utils_List[73],xs); - return let_in(xs,e,vector(caml_call2(Utils_List[20],var$0,_l6_)))} - function remove(used,xs) - {var _lY_=caml_call1(Utils_List[4],xs); - if(caml_call1(Utils_List[4],used) === _lY_) - {var - _lZ_=caml_call4(Utils_List[70],0,Utils_Control[2],used,xs), - _l0_=function(_l4_){return _l4_[1]}, - _l1_=caml_call2(Utils_List[38],_l0_,_lZ_), - _l2_=function(_l3_){return _l3_[2]}; - return caml_call2(Utils_List[20],_l2_,_l1_)} - throw [0,Assert_failure,_gT_]} - function unused_loop_state(st) - {var - _lO_=0, - _lP_=[0,function(_lX_){return preserves(bindings_unique,_lX_)},_lO_]; - function f(expr) - {if(1 === expr[0]) - {var _lR_=expr[2][1]; - if(16 === _lR_[0]) - {var - e=expr[3], - step=_lR_[3], - xs=_lR_[2], - init=_lR_[1], - rs=expr[1], - _lS_=caml_call1(Utils_List[4],xs); - if(caml_call1(Utils_List[4],rs) === _lS_) - {var - _lT_= - function(x,r) - {var _lW_=caml_call1(Utils_Option[46],x); - return _lW_?_lW_:caml_call1(Utils_Option[46],r)}, - used=caml_call4(Utils_List[70],0,_lT_,rs,xs), - _lU_=function(_lV_){return 1 - _lV_}; - if(caml_call2(Utils_List[31],_lU_,used)) - {var - rs$0=remove(used,rs), - xs$0=remove(used,xs), - init$0=remove_in_vector(st,[0,1,used],init), - step$0=remove_in_vector(st,[0,1,used],step); - return let_in(rs$0,loop(init$0,xs$0,step$0),e)} - return [0,expr]} - throw [0,Assert_failure,_gU_]}} - return [0,expr]} - return mk - (cst_unused_loop_state, - function(_lQ_){return cata_expr(f,_lQ_)}, - _lP_)} - function remove_invariant_loop_state(st) - {function _ly_(expr) - {if(1 === expr[0]) - {var _lC_=expr[2][1]; - if(16 === _lC_[0]) - {var - e=expr[3], - step=_lC_[3], - xs=_lC_[2], - init=_lC_[1], - rs=expr[1], - _lD_=lens_lets(step), - _lE_=_lD_[2][1]; - if(17 === _lE_[0]) - {var _lF_=_lE_[1]; - if(_lF_) - {var - close_step=_lD_[3], - step$0=_lF_[2], - s0=_lF_[1], - _lG_=caml_call1(Utils_List[4],step$0); - if(caml_call1(Utils_List[4],xs) === _lG_) - {var - is_needed= - function(r,x,s) - {if(! r) - if(x) - {var _lM_=s[1]; - if(0 === _lM_[0]) - {var x$0=_lM_[1],x$1=x[1]; - if(caml_string_equal(x$1,x$0)) - {var _lN_=count_occs(step); - if(1 === caml_call3(Utils_String[41][39],0,x$1,_lN_)) - return 0}}} - return 1}, - _lH_=caml_call1(Utils_List[4],step$0), - _lI_=caml_call1(Utils_List[4],xs), - _lJ_=caml_call1(Utils_List[4],rs); - if(caml_call3(Utils_Control[18],_lJ_,_lI_,_lH_)) - {var - needed=caml_call5(Utils_List[64],0,is_needed,rs,xs,step$0), - _lK_=function(_lL_){return 1 - _lL_}; - if(caml_call2(Utils_List[31],_lK_,needed)) - {var - rs$0=remove(needed,rs), - xs$0=remove(needed,xs), - init$0=remove_in_vector(st,[0,1,needed],init), - step$1=remove(needed,step$0), - step$2=caml_call1(close_step,vector([0,s0,step$1])); - return let_in(rs$0,loop(init$0,xs$0,step$2),e)} - return [0,expr]} - throw [0,Assert_failure,_gV_]} - throw [0,Assert_failure,_gW_]}} - return [0,expr]}} - return [0,expr]} - function t(_lB_){return cata_expr(_ly_,_lB_)} - var _lz_=0; - return mk - (cst_remove_invariant_loop_state, - t, - [0,function(_lA_){return preserves(bindings_unique,_lA_)},_lz_])} - function unify_fields(x,match) - {if(x) - if(match) - {var y=match[1],x$0=x[1]; - return caml_equal(x$0,y) - ?[0,x$0] - :caml_call1(Stdlib[2],cst_unify_fields)} - return match?match:x} - function common_parts(x,y) - {var _lm_=caml_call2(Utils_Binary_tree[44],x,y); - function _ln_(param) - {var _lp_=param[1]; - if(0 === _lp_[0]) - {var _lq_=_lp_[1],_lr_=_lq_[2],_ls_=_lq_[1]; - if(_lr_) - {var _lt_=param[2],_lu_=_lr_[1]; - if(0 === _lt_[0]) - {var _lv_=_lt_[1],_lw_=_lv_[2]; - if(_lw_) - {var y=_lw_[1],fld_y=_lv_[1]; - if(caml_call2(equal_expr,_lu_,y)) - return [0,[0,unify_fields(_ls_,fld_y),[0,_lu_]]]; - var switch$0=0} - else - var switch$0=0} - else - var switch$0=1} - else - var switch$0=0; - if(! switch$0) - {var _lx_=param[2]; - if(0 === _lx_[0]) - {var match=_lx_[1],fld_y$0=match[1]; - return [0,[0,unify_fields(_ls_,fld_y$0),0]]}}} - return _gX_} - var _lo_=caml_call2(Utils_Binary_tree[10],_ln_,_lm_); - return caml_call1(Utils_Binary_tree[32],_lo_)} - function factorise_clauses(st) - {var - _kO_=0, - _kP_=[0,function(_ll_){return preserves(bindings_unique,_ll_)},_kO_]; - function f(expr) - {if(15 === expr[0]) - {var - clauses=expr[2], - scrutinee=expr[1], - _kR_= - function(results) - {function _kX_(results) - {function _kZ_(param) - {var - _k1_=caml_call1(Utils_Control[5],Utils_Option[14]), - _k2_=caml_call1(Utils_Binary_tree[10],_k1_), - _k3_=caml_call2(Utils_Binary_tree[10],_k2_,results), - shared=caml_call2(Utils_Binary_tree[39],common_parts,_k3_); - function _k4_(x){return caml_call1(Utils_Option[46],x[2])} - var b=caml_call2(Utils_Binary_tree[49],_k4_,shared); - function _k5_(param) - {function _k7_(param) - {var _lj_=param[2],_lk_=param[1]; - if(_lj_){var x=_lj_[1];return [1,[0,_lk_,x]]} - return [0,fresh(st,cst_o)]} - var - out=caml_call2(Utils_Binary_tree[10],_k7_,shared), - _k8_= - caml_call2(Utils_Binary_tree[41],Utils_Control[9][1],out), - _k9_=caml_call1(Utils_Binary_tree[10],Utils_Option[14]), - x=caml_call3(Utils_Option[13],_gY_,_k9_,_k8_), - pat= - caml_call2(Utils_Binary_tree[10],Utils_Control[9][3],out); - function prune_rhs(rhs) - {var _lh_=rhs[1]; - switch(_lh_[0]) - {case 5: - var _li_=_lh_[1]; - if(typeof _li_ === "number")if(3 === _li_)return rhs; - break; - case 9: - var - r=_lh_[1], - _lc_=caml_call2(Utils_Binary_tree[43],pat,r), - _ld_=caml_call1(Utils_Option[47],_lc_), - _le_= - function(param){var x=param[2],p=param[1];return p?[0,x]:0}, - _lf_=caml_call2(Utils_Binary_tree[41],_le_,_ld_), - _lg_=caml_call2(Utils_Option[18],Utils_Binary_tree[32],_lf_); - return singleton_or_record - (caml_call2(Utils_Option[44],[0,[0,0,unit]],_lg_)) - } - throw [0,Assert_failure,_gZ_]} - function _k__(_lb_){return map_match_clause(prune_rhs,_lb_)} - var - clauses$0= - caml_call2(Utils_Binary_tree[10],_k__,clauses); - function _k$_(param) - {if(0 === param[0]){var x=param[1];return [0,0,var$0(x)]} - var e=param[1]; - return e} - var - out$0=caml_call2(Utils_Binary_tree[10],_k$_,out), - _la_=singleton_or_record(out$0); - return [0, - match_record(x,match_variant(scrutinee,clauses$0),_la_)]} - var _k6_=b?_g0_:0; - return caml_call2(Utils_Option[38][1],_k6_,_k5_)} - var _k0_=mostly_fails(clauses)?0:_g1_; - return caml_call2(Utils_Option[38][1],_k0_,_kZ_)} - var - _kY_= - caml_call2(Utils_Binary_tree[41],Utils_Control[1],results); - return caml_call2(Utils_Option[38][1],_kY_,_kX_)}, - _kS_= - function(param) - {var _kV_=param[3][1]; - switch(_kV_[0]) - {case 5: - var _kW_=_kV_[1]; - if(typeof _kW_ === "number")if(3 === _kW_)return _g2_; - break; - case 9:var r=_kV_[1];return [0,[0,r]] - } - return 0}, - _kT_=caml_call2(TO[1],_kS_,clauses), - _kU_=caml_call2(Utils_Option[38][1],_kT_,_kR_); - return caml_call2(Utils_Option[44],[0,expr],_kU_)} - return [0,expr]} - return mk - (cst_factorise_clauses, - function(_kQ_){return cata_expr(f,_kQ_)}, - _kP_)} - function f$4(expr) - {if(15 === expr[0]) - {var _kF_=expr[2],_kG_=expr[1]; - if(0 !== _kF_[0]) - {var _kH_=_kF_[1]; - if(0 === _kH_[0]) - {var _kI_=_kH_[1],_kJ_=_kI_[1]; - if(_kJ_) - if(! caml_string_notequal(_kJ_[1],cst_True$0)) - if(! _kI_[2]) - {var _kK_=_kF_[2],_kL_=_kI_[3]; - if(0 === _kK_[0]) - {var _kM_=_kK_[1],_kN_=_kM_[1]; - if(_kN_) - if(! caml_string_notequal(_kN_[1],cst_False$0)) - if(! _kM_[2]) - {var r2=_kM_[3]; - return caml_call2(equal_expr,r2,false$0) - ?prim2(7,_kG_,_kL_) - :caml_call2(equal_expr,_kL_,true$0) - ?prim2(8,_kG_,_kL_) - :[0,expr]}}}}}} - return [0,expr]} - function reify_booleans(_kE_){return cata_expr(f$4,_kE_)} - var - _g3_=0, - reify_booleans$0= - mk - (cst_reify_booleans, - reify_booleans, - [0,function(_kD_){return preserves(bindings_unique,_kD_)},_g3_]); - function two_clauses(c1,c2){return [1,[0,c1],[0,c2]]} - function f$5(expr) - {switch(expr[0]) - {case 18: - var r=expr[3],l=expr[2],cond=expr[1]; - return match_variant(cond,two_clauses([0,_g5_,0,l],[0,_g4_,0,r])); - case 19: - var r$0=expr[4],l$0=expr[3],xl=expr[2],scrutinee=expr[1]; - return match_variant - (scrutinee,two_clauses([0,_g7_,xl,l$0],[0,_g6_,0,r$0])); - case 20: - var - r$1=expr[5], - xr=expr[4], - l$1=expr[3], - xl$0=expr[2], - scrutinee$0=expr[1]; - return match_variant - (scrutinee$0,two_clauses([0,0,xl$0,l$1],[0,0,xr,r$1])); - default:return [0,expr]}} - function unfold_ifs(_kC_){return cata_expr(f$5,_kC_)} - var - _g8_=0, - unfold_ifs$0= - mk - (cst_unfold_ifs, - unfold_ifs, - [0,function(_kB_){return preserves(bindings_unique,_kB_)},_g8_]); - function f$6(expr) - {switch(expr[0]) - {case 9: - var _j0_=expr[1]; - if(0 !== _j0_[0]) - {var _j1_=_j0_[1]; - if(0 === _j1_[0]) - {var _j2_=_j0_[2],_j3_=_j1_[1][2]; - if(0 === _j2_[0]) - {var match=_j2_[1],y=match[2]; - return caml_call2(pair(0,0),_j3_,y)}}} - break; - case 10: - var _j4_=expr[1]; - if(_j4_) - {var _j5_=_j4_[1]; - if(caml_string_notequal(_j5_,cst_False$1)) - if(caml_string_notequal(_j5_,cst_None$27)) - if(caml_string_notequal(_j5_,cst_Some$28)) - if(caml_string_notequal(_j5_,cst_True$1)) - var switch$0=0; - else - {var _j9_=expr[2]; - if(typeof _j9_ === "number") - var switch$0=1; - else - if(0 === _j9_[0]) - if(typeof _j9_[1] === "number") - {var _j__=_j9_[2]; - if(0 === _j__[0]) - {var _j$_=_j__[1][1]; - if(_j$_) - {if(! caml_string_notequal(_j$_[1],cst_False$2)) - return lit(1); - var switch$0=0} - else - var switch$0=0} - else - var switch$0=1} - else - var switch$0=1; - else - var switch$0=0} - else - {var _ka_=expr[2]; - if(typeof _ka_ === "number") - var switch$0=1; - else - if(0 === _ka_[0]) - var switch$0=0; - else - {var _kb_=_ka_[1]; - if(0 === _kb_[0]) - {var _kc_=_kb_[1][1]; - if(_kc_) - if(caml_string_notequal(_kc_[1],cst_None$28)) - var switch$0=0; - else - {if(typeof _ka_[2] === "number")return unit;var switch$0=1} - else - var switch$0=0} - else - var switch$0=1}} - else - {var _kd_=expr[2]; - if(typeof _kd_ === "number") - var switch$0=1; - else - if(0 === _kd_[0]) - if(typeof _kd_[1] === "number") - {var _ke_=_kd_[2]; - if(0 === _ke_[0]) - {var _kf_=_ke_[1][1]; - if(_kf_) - {if(! caml_string_notequal(_kf_[1],cst_Some$29)) - {var e$1=expr[3];return some(e$1)} - var switch$0=0} - else - var switch$0=0} - else - var switch$0=1} - else - var switch$0=1; - else - var switch$0=0} - else - {var _kg_=expr[2]; - if(typeof _kg_ === "number") - var switch$0=1; - else - if(0 === _kg_[0]) - var switch$0=0; - else - {var _kh_=_kg_[1]; - if(0 === _kh_[0]) - {var _ki_=_kh_[1][1]; - if(_ki_) - if(caml_string_notequal(_ki_[1],cst_True$2)) - var switch$0=0; - else - {if(typeof _kg_[2] === "number")return lit(2); - var switch$0=1} - else - var switch$0=0} - else - var switch$0=1}}} - else - var switch$0=0; - if(! switch$0) - {var _j6_=expr[2]; - if(typeof _j6_ !== "number") - if(0 === _j6_[0]) - {if(typeof _j6_[1] === "number") - {var _j7_=_j6_[2]; - if(0 === _j7_[0]) - {var e=expr[3],match$0=_j7_[1],t=match$0[2],a2=match$0[1]; - return caml_call1(left(a2,_j4_,t),e)}}} - else - {var _j8_=_j6_[1]; - if(0 === _j8_[0]) - if(typeof _j6_[2] === "number") - {var - e$0=expr[3], - match$1=_j8_[1], - t$0=match$1[2], - a2$0=match$1[1]; - return caml_call1(right(a2$0,_j4_,t$0),e$0)}}} - break; - case 15: - var _kj_=expr[2],_kk_=expr[1]; - if(0 === _kj_[0])throw [0,Assert_failure,_g9_]; - var _kl_=_kj_[1]; - if(0 === _kl_[0]) - {var _km_=_kl_[1],_kn_=_km_[1]; - if(_kn_) - {var _ko_=_kn_[1]; - if(caml_string_notequal(_ko_,cst_Some$30)) - if(caml_string_notequal(_ko_,cst_True$3)) - var switch$1=0; - else - if(_km_[2]) - var switch$1=0; - else - {var _ks_=_kj_[2],_kt_=_km_[3]; - if(0 === _ks_[0]) - {var _ku_=_ks_[1],_kv_=_ku_[1]; - if(_kv_) - if(caml_string_notequal(_kv_[1],cst_False$3)) - var switch$1=0; - else - {if(! _ku_[2]){var r$0=_ku_[3];return if$0(_kk_,_kt_,r$0)} - var switch$1=0} - else - var switch$1=0} - else - var switch$1=1} - else - {var _kw_=_kj_[2],_kx_=_km_[3],_ky_=_km_[2]; - if(0 === _kw_[0]) - {var _kz_=_kw_[1],_kA_=_kz_[1]; - if(_kA_) - if(caml_string_notequal(_kA_[1],cst_None$29)) - var switch$1=0; - else - {if(! _kz_[2]) - {var r$1=_kz_[3];return if_some(_kk_,[0,_ky_,_kx_],r$1)} - var switch$1=0} - else - var switch$1=0} - else - var switch$1=1}} - else - var switch$1=0; - if(! switch$1) - {var _kp_=_kj_[2],_kq_=_km_[3],_kr_=_km_[2]; - if(0 === _kp_[0]) - {var match$2=_kp_[1],r=match$2[3],xr=match$2[2]; - return if_left(_kk_,[0,_kr_,_kq_],[0,xr,r])}}} - throw [0,Assert_failure,_g__] - } - return [0,expr]} - function fold_ifs(_jZ_){return cata_expr(f$6,_jZ_)} - var - _g$_=0, - fold_ifs$0= - mk - (cst_fold_ifs, - fold_ifs, - [0,function(_jY_){return preserves(bindings_unique,_jY_)},_g$_]); - function always_fails(e) - {var match=lens_lets(e),e$0=match[2];return is_failwith(e$0)} - function f$7(expr) - {if(1 === expr[0]) - {var _jX_=expr[2][1]; - if(18 === _jX_[0]) - {var e=expr[3],b=_jX_[3],a=_jX_[2],c=_jX_[1],x=expr[1]; - if(always_fails(b))return [0,[18,c,[0,[1,x,a,e]],b]]}} - return [0,expr]} - function nest_ifs(_jW_){return cata_expr(f$7,_jW_)} - var - _ha_=0, - nest_ifs$0= - mk - (cst_nest_ifs, - nest_ifs, - [0,function(_jV_){return preserves(bindings_unique,_jV_)},_ha_]); - function f$8(expr) - {if(18 === expr[0]) - {var _jU_=expr[2][1]; - if(1 === _jU_[0]) - {var b=expr[3],e=_jU_[3],a=_jU_[2],x=_jU_[1],c=expr[1]; - if(always_fails(b))return [0,[1,x,[0,[18,c,a,b]],e]]}} - return [0,expr]} - function flatten_ifs(_jT_){return cata_expr(f$8,_jT_)} - var - _hb_=0, - flatten_ifs$0= - mk - (cst_flatten_ifs, - flatten_ifs, - [0,function(_jS_){return preserves(bindings_unique,_jS_)},_hb_]); - function f$9(expr) - {if(1 === expr[0]) - {var _jO_=expr[2][1]; - if(17 === _jO_[0]) - {var - e=expr[3], - es=_jO_[1], - xs=expr[1], - _jP_=caml_call1(Utils_List[4],es); - if(caml_call1(Utils_List[4],xs) === _jP_) - {var - _jQ_=function(x,e){return [0,[0,x,0],e]}, - bs=caml_call4(Utils_List[70],0,_jQ_,xs,es), - _jR_=caml_call1(Utils_Control[17],let_in); - return caml_call3(Utils_List[25],_jR_,bs,e)} - throw [0,Assert_failure,_hc_]}} - return [0,expr]} - function unvectortize_lets(_jN_){return cata_expr(f$9,_jN_)} - var - _hd_=0, - unvectortize_lets$0= - mk - (cst_unvectortize_lets, - unvectortize_lets, - [0,function(_jM_){return preserves(bindings_unique,_jM_)},_hd_]); - function _hf_(e$0,param) - {if(5 === e$0[0]) - {var _jF_=e$0[1]; - if(typeof _jF_ === "number") - var switch$0=0; - else - if(0 === _jF_[0]) - {var _jG_=e$0[2],_jH_=_jG_[2]; - if(_jH_) - {var _jI_=_jH_[1]; - if(_jI_) - {var _jJ_=_jI_[1]; - if(3 === _jJ_[0]) - {if(! _jI_[2]) - {var - r=_jJ_[1], - e=_jG_[1], - fld=_jF_[1], - proj= - function(r,p,other) - {var r$0=r,p$0=p,other$0=other; - for(;;) - {if(0 === r$0[0]) - {var _jL_=r$0[1][1]; - if(_jL_) - {var n=_jL_[1];if(caml_string_equal(fld,n))return p$0} - return caml_call1(other$0,0)} - var - y=r$0[2], - r$1=r$0[1], - other$2= - function(other,p,y) - {function other$0(param){return proj(y,[0,[5,1,p]],other)} - return other$0}, - other$1=other$2(other$0,p$0,y), - p$1=[0,[5,0,p$0]], - r$0=r$1, - p$0=p$1, - other$0=other$1; - continue}}; - return proj - (r,e,function(param){throw [0,Assert_failure,_he_]})} - var switch$0=1} - else - var switch$0=1} - else - var switch$0=1} - else - var switch$0=1} - else - var switch$0=0} - return [0,map_expr_f(function(_jK_){return _jK_[1]},e$0)]} - function binarize_projs(_jE_){return cata_texpr(_hf_,_jE_)} - var - _hg_=0, - binarize_projs$0= - mk_t - (cst_binarize_projs, - binarize_projs, - [0,function(_jD_){return preserves(bindings_unique,_jD_)},_hg_]); - function drop_vars(xs) - {var _jB_=caml_call1(Utils_String[40][22],xs); - function _jC_(x,e){return let_in(_hh_,var$0(x),e)} - return caml_call2(Utils_List[25],_jC_,_jB_)} - function without(fs,xs) - {var - _jz_=caml_call1(Utils_List[73],xs), - _jA_=caml_call1(Utils_String[40][36],_jz_); - return caml_call2(Utils_String[40][10],fs,_jA_)} - function cond(xsl,param,xsr,_jw_) - {var - r=_jw_[2], - fr=_jw_[1], - l=param[2], - fl=param[1], - _jx_=without(fr,xsr), - _jy_=without(fl,xsl), - all_rhs_frees=caml_call2(Utils_String[40][7],_jy_,_jx_), - l$0= - caml_call1 - (drop_vars(caml_call2(Utils_String[40][10],all_rhs_frees,fl)),l), - r$0= - caml_call1 - (drop_vars(caml_call2(Utils_String[40][10],all_rhs_frees,fr)),r); - return [0,l$0,r$0]} - function f$10(x) - {switch(x[0]) - {case 15: - var - clauses=x[2], - match=x[1], - scrutinee=match[2], - _jp_= - function(param) - {var match=param[3],frees=match[1],var$0=param[2]; - return caml_call4 - (Utils_Option[13], - Utils_Control[1], - Utils_String[40][6], - var$0, - frees)}, - _jq_=caml_call2(Utils_Binary_tree[10],_jp_,clauses), - all_rhs_frees= - caml_call3 - (Utils_Binary_tree[4], - Utils_String[40][7], - Utils_String[40][1], - _jq_), - _jr_= - function(clause) - {var - match=clause[3], - e=match[2], - frees=match[1], - to_drop=caml_call2(Utils_String[40][10],all_rhs_frees,frees), - rhs=caml_call1(drop_vars(to_drop),e); - return [0,clause[1],clause[2],rhs]}, - clauses$0=caml_call2(Utils_Binary_tree[10],_jr_,clauses), - _js_=[15,scrutinee,clauses$0]; - break; - case 18: - var - r=x[3], - l=x[2], - match$0=x[1], - s=match$0[2], - match$1=cond(0,l,0,r), - r$0=match$1[2], - l$0=match$1[1], - _js_=[18,s,l$0,r$0]; - break; - case 19: - var - r$1=x[4], - l$1=x[3], - xl=x[2], - match$2=x[1], - s$0=match$2[2], - match$3=cond([0,xl,0],l$1,0,r$1), - r$2=match$3[2], - l$2=match$3[1], - _js_=[19,s$0,xl,l$2,r$2]; - break; - case 20: - var - r$3=x[5], - xr=x[4], - l$3=x[3], - xl$0=x[2], - match$4=x[1], - s$1=match$4[2], - match$5=cond([0,xl$0,0],l$3,[0,xr,0],r$3), - r$4=match$5[2], - l$4=match$5[1], - _js_=[20,s$1,xl$0,l$4,xr,r$4]; - break; - case 21: - var - r$5=x[5], - l$5=x[4], - xsl=x[3], - xl$1=x[2], - match$6=x[1], - s$2=match$6[2], - match$7=cond([0,xl$1,[0,xsl,0]],l$5,0,r$5), - r$6=match$7[2], - l$6=match$7[1], - _js_=[21,s$2,xl$1,xsl,l$6,r$6]; - break; - default:var _js_=map_expr_f(function(_jv_){return _jv_[2]},x)} - var _jt_=[0,_js_]; - return [0, - free_vars_f(map_expr_f(function(_ju_){return _ju_[1]},x)), - _jt_]} - function drop_unused(e){return cata_expr(f$10,e)[2]} - var - _hi_=0, - drop_unused$0= - mk - (cst_drop_unused, - drop_unused, - [0,function(_jo_){return preserves(bindings_unique,_jo_)},_hi_]); - function vector1(xs) - {if(xs)if(! xs[2]){var x=xs[1];return x}return vector(xs)} - function unfold_stack_ops(discarded_only) - {function _iU_(expr) - {if(1 === expr[0]) - {var _iY_=expr[1]; - if(_iY_) - {var _iZ_=_iY_[1]; - if(_iZ_) - {var _i0_=_iY_[2]; - if(_i0_) - {var _i1_=_i0_[1]; - if(_i1_) - {var _i2_=expr[2][1]; - if(8 === _i2_[0]) - {var _i3_=_i2_[1]; - if(typeof _i3_ === "number") - if(0 === _i3_) - var switch$1=1; - else - {var _jm_=_i2_[2]; - if(_jm_) - {var - e2$0=expr[3], - es$4=_jm_[2], - e1=_jm_[1], - xs$0=_i0_[2], - x2$0=_i1_[1], - x1=_iZ_[1]; - if(! discarded_only) - {var _jn_=let_in(xs$0,vector(es$4),e2$0); - return let_in - ([0,[0,x1],0],e1,let_in([0,[0,x2$0],0],var$0(x1),_jn_))} - var switch$0=2,switch$1=0} - else - var switch$0=2,switch$1=0} - else - var switch$0=0,switch$1=0} - else - var switch$0=2,switch$1=0} - else - var switch$1=1} - else - var switch$0=0,switch$1=0} - else - var switch$1=1; - if(switch$1) - {var _i4_=_iY_[2]; - if(_i4_) - {var _i5_=expr[2][1]; - if(8 === _i5_[0]) - {var _jb_=_i5_[1]; - if(typeof _jb_ === "number") - if(0 === _jb_) - {var e=expr[3],es$0=_i5_[2],xs=_i4_[2],x2=_i4_[1]; - if(discarded_only) - if(caml_call2(Utils_List[31],Utils_Option[45],_iY_)) - var switch$2=1; - else - var switch$0=1,switch$2=0; - else - var switch$2=1; - if(switch$2)return let_in([0,x2,[0,_iZ_,xs]],vector(es$0),e)} - else - var switch$0=1; - else - var switch$0=0} - else - var switch$0=1} - else - var switch$0=0}} - else - var switch$0=0; - switch(switch$0) - {case 0: - var _jc_=expr[2][1]; - if(8 === _jc_[0]) - {var _jd_=_jc_[1]; - if(typeof _jd_ === "number") - var switch$3=0; - else - switch(_jd_[0]) - {case 0: - var e$0=expr[3],es$1=_jc_[2],n=_jd_[1]; - if(discarded_only) - if(caml_call2(Utils_List[31],Utils_Option[45],_iY_)) - var switch$4=1; - else - var switch$3=0,switch$4=0; - else - var switch$4=1; - if(switch$4) - {var - _je_=caml_call2(Utils_List[59],n,es$1), - _jf_=_je_[2], - _jg_=_je_[1]; - if(_jf_) - {var es2=_jf_[2],e$1=_jf_[1]; - return let_in - (_iY_,vector(caml_call2(Stdlib[37],[0,e$1,_jg_],es2)),e$0)} - throw [0,Assert_failure,_hj_]} - break; - case 1: - var e$2=expr[3],es$2=_jc_[2],n$0=_jd_[1]; - if(discarded_only) - if(caml_call2(Utils_List[31],Utils_Option[45],_iY_)) - var switch$5=1; - else - var switch$3=0,switch$5=0; - else - var switch$5=1; - if(switch$5) - {var - _jh_=caml_call2(Utils_List[59],n$0 + 1 | 0,es$2), - _ji_=_jh_[1]; - if(_ji_) - {var es2$0=_jh_[2],es1=_ji_[2],e$3=_ji_[1]; - return let_in - (_iY_,vector(caml_call2(Stdlib[37],es1,[0,e$3,es2$0])),e$2)} - throw [0,Assert_failure,_hk_]} - break; - default: - var e$4=expr[3],es$3=_jc_[2],n$1=_jd_[1]; - if(n$1 < caml_call1(Utils_List[4],es$3)) - {var - match=caml_call2(Utils_List[59],n$1,es$3), - es2$1=match[2], - es1$0=match[1], - _jj_=let_in(_iY_,vector1(es2$1),e$4), - _jk_=vector1(es1$0), - _jl_=function(param){return 0}; - return let_in - (caml_call2(Utils_List[20],_jl_,es1$0),_jk_,_jj_)} - var switch$3=0}} - else - var switch$3=0; - break; - case 1:var switch$3=0;break; - default:var switch$3=1} - if(! switch$3) - if(_iY_) - {var _i6_=_iY_[1]; - if(_i6_) - {var _i7_=_iY_[2]; - if(_i7_) - if(_i7_[1]) - var switch$6=1; - else - var _i9_=_i6_,_i8_=_i7_[2],switch$6=0; - else - var switch$6=1} - else - {var _ja_=_iY_[2]; - if(_ja_) - var _i9_=_ja_[1],_i8_=_ja_[2],switch$6=0; - else - var switch$6=1} - if(! switch$6) - {var _i__=expr[2][1]; - if(8 === _i__[0]) - {var _i$_=_i__[1]; - if(typeof _i$_ === "number") - if(0 !== _i$_) - {var e2=expr[3],es=_i__[2]; - return let_in([0,_i9_,_i8_],vector(es),e2)}}}}} - return [0,expr]} - function t(_iX_){return cata_expr(_iU_,_iX_)} - var _iV_=0; - return mk - (cst_unfold_stack_ops, - t, - [0,function(_iW_){return pre_post(bindings_unique,_iW_)},_iV_])} - function chop_stack_ops_f(expr) - {if(1 === expr[0]) - {var _iE_=expr[1]; - if(_iE_) - {var _iF_=_iE_[2]; - if(_iF_) - {var _iG_=expr[2][1]; - if(8 === _iG_[0]) - {var _iI_=_iF_[2],_iJ_=_iF_[1],_iK_=_iE_[1],_iH_=_iG_[1]; - if(typeof _iH_ === "number") - if(0 === _iH_) - {var _iL_=_iG_[2]; - if(_iL_) - {var _iM_=_iL_[2]; - if(_iM_) - {var e=expr[3],es=_iM_[2],e2=_iM_[1],e1=_iL_[1]; - if(0 < caml_call1(Utils_List[4],_iI_)) - {var _iN_=let_in(_iI_,vector1(es),e); - return let_in - ([0,_iK_,[0,_iJ_,0]],stack_op(0,[0,e1,[0,e2,0]]),_iN_)} - var switch$0=1} - else - var switch$0=1} - else - var switch$0=1} - else - {var _iO_=_iG_[2]; - if(_iO_) - {var e$0=expr[3],es$0=_iO_[2],e1$0=_iO_[1]; - if(0 < caml_call1(Utils_List[4],_iI_)) - {var _iP_=let_in(_iI_,vector1(es$0),e$0); - return let_in - ([0,_iK_,[0,_iJ_,0]],stack_op(1,[0,e1$0,0]),_iP_)} - var switch$0=1} - else - var switch$0=1} - else - var switch$0=2 === _iH_[0]?1:0} - else - var switch$0=1} - else - var switch$0=0} - else - var switch$0=0; - if(! switch$0) - {var _iQ_=expr[2][1]; - if(8 === _iQ_[0]) - {var _iR_=_iQ_[1]; - if(typeof _iR_ === "number") - var switch$1=0; - else - switch(_iR_[0]) - {case 2:var switch$1=0;break; - case 0: - var e$1=expr[3],es$1=_iQ_[2],n=_iR_[1]; - if((n + 1 | 0) < caml_call1(Utils_List[4],_iE_)) - {var - match=caml_call2(Utils_List[59],n + 1 | 0,_iE_), - xs2=match[2], - xs1=match[1], - match$0=caml_call2(Utils_List[59],n + 1 | 0,es$1), - es2=match$0[2], - es1=match$0[1], - _iS_=let_in(xs2,vector1(es2),e$1); - return let_in(xs1,stack_op([0,n],es1),_iS_)} - var switch$1=1; - break; - default: - var e$2=expr[3],es$2=_iQ_[2],n$0=_iR_[1]; - if((n$0 + 1 | 0) < caml_call1(Utils_List[4],_iE_)) - {var - match$1=caml_call2(Utils_List[59],n$0 + 1 | 0,_iE_), - xs2$0=match$1[2], - xs1$0=match$1[1], - match$2=caml_call2(Utils_List[59],n$0 + 1 | 0,es$2), - es2$0=match$2[2], - es1$0=match$2[1], - _iT_=let_in(xs2$0,vector1(es2$0),e$2); - return let_in(xs1$0,stack_op([1,n$0],es1$0),_iT_)} - var switch$1=1}}}} - return [0,expr]} - function t$0(_iD_){return cata_expr(chop_stack_ops_f,_iD_)} - var - _hl_=0, - chop_stack_ops= - mk - (cst_chop_stack_ops, - t$0, - [0,function(_iC_){return pre_post(bindings_unique,_iC_)},_hl_]); - function elim_drops_f(expr) - {if(1 === expr[0]) - {var _h4_=expr[1]; - if(_h4_) - var switch$0=0; - else - {var _iv_=expr[2][1]; - switch(_iv_[0]) - {case 15:var switch$0=1;break; - case 17: - if(! _iv_[1]){var e$1=expr[3];return e$1}var switch$0=0;break; - default:var switch$0=2}} - switch(switch$0) - {case 0: - var _h5_=expr[2][1]; - if(17 === _h5_[0]) - {var - e$0=expr[3], - es=_h5_[1], - _iu_=function(x,e){return [0,[0,x,0],e]}; - return caml_call2 - (lets,caml_call4(Utils_List[70],_hp_,_iu_,_h4_,es),e$0)} - if(_h4_[1]) - var switch$1=0; - else - if(_h4_[2]) - var switch$1=0; - else - {var e2=expr[3],e1=expr[2]; - if(! may_fail(e1))return e2; - var switch$1=0} - break; - case 1:var switch$1=0;break; - default:var switch$1=1} - if(! switch$1) - {var _h6_=expr[2][1]; - if(15 === _h6_[0]) - {var _h7_=_h6_[2],_h8_=_h6_[1]; - if(0 !== _h7_[0]) - {var _h9_=_h7_[1]; - if(0 === _h9_[0]) - {var _h__=_h7_[2],_h$_=_h9_[1]; - if(0 === _h__[0]) - {var - e=expr[3], - y=_h__[1], - match=lens_lets(_h$_[3]), - close_x=match[3], - x_rhs=match[2], - x_bound=match[1], - match$0=lens_lets(y[3]), - close_y=match$0[3], - y_rhs=match$0[2], - y_bound=match$0[1], - x_bound$0= - caml_call4 - (Utils_Option[13],Utils_Control[1],cons,_h$_[2],x_bound), - y_bound$0= - caml_call4 - (Utils_Option[13],Utils_Control[1],cons,y[2],y_bound), - is_free_in= - function(bound,param) - {var _iB_=param[1]; - if(0 === _iB_[0]) - {var x=_iB_[1]; - if(! caml_call2(Utils_List[34],x,bound))return [0,x]} - return 0}, - same_free_var= - function(x,y) - {var _iz_=x[1],_iA_=y[1]; - if(0 === _iz_[0]) - if(0 === _iA_[0]) - {var y$0=_iA_[1],x$0=_iz_[1]; - if(caml_string_equal(x$0,y$0)) - if(! caml_call2(Utils_List[34],x$0,x_bound$0)) - if(! caml_call2(Utils_List[34],y$0,y_bound$0))return [0,x$0]} - return 0}, - _ia_=x_rhs[1], - _ib_=y_rhs[1]; - switch(_ia_[0]) - {case 5: - var _ij_=_ia_[1]; - if(typeof _ij_ === "number") - if(3 === _ij_) - if(17 === _ib_[0]) - var - ys$1=_ib_[1], - _ik_=[0,ys$1], - _il_=0, - _im_=function(_iy_){return is_free_in(y_bound$0,_iy_)}, - _in_=[0,caml_call2(Utils_List[20],_im_,ys$1),_il_,_ik_], - switch$2=0; - else - var switch$2=1; - else - var switch$2=1; - else - var switch$2=1; - break; - case 17: - var _io_=_ia_[1]; - switch(_ib_[0]) - {case 5: - var _ip_=_ib_[1]; - if(typeof _ip_ === "number") - if(3 === _ip_) - var - _iq_=0, - _ir_=[0,_io_], - _is_=function(_ix_){return is_free_in(x_bound$0,_ix_)}, - _it_=[0,caml_call2(Utils_List[20],_is_,_io_),_ir_,_iq_], - switch$3=1; - else - var switch$2=1,switch$3=0; - else - var switch$2=1,switch$3=0; - break; - case 17: - var - ys$2=_ib_[1], - _it_= - [0, - caml_call4(Utils_List[70],_ho_,same_free_var,_io_,ys$2), - [0,_io_], - [0,ys$2]], - switch$3=1; - break; - default:var switch$2=1,switch$3=0} - if(switch$3)var _in_=_it_,switch$2=0; - break; - default:var switch$2=1} - if(switch$2) - var common=0,xs=0,ys=0; - else - var common=_in_[1],xs=_in_[2],ys=_in_[3]; - if(caml_call2(Utils_List[31],Utils_Option[46],common)) - {var - non_commons_only= - function(xs) - {function f(p,x) - {return caml_call1(Utils_Option[46],p)?0:[0,x]} - var _iw_=caml_call4(Utils_List[70],_hn_,f,common,xs); - return caml_call1(Utils_List[73],_iw_)}, - f$0=function(x){return vector1(non_commons_only(x))}, - xs$0=caml_call2(Utils_Option[18],f$0,xs), - ys$0=caml_call2(Utils_Option[18],f$0,ys), - _id_=caml_call3(Utils_Option[13],_h$_[3],close_x,xs$0), - x=[0,_h$_[1],_h$_[2],_id_], - _ie_=caml_call3(Utils_Option[13],y[3],close_y,ys$0), - y$0=[0,y[1],y[2],_ie_], - _if_=match_variant(_h8_,[1,[0,x],[0,y$0]]), - _ig_=let_in(non_commons_only(_h4_),_if_,e), - _ih_=caml_call1(Utils_List[73],common), - _ii_=vector1(caml_call2(Utils_List[20],var$0,_ih_)), - f= - function(p,x){return caml_call1(Utils_Option[45],p)?0:[0,x]}, - _ic_=caml_call4(Utils_List[70],_hm_,f,common,_h4_); - return let_in(caml_call1(Utils_List[73],_ic_),_ii_,_ig_)} - return [0,expr]}}}}}} - return [0,expr]} - var - _hq_=0, - _hr_=[0,function(_h3_){return pre_post(bindings_unique,_h3_)},_hq_], - elim_drops= - mk - (cst_elim_drops, - function(_h2_){return cata_expr(elim_drops_f,_h2_)}, - _hr_); - function simplify(st) - {var - _hX_=[0,factorise_clauses(st),[0,reify_booleans$0,0]], - _hY_=[0,unused_loop_state(st),_hX_], - _hZ_=[0,infer_constructors$0,[0,remove_invariant_loop_state(st),_hY_]], - _h0_= - [0, - inline$0, - [0, - fold_constants$0, - [0, - mark_unused, - [0, - unvectortize_lets$0, - [0, - field_access$0, - [0,flatten_matches$0,[0,[4,cst_fix_mangle,[2,mangle(st)]],_hZ_]]]]]]], - main=[3,[0,unfold_ifs$0,[0,unfold_stack_ops(0),_h0_]]], - t=[2,main]; - return function(_h1_){return run_transformer(t,_h1_)}} - function smartMLify(st,pc) - {var - _hz_=[0,factorise_clauses(st),[0,reify_booleans$0,0]], - _hA_=[0,unused_loop_state(st),_hz_], - _hB_= - [0, - infer_constructors$0, - [0, - inline_invariant_loop_state$0, - [0,remove_invariant_loop_state(st),_hA_]]], - _hC_= - [0, - inline$0, - [0, - fold_constants$0, - [0, - mark_unused, - [0, - unvectortize_lets$0, - [0, - field_access$0, - [0, - flatten_matches$0, - [0,[4,cst_fix_mangle$0,[2,mangle(st)]],_hB_]]]]]]], - main=[3,[0,unfold_ifs$0,[0,unfold_stack_ops(0),_hC_]]], - _hD_=0, - _hw_=0, - _hx_=[0,function(_hW_){return preserves(bindings_unique,_hW_)},_hw_]; - function f$0(expr) - {if(14 === expr[0]) - {var _hR_=expr[1]; - if(0 !== _hR_[0]) - {var - e2=expr[3], - e1=expr[2], - x=fresh(st,cst_x), - mk_vars= - function(v,param) - {if(0 === param[0]) - {var n=param[1],_hT_=fresh(st,cst_x$0); - return [0,[0,caml_call2(Utils_Option[44],_hT_,n),v],0]} - var - y=param[2], - x=param[1], - _hU_=mk_vars(prim1(1,v),y), - _hV_=mk_vars(prim1(0,v),x); - return caml_call2(Stdlib[37],_hV_,_hU_)}, - bindings=[0,[0,x,e1],mk_vars(var$0(x),_hR_)], - _hS_= - function(param,r) - {var e=param[2],x=param[1];return let_in([0,[0,x],0],e,r)}; - return caml_call3(Utils_List[25],_hS_,bindings,e2)}} - return [0,expr]} - var - _hE_= - [0, - binarize_projs$0, - [0, - mk(cst_single_lets,function(_hQ_){return cata_expr(f$0,_hQ_)},_hx_), - _hD_]], - _hu_=0, - _hv_=[0,function(_hP_){return preserves(bindings_unique,_hP_)},_hu_]; - function f(expr) - {if(15 === expr[0]) - {var _hL_=expr[2],_hM_=expr[1]; - if(0 !== _hL_[0]) - {var _hN_=_hL_[1]; - if(0 !== _hN_[0]) - {var - r$0=_hL_[2], - ls=fresh(st,cst_l), - rhs$0=[0,[15,[0,[0,ls]],_hN_]], - l=[0,[0,0,[0,ls],rhs$0]]; - return [0,[15,_hM_,[1,l,r$0]]]} - var _hO_=_hL_[2]; - if(0 !== _hO_[0]) - {var - rs=fresh(st,cst_r), - rhs=[0,[15,[0,[0,rs]],_hO_]], - r=[0,[0,0,[0,rs],rhs]]; - return [0,[15,_hM_,[1,_hN_,r]]]}}} - return [0,expr]} - var - post= - [3, - [0, - mk - (cst_binarize_matches, - function(_hK_){return cata_expr(f,_hK_)}, - _hv_), - _hE_]], - _hG_=pc[3], - _hF_= - [0, - fold_constants$0, - [0, - [4,cst_distribute_lets$0,[2,distribute_lets$0]], - [0,[4,cst_flatten_matches$0,[2,flatten_matches$0]],0]]]; - function f$1(body) - {if(_hG_) - {var - ps=_hG_[1], - _hI_=var$0(s), - _hJ_=var$0(gp), - body$0= - caml_call1 - (substitute([0,[0,ps,caml_call2(pair(0,0),_hJ_,_hI_)],0]),body), - body$1=let_in([0,[0,s],0],prim1(1,var$0(ps)),body$0), - body$2=let_in([0,[0,gp],0],prim1(0,var$0(ps)),body$1); - return body$2} - return body} - var - _hy_=0, - t= - [3, - [0, - [4,cst_main,[2,main]], - [0, - [4,cst_post$1,[2,post]], - [0, - mk - (cst_eta_expand_parameter_and_storage, - f$1, - [0,function(_hH_){return preserves(bindings_unique,_hH_)},_hy_]), - _hF_]]]]; - return run_transformer(t,pc)} - function michelsonify(st) - {var - _hs_=[0,unfold_stack_ops(1),[0,elim_drops,0]], - t= - [3, - [0, - unfold_ifs$0, - [0, - chop_stack_ops, - [0, - [2, - [3, - [0, - mark_unused, - [0,inline_vars$0,[0,remove_invariant_loop_state(st),_hs_]]]]], - [0, - fold_ifs$0, - [0,nest_ifs$0,[0,drop_unused$0,[0,[2,flatten_ifs$0],0]]]]]]]]; - return function(_ht_){return run_transformer(t,_ht_)}} - var Michel_Transformer=[0,fresh,freshen,simplify,smartMLify,michelsonify]; - caml_register_global(794,Michel_Transformer,"Michel__Transformer"); - return} - (function(){return this}())); - - -//# 1 "../lib/.smart_ml.objs/smart_ml.cma.js" -(function(joo_global_object) - {"use strict"; - var - runtime=joo_global_object.jsoo_runtime, - caml_check_bound=runtime.caml_check_bound, - caml_compare=runtime.caml_compare, - caml_equal=runtime.caml_equal, - caml_fresh_oo_id=runtime.caml_fresh_oo_id, - caml_int_compare=runtime.caml_int_compare, - caml_int_of_string=runtime.caml_int_of_string, - caml_lessthan=runtime.caml_lessthan, - caml_ml_string_length=runtime.caml_ml_string_length, - caml_mod=runtime.caml_mod, - caml_mul=runtime.caml_mul, - caml_new_string=runtime.caml_new_string, - caml_notequal=runtime.caml_notequal, - caml_obj_tag=runtime.caml_obj_tag, - caml_register_global=runtime.caml_register_global, - caml_string_compare=runtime.caml_string_compare, - caml_string_equal=runtime.caml_string_equal, - caml_string_get=runtime.caml_string_get, - caml_string_notequal=runtime.caml_string_notequal, - caml_sys_time=runtime.caml_sys_time, - caml_update_dummy=runtime.caml_update_dummy, - caml_wrap_exception=runtime.caml_wrap_exception; - function caml_call1(f,a0) - {return f.length == 1?f(a0):runtime.caml_call_gen(f,[a0])} - function caml_call2(f,a0,a1) - {return f.length == 2?f(a0,a1):runtime.caml_call_gen(f,[a0,a1])} - function caml_call3(f,a0,a1,a2) - {return f.length == 3?f(a0,a1,a2):runtime.caml_call_gen(f,[a0,a1,a2])} - function caml_call4(f,a0,a1,a2,a3) - {return f.length == 4 - ?f(a0,a1,a2,a3) - :runtime.caml_call_gen(f,[a0,a1,a2,a3])} - function caml_call5(f,a0,a1,a2,a3,a4) - {return f.length == 5 - ?f(a0,a1,a2,a3,a4) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4])} - function caml_call6(f,a0,a1,a2,a3,a4,a5) - {return f.length == 6 - ?f(a0,a1,a2,a3,a4,a5) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5])} - function caml_call7(f,a0,a1,a2,a3,a4,a5,a6) - {return f.length == 7 - ?f(a0,a1,a2,a3,a4,a5,a6) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6])} - function caml_call8(f,a0,a1,a2,a3,a4,a5,a6,a7) - {return f.length == 8 - ?f(a0,a1,a2,a3,a4,a5,a6,a7) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7])} - function caml_call9(f,a0,a1,a2,a3,a4,a5,a6,a7,a8) - {return f.length == 9 - ?f(a0,a1,a2,a3,a4,a5,a6,a7,a8) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7,a8])} - function caml_call10(f,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9) - {return f.length == 10 - ?f(a0,a1,a2,a3,a4,a5,a6,a7,a8,a9) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7,a8,a9])} - function caml_call11(f,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10) - {return f.length == 11 - ?f(a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10) - :runtime.caml_call_gen(f,[a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10])} - function caml_call13(f,a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12) - {return f.length == 13 - ?f(a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12) - :runtime.caml_call_gen - (f,[a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12])} - var - global_data=runtime.caml_get_global_data(), - cst_comb_layout=caml_new_string("comb_layout"), - cst_Right=caml_new_string("Right"), - cst_Left=caml_new_string("Left"), - cst_tail=caml_new_string("tail"), - cst_head=caml_new_string("head"), - cst_value=caml_new_string("value"), - cst_key=caml_new_string("key"), - cst_Some=caml_new_string("Some"), - cst_None=caml_new_string("None"), - cst_default_layout_of_size_0=caml_new_string("default_layout of size 0"), - cst_Type_t=caml_new_string("Type.t"), - cst_ref$1=caml_new_string("ref ("), - cst$1=caml_new_string(")"), - cst_TUnit=caml_new_string("TUnit"), - cst_TBool=caml_new_string("TBool"), - cst_TTimestamp=caml_new_string("TTimestamp"), - cst_TString=caml_new_string("TString"), - cst_TBytes=caml_new_string("TBytes"), - cst_TAddress=caml_new_string("TAddress"), - cst_TKeyHash=caml_new_string("TKeyHash"), - cst_TKey=caml_new_string("TKey"), - cst_TSignature=caml_new_string("TSignature"), - cst_TToken=caml_new_string("TToken"), - cst_TChainId=caml_new_string("TChainId"), - cst_TSecretKey=caml_new_string("TSecretKey"), - cst_TOperation=caml_new_string("TOperation"), - cst_TSaplingState=caml_new_string("TSaplingState"), - cst_TSaplingTransaction=caml_new_string("TSaplingTransaction"), - cst_TNever=caml_new_string("TNever"), - cst_isNat=caml_new_string("isNat"), - cst_layout=caml_new_string("layout"), - cst_row=caml_new_string("row"), - cst_layout$0=caml_new_string("layout"), - cst_row$0=caml_new_string("row"), - cst_telement=caml_new_string("telement"), - cst_big=caml_new_string("big"), - cst_tkey=caml_new_string("tkey"), - cst_tvalue=caml_new_string("tvalue"), - cst_ref$0=caml_new_string("ref ("), - cst$0=caml_new_string(")"), - cst_ref=caml_new_string("ref ("), - cst=caml_new_string(")"), - cst_source=caml_new_string("source"), - cst_target=caml_new_string("target"), - cst_secret_key=caml_new_string("secret_key"), - cst_public_key_hash=caml_new_string("public_key_hash"), - cst_public_key=caml_new_string("public_key"), - cst_address=caml_new_string("address"), - cst_seed=caml_new_string("seed"), - cst_dynamic_id=caml_new_string("dynamic_id"), - cst_static_id=caml_new_string("static_id"), - cst_Not_a_int=caml_new_string("Not a int"), - cst_Not_a_bool=caml_new_string("Not a bool"), - cst_Some$3=caml_new_string("(Some "), - cst$5=caml_new_string(")"), - cst_None$3=caml_new_string("None"), - cst_Some$2=caml_new_string("(Some "), - cst$4=caml_new_string(")"), - cst_None$2=caml_new_string("None"), - cst_Unit=caml_new_string("Unit"), - cst_i=caml_new_string("i"), - cst_is_nat=caml_new_string("is_nat"), - cst_Some$1=caml_new_string("(Some "), - cst$3=caml_new_string(")"), - cst_None$1=caml_new_string("None"), - cst_Some$0=caml_new_string("(Some "), - cst$2=caml_new_string(")"), - cst_None$0=caml_new_string("None"), - cst_Literal_source=caml_new_string("Literal.source"), - cst_target$0=caml_new_string("target"), - cst_amount=caml_new_string("amount"), - cst_Literal_test=caml_new_string("Literal.test"), - cst_elements=caml_new_string("elements"), - cst_a1=caml_new_string("a1"), - cst_a2=caml_new_string("a2"), - cst_a1$0=caml_new_string("a1"), - b1=caml_new_string("hello world!"), - cst_BNeq=caml_new_string("BNeq"), - cst_BEq=caml_new_string("BEq"), - cst_BAnd=caml_new_string("BAnd"), - cst_BOr=caml_new_string("BOr"), - cst_BAdd=caml_new_string("BAdd"), - cst_BSub=caml_new_string("BSub"), - cst_BDiv=caml_new_string("BDiv"), - cst_BEDiv=caml_new_string("BEDiv"), - cst_BMul=caml_new_string("BMul"), - cst_BMod=caml_new_string("BMod"), - cst_BLt=caml_new_string("BLt"), - cst_BLe=caml_new_string("BLe"), - cst_BGt=caml_new_string("BGt"), - cst_BGe=caml_new_string("BGe"), - cst_BLsl=caml_new_string("BLsl"), - cst_BLsr=caml_new_string("BLsr"), - cst_BXor=caml_new_string("BXor"), - cst_BMin=caml_new_string("BMin"), - cst_BMax=caml_new_string("BMax"), - cst_name=caml_new_string("name"), - cst_parsed=caml_new_string("parsed"), - cst_typesIn=caml_new_string("typesIn"), - cst_typesOut=caml_new_string("typesOut"), - cst_BLAKE2B=caml_new_string("BLAKE2B"), - cst_SHA256=caml_new_string("SHA256"), - cst_SHA512=caml_new_string("SHA512"), - cst_Unit$0=caml_new_string("`Unit"), - cst_Line=caml_new_string("`Line"), - cst_DefaultUnit=caml_new_string("`DefaultUnit"), - cst_DefaultLine=caml_new_string("`DefaultLine"), - cst_FullDebug=caml_new_string("`FullDebug"), - cst_Message=caml_new_string("`Message"), - cst_VerifyOrLine=caml_new_string("`VerifyOrLine"), - cst_Basics_Lazy_entry_points_single= - caml_new_string("Basics.Lazy_entry_points_single"), - cst_Basics_Lazy_entry_points_multiple= - caml_new_string("Basics.Lazy_entry_points_multiple"), - cst_Basics_No_comment=caml_new_string("Basics.No_comment"), - cst_Basics_Simplify_via_michel= - caml_new_string("Basics.Simplify_via_michel"), - cst_id=caml_new_string("id"), - cst_name$0=caml_new_string("name"), - cst_tParams=caml_new_string("tParams"), - cst_tResult=caml_new_string("tResult"), - cst_body$0=caml_new_string("body"), - cst_clean_stack=caml_new_string("clean_stack"), - cst_Some$12=caml_new_string("(Some "), - cst$14=caml_new_string(")"), - cst_None$12=caml_new_string("None"), - cst_Some$11=caml_new_string("(Some "), - cst$13=caml_new_string(")"), - cst_None$11=caml_new_string("None"), - cst_expr=caml_new_string("expr"), - cst_id$1=caml_new_string("id"), - cst_ok_match=caml_new_string("ok_match"), - cst_ko_match=caml_new_string("ko_match"), - cst_Some$13=caml_new_string("(Some "), - cst$15=caml_new_string(")"), - cst_None$13=caml_new_string("None"), - cst_Some$18=caml_new_string("(Some "), - cst$21=caml_new_string(")"), - cst_None$18=caml_new_string("None"), - cst_Some$17=caml_new_string("(Some "), - cst$20=caml_new_string(")"), - cst_None$17=caml_new_string("None"), - cst_ok=caml_new_string("ok"), - cst_contract$1=caml_new_string("contract"), - cst_operations$0=caml_new_string("operations"), - cst_error=caml_new_string("error"), - cst_html=caml_new_string("html"), - cst_storage$2=caml_new_string("storage"), - cst_steps=caml_new_string("steps"), - cst_ref$2=caml_new_string("ref ("), - cst$19=caml_new_string(")"), - cst_Some$16=caml_new_string("(Some "), - cst$18=caml_new_string(")"), - cst_None$16=caml_new_string("None"), - cst_command=caml_new_string("command"), - cst_iters=caml_new_string("iters"), - cst_locals=caml_new_string("locals"), - cst_storage$1=caml_new_string("storage"), - cst_balance$1=caml_new_string("balance"), - cst_operations=caml_new_string("operations"), - cst_substeps=caml_new_string("substeps"), - cst_elements$0=caml_new_string("elements"), - cst_Some$15=caml_new_string("(Some "), - cst$17=caml_new_string(")"), - cst_None$15=caml_new_string("None"), - cst_Record=caml_new_string("`Record"), - cst_Variant=caml_new_string("`Variant"), - cst_fun$0=caml_new_string(""), - cst_fun=caml_new_string(""), - cst_kind=caml_new_string("kind"), - cst_t=caml_new_string("t"), - cst_label=caml_new_string("label"), - cst_entry=caml_new_string("entry"), - cst_Br=caml_new_string("`Br"), - cst_baker$2=caml_new_string("baker"), - cst_storage$0=caml_new_string("storage"), - cst_balance$0=caml_new_string("balance"), - cst_value_tcontract=caml_new_string("value_tcontract"), - cst_value_contract=caml_new_string("value_contract"), - cst_tcontract=caml_new_string("tcontract"), - cst_contract$0=caml_new_string("contract"), - cst_channel$0=caml_new_string("channel"), - cst_params=caml_new_string("params"), - cst_v=caml_new_string("v"), - cst_vt=caml_new_string("vt"), - cst_Some$14=caml_new_string("(Some "), - cst$16=caml_new_string(")"), - cst_None$14=caml_new_string("None"), - cst_arg$0=caml_new_string("arg"), - cst_destination$0=caml_new_string("destination"), - cst_amount$1=caml_new_string("amount"), - cst_id$2=caml_new_string("id"), - cst_baker$1=caml_new_string("baker"), - cst_contract=caml_new_string("contract"), - cst_c$0=caml_new_string("c"), - cst_line_no$2=caml_new_string("line_no"), - cst_e$0=caml_new_string("e"), - cst_line_no$1=caml_new_string("line_no"), - cst_c=caml_new_string("c"), - cst_ct=caml_new_string("ct"), - cst_line_no$0=caml_new_string("line_no"), - cst_e=caml_new_string("e"), - cst_et=caml_new_string("et"), - cst_line_no=caml_new_string("line_no"), - cst_Raw=caml_new_string("`Raw"), - cst_Hex=caml_new_string("`Hex"), - cst_Some$10=caml_new_string("(Some "), - cst$12=caml_new_string(")"), - cst_None$10=caml_new_string("None"), - cst_Some$9=caml_new_string("(Some "), - cst$11=caml_new_string(")"), - cst_None$9=caml_new_string("None"), - cst_Some$8=caml_new_string("(Some "), - cst$10=caml_new_string(")"), - cst_None$8=caml_new_string("None"), - cst_Some$7=caml_new_string("(Some "), - cst$9=caml_new_string(")"), - cst_None$7=caml_new_string("None"), - cst_items=caml_new_string("items"), - cst_key$0=caml_new_string("key"), - cst_default_value=caml_new_string("default_value"), - cst_missing_message=caml_new_string("missing_message"), - cst_state=caml_new_string("state"), - cst_transaction=caml_new_string("transaction"), - cst_f=caml_new_string("f"), - cst_l=caml_new_string("l"), - cst_id$0=caml_new_string("id"), - cst_name$1=caml_new_string("name"), - cst_baker$0=caml_new_string("baker"), - cst_contract_template=caml_new_string("contract_template"), - cst_entry_point=caml_new_string("entry_point"), - cst_arg_type=caml_new_string("arg_type"), - cst_address$0=caml_new_string("address"), - cst_offset=caml_new_string("offset"), - cst_length=caml_new_string("length"), - cst_buffer=caml_new_string("buffer"), - cst_secret_key$0=caml_new_string("secret_key"), - cst_message=caml_new_string("message"), - cst_message_format=caml_new_string("message_format"), - cst_arg=caml_new_string("arg"), - cst_amount$0=caml_new_string("amount"), - cst_destination=caml_new_string("destination"), - cst_EAbs=caml_new_string("EAbs"), - cst_EConcat_list=caml_new_string("EConcat_list"), - cst_EContract_address=caml_new_string("EContract_address"), - cst_EHash_key=caml_new_string("EHash_key"), - cst_EImplicit_account=caml_new_string("EImplicit_account"), - cst_EIsNat=caml_new_string("EIsNat"), - cst_EListRev=caml_new_string("EListRev"), - cst_ENeg=caml_new_string("ENeg"), - cst_ENot=caml_new_string("ENot"), - cst_EPack=caml_new_string("EPack"), - cst_EReduce=caml_new_string("EReduce"), - cst_ESetDelegate=caml_new_string("ESetDelegate"), - cst_ESign=caml_new_string("ESign"), - cst_ESize=caml_new_string("ESize"), - cst_ESum=caml_new_string("ESum"), - cst_EToInt=caml_new_string("EToInt"), - cst_EBalance=caml_new_string("EBalance"), - cst_ESender=caml_new_string("ESender"), - cst_ESource=caml_new_string("ESource"), - cst_EChain_id=caml_new_string("EChain_id"), - cst_ENow=caml_new_string("ENow"), - cst_EAmount=caml_new_string("EAmount"), - cst_ELevel=caml_new_string("ELevel"), - cst_ESaplingEmptyState=caml_new_string("ESaplingEmptyState"), - cst_seed$0=caml_new_string("seed"), - cst_Some$6=caml_new_string("(Some "), - cst$8=caml_new_string(")"), - cst_None$6=caml_new_string("None"), - cst_Some$5=caml_new_string("(Some "), - cst$7=caml_new_string(")"), - cst_None$5=caml_new_string("None"), - cst_Some$4=caml_new_string("(Some "), - cst$6=caml_new_string(")"), - cst_None$4=caml_new_string("None"), - cst_balance=caml_new_string("balance"), - cst_storage=caml_new_string("storage"), - cst_baker=caml_new_string("baker"), - cst_tstorage=caml_new_string("tstorage"), - cst_tparameter=caml_new_string("tparameter"), - cst_entry_points=caml_new_string("entry_points"), - cst_entry_points_layout=caml_new_string("entry_points_layout"), - cst_unknown_parts=caml_new_string("unknown_parts"), - cst_flags=caml_new_string("flags"), - cst_global_variables=caml_new_string("global_variables"), - cst_channel=caml_new_string("channel"), - cst_paramsType=caml_new_string("paramsType"), - cst_originate=caml_new_string("originate"), - cst_body=caml_new_string("body"), - cst_BLAKE2B$0=caml_new_string("BLAKE2B"), - cst_SHA256$0=caml_new_string("SHA256"), - cst_SHA512$0=caml_new_string("SHA512"), - cst_no_location_info=caml_new_string("(no location info)"), - cst_Smart_ml_Basics_SmartExcept= - caml_new_string("Smart_ml.Basics.SmartExcept"), - cst_list_nth_cannot_insert=caml_new_string("list_nth: cannot insert"), - cst_list_nth_cannot_delete=caml_new_string("list_nth: cannot delete"), - cst_0x=caml_new_string("0x"), - fmt=[0,[4,6,[0,2,2],0,0],caml_new_string("%02x")], - cst_Cannot_parse=caml_new_string("Cannot parse "), - cst_Left$0=caml_new_string("Left"), - cst_None$19=caml_new_string("None"), - cst_Right$0=caml_new_string("Right"), - cst_Some$19=caml_new_string("Some"), - cst$22=caml_new_string(""), - cst_empty_unknown=caml_new_string("empty unknown"), - cst$27=caml_new_string(""), - cst$35=caml_new_string(""), - cst_nbsp_nbsp=caml_new_string("  "), - cst$34=caml_new_string(" "), - cst_sp_TUnit=caml_new_string("sp.TUnit"), - cst_sp_TBool=caml_new_string("sp.TBool"), - cst_sp_TTimestamp=caml_new_string("sp.TTimestamp"), - cst_sp_TString=caml_new_string("sp.TString"), - cst_sp_TBytes=caml_new_string("sp.TBytes"), - cst_sp_TAddress=caml_new_string("sp.TAddress"), - cst_sp_TKeyHash=caml_new_string("sp.TKeyHash"), - cst_sp_TKey=caml_new_string("sp.TKey"), - cst_sp_TSignature=caml_new_string("sp.TSignature"), - cst_sp_TMutez=caml_new_string("sp.TMutez"), - cst_sp_TChainId=caml_new_string("sp.TChainId"), - cst_sp_TSecretKey=caml_new_string("sp.TSecretKey"), - cst_sp_TOperation=caml_new_string("sp.TOperation"), - cst_sp_TSaplingState=caml_new_string("sp.TSaplingState"), - cst_sp_TSaplingTransaction=caml_new_string("sp.TSaplingTransaction"), - cst_sp_TNever=caml_new_string("sp.TNever"), - cst_sp_TIntOrNat=caml_new_string("sp.TIntOrNat"), - cst_sp_TInt=caml_new_string("sp.TInt"), - cst_sp_TNat=caml_new_string("sp.TNat"), - cst$24=caml_new_string(""), - cst$25=caml_new_string(""), - cst_br=caml_new_string("
"), - cst$26=caml_new_string(", "), - cst_None$20=caml_new_string("None"), - cst_Some$20=caml_new_string("Some"), - cst_br$0=caml_new_string("
"), - cst$28=caml_new_string(""), - cst_br$1=caml_new_string("
"), - cst$29=caml_new_string(", "), - cst_sp_TBigMap=caml_new_string("sp.TBigMap"), - cst_sp_TMap=caml_new_string("sp.TMap"), - cst_sp_TMap$0=caml_new_string("sp.TMap??"), - cst_span_class_partialType_unknown_span= - caml_new_string("unknown<\/span>"), - cst$30=caml_new_string(", "), - cst$31=caml_new_string(", "), - cst$32=caml_new_string(" | "), - cst$33=caml_new_string(", "), - cst$39=caml_new_string(""), - cst_Unit$1=caml_new_string("Unit"), - cst$43=caml_new_string(","), - cst$44=caml_new_string("; "), - cst$41=caml_new_string(","), - cst$42=caml_new_string("; "), - cst$45=caml_new_string(""), - cst$46=caml_new_string(""), - cst$40=caml_new_string(""), - cst$47=caml_new_string(", "), - cst_None$21=caml_new_string("None"), - cst_None$22=caml_new_string("None"), - cst_sp_none=caml_new_string("sp.none"), - cst_Some$21=caml_new_string("Some"), - cst$51=caml_new_string(""), - cst$49=caml_new_string(", "), - cst$50=caml_new_string(", "), - cst$48=caml_new_string(", "), - cst$53=caml_new_string(""), - cst$52=caml_new_string(", "), - cst_Key=caml_new_string("Key"), - cst$54=caml_new_string(", "), - cst$55=caml_new_string(", "), - cst_div_class_operation_Remove_Delegate_div= - caml_new_string("
Remove Delegate<\/div>"), - cst$56=caml_new_string(""), - cst$78=caml_new_string(", "), - cst_self=caml_new_string("self"), - cst_self$0=caml_new_string("self"), - cst_sp_balance=caml_new_string("sp.balance"), - cst_sp_sender=caml_new_string("sp.sender"), - cst_sp_source=caml_new_string("sp.source"), - cst_sp_chain_id=caml_new_string("sp.chain_id"), - cst_sp_now=caml_new_string("sp.now"), - cst_sp_amount=caml_new_string("sp.amount"), - cst_sp_level=caml_new_string("sp.level"), - cst_sp_sapling_empty_state=caml_new_string("sp.sapling_empty_state()"), - cst_constant=caml_new_string("constant"), - cst_sp_self=caml_new_string("sp.self"), - cst_operations$1=caml_new_string("__operations__"), - cst_parameter=caml_new_string("__parameter__"), - cst_storage$4=caml_new_string("__storage__"), - s=caml_new_string("data"), - cst_sp_operations=caml_new_string("sp.operations()"), - cst_sp_self_address=caml_new_string("sp.self_address"), - cst_None$23=caml_new_string("None"), - cst_Some$22=caml_new_string("Some"), - cst_sp_none$0=caml_new_string("sp.none"), - cst_Some$23=caml_new_string("Some"), - cst_Some$24=caml_new_string("Some"), - cst$73=caml_new_string(", "), - cst$74=caml_new_string(", "), - cst$75=caml_new_string(", "), - cst$76=caml_new_string(", "), - cst$77=caml_new_string(", "), - cst$79=caml_new_string(", "), - cst$80=caml_new_string(", "), - cst$81=caml_new_string(", "), - cst$82=caml_new_string(""), - cst_Raw$0=caml_new_string("'Raw'"), - cst_Hex$0=caml_new_string("'Hex'"), - cst$83=caml_new_string(", "), - cst$84=caml_new_string(""), - cst_staticVerify=caml_new_string("staticVerify"), - cst_verify=caml_new_string("verify"), - partial=[15,0], - partial$0=[2,0,[15,0]], - cst_operations$2=caml_new_string("__operations__"), - cst_Some$25=caml_new_string("Some"), - cst_span_class_keyword_del_span= - caml_new_string("del<\/span>"), - cst_del=caml_new_string("del"), - cst_add=caml_new_string("add"), - cst_remove=caml_new_string("remove"), - cst$86=caml_new_string(""), - cst_nbsp_nbsp$0=caml_new_string("  "), - cst$85=caml_new_string(" "), - cst_br$2=caml_new_string("
"), - cst$95=caml_new_string("\n"), - cst$96=caml_new_string(", "), - cst$97=caml_new_string(" "), - cst_Yojson_exception=caml_new_string("Yojson exception - "), - cst$98=caml_new_string(""), - cst$99=caml_new_string(""), - cst$94=caml_new_string(""), - cst$92=caml_new_string(""), - cst_sp_entry_point=caml_new_string("\n @sp.entry_point\n"), - cst$90=caml_new_string(""), - cst_sp_entry_point_br=caml_new_string("@sp.entry_point
"), - cst_sp_private_entry_point_br= - caml_new_string("@sp.private_entry_point
"), - cst$88=caml_new_string(""), - cst_br_nbsp_nbsp_nbsp_nbsp_nbsp_nbsp_nbsp_nbsp_nbsp_nbsp_nbsp_nbsp= - caml_new_string - (",
            "), - cst$89=caml_new_string(""), - cst$91=caml_new_string(""), - cst$93=caml_new_string(", "), - cst_Not_a_mutez=caml_new_string("Not a mutez"), - cst_br_br_br=caml_new_string("


"), - cst$87=caml_new_string(""), - cst_min=caml_new_string("min"), - cst_max=caml_new_string("max"), - cst$57=caml_new_string("!="), - cst$58=caml_new_string("=="), - cst$59=caml_new_string("&"), - cst$60=caml_new_string("|"), - cst$61=caml_new_string("+"), - cst$62=caml_new_string("-"), - cst$63=caml_new_string("//"), - cst_ediv=caml_new_string("ediv"), - cst$64=caml_new_string("*"), - cst$65=caml_new_string("%"), - cst$66=caml_new_string("<"), - cst$67=caml_new_string("<="), - cst$68=caml_new_string(">"), - cst$69=caml_new_string(">="), - cst$70=caml_new_string("<<"), - cst$71=caml_new_string(">>"), - cst$72=caml_new_string("^"), - cst_storage$3=caml_new_string("storage"), - cst_local=caml_new_string("local"), - cst_param=caml_new_string("param"), - cst_iter=caml_new_string("iter"), - cst_list_map=caml_new_string("list_map"), - cst_match_cons=caml_new_string("match_cons"), - cst$36=caml_new_string(""), - cst$37=caml_new_string("\n"), - cst$38=caml_new_string("\n"), - cst_sp_unit=caml_new_string("sp.unit"), - cst_sapling_test_state=caml_new_string("sapling test state"), - cst_sapling_test_transaction=caml_new_string("sapling test transaction"), - cst_0000000=caml_new_string("0000000"), - cst$23=caml_new_string(""), - string$1=[0,0,0,0,0,0], - cst_parseDate_not_implemented= - caml_new_string("parseDate not implemented"), - cst_getRadioValue_not_implemented= - caml_new_string("getRadioValue not implemented"), - cst_setValue_not_implemented=caml_new_string("setValue not implemented"), - cst_setText_not_implemented=caml_new_string("setText not implemented"), - cst_getText_not_implemented=caml_new_string("getText not implemented"), - cst$100=caml_new_string(""), - cst$101=caml_new_string(""), - cst$102=caml_new_string(""), - cst$103=caml_new_string(""), - cst$104=caml_new_string(""), - cst$105=caml_new_string(""), - cst$106=caml_new_string(""), - cst$107=caml_new_string(""), - cst_zero_of_type_operation=caml_new_string("zero_of_type: operation"), - cst_zero_of_type_sapling_state= - caml_new_string("zero_of_type: sapling_state"), - cst_zero_of_type_sapling_transaction= - caml_new_string("zero_of_type: sapling_transaction"), - cst_zero_of_type_never=caml_new_string("zero_of_type: never"), - cst_zero_of_type_empty_variant_type= - caml_new_string("zero_of_type: empty variant type"), - cst_zero_of_type_unknown=caml_new_string("zero_of_type: unknown"), - cst_key$1=caml_new_string("key"), - cst_fst=caml_new_string("fst"), - cst_snd=caml_new_string("snd"), - cst_project_literals_TODO_n_tuples= - caml_new_string("project_literals: TODO n-tuples"), - cst_closure_apply_not_a_closure= - caml_new_string("closure_apply: not a closure"), - cst_lens_map$0=caml_new_string("lens_map"), - cst_lens_set=caml_new_string("lens_set"), - cst_lens_map=caml_new_string("lens_map"), - cst_lens_list=caml_new_string("lens_list"), - cst_Type_error_list=caml_new_string("Type error list"), - cst_Invalid_intXor_operation=caml_new_string("Invalid intXor operation"), - cst_Invalid_operation_with_different_types$6= - caml_new_string("Invalid / operation with different types"), - cst_Some$27=caml_new_string("Some"), - cst_None$25=caml_new_string("None"), - cst_Invalid_operation=caml_new_string("Invalid - operation"), - cst_Invalid_operation_with_different_types$5= - caml_new_string("Invalid / operation with different types"), - cst_Invalid_operation_with_different_types$4= - caml_new_string("Invalid * operation with different types"), - cst_Invalid_xor_operation_with_different_types= - caml_new_string("Invalid xor operation with different types"), - cst_Invalid_operation_with_different_types$3= - caml_new_string("Invalid >> operation with different types"), - cst_Invalid_operation_with_different_types$2= - caml_new_string("Invalid << operation with different types"), - cst_Invalid_operation_with_different_types$1= - caml_new_string("Invalid * operation with different types"), - cst_Invalid_operation_with_different_types$0= - caml_new_string("Invalid - operation with different types"), - cst_Invalid_operation_with_different_types= - caml_new_string("Invalid + operation with different types"), - cst_Not_a_address=caml_new_string("Not a address"), - cst_Not_a_chain_id=caml_new_string("Not a chain_id"), - cst_Not_a_timestamp=caml_new_string("Not a timestamp"), - cst_Not_a_mutez$0=caml_new_string("Not a mutez"), - cst_Not_a_int$0=caml_new_string("Not a int"), - cst_None$24=caml_new_string("None"), - cst_Some$26=caml_new_string("Some"), - cst_Not_an_option=caml_new_string("Not an option"), - cst_Not_a_set=caml_new_string("Not a set"), - cst_Not_a_map=caml_new_string("Not a map"), - cst_Not_a_list=caml_new_string("Not a list"), - cst_Not_a_bool$0=caml_new_string("Not a bool"), - cst_unSaplingState=caml_new_string("unSaplingState"), - cst_unSaplingTransaction=caml_new_string("unSaplingTransaction"), - cst_unString=caml_new_string("unString"), - cst_KT$0=caml_new_string("KT"), - cst_in=caml_new_string(" in "), - cst_Missing_constructor=caml_new_string("Missing constructor "), - cst$112=caml_new_string(""), - cst_hidden=caml_new_string("hidden"), - cst_Mutez$0=caml_new_string("Mutez"), - cst_Tez$0=caml_new_string("Tez"), - cst_tz=caml_new_string("tz"), - cst_KT=caml_new_string("KT"), - cst$111=caml_new_string(""), - cst_timestamp=caml_new_string("timestamp"), - cst_string=caml_new_string("string"), - cst_bytes=caml_new_string("bytes"), - cst_address$1=caml_new_string("address"), - cst_key_hash=caml_new_string("key_hash"), - cst_key$2=caml_new_string("key"), - cst_signature=caml_new_string("signature"), - cst_Mutez=caml_new_string("Mutez"), - cst_Tez=caml_new_string("Tez"), - cst_chainid=caml_new_string("chainid"), - cst_secret_key$1=caml_new_string("secret_key"), - gui=caml_new_string("Type operation not handled"), - gui$0=caml_new_string("Type sapling_state not handled"), - gui$1=caml_new_string("Type sapling_transaction not handled"), - gui$2=caml_new_string("Type never has no value"), - cst_int=caml_new_string("int"), - cst$113=caml_new_string(""), - cst$114=caml_new_string(""), - cst$115=caml_new_string(","), - partial$1=[11,caml_new_string("<\/div>"),0], - cst_contract$2=caml_new_string("contract"), - cst_lambda=caml_new_string("lambda"), - cst_One$0=caml_new_string("One"), - cst_Two$0=caml_new_string("Two"), - cst_Zero$0=caml_new_string("Zero"), - cst_list=caml_new_string("list"), - cst_Two=caml_new_string("Two"), - cst_One=caml_new_string("One"), - cst_Zero=caml_new_string("Zero"), - cst$110=caml_new_string(""), - cst$109=caml_new_string(""), - cst$108=caml_new_string("."), - cst_storage$7=caml_new_string("_storage"), - cst_parameter$1=caml_new_string("_parameter"), - cst_parameter$2=caml_new_string("_parameter"), - cst_storage$8=caml_new_string("_storage"), - cst_parameter$3=caml_new_string("_parameter"), - cst_address$2=caml_new_string("address"), - cst_operation=caml_new_string("operation"), - cst_Local=caml_new_string("Local"), - cst_Global_var=caml_new_string("Global var"), - cst_Pattern=caml_new_string("Pattern"), - cst_Iterator=caml_new_string("Iterator"), - cst_Match_list=caml_new_string("Match list"), - cst_storage$6=caml_new_string("_storage"), - cst_Contract_var=caml_new_string("Contract var"), - cst_Scenario_var=caml_new_string("Scenario var"), - cst_Some$28=caml_new_string("Some"), - cst_add$1=caml_new_string("add"), - cst_subtract=caml_new_string("subtract"), - cst_multiply=caml_new_string("multiply"), - cst_mod=caml_new_string("mod"), - cst_left_shift=caml_new_string("left_shift"), - cst_left_shift$0=caml_new_string("left_shift"), - cst_min$0=caml_new_string("min"), - cst_max$0=caml_new_string("max"), - cst_Lambda=caml_new_string("Lambda"), - cst_parameter$0=caml_new_string("__parameter__"), - cst_storage$5=caml_new_string("__storage__"), - cst_operations$3=caml_new_string("__operations__"), - cst_tail$0=caml_new_string("tail"), - cst_head$0=caml_new_string("head"), - cst_add$0=caml_new_string("add"), - cst_remove$0=caml_new_string("remove"), - cst_comparison_between=caml_new_string("comparison between"), - cst_command$0=caml_new_string("(command)"), - cst_type=caml_new_string("(type)"), - cst_tparameter$0=caml_new_string("tparameter"), - cst_storage$9=caml_new_string("storage"), - cst$116=caml_new_string(", "), - cst_TODO_expr_of_value_Operation= - caml_new_string("TODO expr.of_value Operation"), - cst_Right$1=caml_new_string("Right"), - cst_Left$1=caml_new_string("Left"), - cst_Some$29=caml_new_string("Some"), - cst_None$26=caml_new_string("None"), - cst_operations$4=caml_new_string("__operations__"), - cst_HO_none=caml_new_string("HO_none"), - cst_HO_at_most_one=caml_new_string("HO_at_most_one"), - cst_HO_many=caml_new_string("HO_many"), - cst_operations$5=caml_new_string("__operations__"), - cst_operations$6=caml_new_string("__operations__"), - cst_int$0=caml_new_string("int"), - cst_string$0=caml_new_string("string"), - cst_bytes$0=caml_new_string("bytes"), - cst_annots=caml_new_string("annots"), - cst_args=caml_new_string("args"), - cst_prim=caml_new_string("prim"), - cst$120=caml_new_string(" "), - cst$121=caml_new_string("\n"), - cst$122=caml_new_string(" "), - cst$123=caml_new_string("\n"), - cst_bytes$1=caml_new_string("bytes"), - cst_int$1=caml_new_string("int"), - cst_string$1=caml_new_string("string"), - cst_prim$0=caml_new_string("prim"), - cst_annots$0=caml_new_string("annots"), - cst_args$0=caml_new_string("args"), - cst_true=caml_new_string("true"), - cst_false=caml_new_string("false"), - cst_Pair=caml_new_string("Pair"), - cst$130=caml_new_string(""), - cst_Left$3=caml_new_string("Left"), - cst_Right$3=caml_new_string("Right"), - cst$131=caml_new_string(""), - cst_Elt=caml_new_string("Elt"), - cst$133=caml_new_string(""), - cst_False=caml_new_string("False"), - cst_True=caml_new_string("True"), - cst_Left$4=caml_new_string("Left"), - cst_None$27=caml_new_string("None"), - cst_Some$30=caml_new_string("Some"), - cst_None$28=caml_new_string("None"), - cst_Some$31=caml_new_string("Some"), - cst_Right$4=caml_new_string("Right"), - cst_Left$5=caml_new_string("Left"), - cst_Right$5=caml_new_string("Right"), - cst_Right$6=caml_new_string("Right"), - cst_Left$6=caml_new_string("Left"), - cst_Pair$0=caml_new_string("Pair"), - cst$134=caml_new_string(""), - cst_Unit$2=caml_new_string("Unit"), - cst$132=caml_new_string(""), - cst$128=caml_new_string(""), - cst$129=caml_new_string(" "), - cst_Not_handled$0=caml_new_string("Not handled "), - cst$127=caml_new_string(""), - cst_Not_handled=caml_new_string("Not handled "), - cst$124=caml_new_string("%"), - cst$125=caml_new_string("%"), - cst$126=caml_new_string("_"), - cst_Right$2=caml_new_string("Right"), - cst_Left$2=caml_new_string("Left"), - cst$118=caml_new_string(", "), - cst$119=caml_new_string(""), - cst_name$2=caml_new_string("name"), - cst_annotations=caml_new_string("annotations"), - cst_arguments=caml_new_string("arguments"), - cst_D=caml_new_string("D"), - cst_A=caml_new_string("A"), - cst_T_entry_points=caml_new_string("T_entry_points"), - cst_T_self_address=caml_new_string("T_self_address"), - cst$163=caml_new_string("_"), - cst$170=caml_new_string("%"), - cst$168=caml_new_string("%"), - cst$165=caml_new_string(":"), - cst$166=caml_new_string("@"), - cst$167=caml_new_string("!"), - cst$169=caml_new_string("%"), - cst$171=caml_new_string("%"), - cst_non_Elt_under_literal_map= - caml_new_string("non-Elt under literal map"), - cst_stray_Elt=caml_new_string("stray Elt"), - cst_non_Elt_under_literal_map$0= - caml_new_string("non-Elt under literal map"), - cst_FAKE_SAPLING_TRANSACTION=caml_new_string("FAKE_SAPLING_TRANSACTION"), - err$0=[1,caml_new_string("instruction after FAILWITH")], - err$1=[1,caml_new_string("previous type error")], - cst$186=caml_new_string(""), - cst_0FFF=caml_new_string("0FFF"), - cst_010203=caml_new_string("010203"), - cst_00=caml_new_string("00"), - cst_storage$17=caml_new_string("storage"), - cst_parameter$8=caml_new_string("parameter"), - cst_code$5=caml_new_string("code"), - cst_malformed_contract=caml_new_string("malformed contract"), - cst_code$4=caml_new_string("code"), - cst_parameter$7=caml_new_string("parameter"), - cst_storage$16=caml_new_string("storage"), - cst_lazy_entry_points_but_storage_not_a_pair= - caml_new_string("lazy entry points, but storage not a pair"), - cst_Some$53=caml_new_string("(Some "), - cst$200=caml_new_string(")"), - cst_None$52=caml_new_string("None"), - cst_Some$52=caml_new_string("(Some "), - cst$199=caml_new_string(")"), - cst_None$51=caml_new_string("None"), - cst_tparameter$3=caml_new_string("tparameter"), - cst_tstorage$2=caml_new_string("tstorage"), - cst_code$3=caml_new_string("code"), - cst_lazy_entry_points$0=caml_new_string("lazy_entry_points"), - cst_storage$15=caml_new_string("storage"), - cst_Some$51=caml_new_string("(Some "), - cst$198=caml_new_string(")"), - cst_None$50=caml_new_string("None"), - cst_Some$50=caml_new_string("(Some "), - cst$197=caml_new_string(")"), - cst_None$49=caml_new_string("None"), - cst_tparameter$2=caml_new_string("tparameter"), - cst_tstorage$1=caml_new_string("tstorage"), - cst_code$2=caml_new_string("code"), - cst_lazy_entry_points=caml_new_string("lazy_entry_points"), - cst_storage$14=caml_new_string("storage"), - cst_Unit$6=caml_new_string("Unit"), - cst_None$48=caml_new_string("None"), - cst_True$2=caml_new_string("True"), - cst_False$2=caml_new_string("False"), - cst_Pair$2=caml_new_string("Pair"), - cst_Left$8=caml_new_string("Left"), - cst_Right$8=caml_new_string("Right"), - cst_Some$49=caml_new_string("Some"), - cst_Elt$1=caml_new_string("Elt"), - cst_ERROR$0=caml_new_string("ERROR"), - cst_DIP$2=caml_new_string("DIP"), - cst_DIP$3=caml_new_string("DIP"), - cst_LOOP$1=caml_new_string("LOOP"), - cst_ITER$1=caml_new_string("ITER"), - cst_MAP$1=caml_new_string("MAP"), - cst_DROP$3=caml_new_string("DROP"), - cst_DIG$1=caml_new_string("DIG"), - cst_DUG$1=caml_new_string("DUG"), - cst_IF$1=caml_new_string("IF"), - cst_IF_LEFT$1=caml_new_string("IF_LEFT"), - cst_IF_NONE$0=caml_new_string("IF_NONE"), - cst_IF_CONS$1=caml_new_string("IF_CONS"), - cst_NIL$1=caml_new_string("NIL"), - cst_EMPTY_SET$0=caml_new_string("EMPTY_SET"), - cst_EMPTY_BIG_MAP$0=caml_new_string("EMPTY_BIG_MAP"), - cst_EMPTY_MAP$1=caml_new_string("EMPTY_MAP"), - cst_NONE$1=caml_new_string("NONE"), - cst_PAIR$5=caml_new_string("PAIR"), - cst_LEFT$1=caml_new_string("LEFT"), - cst_RIGHT$1=caml_new_string("RIGHT"), - cst_PUSH$1=caml_new_string("PUSH"), - cst_CONTRACT$1=caml_new_string("CONTRACT"), - cst$195=caml_new_string("%"), - cst_CONTRACT$2=caml_new_string("CONTRACT"), - cst_CAST$1=caml_new_string("CAST"), - cst_LAMBDA$1=caml_new_string("LAMBDA"), - cst_code$1=caml_new_string("code"), - cst_storage$13=caml_new_string("storage"), - cst_parameter$6=caml_new_string("parameter"), - cst_CREATE_CONTRACT$2=caml_new_string("CREATE_CONTRACT"), - cst_SELF$1=caml_new_string("SELF"), - cst$196=caml_new_string("%"), - cst_UNPACK$1=caml_new_string("UNPACK"), - cst_ERROR_NOT_SIMPLE=caml_new_string("ERROR-NOT-SIMPLE"), - cst_CDR$0=caml_new_string("CDR"), - cst_CAR$0=caml_new_string("CAR"), - cst_PAIR$3=caml_new_string("PAIR"), - cst_CAR$2=caml_new_string("CAR"), - cst_CDR$3=caml_new_string("CDR"), - cst_DUP$2=caml_new_string("DUP"), - cst_PAIR$4=caml_new_string("PAIR"), - cst_CAR$3=caml_new_string("CAR"), - cst_PAIR$1=caml_new_string("PAIR"), - cst_SWAP$1=caml_new_string("SWAP"), - cst_CDR$1=caml_new_string("CDR"), - cst_CAR$1=caml_new_string("CAR"), - cst_DUP$1=caml_new_string("DUP"), - cst_PAIR$2=caml_new_string("PAIR"), - cst_SWAP$2=caml_new_string("SWAP"), - cst_CDR$2=caml_new_string("CDR"), - cst_DIP$1=caml_new_string("DIP"), - cst$194=caml_new_string("%"), - cst$192=caml_new_string("@"), - cst$193=caml_new_string(":"), - cst_pair$1=caml_new_string("pair"), - cst_or$1=caml_new_string("or"), - cst_ERROR=caml_new_string("ERROR"), - cst_duplicate_annotation=caml_new_string("duplicate annotation"), - cst_cannot_parse_annotation=caml_new_string("cannot parse annotation"), - cst$188=caml_new_string(""), - cst_Parse_type_error=caml_new_string("Parse type error "), - cst_nat=caml_new_string("nat"), - cst_int$2=caml_new_string("int"), - cst_address$3=caml_new_string("address"), - cst_big_map=caml_new_string("big_map"), - cst_bool=caml_new_string("bool"), - cst_bytes$2=caml_new_string("bytes"), - cst_chain_id=caml_new_string("chain_id"), - cst_contract$3=caml_new_string("contract"), - cst_key$3=caml_new_string("key"), - cst_key_hash$0=caml_new_string("key_hash"), - cst_lambda$0=caml_new_string("lambda"), - cst_list$0=caml_new_string("list"), - cst_map=caml_new_string("map"), - cst_mutez=caml_new_string("mutez"), - cst_sapling_transaction=caml_new_string("sapling_transaction"), - cst_never=caml_new_string("never"), - cst_operation$0=caml_new_string("operation"), - cst_option=caml_new_string("option"), - cst_or$0=caml_new_string("or"), - cst_pair$0=caml_new_string("pair"), - cst_sapling_state=caml_new_string("sapling_state"), - cst_set=caml_new_string("set"), - cst_signature$0=caml_new_string("signature"), - cst_string$2=caml_new_string("string"), - cst_timestamp$0=caml_new_string("timestamp"), - cst_unit=caml_new_string("unit"), - cst$189=caml_new_string(""), - cst_Elt$0=caml_new_string("Elt"), - cst_False$1=caml_new_string("False"), - cst_Left$7=caml_new_string("Left"), - cst_None$47=caml_new_string("None"), - cst_Pair$1=caml_new_string("Pair"), - cst_Right$7=caml_new_string("Right"), - cst_Some$48=caml_new_string("Some"), - cst_True$1=caml_new_string("True"), - cst_Unit$5=caml_new_string("Unit"), - cst_ASSERT_CMPLT=caml_new_string("ASSERT_CMPLT"), - cst_ASSERTLT=caml_new_string("ASSERTLT"), - cst_ASSERT=caml_new_string("ASSERT"), - cst_ASSERTEQ=caml_new_string("ASSERTEQ"), - cst_ASSERTGE=caml_new_string("ASSERTGE"), - cst_ASSERTGT=caml_new_string("ASSERTGT"), - cst_ASSERTLE=caml_new_string("ASSERTLE"), - cst_ASSERTNEQ=caml_new_string("ASSERTNEQ"), - cst_ASSERT_CMPEQ=caml_new_string("ASSERT_CMPEQ"), - cst_ASSERT_CMPGE=caml_new_string("ASSERT_CMPGE"), - cst_ASSERT_CMPGT=caml_new_string("ASSERT_CMPGT"), - cst_ASSERT_CMPLE=caml_new_string("ASSERT_CMPLE"), - cst_CMPGT=caml_new_string("CMPGT"), - cst_ASSERT_CMPNEQ=caml_new_string("ASSERT_CMPNEQ"), - cst_ASSERT_NONE=caml_new_string("ASSERT_NONE"), - cst_ASSERT_SOME=caml_new_string("ASSERT_SOME"), - cst_CMPEQ=caml_new_string("CMPEQ"), - cst_CMPGE=caml_new_string("CMPGE"), - cst_CMPLE=caml_new_string("CMPLE"), - cst_CMPLT=caml_new_string("CMPLT"), - cst_CMPNEQ=caml_new_string("CMPNEQ"), - cst_FAIL=caml_new_string("FAIL"), - cst_IF_NONE=caml_new_string("IF_NONE"), - cst_EXEC$0=caml_new_string("EXEC"), - cst_CHAIN_ID$0=caml_new_string("CHAIN_ID"), - cst_APPLY$0=caml_new_string("APPLY"), - cst_ABS$0=caml_new_string("ABS"), - cst_ADD$0=caml_new_string("ADD"), - cst_ADDRESS$0=caml_new_string("ADDRESS"), - cst_AMOUNT$0=caml_new_string("AMOUNT"), - cst_AND$0=caml_new_string("AND"), - cst_BALANCE$0=caml_new_string("BALANCE"), - cst_BLAKE2B$2=caml_new_string("BLAKE2B"), - cst_CAR=caml_new_string("CAR"), - cst_CDR=caml_new_string("CDR"), - cst_DROP$2=caml_new_string("DROP"), - cst_CHECK_SIGNATURE$0=caml_new_string("CHECK_SIGNATURE"), - cst_COMPARE$0=caml_new_string("COMPARE"), - cst_CONCAT$0=caml_new_string("CONCAT"), - cst_CONS$0=caml_new_string("CONS"), - cst_DIP$0=caml_new_string("DIP"), - cst_DUP$0=caml_new_string("DUP"), - cst_EDIV$0=caml_new_string("EDIV"), - cst_EMPTY_MAP$0=caml_new_string("EMPTY_MAP"), - cst_EQ$0=caml_new_string("EQ"), - cst_IFCMPLT=caml_new_string("IFCMPLT"), - cst_IF$0=caml_new_string("IF"), - cst_FAILWITH$0=caml_new_string("FAILWITH"), - cst_GE$0=caml_new_string("GE"), - cst_GET$0=caml_new_string("GET"), - cst_GT$0=caml_new_string("GT"), - cst_HASH_KEY$0=caml_new_string("HASH_KEY"), - cst_IFCMPEQ=caml_new_string("IFCMPEQ"), - cst_IFCMPGE=caml_new_string("IFCMPGE"), - cst_IFCMPGT=caml_new_string("IFCMPGT"), - cst_IFCMPLE=caml_new_string("IFCMPLE"), - cst_IFCMPNEQ=caml_new_string("IFCMPNEQ"), - cst_IFEQ=caml_new_string("IFEQ"), - cst_IFGE=caml_new_string("IFGE"), - cst_IFGT=caml_new_string("IFGT"), - cst_IFLE=caml_new_string("IFLE"), - cst_IFLT=caml_new_string("IFLT"), - cst_IFNEQ=caml_new_string("IFNEQ"), - cst_IF_CONS$0=caml_new_string("IF_CONS"), - cst_IF_LEFT$0=caml_new_string("IF_LEFT"), - cst_PUSH$0=caml_new_string("PUSH"), - cst_LT$0=caml_new_string("LT"), - cst_LAMBDA$0=caml_new_string("LAMBDA"), - cst_IF_RIGHT=caml_new_string("IF_RIGHT"), - cst_IF_SOME$0=caml_new_string("IF_SOME"), - cst_IMPLICIT_ACCOUNT$0=caml_new_string("IMPLICIT_ACCOUNT"), - cst_INT$0=caml_new_string("INT"), - cst_ISNAT$0=caml_new_string("ISNAT"), - cst_LE$0=caml_new_string("LE"), - cst_LEVEL$0=caml_new_string("LEVEL"), - cst_LSL$0=caml_new_string("LSL"), - cst_LSR$0=caml_new_string("LSR"), - cst_NOT$0=caml_new_string("NOT"), - cst_MEM$0=caml_new_string("MEM"), - cst_MUL$0=caml_new_string("MUL"), - cst_NEG$0=caml_new_string("NEG"), - cst_NEQ$0=caml_new_string("NEQ"), - cst_NEVER$0=caml_new_string("NEVER"), - cst_NOW$0=caml_new_string("NOW"), - cst_OR$0=caml_new_string("OR"), - cst_PACK$0=caml_new_string("PACK"), - cst_PAIR$0=caml_new_string("PAIR"), - cst_SLICE$0=caml_new_string("SLICE"), - cst_SENDER$0=caml_new_string("SENDER"), - cst_RENAME=caml_new_string("RENAME"), - cst_SAPLING_EMPTY_STATE$0=caml_new_string("SAPLING_EMPTY_STATE"), - cst_SAPLING_VERIFY_UPDATE$0=caml_new_string("SAPLING_VERIFY_UPDATE"), - cst_SELF$0=caml_new_string("SELF"), - cst_SELF_ADDRESS=caml_new_string("SELF_ADDRESS"), - cst$191=caml_new_string("%"), - cst_SET_DELEGATE$0=caml_new_string("SET_DELEGATE"), - cst_SHA256$2=caml_new_string("SHA256"), - cst_SHA512$2=caml_new_string("SHA512"), - cst_SIZE$0=caml_new_string("SIZE"), - cst_SOME$0=caml_new_string("SOME"), - cst_SOURCE$0=caml_new_string("SOURCE"), - cst_SUB$0=caml_new_string("SUB"), - cst_SWAP$0=caml_new_string("SWAP"), - cst_TRANSFER_TOKENS$0=caml_new_string("TRANSFER_TOKENS"), - cst_UNIT$0=caml_new_string("UNIT"), - cst_UNPAIR$0=caml_new_string("UNPAIR"), - cst_UPDATE$0=caml_new_string("UPDATE"), - cst_XOR$0=caml_new_string("XOR"), - cst_LEFT$0=caml_new_string("LEFT"), - cst_CAST$0=caml_new_string("CAST"), - cst_CONTRACT$0=caml_new_string("CONTRACT"), - cst_CREATE_CONTRACT$1=caml_new_string("CREATE_CONTRACT"), - cst_DIG$0=caml_new_string("DIG"), - cst_DROP$1=caml_new_string("DROP"), - cst_DUG$0=caml_new_string("DUG"), - cst_ITER$0=caml_new_string("ITER"), - cst_parameter$5=caml_new_string("parameter"), - cst_storage$12=caml_new_string("storage"), - cst_code$0=caml_new_string("code"), - cst$190=caml_new_string("%"), - cst_LOOP$0=caml_new_string("LOOP"), - cst_MAP$0=caml_new_string("MAP"), - cst_NIL$0=caml_new_string("NIL"), - cst_NONE$0=caml_new_string("NONE"), - cst_RIGHT$0=caml_new_string("RIGHT"), - cst_UNPACK$0=caml_new_string("UNPACK"), - cst$187=caml_new_string(""), - cst_comment$0=caml_new_string("comment"), - cst$180=caml_new_string(""), - cst$179=caml_new_string(""), - cst_partialType$0=caml_new_string("partialType"), - cst$182=caml_new_string("\n"), - cst$183=caml_new_string(""), - cst$185=caml_new_string(";"), - cst$184=caml_new_string("\n"), - partial$2=[2,0,[12,59,0]], - partial$3= - [2, - 0, - [11,caml_new_string(" code\n"),[2,0,[11,caml_new_string("};"),0]]]], - sub_sequence=[0,0], - cst_stack$0=caml_new_string("stack"), - cst$181=caml_new_string("#"), - cst_comment=caml_new_string("comment"), - cst_partialType=caml_new_string("partialType"), - cst$174=caml_new_string("%"), - cst$175=caml_new_string("%"), - cst$176=caml_new_string("%"), - cst$177=caml_new_string("%"), - cst$178=caml_new_string("%"), - cst_name_of_instr_exn_MIerror= - caml_new_string("name_of_instr_exn: MIerror"), - cst_name_of_instr_exn_MIcomment= - caml_new_string("name_of_instr_exn: MIcomment"), - cst_DIP=caml_new_string("DIP"), - cst_DIPN=caml_new_string("DIPN"), - cst_LOOP=caml_new_string("LOOP"), - cst_ITER=caml_new_string("ITER"), - cst_MAP=caml_new_string("MAP"), - cst_DIG=caml_new_string("DIG"), - cst_DUG=caml_new_string("DUG"), - cst_IF=caml_new_string("IF"), - cst_IF_LEFT=caml_new_string("IF_LEFT"), - cst_IF_SOME=caml_new_string("IF_SOME"), - cst_IF_CONS=caml_new_string("IF_CONS"), - cst_name_of_instr_exn_MIseq=caml_new_string("name_of_instr_exn: MIseq"), - cst_LAMBDA=caml_new_string("LAMBDA"), - cst_CREATE_CONTRACT$0=caml_new_string("CREATE_CONTRACT"), - cst$173=caml_new_string("???"), - cst_instr_on_stack=caml_new_string("instr_on_stack"), - cst_name_of_instr=caml_new_string("name_of_instr"), - cst_SELF=caml_new_string("SELF"), - cst_UNPACK=caml_new_string("UNPACK"), - cst_CONCAT=caml_new_string("CONCAT"), - cst_CAST=caml_new_string("CAST"), - cst_CONTRACT=caml_new_string("CONTRACT"), - cst_RIGHT=caml_new_string("RIGHT"), - cst_LEFT=caml_new_string("LEFT"), - cst_PUSH=caml_new_string("PUSH"), - cst_NONE=caml_new_string("NONE"), - cst_EMPTY_BIG_MAP=caml_new_string("EMPTY_BIG_MAP"), - cst_EMPTY_MAP=caml_new_string("EMPTY_MAP"), - cst_EMPTY_SET=caml_new_string("EMPTY_SET"), - cst_NIL=caml_new_string("NIL"), - cst_PAIR=caml_new_string("PAIR"), - cst_empty_stack$6=caml_new_string("empty stack"), - cst_empty_stack$5=caml_new_string("empty stack"), - cst_DROP$0=caml_new_string("DROP"), - cst_left$1=caml_new_string("left"), - cst_right$1=caml_new_string("right"), - cst$172=caml_new_string("."), - cst_empty_stack$3=caml_new_string("empty stack"), - cst_some=caml_new_string(".some"), - cst_some$0=caml_new_string("some"), - cst_not_an_list=caml_new_string("not an list"), - cst_empty_stack$1=caml_new_string("empty stack"), - cst_not_an_option=caml_new_string("not an option"), - cst_empty_stack$0=caml_new_string("empty stack"), - cst_not_a_bool=caml_new_string("not a bool"), - cst_empty_stack=caml_new_string("empty stack"), - cst_on=caml_new_string(" on "), - cst_FAILED=caml_new_string("FAILED"), - cst$164=caml_new_string(" : "), - cst_entry_points$0=caml_new_string("entry_points"), - cst_self_address=caml_new_string("self_address"), - cst_operations$7=caml_new_string("__operations__"), - cst_parameter$4=caml_new_string("__parameter__"), - cst_storage$10=caml_new_string("__storage__"), - cst_storage$11=caml_new_string("storage"), - cst_params$0=caml_new_string("params"), - cst_operations$8=caml_new_string("operations"), - cst_head$1=caml_new_string("head"), - cst_tail$1=caml_new_string("tail"), - cst_missing_type_conversion$0=caml_new_string("missing_type_conversion"), - cst_span_class_partialType=caml_new_string(""), - cst_span=caml_new_string("<\/span>"), - cst$161=caml_new_string("()"), - cst$162=caml_new_string(" "), - cst_left$0=caml_new_string("left"), - cst_right$0=caml_new_string("right"), - cst$159=caml_new_string("%"), - cst$160=caml_new_string("@"), - cst$158=caml_new_string("@"), - cst$157=caml_new_string("%"), - cst$154=caml_new_string("!"), - cst$155=caml_new_string("@"), - cst$156=caml_new_string(":"), - cst_pair=caml_new_string("pair"), - cst_or=caml_new_string("or"), - cst_missing_type_conversion=caml_new_string("missing_type_conversion"), - cst_D$0=caml_new_string("D"), - cst_A$0=caml_new_string("A"), - cst$153=caml_new_string(""), - cst_tinstr=caml_new_string("tinstr"), - cst_stack=caml_new_string("stack"), - cst_Unary=caml_new_string("`Unary"), - cst_Binary=caml_new_string("`Binary"), - cst_Some$47=caml_new_string("(Some "), - cst$152=caml_new_string(")"), - cst_None$46=caml_new_string("None"), - cst_Some$46=caml_new_string("(Some "), - cst$151=caml_new_string(")"), - cst_None$45=caml_new_string("None"), - cst_Some$45=caml_new_string("(Some "), - cst$150=caml_new_string(")"), - cst_None$44=caml_new_string("None"), - cst_Some$44=caml_new_string("(Some "), - cst$149=caml_new_string(")"), - cst_None$43=caml_new_string("None"), - cst_Some$43=caml_new_string("(Some "), - cst$148=caml_new_string(")"), - cst_None$42=caml_new_string("None"), - cst_Some$42=caml_new_string("(Some "), - cst$147=caml_new_string(")"), - cst_None$41=caml_new_string("None"), - cst_Some$41=caml_new_string("(Some "), - cst$146=caml_new_string(")"), - cst_None$40=caml_new_string("None"), - cst_Some$40=caml_new_string("(Some "), - cst$145=caml_new_string(")"), - cst_None$39=caml_new_string("None"), - cst_Some$39=caml_new_string("(Some "), - cst$144=caml_new_string(")"), - cst_None$38=caml_new_string("None"), - cst_MIdrop=caml_new_string("MIdrop"), - cst_MIdup=caml_new_string("MIdup"), - cst_MIfailwith=caml_new_string("MIfailwith"), - cst_MIcons=caml_new_string("MIcons"), - cst_MIsome=caml_new_string("MIsome"), - cst_MIswap=caml_new_string("MIswap"), - cst_MIunpair=caml_new_string("MIunpair"), - cst_MIunit=caml_new_string("MIunit"), - cst_MIexec=caml_new_string("MIexec"), - cst_MIapply=caml_new_string("MIapply"), - cst_MIaddress=caml_new_string("MIaddress"), - cst_MIimplicit_account=caml_new_string("MIimplicit_account"), - cst_MItransfer_tokens=caml_new_string("MItransfer_tokens"), - cst_MIcheck_signature=caml_new_string("MIcheck_signature"), - cst_MIset_delegate=caml_new_string("MIset_delegate"), - cst_MIsapling_empty_state=caml_new_string("MIsapling_empty_state"), - cst_MIsapling_verify_update=caml_new_string("MIsapling_verify_update"), - cst_MInever=caml_new_string("MInever"), - cst_MIeq=caml_new_string("MIeq"), - cst_MIneq=caml_new_string("MIneq"), - cst_MIle=caml_new_string("MIle"), - cst_MIlt=caml_new_string("MIlt"), - cst_MIge=caml_new_string("MIge"), - cst_MIgt=caml_new_string("MIgt"), - cst_MIcompare=caml_new_string("MIcompare"), - cst_MImul=caml_new_string("MImul"), - cst_MIadd=caml_new_string("MIadd"), - cst_MIsub=caml_new_string("MIsub"), - cst_MIediv=caml_new_string("MIediv"), - cst_MInot=caml_new_string("MInot"), - cst_MIand=caml_new_string("MIand"), - cst_MIor=caml_new_string("MIor"), - cst_MIlsl=caml_new_string("MIlsl"), - cst_MIlsr=caml_new_string("MIlsr"), - cst_MIxor=caml_new_string("MIxor"), - cst_MIslice=caml_new_string("MIslice"), - cst_MIsize=caml_new_string("MIsize"), - cst_MIget=caml_new_string("MIget"), - cst_MIupdate=caml_new_string("MIupdate"), - cst_MIsender=caml_new_string("MIsender"), - cst_MIsource=caml_new_string("MIsource"), - cst_MIamount=caml_new_string("MIamount"), - cst_MIbalance=caml_new_string("MIbalance"), - cst_MInow=caml_new_string("MInow"), - cst_MIlevel=caml_new_string("MIlevel"), - cst_MIchain_id=caml_new_string("MIchain_id"), - cst_MImem=caml_new_string("MImem"), - cst_MIhash_key=caml_new_string("MIhash_key"), - cst_MIblake2b=caml_new_string("MIblake2b"), - cst_MIsha256=caml_new_string("MIsha256"), - cst_MIsha512=caml_new_string("MIsha512"), - cst_MIabs=caml_new_string("MIabs"), - cst_MIneg=caml_new_string("MIneg"), - cst_MIint=caml_new_string("MIint"), - cst_MIisnat=caml_new_string("MIisnat"), - cst_MIpack=caml_new_string("MIpack"), - cst_tparameter$1=caml_new_string("tparameter"), - cst_tstorage$0=caml_new_string("tstorage"), - cst_code=caml_new_string("code"), - cst_arity=caml_new_string("arity"), - cst_Stack_failed=caml_new_string("Stack_failed"), - cst_se_type=caml_new_string("se_type"), - cst_se_tag=caml_new_string("se_tag"), - cst_ST_none=caml_new_string("ST_none"), - cst_SKmap=caml_new_string("SKmap"), - cst_SKlist=caml_new_string("SKlist"), - cst_SKbigmap=caml_new_string("SKbigmap"), - cst_SKset=caml_new_string("SKset"), - cst_SKinstr=caml_new_string("SKinstr"), - cst_SKunknown=caml_new_string("SKunknown"), - cst$142=caml_new_string(""), - cst_Unit$4=caml_new_string("Unit"), - cst_None$37=caml_new_string("None"), - cst_True$0=caml_new_string("True"), - cst_False$0=caml_new_string("False"), - cst_0x$0=caml_new_string("0x"), - cst_0x$1=caml_new_string("0x"), - cst$143=caml_new_string("; "), - cst_MLiteral_compare_cannot_compare_lambdas= - caml_new_string("MLiteral.compare: cannot compare lambdas"), - cst_Unit$3=caml_new_string("Unit"), - cst_None$36=caml_new_string("None"), - cst_Some$38=caml_new_string("(Some "), - cst$141=caml_new_string(")"), - cst_None$35=caml_new_string("None"), - cst_Some$37=caml_new_string("(Some "), - cst$140=caml_new_string(")"), - cst_None$34=caml_new_string("None"), - cst_Some$36=caml_new_string("(Some "), - cst$139=caml_new_string(")"), - cst_None$33=caml_new_string("None"), - cst_mt=caml_new_string("mt"), - cst_annot_type=caml_new_string("annot_type"), - cst_annot_variable=caml_new_string("annot_variable"), - cst_annot_singleton=caml_new_string("annot_singleton"), - cst_Some$35=caml_new_string("(Some "), - cst$138=caml_new_string(")"), - cst_None$32=caml_new_string("None"), - cst_Some$34=caml_new_string("(Some "), - cst$137=caml_new_string(")"), - cst_None$31=caml_new_string("None"), - cst_Some$33=caml_new_string("(Some "), - cst$136=caml_new_string(")"), - cst_None$30=caml_new_string("None"), - cst_Some$32=caml_new_string("(Some "), - cst$135=caml_new_string(")"), - cst_None$29=caml_new_string("None"), - cst_fst$0=caml_new_string("fst"), - cst_snd$0=caml_new_string("snd"), - cst_annot1=caml_new_string("annot1"), - cst_annot2=caml_new_string("annot2"), - cst_left=caml_new_string("left"), - cst_right=caml_new_string("right"), - cst_annot1$0=caml_new_string("annot1"), - cst_annot2$0=caml_new_string("annot2"), - sapling_empty_state$0=[9,5,0], - cst_empty_stack$2=caml_new_string("empty stack"), - cst_FAILWITH=caml_new_string("FAILWITH"), - cst_NEVER=caml_new_string("NEVER"), - cst_DUP=caml_new_string("DUP"), - cst_SWAP=caml_new_string("SWAP"), - cst_DROP=caml_new_string("DROP"), - cst_UNPAIR=caml_new_string("UNPAIR"), - cst_empty_stack$4=caml_new_string("empty stack"), - cst_CONS=caml_new_string("CONS"), - cst_GET=caml_new_string("GET"), - cst_EQ=caml_new_string("EQ"), - cst_NEQ=caml_new_string("NEQ"), - cst_LT=caml_new_string("LT"), - cst_LE=caml_new_string("LE"), - cst_GT=caml_new_string("GT"), - cst_GE=caml_new_string("GE"), - cst_NEG=caml_new_string("NEG"), - cst_ABS=caml_new_string("ABS"), - cst_ISNAT=caml_new_string("ISNAT"), - cst_INT=caml_new_string("INT"), - cst_COMPARE=caml_new_string("COMPARE"), - cst_ADD=caml_new_string("ADD"), - cst_SUB=caml_new_string("SUB"), - cst_MUL=caml_new_string("MUL"), - cst_EDIV=caml_new_string("EDIV"), - cst_NOT=caml_new_string("NOT"), - cst_AND=caml_new_string("AND"), - cst_OR=caml_new_string("OR"), - cst_XOR=caml_new_string("XOR"), - cst_LSL=caml_new_string("LSL"), - cst_LSR=caml_new_string("LSR"), - cst_UNIT=caml_new_string("UNIT"), - cst_SAPLING_EMPTY_STATE=caml_new_string("SAPLING_EMPTY_STATE"), - cst_SOME=caml_new_string("SOME"), - cst_UPDATE=caml_new_string("UPDATE"), - cst_MEM=caml_new_string("MEM"), - cst_EXEC=caml_new_string("EXEC"), - cst_APPLY=caml_new_string("APPLY"), - cst_TRANSFER_TOKENS=caml_new_string("TRANSFER_TOKENS"), - cst_SET_DELEGATE=caml_new_string("SET_DELEGATE"), - cst_SAPLING_VERIFY_UPDATE=caml_new_string("SAPLING_VERIFY_UPDATE"), - cst_HASH_KEY=caml_new_string("HASH_KEY"), - cst_BLAKE2B$1=caml_new_string("BLAKE2B"), - cst_SHA256$1=caml_new_string("SHA256"), - cst_SHA512$1=caml_new_string("SHA512"), - cst_CHECK_SIGNATURE=caml_new_string("CHECK_SIGNATURE"), - cst_SENDER=caml_new_string("SENDER"), - cst_SOURCE=caml_new_string("SOURCE"), - cst_AMOUNT=caml_new_string("AMOUNT"), - cst_BALANCE=caml_new_string("BALANCE"), - cst_NOW=caml_new_string("NOW"), - cst_LEVEL=caml_new_string("LEVEL"), - cst_CHAIN_ID=caml_new_string("CHAIN_ID"), - cst_PACK=caml_new_string("PACK"), - cst_SLICE=caml_new_string("SLICE"), - cst_SIZE=caml_new_string("SIZE"), - cst_ADDRESS=caml_new_string("ADDRESS"), - cst_IMPLICIT_ACCOUNT=caml_new_string("IMPLICIT_ACCOUNT"), - cst_CREATE_CONTRACT=caml_new_string("CREATE_CONTRACT"), - spaces= - caml_new_string - ("                                                                "), - spaces$2= - caml_new_string - (" "), - msg=caml_new_string("Unexpected final stack"), - cst_non_Elt_in_map=caml_new_string("non-Elt in map"), - cAr=[25,[0,0,0]], - cDr=[25,[0,1,0]], - cst_Some$54=caml_new_string("(Some "), - cst$201=caml_new_string(")"), - cst_None$53=caml_new_string("None"), - cst_Stack_failed$0=caml_new_string("Stack_failed"), - cst_dug=caml_new_string("dug"), - cst_dig=caml_new_string("dig"), - cst_swap=caml_new_string("swap"), - cst_stack_remove=caml_new_string("stack_remove"), - cst_stack_replace=caml_new_string("stack_replace"), - cst_stack_apply=caml_new_string("stack_apply"), - cst_ps$0=caml_new_string("ps"), - cst$206=caml_new_string("_"), - cst_ps=caml_new_string("ps"), - cst_o$0=caml_new_string("o"), - cst_a=caml_new_string("a"), - cst_SOME$1=caml_new_string("SOME"), - cst_decompiler_TODO_LEVEL=caml_new_string("decompiler TODO: LEVEL"), - cst_MIerror=caml_new_string("MIerror: "), - cst_decompiler_TODO_inline_Michelson= - caml_new_string("decompiler TODO: inline Michelson"), - cst_Left$9=caml_new_string("Left"), - cst_Right$9=caml_new_string("Right"), - cst_C_AD_R=caml_new_string("C[AD]*R"), - cst_decompiler_TODO_SET_FIELD= - caml_new_string("decompiler TODO: SET_FIELD"), - cst_interpret_unresolved_CONCAT_arity= - caml_new_string("interpret: unresolved CONCAT arity"), - cst_r$3=caml_new_string("r"), - cst_PAIR$6=caml_new_string("PAIR"), - cst_u1=caml_new_string("u1"), - cst_u2=caml_new_string("u2"), - cst_UNPAIR$1=caml_new_string("UNPAIR"), - cst_s$15=caml_new_string("s"), - cst_d=caml_new_string("d"), - cst_d$0=caml_new_string("d"), - cst_s$14=caml_new_string("s"), - cst_dup=caml_new_string("dup"), - cst_s$11=caml_new_string("s"), - cst_s$12=caml_new_string("s"), - cst_s$13=caml_new_string("s"), - cst_dug$0=caml_new_string("dug"), - cst_s$8=caml_new_string("s"), - cst_s$9=caml_new_string("s"), - cst_s$10=caml_new_string("s"), - cst_s$7=caml_new_string("s"), - cst_p$2=caml_new_string("p"), - cst_p$1=caml_new_string("p"), - cst_p$0=caml_new_string("p"), - cst_o=caml_new_string("o"), - cst_p=caml_new_string("p"), - cst_FAILWITH$1=caml_new_string("FAILWITH"), - cst_x$0=caml_new_string("x"), - cst_lambda$1=caml_new_string("lambda"), - cst_LAMBDA$2=caml_new_string("LAMBDA"), - cst_s$6=caml_new_string("s"), - cst_r$2=caml_new_string("r"), - cst_iter_over=caml_new_string("iter_over"), - cst_s$5=caml_new_string("s"), - cst_r$1=caml_new_string("r"), - cst_map_over=caml_new_string("map_over"), - cst_s$4=caml_new_string("s"), - cst_r$0=caml_new_string("r"), - cst_x=caml_new_string("x"), - cst_xs=caml_new_string("xs"), - cst_if_cons=caml_new_string("if_cons"), - cst_s$3=caml_new_string("s"), - cst_if_some=caml_new_string("if_some"), - cst_l$0=caml_new_string("l"), - cst_r=caml_new_string("r"), - cst_if_left=caml_new_string("if_left"), - cst_if=caml_new_string("if_"), - cst_s=caml_new_string("s"), - cst$202=caml_new_string("..."), - cst$203=caml_new_string("..."), - cst_s$0=caml_new_string("s"), - cst_s$1=caml_new_string("s"), - cst_s$2=caml_new_string("s"), - cst$204=caml_new_string("..."), - cst$205=caml_new_string("..."), - cst_field=caml_new_string("field"), - cst_record_type=caml_new_string("record type"), - label_name=caml_new_string("constructor"), - type_name=caml_new_string("variant type"), - cst_Secret_keys_are_forbidden_in_contracts= - caml_new_string("Secret keys are forbidden in contracts"), - cst_None$54=caml_new_string("None"), - cst_Some$55=caml_new_string("Some"), - cst_Unknown_Type=caml_new_string("Unknown Type"), - cst_compiler_TODO_TTuple=caml_new_string("compiler: TODO TTuple"), - cst_Flags_lazy_entry_points_and_lazy_entry_points_multiple_are_incompatible= - caml_new_string - ("Flags lazy_entry_points and lazy_entry_points_multiple are incompatible"), - stack=[0,0], - cst_missing_entry_point$0=caml_new_string("missing entry point"), - cst$214=caml_new_string(""), - cst$215=caml_new_string(""), - cst$212=caml_new_string(""), - cst$213=caml_new_string(""), - cst_non_singleton_stack=caml_new_string("non-singleton stack: "), - cst_missing_entry_point=caml_new_string("missing entry point"), - cst_init_operations=caml_new_string("init_operations"), - cst_failwith=caml_new_string("failwith"), - cst_verify$0=caml_new_string("verify"), - cst_Invalid_lexpr_CSetVar=caml_new_string("Invalid lexpr (CSetVar): "), - cst_Invalid_lexpr_CSetVar$0=caml_new_string("Invalid lexpr (CSetVar): "), - cst_iteratee=caml_new_string("#iteratee"), - cst_for=caml_new_string("for"), - cst_Invalid_lexpr_CFor=caml_new_string("Invalid lexpr (CFor): "), - cst_set_in_top=caml_new_string("set_in_top"), - cst_UpdateItem=caml_new_string("UpdateItem"), - cst_set_in_top$0=caml_new_string("set_in_top"), - cst_ZeroRangeStep=caml_new_string("ZeroRangeStep"), - cst_range=caml_new_string("range"), - cst_step=caml_new_string("#step"), - cst_b=caml_new_string("#b"), - cst_OfSome=caml_new_string("OfSome"), - cst_Left$12=caml_new_string("Left"), - cst_None$57=caml_new_string("None"), - cst_Right$12=caml_new_string("Right"), - cst_Some$58=caml_new_string("Some"), - cst_find_target=caml_new_string("find_target "), - cst_OpenVariant=caml_new_string("OpenVariant"), - cst_dummy$0=caml_new_string("dummy"), - cst_GetItem=caml_new_string("GetItem"), - cst_elems=caml_new_string("elems"), - range_result_target=[1,caml_new_string("__range_result")], - cst_RANGE=caml_new_string("RANGE"), - cst_self_address$0=caml_new_string("self_address"), - cst_compiler_TODO_EProject=caml_new_string("compiler: TODO EProject"), - cst_head$2=caml_new_string("head"), - cst_tail$2=caml_new_string("tail"), - cst$211=caml_new_string("', "), - cst_EAttr=caml_new_string("EAttr '"), - cst_Left$10=caml_new_string("Left"), - cst_None$55=caml_new_string("None"), - cst_Some$56=caml_new_string("Some"), - cst_None$56=caml_new_string("None"), - cst_Some$57=caml_new_string("Some"), - cst_Right$10=caml_new_string("Right"), - cst_Left$11=caml_new_string("Left"), - cst_Right$11=caml_new_string("Right"), - cst_dummy=caml_new_string("dummy"), - cst_operations$9=caml_new_string("__operations__"), - cst_storage$18=caml_new_string("__storage__"), - cst_ensure_ops_if_out=caml_new_string("ensure_ops_if_out"), - cst_DivisionByZero=caml_new_string("DivisionByZero"), - cst_DivisionByZero$0=caml_new_string("DivisionByZero"), - cst_FAKE_SAPLING_TRANSACTION$0= - caml_new_string("FAKE_SAPLING_TRANSACTION"), - cst$209=caml_new_string(""), - cst$210=caml_new_string(""), - cst_mi_lambda=caml_new_string("mi_lambda"), - cst_mi_loop=caml_new_string("mi_loop: "), - cst_mi_loop$0=caml_new_string("mi_loop"), - cst_mi_iter=caml_new_string("mi_iter: "), - cst_mi_iter$0=caml_new_string("mi_iter"), - cst_mi_map=caml_new_string("mi_map: "), - cst_mi_map$0=caml_new_string("mi_map"), - cst_mi_if_cons=caml_new_string("mi_if_cons"), - cst_mi_if_left=caml_new_string("mi_if_left"), - cst_mi_if_some=caml_new_string("mi_if_some"), - cst_mi_if=caml_new_string("mi_if"), - cst_type_top=caml_new_string("type_top"), - cst_drop_target=caml_new_string("drop_target "), - cst_dup_target=caml_new_string("dup_target "), - cst_dup_target$0=caml_new_string("dup_target"), - cst_set_target=caml_new_string("set_target "), - cst_set_target$0=caml_new_string("set_target"), - cst_tag_top$0=caml_new_string("tag_top"), - cst_tag_top=caml_new_string("tag_top"), - cst_invariant_top_end=caml_new_string("invariant_top end"), - cst_invariant_top_begin=caml_new_string("invariant_top begin"), - cst$207=caml_new_string(" ]"), - cst$208=caml_new_string(" [ "), - tgt_parameter=[1,caml_new_string("__parameter__")], - tgt_storage=[1,caml_new_string("__storage__")], - tgt_operations=[1,caml_new_string("__operations__")], - cst_finalize_contract=caml_new_string("finalize_contract"), - cst_lens_of_steps=caml_new_string("lens_of_steps"), - cst_lens_of_steps$0=caml_new_string("lens_of_steps"), - cst_0x$2=caml_new_string("0x"), - cst_value$2=caml_new_string("value"), - cst_key$6=caml_new_string("key"), - cst_value$0=caml_new_string("value"), - cst_key$4=caml_new_string("key"), - cst_secret_key$2=caml_new_string("secret_key"), - cst_public_key_hash$0=caml_new_string("public_key_hash"), - cst_public_key$0=caml_new_string("public_key"), - cst_address$4=caml_new_string("address"), - cst_seed$1=caml_new_string("seed"), - cst_Interpreter_sp_self_is_not_available_in_this_context= - caml_new_string - ("Interpreter. sp.self is not available in this context: "), - cst_Interpreter_sp_self_entry_point_is_not_available_in_this_context= - caml_new_string - ("Interpreter. sp.self_entry_point is not available in this context: "), - cst_operations$10=caml_new_string("__operations__"), - cst_parameter$9=caml_new_string("__parameter__"), - cst_storage$19=caml_new_string("__storage__"), - cst_Not_a_local=caml_new_string("Not a local: "), - cst$218=caml_new_string("; "), - cst$219=caml_new_string("; "), - cst$221=caml_new_string(""), - cst$220=caml_new_string(""), - cst_Interpreter_sp_to_address_is_not_available_in_this_context= - caml_new_string - ("Interpreter. sp.to_address is not available in this context: "), - cst_Interpreter_sp_implicit_account_is_not_available_in_this_context= - caml_new_string - ("Interpreter. sp.implicit_account is not available in this context: "), - cst_bad_sum=caml_new_string("bad sum "), - cst_interpreter_short_tuple=caml_new_string("interpreter: short tuple"), - cst_Interpreter_Instruction_not_supported_in_interpreter= - caml_new_string - ("Interpreter. Instruction not supported in interpreter: "), - cst_Not_a_record=caml_new_string("Not a record "), - cst$222=caml_new_string(", "), - cst_Cannot_compute=caml_new_string("Cannot compute "), - cst_key$5=caml_new_string("key"), - cst_value$1=caml_new_string("value"), - cst_address$5=caml_new_string("address"), - cst_operation$1=caml_new_string("operation"), - cst_bad_range=caml_new_string("bad range"), - cst_Cannot_add_timestamp=caml_new_string("Cannot add timestamp "), - cst_TODO_ematch=caml_new_string("TODO: ematch"), - cst_Interpreter_Instruction_not_supported_in_interpreter$0= - caml_new_string - ("Interpreter. Instruction not supported in interpreter: "), - cst_storage$20=caml_new_string("__storage__"), - cst_not_an_iter=caml_new_string("not an iter"), - cst_Evaluation_of_sp_never_It_should_not_happen= - caml_new_string("Evaluation of sp.never. It should not happen."), - cst_condition=caml_new_string("condition"), - cst_match=caml_new_string("match"), - cst_tail$3=caml_new_string("tail"), - cst_head$3=caml_new_string("head"), - cst_operations$11=caml_new_string("__operations__"), - cst_lambda_output=caml_new_string("lambda output"), - cst_lambda_input=caml_new_string("lambda input"), - cst_default=caml_new_string("default"), - cst_Too_many_channels=caml_new_string("Too many channels"), - cst_already_defined=caml_new_string("' already defined"), - cst_Variable=caml_new_string("Variable '"), - cst$217=caml_new_string("\x05"), - cst_local_not_found=caml_new_string("local not found"), - cst_not_a_heap_reference=caml_new_string("not a heap reference"), - cst$216=caml_new_string(""), - cst_Smart_ml_Interpreter_WrongCondition= - caml_new_string("Smart_ml.Interpreter.WrongCondition"), - cst_parameter$10=caml_new_string("__parameter__"), - cst_storage$21=caml_new_string("__storage__"), - cst_operations$12=caml_new_string("__operations__"), - cst_storage$22=caml_new_string("__storage__"), - cst_None$58=caml_new_string("None"), - cst_Some$60=caml_new_string("Some"), - cst_Some$59=caml_new_string("Some"), - cst_Layout_format_error=caml_new_string("Layout format error "), - cst_Cannot_find=caml_new_string("Cannot find "), - cst_nat$0=caml_new_string("nat"), - cst_address$6=caml_new_string("address"), - cst_bool$0=caml_new_string("bool"), - cst_bytes$3=caml_new_string("bytes"), - cst_int$3=caml_new_string("int"), - cst_intOrNat=caml_new_string("intOrNat"), - cst_key$7=caml_new_string("key"), - cst_key_hash$1=caml_new_string("key_hash"), - cst_mutez$0=caml_new_string("mutez"), - cst_never$0=caml_new_string("never"), - cst_operation$2=caml_new_string("operation"), - cst_sapling_state$0=caml_new_string("sapling_state"), - cst_sapling_transaction$0=caml_new_string("sapling_transaction"), - cst_signature$1=caml_new_string("signature"), - cst_string$3=caml_new_string("string"), - cst_timestamp$1=caml_new_string("timestamp"), - cst_unit$0=caml_new_string("unit"), - cst_Type_format_error_atom=caml_new_string("Type format error atom "), - cst_option$0=caml_new_string("option"), - cst_bigmap=caml_new_string("bigmap"), - cst_contract$4=caml_new_string("contract"), - cst_lambda$2=caml_new_string("lambda"), - cst_list$1=caml_new_string("list"), - cst_map$0=caml_new_string("map"), - cst_pair$2=caml_new_string("pair"), - cst_record=caml_new_string("record"), - cst_set$0=caml_new_string("set"), - cst_unknown=caml_new_string("unknown"), - cst_variant=caml_new_string("variant"), - cst_sp=caml_new_string("sp:"), - cst$223=caml_new_string(" "), - cst_Type_format_error_list=caml_new_string("Type format error list "), - cst_Type_field_format_error=caml_new_string("Type field format error "), - cst_local_address=caml_new_string("local-address"), - cst_address$7=caml_new_string("address"), - cst_bool$1=caml_new_string("bool"), - cst_bytes$4=caml_new_string("bytes"), - cst_chain_id_cst=caml_new_string("chain_id_cst"), - cst_int$4=caml_new_string("int"), - cst_intOrNat$0=caml_new_string("intOrNat"), - cst_key$8=caml_new_string("key"), - cst_key_hash$2=caml_new_string("key_hash"), - cst_0x$3=caml_new_string("0x"), - cst_0x$4=caml_new_string("0x"), - cst_False$3=caml_new_string("False"), - cst_True$3=caml_new_string("True"), - cst_mutez$1=caml_new_string("mutez"), - cst_nat$1=caml_new_string("nat"), - cst_sapling_test_transaction$0= - caml_new_string("sapling_test_transaction"), - cst_secret_key$3=caml_new_string("secret_key"), - cst_signature$2=caml_new_string("signature"), - cst_string$4=caml_new_string("string"), - cst_timestamp$2=caml_new_string("timestamp"), - cst_unit$1=caml_new_string("unit"), - cst$224=caml_new_string(""), - cst$225=caml_new_string(""), - cst_out=caml_new_string("out"), - cst_call_michelson=caml_new_string("call_michelson"), - cst_op=caml_new_string("op"), - cst_Expression_field_format_error= - caml_new_string("Expression field format error "), - cst_Clause_format_error=caml_new_string("Clause format error: "), - cst_make_signature=caml_new_string("make_signature"), - cst_eq=caml_new_string("eq"), - cst_check_signature=caml_new_string("check_signature"), - cst_apply_lambda=caml_new_string("apply_lambda"), - cst_abs=caml_new_string("abs"), - cst_account_of_seed=caml_new_string("account_of_seed"), - cst_add$2=caml_new_string("add"), - cst_add_seconds=caml_new_string("add_seconds"), - cst_amount$3=caml_new_string("amount"), - cst_and=caml_new_string("and"), - cst_attr=caml_new_string("attr"), - cst_balance$2=caml_new_string("balance"), - cst_big_map$0=caml_new_string("big_map"), - cst_call_lambda=caml_new_string("call_lambda"), - cst_call_michelson$0=caml_new_string("call_michelson"), - cst_chain_id$0=caml_new_string("chain_id"), - cst_contract_baker=caml_new_string("contract_baker"), - cst_concat=caml_new_string("concat"), - cst_cons=caml_new_string("cons"), - cst_contains=caml_new_string("contains"), - cst_contract$6=caml_new_string("contract"), - cst_contractBalance=caml_new_string("contractBalance"), - cst_contractData=caml_new_string("contractData"), - cst$227=caml_new_string(""), - cst_create_contract=caml_new_string("create_contract"), - cst_data=caml_new_string("data"), - cst_ediv$0=caml_new_string("ediv"), - cst_eif=caml_new_string("eif"), - cst_elements$1=caml_new_string("elements"), - cst_ematch=caml_new_string("ematch"), - cst_contract$5=caml_new_string("contract"), - cst_storage$24=caml_new_string("storage"), - cst_baker$3=caml_new_string("baker"), - cst_amount$2=caml_new_string("amount"), - cst_None$62=caml_new_string("None"), - cst_None$63=caml_new_string("None"), - cst_isNat$0=caml_new_string("isNat"), - cst_getLocal=caml_new_string("getLocal"), - cst_first=caml_new_string("first"), - cst_floordiv=caml_new_string("floordiv"), - cst_ge=caml_new_string("ge"), - cst_getItem=caml_new_string("getItem"), - cst_getItemDefault=caml_new_string("getItemDefault"), - cst_getItemMessage=caml_new_string("getItemMessage"), - cst_global=caml_new_string("global"), - cst_gt=caml_new_string("gt"), - cst_hashCrypto=caml_new_string("hashCrypto"), - cst_hash_key=caml_new_string("hash_key"), - cst_implicit_account=caml_new_string("implicit_account"), - cst_invert=caml_new_string("invert"), - cst_BLAKE2B$3=caml_new_string("BLAKE2B"), - cst_SHA256$3=caml_new_string("SHA256"), - cst_SHA512$3=caml_new_string("SHA512"), - cst_Unknown_hash_algorithm=caml_new_string("Unknown hash algorithm: "), - cst_le=caml_new_string("le"), - cst_isVariant=caml_new_string("isVariant"), - cst_items$0=caml_new_string("items"), - cst_iter$0=caml_new_string("iter"), - cst_keys=caml_new_string("keys"), - cst_lambda$3=caml_new_string("lambda"), - cst_lambdaParams=caml_new_string("lambdaParams"), - cst_level=caml_new_string("level"), - cst_list$2=caml_new_string("list"), - cst_literal=caml_new_string("literal"), - cst_lshift=caml_new_string("lshift"), - cst_lt=caml_new_string("lt"), - cst_scenario_var=caml_new_string("scenario_var"), - cst_pack=caml_new_string("pack"), - cst_mul=caml_new_string("mul"), - cst_map$1=caml_new_string("map"), - cst_map_function=caml_new_string("map_function"), - cst_match_cons$0=caml_new_string("match_cons"), - cst_max$1=caml_new_string("max"), - cst_min$1=caml_new_string("min"), - cst_mod$0=caml_new_string("mod"), - cst_neg=caml_new_string("neg"), - cst_neq=caml_new_string("neq"), - cst_now=caml_new_string("now"), - cst_openVariant=caml_new_string("openVariant"), - cst_operations$13=caml_new_string("operations"), - cst_or$2=caml_new_string("or"), - cst_None$61=caml_new_string("None"), - cst_rev_items=caml_new_string("rev_items"), - cst_params$1=caml_new_string("params"), - cst_range$0=caml_new_string("range"), - cst_record$0=caml_new_string("record"), - cst_reduce=caml_new_string("reduce"), - cst_rev=caml_new_string("rev"), - cst_rev_elements=caml_new_string("rev_elements"), - cst_rev_keys=caml_new_string("rev_keys"), - cst_rev_values=caml_new_string("rev_values"), - cst_rshift=caml_new_string("rshift"), - cst_sapling_empty_state=caml_new_string("sapling_empty_state"), - cst_sapling_verify_update=caml_new_string("sapling_verify_update"), - cst_sum=caml_new_string("sum"), - cst_set_delegate=caml_new_string("set_delegate"), - cst_second=caml_new_string("second"), - cst_self$1=caml_new_string("self"), - cst_self_entry_point=caml_new_string("self_entry_point"), - cst_sender=caml_new_string("sender"), - cst_seq_michelson=caml_new_string("seq_michelson"), - cst_set$1=caml_new_string("set"), - cst$226=caml_new_string(""), - cst_import_params_type_yet_unknown= - caml_new_string("import: params type yet unknown"), - cst_import_params_type_yet_unknown$0= - caml_new_string("import: params type yet unknown"), - cst_sign=caml_new_string("sign"), - cst_size=caml_new_string("size"), - cst_slice=caml_new_string("slice"), - cst_source$0=caml_new_string("source"), - cst_split_tokens=caml_new_string("split_tokens"), - cst_sub=caml_new_string("sub"), - cst_unpack=caml_new_string("unpack"), - cst_toInt=caml_new_string("toInt"), - cst_to_address=caml_new_string("to_address"), - cst_transfer=caml_new_string("transfer"), - cst_truediv=caml_new_string("truediv"), - cst_tuple=caml_new_string("tuple"), - cst_type_annotation=caml_new_string("type_annotation"), - cst_update_map=caml_new_string("update_map"), - cst_values=caml_new_string("values"), - cst_variant$0=caml_new_string("variant"), - cst_variant_arg=caml_new_string("variant_arg"), - cst_xor=caml_new_string("xor"), - cst_hex=caml_new_string("hex"), - cst_raw=caml_new_string("raw"), - cst_Expression_format_error_b= - caml_new_string("Expression format error (b) "), - cst_match$1=caml_new_string("match"), - cst_Bad_case_parsing=caml_new_string("Bad case parsing: "), - cst_never$1=caml_new_string("never"), - cst_bind=caml_new_string("bind"), - cst_defineLocal=caml_new_string("defineLocal"), - cst_delItem=caml_new_string("delItem"), - cst_failwith$0=caml_new_string("failwith"), - cst_forGroup=caml_new_string("forGroup"), - cst_match$0=caml_new_string("match"), - cst_match_cases=caml_new_string("match_cases"), - cst_result=caml_new_string("result"), - cst_seq=caml_new_string("seq"), - cst_set$2=caml_new_string("set"), - cst_set_type=caml_new_string("set_type"), - cst_updateSet=caml_new_string("updateSet"), - cst_verify$1=caml_new_string("verify"), - cst_whileBlock=caml_new_string("whileBlock"), - cst_True$4=caml_new_string("True"), - cst_Command_format_error_a=caml_new_string("Command format error (a) "), - cst_Command_format_error_b=caml_new_string("Command format error (b) "), - cst_ifBlock=caml_new_string("ifBlock"), - cst_ifSomeBlock=caml_new_string("ifSomeBlock"), - cst_match_cons$1=caml_new_string("match_cons"), - cst_seq$0=caml_new_string("seq"), - cst_bind$0=caml_new_string("bind"), - cst_elseBlock=caml_new_string("elseBlock"), - cst_elseBlock$0=caml_new_string("elseBlock"), - cst_elseBlock$1=caml_new_string("elseBlock"), - cst_Exception_Unit=caml_new_string("Exception_Unit"), - cst_Exception_DebugMessage=caml_new_string("Exception_DebugMessage"), - cst_Exception_DefaultLine=caml_new_string("Exception_DefaultLine"), - cst_Exception_DefaultUnit=caml_new_string("Exception_DefaultUnit"), - cst_Exception_FullDebug=caml_new_string("Exception_FullDebug"), - cst_Exception_Line=caml_new_string("Exception_Line"), - cst_Exception_VerifyOrLine=caml_new_string("Exception_VerifyOrLine"), - cst_lazy_entry_points$1=caml_new_string("lazy_entry_points"), - cst_lazy_entry_points_multiple= - caml_new_string("lazy_entry_points_multiple"), - cst_no_comment=caml_new_string("no_comment"), - cst_simplify_via_michel=caml_new_string("simplify_via_michel"), - cst_Unknown_Contract_Flag=caml_new_string("Unknown Contract Flag: "), - cst_Global_variable_format_error= - caml_new_string("Global variable format error "), - cst_True$5=caml_new_string("True"), - cst_Message_format_error=caml_new_string("Message format error "), - cst_Parse_error_contract=caml_new_string("Parse error contract"), - cst_storage$25=caml_new_string("storage"), - cst_storage_type=caml_new_string("storage_type"), - cst_entry_points_layout$0=caml_new_string("entry_points_layout"), - cst_messages=caml_new_string("messages"), - cst_flags$0=caml_new_string("flags"), - cst_globals=caml_new_string("globals"), - cst_balance$3=caml_new_string("balance"), - cst_None$60=caml_new_string("None"), - cst_storage$23=caml_new_string("__storage__"), - cst_None$59=caml_new_string("None"), - cst_Some$61=caml_new_string("Some"), - cst_Right$13=caml_new_string("Right"), - cst_Layout_format_error$0=caml_new_string("Layout format error "), - cst_as$0=caml_new_string(" as "), - cst_as=caml_new_string(" as "), - cst_none=caml_new_string("none"), - cst_seed$2=caml_new_string("seed:"), - cst_address$8=caml_new_string("address:"), - cst_action=caml_new_string("action"), - cst_compute=caml_new_string("compute"), - cst_error$0=caml_new_string("error"), - cst_html$0=caml_new_string("html"), - cst_message$0=caml_new_string("message"), - cst_newContract=caml_new_string("newContract"), - cst_show=caml_new_string("show"), - cst_simulation=caml_new_string("simulation"), - cst_verify$2=caml_new_string("verify"), - cst_line_no$3=caml_new_string("line_no"), - cst_condition$0=caml_new_string("condition"), - cst_line_no$4=caml_new_string("line_no"), - cst_id$3=caml_new_string("id"), - cst_line_no$5=caml_new_string("line_no"), - cst_stripStrings=caml_new_string("stripStrings"), - cst_html$1=caml_new_string("html"), - cst_expression=caml_new_string("expression"), - cst_export=caml_new_string("export"), - cst_id$4=caml_new_string("id"), - cst_line_no$6=caml_new_string("line_no"), - cst_show$0=caml_new_string("show"), - cst_accept_unknown_types=caml_new_string("accept_unknown_types"), - cst_amount$4=caml_new_string("amount"), - cst_sender$0=caml_new_string("sender"), - cst_source$1=caml_new_string("source"), - cst$229=caml_new_string(""), - cst_chain_id$1=caml_new_string("chain_id"), - cst_chain_id$2=caml_new_string("chain_id"), - cst_params$2=caml_new_string("params"), - cst_line_no$7=caml_new_string("line_no"), - cst_message$1=caml_new_string("message"), - cst_id$5=caml_new_string("id"), - cst_show$1=caml_new_string("show"), - cst_level$0=caml_new_string("level"), - cst_time=caml_new_string("time"), - cst_messageClass=caml_new_string("messageClass"), - cst_title=caml_new_string("title"), - cst_valid=caml_new_string("valid"), - cst_line_no$8=caml_new_string("line_no"), - cst_inner=caml_new_string("inner"), - cst_tag=caml_new_string("tag"), - cst_message$2=caml_new_string("message"), - cst_expression$0=caml_new_string("expression"), - cst_line_no$9=caml_new_string("line_no"), - cst_id$6=caml_new_string("id"), - cst$228=caml_new_string("'"), - cst_Unknown_action=caml_new_string("Unknown action: '"), - cst_unit$2=caml_new_string("unit"), - cst_bool$2=caml_new_string("bool"), - cst_timestamp$3=caml_new_string("timestamp"), - cst_string$5=caml_new_string("string"), - cst_bytes$5=caml_new_string("bytes"), - cst_address$9=caml_new_string("address"), - cst_key_hash$3=caml_new_string("key_hash"), - cst_key$9=caml_new_string("key"), - cst_signature$3=caml_new_string("signature"), - cst_mutez$2=caml_new_string("mutez"), - cst_chain_id$3=caml_new_string("chain_id"), - cst_secret_key$4=caml_new_string("secret_key"), - cst_operation$3=caml_new_string("operation"), - cst_sapling_state$1=caml_new_string("sapling_state"), - cst_sapling_transaction$1=caml_new_string("sapling_transaction"), - cst_never$2=caml_new_string("never"), - cst_nat$2=caml_new_string("nat"), - cst_int$5=caml_new_string("int"), - cst_intOrNat$1=caml_new_string("intOrNat"), - cst$230=caml_new_string(" "), - cst$231=caml_new_string(" "), - cst_unknown$0=caml_new_string("unknown"), - cst_export_type_TODO_UTuple=caml_new_string("export_type: TODO UTuple"), - cst$232=caml_new_string(" "), - cst_None$64=caml_new_string("None"), - cst_div=caml_new_string("<\/div>"), - buttonText=caml_new_string("Simulation"), - cst$241=caml_new_string("."), - cst_Add_Another_Step=caml_new_string("Add Another Step"), - partial$4=[11,caml_new_string("'><\/div>"),0], - cst$240=caml_new_string("_"), - partial$5= - [11, - caml_new_string("', t, tstorage,"), - [4, - 3, - 0, - 0, - [11, - caml_new_string(')">'), - [2, - 0, - [11, - caml_new_string("<\/button><\/form>\n
<\/div>"),0]]]]]]], - myName=caml_new_string("Contract"), - cst_times=caml_new_string("×"), - cst_Deploy_Michelson_Contract= - caml_new_string("Deploy Michelson Contract"), - cst_Types=caml_new_string("Types"), - cst_span_class_partialType_Warning_errors_in_the_Michelson_generated_code_span_br= - caml_new_string - ("Warning: errors in the Michelson generated code.<\/span>
"), - cst$239=caml_new_string(""), - cst$238=caml_new_string(""), - cst_SmartPy=caml_new_string("SmartPy"), - cst_Generated_Michelson=caml_new_string("Generated Michelson:"), - partial$6= - [11, - caml_new_string(".innerText,storageCode"), - [2, - 0, - [11, - caml_new_string(".innerHTML, contractCode"), - [2, - 0, - [11, - caml_new_string(".innerHTML, storageCodeJson"), - [2, - 0, - [11, - caml_new_string(".innerHTML, contractCodeJson"), - [2, - 0, - [11, - caml_new_string - (".innerHTML)'>Deploy Michelson Contract<\/button>"), - [2,0,0]]]]]]]]]], - cst_simplifiedContractCode=caml_new_string("simplifiedContractCode"), - cst_contractCode=caml_new_string("contractCode"), - cst_missing_storage=caml_new_string("missing storage"), - cst_storageCode=caml_new_string("storageCode"), - cst_missing_storage$0=caml_new_string("missing storage"), - cst_storageCodeJson=caml_new_string("storageCodeJson"), - cst_contractCodeJson=caml_new_string("contractCodeJson"), - cst_simplifiedContractCodeJson= - caml_new_string("simplifiedContractCodeJson"), - cst_Simplified_Code_JSON=caml_new_string("Simplified Code JSON"), - cst_Code_JSON=caml_new_string("Code JSON"), - cst_Storage_JSON=caml_new_string("Storage JSON"), - cst_Simplified_Code$0=caml_new_string("Simplified Code"), - cst_Simplified_Code$1=caml_new_string("Simplified Code"), - cst_Code$0=caml_new_string("Code"), - cst_Code$1=caml_new_string("Code"), - cst_Storage$0=caml_new_string("Storage"), - cst_contractSizes=caml_new_string("contractSizes"), - cst_Sizes=caml_new_string("Sizes"), - cst_Simplified_Combined=caml_new_string("Simplified Combined"), - cst_Simplified_Code=caml_new_string("Simplified Code"), - cst_tr_td_hr_td_td_td_td_td_tr= - caml_new_string("
<\/td><\/td><\/td><\/tr>"), - simplifiedCombined=caml_new_string(""), - simplifiedCode=caml_new_string(""), - sep=caml_new_string(""), - cst_Code=caml_new_string("Code"), - cst_Combined=caml_new_string("Combined"), - cst_Storage=caml_new_string("Storage"), - cst_white_space_pre=caml_new_string("white-space-pre"), - cst_br$3=caml_new_string("
"), - cst$237=caml_new_string("\n"), - cst$235=caml_new_string(""), - cst$236=caml_new_string(""), - cst_active=caml_new_string(" active"), - cst$234=caml_new_string(""), - cst_none$0=caml_new_string("none"), - cst_block=caml_new_string("block"), - cst$233=caml_new_string(""), - cst_inputGui=caml_new_string("inputGui_"), - cst_outputGui=caml_new_string("outputGui_"), - cst_lazyOutputGui=caml_new_string("lazyOutputGui_"), - cst_level$1=caml_new_string("level"), - cst_Mutez$1=caml_new_string("Mutez"), - cst_Tez$1=caml_new_string("Tez"), - cst_amount$5=caml_new_string("amount"), - cst_timestamp$4=caml_new_string("timestamp"), - cst_source$2=caml_new_string("source"), - cst_sender$1=caml_new_string("sender"), - cst_full_output=caml_new_string("full_output"), - cst_debug=caml_new_string("debug"), - cst_simulation$0=caml_new_string("simulation"), - cst_context=caml_new_string("context"), - cst$242=caml_new_string("\n"), - cst$246=caml_new_string(""), - cst$245=caml_new_string(""), - cst$244=caml_new_string(""), - cst$243=caml_new_string(""), - partial$7=[2,0,[11,caml_new_string("<\/div>"),0]], - cst$247=caml_new_string("\n"), - cst$249=caml_new_string(""), - cst$248=caml_new_string(""), - partial$8= - [11, - caml_new_string(")'>line "), - [4,3,0,0,[11,caml_new_string("<\/button>)"),0]]], - partial$9= - [2, - 0, - [11, - caml_new_string(")]<\/h3>"), - [2, - 0, - [11, - caml_new_string("

Balance: "), - [2, - 0, - [11, - caml_new_string("<\/h3>"), - [2, - 0, - [11, - caml_new_string("<\/div>"), - [2, - 0, - [11, - caml_new_string - ("(