Caml1999I0370$Misc+fatal_errorp@&stringQ@@@@@!a@@@@.utils/misc.mliYY@@@@@,fatal_errorfq@&Stdlib'format4!a@&Format)formatter@@@$unitF@@@!b@@@@@@@@@/\DD0\D@@GA@@ +Fatal_errorr##exnG@@@A&_none_@@A@TB@B@+try_finallys&always&optionL@2@@@@@6@@@@@@@@@@-exceptionally@H@@@@@L@@@@@@@@@@@@Y@@@@@!a@@@@@@@@@@@@dAAg@@C@@@@?@kV  lV .@@H@@.replicate_listy@!a@C@@@@#intA@@@A@@B@@@D@@E@@F@[[@@I@@+list_removez@!a@J@@G@ڠ @@@H@@Iߠ@@@K@@L@@M@_}}_}@@J@@*split_last{@!a@P@@@N@@O@ @@@Q@@@R@@S@cc=@@K@@.repeated_label|@@@@@U@@@V@!a@T@@W@@@X@@Y@@@Z@@@[@@\@ff@@L@@0create_hashtable}@@@@]@@^@H@!a@c@!b@b@@_@@@`@@a'Hashtbl!t @@@d@@e@@f@*k88+k8y@@BM@@Ӡ&Stdlib~@Ӡ$List@!t;!a@\@A@A @@@]Y@@@@@MujnNuj@@@@eN@A@'compare@@!a@f@@^@@@_@@@`@@a@@b@@c@5@@@d@@e@ @@@g@@h@@@i@@j@@k@@l@ww@@O@@%equal@@!a@u@@m@@@nI@@@o@@p@@q@@r@2@@@s@@t@:@@@v@@w]@@@x@@y@@z@@{@{HL{H@@P@@=some_if_all_elements_are_some@Ou!a@@@@|@@@}@@~` @@@@@@@@@U@@Q@@+map2_prefix@@!a@@@@!b@@@!c@@@@@@@@@@@@@@@@@@@@@@@@%@@@@@@@@@@@@#f@@*R@@&iteri2@@@@@@@@!a@@@@!b@@@@@@@@@@@@@@@y@@@@@@@@@@@*@@@@@@@@@@Q R U@@iS@@(split_at@@@@@@@!a@@@@@@@ @@@@ @@@@@@@@@@|} @@T@@)chunks_of@ @@@@@@#!a@@@@@@+. @@@@@@@@@@@ @@U@@)is_prefix%equal@!a@@@@@@m@@@@@@@@@@@@@@@#of_ @@@@@@@@@@@@@@@ er@@V@@@@?@@@@@@A@@B@ ?@@0a@@)all_somes@Oޠ!a@F@@@C@@@D@@Ea@@@G@@@H@@I@= >=@@Ub@@@@AlnB>C@Yc@@@Ӡ&String@!t;@@@A&stringQ@@@@@@@*string.mliK  K  @@@@.Stdlib__String@@A@$make@#intA@@@@@@$charB@@@@@%@@@@@@@@#N  $N  =@@"A@@$init@!@@@@@@@-@@@@@'@@@@@@@J@@@ @@ @@ @HT  IT @@GB@@%emptyW@@@ @U[V[@@TC@@&length@h@@@ @@W@@@@@.%string_lengthAA @@@oa((pa(Z@@nD@@#get@@@@@@@u@@@@@o@@@@@@@0%string_safe_getBA"@@@@dd@@E@@(of_bytes@%bytesC@@@@@@@@@@@juuju@@F@@(to_bytes@@@@@@@@@@@@qq@@G@@$blit@@@@ @@!@@@@"@@#@<@@@$@@%@@@@&@@'@@@@(@@)$unitF@@@*@@+@@,@@-@@.@@/@xy@@H@@&concat@@@@0@@1@$listK@@@2@@@3@@4@@@5@@6@@7@sss@@I@@#cat@+@@@8@@9@3@@@:@@;7@@@<@@=@@>@5tt6t@@4J@@%equal@P@@@?@@@@@@@A@@B$boolE@@@C@@D@@E@SrrTr@@RK@@'compare@@@@F@@G@%@@@H@@I[@@@J@@K@@L@no*@@mL@@+starts_with&prefix@@@M@@N@@@@O@@P<@@@Q@@R@@S@%@@M@@)ends_with&suffix@@@T@@U@@@@V@@W[@@@X@@Y@@Z@@@N@@-contains_from@@@@[@@\@@@@]@@^@@@@_@@`@@@a@@b@@c@@d@RRR@@O@@.rcontains_from@@@@e@@f@@@@g@@h@@@@i@@j@@@k@@l@@m@@n@666h@@P@@(contains@ @@@o@@p@@@@q@@r@@@s@@t@@u@000U@@Q@@#sub@&@@@v@@w@@@@x@@y@!@@@z@@{:@@@|@@}@@~@@@89@@7R@@-split_on_char@,@@@@@@S@@@@@H[@@@@@@@@@@@Z[@@YS@@#map@@R@@@@@V@@@@@@@@}@@@@@@@@@@@@@aaa@@~T@@$mapi@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@U@@)fold_left@@#acc@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@V@@*fold_right@@@@@@@@#acc@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@&exists@@@@@@@@@@@@@@@!@@@@@@@@@@@@@#  $ !@@"Y@@$trim@6@@@@@:@@@@@@8!!9!!@@7Z@@'escaped@K@@@@@O@@@@@@M"H"HN"H"f@@L[@@/uppercase_ascii@`@@@@@d@@@@@@b$y$yc$y$@@a\@@/lowercase_ascii@u@@@@@y@@@@@@w %E%Ex %E%k@@v]@@0capitalize_ascii@@@@@@@@@@@@&&&&8@@^@@2uncapitalize_ascii@@@@@@@@@@@@&&&&@@_@@$iter@@@@@@@@@@@@@@@@@@@@@@@@@@@@!''!''@@`@@%iteri@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@%((%((@@a@@*index_from@@@@@@@@@@@@@@@@@@@@@@@@@@@@-)P)P-)P)}@@b@@.index_from_opt@+@@@@@@@@@@@@@@@@@&optionL0@@@@@@@@@@@@@D5*o*oE5*o*@@Cc@@+rindex_from@W@@@@@@J@@@ @@ @H@@@ @@ V@@@ @@@@@@@i<+o+oj<+o+@@hd@@/rindex_from_opt@|@@@@@@o@@@@@@m@@@@@Q@@@@@@@@@@@@@C,,C,,@@e@@%index@@@@@@@@@@@@@@@ @@!@@"@J--J--@@f@@)index_opt@@@@#@@$@@@@%@@&@@@'@@@(@@)@@*@M--M-.@@g@@&rindex@@@@+@@,@@@@-@@.@@@/@@0@@1@R.n.nR.n.@@h@@*rindex_opt@@@@2@@3@@@@4@@5Ϡ@@@6@@@7@@8@@9@U..U./@@i@@&to_seq@@@@:@@;&Stdlib#Seq!t@@@<@@@=@@>@0\//1\//@@/j@@'to_seqi@@@@?@@@#Seq!t@<@@@B@8@@@A@@C@@@D@@E@Vb0 0 Wb0 0/@@Uk@@&of_seq@B#Seq!tQ@@@F@@@G@@H-@@@I@@J@rg00sg00@@ql@@/get_utf_8_uchar@=@@@K@@L@w@@@M@@Ni%Uchar*utf_decode@@@O@@P@@Q@r1V1Vr1V1@@m@@.is_valid_utf_8@\@@@R@@ST@@@T@@U@v11v11@@n@@2get_utf_16be_uchar@p@@@V@@W@@@@X@@Y%Uchar*utf_decode@@@Z@@[@@\@|2o2o|2o2@@o@@1is_valid_utf_16be@@@@]@@^@@@_@@`@2223@@p@@2get_utf_16le_uchar@@@@a@@b@@@@c@@d%Uchar*utf_decode@@@e@@f@@g@3333@@q@@1is_valid_utf_16le@@@@h@@i@@@j@@k@ 4(4( 4(4I@@ r@@-edit_distance%limit@@@l@@@m@@n@@@@o@@p@@@@q@@r"@@@s@@t@@u@@v@544644@@4s@@*spellcheck(max_dist*@Q@@@w@@x@@@@y@@z@@@{@@|@@@f@@@}@@~v@@@@@@@z@@@@@@@@v@@@@@k~@@@@@@@@@@@@@}88~88@@|t@@)get_uint8 @@@@@@@@@@@@@@@@@@@@?;?;?;?_@@u@@(get_int8 @@@@@@@@@@@@@@@@@@@@????@@v@@-get_uint16_ne @@@@@@@@@@@@@@@@@@@@@]@]@]@@@w@@-get_uint16_be @@@@@@@@@@@@@@@@@@@@AAAA/@@x@@-get_uint16_le @@@@@@@@@@@@@@@@@@@@AAAA@@ y@@,get_int16_ne@!@@@@@@@@@@@@@@@@@@@+BXBX,BXB@@*z@@,get_int16_be@>@@@@@@1@@@@@5@@@@@@@@HBBIBC%@@G{@@,get_int16_le@[@@@@@@N@@@@@R@@@@@@@@eCCfCC@@d|@@,get_int32_ne@x@@@@@@k@@@@@%int32N@@@@@@@@ DGDG DGDp@@}@@$hash@O@@@@@@@@@@@DDDD@@~@@+seeded_hash@@@@@@@k@@@@@@@@@@@@@EEEE@@@@,get_int32_be@@@@@@@@@@@@O@@@@@@@@ FF FF@@@@@,get_int32_le@@@@@@@@@@@@l@@@@@@@@'GfGf'GfG@@A@@,get_int64_ne@@@@@@@@@@@@%int64O@@@@@@@@ .HH.HH0@@ B@@,get_int64_be@ @@@@@@@@@@@@@@@@@@@*5HH+5HH@@)C@@,get_int64_le@=@@@@@@0@@@@@<@@@@@@@@G<IFIFH<IFIo@@FD@@*unsafe_get@Z@@@@@@M@@@@@G@@@@@@@2%string_unsafe_getBA@@@@iGJ3J3jGJ3Ju@@hE@@+unsafe_blit@|@@@@@@o@@@@@@@@@@@@@@@@@@@@@@@ @@@ @@ @@ @@ @@@@0caml_blit_stringE@4@@@@@@@HJvJvJJJ@'noallocJJJJJJ@@JJJ @@F@@Ӡ#Set@#elt!;@@@A#@@@@@@@@@@@5d@A@!t";@@@A@@@@@'set.mliJ U YJ U _@@@@+Stdlib__SetD@A@%empty#@@@@M ~ M ~ @@E@@#add$@2@@@@@@@@@@@@@@@@@@@*P  +P  @@)F@@)singleton%@@@@@@/@@@@@@=V  >V  @@@@IR@@&choose1@L@@@ @@ >@@@ @@@]^@@\S@@*choose_opt2@_@@@@@XU@@@@@@@@@uv@@tT@@$find3@f@@@@@@~@@@@@p@@@@@@@@@@U@@(find_opt4@@@@@@@@@@@@@@@@@@ @@!@@"@x|x@@V@@*find_first5@@@@@#@@$ @@@%@@&@@'@@@@(@@)@@@*@@+@@,@KOKx@@W@@.find_first_opt6@@@@@-@@.B@@@/@@0@@1@@@@2@@3ڠ@@@4@@@5@@6@@7@RVR@@X@@)find_last7@@@@@8@@9i@@@:@@;@@<@@@@=@@>@@@?@@@@@A@{{@@Y@@-find_last_opt8@@@@@B@@C@@@D@@E@@F@*@@@G@@H# @@@I@@@J@@K@@L@@A@@?Z@@$iter9@@5@@@M@@N$unitF@@@O@@P@@Q@S@@@R@@S @@@T@@U@@V@ef@@d[@@$fold:@@Z@@@W@@X@#acc@`@@Y@@Z@@[@@\@z@@@]@@^@@@_@@a@@b@@c@@@\@@#map;@@@@@d@@e@@@f@@g@@h@@@@i@@j@@@k@@l@@m@@@]@@&filter<@@@@@n@@o@@@p@@q@@r@@@@s@@t@@@u@@v@@w@    @@^@@*filter_map=@@@@@x@@yΠ@@@z@@@{@@|@@}@@@@~@@@@@@@@@@"" ""7@@_@@)partition>@@@@@@@g@@@@@@@@@@@@@@ @@@@@@@@@@@@@@ $;$?!$;$i@@`@@%split?@@@@@@@)@@@@@@0@@@@@@@@;@@@@@@@@@@I%Z%^J%Z%@@Ha@@(is_empty@@K@@@@@@@@@@@]'$'(^'$'?@@\b@@,is_singletonA@_@@@@@@@@@@@q'p'tr'p'@@pc@@#memB@b@@@@@@z@@@@@@@@@@@@@ '' '(@@d@@%equalC@@@@@@@@@@@@@@@@@@@@(A(E(A(^@@e@@'compareD@@@@@@@@@@@@@@@@@@@@((((@@f@@&subsetE@@@@@@@@@@@@7@@@@@@@@)_)c)_)}@@g@@'for_allF@@@@@@@O@@@@@@@@@@@@@Z@@@@@@@@)))*@@h@@&existsG@@@@@@@r@@@@@@@@@@@@@}@@@@@@@@#*d*h$*d*@@"i@@'to_listH@%@@@@@K@@@@@@@@@;%++!<%++<@@:j@@'of_listI@`0@@@@@@@@E@@@@@@S)+|+T)+|+@@Rk@@+to_seq_fromJ@D@@@@@@\@@@@@&Stdlib#Seq!tX@@@@@@@@@@@x/,w,{y/,w,@@wl@@&to_seqK@z@@@@@#Seq!ts@@@@@@@@@4-0-44-0-O@@m@@*to_rev_seqL@@@@@@9#Seq!t@@@@@@@@@8--8--@@n@@'add_seqM@Q#Seq!t@@@@@@@@@@@@@@@@@@@@@@<..<..4@@o@@&of_seqN@s#Seq!t@@@@@@@@@@@@@@@..@..@@p@@@@@-e@@@Ӡ#Map@#keyO;@@@A0@@@@@@@*+ @@@@Bf@A@!tP;!a@@A@A@I@B@@@'map.mliI V ZI V e@@@@+Stdlib__MapD@A@%emptyQ!a@@@@@L  L  @@E@@#addR@>@@@@@@!a@ @@ @& @@@ @@ *@@@ @@@@@@@9O  :O  @@8F@@+add_to_listS@%@@@@@@!a@@@@J$listK@@@@@@@@U @@@@@@@@@@@@@iX  jX  @@hG@@&updateT@U@@@@@@@&optionL!a@&@@@@@   @@@!@@"@@#@@@@$@@%@@@'@@(@@)@@*@^^@@H@@)singletonU@@@@+@@,@!a@.@@-@@@/@@0@@1@jW[jW{@@I@@&removeV@@@@2@@3@ !a@6@@@4@@5ʠ@@@7@@8@@9@oo@@J@@%mergeW@@@@@:@@;@p!a@E@@@<@@=@}!b@H@@@>@@?!c@K@@@@@@A@@B@@C@@D@ "@@@F@@G@@@@I@@J@@@L@@M@@N@@O@$vY]%x@@#K@@%unionX@@@@@P@@Q@!a@]@@R@@@Sà @@@T@@U@@V@@W@@X@B@@@Y@@Z@J@@@[@@\N @@@^@@_@@`@@a@]fj^f@@\L@@(cardinalY@_!a@b@@@c@@d#intA@@@e@@f@xy@@wM@@(bindingsZ@z!a@i@@@g@@h5@t@@@j@@@k@@@l@@m@8<8a@@N@@+min_binding[@!a@p@@@n@@o@@@@q@@@r@@s@bfb@@O@@/min_binding_opt\@!a@v@@@t@@uM@@@@w@@@x@@@y@@z@JNJ|@@P@@+max_binding]@ޠ!a@}@@@{@@|@@@@~@@@@@@484[@@Q@@/max_binding_opt^@!a@@@@@@@@@@@@@@@@@@@ @@R@@&choose_@!a@@@@@@@@@@@@@@@@;<@@:S@@*choose_opt`@=!a@@@@@@Ϡ@7@@@@@@@@@@@@^_@@]T@@$finda@J@@@@@@g!a@@@@@@@@@@@z{@@yU@@(find_optb@f@@@@@@!a@@@@@@ @@@@@@@@IMIs@@V@@*find_firstc@@@@@@@$boolE@@@@@@@@!a@@@@@@@@@@@@@@@@@@    D@@W@@.find_first_optd@@@@@@@/@@@@@@@@۠!a@@@@@@m@@@@@@@@@@@@@@@"*"."*"l@@X@@)find_laste@@@@@@@a@@@@@@@@ !a@@@@@@@@@@Š@@@@@@@@)#_#c*#_#@@(Y@@-find_last_optf@@@@@@@@@@@@@@@:!a@@@@@@̠@4@@@Ѡ@@@@@@@@@@@[$y$}\$y$@@ZZ@@$iterg@@K@@@@@@!a@@@$unitF@@@@@@@@@@v@@@@@@@@@@@@@%%%& @@[@@$foldh@@y@@@@@@!a@@@@#acc@@@@@@@@@@@@@@@@@@@@@@@@@@@'%')'3'l@@\@@#mapi@@!a@@@!b@@@@@@ˠ@@@@@Ϡ@@@@@@@@(e(i(e(@@]@@$mapij@@@@@@@@!a@@@!b@@@@@@@@@@@@@@@@@@@@ @ )) ))@@ ^@@&filterk@@@@@ @@ @!a@@@ w@@@ @@@@@@@#@@@@@'@@@@@@@@6**7**@@5_@@*filter_mapl@@&@@@@@@!a@@@Ѡ!b@!@@@@@@@@@@T@@@@@ X@@@"@@#@@$@g ,,h ,,?@@f`@@)partitionm@@W@@@%@@&@!a@/@@'@@@(@@)@@*@@+@@@@,@@-@@@@0@@@@.@@1@@2@@3@.../%@@a@@%splitn@@@@4@@5@!a@:@@@6@@7@ @@@;@B@@@9@@@@8@@<@@=@@>@$0'0+$0'0\@@b@@(is_emptyo@Р!a@?@@@@@@A4@@@B@@C@022!022;@@c@@,is_singletonp@!a@D@@@E@@FM@@@G@@H@32l2p32l2@@d@@#memq@@@@I@@J@ !a@K@@@L@@Mm@@@N@@O@@P@ 822!823@@e@@%equalr@@!a@Y@@Q@@@R@@@S@@T@@U@@V@6@@@W@@X@>@@@Z@@[@@@\@@]@@^@@_@Q<3j3nR<3j3@@Pf@@'compares@@!a@h@@`@@@a@@@b@@c@@d@@e@g@@@f@@g@o@@@i@@j @@@k@@l@@m@@n@B44B44@@g@@'for_allt@@r@@@o@@p@!a@v@@q@@@r@@s@@t@@u@@@@w@@x@@@y@@z@@{@F5r5vF5r5@@h@@&existsu@@@@@|@@}@!a@@@~@@@@@@@@@@Ǡ@@@@@'@@@@@@@@K66"K66Q@@i@@'to_listv@ܠ!a@@@@@@@@@@@@@@@@@@@R66R67@@j@@'of_listw@@@@@@!a@@@@@@@@@@@@@@ V7]7a!V7]7@@k@@&to_seqx@"!a@@@@@@&Stdlib#Seq!t@"@@@@@@@@@@@@I\888<J\888a@@Hl@@*to_rev_seqy@K!a@@@@@@)#Seq!t@H@@@@@@@@@@@@o`88p`88@@nm@@+to_seq_fromz@[@@@@@@x!a@@@@@@V#Seq!t@u@@@@@@@@@@@@@@d9;9?d9;9p@@n@@'add_seq{@t#Seq!t@@@@@!a@@@@@@@@@ @@@@@@@@@@@@@i: :i: :=@@o@@&of_seq|@#Seq!t@@@@@!a@@@@@@@@@@@@@@m::m::@@p@@@@/@Fg@@@Ӡ#Tbl@#key};@@@AI@@@?@@@@C  $D  5@@@@[h@A@!t~;!a@@@A@A@O@B@@@+hashtbl.mli=&=*=&=4@@@@/Stdlib__Hashtblf@A@&create@#intA@@@A@@B#!a@C@@@D@@E@=5=9=5=Q@@g@@%clear@!a@F@@@G@@H$unitF@@@I@@J@9=R=V:=R=n@@8h@@%reset@1!a@K@@@L@@M@@@N@@O@R=o=sS=o=@@Qi@@$copy@J!a@R@@@P@@QR@@@S@@T@k==l==@@jj@@#add@c!a@Y@@@U@@V@@@@W@@X@@@ZY@@@[@@\@@]@@^@====@@k@@&remove@!a@_@@@`@@a@%@@@b@@cy@@@d@@e@@f@===>@@l@@/find_and_remove@!a@k@@@g@@h@E@@@i@@j&optionL@@@l@@m@@n@> > > >;@@m@@$find@ˠ!a@s@@@o@@p@h@@@q@@r @@t@@u@>S>W>S>s@@n@@(find_opt@!a@z@@@v@@w@@@@x@@y?@@@{@@|@@}@>t>x>t>@@o@@(find_all@!a@@@@~@@@@@@@@$listK@@@@@@@@3>>4>>@@2p@@'replace@+!a@@@@@@@@@@@@@@@ @@@@@@@@@@W>>X>? @@Vq@@0find_and_replace@O!a@@@@@@@@@@@@@@@@@@@@@@@@@|??}??G@@{r@@#mem@t!a@@@@@@@@@@@@$boolE@@@@@@@@?_?c?_?@@s@@$iter@@+@@@@@@!a@@@@@@@@@@@@@@@@@@@@@@@@@@????@@t@@2filter_map_inplace@@W@@@@@@!a@@@@@@@@@@@@@ڠ@@@@@@@@@@@@@????@@u@@$fold@@@@@@@@!a@@@@#acc@@@@@@@@@@@@ @@@@@@@@@@@@@@@'@@(@&@_@@&v@@&length@!a@@@@@@-@@@@@@@@`@dA@`@|@@?w@@%stats@8!a@@@@@@U*statistics@@@@@@\@}@]@}@@@[x@@&to_seq@T!a@@@@@@&Stdlib#Seq!t@@@@٠@@@@@@@@@@@@@@@y@@+to_seq_keys@}@@@@@@@'#Seq!t@@@@@@@@@@@@A@@z@@-to_seq_values@!a@@@@@@G#Seq!t @@@@@@A4A8A4A\@@{@@'add_seq@!a@@@@@@@h#Seq!t@`@@@렠@@@@@@@@@@@@@@@@AuAyAuA@@|@@+replace_seq@!a@@@@@@@#Seq!t@@@@@@@@@@@@@@@@@@@@AAAA@@}@@&of_seq@#Seq!t@@@@@!a@@@@@@@@)@@@@@@BBBCBB8@@A~@@@@  W@i@@@%print@&Format)formatter@@@@@@@@@@@@@@@@@@@ 7 ; 7 d@@j@@'for_all@@$charB@@@@@@@@@@@@@=@@@@@@@@@@@@ @ f j f @@k@@,to_utf_8_seq @Q@@@!@@"#Seq!t%Uchar!t@@@#@@@$@@%@    @@l@@@@pr  @m@@@'compare@!a@@@@@@@@@@@@@(%compareBA @@@@   !  @@8n@@@@$q%  @@!*S44!+S44@@!BI@@@@!.G33!/V44@!FJ@@@/find_first_mono@@@@@@@@@@@@@@@@@@@@!KX44!LX45@@!cK@@0search_substring@!b@@@@@ @!j@@@ @@ @@@@ @@ @@@@@@@@@@!pm88!qm885@@!L@@1replace_substring&before!@@@@@%after!@@@@@@!@@@@@!@@@@@@@@@@!s9,9,!s9,9t@@!M@@/rev_split_words@!@@@@@ !@@@@@@@@ @!x::!x::H@@!N@@&cut_at@!@@@!@@"@@@@#@@$@!@@@&@!@@@%@@'@@(@@)@!|::!|::@@!O@@.ordinal_suffix@ g@@@*@@+!@@@,@@-@!<|<|!<|<@@"P@@-normalise_eol@"@@@.@@/" @@@0@@1@"=="==@@"Q@@1delete_eol_spaces@"@@@2@@3"@@@4@@5@">>">>@@"1R@@-ref_and_value;@@!R`"#ref!a@6@@@7@@@@8"9??":??@@"QT@@@A@@@@@"=??@@@@"TS@A@,protect_refs@!@@@9@@@:@@;@@"6@@@<@@=!a@@@@>@@?@@A@@B@"a??"b?@)@@"yU@@'get_ref@"`#ref!!a@F@@@C@@@D@@E! @@@G@@H@"AA"AA;@@"V@@-set_or_ignore@@!a@Q@@I"L!b@M@@@J@@K@@L@"#ref"^@@@N@@@O@@P@ @@R"@@@S@@T@@U@@V@"AA"AA@@"W@@$fst3@@!a@[@!b@X@!c@W@@Y@@Z@@\@"BB"BB@@"X@@$snd3@@!a@^@!b@a@!c@]@@_@@` @@b@"BB"BB@@#Y@@$thd3@@!a@d@!b@c@!c@g@@e@@f@@h@#BB#BC@@#2Z@@$fst4@@!a@n@!b@k@!c@j@!d@i@@l@@m@@o@#ACC#BCC6@@#Y[@@$snd4@@!a@r@!b@u@!c@q@!d@p@@s@@t@@v@#hC7C7#iC7CX@@#\@@$thd4@@!a@y@!b@x@!c@|@!d@w@@z@@{ @@}@#CYCY#CYCz@@#]@@$for4@@!a@@!b@@!c@~@!d@@@@@@@@#C{C{#C{C@@#^@@-edit_distance@#@@@@@@#@@@@@@"S@@@@@#"[@@@@@@@@@@@@@#CC#CD@@#_@@*spellcheck@#'#@@@@@@@@@$@@@@@#8$ @@@@@@@@@@@$EE$EF2@@$`@@*align_hint&prefix$ @@@@@$main*Format_doc!t@@@@@$hint!t@@@@@@!t@@@@ !t@@@@@@@@@@@@$FG4G4$GGG@@$^a@@0align_error_hint$main5!t@@@@@$hintA!t@@@@@@K!t@@@@S!t@@@@@@@@@@$yKMKM$zKcK@@$b@@,aligned_hint&prefix$@@@@@@p)formatter@@@@@@$'format4!a@)formatter@@@$@@@@$i!t@@@@@@@@$@@@@@@@@@@%@@@@@@@$KK$LLd@@$c@@,did_you_mean"pp$'printer$@@@@@@@@@@@@$ $@@@@@@@@$!t@@@@@@@@@@@$MM$M'Mn@@%d@@Ӡ%Color@'setting;@@$Auto@@%NhNy%NhN}@@%'f@&Always@@%NhN~%NhN@@%0g@%Never@@%!NhN%"NhN@@%9h@@@A@@@@@%%NhNj@@A@%<e@A@/default_setting*@@@*@%1NN%2NN@@%Ii@@*is_enabled@%@@@+@@,#@@@-@@.@%FNN%GNN@@%^j@@@@%JNUNU%KNN@%bk@@@Ӡ%Style@%color;@@%Black@@%_ O*O.%` O*O5@@%wm@#Red@@%hO6O:%iO6O?@@%n@%Green@@%qO@OD%rO@OK@@%o@&Yellow@@%zOLOP%{OLOX@@%p@$Blue@@%OYO]%OYOc@@%q@'Magenta@@%OdOh%OdOq@@%r@$Cyan@@%OrOv%OrO|@@%s@%White@@%O}O%O}O@@%t@@@A@@@@@% OO@@A@%l@A@%style;@@"FG^@@@@@%OO%OO@@%v@"BG@@@@@%OO%OO@@%w@$Bold@@%OO%OO@@%x@%Reset@@%OO%OO@@%y@@@A@@@@@%OO@@@@%u@A@ %Style#%&Format$stag@% F@@@@@@@@A%@&z@@@/ansi_of_style_l@%3@@@@@@@@& @@@@@@&P!P#&P!PM@@&{@@)tag_style;@@$ansi@@%M-@@@@@@&!PP&!PP@@&3}@)text_open@@&-@@@&'"PP&("PP@@&?~@*text_close@@&9@@@&3#PP&4#PP@@&K@@@A@@@@@&7 PP&8$PP@@@@&O|@A@&styles;@@%error@@=@@@ &I'PP&J'PQ@@&a@'warning@@ @@@ &T(QQ&U(QQ@@&l@#loc@@@@@ &_)QQ&`)QQ.@@&w@$hint@@"@@@ &j*Q/Q3&k*Q/QC@@&@+inline_code@@-@@@&u+QDQH&v+QDQ_@@&@@@A@@@@@&y&PP&z,Q`Qc@@@@&@A@$hint@f)formatter@@@ @@&i@@@@@@&.QeQg&.QeQ@@&@@.as_inline_code@}'printer!a@@@@@@'printer @@@@@@&/QQ&/QQ@@&@@+inline_code'printer&@@@@@@@&0QQ&0QQ@@&@@.default_styles@@@@&2RR&2RR@@&@@*get_styles@&@@@@@@@@@@@&3RR &3RR>@@&@@*set_styles@%@@@@@&@@@@@ @&4R?RA&4R?R_@@'@@%setup@& 'setting@@@!@@@"@@#&@@@$@@%@'6RaRc'6RaR@@',@@0set_tag_handling@'&Format)formatter@@@&@@''@@@(@@)@',;SKSM'-;SKS|@@'D@@@@'0 OO'1=SS@'H@@@Ӡ+Error_style@'setting;@@*Contextualِ@@'EBTT'FBTT#@@']@%Shortڐ@@'NCT$T('OCT$T/@@'f@@@A@@@@@'RATT@@A@'i@A@/default_setting!@@@@'^ET1T3'_ET1TP@@'v@@@@'b@SS'cFTQTT@'z@@@(print_if@'b&Format)formatter@@@@@@'l#ref&0@@@@@@@@@@'&Format)formatter@@@@@@!a@@@'x@@@@@@@@@@ @@ @@@@@@@@@'JTsTs'KTT@@'@@0print_see_manual'printer&&6@@@@@@@@@@'NU"U"'NU"UT@@'@@4show_config_and_exit@'@@@@@'@@@@@@'SUU'SUU@@'@@=show_config_variable_and_exit@'@@@@@'@@@@@@'WVKVK'WVKV}@@'@@9get_build_path_prefix_map@'@@@@@'5Build_path_prefix_map#map@@@@@@@@@(`WW(`WW@@(@@@@@@+*oZZ++2uu@+B@@@Ӡ+Utf8_lexeme@!t;@@@A+E@@@o@@@@+?>vyv{+@>vyv@@@@+W@A@)normalize@+V@@@p@@q+C&Result!t$@@@s@@@r@@@t@@u@+`@vv+a@vv@@+x@@*capitalize@+w@@@v@@w+d&Result!t!@@@y%@@@x@@@z@@{@+Gww+Gww@@+@@,uncapitalize@+@@@|@@}+&Result!tA@@@E@@@~@@@@@@+Lxx+Lxx@@+@@.is_capitalized@V@@@@@*a@@@@@@+Qyy+Qyy@@+@@3is_valid_identifier@j@@@@@*u@@@@@@+Vzvzx+Vzvz@@+@@,is_lowercase@~@@@@@*@@@@@@+\{X{Z+\{X{u@@+@@1validation_result;@@%Valid+@@+b|P|T+b|P|[@@,@1Invalid_character,+%Uchar!t@@@@@+c|\|`+c|\|~@@,@1Invalid_beginning-+%Uchar!t@@@@@, d||,d||@@,%@@@A@@@@@,a|5|7@@@@,(@A@3validate_identifier(with_dot+Ԡ*@@@@@@@@@@@@@@O@@@@@@@@,2f||,3f|}2@@,J@@>starts_like_a_valid_identifier@@@@@@*@@@@@@,Fj}},Gj}}@@,^@@@@,J=vava,Kn~~@,b@@@Ӡ)RuntimeID@!t;@@#devO@@+@@@,bx,cx@@,z@'releaseP@@*@@@,nz,oz@@,@(reservedQ@@*@@@,z|%),{|%7@@,@3no_flat_float_arrayR@@+3@@@,~,~@@,@"fpS@@+?@@@,,"@@,@$tsanT@@+K@@@,,@@,@%int31U@@+W@@@,,#@@,@&staticV@@+c@@@,pt,p@@,@.no_compressionW@@+o@@@,,@@,@$ansiX@@+{@@@, $, /@@,@@@@@@@@@,wrt,nq@@@@,@A@)make_zinc#dev,+@@@@@@@@'release,+r@@@@@@@@3no_flat_float_array,+@@@@@@@@%int31,+@@@@@@@@&static,Π+@@@@@@@@.no_compression,ܠ+@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@-;su-< @@-S@@-make_bytecode#dev,+@@@@@@@@'release- +@@@@@@@@(reserved-+@@@@@@@@3no_flat_float_array-),(@@@@@@@@%int31-7,6@@@@@@@@&static-E,D@@@@@@@@.no_compression-S,R@@@@@@@@$ansi-a,`@@@@@@@@@-@@@@@@@@@@@@@@@@@@@@@@@@@@@--<L@@-@@+make_native#dev-,@@@@@@@@'release-,_@@@@@@@@(reserved-,m@@@@@@@@3no_flat_float_array-,@@@@@@@@ "fp-,@@@ @@@ @@ $tsan-ɠ,@@@ @@@@@%int31-נ,@@@@@@@@&static-,@@@@@@@@.no_compression-,@@@@@@@@$ansi.-@@@@@@@@@.5@@@@@%@@@@@@@ @@!@@"@@#@@$@@%@@&@@'@@(@@)@._.`@@.w@@'is_zinc@5@@@*@@+- @@@,@@-@.s02.t0H@@.@@+is_bytecode@I@@@.@@/-4@@@0@@1@..@@.@@)is_native@]@@@2@@3-H@@@4@@5@..@@.@@)to_string@q@@@6@@7.@@@8@@9@._a._{@@.@@)of_string@.@@@:@@;.u@@@<@@@=@@>@..@@.@@*of_zinc_hi#dev.-@@@?@@@@@@A'release.-h@@@B@@@C@@D@.@@@E@@F.@@@G@@@H@@I@@J@@K@..]@@/@@(ocamlrun@/@@@L@@M@@@@N@@O/@@@P@@Q@@R@//@@/1@@.shared_runtime*runtime_id.ݠ@@@S@@@T@@U$host./B@@@V@@@W@@X&prefix./P@@@Y@@@Z@@[@/B#Sys,backend_type@@@\@@]/`@@@^@@_@@`@@a@@b@/Zwy/[@@/r@@(stubslib*runtime_id/5@@@c@@@d@@e$host/+/@@@f@@@g@@h@/@@@i@@j/@@@k@@l@@m@@n@/JL/J@@/@@@@/p~~/@/@@@(filepath;@@@A/@@@@@@@//@@@@/@A@'modname;@@@A/@@@@@@@//@@@@/@A@$crcs;@@@A.@@@@@/z/&Digest!t@@@@@@@@@@@@@@@//&@@@@/@A@&alerts;@@@A-&String#Map!t/@@@@@@@@@@/((/(P@@@@0@A@@fZR$Misc0]\/j*^e-Stdlib__Uchar0=H^V9>ɠ+Stdlib__Sys0b'8=OIn.Stdlib__String0 w_OA4D"Q~~+Stdlib__Set0ܔ@Z8XWaa2+Stdlib__Seq0?72#[O.Stdlib__Result0p~ !ԥ//+Stdlib__Map0*4ɇ2.Stdlib__Domain0'Ϳo\0m.K.Stdlib__Digest0#z25I*.Stdlib__Buffer0,I[?z&Stdlib0t0VoS%{<F:*Format_doc0uy@GmWUࠠ8CamlinternalFormatBasics0|.e1R$|o5Build_path_prefix_map0DGl}%Y5Lhi@@@Caml1999T0379]vaߧC$Misc*ocaml.text&_none_@@A Miscellaneous useful types and functions {b Warning:} this module is unstable and part of {{!Compiler_libs}compiler-libs}. .utils/misc.mliP77U@@@@@@3@@@@@@#intA;@@#intA@@@@@;@A@$charB;@@$charA@@@@@A@A@&stringQ;@@&stringA@@@@@G@@@%bytesC;@@%bytesA@@@@@M@@@%floatD;@@%floatA@@@@@S@@@$boolE;@@%falsec@@]@$trued@@c@@@A@@@@@d@A@$unitF;@@"()e@@n@@@A@@@@@o@A@ #exnG;@@@A@@@@@s@@@#effH;@@O@A@A@@@@@@|@@@,continuationI;@@Q@@P@B,continuationA@nY@@@@@@@@@%arrayJ;@@R@A%arrayA@@@@@@@@@ $listK;@@S@A"[]f@@@"::g@@@T@@@ @@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\#$@@@A366@'FailureY#,@'@@A<??@0Invalid_argumentX#5@0@@AE$H#H@-Match_failureV#>@@=@9@;@@a@@AV5Y4Y@)Not_foundZ#O@@@A^=a<a@-Out_of_memoryW#W@@@AfEiDi@.Stack_overflow^#_@@@AnMqLq@.Sys_blocked_io_#g@@@AvUyTy@)Sys_error[#o@j@@A^]@:Undefined_recursive_modulea#x@@w@s@u@@h@@Aon@:Continuation_already_takenb#@@@Awv@&Stdlib@A< {1 Reporting fatal errors} WW@@@@@@+fatal_errorYY@б@г}&stringYY@@ @@@{@@А!a@A@|YY@@@@@} @@~Ȱ@@@Y @)ocaml.doc : Raise the [Fatal_error] exception with the given string. ZZB@@@@@@@@@@@񐠠@@@@@@,fatal_errorf\DH\DT@б@гl'format4\Dw\D~@А!a@]A@3@e@@A \DW\DY@@г&Format)formatter\D[\Da@ \Db \Dk@@@@@@R @@гҠ$unit.\Dm/\Dq@@ @@@S)@@А!b@_A@T3>\Ds?\Du@@@H>"@@@Y=H\DVI@@А!aGBM\DN\D@@@@@ZN@@[I @@@V\DD @ t Format the arguments according to the given format string and raise [Fatal_error] with the resulting string. c]d^@@@@@@@|A@@@w@@@@@@h+Fatal_errorA{` |`@#}@@@A`@@B@@@@@@3@{2@A @ ! {1 Exceptions and finalization} bb?@@@@@@3@#@A+try_finallydAEdAP@б&alwaysб@гU$uniteS^eSb@@ @@@a@@гb$uniteSfeSj@@ @@@b+@@@@@c@@d0 @@б-exceptionallyб@гz$unitfofo@@ @@@eC@@г$unitfofo@@ @@@fP@@@@@g@@hU @@б@б@г$unitgg@@ @@@if@@А!a@xB@jog g@@@@@k @@lv@@А!azgg@@@@@m@@ng@@Rz:@@@p@@q@@r%foq@@ i@@@t@@u@@v/eSU@@ @2dAA@d  [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. ?h@E k m@@@@@@@XC@@/@tS@@@@@@@@ @@;A @@@G o o@֐ [reraise_preserving_backtrace e f] is (f (); raise e) except that the current backtrace is preserved, even if [f] uses exceptions internally. H  I  F@@@@@@@D@@@Ő@@@@@@ZҐ5 {1 List operations} K H HK H b@@@@@@3@l1@A'map_endM d hM d o@б@б@А!a@B@M d rM d t@@А!b@B@#M d xM d z@@@@@ @@*@@б@гv$listM d M d @А!a': M d  M d @@@-@@@A @@б@г$listM d M d @А!b3Q#M d $M d @@@9@@@X @@г$list1M d 2M d @А!bHf8M d 9M d @@@N@@@m @@@@@ @@r!@@@:@@ @@w=@@@V@@ @@|NM d q@@@QM d d @ 8 [map_end f l t] is [map f l @ t], just more efficient. ^N  _N  @@@@@@@wE@@0@r@@@@@@+rev_map_enduP  vP  @б@б@А!a@B@3@6@AP  P  @@А!b@B@ P  P  @@@@@ @@@@б@г$listP  P  @А!a)$P  P  @@@/@@@+ @@б@г)$listP  P  @А!b3;P  P  @@@9@@@B @@г>$listP  P  @А!bHPP  P  @@@N@@@W @@@@@ @@\!@@@:@@ @@a=@@@V@@ @@fP  @@@P   @ > [map_end f l t] is [map f (rev l) @ t], just more efficient. Q  'Q  j@@@@@@@F@@0@/@@@@@@.map_left_rightS l pS l ~@б@б@А!a@B@3@6@A"S l #S l @@А!b@B@ -S l .S l @@@@@ @@@@б@г$list=S l >S l @А!a)$DS l ES l @@@/@@@+ @@гà$listRS l SS l @А!b19YS l ZS l @@@7@@@@ @@@@@ @@E!@@@:@@ @@JjS l @@@mS l l@ A Like [List.map], with guaranteed left-to-right evaluation order zT  {T  @@@@@@@G@@+@@@@@@@j(for_all2V  V  @б@б@А!a@B@3@6@AV  V @@б@А!b@B@V V @@гm$boolV  V @@ @@@@@@@@@@# @@@-@@ @@(&@@б@гB$listV V @А!a=8V V @@@C@@@? @@б@гY$listV "V &@А!bEOV V !@@@K@@@V @@г$boolV *V .@@ @@@c@@@@@@@h @@@2@@ @@m5@@@N@@ @@rV  @@@V  @G 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. "W/6#Y@@@@@@@;H@@(@W6@@@@@@.replicate_list9[:[@б@А!a@B@3BAABBBBB@4@AH[I[@@б@г&#intS[T[@@ @@@@@гѠ$list`[a[@А!a&!g[ h[@@@,@@@( @@@@@ @@- @@@7@@ @@20@@@z[@ [ [replicate_list elem n] is the list with [n] elements all identical to [elem]. \]U{@@@@@@@I@@*@@@@@@@Q+list_remove_}_}@б@А!a@B@3@fw4@A_}_}@@б@г)$list_}_}@А!a_}_}@@@@@@ @@г>$list_}_}@А!a.)_}_}@@@4@@@0 @@@@@ @@5!@@@?@@ @@:8@@@_}}@ a [list_remove x l] returns a copy of [l] with the first element equal to [x] removed. `a@@@@@@@ J@@*@)@@@@@@Y*split_last  c c$@б@г$listc)c-@А!a@B@3@x>@A$c&%c(@@@ @@@ @@В@г$list6c47c8@А!a =c1>c3@@@&@@@" @@@А!a-(Jc;Kc=@@@@@6@@1@@@1@@ @@64 @@@Zc@ C Return the last element and the other elements of the given list. gd>Ehd>@@@@@@@K@@ @{@@@@@@U.repeated_labelà~ff@б@г$listff@В@г렐&optionff@гh&stringff@@ @@@3@P@A@@@ @@@ @@@А!a@B@ff@@@@@@@!@@@@ @@@ f>@@г#&optionff@г&stringff@@ @@@8@@@@@@= @@@&@@ @@B"@@@f@ 9 Detects a repeated label - for use with labeled tuples. gg@@@@@@@L@@,@- @@@@@@a; {1 Hash table operations} ii6@@@@@@3@s1@A0create_hashtable"k8<#k8L@б@г#int-k8N.k8Q@@ @@@@@б@г$list<k8_=k8c@В@А!a@B@3Lk8VMk8X@@@А!b@B@@Yk8[Zk8]@@@@@@@I@@@- @@@Ngk8U+@@г'Hashtbl!tsk8ptk8w@ wk8xxk8y@@А!a8fk8hk8j@@А!b2mk8lk8n@@@ E9@@@uk8g@@@1@@ @@{-@@@i@@ @@l!@@@k88$@͐ a Create a hashtable with the given initial size and fills it with the given bindings. lzm@@@@@@@M@@4@@@@@@@ɐ ( {1 Extensions to the standard library} oo@@@@@@3@1@A&Stdlib"Bqq%@o@@Б$ListCtV_tVc@\@@БA+!tDujvujw@А!a@3@6;@@@A@A@@@@@@G@B@@@ ujn uj@@@@ *N@@A ujs uju@@BA@; @A@A(E@@@@Y@@@@@@@@@@Aг $list ,uj}@А!a4 2ujz 3uj|@@@7#@@%@@3 2 1 1 2 2 2 2 2@m@A&%@'compare ?w @w@б@б@А!a@E@3 J I I J J J J J@`7@A Pw Qw@@б@А!a  Xw Yw@@г 4#int aw bw@@ @@@@@@#@@@@ @@@(@@ @@#!@@б@г!t zw {w@А!a83 w w@@@>@@@ : @@б@г!t w w@А!aOJ w w@@@U@@@ Q @@г y#int w w@@ @@@ ^@@@@@ @@c @@@2@@ @@h5@@@N@@ @@m w@@@ w@𐠠  The lexicographic order supported by the provided order. There is no constraint on the relative lengths of the lists.  x yF@@@@@@@ O@@(@ ߐ@@@@@@%equal {HP {HU@б@б@А!a@'E@3        @6@A {HY {H[@@б@А!a  {H_ {Ha@@г $bool {He {Hi@@ @@@@@@#@@@@ @@@(@@ @@#!@@б@г*!t {Hq {Hr@А!a83 ${Hn %{Hp@@@>@@@: @@б@гA!t 4{Hy 5{Hz@А!aOJ ;{Hv <{Hx@@@U@@@Q @@г $bool I{H~ J{H@@ @@@^@@@@@ @@!c @@@2@@" @@#h5@@@N@@$ @@%m ^{HX@@@ a{HL@ Returns [true] if and only if the given lists have the same length and content with respect to the given equality function.  n| o}@@@@@@@ P@@(@ @@@@@@=some_if_all_elements_are_some  8@б@г!t E F@г &option > D@А!a@4E@(3        @H@A ; =@@@ @@@* @@@&@@@, #@@г &option O U@гҠ!t M N@А!a+& J L@@@1@@@.- @@@@@@02 @@@-@@1 @@275!@@@ $@  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].  VZ @@@@@@@ Q@@4@ ! @@@@@@V+map2_prefix ' 2@б@б@А!a@LE@53        @m6@A 6 8@@б@А!b@NE@6 !< ">@@А!c@PE@7 ,B -D@@@@@8 @@9!@@@+@@: @@;&$ @@б@гN!t AL BM@А!a;6 HI IK@@@A@@@== @@б@гe!t XT YU@А!bCM _Q `S@@@I@@@?T @@В@г~!t q] r^@А!cQf xZ y\@@@W@@@Am @@@г!t d e@А!bs} a c@@@y@@@C @@@@ @ @@D%@@@@@@E @@FC f@@@]@@G @@H`@@@y@@I @@J 5 @@@ #@ ␠ [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.  gk  @@@@@@@ R@@@  ѐ@@@@@@&iteri2    @б@б@г #int    "@@ @@@Q3        @:@A@@б@А!a@gE@R   &  (@@б@А!b@iE@S  ,  .@@г $unit  2  6@@ @@@T)@@@@@U@@V. @@@+@@W @@X3&@@@;@@Y @@Z8>@@б@г $list ( > ) B@А!a@H / ; 0 =@@@F@@@\O @@б@г $list ? I @ M@А!bJ_ F F G H@@@P@@@^f @@г $unit T Q U U@@ @@@_s@@@@@`@@ax @@@2@@b @@c}5@@@N@@d @@e i @@@ l @ | Same as {!List.iter2}, but the function is applied to the index of the element as first argument (counting from 0)  yVZ z@@@@@@@ S@@(@  @@@@@@(split_at  @б@г n#int  @@ @@@j3        @8@A@@б@г!t  @А!a@xE@k  @@@ @@@m@@В@гנ!t  @А!a0  @@@$@@@o7 @@@г!t    @А!a5G  @@@;@@@qN @@@@ @ @@rU%@@@@@@s @@tZC@@@b@@u @@v_e@@@ !@ 4 [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.    @@@@@@@ (T@@1@ D #@@@@@@~)chunks_of & '@б@г #int 1 2@@ @@@y3 3 2 2 3 3 3 3 3@8@A@@б@гO!t B C@А!a@E@z N O@@@ @@@|@@гi!t \  ] @гs!t f  g @А!a$6 m n@@@*@@@~= @@@@@@B @@@-@@ @@G0!@@@O@@ @@LR&@@@ )@ [chunks_of n t] returns a list of nonempty lists whose concatenation is equal to the original list. Every list has [n] elements, except for possibly the last list, which may have fewer. [chunks_of] raises if [n <= 0].     @@@@@@@ U@@9@  @@@@@@k)is_prefix    @б%equalб@А!a@E@3        @8@A - /@@б@А!a  3 5@@г $bool 9 =@@ @@@@@@#@@@@ @@@(@@ @@#!@@б@г W$list ?K ?O@А!a83 ?H ?J@@@>@@@: @@б#of_г p$list P`Pd@А!aQLP]P_@@@W@@@S @@г ɠ$boolener@@ @@@`@@&@@@@ePY @@@5@@ @@k8@@zQ@@ @@p*&@@@- @ _ 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_]. :sw;@@@@@@@SV@@)@ oN@@@@@@A+@#::2m@1@@Ш@г=$listmm@А!aEpmm@@@Ls @@O@@v@H@#DD<@;@@Ш@гG$list@А!aO@@@V @@Y@@@R@@@@@@3@@A@ #find_and_chop_longest_common_prefix @б%equalб@А!a@F@3@@A   @@б@А!a  ! #@@гΠ$bool ' +@@ @@@@@@#@@@@ @@@(@@ @@#!@@б%firstг$list4-?5-C@А!a:5;-<<->@@@@@@@< @@б&secondг$listMDWND[@А!aSNTDTUDV@@@Y@@@U @@гON@NN@@@N@N@K13;@@@A@A>@@@@@@ӠG@B@@@)*@@@@B]@@A-.@@@;B@AAIH@@@@ؠY@@@@@@@@@@Aг &optionB@А!aUHI@@@X!@@#@@3HGGHHHHH@X@A$#@%printUV@б@б@г&Format)formatterfg@ jk@@@@@@3mllmmmmm@~C@A @@б@А!a@H@ ~@@г+$unit@@ @@@@@@@@@@! @@@)@@ @@&1@@б@г&Format)formatter@ @@@@@@> @@б@гР!t+,@А!aFN(*@@@L@@@U @@гq$unit-6-:@@ @@@b@@@@@@@g @@@1@@ @@l9@@@O@@ @@q@@@@@^@@@@x@A@ @@3@} @A3@@A;@@@$ % {2 Extensions to the Option module} qqq@@@@@@@@@%ArrayHlulz@(c@@Б'exists2@б@б@А!a@I@3(''(((((@9Y@MA@P@@d?>@>>@@@>@>@;b@A>?@@б@А!b@I@KL@@г $boolTU@@ @@@.@@@@@@@3 @@@=@@ @@8&@@б@г預%arraymn@А!aMHtu@@@S@@@O @@б@г%array@А!bE_@@@K@@@f @@гN$bool@@ @@@s@@@@@@@x @@@2@@  @@ }5@@@N@@  @@ @@@@㐠 4 Same as [Array.exists2] from the standard library. @@@@@@@`@@(@Ґ@@@@@@(for_alli @б@б@г#int@@ @@@3@:@A@@б@А!a@ I@  "@@г$bool&*@@ @@@@@@@@@@! @@@)@@ @@&,@@б@г%array27@А!a.6/1@@@4@@@= @@г᠐$bool,;-?@@ @@@J@@@@@@@O @@@2@@ @@T<@@@? @q 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. L@DM@@@@@@@ea@@#@`@@@@@@t)all_somescd@б@гꠐ%arrayn%o*@г̠&optionxy$@А!a@-I@!3@H@A@@@ @@@# @@@&@@@% #@@г&option7=@г%array16@А!a+&.0@@@1@@@'- @@@@@@)2 @@@-@@* @@+75!@@@ $@@b@@&@@=@@@g @@3@Di @A 3@@Al}>C@@ݐ $ {2 Extensions to the Array module} BBBk@@@@@@@ln@@&String Ipyp@m@@БДРi&String@@.Stdlib__String3@@Z@:@R@@>?>@>>@@@>@>@;@@@!t;@@@A&stringQ@@@M@@@@*string.mliK  K  @@@@.Stdlib__String@@A@$make@#intA@@@L@@K@$charB@@@J@@I%@@@H@@G@@F@#N  $N  =@@"A@@$init@!@@@E@@D@@-@@@C@@B'@@@A@@@@@?J@@@>@@=@@<@HT  IT @@GB@@%emptyW@@@;@U[V[@@TC@@&length@h@@@:@@9W@@@8@@7.%string_lengthAA @@@oa((pa(Z@@nD@@#get @@@@6@@5@u@@@4@@3o@@@2@@1@@00%string_safe_getBA"@@@@dd@@E@@(of_bytes @%bytesC@@@/@@.@@@-@@,@juuju@@F@@(to_bytes @@@@+@@*@@@)@@(@qq@@G@@$blit @@@@'@@&@@@@%@@$@<@@@#@@"@@@@!@@ @@@@@@$unitF@@@@@@@@@@@@@@xy@@H@@&concat @@@@@@@$listK@@@@@@@@@@@@@@@@sss@@I@@#cat@+@@@@@@3@@@ @@ 7@@@ @@ @@ @5tt6t@@4J@@%equal@P@@@@@@@@@@@$boolE@@@@@@@@SrrTr@@RK@@'compare@@@@@@@%@@@@@[@@@@@@@@no*@@mL@@+starts_with&prefix@@@@@@@@@@@<@@@@@@@@%@@M@@)ends_with&suffix@@@@@@@@@@@[@@@@@@@@@@N@@-contains_from@@@@@@@@@@@@@@@@@@@@@@@@@@@@RRR@@O@@.rcontains_from@@@@@@@@@@@@@@@@@@@@@@@@@@@@666h@@P@@(contains@ @@@@@@@@@@@@@@@@@@@000U@@Q@@#sub@&@@@@@@@@@@@@!@@@@@:@@@@@@@@@@89@@7R@@-split_on_char@,@@@@@@S@@@@@H[@@@@@@@@@@@Z[@@YS@@#map@@R@@@@@V@@@@@@@@}@@@@@@@@@@@@@aaa@@~T@@$mapi@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@U@@)fold_left@@#acc@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@V@@*fold_right@@@@@@@@#acc@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@'for_all@@@@@@@@@@@@@@@!@@@@@@@@@@@@@# V V$ V @@"X@@&exists@@@@@@@@@@@@@@@F@@@@@~@@@}@@|@@{@H  I !@@GY@@$trim@[@@@z@@y_@@@x@@w@]!!^!!@@\Z@@'escaped@p@@@v@@ut@@@t@@s@r"H"Hs"H"f@@q[@@/uppercase_ascii @@@@r@@q@@@p@@o@$y$y$y$@@\@@/lowercase_ascii!@@@@n@@m@@@l@@k@ %E%E %E%k@@]@@0capitalize_ascii"@@@@j@@i@@@h@@g@&&&&8@@^@@2uncapitalize_ascii#@@@@f@@e@@@d@@c@&&&&@@_@@$iter$@@@@@b@@a@@@`@@_@@^@@@@]@@\@@@[@@Z@@Y@!''!''@@`@@%iteri%@@@@@X@@W@@@@V@@U@@@T@@S@@R@@Q@@@@P@@O&@@@N@@M@@L@%((%((@@a@@*index_from&@+@@@K@@J@@@@I@@H@@@@G@@F*@@@E@@D@@C@@B@=-)P)P>-)P)}@@@A@@@=@@<&optionLU@@@;@@@:@@9@@8@@7@i5*o*oj5*o*@@hc@@+rindex_from(@|@@@6@@5@o@@@4@@3@m@@@2@@1{@@@0@@/@@.@@-@<+o+o<+o+@@d@@/rindex_from_opt)@@@@,@@+@@@@*@@)@@@@(@@'Q@@@&@@@%@@$@@#@@"@C,,C,,@@e@@%index*@@@@!@@ @@@@@@@@@@@@@@J--J--@@f@@)index_opt+@@@@@@@@@@@@@@@@@@@@@@@M--M-.@@g@@&rindex,@ @@@@@@@@@@@@@@@@ @@ @R.n.nR.n.@@h@@*rindex_opt-@'@@@ @@ @@@@ @@Ϡ"@@@@@@@@@@@6U..7U./@@5i@@&to_seq.@@@@@@&Stdlib#Seq!t7@@@@@@@@@U\//V\//@@Tj@@'to_seqi/@ @@@@@#Seq!t@a@@@@]@@@@@@@@@@@{b0 0 |b0 0/@@zk@@&of_seq0@B#Seq!tv@@@@@@@@R@@@@@@g00g00@@l@@/get_utf_8_uchar1@b@@@@@@@@@@@i%Uchar*utf_decode@@@@@@@@r1V1Vr1V1@@m@@.is_valid_utf_82@@@@@@y@@@@@@v11v11@@n@@2get_utf_16be_uchar3@@@@@@@@@@@@%Uchar*utf_decode@@@@@@@@|2o2o|2o2@@o@@1is_valid_utf_16be4@@@@@@@@@@@@2223@@p@@2get_utf_16le_uchar5@@@@@@@@@@@@%Uchar*utf_decode@@@@@@@@3333@@q@@1is_valid_utf_16le6@@@@@@@@@@@@04(4(14(4I@@/r@@-edit_distance7%limit4@@@@@@@@@ @@@@@@@@@@@G@@@@@@@@@@Z44[44@@Ys@@*spellcheck8(max_dist*@v@@@@@e@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@8888@@t@@)get_uint89@@@@@@@@@@@@@@@@@@@@?;?;?;?_@@u@@(get_int8:@@@@@@@@@@@@@@@@@@@@????@@v@@-get_uint16_ne;@@@@@@@@@@@@@@@@@@@@@]@]@]@@@w@@-get_uint16_be<@ @@@@@@@@@@@@@@@@@@@AAAA/@@x@@-get_uint16_le=@)@@@@@@@@@@@ @@@@@@@@3AA4AA@@2y@@,get_int16_ne>@F@@@@@@9@@@@@=@@@@@@@@PBXBXQBXB@@Oz@@,get_int16_be?@c@@@@@@V@@@@@Z@@@@@@@@mBBnBC%@@l{@@,get_int16_le@@@@@@@@s@@@~@@}w@@@|@@{@@z@CCCC@@|@@,get_int32_neA@@@@y@@x@@@@w@@v%int32N@@@u@@t@@s@ DGDG DGDp@@}@@$hashB@t@@@r@@q@@@p@@o@DDDD@@~@@+seeded_hashC@@@@n@@m@@@@l@@k@@@j@@i@@h@EEEE@@@@,get_int32_beD@@@@g@@f@@@@e@@dO@@@c@@b@@a@ FF FF@@@@@,get_int32_leE@ @@@`@@_@@@@^@@]l@@@\@@[@@Z@'GfGf'GfG@@A@@,get_int64_neF@&@@@Y@@X@@@@W@@V%int64O@@@U@@T@@S@2.HH3.HH0@@1B@@,get_int64_beG@E@@@R@@Q@8@@@P@@O@@@N@@M@@L@O5HHP5HH@@NC@@,get_int64_leH@b@@@K@@J@U@@@I@@H<@@@G@@F@@E@l<IFIFm<IFIo@@kD@@*unsafe_getI@@@@D@@C@r@@@B@@Al@@@@@@?@@>2%string_unsafe_getBA@@@@GJ3J3GJ3Ju@@E@@+unsafe_blitJ@@@@=@@<@@@@;@@:@ @@@9@@8@@@@7@@6@@@@5@@4@@@3@@2@@1@@0@@/@@.0caml_blit_stringE@Y@@@@@@@HJvJvJJJ@'noallocJJJJJJ@@JJJ @@F@@@ @@KJ;@@@A@@@k@@@@@@@A@L@@@@j@@i@@@@h@@g@@@f@@e@@d@@@M@@@@c@@b@@@@@a@@`@@@_@@^@@]@@@\@@[@@Z@@@N@@@Y@@@O@@@@X@@W@@@V@@U@@P@@@@T@@S@@@@R@@Q@@@P@@O@@N@@Q@@@@M@@L@@@K@@J@@@R@@@@I@@H@@@G@@F@@@S@@@@E@@D@@@@C@@B@@@@A@@@@@@@?@@>@@@@=@@<@@@;@@:@@9@@8@@7@@6@@@T@@@@5@@4@@@@3@@@2@@1@@@0@@/@@.@@@U@@@@-@@,@@@@+@@*@@@)@@(@@'@~@{@zV@@@@&@@%@@@@$@@#y@@@"@@!@@ @v@s@rW@@@@@@@@@@@@q@@@@@@@@p@m@lXki@@@@@@h@@@@@g@@@@@@@@f@c@bYa_@@@@@@^@@@@@]@@@ @@ @@ @\@Y@XZ@W@@@ @@ @V@@@@@@U@@@@@T@@@@@@@@@@S@P@O[@N@@@@@@M@@@@@@L@@@@@K@@@@@@@@@@J@G@F\@E@@@@@@D@@@@@C@@@@@@@@B@?@>]@=@@@@@@<@@@@@@;@@@@@:@@@@@@@@@@9@6@5^@4@@@@@@3@@@@@21@@@@@@@@@@@0@-@,_@@+@@@@@*@@@@@@@@)@@@@@(@@@@@@@@'@$@#`@@"@@@@@@!@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@a@@@@@@@@@@@@@@@@@#@@@@@@@@*@@@@@@@@@b@@ @@@@@@ @@ @@@@@@@@@@@@@@@@@@@@@@@@c@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@d@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@e@@@@@@@@@@@@@@f@@@@@@@@@@@@@@g@@@@@@@@@@@@@@h@@@@@@@@@@@@@@i@@@@@@@@@@@@@@j@@@@@@@@@@@@@@k@@@@@@@@@@@@@@~@@@@}@@|@@@{@@z@@y@@@l@@@@@x@@w@@@@v@@u@@@t@@s@@r@@q@@@@p@@o@@@n@@m@@l@@@m@@@@k@@j@@@@i@@h@@@@g@@f@@@e@@d@@c@@b@@@n@@@@a@@`@@@@_@@^@@@@]@@\@@@[@@@Z@@Y@@X@@W@@@o@@@@V@@U@@@@T@@S@@@@R@@Q@@@P@@O@@N@@M@@@p@@@@L@@K@@@@J@@I@@@@H@@G@@@F@@@E@@D@@C@@B@@@q@@@@A@@@@@@@?@@>@@@=@@<@@;@@@r@@@@:@@9@@@@8@@7@@@6@@@5@@4@@3@@|@{s@z@@@2@@1@y@@@0@@/x@@@.@@-@@,@w@t@st@r@@@+@@*@q@@@)@@(po@@@'@@@&@@%@@$@n@k@ju@@@@#@@"ifed@@@!@@@ @@@c@`@_v@@@@@@}^]@\@@@@[@@@@@@@@@@@Z@W@Vw@UTS@@@@@@@@+@@@@@@R@O@Nx@6@@@@@@M@@@@@LK@@@@@ @@ @J@G@Fy@M@@@ @@ E@@@ @@@D@A@@z@[@@@@@@?@@@@@>=@@@@@@@@<@9@8{@r@@@@@7@@@@@@6@3@2|@@@@@@@1@@@@@0/@@@@@@@@.@+@*}@@@@@@)@@@@@@(@%@$~#! @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@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@z@@@Y@@X@y@@@W@@V@x@@@U@@Tw@@@S@@R@@Q@@P@@O@@Nvnka@@"_c@@3"]"\"\"]"]"]"]"]@]@Ae@#SetK"l"m@"e@@УР #Set!S"|"}@ ""@@3""""""""@{zfeXWJI edPO43hgZYLK>=0/"!}|]\HG/.rq[ZML-,vua`LK76)(@AQL@@#elt@#elt""@+ @;@@@A"@@@@@@@""@@@@"d@@@Aг &string" @@j @@ @@"L;@@@A@@@@@@@@@@A@!tL;@@@A@@@@@'set.mliJ U YJ U _@@@@+Stdlib__SetD@A@%empty@@@@M ~ M ~ @@E@@#add@,@@@@@@@@@@@@@@@@@@@*P  +P  @@)F@@)singleton@@@@@@ /@@@ @@ @=V  >V  @@@@IR@@&choose@L@@@@@>@@@@@@]^@@\S@@*choose_opt@_@@@@@XU@@@@@@@@@uv@@tT@@$find@f@@@@@@~@@@@@p@@@@@@@@@@U@@(find_opt@@@@@@@@@@@@@@@@@@@@@@@x|x@@V@@*find_first@@@@@@@ @@@@@@@@@@@@@@@@@@@@@KOKx@@W@@.find_first_opt@@@@@@@B@@@@@@@@@@@@@ڠ@@@@@@@@@@@RVR@@X@@)find_last@@@@@@@i@@@@@@@@@@@@@@@@@@@@@{{@@Y@@-find_last_opt@@@@@@@@@@@@@@@*@@@@@# @@@@@@@@@@@@A@@?Z@@$iter@@5@@@@@$unitF@@@@@@@@S@@@@@ @@@@@@@@ef@@d[@@$fold@@Z@@@@@@#acc@@@~@@}@@|@@{@z@@@z@@y@@@x@@w@@v@@u@@@\@@#map@@@@@t@@s@@@r@@q@@p@@@@o@@n@@@m@@l@@k@@@]@@&filter@@@@@j@@i@@@h@@g@@f@@@@e@@d@@@c@@b@@a@    @@^@@*filter_map@@@@@`@@_Π@@@^@@@]@@\@@[@@@@Z@@Y@@@X@@W@@V@"" ""7@@_@@)partition@@@@@U@@Tg@@@S@@R@@Q@@@@P@@O@ @@@M@@@@N@@L@@K@@J@ $;$?!$;$i@@`@@%split@@@@I@@H@)@@@G@@F@0@@@C@@@@D@;@@@E@@B@@A@@@@I%Z%^J%Z%@@Ha@@(is_empty@K@@@?@@>@@@=@@<@]'$'(^'$'?@@\b@@,is_singleton@_@@@;@@:@@@9@@8@q'p'tr'p'@@pc@@#mem@b@@@7@@6@z@@@5@@4@@@3@@2@@1@ '' '(@@d@@%equal@@@@0@@/@@@@.@@-@@@,@@+@@*@(A(E(A(^@@e@@'compare@@@@)@@(@@@@'@@&@@@%@@$@@#@((((@@f@@&subset@@@@"@@!@@@@ @@7@@@@@@@@)_)c)_)}@@g@@'for_all@@@@@@@O@@@@@@@@@@@@@Z@@@@@@@@)))*@@h@@&exists@@@@@@@r@@@@@@@ @@@@ @@ }@@@ @@ @@@#*d*h$*d*@@"i@@'to_list@%@@@@@K@@@@@@@@@;%++!<%++<@@:j@@'of_list@`0@@@@@@@@E@@@@@@S)+|+T)+|+@@Rk@@+to_seq_from@D@@@@@@\@@@@@&Stdlib#Seq!tX@@@@@@@@@@@x/,w,{y/,w,@@wl@@&to_seq@z@@@@@#Seq!ts@@@@@@@@@4-0-44-0-O@@m@@*to_rev_seq@@@@@@9#Seq!t@@@@@@@@@8--8--@@n@@'add_seq@Q#Seq!t@@@@@@@@@@@@@@@@@@@@@@<..<..4@@o@@&of_seq@s#Seq!t@@@@@@@@@@@@@@@..@..@@p@@@js @@@' @m@#Map_M''@(g@@УР&v#Map!S( ( @ ((@@3((((((((@@('A@!A@@  @@@@@@}@ge@SQ@;9@*(@@@@@@@@om@JH@*(@@@@@~|@ZX@1/@ @@@@@@@a_@@>@*(@@@@@@@@@Aid@@#key@#key(~(@+ @;@@@A(T@@@@@@@(( @@@@(f@@@Aг &string( @@ @@ @@"1N;@@@A@@@!@@@@@@@A@!t2N;!a@@A@A@I@B@@@'map.mliI V ZI V e@@@@+Stdlib__MapD@A@%empty3!a@@@@!@L  L  @@E@@#add4@8@@@!@@!@!a@@@!@& @@@!@@!*@@@!@@!@@!@@!@9O  :O  @@8F@@+add_to_list5@%@@@!@@!@!a@@@!@J$listK@@@!@@@!@@!U @@@!@@@!@@!@@!@@!@iX  jX  @@hG@@&update6@U@@@!@@!@@&optionL!a@@@@!@@!  @@@!@@!@@!@@@@!@@!@@@!@@!@@!@@!@^^@@H@@)singleton7@@@@!@@!@!a@@@!@@@!@@!@@!@jW[jW{@@I@@&remove8@@@@!@@!@ !a@@@@!@@!ʠ@@@!@@!@@!@oo@@J@@%merge9@@@@@!@@!@p!a@@@@!@@!@}!b@@@@!@@!!c@@@@!@@!@@!@@!@@!@ "@@@!@@!@@@@!@@!@@@!@@!@@!@@!@$vY]%x@@#K@@%union:@@@@@!@@!@!a@z@@!@@@!à @@@!@@!@@!@@!@@!@B@@@!@@!@J@@@!@@!N @@@!@@!@@!@@!@]fj^f@@\L@@(cardinal;@_!a@u@@@!@@!#intA@@@!@@!@xy@@wM@@(bindings<@z!a@n@@@!@@!5@t@@@!@@@!@@@!@@!@8<8a@@N@@+min_binding=@!a@g@@@!@@!@@@@!@@@!@@!@bfb@@O@@/min_binding_opt>@!a@a@@@!@@!M@@@@!@@@!@@@!@@!@JNJ|@@P@@+max_binding?@ޠ!a@Z@@@!@@!~@@@@!}@@@!|@@!{@484[@@Q@@/max_binding_opt@@!a@T@@@!z@@!y@@@@!x@@@!w@@@!v@@!u@ @@R@@&chooseA@!a@M@@@!t@@!s@@@@!r@@@!q@@!p@;<@@:S@@*choose_optB@=!a@G@@@!o@@!nϠ@7@@@!m@@@!l@@@!k@@!j@^_@@]T@@$findC@J@@@!i@@!h@g!a@>@@@!g@@!f@@!e@@!d@z{@@yU@@(find_optD@f@@@!c@@!b@!a@7@@@!a@@!` @@@!_@@!^@@!]@IMIs@@V@@*find_firstE@@@@@!\@@![$boolE@@@!Z@@!Y@@!X@!a@,@@@!W@@!V@@@@!U@@@!T@@!S@@!R@    D@@W@@.find_first_optF@@@@@!Q@@!P/@@@!O@@!N@@!M@۠!a@ @@@!L@@!Km@@@@!J@@@!I@@@!H@@!G@@!F@"*"."*"l@@X@@)find_lastG@@@@@!E@@!Da@@@!C@@!B@@!A@ !a@@@@!@@@!?@@@@!>@@@!=@@!<@@!;@)#_#c*#_#@@(Y@@-find_last_optH@@@@@!:@@!9@@@!8@@!7@@!6@:!a@@@@!5@@!4̠@4@@@!3@@@!2@@@!1@@!0@@!/@[$y$}\$y$@@ZZ@@$iterI@@K@@@!.@@!-@!a@@@!,$unitF@@@!+@@!*@@!)@@!(@v@@@!'@@!&@@@!%@@!$@@!#@%%%& @@[@@$foldJ@@y@@@!"@@!!@!a@@@! @#acc@@@!@@!@@!@@!@@!@@@@!@@!@@@!@@!@@!@@!@'%')'3'l@@\@@#mapK@@!a@@@!!b@@@!@@!@ˠ@@@!@@!Ϡ@@@!@@!@@! @(e(i(e(@@]@@$mapiL@@@@@! @@! @!a@@@! !b@@@! @@!@@!@@@@!@@!@@@!@@!@@!@ )) ))@@ ^@@&filterM@@@@@!@@!@!a@@@ w@@@ @@ @@ @@ @#@@@ @@ '@@@ @@ @@ @6**7**@@5_@@*filter_mapN@@&@@@ @@ @!a@@@ Ѡ!b@@@@ @@ @@ @@ @T@@@ @@ X@@@ @@ @@ @g ,,h ,,?@@f`@@)partitionO@@W@@@ @@ @!a@@@ @@@ @@ @@ @@ @@@@ @@ @@@@ ߠ@@@@ @@ @@ @@ @.../%@@a@@%splitP@@@@ @@ @!a@@@@ @@ @ @@@ ՠ@B@@@ ֠@@@@ @@ @@ @@ @$0'0+$0'0\@@b@@(is_emptyQ@Р!a@@@@ @@ 4@@@ @@ @022!022;@@c@@,is_singletonR@!a@@@@ @@ M@@@ @@ @32l2p32l2@@d@@#memS@@@@ @@ @ !a@@@@ @@ m@@@ @@ @@ @ 822!823@@e@@%equalT@@!a@~@@ @@@ @@@ @@ @@ @@ @6@@@ @@ @>@@@ @@ @@@ @@ @@ @@ @Q<3j3nR<3j3@@Pf@@'compareU@@!a@o@@ @@@ @@@ @@ @@ @@ @g@@@ @@ @o@@@ @@  @@@ @@ @@ @@ @B44B44@@g@@'for_allV@@r@@@ @@ @!a@a@@ @@@ @@ @@ @@ @@@@ @@ @@@ @@ @@ @F5r5vF5r5@@h@@&existsW@@@@@ @@ @!a@T@@ @@@ @@ @@ @@ @Ǡ@@@ @@ '@@@ @@ @@ @K66"K66Q@@i@@'to_listX@ܠ!a@L@@@ @@ @@@@ @@@ @@@ @@ @R66R67@@j@@'of_listY@@@@@ @!a@C@@ @@@ @@ @@@ @@ @ V7]7a!V7]7@@k@@&to_seqZ@"!a@>@@@ @@ &Stdlib#Seq!t@"@@@ @@@ @@@ ~@@ }@I\888<J\888a@@Hl@@*to_rev_seq[@K!a@7@@@ |@@ {)#Seq!t@H@@@ z@@@ y@@@ x@@ w@o`88p`88@@nm@@+to_seq_from\@[@@@ v@@ u@x!a@.@@@ t@@ sV#Seq!t@u@@@ r@@@ q@@@ p@@ o@@ n@d9;9?d9;9p@@n@@'add_seq]@t#Seq!t@@@@ m@!a@"@@ l@@@ k@@ j@ @@@ i@@ h@@@ g@@ f@@ e@i: :i: :=@@o@@&of_seq^@#Seq!t@@@@ d@!a@@@ c@@@ b@@ a@@@ `@@ _@m::m::@@p@@@@@@/@@#TblO/  /  @/i@@УР.*'Hashtbl!S/  /  @ /  /  @@3////////@@43A@-+A@@  @@@@om@QO@@@@@{y@ZX@><@@@@@@zx@JH@@@@@rp@HF@@@@@us@^\@@>@@@@@mk@LJ@%#@@@@@@*@Aid@@#key@#key02  )03  ,@+ @;@@@A0@@@$@@@@0?  $0@  5@@@@0Xh@@@Aг &string0I  / @@ @@ @@"P;@@@A@@@%@@@@@@@A@!tP;!a@$@A@A@O@B@@@+hashtbl.mli=&=*=&=4@@@@/Stdlib__Hashtblf@A@&create@#intA@@@%@@%#!a@$@@@%@@%@=5=9=5=Q@@g@@%clear@!a@$}@@@%@@%$unitF@@@%@@%@9=R=V:=R=n@@8h@@%reset@1!a@$x@@@%@@%@@@%@@%@R=o=sS=o=@@Qi@@$copy@J!a@$q@@@%@@%R@@@%@@%@k==l==@@jj@@#add@c!a@$j@@@%@@%@@@@%@@%@@@%Y@@@%@@%@@%@@%@====@@k@@&remove@!a@$d@@@%@@%@%@@@%@@%y@@@%@@%@@%@===>@@l@@/find_and_remove@!a@$X@@@%@@%@E@@@%@@%&optionL@@@%@@%@@%@> > > >;@@m@@$find@ˠ!a@$P@@@%@@%@h@@@%@@% @@%@@%@>S>W>S>s@@n@@(find_opt@!a@$I@@@%@@%@@@@%@@%?@@@%@@%@@%@>t>x>t>@@o@@(find_all@!a@$A@@@%@@%@@@@%@@%$listK@@@%@@%@@%@3>>4>>@@2p@@'replace@+!a@$9@@@%@@%@@@@%@@%@@@% @@@%@@%@@%@@%@W>>X>? @@Vq@@0find_and_replace@O!a@$.@@@%@@%@@@@%@@%@@@%@@@%@@%@@%@@%@|??}??G@@{r@@#mem@t!a@$)@@@%@@%@@@@%@@%$boolE@@@%@@%@@%@?_?c?_?@@s@@$iter@@+@@@%@@%@!a@$@@%@@@%@@%@@%~@@%}@@@@%|@@%{@@@%z@@%y@@%x@????@@t@@2filter_map_inplace@@W@@@%w@@%v@!a@$ @@%u@@@%t@@%s@@%r@@%q@ڠ@@@%p@@%o@@@%n@@%m@@%l@????@@u@@$fold@@@@@%k@@%j@!a@#@@%i@#acc@#@@%h@@%g@@%f@@%e@@%d@ @@@%c@@%b@@@%a@@%`@@%_@@%^@'@@(@&@_@@&v@@&length@!a@#@@@%]@@%\-@@@%[@@%Z@@@`@dA@`@|@@?w@@%stats@8!a@#@@@%Y@@%XU*statistics@@@%W@@%V@\@}@]@}@@@[x@@&to_seq@T!a@#@@@%U@@%T&Stdlib#Seq!t@@@@%S@@@%R@@@%Q@@%P@@@@@@@y@@+to_seq_keys@}@@#@@@%O@@%N'#Seq!t@@@%M@@@%L@@%K@@@@A@@z@@-to_seq_values@!a@#@@@%J@@%IG#Seq!t @@@%H@@%G@A4A8A4A\@@{@@'add_seq@!a@#@@@%F@@%E@h#Seq!t@`@@@%D@@@%C@@@%B@@%A@@@%@@@%?@@%>@AuAyAuA@@|@@+replace_seq@!a@#@@@%=@@%<@#Seq!t@@@@%;@@@%:@@@%9@@%8@@@%7@@%6@@%5@AAAA@@}@@&of_seq@#Seq!t@@@@%4@!a@#@@%3@@@%2@@%1)@@@%0@@%/@BBBCBB8@@A~@@@i@@@3  k@l@%print3 7 ?3 7 D@б@г2-&Format)formatter3 7 G3 7 M@ 3 7 N3 7 W@@@@@@%333333333@$@A@~|A@mk@SQ@:8@#!@  @@@@@qo@PN@.,@  @@@@hf@QO@75@@@@@@@@\S@AC>@@б@г !t4 7 [4 7 \@@ @@@%G@@г3$unit4 7 `4 7 d@@ @@@%T@@@@@%@@%Y @@@a@@% @@%^i@@@4. 7 ;@@4Fj@@@@d'for_all 49 f n4: f u@б@б@г4$char4F f y4G f }@@ @@@%34H4G4G4H4H4H4H4H@!@A@@г4 $bool4U f 4V f @@ @@@%@@@@@%@@% @@б@гc!t4i f 4j f @@ @@@%#@@г4+$bool4v f 4w f @@ @@@%0@@@@@%@@%5 @@@*@@% @@%:4 f x@@@4 f j@@4k@@@@A,to_utf_8_seq4  4  @б@г!t4  4  @@ @@@%344444444@Zq@A@@г3#Seq!t4  4  @ 4  4  @@г3/%Uchar!t4  4  @ 4  4  @@@@@@+<+ @@@)@@@+>0@@@8@@+? @@+@5;#@@@4  &@@4l@@(@@;@ߠנàtg>&ՠw\D)|obUH- ѠkW?,ڠĠu=)٠Š|hT@,@9@ 9@@ 3@ @ -@@@@|@@@@Z@@35150505151515151@\@AX35453535454545454@"4@A59p5:  @@3l5K % {2 Extensions to the String module} 5HEE5IEo@@@@@@@5Kpr@@'compare!5U  5V  @б@А!a@+HQ@+A35^5]5]5^5^5^5^5^@"_"@edA@^]@KJ@10@,+@ @  @@@@@@@|{@ih@VU@<;@"!@@@@@@@ON@54@)(@@@@@@@@@zy@`_@BA@/.@@@@@@@@@yx@ml@XW@LK@.-@@@@@@@@rq@_^@LK@@?@-,@@@@@@@@A@A@@@@@@@wu@\Z@DB@0.@@@@@@@@@lj@LJ@'%@@@@@{y@[Y@75@ @@@@@@xv@_]@><@@@@@@@|z@@@b@@\@  A@  A@  @  @ r p@ D B@  @  @  @  @ Z X@ A ?@  @  @  @  @  @  @ i g@ O M@ 0 .@  @  @  @ x v@ L J@  @  @  @  @ x v@ D B@  @@@@@ki@A?@@@@@@_]@31@@@@@@ihA@b`A@QO@75@@@@@@@tr@US@42@@@@@zx@LJ@53@@@@@@ec@@@@7@@;@f@_@@5 @@@@@@$@A6  6  @@б@А!a7  7  @@г6ޠ#int7   7   @@ @@@+B@@@@@+C@@+D @@@@@+E @@+F!@@(%compareBA @@@@7#  7$  @@7@,+@ @@@@@@@@ut@[Z@A@@.-@@@@@@nm@TS@HG@<;@0/@$#@@  @@@@@~@a`@NM@76@$#@  @@@@@@@@wv@kj@ML@@@@@@@@@~}@kj@_^@LK@98@&%@@@@@@$#A@A@@@@@@@@{y@ca@OM@75@&$@ @@@@@@@ki@FD@&$@@@@@zx@VT@-+@@@@@@@~|@][@<:@&$@@@@@@@@@@{@A@A@@@@ca@1/@@@@yw@`^@?=@#!@@  @  @  @  @ n l@ O M@ " @  @  @  @ k i@ = ;@  @  @  @  @ c a@ 4 2@  @  @  @  @  @ ` ^@ 6 4@  @  @  @  @ ~ |@ R P@@@ -@@ '@A@A@pn@VT@=;@&$@ @@@@@tr@SQ@1/@ @@@@ki@TR@:8@@@@@@@@_ V@@Z@@~4@@&#@@@@@0:@Aà,find_in_path#9!,!09!,!<@б@г8$list9#!,!E9$!,!I@г8&string9-!,!>9.!,!D@@ @@@+I@@@@@@+K @@б@г9&string9A!,!M9B!,!S@@ @@@+L@@г9&string9N!,!W9O!,!]@@ @@@+M@@@@@+N@@+O @@@*@@+P @@+Q 1@@@9`!,!,@7 ) Search a file in a list of directories. 9m!^!e9n!^!@@@@@@@9p@@"@79@@@@@@,0find_in_path_rel$9!!9!!@б@г9$list9!!9!!@г9`&string9!!9!!@@ @@@+R399999999@OB@A@@@ @@@+T @@б@г9v&string9!!9!!@@ @@@+U@@г9&string9!!9!!@@ @@@+V#@@@@@+W@@+X( @@@*@@+Y @@+Z-3@@@9!!@8 2 Search a relative file in a list of directories. 9!!9!" @@@@@@@9q@@"@89@@@@@@L8normalized_unit_filename>9""9""@б@г9Ġ&string9""9""@@ @@@+[399999999@e8@A@@г8z&Result!t:"":""@ :"":""@@г9栐&string:"": ""@@ @@@,"@@г9&string:-"":.""@@ @@@,0@@@.@@@,6:9""%@@@?@@, @@,<B*@@@:A""-@8s Normalize file name [Foo.ml] to [foo.ml], using NFC and case-folding. Return [Error] if the input is not a valid utf-8 byte sequence :N" " :O"V"@@@@@@@:gr@@=@8:b@@@@@@[7find_in_path_normalized?:e"":f""@б@г9᠐$list:p"#:q"#@г:A&string:z"":{"#@@ @@@,3:|:{:{:|:|:|:|:|@~B@A@@@ @@@, @@б@г:W&string:"# :"#@@ @@@,@@г:d&string:"#:"#@@ @@@,#@@@@@,@@,( @@@*@@, @@,-3@@@:""@8ᐠ Same as {!find_in_path_rel} , but search also for normalized unit filename, i.e. if name is [Foo.ml], allow [/path/Foo.ml] and [/path/foo.ml] to match. :##:##@@@@@@@:s@@"@8:А@@@@@@L+remove_file@:##:##@б@г:&string:##:##@@ @@@,3::::::::@e8@A@@г:$unit:##:##@@ @@@,@@@@@,@@, @@@:## @9, Delete the given file if it exists and is a regular file. Does nothing for other kinds of files. Never raises an error. ;##;$[$@@@@@@@; t@@@9<;@@@@@@30expand_directoryA;$$;$$@б@г:&string;)$$;*$$@@ @@@,3;+;*;*;+;+;+;+;+@La8@A@@б@г;&string;:$$;;$$@@ @@@,@@г;&string;G$$;H$$@@ @@@,@@@@@,@@,# @@@+@@, @@,(.@@@;Y$$@9 [expand_directory alt file] eventually expands a [+] at the beginning of file into [alt] (an alternate root directory) ;f$$;g$%A@@@@@@@;u@@"@9;z@@@@@@G3split_path_contentsB;}%C%G;~%C%Z@б#sepг;W$char;%C%a;%C%e@@ @@@,3;;;;;;;;@bw:@A@@б@г;b&string;%C%i;%C%o@@ @@@,@@г;$list;%C%z;%C%~@г;y&string;%C%s;%C%y@@ @@@,(@@@@@@,- @@@$@@, @@,2'@@C8=@@@,@@, @@,;;%C%\#@@ @;%C%C&@:  [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. Empty strings are filtered out - include [Filename.current_dir_name] explicitly if the current working directory is supposed to be searched. ;%%;''R@@@@@@@;v@@6@:;@@@@@@[)copy_fileC;'T'X;'T'a@б@г:j*in_channel;'T'c;'T'm@@ @@@,3;;;;;;;;@t8@A@@б@г:{+out_channel<'T'q<'T'|@@ @@@,@@г;$unit<'T'<'T'@@ @@@,@@@@@,@@,# @@@+@@, @@,(.@@@<-'T'T@:_  [copy_file ic oc] reads the contents of file [ic] and copies them to [oc]. It stops when encountering EOF on [ic]. <:''<;'(@@@@@@@++ @@@>++@<6 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. >++>,,@@@@@@@>*{@@ @%@@@@@@V6concat_null_terminatedH>(,,>),-@б@г=$list>3,- >4,-@г>&string>=,->>,- @@ @@@-&3>?>>>>>?>?>?>?>?@yB@A@@@ @@@-( @@г>&string>Q,->R,-@@ @@@-)@@@@@-*@@-+ @@@>^,, @< a [concat_null_terminated [x1;x2; ... xn]] is [x1 ^ "\000" ^ x2 ^ "\000" ^ ... ^ xn ^ "\000"] >k-->l-K-@@@@@@@>|@@@<>@@@@@@85split_null_terminatedI> --> --@б@г>T&string> --> --@@ @@@-,3>>>>>>>>@Qp8@A@@г> $list> --> --@г>m&string> --> --@@ @@@--@@@@@@-/ @@@&@@-0 @@-1#)@@@> --@<ꐠ s [split_null_terminated s] is similar [String.split_on_char '\000'] but ignores the trailing separator, if any >!-->"-.-@@@@@@@>}@@,@<>ِ@@@@@@B/chop_extensionsJ>$./.3>$./.B@б@г>&string>$./.D>$./.J@@ @@@-23>>>>>>>>@[p8@A@@г>&string>$./.N>$./.T@@ @@@-3@@@@@-4@@-5 @@@?$././ @=5  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. ?%.U.\?)/(/p@@@@@@@?)~@@@=E?$@@@@@@3?2?18 {1 Integer operations} ?.+/r/r?/+/r/@@@@@@3?-?,?,?-?-?-?-?-@EZ1@A$log2K?:-//?;-//@б@г?#int?E-//?F-//@@ @@@-6@@г?%#int?R-//?S-//@@ @@@-7'@@@@@-8@@-9, @@@?_-// @= O [log2 n] returns [s] such that [n = 1 lsl s] if [n] is a power of 2?l.//?m//0@@@@@@@?@@@=?@@@@@@K%alignL?100?100 @б@г?a#int?100?100@@ @@@-:3????????@d_8@A@@б@г?r#int?100?100@@ @@@-;@@г?#int?100?100@@ @@@-<@@@@@-=@@-># @@@+@@-? @@-@(.@@@?100@=𐠠 P [align n a] rounds [n] upwards to a multiple of [a] (a power of 2). ?20 0'?30_0|@@@@@@@?@@@"@>?ߐ@@@@@@G/no_overflow_addM?50~0?50~0@б@г?#int?50~0?50~0@@ @@@-A3????????@`u8@A@@б@г?Ѡ#int?50~0?50~0@@ @@@-B@@г?$bool@ 50~0@ 50~0@@ @@@-C@@@@@-D@@-E# @@@+@@-F @@-G(.@@@@50~0~@>O f [no_overflow_add n1 n2] returns [true] if the computation of [n1 + n2] does not overflow. @*600@+701@@@@@@@@CA@@"@>_@>@@@@@@G/no_overflow_subN@A911@B911-@б@г@#int@L911/@M9112@@ @@@-H3@N@M@M@N@N@N@N@N@`u8@A@@б@г@0#int@]9116@^9119@@ @@@-I@@г@$bool@j911=@k911A@@ @@@-J@@@@@-K@@-L# @@@+@@-M @@-N(.@@@@|911@> f [no_overflow_sub n1 n2] returns [true] if the computation of [n1 - n2] does not overflow. @:1B1I@;11@@@@@@@@B@@"@>@@@@@@@G/no_overflow_mulO@=11@=11@б@г@~#int@=11@=11@@ @@@-O3@@@@@@@@@`u8@A@@б@г@#int@=11@=11@@ @@@-P@@г@~$bool@=11@=11@@ @@@-Q@@@@@-R@@-S# @@@+@@-T @@-U(.@@@@=11@? f [no_overflow_mul n1 n2] returns [true] if the computation of [n1 * n2] does not overflow. @>11@?2&2P@@@@@@@AC@@"@?@@@@@@@G/no_overflow_lslP@A2R2VAA2R2e@б@г@ݠ#intA A2R2gA A2R2j@@ @@@-V3A A A A A A A A @`u8@A@@б@г@#intAA2R2nAA2R2q@@ @@@-W@@г@ݠ$boolA(A2R2uA)A2R2y@@ @@@-X@@@@@-Y@@-Z# @@@+@@-[ @@-\(.@@@A:A2R2R@?l d [no_overflow_lsl n k] returns [true] if the computation of [n lsl k] does not overflow. AGB2z2AHC22@@@@@@@A`D@@"@?|A[@@@@@@G-letter_of_intQA^E22A_E22@б@гA<#intAiE23AjE23@@ @@@-]3AkAjAjAkAkAkAkAk@`u8@A@@гA?&stringAxE23AyE23 @@ @@@-^@@@@@-_@@-` @@@AE22 @@AE@@@@5Int_literal_converterVQAG33AG33+@AJ@@Б#intRAH3238AH323;@б@гAr&stringAH323>AH323D@@ @@@-a3AAAAAAAA@CX/@A@@гA#intAH323HAH323K@@ @@@-b@@@@@-c@@-d @@@AH3234 @? Convert a string to an integer. Unlike {!Stdlib.int_of_string}, this function accepts the string representation of [max_int + 1] and returns [min_int] in this case. AI3L3PAK34 @@@@@@@AF@@@@ A萠@@@@@@3%int32SAM44AM44@б@гA&stringAM44AM44"@@ @@@-e3AAAAAAAA@La8@A@@гA<%int32BM44&BM44+@@ @@@-f@@@@@-g@@-h @@@BM44 @@D; Likewise, at type [int32] BN4,40B N4,4P@@@@@@@B8G@@@@TB3@@@@@@3%int64TB6P4R4XB7P4R4]@б@гB&stringBAP4R4`BBP4R4f@@ @@@-i3BCBBBBBCBCBCBCBC@La8@A@@гA%int64BPP4R4jBQP4R4o@@ @@@-j@@@@@-k@@-l @@@B]P4R4T @@; Likewise, at type [int64] BjQ4p4tBkQ4p4@@@@@@@BH@@@@B~@@@@@@3)nativeintUBS44BS44@б@гBS&stringBS44BS44@@ @@@-m3BBBBBBBB@La8@A@@гAؠ)nativeintBS44BS44@@ @@@-n@@@@@-o@@-p @@@BS44 @@ڐ? Likewise, at type [nativeint] BT44BT44@@@@@@@BI@@@@Bɐ@@@@@@3@*@@o@O&@@3BBBBBBBB@<Q(@A 3BBBBBBBB@@ABG33.BV44@@@BG33@@/find_first_monoWBX44BX44@б@б@гB#intBX45BX45@@ @@@-q3BBBBBBBB@Ae@Z1@@@V@@@)h@A@@гB$boolCX45 CX45 @@ @@@-r@@@!@@-s@@-t$ @@гB預#intCX45CX45@@ @@@-u+@@@@@-v@@-w0C!X45 @@@C$X44@AV [find_first_mono p] takes an integer predicate [p : int -> bool] that we assume: 1. is monotonic on natural numbers: if [a <= b] then [p a] implies [p b], 2. is satisfied for some natural numbers in range [0; max_int] (this is equivalent to: [p max_int = true]). [find_first_mono p] is the smallest natural number N that satisfies [p], computed in O(log(N)) calls to [p]. Our implementation supports two cases where the preconditions on [p] are not respected: - If [p] is always [false], we silently return [max_int] instead of looping or crashing. - If [p] is non-monotonic but eventually true, we return some satisfying value. C1Y55C2i77@@@@@@@CJK@@@AfCE@@@@@@PCSCR7 {1 String operations} COk77CPk77@@@@@@3CNCMCMCNCNCNCNCN@by1@A0search_substringXC[m88C\m88@б@гC-&stringCfm88Cgm88@@ @@@-x@@б@гC<&stringCum88!Cvm88'@@ @@@-y)@@б@гCW#intCm88+Cm88.@@ @@@-z8@@гCd#intCm882Cm885@@ @@@-{E@@@@@-|@@-}J @@@)@@-~ @@-O,@@@=@@- @@-T@@@@Cm88@Aڐ [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. Cn868=Cq9 9*@@@@@@@CL@@'@ACɐ@@@@@@s1replace_substringYCs9,90Cs9,9A@б&beforeгC&stringCs9,9JCs9,9P@@ @@@-3CCCCCCCC@:@A@@б%afterгC&stringCs9,9ZCs9,9`@@ @@@-@@б@гC &stringCs9,9dCs9,9j@@ @@@-"@@гCϠ&stringDs9,9nD s9,9t@@ @@@-/@@@@@-@@-4 @@2)@@- @@-9Ds9,9T@@KB@@- @@-?Ds9,9C@@@D!s9,9,@BS [replace_substring ~before ~after str] replaces all occurrences of [before] with [after] in [str] and returns the resulting string. D.t9u9|D/v9:@@@@@@@DGM@@)@BcDB@@@@@@_/rev_split_wordsZDEx::"DFx::1@б@гD&stringDPx::3DQx::9@@ @@@-3DRDQDQDRDRDRDRDR@x8@A@@гCР$listD_x::DD`x::H@гD0&stringDix::=Djx::C@@ @@@-@@@@@@- @@@&@@- @@-#)@@@D{x::@B u [rev_split_words s] splits [s] in blank-separated words, and returns the list of words in reverse order. Dy:I:PDz::@@@@@@@DN@@,@BD@@@@@@B&cut_at[D|::D|::@б@гDq&stringD|::D|::@@ @@@-3DDDDDDDD@[p8@A@@б@гD$charD|::D|::@@ @@@-@@В@гD&stringD|::D|::@@ @@@-"@@@гD&stringD|::D|::@@ @@@-1@@@@@ @@-8 @@@/@@- @@-=2@@@E@@- @@-BH@@@D|::@C& 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 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. EL<<EM==@@@@@@@EeP@@@CE`@@@@@@3-normalise_eol]Ec==Ed==@б@гE5&stringEn==Eo==@@ @@@-3EpEoEoEpEpEpEpEp@La8@A@@гED&stringE}==E~==@@ @@@-@@@@@-@@- @@@E== @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) E==E>>@@@@@@@EQ@@@CE@@@@@@31delete_eol_spaces^E>>E>>@б@гE&stringE>>E>>@@ @@@-3EEEEEEEE@La8@A@@гE&stringE>>E>>@@ @@@-@@@@@-@@- @@@E>> @D [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. E>>E?w?@@@@@@@ER@@@DE@@@@@@3FF> {1 Operations on references} F??F??@@@@@@3EEEEEEEE@EZ1@AA+-ref_and_value_RF ??F??@@;@@!R`D#ref!a@-S@-@@@-S@-@!@@@-F,??F-??@@FET@@@A@@@@@F0??@@@@FHS@@#"" F7??@ @г#$F???F@??@А#(3FAF@F@FAFAFAFAFA@C=;@@@A@@@@@@@@@AFI??FJ??@@@4 @@А!a, FQ??FR??@@@г--ref_and_valueFZ??.@@4/@@1@@A@-@@Z-0@,protect_refsaFe??Ff??@б@гE᠐$listFp?@Fq?@@гm-ref_and_valueFz?@F{?@@@ @@@-3F|F{F{F|F|F|F|F|@~xr@A@@@ @@@- @@б@б@гF6$unitF?@F?@@@ @@@-@@А!a@-S@-!F?@ F?@"@@@@@- @@-(@@А!a,F?@'F?@)@@@@@-@@-3F?@@@@6@@- @@-9? @@@F??@D퐠 [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. F@*@*FAA@@@@@@@FU@@@DFܐ@@@@@@X'get_refbFAAFAA#@б@гEW#refFAA-FAA0@гFe$listFAA(FAA,@А!a@-S@-3FFFFFFFF@H@AGAA%GAA'@@@ @@@- @@@&@@@- #@@гF$listGAA7GAA;@А!a!GAA4GAA6@@@'@@@-# @@@@@- @@-(&@@@G*AA@E\ q [get_ref lr] returns the content of the list reference [lr] and reset its content to the empty list. G7A<ACG8AA@@@@@@@GPV@@%@ElGK@@@@@@G-set_or_ignorecGNAAGOAA@б@б@А!a@-S@-3GYGXGXGYGYGYGYGY@^6@AG_AAG`AA@@гF&optionGhAAGiAA@А!b@-S@-GtAAGuAA@@@ @@@-@@@(@@- @@-#!@@б@гE#refGAAGAA@гF砐&optionGAAGAA@А!b+=GAAGAA@@@1@@@-D @@@@@@-I @@б@А!aTOGAAGAA@@гGY$unitGAAGAA@@ @@@-^@@@h@@-@@-c @@@#@@- @@-h+@@@N@@- @@-mGAA@@@GAA@E ~ [set_or_ignore f opt x] sets [opt] to [f x] if it returns [Some _], or leaves it unmodified if it returns [None]. GBBGBOB@@@@@@@GW@@(@FG@@@@@@GG * {1 Operations on triples and quadruples} GBBGBB@@@@@@3GGGGGGGG@1@A$fst3dHBBHBB@б@В@А!a@-S@-HBBHBB@@@А!b@-S@-'H"BBH#BB@@@А!c@-S@-4H/BBH0BB@@@@&@@@@-?% @@А!a.CH>BBH?BB@@@@@-5@@-J0@@@HGBB @@H_X@@ @@P$snd3eHRBBHSBB@б@В@А!a@-S@-3H_H^H^H_H_H_H_H_@id@AHeBBHfBB@@@А!b@.S@-HrBBHsBB@@@А!c@.S@-HBBHBB@@@@(@@@@-'% @@А!b!+HBBHBB@@@@@-(@@-20@@@HBB @@HY@@ @@8$thd3fHBBHBB@б@В@А!a@. S@.3HHHHHHHH@Qf@AHBCHBC@@@А!b@. S@.HBCHBC@@@А!c@.S@.HBC HBC @@@@(@@@@.'% @@А!c+HBCHBC@@@@@.@@. 20@@@HBB @@HZ@@ @@8$fst4gHCCHCC@б@В@А!a@.S@.3HHHHHHHH@Qf@AICCICC!@@@А!b@.S@.ICC$ICC&@@@А!c@.S@.ICC)I CC+@@@А!d@.S@.)I,CC.I-CC0@@@@5@(@@@@.64 @@А!a?:I=CC4I>CC6@@@@@.F@@.A?@@@IFCC @@I^[@@ @@G$snd4hIQC7C;IRC7C?@б@В@А!a@.'S@.3I^I]I]I^I^I^I^I^@`u@AIdC7CAIeC7CC@@@А!b@.)S@. IqC7CFIrC7CH@@@А!c@.+S@.!I~C7CKIC7CM@@@А!d@.-S@.")IC7CPIC7CR@@@@5@(@@@@.#64 @@А!b0:IC7CVIC7CX@@@@@.$7@@.%A?@@@IC7C7 @@I\@@ @@G$thd4iICYC]ICYCa@б@В@А!a@.6S@..3IIIIIIII@`u@AICYCcICYCe@@@А!b@.8S@./ICYChICYCj@@@А!c@.:S@.0ICYCmICYCo@@@А!d@.J/C{CJ0C{C@@@А!c@.IS@.?J<C{CJ=C{C@@@А!d@.KS@.@)JIC{CJJC{C@@@@5@(@@@@.A64 @@А!d:JZC{CJ[C{C@@@@@.B@@.CA?@@@JcC{C{ @@J{^@@ @@GJyJx 5 {1 Spell checking and ``did you mean'' suggestions} JuCCJvCC@@@@@@3JtJsJsJtJtJtJtJt@Yn@A-edit_distancekJCCJCC@б@гJS&stringJCCJCC@@ @@@.L@@б@гJb&stringJCCJCC@@ @@@.M)@@б@гJ}#intJCDJCD@@ @@@.N8@@гJ &optionJCD JCD@гJ#intJCD JCD @@ @@@.OO@@@@@@.QT @@@$@@.R @@.SY'@@@8@@.T @@.U^;@@@L@@.V @@.WcO#@@@JCC&@I  [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. JDDJEE@@@@@@@K_@@6@IJ@@@@@@*spellchecklKEFKEF @б@гJ}$listK EFK EF@гJݠ&stringKEFKEF@@ @@@.X3KKKKKKKK@B@A@@@ @@@.Z @@б@гJ&stringK,EFK-EF#@@ @@@.[@@гJ$listK9EF.K:EF2@гK &stringKCEF'KDEF-@@ @@@.\-@@@@@@.^2 @@@$@@._ @@.`7'@@@9@@.a @@.b<B@@@KZEE!@I [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. KgF3F3KhFG1@@@@@@@K`@@1@IK{@@@@@@[*align_hintK~G4G8KG4GB@б&prefixгKR&stringKGDGMKGDGS@@ @@@.c3KKKKKKKK@v:@A@@б$mainг*Format_doc!t*Format_docKGDG\KGDGf@ KGDGgKGDGh@@@@@@1P @@б$hintг!t*Format_docKGDGqKGDG{@ KGDG|KGDG}@@@@@@1Q8 @@В@г6!t*Format_docKGGKGG@ KGGKGG@@@@@@1RR @@@гN!t*Format_docKGGKGG@ KGGKGG@@@@@@1Sj @@@@ @ @@1Tq* @@SA@@1U @@1VvLGDGl@@ua@@1W @@1X|L GDGW@@@@1Y @@1ZLGDGF@@@LG4G4"@JH  [aligned_hint main hint] vertically aligns a [main] message and a hint message. The vertical alignment is controlled by the use of [@{ ... @}] boxes: the start of one box, in either the hint or the main message, will be shifted on the left to ensure that the end of the two boxes are vertically aligned, taking in account a pre-existing [prefix] before the main message. For instance, {[ let main, sub = align_hint ~prefix:"Error: " (doc_printf "@{The value @}%a is not an instance variable" Style.inline_code "foobar" ) (doc_printf "@{Did you mean @}%a" Style.inline_code "foobaz" ) in printf "Error: %a%a" pp_doc main pp_doc sub ]} produces the following text: {[ Error: The value "foobaz" is not an instance variable Hint: Did you mean "foobar"? ]} where the main message has been shifted to the left to align ["foobaz"] and ["foobar"]. L#GGL$KHKJ@@@@@@@L<a@@2@JXL7@@@@@@0align_error_hintL:KMKQL;KMKa@б$mainг!t*Format_docLKKcKjLLKcKt@ LOKcKuLPKcKv@@@@@@1[3LRLQLQLRLRLRLRLR@C@A @@б$hintг!t*Format_docLgKcKLhKcK@ LkKcKLlKcK@@@@@@1\ @@В@г!t*Format_docLKcKLKcK@ LKcKLKcK@@@@@@1]6 @@@г!t*Format_docLKcKLKcK@ LKcKLKcK@@@@@@1^N @@@@ @ @@1_U* @@SA@@1` @@1aZLKcKz@@uc@@1b @@1c`LKcKe@@@LKMKM@J될 ( Same as [align_hint ~prefix:"Error: "] LKKLKK@@@@@@@Lb@@,@JLڐ@@@@@@,aligned_hintLKKLKK@б&prefixгL&stringLKKLKK@@ @@@1d3LLLLLLLL@:@A@@б@г])formatter*Format_docLKKMKL @ MKL MKL@@@@@@1e @@б@гK'format4MLLWMLL^@А!a@1{S@1f/MLLM LL@@г)formatter*Format_docM-LLM.LL(@ M1LL)M2LL2@@@@@@1gH @@гL䠐$unitM@LL4MALL8@@ @@@1hV@@б@гL&optionMPLLGMQLLM@г!t*Format_docM^LL:M_LLD@ MbLLEMcLLF@@@@@@1iy @@@ @@@1k~@@гM$unitMuLLQMvLLU@@ @@@1l@@@@@1m@@1n" @@@tjPC @@@1sMLLu@@А!asMLLbMLLd@@@@@1tz@@1u @@@@@1v @@1w @@@@1x @@1yMKK@@@MKK@KӐ [aligned_hint ~prefix fmt ... hint] align the potential hint with the main error message generated by the format string [fmt] before printing the two message. MLeLeMMM@@@@@@@Mc@@$@KM@@@@@@,did_you_meanMMMMMM$@б"ppг4'printer*Format_docMM'M6MM'M@@ MM'MAMM'MH@@гM&stringMM'M/MM'M5@@ @@@1|3MMMMMMMM@M@A@@@" @@@1~ @@б@гMl$listMM'MSMM'MW@гM̠&stringNM'MLNM'MR@@ @@@1 @@@@@@1% @@гMk&optionNM'MhNM'Mn@г!t*Format_docN%M'M[N&M'Me@ N)M'MfN*M'Mg@@@@@@1E @@@ @@@1J@@@.@@1 @@1O5"@@sKT@@@1@@1 @@1XNCM'M+,@@ @NFMM/@Lx [did_you_mean ~pp choices] hints that the user may have meant one of the option in [choices]. Each choice is printed with the [pp] function, or [Style.inline_code] if [pp]=[None]. NSMoMoNTN.N0@@@@@@@Nld@@?@LNg@@@@@@x%ColorSNlNUN\NmNUNa@Nk@@БA+'settingTN{NhNoN|NhNv@@;@@$Auto@@NNhNyNNhN}@@Nf@&Always@@NNhN~NNhN@@Ng@%Never@@NNhNNNhN@@Nh@@@A@@@@@NNhNj@@A@Ne@@#@@@@@#NNhN@@@@@#NNhN@@@@@@A@@@3NNNNNNNN@m@A@/default_settingNNNNNN@гH'settingNNNNNN@@ @@@13NNNNNNNN@SM@A@@@NNN @@Ni@@ @@*is_enabledNNNNNN@б@гN$unitNNNNNN@@ @@@13NNNNNNNN@!4@A@@гN$boolNNNNNN@@ @@@1@@@@@1@@1 @@@NNN @@Oj@@@@@A@P;@4 @@3OOOOOOOO@!6 @A 3OOOOOOOO@\@AO NUNcONN@@M@O= {1 Color support detection }ON2N2ON2NT@@@@@@@ONUNU@@O4O3 + {1 Styling handling for terminal output } O0 NNO1 NO@@@@@@3O/O.O.O/O/O/O/O/@@A@o@h?@@Mm,+@++@@@+@+@(@A%StyleUOP OOOQ OO@Oi@@БA+%colorVO_ OO"O` OO'@@;@@%Black@@Oi O*O.Oj O*O5@@Om@#Red@@OrO6O:OsO6O?@@On@%Green@@O{O@ODO|O@OK@@Oo@&Yellow@@OOLOPOOLOX@@Op@$Blue@@OOYO]OOYOc@@Oq@'Magenta@@OOdOhOOdOq@@Or@$Cyan@@OOrOvOOrO|@@Os@%White@@OO}OOO}O@@Ot@@@A@@@@@O OO@@A@Ol@@#LLO O*O0J@I@@@M@#IIOO6O<G@F@@@J@#FFOO@OFD@C@@@G@#CCOOLORA@@@@@D@#@@OOYO_>@=@@@A@#==OOdOj;@:@@@>@#::OOrOx8@7@@@;@#77OO}O5@4@@@8@@A@4@@3OOOOOOOO@@A58@A+%styleWOOOOOO@@;@@"FG@@@1@@OOOOOO@@Pv@"BG@@@1@@POOPOO@@P w@$Bold@@POOPOO@@P)x@%Reset@@POOPOO@@P2y@@@A@@@@@POO@@@@P5u@@#22P$OOP%OO@+@г4%colorP.OO5@@;3P,P+P+P,P,P,P,P,@L;@@@A@@@@@@@@@A;@@@@=@#99P9OOP:OO@2@г;%colorPCOO<@@B=@@@@?@#;;PIOO9@8@@@<@#88POOO6@5@@@9@@A@5@@3PNPMPMPNPNPNPNPN@!@A69@N&Format$stagP`OOPaOP@ PdOPPeOP@@@%StyleXPmOP PnOP@#@O@@@1@@@1@@AP|OP@@Pz@@г$listPOP @г%stylePOPPOP@@3PPPPPPPP@b@A@@@"@@@@@@APOO@@@/ansi_of_style_lĠPP!P'PP!P6@б@гP$listPP!P?PP!PC@гˠ%stylePP!P9PP!P>@@ @@@13PPPPPPPP@*SM@A@@@ @@@1 @@гP&stringPP!PGPP!PM@@ @@@1@@@@@1@@1 @@@PP!P# @@P{@@@@A+)tag_styleYP PPP PP@@;@@$ansi@@Pb @@@1@@@1P!PPP!PP@@Q }@)text_open@@P@@@1Q"PPQ"PP@@Q~@*text_close@@P@@@1Q #PPQ #PP@@Q%@@@A@@@@@Q PPQ$PP@@@@Q)|@@#..$Q!PP@#@@Ш@г1$listQ!!PPQ"!PP@г6%styleQ*!PPQ+!PP@@>3Q)Q(Q(Q)Q)Q)Q)Q)@t[Q;@@@A@@@@@"@@@@A@@@H @@K@@1 @B@#>>9Q9"PP@8@@Ш@гA&stringQB"PPQC"PP@@I@@L@@1@H@#DD?QK#PP@>@@Ш@гG&stringQT#PPH@@N)I@@Q@@1,@M@@A@I@@3QUQTQTQUQUQUQUQU@+@AJI@A+&stylesZQc&PPQd&PP@@;@@%error@@@@@1ʰQp'PPQq'PQ@@Q@'warning@@@@@1ͰQ|(QQQ}(QQ@@Q@#loc@@@@@1аQ)QQQ)QQ.@@Q@$hint@@@@@1ӰQ*Q/Q3Q*Q/QC@@Q@+inline_code@@@@@1ְQ+QDQHQ+QDQ_@@Q@@@A@@@@@Q&PPQ,Q`Qc@@@@Q@@#AA<Q'PP@;@@Ш@гD)tag_styleQ'PPQ'PQ@@L3QQQQQQQQ@[;@@@A@@@@@@@@@A@@T@@1@P@#LLGQ(QQ@F@@Ш@гO)tag_styleQ(QQQ(QQ@@W@@Z@@1@V@#RRMQ)QQ"@L@@Ш@гU)tag_styleQ)QQ$Q)QQ-@@])@@`@@1,@\@#XXSQ*Q/Q7@R@@Ш@г[)tag_styleQ*Q/Q9Q*Q/QB@@c;@@f@@1>@b@#^^YQ+QDQS@X@@Ш@гa)tag_styleR+QDQUR+QDQ^@@iM@@l@@1P@h@@A@d@@3RRRRRRRR@O@Aed@$hintϠR.QeQkR.QeQo@б@г~)formatter*Format_docR .QeQqR!.QeQ{@ R$.QeQ|R%.QeQ@@@@@@13R'R&R&R'R'R'R'R'@s@A @@гQؠ$unitR4.QeQR5.QeQ@@ @@@1@@@@@1@@1 @@@RA.QeQg @@RY@@@@.as_inline_codeРRL/QQRM/QQ@б@г'printer*Format_docR[/QQR\/QQ@ R_/QQR`/QQ@@А!a@1[@13RhRgRgRhRhRhRhRh@B`.@ARn/QQRo/QQ@@@  @@@1 @@г'printer*Format_docR/QQR/QQ@ R/QQR/QQ@@А!a% R/QQR/QQ@@@+@@@1'@@@'@@1 @@1,*@@@R/QQ@@R@@@@2+inline_codeѠR0QQR0QQ@г'printer*Format_docR0QQR0QQ@ R0QQR0QQ@@гR&stringR0QQR0QQ@@ @@@13RRRRRRRR@\0@A@@@" @@@1 @@@R0QQ@@R@@@@ .default_stylesҠR2RRR2RR@г&stylesR2RRR2RR@@ @@@13RRRRRRRR@$J@A@@@R2RR @@S@@ @@*get_stylesӠR3RR$R3RR.@б@гR$unitS3RR0S3RR4@@ @@@13SSSSSSSS@!4@A@@г&stylesS3RR8S3RR>@@ @@@1@@@@@1@@1 @@@S 3RR  @@S8@@@@*set_stylesԠS+4R?RES,4R?RO@б@гӠ&stylesS64R?RQS74R?RW@@ @@@13S8S7S7S8S8S8S8S8@3H@A@@гR預$unitSE4R?R[SF4R?R_@@ @@@1@@@@@1@@2 @@@SR4R?RA @@Sj@@@@%setupՠS]6RaRgS^6RaRl@б@гR&optionSh6RaR}Si6RaR@г'setting%ColorSv6RaRoSw6RaRt@ Sz6RaRuS{6RaR|@@@@@@23S}S|S|S}S}S}S}S}@F[2@A @@@" @@@2 @@гS3$unitS6RaRS6RaR@@ @@@2 @@@@@2 @@2 $ @@@S6RaRc @@S@@@@0set_tag_handling֠S;SKSQS;SKSa@б@гR &Format)formatterS;SKSdS;SKSj@ S;SKSkS;SKSt@@@@@@2 3SSSSSSSS@Ai(@A @@гSn$unitS;SKSxS;SKS|@@ @@@2@@@@@2@@2 @@@S;SKSM @@S@@@@@{A@A@wq@@F@A@A@@R@K@@@@Z@S!@@3SSSSSSSS@7U#@AǰS OOS=SS@@@S OO@̰@+Error_style[T @SST @SS@T"@@БA+'setting\TATT TATT@@;@@*Contextualِ@@T"BTTT#BTT#@@T;@%Shortڐ@@T+CT$T(T,CT$T/@@TD@@@A@@@@@T/ATT@@A@TG@@#T6BTT@@@@@#T<CT$T*@@@@@@A@@@3T;T:T:T;T;T;T;T;@ @A@`ZA@@@v@nhA@A@C@ @@j@c:@3 @@@@@b @A03@/default_setting۠TgET1T7ThET1TF@гX'settingTpET1TITqET1TP@@ @@@23TrTqTqTrTrTrTrTr@8c]@A@@@TzET1T3 @@T@@ @@@keA@ @@3T~T}T}T~T~T~T~T~@   @A3TTTTTTTT@F@AT@SSTFTQTT@@@T@SS@@TT6 {1 Formatted output} THTVTVTHTVTq@@@@@@3TTTTTTTT@_@A@A,@@@@A (print_ifݠTJTsTwTJTsT@б@гS%&Format)formatterTKTTTKTT@ TKTTTKTT@@@@@@2) @@б@гS<#refTKTTTKTT@гT$boolTKTTTKTT@@ @@@2B@@@@@@2G @@б@б@гS]&Format)formatterTKTTTKTT@ TKTTTKTT@@@@@@2a @@б@А!a@2,]@2lU KTTU KTT@@гT$unitUKTTUKTT@@ @@@2{@@@@@2@@2  @@@'@@2! @@2"/@@б@А!a$U(KTTU)KTT@@А!a*U.KTTU/KTT@@@1@@2#1@@2$ @@@@@2% @@2&U:KTT @@@`@@2' @@2(g@@@@@2) @@2*@@@UGJTsTs@Sy J [print_if ppf flag fmt x] prints [x] with [fmt] on [ppf] if [b] is true. UTLTTUULTU @@@@@@@Um@@)@SUh@@@@@@0print_see_manualޠUkNU"U&UlNU"U6@г 'printer*Format_docUxNU"UBUyNU"UL@ U|NU"UMU}NU"UT@@гT$listUNU"U=UNU"UA@гUd#intUNU"U9UNU"U<@@ @@@2-3UUUUUUUU@S@A@@@ @@@2/ @@@1@@@21 &@@@UNU"U")@Sא4 See manual section UOUUUUUOUUUn@@@@@@@U@@9@SUƐ@@@@@@+UUӐ ( {1 Displaying configuration variables} UQUpUpUQUpU@@@@@@3UUUUUUUU@=m1@A4show_config_and_exitߠUSUUUSUU@б@гU$unitUSUUUSUU@@ @@@22@@гU$unitUSUUUSUU@@ @@@23'@@@@@24@@25, @@@VSUU @T3 { Display the values of all compiler configuration variables from module [Config], then exit the program with code 0. VTUUVUVVI@@@@@@@V'@@@TCV"@@@@@@K=show_config_variable_and_exitV%WVKVOV&WVKVl@б@гU&stringV0WVKVoV1WVKVu@@ @@@263V2V1V1V2V2V2V2V2@d_8@A@@гU㠐$unitV?WVKVyV@WVKV}@@ @@@27@@@@@28@@29 @@@VLWVKVK @T~ a Display the value of the given configuration variable, then exit the program with code 0. VYXV~VVZYVV@@@@@@@Vr@@@TVm@@@@@@3V{Vz< {1 Handling of build maps} Vw[VVVx[VW @@@@@@3VvVuVuVvVvVvVvVv@EZ1@AVV  Build maps cause the compiler to normalize file names embedded in object files, thus leading to more reproducible builds. V]W W V^WQW@@@@@@9get_build_path_prefix_mapV`WWV`WW@б@гVC$unitV`WWV`WW@@ @@@2:+@@гV&optionV`WWV`WW@г5Build_path_prefix_map#map5Build_path_prefix_mapV`WWV`WW@ V`WWV`WW@@@@@@2M @@@"@@@2R@@@/@@2 @@2W2$@@@V`WW'@U R Returns the map encoded in the [BUILD_PATH_PREFIX_MAP] environment variable. VaWWVbX X0@@@@@@@V@@7@UV@@@@@@vWviYYD@@ @@@2@@@@@@2 @@@&@@2 @@2#)@@@WiYY@U Returns the list of [--debug-prefix-map] flags to be passed to the assembler, built from the [BUILD_PATH_PREFIX_MAP] environment variable. WjYJYJWkYY@@@@@@@W@@,@UW@@@@@@BWW? {1 Handling of magic numbers} WmYYWmYZ@@@@@@3WWWWWWWW@Ti1@A,Magic_number"]WoZZWoZZ@W@@БWWؐ  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 WpZ!Z#Wbb@@@@@@3WWWWWWWW@#@AA+1native_obj_config^WbbWbb@@;@@'flambda@@W@@@2װWbbWbb@@X@@@A@@@@@WbbWbb@V% 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. XbbXcc@@@@@@@@AX@@#Xbb@@@Ш@г"$boolXbbXbb@@*3XXXXXXXX@`8;@@@A@@@@@&#@@@A@@1@@2@-@@A@)VKX*'&@&&@@@&@&@@N43@1native_obj_configX.ccX/cc@гV1native_obj_configX7ccX8cc@@ @@@23X9X8X8X9X9X9X9X9@a[@A@@@XAcc @Vs I the native object file configuration of the active/configured compiler. XNccXOcdB@@@@@@@Xg@@@VXb@@@@@@!A+'version_XfdDdKXgdDdR@@;@@OOAXD@@@2@@@@XodDdFXpdDdX@@A@X@@@Aг #intXydDdU @@3XwXvXvXwXwXwXwXw@@S>;@@@A#@@@2@2@@@@@@@@A@@@@3XXXXXXXX@ @A@A+$kind`XdZdaXdZde@@;@@$Exec@@XdhdlXdhdr@@X@#Cmi@@XdsdwXdsd|@@X@#Cmo@@Xdsd}Xdsd@@X@#Cma@@XdsdXdsd@@X@#Cmx@@@2@@XddXdd@@X@$Cmxa@@@2@@XddXdd@@X@$Cmxs@@XddXdd@@X@#Cmt@@XddXdd@@X@(Ast_impl@@XddXdd@@Y@(Ast_intf@@XddXdd@@Y@@@A@@@@@XdZd\@@@@Y@@#hhYdhdnf@e@@@i@#eeYdsdyc@b@@@f@#bbYdsd`@_@@@c@#__Ydsd]@\@@@`@#\\YddYdd@U@г^1native_obj_configY$dd_@@e3Y"Y!Y!Y"Y"Y"Y"Y"@;@@@A@@@@@0@@@.@Ae@@@@g@#ccY/ddY0dd@\@гe1native_obj_configY9ddf@@lg@@@@i@#eeY?ddc@b@@@f@#bbYEdd`@_@@@c@#__YKdd]@\@@@`@#\\YQddZ@Y@@@]@@A@Y@@3YPYOYOYPYPYPYPYP@-@AZ]@A+$infoaY^ddY_dd@@;@@$kind@@@@@2YkeeYlee@@Y@'version@@@@@2YweeYxee%@W  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. Ye&e*Yf fO@@@@@@@Y@@@A@@@@@YddYfPfS@@@@Y@@#++&Yee@%@@Ш@г.$kindYee Yee@@63YYYYYYYY@x E;@@@A@@@@@@@@@A@@>@@2@:@#661Yee@"@@Ш@г9'versionYeeYee$@@A@@D@@2@@WYƐ>=@==@@@=@=@@A@9@@3YYYYYYYY@$@A:9@A+#rawbYfUf\YfUf_@@;@@PAY@@@3@@@@YfUfWYfUfh@X ^ the type of raw magic numbers, such as "Caml1999A027" for the .cma files of OCaml 4.10 YfifkYff@@@@@@@@@Y@@@Aг&stringYfUfb@@3YYYYYYYY@S);@@@A1@@@3 @3@@@@&#@@@A%@@'X,Z %$@$$@@@$@$@@3ZZZZZZZZ@@A32@ZZ; {3 Parsing magic numbers} ZffZff@@@@@@3ZZZZZZZZ@+SM@AA++parse_errorcZ$ffZ%fg@@;@@)TruncatedY@@@3@@Z3g g Z4g g"@@ZL@2Not_a_magic_numberZ @@@3@@ZAg#g'ZBg#gE@@ZZ@@@A@@@@@ZEff@@@@Z]@@#  ZLg gZMg g@@г"&stringZVg g#@@)3ZTZSZSZTZTZTZTZT@?9;@@@A@@@@@@@@@A(@@@@*@#&&Z`g#g)Zag#g;@@г(&stringZjg#g?)@@/*@@@@,@@A@(@@S(+@3explain_parse_error ZugGgMZvgGg`@б@гYԠ&optionZgGghZgGgn@г$kindZgGgcZgGgg@@ @@@33ZZZZZZZZ@wqk@A@@@ @@@3 @@б@г|+parse_errorZgGgrZgGg}@@ @@@3@@гZt&stringZgGgZgGg@@ @@@3#@@@@@3@@3( @@@*@@3  @@3!-3@@@ZgGgI@X񐠠 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. ZggZhhN@@@@@@@Z@@"@YZ@@@@@@L%parse ZhPhVZhPh[@б@г"#rawZhPh^ZhPha@@ @@@3"3ZZZZZZZZ@e8@A@@гYj&resultZhPhyZhPh@г$info[hPhf[hPhj@@ @@@3#@@г+parse_error[hPhl[hPhw@@ @@@3$'@@@%@@@3'-[!hPhe$@@@6@@3( @@3)39)@@@[)hPhR,@Y[; Parses a raw magic number [6hh[7hh@@@@@@@[O@@<@Yk[J@@@@@@R)read_info [Mhh[Nhh@б@гY*in_channel[Xhh[Yhh@@ @@@3*3[Z[Y[Y[Z[Z[Z[Z[Z@k8@A@@гY&result[ghh[hhh@г$info[qhh[rhh@@ @@@3+@@г[+parse_error[hh[hh@@ @@@3,'@@@%@@@3/-[hh$@@@6@@30 @@3139)@@@[hh,@YŐ  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. [hh[jj@@@@@@@[@@<@Y[@@@@@@R,magic_length [jj[jj@г[#int[jj[jj@@ @@@323[[[[[[[[@i~6@A@@@[jj @Y 1 all magic numbers take the same number of bytes [jj[jk2@@@@@@@[@@@Z [될@@@@@@![[ - {3 Checking that magic numbers are current} [k5k7[k5ki@@@@@@3[[[[[[[[@3F1@AA+*unexpected d\kkku\kkk@А!a@343\ \\\ \ \ \ \ @;@@33@A@A@G@B@@@\kkkm\kkk@@@@\/@@A\kkkr\kkkt@@S@;@A(expected@@e@35\&kkk\'kkk@@\?@&actual@@&e@39\0kkk\1kkk@@\I@@@A@Y@@@@@ @@@@#\:kkk@@@Ш@А!a4\Akkk\Bkkk@@"@@369@ @#\Ikkk@@@Ш@А!a"C\Pkkk @@&@@3:G@$@@A@>@@\>=@A+0unexpected_errore\]kk\^kk@@;@@$Kindl@@@3E@@@3G@@\qkk\rkk@@\@'Version@@@3H$@@@3I@@@3K@@\kk\kl@@\@@@A@@@@@\kk@@@@\@@#//\kk\kk@#@г1*unexpected\kk-@г5$kind\kk\kk@@=3\\\\\\\\@R;@@@A@@@@@!@@@@A@@@G =@@@@?@#;;\kk\kk@*@г=$kind\kk\kk@@E@@гB*unexpected\kk>@гF'version\kk\kk@@N)@@@S*I@@@@K@@A@G@@3\\\\\\\\@*@AHK@-check_current\ll \ll@б@гV$kind\ll\ll@@ @@@3_3\\\\\\\\@E@A@@б@г$info\ll#\ll'@@ @@@3`@@г[s&result]llD]llJ@г\$unit]ll,]ll0@@ @@@3a(@@г0unexpected_error]ll2]llB@@ @@@3b6@@@%@@@3e<]*ll+$@@@4@@3f @@3gB7)@@@J@@3h @@3iGM.@@@]7ll1@[i x [check_current kind info] checks that the provided magic [info] is the current version of [kind]'s magic header. ]DlKlM]Ell@@@@@@@]]@@A@[y]X@@@@@@f8explain_unexpected_error][ll]\ll@б@г 0unexpected_error]fll]gll@@ @@@3j3]h]g]g]h]h]h]h]h@8@A@@г]<&string]ulm]vlm@@ @@@3k@@@@@3l@@3m @@@]ll @[ 4 Provides an explanation of the [unexpected_error]. ]mm ]mmC@@@@@@@]@@@[]@@@@@@3A+%errorf]mEmL]mEmQ@@;@@+Parse_error@@@3n@@]mTmX]mTmt@@]@0Unexpected_errori@@@3o@@]mumy]mum@@]@@@A@@@@@]mEmG@@@@]@@#  ]mTmZ]mTme@@г"+parse_error]mTmi#@@)3]]]]]]]]@q]:;@@@A@@@@@@@@@A)@@@@+@#'']mum{]mum@ @г)0unexpected_error]mum*@@0+@@@@-@@A@)@@3]]]]]]]]@@A*-@1read_current_info]mm]mm@б-expected_kindг][&option^mm^mm@г$kind^mm^mm@@ @@@3y3^^^^^^^^@<uo@A@@@ @@@3{ @@б@г\*in_channel^'mm^(mm@@ @@@3|@@г\&result^4mm^5mm@гࠐ$info^>mm^?mm@@ @@@3}-@@г%error^Lmm^Mmm@@ @@@3~;@@@%@@@3A^Xmm$@@@4@@3 @@3G7)@@bI@@3 @@3L^cmm/@@@^fmm2@\ 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. ^smn^tnen@@@@@@@^@@B@\^@@@@@@l^^ " {3 Information on magic numbers} ^nn^nn@@@@@@3^^^^^^^^@~1@A.string_of_kind^nn^nn@б@г$kind^nn^nn@@ @@@3@@г^|&string^nn^no@@ @@@3'@@@@@3@@3, @@@^nn @\ Z a user-printable string for a kind, eg. "exec" or "cmo", to use in error messages. ^oo^oHoc@@@@@@@^@@@]^㐠@@@@@@K2human_name_of_kind^oeok^oeo}@б@г_$kind^oeo^oeo@@ @@@33^^^^^^^^@d_8@A@@г^Ǡ&string_oeo_oeo@@ @@@3@@@@@3@@3 @@@_ oeog @]? u a user-meaningful name for a kind, eg. "executable file" or "bytecode object file", to use in error messages. _oo_ op @@@@@@@_3@@@]O_.@@@@@@3+current_raw_1 p p_2 p p@б@г$kind_< p p!_= p p%@@ @@@33_>_=_=_>_>_>_>_>@La8@A@@г#raw_K p p)_L p p,@@ @@@3@@@@@3@@3 @@@_X p p @] ' the current magic number of each kind _e p-p/_f p-p[@@@@@@@_~@@@]_y@@@@@@3/current_version_|p]pc_}p]pr@б@г$kind_p]pu_p]py@@ @@@33________@La8@A@@г0'version_p]p}_p]p@@ @@@3@@@@@3@@3 @@@_p]p_ @]Ր " the current version of each kind _pp_pp@@@@@@@_@@@]_Đ@@@@@@3__ѐ G {3 Raw representations} Mainly for internal usage and testing. _pp_pp@@@@@@3________@EZ1@AA+(raw_kindg_qq_qq@@;@@VA_@@@3@@@@_qq_qq@^ O the type of raw magic numbers kinds, such as "Caml1999A" for .cma files _qq_qEqp@@@@@@@@@` @@@Aг&string_qq@@3________@.(;@@@A0@@@3@3@@@@%"@@@A $@@&^:`$#@##@@@#@#@@D10@*parse_kind`qrqx`qrq@б@гM(raw_kind`(qrq`)qrq@@ @@@33`*`)`)`*`*`*`*`*@^XR@A@@г_&option`7qrq`8qrq@г$kind`Aqrq`Bqrq@@ @@@3@@@@@@3 @@@&@@3 @@3#)@@@`Sqrqt@^> parse a raw kind into a kind ``qq`aqq@@@@@@@`y@@,@^`t@@@@@@B(raw_kind`wqq`xqq@б@г$kind`qq`qq@@ @@@33````````@[p8@A@@г(raw_kind`qq`qq@@ @@@3@@@@@3@@3 @@@`qq @^А ! 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]. `qq`$s s@@@@@@@`@@@^`@@@@@@3#raw `&ss`&ss@б@гo$info`&ss`&ss @@ @@@33````````@La8@A@@г#raw`&ss$`&ss'@@ @@@3@@@@@3@@3 @@@`&ss @_  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. `'s(s*`/tt@@@@@@@a@@@_+a @@@@@@3)all_kinds!a 1tta1tt@г`$lista1tua1tu@г$kinda 1tta!1tt@@ @@@33a"a!a!a"a"a"a"a"@Ti@@A@@@ @@@3 @@@a/1tt@@aG@@@@ @ W QA@ @A@A@A@vpA@ A@@e@@@L.A@A@u@@A@^@@vM@-@@A@G@@}@]9@@3acababacacacacac@B_;@A7 ajoZZak2uu@@@amoZZ@ @aa ; {1 Minimal support for Unicode characters in identifiers} a~4u u a4u uJ@@@@@@3a}a|a|a}a}a}a}a}@  @  A@ ^ I@ ( "A@A@4.A@A@rlA@#@o@O@@A@E?A@k@K"@A@B@@@V@6 @A@a@A@@@@@L @A;aaʐ  Characters allowed in identifiers are, currently: - ASCII letters A-Z a-z - Latin-1 letters (U+00C0 - U+00FF except U+00D7 and U+00F7) - Character sequences which normalize to the above character under NFC - digits 0-9, underscore, single quote a6uLuLa;v]v_@@@@@@I+Utf8_lexemeMha=vavha=vavs@a@@БA+!t#ia>vyva>vyv@@;@@XAa@@@3@@@@a>vyv{a>vyv@@@@b@@@Aг &stringa>vyv @@3aaaaaaaa@w;@@@A"@@@3@3@@@@@@@@A @@@@3aaaaaaaa@@A@)normalize$b @vvb @vv@б@гaޠ&stringb@vvb@vv@@ @@@33bbbbbbbb@@:@A@@г`&Result!tb*@vvb+@vv@ b.@vvb/@vv@@гW!tb9@vvb:@vv@@ @@@3"@@гe!tbG@vvbH@vv@@ @@@30@@@.@@@36bS@vv%@@@?@@3 @@3<B*@@@b[@vv-@` Normalize the given UTF-8 encoded string. Invalid UTF-8 sequences results in a error and are replaced by U+FFFD. Identifier characters are put in NFC normalized form. Other Unicode characters are left unchanged. bhAvvbiEwuw@@@@@@@b@@=@`b|@@@@@@[*capitalize%bGwwbGww@б@гbQ&stringbGwwbGww@@ @@@33bbbbbbbb@t8@A@@гa&Result!tbGwwbGww@ bGwwbGww@@гʠ!tbGwwbGww@@ @@@3"@@гؠ!tbGwwbGww@@ @@@30@@@.@@@36bGww%@@@?@@3 @@3<B*@@@bGww-@a Like [normalize], but if the string starts with a lowercase identifier character, it is replaced by the corresponding uppercase character. Subsequent characters are not changed. bHwwbJxnx@@@@@@@b@@=@ab@@@@@@[,uncapitalize&bLxxbLxx@б@гbĠ&stringbLxxbLxx@@ @@@33bbbbbbbb@t8@A@@гaz&Result!tcLxxcLxx@ cLxxcLxx@@г=!tcLxxc Lxx@@ @@@3"@@гK!tc-Lxxc.Lxx@@ @@@30@@@.@@@36c9Lxx%@@@?@@3 @@3<B*@@@cALxx-@as Like [normalize], but if the string starts with an uppercase identifier character, it is replaced by the corresponding lowercase character. Subsequent characters are not changed. cNMxxcOOydy@@@@@@@cg@@=@acb@@@@@@[.is_capitalized'ceQyycfQyy@б@г!tcpQyycqQyy@@ @@@33crcqcqcrcrcrcrcr@t8@A@@гc4$boolcQyycQyy@@ @@@3@@@@@3@@3 @@@cQyy @a Returns [true] if the given normalized string starts with an uppercase identifier character, [false] otherwise. May return wrong results if the string is not normalized. cRyycTz=zt@@@@@@@c@@@ac@@@@@@33is_valid_identifier(cVzvz|cVzvz@б@г٠!tcVzvzcVzvz@@ @@@33cccccccc@La8@A@@гc$boolcVzvzcVzvz@@ @@@3@@@@@3@@3 @@@cVzvzx @b Check whether the given normalized string is a valid OCaml identifier: - all characters are identifier characters - it does not start with a digit or a single quote cWzzcZ{R{V@@@@@@@c@@@bc@@@@@@3,is_lowercase)c\{X{^c\{X{j@б@г$!td\{X{ld\{X{m@@ @@@33dddddddd@La8@A@@гcʠ$boold\{X{qd\{X{u@@ @@@3@@@@@3@@3 @@@d"\{X{Z @bT Returns [true] if the given normalized string only contains lowercase identifier character, [false] otherwise. May return wrong results if the string is not normalized. d/]{v{xd0_||3@@@@@@@dH@@@bddC@@@@@@3A+1validation_result*jdGa|5|<dHa|5|M@@;@@%Valid+@@dQb|P|TdRb|P|[@@dj@1Invalid_character,b%Uchar!t@@@3@@dbc|\|`dcc|\|~@b7 Character not allowed dpc|\|dqc|\|@@@@@@@d@1Invalid_beginning-b%Uchar!t@@@3@@dd||dd||@b % Character not allowed as first char dd||dd||@@@@@@@d@@@A@@@@@da|5|7@@@@d@@#KKdb|P|VI@H@@@L@#HHdc|\|bdc|\|s@0@гJLdc|\|wdc|\||@Odc|\|}M@N@@W3dddddddd@q;@@@A@@@@@$@@@"@A T@@@@VbdǐTS@SS@@@S@S@#OOdd||dd||@7@гQSdd||dd||@Vdd||T@U@@^&V@@@@Xc d萠VU@UU@@@U@U@@A@Q@@3dddddddd@1@ARc@3validate_identifierKdf||df|}@б(with_dotгd$booldf|}df|}@@ @@@43dddddddd@N@A@@б@г)!te f|}e f|}@@ @@@4@@гѠ1validation_resultef|}!ef|}2@@ @@@4@@@@@4@@4# @@4b.@@@4@@4 @@4,e,f|} @@ @e/f||@ca Like [is_valid_identifier], but returns a more detailed error code. Dots can be allowed to extend support to path-like identifiers. e<g}3}5e=h}}@@@@@@@eU@@'@cqeP@@@@@@L>starts_like_a_valid_identifierLeSj}}eTj}}@б@г|!te^j}}e_j}}@@ @@@43e`e_e_e`e`e`e`e`@e|8@A@@гe"$boolemj}}enj}}@@ @@@4@@@@@4@@4 @@@ezj}} @c Checks whether the given normalized string starts with an identifier character other than a digit or a single quote. Subsequent characters are not checked. ek}}em~~@@@@@@@e@@@ce@@@@@@3@A@A@!@_@?@@@c]A@{@[2@@3eeeeeeee@H]4@A-e=vavuen~~@@@e=vava@2@)RuntimeIDkep~~ep~~@e@@БeeՐ Manipulation of the Runtime ID values used to mangle the filenames of shared libraries and the bytecode interpreters. @since 5.5 eq~~etH[@@@@@@3eeeeeeee@U@A@@c@@X@8@@A@@t@@@<@AA+!tNlewryewrz@@;@@#devO@@e@@@4ɰfxfx@d5 ; [true] if this not an unaltered official release of OCaml fyfy@@@@@@@f)@'releaseP@@e@@@4̰fzfz@dO * Release number (OCaml 5.5 is release 21) f*{f+{$@@@@@@@fC@(reservedQ@@f @@@4ϰf6|%)f7|%7@di > The number of reserved bits (0-31) in the {v value v} header fD}8>fE}8@@@@@@@f]@3no_flat_float_arrayR@@f@@@4ҰfP~fQ~@d h [true] if float arrays must be boxed (i.e. configured with {v --disable-flat-float-array v}) f^f_@@@@@@@fw@"fpS@@f!@@@4հfjfk"@d e [true] if frame pointers are required (i.e. configured with {v --enable-frame-pointers v} fx#)fyi@@@@@@@f@$tsanT@@f;@@@4ذff@d c [true] if ThreadSanitizer (TSAN) is required (i.e. configured with {v --enable-tsan v}) ff@@@@@@@f@%int31U@@fU@@@4۰ff#@dѐ @ [true] if the platform has 31-bit [int]s (i.e. 32-bit systems) f$*f$o@@@@@@@f@&staticV@@fo@@@4ްfptfp@d될 9 [true] if dynamic loading of libraries is not supported ff@@@@@@@f@.no_compressionW@@f@@@4ff@e 3 [true] if compressed marshalling is not supported ff@@@@@@@f@$ansiX@@f@@@4f $f /@e 2 [true] if Unicode support on Windows is disabled f06f0m@@@@@@@g@@@@@@@@@fwrtfnq@e1- Runtime IDs g v]_g v]q@@@@@@@@@g%@@#gx@@@Ш@г$boolgxgx@@"3gggggggg@L0;@@@@@@@@@&#@@@A@@)@@4@%eWg6#"@""@@@"@"@#g5z@ @@Ш@г!#intg>zg?z@@)!@@,@@4$@(etgS&%@%%@@@%@%@#!!gR|%1@ @@Ш@г$#intg[|%3g\|%6@@,>@@/@@4A@+egp)(@((@@@(@(@#$$go~@@@Ш@г'$boolgx~gy~@@/[@@2@@4^@.eg,+@++@@@+@+@#''"g@@@Ш@г*$boolgg!@@2x@@5@@4{@1eg/.@..@@@.@.@#**%g@@@Ш@г-$boolgg@@5@@8@@4@4egǐ21@11@@@1@1@#--(g@@@Ш@г0$boolgg"@@8@@;@@4@7fg䐠54@44@@@4@4@#00+gpz@@@Ш@г3$boolgp|gp@@;ϰ@@>@@4@:f"h87@77@@@7@7@#33.h@@@Ш@г6$boolh h @@>@@A@@4@=f?h;:@::@@@:@:@#661h (@"@@Ш@г9$boolh& *h' .@@A @@D@@4 @@f\h;>=@==@@@=@=@@@@9fghF76@66@@@6@6@@mDC@)make_zincYhJsyhKs@б#devгh $boolhWshXs@@ @@@53hYhXhXhYhYhYhYhY@mg@A@@б'releaseгh=#inthjshks@@ @@@5@@б3no_flat_float_arrayгh0$boolh{h|@@ @@@5$@@б%int31гhA$boolhh@@ @@@55@@б&staticгhR$boolhh@@ @@@5F@@б.no_compressionгhc$boolhh@@ @@@5W@@б@гha$unithh@@ @@@5f@@гՠ!th h @@ @@@5s@@@@@5@@5 x @@2e,@@@5 @@5  @@5 h@@MeĠG@@@5@@5@@5h@@heΠb@@@5@@5@@5h(@@eؠ}@@@5@@5@@5h2@@e@@@5@@5@@5is<@@e@@@5@@5 @@5!isF@@ @isuI@gE z Returns the Zinc Runtime ID for the given parameters (using default values from {!Config} and {!Sys} as necessary) i   i!\@@@@@@@i9@@Y@gUi4@@@@@@-make_bytecodeZi7i8@б#devгh$booliDiE@@ @@@5"3iFiEiEiFiFiFiFiF@:@A@@б'releaseгi*#intiWiX@@ @@@5#@@б(reservedгi;#intihii@@ @@@5$$@@б3no_flat_float_arrayгi.$booliyiz@@ @@@5%5@@б%int31гi?$boolii@@ @@@5&F@@б&staticгiP$booli i@@ @@@5'W@@б.no_compressionгia$booli%i)@@ @@@5(h@@б$ansiгir$booli*7i*;@@ @@@5)y@@б@гip$uniti<Ci<G@@ @@@5*@@г䠐!ti<Ki<L@@ @@@5+@@@@@5,@@5- @@2fɠ,@@@5/@@50 @@51i*1@@MfӠG@@@53@@54@@55i@@hfݠb@@@57@@58@@59j(@@f}@@@5;@@5<@@5=j 2@@f@@@5?@@5@@@5A˰j<@@f@@@5C@@5D@@5EհjF@@g@@@5G@@5H@@5I߰j)P@@g@@@5K@@5L@@5Mj3Z@@ @j6]@hh ~ Returns the Bytecode Runtime ID for the given parameters (using default values from {!Config} and {!Sys} as necessary) jCMOjD@@@@@@@j\@@m@hxjW@@@@@@ +make_native[jZj[@б#devгj$booljgjh@@ @@@5N3jijhjhjijijijiji@$;:@A@@б'releaseгjM#intjzj{@@ @@@5O@@б(reservedгj^#intjj@@ @@@5P$@@б3no_flat_float_arrayгjQ$boolj.j2@@ @@@5Q5@@б"fpгjb$boolj:j>@@ @@@5RF@@б$tsanгjs$booljHjL@@ @@@5SW@@б%int31гj$booljM[jM_@@ @@@5Th@@б&staticгj$booljMkjMo@@ @@@5Uy@@б.no_compressionгj$booljMjM@@ @@@5V@@б$ansiгj$boolkk@@ @@@5W@@б@гj$unitkk@@ @@@5X@@г)!tkk@@ @@@5Y@@@@@5Z@@5[ @@2h,@@@5]@@5^ @@5_Űk2@@MhG@@@5a@@5b@@5cϰk<Ms@@hh"b@@@5e@@5f@@5gٰkFMc(@@h,}@@@5i@@5j@@5kkPMT2@@h6@@@5m@@5n@@5okZB<@@h@@@@5q@@5r@@5skd6F@@hJ@@@5u@@5v@@5wknP@@hT@@@5y@@5z@@5{ kxZ@@ h^@@@5}@@5~@@5kd@@'hh!@@@5@@5@@5kn@@ @kq@i | Returns the Native Runtime ID for the given parameters (using default values from {!Config} and {!Sys} as necessary) kk.@@@@@@@k@@@ik@@@@@@?'is_zinc\k06k0=@б@гɠ!tk0?k0@@@ @@@53kkkkkkkk@Xo8@A@@гk$boolk0Dk0H@@ @@@5@@@@@5@@5 @@@k02 @j = [is_zinc t] is true if [t] can be used as a Zinc Runtime ID kIKkI@@@@@@@l@@@jk@@@@@@3+is_bytecode]kk@б@г!tl l @@ @@@53l l l l l l l l @La8@A@@гk͠$boolll@@ @@@5@@@@@5@@5 @@@l% @jW E [is_bytecode t] is true if [t] can be used as a Bytecode Runtime ID l2l3@@@@@@@lK@@@jglF@@@@@@3)is_native^lIlJ @б@г_!tlT lU @@ @@@53lVlUlUlVlVlVlVlV@La8@A@@гl$boollcld@@ @@@5@@@@@5@@5 @@@lp @j A [is_native t] is true if [t] can be used as a Native Runtime ID l}l~]@@@@@@@l@@@jl@@@@@@3)to_string_l_el_n@б@г!tl_pl_q@@ @@@53llllllll@La8@A@@гlu&stringl_ul_{@@ @@@5@@@@@5@@5 @@@l_a @j퐠 2 Returns the 4-character representation of a {!t} l|~l|@@@@@@@l@@@jlܐ@@@@@@3)of_string`ll@б@гl&stringll@@ @@@53llllllll@La8@A@@гlM&optionll@г!tmm@@ @@@5@@@@@@5 @@@&@@5 @@5#)@@@m@kG 8 Converts the 4-character representation back to a {!t} m"m#@@@@@@@m;@@,@kWm6@@@@@@B*of_zinc_hiam9"m:,@б#devгl$boolmF3mG7@@ @@@53mHmGmGmHmHmHmHmH@]r:@A@@б'releaseгm,#intmYDmZG@@ @@@5@@б@гm/&stringmhKmiQ@@ @@@5"@@гlɠ&optionmuWmv]@г!tmUmV@@ @@@59@@@@@@5> @@@$@@5 @@5C'@@Ajt;@@@5@@5 @@5Lm;#@@^j~X@@@5@@5@@5Vm.-@@ @m0@kא | Converts hi 2 characters of the representation back to a {!t} (using the default version information from {!Config}. m^`m@@@@@@@m@@@@kmƐ@@@@@@v(ocamlrunbmm@б@гm&stringmm@@ @@@53mmmmmmmm@8@A@@б@г!tmm@@ @@@5@@гm&stringmm@@ @@@5@@@@@5@@5# @@@+@@5 @@5(.@@@n@l6 e [ocamlrun variant runtime_id] returns the name for the runtime for the given Zinc Runtime ID. n  nVu@@@@@@@n*@@"@lFn%@@@@@@G.shared_runtimen(w}n)w@б*runtime_idг@!tn5wn6w@@ @@@53n7n6n6n7n7n7n7n7@bw:@A@@б$hostгn&stringnHwnIw@@ @@@5@@б&prefixгn &stringnYnZ@@ @@@5$@@б@гl#Sys,backend_typenlnm@ npnq@@@@@@7,< @@гnE&stringn~n@@ @@@7-I@@@@@7.@@7/N @@;kn5@@@71@@72 @@73Wn@@VkxP@@@75@@76@@77anw@@skm@@@79@@7:@@7;knw(@@ @nwy+@lې b [shared_runtime ?runtime_id ?host ?prefix backend] returns the name of the shared runtime for the given [backend]. [runtime_id] defaults to {!make_bytecode} if [backend = Sys.Bytecode] and {!make_native} if [backend = Sys.Native] and [host] to {!Config.target}. [prefix] defaults to ["-l"] and the function does not append {!Config.ext_dll}. e.g. [shared_runtime ~host:"x86_64-pc-linux-gnu" Native = "-lasmrun-x86_64-pc-linux-gnu-b100"] for a default OCaml 5.5 build on a 64-bit system with shared library support and compressed marshalling. nn.H@@@@@@@n@@;@lnʐ@@@@@@(stubslibnJPnJX@б*runtime_idг堐!tnJfnJg@@ @@@7<3nnnnnnnn@:@A@@б$hostгn&stringnJqnJw@@ @@@7=@@б@гnà&stringnJ{nJ@@ @@@7>"@@гnР&stringo Jo J@@ @@@7?/@@@@@7@@@7A4 @@2k,@@@7C@@7D @@7E=oJk@@OlI@@@7G@@7H@@7IGo'JZ@@ @o*JL!@m\  [stublibs ?runtime_id ?host dllname] returns the name for the given DLL basename. [dllname] should not include {!Config.ext_dll} (and the result does not include it either). [host] and [runtime_id] default to {!Config.target} and {!make_bytecode} respectively. e.g. [stubslib ~host:"x86_64-pc-linux-gnu" "dllunixbyt" = "dllunixbyt-x86_64-pc-linux-gnu-001b"] for a default OCaml 5.5 build on a 64-bit system with shared library support and compressed marshalling. o7o8@@@@@@@oP@@1@mloK@@@@@@g@ W QA@9@@@x@X/@@@}E@%@Z@:@8@@3o]o\o\o]o]o]o]o]@:@A3o`o_o_o`o`o`o`o`@ @Aoep~~of@@@ohp~~@@o}o| {1 Miscellaneous type aliases} oyoz@@@@@@3oxowowoxoxoxoxox@  @  A@=r@RQ@1@@h@H@@~@^@@s@q@@@2 @A!A+(filepathmoo@@;@@fAot@@@7K@@@@oo@@@@o@@@Aг &stringo @@3oooooooo@<;@@@A"@@@7P@7J@@@@@@@@A @@@@G@A+'modnamenoo@@;@@fAo@@@7S@@@@oo@@@@o@@@Aг &stringo @@3oooooooo@gE?;@@@A#@@@7X@7R@@@@@@@@A@@@@3oooooooo@ @A@A+$crcsooo@@;@@fAot@?@@@7[@oen&Digest!t@@@7@@@7@@7@@@7@@@@pp&@@@@p1@@@Aг $listp"" @В@г$'modnamep.p/@@,3p-p,p,p-p-p-p-p-@Qke?;@@@AG@@@8@7Z@@@@%@@@"@A@@@г5&optionpEpF @г:<pOpP@?pSpT@@@H&@@@M' @@@X(+@@@])pZB@@D@@3pXpWpWpXpXpXpXpX@*@AED@A+&alertsppf(-pg(3@@;@@gOAg&String#Map!tpB@@@;@@@;@@@@pz((p{(P@@@@p@@@Aг&Stdlibp(=p(C@p(Dp(J@@!p(Kp(N@ @%p(O@@г'&stringp(6p(<@@/3pppppppp@tD;@@@AL@@@;@8@@@@6@@@3@A@@@F 6@@8@@3pppppppp@ @A98@@on@nnc@nBn@+ +A@**\@*<)@))N@)(@((@((:@(3'@''@'y'#@'&@&&N@&.%@%%@$$x@$X#@#r"@"@",!""@@!@A@=!@@7@@1@@@@jC@#@u@U@@@@@@@ @ {@@ @@ @@A@A@e_A@A@@3qXqWqWqXqXqXqXqX@@A@ H************************************************************************qaA@@qbA@L@ H qgBMMqhBM@ H OCaml qmCqnC@ H qsDqtD3@ H Xavier Leroy, projet Cristal, INRIA Rocquencourt qyE44qzE4@ H qFqF@ H Copyright 1996 Institut National de Recherche en Informatique et qGqG@ H en Automatique. qHqHg@ H qIhhqIh@ H All rights reserved. This file is distributed under the terms of qJqJ@ H the GNU Lesser General Public License version 2.1, with the qKqKN@ H special exception on linking described in the file LICENSE. qLOOqLO@ H qMqM@ H************************************************************************qNqN5@ * Miscellaneous useful types and functions {b Warning:} this module is unstable and part of {{!Compiler_libs}compiler-libs}. q=* {1 Reporting fatal errors} p ;* Raise the [Fatal_error] exception with the given string. oޠ u* Format the arguments according to the given format string and raise [Fatal_error] with the resulting string. o[ "* {1 Exceptions and finalization} o+ * [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. n * [reraise_preserving_backtrace e f] is (f (); raise e) except that the current backtrace is preserved, even if [f] uses exceptions internally. n6* {1 List operations} m 9* [map_end f l t] is [map f l @ t], just more efficient. mo ?* [map_end f l t] is [map f (rev l) @ t], just more efficient. l֠ B* Like [List.map], with guaranteed left-to-right evaluation order lY * 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. k \* [replicate_list elem n] is the list with [n] elements all identical to [elem]. kR b* [list_remove x l] returns a copy of [l] with the first element equal to [x] removed. j蠠 D* Return the last element and the other elements of the given list. jx :* Detects a repeated label - for use with labeled tuples. iꠠ<* {1 Hash table operations} iϠ b* Create a hashtable with the given initial size and fills it with the given bindings. i@ )* {1 Extensions to the standard library} i% $* {2 Extensions to the List module} b$ * The lexicographic order supported by the provided order. There is no constraint on the relative lengths of the lists. h& * Returns [true] if and only if the given lists have the same length and content with respect to the given equality function. g * 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]. g * [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. f= }* Same as {!List.iter2}, but the function is applied to the index of the element as first argument (counting from 0) e * [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. d * [chunks_of n t] returns a list of nonempty lists whose concatenation is equal to the original list. Every list has [n] elements, except for possibly the last list, which may have fewer. [chunks_of] raises if [n <= 0]. dq * 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_]. c̠ * 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. bx &* {2 Extensions to the Option module} a %* {2 Extensions to the Array module} _5 5* Same as [Array.exists2] from the standard library. `T * 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. _ɠ &* {2 Extensions to the String module} <Р )* {1 Operations on files and file paths} :͠ ** Search a file in a list of directories. 8 3* Search a relative file in a list of directories. 8F * Normalize file name [Foo.ml] to [foo.ml], using NFC and case-folding. Return [Error] if the input is not a valid utf-8 byte sequence 7֠ * Same as {!find_in_path_rel} , but search also for normalized unit filename, i.e. if name is [Foo.ml], allow [/path/Foo.ml] and [/path/foo.ml] to match. 7k * Delete the given file if it exists and is a regular file. Does nothing for other kinds of files. Never raises an error. 7# * [expand_directory alt file] eventually expands a [+] at the beginning of file into [alt] (an alternate root directory) 6Ǡ * [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. Empty strings are filtered out - include [Filename.current_dir_name] explicitly if the current working directory is supposed to be searched. 6U * [copy_file ic oc] reads the contents of file [ic] and copies them to [oc]. It stops when encountering EOF on [ic]. 5 * [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]. 5 * [string_of_file ic] reads the contents of file [ic] and copies them to a string. It stops when encountering EOF on [ic]. 5A u* 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]. 4 * 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. 4. b* [concat_null_terminated [x1;x2; ... xn]] is [x1 ^ "\000" ^ x2 ^ "\000" ^ ... ^ xn ^ "\000"] 3נ t* [split_null_terminated s] is similar [String.split_on_char '\000'] but ignores the trailing separator, if any 3 * 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. 389* {1 Integer operations} 3 P* [log2 n] returns [s] such that [n = 1 lsl s] if [n] is a power of 22⠠ Q* [align n a] rounds [n] upwards to a multiple of [a] (a power of 2). 2 g* [no_overflow_add n1 n2] returns [true] if the computation of [n1 + n2] does not overflow. 2* g* [no_overflow_sub n1 n2] returns [true] if the computation of [n1 - n2] does not overflow. 1Π g* [no_overflow_mul n1 n2] returns [true] if the computation of [n1 * n2] does not overflow. 1r e* [no_overflow_lsl n k] returns [true] if the computation of [n lsl k] does not overflow. 1 * Convert a string to an integer. Unlike {!Stdlib.int_of_string}, this function accepts the string representation of [max_int + 1] and returns [min_int] in this case. 0<* Likewise, at type [int32] 0D<* Likewise, at type [int64] / * Likewise, at type [nativeint] / *[find_first_mono p] takes an integer predicate [p : int -> bool] that we assume: 1. is monotonic on natural numbers: if [a <= b] then [p a] implies [p b], 2. is satisfied for some natural numbers in range [0; max_int] (this is equivalent to: [p max_int = true]). [find_first_mono p] is the smallest natural number N that satisfies [p], computed in O(log(N)) calls to [p]. Our implementation supports two cases where the preconditions on [p] are not respected: - If [p] is always [false], we silently return [max_int] instead of looping or crashing. - If [p] is non-monotonic but eventually true, we return some satisfying value. /;8* {1 String operations} / * [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. . * [replace_substring ~before ~after str] replaces all occurrences of [before] with [after] in [str] and returns the resulting string. .G v* [rev_split_words s] splits [s] in blank-separated words, and returns the list of words in reverse order. - {* [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 -z * [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. -2 * [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) ,ꠠ * [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. ,?* {1 Operations on references} , * [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. +  r* [get_ref lr] returns the content of the list reference [lr] and reset its content to the empty list. +V * [set_or_ignore f opt x] sets [opt] to [f x] if it returns [Some _], or leaves it unmodified if it returns [None]. * +* {1 Operations on triples and quadruples} * 6* {1 Spell checking and ``did you mean'' suggestions} (! * [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. '5 * [aligned_hint main hint] vertically aligns a [main] message and a hint message. The vertical alignment is controlled by the use of [@{ ... @}] boxes: the start of one box, in either the hint or the main message, will be shifted on the left to ensure that the end of the two boxes are vertically aligned, taking in account a pre-existing [prefix] before the main message. For instance, {[ let main, sub = align_hint ~prefix:"Error: " (doc_printf "@{The value @}%a is not an instance variable" Style.inline_code "foobar" ) (doc_printf "@{Did you mean @}%a" Style.inline_code "foobaz" ) in printf "Error: %a%a" pp_doc main pp_doc sub ]} produces the following text: {[ Error: The value "foobaz" is not an instance variable Hint: Did you mean "foobar"? ]} where the main message has been shifted to the left to align ["foobaz"] and ["foobar"]. &| )* Same as [align_hint ~prefix:"Error: "] %ܠ * [aligned_hint ~prefix fmt ... hint] align the potential hint with the main error message generated by the format string [fmt] before printing the two message. $ * [did_you_mean ~pp choices] hints that the user may have meant one of the option in [choices]. Each choice is printed with the [pp] function, or [Style.inline_code] if [pp]=[None]. $U>* {1 Color support detection }# ,* {1 Styling handling for terminal output } #~, foreground rOOrOO@, background rOOrOO@ * ANSI escape sequence for the given style rPNPPrPNP~@ [setup opt] will enable or disable color handling on standard formatters according to the value of color setting [opt]. Only the first call to this function has an effect. r7RRr9SSI@ > adds functions to support color tags to the given formatter. r<S}Sr<S}S@= See the -error-style option r?SSr?SS@7* {1 Formatted output} ; K* [print_if ppf flag fmt x] prints [x] with [fmt] on [ppf] if [b] is true. 5* See manual section ) )* {1 Displaying configuration variables}  |* Display the values of all compiler configuration variables from module [Config], then exit the program with code 0. Ӡ b* Display the value of the given configuration variable, then exit the program with code 0. =* {1 Handling of build maps} p * Build maps cause the compiler to normalize file names embedded in object files, thus leading to more reproducible builds. ` S* Returns the map encoded in the [BUILD_PATH_PREFIX_MAP] environment variable.  * Returns the potential paths (in priority order) from which the given path can originate from before rewrite using [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. _ * {1 Handling of magic numbers} D * 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 $ * 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.  !* 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. } _* 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. q 2* all magic numbers take the same number of bytes = .* {3 Checking that magic numbers are current} " 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. W v* a user-meaningful name for a kind, eg. "executable file" or "bytecode object file", to use in error messages.  (* the current magic number of each kind Ǡ #* the current version of each kind  H* {3 Raw representations} Mainly for internal usage and testing. d P* the type of raw magic numbers kinds, such as "Caml1999A" for .cma files C?* parse a raw kind into a kind ؠ "* 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. H <* {1 Minimal support for Unicode characters in identifiers} à * Characters allowed in identifiers are, currently: - ASCII letters A-Z a-z - Latin-1 letters (U+00C0 - U+00FF except U+00D7 and U+00F7) - Character sequences which normalize to the above character under NFC - digits 0-9, underscore, single quote } * Normalize the given UTF-8 encoded string. Invalid UTF-8 sequences results in a error and are replaced by U+FFFD. Identifier characters are put in NFC normalized form. Other Unicode characters are left unchanged. ߠ * Like [normalize], but if the string starts with a lowercase identifier character, it is replaced by the corresponding uppercase character. Subsequent characters are not changed. o * Like [normalize], but if the string starts with an uppercase identifier character, it is replaced by the corresponding lowercase character. Subsequent characters are not changed.  * Returns [true] if the given normalized string starts with an uppercase identifier character, [false] otherwise. May return wrong results if the string is not normalized.  * Check whether the given normalized string is a valid OCaml identifier: - all characters are identifier characters - it does not start with a digit or a single quote o * Returns [true] if the given normalized string only contains lowercase identifier character, [false] otherwise. May return wrong results if the string is not normalized. '8* Character not allowed 頠 &* Character not allowed as first char ͠ * Like [is_valid_identifier], but returns a more detailed error code. Dots can be allowed to extend support to path-like identifiers. # * Checks whether the given normalized string starts with an identifier character other than a digit or a single quote. Subsequent characters are not checked.  ۠ * Manipulation of the Runtime ID values used to mangle the filenames of shared libraries and the bytecode interpreters. @since 5.5  .* Runtime IDs  \ <* [true] if this not an unaltered official release of OCaml  [ +* Release number (OCaml 5.5 is release 21)  D ?* The number of reserved bits (0-31) in the {v value v} header  - i* [true] if float arrays must be boxed (i.e. configured with {v --disable-flat-float-array v})   f* [true] if frame pointers are required (i.e. configured with {v --enable-frame-pointers v}  d* [true] if ThreadSanitizer (TSAN) is required (i.e. configured with {v --enable-tsan v})  蠠 A* [true] if the platform has 31-bit [int]s (i.e. 32-bit systems)  Ѡ :* [true] if dynamic loading of libraries is not supported  4* [true] if compressed marshalling is not supported  3* [true] if Unicode support on Windows is disabled  {* Returns the Zinc Runtime ID for the given parameters (using default values from {!Config} and {!Sys} as necessary)  i * Returns the Bytecode Runtime ID for the given parameters (using default values from {!Config} and {!Sys} as necessary)  I }* Returns the Native Runtime ID for the given parameters (using default values from {!Config} and {!Sys} as necessary)  >* [is_zinc t] is true if [t] can be used as a Zinc Runtime ID  F* [is_bytecode t] is true if [t] can be used as a Bytecode Runtime ID c B* [is_native t] is true if [t] can be used as a Native Runtime ID  3* Returns the 4-character representation of a {!t} Ӡ 9* Converts the 4-character representation back to a {!t} | }* Converts hi 2 characters of the representation back to a {!t} (using the default version information from {!Config}.  f* [ocamlrun variant runtime_id] returns the name for the runtime for the given Zinc Runtime ID.  c* [shared_runtime ?runtime_id ?host ?prefix backend] returns the name of the shared runtime for the given [backend]. [runtime_id] defaults to {!make_bytecode} if [backend = Sys.Bytecode] and {!make_native} if [backend = Sys.Native] and [host] to {!Config.target}. [prefix] defaults to ["-l"] and the function does not append {!Config.ext_dll}. e.g. [shared_runtime ~host:"x86_64-pc-linux-gnu" Native = "-lasmrun-x86_64-pc-linux-gnu-b100"] for a default OCaml 5.5 build on a 64-bit system with shared library support and compressed marshalling.  * [stublibs ?runtime_id ?host dllname] returns the name for the given DLL basename. [dllname] should not include {!Config.ext_dll} (and the result does not include it either). [host] and [runtime_id] default to {!Config.target} and {!make_bytecode} respectively. e.g. [stubslib ~host:"x86_64-pc-linux-gnu" "dllunixbyt" = "dllunixbyt-x86_64-pc-linux-gnu-001b"] for a default OCaml 5.5 build on a 64-bit system with shared library support and compressed marshalling. s !* {1 Miscellaneous type aliases} 4@-./boot/ocamlc)-nostdlib"-I&./boot*-use-prims2runtime/primitives"-g0-strict-sequence*-principal(-absname"-w8+a-4-9-40-41-42-44-45-48+-warn-error"+a*-bin-annot/-strict-formats"-I%utils"-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_events"-css J/home/ci/builds/workspace/precheck/flambda/false/label/ocaml-ubuntu-latest >10/.-,+*)('&%$#"! @@03Io~E3tttttttt@t@@N0DGl}%Y5Lhi8CamlinternalFormatBasics0|.e1R$|o(o0uy@GmWUࠠt+0]\/j*^e&Stdlib0t0VoS%{<F:.Stdlib__Buffer0,I[?z.Stdlib__Digest0#z25I*.Stdlib__Domain0'Ϳo\0m.K.Stdlib__Either0HD ?|>.Stdlib__Format0b HvkR/Stdlib__Hashtbl0(L%bԠ+Stdlib__Map0*4ɇ2@0]\/j*^eA&++w@R%g%@ @%$@=f Ґ!@""dd@@]y@C@""@u!!@@ee@""de@  lA 9%%@@F  @@ o M f [@&%nuo@4o4cc@33GabD@  0$$@@ߐhi@!Z!op@@@(dṵB%9O9=?j@404@ $$11@@f'e@e Z@@..ll@@@/2/n88@@#ϕ#&L&55Ð5h\i ll rvr@@$͓$@cd@/~2y2@P$$O141@##44W@  °|?,nJ88=89@&1&K@ ђ @  V@ P  %`%b$b.@ΰw230ll*@66@ؓ,@EmEwbӐcR@;<R@RM@##2gh @c LHg@77}@ܰlRǖRѰfΒf@34B@3@@ """P%ȓ%@%%n%%v::E E@iA{pq~@i!!$ޔ$@,Ő-mnZ@@͒ cdL@@"ʐ#@w @1;1@01.@@<@̓o66A@""ܰ,,@@@j)^* @ARnn@@<&%ʰ34@.Ő/0pp@+/+@m_@{@M Mgf@#$@.f.@@}ȰݓðÐ01s(s4@@L@&%@/ː0@@@;Ԑ<3@$$װ&c&m@+, ::lՖl@j'*X*ưkl@/z@-.33N@Ӑ$[$%'3'Z@oHo@7 7W@  j*+`44Cgh<@°##@AB7@MM@'{'t tF@ߒhK(A)kkt@aP%ܓ%)1)Ű::kl!nn@ c &&P@' ef)@6G6D6rҐsw@@@%'% 0ѐ1 @F-ې.%@0&,&,,ް/0$@&&`'ڐ(p@@@89(@vb  !;