Caml1999T037bf\C#TmcР&Lambda&Lambda-lambda/tmc.mlRR@@ 3@@@@@@#intA;@@#intA@@@@@&_none_@@A@A@$charB;@@$charA@@@@@ @A@&stringQ;@@&stringA@@@@@@@@%bytesC;@@%bytesA@@@@@@@@%floatD;@@%floatA@@@@@@@@$boolE;@@%falsec@@%@$trued@@+@@@A@@@@@,@A@$unitF;@@"()e@@6@@@A@@@@@7@A@ #exnG;@@@A@@@@@;@@@#effH;@@O@A@A@@@@@@D@@@,continuationI;@@Q@@P@B,continuationA@nY@@@@@@T@@@%arrayJ;@@R@A%arrayA@@@@@@_@@@ $listK;@@S@A"[]f@@l@"::g@@@T@@y@ @@A@Y@@@@@|@@@&optionL;@@V@A$Noneh@@@$Somei@@@@@A@Y@@@@@@@@)nativeintM;@@)nativeintA@@@@@@@@%int32N;@@%int32A@@@@@@@@%int64O;@@%int64A@@@@@@@@&lazy_tP;@@X@A&lazy_tA@Y@@@@@@@@ 5extension_constructorR;@@5extension_constructorA@@@@@@@@*floatarrayS;@@*floatarrayA@@@@@@@@&iarrayT;@@Y@A&iarrayA@Y@@@@@@@@ *atomic_locU;@@Z@A*atomic_locA@@@@@@@@@ .Assert_failure`#@@@@@J@@@@@@@@[@@A頰=ocaml.warn_on_literal_pattern@@0Division_by_zero]#@@@A󠰠  @+End_of_file\#$@@@A@'FailureY#,@'@@A@0Invalid_argumentX#5@0@@A $#@-Match_failureV#>@@=@9@;@@a@@A5!4!@)Not_foundZ#O@@@A&=)<)@-Out_of_memoryW#W@@@A.E1D1@.Stack_overflow^#_@@@A6M9L9@.Sys_blocked_io_#g@@@A>UATA@)Sys_error[#o@j@@AG^J]J@:Undefined_recursive_modulea#x@@w@s@u@@h@@AXo[n[@:Continuation_already_takenb#@@@A`wcvc@&Stdlib@@@@A3@@@R@@@3@@@A+4tmc_call_informationgAU U4@@;@@#loch@@/scoped_location@@@ V9;V9P@@CA(expliciti@@r@@@ WQSWQb@@DA@@A@@@@@UXcd@@@@BA@#V9>@@@Ш@г!"V9@V9O@@(3@@6;@@@A@@@@@@@@@@@@/@@ @*@#&&!WQ[@ @@Ш@г)$boolWQ]WQa@@1@@4@@ @0@@A@,@@,+@3@Y@@A+3subterm_informationBYejYe}@@;@@)tmc_calls@@ug@@@ j@@@ l Z Z@@GA@@A@@@@@Yee[@@@A#FA@# Z@ @@Ш@г$list!Z"Z@г4tmc_call_information*Z+Z@@&3'&&'''''@9;@@@A@@@@@"@@@@@@@@0 @@3@@ m @*@@A@&@@&%@310011111@ @@A+3ambiguous_argumentsC@\A\@@;@@(explicit@@@@@ yM]N]@)ocaml.doc# When [explicit = true], we have an ambiguity between arguments containing calls that have been explicitly marked [@tailcall]. Otherwise we have an ambiguity between un-annotated calls. ]^^a@@@@@@@pIA)arguments@@נu@@@ |@@@ ~nbob@@JA@@A@@@@@r\sc@@@@HA@#22-z]@@@Ш@г5$bool]]@@=3@ZL;@@@A@@@@@@@@@@@@E@@ z@A>`=<@<<@@@<@<@#88.b@-@@Ш@г;$listbb@г@3subterm_informationbb@@H+@@@M, @@P@@ /@G@@A@C@@CB@3@/@@A+%errorDee@@;@@?Ambiguous_constructor_arguments@@@ @@ff @@LA@@A@@@@@e@@@AKA@#ff @ @г3ambiguous_argumentsf @@3@`,;@@@A@@@@@@@@@@@@@@@@A@@@@3@@@%ErrorEh",h"1@#@(Location!t@@@ K@@@ @@Ah"" h"G@@MA@г(Locationh"5h"=@h">h"?@@@#3@9d^@@ @@г%error'h"B@@%  @@@@"@"@"!@ A++destinationF3kJW4kJb@А&offset@ 387788888@#PJ;@@ @A@A@G@B@@@IkJJJo@@@@\NA&offsetF;@@@A@@@@@QpRp@@@@dOA@@UkJOVkJV@@BA@; @A#var@@%Ident!t@@@hlgiilgv@@{PA&offset@@7G@rmwysmw@@QA#loc@@)Debuginfo/Scoped_location!t@@@nn@@RA@@A@Y@@@@@A@@@>@#//&lgl@%@@Ш@г2%Identlgnlgs@7lgtlgu@@@Ac@@D@@f@<@#885mw@4@@Ш@А&offset>pmwmw@@C@@u@A@#==2n@1@@Ш@г@)Debuginfonn@Fnn@@Jnn@ @@V @@Y@@ @O@@A@@+pp@@;@@&Offset&lambda@@@"@@p@ U In the OCaml value model, interior pointers are not allowed. To represent the "placeholder to mutate" in DPS code, we thus use a pair of the block containing the placeholder, and the offset of the placeholder within the block. In the common case, this offset is an arbitrary lambda expression, typically a constant integer or a variable. We define ['a destination] as parametrized over the offset type to represent formal destination parameters (where the offset is an Ident.t), and maybe in the future statically-known offsets (where the offset is an integer). q{ ' )@@@@@@@SA@@A@@@@@@@A@#p@@гp@@$ǰ@@@@ ؐ@@@@@@@A@@@@3        @@@@ఠ+offset_code} + /} + :@0TA@@@@@@;G@8M@@@@G@9@@:G@73+**+++++@[@@@࣠@%paramAĠ&Offset@} + <A} + B@;f@@@5@gA@@A@Ab`@Rఠ!tN} + CO} + D@aUA@@r@@@=3POOPPPPP@&=Y} + +Z} + I@@@@@@\} + ;]} + E@@9 @@@@ఐ!tg} + H@@@@@=3eddeeeee@"@@@A@LG@C@A@@@@@ఠ.add_dst_params{ K O| K ]@VA@@@Y*!t@@@N@@@MG@E@@B@@@qG@n@&Lambda*value_kind@@@sG@o@@pJ@w@@@|G@c&G@i@@@kG@d@@eG@F@@GG@D3@@@@@@࣠@ Aঠ#var K ` K cA3px@@6s@@@3fe@@A@Ac@`3]\@@B@AR@O@An@kఠ@WA@|@@@V3@%h K K@  @@@@&offset K e K kAఠ@XA@i@@@[@@@ K _ K l@гv+destination K w K @г{%Ident  K o  K t@ K u K v@@@@@@H8 @@@@@@J=@@ K ^ K @@@A@@@@¶msA) K * K @FC@E@D0-@/@. @@@@@@  @@ภ%LprimyF P RzF P W@;%Lprim @)primitive@@@K$listK@@@M@@@L/scoped_location@@@N@CH@V@A2-'@'B3-'@'v@@@@ภ2Psetfield_computedF P XF P j@;2Psetfield_computed&@@@@4immediate_or_pointer@@@@@@|B@@@{@@z@@ภo y y@nఐ!t y y@@@@ఐؠ&constr y y@@@@%after y y@> @@ )I@@@@M@M@@@" @@@@@M@@@@@@A@ y@@ภ%Lprim z z@jภ*Pmakeblock z z@;*PmakeblockL@#intA@@@(Asttypes,mutable_flag@@@Y+block_shape@@@@CBo~@A~(*~(Z@@@^e@ఐ.&constr z z@@@O3        @ @@@@@#tag z z @ @@5@@@K@K@@ఐL&constr 3z  4z@1@@m@$flag :z ;z@ @@I@@@K@K@,@ఐg&constr Nz Oz @L@@9@%shape Uz! Vz&@ΰ @@[@@@K@K@G@@t `z'@@@@@K@N@ఐ]*block_args n{)4 o{)>@V@@@@@K@K@a@ఐ&constr {)@ {)F@@@n@#loc {)G {)J@ @@@@@K@z@@@@@@@~@@@v@A@I@@A@@@@ఠ/tmc_placeholdery }MS }Mb@ nA@@@@@I@3        @@@@@@డ .dummy_constant&Lambda  @   @@@@@@e4E4Ef4E4_@@G@ @@!@A@ }MO @@@!@ఠ0with_placeholderz  @ oA@@@@@@I@@@Ġ@@@@@@ &lambda@@@@@I@@@@lI@@@I@@@I@3        @Uc\@]@^@@@࣠@&constr|A  @ $pA@@23        @?  @@@@@  @@$body}A@ % &@@@98@@@@@@7@@@@@3 . - - . . . . .@+S@"@#@@@@ IqAKб@гN+destination D E@гS&offset M N@@[@@@@@@c@@@$ @@г_` ] ^@@f@@@/@@@@@2@@ g h@@@{6@@@@@ఠ2k_with_placeholder~ u ( v :@ rA@@@@@L@3 y x x y y y y y@LbZ@]@I@@@ఐɠ%apply =C =H@۰@@@@@@@@@@@@@@@@@@@@@@M@@ $flag =W =[@ภ'Mutable =^ =e@;'Mutable(Asttypes,mutable_flag@@@o@@@AB@@A4parsing/asttypes.mligWugW~@@@ S@@@@@@@ M@ O@E@@@M@@S@@@ @@@M@@V@@@'@@@&M@#@`@@@,M@*@@ఐ렐&constr =K =Q@ư@@~@ =I =g@@6@@@M@/@@ఐh/tmc_placeholder =h =w@ @@0@@@M@1M@0@@ @@@A@  $ @@@ఠ/placeholder_pos %{ &{@ 8sA@@#intA@@@=L@23 , + + , , , , ,@@@@@@డ $List&length A{ B{@  E{ F{@@@4!a@@@@)@@@@@@kk @@C@@@@x@@@AL@7@@@6<@@@5@@49@@ఐh&constr v{ w{@C@@H@&before }{ ~{@ @@9&@@@>M@CM@@W@@H @@^X@A@ { @@@ఠ3placeholder_pos_lam  @ tA@@@@@GL@D3        @nx@y@z@@@ภ&Lconst  @;&Lconst;@ 3structured_constant@@@<@AB@V@AO'&K&MP'&K&l@@@  @ภ*Const_base  @;*Const_base@@@@(constant@@@ @A@@D@Ahrvir@@@ "@ภ)Const_int  @;)Const_int!(constant@@@k@#intA@@@a@A@@G@A%X&X@@@-A@ఐΠ/placeholder_pos  @U@@@@@UL@WL@V_@@  @@=@@@OL@Tg@@@@^@@@IL@No@@g@@)@@@Hs@A@ @@@ఠ)block_var @0uA@@%Ident!t@@@bL@X3&%%&&&&&@@@@@@డ ,create_local%Ident;<@ ?@)@@@&stringQ@@@(@@@@@@0typing/ident.mlib##b#@@@+E@@@@@@@\6@@@[@@Z1@@%blockd+e0@@g*h1@@(@@@cM@eM@dE@@6 @@NF@A@r @@ภ$Llety59z5=@;$Llet @ (let_kind@@@? @@@@!t@@@A@@@B@@@C@EE@V@A 4*&& 5*&&@@@ @ภ&Strict5?5E@;&Strict(@@@%@@@@C@@A G!k!{ H!k!@@@ @@  @@3@@@nK@v3@@@@@@ภ'Pgenval5G5N@ c@@@ @@@oK@z@ఐ)block_var5P5Y@@@M@@@pK@|K@{$@ఐk2k_with_placeholder5[5m@@@ @@@qK@~K@}6@ఐҠ$bodyoyo}@v@@@ @@@@@@@@@@@O@@ະ =#var@ఐ)block_var@d@@ @@@L@l@ N&offset&'@ภ&Offset./@ ఐ3placeholder_pos_lam89@ @@ _@@@L@L@@@ @@Q@@@L@@ u#locNO@ఐK&constrYZ@&@@y@#loc`a@װ @@ @@@L@@@@io~j@@}|@@@@@@L@@@ @@ @@@r@L@@@c@@ @@@m@g@@V@ph@@@i@@R@jj@@@tkA@I@r@A@o@on@@@ @@(block_ido@@@@@@@@@@@@&lambda@@@@@&lambda@@@@@@@@@3@@@@@@,delay_impure)(@vA(&@@@@%@@@@@$@@@#@@@@@!@@@@@@@@@BбBг@#int@@H@@@/@@б@гH!t !@@P@@@=@@б@б@гP!t&'@@X@@@M@@гXY+1@@_@@@X@@@@@[@@гab6<@@h@@@f@@@@@i% @@@3@@m6 @@D@@p$@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ఠ)bind_listG?GH?P@ZwA@@(block_id#intA@@@J@*arg_offset#intA@@@J@@V @@@J@@@@J@@@jO@A@@@J@ @@@J@ŐA@J@ J@ @@J@@@ J@@@J@@@J@@࣠DDAH?R?Z@xA@@L3@[?C@@@@@?Q @JJAN?\?f@yA@@R3@ c@@@@@@?[@@'lambdasA?g?n@zA@@X3@g@@@@@@@@!kA?o?p@{A@@Y3@l@@@@@@@@@ఠ.can_be_delayeds}s@|A@@@ @@@O@@@@O@@@O@3@#/~@&@'@@@@Ġ$Lvaroyo}@ @ o~ o@@ @@@3        @2sy@@@@@@ @@,@Ġ&Lconstoo@v@"o#o@@x@@@@@@ @@=@@#@@>@@@ภ$true/o0o@;@@@@M@@@AB@@A@@@@@G'@@;<@@R-@@@ภ%falseC/@;@@@@B@@A@@@2@@W7@@A%paramJ^f6@@@7@@eO@)>@A@;@@@ఠ(bindings\]@o}A@@K@M@@@@@@@@@O@?@@@MO@+3rqqrrrrr@@@@@@@ఠ$args@~A@@@@@NO@,@@1 @@@1@ @@/@డ$List%split@ @@@@!a@@!b@@@:@@@9@_@@@7@F@@@8@@6@@5@z=*=*{=*=Y@@y@@0+@@@(@s@V@@C@@@B@~}@@@>@ed@@@@@@=@@<3@s@@@@డb$List$mapi@ @@@@@@@;@!a@L!b@J@@:@@9@ @@@8@@@7@@6@@5@CCCu@@X@*%@@@@"@@@f@ M@@@R@c@ՠ@%@@@R@@R@@@R@@@@R@@"R@@@R@a@@e@@d@)@@@b=(@@@`@@_@@^t@@࣠@!iAlm@A@@g@@@|@@@@#lamA}~@@A@@Q3|{{|||||@ {@@@{@@@@@@  @@ఐ.can_be_delayed@@@@ @@@@@@@@3@+r@"@#@@@@ఐ2#lam@ @@@@@@i@@@V@@@ภ$None!%@; [@@W@@@@AA@A@@@@@`@@@-@@ఐ[#lam'*@6@@9@@ +@@@@@@B@@ఠ!vCUCV@AA@@@@@V@3@V@@@డ,create_local%IdentCYC^@ C_Ck@@Ȱ@@@@@@@@@@@@@డ&Printf'sprintf#l$l@ 'l(l@@@&Stdlib&format!a@$unitF@@@&stringQ@@@@@@@@@*printf.mli@@.Stdlib__PrintfC@,'@@@$@@ @@@F"@@@W@W@iW@W@-@@EW@@@W@]1@@@_.@@@`@@@^@@\~@@ภ8CamlinternalFormatBasicsM&FormatOllA;&Format8CamlinternalFormatBasics'format6!a@Ϡ!b@Р!c@Ѡ!d@Ҡ!e@Ӡ!f@@@@@'#fmt$ @@@&stringQ@@@@B@@A@A@@@X@ @ภ^*No_padding`;*No_paddingF!a@@@@!@@@@ABAAee@@@j@@!@VQY@UW@X@@@@X@@ภ6,No_precision5;,No_precisionb!a@@@@/@@@@BAAAlLNlLq@@@;o@@E@r"t@@@X@@ภVT$_argY@Y@@@@(X@+X@*@ภjhϠภrxpw@p@@@@BX@K@ภˠm}l@}@Y@/W@TX@,@@@CX@P@ภޠ\[@@@@@DX@W!@ภ-End_of_format;-End_of_formatv!f@!b@!c@!e@@@@A@@@@AYAA}..~./!@@@y@@@@@@hX@X@X@X@&X@@W@W@W@'W@A  @@@GX@ai@@@ Y@@@@)X@?u@@@'@@@X@%@@@̠&Y@٠1$%&'@@@X@@@@ؠ2Y@;()*+@@@X@@-block%d_arg%d@@@@@X@dX@c@@@@oKQ>@@@gX@@@ఐ(block_idll@@@^@@డ#!+ll@@_@@@~@d@@@}h@@@|@@{@@z'%addintBA @@@@*stdlib.mli0++0+,@@&Stdlibn@@@@{@@@}@@@@|@@@{@@z@@y@@ఐF*arg_offsetll@.@@@@ఐ!ill@}@@@@@@Y@Y@@@ l l@@Y@@@l~l@@W@n@@@@ @A@CQ@@@ภ$Some@;d^@bA@AA@A@@b@ఐB!v./@A@B@C@@3-,,-----@L@@@@ఐà#lam=>@@@@@AB@@R@@@(@@U@@@ภ$LvarPQ@ఐn!vZ[@,@@@@@U@U@2@@ @@5U@5@@hi@@U@:@m,=n@@z@p@@|@rs@@@q@@@v@OJ@@u@@tS@S@@@ @@@U@@@siT@@@r@@q@@ఐؠ'lambdas@@@, @@%@@@=@ @@P@@@OP@Q@/@@@@@M@)@@P@L8@A@ @@@ఠ$body  @BA@@8J@3@Kkd@e@fF?@@@A@@@ఐ!k  @ذ@@V@@ఐY$args  #@@@]@@@@X@A@ @@డS$List*fold_right'-'1@ '2'<@@@@!a@@#acc@@@a@@`@ @@@_@  @@^@@]@@\@  @@ ^@$@@@@@@@@N@@N@@@N@@@@N@@N@@@@@@+@@@@  @@@@@@321122222@x{@|@}@@@@࣠@'bindingAH'BI'I@[CA@@63GFFGGGGG@@@@@@@$bodyAW'JX'N@jDA@@.3VUUVVVVV@%H@@@@@@@@ఐ$'bindingiRbjRi@@@V3gffggggg@B@@@@@Ġ$Noneyo{zo@@@@@f3wvvwwwww@@@@@g@@@ఐ0$bodyoo@@@Z @Ġ$Some@s@ఠ!v@EA@@6@@ఠ#lam@FA@@B@@@@@@@@K@@@'@@L@@L@@@ภ$Llet@ Eภ&Strict@ %@@@ N@@@S@3@e8@2@3-@'@(@@@ภ'Pgenval@@@@8@@@S@@ఐM!v@@@@ఐL#lam@%@@*@ఐ$body@@@5@@G@@7@@@AR\@@@ '= @@@@@@@@O@&O@$@@ఐ(bindings@\@@@@@O@,O@(@@ఐw$body2@@@u@@G@@@V@@ v@@@ @$@@ B@A@J@4@A@@࣠(block_idAGH@ZGA@@#@@@@3JIIJJJJJ@@@ @@@@S @@&constrA]^@pHA@@@@@S3`__`````@&@@@?@!@"@@@@@@$bodyAuv@IA@@@@@@h@@@g@@f3~}}~~~~~@/%@@@R@)@*@@@@@@ఐO)bind_list @G@@LH@@@C?@@@@8@@@@@@@@/ @@@@@@}A@~@@|@@{@@z@@y3@6L@B@@@eA@@@d@@c@K@L@@@vఐ(block_id@h@@@@@O@O@@|@)*@@@@@O@O@/@@ఐ&constr+1@p@@-@@@@C@&before28@@@$@@@@@@O@O@U@@x@@@@ @@@1@@@A@@@b@@࣠@'vbeforeA(@)G@;JA@@J@@@@@@3.--.....@{@@@@  @@@ఠ*arg_offset@KSAK]@SKA@@}@@@O@3DCCDDDDD@*ˠj@@@@@@@(@)@@@డ[Kz\K{@@@@@@@@@@@@@@@@@@"@@డ$List&length{K`|Kd@ KeKk@@ :@@@ :@@@P@@@@ c@@@@@H@@ఐC&constrKlKr@@@@@@@\@&beforeKsKy@)@@ e+@@@Q@Q@k@@: @@ X@@@@Q@s@@AK|K}@@@@@P@P@@@R @@@A@KO @@ఐ )bind_list@@@  @@@  @@@@ |@@@@@@@@ s @@@@@@A@@@@@@@@@3@@@@@@ ఐĠ(block_id  @@@ @@@Q@Q@@ ఐݠ*arg_offset@!@@ @@@Q@Q@+@@ఐ٠&constr34@@@m@@@#@ ?@%after?@@@@ ٠d@@@@@@Q@$Q@!Q@@t@@@@ Ѡ @@@q@@@A@@@^@@࣠@&vafterAhi@{LA@@ @@@:@@@93nmmnnnnn@w@@@@  @@ఐ $body@ǰ@@@ @@@A@@@@@@?3@+ @@@8@@@7@)@*@@@@@@@jQ@h@@@@oQ@m@ @@@tQ@r@.&before@ఐ'vbefore@u@@ܠ@@@S@@@RQ@T@@A%after@ఐt&vafter@O@@@@@`@@@_Q@a[@[@@@Q@}@@ఐ&constr@q@@0@@@~Q@|Q@gt@@@@@@HQ@|@@@@$@@@Q@G@ @@@ 2@@@0@@@/8@@@O@-@@.O@O@@@H"@@@U#@@@$<%@@@ I@@@@@@> @@@M@@@M@M@@@:@@@;<@@ @@@@@@@@@@@@@@@@@ @@@@@@@@@I@I@@ X@б г  @@@@  @б@г  @ @@@  }@б@б@г | {@@@@  x@г  w@@@@  t@@ @@  s@гM  r@Q@@@  o@@ @@  n@@"@@  l@ -@@  k@ A@@  @@@@ @@@@@ @@@ @@@@@ @@@@@@@@@I@ @A@@@@ @A@@@ @  #@ &@ @@3@  @@n@3@@@@!tI;@@#tag@@@@@װO  O  @@NA$flag@@ ,mutable_flag@@@ڰP  P  @@OA%shape@@+block_shape@@@ݰQ  Q  @@PA&before@@b&lambda@@@@@@R  R  @@ QA%after@@t&lambda@@@@@@ S  $ S  7@@RA#loc@@/Scoped_location!t@@@T 8 <T 8 ^@@/SA@@A@@@@@ N  !U _ b@Ӑ The type [Constr.t] represents a reified constructor with a single hole, which can be either directly applied to a [lambda] term, or be used to create a fresh [lambda destination] with a placeholder. .J  /M  @@@@@@@@@AMAA@%apply@{@@@ @H&lambda@@@ M&lambda@@@ @@ @@ @IY  JY  @ X [apply constr e] plugs the expression [e] in the hole of the constructor [const]. WW d fXX  @@@@@@@jTA@0with_placeholder@@@@ @@=$@@@ @@@ |&lambda@@@ @@ &lambda@@@ @@ @@ @}]df~]d@0 s [with_placeholder constr body] binds a placeholder for the constructor [constr] within the scope of [body]. [  \"c@@@@@@@UA@,delay_impure(block_ido@@@ @@@@ @@@@@ &lambda@@@ @@ &lambda@@@ @@ @@ @@ @mm@g  We may want to delay the application of a constructor to a later time. This may move the constructor application below some effectful expressions (for example if we move into a context of the form [foo; bar_with_tmc_inside]), and we want to preserve the evaluation order of the other arguments of the constructor. So we bind them before proceeding, unless they are obviously side-effect free. [delay_impure ~block_id constr body] binds all inpure arguments of the constructor [constr] within the scope of [body], which is passed a pure constructor. [block_id] is a counter that is used as a suffix in the generated variable names, for readability purposes. _lW@@@@@@@VA@@БA+N  N  @@@# O  @ @@Ш@г#intO  O  @@3@$;@@@A@@@@@@@@A@@!@@@@#P  @@@Ш@г(AsttypesP  P  @#P  P  @@@+@@.@@ @(@#$$Q  @@@Ш@г'(Q  Q  @@..@@1@@1@,@#((R  @@@Ш@г+$list R  !R  @г01(R  )R  @@7H@@@<I @@?@@L@5@#11&2S  )@%@@Ш@г4$list;S  2<S  6@г9:CS  +DS  1@@@c@@@Ed @@H@@g@>@#::1MT 8 ?@0@@Ш@г=)DebuginfoZT 8 B[T 8 K@E^T 8 L_T 8 [@@IcT 8 \dT 8 ]@ @@S @@V@@@N@@A@J<HG@GG@@@G@G@@3onnooooo@H@AVU@GG|Y  }Y  @б@гH!tY  Y  @@P3@]@A@@б@гOPY  Y  @@V @@гRSY  Q@@XR@@` S@@gT@@i@VU@PrUT@TT@@@T@T@"bRR]dj]dz@б@гS!t]d}]d~@@[3@5@A@@б@б@гZ+destination]d]d@г_&offset]d]d@@g@@@l @@гde]d]d@@k!@@w" @@гhi]dg@@n)h@@*]dj@@,/k@@@ml@lk@kk@@@k@k@9yiimm@бjгh#intmm@@p3@L@A@@б@гo!tmm@@w @@б@б@гt!tm m@@|@@гyz'm(m@@"@@# @@г}~0m|@@*}@@+3m@@-#@@.6m@@@@ @@@@@@<@3>==>>>>>@=@A3@??@@@@@@@@GI  Hn@@@@B@C@@@QI  @ @@SI  @@#DpsJ_6=`6@@rA@БA+#dpsKpq@А!a@ 3uttuuuuu@P@A@PN@)'@@@@5;@@ @A@A&@@ @@@ @ G@B@@@@@@@XA@@@@H@;*@A@A$tail^@@@ #dstj@@@ @@@ CL@ @@ @@ Y@@@@@$@@@!@@Aбг$bool@@ M@@бг+destination@г &offset@@(a@@@-b @@А!a(fH@@7hJ@@AjL@@N@@NM@3@l@@A+!tL@А!a@ 3@_;@@ @A@A@G@B@@@!$@  We want to optimize nested constructors, for example: {[ (x () :: y () :: tmc call) ]} which would naively generate (in a DPS context parametrized over a location dst.i): {[ let dstx = x () :: Placeholder in dst.i <- dstx; let dsty = y () :: Placeholder in dstx.1 <- dsty; tmc dsty.1 call ]} when we would rather hope for {[ let vx = x () in let dsty = y () :: Placeholder in dst.i <- vx :: dsty; tmc dsty.1 call ]} The idea is that the unoptimized version first creates a destination site [dstx], which is then used by the following code. If we keep track of the current destination: {[ (* Destination is [dst.i] *) let dstx = x () :: Placeholder in dst.i (* Destination *) <- dstx; (* Destination is [dstx.1] *) let dsty = y () :: Placeholder in dstx.1 (* Destination *) <- dsty; (* Destination is [dsty.1] *) tmc dsty.1 call ]} Instead of binding the whole newly-created destination, we can simply let-bind the non-placeholder arguments (in order to preserve execution order), and keep track of a list of blocks to be created along with the current destination. Instead of seeing a DPS fragment as writing to a destination, we see it as a term with shape [dst.i <- C .] where [C .] is a linear context consisting only of constructor applications. {[ (* Destination is [dst.i <- C .] *) let vx = x () in (* Destination is [dst.i <- C (vx :: .)] *) let vy = y () in (* Destination is [dst.i <- C (vx :: vy :: .)] *) (* Making a call: reify the destination *) let dsty = vy :: Placeholder in dst.i <- vx :: dsty; tmc dsty.1 call ]} The [delayed] argument represents the context [C] as a list of reified constructors, to allow both to build the final holey block ([vy :: Placeholder]) at the recursive call site, and the delayed constructor applications ([vx :: dsty]). In practice, it is not desirable to perform this simplification when there are multiple TMC calls (e.g. in different branches of an [if] block), because it would cause duplication of the nested constructor applications. The [delayed_use_count] field keeps track of this information, it counts the number of syntactic use sites of the delayed constructors, if any, in the generated code. %')C)G@@@@@@@@@'YA@@@@@;$@A$code@@'delayed!t@@@ @@@ Ǡ>M@ @@@ @@ ΰ89@@KZA1delayed_use_count@@@@@ ҰDE @@W[A@@A@Y@@@@@DA@@3@#--N@@@Ш@б0г.$listYZ@г3&Constrde@:hi@@@Bp@@@Gq @@г=#dpsst@А!aE~z{@@@L @@\~ @@`@@ @J@#FFA@@@@Ш@гI#int@@Q@@T@@ @P@@A@Df@@@@@@@@3@@@@ఠ,write_to_dstѠ)I)O)I)[@\A@@@@@@!-@@@!,M@ @, @@@!hQ@!=@@@!LM@!@@@@!6M@!@@@!5M@! @@! M@!@@!M@ @@!M@ 3@@@@࣠@#dstA)I)\)I)_@]A@@:3@G)I)K))@@@@@  @@'delayedA)I)`)I)g@ ^A@@A3@!Q@@@@@@@@!tA )I)h )I)i@ !_A@@@3        @U@@@@@@@@ఐ0-assign_to_dst ")l)p #)l)}@@@@Y@@@!@@@!@K@@@!N@@@!@@!@@!3 1 0 0 1 1 1 1 1@%1g@(@)@@@@ఐ]#dst C)l)~ D)l)@B@@@@%@@@d@@@!+g@@@!*@@!)@@డ$List)fold_left _)) `))@  c)) d))@@@@#acc@@!a@! @@[@@Z@ @ @@@Y@@X@@W@@V@,33-3r@@+]@#@@@@M@!tQ@!;@@@!?@@!>@@͠@@@!< @@!:@@!9@@!8]@@࣠@!tA )) ))@ `A@@3        @o@@@@@@&constrA )) ))@ aA@@3        @1@@@@@@@@డ%apply&Constr )) ))@  )) ))@@@@@@ @ @@@  @@@ @@ @@ @@@@@@@!\@@@@![@@@!Z@@!Y@@!X3        @8D(@;@<@@@@ఐK&constr )) ))@ @@5@@ఐg!t!))!))@Q@@@@C@@M@!gU@!f!@! ))!))@@@@Q@@!N@@!MR@!qR@!or@@ఐ!t!!))!"))@@@R@@ఐ4'delayed!.))=@>@@p@@?@@@@@@@Y@JAA@M@!zH@A@E@ED@Z@ఠ&lambdaؠ!A))!B))@!TbA@@@!U&lambda@@@!M@!|h!`&lambda@@@!@@@!M@!}@@!~M@!{3!W!V!V!W!W!W!W!W@@@@@@࣠@!vA@!j))!k))@@!@@@!3!j!i!i!j!j!j!j!j@3!s))!t *`*c@@@@  @!cA-г01!))!))@@7@@@!@@!))!))@@@>@@@@ຠ3px@@ s@@@3XW@@A@AS@P@A_@\$code!))!))@࣠'delayedA!)*!)* @!dA@@@@@!@@@!3!!!!!!!!@FSK@N@@@@@@!)*@$tailA@!)*!)*@@@@@!3!!!!!!!!@%@@@!@@@!@$@%@@@@!)* @#dstA!)*!)*@!eA@@10@@@!@@@!!@@!)* @@ఐH,write_to_dst!**#!**/@@@@*@@@!@@@!@?<@@@!@@@!@%@@@!(@@@!@@!@@!@@!3" " " " " " " " @K<dc@@@!@@@!@;@<@@@@ఐJ#dst"$**0"%**3@@@]@@@!@@@!R@!R@!"@@ఐ'delayed"<**4"=**;@v@@~@@@!@@@!R@!R@!:@@ఐ!v"T**<"U**=@@@v@@@!R@!R@!N@@l @@ @@@!R@!T@"e))"f*>*C@@HFE@@@!@@@!B@@@!@@@!@@!N@" @塠1delayed_use_count"*E*I"*E*Z@A"*E*]"*E*^@@J@@@"3N@"43""""""""@@@@@@"))@г@!t"))"))@гEF"))"))@@L@@@Q @@@@R@1A@`M@"=8@A X"z Create a new destination-passing-style term which is simply setting the destination with the given [v], hence "returning" it. "!*d*f"$**@@@@@@@D@DC@[@@"&*+"&*+@@ؠ"l@@@"G@@@"F3""""""""@p@@@@@$unitޠ@"fA@@@"E@@@"Dг!t"&*+ "&*+@г $unit"&*+"&*+ @@(@@@"?&@@@0@@@"A+ @@87A@@65@@@"I@@@"H4@ຠt$code#'++# '++@࣠'delayedA@#'++,#'++-@@@@@"k@@@"jR@@#'++# @$tailA@#''++4#('++5@@@@@"za@@#-'++.@#dstA@#6'++;#7'++<@@@@@"@@@"t@@#@'++6 @@ภ"()#H(+@+F#I(+@+H@;""@@@N@@@@A@@A# @@"@ @@@@@"@#U'++#V)+I+N@@865@@@"`@@@"_2# @@@"^@@@"]@@"\M@"@֡1delayed_use_count#p*+P+T#q*+P+e@@#v*+P+h#w*+P+i@@;@@@"M@"@@@#~&*+#++k+n@гг$@(@@@"J@@ @@@"L@A@@ՠ@@@"@@@"M@"@A@#&**!@@"@֠@ఠ#map#-+p+v#-+p+y@#gA@@@@!a@#M@"!b@"M@"@@"M@"@M@"@@@"M@"M@"@@@"M@"@@"M@"@@"M@"3########@ @@ @@@࣠@!fA@#-+p+{#-+p+|@@@3-@@"@  @#hA8б@А8=#-+p+#-+p+@@А7<!#-+p+#-+p+@@@GA@@"& @@$-+p+z$-+p+@@@M*@@@@!dA@$ -+p+$-+p+@@ED@@@"3$$ $ $$$$$@;5-@0@)@@@  @$)iAO гR!t$"-+p+$#-+p+@А!aZ$)-+p+$*-+p+@@@a`@@@" @@$1-+p+$2-+p+@@@i @@@@ຠ$code$>.++$?.++@࣠'delayedA$L.++$M.++@$_jA@@+*@@@#@@@#3$R$Q$Q$R$R$R$R$R@ESK@N@B@@@@$[.++@$tailA$f.++$g.++@$ykA@@@@@#%3$h$g$g$h$h$h$h$h@)KJ@@@#@@@#@(@)@@@@$x.++@#dstA$.++$.++@$lA@@ؠ@@@#3@@@#23$$$$$$$$@"0@@@#$@+@,@@@@$.++@@ఐ!f$/++$/++@@@@@@#B3$$$$$$$$@*@@@#1@@@#0@)@*@@@@ఐ!d$/++$/++@f@@2 M@#K@@@#NU@#H"@$code$/++$/++@>@@@@@#M@@@#L@@@#J@@#I6@ఐ'delayed$/++$/++@x@@Ǡ@@@#g@@@#fT@#qT@#oN@Pఐ$tail$/++$/++@o@@]@@@#nT@#tT@#sd@^ఐ#dst%/++%/++@n@@kj@@#m@@#lT@#wT@#u~@@g@@aT@#i@@@@i@%(.++%)/++@@  @@@# @@@# zP@#@@@# @@# O@#@1delayed_use_count%A0++%B0+,@ఐB!d%L0+,%M0+,@@@@@@#O@#3%P%O%O%P%P%P%P%P@@@@1delayed_use_count%Z0+, %[0+,@ǰ@@ @@@#O@# @@@%c-+p+%d1,,@г!t%n-+p+%o-+p+@А!b%u-+p+%v-+p+@@@  @@@@!@xA@M@#@A@%|-+p+r@@@@ఠ$pair%3,!,'%3,!,+@%mA@@@!a@$M@#@@@#M@#@!b@$M@#@@@#M@#Ǡ@"M@#۠@M@#@@#@@@#M@#@@#M@#@@#M@#3%%%%%%%%@@@@@@࣠@"daA@%3,!,-%3,!,/@@;:@@@#3%%%%%%%%@N%3,!,#%8- -@@@@ @%nAHгK!t%3,!,5%3,!,6@АMR%3,!,2%3,!,4@@@YX@@@# @@%3,!,,%3,!,7@@@a"@@@@"dbA@%3,!,9%3,!,;@@\[@@@#3%%%%%%%%@3A9@<@-@@@  @&oAf гi!t&3,!,A&3,!,B@Аkp&3,!,>&3,!,@@@@wv@@@# @@&!3,!,8&"3,!,C@@@@@@@ຠ$code&.4,V,Z&/4,V,^@࣠'delayedA&<4,V,g&=4,V,n@&OpA@@@@@$@@@#3&B&A&A&B&B&B&B&B@DRJ@M@A@@@@&K4,V,f@$tailA&V4,V,p&W4,V,t@&iqA@@@@@$3&X&W&W&X&X&X&X&X@);:@@@#@@@#@(@)@@@@&h4,V,o@#dstA&s4,V,v&t4,V,y@&rA@@Ƞ@@@$ @@@$3&y&x&x&y&y&y&y&y@"0@@@$@+@,@@@@&4,V,u@@@ఐ͠"da&5,},&5,},@@@ M@$-@@@$0T@$*3&&&&&&&&@#5@@@$@@@$@4@5@@@$code&5,},&5,},@!@@@@@$/@@@$.@@@$,@@$+@ఐ'delayed&5,},&5,},@k@@@@@$I@@@$HS@$SS@$Q6@3ఐ$tail&5,},&5,},@b@@@@@@$PS@$VS@$UL@Aఐ#dst&5,},&5,},@V@@NM@@$O@@$NS@$YS@$Wf@@q@@kS@$Ki@@ఐ"db'5,},'5,},@ϰ@@vM@$`@@@$cT@$]@$code'$5,},'%5,},@@@@@@$b@@@$a@@@$_@@$^@ఐ'delayed'>5,},'?5,},@@@ @@@$|@@@${S@$S@$@ఐ$tail'V5,},'W5,},@ذ@@@@@$S@$S@$@ఐ#dst'l5,},'m5,},@̰@@Ġ@@$@@$S@$S@$@@g@@aS@$~@@'5,},'5,},@@@@ @@$@'4,V,a'5,},@@lji@@@#@@@#f@䠠@@@#@@@#@@#O@$Y@ 1delayed_use_count'6,,'6,,@డ&'7,,'7,,@@@@T@@@$@@@@$@@@$@@$@@$3''''''''@y@@@@ఐ"da'7,,'7,,@ɰ@@B<@@@$P@$@1delayed_use_count'7,,'7,,@G@@@@@$P@$P@$$@@ఐ"db'7,,'7,,@@@eN@@@$P@$9@1delayed_use_count'7,,'7,- @j@@?@@@$P@$P@$G@@; @@@@@$P@$M@@@(3,!,T8@гa!t(3,!,P(3,!,Q@В@А!ai۰(#3,!,G($3,!,I@@@А!bn(+3,!,L(,3,!,N@@@x @@@}(/3,!,F@@#@@@?ZA@M@$a@A@^@^]@v@ఠ#run(?:--(@:--@(RsA@@@ _!a@%,M@$@@@%M@$  M@%@@@% M@$@@$M@$3(W(V(V(W(W(W(W(W@@@@@@࣠@!dA@(j:--(k:--@@#"@@@%3(k(j(j(k(k(k(k(k@6(t:--(u<-F-g@@@@ @(tA0г3!t(:--"(:--#@А5:(:--(:--!@@@A@@@@$ @@(:--(:--$@@@I"@@@@࣠$tailA(;-0-9(;-0-=@(uA@@ @@@%3((((((((@8F>@A@2@@@@(;-0-8 @#dstA(;-0-?(;-0-B@(vA@@  @@@%$@@@%#3((((((((@) @@@%@$@%@@@@(;-0->@@ఐn!d(<-F-J(<-F-K@.@@J@@@%/R@%)3((((((((@0 2 1@@@%"@@@%!@/@0@@@$code(<-F-L(<-F-P@_@@  ̠ @@@%.@@@%- Ƞ@@@%+@@%*@ ېภ"[])<-F-e@ @@@  @@@%H@@@%GQ@%U2@ mఐ|$tail)<-F-R)<-F-V@Y@@ z@@@%OQ@%XQ@%WH@ {ఐ|#dst)0<-F-X)1<-F-[@R@@  @@%N@@%MQ@%[Q@%Yb@@l@@Q@%Je@)D;-0-4@г#dps)N:--*)O:---@А!a)U:--')V:--)@@@ @@@@@A@M@%z@A@@@@ఠ+reify_delay)g>-i-o)h>-i-z@)zwA@@@ )&lambda@@@%@@@%M@%| )&lambda@@@%@@@%M@%}@@%~M@%{3))))))))@,NG@H@I@@@࣠@#dpsA@)>-i-|)>-i-@@&%@@@%@@@%3))))))))@<)>-i-k)I..@@@@@)xA6г9#dps)>-i-)>-i-@г>?)>-i-)>-i-@@E@@@%@@@M@@@%$ @@)>-i-{)>-i-@@@U(@@@@ຠ=$code)?--)?--@࣠'delayedA)?--)?--@)yA@@  @@@%@@@%3))))))))@M^V@Y@G@@@@)?--@$tailA)?--)?--@* zA@@ V@@@%3))))))))@) ޠ @@@%@@@%@(@)@@@@* ?--@#dstA*?--*?--@*){A@@ k j@@@%@@@%3********@"0 }@@@%@+@,@@@@*(?--@@ఐV'delayed*3@--*4@--@3@@  @@@%@@@%3*8*7*7*8*8*8*8*8@/  @@@%@@@%@.@/@@@ĠL*PA--*QA--@!@@@@ . -@@@%@@@%3*U*T*T*U*U*U*U*U@@@@ @ 6 5@@@%@@@%@@@ఐ٠#dps*kA--*lA--@@@@@@%@@@%@ Ґఐ$tail*A--*A--@^@@ @@@& T@& T@& 1@ ఐ#dst*A--*A--@X@@  @@& @@& T@&T@&K@@;@@%@@@%O@Ġ"::*B-.*B-.@%yఠ!x*B-.*B-.@*|A@@ @@@%@ఠ"xs*B-.*B-. @*}A@@** @@@%@@@%@@@ @@  @@@%@@@%@@  @@@%@@@%@@@డ"L0with_placeholder&Constr*C. .*C. .@ *C. .*C. ..@@@ 5@@@ @@@@@ @@@ +@@@ @@ +@@@ @@ @@ @!@@@ N@@@&'@@@@@&&@@@&%@@@&$@@&#@@@&"@@&!@@& 3+%+$+$+%+%+%+%+%@un@o@pha@b@c@@@@ఐ}!x+9C. ./+:C. .0@@@ x@@@&9V@&;V@&:@@Q @@@@ߠ@@@&8@@@&7D@@@&6@@&5C@@@&4@@&3+@@࣠@'new_dstA+cC. .8+dC. .?@+v~A@@@@@&R@@@&Q3+i+h+h+i+i+i+i+i@D@@@@  @@ภ)Lsequence+wD.C.M+xD.C.V@;)Lsequence% @%@@@k%@@@l@BO@V@A&!9))&"9))@@@&@ఐ 砐,write_to_dst+E.Y.e+E.Y.q@ 6@@@&ɠ's@@@&g@@@&f@ ޠ @@@&e@@@&d@%@@@&c%@@@&b@@&a@@&`@@&_3++++++++@UIH@@@&P@@@&O@S@T@@@@ఐ#dst+E.Y.r+E.Y.u@@@&'@@@&|@@@&{V@&V@&}"@@ఐ"xs+E.Y.v+E.Y.x@@@  @@@&z@@@&yV@&V@&:@@ภ$Lvar+E.Y.z+E.Y.~@%ఐ'new_dst+E.Y.+E.Y.@O@@'5@@@&V@&@@@&V@&]@#var,E.Y.,E.Y.@'E@@%@@@&V@&V@&k@@,E.Y.y,E.Y.@@&:@@@&xV@&s@@@@&B@@@&\@&V@&w{@ఐ#dps,4F..,5F..@J@@Ơ@@@&@@@&@ ఐQ$tail,HF..,IF..@'@@ @@@&V@&V@&@ ఐ'new_dst,^F..,_F..@@@  @@&@@&V@&V@&@@;@@&@@@&]@&V@&@@,wF..@@&@@@&[@,|C. .4@@@@@@&H@@@&G@@@&F@@&ET@&T@&@@@@ @@@A,@--@@@@@&9@,?--,G..@@ w u t@@@%@@@% q#@@@%@@@%@@%N@' @ 1delayed_use_count,H..,H..@A,H..,H..@@ y@@@'/N@'03,,,,,,,,@@@@@@,>-i-@гD!t,>-i-,>-i-@гIJ,>-i-,>-i-@@P@@@U @@@@V@1A@iM@'98@A@5@54@P@ఠ.ensures_affine,K..,K..@,A@@@,&lambda@@@'D@@@'CM@';-&lambda@@@'I@@@'KM@'<@@'=M@':3,,,,,,,,@|@@@@@࣠@!dA@-K..-K..@@&%@@@'F@@@'E3--------@<-K..-O/?/X@@@@@-2A6г9!t-+K..-,K..@г>?-3K..-4K..@@E@@@'>@@@M@@@'@$ @@-?K..-@K..@@@U(@@@@డ+"<=-NL/ /$-OL/ /&@@!a@@$boolE@@@3@@2@@1*%lessequalBA@@@@)))Z@@U@@@@.@@@'^N@'R@@@@'Q@@'P@@'O3-p-o-o-p-p-p-p-p@]nf@i@W@@@@ఐw!d-L/ /-L/ /@@@ @@@']O@'`@@@'_O@'\@1delayed_use_count-L/ /-L/ /#@ @@,$@@A-L/ /'-L/ /(@@7O@'a/@@!@@@@@'bO@'Z5@ఐ!d-M/./4-M/./5@<@@@@@'M@@@'LN@'eN@'cJ@ఐb+reify_delay-O/?/E-O/?/P@ǰ@@@]\@@@'l@@@'kXW@@@'j@@@'i@@'hg@@ఐ#run-O/?/R-O/?/U@a@@@@@@'wO@'O@'@@@' @@@'@@'@@ఐ!d.O/?/V.O/?/W@@@Ġ @@@'P@'P@'@@.O/?/Q@@&@@@'@@O@@fN@'O@'t@.L/ / @г)!t.'K./.(K./@г././K...0K./@@5@@@: @@@@;@A@NM@'@A+. r Ensures that the resulting term does not duplicate delayed constructors by reifying them now if needed. .CP/Y/[.DR//@@@@@@@)@)(@D@ఠ$make.QT//.RT//@.dA@@@@@@'M@'@@@'M@'} M@'@@@'M@'@@'M@'3.h.g.g.h.h.h.h.h@l@@@@@࣠@#dpsA@.{T//.|T//@@"!@@@'3.|.{.{.|.|.|.|.|@5.T//.U/0 @@@@ @.A/г2#dps.T//.T//@А!a:.T//.T//@@@A@@@@' @@.T//.T//@@@I#@@@@ఐH+reify_delay.U//.U/0@@@@CB@@@'@@@'>=@@@'@@@'@@'3........@BPH@K@<@@@@ఐW#dps.U/0J@ K@@vu@@@'@@'P@гr!t.T//.T//@А!az#.T//.T//@@@& @@@@'@HdA@M@'k@A@h@hg@@ఠ1delay_constructor.W0 0.W0 0#@/ A@@@:@@@(M@(@@@@(@@@(M@( /#k@@@(O@(!@@@(%M@(@@(M@(@@(M@'3////////@@@@@@࣠@&constrA/,W0 0$/-W0 0*@/?A@@03/+/*/*/+/+/+/+/+@=/4W0 0/5^1N1S@@@@@  @@!dA/@W0 0+/AW0 0,@/SA@@;3/?/>/>/?/?/?/?/?@!G@@@@@@@@@ఠ!d/SX0/07/TX0/08@/fA@@a`@@@(@@@(P@( 3/[/Z/Z/[/[/[/[/[@)Z@ @!@@@ఐ.ensures_affine/lX0/0;/mX0/0I@@@@@@@(@@@(@@@(@@@( @@( @@ఐL!d/X0/0J/X0/0K@)@@,@@!@@4-@A@/X0/03@@ຠ$code/Y0Q0W/Y0Q0[@࣠'delayedA/Y0Q0d/Y0Q0k@/A@@@@@(7@@@(63////////@Rd]@^@_@@@@/Y0Q0c@$tail A/Y0Q0m/Y0Q0q@/A@@@@@(E3////////@)@@@(5@@@(4@(@)@@@@/Y0Q0l@#dst A/Y0Q0s/Y0Q0v@/A@@21@@@(S@@@(R3////////@"0D@@@(D@+@,@@@@/Y0Q0r@@@ఠ(block_id /Z0z0/Z0z0@0A@@"@@@(aS@(V3////////@/XW@@@(Q@@@(P@.@/@@@డ.$List&length0Z0z00Z0z0@ 0Z0z00 Z0z0@@"ڰ@@@"ڠ@@@(dS@([@@@(Z#@@@(Y@@(X-@@ఐ'delayed0;Z0z00<Z0z0@t@@"@@@(bT@(eT@(cB@@, @@FC@A@0HZ0z0 @@డ',delay_impure&Constr0X[000Y[00@ 0\[000][00@@@@@ @@@@ @@@@@ 0{@@@ @@ \@@@ @@ @@ @@ @!@@@@@({@@@@(z@@@@@(y@@@(x@@(wt@@@(v@@(u@@(t@@(s300000000@@@@@@ఐ(block_id0[000[00@ @@ @@@(U@(U@(@@ఐ&constr0[000[00@m@@$@@]@@@@@@@(K@@@(@@(@@@(@@(2@@࣠@&constr A0[000[00@0A@@ @@@(300000000@G@@@@ @@ఐ!d0\000\00@4@@Z@@@(V@(@@@(V@(300000000@d,.@@@(@&@'@@@$code0\000\00@p@@ݠ@@@(@@@(٠@@@(@@(@ภ+ܰ1\011\01@+۠ఐR&constr1\01 1 \01@,@@@@@(U@(U@(U@(8@ఐ'delayed13\0114\01@l@@0@@@(U@(U@(K@@1?\01 1@\01@@@@@(U@(T@ఐ$tail1Q\001R\00@i@@@@@(U@(U@(j@ఐ#dst1g\001h\00@c@@@@(@@(U@(U@(@@8@@ @@@(U@(U@(@1[00A@@@@@@(@@@(@@(S@(S@(@@6N@@u@GO@@v@1Y0Q0^1\01@@sqp@@@(-@@@(,m@@@(+@@(*O@)@ 1delayed_use_count1]11%1]116@ఐ_!d1]1191]11:@@@'@@@),O@)/@@@).O@)+311111111@@@@1delayed_use_count1]11;1]11L@2@@@@@))O@)- @@@1X0/0O@@@B@@p@A@M@)4@A@@@@j7A@A@3|@@@8 @ ] @ [@@ y@@@@@@311111111@@@11_1T1W@311111111@x@@@#dps M;!a@)7@A^A$tail1@@@)8#dst..@@@)9@@@);N@)<@@)=@@)>Y@@@@@2GI2G@/͐ A term parameterized over a destination. The [tail] argument is passed by the caller to indicate whether the term will be placed in tail-position -- this allows to generate correct @tailcall annotations. 2(2)Sh@@@@@@@@@2;AA@!tN;!a@)]@AA@G@B@@@28jl29ju@@@@2KAA@$make@N2P&lambda@@@)`@@@)b"2Z&lambda@@@)c@@@)e@@)f@2Wwy2Xw@@2jA@#run@72o&lambda@@@)g@@@)iw2y&lambda@@@)j@@@)l@@)m@2v2w@@2A@1delay_constructor@)!t@@@)n@^2&lambda@@@)o@@@)qh2&lambda@@@)r@@@)t@@)u@@)v@22@@2A@&lambda@2&lambda@@@)w2&lambda@@@)x@@@)z@@){@22@@2A@#map@@!a@)O@)|!b@)O@)}@@)~@@@@)@@@)@@)@@)@22B@@2A@$pair@!a@)O@)@@@)@ɠ!b@)O@)@@@)Ԡ@@@@)@@@)@@)@@)@3 CE3 Ck@@3A@$unit2@@@)@@@)@3ln3l@@3/A@@БA+113*GQ3+GT@А2533+3*3*3+3+3+3+3+@;;@@)6@A@AF@@)V@@@)W@)5G@B@@@*'@@@A3DGN3EGP@@/@M@@AбGгE$bool3OG\3PG`@@M!@@бJгH+destination3ZGo3[Gz@гM&offset3cGh3dGn@@U5@@@Z6 @@А!aU:3kG~Q@@d<3mGdS@@n>3oGWU@@W1!3CUT@TT@@@T@T@@33v3u3u3v3v3v3v3v@@Acb@A+UU3jtL@АUX333333333@_;@@)\@A@A@G@B@@@\@@@Y@A3jq3js@@0?@g@@A@_@@333333333@ @A`_@__3w}3w@б@г`#dps3w3w@гef3w3w@@l333333333@)@A@@@s @@гj!t3we@гno3w3w@@u@@@zo@@p@@@rq@@sqq33@б@гr!t33@гwx33@@~333333333@2@A@@@ @@г|#dps3w@г33@@@@@@@@@@@@44@б@г&Constr4 4 @44@@@344 4 44444@1@A @@б@г!t44@г4&4'@@@@@ @@г!t40@г4748@@&@@@'@@(@@)1@@@@@+4D4E@б@г4M 4N@@34J4I4I4J4J4J4J4J@=@A@@г!t4X@г4_4`@@@@@@@@@@@@4k"4l%@б@б@А34n4m4m4n4n4n4n4n@%@A4v)4w+@@А4{/4|1@@ @@б@г!t494:@А!a4648@@@ @@г!t4A@А!b(4>4@@@@+@@,@@-4(@@@@@0ȠƠư4CI4CM@б@гǠ!t4CS4CT@А344444444@F@A4CP4CR@@@ @@б@г͠!t4C[4C\@А4CX4CZ@@@@@гѠ!t4Cj@В@А!a&4Ca4Cc@@@А!b.4Cf4Ch@@@1 @@@24C`@@4!@@ 53@@ @@@7栰4lr4lv@г堐!t4l~@г預$unit5ly5l}@@355555555@P(&@A@@@@@@@@@355555555@@A35 555 5 5 5 5 @@@56C5@@H@E@I@A@C@D@B@@@5"6A2@/@24 . The type ['a Dps.t] (destination-passing-style) represents a version of ['a] that is parametrized over a [lambda destination]. A [lambda Dps.t] is a code fragment in destination-passing-style, a [(lambda * lambda) Dps.t] represents two subterms parametrized over the same destination. 50515@@@@@@@5366C@D@'&ChoiceoO5?~70775@~707=@5RA@БA+!tP5N7G7Q5O7G7R@А!a@*L35S5R5R5S5S5S5S5S@@hfA@42A@&$@ @@@@@`^@@3 KJ@JJ@@@J@J@G/;@@*K@A@A@G@B@@@57G7I577@34 ? An ['a Choice.t] represents code that may be written in destination-passing style if its usage context allows it. More precisely: - If the surrounding context is already in destination-passing style, it has a destination available, we should produce the code in [dps] -- a function parametrized over the destination. - If the surrounding context is in direct style (no destination is available), we should produce the fallback code from [direct]. (Note: [direct] is also a function (on [unit]) to ensure that any effects performed during code production will only happen once we do know that we want to produce the direct-style code.) - [tmc_calls] tracks the function calls in the subterms that are in tail-modulo-cons position and get rewritten into tailcalls in the [dps] version. - [benefits_from_dps] is true when the [dps] calls strictly more TMC functions than the [direct] version. See the {!choice_makeblock} case. - [explicit_tailcall_request] is true when the user used a [@tailcall] annotation on the optimizable callsite. When one of several calls could be optimized, we expect that exactly one of them will be annotated by the user, or fail because the situation is ambiguous. 5775=6=;@@@@@@@@@5A@@57G7N57G7P@@2>@;B@A#dps@@F!tOQ@*t@@@*v57W7[57W7j@@5A&direct@@@5U@@@*z`Q@*{@@*|57k7o57k7@@5A)tmc_calls@@504"@@@*@@@*577577@@5A1benefits_from_dps@@5@@@*577577@@5A9explicit_tailcall_request@@5@@@*577577@@5A@@A@_@@@@@da@@S@#MMC57W7^@B@@Ш@гP#Dps57W7d57W7g@W57W7h57W7i@@А!a]67W7a67W7c@@@f @@i@@*w@`@#\\S6 7k7u@R@@Ш@б@г_$unit67k7x67k7|@@g@@А!ag°67k767k7@@pŰ @@s@@*}@k@#gg]6$77@\@@Ш@гj$list6-776.77@гo4tmc_call_information66776777@@w@@@| @@@@*@v@#rrm6@77@l@@Ш@гu$bool6I776J77@@}@@@@*@|@#xxs6R77@r@@Ш@г{$bool6[776\77@@@@@@*@@@A@࠰463@@@@@@@@36g6f6f6g6g6g6g6g@@@@ఠ&lambda6x===C6y===I@6A@@@6&lambda@@@*Q@*B6&lambda@@@*@@@*Q@*@@*Q@*366666666@;K@@@࣠@!vA@6===K6===L@@ @@@*366666666@26===?6==@@@@  @6A,г/06===O6===U@@6@@@*@@6===J6===V@@@=@@@@Р3+3@@*.@@@3 @@A@A@3@@B@A@3@@C@A@3 @@D@A@@A*@'#dps6=f=j6=f=m@డ&lambda#Dps6=f=p6=f=s@ 6=f=t6=f=z@@@6F@@@*fǠ7F@@@*e@@@*d@@*c@E@B@@@@@@*@@@*@@@*@@*377777777@dqi@l@^@@@@ఐx!v7=f={7=f=|@ @@/@@@*S@*S@*@@= @@@@@*@@@*S@*!@_&direct7/=~=70=~=@࣠@2 AĠ7<=~=7==~=@@@@@@@@*:@@@@ఐ!v7K=~=7L=~=@C@@@@@*T@*K@7T=~=7U=~=@@@@@@*@@@*@@*R@*X@)tmc_calls7f==7g==@ภi7m==7n==@/ @@@@@@*@@@*R@*q@1benefits_from_dps7==7==@ภ&D7==7==@&D@@@@@@+R@+ @9explicit_tailcall_request7==7==@ภ&Y7==7==@&Y@@@@@@+R@+@@@7===d@г!t7===`7===a@г$%7===Y7===_@@+@@@0 @@@@1@A@?Q@+@A@@@+@ఠ#map!7==7=>@7A@@@@@@+Q@+6@@+mQ@+4@@+CQ@+@@@@+Q@+$#Q@++@@@+-Q@+%@@+&Q@+ @@+!Q@+377777777@\|u@v@w@@@࣠@!f"A7=>7=>@8A@@/@@@@!s#A8 =>8 =>@8A@@-38 888 8 8 8 8 @!@@@@@@@@@РR#dps8> >8> >@డ#map#Dps8+> >8,> >@ 8/> >80> >@@@@tn@@*k@Hy@@@*jLw@@@*i@@*h@@*g@f@c@@@@qm@@+7@Wv@@@+5[v@@@+3@@+2@@+138K8J8J8K8K8K8K8K@COr@F@G@@@@ఐd!f8]> >8^> >@O@@@@ఐe!s8l> >8m> > @@@@#dps8s> >!8t> >$@ @@@@@+BT@+IT@+F.@@T @@@@@+/T@+A5@&direct8>&>*8>&>0@࣠@4Z$AĠQ8>&>88>&>:@P@@@@@@@+ZN@@@@ఐ!f8>&>>8>&>?@@@\@@ఐ!s8>&>A8>&>B@j@@m@&direct8>&>C8>&>I@ @@@@@@+bQ@+Q@+Q@+a@@+`~@@ภ8>&>J8>&>L@@@@,@@@+hW@+l@@8>&>@8>&>M@@@@9@@ @8>&>38>&>N@@@:@@@+SS@+L@@+RS@+o@")tmc_calls8>P>T8>P>]@ఐ!s8>P>`8>P>a@@@ @)tmc_calls9>P>b9>P>k@; @@ML@@@+{@@@+zS@+}@E1benefits_from_dps9>m>q9>m>@ఐ!s9">m>9#>m>@Ұ@@D@1benefits_from_dps9)>m>9*>m>@^ @@`@@@+S@+@d9explicit_tailcall_request97>>98>>@ఐ;!s9B>>9C>>@@@d@9explicit_tailcall_request9I>>9J>>@} @@t@@@+S@+@@@9R=> 9S>>@@m@YA@Q@+i@A79* - Apply function [f] to the transformed term. 9d>>9e>?@@@@@@@9g==@@@{@ఠ&direct%9t??9u??@9A@@@7!a@+Q@+@@@+Q@+@@+Q@+399999999@@@@@@࣠@!c'A@9??9?? @@@@@+399999999@.9??9?0??@@@@ @9A(г+!t9??&9??'@А-29??#9??%@@@98@@@+ @@9??9??(@@@A"@@@@ఐ8!c9?0?49?0?5@6@9@*@@ SQ@+@@@+T@+399999999@;I @@@&direct9?0?69?0?<@@@@3@@@+@@+@@ภ9?0?=L@@M@@B@@@+S@+@@)S@А!a(Q@+&9??+9??-@@ @@)@D_A@Q@+f@A@c@cb@{@ఠ#dps(:?A?G:?A?J@:"A@@@Ҡ:'&lambda@@@+@@@+Q@+$tail'@@@+Q@+#dst,+@@+@@+Q@+:M@@@+Q@+@@+Q@+@@+Q@+@@+Q@+3:B:A:A:B:B:B:B:B@@@@@@࣠@!c*A@:U?A?L:V?A?M@@>=@@@+@@@+3:Y:X:X:Y:Y:Y:Y:Y@T:b?A?C:c?g?@@@@@:wANгQ!t:p?A?W:q?A?X@гVW:x?A?P:y?A?V@@]@@@+@@@e@@@+$ @@:?A?K:?A?Y@@@m(@@@bb+Af:?A?[:?A?_@:A@@j3::::::::@6G?@B@0@@@@:?A?Z@ff,Aj:?A?a:?A?d@:A@@n3::::::::@~@@@@@@:?A?`@@డV#run#Dps:?g?k:?g?n@ :?g?o:?g?r@@@Р:_@@@*[@@@*ZԠ@@@*Y@@@*X@@*W@\@Y@@@@@@+@@@+@@@+@@@+@@+3::::::::@?J@B@C@@@@ఐ!c:?g?s:?g?t@^@@0;@@@+U@,U@,U@,@@@,U@,!@#dps;?g?u;?g?x@D@@@@@+U@,U@,0@ ఐ$tail;?g?z;?g?~@x@@=@ ఐ#dst;)?g?@F@@I@@u@@U@+L@A@Q@,@A@@@렰@ఠ$pair-;=??;>??@;PA@@@@!a@-Q@,@@@,$@!b@-%Q@,@@@,%@@,#Q@,@Q@,2@Q@,3@@,4@@@,6Q@,@@,Q@,3;m;l;l;m;m;m;m;m@,ib@c@d@@@࣠@7B2A@ఠ"c1/;??;??@;A@@>=@@@,,3;;;;;;;;@U;??;@@@@@@@ఠ"c20;??;??@;A@@GF@@@,-@@;??;??@В@гb!t;??;??@Аdi+;??;??@@@po@@@,2 @@@гj!t;??;??@Аlq@;??;??@@@xw@@@,G @@@@@ @@,N#@@;??;??@@@R@@@@Р #dps;??;??@డ$pair#Dps;??;??@ ;??;??@@@ @@@*q@ @@@*p@ *@ @@*o@@@*n@@*m@@*l@ @ @@@)Q@,Q@,Q@,Q@,I@@@,L@6Q@,Q@,Q@,Q@,J@@@,KA@@@@,H@@@,G@@,F@@,E3<7<6<6<7<7<7<7<7@@@@@@@@@ఐȠ"c1@_@e>@_@g@ڰ@@V@@@,S@,@1benefits_from_dps>$@_@h>%@_@y@Y@@E@@@,S@,S@,@@ఐ"c2>:@_@}>;@_@@@@y@@@,S@,@1benefits_from_dps>G@_@>H@_@@|@@b@@@,S@,S@,@@; @@@@@,S@,@9explicit_tailcall_request>]@@>^@@@డ<>g@@>h@@@@@@@@@-@@@@- @@@- @@- @@- ;@@ఐ"c1>@@>@@@F@@ :@@@-S@-P@9explicit_tailcall_request>@@>@@@İ@@@@@-S@- S@-^@@ఐ "c2>@@>@@@h@@P@@@-$S@-"s@9explicit_tailcall_request>@@>@@@@@@@@-S@-&S@-#@@; @@@@@-S@-@@@>??3@гc!t>??>??@В@А!ak>??>??@@@А!bp>??>??@@@z @@@>??@@#@@@ UA@Q@-/\@A@Y@YX@x@ఠ$unit3>@A>@A@?A@@5 @@@-9Q@-3@@@-5Q@-03>>>>>>>>@@@@@@РF#dps?A A?A A@డ $unit#Dps?A A?A A@ ?!A A?"A A@@4 @@@*s@@@*r@ @  @@ 4@@@-7Q@-8/@i&direct?9AA#?:AA)@࣠@;4AĠ?FAA1?GAA3@@@@@ @@@-JH@@@@ภ ?SAA7?TAA9@ @@@ @@@-NU@?ZAA,?[AA:@@@ @@@-CeQ@-<@@-BQ@-Qa@)tmc_calls?kA<A@?lA<AI@ภn?rA<AL?sA<AN@7@@@  @@@-]@@@-\Q@-cz@1benefits_from_dps?APAT?APAe@ภ.I?APAh?APAm@.I@@@ @@@-jQ@-n@ơ9explicit_tailcall_request?AoAs?AoA@ภ.^?AoA?AoA@.^@@@ @@@-tQ@-x@@@?@A ?AA@@@A@?@@@@@&Syntax=Q?B]Bf?B]Bl@?A@Б@ఠ$let+5?BvB~?BvB@?A@@@ @-@@@-R@-z@@  @-@@-R@- @@@-R@-@@-R@-{@@-|R@-y3????????@@@@@@࣠@!a7A?BvB?BvB@@A@@(3????????@5?BvBz?BvB@@@@@  @@!f8A@ BvB@ BvB@@A@@13@@@@@@@@@!?@@@@@@@@ఐR#map@BvB@BvB@@@@@LB@@-@ ^Q@@@- bK@@@-@@-@@-3@'@&@&@'@'@'@'@'@ ,S@#@$@@@@ఐ3!f@9BvB@:BvB@ @@`@@ఐT!a@FBvBI@8J@@w@@.K@@f@ULA@}R@-S@A@P@PO@f@ఠ$and+9@XBB@YBB@@kA@@@@-@@@-R@-@@-@@@-R@-@@ @@-@@@-R@-@@-R@-@@-R@-3@y@x@x@y@y@y@y@y@@@@@@࣠@"a1;A@BB@BB@@A@@03@@@@@@@@@=@BB@BB@@@@@  @@"a2A5BBA6BB@AHA@@@@ !a@.@BiA@@@@@.@@@@@ @@@.@@@.@ @('&@@@. @@@.@@@`$let+BvC2CBBwC2CF@@ @@@.s@@@.tS@.o:98@@@.v@@@.wS@.p@@.qS@.n@U@V@@@//*)@ChAWVU@@@.@@@.T@.6г6$listCkCXCqClCXCu@г;!tCtCXCoCuCXCp@АiB?CzCXClC{CXCn@@@IH@@@.F @@@R@@@.K @@CCXCgCCXCv@@@@@@.@@@.W@@  @@ఐr!cCCCCCC@p@s@H@@qpo@@@.@@@.3CCCCCCCC@o @@@ĠCCCCCC@;S@@@@@@@.@@@.3CCCCCCCC@@@@ @@@@.@@@. @@@$let+CCCCCC@@ @@@.U@.V@.@@@.V@.@@ C\R@.@@@.U@.U@.@@. +V@.@@@.V@.@@.@@.V@.ఐ$unitCCCCCC@@@ <,@@@.U@.H@9DCC@@HĠ ȰDCCDCC@ @@@@7T@@@ภDCC@;@@@4[@AL@@Ӡ54@@@.@@@.e@ĠzD,CCD-CC@>ఠ!cFD5CCD6CC@DHA@@@@@.@ఠ"csGDDCCDECC@DWA@@C@@@.@@@.@@@ @@"! @@@.@@@.@ @*)(@@@.@@@.@@@R$let+DhCCDiCC@@ @nR@.㠠@Cڠt@@@/$U@.@@.V@.@@@.V@.@@@@@/(U@/"U@.@@. ˠ V@.@@@.V@.@@.@@.V@.ఐh!cDCCDCC@g@h@i@@ X/R@.@@@.U@.3DDDDDDDD@{ le@f@g@@@FDCD@$and+DCCDCC@@ oX@@@-@ hS@@@- _@f@]@@-@@@-@@-@@-@s@t@ 1@@@.V@.@ gU@/%U@/ U@.@@@.V@. @H@@@.@@@.V@.@@.@@.V@.ఐ$listDCCDCC@@@@@@@/@@@.@@@.@@@.@@.f@@ఐՠ"csECCECC@o@@@@@/ @@@/ V@/V@/ @@/@@ ӠO@@@/V@/@E0CC@@ K@ఠ!vI E=CC@EOA@@5@/@@ఠ"vsJEICCEJCC@E\A@@l@/@@A@@@@@/@@@ภ@!EZCDE[CD@@ ఐ'!vEdCDEeCD@'@(@)@@(3EcEbEbEcEcEcEcEc@2&@ @!@@@ఐ+"vsEtCD@ @@)@@@@@A@@^3EsErErEsEsEsEsEs@@@@@@AEzCC@гd!tECXCECXC@г$listECXC|ECXC@А!aհECXCyECXC{@@@@@@/WS@.ް @@@ @@@/VS@.@@+@@@A@@@@@/b@@@/a@@@/`@@@/_@@/^R@/Y@@@ECXCZ @@@A+/tmc_call_searchLREE EEE E"@А!a@/e3EEEEEEEE@;@@/c@A@A@G@B@@@EE E EEbE@C The [find_*] machinery is used to locate a single subterm to optimize among a list of subterms. If there are several possible choices, we require that exactly one of them be annotated with [@tailcall], or we report an ambiguity. ED D EDE@@@@@@@@@EA&zipperMR;@@/d@A@A@G@B@@@EEEEEE@@@@FA@@EE EEE E@@B@;1@A+No_tmc_callNEw>S@/f@@@/h@@F E%E)F E%EA@@FA,NonambiguousO-OS@/j@@@/l@@FEBEFFEBEa@@F0A)AmbiguousP(explicitQ@@E@@@/nF.EbEwF/EbE@@FAA(subtermsR@@EsS@/q@@@/s@@@/uFBEbEFCEbE@@FUA@@FFEbEfl@@FXA@@A@_@@@@@qn@@`@#MMFOE%E+FPE%E6@C@гO$listFYE%E=M@А!aVF_E%E:F`E%E<@@@]U@@@@W@#SSFfEBEHFgEBET@I@гU&zipperFpEBE[S@А!a\FvEBEXFwEBEZ@@@c[@@@@]@#YYF}EbEhF~EbEq@8@#[[VFEbE@U@@Ш@г^$boolFEbEFEbE@@f@@i@@/o@e@#aaTFEbE@S@@Ш@гd$listFEbEFEbE@гi!tFEbEFEbE@А!aq߰FEbEFEbE@@@x @@@}@@@@/v@t@@@p@@A@ܠDfF@@@@@@+נװFEEFEE@А!a@/yFEEFEE@@Cz@;@A*rev_beforeS@@FKS@/z@@@/|FEEFEE@@FA&choiceT@@"S@/@@@/FEEFEE@@GA%afterU@@Fi1S@/@@@/FEEFEE@@GA@@A@_@@@@@@@@ @#00(GEE@'@@Ш@г3$listGEEGEE@А!a;HGEEGEE@@@BK @@E@@/}N@>@#::2G!EE@1@@Ш@г=!tG*EEG+EE@А!aEaG1EEG2EE@@@Ld @@O@@/g@H@#DD<G:EE@;@@Ш@гG$listGCEEE@А!aNyGIEEGJEE@@@U|M@@X@@/@Q@@A@Z@@uY@3GJGIGIGJGJGJGJGJ@@@@ఠ:find_nonambiguous_tmc_callVG[EEG\EF@GnA@@@F1!a@1Y@2@@@2S@2_@@@2^S@/S@1@@@1S@/@@/S@/3GyGxGxGyGyGyGyGy@F@@@࣠@'choicesXAGEFGEF @GA@@-3GGGGGGGG@:GEEGL6LA@@@@@  @@@ఠ-has_tmc_callsYGF#F+GF#F8@GA@@@@/@@@/U@/Z@@@/U@/@@/U@/3GGGGGGGG@(4W@+@,@@@࣠@!c[AGF#F9GF#F:@GA@@3GGGGGGGG@,GF#F'GF#FN@@@@@  @@డFB"<>GF#FIGF#FK@@!a@@2@@@*@@)@@()%notequalBA2@@@@2~QQ2~Q@@2R@@@@98@@@/@@@/V@/@ L@@@/@@/@@/3GGGGGGGG@:F[@=@>@@@@ఐO!cHF#F=HF#F>@@@j@)tmc_callsHF#F?HF#FH@N @@%@@ภH#F#FLV@?@W@@1V@/%@@Z@@u&@d[A@U@/b@A@_@@ఠ+is_explicit\H5FRFZH6FRFe@HHA@@@yk@/@@@/U@/l@@@/U@/@@/U@/3HDHCHCHDHDHDHDHD@@@@@@࣠@!s^AHWFRFfHXFRFg@HjA@@3HVHUHUHVHVHVHVHV@+H_FRFVH`FRF@@@@@  @@ఐ!sHlFRFjHmFRFk@2@@@@33HkHjHjHkHkHkHkHk@"@@@9explicit_tailcall_requestHvFRFl@ @@2@"A@@U@/ @A@@@ఠ,nonambiguous_HFFHFF@HA@@3only_explicit_calls8@@@0yU@/@GW'S@0 @@@17@@@16U@/0X@/@@@15U@/@@/U@/@@/U@/3HHHHHHHH@e~w@x@y@@@࣠''aA+HFFHFF@HA@@/3HHHHHHHH@>HFFHHI@@@@@HFF @@'choicesbAHFFHFF@HA@@:3HHHHHHHH@!G@@@@@@@@Aఠ%splitcHGGHGG@HA@@@HFtS@0X@0@@@0X@/@HQZY@@@0@@@0X@/VU@@@0@@0@@03HHHHHHHH@/;k@2@3@@@࣠@*rev_beforedAIGGIGG@I"A@@+3II I IIIII@7@2@+wv@@@0@@0Y@/@@/Y@/@=@>@@@@@@Ġ 'I+GGI,GG@@@@@@H@@@0#@@@0"3I2I1I1I2I2I2I2I2@%1R@(@)@@@@@ ภ7IAGGIBGG@7@@@8R@@@09@IHGG@@a@@@05@ĠIUH HIVH H@Dఠ!ceI^H HI_H H@IqA@@Ġ@@@0+3IaI`I`IaIaIaIaIa@/@@@ఠ$restfInH HIoH H@IA@@HΠנ@@@0-@@@0,@@@ @@M@@@01@@@00@@@డG"&&IH#H@IH#HB@@:@@@K@@@@@JD@@@I@@H@@G(%sequandBA3Ԡ@@@@33@@3]@@@@@@@0A@@@@0@@@@0?@@0>@@0=3IIIIIIII@aZ@[@\RK@L@M@@@@ఐ'-has_tmc_callsIH#H0IH#H=@@@@S@0S@0S@0R@@@0Q$@@@0P@@0O"@@ఐ!cIH#H>IH#H?@+@@%@@@0Y]@0[]@0Z7@@' @@a@@@0M@0\]@0X?@@డHk " $JH#H\JH#H^@ !@@@ !@@@0b@ @@@0a @@@0`@@0_@@0^Z@@డH#notJH#HDJH#HG@@@@@F@@@E@@D(%boolnotAA4]@@@4[LL4\Lt@@4Z\@@@@@@@0r@@@0q@@0p@@ఐ3only_explicit_callsJEH#HHJFH#H[@r@@@@+@@ g@@@0n@0{^@0x@@ఐ'+is_explicitJ\H#H_J]H#Hj@@@@@@@0@@@0~@@0}@@ఐ!cJrH#HkJsH#Hl@@@@@@0^@0^@0@@" @@ @@@0m@0^@0@@JH#HCJH#Hm@@@@@0L@0]@0l@@ @@7@@@0\@0K@ະ3ː@@/@@@3@@A@A@3@@B@A@@A@*rev_beforeJHsHJHsHAఐ @u@@&choiceJHsHJHsH@ఐ_!cJHsHJHsH@@@۠\@0@@@0[@0@)%afterJHsHJHsH@డIB$List#mapJHsHJHsH@ JHsHJHsH@@@@!a@U!b@S@@4@@ܠ@@@3@@@@2@@1@@0@@@@@@W@% @@@@8[@0@@@0[@09@@0@ @@@0B@@@0@@0@@0`@@ఐ&directK"HsHK#HsH@۰@@@#T@@0\@0q@@ఐŠ$restK3HsHK4HsH@y@@G7@@@0\@0\@0@@b @@Kq\@0@@@0\@0@@@KGHsHKHHsH@@@@@0@ఐu%splitKWHHKXHH@D@@@t@k@@@0@@0@@0@@ภF1KjHHKkHH@F0ఐ&directKvHHKwHH@/@@@@@@0@@0@@ఐ+!cKHHKHH@а@@@@@0]@0]@0@@ @@@ఐ*rev_beforeKHHKHH@f@@@@KHHKHH@@X@0@@ఐA$restKHHKHH@@@@@\@@n[@0\@0@KH#H- @@p@@A:rgKGG @б@г$listKGGKGG@г+!tKGGKGG@Аb2nKGGKGG@@@X@0s @@@X@0v@@г&zipperKGGKGG@А!aGKGGKGG@@@GF@@@1Y@0 @@@ @@1Y@0#@@@IA@@@ XW@@@1#@@1"@@1!X@1@@@LGGU@@ఐ,%splitLHILHI@@@@Ko)@@@1*@Ku~}@@@1)@@@1(zy@@@1'@@1&@@1%3L LLL L L L L @@@@@ภ#*L.HIL/HI@C@@@KI@@@18X@1=@@ఐu'choicesLAHI @?@@@@6@@@A@@D@A@U@1C@A@@@ఠ1tmc_call_subtermshLRII LSII1@LeA@@BAU@1I@@@1WU@1D3LYLXLXLYLYLYLYLY@@@@@@డJ$List&filterLnI4I:LoI4I>@ LrI4I?LsI4IE@@@@!a@$boolE@@@@@@Bo@@@3@@@@@@@@B>^-)-)B?^-)-X@@B=o@&!@@@@<@@@1L@@1K@D@@@1JIH@@@1H@@1G@@1F3LLLLLLLL@G@@@@࣠@!ciALI4IKLI4IL@LA@@\Z@@@@ఐ!-has_tmc_callsLI4IPLI4I]@z@@@TS@1S@1d@@@1c@@@1b@@1a3LLLLLLLL@v(z@@ @@@@ఐ/!cLI4I^LI4I_@ @@@@!@@h@@@1mX@1j@LI4IFLI4I`@@@t@@@1Z@@1YV@1qV@1o@@ఐv'choicesLI4IaMI4Ih@H@@]@@@@@A@MII@@ఐ1tmc_call_subtermsMIpIzMIpI@@@@@@@@1u3MMMMMMMM@@@@Ġ$M! IIM" II@D@@@@̠@@@1z3M#M"M"M#M#M#M#M#@@@@@Ѡ@@@1{@@@ภ+No_tmc_callM3 IIM4 II@;5<@@/@6A@@C@A/@@,డK$List#mapMH IIMI II@ ML IIMM II@@k@@@@S@2fS@27S@1S@1S@1V@1@@1@o@@@1n@@@1@@1@@1B@@ఐ&directMt IIMu II@-@@@'@@1W@1S@@ఐ'choicesM IIM II@ΰ@@%`@@M IIM II@@@@@1V@1W@1k@@a @@l@Ġ"::M IIM IIAHdఠ$_onej M II@MA @@XS@1kX@13MMMMMMMM@@@@Ġ"[]M IIAEU@@A@M@@@1@@@M II@@fe@@@1@@ji@@@1@@@ภ,NonambiguousM IIM II@;@AA@C@A@@ఐU,nonambiguousM IIM II@|@@RN@@@1@M@IH@@@1@@@1ED@@@1@@1@@13MMMMMMMM@OI@J@K@@@hภ<M IJM IJ@<@@@o@@@1W@1@@ఐ'choicesN  IJN IJ"@V@@ @@N IIN IJ#@@-S@1@@@1V@1W@1-@@R @@.@ఠ0several_subtermskN( J$J*N) J$J:@N;A@@Ԡ@@@1@@ؠ@@@1@@@@ఠ1explicit_subtermslN>J>JJN?J>J[@NQA@@W@1@@@1W@13NDNCNCNDNDNDNDND@4' @!@"@@@డL$List&filterNYJ>J^NZJ>Jb@ N]J>JcN^J>Ji@@@@@@@@@1@@1@&@@@1*@@@1@@1@@1)@@ఐG+is_explicitN|J>JjN}J>Ju@ϰ@@@@@@1@@@1@@1?@@ఐj0several_subtermsNJ>JvNJ>J@I@@U@@@1X@1X@1T@@E @@ZU@A@NJ>JF @@ఐk1explicit_subtermsNJJNJJ@j@k@l@@Ui@@@13NNNNNNNN@iy@@@Ġ%NJJNJJ@F\@@@@g{@@@13NNNNNNNN@@@@@l@@@1@@@ภ)AmbiguousNJJNJJ@;@\ @@@/@AB@C@A@;ABA@O@B@@@N@@@NAຠ3@@2@@@3@@AA@A@(explicitNJJNJJ@ภ=NJJNJJ@=@@@@@@2%X@2)<@(subtermsOJK OJK@ఐ栐0several_subtermsOJKOJK&@Ű@@ޠ@@@26X@28T@;@OJJOK(K5@@JS@2@@@2X@2A_@@U @@`@ĠO,K6KBO-K6KHAIఠ$_onem O5K6KF@OGA @@S@2:S@1Z@23O8O7O7O8O8O8O8O8@@@@ĠODK6KGAF@@A@N@@@2 @@@OKK6K@@@@@@2@@ @@@2@@@ภ,NonambiguousOZKLKXO[KLKd@ఐ᠐,nonambiguousOfKLKfOgKLKr@@@@@@2R@N̠ՠ@@@2Q@@@2PѠ@@@2O@@2N@@2M3OwOvOvOwOwOwOwOw@MG@H@I@@@ภ>YOKLKOKLK@>X@@@@@@2`Y@2d@@ఐ'choicesOKLKOKLK@@@9 @@OKLKeOKLK@@ 9S@2G@@@2KX@2gY@2]-@@P @@5.@ఠ9several_explicit_subtermsnOKKOKK@OA@@`t@@@2  @@dx@@@2 @@@ภ)AmbiguousOKKOKK@ຠ3 @@2q @@@3  @@AA @ A @ (explicitOKKOKK@ภ>OKKOKK@>@@@ @@@2X@23OOOOOOOO@792@3@4@@@(subtermsOKLOKL @ఐE9several_explicit_subtermsOKL OKL&@@@ ɠ@@@2X@2@&@PKKPL(L5@@5S@2i@@@2mX@2&@@H @@'@@@APJJ{@@M@r|@@@@@APIpIt~@@@@@@S@@h@@@@J@@`@A@S@3@A@@@@A@/@\@@@!@8@@x@$@"r@@ @ 7 @ q 7A@ I cB@@@@@3P2P1P1P2P2P2P2P2@@@P:~707@P;LBLE@"3P8P7P7P8P8P8P8P8@@@@MP  The TMC transformation requires information flows in two opposite directions: the information of which callsites can be rewritten in destination-passing-style flows from the leaves of the code to the root, and the information on whether we remain in tail-position flows from the root to the leaves -- and also the knowledge of which version of the function we currently want to generate, the direct version or a destination-passing-style version. To clarify this double flow of information, we split the TMC transform in two steps: 1. A function [choice t] that takes a term and processes it from leaves to root; it produces a "code choice", a piece of data of type [lambda Choice.t], that contains information on how to transform the input term [t] *parameterized* over the (still missing) contextual information. 2. Code-production operators that have contextual information to transform a "code choice" into the final code. The code-production choices for a single term have type [lambda Choice.t]; using a parametrized type ['a Choice.t] is useful to represent simultaneous choices over several subterms; for example [(lambda * lambda) Choice.t] makes a choice for a pair of terms, for example the [then] and [else] cases of a conditional. With this parameter, ['a Choice.t] has an applicative structure, which is useful to write the actual code transformation in the {!choice} function. PKa1Y1YPL}7-7/@@@@@@@PN~7070@@Р&Syntax&ChoiceP_LGLLP`LGLR@ PcLGLSPdLGLY@@@3PcPbPbPcPcPcPcPc@0@$A@@@+@k@?r@@@@.@@@x@@S c@  J@  A@  B@ 5V@@N=ML@LL@@@L@L@IU@@@@A3PPPPPPPP@/B@@PLGLG6@@7@3PPPPPPPP@3@@A+'contextpSP!L[L`P!L[Lg@@;@@+specialized@@MO#Map!t+specializedqS@@@6@@@6P"LlLnP"LlL@@PA@@A@@@@@P!L[L[P#LL@@@APA@# P"LlLy@ @@Ш@г%IdentP"LlLP"LlL@'P"LlLP"LlL@@+P"LlLP"LlL@ @г.+specializedP"LlL{P"LlL@@63PPPPPPPP@WM;@@@A@@@@@0@@@-8;@@@A@@@@@P$LLP(LL@@@@QA@@ @@@J @@M@@6@>@@A@:@+DDP$LLP$LL@@;@@%arity@@P@@@?Q %LLQ %LL@@QA&dps_id@@M!t@@@? Q&LLQ&LL@@Q,A+direct_kind@@Q*-function_kind@@@? Q&'LLQ''LL@@Q9A@@A@@@@@7@@@4@#((#Q.%LL@"@@Ш@г+#intQ7%LLQ8%LL@@3N@@6@@?Q@2@#..'Q@&LL@&@@Ш@г1%IdentQK&LLQL&LL@8QO&LLQP&LL@@@@g@@C@@? j@=@#993QY'LL@2@@Ш@г<=Qa'LLQb'LL@@Cx@@F@@? {@A@@A@t@@s@3QbQaQaQbQbQbQbQb@@@@ఠ%lletsQs*LLQt*LL@QA@@@B@@@?yT@?7@L@@@?zT@?<@:@C@@@?{X@?e@K@@@?|X@?f@@?gX@?Q@@@?`T@?A@K@@@?}T@?FT@?G@@?HT@?B@@?CT@?=@@?>T@?8@@?9T@?63QQQQQQQQ@ @@@࣠@"lkAQ*LLQ*LL@QA@@G3QQQQQQQQ@TQ*LLQ-MXMi@@@@@  @@"vkAQ*LLQ*LL@QA@@R3QQQQQQQQ@!^@@@@@@@@(bindingsAQ*LLQ*LM@QA@@Z3QQQQQQQQ@f@@@@@@@@$bodyAQ*LMQ*LM @RA@@O3QQQQQQQQ@n@@@@@@@@డPo$List*fold_rightR +M MR +M M@ R+M MR+M M@@;@@@@@oX@?O@@?S@@?R@;@@@?P@  @@?N@@?M@@?L3RRRRRRRR@+7|@.@/@@@@࣠@MA@ఠ#varR8+M M$R9+M M'@RKA@@3R7R6R6R7R7R7R7R7@@@@@ఠ#defRE+M M)RF+M M,@RXA@@ @@RJ+M M#RK+M M-@@@@@@?i@@ @@$bodyAR\+M M.R]+M M2@RoA@@H3R[RZRZR[R[R[R[R[@@/@)@*#@@@@@@  @@ภ$LletRm,M6M:Rn,M6M>@Cఐ"lkRw,M6M@Rx,M6MB@@@3RuRtRtRuRuRuRuRu@'e@@@@@ఐ"vkR,M6MDR,M6MF@@@@ఐX#varR,M6MHR,M6MK@/@@@ఐV#defR,M6MMR,M6MP@9@@$@ఐM$bodyR,M6MRR,M6MV@,@@/@@=R,M6MW@@L@@@?x4@R+M MR-MXM[@@@%@@@?b@@?aY@?Y@?}@@ఐ㠐(bindingsR-MXM\R-MXMd@˰@@9@@ఐߠ$bodyR-MXMe @ @@)@@ @@@ A@]T@?@A@@@'@ఠ.find_candidateR/MkMoR/MkM}@RA@@@M@@@?T@?ANN)lfunction@@@?T@?@@@?T@?@@?T@?3RRRRRRRR@M@@@@@@Ġ)LfunctionS 0MMS 0MM@;)LfunctionL@@@@>@AD@V@AM)&&M)&&@@@Nj@ఠ$lfunS0MMS0MM@S1A@@,@@@?3S SSS S S S S @*HS)/MkMkS*1MM@@@@@@" @@B@@ఐ$lfunS80MMS90MM@@@@@H@@@?@?3S<S;S;S<S<S<S<S<@) @@@$attrSG0MMSH0MM@3$attrU@@@N2function_attribute@@@@@D3$kind N-function_kind@@@@@@@@MJ++MJ++@@N"@3¶msKݠ@L!t@@@@N@@@@@@@@@@A"@@NK++NK+,@@N#@3&return0N@@@@@B+@@NL,,"NL,,5@@N$@3$body9M@@@@@C4@@N$M,6,:N%M,6,G@@N%@B3#locBK@@@@@E=@@N-O,,N.O,,@@N'@@@N1N,H,LN2N,H,e@@N&@aQ@@M@@@?@?]@-tmc_candidateS0MMS0MM@3-tmc_candidateX@@@8$boolE@@@6@@F#3&inline O 0inline_attribute@@@0@@@@ANT#$NU#$@@O@3*specialiseO4specialise_attribute@@@1@@A@AN_$$N`$$?@@O@3%local"O /local_attribute@@@2@@B@ANj$@$BNk$@$Y@@O$@3$poll-O+.poll_attribute@@@3@@C)@ANu$Z$\Nv$Z$q@@O/@3,is_a_functor85@@@4@@D3@AN$r$tN$r$@@O9@3$stubB?@@@5@@E=@AN$$N$$@@OC@L3.may_fuse_arityLI@@@7@@GG@AN%%N%%@@OM@@AN$$N$$@@OQ@\@@AO@@@?V@?@ภ$SomeT 0MMT 0MM@=ఐ$lfunT0MMT0MM@ܰ@@!@@@@)@@T1MMT1MM@@4@@@ภ$NoneT$1MM@Ac@@@7@@ABT(/MkM@@@@@DT@?3T'T&T&T'T'T'T'T'@@@@A@@@2@ఠ/declare_bindingT93MMT:3MM@TLA@@@@@@@T@?@@F1#Map#key@@@@T@?@Ny@@@?T@?@@?T@? T@?@@?T@?@@?T@?3T]T\T\T]T]T]T]T]@g@@@@@࣠@#ctxATp3MMTq3MM@TA@@33ToTnTnToToToToTo@@Tx3MMTy;NO.@@@@@  @@PFA@ఠ#varT3MMT3MM@TA@@<3TTTTTTTT@&O@@@@@@ఠ#defT3MMT3MM@TA@@@@@T3MMT3MM@@@R@I@@?@@ @@ఐР.find_candidateT4MNT4MN@P@@@N@@@?CR@@@?@@@?@@?3TTTTTTTT@6?t@9@:1j@+@,@@@@ఐ8#defT4MNT4MN@ @@w@@"@@Cl@@@?@@@?@Ġ$NoneT5NNT5NN"@B%@@@@C@@@?@@@?3TTTTTTTT@.@@@ @C@@@?@@@?@@@ఐ#ctxT5NN&T5NN)@q@@@Ġ$SomeU 6N*N.U 6N*N2@>ఠ$lfunU6N*N3U6N*N7@U'A@@"@@@?Z@@@@@C)@@@?@@@?b@@C0@@@?@@@?i@@@@ఠ%arityU47N;NAU57N;NF@UGA@@H@@@?Y@?3U8U7U7U8U8U8U8U8@}/(@)@*@@@డS$List&lengthUM7N;NIUN7N;NM@ UQ7N;NNUR7N;NT@@H @@@H @@@@?@P@@@?@@?Y@?@@@?H>@@@?@@?/@@ఐd$lfunUx7N;NUUy7N;NY@;@@@@@?@?C@¶msU7N;NZU7N;N`@'@@H@4@@@?Z@?Z@?R@@C @@VS@A@U7N;N= @@@ఠ&dps_idU8NdNjU8NdNp@UA@@G@@@@Y@?3UUUUUUUU@iwp@q@r@@@డRK,create_local%IdentU8NdNsU8NdNx@ U8NdNyU8NdN@@Gz@@@Gz@@@@G@@@@@@@ @@డT9!^U8NdNU8NdN@@&stringQ@@@T@@@@S @@@R@@Q@@P@@^2^2@^2^X@@@q@@@@@@@@@@@@@@@@@ @@@ @@@ S@@డR$name%IdentV8NdNV 8NdN@ V 8NdNV 8NdN@@@G@@@G@@@@@@GkRRGkRg@@GI@@@@G@@@@@@@@@@@@@ఐ#varV08NdNV18NdN@n@@@@,@@b@@@@@@(\@@%@@$_dpsVC8NdNVD8NdN@@VF8NdNVG8NdN@@n@@@@[@@*[@@)@@VP8NdNVQ8NdN@@H@@@@ @@+[@@@@ @@@A@V[8NdNf @@@ఠ+direct_kindVf9NNVg9NN@VyA@@@@@@/Y@@,3VjViViVjVjVjVjVj@@@@@@ఐg$lfunV{9NNV|9NN@>@@@@@@0@@.@$kindV9NNV9NN@5@@@A@V9NN@@@ఠ$candV:NNV:NN@VA@@@@@@5Y@@13VVVVVVVV@2@9@:@;@@@ະ3 @@@?4@@@3@@A@A@3@@B@A@@A@%arityV:NNV:NNAఐ @@@@@@7Y@@8 @&dps_idV:NNV:NNAఐ3 @]@@@@@>Y@@?3@'+direct_kindV:NNV:NNAఐ| @?@@@@@EY@@FF@@@V:NNV:NN@@OI@A@V:NN@@ຐ3D@@@?5F@@@@A8@5+specializedV;NNV;NO@డS#Map#add%IdentW ;NOW ;NO @ W;NO W;NO@@W;NOW;NO@ @@@@@5@!a@5@!t @@@5@@@5@@5@@5@@5@HTaiHTa@@+Stdlib__MapF@* @@@@@@@^@@@@@PX@@X@@\@  @@@@]$@@@@[@@@Z@@@Y@@@X3WIWHWHWIWIWIWIWI@@@@@@@ఐҠ#varW[;NOW\;NO@@@ @@ఐҠ$candWh;NOWi;NO@@@.X@@@@ఐ #ctxWx;NOWy;NO @@@:-@+specializedW;NO!W;NO,@ @@ՠY@@@@@@:@@} @@cO@@@@w?@@@W;NN@@.A@@@/@@@0"@7@@1@@@2V@@@AW4MM@@4@&A@YT@A6$@A@!@! @7Aఠ&choiceW=O0O8W=O0O>@WA@@@i@@@cT@A@@Q@@@`T@AC$tailE @@@_""W@@@e@@@eT@eT@dT@dT@d T@_@@_T@AD@@A@@A3WWWWWWWW@r@@@@@࣠@#ctxAW=O0O?W=O0OB@WA@@;3WWWWWWWW@O@J@GB@@AEU@AA@@ABU@A7@Q@R(traverse@UT@AF@ST@AIR"@@@]T@AJ@@AKU@AG@@AHU@A8@X X @@XA2traverse_lfunction@mT@aT@AL@(@@@`T@AO-@@@cT@AP@@AQU@AM@@ANU@A9@X';?X(;Q@@X:A,traverse_let@T@a0T@AR@@@@a;T@AU@T@b@Y^bY^r@@YA-traverse_list@cT@A@!fV@f9@@@fET@AQ@@@]T@A@@AU@A@@AU@A?@Y!Y"@@Y4A@@@@DC@@!tAY.=O0OCY/=O0OD@YAA@@3Y-Y,Y,Y-Y-Y-Y-Y-@NZ@Q@R@@@@@@Aఠ&choiceàYA>OGOQYB>OGOW@YTA@@@T@a4T@SnW@AF@@@WW@A@T@FW@ASz@@@FW@^@@@^W@A@@B@@B@@B3Y^Y]Y]Y^Y^Y^Y^Y^@2>@5@6@@@࣠@#ctxAYq>OGOXYr>OGO[@Y A@@.3YpYoYoYpYpYpYpYp@@@;8@52@@AX@A@@AX@A@@AX@A@F@G,choice_apply@JT@A$tailJW@A@T,lambda_apply@@@WYW@AfW@_W@^W@^W@^W@^W@^.W@^UW@]W@XW@XW@XW@XW@WW@A@@AX@A@@AX@A@@AX@A@Y]]Y]]@@YA0choice_makeblock@W@A$tailW@A@@>@@@YW@Wà@>>@@@ZW@WĠ@Y> @@@ZW@W@@WW@A@T@fST@FT@WW@A@Ru@@@XW@A]W@YW@A@@AX@A@@AX@A@@AX@A@@AX@A@@AX@A@Z hhZ hh@@ZA+choice_prim@T@A$tailW@A@R@@@]W@A@2W@A@R@@@]W@AW@A@@AX@A@@AX@A@@AX@A@@AX@A@@AX@A@Z79wwZ89ww@@ZJ A+choice_list@T@A$tailW@A@\[@^5@@@^AW@APE W@CW@CW@FW@Fz@@@FW@F<@@@FTW@A@@AX@A@@AX@A@@AX@A@ZjZk@@Z} A+choice_pair@-T@A$tail-W@A@@1W@C@5W@C@@CW@AŠ@3W@C@6W@C@@C]@Cw@@@CW@A@@AX@A@@AX@A@@AX@A@ZZ @@Z A-choice_option@aT@A$tailaW@A@&optionLg[@_@@@_W@A&optionLm@@@FW@F=@@@FdW@A@@AX@A@@AX@A@@AX@A@Z]cZ]p@@Z A@@@@ba@AZ>OGO]Z>OGOa@ZA@@3ZZZZZZZZ@kw@n@o@@@@Z>OGO\@@!tAZ>OGObZ>OGOc@[A@@3ZZZZZZZZ@@@@@@@@@ఐ!tZ?OfOp[?OfOq@@@@@3ZZZZZZZZ@@@@Ġ$Lvar[@OwO~[@OwO@T@["@OwO[#@OwO@@T@@@B+3["[![!["["["["["@$@@@@@ @@@@@Ġ'Lmutvar[1@OwO[2@OwO@;'LmutvarT@T!t@@@;@AA@V@AU&&4&6U&&4&J@@@V @@[D@OwO[E@OwO@@@@@B."@@@@@#@@#@@.@@$@Ġ&Lconst[S@OwO[T@OwO@M@[X@OwO[Y@OwO@@M@@@B16@@@ @@ 7@@ 7@@B@@ 8@Ġ)Lfunction[g@OwO[h@OwO@]@[l@OwO[m@OwO@@x@@@B4J@@@ @@K@@K@@V@@L@Ġ%Lsend[{@OwO[|@OwO@;%LsendU@V)meth_kind@@@vU@@@wU@@@xT U@@@z@@@yT@@@{@ES@V@AV8=*A*CV9=*A*@@@V@@[@OwO[@OwO@@$@@@B<@@@U@@@B=@@ @U@@@B>@@@%U@@@B@@@@B?@@@T-@@@BA@@@E@@k@@k@@@@l@Ġ'Lassign[AOO[AOO@;'LassignU]@UZ!t@@@tU@@@u@BR@V@AVv<*!*#Vw<*!*@@@@W0@@[AOO[AOO@@@@@BE@@@V@@@BF@@@" @@@@@@ @@@Ġ$Lfor[AOO[AOO@;$LforU@U!t@@@oV@@@pV@@@qQ.direction_flag@@@rV)@@@s@EQ@V@AV;))V;)* @@@Wi@@\AOO\AOO@@"@@@BM@@@V;@@@BN@@ @V@@@@BO@@@"@@@BP@@@VJ@@@BQ @@@?@@ @@ @@@@ @Ġ&Lwhile\<AOO\=AOO@;&LwhileU@V\@@@mV`@@@n@BP@V@AV:))V:))@@@W@@\PAOO\QAOO@@Vm@@@BU.@@@Vr@@@BV3@@@ @@4@@4@@\\@OwO}\]AOO@@ 7@@@@ఠ!t\hBOO\iBOO@\{7A@@3T@`T@`T@`T@`T@`]T@`lT@FT@FT@ET@ET@CT@CT@CT@CT@CbT@CdT@C T@C T@B3\\\\\\\\@@@@ఐ(traverse\BOO\BOO@@@@@@@B@@B@@ఐ?#ctx\BOO\BOO@ΰ@@i@@ఐР!t\BOO\BOO@@@h+@@"@@,@A@\BOO@@డ'&lambda&Choice\CPP\CPP@ \CPP\CPP@@@\&U@@@3\&Q@@@3@@@3@@3@&h@&i@@@@@@C @@@C@@@B@@B3\\\\\\\\@@@@@@@ఐ!t\CPP\CPP@ @@@@4@@wW@WW@WW@WW@GW@GW@GmW@G^W@GW@GW@D~W@DW@CW@CZW@C,@^@@@Ġ%Lprim]'HPP](HPP@Uఠ$prim͠]0HPP]1HPP@]CA@@U@@@B\3]2]1]1]2]2]2]2]2@4@@@ఠ(primargsΠ]?HPP]@HPP@]RA@@UWa@@@B^@@@B]@ఠ#locϠ]QHPP]RHPP@]dA@@U@@@B_!@@@2]YHPP@@#@@#@@@ఐP+choice_prim]cIPP]dIPP@T@@@ROM@J@C@@;@@C@@C@@C@@C@@C 3]k]j]j]k]k]k]k]k@pHA@B@C:3@4@5)"@#@$@@@@ఐ#ctx]IPP]IPP@@@=@kఐ$tail]IPP]IPQ@@@C!@@ఐk$prim]IPQ]IPQ@)@@~W@]W@C!1@@ఐl(primargs]IPQ]IPQ@8@@W@C"@@@ఐi#loc]IPQ]IPQ@F@@W@]W@]W@]W@C$T@@b @@mU@Ġ&Lapply]MQQ]MQQ@;&LapplyWc@5@@@=@AC@V@AXu(&m&oXv(&m&@@@Y/ @ఠ%applyР]MQQ]MQQ@]A@@H@@@Bb3]]]]]]]]@@@@@@@@@@@@@ఐg,choice_apply]NQQ]NQQ@k@@@ifd@aZ@@C(@@C'@@C&3]]]]]]]]@!@@@@@@ఐ#ctx^ NQQ^ NQQ@,@@@zఐ?$tail^NQQ^NQQ@'@@@@ఐB%apply^%NQQ^&NQQ@'@@W@WZW@WBW@W>W@Wఐ&choice_VTRR_WTRR@۰@@@@ @@CO@@CN@@CM3_Z_Y_Y_Z_Z_Z_Z_Z@@@@@@@ఐ#ctx_lTRR_mTRR@@@(@ఐ$tail_yTRR_zTRR@@@.@@ఐ"l2_TRR_TRR@@@]@CY,@@6@@4-@_URS@@"l2_TRR_TRR@_9A@@Z:@@@ภ)Lsequence_URS_URS@4(ఐ"l1_URS_URS@J@@3________@N p@@@@@ఐ%"l2_URS_URS@ @@{@@.@@y@A/@@W@Cf3________@_@@@3@@h*@Ġ+Lifthenelse_VSS _VSS+@;+LifthenelseY^@Y@@@hY@@@iY@@@j@CN@V@AZx8)v)xZy8)v)@@@[2@ఠ"l1Ӡ_VSS-_VSS/@_A@@Z@@@Bl3________@@@@ఠ"l2Ԡ_VSS1_VSS3@`A@@Z@@@Bm@ఠ"l3ՠ`VSS5`VSS7@`A@@Z"@@@Bn@@@A` VSS8@@@@@@@@ఠ"l1`WS<SH`WS<SJ@`):A@@]@Cg3````````@=6@7@8/(@)@*"@@@@@ఐ/(traverse`+WS<SM`,WS<SU@3@@@1@.-@@Cj@@Ci@@ఐΠ#ctx`<WS<SV`=WS<SY@]@@$@@ఐc"l1`IWS<SZ`JWS<S\@,@@^@Cq3@@$@@J4@A@`PWS<SD@@$let+`XXS`Sh`YXS`Sl@@@@@Cx]@C}@@W@CyW@C\@Cz@@C{ ]@Cu@@@Ct]@C|@@C~@@C]@Crఐ +choice_pair`}XS`Sx`~XS`S@@@@  @@@C@@C@@C3````````@lvo@p@q@@@@ఐ%#ctx`XS`S`XS`S@@@O@ఐǠ$tail`XS`S`XS`S@@@U@@@ఐ"l2`XS`S`XS`S@@@.W@C/@@ఐ"l3`XS`S`XS`S@@@7W@C<@@`XS`S`XS`S@@EW@CA@@K@@<B@q`YSS@@@ఠ"l2`XS`Sn`XS`Sp@`;A@@CT@@ఠ"l3`XS`Sr`XS`St@`7@8@91*@+@,$@@@@@ఐ (traversea\TT*a\TT2@ @@@ @  @@C@@C@@ఐH#ctxa\TT3a\TT6@װ@@r&@@ఐV#defa\TT7a\TT:@+@@^@C5@@$@@ 6@A@a\TT @@y$let+a]T>TFa]T>TJ@@ ]@C@@@C]@C@@W@CW@C\@C@@C ! ]@C@@@C]@C@@C@@C]@Cఐ&choicea]T>TRa]T>TX@}@@@ E@@@C@@C@@C3aaaaaaaa@oyr@s@t@@@@ఐ#ctxb]T>TYb]T>T\@/@@@ YఐB$tailb]T>T^b]T>Tb@*@@@@ఐ$bodyb(]T>Tcb)]T>Tg@@@f]@C,@@6@@-@]b/^TkT@@$bodyb7]T>TKb8]T>TO@bJ>A@@X:@@@ภ'LmutletbA^TkTsbB^TkTz@ఐ"vkbK^TkT|bL^TkT~@@@]@@@C]@C]@C3bPbObObPbPbPbPbP@U'u@@@@@ఐ#varb`^TkTba^TkT@ɰ@@1@@@C]@C]@C@ఐ䠐#defbr^TkTbs^TkT@q@@ @ఐI$bodyb}^TkTb~^TkT@(@@+@@@R@@,@AS@@W@C3bb~b~bbbbb@@@@W@@ .@Ġ$Lletb_TTb_TT@Tఠ"lkڠb_TTb_TT@bA@@T@@@B~3bbbbbbbb@@@@ఠ"vk۠b_TTb_TT@bA@@^@@@B@ఠ#varܠb_TTb_TT@bA@@T2@@@B@ఠ#defݠb_TTb_TT@b A@@\@@@B+@ఠ$bodyޠb_TTb_TT@b!A@@\@@@B9@@@Jb_TT@@ ;@@ ;@@@@@ఠ#ctxb`TTb`TT@b?A@@ T@C3bbbbbbbb@`Y@Z@[RK@L@ME>@?@@81@2@3+$@%@&@@@@ఠ(bindingsc`TTc`TT@c@A@@ T@`hT@D=T@DGT@C@@% @@@%@@@C%@ఐ ,traverse_letc`TTc`TT@ @@@ @ @ @ ۠@ @@C@@C@@C@@C=@@ఐ Ƞ#ctxc6`TTc7`TT@W@@ J@@ఐ#varcC`TTcD`TT@N@@ T@CX@@ఐ#defcQ`TTcR`TT@[@@ T@a@T@Ch@@;@@@q@Z@@C^@Cq@A@ca`TT@@$let+ciaTTcjaTT@@ ]@D@@@D]@D @@W@D\@D@@D ]@D@@@D]@D@@D @@D ]@Cఐ L&choicecaTUcaTU @ @@@ K  F@ A >@@D@@D@@D 3cccccccc@@@@@@@@@ఐ#ctxcaTU caTU @@@@ ఐ٠$tailcaTUcaTU@@@ g@@ఐ$bodycaTUcaTU@Ȱ@@]@D.@@8@@ m/@]cbUU=@@$bodycaTTcaTU@cAA@@X<@@@ఐh%lletscbUU$cbUU)@߰@@@Ub@@@D(@_=@@@D'@L@Ui@@@D%@^@@@D&@@D$@@@D#@^@@@D"@@D!@@D @@D@@D3cccccccc@j:@1@2@@@@ఐs"lkd bUU*d bUU,@@@U@@@DB^@DD^@DC@@ఐx"vkd bUU-d!bUU/@,@@_@@@DA^@DF^@DE+@@ఐ2(bindingsd4bUU0d5bUU8@@@18@@ఐv$bodydAbUU9|@A}@@D@@i~@@E@A@@@W@DL3dBdAdAdBdBdBdBdB@@@@@@ Z@Ġ'LletrecdScU>UDdTcU>UK@;'Lletrec]@ Π @@@I@@@H^{@@@J@BG@V@A_,''_,''?@@@_@ఠ(bindingsߠdocU>UMdpcU>UU@d"A@@  @@@B@@@B3dudtdtdududududu@ w@@@ఠ$bodydcU>UWdcU>U[@d#A@@^@@@B@@@7dcU>U\@@ 6@@ 6@@@@@ఠ#ctxddU`UlddU`Uo@dBA@@ 3T@DN3dddddddd@ 70@1@2%@@ @@@@ఠ(bindingsddU`UqddU`Uy@dCA@@ .T@`T@DT@DT@DO@@ @@@@@@DR@ఐ ^/traverse_letrecddU`U|ddU`U@ b@@@ `@ ]@ M@ L@@DV@@DU@@DT5@@ఐ p#ctxddU`UddU`U@ @@ B@@ఐ|(bindingsddU`UddU`U@K@@ T@bT@aT@aT@D_V@@/ @@@_@N@@Da^@D^_@A@ddU`Uh@@$let+eeUUeeUU@5@ F]@Dg@@@Dh]@Dm@@"W@Di#W@D\@Dj@@Dk V ]@De@@@Dd]@Dl@@Dn@@Do]@Dbఐ 점&choicee-eUUe.eUU@ @@@  z @  @@Ds@@Dr@@Dq3e1e0e0e1e1e1e1e1@@@@@@@@@ఐ#ctxeEeUUeFeUU@@@@ ఐ y$taileReUUeSeUU@ a@@ @@ఐݠ$bodye_eUUe`eUU@@@]@D}.@@8@@ /@_effUU@@$bodyeneUUeoeUU@eDA@@Z<@@@ภ'LletrecexfUUeyfUU@%ఐ֠(bindingsefUUefUU@J@@3eeeeeeee@P p@@@@@ఐ%$bodyefUUefUU@ @@{@@.@@{@A/@@W@D3eeeeeeee@a@@@3@@ A@Ġ'LswitchegUUegUU@;'Lswitch_7@_@@@Oa-lambda_switch@@@P^#@@@Q@CI@V@A`S.'w'y`T.'w'@@@a @ఠ"l1egUUegUU@e$A@@_@@@B3eeeeeeee@ @@@ఠ"swegUUegUU@e%A@@(@@@B@ఠ#locegUVegUV@e&A@@^S@@@B@@@CegUV@@ @@ @@@@@ఠ*consts_lhseiV V,eiV V6@fEA@@T[@@@D]@D@@@D]@D3feefffff@ LE@F@G>7@8@91*@+@,@@@@ఠ*consts_rhsfiV V8fiV VB@f'FA@@U`:@@@D]@D@@@D]@D@@/@@@/@@@D%@డd$List%splitf7iV VEf8iV VI@ f;iV VJf<iV VO@@T@@@T@J@-@@D@@@D@TT@@@D@UԠ;@@@D@@D@@DT@@ఐ"swfeiV VPffiV VR@]@@@@@D@Dh@)sw_constsfqiV VSfriV V\@3)sw_consts@@@^@@@@@`@@@@@@@@@@A3,sw_numconsts[@@@@@@@Aa-Z--a.Z--@@a.@!3,sw_numblocks![@@@@@B@Aa7\.J.Na8\.J.`@@a0@3)sw_blocks+_@[@@@@`@@@@@@@@@@C)@AaO]..aP]..@@b 1@3-sw_failactionC `@@@@@@@@D7@Aa]^..a^^..@@b2@@Aaa[..ab[..1@@b/@dW@@U#@֠@@@D@@@D^@D^@D@@f@@@堠@@@D^@D@A@fiV V(p@@@@ఠ*blocks_lhsfjV`VlfjV`Vv@gGA@@US@@@D]@D@@@D]@D3ffffffff@ @ @ @@@@@@ఠ*blocks_rhsg jV`Vxg jV`V@gHA@@Va2@@@D]@D@@@D]@D@@,@@@,@@@D#@డe$List%splitg/jV`Vg0jV`V@ g3jV`Vg4jV`V@@U@@@U@G@-@@D@@@D@UQ@@@D@V̠;@@@D@@D@@DR@@ఐ"swg]jV`Vg^jV`V@U@@@@@D@Df@)sw_blocksgijV`VgjjV`V@Ͱ@@UƠ@~@d@@D@@@D^@D^@D{@@L@@@@s@@D^@D@A@gjV`Vh@@@ఠ"l1glVVglVV@gIA@@ ]@D3gggggggg@@@@@@@@ఐ(traverseglVVglVV@@@@@@@D@@D@@ఐE#ctxglVVglVV@ ԰@@o"@@ఐ"l1glVVglVV@@@^@D1@@$@@2@A@glVV@@v$let+gmVVgmVV@@@@ W@FW@EW@D젠@W@D@@D@ .W@FW@EW@D@@D]@D@@@D]@D@@ W@E\@D@@D5 ]@D@@@D]@D@@D@@D]@Dఐ Π+choice_listh mVVh mVW@ Ұ@@@   @  @@E@@E@@E3hhhhhhhh@@@@@@@ఐ#ctxh"mVWh#mVW@ C@@@ ఐ V$tailh/mVWh0mVW @ >@@@@ఐ(*consts_rhsh<mVW h=mVW@;@@ W@^SW@E-@@7@@ .@uhDtXrX@$and+hKnWWhLnWW#@@'@@@3@'@@@3@'@'@@3@@@3@@3@@3@( @( @W@E W@E@@@E ]@E @ @@@E ]@E @@@@E@@@E]@E@@E@@E]@EఐP+choice_listhnWW1hnWW<@T@@@ROM@JB@@E$@@E#@@E"@@ఐ3#ctxhnWW=hnWW@@ °@@]@`ఐ ՠ$tailhnWWBhnWWF@ @@c@@ఐ*blocks_rhshnWWGhnWWQ@%@@W@E.@@3@@l@hmVV@p$and+hoWRWZhoWRW^@~@@@@@EI\@E3\@D@@@D]@E@W@D@@@D]@D!@@ @@D@@@D]@E@@E@@E]@DఐX-choice_optionhoWRWohoWRW|@\@@@ZWU@RG@@E7@@E6@@E5@@ఐ#ctxioWRW}ioWRW@1@@@hఐD$tailioWRWioWRW@,@@ @@ఐ\"swi,oWRWi-oWRW@$@@@@@EE@EB@-sw_failactioni8oWRWi9oWRW@@@W@_W@EC)@@B@@*@~@@'@@ఠ*consts_rhsiPmVV@ibJA@@uW@EW@EuW@Ez@ESE@@ఠ*blocks_rhs ibnWW$icnWW.@iuKA@@@ETR@@A@@@@@EWY@@ఠ-sw_failaction ivoWRW_iwoWRWl@iLA@@@EOf@@A@@@1@ @@EZ@@@EYs@@@@ఠ)sw_consts iqWWiqWW@iMA@@_@@@@Ex^@Ee@MW@FW@EW@EW@Ef@@Et@@@Es^@E_3iiiiiiii@ga@b@cVO@P@QC<@=@>@@@డh($List'combineiqWWiqWW@ iqWWiqWW@@@_!a@@@@@@|!b@@@@?H@@@@>@@@=@@<@@;@_==_=>$@@_A@,'@@@$T@@@Eh@S@@@Egc@b@]@@Ed@@@Ec@@Eb@@EaV@@ఐ*consts_lhsjqWWjqWW@@@Iy@@@Ev_@Ey_@Ewk@@ఐԠ*consts_rhsj$qWWj%qWW@s@@x@@e@@y@A@j)qWW@@@ఠ)sw_blocks j4rWWj5rWX@jGNA@@@@@@E^@E@@@E@@@E^@E{3jDjCjCjDjDjDjDjD@@@@@@డh$List'combinejYrWXjZrWX @ j]rWX j^rWX@@@@@%@@@E@ @@@Eՠ@3@@@E@@@E@@E~@@E}.@@ఐ*blocks_lhsjrWXjrWX@@@J@@@E_@E_@EC@@ఐ4*blocks_rhsjrWXjrWX)@@@3P@@A@@`Q@A@jrWW@@@ఠ"sw jsX-X9jsX-X;@jOA@@@@@E^@E3jjjjjjjj@gz@{@|@@@Р,-@@@E^@E@J)sw_constsjsX-XHjsX-XQAఐ9 @@T@@@@E@1W@EW@E@@E@@@E^@E-@IJ@@@E^@E@F)sw_blocksjsX-XSjsX-X\Aఐ @@@S@R@@@E@T@@E@@@E^@EQ@K-sw_failactionksX-X^ksX-XkAఐ @Y@_@@ఐF"swksX-X@ksX-XB@@@q@@@E^@E^@Eq@k!sX-X>k"sX-Xn@@yt@A@k$sX-X5@@ภ'Lswitchk+tXrXzk,tXrX@ఐ"l1k5tXrXk6tXrX@ @@3k3k2k2k3k3k3k3k3@@@@@@ఐ"swkCtXrXkDtXrX@ @@@@@E]@E]@E@ఐw#lockUtXrXkVtXrX@L@@c@@@E]@E]@E'@@5@@e{@@@E+@@ @@@!@@@="@@n@A#@@`W@E3kdkckckdkdkdkdkd@T@@@'@@@(@@m@)@@h@Ġ-LstringswitchkwuXXkxuXX@;-Lstringswitche @e@@@Rc@&stringQ@@@U@e@@@V@@T@@@SϠe@@@X@@@Wd@@@Y@DJ@V@Af>1( (f?2("(i@@@f@ఠ"l1kuXXkuXX@k'A@@e@@@B3kkkkkkkk@@@@ఠ%caseskuXXkuXX@k(A@@?@>@@@B@e@@@B@@B@@@B@ఠ$failkuXXkuXX@k)A@@e@@@B@@@B.@ఠ#lockuXXkuXX@k*A@@d]@@@B<@@@ykuXX@@>@@>@@@@@ఠ)cases_lhskwXXlwXX@lPA@@Z@@@F]@F@@@F]@E3l lll l l l l @kd@e@f]V@W@XC<@=@>2+@,@-@@@@ఠ)cases_rhslwXXl wXX@l2QA@@[fE@@@F]@F@@@F]@E @@0@@@0@@@E'@డj$List%splitlBwXXlCwXX@ lFwXXlGwXY@@Z@@@Z@K@-@@F@@@F@ZU@@@F@[ߠ;@@@F@@F@@FV@@ఐ%caseslnwXYlowXY @\@@Zˠ@t@V@@F@@@F^@F^@Fq@@>@@@@e@@F^@Fz@A@lwXX@@@ఠ"l1lyY%Y1lyY%Y3@lRA@@]@F3llllllll@@@{@|@}@@@ఐ(traverselyY%Y6lyY%Y>@@@@@@@F @@F@@ఐJ#ctxlyY%Y?lyY%YB@ٰ@@t"@@ఐ"l1lyY%YClyY%YE@@@^@F'1@@$@@2@A@lyY%Y-@@{$let+lzYIYQlzYIYU@@@\@F/@$\@F0@@F1]@F-@@@F.]@F5@@  W@F\@F2@@F3+ ]@F+@@@F*]@F4@@F6@@F7]@F(ఐĠ+choice_listmzYIYbmzYIYm@Ȱ@@@@@@FH@@FG@@FF3mmmmmmmm@s}v@w@x@@@@ఐ#ctxmzYIYnmzYIYq@9@@@אఐL$tailm%zYIYsm&zYIYw@4@@@@ఐ)cases_rhsm2zYIYxm3zYIY@@@W@FR,@@6@@-@em9~ZZ0@$and+m@{YYmA{YY@@@@@F?]@FA@@@@F>]@F@@@@@F;@@@F:]@FB@@FC@@FD]@F8ఐĠ-choice_optionmi{YYmj{YY@Ȱ@@@@@@FX@@FW@@FVg@@ఐ#ctxm|{YYm}{YY@@@8t@Ԑఐ$tailm{YYm{YY@@@>@@ఐ$failm{YYm{YY@@@`W@Fb@@3@@@mzYIYV@@+w@ఠ)cases_rhs mzYIY_@mSA@@@Fj@@ఠ$failm{YYm{YY@mTA@@@Fk@@A@@@@@Fo@@@@ఠ%casesm}YYm}YY@mUA@@:@S@@@F^@Fy@@@F@@@F^@Fs3mmmmmmmm@>8@9@:3,@-@.@@@డlX$List'combinem}YYm}YY@ m}YYm}YY@@0@@@0'@@@F|@@@@F{o@5@@@Fx@@@Fw@@Fv@@Fu0@@ఐ)cases_lhsn}YYn}YY@@@UL@@@F_@F_@FE@@ఐ)cases_rhsn0}YYn1}YZ@N@@R@@A@@bS@A@n5}YY@@ภ-Lstringswitchn<~ZZ n=~ZZ@Šఐ"l1nF~ZZnG~ZZ@;@@3nDnCnCnDnDnDnDnD@i|@}@~@@@ఐ%casesnT~ZZnU~ZZ$@ @@۠@@@@F@@@F@@@F]@F]@F@ఐ$failnp~ZZ&nq~ZZ*@@@*@ఐ#locn{~ZZ,n|~ZZ/@g@@f@@@F]@F]@F<@@JM@@h@@@F@@UQ@@@AR@@W@F3nnnnnnnn@@@@V@@@W@@8@Ġ,LstaticraisenZ1Z7nZ1ZC@;,Lstaticraiseh.@c@@@Zg h@@@\@@@[@BK@V@AiJ3(j(liK3(j(@@@j@ఠ"idnZ1ZEnZ1ZG@n+A@@@@@B3nnnnnnnn@@@@ఠ"lsnZ1ZInZ1ZK@n,A@@'h@@@B@@@B@@@9nZ1ZL@@@@@@@@ఠ"lsnZPZ\nZPZ^@nVA@@T@]T@FT@FT@F3nnnnnnnn@81@2@3*#@$@%@@@ఐ-traverse_listnZPZanZPZn@@@@@@@F@@F@@ఐ#ctxoZPZoo ZPZr@)@@"@@ఐN"lsoZPZsoZPZu@*@@/@@"@@0@A@oZPZX@@డ9&lambda&Choiceo(ZyZo)ZyZ@ o,ZyZo-ZyZ@@[@@@[@@@FlZ@@@F@@@F@@F3o7o6o6o7o7o7o7o7@Td]@^@_@@@@ภ,LstaticraiseoHZyZoIZyZ@ఐ"idoRZyZoSZyZ@h@@@@@F]@F]@F @ఐ"lsodZyZoeZyZ@(@@+@@ohZyZoiZyZ@@@@@F]@F3@@H@@iW@F6@Y @@@Ġ(Ltrywitho}ZZo~ZZ@;(Ltrywithi@i@@@ei!t@@@fi@@@g@CM@V@Aj.5((j/5()@@@j@ఠ"l1oZZoZZ@o-A@@i@@@B3oooooooo@@@@ఠ"idoZZoZZ@o.A@@)@@@B@ఠ"l2oZZoZZ@o/A@@i@@@B@@@DoZZ@@m@@m@@@p$let+o[k[so[k[w@@@\@Fࠠ@\@F@@F]@F@@@F]@F@@ W@G)\@F@@F  ]@F@@@F]@F@@F@@F]@Fఐ&choiceo[k[}o[k[@|@@@D@@@F@@F@@F3oooooooo@le@f@g^W@X@YQJ@K@L@@@@ఐ#ctxp[k[p[k[@2@@@\ภ^ڰp[k[p[k[@^@@@W@VW@VW@SW@G]@G(@@ఐ"l1p2[k[p3[k[@0@@p]@G7@@A@@8@pp9[[@$and+p@[[pA[[@@SW@F@@@F]@F@UW@F@@@F]@F@@ @@F@@@F]@F@@F@@F]@Fఐ+&choicepl[[pm[[@@@@*%@ @@G @@G @@G u@@ఐ#ctxp[[p[[@@@;@ʐఐ$tailp[[p[[@@@A@@ఐࠐ"l2p[[p[[@@@]@G@@3@@G@p[k[x@@.z@ఠ"l1 p[k[z@pWA@@@G@@ఠ"l2p[[p[[@pXA@@@G@@A@@@@@G!@@@ภ(Ltrywithp[[p[[@Nఐ("l1p[[p[[@(@)@*@@)3pppppppp@3' @!@"@@@ఐ:"idp[[p[[@@@f@@@G,]@G0]@G/@ఐ>"l2p[[p[[@@@=!@@0@@"@A3@@3pppppppp@@@@Ġ,Lstaticcatchq[[q[[@;,Lstaticcatchj@k'@@@]@f#@@@_@i@j!t@@@b@l@@@c@@a@@@`@@^kJ@@@d@CL@V@Ak4((k4((@@@l@ఠ"l1q>[[q?[[@qQ0A@@k]@@@B3q@q?q?q@q@q@q@q@@B@@@ఠ#idsqM[[qN[[@q`1A@@@A@@@B@@@?@@@B@l@@@B@@B@@@B@@B%@ఠ"l2qq[[qr[[@q2A@@k@@@B3@@@rqy[[@@%5@@%5@@@!($let+q\j\rq\j\v@@@\@G:@\@G;@@G<]@G8@@@G9]@G@@@ W@G\@G=@@G>ؠ ]@G6@@@G5]@G?@@GA@@GB]@G3ఐn&choiceq\j\|q\j\@4@@@mh@c`@@GS@@GR@@GQ3qqqqqqqq@{@|@}tm@n@oQJ@K@L@@@@ఐ[#ctxq\j\q\j\@@@@ఐ$tailq\j\q\j\@@@!@@ఐ"l1q\j\q\j\@)@@!]@G]0@@:@@1@iq\\@!$and+q\\q\\@ @0W@GG@@@GJ]@GL@:W@GH@@@GI]@GKA@@ @@GF@@@GE]@GM@@GN@@GO]@GCఐܠ&choicer\\r\\@@@@j@@@Gb@@Ga@@G`n@@ఐ #ctxr0\\r1\\@Q@@{@{ఐd$tailr=\\r>\\@L@@@@ఐ٠"l2rJ\\rK\\@@@]@Gl@@3@@@rQ\j\w@@0+@ఠ"l1 r^\j\y@rpYA@@_@Gs@@ఠ"l2rj\\rk\\@r}ZA@@h@Gt@@A@@@@@Gx@@@ภ,Lstaticcatchr|\\r}\\@uఐ("l1r\\r\\@(@)@*@@)3rrrrrrrr@3' @!@"@@@ఐI#idsr\\r\\@۰@@@@@@G@@@@@G@n @@@G@@G@@@G@@G]@G]@G,@ఐT"l2r\\r\\@3@@S7@@F@@'8@AB@@k3rrrrrrrr@ @@@Ġ&Leventr\\r\\@;&Leventlb@l@@@|n/,lambda_event@@@}@BT@V@Amz>**m{>**@@@n4@ఠ#lamr\\r\\@r3A@@m@@@B3rrrrrrrr@@@@ఠ#levr\\r\\@s 4A@@$@@@B@@@1r\\@@@@@@@"$let+s\\s\]@5@F]@G@@@G]@G@@W@GW@G\@G@@GV ]@G@@@G]@G@@G@@G]@Gఐ점&choices-\] s.\]@@@@z@@@G@@G@@G3s1s0s0s1s1s1s1s1@5UN@O@PG@@A@B@@@@ఐנ#ctxsE\]sF\]@f@@@ఐy$tailsR\]sS\]@a@@@@ఐw#lams_\]s`\]@(@@]@G.@@8@@ /@_sf]"];@@#lamsn\]so\]@s[A@@Z<@@@ภ&Leventsx]"]*sy]"]0@ఐ#lams]"]2s]"]5@m@@@@n3ssssssss@Q!@@@ఐ#levs]"]7s]"]:@X@@@@@G]@G]@G@@#5@@@A6@@D3ssssssss@f@@@Ġ'Lifuseds]<]Bs]<]I@;'Lifusedm;@m8!t@@@~m@@@@BU@V@AnT?**nU?**@@@o@ఠ!xs]<]Ks]<]L@s5A@@@@@B@ఠ#lams]<]Ns]<]Q@s6A@@m@@@B@@@1s]<]R@@@@@@@#$let+s]V]^s]V]b@@]@G@@@G]@G@@W@GW@G\@G@@G/ ]@G@@@G]@G@@G@@G]@GఐŠ&choicet]V]it]V]o@@@@S@@@G@@G@@G3t t t t t t t t @TM@N@OG@@A@B@@@@ఐ#ctxt]V]pt]V]s@?@@@iఐR$tailt+]V]ut,]V]y@:@@@@ఐh#lamt8]V]zt9]V]}@'@@v]@G.@@8@@/@_t?]]@@#lamtG]V]ctH]V]f@tZ\A@@Z<@@@ภ'LifusedtQ]]tR]]@ఐ!xt[]]t\]]@K@@@@@G]@G]@G3t`t_t_t`t`t`t`t`@W'w@@@@@ఐ,#lamtp]]tq]]@ @@@@#5@@@A6@@3tptototptptptptp@f@@@@@Atw?OfOj9@@ @:A@@61@,)@@R@@R@@RW@R @@@t>OGOID@@@@@@@B@@B@@B3tttttttt@,@@@࣠@#ctxAt]]t]]@t`A@@3tttttttt@*@@@@@  At]]t]]@taA@@3tttttttt@9@@@@@@t]]@@%applyAt]]t]]@tbA@@"3tttttttt@*@@@@@@@@ &No_tmc\t]]t]]@#s@@@At]]@@tcA@@@@@ @3tttttttt@&>@@@@@ఠ9explicit_tailcall_requestǠt]]t]^@tdA@@c@@@S]@R3tttttttt@("@@@ఐE%applyt^ ^t^ ^@%@@c@+ap_tailcallu^ ^u^ ^)@3+ap_tailcalli@@@pc2tailcall_attribute@@@@@C3'ap_func o.@@@@@@@AoR,,oR,,@@pm(@3'ap_argsmo;@@@@@@@@A@AoS,,oS,,@@p{)@3&ap_loc"m@@@@@B@AoT,,oT,-@@p*@+3*ap_inlined+!@@@@@D&@AoV-5-9oV-5-W@@p,@3.ap_specialised4!@@@@@E/@AoW--oW--@@p-@@AoU--oU--4@@p+@KC@@=@@@R[@Ġ0Default_tailcalluU^/^9uV^/^I@;0Default_tailcallN@@@@@@@AA@Aoo@@@p@@@  @@W@@@Ru@@Z@@@Rx@@@ภd+um^/^Mun^/^R@d+@@@@Ġ4Tailcall_expectationuz^S^]u{^S^q@;4Tailcall_expectation%@!@@@@A@AA@Ap!p"=@@@p@Ġd`u^S^ru^S^v@d_@@@@@@@S@@@@@@@@S@@@@@S@@@ภdru^S^zu^S^~@dq@@@@Ġ4Tailcall_expectationu^^u^^@3Ġdsu^^u^^@ds@@@@9@@@S@@@@@@@@S@@@@@S@@@డt3%raiseu^^u^^@@#exnG@@@!a@@@&%raiseAA` @@@` ^BB` ^Bg@@` @@@@@@@@S`@S@@S@@ภ&No_tmcu^^u^^@;+t@@@R@@@1A@A)@@'@ @@.@@@S!`@S%@@7@@@@@Av^ ^@@@A@v]]@@ఐY%applyv^^v^^@9@@w3vvvvvvvv@%3,@-@.@@@'ap_funcv^^v^^@  @@p9@@@S7 @Ġ$Lvarv+^^v,^^@oఠ!fȠv4^^v5^^@vGeA@@o@@@S=3v6v5v5v6v6v6v6v6@'@@@@@@@pX@@@S>@@p[@@@S?@@@@ఠ+specializedʠvM^^vN^_@v`gA@@%@@@Sm_@SF3vQvPvPvQvQvQvQvQ@C(!@"@#@@@డr#Map$find%Identvl_ _vm_ _@ vp_ _ vq_ _#@@vu_ _$vv_ _(@ @@"(@@@5@Z!a@5@@@5@@5@@5@X@UU@@@@"9@@@SL@kC_@SJ@@@SK@@SI@@SHA@@ఐm!fv_ _)v_ _*@K@@"S@@@S\`@S[S@@ఐ#ctxv_ _+v_ _.@@@'b@+specializedv_ _/v_ _:@ϰ @@&o@@@Slm@@X@@0n@Ġ)Not_foundv_;_Lv_;_U@;)Not_found@@@@@@a A@A&_none_@@A@@aI@@@@@u@@@S@@@ ఐD$tailv_Y_jv_Y_n@,@@V@డs-prerr_warning(Locationv_t_v_t_@ v_t_w_t_@@@(Location!t@@@ 9@(Warnings!t@@@ 8$unitF@@@ 7@@ 6@@ 5@4parsing/location.mli4++4++?@@N@(#@@@ @@@S@@@@S@@@S@@S@@S@@డs/Scoped_location+to_location)DebuginfowD__wE__@ wH__wI__@@wM__wN__@ @@)Debuginfo/Scoped_location!t@@@ [(Location!t@@@ Z@@ Y@4lambda/debuginfo.mlibb@@S@'@@@@@@T@@@T@@T@@ఐǠ%applyw__w__@@@,@&ap_locw__w__@` @@o@@@T6@@w__w__@@@@@S@Td@T@@@ภ(Warningsw__w__@3Tmc_breaks_tailcallw__w_`@@;3Tmc_breaks_tailcall(Warnings!t@@@T@@@W[n@A2utils/warnings.mliySUySj@@@ V@@@@@@@Sc@Ti@@@@wj@@@Tb@Tc@Sr@@w_Y_g#@@ t@డv;%raisew`` w``%@@@@@@@Tb@T@@T@@ภ&No_tmcw``&w``,@@@@@@@Ub@U@@@@@'w``-@@@@@w_ _@@_@A@w^^@@@ఠ$argsw`;`Ix`;`M@xhA@@pr$@@@Uu@@@Ut_@U3xxxxxxxx@@@@@@@@ఠ$kindxaaxaa@x1iA@@'@@@U`@U@@ఠ%arityx/aax0aa@xBjA@@'/@@@U`@U +@@ @@@@ @@U 2@@ఐ+specializedxLaaxMaa@?@@!@@@U@UG@+direct_kindxXaaxYab@!@@7N@@ఐ+specializedxfabxgab@Y@@!@@@U@Ua@%arityxrabxsab@!Ͱ@@@h@@*@@@V@G@@Uo@A@x}aa @@డx6find_exact_application&Lambdaxbb.xbb4@ xbb5xbbK@@@%A@@@ %aritym@@@ @q r@@@ @@@ r@@@ @@@ @@@ @@ @@ @@ @sUB0B0sVBMB@@te@0+@@@%i@@@U%(&@@@U$@%r@@@U#@@@U"$Πr@@@U!@@@U @@@U@@U@@U@@U3xxxxxxxx@@@@@@@@@ఐ̠$kindxbbLxbbP@@@%@@@Ua@U=@ZఐϠ%arityxbbRxbbW@!@@g@@@U;a@U@a@U?-@@ఐ\%applyybbXybb]@<@@z<@'ap_argsybb^ybbe@ @@~s@@@@U:@@@U9a@UEa@UBN@@@@~(sK@@@U8@@@U7@@@U6Z@Ġ$Noney?bkbyy@bkb}@f@@@@@sc@@@UQ@@@UP@@@UO3yHyGyGyHyHyHyHyH@r@@@ @Lso@@@UT@@@US@@@UR @@@డw%raiseybbkbycbkb@@@@@@@Ujib@Ui@@Uh@@ภ&No_tmcyubkbyvbkb@@@@@@@Uob@Us0@@@@{1@Ġ$Someybbybb@cjఠ$argsybbybb@ykA@@s@@@U^@@@U]@@@ @@s@@@Ua@@@U`@@@U_@ @s@@@Ud@@@Uc@@@Ub@@@ఐ)$argsybbybb@(@)@*@@3yyyyyyyy@3@@@@@Aybb(@@u@F@@@A@y`;`E @@@ఠ(tailcallybbybb@ylA@@@g'@@@U_@U@@@U_@U@@U_@U3yyyyyyyy@@@@@@࣠@$tailAybbybb@zmA@@3yyyyyyyy@)ybbycc@@@@@  @@ఐ$tailzcczcc@0@@@@13zzzzzzzz@"@@@ภ4Tailcall_expectationzcczcc@ภhzcczcc@h@@@@@@U`@U@@@@@@@U@ภ0Default_tailcallz+cc4@@5@@`@U'@z0cc9@@)@C:A@__@UA@A@>@Р3D"pD@@@3DDD@@@3@@@ 3D @D@@@3D@@3@@A@AD@D3DDD@@@3@@@3@@B@AD@D3DD@@@3@@C@AD@D3D}D|@@@3@@D@AD{@Dx@AD@D&Choicez`ddzadd@#dpszeddzfdd@@డ\$make#Dpszuddzvdd!@ zydd"zzdd&@@@?zH<@@@*V@@@*UCzH:@@@*T@@@*S@@*R@H9@H6@@@?ɠ@@@U@@@UC@@@U@@@U@@U3zzzzzzzz@@@@@@@࣠$tailAzdd-zdd1@znA@@H@@@U3zzzzzzzz@@@@@zdd, @#dstAzdd3zdd6@zoA@@HH@@@U@@@U3zzzzzzzz@2'H@@@U@"@#@@@@zdd2@@ภ&Lapplyzd:dHzd:dN@֡'ap_funczd\dszd\dz@ภ$Lvarzd\d}zd\d@tఐ+specialized{d\d{d\d@@@$i@@@U@U3{{{{{{{{@8JHH@@@U@@@U@I@J@@@&dps_id{d\d{d\d@$l@@t@@@Ua@Ua@U@@- @@u>@@@Ua@U@ 'ap_args{,dd{-dd@ఐup,add_dst_args{7dd{8dd@t$@@@ukuj@@@U@@@U@zuc@@@U@@@Uv@@@U@@U@@UH@@ఐ#dst{Zdd{[dd@R@@uu@@@V@@@Vb@Vb@V`@@ఐs$args{rdd{sdd@@@zՠu@@@Ua@Vb@V@@@Vb@V b@V |@@N@@k @@@Ub@V@dt@@@V,a@V*@+ap_tailcall{dd{dd@ఐԠ(tailcall{dd{dd@@@@h@@@V@@@V@@V@@ఐ$tail{dd{de@@@i @@@Vb@V!b@V @@  @@@@@Vb@V@(@@@V3a@V1@(@@@V8a@V6@@ఐ&%apply{d:dQ{d:dV@@@"D@{d:dO{ee@@"G@@@Ua@V;@@ @@v@@@U@{dd'{ee@@A)u@@@U_@VM@@@VL_@VFB@@ @@W@U@@@U_@UK@¡&direct| ee'| ee-@࣠@wAĠXа|ee5|ee7@X@@@@Fk@@@Vl}@@@@ภ&Lapply|%e;eI|&e;eO@VvJ@@@V`@V@vT@@@V@@@V`@V@t@@@V`@V@?+ap_tailcall|Je;e]|Ke;eh@ఐ(tailcall|Ue;ek|Ve;es@@@@i@@@V}R@@@V|@@V{@@ఐà$tail|je;et|ke;ex@@@"@@@@e@@@Vya@V@C(@@@V`@V@A(@@@V`@V@@ఐѠ%apply|e;eR|e;eW@@@"@|e;eP|e;ez@@"@@@Vr`@V@@p@@v@@@Vq@|ee0|e;e{@@@F@@@VeW@V^@@Vd^@V@\)tmc_calls|ee|ee@ภt|ee|ff#Awwຠ3{ {@@@ i{@@@3{{@@A@A{@z@A{ @{ #loc|ee|ee@ఐ%apply|ee|ee@@@#52@&ap_loc|ee|ee@ @@{-@@@V^@V>@!(explicit|ee|ee@ఐ9explicit_tailcall_request|ee|ef@ٰ@@{7@@@V^@VU@@@E|ff"@@G:@@@V^@V^@V^@ภtRAt@SA@|c@@@V^@Vk@@} ee[@@GR@@@V^@Vs@á1benefits_from_dps}f%f1}f%fB@ภk} f%fE}!f%fI@k@@@GW@@@V^@V@ԡ9explicit_tailcall_request}.e}e}/e}eAఐP @ @G^@@@V^@V@@@}<cd}=fKfV@@#@H@@#^@|@@#3@M@@#@ఠ(_nontailɠ}KfWf_}LfWfg@}^fA@@wj@@@SA>@@wm@@@SBA@@@డ{%raise}^fWfk}_fWfp@@@@@@@V S_@V@@V3}c}b}b}c}c}c}c}c@U#@@@@@@ภ&No_tmc}tfWfq}ufWfw@@@@@@@V_@V@@@@#@@@A}~^^ @@#3}z}y}y}z}z}z}z}z@k@@@| @@#@Ġ&No_tmc}fxf}fxf@@@@@|@@@W@@@@ఠ0apply_no_bailout}ff}ff@}pA@@$@@@WD_@W3}}}}}}}}@@@@@ఠ+ap_tailcall}gg}gg@}qA@@@@@W`@W @ఐ %apply}gg}gg@@@$'3}}}}}}}}@@@@+ap_tailcall}gg}gg@Ű @@@@@W  @Ġ4Tailcall_expectation}gg}gg@_Ġl}gg}gh@l@@@@e@@@WE@@@@@@@@WI@@@@@WL@@ఐ O$tail}gh}gh @ 7@@$aW@ภ0Default_tailcall}gh~gh @@@@Q`@ఠ%other~ h!h-~ h!h2@~rA@@ @@@WO@@ @@@WR@@@ఐ%other~h!h6~h!h;@@@@@p3~~~~~~~~@ 2@@@@@A~$gg@@t@A@~&gg @@ xI@@@W/_@W-@  xS@@@W5@@@W4_@W1@ v@@@W9_@W7@ >+ap_tailcall~IhGh\~JhGhgAఐ @@@@ I@@@W)_@W*3~R~Q~Q~R~R~R~R~R@ h@@@ )*@@@W?_@W=@ '*@@@WC_@WA@@ఐ %apply~ohGhQ~phGhV@ @@$@~shGhO~thGhi@@@P@@@A@~wff@@РDBp^@W@@@W^@W@C&direct~hh~hh@࣠@zZAĠ[Q~hh~hh@[P@@@@H@@@Wm3~~~~~~~~@  @@@@@@  @@ภ&Lapply~hh~hh@ ڠఐ0apply_no_bailout~hh~hh@@@%@@@Ws`@Wu`@Wt@@ @@x@@@Wr#@~hh~hh@@@I@@@WfW@Wq_@W^@@We^@Wx1@II@@@W@@@W^@W@I@@@W^@W@I @@@W^@W@@డI&lambda&Choice~hmhv~hmh|@ ~hmh}~hmh@@")@@@")@@@WJ':"(@@@WI@@@WH@@WGl@@ภ&Lapplyhmhhmh@!Dఐ e%applyhmhhmh@ E@@%@@!hmh"hmh@@"N@@@WS`@WX@@)hmhu*hmh@@'f ^@W@@@W^@W^@W}@6hmhs7hh@@%@@@%@@@:]]@@%@<]]@@%387788888@ e@@@ A@@%%%@%%@@W@@W@@WW@W @@@H]]@%%%C%B@%A%D@@%%%@%}@%`@%W%R@@B @@B @@B@@B@@B3TSSTTTTT@%@@@࣠@#ctxAehhfhh@xsA@@%3dccddddd@%@@@@@%{6A@qhhrhh@@%3nmmnnnnn@%%@@@@@@whh@@{C A@ఠ#taghhhh@tA@@%@@ఠ$flaghihi@uA@@%#@@ఠ%shapehihi @vA@@%/@@hhhi @@@%ˠ@%Ơ@%@@W:@@  @@)blockargsAhihi@wA@@%3@K=%@7@82%@,@-'%@!@"@@@@  @@#locAhihi@xA@@%3@"%@@@@@@@@@ఠ'choicesii&ii-@yA@@4&@]@W@@@W]@W3@'%@@@@@డ~_$List#mapii0ii4@ ii5ii8@@5@@@@!A]@W @@W@5@@@W5)@@@W@@W@@W(@@ఐ&ݠ&choiceii:ii@@&@@@&(k&@&&@@W@@W@@W=@@ఐϠ#ctx1iiA2iiD@@@&jJ@(|ภn<iiK=iiP@n@@@&`@WW@@Bii9CiiQ@@@&&@@W\@@ఐ)blockargsPiiRQii[@@@&\i@@Z@@oj@A@Uii"@@డK$:find_nonambiguous_tmc_call&Choiceei_iifi_io@ ii_ipji_i@@@ˠ(9@@@3@@@3(:9@@@3@@3@9@9@@@۠(!UW@X@@@X@@@X@@@X@@X3@@@@@@@ఐ'choicesi_ii_i@ @@&@@@X^@X^@X@@@ @@.#@@@X @Ġ&Choiceiiii@+No_tmc_calliiii@@;:G:@@@3@::@@@3@A@@C@A:@@:ఠ$argsiiii@zA@@:Ϡ!`@X@@@X3@M@@@@@& @@dY@@@X@@h]@@@X @@@డK&lambda&Choiceiiii@ iiii@@$#@@@$#@@@Xs)4$"@@@Xr@@@Xq@@Xp3@y;4@5@6@@@@ภ%Lprimiiii@yภ*Pmakeblockiiii@v-ఐ#tag#ii$ii@f@@'H"@ఐ$flag.ii/ii@p@@'L-@ఐ%shape9ii:ii@z@@'O8@@$=ii@@y@@@X_@X?@ఐ|$argsKiiLii@G@@yΠ"=@@@X_@X_@XR@ఐ#loc^ii_ij@t@@'_]@@Rbij@@$@@@X|_@Xd@@y@@'be@Ġ&Choiceujj vjj@)Ambiguouszjj{jj@@;;[@ ;`;@@@3@AB@C@A;A@;A;d@@;b@@@3;a@;^;]@@;[)ʠ;Y@@@3@@@3;W@;T@BA@O@B@@@k@@@A;Uঠ(explicitjjjj$A3;)'@@X$ @@@3;y@@AA;l@;iA;@;}ఠ   @{A@;@@@X03@*@@@(subtermsjj&jj.@3;A?@@X&3@@A3;:@@@-A;@;-A;@;ఠ2ambiguous_subtermsjj1jjC@|A@@;* "`@X3@@@X;@@@X:"@@@jjjjE@@^"`@X@@@X=_@X<-@@@o @@mb@@@XB2@@qf@@@XC6@@@@ఠ+term_choicepppp@ A@@*3|@@@X`@X@@@X_@X3@{YV@X@WB;@<@=@@@1$let+pppp@#?@*Pz# @@@X_@X_@X`@X@@@X`@X@@ ,_@X@@X*e2@@@X`@X@@X@@X`@XడL$list&Choice?pp@pp@ CppDpp@@@?F*?D@@@3@@@3*?=?<@@@3@@@3@@3@?Y@?Z@@@?Y*#2W@X@@@X@@@X*?Q @@@X@@@X@@X3hgghhhhh@h@@@@ఐ'choicesxppypp@@@?|(@@@X`@X`@X@@E @@*m@@@X`@X@z pq@@$argspppp@A@@y*@@@ภ%Lprim pp pp@{$ภ*Pmakeblock pp pp@wఐ*#tag pp pp@@@(3@)@ @!@@@ఐ,$flag pp pp@@@(@ఐ+%shape pp pp@ @@(@@' pp@@{R@@@X`@X @ఐK$args pp pp@(@@+@ఐ#loc pp pp@@@(6@@M_@@7@A`@@@A@ppb@@Р&Choice q'q1 q'q7@#dps q'q8 q'q;@@డd$make#Dps  q'q> q'qA@  q'qB q'qF@@@@@HN@@@X@@@XL-@@@X@@@X@@X3      @!5.@/@0@@@@࣠$tail~ A@5 q'qR6 q'qS@@Q3@@@Y354455555@@@@@< q'qL@#dst A@E q'qYF q'qZ@@Q;Q:@@@Y @@@Y@@O q'qT @@@ఠ)arguments[ q^qn\ q^qw@nA@@(@@@YOb@Y#+@@ఠ$infooqzqpqzq@A@@@NC!t&lambda@@@Y.@@@Y-c@Y%@@@Y3c@Y&@@Y'c@Y$Q@࣠@!tA@qzqqzq@@@@@Y0@@@Y/3@{5qzqqq@@@@@A/г2&Choiceqzqqzq@9qzqqzq@@г<=qzqqzq@@C@@@Y(&@@@M@@@Y*+ @@qzqqzq@@@U/@@@@ຐ3@@@ x@@@@A@̡)tmc_callsqqqq@ఐW!tqqqq@U@X@F@@,'v@@@Y@d@YD@@@YCd@Y?3@[l@@@)tmc_callsqqqq@ @@@@@Y=@@@Yrr?rs@@r@@@Yb@Y@@@@@@@ @H q'qGIss@@J @@@Y_@Y@@@Y_@Y@@I @@ &1W@YW@X{W@Y_@X@@@X_@Y*@ "@O@@@Y^@Y@@Y^@Y@ 'OO@@@Y@@@Y^@Y@ *O@@@Y^@Y@ -O@@@Y^@Y@@ఐ+term_choice q q q q!@k@@-Π;^@Y@@@Y^@Y^@Yx@ q qss%@@+f@@@+@Ġ&Choices&s,s&s2@,Nonambiguouss&s3s&s?@@;?@-?Π?@@@3@AA@C@A?@@?ঠ&Choices&sBs&sH@*rev_befores&sIs&sS@A3>? @@@3>>@@@3@@@ 3> .>@@@3@@A@A>@>3>>>@@@3@@B @A>@>@A?@?ఠ!@}A@?&`@XK@@@XNc@&choices&sUs&s[Aఠ@ ~A@.4&`@XP@@@XSv@%afters&s] s&sbA+ఠ@ A@?&`@XU@@@XX@@@s&s@s&sd@@c' `@XG@@@XZ_@XY@@@t @@@@@X[@@@@@X\@@@@ఠ&constr 3shst4shsz@FA@@fq@@@Y_@Y376677777@ZW@Y@XHE@G@F63@5@4@@@ Р}&ConstrOshs}Pshs@@ 3NMMNNNNN@@@@@A3ONNOOOOO@ @@@&3QPPQQQQQ@@@3jf@@@ j@@@ @@@3j,}@@@ @@A@Aj@j3j ,y@@@ @@B @Aj@j3j~j}yj|@@@ @@@ @@C@Aj{@jx3jujtjs@@@ @@@ @@D@Ajr@jo3jl"jkjjji@@@ @@E!@Ajh@je@Aj@j#tagssssAఐ  @@,3@<@@@/$flagssssAఐ @@,@9%shapessssAఐ @@,@C&beforessss@డ'$List#revssss@ ssss@@@|!a@@@@| @@@@@@|e|e@@|M@@@@'`@Z@@@Z@@@Z@@Z[@@ఐ *rev_beforessss@@@0@@@Z a@Z"a@Z!p@@? @@k'@@@Za@Zw@%after  ss ssAఐ @@k'@@@Z+`@Z-@#loc!!st"!stAఐa @=@-'@@@*shs+"t t@@@@@@A@.shsp@@  డ"<><#tt8=#tt:@?b@@@QQ@@@ZI@@@ZH_@Z=@ ?@@@Z<@@Z;@@Z:3JIIJJJJJ@"@@@@@@ఐa&choice^#tt'_#tt-@@@/(B`@ZK@@@ZJ`@ZG@)tmc_callsm#tt.n#tt7@ &@@-!@@ภ^tx#tt;y#tt=@@@@:_@ZO.@@~#tt&#tt>@@t@@@ZP`@ZE6@#tt@@@@@ZR_@ZQ=@Р X#dps2vv2vv@డiC1delay_constructor#Dps2vv2vv@ 2vv2vv@@@U.U-@@@*b@PàU+@@@*a@@@*`PˠU)@@@*_@@@*^@@*]@@*\@U(@U%!@@@@@@Z`@P۠@@@Z_@@@Z^P@@@Z]@@@Z\@@Z[@@ZZ3@@@@@ఐ&constr2vv2vv@@@>@@@Zp_@Zr_@Zq@@ఐ&choice2vv2vv@@@07(_@Zv@@@Zw_@Zt,@#dps 2vv 2vv@ ԰@@Q (@@@Zn_@Zx_@Zu;@@r @@ ۠W@ZT@@@ZX_@ZlD@ ܡ&Choice&%tJtT'%tJtZ@&direct+%tJt[,%tJta@@࣠@ AĠd9%tJti:%tJtk@d@@@@R@@@Ze@@@@డ#notL&tot~M&tot@>.@@@?@@@Z>.@@@Z@@Z@@ఐf&choicec&totd&tot@$@@0)Ca@Z@@@Za@Z@1benefits_from_dpsr&tots&tot@#@@?@@@Za@Za@Z-@@1 @@u@@@Za@Z3@డ%apply&Constr'tt'tt@ 'tt'tt@@gɰ@@@h@@@Z@g@@@Zg@@@Z@@Z@@ZU@@ఐ{&constr'tt'tt@_@@h@@@Za@Za@Zi@@డS&direct&Choice'tt'tt@ 'tt'tt@@@1 OS@@@3OR@@3@O_@O` @@@1)a@Z@@@Z@@Z@@ఐ렐&choice'tt'tt@@@1&@@@Zb@Zb@Z@@'tt'tt@@@@h@@a@Z@డb0with_placeholder&Constr )tt )tt@  )tt)tu@@^@@@iK@@@Z@@ll@@@Z@@@Z^@@@Z@@Z^@@@Z@@Z@@Z@@ఐ&constr1)tu2)tu@@@ip@@@Zc@Zc@Z@@3 @@@@lנl@@@Z@@@Z^<@@@Z@@Z^;@@@Z@@Z@@࣠@'new_dst A[)tu\)tu%@nA@@ll@@@Z@@@Z@@  @@ภ)Lsequencen*u)u7o*u)u@@]డT=#dps&Choice~*u)uA*u)uG@ *u)uH*u)uK@@@11@@@3@@@3OjW@@@3ObWW@@@3@@@3W.@@@3@@3@@3@@3@O@O$@@@1۠1@@@[@@@[OW@@@[O~WW@@@[@@@[@@@[ @@[ @@[ @@[ 3@njmVmU@@@Z@@@Z@h@i@@@@ఐӠ&choice*u)uL*u)uR@@@2*@@@[&c@[)c@[(@Oภx*u)uY*u)u^@x@@@W@@@[%c@[./@Oఐ'new_dst*u)ud*u)uk@9@@WW@@@[$@@@[#c@[1c@[/G@@@@#@@@[@[3c@["O@ภ$Lvar+umu+umu@ఐƠ'new_dst+umu+umu@b@@Um@@@[b@[;p@#var0+umu1+umu@e@@@@@[9b@[@b@[=~@@) @@X@@@[b@[8@@A+umu@@]@@@[@F)tu@@@mm@@@Z@@@Z_I@@@Z@@Za@[Fa@[B}@@O@@a@Z@[&tot{@@e@]%tJtd^+umu@@@T@@@ZW@Z|@@Z^@[L@ )tmc_callsn3ww o3ww@ఐ|&choicey4ww#z4ww)@:@@2+Q^@[^@@@[]^@[Z5@)tmc_calls4ww*4ww3@A@@TРT@@@[X@@@[W^@[[E@D1benefits_from_dps,uu,uu@ภy_1vv1vv@y_@@@T@@@[f^@[jZ@U9explicit_tailcall_request5w5w?5w5wX@ఐ&choice6w[wg6w[wm@{@@2+^@[u@@@[t^@[rv@9explicit_tailcall_request6w[wn6w[w@v@@T@@@[p^@[s@@@$t@tH7ww@@0@O@@0@@@0@@@Ai_ic@@03@ L@@@ @@0 @ vA@@111@1 @0@00@@\@@\@@\@@[@@[W@[ ~@@@hh@0ޠ0ް00@00@@000@0@0@00@@B@@B@@B @@B @@B 3@1@@@࣠@#ctxA9ww9ww@A@@03@1@@@@@00A09ww9ww@&A@@03@11@@@@@@9ww@@$primA%9ww&9ww@8A@@13$##$$$$$@1@@@@@@@@(primargsA69ww79ww@IA@@1354455555@1@@@@@@@@#locAG9wwH9ww@ZA@@13FEEFFFFF@1#@@@@@@@@ఐ7$primY:wwZ:ww@@@1:3WVVWWWWW@1/@@@@@Ġ*Pmakeblocki<xxj<xx@}ఠ#tagr<xx s<xx#@A@@@@@\+3tssttttt@@@@ఠ$flag<xx%<xx)@A@@@@@\,@ఠ%shape<xx+<xx0@A@@@@@\-@@@.<xx1@@1v@@1v@@@ఐ1ڠ0choice_makeblock=x5x==x5xM@1ް@@@111@1@1@11@@]?@@]>@@]=@@]<@@];3@UD=@>@?6/@0@1)"@#@$@@@@ఐ#ctx=x5xN=x5xQ@@@1@1ఐ$tail=x5xS=x5xW@@@1!@@@ఐk#tag=x5xY=x5x\@-@@2_@]S4@@ఐj$flag=x5x^=x5xb@:@@2 _@]TB@@ఐj%shape=x5xd=x5xi@G@@2_@]UP@@=x5xX=x5xj@@2)W@]VU@@ఐڠ(primargs =x5xk=x5xs@°@@1b@@ఐ֠#loc=x5xt=x5xw@@@1o@@}@@1p@Ġ'Popaque(@xx)@xx@;'Popaque@@@lo~@A@@@@@@  @@23-,,-----@@@@@2@@@@ఠ"l1=Axx>Axx@PA@@-|_@][@ఐ(primargsLAxxMAxx@@@2$3JIIJJJJJ@@@@Ġ>YBxxZBxxAఠ"l1 bBxx@tA @@-W@]^@Ġ> A @@ A@ʠ @@@]c#@@@sBxx@@2I%@@2I%@@@ఐ"l1{Bxx|Bxy@@@@@>3zyyzzzzz@$#@@@@Cyy Cyy@@2^:@@2^:@@@డ+invalid_argCyyCyy@@6@@@!a@@@@vfvf:@@vB@@@@@@@]i-b@]h@@]g\@@+choice_primCyyCyy*@@CyyCyy+@@%@@@]nb@]pb@]op@@. @@q@@@AAxx @@I@A@Axx @@3@33@@]@@]@@]3@@@@@@@ఐ#ctxDy/yHDy/yK@@@2@5Rఐ$tailDy/yMDy/yQ@@@2@@ఐ䠐"l1!Dy/yR"Dy/yT@'@@*@@4@@3+@[&EyXyz@@"l1.Dy/y</Dy/y>@AA@@V8@@@ภ%Lprim8EyXy`9EyXye@ภ'PopaqueAEyXygBEyXyn@@@@@@@]_@]3DCCDDDDD@P$p@@@@@ภXREyXyqSEyXytAఐ1"l1 \EyXys@ @@@ภA@ A@à.4@@@]_@]"@@lEyXyp@@.:@@@]_@]*@ఐ7#loc{EyXyv|EyXyy@@@3N5@@GY@@6@AZ@@3W@]3}||}}}}}@@@@^@@3O @Ġ0Pbytes_to_string`HyyaHyy@;0Pbytes_to_string@@@@o~@Aww@@@`@@@  @@4H@@4H@Ġ0Pbytes_of_stringrHyysHyy@;0Pbytes_of_string@@@Ao~@Axx@@@a@@@  @@4Z @@4Z @@ @@4[!@Ġ*PgetglobalIyyIyy@;*Pgetglobal@!t@@@@A@o~@A.{/{@@@c@@IyyIyy@@@@@\3A@@@@@4|B@@4|B@@?@@4}C@Ġ*PsetglobalIyyIyy@;*Psetglobal@8!t@@@@AAo~@AP|Q|@@@ d@@IyyIyy@@@@@\6c@@@@@4d@@4d@@a@@4e@Ġ&PfieldJyyJyy@;&Pfield)@@@@+@@@,mutable_flag@@@@CDo~@Az@{@@@@4g@@JyyJyy@@@@@\;@@@C@@@\<@@ @@@@\=@@@+@@4@@4@@@@4@Ġ/Pfield_computedJyzJyz@;/Pfield_computed]@@@Co~@AAA@@@Yh@@@  @@4@@4@@ @@4@Ġ)PsetfieldKzzKzz!@;)Psetfieldp@$@@@r@@@p@@@@CEo~@ABB @@@yi@@)Kzz"*Kzz#@@@@@\C@@@@@@\D@@ @@@@\E@@@)@@5@@5@@@@5@Ġ2Psetfield_computedBKzz&CKzz8@@GKzz9HKzz:@@@@@\I@@@@@@\J@@@ @@50@@50@@ @@51@Ġ+Pfloatfield[Lz;zA\Lz;zL@;+Pfloatfield@o@@@@AGo~@AD e gD e {@@@k@@lLz;zMmLz;zN@@@@@\M@@@@@5P@@5P@@@@5Q@Ġ.Psetfloatfield{Lz;zQ|Lz;z_@;.Psetfloatfield@@@@@@@@BHo~@A&E | ~'E | @@@l@@Lz;z`Lz;za@@@@@\Q9@@@@@@\R>@@@  @@5y?@@5y?@@< @@5z@@Ġ&PccallMzbzhMzbzn@;&Pccall@)Primitive+description@@@@AJo~@AOM N PPM N q@@@ s@@MzbzoMzbzp@@@@@\Ub@@@@@5c@@5c@@`@@5d@Ġ&PraiseNzqzwNzqz}@;&Praise(@%*raise_kind@@@@AKo~@ApO  qO  @@@*t@@Nzqz~Nzqz@@@@@\X@@@@@5@@5@@@@5@Ġ$PnotOzzOzz@;$PnotI@@@Jo~@AQ  Q  @@@Ew@@@  @@5@@5@@ @@5@Ġ'PnegintPzzPzz@;'Pnegint\@@@Ko~@AS  S  @@@Xx@@@  @@5@@5@@ @@5@Ġ'PaddintPzzPzz@;'Paddinto@@@Lo~@AS  S  @@@ky@@@  @@5@@5@@ @@5@Ġ'Psubint"Pzz#Pzz@;'Psubint@@@Mo~@AS  S  @@@~z@@@  @@6 @@6 @@ @@6 @Ġ'Pmulint5Pzz6Pzz@;'Pmulint@@@No~@AS  S  @@@{@@@  @@6@@6@@ @@6@Ġ'PdivintHPzzIPzz@;'Pdivint@'is_safe@@@@ALo~@AT  T  2@@@|@@ZPzz[Pzz@@@@@\`@@@@@6>@@6>@@@@6?@Ġ'PmodintiPzzjPzz@;'Pmodint@!@@@@AMo~@AT  3T  G@@@}@@yPzzzPzz@@.@@@\c"@@@@@6]#@@6]#@@ @@6^$@Ġ'PandintQzzQzz@;'Pandint@@@Oo~@A*U H J+U H S@@@~@@@  @@6p6@@6p6@@3 @@6q7@Ġ&PorintQzzQzz@;&Porint@@@Po~@A=U H T>U H \@@@@@@  @@6I@@6I@@F @@6J@Ġ'PxorintQzzQzz@;'Pxorint@@@Qo~@APU H ]QU H f@@@ @@@@  @@6\@@6\@@Y @@6]@Ġ'PlslintRzzRzz@;'Plslint!@@@Ro~@AcV g idV g r@@@A@@@  @@6o@@6o@@l @@6p@Ġ'PlsrintRz{Rz{@;'Plsrint4@@@So~@AvV g swV g |@@@0B@@@  @@6@@6@@ @@6@Ġ'PasrintRz{ Rz{@;'PasrintG@@@To~@AV g }V g @@@CC@@@  @@6@@6@@ @@6@Ġ(PintcompS{{S{{ @;(PintcompZ@W2integer_comparison@@@@ANo~@AW  W  @@@\D@@ S{{! S{{"@@@@@\l@@@@@6@@6@@@@6@Ġ*PoffsetintT{#{)T{#{3@;*Poffsetint{@/@@@@APo~@AZ 7 9Z 7 L@@@|H@@,T{#{4-T{#{5@@@@@\o@@@@@7@@7@@@@7@Ġ*Poffsetref;T{#{8<T{#{B@;*Poffsetref@O@@@@AQo~@A[ M O[ M b@@@I@@LT{#{CMT{#{D@@@@@\r@@@@@70@@70@@@@71@Ġ+Pintoffloat[U{E{K\U{E{V@;+Pintoffloat@@@Wo~@A] | ~] | @@@J@@@  @@7C @@7C @@ @@7D @Ġ+PfloatofintnU{E{YoU{E{d@;+Pfloatofint@@@Xo~@A] | ] | @@@K@@@  @@7V@@7V@@ @@7W@Ġ)PnegfloatV{e{kV{e{t@;)Pnegfloat@@@Yo~@A#^  $^  @@@L@@@  @@7i/@@7i/@@, @@7j0@Ġ)PabsfloatV{e{wV{e{@;)Pabsfloat@@@Zo~@A6^  7^  @@@M@@@  @@7|B@@7|B@@? @@7}C@Ġ)PaddfloatW{{W{{@;)Paddfloat@@@[o~@AI_  J_  @@@N@@@  @@7U@@7U@@R @@7V@Ġ)PsubfloatW{{W{{@;)Psubfloat@@@\o~@A\_  ]_  @@@O@@@  @@7h@@7h@@e @@7i@Ġ)PmulfloatW{{W{{@;)Pmulfloat-@@@]o~@Ao_  p_  @@@)P@@@  @@7{@@7{@@x @@7|@Ġ)PdivfloatW{{W{{@;)Pdivfloat@@@@^o~@A_  _  @@@<Q@@@  @@7@@7@@ @@7@Ġ*PfloatcompX{{X{{@;*PfloatcompS@P0float_comparison@@@@ARo~@A`  `  @@@UR@@X{{X{{@@@@@\}@@@@@7@@7@@@@7@Ġ-PstringlengthY{{Y{{@;-Pstringlengtht@@@_o~@Ab # %b # 4@@@pS@@@  @@7@@7@@ @@7@Ġ+Pstringrefu'Y{{(Y{{@;+Pstringrefu@@@`o~@Ab # 5b # B@@@T@@@  @@8@@8@@ @@8@Ġ+Pstringrefs:Y{{;Y{{@;+Pstringrefs@@@ao~@Ab # Db # Q@@@U@@@  @@8"@@8"@@ @@8#@Ġ,PbyteslengthMZ{{NZ{| @;,Pbyteslength@@@bo~@Ac R Tc R b@@@V@@@  @@85@@85@@ @@86@Ġ*Pbytesrefu`Z{|aZ{|@;*Pbytesrefu@@@co~@Ac R cc R o@@@W@@@  @@8H@@8H@@  @@8I@Ġ*PbytessetusZ{|tZ{|%@;*Pbytessetu@@@do~@Ac R pc R |@@@X@@@  @@8[!@@8[!@@ @@8\"@Ġ*PbytesrefsZ{|(Z{|2@;*Pbytesrefs@@@eo~@A(c R })c R @@@Y@@@  @@8n4@@8n4@@1 @@8o5@Ġ*PbytessetsZ{|5Z{|?@;*Pbytessets@@@fo~@A;c R <c R @@@Z@@@  @@8G@@8G@@D @@8H@Ġ,Parraylength[|@|F[|@|R@;,Parraylength @ *array_kind@@@@AUo~@ATjUj@@@]@@[|@|S[|@|T@@@@@\g@@@@@8h@@8h@@e@@8i@Ġ*Parrayrefu[|@|W[|@|a@;*Parrayrefu-@!@@@@AVo~@Asktk@@@-^@@[|@|b[|@|c@@.@@@\@@@@@8@@8@@@@8@Ġ*Parraysetu[|@|f[|@|p@;*ParraysetuL@@@@@@AWo~@All@@@L_@@[|@|q[|@|r@@M@@@\@@@@@8@@8@@@@8@Ġ*Parrayrefs [|@|u [|@|@;*Parrayrefsk@_@@@@AXo~@Amm7@@@k`@@[|@|[|@|@@l@@@\@@@@@8@@8@@@@9@Ġ*Parraysets*[|@|+[|@|@;*Parraysets@~@@@@AYo~@An8:n8T@@@a@@:[|@|;[|@|@@@@@\@@@@@9@@9@@@@9@Ġ&PisintI\||J\||@;&Pisint@@@go~@App@@@b@@@  @@91@@91@@ @@92@Ġ&Pisout\\||]\||@;&Pisout@@@ho~@Arr@@@c@@@  @@9D @@9D @@ @@9E @Ġ'Pignoreo]||p]||@;'Pignore@@@Bo~@Ayy@@@b@@@  @@9W@@9W@@ @@9X@Ġ-Pcompare_ints^||^||@;-Pcompare_ints@@@Uo~@A$Y  %Y  @@@E@@@  @@9j0@@9j0@@- @@9k1@Ġ/Pcompare_floats^||^||@;/Pcompare_floats@@@Vo~@A7Y  8Y  @@@F@@@  @@9}C@@9}C@@@ @@9~D@Ġ.Pcompare_bints^||^||@;.Pcompare_bints@-boxed_integer@@@@AOo~@APY  QY  6@@@ G@@^||^||@@@@@\c@@@@@9d@@9d@@a@@9e@Ġ)Prunstacka}"}(a}"}1@;)Prunstack)@@@Do~@AkH  lH  @@@%o@@@  @@9w@@9w@@t @@9x@Ġ(Pperforma}"}4a}"}<@;(Pperform<@@@Eo~@A~I  I  @@@8p@@@  @@9@@9@@ @@9@Ġ'Presumea}"}?a}"}F@;'PresumeO@@@Fo~@AJ  J  (@@@Kq@@@  @@9@@9@@ @@9@Ġ*Preperforma}"}Ia}"}S@;*Preperformb@@@Go~@AK ) +K ) 7@@@^r@@@  @@9@@9@@ @@9@Ġ(Pdls_geta}"}Va}"}^@;(Pdls_getu@@@mo~@A " ,@@@q@@@  @@9@@9@@ @@9@Ġ,Patomic_load(d}})d}}@;,Patomic_load@@@ko~@A@@@@@@  @@:@@:@@ @@:@Ġ*Pmakearray=g}}>g}}@;*Pmakearray@@@@N,mutable_flag@@@@BSo~@Ae  e  @@@[@@Sg}}Tg}}@@@@@\@@@@@@\ @@@! @@:< @@:< @Ġ)Pduparrayfg}}gg}}@;)Pduparray@@@@w,mutable_flag@@@@BTo~@Af  f @@@\@@|g}}}g}}@@@@@\ %@@@@@@\ *@@@! @@:e +@@:e +@@g}}g}}@@:h .@@+@@:i /@Ġ*Pduprecordj~C~Ij~C~S@;*Pduprecord@%Types5record_representation@@@@@@@BIo~@ACF  DF  @@@n@@j~C~Tj~C~U@@@@@\ V@@@@@@\ [@@@% @@: \@@: \@@Y @@: ]@Ġ*Pbintofintn~~n~~@;*Pbintofint!@@@@@AZo~@Agt.0ht.M@@@!d@@n~~n~~@@&@@@\ z@@@@@: {@@: {@@x@@: |@Ġ*Pintofbintn~~n~~@;*Pintofbint@@8@@@@A[o~@AuNPuNm@@@@e@@n~~n~~@@E@@@\ @@@@@: @@: @@@@: @Ġ(Pcvtbinto~~o~~@;(Pcvtbint_@W@@@[@@@@B\o~@Avnpvn@@@cf@@o~~o~~@@h@@@\ @@@m@@@\ @@@ @@: @@: @@ @@: @Ġ(Pnegbint'p~~(p~~@;(Pnegbint@@@@@A]o~@Aww@@@g@@7p~~8p~~@@@@@\ @@@@@; @@; @@@@; @Ġ(PaddbintFq~~Gq~@;(Paddbint@@@@@A^o~@Axx@@@h@@Vq~Wq~@@@@@\ @@@@@;: @@;: @@@@;; @Ġ(Psubbinteq~ fq~@;(Psubbint@@@@@A_o~@A y y@@@i@@uq~vq~@@@@@\ @@@@@;Y @@;Y @@@@;Z @Ġ(Pmulbintq~q~ @;(Pmulbint@@@@@A`o~@A*z+z.@@@j@@q~!q~"@@@@@\ =@@@@@;x >@@;x >@@;@@;y ?@Ġ(Pdivbintq~%q~-@;(Pdivbint@+@@@@Aao~@AK{/1L{/j@@;@@$size0@@ @@@İX{/AY{/V@@k@'is_safe1@@v@@@Űc{/Wd{/h@@l@@aA@@@@@@@@AA m@@q~.q~/@@*@@@\ y@@@3@@; z@@; z@@w@@; {@Ġ(Pmodbintq~2q~:@;(Pmodbint?@g@@@@Abo~@A|km|k@@;@@$size3@@G@@@ư|k}|k@@Nn@'is_safe4@@@@@ǰ|k|k@@Yo@@bA@@@@@@@@@A\p@@ q~; q~<@@*@@@\ @@@3@@; @@; @@@@; @Ġ(Pandbintr=Cr=K@;(Pandbint{@s@@@@Aco~@A}}@@@{q@@+r=L,r=M@@@@@\ @@@@@< @@< @@@@< @Ġ'Porbint:r=P;r=W@;'Porbint@@@@@Ado~@A~~@@@r@@Jr=XKr=Y@@@@@\ @@@@@<. @@<. @@@@;@@@u@@r=r=@@@@@\ P@@@@@< Q@@< Q@@N@@< R@Ġ(Pasrbintr=r=@;(Pasrbint@@@@@Aho~@A\<>]<Y@@@v@@r=r=@@@@@\ o@@@@@< p@@< p@@m@@< q@Ġ)Pbintcompss@;)Pbintcomp5@-@@@Π@@@@Bio~@AZ\Z@@@9w@@ss@@>@@@\ @@@@@@\ @@@ @@< @@< @@ @@< @Ġ.Pmakelazyblockz z !@;.Pmakelazyblock]@Z.lazy_block_tag@@@@ACo~@A[][@@@_f@@z "z #@@@@@\ @@@@@< @@< @@@@< @Ġ,Pbigarrayref}DJ}DV@;,Pbigarrayref~@Cz@@@Р7@@@Ѡ-bigarray_kind@@@Ҡ/bigarray_layout@@@@Djo~@A@@@x@@@}DWA}DX@@@@@\ @@@@@@\ @@ @@@@\ @@@@@@\ @@@7@@=3 @@=3 @@@@=4 @Ġ,Pbigarrayset^}D[_}Dg@;,Pbigarrayset@C@@@Ԡw@@@ՠ@@@@֠>@@@@Dko~@AT@@@y@@|}Dh}}Di@@@@@\ %@@@@@@\ *@@ @[@@@\ /@@@Z@@@\ 4@@@3@@=o 5@@=o 5@@ 2@@=p 6@Ġ,Pbigarraydim~jp~j|@;,Pbigarraydim@@@@@Alo~@AAB@@@z@@~j}~j~@@@@@\ T@@@@@= U@@= U@@ R@@= V@Ġ/Pstring_load_16@;/Pstring_load_16@D@@@@Amo~@Aab@@@{@@@@@@@] t@@@@@= u@@= u@@ r@@= v@Ġ/Pstring_load_32@;/Pstring_load_32:@D6@@@@Ano~@A @@@;|@@@@@@@] @@@@@= @@= @@ @@= @Ġ/Pstring_load_64@;/Pstring_load_64Z@DV@@@@Aoo~@A   &@@@[}@@  @@@@@] @@@@@= @@= @@ @@= @Ġ.Pbytes_load_16@;.Pbytes_load_16z@Dv@@@@Apo~@A')'A@@@{~@@+,@@@@@]  @@@@@> @@> @@ @@> @Ġ.Pbytes_load_32:;@;.Pbytes_load_32@D@@@@Aqo~@ABDB\@@@@@KL@@@@@]  @@@@@>/ @@>/ @@ @@>0 @Ġ.Pbytes_load_64Z[@;.Pbytes_load_64@D@@@@Aro~@A]_]w@@@@@kl@@@@@] @@@@@>O @@>O @@ @@>P @Ġ-Pbytes_set_16z{@;-Pbytes_set_16@D@@@@Aso~@A!xz"x@@@@@@@@@@] 4@@@@@>o 5@@>o 5@@ 2@@>p 6@Ġ-Pbytes_set_32!@;-Pbytes_set_32@D@@@@Ato~@AAB@@@@@"#@@@@@] T@@@@@> U@@> U@@ R@@> V@Ġ-Pbytes_set_64&3@;-Pbytes_set_64@E@@@@Auo~@Aab@@@@@45@@@@@] t@@@@@> u@@> u@@ r@@> v@Ġ2Pbigstring_load_166<6N@;2Pbigstring_load_16:@E6@@@@Avo~@A242P@@@;@@6O6P@@@@@] @@@@@> @@> @@ @@> @Ġ2Pbigstring_load_326S6e@;2Pbigstring_load_32Z@EV@@@@Awo~@AQSQo@@@[@@ 6f 6g@@@@@] @@@@@> @@> @@ @@> @Ġ2Pbigstring_load_646j6|@;2Pbigstring_load_64z@Ev@@@@Axo~@Aprp@@@{@@+6},6~@@@@@]! @@@@@? @@? @@ @@? @Ġ1Pbigstring_set_16:;@;1Pbigstring_set_16@E@@@@Ayo~@A@@@@@KL@@@@@]$ @@@@@?/ @@?/ @@ @@?0 @Ġ1Pbigstring_set_32Z[@;1Pbigstring_set_32@E@@@@Azo~@A@@@@@kl@@@@@]'@@@@@?O@@?O@@ @@?P@Ġ1Pbigstring_set_64z{@;1Pbigstring_set_64@E@@@@A{o~@A!"@@@@@@@@@@]*4@@@@@?o5@@?o5@@ 2@@?p6@Ġ(Pctconst@;(Pctconst@5compile_time_constant@@@@A|o~@AB C-@@@@@@@@@@]-U@@@@@?V@@?V@@ S@@?W@Ġ(Pbswap16@;(Pbswap16@@@io~@A]@B^@L@@@@@@  @@?i@@?i@@ f @@?j@Ġ'Pbbswap@;'Pbbswap.@&@@@@A}o~@AtMOuMi@@@.@@@@3@@@]1@@@@@?@@?@@ @@?@Ġ/Pint_as_pointer @;/Pint_as_pointerM@@@jo~@A@@@I@@@  @@?@@?@@  @@?@Ġ(Psequand  @;(Psequand`@@@Ho~@AQ  Q  @@@\u@@@  @@?@@?@@  @@?@Ġ'Psequor  #@;'Psequors@@@Io~@AQ  Q  @@@ov@@@  @@?@@?@@  @@?@Ġ%Ppoll&$*'$/@;%Ppoll@@@no~@A@@@@@@  @@@@@@@@  @@@@@@@ఠ(primargs;9E<9M@NA@@+Y_@]@ఐA?-traverse_listI9PJ9]@AC@@@AA@A>A6@@]@@]@@ఐX#ctxZ9^[9a@C@@@G+@@ఐ4(primargsg9bh9j@@@@?8@@"@@AQ9@A@l9A@@డe9&lambda&Choiceznv{n|@ ~n}n@@=@@@=@@@]B=@@@]@@@]@@]3@3YR@S@T@@@@ภ%Lprimnn@!ఐ$primnn@j@@@@ఐt(primargsnn@!@@s$@ఐv#locnn@^@@@/@@nn@@=@@@]_@]7@@L@@AW@]:@] @@@@@@A:ww @@@3@o@@@A@@@@@@@@@@@@@@^ @@^ @@^ @@^ @@^ W@^@@@9ww@@@@w@v@@u@x@@@@@@@@@@B@@B@@B3@A@@@࣠@#ctxA@A@@@3@A@@@@@@@A@@A@@@3@A@@@@@@@ @@%termsA@&A@@@3@@@@@@@@@@డe$list&Choice)*@ -.@@@@@X0Cm<W@^!@@@^#@@@^"CsX( @@@^ @@@^@@^3?>>?????@.:@@1@2@@@@డ$List#mapWX@ [\@@Pz@@@@AA[@^3@@^6@PtA@@@^4Ps @@@^2@@^1@@^0+@@ఐB:&choice{|@B@@@B9CB4@B/B,@@^G@@^F@@^E@@@ఐ#ctx@@@APM@Cِఐ$tail@@@AVZ@@@@@BNBK@@^Q_@@ఐ%terms@i@@Acl@@@@XB@@@^-[@^T\@^@w@@ @@AgW@^+z@ A@@AAA}@AzAr@@^d@@^c@@^bW@^_@@@@A`A`A1A0@A/A2@@A]AZAX@AUAI@@B@@B@@B3@Br@@@࣠@#ctxA @A@@Aq3@Bp@@@@@ApApAAt@A@@Ax3@BA@@@@@@@@"A@ఠ"t1 @A@@AW@^r3@$A@@@@@@ఠ"t2!@)A@@AW@^s@@@@@@ @@^v@@ @@డf$pair&Choice3"&4",@ 7"-8"1@@@@Dx`@@@3@D~`@@@3@@3D@`堠@`@@3@@@3@@3@a@a#@@@@DAW@^~@@@^@DBW@^@@@^@@^D@@ @@^}@@@^|@@^{3nmmnnnnn@jtm@n@oe^@_@`@@@@@ఐCG&choice"3"9@C @@@CFDCA@C<C9@@^@@^@@^@@ఐ#ctx":"=@@@B*+@Dఐ$tail"?"C@@@B08@@ఐ"t1"D"F@A@@E@@1@@CaF@@ఐC&choice"H"N@CI@@@CEC}@CxCu@@^@@^@@^Z@@ఐ#ctx"O"R@@@Bfg@E"ఐ$tail"T"X@ٰ@@Blt@@ఐ۠"t2"Y"[@|@@@@1@@C@@"2"\@@@CD@CD@@^[@^@@ @@BuW@^@# A@@BBB@BB@@^@@^@@^W@^'@@@ @BqBqBEBD@BCBF@@BnBkBi@BfB[@@B@@B@@B3@C@@@࣠@#ctx#A&]q']t@9A@@B3%$$%%%%%@C@@@@@BB$AB4]v5]z@GA@@B332233333@CB@@@@@@<]u@@!t%AF]{G]|@YA@@B3EDDEEEEE@B@@@@@@@@డh&option&Choice\]@ `a@@@\'E\%@@@3@@@3E\\@@@3@@@3@@3@\>@\?@@@\:ED"@@@^@@@^E\/D*@@@^@@@^@@^3@@LB@C@D@@@@డ&Option#map@ @@@@!a@_2!b@_0@@_g@B @@@_fC@@@_e@@_d@@_c@*option.mlioo@@.Stdlib__OptionI@&!@@@@C D [@_@@_@CC@@@_ @@@_@@_@@_I@@ఐD&choice@Dc@@@DF+D@DD@@_@@_@@_^@@ఐΠ#ctx@@@CLk@F<ఐ̠$tail@@@CRx@@@@@DD@@_}@@ఐ͠!t@@@C_@@@@\۠D@@@^[@_\@_@@ @@C`W@^@ A@@C~C{Cy@CvCk@@_@@_@@_W@_@@@+]_@@ఐD&choice56@D@@@DF@@@_@DFx_@@@_@@@_@@_@@_@@_3CBBCCCCC@D@@@@ఐFu#ctxST@E!@@F@F@@ఐE8!tcd@E@@F@@2@@F@)@@FE@FA@@F@FF@@_@@_T@_F@@@p=O0O0 @F}F}FlFk@FjFm@@Fz@FwFv@@A@@A3vuuvvvvv@F@@@࣠@#ctx:A@A@@F3@F@@@@@@Ġ$Llet@ఠ"lk;@A@@%@@@`3@F(F@@ @@@ఠ"vk<@A@@ @@@`@ఠ#var=@A@@:@@@`@ఠ#def>@A@@@@@`-@ఠ$body?@A@@@@@` ;@@@L@@F=@@@@@ఠ#ctxC@A@@EX@`3@Vb[@\@]RK@L@ME>@?@@81@2@3+$@%@&@@@@ఠ(bindingsD  @A@@<X@`@@@@@@@@`@ఐF,traverse_let" .@F@@@F@F@F@Fݠ@F@@`$@@`#@@`"@@`!7@@ఐ#ctx8/92@@@G<D@@ఐ#varE3F6@H@@<Y@`0S@@ఐ#defT7U:@V@@<Y@`1b@@;@@@k@T@@`2Y@`/k@A@c@@@ఠ$bodyEn>Ho>L@A@@BX@`33nmmnnnnn@~@@qj@k@l@@@ఐG(traverse>O>W@G@@@G@GG@@`6@@`5@@ఐ#ctx>X>[@@@"@@ఐŠ$body>\>`@@@FMY@`=1@@$@@G2@A@>D@@ఐN=%lletsdjdo@L@@@7@@@`I@@@@`H@@>@@@`F@@@@`G@@`E@@@`D@@@@`C@@`B@@`A@@`@@@`?3@ble@f@g@@@@ఐB"lkdpdr@@@j@@@`cX@`eX@`d@@ఐE"vkdsdu@@@T@@@`bX@`gX@`f+@@ఐ(bindings dv d~@@@8@@ఐ$bodydd@B@@E@@j@@CF@u@@C@@@H%@Ġ'Lletrec$%@;Ѡఠ(bindings@-.@@A@@GG@@@`@@@`332233333@@@@ఠ$bodyA@A@SA@@_@@@`@@@$H@@HE@@@@@ఠ#ctxFWX@jA@@GX@`n3XWWXXXXX@70@1@2%@@ @@@@ఠ(bindingsGjk@}A@@;X@`o@@@@@@@@`r@ఐH/traverse_letrec@H@@@H@H@H@H@@`v@@`u@@`t/@@ఐ#ctx@@@H<@@ఐv(bindings@E@@;T@`K@@*@@@T@C@@`Y@`~T@A@@@ภ'Lletrec@>l>?6@@%Z@@@@@@@@`@@@`@@`@N@@@`N@@@`@@`@@`3@;GI@>@?@@@@ఐI(traverse]n]v@I@@@I@II@@`@@`@@ఐp#ctx]w]z@Z@@I#@@ ]m ]{@@@J J@@`(@@ఐs$lfun]|]@2@@I5@@b@@IT@cT@`9@A@@J@J J@@a@@aT@a@@@&;;@JJII@II@@I@I@I@I蠠@I@@A@@A@@A@@A343344444@Jf@@@࣠@)outer_ctxJAEF@XA@@J3DCCDDDDD@Jd@@@@@@#varKATU@gA@@J 3SRRSSSSS@JtJ*@@@@@@@@#defLAef@xA@@J(3dccddddd@J4@@@@@@@@@ఠ)inner_ctxMxy@A@@JKX@a3yxxyyyyy@"J@@@@@@ఐNQ/declare_binding@J@@@NL@@@a"@@NE@@@a$@@@@a%@@a#@@a!@@a "@@ఐh)outer_ctx@R@@J|/@@@ఐj#var@R@@J@@@ఐe#def@I@@JL@@@@@N@@@a2@J@@a1Y@aAZ@@O @@J[@A@@@@ఠ(bindingsN@A@@J;T@aF3@mxq@r@s@@@ఐJ\4traverse_let_binding @J`@@@J^@J[@JX@JTJS@@aK@@aJ@@aI@@aH@@ఐɠ)outer_ctx   @@@J$@@ఐ)inner_ctx@.@@1@@ఐԠ#var%&"@@@J>@@ఐР#def2#3&@@@JK@@@@@JL@A@7@@@ఐˠ)inner_ctxC,.D,7@Y@@3A@@AAAAA@]g`@a@b@@@@ఐm(bindingsR,9S,A@ @@l@@@@@ޠ@s@@a\@& @@s@ @@@ A@@K2@K-@K&@K@K@@aq@@ap@@ao@@anT@aj$@@@n@KKJJ@JJ@@K @K@J@J@@A@@A@@A3zyyzzzzz@K@@@࣠@#ctxOACWCZ@A@@K#3@K@@@@@@(bindingsPAC[Cc@A@@K-3@KK5@@@@@@@@@ఠ#ctxQflfo@A@@KW@a~3@"KE@@@@@డ($List)fold_leftrvrz@ r{r@@d@@@@KW@a@K\W@a@@a@@a@@ @@@a@@a@@a@@a3@*@@@@࣠@#ctxRArr@A@@!=@@@@UAঠ"idrrA3"idK@@@!t@@@@@@ 3#def Q@@@@@A@AC**C*+@@g!@@AB**B**@@k @ఠ S! @.A@@@@a3@o>U@5@6@@@#def*r+rA!ఠT@BA@Q<@@@a@@@6r7r@@K[@a@@@@ఐP /declare_bindingEF@Lr@@@P@@@a@@P@@@a@s@@@a@@a@@a@@a3VUUVVVVV@<DA@C@B1.@0@/@@@@ఐ#ctxjk@I@@@@@ఐ]"id{|@@@P-@@@a[@a(@@ภ)Lfunction@Qఐc#def@8@@Q@@@a[@a[@aD@@ @@@@@a[@aJ@@@@@P[@@@a@@@a[@aX@@o @@LY@r@@@@@@a@@aX@aX@a @@ఐA#ctx@+@@L`@@ఐ?(bindings@#@@Lh@@@@ '@A@fh@@@ఠ(bindingsV@A@@ՠL(@@@aW@a3@?JC@D@E@@@డf$List*concat_map@  @@@@!a@5LM!b@3@@@L@@K@L@@@J3@@@I@@H@@G@@@[@'"@@@@LLhLg@@@a@@a@LL@@@aJLq@@@a@@a@@aI@@ఐL7traverse_letrec_bindingF G$@L@@@L@LL@@a@@a\@@ఐ#ctxW%X(@f@@i@@[ \)@@@LL@@bn@@ఐҠ(bindingsi*j2@@@L{@@l@@|@A@n@@@ఐ͠#ctxz8:{8=@@@3xwwxxxxx@@@@@@@ఐ(bindings8?8G@ @@MT@b@@@@@⠠@ @@b @( @@@ @@@ A@@M0@M-@M@M@@b@@b@@bT@b@@@CC@MMLL@LL@@M@M@M @MM@@A@@A@@A@@A3@M@@@࣠@)outer_ctxWAIbIk@A@@M'3@M@@@@@@)inner_ctxXAIlIu@A@@M13@MM9@@@@@@@@#varYAIvIy@A@@M=3@ME@@@@@@@@#defZAIzI}@A@@MH3@MQ@@@@@@@@ఐS#.find_candidate@Q@@@%@@@b3S@@@b2@@@b1@@b03@ ,Mj@#@$@@@@ఐ3#def!"@ @@Mw@@ @@S2@@@b;@@@b:@Ġ$None67@v@@@@ѠSF@@@bE@@@bD3;::;;;;;@,@@@ @٠SN@@@bG@@@bF@@@ภSMNA@ఐ~#var[@e@@M@@ఐNl(traversehi@Np@@@Nn@NkNj@@b`@@b_/@@ఐ)outer_ctxyz@@@M<@@ఐ#def@r@@MI@@"@@NJ@@>@@N6T@bgM@ภ2FA2@GA@NET@bV@@@bZZ@bl]@@Q@@M_@Ġ$Some@ఠ$lfun[@A@@S@@@bN@@@@@RS@@@bP@@@bO@@YS@@@bR@@@bQ@@@@ఠ)functions\@A@@MT@cqT@bT@bT@bm3@1*@+@,@@@ఐN0make_dps_variant@N@@@N@N@N@N @@@bsN @@br@@bq@@bp@@bo@@ఐ$#var@ @@N]'@@ఐB)inner_ctx@*@@No4@@ఐ^)outer_ctx@H@@NA@@ఐv$lfun() @K@@NG@@@b\@b\@bU@@J @@NFV@A@4 @@డ$List#mapB$*C$.@ F$/G$2@@\e@@@@N^T@bZ@bNT@bZ@b@@b@\e @@@b\d @@@b@@b@@b3[ZZ[[[[[@@@@@@@࣠@3_A@ఠ#var]v$9w$<@A@@OBZ@b3wvvwwwww@@@@@ఠ$lfun^$>$B@A@@NT@bZ@b@@$8$C@@@@ @@b@@ @@@ఐ-#var$G$J@,@-@.@@-3@I8)"@#@$@@@@ภ)Lfunction$L$U@Tఐ8$lfun$V$Z@@@7@@@@@@@b@@"@@@O@ @@b$@$3$[@@@@@b[@b[@bX@@ఐ )functions$\$e@~@@ @@@@OT@bh@@@O7@@@A@@O9@( A@@OO@OL@OI@OEOD@@c@@c@@c@@c T@c .@@@II@ODODO.O-@O,O/@@OA@O=O<@@A@@A3@P+@@@࣠@#ctx`A g g@A@@OS3      @P)@@@@@@gAঠ"idggAఠa@4A@ @@@c3"!!"""""@PC&Oo@@@@@#def0g1gA'ఠb@HA@UB@@@c@@@<g=g@@O}@@@@ఐ#defMN@@@@@U]@@@c$@c"3QPPQQQQQ@196@8@7& @@@$attr^_@U@@U@@@c&@c#@-tmc_candidatejk@TȰ @@@@@c'V@c%@@ఠ)functionsc|}@A@@W@c(3|{{|||||@+@@@ఐO0make_dps_variant@O@@@O@O@O@O@@@c.O@@c-@@c,@@c+@@c*@@ఐ"id@L@@PnT@cA'@@ఐ#ctx@@@O4@@ఐ#ctx@@@PA@@ఐ#def@@@O@@@c>?????@F5(PL@"@#@@@>#defNOAఐ4 @@PZ@@@WX@@g@Z[@@@Ppp@@cWW@cpW@coH@@ఐ)functionslm$@l@@o@@@@PT@cUX@@@@ภy,2z,\A?ຠ"id,4,6Aఐj @4@@@@c|V@c}@#def,8,;@ఐQ2traverse_lfunction,>,P@Q@@@Q@QQ@@c@@c)@@ఐ#ctx,Q,T@@@P6@@ఐ#def,U,X@t@@QW@cE@@$@@QF@@@O,Z@@Q=T@csJ@ภp,[XAp@YA@1@@@cwV@cX@@,0a@@QT@cv\@e@@o^@fA@@Q)@Q%Q$@@c@@cT@c@@@ggn@QQPP@PP@@Q@Q@Q@Q@@@AQ @@A@@A@@A@@A3@R&@@@࣠@#varhA^s^v@A@@Q33@R$@@@@@@)inner_ctxiA^w^@'A@@Q<3@R4QE@@@@@@@@)outer_ctxjA%^&^@8A@@QH3$##$$$$$@QP@@@@@@@@$lfunkA@6^7^@@BQP@@@c376677777@ Q^@@@@@  @RAQ\@@@cY@cгQcO^P^@@@@@c@@V^W^@@@Qp@@@c@@@@@ఠ'speciallgh@zA@@Y@@@cY@c3kjjkkkkk@5C;@>@2@@@డ#Map$find%Ident@ @@@ @4 @@@V@@@@c@Sr0Y@c@@@c@@c@@c.@@ఐ#var@@@Q;@@ఐ)inner_ctx@@@QJ@+specialized@SѰ @@ZW@@@cU@@B@@+V@A@ @@@ఠ*fun_choicem@A@@SY@c3@hvo@p@q@@@ఐS?&choice@R@@@S>@S9S4@@d@@c@@ఐҠ)outer_ctx@@@R @@ఐР$lfun @@@X@@@d @d 4@$body@W@@SaZ@d =@S\ภ @@@@SeZ@dJ@@?@@ScK@A@#@@ డ!=192:@@!a@@}@@@'@@&@@%&%equalBAs@@@@rysy@@qQ@@@@uu@@@d@@@dY@d@ @@@d@@d@@d3UTTUUUUU@@@@@@@ఐ*fun_choiceij'@@@@&Choicer(s.@)tmc_callsw/x8@@11@@-!@@ภ;=@#@@@:Y@d%.@@ @@@@@d&Z@d4@డ-prerr_warning(LocationCGCO@ CPC]@@4@@@4@@@d,@4@@@d+4@@@d*@@d)@@d(V@@డ4y@@@d=@@d<@@ఐ$lfun^^@u@@X@@@dM@dK@#loc^^@Xh@@e@@@dL@@^d^@@4@@@d8@dQ[@dH@@ภ(Warnings  @4Unused_tmc_attribute@@;4Unused_tmc_attribute4k@@@V[n@A4cx 4dx6@@@4kU@@ @@5@@@d7Z@dU@@@@4b@@@dWY@dVZ@d6@@*@@ @@ఠ&directn56@HA@@YE@@@dY@dX398899999@@@@@ঠ$kindKLAXఠo@cA@X@@@d]@¶ms\]AXఠp@tA@Y@Y@@@de@@@@df@@dd@@@dc6@&returnz{AYఠq@A@@@@diG@$body@Y @@@@@@dlV@$attrAYSఠr@A@YT@@@dog@#locAY"ఠs@A@$@@@drx@@@@@Y@@@ds~@ఐ$lfun@S@@Y@@@duZ@dt@A@ @@@ఠ$bodyt  @A@@UT@eT@dT@dZ@dv3@@@@@mj@l@kNK@M@L>;@=@<@@@డw&direct&Choice  @   %@@$3@@@U<+T@dy@@@dz@@dx'@@ఐB*fun_choice & 0@@@A4@@@@5@A@  @@డ&*lfunction'#48$4B@$kindY@@@¶ms@!t@@@ꠠ@@@@@@@@@&return@@@$bodyk@@@$attrZ @@@#loc@@@Zk@@@@@@@@@@@@@@@@5566@@K@FE@@CZ@@@dA?@>@@@d@@@@d@@d@@@d;@@@d9@@@d7Z>@@@d5@@@dZ@@@d@@d@@d@@d@@d@@d@@d3@@@@@@tఐQ$kind4D4H@@@ZU@@@dZ@dZ@d@ఐT¶ms4J4P@а@@@@@@d@#@@@d@@d@@@dZ@dZ@d8@ఐW&return4R4X@@@8@@@dZ@dZ@dL@ఐ$body4Z4^@V@@Y@ఐX$attr4`4d@@@Z@@@dZ@dZ@dm@ఐ[#loc4f4i@#@@@@@dZ@dZ@d@@ @@@ @@7@O @@@A@@@@ఠ#dpsu'ms(mv@:A@@[7@@@e?Y@d3+**+++++@@@@@@@ఠ)dst_paramv=y>y@PA@@u%@@@dZ@d@@@dZ@d@ະ#varUV@డ,create_local%Identde@ hi@@)@@@)@@@dN@@@d@@dD@@#dst|}@@@@@@@@d[@d[@dX@@% @@,@@@d[@d^@&offset@డ9,create_local%Ident@ @@h@@@h@@@d@@@d@@d@@&offset@@@@@@@d[@d[@d@@% @@@#loc@ఐ$lfun@i@@[@@@d@d@#loc@[\@@Y@@@d@@@y@@@A@y}@@@ఠ#dstw @ A@@2@@@e Z@e*@@@e)Z@d3@@@@@@ະC@@@e Z@e@D&offset%@ภ&Offset$(%.@ภ$Lvar-0.4@ఐ)dst_param95:>@0@@p@@@eZ@eZ@e@@@eZ@e@@&offsetM?NE@|@@G@@Q/RF@@u@@@e Z@eO@@5@@VZ@e R@@@@e(Z@e%@@ఐ-)dst_paramjk@a@@S@@@eZ@e'@@@e&Z@e$Z@eq@{|H@@t@A@~@@డ2duplicate_function&LambdaLPLV@ LWLi@@@\@@@ E\@@@ D@@ C@9==:=>@@X@@@@\@@@e9\@@@e8@@e73@@@@@@@డ*lfunction'LmLw@@@\g@@@eQ@@@@eO@&@@@eP@@eN@@@eM,@@@eL@@@eK\@@@eJT@@@eI\@@@eH@@eG@@eF@@eE@@eD@@eC@@eB@@Ðภ'Curried@;'Curried\@@@$@@@@B@@A!D!Y!D!`@@@Q@@  @@\@@@ew[@e{[@אఐ.add_dst_params@@@@@@@e@@@e@z@@@@e@@@@e@@e@@@e{@@@e@@e~@@e}@@ఐ)dst_param<=@3@@@@@e@@@e\@e\@e@@ఐ#$lfunVW@@@]e@@@e@e@¶msbc@]@@Š@;@@@eu@@@@ev@@et[@e\@e@@@e\@e\@e@@~@@S@@@es[@e\@e@Cఐa$lfun@$@@]@@@e@e@&return!@])@@@@@er[@e[@e@^డ{y#dps&Choice"/"5@ "6"9@@'<@@@XX@@@e@@@ev~@@@ev~Ơ~@@@e@@@e'<@@@e@@e@@e@@e3@@ఐ*fun_choice"N"X@@@@@vĐภð"@"D@@@@~@@@e\@eP@vǐఐ #dst"J"M@Z@@~~@@@e@@@e\@e\@eh@@"."Y@@3@@@eq@e\@er@Ȑఐ$lfun'Zf(Zj@@@^6@@@e@e@$attr3Zk4Zo@]@@]@@@ep[@e[@e@ఐ$lfunIp{Jp@ٰ@@^X@@@e@e@#locUpVp@]̰@@@@@eo[@e[@e@@ @@^n@@@e@@e[@en@@@@;@@@<`@{@@=:@A@kmo@@@ఠ'dps_varxvw@A@@`j@@@eY@e3zyyzzzzz@P^W@X@Y@@@ఐ$'special@@@Z@@@e@e@&dps_id@Z@@@A@@@ภAg@ఐ#var@@@X3@3A:@;@<@@@@ఐ&direct@@@XX@e@@"@@XT@e@ภѰ*A@ఐb'dps_var @&@@YT@f+@@ఐ#dps@f@@XX@f9@@ @@XT@f<@ภ QA@RA@RYY@e@@@eX@f K@@2[A@[YT@e@@@eX@eT@@e@@T@@@eZ@qj@@@k@@@l@@@m@@@n@@ 9@Jo@@ @ pA@@Y@@Y<@Y9@Y4@@@f*Y2@@f)@@f(@@f'@@f&T@f!@@@ ^^@YYYY@YY@@Y@YY@@A@@A3&%%&&&&&@ZX@@@࣠@#ctxyA78@JA@@Y.365566666@ZV@@@@@@%termszAFG@YA@@Y83EDDEEEEE@ZfY@@@@@@@@@డ$List#map\]@ `a@@g@@@@YQZ V@f7@@f:@gyYX@@@f8gx @@@f6@@f5@@f43onnooooo@+7Ye@.@/@@@@ఐZ(traverse@Z@@@Z@ZZ@@fJ@@fI@@ఐ`#ctx@J@@Y#@@@@@ZZ@@fQ(@@ఐc%terms@2@@Y5@@N@@YT@fD8@vA@@Y@YY@@f[@@fZT@fXx@@@@@F@Z㠰@ఠ'rewrite{   @A@@@@@@fT@f]@@@fT@f^@@f_T@f\3@Z@@@࣠@!t}A  @A@@3@Z'  JZ@@@@@  @@@ఠ#ctx~"@A@@^@@@fgV@fb3@(8@@ @@@ຐ\+specialized ' 2@డ#Map%empty%Ident5:@ ; >@@$?%D@ @\!a@5@@@5@\@[E@ @@\ b@@@fkV@fuV@fs@@@fr?@@@>%?F@@GB@A@A@@ఐ[O(traverseKJLLJT@[S@@@_ @@@f@p@@@fs@@@f@@f@@f3VUUVVVVV@^le@f@g@@@@ఐs#ctxhJUiJX@ @@_,@@@fV@fV@f@@ఐ!t|JY@}@@#@@4@@$@?@@@A@T@f@A@@@%StyleT\c\h@AAР$Misc%Style$Misc\k\o@ \p\u@@@3@[@@@@@@\\ @ @@Ġpw{w}@o@@@@o@@@i3@6A.@1@@@డ5register_error_of_exn(Location@ @@@@#exnG@@@ &optionL<%error@@@ @@@ @@ <@@@ @@ @<y44<y44@@<_@'"@@@@@@@i@@@i@@@i@@i@@@i@@i3@I@@@@@Ġ%Error@/Cఠ#locΠ@1A@@(@@@i3      @h@@@Ġ?Ambiguous_constructor_arguments-.@/ঠ(explicit89 @0Ġ?@@@@@@@@@i @)argumentsKL A0(ఠϠ@cA@@@@i@@@i5@@@[\"@@@@@iY@i=@@@6@@`@@@iA@@@Rg#@@@@@iF@@@@ఠ)print_msgҠu'5v'>@A@@@*Format_doc)formatter@@@lQY@i$unitF@@@sY@i@@iY@i3@zs@t@uFC@E@D@@@࣠@#ppfA'?'B@A@@(3@5'1Fy@@@@@  @@డ*Format_doc'fprintf*Format_docEQE[@ E\Ec@@@G@@@k\@&Stdlib&format!a@jY@@@kZS@@@k[@@@kY@@kX@@kW@4utils/format_doc.mliQ@@by@+&@@@j@@@lC@#@*Format_doc'printer&stringQ@@@s@@@sZ@lZ@lR@ Z@lU@@@@s@@@sZ@oZ@lX@ Z@l[@2-@@@s@@sZ@qZ@l^@ Z@laZ@lb@@lcZ@l_@@l`Z@l\@@l]Z@lY@@lZZ@lV@@lWZ@lS@@lTZ@l?@@@lAh@@@lB@@@l@W@@l>@@l=3CBBCCCCC@@@@@@@ఐ#ppfUEdVEg@ @@@@ภ12chvdAภ<%Alpha> ;%AlphaŠ@@!b@@!x@!c@@@@@@ !a@@@@@ !d@!e@!f@@@@@+"@@@@AOAYAA''(.(j@@@#o@ภ7,Char_literalS;,Char_literal !a@!b@!c@!d@!e@!f@@@@@$charB@@@5)%!@@@@BLAYAA,%%-%%@@@el@z@@@@l[@l[@l@ภР.Formatting_lit;.Formatting_litY!a@&!b@'!c@(!d@)!e@*!f@+@@@@.formatting_lit@@@ ($ @@@!@BQAYAAx)()(y))@@@q@ภ%Break;%Break@@@K@@@@E@@@F@@@G@C@GC@A|  |  9@@@@@"@ @@@@@l[@l[@l @A @"@@@l[@l[@l+@@@(@@@l[@l[@l6@@@Z@@@l[@l;@ภZ[)$this.@.@@@@l[@l[@lO@ภ"no=ภ*vewEdKI@I@f@@@m [@m[@mj@AT@l@@@m [@m[@mu@@_@r@@@m [@m[@m@@f@@@@m[@m @ภX s +constructorx@x@@@@m [@m#[@m"@ภlภt@@@@@m9[@m=[@m<@A@@@@m:[@m?[@m>@@@@@@m;[@mA[@m@@@@@@@m0[@m8@ภTS+application@@8@@@mN[@mQ[@mP@ภ21ภ  @@@@@mg[@mk[@mj@A@@@@mh[@mm[@ml @@@@@@mi[@mo[@mn@@@8@@@m^[@mf@ภ89#may @ @@@@m|[@m[@m~-@ภL|M{ภTCU#B)'@'@D@@@m[@m[@mH@A2@J@@@m[@m[@mS@@=@P@@@m[@m[@m^@@D@@@@m[@mc@ภ6Q"beV@V@@@@m[@m[@mw@ภJeŠภRmsq@q@@@@m[@m[@m@A|@@@@m[@m[@m@@@@@@m[@m[@m@@@@@@m[@m@ภ̠21/TMC-transformed@@@@@m[@m[@m@ภภ֠@@@@@m[@m[@m@A@@@@m[@m[@m@@@@@@m[@m[@m@@@@@@m[@m@ภ|{"in@@`@@@n[@n [@n @ภ*Z+Yภ2!3 @@"@@@n[@n#[@n"&@A@(@@@n [@n%[@n$1@@@.@@@n![@n'[@n&<@@"@`@@@n[@nA@ภ`a/Š'several4@4@@@@n4[@n7[@n6U@ภ(tuCภ0|k}KjQO@O@l@@@nM[@nQ[@nPp@AZ@r@@@nN[@nS[@nR{@@e@x@@@nO[@nU[@nT@@l@@@@nD[@nL@ภ^y)different~@~@@@@nb[@ne[@nd@ภrภzƠ@@@@@n{[@n[@n~@A@@@@n|[@n[@n@@@@@@n}[@n[@n@@@@@@nr[@nz@ภZY%ways.@@>@@@n[@n[@n@ภ8 7ภ@@@@@n[@n[@n@A@@@@n[@n[@n@@@ @@@n[@n[@n@@@>@@@n[@n@ภ>? &Please@@@@@n[@n[@n3@ภRS!ภZI[)H/-@-@J@@@n[@n[@nN@A8@P@@@n[@n[@nY@@C@V@@@n[@n[@nd@@J@@@@n[@ni@ภ<W,disambiguate\@\@@@@n[@n[@n}@ภPkˠภXsyw@w@@@@o[@o [@o@A@@@@o[@o [@o @@@@@@o[@o [@o @@@@@@n[@o@ภҠ87"by@@@@@o[@o[@o@ภภܠ@@@@@o3[@o7[@o6@A@@@@o4[@o9[@o8@@@@@@o5[@o;[@o:@@@@@@o*[@o2@ภ&adding@@f@@@oH[@oK[@oJ@ภ0`1_ภ8'9&  @ @(@@@oa[@oe[@od,@A@.@@@ob[@og[@of7@@!@4@@@oc[@oi[@ohB@@(@f@@@oX[@o`G@ภfg5ˠ"an:@:@@@@ov[@oy[@ox[@ภ.z{Iภ6qQpWU@U@r@@@o[@o[@ov@A`@x@@@o[@o[@o@@k@~@@@o[@o[@o@@r@@@@o[@o@ภd(explicit@@@@@o[@o[@o@ภxĠภ̠@@@@@o[@o[@o@A@@@@o[@o[@o@@@@@@o[@o[@o@@@@@@o[@o@ภภhg* attribute@@L@@@o[@o[@o@ภFEภ  @@@@@p[@p[@p@A@@@@p[@p [@p @@@@@@p[@p [@p (@@@L@@@o[@p-@ภLM"to @ @@@@p[@p[@pA@ภ`a/ภhWi7V=;@;@X@@@p2[@p6[@p5\@AF@^@@@p3[@p8[@p7g@@Q@d@@@p4[@p:[@p9r@@X@@@@p)[@p1w@ภJe#thej@j@@@@pG[@pJ[@pI@ภ^y٠ภf@@@@@p`[@pd[@pc@A@@@@pa[@pf[@pe@@@@@@pb[@ph[@pg@@@@@@pW[@p_@ภFE$call@@*@@@pu[@px[@pw@ภ$#ภ@@@@@p[@p[@p@A@@@@p[@p[@p@@@@@@p[@p[@p@@@*@@@p[@p @ภ*+$that@@t@@@p[@p[@p@ภ>n? mภF5G4@@6@@@p[@p[@p:@A$@<@@@p[@p[@pE@@/@B@@@p[@p[@pP@@6@t@@@p[@pU@ภ(tuC٠&shouldH@H@@@@p[@p[@pi@ภ<WภD_~ec@c@@@@p[@p[@p@An@@@@p[@p[@p@@y@@@@p[@p[@p@@@@@@p[@p@ภr$#"be@@@@@p[@q[@q@ภҠภڠȠ@@@@@q[@q[@q@A@@@@q[@q[@q@@@@@@q[@q [@q@@@@@@q[@q@ภn m$made@@R@@@q-[@q0[@q/@ภLKภ$%@@@@@qF[@qJ[@qI@A@@@@qG[@qL[@qK#@@ @ @@@qH[@qN[@qM.@@@R@@@q=[@qE3@ภRS!/tail-recursive,&@&@@@@q[[@q^[@q]G@ภfg5ภ"n]o=\CA@A@^@@@qt[@qx[@qwb@AL@d@@@qu[@qz[@qym@@W@j@@@qv[@q|[@q{x@@^@@@@qk[@qs}@ภPk"orp@p@@@@q[@q[@q@ภdߠภl@@@@@q[@q[@q@A@@@@q[@q[@q@@@@@@q[@q[@q@@@@@@q[@q@ภcba@F@@@q[@q[@q@ภ)(ภ@@@@@q[@q[@q@A@@@@q[@q[@q @@@@@@q[@q[@q @@@/@@@q[@q @ภ/0ภ78 * attribute @ @@@@q[@r[@r ,@ภK{L zภSBT "A( &@ &@C@@@r[@r[@r G@A 1@I@@@r[@r[@r R@@ <@O@@@r[@r[@r ]@@ C@@@@r[@r b@ภ5 P"on U@ U@@@@r,[@r/[@r. v@ภI dĠภQ lr p@ p@@@@rE[@rI[@rH @A {@@@@rF[@rK[@rJ @@ @@@@rG[@rM[@rL @@ @@@@r<[@rD @ภˠ1 0%calls @ @@@@rZ[@r][@r\ @ภߠ   ภ ՠ @ @@@@rs[@rw[@rv @A @@@@rt[@ry[@rx @@ @@@@ru[@r{[@rz @@ @ @@@rj[@rr @ภ{ z$that @ @_@@@r[@r[@r @ภ) Y*  Xภ1 2    @ @ !@@@r[@r[@r %@A @ '@@@r[@r[@r 0@@ @ -@@@r[@r[@r ;@@ !@ _@@@r[@r @@ภ_` .Ġ&should 3@ 3@@@@r[@r[@r T@ภ's t B ภ/{ j| J i P N@ N@ k@@@r[@r[@r o@A Y@ q@@@r[@r[@r z@@ d@ w@@@r[@r[@r @@ k@ @@@r[@r @ภ] x#not }@ }@@@@r[@r[@r @ภq   ภyŠ     @ @ @@@r[@s[@s @A @ @@@r[@s[@s @@ @ @@@r[@s[@s @@ @ @@@r[@r @ภY X"be @ @=@@@s[@s[@s @ภ 7  6ภ     @ @ @@@s+[@s/[@s. @A @ @@@s,[@s1[@s0 @@ @ @@@s-[@s3[@s2 @@ @ =@@@s"[@s* @ภ=> ,transformed. @ @@@@s@[@sC[@sB 2@ภQdR c@ @٠ ZZ@sZ@sZ@lPZ@lZ@l\@s5 @ @sZ@sZ@sZ@lOZ@lZ@l\@s6\@s7 \@s8#\@s9&\@s:@@@sA[@sK h@@ N@.\@s$\@s3\@s6\@s9\@s<\@s@@@s#[@s? ~@@ d@D\@s:\@sI\@s L\@s O\@s R\@s @@@s[@s! @@ z@3Z\@rP\@r_\@rb\@re\@rh\@r@@@r[@s @@ @Ip\@r٠f\@rڠu\@r۠x\@rܠ{\@rݠ~\@r@@@r[@r @@ @_\@r|\@r\@r\@r\@r\@r@@@r[@r @@ @u\@r\@r\@r\@r\@r\@r@@@r[@r @@ @\@r\@r\@r\@r\@r\@r@@@r[@r @@ @\@r}\@r~\@r\@r\@r\@r@@@r[@r @@ @\@r_\@r`\@ra\@rb\@rc\@rd@@@rk[@r .@@ @͠\@rO\@rP\@rQ\@rR\@rS\@rT@@@r[[@ri D@@ *@ \@r1\@r2\@r3\@r4\@r5\@r6@@@r=[@rY Z@@ @@ \@r!\@r"%\@r#(\@r$+\@r%.\@r&@@@r-[@r; p@@ V@6\@r,\@r;\@r>\@rA\@rD\@r@@@r[@r+ @@ l@%L\@qB\@qQ\@qT\@qW\@qZ\@q@@@q[@r  @@ @;bZ@qܠPZ@q^Z@qh\@qk\@qn\@q@@@q[@q @@ @O \@qm\@q|\@q\@q\@q\@q@@@q[@q @@ @f \@q\@q\@q\@q\@q\@q@@@q[@q @@ @} \@q\@q\@q\@q\@q\@q@@@q[@q @@ @ \@q~\@q\@q\@q\@q\@q@@@q[@q @@ @ 6\@q`\@qa\@qb\@qc\@qd\@qe@@@ql[@q #@@ @  M\@qP\@qQ\@qR\@qS\@qT\@qU@@@q\[@qj :@@ @٠ d\@q2\@q3\@q4 \@q5 \@q6\@q7@@@q>[@qZ Q@@ 7@ {\@q"\@q#\@q$ \@q%#\@q&&\@q'@@@q.[@q< h@@ N@ \@q%\@q4\@q7\@q:\@q=\@q @@@q[@q, @@ e@ \@p<\@pK\@pN\@pQ\@pT\@p@@@q[@q @@ |@5 \@p֠S\@pנb\@pؠe\@p٠h\@pڠk\@p@@@p[@p @@ @L \@pƠj\@pǠy\@pȠ|\@pɠ\@pʠ\@p@@@p[@p @@ @c \@p\@p\@p\@p\@p\@p@@@p[@p @@ @z\@p\@p\@p\@p\@p\@p@@@p[@p @@ @\@pz\@p{\@p|\@p}\@p~\@p@@@p[@p @@ @3\@pj\@pk\@pl\@pm\@pn\@po@@@pv[@p @@@J\@pL\@pM\@pN\@pO\@pP\@pQ@@@pX[@pt7@@@֠a\@p<\@p=\@p>\@p? \@p@ \@pA@@@pH[@pVN@@4@x\@p \@p\@p \@p! \@p"#\@p#@@@p*[@pFe@@K@\@p"\@p1\@p4\@p7\@p:\@p@@@p[@p(|@@b@\@o9\@oH\@oK\@oN\@oQ\@o@@@o[@p@@y@2\@oP\@o_\@ob\@oe\@oh\@o@@@o[@o@@@IZ@oɠaZ@oΠoZ@o͠w\@oϠz\@oР}\@o@@@o[@o@@@^\@o|\@o\@o\@o\@o\@o@@@o[@o@@@u\@o\@o\@o\@o\@o\@o@@@o[@o@@@,\@o{\@o|\@o}\@o~\@o\@o@@@o[@o@@@C\@ok\@ol\@om\@on\@oo\@op@@@ow[@o@@@Z\@oM\@oN\@oO\@oP\@oQ\@oR@@@oY[@ou2@@@Ѡq\@o=\@o>\@o?\@o@\@oA\@oB@@@oI[@oWI@@/@\@o\@o \@o!\@o"\@o#\@o$@@@o+[@oG`@@F@\@o\@o,\@o/\@o2\@o5\@o@@@o[@o)w@@]@\@n4\@nC\@nF\@nI\@nL\@n@@@n[@o@@t@-\@nK\@nZ\@n]\@n`\@nc\@n@@@n[@n@@@D\@nàb\@nĠq\@nŠt\@nƠw\@nǠz\@n@@@n[@n@@@[\@ny\@n\@n\@n\@n\@n@@@n[@n@@@r\@n\@n\@n\@n\@n\@n@@@n[@n@@@)\@n\@n\@n\@n\@n\@n@@@n[@n@@@@\@ng\@nh\@ni\@nj\@nk\@nl@@@ns[@n@@@W\@nW\@nX\@nY\@nZ\@n[\@n\@@@nc[@nq/@@@Πn\@n9\@n:\@n;\@n<\@n=\@n>@@@nE[@naF@@,@\@n)\@n*\@n+\@n,\@n-\@n.@@@n5[@nC]@@C@\@n \@n )\@n ,\@n/\@n2\@n@@@n[@n3t@@Z@\@m1\@m@\@mC\@mF\@mI\@n@@@n[@n@@q@*\@mݠH\@mޠW\@mߠZ\@m]\@m`\@m@@@m[@n@@@A\@m͠_\@mΠn\@mϠq\@mРt\@mѠw\@m@@@m[@m@@@X\@mv\@m\@m\@m\@m\@m@@@m[@m@@@o\@m\@m\@m\@m\@m\@m@@@m[@m@@@&\@m\@m\@m\@m\@m\@m@@@m[@m@@@=\@mq\@mr\@ms\@mt\@mu\@mv@@@m}[@m@@@T\@mS\@mT\@mU\@mV\@mW\@mX@@@m_[@m{,@@@ˠk\@mC\@mD\@mE\@mF\@mG\@mH@@@mO[@m]C@@)@\@m%\@m&\@m'\@m(\@m)\@m*@@@m1[@mMZ@@@@\@m\@m&\@m)\@m,\@m/\@m@@@m![@m/q@@W@\@l.\@l=\@l@\@lC\@lF\@l@@@m[@m@@n@'\@lE\@lT\@lW\@lZ\@l]\@l@@@l[@m@@@>\@lɠ\\@lʠk\@lˠn\@l̠q\@l͠t\@l@@@l[@l@@@U\@ls\@l\@l\@l\@l\@l@@@l[@l@@@l Z@lZ@lZ@l\@l\@l\@l@@@l[@l@@@~;\@ly@@@l[@l@ %a:@ this@ constructor@ application@ may@ be@ TMC-transformed@ in@ several@ different@ ways.@ Please@ disambiguate@ by@ adding@ an@ explicit@ %a attribute@ to@ the@ call@ that@ should@ be@ made@ tail-recursive,@ or@ a@ %a attribute@ on@ calls@ that@ should@ not@ be@ transformed.@@@@@l[@sM[@sL@@@@xU@@@lN[@l@@డ+inline_code%StyleWX@ [\@@fa@@@s@@@s@.utils/misc.mli,QQ ,QQ3@@$Misc@@@t%@@0[@tail_mod_cons]uv@@xy@@{[@s4@@డ+inline_code%StyleNJ&Nj+@ ǎ,Ǐ7@@3@@|J@@+[@tailcall]ǚ9ǛD@@ǝ8ǞE@@[@sY@@డ+inline_code%StyleǯFTǰFY@ dzFZǴFe@@X@@o@@1[@tailcall false]ǿFgFx@@Ff@@[@s}@@ @@~@&A@NY@s$@A@!@@ఠ&submgs @A@@|P#msg@@@t@@@tY@s3@Rsl@m@n@@@@ఠ#sub!@A@@@Z@@@sZ@s#@@@tZ@s@@sZ@s @࣠@$info#A@ @@@@@s3        @1([@@@@  @+A"г%4tmc_call_information$%@@-@@@s@@+,@@@4@@@@@ఠ#loc$9:@LA@@P@@@s\@s3=<<=====@1>6@9@+@@@డ/Scoped_location+to_location)DebuginfoVW@ Z[@@_`@ @Q @@@Q@@@sQ @@@s@@s)@@ఐm$infowx@5@@K@@@s@s=@#locȃȄ@KͰ@@@@@sG@@4@@KH@A@ȋ@@డŔ#msg(Locationș*Ț2@ ȝ3Ȟ6@@#locŠQ@@@ @@@ @&Stdlib'format4!a@ ʠ*Format_doc)formatter@@@ Q@@@ @@@ @@@ @@ @@ @Q e eQ e @@Qn@:5@@20Q@@@t@@@t@/[@s(@@@t#@@@t@@@t@@@t@@s@@s3@@@@@@Rภ$Some۠ఐʠ#loc8;@@@R@@@t\@t\@t@@@c @@@t"@@ภ<Aภ[ Z=This call could be annotated.@@?@@@t_\@tb\@taB@ภ  @@b[@tJ[@t^]@tN@@@t\@tH\@t\@@@t\@tI\@t] @@@t`\@tmh@@<@]@t, @@@tK\@t[t@>L@L@@@@tL\@tq\@tp@@SY@@à-&y@@@t\@tG@@c@@@d@@9@QeA@Z@tl@A@i@డ$List#mapɍɎ@ ɑɒ@@~@@@@@@@t[@t@@@t[@t@@t@~@@@t~@@@t@@t@@t3ɨɧɧɨɨɨɨɨ@@@@@@@ఐˠ#subɺɻ@ @@@@@@t@@@t@@t@@9 @@@~ՠ2@@@t~Ԡ1@@@t@@t#@@డE$List'flatten@ @@@Ӡנ!a@}@@@@@@ @@@ @@ @5@@R@"@@@@@@tZ@uZ@uZ@t@@@t@@@t@@@t@@tl@@డȐ$List#map+u,u@ /u0u@@N@@@@Fd@@@t]@t<;@@@t@@@t]@t@@t@T@@@tS@@@t@@t@@t@@࣠@!t%A]u^u@pA@@*3\[[\\\\\@@@@@@@ఐ!tmunu@9@@@@:3lkklllll@@@@)tmc_callswuxu@F @@< @{u|u@@@LG@@t^@t^@t"@@Y@@@R@@@tQ@@@t@@t-@@ఐE)argumentsʘ_kʙ_t@@@F@@@u @@@u \@u \@u E@@+@@@@@t@@@t[@u\@uR@@@@Š@@@tZ@u[@t[@@%@@\@@@@A@ʿ@@ภ$Some  @డ&errorf(Location  @   @@#loc=S@@@ @@@ #subH$listK@@@ @@@ @@@ (footnoteZS+delayed_msg@@@ @@@ @['format4!a@ X)formatter@@@ T@@@ :@@@ @@@ @@ @@ @@ @@ @Tg11Th12@@T[@SN@@KT)@@@u,@@@u+IG^@@@u*@@@u)@@@u(DB@@@u'@@@u&@@@@C@@@uEX@uA@@@uFX@u@@uX@uO}@@@uX@uX@uP@@uQX@u!T@@@u#Q@@@u$@@@u%@@@u"'@@u @@u@@u@@u3onnooooo@@@@@@ภN^ఐh#locˆ  ˇ  @@@T@@@uNY@uUY@uT@@@ @@@uV @ภk{ఐР&submgsˣ ˤ @/@@@@@uL@@@uKY@uYY@uW=@@ @@@@u[A@ภ$Noneˍ@ˍ@@@@u]@@@u\P@@ภQ˝P˞  AOภ\˨%Theta˪ ;%Theta1@@!b@ !c@@@!a@@@  !d@!!e@"!f@#@@@@W# @@@@APAYAAN(k(kO()@@@p@ภJ@J@oX@uGX@uX@uX@uР̠X@uZ@uZ@u@@@uY@u@@`@Z@umX@u@@@uY@u@"%ts@s@@@@uY@uY@u@@zy@@A.@@@uDY@u@@ఐ砐)print_msg\ ] (@z@@X@u@@b c )@@@@@@@@@u@@@@@@@@@i@@@i@Ġ%Errorz *2{ *7@Gఠ#locР̃ *9̄ *<@̖A@@ɍ@@@i@Ġ?Ambiguous_constructor_arguments̑ >M̒ >l@Gtঠ(explicit̜ m̝ m@H~Ġụ m̤ m@t@@@@^@@@i@)arguments̯ m̰ mAHఠѠ@A@SR@@@i@@@i@@@̿ m~ m@@@@@iY@i@@@6@@@@@i@@@Q m@@@@@i@@@@ఠ)print_msg&  @A@@@d@@@uY@u_@@@}Y@u@@uY@u3@2qj@k@l>;@=@<@@@࣠@#ppf(A  @A@@ 3@- @@@@@  @@డ\'fprintf*Format_doc@ @@Z@@@@@@u@Z@72@@@}@J@}Z@v/Z@u@ Z@uVZ@u@@uZ@uސ@@uZ@uʠ@@@u̠i@@@u@@@u!@@u@@u3DCCDDDDD@IUk@L@M@@@@ఐ\#ppfVW@ @@x@@ภ23deXAภ=> ภEFz@@@@vC[@vF[@vE8@ภ XY&ภ`Oa.N52@2@P@@@v\[@v`[@v_S@A=@V@@@v][@vb[@va^@@H@\@@@v^[@vd[@vci@@O@@@@vS[@v[n@ภB͎͏\$thisa@a@@@@vq[@vt[@vs@ภVͣ͢pѠภ^ͪͫx|@|@@@@v[@v[@v@A@@@@v[@v[@v@@@@@@v[@v[@v@@@@@@v[@v@ภؠ>=+constructor@@"@@@v[@v[@v@ภภ@@@@@v[@v[@v@A@@@@v[@v[@v@@@@@@v[@v[@v@@@"@@@v[@v@ภ"#+application@@l@@@v[@v[@v@ภ6f7eภ>-? ,@@.@@@v[@v[@v1@A@4@@@v[@v[@v<@@&@:@@@v[@v[@vG@@-@l@@@v[@vL@ภ lm:Ѡ#may?@?@@@@v[@v[@v`@ภ4΀΁Nภ<ΈwΉVv]Z@Z@x@@@w[@w[@w{@Ae@~@@@w[@w[@w@@p@@@@w[@w[@w@@w@@@@w [@w@ภjζη"be@@@@@w)[@w,[@w+@ภ~ʠภҠ@@@@@wB[@wF[@wE@A@@@@wC[@wH[@wG@@@@@@wD[@wJ[@wI@@@@@@w9[@wA@ภfe/TMC-transformed@@J@@@wW[@wZ[@wY@ภDCภ  @@ @@@wp[@wt[@ws@A@@@@wq[@wv[@wu@@@@@@wr[@wx[@ww%@@ @J@@@wg[@wo*@ภJK"in@@@@@w[@w[@w>@ภ^_,ภfUg4T;8@8@V@@@w[@w[@wY@AC@\@@@w[@w[@wd@@N@b@@@w[@w[@wo@@U@@@@w[@wt@ภHϔϕb'severalg@g@@@@w[@w[@w@ภ\Ϩϩvנภdϰϱ~@@@@@w[@w[@w@A@@@@w[@w[@w@@@@@@w[@w[@w@@@@@@w[@w@ภޠDC)different@@(@@@w[@w[@w@ภ"!ภ@@@@@w[@w[@w@A@@@@w[@x[@w@@@@@@w[@x[@x@@@(@@@w[@w@ภ()%ways.@@r@@@x[@x[@x@ภ<l= kภD3E2@@4@@@x([@x,[@x+7@A!@:@@@x)[@x.[@x-B@@,@@@@@x*[@x0[@x/M@@3@r@@@x[@x'R@ภ&rs@נ$OnlyE@E@@@@x=[@x@[@x?f@ภ:ІЇTภBЎ}Џ\|c`@`@~@@@xV[@xZ[@xY@Ak@@@@xW[@x\[@x[@@v@@@@xX[@x^[@x]@@}@@@@xM[@xU@ภpм"н!#one@@@@@xk[@xn[@xm@ภРภؠƠ@@@@@x[@x[@x@A@@@@x[@x[@x@@@@@@x[@x[@x@@@@@@x{[@x@ภlk"of@@P@@@x[@x[@x@ภJIภ"#@@@@@x[@x[@x@A@@@@x[@x[@x @@ @@@@x[@x[@x+@@@P@@@x[@x0@ภPQ#the#@#@@@@x[@x[@xD@ภde2ภ l[m:ZA>@>@\@@@x[@x[@x_@AI@b@@@x[@x[@xj@@T@h@@@x[@x[@xu@@[@@@@x[@xz@ภNњћh)argumentsm@m@@@@x[@x[@x@ภbѮѯ|ݠภjѶѷ@@@@@y[@y[@y@A@@@@y[@y[@y@@@@@@y[@y[@y@@@@@@y[@y @ภJI#may@@.@@@y#[@y&[@y%@ภ('ภ@@@@@y<[@y@[@y?@A@@@@y=[@yB[@yA@@@@@@y>[@yD[@yC @@@.@@@y3[@y;@ภ./&become@@x@@@yQ[@yT[@yS"@ภBrCqภJ9K8@@:@@@yj[@yn[@ym=@A'@@@@@yk[@yp[@yoH@@2@F@@@yl[@yr[@yqS@@9@x@@@ya[@yiX@ภ,xyFaJ@@@@y[@y[@yk@ภ?ҋҌYภGғҔahe@e@@@@y[@y[@y@Ap@@@@y[@y[@y@@{@@@@y[@y[@y@@@@@@y[@y@ภu'&#TMC@@ @@@y[@y[@y@ภՠภݠˠ@@@@@y[@y[@y@A@@@@y[@y[@y@@@@@@y[@y[@y@@@ @@@y[@y@ภ q p%call,@@U@@@y[@y[@y@ภO Nภ'(@@@@@y[@y[@y@A@@@@y[@y[@y%@@@#@@@y[@y[@y0@@@U@@@y[@y5@ภ UV##but(@(@@@@z [@z [@z I@ภij7ภ%q`r?_FC@C@a@@@z"[@z&[@z%d@AN@g@@@z#[@z([@z'o@@Y@m@@@z$[@z*[@z)z@@`@@@@z[@z!@ภSӟӠm'severalr@r@@@@z7[@z:[@z9@ภgӳӴภoӻӼ@@@@@zP[@zT[@zS@A@@@@zQ[@zV[@zU@@@@@@zR[@zX[@zW@@@@@@zG[@zO@ภON)arguments@@3@@@ze[@zh[@zg@ภ-,ภ@@@@@z~[@z[@z@A@@@@z[@z[@z@@@@@@z[@z[@z@@@3@@@zu[@z}@ภ34'contain@@}@@@z[@z[@z'@ภGwHvภO>P=$!@!@?@@@z[@z[@zB@A,@E@@@z[@z[@zM@@7@K@@@z[@z[@zX@@>@}@@@z[@z]@ภ1}~K%callsP@P@@@@z[@z[@zq@ภEԑԒ_ภMԙԚgnk@k@@@@z[@z[@z@Av@@@@z[@z[@z@@@@@@z[@z[@z@@@@@@z[@z@ภ{Ǡ-,$that@@@@@z[@z[@z@ภ۠  ภѠ@@@@@{[@{ [@{ @A@@@@{ [@{[@{ @@@@@@{ [@{[@{@@@@@@z[@{@ภwv#are@@[@@@{[@{ [@{@ภ%U&Tภ-.@@@@@{6[@{:[@{9 @A @#@@@{7[@{<[@{;+@@@)@@@{8[@{>[@{=6@@@[@@@{-[@{5;@ภ[\)*explicitly.@.@@@@{K[@{N[@{MO@ภ#op=ภ+wfxEeLI@I@g@@@{d[@{h[@{gj@AT@m@@@{e[@{j[@{iu@@_@s@@@{f[@{l[@{k@@f@@@@{[[@{c@ภYե զs &markedx@x@@@@{y[@{|[@{{@ภmչպภu@@@@@{[@{[@{@A@@@@{[@{[@{@@@@@@{[@{[@{@@@@@@{[@{@ภ£UT"as@@9@@@{[@{[@{@ภ· 3 2ภ¿  @@@@@{[@{[@{@A@ @@@{[@{[@{ @@@ @@@{[@{[@{ @@@ 9@@@{[@{ @ภ9Ÿ: ž/tail-recursive. @ @ƒ@@@{[@{[@{ -@ภM }N  |ภ U DV # C * '@ '@ E@@@{[@{[@{ H@A 2@ K@@@{[@{[@{ S@@ =@ Q@@@{[@{[@{ ^@@ D@ @@@{[@{ c@ภ7փք Q&Please V@ V@@@@|[@|[@| w@ภK֗ ֘ e ƠภS֟ ֠ m  t q@ q@ @@@|[@| [@| @A |@ @@@|[@|"[@|! @@ @ @@@|[@|$[@|# @@ @ @@@|[@| @ภÁ͠3 2#fix @ @@@@|1[@|4[@|3 @ภÕ! !ภÝ   נ  @ @ @@@|J[@|N[@|M @A @ @@@|K[@|P[@|O @@ @ @@@|L[@|R[@|Q @@ @!@@@|A[@|I @ภ} |#the @ @a@@@|_[@|b[@|a @ภ+![, !Zภ3!"4 !!! @ @!#@@@|x[@||[@|{ &@A @!)@@@|y[@|~[@|} 1@@ @!/@@@|z[@|[@| <@@ "@!a@@@|o[@|w A@ภab /Ơ(conflict 4@ 4@ë@@@|[@|[@| U@ภ)u!v C!ภ1}!l~ K!k!R O@ O@!m@@@|[@|[@| p@A Z@!s@@@|[@|[@| {@@ e@!y@@@|[@|[@| @@ l@!@@@|[@| @ภ_׫׬ y"by ~@ ~@@@@|[@|[@| @ภs׿! !ภ{Ǡ! !! @ @!@@@|[@|[@| @A @!@@@|[@|[@| @@ @!@@@|[@|[@| @@ @!@@@|[@| @ภĩ[ Z)reviewing @ @?@@@|[@|[@| @ภĽ "9  "8ภ" !! @ @"@@@}[@}[@} @A @"@@@}[@}[@} @@ @" @@@}[@} [@}  @@ @"?@@@|[@} @ภ?ĥ@ Ĥ#and @ @ĉ@@@}[@}[@} 3@ภS"T !"ภ["J\ )"I"0 -@ -@"K@@@}0[@}4[@}3 N@A 8@"Q@@@}1[@}6[@}5 Y@@ C@"W@@@}2[@}8[@}7 d@@ J@"@@@}'[@}/ i@ภ=؉؊ W&fixing \@ \@@@@}E[@}H[@}G }@ภQ؝"؞ k"̠ภYإ"ئ s""z w@ w@"@@@}^[@}b[@}a @A @"@@@}_[@}d[@}c @@ @"@@@}`[@}f[@}e @@ @"@@@}U[@}] @ภŇӠ9 8#the @ @@@@}s[@}v[@}u @ภś# #ภţ" "ݠ" @ @"@@@}[@}[@} @A @"@@@}[@}[@} @@ @"@@@}[@}[@} @@ @#@@@}[@} @ภŃ ł+conflicting @ @g@@@}[@}[@} @ภ1#a2 #`ภ9#(: #'# @ @#)@@@}[@}[@} ,@A @#/@@@}[@}[@} 7@@ !@#5@@@}[@}[@} B@@ (@#g@@@}[@} G@ภgh 5̠,annotations. :@ :@ű@@@}[@}[@} [@ภ/{Ď| Ič@ I@ {Z@uZ@vZ@v+\@}Ġ%B@ @}Z@uZ@vZ@v*\@}Š\@}Ơ\@}Ǡ\@}Ƞ\@}@@@}[@} @@ o@)&\@} \@}+\@}.\@}1\@}4\@}@@@}[@} @@ @?<\@}6\@}A\@}D\@}G\@}J\@}@@@}[@} @@ @UR\@}xL\@}yW\@}zZ\@}{]\@}|`\@}}@@@}[@} @@ @kh\@}hb\@}im\@}jp\@}ks\@}lv\@}m@@@}t[@} @@ @Ɓ~\@}Jx\@}K\@}L\@}M\@}N\@}O@@@}V[@}r @@ @Ɨ\@}:\@};\@}<\@}=\@}>\@}?@@@}F[@}T @@ @ƭ\@}\@}\@}\@}\@} \@}!@@@}([@}D #@@ @à\@} \@} \@}\@}\@}\@}@@@}[@}& 9@@ @٠\@|\@|\@|\@|\@|\@|@@@|[@} O@@ 5@\@|ޠ\@|ߠ\@|\@|\@|\@|@@@|[@| e@@ K@\@|\@|\@|  \@|à \@|Ġ\@|@@@|[@| {@@ a@\@|\@|\@| \@|#\@|&\@|@@@|[@| @@ w@1.\@|(\@|3\@|6\@|9\@|<\@|@@@|[@| @@ @GD\@|>\@|I\@|L\@|O\@|R\@|@@@|[@| @@ @]Z\@|dT\@|e_\@|fb\@|ge\@|hh\@|i@@@|p[@| @@ @sp\@|Tj\@|Uu\@|Vx\@|W{\@|X~\@|Y@@@|`[@|n @@ @lj\@|6\@|7\@|8\@|9\@|:\@|;@@@|B[@|^ @@ @ǟ\@|&\@|'\@|(\@|)\@|*\@|+@@@|2[@|@@@ @ǵ\@|\@| \@| \@| \@| \@| @@@|[@|0+@@@ˠ\@{\@{\@{\@{\@{\@{@@@|[@|A@@'@\@{ڠ\@{۠\@{ܠ\@{ݠ\@{ޠ\@{@@@{[@|W@@=@\@{ʠ\@{ˠ\@{̠\@{͠\@{Π\@{@@@{[@{m@@S@  \@{\@{\@{\@{\@{\@{@@@{[@{@@i@# \@{\@{%\@{(\@{+\@{.\@{@@@{[@{@@@96\@{~0\@{;\@{>\@{A\@{D\@{@@@{[@{@@@OL\@{nF\@{oQ\@{pT\@{qW\@{rZ\@{s@@@{z[@{@@@eb\@{P\\@{Qg\@{Rj\@{Sm\@{Tp\@{U@@@{\[@{x@@@{x\@{@r\@{A}\@{B\@{C\@{D\@{E@@@{L[@{Z@@@ȑ\@{"\@{#\@{$\@{%\@{&\@{'@@@{.[@{J@@@ȧ\@{\@{\@{\@{\@{\@{@@@{[@{,@@@Ƚ\@z\@z\@z\@z\@z\@z@@@{[@{3@@@Ӡ\@z\@z\@z\@z\@z\@z@@@z[@zI@@/@\@zƠ\@zǠ\@zȠ\@zɠ\@zʠ\@z@@@z[@z_@@E@\@z\@z\@z\@z\@z \@z@@@z[@zu@@[@\@z \@z\@z\@z\@z \@z@@@z[@z@@q@+(\@z"\@z-\@z0\@z3\@z6\@z@@@z[@z@@@A>\@zj8\@zkC\@zlF\@zmI\@znL\@zo@@@zv[@z@@@WT\@zZN\@z[Y\@z\\\@z]_\@z^b\@z_@@@zf[@zt@@@mj\@z<d\@z=o\@z>r\@z?u\@z@x\@zA@@@zH[@zd@@@Ƀ\@z,z\@z-\@z.\@z/\@z0\@z1@@@z8[@zF@@@ə\@z\@z\@z\@z\@z\@z@@@z[@z6@@@ɯ\@y\@y\@z\@z\@z\@z@@@z [@z%@@ @Š\@y\@y\@y\@y\@y\@y@@@y[@z;@@!@۠\@yР\@yѠ\@yҠ\@yӠ\@yԠ\@y@@@y[@yQ@@7@\@y\@y\@y\@y\@y\@y@@@y[@yg@@M@\@y\@y \@y \@y\@y\@y@@@y[@y}@@c@\@y\@y\@y"\@y%\@y(\@y@@@y[@y@@y@30\@yt*\@yu5\@yv8\@yw;\@yx>\@yy@@@y[@y@@@IF\@yV@\@yWK\@yXN\@yYQ\@yZT\@y[@@@yb[@y~@@@_\\@yFV\@yGa\@yHd\@yIg\@yJj\@yK@@@yR[@y`@@@ur\@y(l\@y)w\@y*z\@y+}\@y,\@y-@@@y4[@yP@@@ʋ\@y\@y\@y\@y\@y\@y@@@y$[@y2@@@ʡ\@x\@x\@x\@x\@x\@x@@@y[@y"@@@ʷ\@x\@x\@x\@x\@x\@x@@@x[@y-@@@͠\@x̠\@x͠\@xΠ\@xϠ\@xР\@x@@@x[@xC@@)@\@x\@x\@x\@x\@x\@x@@@x[@xY@@?@\@x\@x\@x\@x\@x\@x@@@x[@xo@@U@ \@x\@x\@x\@x\@x\@x@@@x[@x@@k@%"\@xp\@xq'\@xr*\@xs-\@xt0\@xu@@@x|[@x@@@;8\@x`2\@xa=\@xb@\@xcC\@xdF\@xe@@@xl[@xz@@@QN\@xBH\@xCS\@xDV\@xEY\@xF\\@xG@@@xN[@xj@@@gd\@x2^\@x3i\@x4l\@x5o\@x6r\@x7@@@x>[@xL@@@}z\@xt\@x\@x\@x\@x\@x@@@x [@x<@@@˓\@x\@x\@x\@x\@x\@x @@@x[@x @@@˩\@w\@w\@w\@w\@w\@w@@@w[@x@@@˿\@w֠\@wנ\@wؠ\@w٠\@wڠ\@w@@@w[@w5@@@ՠ\@w\@w\@w\@w\@w\@w@@@w[@wK@@1@\@w\@w\@w\@w\@w\@w@@@w[@wa@@G@\@w\@w\@w\@w \@w \@w@@@w[@ww@@]@\@wz\@w{\@w|\@w}\@w~"\@w@@@w[@w@@s@-*\@w\$\@w]/\@w^2\@w_5\@w`8\@wa@@@wh[@w@@@C@\@wL:\@wME\@wNH\@wOK\@wPN\@wQ@@@wX[@wf@@@YV\@w.P\@w/[\@w0^\@w1a\@w2d\@w3@@@w:[@wV@@@ol\@wf\@wq\@w t\@w!w\@w"z\@w#@@@w*[@w8@@@̅\@w|\@w\@w\@w\@w\@w@@@w [@w(@@@̛\@v\@v\@v\@v\@v\@v@@@v[@w @@@̱\@vҠ\@vӠ\@vԠ\@vՠ\@v֠\@v@@@v[@v'@@ @Ǡ\@v \@và\@vĠ\@vŠ\@vƠ\@v@@@v[@v=@@#@ݠ\@v\@v\@v\@v\@v\@v@@@v[@vS@@9@\@v\@v\@v\@v\@v\@v@@@v[@vi@@O@ \@vv\@vw \@vx\@vy\@vz\@v{@@@v[@v@@e@\@vf\@vg!\@vh$\@vi'\@vj*\@vk@@@vr[@v@@{@52\@vH,\@vI7\@vJ:\@vK=\@vL@\@vM@@@vT[@vp@@@KH\@v8B\@v9M\@v:P\@v;S\@v<V\@v=@@@vD[@vR@@@a^Z@vTZ@v$^Z@v#b\@v%d\@v&f\@v'@@@v6[@vB@@@r\@ufopqr@@@v[@v1@ L%a:@ this@ constructor@ application@ may@ be@ TMC-transformed@ in@ several@ different@ ways.@ Only@ one@ of@ the@ arguments@ may@ become@ a@ TMC@ call,@ but@ several@ arguments@ contain@ calls@ that@ are@ explicitly@ marked@ as@ tail-recursive.@ Please@ fix@ the@ conflict@ by@ reviewing@ and@ fixing@ the@ conflicting@ annotations.@@z@@@v[@}[@}@@@@,l|@@@u[@v@@డ-+inline_code%StyleKL@ OP@@@@# @@0[@tail_mod_cons][\@@^Y@@.[@}@@L\@@&@f]A@Y@}d@A@a@@ఠ&submgs)op@A@@}@@@~@@@~Y@}3wvvwwwww@@@@@@@ఠ#sub*@A@@@@@@~Z@}@@@~6Z@}@@}Z@} @࣠@$info,A@@@@@@~3@1(i@@@@  @A"г%4tmc_call_information@@-@@@~@@@@@4@@@@@ఠ#loc-14@A@@j|@@@~\@~3@1>6@9@+@@@డh/Scoped_location+to_location)Debuginfo7@@ AP@@Q\@ @j @@@j@@@~ j@@@~ @@~)@@ఐm$info]a@5@@e]@@@~@~=@#locbe@eg@@r@@@~G@@4@@KH@A@%-@@డ.#msg(Location3iw4i@ 7i8i@@@@k;@@@~&@@@~%@[@~ @@@~"@@@~#x@@@~$@@@~!@@~@@~3SRRSSSSS@}@@@@@ภh2Bఐ#locjiki@@@kl@@@~8\@~<\@~;@@@g @@@~= @@ภQRiAภ[\  "This call is explicitly annotated.@@Υ@@@~\@~\@~@@ภ#o͂ṕ@@`[@~k[@~]@~o@@@~4\@~i\@~}@@@~5\@~j\@~~ @@@~\@~f@@<@]@~M @@@~l\@~|r@>L@L@@@@~m\@~\@~}@@S%@@)-&E@@@~3\@~h@@/@@@0@@@1A@UZ@~8@A@5@డX$List#mapapat@ auax@@@@@@n@@@~[@~*@@@~[@~@@~@@@@~@@@~@@~@@~3  @@@@@@@ఐ#sub ay!a|@ @@@@@@~L@@@~@@~@@9 @@@;2@@@~:1@@@~@@~#@@డ$List&filterH!I%@ L&M,@@ڰ@@@@@@@\@~@@@~@@~@٠@@@~ @@@~@@~@@~T@@࣠@$info.A@u3v7@@!@@@3uttuuuuu@g@@@  @A( г+4tmc_call_information9M@@3@@@~@@2N@@@:@@@@ఐ)$infoRV@'@*@!@@f@@@ @3@8 @@@(explicitW_@f@@1@@@ ^@@-`@@@g=@@@~@@~]@]@ D@@w @@@;p@@@~mt@@@~@@~O@@డ>$List'flatten @  @@@@@`@@@~Z@s[@[@q[@g[@'@@@)@@@(@@@&@@%@@డs$List#map@ @@1@@@@`G@@@Y^@E@@@X@@@W^@C@@F@7@@@D6@@@B@@A@@@@@࣠@!t/A@A@SA@@*3?>>?????@1@@@@@@ఐ!tPQ@9@@@@:3ONNOOOOO@B@@@)tmc_callsZ[@` @@< @^_@@@LG@@R_@\_@["@@Y@@@vR@@@QuQ@@@P@@O-@@ఐĠ)arguments{|@@@`@@@i@@@h]@l]@jE@@+@@@@@2@@@1\@n]@eR@@@@@@@[@p\@0[@@%@@@@@~Z@r[@d@@.@@4e@@@5.@A@@@ภ$Some!!@Δడ&errorf(Location!!@ !!@@@@'m@@@@@@0@@@@@@@@@=@@@@@@@@@@@@X@@@@X@@@X@1@@@zX@!X@@@X@@@@@@@1+@@@@@@'@@@@@@@@~3@@@@@@:ภ%ఐ#loc'!(!@9@@n)@@@Y@Y@@@@$ @@@ @LภB ఐՠ&submgsD!E!@/@@[r@@@@@@Y@Y@=@@ @E@@@A@[ภ-қ@-@^@@@@@@O@@ภ=>o!p!AภHI ภPcQb@@ؠX@X@X@X@X@Z@Z@@@@Y@ @@)@Z@ΠX@@@@Y@@"%t<@<@@@@Y@Y@@@CB@@ɠ.@@@Y@@@ఐ점)print_msg!!@I@@X@@@!!@@@@@@f@@@y@(@@W@@@i@@""@@2@@@i1@@@ภ$None##@#@@@{1@@AԟH@@@$@@@2@@@i22@@@i@@@i@@iV@V@2?@@2/@@´@@@V@i2E@A@ww@@@2H@e_A@ A@A@RLA@B@A@;B@Y@"@V@-@}@a@w@@@-@@@@@A@p(B@,@N@Y@A@:8@&$@  @@@@om@:8@32@2A2@22@@@3@??@@@@@@2@@@3#TmcB@@z.@B@¢r@@Z@ޠ@@D @2@֤ɚ@ڃӠ@ܟ @J4@ H************************************************************************hA@@iA@L@ H nBMMoBM@ H OCaml tCuC@ H zD{D3@ J Frédéric Bour E44E4@ H Gabriel Scherer, projet Partout, INRIA Saclay FF@ I Basile Clément, projet Cambium, INRIA Paris GG@ H HHj@ H Copyright 2020 Institut National de Recherche en Informatique et IkkIk@ H en Automatique. JJ@ H KKQ@ H All rights reserved. This file is distributed under the terms of LRRLR@ H the GNU Lesser General Public License version 2.1, with the MM@ H special exception on linking described in the file LICENSE. NN8@ H O99O9@ H************************************************************************PP@ 5 Error-reporting information for ambiguous TMC calls TT@ * When [explicit = true], we have an ambiguity between arguments containing calls that have been explicitly marked [@tailcall]. Otherwise we have an ambiguity between un-annotated calls. q V* In the OCaml value model, interior pointers are not allowed. To represent the "placeholder to mutate" in DPS code, we thus use a pair of the block containing the placeholder, and the offset of the placeholder within the block. In the common case, this offset is an arbitrary lambda expression, typically a constant integer or a variable. We define ['a destination] as parametrized over the offset type to represent formal destination parameters (where the offset is an Ident.t), and maybe in the future statically-known offsets (where the offset is an integer). ޠ * The type [Constr.t] represents a reified constructor with a single hole, which can be either directly applied to a [lambda] term, or be used to create a fresh [lambda destination] with a placeholder. ʦ Y* [apply constr e] plugs the expression [e] in the hole of the constructor [const]. ʀ t* [with_placeholder constr body] binds a placeholder for the constructor [constr] within the scope of [body]. O * We may want to delay the application of a constructor to a later time. This may move the constructor application below some effectful expressions (for example if we move into a context of the form [foo; bar_with_tmc_inside]), and we want to preserve the evaluation order of the other arguments of the constructor. So we bind them before proceeding, unless they are obviously side-effect free. [delay_impure ~block_id constr body] binds all inpure arguments of the constructor [constr] within the scope of [body], which is passed a pure constructor. [block_id] is a counter that is used as a suffix in the generated variable names, for readability purposes.  Q we choose a placeholder whose tagged representation will be reconizable. ~ei@ Note that the delayed subterms will be used exactly once in the linear-static subterm. So we are happy to delay constants, which we would not want to duplicate. 9]@ /* The type ['a Dps.t] (destination-passing-style) represents a version of ['a] that is parametrized over a [lambda destination]. A [lambda Dps.t] is a code fragment in destination-passing-style, a [(lambda * lambda) Dps.t] represents two subterms parametrized over the same destination.  * A term parameterized over a destination. The [tail] argument is passed by the caller to indicate whether the term will be placed in tail-position -- this allows to generate correct @tailcall annotations. Ǡ * We want to optimize nested constructors, for example: {[ (x () :: y () :: tmc call) ]} which would naively generate (in a DPS context parametrized over a location dst.i): {[ let dstx = x () :: Placeholder in dst.i <- dstx; let dsty = y () :: Placeholder in dstx.1 <- dsty; tmc dsty.1 call ]} when we would rather hope for {[ let vx = x () in let dsty = y () :: Placeholder in dst.i <- vx :: dsty; tmc dsty.1 call ]} The idea is that the unoptimized version first creates a destination site [dstx], which is then used by the following code. If we keep track of the current destination: {[ (* Destination is [dst.i] *) let dstx = x () :: Placeholder in dst.i (* Destination *) <- dstx; (* Destination is [dstx.1] *) let dsty = y () :: Placeholder in dstx.1 (* Destination *) <- dsty; (* Destination is [dsty.1] *) tmc dsty.1 call ]} Instead of binding the whole newly-created destination, we can simply let-bind the non-placeholder arguments (in order to preserve execution order), and keep track of a list of blocks to be created along with the current destination. Instead of seeing a DPS fragment as writing to a destination, we see it as a term with shape [dst.i <- C .] where [C .] is a linear context consisting only of constructor applications. {[ (* Destination is [dst.i <- C .] *) let vx = x () in (* Destination is [dst.i <- C (vx :: .)] *) let vy = y () in (* Destination is [dst.i <- C (vx :: vy :: .)] *) (* Making a call: reify the destination *) let dsty = vy :: Placeholder in dst.i <- vx :: dsty; tmc dsty.1 call ]} The [delayed] argument represents the context [C] as a list of reified constructors, to allow both to build the final holey block ([vy :: Placeholder]) at the recursive call site, and the delayed constructor applications ([vx :: dsty]). In practice, it is not desirable to perform this simplification when there are multiple TMC calls (e.g. in different branches of an [if] block), because it would cause duplication of the nested constructor applications. The [delayed_use_count] field keeps track of this information, it counts the number of syntactic use sites of the delayed constructors, if any, in the generated code. ޠ * Create a new destination-passing-style term which is simply setting the destination with the given [v], hence "returning" it. A s* Ensures that the resulting term does not duplicate delayed constructors by reifying them now if needed.  * The TMC transformation requires information flows in two opposite directions: the information of which callsites can be rewritten in destination-passing-style flows from the leaves of the code to the root, and the information on whether we remain in tail-position flows from the root to the leaves -- and also the knowledge of which version of the function we currently want to generate, the direct version or a destination-passing-style version. To clarify this double flow of information, we split the TMC transform in two steps: 1. A function [choice t] that takes a term and processes it from leaves to root; it produces a "code choice", a piece of data of type [lambda Choice.t], that contains information on how to transform the input term [t] *parameterized* over the (still missing) contextual information. 2. Code-production operators that have contextual information to transform a "code choice" into the final code. The code-production choices for a single term have type [lambda Choice.t]; using a parametrized type ['a Choice.t] is useful to represent simultaneous choices over several subterms; for example [(lambda * lambda) Choice.t] makes a choice for a pair of terms, for example the [then] and [else] cases of a conditional. With this parameter, ['a Choice.t] has an applicative structure, which is useful to write the actual code transformation in the {!choice} function.  @* An ['a Choice.t] represents code that may be written in destination-passing style if its usage context allows it. More precisely: - If the surrounding context is already in destination-passing style, it has a destination available, we should produce the code in [dps] -- a function parametrized over the destination. - If the surrounding context is in direct style (no destination is available), we should produce the fallback code from [direct]. (Note: [direct] is also a function (on [unit]) to ensure that any effects performed during code production will only happen once we do know that we want to produce the direct-style code.) - [tmc_calls] tracks the function calls in the subterms that are in tail-modulo-cons position and get rewritten into tailcalls in the [dps] version. - [benefits_from_dps] is true when the [dps] calls strictly more TMC functions than the [direct] version. See the {!choice_makeblock} case. - [explicit_tailcall_request] is true when the user used a [@tailcall] annotation on the optimizable callsite. When one of several calls could be optimized, we expect that exactly one of them will be annotated by the user, or fail because the situation is ambiguous. o .* Apply function [f] to the transformed term.  Remark: we could define [pure v] as [map (fun () -> v) unit], but we prefer to have the code explicit about using [unit], in particular as it ignores the destination argument. AABB[@ * The [find_*] machinery is used to locate a single subterm to optimize among a list of subterms. If there are several possible choices, we require that exactly one of them be annotated with [@tailcall], or we report an ambiguity. " here is how we will compute the result once we know that there is an unambiguously-determined tmc call, and whether an explicit request was necessary to disambiguate  FFGCG@ & we know there is at least one choice GGGH @ [choice_prim] handles most primitives, but the important case of construction [Lprim(Pmakeblock(...), ...)] is handled by [choice_makeblock] EPPGPP@ o [choice_apply] handles applications, in particular tail-calls which generate Set choices at the leaves KQQ LQ_Q@ other cases use the [lift] helper that takes the sub-terms in tail position and the context around them, and generates a choice for the whole term from choices for the tail subterms. %OQQ&QRYR@ * mutable bindings are not TMC-specialized +[SS,[ST@+ decompose 1hVV2hVV@+ transform 7kVV8kVV@) rebuild =pWW>pWW@+ decompose CvXXDvXX@+ transform IxY YJxY Y$@) rebuild O|YYP|YY@ in [try l1 with id -> l2], the term [l1] is not in tail-call position (after it returns we need to remove the exception handler) UZZV[4[j@ [ In [static-catch l1 with ids -> l2], the term [l1] is in fact in tail-position [\\ \\2\i@ o Support of tupled functions: the [function_kind] of the direct-style function is identical to the one of the input function, which may be Tupled, but the dps function is always Curried. [find_exact_application] is in charge of recovering the "real" argument list of a possibly-tupled call. a`P`\baa@ If we are calling a tmc-specializable function in tail context, then both the direct-style and dps-style calls must be tailcalls. gbbhcfc@ [@tailcall false] is interpreted as a bailout annotation: "we are (knowingly) leaving the dps calling convention". It only has sense in the DPS version of the generated code, not in direct style. mffngg@ * An ambiguous term should not lead to an error if it not used in TMC position. Consider for example: {[ type t = ... | K of t * (t * t) let[@tail_mod_cons] rec map f = function | [...] | K (t, (u, v)) -> K ((map[@tailcall]) f t, (map f u, map f v)) ]} Calling [choice_makeblock] on the K constructor, we need to determine whether its two arguments are ambiguous, which is done by calling [choice] on each argument to see if they would be TMC-able and if they are explicitly annotated. These calls give the following results: - there is an explicitly-requested tailcall in the first argument - the second argument is a nested pair whose arguments themselves are ambiguous -- with no explicit annotation. This determines that the arguments of K are not ambiguous, as only one of them is annotated. But note that the nested pair, in isolation, is ambiguous. This inner ambiguity is innocuous and should not result in an error, as we never use this inner pair in TMC position, only in direct style. This example shows that it would be incorrect to fail with an error whenever [choice] finds an ambiguity. Instead we only error when generating the [dps] version of the corresponding code; requesting the [direct] version is accepted and produces the expected direct code. sjIjQtpup@ Whether or not the caller provides a destination, we can always provide a destination to our settable subterm, so the number of TMC sub-calls is identical in the [direct] and [dps] versions. y-uuz0vv@ - The important case is the construction case ;ww;wx @ 1 Some primitives have arguments in tail-position ?xyx}?xyx@ in common cases we just return Gy|yGy|y@ * we don't handle effect or DLS primitives `||`|}!@ # we don't handle atomic primitives c}`}dc}`}@ 3 we don't handle array indices as destinations yet f}}f}}@ : we don't handle { foo with x = ...; y = recursive-call } i~~i~~B@ T operations returning boxed values could be considered constructions someday l~W~[m~~@ c Lazy blocks should never contain a recursive call directly: either it's a closure (Lazy_tag), or a variable (Forward_tag). The case 'let foo = recursive_call in lazy foo' could be translated to use tmc in the cases where 'foo' might be of type lazy or float, but given the fragility of such a transformation we choose not to. uy @6 more common cases... |%)|%C@ 1 Support of Tupled function: see [choice_apply]. @@*./ocamlopt)-nostdlib"-I(./stdlib"-I1otherlibs/dynlink"-g0-strict-sequence*-principal(-absname"-w8+a-4-9-40-41-42-44-45-48+-warn-error"+a*-bin-annot/-strict-formats"-I&lambda"-I%utils"-I'parsing"-I&typing"-I(bytecomp"-I,file_formats"-I&lambda"-I*middle_end"-I2middle_end/closure"-I2middle_end/flambda"-I=middle_end/flambda/base_types"-I'asmcomp"-I&driver"-I(toplevel"-I%tools"-I'runtime"-I1otherlibs/dynlink"-I-otherlibs/str"-I4otherlibs/systhreads"-I.otherlibs/unix"-I8otherlibs/runtime_events2-function-sections"-c S/home/teraram/ci/builds/workspace/parallel-build/flambda/true/label/ocaml-manycores ?>3210/.-,+*)('&%$#"! @@012gTa d3@@@(Asttypes0>n{T8cئ5Build_path_prefix_map0z HkGs8CamlinternalFormatBasics0%FU(Q/Tu0CamlinternalLazy0&͂7 Pˆ*Cmi_format0c˯7͗ԩmݠ*Data_types0I'Ue`wq]Ѡ)Debuginfo0PtJ=^w/#Env0zV L{YWI*Format_doc0]mWϓ:Mݠ%Ident0">WA+9*X,Identifiable0 {d\FX'`T0z1x]&ZT)Load_path0I@18 ~(Location0a7cK_H%9)Longident0s `7mɕc$Misc0ob]6>Vê>+Outcometree0euWS~d栠)Parsetree0Uҩ=p>*%"e$Path0Y2kf֯J._Ϡ)Primitive0²~$xzT෠%Shape0oNՄBH&Stdlib0Lku]8_٠.Stdlib__Buffer08APF< t..Stdlib__Digest0l!LHgErζ .Stdlib__Domain0:M;׉<O$Ġ.Stdlib__Either0Vy`u~c à.Stdlib__Format0ܚ#G7m|/Stdlib__Hashtbl0ѱN][/!,Stdlib__Lazy0* -S$.)"0D.Stdlib__Lexing0e<.V ,Stdlib__List0MYm 7R+Stdlib__Map0L5xE|O0~,J-.Stdlib__Option0zf**=.Stdlib__Printf0)5h Ԝ΀Q .Stdlib__Result06 ]/J+Stdlib__Seq0nwzG&amg+Stdlib__Set0\$;7 .Stdlib__String0s0vȽ PdŠ.Type_immediacy0A^abOhՠ%Types0xH+}q)Unit_info0ڀh%((Warnings0mJɒkgrH@|ɑ@GG qU_0@Ր@Kw5S]@Gְ傑@%@MپȰY@曕l@֑ϕ@66=@@]ۑ]*N(#Ɛ̧@!!cc滕@p@FNd@+@N,ĩij@1@NW@@JʑJ԰g@0j@~u@@rNJ៘ᩰԒ@@?x?!@5ˑհN@jujőϰ$@@$@;b;l琓@""?@Ց߰q{Wa@׀׊@{@Ίr@@>?>I@99 @B@@@'@$2ᢕ7@ީ޳@v@@@IS @T_~@""