Caml1999I031[%mР$Misc+fatal_error)@&stringO@@@!a@@@@.utils/misc.mliWW@@@@,fatal_errorf*@&Stdlib'format4!a@&Format)formatter@@@$unitF@@@!b@@@@@@@-X.X@@CA@ +Fatal_error+ #exnG@@@A&_none_@@A@PBB@+try_finally,&always&optionJ@.@@@2@@@@@@@@-exceptionally@@@@@D@@@@@@@@@@M@@@!a@@@@@@@@@@v[66w^@@C@ >C > v@@E@.map_left_right/@@!a@!b@@@@*@@@/@@@@@@@@E  E  @@F@(for_all20@@!a@@!b@$boolE@@@@@@@@S@@@@Z@@@@@@@@@@@@@G ? ?G ? }@@%G@.replicate_list1@!a@@#intA@@@z@@@@@@@@+K 9 9,K 9 a@@AH@+list_remove2@!a@@ @@@@@@@@@@@FN  GN  @@\I@*split_last3@!a@@@@ @@@@@@@@cQbbdQb@@yJ@-ref_and_value48@@!Rg#ref!a@@@@@@@@TT@@L@@A@@@@@T@@@@KA@,protect_refs5@@@@@@@@@|@@@!a@@@@@@@@VVM@@M@Ӡ&Stdlib6@Ӡ$Listl@!tq8!a@W@A@A @@@XY@@@@@^dh^d{@@@@NA@'comparer@@!a@]@@@@Y@@Z@@[@,@@@\@@@@^@@@_@@`@@a@@b@`}`}@@O@%equals@@!a@g@ @@@c@@d@@e@(@@@f@.@@@h@@@i@@j@@k@@l@dBFdB|@@,P@=some_if_all_elements_are_somet@Aݠ!a@o@@@m@@@nR @@@p@@@q@@r@7h 8h O@@MQ@+map2_prefixu@@!a@u@!b@x!c@z@@s@@t@t@@@v@z@@@w@@@{@@@y@@|@@}@@~@@@jmkm`@@R@(split_atv@U@@@@!a@@@@ @@@@@@@@@@@@@r r4@@S@)is_prefixw%equal@!a@@@@@@@@@@@@@#of_@@@@@@@@@@@@@w {gt@@T@Z@@Ӡ&Optionm@!tz8!a@J@A@A @@@KY@@@@@DE@@@@Z[A@%print{@@F&Format)formatter@@@L@!a@Q=@@@M@@N@@O@Y&Format)formatter@@@P@<@@@RQ@@@S@@T@@U@@V@vw@@\@@@zsu{@]@@Ӡ%Arrayn@'exists2|@@!a@3@!b@5@@@0@@1@@2@%arrayH@@@4@ @@@6@@@7@@8@@9@@:@.2.r@@^@(for_alli}@@@@@;@!a@?@@@<@@=@@>@/@@@@@@@A@@B@@C@@@_@)all_somes~@C!a@F@@@D@@@EU@@@G@@@H@@I@@@`@@@@a@@Ӡ&Stringo@!t8@@@A&stringO@@@@@@@*string.mliRR@@@@.Stdlib__String@A@$make@#intA@@@@$charB@@@!@@@@@@@@U U@@A@$init@@@@@@%@@@!@@@@@@@@@@@@@@>[||?[|@@=B@%emptyM@@@@KbLb@@JC@(of_bytes@%bytesC@@@b@@@@@@`hah@@_D@(to_bytes@q@@@@@@@@@soNNtoNl@@rE@&length@@@@u@@@@@.%string_lengthAA @@@vv @@F@#get@@@@@@@@@@@@@@@0%string_safe_getBA@@@@yRRyR@@G@&concat@@@@@$listI@@@@@@@@@@@@@@@@H@#cat@@@@@@@@@@@@@@@@@@I@%equal@@@@@@@@$boolE@@@@@@@@@@J@'compare@@@@@@@@@@@@@@@@:::U@@K@+starts_with&prefix&@@@@,@@@4@@@@@@@@./P@@-L@)ends_with&suffixA@@@@G@@@O@@@@@@@@IJ@@HM@-contains_from@Z@@@@M@@@@K@@@n@@@@@@@@@@hi@@gN@.rcontains_from@y@@@@l@@@@j@@@@@@@@@@@@@eee@@O@(contains@@@@@@@@@@@@@@@@___@@P@#sub@@@@@@@@@@@@@@@@@@@@@@@@Q@-split_on_char@@@@@@@@@@@@@@@@@@@4@@R@#map@@@@@@@@@@@@@@@@@@@@@@VVV@@S@$mapi@@@@@@@@@@@@@@@@@@@@#@@@@@@@@!"<@@ T@)fold_left@@!a@@@@@ @@@@@ @B@@@@@@@@@@@A@@?U@*fold_right@@8@@@@!a@ @@@@@_@@@ @  @@ @@ @@ @_ v v` v @@^V@&exists@@W@@@z@@@@@@|@@@@@@@@@@@~!!!"@@}X@$trim@@@@@@@@@@"s"s"s"@@Y@'escaped@@@@@@@@@@#;#;#;#Y@@Z@/uppercase_ascii@@@@@@@@@@ %l%l %l%@@[@/lowercase_ascii@@@@@@@@@ @&<&<&<&b@@\@0capitalize_ascii@@@@!@@@"@@#@' ' ' '3@@]@2uncapitalize_ascii@@@@$@@@%@@&@''''@@^@$iter@@@@@'$unitF@@@(@@)@@@@* @@@+@@,@@-@#((#((@@_@%iteri@@@@@.@@@@/'@@@0@@1@@2@4@@@31@@@4@@5@@6@6'))7'))@@5`@*index_from@G@@@7@:@@@8@8@@@9D@@@:@@;@@<@@=@U/*U*UV/*U*@@Ta@.index_from_opt@f@@@>@Y@@@?@W@@@@&optionJi@@@A@@@B@@C@@D@@E@{7+t+t|7+t+@@zb@+rindex_from@@@@F@@@@G@}@@@H@@@I@@J@@K@@L@>,t,t>,t,@@c@/rindex_from_opt@@@@M@@@@N@@@@OE@@@P@@@Q@@R@@S@@T@E--E--@@d@%index@@@@U@@@@V@@@W@@X@@Y@L..L..@@e@)index_opt@@@@Z@@@@[|@@@\@@@]@@^@@_@O..O./$@@f@&rindex@@@@`@@@@a@@@b@@c@@d@T/s/sT/s/@@ g@*rindex_opt@@@@e@ @@@f@@@g@@@h@@i@@j@,W//-W/0@@+h@&to_seq@J@@@k&Stdlib#Seq!t/@@@l@@@m@@n@I^00J^00@@Hi@'to_seqi@g@@@o#Seq!tT@@@qQ@@@p@@r@@@s@@t@ke1~1~le1~1@@jj@&of_seq@<#Seq!th@@@u@@@v@@@w@@x@j22j22 @@k@/get_utf_8_uchar@@@@y@@@@z_%Uchar*utf_decode@@@{@@|@@}@u22u22@@l@.is_valid_utf_8@@@@~@@@@@@y3O3Oy3O3m@@m@2get_utf_16be_uchar@@@@@@@@%Uchar*utf_decode@@@@@@@@3334@@n@1is_valid_utf_16be@@@@@@@@@@4q4q4q4@@o@2get_utf_16le_uchar@@@@@@@@%Uchar*utf_decode@@@@@@@@5555C@@p@1is_valid_utf_16le@@@@@@@@@@ 55 55@@ q@&create@ @@@@@@@@2caml_create_stringAA@@@#6G6G$6}6@0ocaml.deprecated*6}6+6}6@ ,Use Bytes.create/BytesLabels.create instead.56}666}6@@86}696}6@@@@@;6}6@@9r@#set@@@@@>@@@@<@@@T@@@@@@@@@0%string_safe_setCAӠ@@@@@_77`8(8g@0ocaml.deprecatedf8(8-g8(8=@ &Use Bytes.set/BytesLabels.set instead.q8(8?r8(8e@@t8(8>u8(8f@@@@@w8(8*@@us@$blit@@@@@z@@@@7@@@@@@@@@@@@@@@@@@@@@@@@@9999@@t@$copy@@@@@@@@@@;;;;;W;@0ocaml.deprecated;W;\;W;l@ &Strings now immutable: no need to copy;W;n;W;@@;W;m;W;@@@@@;W;Y@@u@$fill@@@@@@@@@@@@@@@@@@@@@@@@@@@@<3<3>K@0ocaml.deprecated!=="=>@ @Use String.uppercase_ascii/StringLabels.uppercase_ascii instead.,>> ->>I@@/>>0>>J@@@@@2==@@0w@)lowercase@B@@@F@@@@@@D?C?CE?z?@0ocaml.deprecatedK?d?iL?d?y@ @Use String.lowercase_ascii/StringLabels.lowercase_ascii instead.V?z?W?z?@@Y?z?~Z?z?@@@@@\?d?f@@Zx@*capitalize@l@@@p@@@@@@n@@o@A:@0ocaml.deprecatedu@@v@@@ BUse String.capitalize_ascii/StringLabels.capitalize_ascii instead.@@@A8@@@@@A9@@@@@@@@@y@,uncapitalize@@@@@@@@@@BBBHB@0ocaml.deprecatedB2B7B2BG@ FUse String.uncapitalize_ascii/StringLabels.uncapitalize_ascii instead.BHBMBHB@@BHBLBHB@@@@@B2B4@@z@)get_uint8@@@@@@@@@@@@@@@@GGGG<@@{@(get_int8@@@@@@@@@@@@@@@@GGGG@@|@-get_uint16_ne@@@@@@@@@@@@@@@@H>H>H>Hf@@}@-get_uint16_be@ @@@@@@@@@@@@@@@HHHI@@~@-get_uint16_le@$@@@@@@@@@@@@@@@,II-II@@+@,get_int16_ne@=@@@@0@@@4@@@@@@@@EJ?J?FJ?Jf@@D@@,get_int16_be@V@@@@I@@@M@@@@@@@@^#JJ_#JK@@]A@,get_int16_le@o@@@@b@@@f@@@@@@@@w*KKx*KK@@vB@,get_int32_ne@@@@@{@@@%int32L@@@@@@@@1L4L41L4L]@@C@,get_int32_be@@@@@@@@@@@@@@@@8LL8LM@@D@,get_int32_le@@@@@@@@4@@@@@@@@?MwMw?MwM@@E@,get_int64_ne@@@@@@@@%int64M@@@@@@@@FNNFNNC@@F@,get_int64_be@@@@@@@@@@@@@@@@MNNMNN@@G@,get_int64_le@ @@@@@@@4@@@@@@@@TO]O]TO]O@@H@*unsafe_get@"@@@@@@@@@@@@@@2%string_unsafe_getBA@@@@/_PLPL0_PLP@@.I@*unsafe_set@@@@ @3@@@ @1@@@ I@@@ @@ @@@@2%string_unsafe_setCAȠ@@@@@T`PPUaPP@0ocaml.deprecated[aPP\aPP@@_aPP @@]J@+unsafe_blit@o@@@@b@@@@@@@@n@@@@t@@@@@@@@@@@@@@@@0caml_blit_stringE@@@@@@@@bPPdQ1QZ@'noallocdQ1QRdQ1QY@@dQ1QO @@K@+unsafe_fill@P@@@@@@@@@@@@@@@@@@@@ @@!@@"@@#0caml_fill_stringD@:@@@@@@eQ[Q[gQQ@'noallocfQrQfQrQ@@fQrQfQrQ@0ocaml.deprecatedgQQgQQ@@gQQ@@L@Ӡ#Set@#elt8@@@A @@@@@@@ *F *W@@@@ bA@!t8@@@A@@@@@'set.mliG : >G : D@@@@+Stdlib__SetDA@%empty@@@@J c gJ c s@@E@(is_empty@@@@$boolE@@@@@@#M  $M  @@"F@#mem@B@@@@)@@@@@@@@@@@;P  <P  @@:G@#add@@@@@@@@@C@@@@@@@@QS 9 =RS 9 S@@PH@)singleton@.@@@T@@@@@@bY Z ^cY Z u@@aI@&remove@?@@@@g@@@j@@@@@@@@x\  y\  @@wJ@%union@x@@@@}@@@@@@@@@@@bb@@K@%inter@@@@@@@@@@@@@@@@ee2@@L@(disjoint@@@@@@@@@@@@@@@@hQUhQq@@M@$diff@@@@@@@@@@@@@@@@ll@@N@'compare@@@@@@@@#intA@@@@@@@@p15p1O@@O@%equal@@@@@@@@@@@@@@@@tt@@P@&subset@@@@@@@@@@@@@@@@xMQxMk@@Q@$iter@@@@@$unitF@@@@@@%@@@ @@@@@@@@7|8|@@6R@#map@@@@@@@@@@@A@@@D@@@@@@@@RS@@QS@$fold@@1@@@@!a@@@@@@_@@@@  @@@@@@@op@@nT@'for_all@@N@@@b@@@@@@z@@@k@@@@@ @@ @vzv@@U@&exists@@k@@@ @@@ @@ @@@@@@@@@@@@*@@V@&filter@@@@@@@@@@@@@@@@@@@@@@@@W@*filter_map@@@@@&optionJ@@@@@@@@@@@@@@@@@@@ @@@X@)partition@@@@@!@@@"@@#@@@@$@@@&@@@%@@'@@(@@)@  B@@ Y@(cardinal@ @@@*4@@@+@@,@040J@@Z@(elements@@@@-$listI@@@.@@@/@@0@45@@3[@'min_elt@4@@@1@@@2@@3@EF@@D\@+min_elt_opt@E@@@4~)@@@5@@@6@@7@[@D\@d@@Z]@'max_elt@[@@@8;@@@9@@:@lm*@@k^@+max_elt_opt@l@@@;P@@@<@@@=@@>@@@_@&choose@@@@?b@@@@@@A@#7@@`@*choose_opt@@@@B̠w@@@C@@@D@@E@ @@a@%split@@@@F@@@@G@@@J@@@I@@@H@@K@@L@@M@   !@@b@$find@@@@N@@@@O@@@P@@Q@@R@""""@@c@(find_opt@@@@S@@@@T@@@U@@@V@@W@@X@#b#f#b#@@d@*find_first@@@@@Y@@@Z@@[@@@@\@@@]@@^@@_@$5$9$5$b@@e@.find_first_opt@@@@@` @@@a@@b@#@@@c\@@@d@@@e@@f@@g@9&=&A:&=&u@@8f@)find_last@@@@@h,@@@i@@j@D@@@k$@@@l@@m@@n@U 'd'hV 'd'@@Tg@-find_last_opt@@4@@@oH@@@p@@q@`@@@rD@@@s@@@t@@u@@v@v(r(vw(r(@@uh@'of_list@WW@@@w@@@x~@@@y@@z@))))@@i@+to_seq_from@i@@@{@@@@|&Stdlib#Seq!t{@@@}@@@~@@@@@ ** **@@j@&to_seq@@@@#Seq!t@@@@@@@@@%+h+l%+h+@@k@*to_rev_seq@@@@5#Seq!t@@@@@@@@@)++)++@@l@'add_seq@K#Seq!t@@@@@@@@@@@@@@@@@@-,G,K-,G,l@@m@&of_seq@i#Seq!t@@@@@@@@@@@@1,,1,,@@n@@@%*.#@:c@@Ӡ#Map@#key8@@@A>@@@@@@@8Xt9X@@@@NdA@!t8!a@@A@A@I@B@@@'map.mliF ; ?F ; J@@@@+Stdlib__MapDA@%empty!a@@@@@I  I  @@E@(is_empty@!a@@@@$boolE@@@@@@-L  .L  @@,F@#mem@S@@@@3!a@@@@@@@@@@@@JO  KO  $@@IG@#add@@@@@!a@@U @@@Y @@@@@@@@@@hS  iS  @@gH@&update@;@@@@@&optionJ!a@@@@  @@@@@@@@@@@@@@@@@@@\dh\d@@I@)singleton@g@@@@!a@@@@@@@@@ii9@@J@&remove@@@@@!a@@@@@@@@@@@@oo@@K@%merge@@@@@@`!a@@@@@k!b@@@@t!c@@@@@@@@@@@@@@@@@@@@@@@@@@@@vxb@@L@%union@@@@@@!a@@ @@@@@@@@@@@@@@!@@@%@@@@@@@@@@44854y@@3M@'compare@@!a@@#intA@@@@@@@@D@@@@J@@@@@@@@@@@@@]^@@\N@%equal@@!a@@I@@@@@@@@k@@@@q@@@Y@@@@@@@@@@X\X@@O@$iter @@Y@@@@!a@$unitF@@@@@@@@@@@ @@@@@@@@@@P@$fold @@@@@@!a@@!b@@@@@@@@@@@@  @@@@@@@ @@Q@'for_all @@@@@@!a@@@@@@@@@ߠ @@@@@@@@@@@ @@R@&exists @@@@@@!a@@@@@@@@@ @@@@@@@@@@@@@S@&filter @@@@@@!a@@@@@@@@@' @@@+@@@@@@@@:@D;@s@@9T@*filter_map@@@@@@!a@ ֠!b@@@@ @@ @@ @P@@@ T@@@@@@@@cd@@bU@)partition@@8@@@@!a@R@@@@@@@@t @@@{@@@@@@@@@@@@@!!!!@@V@(cardinal@!a@@@@[@@@@@ @"""# @@W@(bindings@!a@"@@@!$listI@@@#@@$@@@%@@&@#]#a#]#@@X@+min_binding@Ǡ!a@(@@@'@@@) @@*@@+@$$$$@@Y@/min_binding_opt@!a@-@@@,z@@@.@@/@@@0@@1@%%%%@@Z@+max_binding@!a@3@@@2@@@4 @@5@@6@&l&p&l&@@[@/max_binding_opt@!a@8@@@7@@@9@@:@@@;@@<@9'':''L@@8\@&choose@9!a@>@@@=@@@? @@@@@A@S''T''@@R]@*choose_opt@S!a@C@@@B5@@@D@@E@@@F@@G@r((s()@@q^@%split@E@@@H@w!a@L@@@I @@@M@@@K@@@J@@N@@O@@P@ )) )* @@_@$find@o@@@Q@!a@S@@@R@@T@@U@++++@@`@(find_opt@@@@V@!a@X@@@WR @@@Y@@Z@@[@,7,;,7,a@@a@*find_first@@@@@\@@@]@@^@ܠ!a@`@@@_@@@a @@b@@c@@d@ -- --6@@b@.find_first_opt@@@@@e@@@f@@g@!a@i@@@h@@@j@@k@@@l@@m@@n@ -//!!-//_@@c@)find_last@@@@@o @@@p@@q@+!a@s@@@r @@@t @@u@@v@@w@E40W0[F40W0@@Dd@-find_last_opt@@@@@x.@@@y@@z@P!a@|@@@{2@@@}@@~@@@@@@@@o;1v1zp;1v1@@ne@#map@@!a@!b@@@@{ @@@ @@@@@@@@C22C22@@f@$mapi @@c@@@@!a@!b@@@@@@ @@@ @@@@@@@@J44J44I@@g@&to_seq!@!a@@@@&Stdlib#Seq!t@@@@@@@@@@@P44P45#@@h@*to_rev_seq"@נ!a@@@@%#Seq!t@@@@@@@@@@@T5y5}T5y5@@i@+to_seq_from#@@@@@!a@@@@L#Seq!t@@@@@@@@@@@@@ X56!X562@@j@'add_seq$@f#Seq!t@@@!a@@@@@@@5 @@@9@@@@@@@@H]66I]66@@Gk@&of_seq%@#Seq!t%@@@!a@@@@@@[@@@@@@ja7M7Qka7M7v@@il@@@X\~@e@@Ӡ#Tbl@#key&8@@@A@@@@@@@@@@@fA@!t'8!a@@A@A@O@B@@@+hashtbl.mliO55O55@@@@/Stdlib__HashtbldA@&create(@#intA@@@ !a@@@@@@@P55P55@@e@%clear)@!a@@@@$unitF@@@@@@5Q556Q55@@4f@%reset*@-!a@@@@@@@@@@LR55MR56 @@Kg@$copy+@D!a@ @@@L@@@ @@ @cT6#6'dT6#6>@@bh@#add,@[!a@@@@ @@@@ @ O@@@@@@@@@@U6?6CU6?6f@@i@&remove-@z!a@@@@@@@@k@@@@@@@@V6g6kV6g6@@j@$find.@!a@@@@@;@@@ @@@@@W66W66@@k@(find_opt/@!a@ @@@@S@@@&optionJ@@@!@@"@@#@X66X66@@l@(find_all0@͠!a@&@@@$@r@@@%$listI@@@'@@(@@)@[66[67@@m@'replace1@!a@,@@@*@@@@+@ @@@-@@.@@/@@0@\77!\77H@@n@#mem2@ !a@1@@@2@@@@3$boolE@@@4@@5@@6@0]7I7M1]7I7j@@/o@$iter3@@@@@7@!a@;@@@8@@9@@:@9 @@@<!@@@=@@>@@?@T^7k7oU^7k7@@Sp@2filter_map_inplace4@@@@@@@!a@D@@@A@@B@@C@^@@@EF@@@F@@G@@H@y_77z`77@@xq@$fold5@@@@@I@!a@M@!b@O@@J@@K@@L@@@@N@  @@P@@Q@@R@c88c88=@@r@&length6@!a@S@@@T@@@U@@V@d8>8Bd8>8Z@@s@%stats7@!a@W@@@X*statistics@@@Y@@Z@e8[8_e8[8|@@t@&to_seq8@Ơ!a@\@@@[&Stdlib#Seq!tv@@@]@@^@@@_@@`@g88g88@@u@+to_seq_keys9@@@a@@@b##Seq!t@@@c@@@d@@e@j88j88@@v@-to_seq_values:@!a@g@@@fA#Seq!t @@@h@@i@*m99+m99<@@)w@'add_seq;@"!a@k@@@j@^#Seq!t@@@l@@m@@@n@@@o@@p@@q@Rp9U9YSp9U9@@Qx@+replace_seq<@J!a@s@@@r@#Seq!t@@@t@@u@@@vG@@@w@@x@@y@zs99{s99@@yy@&of_seq=@#Seq!t@@@z!a@}@@{@@@|@@@~@@@v99v9:@@z@@@y@g@@%print@x&Format)formatter@@@$@@@@%n@@@&@@'@@(@@@h@'for_all@@$charB@@@)@@@*@@+@@@@,@@@-@@.@@/@@@i@@@@j@@'comparep@!a@@@@@@@@@(%compareBA @@@@N@@k@@@\<<OR@l@@,find_in_path7@5@@@@@@@@@@@@@@@@@@TTT@@ m@0find_in_path_rel8@S @@@@@@@@@@@@@@@@@@@@(n@2find_in_path_uncap9@q+@@@@@@@2@@@6@@@@@@@@01111h@@Fo@+remove_file:@E@@@@@@ @@ @CD @@Yp@0expand_directory;@X@@@ @^@@@ b@@@ @@@@@\ii]i@@rq@3split_path_contents<#sep"@@@@@@@}@@@ˠ@@@@@@@@@@@+++f@@r@0create_hashtable=@k@@@@!a@!b@@@@@@'Hashtbl!t @@@@@@@@ u u u @@s@)copy_file>@*in_channel@@@@+out_channel@@@ @@@!@@"@@#@!!!!L@@t@/copy_file_chunk?@*in_channel@@@$@+out_channel@@@%@@@@&@@@'@@(@@)@@*@!!!"@@u@.string_of_file@@*in_channel@@@+@@@,@@-@""""@@v@@@?@O&<&<P&&@@ex@$log2C@:@@@@>@@@A@@B@b&&c&&@@xy@%alignD@M@@@C@S@@@DW@@@E@@F@@G@{''|''@@z@/no_overflow_addE@f@@@H@l@@@I@@@J@@K@@L@'|'|'|'@@{@/no_overflow_subF@@@@M@@@@N@@@O@@P@@Q@((((>@@|@/no_overflow_mulG@@@@R@@@@S@@@T@@U@@V@((((@@}@/no_overflow_lslH@@@@W@@@@X@@@Y@@Z@@[@)M)M)M)t@@~@Ӡ5Int_literal_converterI@#int>@@@@@@@@@@* * * *#@@@%int32?@ @@@%int32L@@@@@@ *$*&*$*A@@#@@%int64@@"@@@%int64M@@@@@@"*B*D#*B*_@@8A@)nativeintA@7@@@)nativeintK@@@@@@7*`*b8*`*@@MB@@@;))<**@QC@@/chop_extensionsJ@P@@@\T@@@]@@^@N**O**@@dD@0search_substringK@c@@@_@i@@@`@E@@@aI@@@b@@c@@d@@e@m++n+,@@E@1replace_substringL&before@@@f%after@@@g@@@@h@@@i@@j@@k@@l@,,,-A@@F@/rev_split_wordsM@@@@m@@@n@@@o@@p@---.@@G@'get_refN@#ref !a@s@@@q@@@r @@@t@@u@....@@H@-set_or_ignoreO@@!a@{!b@x@@@v@@w@#ref@@@y@@@z@@@@|@@}@@~@@@/</</</@@ I@$fst3P@!a@!b@!c@@@@@@0 0 0 0)@@&J@$snd3Q@!a@!b@!c@@@ @@@, 0*0*- 0*0F@@BK@$thd3R@!a@!b@!c@@@@@@H!0G0GI!0G0c@@^L@$fst4S@!a@!b@!c@!d@@@@@@i#0e0ej#0e0@@M@$snd4T@!a@!b@!c@!d@@@@@@$00$00@@N@$thd4U@!a@!b@!c@!d@@@ @@@%00%00@@O@$for4V@!a@!b@!c@!d@@@@@@&00&00@@P@Ӡ*LongStringW@!tB8@@@A?%bytesC@@@@@@@@@@*11 *11 @@@@QA@&createC@@@@!@@@@@@+1!1%+1!1:@@R@&lengthD@@@@@@@@@@ ,1;1? ,1;1T@@"S@#getE@!@@@@@@@@@@@@@@@$-1U1Y%-1U1s@@:T@#setF@9@@@@@@@@@@@@@@@@@@@@@B.1t1xC.1t1@@XU@$blitG@W@@@@2@@@@b@@@@=@@@@C@@@F@@@@@@@@@@@@@@k/11l/11@@V@+blit_stringH@@@@@\@@@@@@@@g@@@@m@@@p@@@@@@@@@@@@@@011012 @@W@&outputI@+out_channel@@@@@@@@@@@@@@@@@@@@@@@@@@@12 212 2D@@X@0input_bytes_intoJ@@@@@*in_channel@@@@@@@@@@@@@@@@@22E2I22E2~@@Y@+input_bytesK@*in_channel@@@@@@@@@@@@@@@322322@@Z@@@(00422@ [@@-edit_distanceX@ @@@@@@@@@@@ʠ@@@@@@@@@@@@@622622@@0\@*spellcheckY@y3@@@@@@@:@@@B@@@@@@@@@@@=B44>B45 @@S]@,did_you_meanZ@=&Format)formatter@@@@@2@@@e@@@@@@@@?@@@@@@@@dH6 6 eH6 6P@@z^@&cut_at[@y@@@@@@@@@@@@@@@@@@@@U88U88@@_@.ordinal_suffix\@p@@@@@@@@@`:E:E`:E:g@@`@Ӡ%Color]@%colorL8@@%Black@@i;;i;;@@b#Red@@j;;j;;@@c%Green@@k;;k;;@@d&Yellow@@l;;l;;@@e$Blue@@m;;m;;@@f'Magenta@@n;<n;< @@g$Cyan@@o< <o< <@@h%White@@p<<p<< @@ i@@A@@@@@h;;@@A@ aA@%styleM8@@"FG^@@@@@ t<6<: t<6@@ {@@A@@@@@ ==@@A@ xA@/default_settingU*@@@@ >> >>!@@!|@%setupV@ @@@@@@ @@@@@@!>#>%!>#>G@@!}@6set_color_tag_handlingW@!&Format)formatter@@@ @@@@@@!?? !??>@@!0~@@@!g;;!??@!4@@Ӡ+Error_style^@'settingX8@@*Contextual@@!3??!4??@@!I%Short@@!<??!=??@@!R@@A@@@@@!@??@@A@!UA@/default_settingY!@@@@!L??!M?@@@!b@@@!P??!Q@@@!f@@-normalise_eol_@!e@@@!i@@@@@@!c@@!d@@<@@!y@1delete_eol_spaces`@!x@@@!|@@@@@@!vAA!wAAF@@!@.pp_two_columnsa#sep!<!@@@@@@)max_lines!H r@@@@@@@!&Format)formatter@@@@ !@@@Ԡ!@@@@@@@@!@@@@@@@@@@@@!AA!B BT@@!@4show_config_and_exitb@!@@@!@@@@@@!DwDw!DwD@@!@=show_config_variable_and_exitc@!@@@!@@@@@@!DD!DD@@!@9get_build_path_prefix_mapd@!@@@!5Build_path_prefix_map#map@@@@@@@@@!DD!DE@@"@6debug_prefix_map_flagse@!@@@!\"@@@@@@@@@"EtEt"EtE@@"'@(print_iff@"&Format)formatter@@@@"#ref!3@@@@@@@@"(&Format)formatter@@@@!a@"@@@@@@@@  @@@@@@@@@"FF;F;"GFJF@@"\@(filepathg8@@@A"Z@@@@@@@"TFF"UFG@@@@"jA@'modnameh8@@@A"h@@@@@@@"bGG"cGG@@@@"xA@$crcsi8@@@A!@@@"1"q&Digest!t@@@@@@@@@@@@@@@"GG"GGD@@@@"A@&alertsj8@@@A &String#Map!t"@@@@@@@@@@"GFGF"GFGn@@@@"A@Ӡ,Magic_numberk@1native_obj_configZ8@@'flambda2@!@@@C"PFPJ"PFPY@@"@@A@@@@@"P)P+"PZP]@@@A"A@1native_obj_config[@@@D@"Q2Q4"Q2Q]@@"@'version\8@@@A!@@@E@@@@"QQ"QQ@@A@"A@$kind]8@@$Exec6@@"QQ"QQ@@"#Cmi7@@" QQ" QQ@@##Cmo8@@" QQ" QQ@@# #Cma9@@" QQ# QQ@@##Cmx:F@@@G@@# !QQ# !QR@@#"$Cmxa;S@@@F@@#!QR#!QR/@@#/$Cmxs<@@#""R0R4##"R0R:@@#8#Cmt=@@#+#R;R?#,#R;RD@@#A(Ast_impl>@@#4#R;RE#5#R;RO@@#J(Ast_intf?@@#=#R;RP#>#R;RZ@@#S@@A@@@@@#AQQ@@@@#VA@$info^8@@$kindA@v@@@I#R&RlRp#S&RlR{@@#h'versionB@@@@H#^'R|R#_'R|R@@#t@@A@@@@@#b%R\R^#c,SS@@@@#xA@#raw_8@@@A#v@@@J@@@@#p.SS#q.SS@@@@#A@+parse_error`8@@)TruncatedE#@@@L@@#5TuTy#5TuT@@#2Not_a_magic_numberF#@@@K@@#6TT#6TT@@#@@A@@@@@#4T`Tb@@@@#A@3explain_parse_errora@#YV@@@M@@@N@7@@@O#@@@P@@Q@@R@#8TT#8TT@@#@%parseb@X@@@S#&result@@@U!@@@T@@@V@@W@#=UU#=UU@@#@)read_infoc@#*in_channel@@@X#&result@@@Z>@@@Y@@@[@@\@#@VV#@VVJ@@$@,magic_lengthd"@@@]@#OXMXO#OXMXe@@$@*unexpectede8!a@^@A(expectedL@ $ UXX$ UXX@@$"&actualM@$UXX$UXY @@$*@@A@Y@@@@@$UXX$UXY @@@@$0A@0unexpected_errorf8@@$KindO.@@@b@@@c@@$2WY'Y+$3WY'YD@@$H'VersionP@@@a@@@_@@@`@@$GXYEYI$HXYEYo@@$]@@A@@@@@$KVY Y@@@@$`A@-check_currentg@@@@d@@@@e$Q&result$A@@@gJ@@@f@@@h@@i@@j@$lZYqYs$mZYqY@@$@8explain_unexpected_errorh@@@@k$@@@l@@m@$~^Z8Z:$^Z8Zs@@$@%errori8@@+Parse_errorT@@@o@@$bZZ$bZZ@@$0Unexpected_errorU4@@@n@@$cZZ$cZ[ @@$@@A@@@@@$aZZ@@@@$A@1read_current_infoj-expected_kind$gd@@@p@@@q@$*in_channel@@@r$&result@@@tE@@@s@@@u@@v@@w@$e[ [$f['[j@@$@.string_of_kindk@@@@x$@@@y@@z@$n\H\J$n\H\m@@$@2human_name_of_kindl@@@@{$@@@|@@}@$r\\$r\\@@%@+current_rawm@@@@~@@@@@@@%v]y]{%v]y]@@%@/current_versionn@@@@@@@@@@%y]]%y]]@@%'@(raw_kindo8@@@A%%@@@@@@@%^m^o% ^m^@@@@%5A@*parse_kindp@@@@$@@@@@@@@@%6^^%7^_@@%L@(raw_kindq@@@@@@@@@@%G_0_2%H_0_Q@@%]@#rawr@@@@@@@@@@%X`|`~%Y`|`@@%n@)all_kindss$@@@@@@@%ib`bb%jb`b{@@%@@@%mGqGq%nb|b@%@@@FӠ$Misc0,Z3XI`3y/-Stdlib__Uchar0*Ujmyc6]]W.Stdlib__String0I3UK# +Stdlib__Set0.z9FX+Stdlib__Seq05"g1<)b+Stdlib__Map0kZ,ҷ'V/Stdlib__Hashtbl04$*uկdD.Stdlib__Format0{hXsHW#ȼ.Stdlib__Either0&]XF.Stdlib__Digest0aI]2t*x4%".Stdlib__Buffer0K ɦb+Z8)#KH"&Stdlib0yӶ~*8CamlinternalFormatBasics0cEXyW@б@г&stringHWIW@@ @@@J@@А!a@A@SWWXW@@@ @@X@@@^W@@u@@ @@^,fatal_errorfiXjX@б@г>'format4tXuX@А!a@ A@0|{{|||||@{H%@AXX@@гW&Format)formatterXX@@ @@@ @@г$unitXX @@ @@@ #@@А!b@ A@ -X X@@@B8"@@@ 7XC@@А!aA<XX@@@F@@ A @@@X@@A@ @@G+Fatal_errorAY)Y4@ !@@@AY@@B@@@@@0@Zu@A @+try_finally[6:[6E@б&alwaysб@гK$unit\HS\HW@@ @@@ 0@ .(@A@@гZ$unit\H[\H_@@ @@@ @@@@@ @@б-exceptionallyб@гp$unit]dv]dz@@ @@@ %@@г}$unit$]d~%]d@@ @@@ 2@@@@@ 5@@б@б@г$unit8^9^@@ @@@ F@@А!a@ B@ OG^H^@@@ @@ T@@А!aXP^Q^@@@ @@ ]U^@@LӠ2@@@  @@ f^]df@@z ]@@@ @@ nf\HJ@@ @i[66@)ocaml.docz  [try_finally work ~always ~exceptionally] is designed to run code in [work] that may fail with an exception, and has two kind of cleanup routines: [always], that must be run after any execution of the function (typically, freeing system resources), and [exceptionally], that should be run only if [work] or [always] failed with an exception (typically, undoing user-visible state changes that would only make sense if the function completes correctly). For example: {[ let objfile = outputprefix ^ ".cmo" in let oc = open_out_bin objfile in Misc.try_finally (fun () -> bytecode ++ Timings.(accumulate_time (Generate sourcefile)) (Emitcode.to_file oc modulename objfile); Warnings.check_fatal ()) ~always:(fun () -> close_out oc) ~exceptionally:(fun _exn -> remove_file objfile); ]} If [exceptionally] fail with an exception, it is propagated as usual. If [always] or [exceptionally] use exceptions internally for control-flow but do not raise, then [try_finally] is careful to preserve any exception backtrace coming from [work] or [always] for easier debugging. w_x| ` b@@@@@@@C@*@ BC > I@б@б@А!a@ B@ 0@_t*@AC > LC > N@@А!b@ B@  C > RC > T@@@ @@ @@б@г$list C > \C > `@А!a'"C > YC > [@@@-@@@ ) @@б@г$list$C > g%C > k@А!b19+C > d,C > f@@@7@@@ @ @@гΠ$list9C > r:C > v@А!bFN@C > oAC > q@@@L@@@ U @@@@@ X@@@6@@ [9@@@N@@ ^PC > K@@@SC > >@@jE@@@e.map_left_right^E  _E  @б@б@А!a@ B@ 0ihhiiiii@|@AoE  pE  @@А!b@ B@  zE  {E  @@@ @@ @@б@г$listE  E  @А!a'"E  E  @@@-@@@ ) @@г2$listE  E  @А!b/7E  E  @@@5@@@ > @@@@@ A@@@4@@ DE  @@@E  @@F@@@K(for_all2G ? CG ? K@б@б@А!a@ B@ 0@bu@AG ? NG ? P@@б@А!b@ "B@ G ? TG ? V@@г$boolG ? ZG ? ^@@ @@@ @@@@@ !@@@)@@ $" @@б@г$listG ? fG ? j@А!a94G ? cG ? e@@@?@@@ ; @@б@г$listG ? qG ? u@А!bAKG ? nG ? p@@@G@@@ R @@г$bool'G ? y(G ? }@@ @@@ _@@@@@ b@@@.@@ e1 @@@F@@ h6G ? M@@@9G ? ?@@PG@@@o.replicate_listDK 9 =EK 9 K@б@А!a@ *B@ #0MLLMMMMM@@ASK 9 MTK 9 O@@б@г#int^K 9 S_K 9 V@@ @@@ $@@г$listkK 9 ]lK 9 a@А!a&!rK 9 ZsK 9 \@@@,@@@ &( @@@@@ '+@@@3@@ (.,@@@K 9 9@@H@@@4+list_removeN  N  @б@А!a@ 3B@ +0@IZ@AN  N  @@б@г;$listN  N  @А!aN  N  @@@@@@ - @@гP$listN  N  @А!a.)N  N  @@@4@@@ /0 @@@@@ 03@@@;@@ 164@@@N  @@I@@@<*split_lastQbfQbp@б@г|$listQbuQby@А!a@ 8@@@A@@@@@@@@@AmTnT@@@4 @@А!a, uTvT@@@г--ref_and_value~T.@@4/@@1@@A@-@@0}||}}}}}@@A.1@,protect_refsVV"@б@г*$listV3V7@гn-ref_and_valueV%V2@@ @@@ V0@<ys@A@@@ @@@ X @@б@б@г$unitV<V@@@ @@@ Y@@А!a@ _C@ Z!VDVF@@@ @@ [&@@А!a*VKVM@@@ @@ \/V;@@@0@@ ]39@@@V @q [protect_refs l f] temporarily sets [r] to [v] for each [R (r, v)] in [l] while executing [f]. The previous contents of the references is restored even if [f] raises an exception, without altering the exception backtrace. WNNZ8:@@@@@@@M@@F&StdlibC\<C\<I@@Б$ListD]PY]P]@@БA(!tE^dp^dq@А!a@ b0@yF8@@ a@A@A@F@ g@@F@ hF@ `G@B@@@/^dh0^d{@@@@GN@A3^dm4^do@@BA@8 @A@Aՠ'G@ c@@@ eY@@@@@@@@@@Aг $listI^dw@А!a3O^dtP^dv@@@6"@@$@@0ONNOOOOO@6@A%$@'compare\`}]`}@б@б@А!a@ F@ u0gffggggg@O_6@Am`}n`}@@б@А!a u`}v`}@@г(#int~`}`}@@ @@@ v@@@!@@ w@@@$@@ x @@б@г!t`}`}@А!a4/`}`}@@@:@@@ z6 @@б@г!t`}`}@А!aKF`}`}@@@Q@@@ |M @@гi#int`}`}@@ @@@ }Z@@@@@ ~]@@@.@@ `1 @@@F@@ c`}@@@`}@h  The lexicographic order supported by the provided order. There is no constraint on the relative lengths of the lists. ab@@@@@@@@O@!@w%equaldBJdBO@б@б@А!a@ F@ 0@*@AdBSdBU@@б@А!a dBYdB[@@гڠ$bool dB_ dBc@@ @@@ @@@!@@ @@@$@@  @@б@г!t dBk!dBl@А!a4/'dBh(dBj@@@:@@@ 6 @@б@г&!t7dBs8dBt@А!aKF>dBp?dBr@@@Q@@@ M @@г$boolLdBxMdB|@@ @@@ Z@@@@@ ]@@@.@@ `1 @@@F@@ c[dBR@@@^dBF@ Returns [true] if and only if the given lists have the same length and content with respect to the given equality function. je}kf @@@@@@@P@!@w=some_if_all_elements_are_somevh wh 2@б@гp!th ?h @@г&optionh 8h >@А!a@ F@ 0@<@Ah 5h 7@@@ @@@  @@@&@@@  #@@г &optionh Ih O@г!th Gh H@А!a+&h Dh F@@@1@@@ - @@@@@@ 2 @@@+@@ 53@@@h "@e If all elements of the given list are [Some _] then [Some xs] is returned with the [xs] being the contents of those [Some]s, with order preserved. Otherwise return [None]. iPTk@@@@@@@Q@1@H+map2_prefixm!m,@б@б@А!a@ F@ 0@_*@Am0m2@@б@А!b@ F@ m6m8@@А!c@ F@ m<m>@@@ @@ @@@'@@ " @@б@г!t mF!mG@А!a72'mC(mE@@@=@@@ 9 @@б@г&!t7mN8mO@А!b?I>mK?mM@@@E@@@ P @@Вг>!tOmWPmX@А!cLaVmTWmV@@@R@@@ h @@гT!tem^fm_@А!bmwlm[mm]@@@s@@@ ~ @@@ @@ "@@@:@@ ={m`@@@U@@ X@@@m@@ m/@@@m @ [let r1, r2 = map2_prefix f l1 l2] If [l1] is of length n and [l2 = h2 @ t2] with h2 of length n, r1 is [List.map2 f l1 h1] and r2 is t2. naep@@@@@@@R@@(split_atrr@б@гR#intrr@@ @@@ 0@,@A@@б@г!tr$r%@А!a@ F@ r!r#@@@ @@@ @@ВгŠ!tr,r-@А!a/r)r+@@@#@@@ 6 @@г۠!tr3r4@А!a3Er0r2@@@9@@@ L @@@ @@ Q"@@@:@@ T=@@@Z@@ W]@@@ r @ [split_at n l] returns the pair [before, after] where [before] is the [n] first elements of [l] and [after] the remaining ones. If [l] has less than [n] elements, raises Invalid_argument.  s59 u @@@@@@@ +S@*@j)is_prefix  w  w @б%equalб@А!a@ F@ 0 , + + , , , , ,@,@A 2x/ 3x1@@б@А!a  :x5 ;x7@@г $bool Cx; Dx?@@ @@@ @@@!@@ @@@$@@  @@б@г$list XyAM YyAQ@А!a4/ _yAJ `yAL@@@:@@@ 6 @@б#of_г $list qzRb rzRf@А!aMH xzR_ yzRa@@@S@@@ O @@г U$bool {gp {gt@@ @@@ \@@&@@ _ zR[ @@@1@@ c4 @@rI@@ f x(@@@ w @0 Returns [true] if and only if the given list, with respect to the given equality function on list members, is a prefix of the list [of_].  |uy }@@@@@@@ T@"@zA(H@ @@@ ߰  @@ X@@@@_@@@@@9@@@6@00( Hc@@Ш@г3$list Hi Hm@А!a;V Hf Hh@@@BY @@E@H@ \@>@::2 o@@Ш@г=$list %o &o@А!aEo ,o -o@@@Lr @@O@H@ u@H@DD< 5@@Ш@гG$list > ?@А!aO E F@@@V @@Y@H@ @R@@@@@@0 G F F G G G G G@@A@ #find_and_chop_longest_common_prefixǠ T U @б%equalб@А!a@G@ 0 a ` ` a a a a a@@A g  h @@б@А!a  o # p %@@г G$bool x ) y -@@ @@@ @@@!@@ @@@$@@  @@б%firstг $$list /A /E@А!a61 /> /@@@@<@@@ 8 @@б&secondг =$list FY F]@А!aOJ FV FX@@@U@@@ Q @@г F@@@@@?I@@@,@@@L  @@@ @ Same as [Array.for_all] from the standard library, but the function is applied with the index of the element as first argument, and the element itself as second argument.  % &}@@@@@@@ =_@@`)all_somesΠ 1 2@б@г %array < =@г &option F G@А!a@NJ@C0 N M M N N N N N@<@A T U@@@ @@@E @@@&@@@G #@@г ۠&option g h@г I%array q r@А!a+& x y@@@1@@@I- @@@@@@K2 @@@+@@L53@@@ "@@ `@$@@;@t@y@e @@0        @Bg @A 0        @i@A * @@@ @@&StringJ  @@БДР &String # )@@.Stdlib__String0        @@(@@B@@@0 a@@@!t8@@@A&stringO@@@@@@@*string.mliRR@@@@.Stdlib__String@A@$make@#intA@@@@$charB@@@!@@@@@@@@U U@@A@$init@@@@@@%@@@!@@@@@@@@@@@@@@>[||?[|@@=B@%emptyM@@@@KbLb@@JC@(of_bytes@%bytesC@@@b@@@@@@`hah@@_D@(to_bytes@q@@@@@@@@@soNNtoNl@@rE@&length@@@@u@@@@@А.%string_lengthAA @@@vv @@F@#get@@@@@@@@@@@@@@@ː0%string_safe_getBA@@@@yRRyR@@G@&concat@@@@@$listI@@@@@@@@@@@@@@@@H@#cat@@@@@@@@@@@@@@@@@@I@%equal@@@@@@@@$boolE@@@@@@@@@@J@'compare@@@@@@@@@@@@@@@@:::U@@K@+starts_with&prefix&@@@@,@@@4@@@@@@@@./P@@-L@)ends_with&suffixA@@@@G@@@O@@@@@@@@IJ@@HM@-contains_from@Z@@@@M@@@@K@@@n@@@@@@@@@@hi@@gN@.rcontains_from@y@@@@l@@@@j@@@@@@@@@@@@@eee@@O@(contains@@@@@@@@@@@@@@@@___@@P@#sub@@@@@@@@@@@@@@@@@@@@@@@@Q@-split_on_char@@@@@@@@@@@@@@@@@@@4@@R@#map@@@@@@@@@@@@@@@@@@@@@@VVV@@S@$mapi@@@@@@@@@@@@@@@@@@@@#@@@~@@}@@|@!"<@@ T@)fold_left@@!a@w@@@@{ @@z@@y@ @B@@@x@@v@@u@@t@@A@@?U@*fold_right@@8@@@s@!a@o@@r@@q@_@@@p@  @@n@@m@@l@_ v v` v @@^V@'for_all@@W@@@kz@@@j@@i@|@@@h@@@g@@f@@e@~!C!C!C!q@@}W@&exists@@v@@@d@@@c@@b@@@@a@@@`@@_@@^@!!!"@@X@$trim@@@@]@@@\@@[@"s"s"s"@@Y@'escaped@@@@Z@@@Y@@X@#;#;#;#Y@@Z@/uppercase_ascii@@@@W@@@V@@U@ %l%l %l%@@[@/lowercase_ascii@@@@T@@@S@@R@&<&<&<&b@@\@0capitalize_ascii@@@@Q@@@P@@O@' ' ' '3@@]@2uncapitalize_ascii@ @@@N@@@M@@L@''''@@^@$iter@@@@@K$unitF@@@J@@I@.@@@H @@@G@@F@@E@0#((1#((@@/_@%iteri@@0@@@D@.@@@C'@@@B@@A@@@@S@@@?1@@@>@@=@@<@U'))V'))@@T`@*index_from@f@@@;@Y@@@:@W@@@9c@@@8@@7@@6@@5@t/*U*Uu/*U*@@sa@.index_from_opt@@@@4@x@@@3@v@@@2&optionJ@@@1@@@0@@/@@.@@-@7+t+t7+t+@@b@+rindex_from@@@@,@@@@+@@@@*@@@)@@(@@'@@&@>,t,t>,t,@@c@/rindex_from_opt@@@@%@@@@$@@@@#E@@@"@@@!@@ @@@@@E--E--@@d@%index@@@@@@@@@@@@@@@@L..L..@@e@)index_opt@@@@@@@@|@@@@@@@@@@@O..O./$@@f@&rindex@%@@@@@@@@@@@@@@@-T/s/s.T/s/@@,g@*rindex_opt@>@@@ @)@@@ 9@@@ @@@ @@ @@@KW//LW/0@@Jh@&to_seq@i@@@&Stdlib#Seq!tN@@@@@@@@@h^00i^00@@gi@'to_seqi@@@@#Seq!ts@@@p@@@@@@@@@@@e1~1~e1~1@@j@&of_seq@<#Seq!t@@@@@@@@@@@@j22j22 @@k@/get_utf_8_uchar@@@@@@@@_%Uchar*utf_decode@@@@@@@@u22u22@@l@.is_valid_utf_8@@@@@@@@@@y3O3Oy3O3m@@m@2get_utf_16be_uchar@@@@@@@@%Uchar*utf_decode@@@@@@@@3334@@n@1is_valid_utf_16be@ @@@@@@@@@4q4q4q4@@o@2get_utf_16le_uchar@@@@@@@@%Uchar*utf_decode@@@@@@@@5555C@@p@1is_valid_utf_16le@7@@@1@@@@@@+55,55@@*q@&create@)@@@@@@@@ߐ2caml_create_stringAA@@@B6G6GC6}6@0ocaml.deprecatedI6}6J6}6@ ,Use Bytes.create/BytesLabels.create instead.T6}6U6}6@@W6}6X6}6@@@@@Z6}6@@Xr@#set@@@@@]@@@@[@@@T@@@@@@@@@ؐ0%string_safe_setCA@@@@@~778(8g@0ocaml.deprecated8(8-8(8=@ &Use Bytes.set/BytesLabels.set instead.8(8?8(8e@@8(8>8(8f@@@@@8(8*@@s@$blit@@@@@@@@@V@@@@@@@@@@@@@@@@@@@@@@@@@9999@@t@$copy@@@@@@@@@@;;;;;W;@0ocaml.deprecated;W;\;W;l@ &Strings now immutable: no need to copy;W;n;W;@@;W;m;W;@@@@@;W;Y@@u@$fill@@@@@@@@@@@@@@@@@@@@@@@@@@@@<3<3>K@0ocaml.deprecated@==A=>@ @Use String.uppercase_ascii/StringLabels.uppercase_ascii instead.K>> L>>I@@N>>O>>J@@@@@Q==@@Ow@)lowercase@a@@@e@@@@@@c?C?Cd?z?@0ocaml.deprecatedj?d?ik?d?y@ @Use String.lowercase_ascii/StringLabels.lowercase_ascii instead.u?z?v?z?@@x?z?~y?z?@@@@@{?d?f@@yx@*capitalize @@@@@@@@@@@@@A:@0ocaml.deprecated@@@@@ BUse String.capitalize_ascii/StringLabels.capitalize_ascii instead.@@@A8@@@@@A9@@@@@@@@@y@,uncapitalize @@@@@@@@@@BBBHB@0ocaml.deprecatedB2B7B2BG@ FUse String.uncapitalize_ascii/StringLabels.uncapitalize_ascii instead.BHBMBHB@@BHBLBHB@@@@@B2B4@@z@)get_uint8 @@@@@@@@@@@@@@@@GGGG<@@{@(get_int8 @@@@@@@@@@@@@@@@GGGG@@|@-get_uint16_ne @@@@@@@@@@@@@@@@H>H>H>Hf@@}@-get_uint16_be@*@@@@@@@!@@@@@@@@2HH3HI@@1~@-get_uint16_le@C@@@@6@@@:@@@@@@@@KIILII@@J@,get_int16_ne@\@@@@O@@@S@@@@@@@@dJ?J?eJ?Jf@@c@@,get_int16_be@u@@@@h@@@l@@@@@@@@}#JJ~#JK@@|A@,get_int16_le@@@@@@@@@@@@@@@@*KK*KK@@B@,get_int32_ne@@@@@@@@%int32L@@@@@@@@1L4L41L4L]@@C@,get_int32_be@@@@@@@@@@@@@@@@8LL8LM@@D@,get_int32_le@@@@@@@@4@@@@@@@~@?MwMw?MwM@@E@,get_int64_ne@@@@}@@@@|%int64M@@@{@@z@@y@FNNFNNC@@F@,get_int64_be@@@@x@@@@w@@@v@@u@@t@MNNMNN@@G@,get_int64_le@(@@@s@@@@r4@@@q@@p@@o@0TO]O]1TO]O@@/H@*unsafe_get@A@@@n@4@@@m0@@@l@@k@@j2%string_unsafe_getBAà@@@@N_PLPLO_PLP@@MI@*unsafe_set@@@@i@R@@@h@P@@@gI@@@f@@e@@d@@c2%string_unsafe_setCA@@@@@s`PPtaPP@0ocaml.deprecatedzaPP{aPP@@~aPP @@|J@+unsafe_blit@@@@b@@@@a@>@@@`@@@@_@@@@^@@@]@@\@@[@@Z@@Y@@X0caml_blit_stringE@"@@@@@@@bPPdQ1QZ@'noallocdQ1QRdQ1QY@@dQ1QO @@K@+unsafe_fill@o@@@W@@@@V@@@@U@@@@T@@@S@@R@@Q@@P@@O0caml_fill_stringD@Y@@@@@@eQ[Q[gQQ@'noallocfQrQfQrQ@@fQrQfQrQ@0ocaml.deprecatedgQQgQQ@@gQQ@@L@@  @@ K8@@@A @@@|@@@@ @@@ A@ @ @@@{@@@@z@@@y@@x@@w@@@@@@@v@@@@@u@@@t@@s@@@r@@q@@p@@@ @@@o@@@!@@@@n@@@m@@l@@@"@@@@k@@@j@@i@@@#@@@@h@@@g@@f@@$@@@@e@@@@d@@@c@@b@@a@@%@@@@`@@@@_@@@^@@@]@@\@@[@@@&@@@@Z@@@@Y@@@X@@W@@V@@@'@@@@U@@@@T@@@S@@R@@Q@@@(@@@@P@@@@O@@@N@@M@@L@@@)@@@K@@@@J@@@I@@H@@G@@@*@@@F@@@@E@@@D@@C@@B@@@+@@@@A@@@@@@@@@?@@@>@@=@@<@@;@@@,@@@@:@@@@9@~@@@8}@@@7@@6@@5@@4@|@y@x-@w@@@3@v@@@2u@@@1@@0@@/@t@q@p.@o@@@.@n@@@-@m@@@,l@@@+@@*@@)@@(@k@h@g/@f@@@'@e@@@&dc@@@%@@@$@@#@@"@b@_@^0@@]@@@!\@@@ @@@[@@@Z@@@@@@@@Y@V@U1@@T@@@@S@@@R@@@@@@@@Q@@@P@@@@@@@@O@L@K2@@J@F@@@O@@@@@Q@E@@@V@@ @@ @@ @D@A@@3@@?@@@ @>>@@ @@@:@@@@EE@@@@@@@9@6@54@@4@@@3@@@@@@2@@@1@@@@@@@@0@-@,5@@+@@@*@@@@@@)@@@(@@@@@@@@'@$@#6@"@@@!@@@@@@ @@7@@@@@@@@@@@@8@@@@@@@@@@@@9@ @@@ @@@@@@ @@:@@@@@@@@@@@@;@@@@@@@@@@@@<@@@@@@@@@@@@@@@@@@@@@@@@=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@>@@@@@@@@@@@@@@@@@@@@@@@@?@@@@@@@@@@@@נ@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@ @@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@@@@@@@F@W@@@@@@@@@@@@@@G@i@@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@~I@@@@@}@@@|{@@@@@@@@z@w@vJ@@@@u@@@@@@t@q@pK@@@@@o@@@nm@@@@@@@@l@i@hL@@@@g@@@@@@f@c@bM@@@@@a@@@`_@@@@@~@@}@^@[@ZN@@@@|Y@@@{@@z@X@U@TO@S@@@yR@@@x@@wQMJ3@2P@1@@@v@0@@@u@/@@@t.@@@s@@r@@q@@p-'$ @ Q@ @@@o@ @@@n@ @@@m@@@@l@@@@k@@@j@@i@@h@@g@@f@@e@@@R@@@@d@@@c@@b@@S@@@@a@@@@`@@@@_@@@@^@@@]@@\@@[@@Z@@Y@@T@@@@X@@@W@@V@@U@@@@U@@@T@@S@@V@@@@R@@@Q@@P@i@hW@g@@@Of@@@N@@M@ebK@JX@I@@@L@H@@@KG@@@J@@I@@H@F@C@BY@A@@@G@@@@@F?@@@E@@D@@C@>@;@:Z@9@@@B@8@@@A7@@@@@@?@@>@6@3@2[@1@@@=@0@@@</@@@;@@:@@9@.@+@*\@)@@@8@(@@@7'@@@6@@5@@4@&@#@"]@!@@@3@ @@@2@@@1@@0@@/@@@^@@@@.@@@@-@@@,@@+@@*@@@_@@@@)@@@@(@@@'@@&@@%@@ @ `@ @@@$@@@@#@@@"@@!@@ @@@a@@@@@@@@@@@@@@@@@@b@@@@@@@@@@@@@@@@@@c@@@@@@@@@@@@@@@@@@d@@@@@@@@@@@@@ @@ @@@e@@@@ @@@@ @@@ @@@@@@@f@@@@@@@@@@@@@@@@@g@@@@@@@@@@@@@@@@@@@@@@h@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@i@@@@@@@@@@@@@@@@@@@@@@@@@@@n@@D @@0BAABBBBB@@A@#SetLQ*5R*8@@УР'#Set!S_*;`*@@ 0_^^_____@|{kjVUED32"!gfSR?>)(jiTS:9)(~sr`_TSHG21wvfeUTDC32"!@ARQ@@#elts@#elt*K*N@( @8@@@A%@@@[@@@@*F*W@@@@b@@Aг &string*Q @@o @@ @@!M8@@@A@@@@@@@@@@A@!tM8@@@A@@@@@'set.mliG : >G : D@@@@+Stdlib__SetDA@%empty@@@@J c gJ c s@@E@(is_empty@@@@$boolE@@@@@@#M  $M  @@"F@#mem@<@@@@)@@@@@@@@@@@;P  <P  @@:G@#add@@@@@@@@@ C@@@ @@ @@ @QS 9 =RS 9 S@@PH@)singleton@.@@@ T@@@@@@bY Z ^cY Z u@@aI@&remove@?@@@@g@@@j@@@@@@@@x\  y\  @@wJ@%union@x@@@@}@@@@@@@@@@@bb@@K@%inter@@@@@@@@@@@@@@@@ee2@@L@(disjoint@@@@@@@@@@@@@@@@hQUhQq@@M@$diff@@@@@@@@@@@@@@@@ll@@N@'compare@@@@@@@@#intA@@@@@@@@p15p1O@@O@%equal@@@@@@@@@@@@@@@@tt@@P@&subset@@@@@@@@@@@@@@@@xMQxMk@@Q@$iter@@@@@$unitF@@@@@@%@@@ @@@@@@@@7|8|@@6R@#map@@@@@@@@@@@A@@@D@@@@@@@@RS@@QS@$fold@@1@@@@!a@@@@@@_@@@@  @@@@@@@op@@nT@'for_all@@N@@@b@@@@@@z@@@k@@@@@@@@vzv@@U@&exists@@k@@@@@@@@@@@@@@@@@@@@*@@V@&filter@@@@@@@@@@@@@@@@@@@@@@@@W@*filter_map@@@@@&optionJ@@@@@@@@@@@@@@@@@@@@@@X@)partition@@@@@@@@@@@@@@@@@@@@@@@@@@@  B@@ Y@(cardinal@ @@@4@@@@@@040J@@Z@(elements@@@@$listI@@@@@@@@@45@@3[@'min_elt@4@@@@@@@@@EF@@D\@+min_elt_opt@E@@@~)@@@@@@@@@[@D\@d@@Z]@'max_elt@[@@@;@@@@@@lm*@@k^@+max_elt_opt@l@@@P@@@@@@@@@@@_@&choose@@@@b@@@@@@#7@@`@*choose_opt@@@@̠w@@@@@@@@@ @@a@%split@@@@@@@@@@@@@@@@@@@@@@@@   !@@b@$find@@@@@@@@~@@@}@@|@@{@""""@@c@(find_opt@@@@z@@@@y@@@x@@@w@@v@@u@#b#f#b#@@d@*find_first@@@@@t@@@s@@r@@@@q@@@p@@o@@n@$5$9$5$b@@e@.find_first_opt@@@@@m @@@l@@k@#@@@j\@@@i@@@h@@g@@f@9&=&A:&=&u@@8f@)find_last@@@@@e,@@@d@@c@D@@@b$@@@a@@`@@_@U 'd'hV 'd'@@Tg@-find_last_opt@@4@@@^H@@@]@@\@`@@@[D@@@Z@@@Y@@X@@W@v(r(vw(r(@@uh@'of_list@WW@@@V@@@U~@@@T@@S@))))@@i@+to_seq_from@i@@@R@@@@Q&Stdlib#Seq!t{@@@P@@@O@@N@@M@ ** **@@j@&to_seq@@@@L#Seq!t@@@K@@@J@@I@%+h+l%+h+@@k@*to_rev_seq@@@@H5#Seq!t@@@G@@@F@@E@)++)++@@l@'add_seq@K#Seq!t@@@D@@@C@@@@B@@@A@@@@@?@-,G,K-,G,l@@m@&of_seq@i#Seq!t@@@>@@@=@@@<@@;@1,,1,,@@n@@4@@@ *.6@7@#Map+N!Xc! Xf@@УР#Map!S!Xi!Xn@ 0!!!!!!!!@@JIA@DBA@;9@0.@@@@@@@@@~@ig@TR@?=@" @ @@@@@~|@][@MK@75@(&@@@@@@@@@ge@HF@.,@ @@@@@@@@z!c@Aa`@@#key@#key!Xy!X|@( @8@@@A @@@L@@@@!Xt!X@@@@!d@@Aг &string!X @@~ @@ @@!O8@@@A@@@W@@@@@@@A@!tO8!a@K@A@A@I@B@@@'map.mliF ; ?F ; J@@@@+Stdlib__MapDA@%empty!a@J@@@V@I  I  @@E@(is_empty@!a@H@@@U$boolE@@@T@@S@-L  .L  @@,F@#mem@M@@@R@3!a@C@@@Q@@@P@@O@@N@JO  KO  $@@IG@#add@@@@M@!a@<@U @@@LY @@@K@@J@@I@@H@hS  iS  @@gH@&update@;@@@G@@&optionJ!a@2@@@F  @@@E@@D@@@@C@@@B@@A@@@@@?@\dh\d@@I@)singleton@g@@@>@!a@,@@@=@@<@@;@ii9@@J@&remove @@@@:@!a@&@@@9@@@8@@7@@6@oo@@K@%merge @@@@@5@`!a@@@@4@k!b@@@@3t!c@@@@2@@1@@0@@/@@@@.@@@@-@@@,@@+@@*@@)@vxb@@L@%union @@@@@(@!a@ @ @@@'@@&@@%@@$@@@@#@!@@@"%@@@!@@ @@@@@44854y@@3M@'compare @@!a@@#intA@@@@@@@@D@@@@J@@@@@@@@@@@@@]^@@\N@%equal @@!a@@I@@@@@@@@k@@@@q@@@Y@@@@@@@ @@ @X\X@@O@$iter@@Y@@@ @!a@$unitF@@@ @@ @@@@@@ @@@@@@@@@@P@$fold@@@@@@!a@@!b@@@@@@@@@@@@  @@@@@@@ @@Q@'for_all@@@@@@!a@@@@@@@@@ߠ @@@@@@@@@@@ @@R@&exists@@@@@@!a@@@@@@@@@ @@@@@@@@@@@@@S@&filter@@@@@@!a@@@@@@@@@' @@@+@@@@@@@@:@D;@s@@9T@*filter_map@@@@@@!a@֠!b@@@@@@@@@P@@@T@@@@@@@@cd@@bU@)partition@@8@@@@!a@R@@@@@@@@t @@@{@@@ՠ@@@@@@@@@@!!!!@@V@(cardinal@!a@@@@[@@@@@@"""# @@W@(bindings@!a@@@@$listI@@@͠@@@@@@@@#]#a#]#@@X@+min_binding@Ǡ!a@@@@@@@Ƞ @@@@@$$$$@@Y@/min_binding_opt@!a@@@@z@@@Ġ@@@@@@@@%%%%@@Z@+max_binding@!a@@@@@@@ @@@@@&l&p&l&@@[@/max_binding_opt@!a@@@@@@@@@@@@@@@9'':''L@@8\@&choose@9!a@@@@@@@ @@@@@S''T''@@R]@*choose_opt@S!a@@@@5@@@@@@@@@@@r((s()@@q^@%split@E@@@@w!a@@@@ @@@@@@@@@@@@@@@@ )) )* @@_@$find@o@@@@!a@y@@@@@@@@++++@@`@(find_opt@@@@@!a@t@@@R @@@@@@@@,7,;,7,a@@a@*find_first @@@@@@@@@@@ܠ!a@l@@@@@@ @@@@@@@ -- --6@@b@.find_first_opt!@@@@@@@@@@@!a@c@@@@@@@@@@@@@@@@ -//!!-//_@@c@)find_last"@@@@@ @@@@@@+!a@Y@@@ @@@ @@@@@@@E40W0[F40W0@@Dd@-find_last_opt#@@@@@.@@@@@@P!a@P@@@2@@@@@@@@~@@}@@|@o;1v1zp;1v1@@ne@#map$@@!a@I!b@G@@{@{ @@@z @@@y@@x@@w@C22C22@@f@$mapi%@@c@@@v@!a@@!b@>@@u@@t@ @@@s @@@r@@q@@p@J44J44I@@g@&to_seq&@!a@9@@@o&Stdlib#Seq!t@@@n@@m@@@l@@k@P44P45#@@h@*to_rev_seq'@נ!a@3@@@j%#Seq!t@@@i@@h@@@g@@f@T5y5}T5y5@@i@+to_seq_from(@@@@e@!a@,@@@dL#Seq!t@@@c@@b@@@a@@`@@_@ X56!X562@@j@'add_seq)@f#Seq!t@@@^!a@"@@]@@@\@5 @@@[9@@@Z@@Y@@X@H]66I]66@@Gk@&of_seq*@#Seq!t%@@@W!a@@@V@@@U[@@@T@@S@ja7M7Qka7M7v@@il@@@@@'X\@@#TblP')'*@@УР%'Hashtbl!S'7'8@ 0'7'6'6'7'7'7'7'7@"9@A@A@@}@hf@MK@1/@@@@@om@HF@#!@@@@@wu@PN@&$@@@@@@@pn@SQ@+)@@@@@@db@GE@%#@@@@@@@v'e@A]\@@#key|@#key''@( @8@@@A'@@@e@@@@''@@@@'f@@Aг &string' @@z @@ @@!Q8@@@A@@@B@@@@@@@A@!tQ8!a@d@A@A@O@B@@@+hashtbl.mliO55O55@@@@/Stdlib__HashtbldA@&create@#intA@@@A !a@b@@@@@@?@P55P55@@e@%clear@!a@_@@@>$unitF@@@=@@<@5Q556Q55@@4f@%reset@-!a@[@@@;@@@:@@9@LR55MR56 @@Kg@$copy@D!a@V@@@8L@@@7@@6@cT6#6'dT6#6>@@bh@#add@[!a@Q@@@5@@@@4@ O@@@3@@2@@1@@0@U6?6CU6?6f@@i@&remove@z!a@L@@@/@@@@.k@@@-@@,@@+@V6g6kV6g6@@j@$find@!a@D@@@*@;@@@) @@(@@'@W66W66@@k@(find_opt@!a@?@@@&@S@@@%&optionJ@@@$@@#@@"@X66X66@@l@(find_all@͠!a@9@@@!@r@@@ $listI@@@@@@@@[66[67@@m@'replace@!a@3@@@@@@@@ @@@@@@@@@@\77!\77H@@n@#mem@ !a@.@@@@@@@$boolE@@@@@@@@0]7I7M1]7I7j@@/o@$iter@@@@@@!a@$@@@@@@@@9 @@@ !@@@ @@ @@ @T^7k7oU^7k7@@Sp@2filter_map_inplace@@@@@ @!a@@@@@@@@@^@@@F@@@@@@@@y_77z`77@@xq@$fold@@@@@@!a@@!b@@@@@@@@@@@@  @@@@@@@c88c88=@@r@&length@!a@ @@@@@@@@@d8>8Bd8>8Z@@s@%stats@!a@@@@*statistics@@@@@@e8[8_e8[8|@@t@&to_seq@Ơ!a@@@@&Stdlib#Seq!tv@@@@@@@@@@@g88g88@@u@+to_seq_keys@@@@@@##Seq!t@@@@@@@@@j88j88@@v@-to_seq_values@!a@@@@A#Seq!t @@@@@@*m99+m99<@@)w@'add_seq@"!a@@@@@^#Seq!t@@@@@@@@@@@@@@@@Rp9U9YSp9U9@@Qx@+replace_seq@J!a@@@@@#Seq!t@@@ߠ@@@@@G@@@@@@@@zs99{s99@@yy@&of_seq@#Seq!t@@@٠!a@@@@@@@@@@@@v99v9:@@z@@04@@@*l@3@%print*v*w@б@г)L&Format)formatter**@@ @@@C0********@Pg@A@A@@@@}{@hf@KI@1/@@@@@@@db@B@@-+@@@@@@sq@@@R*g@A;:@@б@гꠐ!t**@@ @@@DD@@г*.$unit**@@ @@@EQ@@@@@FT@@@Z@@GW] @@@*@@*h@@@]'for_all**@б@б@г*$char**@@ @@@H0********@x!@A@@г*٠$bool+ + @@ @@@I@@@@@J@@б@г>!t+ + @@ @@@K!@@г*$bool+)+*@@ @@@L.@@@@@M1@@@$@@N4+5 @@@+8@@+Oi@@@;@c\L71&ܠˠqaL8# ͠vaG2۠ǠziWL:/ӠȠrbRB2"Ҡ }^=@@  @@ @ @q@@k@@%@@ @^@@0++++++++@`@A\0++++++++@@A++@@@+@@'compare+(+/@б@А!a@TR@O0++++++++@@A@@@@@@@@@po@a`@QP@BA@32@$#@@@@@@@@@_^@KJ@A@@76@-,@#"@@@@@@@@@{z@hg@YX@FE@65@@@@@@@@@@@@xw@_^@UT@KJ@A@@76@('@@  @@@@@@@@@@ts@ed@VU@BA@$#@@~A@ywA@pn@ec@SQ@=;@)'@@@@@@@@@tr@WU@><@#!@@  @  @  @  @  @ l j@ ] [@ I G@ : 8@ & $@  @  @  @  @  @  @ } {@ c a@ D B@ 0 .@  @  @  @  @@@  5@@ @  A@  A@  @  @  @  @  @ w u@ a _@ G E@  @  @  @  @ o m@ M K@ + )@  @@@@@b`@JH@-+@@@@@@@jh@GE@@@@@@rp@RP@-+@@@@p@@@POA@JHA@:8@" @  @@@@@@wu@ZX@><@" @@@@@@ki@QO@86@@@@@y@@W@P@@@-Pj@A-<2-=4@@б@А!a-D8-E:@@г,#int-M>-NA@@ @@@P@@@@@Q@@@@@R @@(%compareBA @@@@-a-bN@@-yk @@@@'j@"l@"g"+@@"a@!m@!h!8@@!b@@@@@@8@@@@0-q-p-p-q-q-q-q-q@@A0-t-s-s-t-t-t-t-t@'[@A-y\<L-zOR@@@-|\<<@@,find_in_path-TX-Td@б@г-&$list-Tm-Tq@г,&string-Tf-Tl@@ @@@U0--------@''@'@''tA@'T&@&&R@&>%@%%/@%$@$$@$ #A@#j"@@@""|@@"@""jA@"J!@@@!!@@!@!!+@! @  E@@@ 3 @@ -@A@@@@@@@@@@{z@kj@\[@ML@>=@*)@@@@@@@@yx@ed@[Z@QP@GF@=<@32@)(@@@@@@@@@sr@`_@PO@98@)(@@ @@@@@@@@@yx@on@ed@[Z@QP@BA@32@$#@@@@@@@@@@@~@po@\[@>=@@A@A@@}@mk@WU@CA@42@ @  @@@@@@@qo@XV@=;@" @@@@@@@wu@ca@TR@@>@1/@@@@@@@}{@^\@JH@+)@@  @  @@@  O@@ @ / .A@ ) 'A@  @  @  @  @  @  @ { y@ a _@ $ "@  @  @  @  @ g e@ E C@ # !@  @  @  @  @ | z@ d b@ G E@ / -@  @  @  @  @  @  @ a _@ 9 7@  @@@@@lj@GE@!@@@@@@jiA@dbA@TR@<:@%#@@@@@@@tr@XV@<:@@@@@@@ki@RP@,*@@@@@@q@j@@@@@@@@ۡ/ll@A@@@Π@@@W@@б@г.à&string/fTu/gT{@@ @@@X˰@@г.Р&string/sT/tT@@ @@@Yذ@@@@@Z۰@@@&@@[ް @@@/TT@@/m@@@0find_in_path_rel//@б@г/,$list//@г.&string//@@ @@@\0////////@&)@A@@@ @@@^ @@б@г/&string//@@ @@@_@@г/!&string//@@ @@@`#@@@@@a&@@@&@@b)/ @@@/@@/n@@@/2find_in_path_uncap/15/1G@б@г/}$list/1P/1T@г/O&string/1I/1O@@ @@@c0////////@Rq)@A@@@ @@@e @@б@г/e&string01X0 1^@@ @@@f@@г/r&string01b01h@@ @@@g#@@@@@h&@@@&@@i)/ @@@0#11@@0:o@@@/+remove_file0.0/@б@г/&string090:@@ @@@j00;0:0:0;0;0;0;0;@Hg@A@@г/$unit0H0I @@ @@@k@@@@@l@@@0S @@0jp@ @@0expand_directory0^im0_i}@б@г/Ơ&string0ii0ji@@ @@@m00k0j0j0k0k0k0k0k@1F@A@@б@г/נ&string0zi0{i@@ @@@n@@г/䠐&string0i0i@@ @@@o@@@@@p!@@@'@@q$* @@@0ii@@0q@@@*3split_path_contents0+/0+B@б#sepг0k$char0+I0+M@@ @@@r000000000@EZ!@A@@б@г0&string0+Q0+W@@ @@@s@@г0`$list0+b0+f@г02&string0+[0+a@@ @@@t(@@@@@@v- @@@"@@w0%@@A.9@@@x @@y70+D@@ @0++"@@1r@$@@>0create_hashtable0 u y0 u @б@г0#int1 u 1 u @@ @@@z011111111@Wn@A@@б@г0$list1 u 1 u @ВА!a@R@{1# u 1$ u @@А!b@R@|&1/ u 10 u @@@ @@}-@@@)@@@21; u '@@г0'Hashtbl!t1F u 1G u @А!a/D1M u 1N u @@А!b*K1T u 1U u @@@<1@@@S1\ u @@@) @@W%@@@]@@Z`@@@1e u u@@1|s@!@@`)copy_file1p!! 1q!!)@б@г0E*in_channel1{!!+1|!!5@@ @@@01}1|1|1}1}1}1}1}@y@A@@б@г0V+out_channel1!!91!!D@@ @@@@@г0$unit1!!H1!!L@@ @@@@@@@@!@@@'@@$* @@@1!!@@1t@@@*/copy_file_chunk1!!1!!@б@г0*in_channel1!!1!!@@ @@@011111111@CX@A@@б@г0+out_channel1!!1!"@@ @@@@@б@г1#int1!" 1!"@@ @@@ @@г1C$unit1!"1!"@@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@1!!@@2u@@@<.string_of_file2""2""@б@г0*in_channel2""2""@@ @@@022222222@Uj@A@@г1}&string2 ""2!""@@ @@@@@@@@@@@2+"" @@2Bv@ @@3@@02&X&] @@@3&<&< @0 Open the given [filename] for writing (in binary mode), pass the [out_channel] to the given function, then close the channel. If the function raises an exception then [filename] will be removed. 3%j%j3&&;@@@@@@@3&x@@D$log23&&3&&@б@г2Ϡ#int3%&&3&&&@@ @@@03'3&3&3'3'3'3'3'@]t,@A@@г2ޠ#int34&&35&&@@ @@@@@@@@@@@3?&& @@3Vy@ @@%align3J''3K'' @б@г2#int3U'' 3V''@@ @@@03W3V3V3W3W3W3W3W@1F@A@@б@г3#int3f''3g''@@ @@@@@г3#int3s''3t''@@ @@@@@@@@!@@@'@@$* @@@3''@@3z@@@*/no_overflow_add3'|'3'|'@б@г3A#int3'|'3'|'@@ @@@033333333@CX@A@@б@г3R#int3'|'3'|'@@ @@@@@г3$bool3'|'3'|'@@ @@@@@@@@!@@@'@@$* @@@3'|'|@@3{@@@*/no_overflow_sub 3((3((*@б@г3#int3((,3((/@@ @@@033333333@CX@A@@б@г3#int3((33((6@@ @@@@@г3Ơ$bool3((:3((>@@ @@@@@@@@!@@@'@@$* @@@4((@@4|@@@*/no_overflow_mulà4((4((@б@г3Š#int4((4((@@ @@@044444444@CX@A@@б@г3֠#int4,((4-((@@ @@@@@г4$bool49((4:((@@ @@@@@@@@!@@@'@@$* @@@4G((@@4^}@@@*/no_overflow_lslĠ4R)M)Q4S)M)`@б@г4#int4])M)b4^)M)e@@ @@@04_4^4^4_4_4_4_4_@CX@A@@б@г4#int4n)M)i4o)M)l@@ @@@@@г4J$bool4{)M)p4|)M)t@@ @@@@@@@@!@@@'@@$* @@@4)M)M@@4~@@@*5Int_literal_converterR4))4)*@@Б#intŠ4* *4* *@б@г4 &string4* *4* *@@ @@@044444444@Rg.@A@@г4g#int4* * 4* *#@@ @@@@@@@@@@@4* *  @@4@ @@%int32Ơ4*$**4*$*/@б@г4;&string4*$*24*$*8@@ @@@044444444@1F@A@@г4%int324*$*<4*$*A@@ @@@@@@@@@@@4*$*& @@5@@ @@%int64Ǡ5*B*H5*B*M@б@г4k&string5*B*P5*B*V@@ @@@055555555@1F@A@@г4%int645*B*Z5*B*_@@ @@@@@@@@@@@5(*B*D @@5?A@ @@)nativeintȠ53*`*f54*`*o@б@г4&string5>*`*r5?*`*x@@ @@@05@5?5?5@5@5@5@5@@1F@A@@г4Š)nativeint5M*`*|5N*`*@@ @@@@@@@@@@@5X*`*b @@5oB@ @@@@i@b;@4 @@05`5_5_5`5`5`5`5`@!6@A 05c5b5b5c5c5c5c5c@@A5h)*5i**@@@5k))@@/chop_extensionsʠ5u**5v**@б@г4ݠ&string5**5**@@ @@@055555555@@@@i@b;@@@'5C@A@@г4&string5**5**@@ @@@@@@ @@#@@@5** @@5D@ @@#0search_substringˠ5++5++@б@г5&string5++5++@@ @@@055555555@<Q@A@@б@г5)&string5++5++@@ @@@@@б@г5#int5++5++@@ @@@ @@г5#int5++5+,@@ @@@-@@@@@0@@@%@@3( @@@9@@6<@@@5++@@6E@@@<1replace_substring̠6,,6,-@б&beforeг5n&string6,-6,-@@ @@@066666666@Wl!@A@@б%afterг5&string6$,-'6%,--@@ @@@@@б@г5&string63,-164,-7@@ @@@"@@г5&string6@,-;6A,-A@@ @@@/@@@@@2@@0%@@56L,-! @@G<@@96P,-@@@6S,,@@6jF@@@@/rev_split_words͠6^--6_--@б@г5Ơ&string6i-.6j-.@@ @@@06k6j6j6k6k6k6k6k@Yp@A@@г6 $list6x-.6y-.@г5ߠ&string6-. 6-.@@ @@@@@@@@@ @@@$@@!'@@@6--@@6G@@@''get_refΠ6..6..@б@г5r#ref6..6..@г6G$list6..6..@А!a@S@066666666@Pe/@A6..6..@@@ @@@ @@@&@@@ #@@г6h$list6..6..@А!a!6..6..@@@'@@@# @@@@@&$@@@6..@@6H@@@,-set_or_ignoreϠ6/</@6/</M@б@б@А!a@S@066666666@Ch@A7/</Q7/</S@@г6&option7 /</Z7 /</`@А!b@S@7/</W7/</Y@@@ @@@@@@&@@!@@б@г5#ref7*/</o7+/</r@г6&option74/</h75/</n@А!b);7;/</e7</</g@@@/@@@B @@@@@@G @@б@А!aRM7M/</v7N/</x@@г6$unit7V/</|7W/</@@ @@@\@@@d@@_@@@@@b' @@@F@@e7e/</P@@@7h/</<@@7I@@@l$fst3Р7s0 07t0 0@б@ВА!a@S@077~7~77777@@A70 070 0@@А!b@S@ 70 070 0@@А!c@S@ 70 0!70 0#@@@% @@ " @@А!a+&70 0'70 0)@@@0@@ +)@@@70 0 @@7J@ @@1$snd3Ѡ7 0*0.7 0*02@б@ВА!a@S@077777777@I]@A7 0*047 0*06@@А!b@S@7 0*097 0*0;@@А!c@S@7 0*0>7 0*0@@@@% @@" @@А!b&7 0*0D7 0*0F@@@"@@+)@@@7 0*0*@@8K@ @@1$thd3Ҡ8!0G0K8!0G0O@б@ВА!a@$S@088888888@I]@A8!0G0Q8!0G0S@@А!b@&S@8!!0G0V8"!0G0X@@А!c@(S@ 8-!0G0[8.!0G0]@@@% @@!" @@А!c&89!0G0a8:!0G0c@@@@@"+)@@@8@!0G0G@@8WL@ @@1$fst4Ӡ8K#0e0i8L#0e0m@б@ВА!a@0S@)08W8V8V8W8W8W8W8W@I]@A8]#0e0o8^#0e0q@@А!b@2S@*8i#0e0t8j#0e0v@@А!c@4S@+8u#0e0y8v#0e0{@@А!d@6S@,&8#0e0~8#0e0@@@1$@@-/-@@А!a838#0e08#0e0@@@=@@.86@@@8#0e0e@@8M@ @@>$snd4Ԡ8$008$00@б@ВА!a@>S@7088888888@Vj@A8$008$00@@А!b@@S@88$008$00@@А!c@BS@98$008$00@@А!d@DS@:&8$008$00@@@1$@@;/-@@А!b*38$008$00@@@/@@<86@@@8$00@@9N@ @@>$thd4ՠ8%008%00@б@ВА!a@LS@E099999999@Vj@A9%009%00@@А!b@NS@F9%009%00@@А!c@PS@G9%009 %00@@А!d@RS@H&9+%009,%00@@@1$@@I/-@@А!c398%0099%00@@@#@@J86@@@9?%00@@9VO@ @@>$for4֠9J&009K&00@б@ВА!a@ZS@S09V9U9U9V9V9V9V9V@Vj@A9\&009]&00@@А!b@\S@T9h&009i&00@@А!c@^S@U9t&009u&00@@А!d@`S@V&9&009&00@@@1$@@W/-@@А!d39&009&00@@@@@X86@@@9&00@@9P@ @@>*LongStringS9(009(00@@БA(!tT9*119*11@@8@@@A98@@@b@@@d@@@@9*11 9*11 @@@@9Q@@Aг%array9*11 @г%bytes9*119*11@@099999999@zB)8@@@A0@@U@eU@a@@@@ @@@@A @@@*  @@"@@099999999@ @A#"@&createؠ9+1!1)9+1!1/@б@г9#int9+1!129+1!15@@ @@@p099999999@'OI@A@@гS!t:+1!19:+1!1:@@ @@@q@@@@@r@@@: +1!1% @@:$R@ @@&length٠:,1;1C:,1;1I@б@гt!t:#,1;1L:$,1;1M@@ @@@s0:%:$:$:%:%:%:%:%@1F@A@@г9ܠ#int:2,1;1Q:3,1;1T@@ @@@t@@@@@u@@@:=,1;1? @@:TS@ @@#getڠ:H-1U1]:I-1U1`@б@г!t:S-1U1c:T-1U1d@@ @@@v0:U:T:T:U:U:U:U:U@1F@A@@б@г:#int:d-1U1h:e-1U1k@@ @@@w@@г:/$char:q-1U1o:r-1U1s@@ @@@x@@@@@y!@@@'@@z$* @@@:-1U1Y@@:T@@@*#set۠:.1t1|:.1t1@б@г栐!t:.1t1:.1t1@@ @@@{0::::::::@CX@A@@б@г:P#int:.1t1:.1t1@@ @@@|@@б@г:s$char:.1t1:.1t1@@ @@@} @@г:$unit:.1t1:.1t1@@ @@@~-@@@@@0@@@%@@3( @@@9@@6<@@@:.1t1x@@:U@@@<$blitܠ:/11:/11@б@г:!t:/11:/11@@ @@@0::::::::@Uj@A@@б@г:#int:/11:/11@@ @@@@@б@гZ!t; /11; /11@@ @@@ @@б@г: #int;/11;/11@@ @@@/@@б@г:Ѡ#int;'/11;(/11@@ @@@>@@г:$unit;4/11;5/11@@ @@@K@@@@@N@@@%@@Q( @@@7@@T:@@@I@@WL@@@]@@Z`@@@;K/11@@;bV@@@`+blit_stringݠ;V011;W011@б@г:&string;a011;b011@@ @@@0;c;b;b;c;c;c;c;c@y@A@@б@г;#int;r011;s011@@ @@@@@б@гҠ!t;011;011@@ @@@ @@б@г;:#int;011;011@@ @@@/@@б@г;I#int;012;012@@ @@@>@@г;$unit;012;012 @@ @@@K@@@@@N@@@%@@Q( @@@7@@T:@@@I@@WL@@@]@@Z`@@@;011@@;W@@@`&outputޠ;12 2;12 2@б@г:+out_channel;12 2;12 2)@@ @@@0;;;;;;;;@y@A@@б@г;!t;12 2-;12 2.@@ @@@@@б@г;#int;12 22;12 25@@ @@@ @@б@г;#int<12 29< 12 2<@@ @@@/@@г;n$unit<12 2@<12 2D@@ @@@<@@@@@?@@@%@@B( @@@7@@E:@@@K@@HN@@@<)12 2@@<@X@@@N0input_bytes_intoߠ<422E2M<522E2]@б@г!t@@@=B44@;[ [spellcheck env name] takes a list of names [env] that exist in the current environment and an erroneous [name], and returns a list of suggestions taken from [env], that are close enough to [name] that it may be a typo for one of them. =C5 5 =F56 @@@@@@@=]@,@K,did_you_mean=H6 6=H6 6@б@г<&Format)formatter=H6 6=H6 6/@@ @@@0========@g/@A@@б@б@г=V$unit=H6 64=H6 68@@ @@@@@г=$list> H6 6C> H6 6G@г=q&string>H6 6<>H6 6B@@ @@@*@@@@@@/ @@@"@@2%@@г=$unit>)H6 6L>*H6 6P@@ @@@?@@@@@B>2H6 63 @@@I@@FL @@@>8H6 6 @;ϐ = [did_you_mean ppf get_choices] hints that the user may have meant one of the option returned by calling [get_choices]. It does nothing if the returned list is empty. The [unit -> ...] thunking is meant to delay any potentially-slow computation (typically computing edit-distance with many things from the current environment) to when the hint message is to be printed. You should print an understandable error message before calling [did_you_mean], so that users get a clear notification of the failure even if producing the hint is slow. >DI6Q6Q>ES88@@@@@@@>\^@@Y&cut_at>PU88>QU88@б@г=&string>[U88>\U88@@ @@@0>]>\>\>]>]>]>]>]@r,@A@@б@г>*$char>lU88>mU88@@ @@@@@Вг=٠&string>|U88>}U88@@ @@@!@@г=砐&string>U88>U88@@ @@@/@@@@@4 @@@)@@7, @@@=@@:@@@@>U88@<4 z [String.cut_at s c] returns a pair containing the sub-string before the first occurrence of [c] in [s], and the sub-string after the first occurrence of [c] in [s]. [let (before, after) = String.cut_at s c in before ^ String.make 1 c ^ after] is the identity if [s] contains [c]. Raise [Not_found] if the character does not appear in the string @since 4.01 >V88>^:A:C@@@@@@@>_@"@M.ordinal_suffix>`:E:I>`:E:W@б@г>j#int>`:E:Z>`:E:]@@ @@@0>>>>>>>>@f{,@A@@г>,&string>`:E:a>`:E:g@@ @@@@@@@@@@@>`:E:E @ ["st"], [2] -> ["nd"], [3] -> ["rd"], [4] -> ["th"], and so on. Handles larger numbers (e.g., [42] -> ["nd"]) and the numbers 11--13 (which all get ["th"]) correctly. >a:h:h>d;N;@@@@@@@>`@@%%ColorU>g;;>g;;@@БA(%colorV?h;;?h;;@@8@@%Black@@? i;;? i;;@@?$b#Red@@?j;;?j;;@@?-c%Green@@?k;;?k;;@@?6d&Yellow@@?'l;;?(l;;@@??e$Blue@@?0m;;?1m;;@@?Hf'Magenta@@?9n;<?:n;< @@?Qg$Cyan@@?Bo< <?Co< <@@?Zh%White@@?Kp<<?Lp<< @@?ci@@A@@@@@?Oh;;@@A@?fa@LL?Vi;;J@@@@M@II?\j;;G@@@@J@FF?bk;;D@@@@G@CC?hl;;A@@@@D@@@?nm;;>@@@@A@==?tn;<;@@@@>@::?zo< <8@@@@;@77?p<<5@@@@8@@A@4@@0??~?~?????@@A69@A(%styleW?s<'<.?s<'<3@@8@@"FG@@@@@?t<6<:?t<6@@г4%color?t<6@::?v<|<8@@@@;@77?w<<5@@@@8@@A@4@@0????????@ @A58@>&Format$stag@y<<@y<<@@%StyleX@ y<<@ y<<@ @?@@@@@@@@A@y<<@@@0o@г$list@$y<< @г%style@,y<<@-y<<@@0@+@*@*@+@+@+@+@+@[@A@@@"@@@@@@A@>@@3y<<@/ansi_of_style_l@<{<<@={<<@б@г?ܠ$list@G{<<@H{<<@гà%style@Q{<<@R{<<@@ @@@0@S@R@R@S@S@S@S@S@)RL@A@@@ @@@ @@г? &string@e{<<@f{<<@@ @@@@@@@@@@@@p{<< @@@p@ @@A(&stylesY@|~==%@}~==+@@8@@%error@@ @@@@@@@=0=4@=0=F@@@r'warning@@1@@@@@@@=G=K@=G=_@@@s#loc@@B#@@@@@@@=`=d@=`=t@@@t@@A@@@@@@~== @=u=x@@@@@q@88.@=0=9@@Ш@г;$list@=0=A@=0=E@г@%style@=0=;@=0=@@@H0@@@@@@@@@|e[8@@@A@@@@@!@@@@A@@@Q@@T@[@@K@GG=@=G=R@@Ш@гJ$list@=G=Z@=G=^@гO%style@=G=T@=G=Y@@W @@@\! @@_@[@$@V@RRH@=`=g@@Ш@гU$listA=`=oA=`=s@гZ%styleA =`=iA =`=n@@b<@@@g= @@j@[@@@a@@A@]@@0A A A A A A A A @?@A^]@.default_stylesA=z=A=z=@г&stylesA#=z=A$=z=@@ @@@0A%A$A$A%A%A%A%A%@X@A@@@A-=z=| @@ADu@ @@*get_stylesA8==A9==@б@г@$unitAC==AD==@@ @@@0AEADADAEAEAEAEAE@!4@A@@г֠&stylesAR==AS==@@ @@@@@@@@@@@A]== @@Atv@ @@*set_stylesAh==Ai==@б@г&stylesAs==At==@@ @@@0AuAtAtAuAuAuAuAu@1F@A@@г@۠$unitA==A==@@ @@@@@@@@@@@A== @@Aw@ @@A('settingZA==A==@@8@@$Auto@@A==A==@@Ay&Always@@A==A==@@Az%Never@@A==A=>@@A{@@A@@@@@A==@@A@Ax@@@@@@A==@@@@@A==@@@@@@A@@@0AAAAAAAA@VkD@A@/default_settingA>>A>>@гH'settingA>>A>>!@@ @@@!0AAAAAAAA@SM@A@@@A>> @@B|@ @@%setupA>#>)A>#>.@б@гAu&optionB>#>9B>#>?@гr'settingB >#>1B >#>8@@ @@@"0B B B B B B B B @+>)@A@@@ @@@$ @@гAx$unitB>#>CB >#>G@@ @@@%@@@@@&@@@B*>#>% @@BA}@ @@6set_color_tag_handlingB5?? B6??#@б@гA &Format)formatterBC??&BD??6@@ @@@'0BEBDBDBEBEBEBEBE@9X"@A@@гA$unitBR??:BS??>@@ @@@(@@@@@)@@@B]??  @@Bt~@ @@@d^A@A@`Z@@0@A@VA@:@ @A@@N@G@@0BuBtBtBuBuBuBuBu@1I@A0BxBwBwBxBxBxBxBx@@AB}g;;B~??@@@Bg;;@@+Error_style [B??B??@@БA('setting\B??B??@@8@@*Contextual@@B??B??@@B%Short@@B??B??@@B@@A@@@@@B??@@A@B@B??@@@@@B??@@@@@@A@@@0BBBBBBBB@?@A@>8A@@@^@VPA@@w@pI@A;A@@@@@@]B@A-0@/default_setting B??B?@@гU'settingB?@ B?@@@ @@@10BBBBBBBB@5`Z@A@@@B?? @@C@ @@@hbA@ @@0BBBBBBBB@   @A0CBBCCCCC@C@AC??C@@@@@C??@@-normalise_eol C@@C@@)@б@гBz&stringC@@,C@@2@@ @@@20CCCCCCCC@c@A@H3@@@#C@@A@@гB&stringC3@@6C4@@<@@ @@@3@@@@@4@@@C>@@ @@Ր [normalise_eol s] returns a fresh copy of [s] with any '\r' characters removed. Intended for pre-processing text which will subsequently be printed on a channel which performs EOL transformations (i.e. Windows) CJ@=@=CK@A@@@@@@@Cb@@,1delete_eol_spaces CVAA"CWAA3@б@гB&stringCaAA6CbAA<@@ @@@50CcCbCbCcCcCcCcCc@EZ,@A@@гB͠&stringCpAA@CqAAF@@ @@@6@@@@@7@@@C{AA @A [delete_eol_spaces s] returns a fresh copy of [s] with any end of line spaces removed. Intended to normalize the output of the toplevel for tests. CAGAGCAA@@@@@@@C@@%.pp_two_columns CAACAA@б#sepгB&stringCABCAB @@ @@@80CCCCCCCC@@U.@A@@б)max_linesгC]#intCABCAB@@ @@@9@@б@гB&Format)formatterCB B"CB B2@@ @@@:%@@б@гCi$listCB BHCB BL@ВгC>&stringCB B7CB B=@@ @@@;A@@гCL&stringCB B@CB BF@@ @@@<O@@@@@=T @@@-@@@?YCB B6+@@гC`$unitDB BPDB BT@@ @@@@g@@@@@Aj@@@K@@BmN @@kAc@@@C @@DtDAB@@AŠ~@@@E@@F|D"AA@@ @D%AA@A  [pp_two_columns ?sep ?max_lines ppf l] prints the lines in [l] as two columns separated by [sep] ("|" by default). [max_lines] can be used to indicate a maximum number of lines to print -- an ellipsis gets inserted at the middle if the input has too many lines. Example: {v pp_two_columns ~max_lines:3 Format.std_formatter [ "abc", "hello"; "def", "zzz"; "a" , "bllbl"; "bb" , "dddddd"; ] v} prints {v abc | hello ... bb | dddddd v} D1BUBUD2DTDV@@@@@@@DI@-@4show_config_and_exitD=DwD{D>DwD@б@гC$unitDHDwDDIDwD@@ @@@G0DJDIDIDJDJDJDJDJ@,@A@@гC$unitDWDwDDXDwD@@ @@@H@@@@@I@@@DbDwDw @A9 configuration variables DnDXDXDoDXDv@@@@@@@D@@%=show_config_variable_and_exitDzDDD{DD@б@гC⠐&stringDDDDDD@@ @@@J0DDDDDDDD@>S,@A@@гC$unitDDDDDD@@ @@@K@@@@@L@@@DDD @@D@ @@9get_build_path_prefix_mapDDDDDD@б@гD$unitDDDDDD@@ @@@M0DDDDDDDD@1F@A@@гD8&optionDDEDDE@г5Build_path_prefix_map#map5Build_path_prefix_mapDDDDDE@@@@@@@@@@@# @@@)@@&,@@@DDD@Bz R Returns the map encoded in the [BUILD_PATH_PREFIX_MAP] environment variable. DEEDEbEr@@@@@@@E@.@96debug_prefix_map_flagsDEtExDEtE@б@гD_$unitEEtEEEtE@@ @@@0EEEEEEEE@Rg,@A@@гD$listEEtEEEtE@гD|&stringEEtEE EtE@@ @@@@@@@@@ @@@$@@!'@@@E/EtEt@BƐ Returns the list of [--debug-prefix-map] flags to be passed to the assembler, built from the [BUILD_PATH_PREFIX_MAP] environment variable. E;EEE<EF9@@@@@@@ES@)@4(print_ifEGF;F?EHF;FG@б@гD&Format)formatterEUFJFLEVFJF\@@ @@@0EWEVEVEWEWEWEWEW@Pe/@A@@б@гD0#refEfFJFeEgFJFh@гE?$boolEpFJF`EqFJFd@@ @@@@@@@@@  @@б@б@гDQ&Format)formatterEFJFmEFJF}@@ @@@4@@б@А!a@]@?EFJFEFJF@@гD$unitEFJFEFJF@@ @@@N@@@@@Q@@@#@@T& @@б@А!a ZEFJFEFJF@@А!a&`EFJFEFJF@@@++@@e @@@@@hEFJFl@@@P@@lW @@@r@@ou@@@EF;F;@Cc J [print_if ppf flag fmt x] prints [x] with [fmt] on [ppf] if [b] is true. EFFEFF@@@@@@@E@ @A((filepath ]EFFEFF@@8@@@AEM@@@@@@@EFFEFG@@@@F@@Aг &stringEFF @@0EEEEEEEE@28@@@A"@@^@^@@@@@@@@@A @@@@0FFFFFFFF@ @A@A('modname!^FGGFGG@@8@@@AEx@@@@@@@FGGFGG@@@@F1@@Aг &stringF#GG @@0F!F F F!F!F!F!F!@,F@8@@@A"@@_@_@@@@@@@@@A @@@@0F-F,F,F-F-F-F-F-@ @A@A($crcs"_F;GGF<GG!@@8@@@AE۠=@@@РEƠE!&Digest!t@@@;@@@=@@>@@@@@@@@FYGGFZGGD@@@@Fq@@Aг$listFcGG@ @Вг"'modnameFnGG%FoGG,@@*0FmFlFlFmFmFmFmFm@Mga<8@@@AC@@`@A`@@@@@#@@@ @A @@г2&optionFGG8FGG>@г787FGG/FGG7@@?@@@D @@@M # @@@R!FGG$9@@;@@0FFFFFFFF@"@A<;@A(&alerts0`FGFGKFGFGQ@@8@@@A@&String#Map!tF@@@ @@@ @@@@FGFGFFGFGn@@@@F@@Aг&StdlibFGFG[ @г&stringFGFGTFGFGZ@@0FFFFFFFF@Z28@@@A9@@a@ a@U@@@@#@@@ @A @@@3 #@@%@@0FFFFFFFF@ @A&%@,Magic_number`aFGqGxFGqG@@БF  a typical magic number is "Caml1999I011"; it is formed of an alphanumeric prefix, here Caml1990I, followed by a version, here 011. The prefix identifies the kind of the versioned data: here the I indicates that it is the magic number for .cmi files. All magic numbers have the same byte length, [magic_length], and this is important for users as it gives them the number of bytes to read to obtain the byte sequence that should be a magic number. Typical user code will look like: {[ let ic = open_in_bin path in let magic = try really_input_string ic Magic_number.magic_length with End_of_file -> ... in match Magic_number.parse magic with | Error parse_error -> ... | Ok info -> ... ]} A given compiler version expects one specific version for each kind of object file, and will fail if given an unsupported version. Because versions grow monotonically, you can compare the parsed version with the expected "current version" for a kind, to tell whether the wrong-magic object file comes from the past or from the future. An example of code block that expects the "currently supported version" of a given kind of magic numbers, here [Cmxa], is as follows: {[ let ic = open_in_bin path in begin try Magic_number.(expect_current Cmxa (get_info ic)) with | Parse_error error -> ... | Unexpected error -> ... end; ... ]} Parse errors distinguish inputs that are [Not_a_magic_number str], which are likely to come from the file being completely different, and [Truncated str], raised by headers that are the (possibly empty) prefix of a valid magic number. Unexpected errors correspond to valid magic numbers that are not the one expected, either because it corresponds to a different kind, or to a newer or older version. The helper functions [explain_parse_error] and [explain_unexpected_error] will generate a textual explanation of each error, for use in error messages. @since 4.11.0 FGGFP#P'@@@@@@0FFFFFFFF@-^X@AA(1native_obj_config1bGP)P0GP)PA@@8@@'flambda2@F@@@!GPFPJGPFPY@@G&@@A@@@@@GP)P+GPZP]@D native object files have a format and magic number that depend on certain native-compiler configuration parameters. This configuration space is expressed by the [native_obj_config] type. GP^P`G Q#Q0@@@@@@@@AG7@G'PFPQ@@Ш@г!$boolG0PFPTG1PFPX@@)0G/G.G.G/G/G/G/G/@=78@@@A@@@@@$!@@@A@@/@d@!@+@@A@'$@B'&@1native_obj_config3GAQ2Q8GBQ2QI@гI1native_obj_configGJQ2QLGKQ2Q]@@ @@@!0GLGKGKGLGLGLGLGL@ZTN@A@@@GTQ2Q4 @D될 I the native object file configuration of the active/configured compiler. G`Q^Q`GaQ^Q@@@@@@@Gx@@A('version4cGmQQGnQQ@@8@@@AG"@@@!@@@@GvQQGwQQ@@A@G@@Aг #intGQQ @@0G~G}G}G~G~G~G~G~@4G28@@@A"@@d@!d@!@@@@@@@@A @@@@0GGGGGGGG@ @A@A($kind5dGQQGQQ@@8@@$Exec6@@GQQGQQ@@G#Cmi7@@G QQG QQ@@G#Cmo8@@G QQG QQ@@G#Cma9@@G QQG QQ@@G#Cmx:@@@!@@G!QQG!QR@@G$Cmxa;@@@!@@G!QRG!QR/@@G$Cmxs<@@G"R0R4G"R0R:@@G#Cmt=@@G#R;R?G#R;RD@@H(Ast_impl>@@G#R;REG#R;RO@@H (Ast_intf?@@G#R;RPG#R;RZ@@H@@A@@@@@HQQ@@@@H@hhHQQf@@@@i@eeH QQc@@@@f@bbH QQ`@@@@c@__H QQ]@@@@`@\\H !QQH!!QQ@@г^1native_obj_configH*!QR_@@e0H(H'H'H(H(H(H(H(@8@@@A@@@@@/@@@-@Ad@@@@f@bbH4!QRH5!QR@@гd1native_obj_configH>!QRe@@kf@@@@h@ddHD"R0R6b@@@@e@aaHJ#R;RA_@@@@b@^^HP#R;RG\@@@@_@[[HV#R;RRY@@@@\@@A@X@@0HUHTHTHUHUHUHUHU@,@AY\@A($info@eHc%R\RcHd%R\Rg@@8@@$kindA@@@@!(Hp&RlRpHq&RlR{@@H'versionB@@@@!+H|'R|RH}'R|R@F  Note: some versions of the compiler use the same [version] suffix for all kinds, but others use different versions counters for different kinds. We may only assume that versions are growing monotonically (not necessarily always by one) between compiler versions. H(RRH+SvS@@@@@@@H@@A@@@@@H%R\R^H,SS@@@@H@**%H&RlRt@@Ш@г-$kindH&RlRvH&RlRz@@50HHHHHHHH@v D8@@@A@@@@@@@@@A@@<@g@!)@8@44/H'R|R@@Ш@г7'versionH'R|RH'R|R@@?@@B@g@!,@>;@A@-@@0HHHHHHHH@@A.-@A(#rawCfH.SSH.SS@@8@@@AH,@@@!9@@@@H.SSH.SS@Fe ^ the type of raw magic numbers, such as "Caml1999A027" for the .cma files of OCaml 4.10 H/SSH0ST:@@@@@@@@@H@@Aг&stringH.SS@@0HHHHHHHH@F(8@@@A/@@g@!:g@!8@@@@$!@@@A #@@%"@0HHHHHHHH@ @A&%@I; {3 Parsing magic numbers} I2T<T>I2T<T^@@@@@@0HHHHHHHH@D>@AA(+parse_errorDgI 4T`TgI4T`Tr@@8@@)TruncatedEH{@@@!A@@I5TuTyI5TuT@@I42Not_a_magic_numberFH@@@!B@@I*6TTI+6TT@@IB@@A@@@@@I.4T`Tb@@@@IE@  I55TuT{I65TuT@@г"&stringI?5TuT#@@)0I=I<I<I=I=I=I=I=@?98@@@A@@@@@@@@@A'@@@@)@%%IH6TTII6TT@@г'&stringIR6TT(@@.)@@@@+@@A@'@@R'*@3explain_parse_errorGI]8TTI^8TT@б@гHܠ&optionIh8TTIi8TT@гڠ$kindIr8TTIs8TT@@ @@@!M0ItIsIsItItItItIt@vpj@A@@@ @@@!O @@б@г{+parse_errorI8TTI8TT@@ @@@!P@@гH&stringI8TTI8TT@@ @@@!Q#@@@@@!R&@@@&@@!S)/ @@@I8TT@G: Produces an explanation for a parse error. If no kind is provided, we use an unspecific formulation suggesting that any compiler-produced object file would have been satisfying. I9TTI;UU@@@@@@@I@@<%parseHI=UUI=UU@б@г#rawI=UUI=UU@@ @@@!T0IIIIIIII@Ut,@A@@гH&resultI=UUI=UU@г|$infoI=UUI=UU@@ @@@!U@@гࠐ+parse_errorI=UUI=UU@@ @@@!V'@@@%@@@!Y-I=UU$@@@4 @@!Z17'@@@I=UU*@G; Parses a raw magic number J >UUJ >UV@@@@@@@J#@9@D)read_infoIJ@VVJ@VV@б@гH*in_channelJ"@VV"J#@VV,@@ @@@![0J$J#J#J$J$J$J$J$@]r,@A@@гH&resultJ1@VVDJ2@VVJ@гؠ$infoJ;@VV1J<@VV5@@ @@@!\@@г<+parse_errorJI@VV7JJ@VVB@@ @@@!]'@@@%@@@!`-JU@VV0$@@@4 @@!a17'@@@J[@VV*@G򐠠  Read a raw magic number from an input channel. If the data read [str] is not a valid magic number, it can be recovered from the [Truncated str | Not_a_magic_number str] payload of the [Error parse_error] case. If parsing succeeds with an [Ok info] result, we know that exactly [magic_length] bytes have been consumed from the input_channel. If you also wish to enforce that the magic number is at the current version, see {!read_current_info} below. JgAVKVMJhMXFXK@@@@@@@J@9@D,magic_lengthJJsOXMXSJtOXMX_@гJ&#intJ|OXMXbJ}OXMXe@@ @@@!b0J~J}J}J~J~J~J~J~@[p*@A@@@JOXMXO @H 1 all magic numbers take the same number of bytes JPXfXhJPXfX@@@@@@@J@@J - {3 Checking that magic numbers are current} JSXXJSXX@@@@@@0JJJJJJJJ@%8#@AA(*unexpectedKhJUXXJUXX@А!a@!d0JJJJJJJJ@8@@!c@A@A@G@B@@@JUXXJUXY @@@@J@AJUXXJUXX@@D@8@A(expectedL@j@!eJUXXJUXX@@J&actualM@%j@!iJUXXJUXY @@J@@A@Y@@@@@ @@@@JUXX@@Ш@А!a3JUXXJUXX@@"@j@!f8@ @JUXY@@Ш@А!a"BJUXY @@&@j@!jF@$@@A@>@@[>=@A(0unexpected_errorNiK VY YK VY Y$@@8@@$KindOk@@@!u@@@!w@@KWY'Y+KWY'YD@@K6'VersionP@@@!x@@@!y@@@!{@@K6XYEYIK7XYEYo@@KN@@A@@@@@K:VY Y@@@@KQ@//KAWY'Y-KBWY'Y1@@г1*unexpectedKKWY'Y:-@г5$kindKSWY'Y5KTWY'Y9@@=0KRKQKQKRKRKRKRKR@R8@@@A@@@@@ @@@@A@@@F<@@@@>@::K_XYEYKK`XYEYR@@г<$kindKiXYEYVKjXYEYZ@@D@@гA*unexpectedKsXYEYe=@гE'versionK{XYEY]K|XYEYd@@M(@@@R)H@@@@J@@A@F@@0K|K{K{K|K|K|K|K|@)@AGJ@-check_currentQKZYqYwKZYqY@б@г$kindKZYqYKZYqY@@ @@@!0KKKKKKKK@D@A@@б@гB$infoKZYqYKZYqY@@ @@@!@@гJ|&resultKZYqYKZYqY@гK$unitKZYqYKZYqY@@ @@@!(@@г0unexpected_errorKZYqYKZYqY@@ @@@!6@@@%@@@!<KZYqY$@@@2 @@!@5'@@@F@@!CI*@@@KZYqYs-@Iv x [check_current kind info] checks that the provided magic [info] is the current version of [kind]'s magic header. K[YYK\YZ6@@@@@@@L@<@V8explain_unexpected_errorRK^Z8Z>K^Z8ZV@б@г0unexpected_errorL^Z8ZYL^Z8Zi@@ @@@!0LLLLLLLL@o,@A@@гKn&stringL^Z8ZmL^Z8Zs@@ @@@!@@@@@!@@@L^Z8Z: @I 4 Provides an explanation of the [unexpected_error]. L(_ZtZvL)_ZtZ@@@@@@@L@@@%A(%errorSjL5aZZL6aZZ@@8@@+Parse_errorT9@@@!@@LDbZZLEbZZ@@L\0Unexpected_errorUJ@@@!@@LRcZZLScZ[ @@Lj@@A@@@@@LVaZZ@@@@Lm@  L]bZZL^bZZ@@г"+parse_errorLgbZZ#@@)0LeLdLdLeLeLeLeLe@cxQ:8@@@A@@@@@@@@@A(@@@@*@&&LqcZZLrcZZ@@г(0unexpected_errorL{cZZ)@@/*@@@@,@@A@(@@0LzLyLyLzLzLzLzLz@@A),@1read_current_infoVLe[ [Le[ [$@б-expected_kindгL&optionLf['[>Lf['[D@г$kindLf['[9Lf['[=@@ @@@!0LLLLLLLL@;tn@A@@@ @@@! @@б@гK~*in_channelLf['[HLf['[R@@ @@@!@@гK&resultLf['[dLf['[j@гh$infoLf['[WLf['[[@@ @@@!-@@г%errorLf['[]Lf['[b@@ @@@!;@@@%@@@!ALf['[V$@@@2 @@!E5'@@`E@@!HLf['[++@@@Le[ [.@J Read a magic number as [read_info], and check that it is the current version as its kind. If the [expected_kind] argument is [None], any kind is accepted. Lg[k[mLi[\@@@@@@@M@=@\M " {3 Information on magic numbers} M l\\M l\\F@@@@@@0M M M M M M M M @l#@A.string_of_kindWMn\H\NMn\H\\@б@г$kindM#n\H\_M$n\H\c@@ @@@!@@гL&stringM0n\H\gM1n\H\m@@ @@@!'@@@@@!*@@@M;n\H\J @JҐ Z a user-printable string for a kind, eg. "exec" or "cmo", to use in error messages. MGo\n\pMHp\\@@@@@@@M_@@=2human_name_of_kindXMSr\\MTr\\@б@гƠ$kindM^r\\M_r\\@@ @@@!0M`M_M_M`M`M`M`M`@VQ,@A@@гLʠ&stringMmr\\Mnr\\@@ @@@!@@@@@!@@@Mxr\\ @K u a user-meaningful name for a kind, eg. "executable file" or "bytecode object file", to use in error messages. Ms\\Mt]=]w@@@@@@@M@@%+current_rawYMv]y]Mv]y]@б@г$kindMv]y]Mv]y]@@ @@@!0MMMMMMMM@>S,@A@@г栐#rawMv]y]Mv]y]@@ @@@!@@@@@!@@@Mv]y]{ @KL ' the current magic number of each kind Mw]]Mw]]@@@@@@@M@@%/current_versionZMy]]My]]@б@г@$kindMy]]My]]@@ @@@!0MMMMMMMM@>S,@A@@гz'versionMy]]My]]@@ @@@!@@@@@!@@@My]] @K " the current version of each kind Mz]]Mz]^@@@@@@@N@@%N G {3 Raw representations} Mainly for internal usage and testing. N}^^N^<^k@@@@@@0NN N NNNNN@5J#@AA((raw_kind[kN^m^tN^m^|@@8@@@AM@@@!@@@@N%^m^oN&^m^@K O the type of raw magic numbers kinds, such as "Caml1999A" for .cma files N2^^N3^^@@@@@@@@@NJ@@Aг&stringN<^m^@@0N:N9N9N:N:N:N:N:@-'8@@@A.@@l@!l@!@@@@# @@@A "@@$!@7$#@*parse_kind\NQ^^NR^^@б@г@(raw_kindN\^^N]^^@@ @@@!0N^N]N]N^N^N^N^N^@QKE@A@@гMߠ&optionNk^_Nl^_@гݠ$kindNu^^Nv^_@@ @@@!@@@@@@! @@@$@@!!'@@@N^^@L> parse a raw kind into a kind N_ _ N_ _.@@@@@@@N@)@4(raw_kind]N_0_6N_0_>@б@г$kindN_0_AN_0_E@@ @@@!0NNNNNNNN@Mb,@A@@г(raw_kindN_0_IN_0_Q@@ @@@!@@@@@!@@@N_0_2 @LY ! the current raw representation of a kind. In some cases the raw representation of a kind has changed over compiler versions, so other files of the same kind may have different raw kinds. Note that all currently known cases are parsed correctly by [parse_kind]. N_R_TN`v`z@@@@@@@N@@%#raw^N`|`N`|`@б@г$infoN`|`N`|`@@ @@@!0NNNNNNNN@>S,@A@@г0#rawN`|`N`|`@@ @@@!@@@@@!@@@N`|`~ @L  A valid raw representation of the magic number. Due to past and future changes in the string representation of magic numbers, we cannot guarantee that the raw strings returned for past and future versions actually match the expectations of those compilers. The representation is accurate for current versions, and it is correctly parsed back into the desired version by the parsing functions above. O ``O bNbS@@@@@@@O#@@%O!"/*ObUbWObUb^@@@@@@0OOOOOOOO@5J#@A)all_kinds_O(b`bfO)b`bo@гNƠ$listO1b`bwO2b`b{@г$kindO;b`brO<b`bv@@ @@@!"@@@@@@!' @@@OHb`bb@@O_@@@-@PJA@@A@A@A@A@PJA@@`@L@@A@_YA@@vO@:4A@@[6@"@@@_YA@,@@@[9@@0O|O{O{O|O|O|O|O|@b];@A70OO~O~OOOOO@@AOGqGOb|b@@@OGqGq@@@NRN/@N(M@MMB@MM*@ML@LLD@L=K@KKb@K[K@KJ@JJ|@JtJnA@JI@I@"0@"+ P@@"& )@ "@@]@V@@Q@J@ @@ @@@|C@<@@@|C@;@h@c<@@^,@%@@{E@>@s@l-@&@@N@G@@U@M@@ @@@,@@W@C@@ }@ x @@ r@ @  @@  @  @ q @  @  g@ ` %@  @  @@ + %A@  A@  A@ x rA@ 7@@P+@@@0PPPPPPPP@ ! ;@  A@@A@A@A@f`A@A@@u/@@@iA@.(A@Y@E@ A@O@*@@@{T@.(A@@@vO@*@@@9@A@ H************************************************************************PRA@@PSA@L@ H PXBMMPYBM@ H OCaml P^CP_C@ H PdDPeD3@ H Xavier Leroy, projet Cristal, INRIA Rocquencourt PjE44PkE4@ H PpFPqF@ H Copyright 1996 Institut National de Recherche en Informatique et PvGPwG@ H en Automatique. P|HP}Hg@ H PIhhPIh@ H All rights reserved. This file is distributed under the terms of PJPJ@ H the GNU Lesser General Public License version 2.1, with the PKPKN@ H special exception on linking described in the file LICENSE. PLOOPLO@ H PMPM@ H************************************************************************PNPN5@ * Miscellaneous useful types and functions {b Warning:} this module is unstable and part of {{!Compiler_libs}compiler-libs}. P * [try_finally work ~always ~exceptionally] is designed to run code in [work] that may fail with an exception, and has two kind of cleanup routines: [always], that must be run after any execution of the function (typically, freeing system resources), and [exceptionally], that should be run only if [work] or [always] failed with an exception (typically, undoing user-visible state changes that would only make sense if the function completes correctly). For example: {[ let objfile = outputprefix ^ ".cmo" in let oc = open_out_bin objfile in Misc.try_finally (fun () -> bytecode ++ Timings.(accumulate_time (Generate sourcefile)) (Emitcode.to_file oc modulename objfile); Warnings.check_fatal ()) ~always:(fun () -> close_out oc) ~exceptionally:(fun _exn -> remove_file objfile); ]} If [exceptionally] fail with an exception, it is propagated as usual. If [always] or [exceptionally] use exceptions internally for control-flow but do not raise, then [try_finally] is careful to preserve any exception backtrace coming from [work] or [always] for easier debugging. N2 * [reraise_preserving_backtrace e f] is (f (); raise e) except that the current backtrace is preserved, even if [f] uses exceptions internally. Mՠ 8 [map_end f l t] is [map f l @ t], just more efficient. PD w PD w @ A Like [List.map], with guaranteed left-to-right evaluation order PF  PF  >@ Same as [List.for_all] but for a binary predicate. In addition, this [for_all2] never fails: given two lists with different lengths, it returns false. PH ~ PJ  8@ [ [replicate_list elem n] is the list with [n] elements all identical to [elem]. PL b jPM  @ a [list_remove x l] returns a copy of [l] with the first element equal to [x] removed. PO  PP6a@ C Return the last element and the other elements of the given list. PRPR@ * [protect_refs l f] temporarily sets [r] to [v] for each [R (r, v)] in [l] while executing [f]. The previous contents of the references is restored even if [f] raises an exception, without altering the exception backtrace. J * The lexicographic order supported by the provided order. There is no constraint on the relative lengths of the lists. I * Returns [true] if and only if the given lists have the same length and content with respect to the given equality function. Io * If all elements of the given list are [Some _] then [Some xs] is returned with the [xs] being the contents of those [Some]s, with order preserved. Otherwise return [None]. I * [let r1, r2 = map2_prefix f l1 l2] If [l1] is of length n and [l2 = h2 @ t2] with h2 of length n, r1 is [List.map2 f l1 h1] and r2 is t2. HN * [split_at n l] returns the pair [before, after] where [before] is the [n] first elements of [l] and [after] the remaining ones. If [l] has less than [n] elements, raises Invalid_argument. GϠ * Returns [true] if and only if the given list, with respect to the given equality function on list members, is a prefix of the list [of_]. G@ * Returns the longest list that, with respect to the provided equality function, is a prefix of both of the given lists. The input lists, each with such longest common prefix removed, are also returned. F 5* Same as [Array.exists2] from the standard library. D@ * Same as [Array.for_all] from the standard library, but the function is applied with the index of the element as first argument, and the element itself as second argument. Cɠ ) Search a file in a list of directories. PP@ 2 Search a relative file in a list of directories. PP0@ Same, but search also for uncapitalized name, i.e. if name is Foo.ml, allow /path/Foo.ml and /path/foo.ml to match. PiqP@ ; Delete the given file if it exists. Never raise an error. Q!)Q!h@ [expand_directory alt file] eventually expands a [+] at the beginning of file into [alt] (an alternate root directory) Q Q )@  [split_path_contents ?sep s] interprets [s] as the value of a "PATH"-like variable and returns the corresponding list of directories. [s] is split using the platform-specific delimiter, or [~sep] if it is passed. Returns the empty list if [s] is empty. QggQ F s@ W Create a hashtable of the given size and fills it with the given bindings. Q  Q !@  [copy_file ic oc] reads the contents of file [ic] and copies them to [oc]. It stops when encountering EOF on [ic]. Q!M!UQ!!@ [copy_file_chunk ic oc n] reads [n] bytes from [ic] and copies them to [oc]. It raises [End_of_file] when encountering EOF on [ic]. Q!""Q"""@ [string_of_file ic] reads the contents of file [ic] and copies them to a string. It stops when encountering EOF on [ic]. Q'""Q(#2#y@ t Produce output in temporary file, then rename it (as atomically as possible) to the desired output file name. [output_to_file_via_temporary filename fn] opens a temporary file which is passed to [fn] (name + output channel). When [fn] returns, the channel is closed and the temporary file is renamed to [filename]. Q-##Q.%O%h@ * Open the given [filename] for writing (in binary mode), pass the [out_channel] to the given function, then close the channel. If the function raises an exception then [filename] will be removed. % O [log2 n] returns [s] such that [n = 1 lsl s] if [n] is a power of 2Q6&&Q7&'@ P [align n a] rounds [n] upwards to a multiple of [a] (a power of 2). Q<'''Q='^'{@ f [no_overflow_add n1 n2] returns [true] if the computation of [n1 + n2] does not overflow. QB''QC'(@ f [no_overflow_sub n1 n2] returns [true] if the computation of [n1 - n2] does not overflow. QH(?(GQI((@ f [no_overflow_mul n1 n2] returns [true] if the computation of [n1 * n2] does not overflow. QN((QO)")L@ d [no_overflow_lsl n k] returns [true] if the computation of [n lsl k] does not overflow. QT)u)}QU))@  Return the given file name without its extensions. The extensions is the longest suffix starting with a period and not including a directory separator, [.xyz.uvw] for instance. Return the given name if it does not contain an extension. QZ**Q[++@ [search_substring pat str start] returns the position of the first occurrence of string [pat] in string [str]. Search starts at offset [start] in [str]. Raise [Not_found] if [pat] does not occur. Q` ,, Qa ,,@ [replace_substring ~before ~after str] replaces all occurrences of [before] with [after] in [str] and returns the resulting string. Qf-B-JQg--@ u [rev_split_words s] splits [s] in blank-separated words, and returns the list of words in reverse order. Ql..Qm.f.@ q [get_ref lr] returns the content of the list reference [lr] and reset its content to the empty list. Qr..Qs//:@ ~ [set_or_ignore f opt x] sets [opt] to [f x] if it returns [Some _], or leaves it unmodified if it returns [None]. Qx//Qy/0 @ * [edit_distance a b cutoff] computes the edit distance between strings [a] and [b]. To help efficiency, it uses a cutoff: if the distance [d] is smaller than [cutoff], it returns [Some d], else [None]. The distance algorithm currently used is Damerau-Levenshtein: it computes the number of insertion, deletion, substitution of letters, or swapping of adjacent letters to go from one word to the other. The particular algorithm may change in the future.  * [spellcheck env name] takes a list of names [env] that exist in the current environment and an erroneous [name], and returns a list of suggestions taken from [env], that are close enough to [name] that it may be a typo for one of them.  >* [did_you_mean ppf get_choices] hints that the user may have meant one of the option returned by calling [get_choices]. It does nothing if the returned list is empty. The [unit -> ...] thunking is meant to delay any potentially-slow computation (typically computing edit-distance with many things from the current environment) to when the hint message is to be printed. You should print an understandable error message before calling [did_you_mean], so that users get a clear notification of the failure even if producing the hint is slow. @ {* [String.cut_at s c] returns a pair containing the sub-string before the first occurrence of [c] in [s], and the sub-string after the first occurrence of [c] in [s]. [let (before, after) = String.cut_at s c in before ^ String.make 1 c ^ after] is the identity if [s] contains [c]. Raise [Not_found] if the character does not appear in the string @since 4.01 ޠ * [ordinal_suffix n] is the appropriate suffix to append to the numeral [n] as an ordinal number: [1] -> ["st"], [2] -> ["nd"], [3] -> ["rd"], [4] -> ["th"], and so on. Handles larger numbers (e.g., [42] -> ["nd"]) and the numbers 11--13 (which all get ["th"]) correctly. 0 Color handling Qf;;Qf;;@, foreground Qt<6H>JQ>?@ > adds functions to support color tags to the given formatter. Q???AQ???@= See the -error-style option Q??Q??@ * [normalise_eol s] returns a fresh copy of [s] with any '\r' characters removed. Intended for pre-processing text which will subsequently be printed on a channel which performs EOL transformations (i.e. Windows) m * [delete_eol_spaces s] returns a fresh copy of [s] with any end of line spaces removed. Intended to normalize the output of the toplevel for tests. 3 * [pp_two_columns ?sep ?max_lines ppf l] prints the lines in [l] as two columns separated by [sep] ("|" by default). [max_lines] can be used to indicate a maximum number of lines to print -- an ellipsis gets inserted at the middle if the input has too many lines. Example: {v pp_two_columns ~max_lines:3 Format.std_formatter [ "abc", "hello"; "def", "zzz"; "a" , "bllbl"; "bb" , "dddddd"; ] v} prints {v abc | hello ... bb | dddddd v}  :* configuration variables  R S* Returns the map encoded in the [BUILD_PATH_PREFIX_MAP] environment variable.  Ԡ * Returns the list of [--debug-prefix-map] flags to be passed to the assembler, built from the [BUILD_PATH_PREFIX_MAP] environment variable.  K* [print_if ppf flag fmt x] prints [x] with [fmt] on [ppf] if [b] is true.  * a typical magic number is "Caml1999I011"; it is formed of an alphanumeric prefix, here Caml1990I, followed by a version, here 011. The prefix identifies the kind of the versioned data: here the I indicates that it is the magic number for .cmi files. All magic numbers have the same byte length, [magic_length], and this is important for users as it gives them the number of bytes to read to obtain the byte sequence that should be a magic number. Typical user code will look like: {[ let ic = open_in_bin path in let magic = try really_input_string ic Magic_number.magic_length with End_of_file -> ... in match Magic_number.parse magic with | Error parse_error -> ... | Ok info -> ... ]} A given compiler version expects one specific version for each kind of object file, and will fail if given an unsupported version. Because versions grow monotonically, you can compare the parsed version with the expected "current version" for a kind, to tell whether the wrong-magic object file comes from the past or from the future. An example of code block that expects the "currently supported version" of a given kind of magic numbers, here [Cmxa], is as follows: {[ let ic = open_in_bin path in begin try Magic_number.(expect_current Cmxa (get_info ic)) with | Parse_error error -> ... | Unexpected error -> ... end; ... ]} Parse errors distinguish inputs that are [Not_a_magic_number str], which are likely to come from the file being completely different, and [Truncated str], raised by headers that are the (possibly empty) prefix of a valid magic number. Unexpected errors correspond to valid magic numbers that are not the one expected, either because it corresponds to a different kind, or to a newer or older version. The helper functions [explain_parse_error] and [explain_unexpected_error] will generate a textual explanation of each error, for use in error messages. @since 4.11.0  ؠ * native object files have a format and magic number that depend on certain native-compiler configuration parameters. This configuration space is expressed by the [native_obj_config] type.  J* the native object file configuration of the active/configured compiler.  r !* Note: some versions of the compiler use the same [version] suffix for all kinds, but others use different versions counters for different kinds. We may only assume that versions are growing monotonically (not necessarily always by one) between compiler versions.  L _* the type of raw magic numbers, such as "Caml1999A027" for the .cma files of OCaml 4.10 <* {3 Parsing magic numbers} ۠ * Produces an explanation for a parse error. If no kind is provided, we use an unspecific formulation suggesting that any compiler-produced object file would have been satisfying. /<* Parses a raw magic number ֠ * Read a raw magic number from an input channel. If the data read [str] is not a valid magic number, it can be recovered from the [Truncated str | Not_a_magic_number str] payload of the [Error parse_error] case. If parsing succeeds with an [Ok info] result, we know that exactly [magic_length] bytes have been consumed from the input_channel. If you also wish to enforce that the magic number is at the current version, see {!read_current_info} below. } 2* all magic numbers take the same number of bytes U .* {3 Checking that magic numbers are current} G y* [check_current kind info] checks that the provided magic [info] is the current version of [kind]'s magic header.  5* Provides an explanation of the [unexpected_error]. Ƞ * Read a magic number as [read_info], and check that it is the current version as its kind. If the [expected_kind] argument is [None], any kind is accepted.  #* {3 Information on magic numbers} ꠠ [* a user-printable string for a kind, eg. "exec" or "cmo", to use in error messages.  v* a user-meaningful name for a kind, eg. "executable file" or "bytecode object file", to use in error messages. x (* the current magic number of each kind > #* the current version of each kind  H* {3 Raw representations} Mainly for internal usage and testing.  P* the type of raw magic numbers kinds, such as "Caml1999A" for .cma files ֠?* parse a raw kind into a kind z "* the current raw representation of a kind. In some cases the raw representation of a kind has changed over compiler versions, so other files of the same kind may have different raw kinds. Note that all currently known cases are parsed correctly by [parse_kind]. @ * A valid raw representation of the magic number. Due to past and future changes in the string representation of magic numbers, we cannot guarantee that the raw strings returned for past and future versions actually match the expectations of those compilers. The representation is accurate for current versions, and it is correctly parsed back into the desired version by the parsing functions above. #*/*@-./boot/ocamlc"-g)-nostdlib"-I$boot*-use-prims2runtime/primitives0-strict-sequence*-principal(-absname"-w>+a-4-9-40-41-42-44-45-48-66-70+-warn-error"+a*-bin-annot,-safe-string/-strict-formats"-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"-cR?R@ 3/home/barsac/ci/builds/workspace/step-by-step-build - @0əU4x_20RQRPRPRQRQRQRQRQ@RO@@ 0xөvĠ8CamlinternalFormatBasics0cEXy@@@@@@@@  ϰ  MM@  EE@  @@ % $!q!p@ݰް%x%vKK@'*  ""@@@@  @@@#`#_@''@@ONQQ@°##GG@d  @JZJY@oon1{1@@FFIMIL@@#%{E.E^Q4Q3@@47@@@@zy@@@@@@ % $@@@@ q tFUFT@r@A@@UT""@@PP@  ܰOUOT@@LL@@@MM@ _ ^@@ac@@*)@  @  OO@@ g j|{@  (:(9@J J @%'@@@@հPO\[@@@  ΰ!,!+@ji"="<(o(@  @@P@