open Lib;; let x = Array.make 20 "" in let w = weak_create 20 in for i = 0 to 19 do x.(i) <- String.make 20 's'; weak_set w i (Some x.(i)); done; Gc.full_major (); for i = 0 to 19 do match weak_get w i with | None -> raise Not_found | _ -> () done; for i = 0 to 19 do if i mod 2 = 0 then x.(i) <- "" done; Gc.full_major (); for i = 0 to 19 do match weak_get w i with | None when i mod 2 = 0 -> () | Some s when i mod 2 = 1 -> if s.[5] <> 's' then raise Not_found | _ -> raise Not_found done ;; (** 0 CONSTINT 42 2 PUSHACC0 3 MAKEBLOCK1 0 5 POP 1 7 SETGLOBAL Lib 9 BRANCH 751 11 RESTART 12 GRAB 1 14 ACC0 15 BRANCHIFNOT 28 17 ACC1 18 PUSHACC1 19 GETFIELD1 20 PUSHOFFSETCLOSURE0 21 APPLY2 22 PUSHACC1 23 GETFIELD0 24 MAKEBLOCK2 0 26 RETURN 2 28 ACC1 29 RETURN 2 31 RESTART 32 GRAB 3 34 CONST0 35 PUSHACC4 36 LEINT 37 BRANCHIFNOT 42 39 CONST0 40 RETURN 4 42 ACC3 43 PUSHACC3 44 PUSHACC3 45 PUSHACC3 46 C_CALL4 caml_input 48 PUSHCONST0 49 PUSHACC1 50 EQ 51 BRANCHIFNOT 58 53 GETGLOBAL End_of_file 55 MAKEBLOCK1 0 57 RAISE 58 ACC0 59 PUSHACC5 60 SUBINT 61 PUSHACC1 62 PUSHACC5 63 ADDINT 64 PUSHACC4 65 PUSHACC4 66 PUSHOFFSETCLOSURE0 67 APPTERM 4, 9 70 ACC0 71 C_CALL1 caml_input_scan_line 73 PUSHCONST0 74 PUSHACC1 75 EQ 76 BRANCHIFNOT 83 78 GETGLOBAL End_of_file 80 MAKEBLOCK1 0 82 RAISE 83 CONST0 84 PUSHACC1 85 GTINT 86 BRANCHIFNOT 107 88 ACC0 89 OFFSETINT -1 91 C_CALL1 create_string 93 PUSHACC1 94 OFFSETINT -1 96 PUSHCONST0 97 PUSHACC2 98 PUSHACC5 99 C_CALL4 caml_input 101 ACC2 102 C_CALL1 caml_input_char 104 ACC0 105 RETURN 3 107 ACC0 108 NEGINT 109 C_CALL1 create_string 111 PUSHACC1 112 NEGINT 113 PUSHCONST0 114 PUSHACC2 115 PUSHACC5 116 C_CALL4 caml_input 118 CONST0 119 PUSHTRAP 130 121 ACC6 122 PUSHOFFSETCLOSURE0 123 APPLY1 124 PUSHACC5 125 PUSHENVACC1 126 APPLY2 127 POPTRAP 128 RETURN 3 130 PUSHGETGLOBAL End_of_file 132 PUSHACC1 133 GETFIELD0 134 EQ 135 BRANCHIFNOT 140 137 ACC1 138 RETURN 4 140 ACC0 141 RAISE 142 ACC0 143 C_CALL1 caml_flush 145 RETURN 1 147 ACC0 148 C_CALL1 caml_flush 150 RETURN 1 152 RESTART 153 GRAB 1 155 ACC1 156 PUSHACC1 157 C_CALL2 caml_output_char 159 RETURN 2 161 RESTART 162 GRAB 1 164 ACC1 165 PUSHACC1 166 C_CALL2 caml_output_char 168 RETURN 2 170 RESTART 171 GRAB 1 173 ACC1 174 PUSHACC1 175 C_CALL2 caml_output_int 177 RETURN 2 179 RESTART 180 GRAB 1 182 ACC1 183 PUSHACC1 184 C_CALL2 caml_seek_out 186 RETURN 2 188 ACC0 189 C_CALL1 caml_pos_out 191 RETURN 1 193 ACC0 194 C_CALL1 caml_channel_size 196 RETURN 1 198 RESTART 199 GRAB 1 201 ACC1 202 PUSHACC1 203 C_CALL2 caml_set_binary_mode 205 RETURN 2 207 ACC0 208 C_CALL1 caml_input_char 210 RETURN 1 212 ACC0 213 C_CALL1 caml_input_char 215 RETURN 1 217 ACC0 218 C_CALL1 caml_input_int 220 RETURN 1 222 ACC0 223 C_CALL1 input_value 225 RETURN 1 227 RESTART 228 GRAB 1 230 ACC1 231 PUSHACC1 232 C_CALL2 caml_seek_in 234 RETURN 2 236 ACC0 237 C_CALL1 caml_pos_in 239 RETURN 1 241 ACC0 242 C_CALL1 caml_channel_size 244 RETURN 1 246 ACC0 247 C_CALL1 caml_close_channel 249 RETURN 1 251 RESTART 252 GRAB 1 254 ACC1 255 PUSHACC1 256 C_CALL2 caml_set_binary_mode 258 RETURN 2 260 CONST0 261 PUSHENVACC1 262 APPLY1 263 ACC0 264 C_CALL1 sys_exit 266 RETURN 1 268 CONST0 269 PUSHENVACC1 270 GETFIELD0 271 APPTERM1 2 273 CONST0 274 PUSHENVACC1 275 APPLY1 276 CONST0 277 PUSHENVACC2 278 APPTERM1 2 280 ENVACC1 281 GETFIELD0 282 PUSHACC0 283 PUSHACC2 284 CLOSURE 2, 273 287 PUSHENVACC1 288 SETFIELD0 289 RETURN 2 291 ENVACC1 292 C_CALL1 caml_flush 294 ENVACC2 295 C_CALL1 caml_flush 297 RETURN 1 299 CONST0 300 PUSHENVACC1 301 APPLY1 302 C_CALL1 float_of_string 304 RETURN 1 306 CONST0 307 PUSHENVACC1 308 APPLY1 309 C_CALL1 int_of_string 311 RETURN 1 313 ENVACC2 314 C_CALL1 caml_flush 316 ENVACC1 317 PUSHENVACC3 318 APPTERM1 2 320 CONSTINT 13 322 PUSHENVACC1 323 C_CALL2 caml_output_char 325 ENVACC1 326 C_CALL1 caml_flush 328 RETURN 1 330 ACC0 331 PUSHENVACC1 332 PUSHENVACC2 333 APPLY2 334 CONSTINT 13 336 PUSHENVACC1 337 C_CALL2 caml_output_char 339 ENVACC1 340 C_CALL1 caml_flush 342 RETURN 1 344 ACC0 345 PUSHENVACC1 346 APPLY1 347 PUSHENVACC2 348 PUSHENVACC3 349 APPTERM2 3 351 ACC0 352 PUSHENVACC1 353 APPLY1 354 PUSHENVACC2 355 PUSHENVACC3 356 APPTERM2 3 358 ACC0 359 PUSHENVACC1 360 PUSHENVACC2 361 APPTERM2 3 363 ACC0 364 PUSHENVACC1 365 C_CALL2 caml_output_char 367 RETURN 1 369 CONSTINT 13 371 PUSHENVACC1 372 C_CALL2 caml_output_char 374 ENVACC1 375 C_CALL1 caml_flush 377 RETURN 1 379 ACC0 380 PUSHENVACC1 381 PUSHENVACC2 382 APPLY2 383 CONSTINT 13 385 PUSHENVACC1 386 C_CALL2 caml_output_char 388 RETURN 1 390 ACC0 391 PUSHENVACC1 392 APPLY1 393 PUSHENVACC2 394 PUSHENVACC3 395 APPTERM2 3 397 ACC0 398 PUSHENVACC1 399 APPLY1 400 PUSHENVACC2 401 PUSHENVACC3 402 APPTERM2 3 404 ACC0 405 PUSHENVACC1 406 PUSHENVACC2 407 APPTERM2 3 409 ACC0 410 PUSHENVACC1 411 C_CALL2 caml_output_char 413 RETURN 1 415 RESTART 416 GRAB 3 418 CONST0 419 PUSHACC3 420 LTINT 421 BRANCHIF 432 423 ACC1 424 C_CALL1 ml_string_length 426 PUSHACC4 427 PUSHACC4 428 ADDINT 429 GTINT 430 BRANCHIFNOT 437 432 GETGLOBAL "really_input" 434 PUSHENVACC1 435 APPTERM1 5 437 ACC3 438 PUSHACC3 439 PUSHACC3 440 PUSHACC3 441 PUSHENVACC2 442 APPTERM 4, 8 445 RESTART 446 GRAB 3 448 CONST0 449 PUSHACC3 450 LTINT 451 BRANCHIF 462 453 ACC1 454 C_CALL1 ml_string_length 456 PUSHACC4 457 PUSHACC4 458 ADDINT 459 GTINT 460 BRANCHIFNOT 467 462 GETGLOBAL "input" 464 PUSHENVACC1 465 APPTERM1 5 467 ACC3 468 PUSHACC3 469 PUSHACC3 470 PUSHACC3 471 C_CALL4 caml_input 473 RETURN 4 475 ACC0 476 PUSHCONST0 477 PUSHGETGLOBAL <0>(0, <0>(6, 0)) 479 PUSHENVACC1 480 APPTERM3 4 482 ACC0 483 PUSHCONST0 484 PUSHGETGLOBAL <0>(0, <0>(7, 0)) 486 PUSHENVACC1 487 APPTERM3 4 489 RESTART 490 GRAB 2 492 ACC1 493 PUSHACC1 494 PUSHACC4 495 C_CALL3 sys_open 497 C_CALL1 caml_open_descriptor 499 RETURN 3 501 ACC0 502 C_CALL1 caml_flush 504 ACC0 505 C_CALL1 caml_close_channel 507 RETURN 1 509 RESTART 510 GRAB 1 512 CONST0 513 PUSHACC2 514 PUSHACC2 515 C_CALL3 output_value 517 RETURN 2 519 RESTART 520 GRAB 3 522 CONST0 523 PUSHACC3 524 LTINT 525 BRANCHIF 536 527 ACC1 528 C_CALL1 ml_string_length 530 PUSHACC4 531 PUSHACC4 532 ADDINT 533 GTINT 534 BRANCHIFNOT 541 536 GETGLOBAL "output" 538 PUSHENVACC1 539 APPTERM1 5 541 ACC3 542 PUSHACC3 543 PUSHACC3 544 PUSHACC3 545 C_CALL4 caml_output 547 RETURN 4 549 RESTART 550 GRAB 1 552 ACC1 553 C_CALL1 ml_string_length 555 PUSHCONST0 556 PUSHACC3 557 PUSHACC3 558 C_CALL4 caml_output 560 RETURN 2 562 ACC0 563 PUSHCONSTINT 438 565 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0)))) 567 PUSHENVACC1 568 APPTERM3 4 570 ACC0 571 PUSHCONSTINT 438 573 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0)))) 575 PUSHENVACC1 576 APPTERM3 4 578 RESTART 579 GRAB 2 581 ACC1 582 PUSHACC1 583 PUSHACC4 584 C_CALL3 sys_open 586 C_CALL1 caml_open_descriptor 588 RETURN 3 590 ACC0 591 PUSHGETGLOBAL "%.12g" 593 C_CALL2 format_float 595 RETURN 1 597 ACC0 598 PUSHGETGLOBAL "%d" 600 C_CALL2 format_int 602 RETURN 1 604 GETGLOBAL "true" 606 PUSHACC1 607 C_CALL2 string_equal 609 BRANCHIFNOT 614 611 CONST1 612 RETURN 1 614 GETGLOBAL "false" 616 PUSHACC1 617 C_CALL2 string_equal 619 BRANCHIFNOT 624 621 CONST0 622 RETURN 1 624 GETGLOBAL "bool_of_string" 626 PUSHENVACC1 627 APPTERM1 2 629 ACC0 630 BRANCHIFNOT 636 632 GETGLOBAL "true" 634 RETURN 1 636 GETGLOBAL "false" 638 RETURN 1 640 CONST0 641 PUSHACC1 642 LTINT 643 BRANCHIF 651 645 CONSTINT 255 647 PUSHACC1 648 GTINT 649 BRANCHIFNOT 656 651 GETGLOBAL "char_of_int" 653 PUSHENVACC1 654 APPTERM1 2 656 ACC0 657 RETURN 1 659 RESTART 660 GRAB 1 662 ACC0 663 C_CALL1 ml_string_length 665 PUSHACC2 666 C_CALL1 ml_string_length 668 PUSHACC0 669 PUSHACC2 670 ADDINT 671 C_CALL1 create_string 673 PUSHACC2 674 PUSHCONST0 675 PUSHACC2 676 PUSHCONST0 677 PUSHACC7 678 C_CALL5 blit_string 680 ACC1 681 PUSHACC3 682 PUSHACC2 683 PUSHCONST0 684 PUSHACC 8 686 C_CALL5 blit_string 688 ACC0 689 RETURN 5 691 CONSTINT -1 693 PUSHACC1 694 XORINT 695 RETURN 1 697 CONST0 698 PUSHACC1 699 GEINT 700 BRANCHIFNOT 705 702 ACC0 703 RETURN 1 705 ACC0 706 NEGINT 707 RETURN 1 709 RESTART 710 GRAB 1 712 ACC1 713 PUSHACC1 714 C_CALL2 greaterequal 716 BRANCHIFNOT 721 718 ACC0 719 RETURN 2 721 ACC1 722 RETURN 2 724 RESTART 725 GRAB 1 727 ACC1 728 PUSHACC1 729 C_CALL2 lessequal 731 BRANCHIFNOT 736 733 ACC0 734 RETURN 2 736 ACC1 737 RETURN 2 739 ACC0 740 PUSHGETGLOBAL Invalid_argument 742 MAKEBLOCK2 0 744 RAISE 745 ACC0 746 PUSHGETGLOBAL Failure 748 MAKEBLOCK2 0 750 RAISE 751 CLOSURE 0, 745 754 PUSH 755 CLOSURE 0, 739 758 PUSHGETGLOBAL "Pervasives.Exit" 760 MAKEBLOCK1 0 762 PUSHGETGLOBAL "Pervasives.Assert_failure" 764 MAKEBLOCK1 0 766 PUSH 767 CLOSURE 0, 725 770 PUSH 771 CLOSURE 0, 710 774 PUSH 775 CLOSURE 0, 697 778 PUSH 779 CLOSURE 0, 691 782 PUSHCONST0 783 PUSHCONSTINT 31 785 PUSHCONST1 786 LSLINT 787 EQ 788 BRANCHIFNOT 794 790 CONSTINT 30 792 BRANCH 796 794 CONSTINT 62 796 PUSHCONST1 797 LSLINT 798 PUSHACC0 799 OFFSETINT -1 801 PUSH 802 CLOSURE 0, 660 805 PUSHACC 9 807 CLOSURE 1, 640 810 PUSH 811 CLOSURE 0, 629 814 PUSHACC 11 816 CLOSURE 1, 604 819 PUSH 820 CLOSURE 0, 597 823 PUSH 824 CLOSURE 0, 590 827 PUSH 828 CLOSUREREC 0, 12 832 CONST0 833 C_CALL1 caml_open_descriptor 835 PUSHCONST1 836 C_CALL1 caml_open_descriptor 838 PUSHCONST2 839 C_CALL1 caml_open_descriptor 841 PUSH 842 CLOSURE 0, 579 845 PUSHACC0 846 CLOSURE 1, 570 849 PUSHACC1 850 CLOSURE 1, 562 853 PUSH 854 CLOSURE 0, 550 857 PUSHACC 22 859 CLOSURE 1, 520 862 PUSH 863 CLOSURE 0, 510 866 PUSH 867 CLOSURE 0, 501 870 PUSH 871 CLOSURE 0, 490 874 PUSHACC0 875 CLOSURE 1, 482 878 PUSHACC1 879 CLOSURE 1, 475 882 PUSHACC 28 884 CLOSURE 1, 446 887 PUSH 888 CLOSUREREC 0, 32 892 ACC0 893 PUSHACC 31 895 CLOSURE 2, 416 898 PUSHACC 22 900 CLOSUREREC 1, 70 904 ACC 15 906 CLOSURE 1, 409 909 PUSHACC 11 911 PUSHACC 17 913 CLOSURE 2, 404 916 PUSHACC 12 918 PUSHACC 18 920 PUSHACC 23 922 CLOSURE 3, 397 925 PUSHACC 13 927 PUSHACC 19 929 PUSHACC 23 931 CLOSURE 3, 390 934 PUSHACC 14 936 PUSHACC 20 938 CLOSURE 2, 379 941 PUSHACC 20 943 CLOSURE 1, 369 946 PUSHACC 20 948 CLOSURE 1, 363 951 PUSHACC 17 953 PUSHACC 22 955 CLOSURE 2, 358 958 PUSHACC 18 960 PUSHACC 23 962 PUSHACC 29 964 CLOSURE 3, 351 967 PUSHACC 19 969 PUSHACC 24 971 PUSHACC 29 973 CLOSURE 3, 344 976 PUSHACC 20 978 PUSHACC 25 980 CLOSURE 2, 330 983 PUSHACC 25 985 CLOSURE 1, 320 988 PUSHACC 12 990 PUSHACC 28 992 PUSHACC 30 994 CLOSURE 3, 313 997 PUSHACC0 998 CLOSURE 1, 306 1001 PUSHACC1 1002 CLOSURE 1, 299 1005 PUSHACC 29 1007 PUSHACC 31 1009 CLOSURE 2, 291 1012 MAKEBLOCK1 0 1014 PUSHACC0 1015 CLOSURE 1, 280 1018 PUSHACC1 1019 CLOSURE 1, 268 1022 PUSHACC0 1023 CLOSURE 1, 260 1026 PUSHACC1 1027 PUSHACC 22 1029 PUSHACC4 1030 PUSHACC3 1031 PUSH 1032 CLOSURE 0, 252 1035 PUSH 1036 CLOSURE 0, 246 1039 PUSH 1040 CLOSURE 0, 241 1043 PUSH 1044 CLOSURE 0, 236 1047 PUSH 1048 CLOSURE 0, 228 1051 PUSH 1052 CLOSURE 0, 222 1055 PUSH 1056 CLOSURE 0, 217 1059 PUSH 1060 CLOSURE 0, 212 1063 PUSHACC 32 1065 PUSHACC 35 1067 PUSHACC 33 1069 PUSH 1070 CLOSURE 0, 207 1073 PUSHACC 41 1075 PUSHACC 40 1077 PUSHACC 42 1079 PUSH 1080 CLOSURE 0, 199 1083 PUSHACC 46 1085 PUSH 1086 CLOSURE 0, 193 1089 PUSH 1090 CLOSURE 0, 188 1093 PUSH 1094 CLOSURE 0, 180 1097 PUSHACC 51 1099 PUSH 1100 CLOSURE 0, 171 1103 PUSH 1104 CLOSURE 0, 162 1107 PUSHACC 55 1109 PUSHACC 57 1111 PUSH 1112 CLOSURE 0, 153 1115 PUSH 1116 CLOSURE 0, 147 1119 PUSH 1120 CLOSURE 0, 142 1123 PUSHACC 64 1125 PUSHACC 63 1127 PUSHACC 65 1129 PUSHACC 39 1131 PUSHACC 41 1133 PUSHACC 43 1135 PUSHACC 45 1137 PUSHACC 47 1139 PUSHACC 49 1141 PUSHACC 51 1143 PUSHACC 53 1145 PUSHACC 55 1147 PUSHACC 57 1149 PUSHACC 59 1151 PUSHACC 61 1153 PUSHACC 63 1155 PUSHACC 65 1157 PUSHACC 67 1159 PUSHACC 83 1161 PUSHACC 85 1163 PUSHACC 87 1165 PUSHACC 89 1167 PUSHACC 91 1169 PUSHACC 93 1171 PUSHACC 95 1173 PUSHACC 97 1175 PUSHACC 99 1177 PUSHACC 101 1179 PUSHACC 105 1181 PUSHACC 105 1183 PUSHACC 105 1185 PUSHACC 109 1187 PUSHACC 111 1189 PUSHACC 113 1191 PUSHACC 118 1193 PUSHACC 118 1195 PUSHACC 118 1197 PUSHACC 118 1199 MAKEBLOCK 70, 0 1202 POP 53 1204 SETGLOBAL Pervasives 1206 BRANCH 2186 1208 RESTART 1209 GRAB 1 1211 ACC1 1212 BRANCHIFNOT 1222 1214 ACC1 1215 GETFIELD1 1216 PUSHACC1 1217 OFFSETINT 1 1219 PUSHOFFSETCLOSURE0 1220 APPTERM2 4 1222 ACC0 1223 RETURN 2 1225 RESTART 1226 GRAB 1 1228 ACC0 1229 BRANCHIFNOT 1260 1231 CONST0 1232 PUSHACC2 1233 EQ 1234 BRANCHIFNOT 1240 1236 ACC0 1237 GETFIELD0 1238 RETURN 2 1240 CONST0 1241 PUSHACC2 1242 GTINT 1243 BRANCHIFNOT 1253 1245 ACC1 1246 OFFSETINT -1 1248 PUSHACC1 1249 GETFIELD1 1250 PUSHOFFSETCLOSURE0 1251 APPTERM2 4 1253 GETGLOBAL "List.nth" 1255 PUSHGETGLOBALFIELD Pervasives, 2 1258 APPTERM1 3 1260 GETGLOBAL "nth" 1262 PUSHGETGLOBALFIELD Pervasives, 3 1265 APPTERM1 3 1267 RESTART 1268 GRAB 1 1270 ACC0 1271 BRANCHIFNOT 1283 1273 ACC1 1274 PUSHACC1 1275 GETFIELD0 1276 MAKEBLOCK2 0 1278 PUSHACC1 1279 GETFIELD1 1280 PUSHOFFSETCLOSURE0 1281 APPTERM2 4 1283 ACC1 1284 RETURN 2 1286 ACC0 1287 BRANCHIFNOT 1300 1289 ACC0 1290 GETFIELD1 1291 PUSHOFFSETCLOSURE0 1292 APPLY1 1293 PUSHACC1 1294 GETFIELD0 1295 PUSHGETGLOBALFIELD Pervasives, 16 1298 APPTERM2 3 1300 RETURN 1 1302 RESTART 1303 GRAB 1 1305 ACC1 1306 BRANCHIFNOT 1322 1308 ACC1 1309 GETFIELD0 1310 PUSHACC1 1311 APPLY1 1312 PUSHACC2 1313 GETFIELD1 1314 PUSHACC2 1315 PUSHOFFSETCLOSURE0 1316 APPLY2 1317 PUSHACC1 1318 MAKEBLOCK2 0 1320 POP 1 1322 RETURN 2 1324 RESTART 1325 GRAB 1 1327 ACC1 1328 BRANCHIFNOT 1340 1330 ACC1 1331 GETFIELD0 1332 PUSHACC1 1333 APPLY1 1334 ACC1 1335 GETFIELD1 1336 PUSHACC1 1337 PUSHOFFSETCLOSURE0 1338 APPTERM2 4 1340 RETURN 2 1342 RESTART 1343 GRAB 2 1345 ACC2 1346 BRANCHIFNOT 1359 1348 ACC2 1349 GETFIELD1 1350 PUSHACC3 1351 GETFIELD0 1352 PUSHACC3 1353 PUSHACC3 1354 APPLY2 1355 PUSHACC2 1356 PUSHOFFSETCLOSURE0 1357 APPTERM3 6 1359 ACC1 1360 RETURN 3 1362 RESTART 1363 GRAB 2 1365 ACC1 1366 BRANCHIFNOT 1379 1368 ACC2 1369 PUSHACC2 1370 GETFIELD1 1371 PUSHACC2 1372 PUSHOFFSETCLOSURE0 1373 APPLY3 1374 PUSHACC2 1375 GETFIELD0 1376 PUSHACC2 1377 APPTERM2 5 1379 ACC2 1380 RETURN 3 1382 RESTART 1383 GRAB 2 1385 ACC1 1386 BRANCHIFNOT 1409 1388 ACC2 1389 BRANCHIFNOT 1416 1391 ACC2 1392 GETFIELD0 1393 PUSHACC2 1394 GETFIELD0 1395 PUSHACC2 1396 APPLY2 1397 PUSHACC3 1398 GETFIELD1 1399 PUSHACC3 1400 GETFIELD1 1401 PUSHACC3 1402 PUSHOFFSETCLOSURE0 1403 APPLY3 1404 PUSHACC1 1405 MAKEBLOCK2 0 1407 RETURN 4 1409 ACC2 1410 BRANCHIFNOT 1414 1412 BRANCH 1416 1414 RETURN 3 1416 GETGLOBAL "List.map2" 1418 PUSHGETGLOBALFIELD Pervasives, 2 1421 APPTERM1 4 1423 RESTART 1424 GRAB 2 1426 ACC1 1427 BRANCHIFNOT 1446 1429 ACC2 1430 BRANCHIFNOT 1453 1432 ACC2 1433 GETFIELD0 1434 PUSHACC2 1435 GETFIELD0 1436 PUSHACC2 1437 APPLY2 1438 ACC2 1439 GETFIELD1 1440 PUSHACC2 1441 GETFIELD1 1442 PUSHACC2 1443 PUSHOFFSETCLOSURE0 1444 APPTERM3 6 1446 ACC2 1447 BRANCHIFNOT 1451 1449 BRANCH 1453 1451 RETURN 3 1453 GETGLOBAL "List.iter2" 1455 PUSHGETGLOBALFIELD Pervasives, 2 1458 APPTERM1 4 1460 RESTART 1461 GRAB 3 1463 ACC2 1464 BRANCHIFNOT 1485 1466 ACC3 1467 BRANCHIFNOT 1491 1469 ACC3 1470 GETFIELD1 1471 PUSHACC3 1472 GETFIELD1 1473 PUSHACC5 1474 GETFIELD0 1475 PUSHACC5 1476 GETFIELD0 1477 PUSHACC5 1478 PUSHACC5 1479 APPLY3 1480 PUSHACC3 1481 PUSHOFFSETCLOSURE0 1482 APPTERM 4, 8 1485 ACC3 1486 BRANCHIF 1491 1488 ACC1 1489 RETURN 4 1491 GETGLOBAL "List.fold_left2" 1493 PUSHGETGLOBALFIELD Pervasives, 2 1496 APPTERM1 5 1498 RESTART 1499 GRAB 3 1501 ACC1 1502 BRANCHIFNOT 1525 1504 ACC2 1505 BRANCHIFNOT 1531 1507 PUSH_RETADDR 1518 1509 ACC6 1510 PUSHACC6 1511 GETFIELD1 1512 PUSHACC6 1513 GETFIELD1 1514 PUSHACC6 1515 PUSHOFFSETCLOSURE0 1516 APPLY 4 1518 PUSHACC3 1519 GETFIELD0 1520 PUSHACC3 1521 GETFIELD0 1522 PUSHACC3 1523 APPTERM3 7 1525 ACC2 1526 BRANCHIF 1531 1528 ACC3 1529 RETURN 4 1531 GETGLOBAL "List.fold_right2" 1533 PUSHGETGLOBALFIELD Pervasives, 2 1536 APPTERM1 5 1538 RESTART 1539 GRAB 1 1541 ACC1 1542 BRANCHIFNOT 1558 1544 ACC1 1545 GETFIELD0 1546 PUSHACC1 1547 APPLY1 1548 BRANCHIFNOT 1556 1550 ACC1 1551 GETFIELD1 1552 PUSHACC1 1553 PUSHOFFSETCLOSURE0 1554 APPTERM2 4 1556 RETURN 2 1558 CONST1 1559 RETURN 2 1561 RESTART 1562 GRAB 1 1564 ACC1 1565 BRANCHIFNOT 1579 1567 ACC1 1568 GETFIELD0 1569 PUSHACC1 1570 APPLY1 1571 BRANCHIF 1579 1573 ACC1 1574 GETFIELD1 1575 PUSHACC1 1576 PUSHOFFSETCLOSURE0 1577 APPTERM2 4 1579 RETURN 2 1581 RESTART 1582 GRAB 2 1584 ACC1 1585 BRANCHIFNOT 1608 1587 ACC2 1588 BRANCHIFNOT 1614 1590 ACC2 1591 GETFIELD0 1592 PUSHACC2 1593 GETFIELD0 1594 PUSHACC2 1595 APPLY2 1596 BRANCHIFNOT 1606 1598 ACC2 1599 GETFIELD1 1600 PUSHACC2 1601 GETFIELD1 1602 PUSHACC2 1603 PUSHOFFSETCLOSURE0 1604 APPTERM3 6 1606 RETURN 3 1608 ACC2 1609 BRANCHIF 1614 1611 CONST1 1612 RETURN 3 1614 GETGLOBAL "List.for_all2" 1616 PUSHGETGLOBALFIELD Pervasives, 2 1619 APPTERM1 4 1621 RESTART 1622 GRAB 2 1624 ACC1 1625 BRANCHIFNOT 1648 1627 ACC2 1628 BRANCHIFNOT 1655 1630 ACC2 1631 GETFIELD0 1632 PUSHACC2 1633 GETFIELD0 1634 PUSHACC2 1635 APPLY2 1636 BRANCHIF 1646 1638 ACC2 1639 GETFIELD1 1640 PUSHACC2 1641 GETFIELD1 1642 PUSHACC2 1643 PUSHOFFSETCLOSURE0 1644 APPTERM3 6 1646 RETURN 3 1648 ACC2 1649 BRANCHIFNOT 1653 1651 BRANCH 1655 1653 RETURN 3 1655 GETGLOBAL "List.exists2" 1657 PUSHGETGLOBALFIELD Pervasives, 2 1660 APPTERM1 4 1662 RESTART 1663 GRAB 1 1665 ACC1 1666 BRANCHIFNOT 1681 1668 ACC0 1669 PUSHACC2 1670 GETFIELD0 1671 C_CALL2 equal 1673 BRANCHIF 1681 1675 ACC1 1676 GETFIELD1 1677 PUSHACC1 1678 PUSHOFFSETCLOSURE0 1679 APPTERM2 4 1681 RETURN 2 1683 RESTART 1684 GRAB 1 1686 ACC1 1687 BRANCHIFNOT 1701 1689 ACC0 1690 PUSHACC2 1691 GETFIELD0 1692 EQ 1693 BRANCHIF 1701 1695 ACC1 1696 GETFIELD1 1697 PUSHACC1 1698 PUSHOFFSETCLOSURE0 1699 APPTERM2 4 1701 RETURN 2 1703 RESTART 1704 GRAB 1 1706 ACC1 1707 BRANCHIFNOT 1728 1709 ACC1 1710 GETFIELD0 1711 PUSHACC1 1712 PUSHACC1 1713 GETFIELD0 1714 C_CALL2 equal 1716 BRANCHIFNOT 1722 1718 ACC0 1719 GETFIELD1 1720 RETURN 3 1722 ACC2 1723 GETFIELD1 1724 PUSHACC2 1725 PUSHOFFSETCLOSURE0 1726 APPTERM2 5 1728 GETGLOBAL Not_found 1730 MAKEBLOCK1 0 1732 RAISE 1733 RESTART 1734 GRAB 1 1736 ACC1 1737 BRANCHIFNOT 1757 1739 ACC1 1740 GETFIELD0 1741 PUSHACC1 1742 PUSHACC1 1743 GETFIELD0 1744 EQ 1745 BRANCHIFNOT 1751 1747 ACC0 1748 GETFIELD1 1749 RETURN 3 1751 ACC2 1752 GETFIELD1 1753 PUSHACC2 1754 PUSHOFFSETCLOSURE0 1755 APPTERM2 5 1757 GETGLOBAL Not_found 1759 MAKEBLOCK1 0 1761 RAISE 1762 RESTART 1763 GRAB 1 1765 ACC1 1766 BRANCHIFNOT 1782 1768 ACC0 1769 PUSHACC2 1770 GETFIELD0 1771 GETFIELD0 1772 C_CALL2 equal 1774 BRANCHIF 1782 1776 ACC1 1777 GETFIELD1 1778 PUSHACC1 1779 PUSHOFFSETCLOSURE0 1780 APPTERM2 4 1782 RETURN 2 1784 RESTART 1785 GRAB 1 1787 ACC1 1788 BRANCHIFNOT 1803 1790 ACC0 1791 PUSHACC2 1792 GETFIELD0 1793 GETFIELD0 1794 EQ 1795 BRANCHIF 1803 1797 ACC1 1798 GETFIELD1 1799 PUSHACC1 1800 PUSHOFFSETCLOSURE0 1801 APPTERM2 4 1803 RETURN 2 1805 RESTART 1806 GRAB 1 1808 ACC1 1809 BRANCHIFNOT 1834 1811 ACC1 1812 GETFIELD0 1813 PUSHACC2 1814 GETFIELD1 1815 PUSHACC2 1816 PUSHACC2 1817 GETFIELD0 1818 C_CALL2 equal 1820 BRANCHIFNOT 1825 1822 ACC0 1823 RETURN 4 1825 ACC0 1826 PUSHACC3 1827 PUSHOFFSETCLOSURE0 1828 APPLY2 1829 PUSHACC2 1830 MAKEBLOCK2 0 1832 POP 2 1834 RETURN 2 1836 RESTART 1837 GRAB 1 1839 ACC1 1840 BRANCHIFNOT 1864 1842 ACC1 1843 GETFIELD0 1844 PUSHACC2 1845 GETFIELD1 1846 PUSHACC2 1847 PUSHACC2 1848 GETFIELD0 1849 EQ 1850 BRANCHIFNOT 1855 1852 ACC0 1853 RETURN 4 1855 ACC0 1856 PUSHACC3 1857 PUSHOFFSETCLOSURE0 1858 APPLY2 1859 PUSHACC2 1860 MAKEBLOCK2 0 1862 POP 2 1864 RETURN 2 1866 RESTART 1867 GRAB 1 1869 ACC1 1870 BRANCHIFNOT 1888 1872 ACC1 1873 GETFIELD0 1874 PUSHACC0 1875 PUSHACC2 1876 APPLY1 1877 BRANCHIFNOT 1882 1879 ACC0 1880 RETURN 3 1882 ACC2 1883 GETFIELD1 1884 PUSHACC2 1885 PUSHOFFSETCLOSURE0 1886 APPTERM2 5 1888 GETGLOBAL Not_found 1890 MAKEBLOCK1 0 1892 RAISE 1893 RESTART 1894 GRAB 2 1896 ACC2 1897 BRANCHIFNOT 1926 1899 ACC2 1900 GETFIELD0 1901 PUSHACC3 1902 GETFIELD1 1903 PUSHACC1 1904 PUSHENVACC2 1905 APPLY1 1906 BRANCHIFNOT 1917 1908 ACC0 1909 PUSHACC4 1910 PUSHACC4 1911 PUSHACC4 1912 MAKEBLOCK2 0 1914 PUSHOFFSETCLOSURE0 1915 APPTERM3 8 1917 ACC0 1918 PUSHACC4 1919 PUSHACC3 1920 MAKEBLOCK2 0 1922 PUSHACC4 1923 PUSHOFFSETCLOSURE0 1924 APPTERM3 8 1926 ACC1 1927 PUSHENVACC1 1928 APPLY1 1929 PUSHACC1 1930 PUSHENVACC1 1931 APPLY1 1932 MAKEBLOCK2 0 1934 RETURN 3 1936 RESTART 1937 GRAB 1 1939 ACC0 1940 PUSHENVACC1 1941 CLOSUREREC 2, 1894 1945 ACC2 1946 PUSHCONST0 1947 PUSHCONST0 1948 PUSHACC3 1949 APPTERM3 6 1951 ACC0 1952 BRANCHIFNOT 1976 1954 ACC0 1955 GETFIELD0 1956 PUSHACC1 1957 GETFIELD1 1958 PUSHOFFSETCLOSURE0 1959 APPLY1 1960 PUSHACC0 1961 GETFIELD1 1962 PUSHACC2 1963 GETFIELD1 1964 MAKEBLOCK2 0 1966 PUSHACC1 1967 GETFIELD0 1968 PUSHACC3 1969 GETFIELD0 1970 MAKEBLOCK2 0 1972 MAKEBLOCK2 0 1974 RETURN 3 1976 GETGLOBAL <0>(0, 0) 1978 RETURN 1 1980 RESTART 1981 GRAB 1 1983 ACC0 1984 BRANCHIFNOT 2005 1986 ACC1 1987 BRANCHIFNOT 2012 1989 ACC1 1990 GETFIELD1 1991 PUSHACC1 1992 GETFIELD1 1993 PUSHOFFSETCLOSURE0 1994 APPLY2 1995 PUSHACC2 1996 GETFIELD0 1997 PUSHACC2 1998 GETFIELD0 1999 MAKEBLOCK2 0 2001 MAKEBLOCK2 0 2003 RETURN 2 2005 ACC1 2006 BRANCHIFNOT 2010 2008 BRANCH 2012 2010 RETURN 2 2012 GETGLOBAL "List.combine" 2014 PUSHGETGLOBALFIELD Pervasives, 2 2017 APPTERM1 3 2019 RESTART 2020 GRAB 1 2022 ACC1 2023 BRANCHIFNOT 2047 2025 ACC1 2026 GETFIELD0 2027 PUSHACC2 2028 GETFIELD1 2029 PUSHACC1 2030 PUSHENVACC2 2031 APPLY1 2032 BRANCHIFNOT 2042 2034 ACC0 2035 PUSHACC3 2036 PUSHACC3 2037 MAKEBLOCK2 0 2039 PUSHOFFSETCLOSURE0 2040 APPTERM2 6 2042 ACC0 2043 PUSHACC3 2044 PUSHOFFSETCLOSURE0 2045 APPTERM2 6 2047 ACC0 2048 PUSHENVACC1 2049 APPTERM1 3 2051 ACC0 2052 PUSHENVACC1 2053 CLOSUREREC 2, 2020 2057 CONST0 2058 PUSHACC1 2059 APPTERM1 3 2061 RESTART 2062 GRAB 2 2064 ACC1 2065 BRANCHIFNOT 2086 2067 ACC2 2068 BRANCHIFNOT 2093 2070 ACC2 2071 GETFIELD1 2072 PUSHACC2 2073 GETFIELD1 2074 PUSHACC2 2075 PUSHACC5 2076 GETFIELD0 2077 PUSHACC5 2078 GETFIELD0 2079 PUSHENVACC1 2080 APPLY2 2081 MAKEBLOCK2 0 2083 PUSHOFFSETCLOSURE0 2084 APPTERM3 6 2086 ACC2 2087 BRANCHIFNOT 2091 2089 BRANCH 2093 2091 RETURN 3 2093 GETGLOBAL "List.rev_map2" 2095 PUSHGETGLOBALFIELD Pervasives, 2 2098 APPTERM1 4 2100 RESTART 2101 GRAB 2 2103 ACC0 2104 CLOSUREREC 1, 2062 2108 ACC3 2109 PUSHACC3 2110 PUSHCONST0 2111 PUSHACC3 2112 APPTERM3 7 2114 RESTART 2115 GRAB 1 2117 ACC1 2118 BRANCHIFNOT 2132 2120 ACC1 2121 GETFIELD1 2122 PUSHACC1 2123 PUSHACC3 2124 GETFIELD0 2125 PUSHENVACC1 2126 APPLY1 2127 MAKEBLOCK2 0 2129 PUSHOFFSETCLOSURE0 2130 APPTERM2 4 2132 ACC0 2133 RETURN 2 2135 RESTART 2136 GRAB 1 2138 ACC0 2139 CLOSUREREC 1, 2115 2143 ACC2 2144 PUSHCONST0 2145 PUSHACC2 2146 APPTERM2 5 2148 CONST0 2149 PUSHACC1 2150 PUSHENVACC1 2151 APPTERM2 3 2153 ACC0 2154 BRANCHIFNOT 2160 2156 ACC0 2157 GETFIELD1 2158 RETURN 1 2160 GETGLOBAL "tl" 2162 PUSHGETGLOBALFIELD Pervasives, 3 2165 APPTERM1 2 2167 ACC0 2168 BRANCHIFNOT 2174 2170 ACC0 2171 GETFIELD0 2172 RETURN 1 2174 GETGLOBAL "hd" 2176 PUSHGETGLOBALFIELD Pervasives, 3 2179 APPTERM1 2 2181 ACC0 2182 PUSHCONST0 2183 PUSHENVACC1 2184 APPTERM2 3 2186 CLOSUREREC 0, 1209 2190 ACC0 2191 CLOSURE 1, 2181 2194 PUSH 2195 CLOSURE 0, 2167 2198 PUSH 2199 CLOSURE 0, 2153 2202 PUSH 2203 CLOSUREREC 0, 1226 2207 GETGLOBALFIELD Pervasives, 16 2210 PUSH 2211 CLOSUREREC 0, 1268 2215 ACC0 2216 CLOSURE 1, 2148 2219 PUSH 2220 CLOSUREREC 0, 1286 2224 CLOSUREREC 0, 1303 2228 CLOSURE 0, 2136 2231 PUSH 2232 CLOSUREREC 0, 1325 2236 CLOSUREREC 0, 1343 2240 CLOSUREREC 0, 1363 2244 CLOSUREREC 0, 1383 2248 CLOSURE 0, 2101 2251 PUSH 2252 CLOSUREREC 0, 1424 2256 CLOSUREREC 0, 1461 2260 CLOSUREREC 0, 1499 2264 CLOSUREREC 0, 1539 2268 CLOSUREREC 0, 1562 2272 CLOSUREREC 0, 1582 2276 CLOSUREREC 0, 1622 2280 CLOSUREREC 0, 1663 2284 CLOSUREREC 0, 1684 2288 CLOSUREREC 0, 1704 2292 CLOSUREREC 0, 1734 2296 CLOSUREREC 0, 1763 2300 CLOSUREREC 0, 1785 2304 CLOSUREREC 0, 1806 2308 CLOSUREREC 0, 1837 2312 CLOSUREREC 0, 1867 2316 ACC 24 2318 CLOSURE 1, 2051 2321 PUSHACC 25 2323 CLOSUREREC 1, 1937 2327 CLOSUREREC 0, 1951 2331 CLOSUREREC 0, 1981 2335 ACC0 2336 PUSHACC2 2337 PUSHACC7 2338 PUSHACC 9 2340 PUSHACC 11 2342 PUSHACC 13 2344 PUSHACC 15 2346 PUSHACC 17 2348 PUSHACC 10 2350 PUSHACC 12 2352 PUSHACC 13 2354 PUSHACC 15 2356 PUSHACC 23 2358 PUSHACC 25 2360 PUSHACC 27 2362 PUSHACC 29 2364 PUSHACC 31 2366 PUSHACC 33 2368 PUSHACC 35 2370 PUSHACC 37 2372 PUSHACC 40 2374 PUSHACC 42 2376 PUSHACC 41 2378 PUSHACC 45 2380 PUSHACC 47 2382 PUSHACC 50 2384 PUSHACC 52 2386 PUSHACC 51 2388 PUSHACC 55 2390 PUSHACC 56 2392 PUSHACC 59 2394 PUSHACC 61 2396 PUSHACC 60 2398 PUSHACC 64 2400 PUSHACC 66 2402 PUSHACC 68 2404 PUSHACC 70 2406 MAKEBLOCK 37, 0 2409 POP 36 2411 SETGLOBAL List 2413 BRANCH 2625 2415 CONSTINT 97 2417 PUSHACC1 2418 GEINT 2419 BRANCHIFNOT 2427 2421 CONSTINT 122 2423 PUSHACC1 2424 LEINT 2425 BRANCHIF 2451 2427 CONSTINT 224 2429 PUSHACC1 2430 GEINT 2431 BRANCHIFNOT 2439 2433 CONSTINT 246 2435 PUSHACC1 2436 LEINT 2437 BRANCHIF 2451 2439 CONSTINT 248 2441 PUSHACC1 2442 GEINT 2443 BRANCHIFNOT 2456 2445 CONSTINT 254 2447 PUSHACC1 2448 LEINT 2449 BRANCHIFNOT 2456 2451 ACC0 2452 OFFSETINT -32 2454 RETURN 1 2456 ACC0 2457 RETURN 1 2459 CONSTINT 65 2461 PUSHACC1 2462 GEINT 2463 BRANCHIFNOT 2471 2465 CONSTINT 90 2467 PUSHACC1 2468 LEINT 2469 BRANCHIF 2495 2471 CONSTINT 192 2473 PUSHACC1 2474 GEINT 2475 BRANCHIFNOT 2483 2477 CONSTINT 214 2479 PUSHACC1 2480 LEINT 2481 BRANCHIF 2495 2483 CONSTINT 216 2485 PUSHACC1 2486 GEINT 2487 BRANCHIFNOT 2500 2489 CONSTINT 222 2491 PUSHACC1 2492 LEINT 2493 BRANCHIFNOT 2500 2495 ACC0 2496 OFFSETINT 32 2498 RETURN 1 2500 ACC0 2501 RETURN 1 2503 CONSTINT 39 2505 PUSHACC1 2506 EQ 2507 BRANCHIFNOT 2513 2509 GETGLOBAL "\\'" 2511 RETURN 1 2513 CONSTINT 92 2515 PUSHACC1 2516 EQ 2517 BRANCHIFNOT 2523 2519 GETGLOBAL "\\\\" 2521 RETURN 1 2523 CONSTINT 13 2525 PUSHACC1 2526 EQ 2527 BRANCHIFNOT 2533 2529 GETGLOBAL "\\n" 2531 RETURN 1 2533 CONSTINT 9 2535 PUSHACC1 2536 EQ 2537 BRANCHIFNOT 2543 2539 GETGLOBAL "\\t" 2541 RETURN 1 2543 ACC0 2544 C_CALL1 is_printable 2546 BRANCHIFNOT 2558 2548 CONST1 2549 C_CALL1 create_string 2551 PUSHACC1 2552 PUSHCONST0 2553 PUSHACC2 2554 SETSTRINGCHAR 2555 ACC0 2556 RETURN 2 2558 ACC0 2559 PUSHCONSTINT 4 2561 C_CALL1 create_string 2563 PUSHCONSTINT 92 2565 PUSHCONST0 2566 PUSHACC2 2567 SETSTRINGCHAR 2568 CONSTINT 100 2570 PUSHACC2 2571 DIVINT 2572 PUSHCONSTINT 48 2574 ADDINT 2575 PUSHCONST1 2576 PUSHACC2 2577 SETSTRINGCHAR 2578 CONSTINT 10 2580 PUSHCONSTINT 10 2582 PUSHACC3 2583 DIVINT 2584 MODINT 2585 PUSHCONSTINT 48 2587 ADDINT 2588 PUSHCONST2 2589 PUSHACC2 2590 SETSTRINGCHAR 2591 CONSTINT 10 2593 PUSHACC2 2594 MODINT 2595 PUSHCONSTINT 48 2597 ADDINT 2598 PUSHCONST3 2599 PUSHACC2 2600 SETSTRINGCHAR 2601 ACC0 2602 RETURN 3 2604 CONST0 2605 PUSHACC1 2606 LTINT 2607 BRANCHIF 2615 2609 CONSTINT 255 2611 PUSHACC1 2612 GTINT 2613 BRANCHIFNOT 2622 2615 GETGLOBAL "Char.chr" 2617 PUSHGETGLOBALFIELD Pervasives, 2 2620 APPTERM1 2 2622 ACC0 2623 RETURN 1 2625 CLOSURE 0, 2604 2628 PUSH 2629 CLOSURE 0, 2503 2632 PUSH 2633 CLOSURE 0, 2459 2636 PUSH 2637 CLOSURE 0, 2415 2640 PUSHACC0 2641 PUSHACC2 2642 PUSHACC4 2643 PUSHACC6 2644 MAKEBLOCK 4, 0 2647 POP 4 2649 SETGLOBAL Char 2651 BRANCH 3543 2653 RESTART 2654 GRAB 3 2656 ACC1 2657 PUSHACC3 2658 GEINT 2659 BRANCHIFNOT 2666 2661 GETGLOBAL Not_found 2663 MAKEBLOCK1 0 2665 RAISE 2666 ACC3 2667 PUSHACC3 2668 PUSHACC2 2669 GETSTRINGCHAR 2670 EQ 2671 BRANCHIFNOT 2676 2673 ACC2 2674 RETURN 4 2676 ACC3 2677 PUSHACC3 2678 OFFSETINT 1 2680 PUSHACC3 2681 PUSHACC3 2682 PUSHOFFSETCLOSURE0 2683 APPTERM 4, 8 2686 RESTART 2687 GRAB 2 2689 CONST0 2690 PUSHACC2 2691 LTINT 2692 BRANCHIFNOT 2699 2694 GETGLOBAL Not_found 2696 MAKEBLOCK1 0 2698 RAISE 2699 ACC2 2700 PUSHACC2 2701 PUSHACC2 2702 GETSTRINGCHAR 2703 EQ 2704 BRANCHIFNOT 2709 2706 ACC1 2707 RETURN 3 2709 ACC2 2710 PUSHACC2 2711 OFFSETINT -1 2713 PUSHACC2 2714 PUSHOFFSETCLOSURE0 2715 APPTERM3 6 2717 RESTART 2718 GRAB 1 2720 ACC1 2721 PUSHCONST0 2722 PUSHACC2 2723 PUSHENVACC1 2724 APPTERM3 5 2726 RESTART 2727 GRAB 2 2729 CONST0 2730 PUSHACC2 2731 LTINT 2732 BRANCHIF 2741 2734 ACC0 2735 C_CALL1 ml_string_length 2737 PUSHACC2 2738 GEINT 2739 BRANCHIFNOT 2748 2741 GETGLOBAL "String.rcontains_from" 2743 PUSHGETGLOBALFIELD Pervasives, 2 2746 APPTERM1 4 2748 PUSHTRAP 2759 2750 ACC6 2751 PUSHACC6 2752 PUSHACC6 2753 PUSHENVACC1 2754 APPLY3 2755 CONST1 2756 POPTRAP 2757 RETURN 3 2759 PUSHGETGLOBAL Not_found 2761 PUSHACC1 2762 GETFIELD0 2763 EQ 2764 BRANCHIFNOT 2769 2766 CONST0 2767 RETURN 4 2769 ACC0 2770 RAISE 2771 RESTART 2772 GRAB 2 2774 CONST0 2775 PUSHACC2 2776 LTINT 2777 BRANCHIF 2786 2779 ACC0 2780 C_CALL1 ml_string_length 2782 PUSHACC2 2783 GTINT 2784 BRANCHIFNOT 2793 2786 GETGLOBAL "String.contains_from" 2788 PUSHGETGLOBALFIELD Pervasives, 2 2791 APPTERM1 4 2793 PUSHTRAP 2814 2795 PUSH_RETADDR 2810 2797 ACC 9 2799 PUSHACC 9 2801 PUSHACC 9 2803 C_CALL1 ml_string_length 2805 PUSHACC 10 2807 PUSHENVACC1 2808 APPLY 4 2810 CONST1 2811 POPTRAP 2812 RETURN 3 2814 PUSHGETGLOBAL Not_found 2816 PUSHACC1 2817 GETFIELD0 2818 EQ 2819 BRANCHIFNOT 2824 2821 CONST0 2822 RETURN 4 2824 ACC0 2825 RAISE 2826 RESTART 2827 GRAB 2 2829 CONST0 2830 PUSHACC2 2831 LTINT 2832 BRANCHIF 2841 2834 ACC0 2835 C_CALL1 ml_string_length 2837 PUSHACC2 2838 GEINT 2839 BRANCHIFNOT 2848 2841 GETGLOBAL "String.rindex_from" 2843 PUSHGETGLOBALFIELD Pervasives, 2 2846 APPTERM1 4 2848 ACC2 2849 PUSHACC2 2850 PUSHACC2 2851 PUSHENVACC1 2852 APPTERM3 6 2854 RESTART 2855 GRAB 1 2857 ACC1 2858 PUSHACC1 2859 C_CALL1 ml_string_length 2861 OFFSETINT -1 2863 PUSHACC2 2864 PUSHENVACC1 2865 APPTERM3 5 2867 RESTART 2868 GRAB 2 2870 CONST0 2871 PUSHACC2 2872 LTINT 2873 BRANCHIF 2882 2875 ACC0 2876 C_CALL1 ml_string_length 2878 PUSHACC2 2879 GTINT 2880 BRANCHIFNOT 2889 2882 GETGLOBAL "String.index_from" 2884 PUSHGETGLOBALFIELD Pervasives, 2 2887 APPTERM1 4 2889 ACC2 2890 PUSHACC2 2891 PUSHACC2 2892 C_CALL1 ml_string_length 2894 PUSHACC3 2895 PUSHENVACC1 2896 APPTERM 4, 7 2899 RESTART 2900 GRAB 1 2902 ACC1 2903 PUSHCONST0 2904 PUSHACC2 2905 C_CALL1 ml_string_length 2907 PUSHACC3 2908 PUSHENVACC1 2909 APPTERM 4, 6 2912 ACC0 2913 PUSHGETGLOBALFIELD Char, 2 2916 PUSHENVACC1 2917 APPTERM2 3 2919 ACC0 2920 PUSHGETGLOBALFIELD Char, 3 2923 PUSHENVACC1 2924 APPTERM2 3 2926 RESTART 2927 GRAB 1 2929 CONST0 2930 PUSHACC2 2931 C_CALL1 ml_string_length 2933 EQ 2934 BRANCHIFNOT 2939 2936 ACC1 2937 RETURN 2 2939 ACC1 2940 PUSHENVACC1 2941 APPLY1 2942 PUSHCONST0 2943 PUSHACC3 2944 GETSTRINGCHAR 2945 PUSHACC2 2946 APPLY1 2947 PUSHCONST0 2948 PUSHACC2 2949 SETSTRINGCHAR 2950 ACC0 2951 RETURN 3 2953 ACC0 2954 PUSHGETGLOBALFIELD Char, 2 2957 PUSHENVACC1 2958 APPTERM2 3 2960 ACC0 2961 PUSHGETGLOBALFIELD Char, 3 2964 PUSHENVACC1 2965 APPTERM2 3 2967 RESTART 2968 GRAB 1 2970 ACC1 2971 C_CALL1 ml_string_length 2973 PUSHCONST0 2974 PUSHACC1 2975 EQ 2976 BRANCHIFNOT 2981 2978 ACC2 2979 RETURN 3 2981 ACC0 2982 C_CALL1 create_string 2984 PUSHCONST0 2985 PUSHACC2 2986 OFFSETINT -1 2988 PUSH 2989 BRANCH 3005 2991 CHECK_SIGNALS 2992 ACC1 2993 PUSHACC6 2994 GETSTRINGCHAR 2995 PUSHACC5 2996 APPLY1 2997 PUSHACC2 2998 PUSHACC4 2999 SETSTRINGCHAR 3000 ACC1 3001 OFFSETINT 1 3003 ASSIGN 1 3005 ACC0 3006 PUSHACC2 3007 LEINT 3008 BRANCHIF 2991 3010 CONST0 3011 POP 2 3013 ACC0 3014 RETURN 4 3016 CONST0 3017 PUSHCONST0 3018 PUSHACC2 3019 C_CALL1 ml_string_length 3021 OFFSETINT -1 3023 PUSH 3024 BRANCH 3062 3026 CHECK_SIGNALS 3027 ACC1 3028 PUSHACC4 3029 GETSTRINGCHAR 3030 PUSHACC0 3031 PUSHGETGLOBAL "\000\"\000\000\004\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000" 3033 C_CALL2 bitvect_test 3035 BRANCHIFNOT 3041 3037 CONST0 3038 CONST2 3039 BRANCH 3051 3041 ACC0 3042 C_CALL1 is_printable 3044 BRANCHIFNOT 3049 3046 CONST1 3047 BRANCH 3051 3049 CONSTINT 4 3051 POP 1 3053 PUSHACC3 3054 ADDINT 3055 ASSIGN 2 3057 ACC1 3058 OFFSETINT 1 3060 ASSIGN 1 3062 ACC0 3063 PUSHACC2 3064 LEINT 3065 BRANCHIF 3026 3067 CONST0 3068 POP 2 3070 ACC1 3071 C_CALL1 ml_string_length 3073 PUSHACC1 3074 EQ 3075 BRANCHIFNOT 3080 3077 ACC1 3078 RETURN 2 3080 ACC0 3081 C_CALL1 create_string 3083 PUSHCONST0 3084 ASSIGN 1 3086 CONST0 3087 PUSHACC3 3088 C_CALL1 ml_string_length 3090 OFFSETINT -1 3092 PUSH 3093 BRANCH 3248 3095 CHECK_SIGNALS 3096 ACC1 3097 PUSHACC5 3098 GETSTRINGCHAR 3099 PUSHACC0 3100 PUSHGETGLOBAL "\000\000\000\000\004\000\000\000\000\000\000\016\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000" 3102 C_CALL2 bitvect_test 3104 BRANCHIFNOT 3123 3106 CONST0 3107 CONSTINT 92 3109 PUSHACC5 3110 PUSHACC5 3111 SETSTRINGCHAR 3112 ACC4 3113 OFFSETINT 1 3115 ASSIGN 4 3117 ACC0 3118 PUSHACC5 3119 PUSHACC5 3120 SETSTRINGCHAR 3121 BRANCH 3236 3123 CONSTINT 13 3125 PUSHACC1 3126 EQ 3127 BRANCHIFNOT 3146 3129 CONSTINT 92 3131 PUSHACC5 3132 PUSHACC5 3133 SETSTRINGCHAR 3134 ACC4 3135 OFFSETINT 1 3137 ASSIGN 4 3139 CONSTINT 110 3141 PUSHACC5 3142 PUSHACC5 3143 SETSTRINGCHAR 3144 BRANCH 3236 3146 CONSTINT 9 3148 PUSHACC1 3149 EQ 3150 BRANCHIFNOT 3169 3152 CONSTINT 92 3154 PUSHACC5 3155 PUSHACC5 3156 SETSTRINGCHAR 3157 ACC4 3158 OFFSETINT 1 3160 ASSIGN 4 3162 CONSTINT 116 3164 PUSHACC5 3165 PUSHACC5 3166 SETSTRINGCHAR 3167 BRANCH 3236 3169 ACC0 3170 C_CALL1 is_printable 3172 BRANCHIFNOT 3180 3174 ACC0 3175 PUSHACC5 3176 PUSHACC5 3177 SETSTRINGCHAR 3178 BRANCH 3236 3180 ACC0 3181 PUSHCONSTINT 92 3183 PUSHACC6 3184 PUSHACC6 3185 SETSTRINGCHAR 3186 ACC5 3187 OFFSETINT 1 3189 ASSIGN 5 3191 CONSTINT 100 3193 PUSHACC1 3194 DIVINT 3195 PUSHCONSTINT 48 3197 ADDINT 3198 PUSHACC6 3199 PUSHACC6 3200 SETSTRINGCHAR 3201 ACC5 3202 OFFSETINT 1 3204 ASSIGN 5 3206 CONSTINT 10 3208 PUSHCONSTINT 10 3210 PUSHACC2 3211 DIVINT 3212 MODINT 3213 PUSHCONSTINT 48 3215 ADDINT 3216 PUSHACC6 3217 PUSHACC6 3218 SETSTRINGCHAR 3219 ACC5 3220 OFFSETINT 1 3222 ASSIGN 5 3224 CONSTINT 10 3226 PUSHACC1 3227 MODINT 3228 PUSHCONSTINT 48 3230 ADDINT 3231 PUSHACC6 3232 PUSHACC6 3233 SETSTRINGCHAR 3234 POP 1 3236 POP 1 3238 ACC3 3239 OFFSETINT 1 3241 ASSIGN 3 3243 ACC1 3244 OFFSETINT 1 3246 ASSIGN 1 3248 ACC0 3249 PUSHACC2 3250 LEINT 3251 BRANCHIF 3095 3253 CONST0 3254 POP 2 3256 ACC0 3257 RETURN 3 3259 ENVACC1 3260 C_CALL1 ml_string_length 3262 PUSHENVACC3 3263 GETFIELD0 3264 PUSHENVACC2 3265 PUSHCONST0 3266 PUSHENVACC1 3267 C_CALL5 blit_string 3269 ENVACC1 3270 C_CALL1 ml_string_length 3272 PUSHENVACC3 3273 GETFIELD0 3274 ADDINT 3275 PUSHENVACC3 3276 SETFIELD0 3277 ACC0 3278 C_CALL1 ml_string_length 3280 PUSHENVACC3 3281 GETFIELD0 3282 PUSHENVACC2 3283 PUSHCONST0 3284 PUSHACC4 3285 C_CALL5 blit_string 3287 ACC0 3288 C_CALL1 ml_string_length 3290 PUSHENVACC3 3291 GETFIELD0 3292 ADDINT 3293 PUSHENVACC3 3294 SETFIELD0 3295 RETURN 1 3297 ENVACC1 3298 OFFSETREF 1 3300 ACC0 3301 C_CALL1 ml_string_length 3303 PUSHENVACC2 3304 GETFIELD0 3305 ADDINT 3306 PUSHENVACC2 3307 SETFIELD0 3308 RETURN 1 3310 RESTART 3311 GRAB 1 3313 ACC1 3314 BRANCHIFNOT 3377 3316 ACC1 3317 GETFIELD0 3318 PUSHCONST0 3319 MAKEBLOCK1 0 3321 PUSHCONST0 3322 MAKEBLOCK1 0 3324 PUSHACC4 3325 PUSHACC1 3326 PUSHACC3 3327 CLOSURE 2, 3297 3330 PUSHGETGLOBALFIELD List, 9 3333 APPLY2 3334 ACC1 3335 GETFIELD0 3336 OFFSETINT -1 3338 PUSHACC4 3339 C_CALL1 ml_string_length 3341 MULINT 3342 PUSHACC1 3343 GETFIELD0 3344 ADDINT 3345 C_CALL1 create_string 3347 PUSHACC3 3348 C_CALL1 ml_string_length 3350 PUSHCONST0 3351 PUSHACC2 3352 PUSHCONST0 3353 PUSHACC7 3354 C_CALL5 blit_string 3356 ACC3 3357 C_CALL1 ml_string_length 3359 MAKEBLOCK1 0 3361 PUSHACC6 3362 GETFIELD1 3363 PUSHACC1 3364 PUSHACC3 3365 PUSHACC 8 3367 CLOSURE 3, 3259 3370 PUSHGETGLOBALFIELD List, 9 3373 APPLY2 3374 ACC1 3375 RETURN 7 3377 GETGLOBAL "" 3379 RETURN 2 3381 RESTART 3382 GRAB 4 3384 CONST0 3385 PUSHACC5 3386 LTINT 3387 BRANCHIF 3417 3389 CONST0 3390 PUSHACC2 3391 LTINT 3392 BRANCHIF 3417 3394 ACC0 3395 C_CALL1 ml_string_length 3397 PUSHACC5 3398 PUSHACC3 3399 ADDINT 3400 GTINT 3401 BRANCHIF 3417 3403 CONST0 3404 PUSHACC4 3405 LTINT 3406 BRANCHIF 3417 3408 ACC2 3409 C_CALL1 ml_string_length 3411 PUSHACC5 3412 PUSHACC5 3413 ADDINT 3414 GTINT 3415 BRANCHIFNOT 3424 3417 GETGLOBAL "String.blit" 3419 PUSHGETGLOBALFIELD Pervasives, 2 3422 APPTERM1 6 3424 ACC4 3425 PUSHACC4 3426 PUSHACC4 3427 PUSHACC4 3428 PUSHACC4 3429 C_CALL5 blit_string 3431 RETURN 5 3433 RESTART 3434 GRAB 3 3436 CONST0 3437 PUSHACC2 3438 LTINT 3439 BRANCHIF 3455 3441 CONST0 3442 PUSHACC3 3443 LTINT 3444 BRANCHIF 3455 3446 ACC0 3447 C_CALL1 ml_string_length 3449 PUSHACC3 3450 PUSHACC3 3451 ADDINT 3452 GTINT 3453 BRANCHIFNOT 3462 3455 GETGLOBAL "String.fill" 3457 PUSHGETGLOBALFIELD Pervasives, 2 3460 APPTERM1 5 3462 ACC3 3463 PUSHACC3 3464 PUSHACC3 3465 PUSHACC3 3466 C_CALL4 fill_string 3468 RETURN 4 3470 RESTART 3471 GRAB 2 3473 CONST0 3474 PUSHACC2 3475 LTINT 3476 BRANCHIF 3492 3478 CONST0 3479 PUSHACC3 3480 LTINT 3481 BRANCHIF 3492 3483 ACC0 3484 C_CALL1 ml_string_length 3486 PUSHACC3 3487 PUSHACC3 3488 ADDINT 3489 GTINT 3490 BRANCHIFNOT 3499 3492 GETGLOBAL "String.sub" 3494 PUSHGETGLOBALFIELD Pervasives, 2 3497 APPTERM1 4 3499 ACC2 3500 C_CALL1 create_string 3502 PUSHACC3 3503 PUSHCONST0 3504 PUSHACC2 3505 PUSHACC5 3506 PUSHACC5 3507 C_CALL5 blit_string 3509 ACC0 3510 RETURN 4 3512 ACC0 3513 C_CALL1 ml_string_length 3515 PUSHACC0 3516 C_CALL1 create_string 3518 PUSHACC1 3519 PUSHCONST0 3520 PUSHACC2 3521 PUSHCONST0 3522 PUSHACC6 3523 C_CALL5 blit_string 3525 ACC0 3526 RETURN 3 3528 RESTART 3529 GRAB 1 3531 ACC0 3532 C_CALL1 create_string 3534 PUSHACC2 3535 PUSHACC2 3536 PUSHCONST0 3537 PUSHACC3 3538 C_CALL4 fill_string 3540 ACC0 3541 RETURN 3 3543 CLOSURE 0, 3529 3546 PUSH 3547 CLOSURE 0, 3512 3550 PUSH 3551 CLOSURE 0, 3471 3554 PUSH 3555 CLOSURE 0, 3434 3558 PUSH 3559 CLOSURE 0, 3382 3562 PUSH 3563 CLOSURE 0, 3311 3566 PUSH 3567 CLOSURE 0, 3016 3570 PUSH 3571 CLOSURE 0, 2968 3574 PUSHACC0 3575 CLOSURE 1, 2960 3578 PUSHACC1 3579 CLOSURE 1, 2953 3582 PUSHACC 8 3584 CLOSURE 1, 2927 3587 PUSHACC0 3588 CLOSURE 1, 2919 3591 PUSHACC1 3592 CLOSURE 1, 2912 3595 PUSH 3596 CLOSUREREC 0, 2654 3600 ACC0 3601 CLOSURE 1, 2900 3604 PUSHACC1 3605 CLOSURE 1, 2868 3608 PUSH 3609 CLOSUREREC 0, 2687 3613 ACC0 3614 CLOSURE 1, 2855 3617 PUSHACC1 3618 CLOSURE 1, 2827 3621 PUSHACC5 3622 CLOSURE 1, 2772 3625 PUSHACC3 3626 CLOSURE 1, 2727 3629 PUSHACC1 3630 CLOSURE 1, 2718 3633 PUSHACC 9 3635 PUSHACC 11 3637 PUSHACC 14 3639 PUSHACC 16 3641 PUSHACC5 3642 PUSHACC7 3643 PUSHACC6 3644 PUSHACC 10 3646 PUSHACC 14 3648 PUSHACC 13 3650 PUSHACC 17 3652 PUSHACC 26 3654 PUSHACC 28 3656 PUSHACC 30 3658 PUSHACC 32 3660 PUSHACC 34 3662 PUSHACC 36 3664 PUSHACC 38 3666 MAKEBLOCK 18, 0 3669 POP 22 3671 SETGLOBAL String 3673 GETGLOBAL "" 3675 PUSHCONSTINT 20 3677 C_CALL2 make_vect 3679 PUSHCONSTINT 20 3681 C_CALL1 weak_create 3683 PUSHCONST0 3684 PUSHCONSTINT 19 3686 PUSH 3687 BRANCH 3715 3689 CHECK_SIGNALS 3690 CONSTINT 115 3692 PUSHCONSTINT 20 3694 PUSHGETGLOBALFIELD String, 0 3697 APPLY2 3698 PUSHACC2 3699 PUSHACC5 3700 SETVECTITEM 3701 ACC1 3702 PUSHACC4 3703 GETVECTITEM 3704 MAKEBLOCK1 0 3706 PUSHACC2 3707 PUSHACC4 3708 C_CALL3 weak_set 3710 ACC1 3711 OFFSETINT 1 3713 ASSIGN 1 3715 ACC0 3716 PUSHACC2 3717 LEINT 3718 BRANCHIF 3689 3720 CONST0 3721 POP 2 3723 CONST0 3724 C_CALL1 gc_full_major 3726 CONST0 3727 PUSHCONSTINT 19 3729 PUSH 3730 BRANCH 3753 3732 CHECK_SIGNALS 3733 ACC1 3734 PUSHACC3 3735 C_CALL2 weak_get 3737 PUSHACC0 3738 BRANCHIF 3745 3740 GETGLOBAL Not_found 3742 MAKEBLOCK1 0 3744 RAISE 3745 CONST0 3746 POP 1 3748 ACC1 3749 OFFSETINT 1 3751 ASSIGN 1 3753 ACC0 3754 PUSHACC2 3755 LEINT 3756 BRANCHIF 3732 3758 CONST0 3759 POP 2 3761 CONST0 3762 PUSHCONSTINT 19 3764 PUSH 3765 BRANCH 3785 3767 CHECK_SIGNALS 3768 CONST0 3769 PUSHCONST2 3770 PUSHACC3 3771 MODINT 3772 EQ 3773 BRANCHIFNOT 3780 3775 GETGLOBAL "" 3777 PUSHACC2 3778 PUSHACC5 3779 SETVECTITEM 3780 ACC1 3781 OFFSETINT 1 3783 ASSIGN 1 3785 ACC0 3786 PUSHACC2 3787 LEINT 3788 BRANCHIF 3767 3790 CONST0 3791 POP 2 3793 CONST0 3794 C_CALL1 gc_full_major 3796 CONST0 3797 PUSHCONSTINT 19 3799 PUSH 3800 BRANCH 3854 3802 CHECK_SIGNALS 3803 ACC1 3804 PUSHACC3 3805 C_CALL2 weak_get 3807 PUSHACC0 3808 BRANCHIFNOT 3832 3810 CONST1 3811 PUSHCONST2 3812 PUSHACC4 3813 MODINT 3814 EQ 3815 BRANCHIFNOT 3842 3817 CONSTINT 115 3819 PUSHCONSTINT 5 3821 PUSHACC2 3822 GETFIELD0 3823 GETSTRINGCHAR 3824 NEQ 3825 BRANCHIFNOT 3847 3827 GETGLOBAL Not_found 3829 MAKEBLOCK1 0 3831 RAISE 3832 CONST0 3833 PUSHCONST2 3834 PUSHACC4 3835 MODINT 3836 EQ 3837 BRANCHIFNOT 3842 3839 CONST0 3840 BRANCH 3847 3842 GETGLOBAL Not_found 3844 MAKEBLOCK1 0 3846 RAISE 3847 POP 1 3849 ACC1 3850 OFFSETINT 1 3852 ASSIGN 1 3854 ACC0 3855 PUSHACC2 3856 LEINT 3857 BRANCHIF 3802 3859 CONST0 3860 POP 4 3862 ATOM0 3863 SETGLOBAL T340-weak 3865 STOP **)