open Lib;; let v = Array.make 200000 2 in let t = ref 0 in Array.iter (fun x -> t := !t + x) v; if !t <> 400000 then raise Not_found ;; (** 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 3350 2415 RESTART 2416 GRAB 2 2418 ACC2 2419 PUSHACC2 2420 VECTLENGTH 2421 OFFSETINT -1 2423 PUSHCONST0 2424 PUSH 2425 BRANCH 2442 2427 CHECK_SIGNALS 2428 ACC2 2429 PUSHACC2 2430 PUSHACC6 2431 C_CALL2 array_unsafe_get 2433 PUSHACC5 2434 APPLY2 2435 ASSIGN 2 2437 ACC1 2438 OFFSETINT -1 2440 ASSIGN 1 2442 ACC0 2443 PUSHACC2 2444 GEINT 2445 BRANCHIF 2427 2447 CONST0 2448 POP 2 2450 ACC0 2451 RETURN 4 2453 RESTART 2454 GRAB 2 2456 ACC1 2457 PUSHCONST0 2458 PUSHACC4 2459 VECTLENGTH 2460 OFFSETINT -1 2462 PUSH 2463 BRANCH 2480 2465 CHECK_SIGNALS 2466 ACC1 2467 PUSHACC6 2468 C_CALL2 array_unsafe_get 2470 PUSHACC3 2471 PUSHACC5 2472 APPLY2 2473 ASSIGN 2 2475 ACC1 2476 OFFSETINT 1 2478 ASSIGN 1 2480 ACC0 2481 PUSHACC2 2482 LEINT 2483 BRANCHIF 2465 2485 CONST0 2486 POP 2 2488 ACC0 2489 RETURN 4 2491 RESTART 2492 GRAB 1 2494 ACC1 2495 BRANCHIFNOT 2511 2497 ACC1 2498 GETFIELD0 2499 PUSHACC1 2500 PUSHENVACC1 2501 C_CALL3 array_unsafe_set 2503 ACC1 2504 GETFIELD1 2505 PUSHACC1 2506 OFFSETINT 1 2508 PUSHOFFSETCLOSURE0 2509 APPTERM2 4 2511 ENVACC1 2512 RETURN 2 2514 ACC0 2515 BRANCHIFNOT 2540 2517 ACC0 2518 GETFIELD1 2519 PUSHACC1 2520 GETFIELD0 2521 PUSHACC1 2522 PUSHGETGLOBALFIELD List, 0 2525 APPLY1 2526 OFFSETINT 1 2528 C_CALL2 make_vect 2530 PUSHACC0 2531 CLOSUREREC 1, 2492 2535 ACC2 2536 PUSHCONST1 2537 PUSHACC2 2538 APPTERM2 6 2540 ATOM0 2541 RETURN 1 2543 RESTART 2544 GRAB 1 2546 CONST0 2547 PUSHACC1 2548 LTINT 2549 BRANCHIFNOT 2554 2551 ACC1 2552 RETURN 2 2554 ACC1 2555 PUSHACC1 2556 PUSHENVACC1 2557 C_CALL2 array_unsafe_get 2559 MAKEBLOCK2 0 2561 PUSHACC1 2562 OFFSETINT -1 2564 PUSHOFFSETCLOSURE0 2565 APPTERM2 4 2567 ACC0 2568 CLOSUREREC 1, 2544 2572 CONST0 2573 PUSHACC2 2574 VECTLENGTH 2575 OFFSETINT -1 2577 PUSHACC2 2578 APPTERM2 4 2580 RESTART 2581 GRAB 1 2583 ACC1 2584 VECTLENGTH 2585 PUSHCONST0 2586 PUSHACC1 2587 EQ 2588 BRANCHIFNOT 2593 2590 ATOM0 2591 RETURN 3 2593 CONST0 2594 PUSHACC3 2595 C_CALL2 array_unsafe_get 2597 PUSHCONST0 2598 PUSHACC3 2599 APPLY2 2600 PUSHACC1 2601 C_CALL2 make_vect 2603 PUSHCONST1 2604 PUSHACC2 2605 OFFSETINT -1 2607 PUSH 2608 BRANCH 2627 2610 CHECK_SIGNALS 2611 ACC1 2612 PUSHACC6 2613 C_CALL2 array_unsafe_get 2615 PUSHACC2 2616 PUSHACC6 2617 APPLY2 2618 PUSHACC2 2619 PUSHACC4 2620 C_CALL3 array_unsafe_set 2622 ACC1 2623 OFFSETINT 1 2625 ASSIGN 1 2627 ACC0 2628 PUSHACC2 2629 LEINT 2630 BRANCHIF 2610 2632 CONST0 2633 POP 2 2635 ACC0 2636 RETURN 4 2638 RESTART 2639 GRAB 1 2641 CONST0 2642 PUSHACC2 2643 VECTLENGTH 2644 OFFSETINT -1 2646 PUSH 2647 BRANCH 2662 2649 CHECK_SIGNALS 2650 ACC1 2651 PUSHACC4 2652 C_CALL2 array_unsafe_get 2654 PUSHACC2 2655 PUSHACC4 2656 APPLY2 2657 ACC1 2658 OFFSETINT 1 2660 ASSIGN 1 2662 ACC0 2663 PUSHACC2 2664 LEINT 2665 BRANCHIF 2649 2667 CONST0 2668 RETURN 4 2670 RESTART 2671 GRAB 1 2673 ACC1 2674 VECTLENGTH 2675 PUSHCONST0 2676 PUSHACC1 2677 EQ 2678 BRANCHIFNOT 2683 2680 ATOM0 2681 RETURN 3 2683 CONST0 2684 PUSHACC3 2685 C_CALL2 array_unsafe_get 2687 PUSHACC2 2688 APPLY1 2689 PUSHACC1 2690 C_CALL2 make_vect 2692 PUSHCONST1 2693 PUSHACC2 2694 OFFSETINT -1 2696 PUSH 2697 BRANCH 2715 2699 CHECK_SIGNALS 2700 ACC1 2701 PUSHACC6 2702 C_CALL2 array_unsafe_get 2704 PUSHACC5 2705 APPLY1 2706 PUSHACC2 2707 PUSHACC4 2708 C_CALL3 array_unsafe_set 2710 ACC1 2711 OFFSETINT 1 2713 ASSIGN 1 2715 ACC0 2716 PUSHACC2 2717 LEINT 2718 BRANCHIF 2699 2720 CONST0 2721 POP 2 2723 ACC0 2724 RETURN 4 2726 RESTART 2727 GRAB 1 2729 CONST0 2730 PUSHACC2 2731 VECTLENGTH 2732 OFFSETINT -1 2734 PUSH 2735 BRANCH 2749 2737 CHECK_SIGNALS 2738 ACC1 2739 PUSHACC4 2740 C_CALL2 array_unsafe_get 2742 PUSHACC3 2743 APPLY1 2744 ACC1 2745 OFFSETINT 1 2747 ASSIGN 1 2749 ACC0 2750 PUSHACC2 2751 LEINT 2752 BRANCHIF 2737 2754 CONST0 2755 RETURN 4 2757 RESTART 2758 GRAB 4 2760 CONST0 2761 PUSHACC5 2762 LTINT 2763 BRANCHIF 2791 2765 CONST0 2766 PUSHACC2 2767 LTINT 2768 BRANCHIF 2791 2770 ACC0 2771 VECTLENGTH 2772 PUSHACC5 2773 PUSHACC3 2774 ADDINT 2775 GTINT 2776 BRANCHIF 2791 2778 CONST0 2779 PUSHACC4 2780 LTINT 2781 BRANCHIF 2791 2783 ACC2 2784 VECTLENGTH 2785 PUSHACC5 2786 PUSHACC5 2787 ADDINT 2788 GTINT 2789 BRANCHIFNOT 2798 2791 GETGLOBAL "Array.blit" 2793 PUSHGETGLOBALFIELD Pervasives, 2 2796 APPTERM1 6 2798 ACC3 2799 PUSHACC2 2800 LTINT 2801 BRANCHIFNOT 2836 2803 ACC4 2804 OFFSETINT -1 2806 PUSHCONST0 2807 PUSH 2808 BRANCH 2828 2810 CHECK_SIGNALS 2811 ACC1 2812 PUSHACC4 2813 ADDINT 2814 PUSHACC3 2815 C_CALL2 array_unsafe_get 2817 PUSHACC2 2818 PUSHACC7 2819 ADDINT 2820 PUSHACC6 2821 C_CALL3 array_unsafe_set 2823 ACC1 2824 OFFSETINT -1 2826 ASSIGN 1 2828 ACC0 2829 PUSHACC2 2830 GEINT 2831 BRANCHIF 2810 2833 CONST0 2834 RETURN 7 2836 CONST0 2837 PUSHACC5 2838 OFFSETINT -1 2840 PUSH 2841 BRANCH 2861 2843 CHECK_SIGNALS 2844 ACC1 2845 PUSHACC4 2846 ADDINT 2847 PUSHACC3 2848 C_CALL2 array_unsafe_get 2850 PUSHACC2 2851 PUSHACC7 2852 ADDINT 2853 PUSHACC6 2854 C_CALL3 array_unsafe_set 2856 ACC1 2857 OFFSETINT 1 2859 ASSIGN 1 2861 ACC0 2862 PUSHACC2 2863 LEINT 2864 BRANCHIF 2843 2866 CONST0 2867 RETURN 7 2869 RESTART 2870 GRAB 3 2872 CONST0 2873 PUSHACC2 2874 LTINT 2875 BRANCHIF 2890 2877 CONST0 2878 PUSHACC3 2879 LTINT 2880 BRANCHIF 2890 2882 ACC0 2883 VECTLENGTH 2884 PUSHACC3 2885 PUSHACC3 2886 ADDINT 2887 GTINT 2888 BRANCHIFNOT 2897 2890 GETGLOBAL "Array.fill" 2892 PUSHGETGLOBALFIELD Pervasives, 2 2895 APPTERM1 5 2897 ACC1 2898 PUSHACC3 2899 PUSHACC3 2900 ADDINT 2901 OFFSETINT -1 2903 PUSH 2904 BRANCH 2917 2906 CHECK_SIGNALS 2907 ACC5 2908 PUSHACC2 2909 PUSHACC4 2910 C_CALL3 array_unsafe_set 2912 ACC1 2913 OFFSETINT 1 2915 ASSIGN 1 2917 ACC0 2918 PUSHACC2 2919 LEINT 2920 BRANCHIF 2906 2922 CONST0 2923 RETURN 6 2925 RESTART 2926 GRAB 2 2928 CONST0 2929 PUSHACC2 2930 LTINT 2931 BRANCHIF 2946 2933 CONST0 2934 PUSHACC3 2935 LTINT 2936 BRANCHIF 2946 2938 ACC0 2939 VECTLENGTH 2940 PUSHACC3 2941 PUSHACC3 2942 ADDINT 2943 GTINT 2944 BRANCHIFNOT 2953 2946 GETGLOBAL "Array.sub" 2948 PUSHGETGLOBALFIELD Pervasives, 2 2951 APPTERM1 4 2953 CONST0 2954 PUSHACC3 2955 EQ 2956 BRANCHIFNOT 2961 2958 ATOM0 2959 RETURN 3 2961 ACC1 2962 PUSHACC1 2963 C_CALL2 array_unsafe_get 2965 PUSHACC3 2966 C_CALL2 make_vect 2968 PUSHCONST1 2969 PUSHACC4 2970 OFFSETINT -1 2972 PUSH 2973 BRANCH 2991 2975 CHECK_SIGNALS 2976 ACC1 2977 PUSHACC5 2978 ADDINT 2979 PUSHACC4 2980 C_CALL2 array_unsafe_get 2982 PUSHACC2 2983 PUSHACC4 2984 C_CALL3 array_unsafe_set 2986 ACC1 2987 OFFSETINT 1 2989 ASSIGN 1 2991 ACC0 2992 PUSHACC2 2993 LEINT 2994 BRANCHIF 2975 2996 CONST0 2997 POP 2 2999 ACC0 3000 RETURN 4 3002 ACC0 3003 BRANCHIFNOT 3026 3005 ACC0 3006 GETFIELD0 3007 PUSHCONST0 3008 PUSHACC1 3009 VECTLENGTH 3010 GTINT 3011 BRANCHIFNOT 3021 3013 ENVACC2 3014 PUSHCONST0 3015 PUSHACC2 3016 C_CALL2 array_unsafe_get 3018 PUSHENVACC1 3019 APPTERM2 4 3021 ACC1 3022 GETFIELD1 3023 PUSHOFFSETCLOSURE0 3024 APPTERM1 3 3026 ATOM0 3027 RETURN 1 3029 ACC0 3030 PUSHENVACC1 3031 CLOSUREREC 2, 3002 3035 ACC1 3036 PUSHACC1 3037 APPTERM1 3 3039 CONST0 3040 PUSHACC1 3041 VECTLENGTH 3042 OFFSETINT -1 3044 PUSH 3045 BRANCH 3065 3047 CHECK_SIGNALS 3048 ACC1 3049 PUSHACC3 3050 C_CALL2 array_unsafe_get 3052 PUSHENVACC2 3053 GETFIELD0 3054 PUSHENVACC1 3055 C_CALL3 array_unsafe_set 3057 ENVACC2 3058 OFFSETREF 1 3060 ACC1 3061 OFFSETINT 1 3063 ASSIGN 1 3065 ACC0 3066 PUSHACC2 3067 LEINT 3068 BRANCHIF 3047 3070 CONST0 3071 RETURN 3 3073 RESTART 3074 GRAB 1 3076 ACC1 3077 VECTLENGTH 3078 PUSHACC1 3079 ADDINT 3080 RETURN 2 3082 RESTART 3083 GRAB 1 3085 ACC1 3086 PUSHCONST0 3087 PUSH 3088 CLOSURE 0, 3074 3091 PUSHGETGLOBALFIELD List, 12 3094 APPLY3 3095 PUSHACC1 3096 PUSHACC1 3097 C_CALL2 make_vect 3099 PUSHCONST0 3100 MAKEBLOCK1 0 3102 PUSHACC4 3103 PUSHACC1 3104 PUSHACC3 3105 CLOSURE 2, 3039 3108 PUSHGETGLOBALFIELD List, 9 3111 APPLY2 3112 ACC1 3113 RETURN 5 3115 RESTART 3116 GRAB 1 3118 ACC0 3119 VECTLENGTH 3120 PUSHACC2 3121 VECTLENGTH 3122 PUSHCONST0 3123 PUSHACC2 3124 EQ 3125 BRANCHIFNOT 3135 3127 CONST0 3128 PUSHACC1 3129 EQ 3130 BRANCHIFNOT 3135 3132 ATOM0 3133 RETURN 4 3135 CONST0 3136 PUSHCONST0 3137 PUSHACC3 3138 GTINT 3139 BRANCHIFNOT 3144 3141 ACC3 3142 BRANCH 3145 3144 ACC4 3145 C_CALL2 array_unsafe_get 3147 PUSHACC1 3148 PUSHACC3 3149 ADDINT 3150 C_CALL2 make_vect 3152 PUSHCONST0 3153 PUSHACC3 3154 OFFSETINT -1 3156 PUSH 3157 BRANCH 3173 3159 CHECK_SIGNALS 3160 ACC1 3161 PUSHACC6 3162 C_CALL2 array_unsafe_get 3164 PUSHACC2 3165 PUSHACC4 3166 C_CALL3 array_unsafe_set 3168 ACC1 3169 OFFSETINT 1 3171 ASSIGN 1 3173 ACC0 3174 PUSHACC2 3175 LEINT 3176 BRANCHIF 3159 3178 CONST0 3179 POP 2 3181 CONST0 3182 PUSHACC2 3183 OFFSETINT -1 3185 PUSH 3186 BRANCH 3204 3188 CHECK_SIGNALS 3189 ACC1 3190 PUSHACC7 3191 C_CALL2 array_unsafe_get 3193 PUSHACC5 3194 PUSHACC3 3195 ADDINT 3196 PUSHACC4 3197 C_CALL3 array_unsafe_set 3199 ACC1 3200 OFFSETINT 1 3202 ASSIGN 1 3204 ACC0 3205 PUSHACC2 3206 LEINT 3207 BRANCHIF 3188 3209 CONST0 3210 POP 2 3212 ACC0 3213 RETURN 5 3215 ACC0 3216 VECTLENGTH 3217 PUSHCONST0 3218 PUSHACC1 3219 EQ 3220 BRANCHIFNOT 3225 3222 ATOM0 3223 RETURN 2 3225 CONST0 3226 PUSHACC2 3227 C_CALL2 array_unsafe_get 3229 PUSHACC1 3230 C_CALL2 make_vect 3232 PUSHCONST1 3233 PUSHACC2 3234 OFFSETINT -1 3236 PUSH 3237 BRANCH 3253 3239 CHECK_SIGNALS 3240 ACC1 3241 PUSHACC5 3242 C_CALL2 array_unsafe_get 3244 PUSHACC2 3245 PUSHACC4 3246 C_CALL3 array_unsafe_set 3248 ACC1 3249 OFFSETINT 1 3251 ASSIGN 1 3253 ACC0 3254 PUSHACC2 3255 LEINT 3256 BRANCHIF 3239 3258 CONST0 3259 POP 2 3261 ACC0 3262 RETURN 3 3264 RESTART 3265 GRAB 2 3267 ATOM0 3268 PUSHACC1 3269 C_CALL2 make_vect 3271 PUSHCONST0 3272 PUSHACC2 3273 OFFSETINT -1 3275 PUSH 3276 BRANCH 3291 3278 CHECK_SIGNALS 3279 ACC5 3280 PUSHACC5 3281 C_CALL2 make_vect 3283 PUSHACC2 3284 PUSHACC4 3285 SETVECTITEM 3286 ACC1 3287 OFFSETINT 1 3289 ASSIGN 1 3291 ACC0 3292 PUSHACC2 3293 LEINT 3294 BRANCHIF 3278 3296 CONST0 3297 POP 2 3299 ACC0 3300 RETURN 4 3302 RESTART 3303 GRAB 1 3305 CONST0 3306 PUSHACC1 3307 EQ 3308 BRANCHIFNOT 3313 3310 ATOM0 3311 RETURN 2 3313 CONST0 3314 PUSHACC2 3315 APPLY1 3316 PUSHACC1 3317 C_CALL2 make_vect 3319 PUSHCONST1 3320 PUSHACC2 3321 OFFSETINT -1 3323 PUSH 3324 BRANCH 3339 3326 CHECK_SIGNALS 3327 ACC1 3328 PUSHACC5 3329 APPLY1 3330 PUSHACC2 3331 PUSHACC4 3332 C_CALL3 array_unsafe_set 3334 ACC1 3335 OFFSETINT 1 3337 ASSIGN 1 3339 ACC0 3340 PUSHACC2 3341 LEINT 3342 BRANCHIF 3326 3344 CONST0 3345 POP 2 3347 ACC0 3348 RETURN 3 3350 CLOSURE 0, 3303 3353 PUSH 3354 CLOSURE 0, 3265 3357 PUSH 3358 CLOSURE 0, 3215 3361 PUSH 3362 CLOSURE 0, 3116 3365 PUSH 3366 CLOSURE 0, 3083 3369 PUSHACC0 3370 CLOSURE 1, 3029 3373 PUSH 3374 CLOSURE 0, 2926 3377 PUSH 3378 CLOSURE 0, 2870 3381 PUSH 3382 CLOSURE 0, 2758 3385 PUSH 3386 CLOSURE 0, 2727 3389 PUSH 3390 CLOSURE 0, 2671 3393 PUSH 3394 CLOSURE 0, 2639 3397 PUSH 3398 CLOSURE 0, 2581 3401 PUSH 3402 CLOSURE 0, 2567 3405 PUSH 3406 CLOSURE 0, 2514 3409 PUSH 3410 CLOSURE 0, 2454 3413 PUSH 3414 CLOSURE 0, 2416 3417 PUSHACC0 3418 PUSHACC2 3419 PUSHACC6 3420 PUSHACC 8 3422 PUSHACC 10 3424 PUSHACC 12 3426 PUSHACC 8 3428 PUSHACC 10 3430 PUSHACC 16 3432 PUSHACC 18 3434 PUSHACC 24 3436 PUSHACC 21 3438 PUSHACC 23 3440 PUSHACC 26 3442 PUSHACC 29 3444 PUSHACC 30 3446 PUSHACC 32 3448 MAKEBLOCK 17, 0 3451 POP 17 3453 SETGLOBAL Array 3455 BRANCH 3465 3457 ACC0 3458 PUSHENVACC1 3459 GETFIELD0 3460 ADDINT 3461 PUSHENVACC1 3462 SETFIELD0 3463 RETURN 1 3465 CONST2 3466 PUSHCONSTINT 200000 3468 C_CALL2 make_vect 3470 PUSHCONST0 3471 MAKEBLOCK1 0 3473 PUSHACC1 3474 PUSHACC1 3475 CLOSURE 1, 3457 3478 PUSHGETGLOBALFIELD Array, 11 3481 APPLY2 3482 CONSTINT 400000 3484 PUSHACC1 3485 GETFIELD0 3486 NEQ 3487 BRANCHIFNOT 3494 3489 GETGLOBAL Not_found 3491 MAKEBLOCK1 0 3493 RAISE 3494 POP 2 3496 ATOM0 3497 SETGLOBAL T310-alloc-2 3499 STOP **)