open Lib;; let rec f n = if n <= 0 then [] else n :: f (n-1) in let l = f 300 in Gc.minor (); if List.fold_left (+) 0 l <> 301 * 150 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 2441 2415 CONST0 2416 PUSHACC1 2417 LEINT 2418 BRANCHIFNOT 2423 2420 CONST0 2421 RETURN 1 2423 ACC0 2424 OFFSETINT -1 2426 PUSHOFFSETCLOSURE0 2427 APPLY1 2428 PUSHACC1 2429 MAKEBLOCK2 0 2431 RETURN 1 2433 RESTART 2434 GRAB 1 2436 ACC1 2437 PUSHACC1 2438 ADDINT 2439 RETURN 2 2441 CLOSUREREC 0, 2415 2445 CONSTINT 300 2447 PUSHACC1 2448 APPLY1 2449 PUSHCONST0 2450 C_CALL1 gc_minor 2452 CONSTINT 150 2454 PUSHCONSTINT 301 2456 MULINT 2457 PUSHACC1 2458 PUSHCONST0 2459 PUSH 2460 CLOSURE 0, 2434 2463 PUSHGETGLOBALFIELD List, 12 2466 APPLY3 2467 NEQ 2468 BRANCHIFNOT 2475 2470 GETGLOBAL Not_found 2472 MAKEBLOCK1 0 2474 RAISE 2475 POP 2 2477 ATOM0 2478 SETGLOBAL T320-gc-1 2480 STOP **)