summaryrefslogtreecommitdiff
path: root/ocaml-binary-annot/testsuite/tests/tool-ocaml/t320-gc-3.ml
diff options
context:
space:
mode:
Diffstat (limited to 'ocaml-binary-annot/testsuite/tests/tool-ocaml/t320-gc-3.ml')
-rw-r--r--ocaml-binary-annot/testsuite/tests/tool-ocaml/t320-gc-3.ml1589
1 files changed, 1589 insertions, 0 deletions
diff --git a/ocaml-binary-annot/testsuite/tests/tool-ocaml/t320-gc-3.ml b/ocaml-binary-annot/testsuite/tests/tool-ocaml/t320-gc-3.ml
new file mode 100644
index 0000000000..7c33d2fd16
--- /dev/null
+++ b/ocaml-binary-annot/testsuite/tests/tool-ocaml/t320-gc-3.ml
@@ -0,0 +1,1589 @@
+open Lib;;
+let rec f n =
+ if n <= 0 then []
+ else n :: f (n-1)
+in
+let l = f 300 in
+Gc.full_major ();
+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 746
+ 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 RESTART
+ 148 GRAB 1
+ 150 ACC1
+ 151 PUSHACC1
+ 152 C_CALL2 caml_output_char
+ 154 RETURN 2
+ 156 RESTART
+ 157 GRAB 1
+ 159 ACC1
+ 160 PUSHACC1
+ 161 C_CALL2 caml_output_char
+ 163 RETURN 2
+ 165 RESTART
+ 166 GRAB 1
+ 168 ACC1
+ 169 PUSHACC1
+ 170 C_CALL2 caml_output_int
+ 172 RETURN 2
+ 174 RESTART
+ 175 GRAB 1
+ 177 ACC1
+ 178 PUSHACC1
+ 179 C_CALL2 caml_seek_out
+ 181 RETURN 2
+ 183 ACC0
+ 184 C_CALL1 caml_pos_out
+ 186 RETURN 1
+ 188 ACC0
+ 189 C_CALL1 caml_channel_size
+ 191 RETURN 1
+ 193 RESTART
+ 194 GRAB 1
+ 196 ACC1
+ 197 PUSHACC1
+ 198 C_CALL2 caml_set_binary_mode
+ 200 RETURN 2
+ 202 ACC0
+ 203 C_CALL1 caml_input_char
+ 205 RETURN 1
+ 207 ACC0
+ 208 C_CALL1 caml_input_char
+ 210 RETURN 1
+ 212 ACC0
+ 213 C_CALL1 caml_input_int
+ 215 RETURN 1
+ 217 ACC0
+ 218 C_CALL1 input_value
+ 220 RETURN 1
+ 222 RESTART
+ 223 GRAB 1
+ 225 ACC1
+ 226 PUSHACC1
+ 227 C_CALL2 caml_seek_in
+ 229 RETURN 2
+ 231 ACC0
+ 232 C_CALL1 caml_pos_in
+ 234 RETURN 1
+ 236 ACC0
+ 237 C_CALL1 caml_channel_size
+ 239 RETURN 1
+ 241 ACC0
+ 242 C_CALL1 caml_close_channel
+ 244 RETURN 1
+ 246 RESTART
+ 247 GRAB 1
+ 249 ACC1
+ 250 PUSHACC1
+ 251 C_CALL2 caml_set_binary_mode
+ 253 RETURN 2
+ 255 CONST0
+ 256 PUSHENVACC1
+ 257 APPLY1
+ 258 ACC0
+ 259 C_CALL1 sys_exit
+ 261 RETURN 1
+ 263 CONST0
+ 264 PUSHENVACC1
+ 265 GETFIELD0
+ 266 APPTERM1 2
+ 268 CONST0
+ 269 PUSHENVACC1
+ 270 APPLY1
+ 271 CONST0
+ 272 PUSHENVACC2
+ 273 APPTERM1 2
+ 275 ENVACC1
+ 276 GETFIELD0
+ 277 PUSHACC0
+ 278 PUSHACC2
+ 279 CLOSURE 2, 268
+ 282 PUSHENVACC1
+ 283 SETFIELD0
+ 284 RETURN 2
+ 286 ENVACC1
+ 287 C_CALL1 caml_flush
+ 289 ENVACC2
+ 290 C_CALL1 caml_flush
+ 292 RETURN 1
+ 294 CONST0
+ 295 PUSHENVACC1
+ 296 APPLY1
+ 297 C_CALL1 float_of_string
+ 299 RETURN 1
+ 301 CONST0
+ 302 PUSHENVACC1
+ 303 APPLY1
+ 304 C_CALL1 int_of_string
+ 306 RETURN 1
+ 308 ENVACC2
+ 309 C_CALL1 caml_flush
+ 311 ENVACC1
+ 312 PUSHENVACC3
+ 313 APPTERM1 2
+ 315 CONSTINT 13
+ 317 PUSHENVACC1
+ 318 C_CALL2 caml_output_char
+ 320 ENVACC1
+ 321 C_CALL1 caml_flush
+ 323 RETURN 1
+ 325 ACC0
+ 326 PUSHENVACC1
+ 327 PUSHENVACC2
+ 328 APPLY2
+ 329 CONSTINT 13
+ 331 PUSHENVACC1
+ 332 C_CALL2 caml_output_char
+ 334 ENVACC1
+ 335 C_CALL1 caml_flush
+ 337 RETURN 1
+ 339 ACC0
+ 340 PUSHENVACC1
+ 341 APPLY1
+ 342 PUSHENVACC2
+ 343 PUSHENVACC3
+ 344 APPTERM2 3
+ 346 ACC0
+ 347 PUSHENVACC1
+ 348 APPLY1
+ 349 PUSHENVACC2
+ 350 PUSHENVACC3
+ 351 APPTERM2 3
+ 353 ACC0
+ 354 PUSHENVACC1
+ 355 PUSHENVACC2
+ 356 APPTERM2 3
+ 358 ACC0
+ 359 PUSHENVACC1
+ 360 C_CALL2 caml_output_char
+ 362 RETURN 1
+ 364 CONSTINT 13
+ 366 PUSHENVACC1
+ 367 C_CALL2 caml_output_char
+ 369 ENVACC1
+ 370 C_CALL1 caml_flush
+ 372 RETURN 1
+ 374 ACC0
+ 375 PUSHENVACC1
+ 376 PUSHENVACC2
+ 377 APPLY2
+ 378 CONSTINT 13
+ 380 PUSHENVACC1
+ 381 C_CALL2 caml_output_char
+ 383 RETURN 1
+ 385 ACC0
+ 386 PUSHENVACC1
+ 387 APPLY1
+ 388 PUSHENVACC2
+ 389 PUSHENVACC3
+ 390 APPTERM2 3
+ 392 ACC0
+ 393 PUSHENVACC1
+ 394 APPLY1
+ 395 PUSHENVACC2
+ 396 PUSHENVACC3
+ 397 APPTERM2 3
+ 399 ACC0
+ 400 PUSHENVACC1
+ 401 PUSHENVACC2
+ 402 APPTERM2 3
+ 404 ACC0
+ 405 PUSHENVACC1
+ 406 C_CALL2 caml_output_char
+ 408 RETURN 1
+ 410 RESTART
+ 411 GRAB 3
+ 413 CONST0
+ 414 PUSHACC3
+ 415 LTINT
+ 416 BRANCHIF 427
+ 418 ACC1
+ 419 C_CALL1 ml_string_length
+ 421 PUSHACC4
+ 422 PUSHACC4
+ 423 ADDINT
+ 424 GTINT
+ 425 BRANCHIFNOT 432
+ 427 GETGLOBAL "really_input"
+ 429 PUSHENVACC1
+ 430 APPTERM1 5
+ 432 ACC3
+ 433 PUSHACC3
+ 434 PUSHACC3
+ 435 PUSHACC3
+ 436 PUSHENVACC2
+ 437 APPTERM 4, 8
+ 440 RESTART
+ 441 GRAB 3
+ 443 CONST0
+ 444 PUSHACC3
+ 445 LTINT
+ 446 BRANCHIF 457
+ 448 ACC1
+ 449 C_CALL1 ml_string_length
+ 451 PUSHACC4
+ 452 PUSHACC4
+ 453 ADDINT
+ 454 GTINT
+ 455 BRANCHIFNOT 462
+ 457 GETGLOBAL "input"
+ 459 PUSHENVACC1
+ 460 APPTERM1 5
+ 462 ACC3
+ 463 PUSHACC3
+ 464 PUSHACC3
+ 465 PUSHACC3
+ 466 C_CALL4 caml_input
+ 468 RETURN 4
+ 470 ACC0
+ 471 PUSHCONST0
+ 472 PUSHGETGLOBAL <0>(0, <0>(6, 0))
+ 474 PUSHENVACC1
+ 475 APPTERM3 4
+ 477 ACC0
+ 478 PUSHCONST0
+ 479 PUSHGETGLOBAL <0>(0, <0>(7, 0))
+ 481 PUSHENVACC1
+ 482 APPTERM3 4
+ 484 RESTART
+ 485 GRAB 2
+ 487 ACC1
+ 488 PUSHACC1
+ 489 PUSHACC4
+ 490 C_CALL3 sys_open
+ 492 C_CALL1 caml_open_descriptor
+ 494 RETURN 3
+ 496 ACC0
+ 497 C_CALL1 caml_flush
+ 499 ACC0
+ 500 C_CALL1 caml_close_channel
+ 502 RETURN 1
+ 504 RESTART
+ 505 GRAB 1
+ 507 CONST0
+ 508 PUSHACC2
+ 509 PUSHACC2
+ 510 C_CALL3 output_value
+ 512 RETURN 2
+ 514 RESTART
+ 515 GRAB 3
+ 517 CONST0
+ 518 PUSHACC3
+ 519 LTINT
+ 520 BRANCHIF 531
+ 522 ACC1
+ 523 C_CALL1 ml_string_length
+ 525 PUSHACC4
+ 526 PUSHACC4
+ 527 ADDINT
+ 528 GTINT
+ 529 BRANCHIFNOT 536
+ 531 GETGLOBAL "output"
+ 533 PUSHENVACC1
+ 534 APPTERM1 5
+ 536 ACC3
+ 537 PUSHACC3
+ 538 PUSHACC3
+ 539 PUSHACC3
+ 540 C_CALL4 caml_output
+ 542 RETURN 4
+ 544 RESTART
+ 545 GRAB 1
+ 547 ACC1
+ 548 C_CALL1 ml_string_length
+ 550 PUSHCONST0
+ 551 PUSHACC3
+ 552 PUSHACC3
+ 553 C_CALL4 caml_output
+ 555 RETURN 2
+ 557 ACC0
+ 558 PUSHCONSTINT 438
+ 560 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(6, 0))))
+ 562 PUSHENVACC1
+ 563 APPTERM3 4
+ 565 ACC0
+ 566 PUSHCONSTINT 438
+ 568 PUSHGETGLOBAL <0>(1, <0>(3, <0>(4, <0>(7, 0))))
+ 570 PUSHENVACC1
+ 571 APPTERM3 4
+ 573 RESTART
+ 574 GRAB 2
+ 576 ACC1
+ 577 PUSHACC1
+ 578 PUSHACC4
+ 579 C_CALL3 sys_open
+ 581 C_CALL1 caml_open_descriptor
+ 583 RETURN 3
+ 585 ACC0
+ 586 PUSHGETGLOBAL "%.12g"
+ 588 C_CALL2 format_float
+ 590 RETURN 1
+ 592 ACC0
+ 593 PUSHGETGLOBAL "%d"
+ 595 C_CALL2 format_int
+ 597 RETURN 1
+ 599 GETGLOBAL "false"
+ 601 PUSHACC1
+ 602 C_CALL2 string_equal
+ 604 BRANCHIFNOT 609
+ 606 CONST0
+ 607 RETURN 1
+ 609 GETGLOBAL "true"
+ 611 PUSHACC1
+ 612 C_CALL2 string_equal
+ 614 BRANCHIFNOT 619
+ 616 CONST1
+ 617 RETURN 1
+ 619 GETGLOBAL "bool_of_string"
+ 621 PUSHENVACC1
+ 622 APPTERM1 2
+ 624 ACC0
+ 625 BRANCHIFNOT 631
+ 627 GETGLOBAL "true"
+ 629 RETURN 1
+ 631 GETGLOBAL "false"
+ 633 RETURN 1
+ 635 CONST0
+ 636 PUSHACC1
+ 637 LTINT
+ 638 BRANCHIF 646
+ 640 CONSTINT 255
+ 642 PUSHACC1
+ 643 GTINT
+ 644 BRANCHIFNOT 651
+ 646 GETGLOBAL "char_of_int"
+ 648 PUSHENVACC1
+ 649 APPTERM1 2
+ 651 ACC0
+ 652 RETURN 1
+ 654 RESTART
+ 655 GRAB 1
+ 657 ACC0
+ 658 C_CALL1 ml_string_length
+ 660 PUSHACC2
+ 661 C_CALL1 ml_string_length
+ 663 PUSHACC0
+ 664 PUSHACC2
+ 665 ADDINT
+ 666 C_CALL1 create_string
+ 668 PUSHACC2
+ 669 PUSHCONST0
+ 670 PUSHACC2
+ 671 PUSHCONST0
+ 672 PUSHACC7
+ 673 C_CALL5 blit_string
+ 675 ACC1
+ 676 PUSHACC3
+ 677 PUSHACC2
+ 678 PUSHCONST0
+ 679 PUSHACC 8
+ 681 C_CALL5 blit_string
+ 683 ACC0
+ 684 RETURN 5
+ 686 CONSTINT -1
+ 688 PUSHACC1
+ 689 XORINT
+ 690 RETURN 1
+ 692 CONST0
+ 693 PUSHACC1
+ 694 GEINT
+ 695 BRANCHIFNOT 700
+ 697 ACC0
+ 698 RETURN 1
+ 700 ACC0
+ 701 NEGINT
+ 702 RETURN 1
+ 704 RESTART
+ 705 GRAB 1
+ 707 ACC1
+ 708 PUSHACC1
+ 709 C_CALL2 greaterequal
+ 711 BRANCHIFNOT 716
+ 713 ACC0
+ 714 RETURN 2
+ 716 ACC1
+ 717 RETURN 2
+ 719 RESTART
+ 720 GRAB 1
+ 722 ACC1
+ 723 PUSHACC1
+ 724 C_CALL2 lessequal
+ 726 BRANCHIFNOT 731
+ 728 ACC0
+ 729 RETURN 2
+ 731 ACC1
+ 732 RETURN 2
+ 734 ACC0
+ 735 PUSHGETGLOBAL Invalid_argument
+ 737 MAKEBLOCK2 0
+ 739 RAISE
+ 740 ACC0
+ 741 PUSHGETGLOBAL Failure
+ 743 MAKEBLOCK2 0
+ 745 RAISE
+ 746 CLOSURE 0, 740
+ 749 PUSH
+ 750 CLOSURE 0, 734
+ 753 PUSHGETGLOBAL "Pervasives.Exit"
+ 755 MAKEBLOCK1 0
+ 757 PUSHGETGLOBAL "Pervasives.Assert_failure"
+ 759 MAKEBLOCK1 0
+ 761 PUSH
+ 762 CLOSURE 0, 720
+ 765 PUSH
+ 766 CLOSURE 0, 705
+ 769 PUSH
+ 770 CLOSURE 0, 692
+ 773 PUSH
+ 774 CLOSURE 0, 686
+ 777 PUSHCONST0
+ 778 PUSHCONSTINT 31
+ 780 PUSHCONST1
+ 781 LSLINT
+ 782 EQ
+ 783 BRANCHIFNOT 789
+ 785 CONSTINT 30
+ 787 BRANCH 791
+ 789 CONSTINT 62
+ 791 PUSHCONST1
+ 792 LSLINT
+ 793 PUSHACC0
+ 794 OFFSETINT -1
+ 796 PUSH
+ 797 CLOSURE 0, 655
+ 800 PUSHACC 9
+ 802 CLOSURE 1, 635
+ 805 PUSH
+ 806 CLOSURE 0, 624
+ 809 PUSHACC 11
+ 811 CLOSURE 1, 599
+ 814 PUSH
+ 815 CLOSURE 0, 592
+ 818 PUSH
+ 819 CLOSURE 0, 585
+ 822 PUSH
+ 823 CLOSUREREC 0, 12
+ 827 CONST0
+ 828 C_CALL1 caml_open_descriptor
+ 830 PUSHCONST1
+ 831 C_CALL1 caml_open_descriptor
+ 833 PUSHCONST2
+ 834 C_CALL1 caml_open_descriptor
+ 836 PUSH
+ 837 CLOSURE 0, 574
+ 840 PUSHACC0
+ 841 CLOSURE 1, 565
+ 844 PUSHACC1
+ 845 CLOSURE 1, 557
+ 848 PUSH
+ 849 CLOSURE 0, 545
+ 852 PUSHACC 22
+ 854 CLOSURE 1, 515
+ 857 PUSH
+ 858 CLOSURE 0, 505
+ 861 PUSH
+ 862 CLOSURE 0, 496
+ 865 PUSH
+ 866 CLOSURE 0, 485
+ 869 PUSHACC0
+ 870 CLOSURE 1, 477
+ 873 PUSHACC1
+ 874 CLOSURE 1, 470
+ 877 PUSHACC 28
+ 879 CLOSURE 1, 441
+ 882 PUSH
+ 883 CLOSUREREC 0, 32
+ 887 ACC0
+ 888 PUSHACC 31
+ 890 CLOSURE 2, 411
+ 893 PUSHACC 22
+ 895 CLOSUREREC 1, 70
+ 899 ACC 15
+ 901 CLOSURE 1, 404
+ 904 PUSHACC 11
+ 906 PUSHACC 17
+ 908 CLOSURE 2, 399
+ 911 PUSHACC 12
+ 913 PUSHACC 18
+ 915 PUSHACC 23
+ 917 CLOSURE 3, 392
+ 920 PUSHACC 13
+ 922 PUSHACC 19
+ 924 PUSHACC 23
+ 926 CLOSURE 3, 385
+ 929 PUSHACC 14
+ 931 PUSHACC 20
+ 933 CLOSURE 2, 374
+ 936 PUSHACC 20
+ 938 CLOSURE 1, 364
+ 941 PUSHACC 20
+ 943 CLOSURE 1, 358
+ 946 PUSHACC 17
+ 948 PUSHACC 22
+ 950 CLOSURE 2, 353
+ 953 PUSHACC 18
+ 955 PUSHACC 23
+ 957 PUSHACC 29
+ 959 CLOSURE 3, 346
+ 962 PUSHACC 19
+ 964 PUSHACC 24
+ 966 PUSHACC 29
+ 968 CLOSURE 3, 339
+ 971 PUSHACC 20
+ 973 PUSHACC 25
+ 975 CLOSURE 2, 325
+ 978 PUSHACC 25
+ 980 CLOSURE 1, 315
+ 983 PUSHACC 12
+ 985 PUSHACC 28
+ 987 PUSHACC 30
+ 989 CLOSURE 3, 308
+ 992 PUSHACC0
+ 993 CLOSURE 1, 301
+ 996 PUSHACC1
+ 997 CLOSURE 1, 294
+ 1000 PUSHACC 29
+ 1002 PUSHACC 31
+ 1004 CLOSURE 2, 286
+ 1007 MAKEBLOCK1 0
+ 1009 PUSHACC0
+ 1010 CLOSURE 1, 275
+ 1013 PUSHACC1
+ 1014 CLOSURE 1, 263
+ 1017 PUSHACC0
+ 1018 CLOSURE 1, 255
+ 1021 PUSHACC1
+ 1022 PUSHACC 22
+ 1024 PUSHACC4
+ 1025 PUSHACC3
+ 1026 PUSH
+ 1027 CLOSURE 0, 247
+ 1030 PUSH
+ 1031 CLOSURE 0, 241
+ 1034 PUSH
+ 1035 CLOSURE 0, 236
+ 1038 PUSH
+ 1039 CLOSURE 0, 231
+ 1042 PUSH
+ 1043 CLOSURE 0, 223
+ 1046 PUSH
+ 1047 CLOSURE 0, 217
+ 1050 PUSH
+ 1051 CLOSURE 0, 212
+ 1054 PUSH
+ 1055 CLOSURE 0, 207
+ 1058 PUSHACC 32
+ 1060 PUSHACC 35
+ 1062 PUSHACC 33
+ 1064 PUSH
+ 1065 CLOSURE 0, 202
+ 1068 PUSHACC 41
+ 1070 PUSHACC 40
+ 1072 PUSHACC 42
+ 1074 PUSH
+ 1075 CLOSURE 0, 194
+ 1078 PUSHACC 46
+ 1080 PUSH
+ 1081 CLOSURE 0, 188
+ 1084 PUSH
+ 1085 CLOSURE 0, 183
+ 1088 PUSH
+ 1089 CLOSURE 0, 175
+ 1092 PUSHACC 51
+ 1094 PUSH
+ 1095 CLOSURE 0, 166
+ 1098 PUSH
+ 1099 CLOSURE 0, 157
+ 1102 PUSHACC 55
+ 1104 PUSHACC 57
+ 1106 PUSH
+ 1107 CLOSURE 0, 148
+ 1110 PUSH
+ 1111 CLOSURE 0, 142
+ 1114 PUSHACC 63
+ 1116 PUSHACC 62
+ 1118 PUSHACC 64
+ 1120 PUSHACC 38
+ 1122 PUSHACC 40
+ 1124 PUSHACC 42
+ 1126 PUSHACC 44
+ 1128 PUSHACC 46
+ 1130 PUSHACC 48
+ 1132 PUSHACC 50
+ 1134 PUSHACC 52
+ 1136 PUSHACC 54
+ 1138 PUSHACC 56
+ 1140 PUSHACC 58
+ 1142 PUSHACC 60
+ 1144 PUSHACC 62
+ 1146 PUSHACC 64
+ 1148 PUSHACC 66
+ 1150 PUSHACC 82
+ 1152 PUSHACC 84
+ 1154 PUSHACC 86
+ 1156 PUSHACC 88
+ 1158 PUSHACC 90
+ 1160 PUSHACC 92
+ 1162 PUSHACC 94
+ 1164 PUSHACC 96
+ 1166 PUSHACC 98
+ 1168 PUSHACC 100
+ 1170 PUSHACC 104
+ 1172 PUSHACC 104
+ 1174 PUSHACC 104
+ 1176 PUSHACC 108
+ 1178 PUSHACC 110
+ 1180 PUSHACC 112
+ 1182 PUSHACC 117
+ 1184 PUSHACC 117
+ 1186 PUSHACC 117
+ 1188 PUSHACC 117
+ 1190 MAKEBLOCK 69, 0
+ 1193 POP 53
+ 1195 SETGLOBAL Pervasives
+ 1197 BRANCH 2177
+ 1199 RESTART
+ 1200 GRAB 1
+ 1202 ACC1
+ 1203 BRANCHIFNOT 1213
+ 1205 ACC1
+ 1206 GETFIELD1
+ 1207 PUSHACC1
+ 1208 OFFSETINT 1
+ 1210 PUSHOFFSETCLOSURE0
+ 1211 APPTERM2 4
+ 1213 ACC0
+ 1214 RETURN 2
+ 1216 RESTART
+ 1217 GRAB 1
+ 1219 ACC0
+ 1220 BRANCHIFNOT 1251
+ 1222 CONST0
+ 1223 PUSHACC2
+ 1224 EQ
+ 1225 BRANCHIFNOT 1231
+ 1227 ACC0
+ 1228 GETFIELD0
+ 1229 RETURN 2
+ 1231 CONST0
+ 1232 PUSHACC2
+ 1233 GTINT
+ 1234 BRANCHIFNOT 1244
+ 1236 ACC1
+ 1237 OFFSETINT -1
+ 1239 PUSHACC1
+ 1240 GETFIELD1
+ 1241 PUSHOFFSETCLOSURE0
+ 1242 APPTERM2 4
+ 1244 GETGLOBAL "List.nth"
+ 1246 PUSHGETGLOBALFIELD Pervasives, 2
+ 1249 APPTERM1 3
+ 1251 GETGLOBAL "nth"
+ 1253 PUSHGETGLOBALFIELD Pervasives, 3
+ 1256 APPTERM1 3
+ 1258 RESTART
+ 1259 GRAB 1
+ 1261 ACC0
+ 1262 BRANCHIFNOT 1274
+ 1264 ACC1
+ 1265 PUSHACC1
+ 1266 GETFIELD0
+ 1267 MAKEBLOCK2 0
+ 1269 PUSHACC1
+ 1270 GETFIELD1
+ 1271 PUSHOFFSETCLOSURE0
+ 1272 APPTERM2 4
+ 1274 ACC1
+ 1275 RETURN 2
+ 1277 ACC0
+ 1278 BRANCHIFNOT 1291
+ 1280 ACC0
+ 1281 GETFIELD1
+ 1282 PUSHOFFSETCLOSURE0
+ 1283 APPLY1
+ 1284 PUSHACC1
+ 1285 GETFIELD0
+ 1286 PUSHGETGLOBALFIELD Pervasives, 16
+ 1289 APPTERM2 3
+ 1291 RETURN 1
+ 1293 RESTART
+ 1294 GRAB 1
+ 1296 ACC1
+ 1297 BRANCHIFNOT 1313
+ 1299 ACC1
+ 1300 GETFIELD0
+ 1301 PUSHACC1
+ 1302 APPLY1
+ 1303 PUSHACC2
+ 1304 GETFIELD1
+ 1305 PUSHACC2
+ 1306 PUSHOFFSETCLOSURE0
+ 1307 APPLY2
+ 1308 PUSHACC1
+ 1309 MAKEBLOCK2 0
+ 1311 POP 1
+ 1313 RETURN 2
+ 1315 RESTART
+ 1316 GRAB 1
+ 1318 ACC1
+ 1319 BRANCHIFNOT 1331
+ 1321 ACC1
+ 1322 GETFIELD0
+ 1323 PUSHACC1
+ 1324 APPLY1
+ 1325 ACC1
+ 1326 GETFIELD1
+ 1327 PUSHACC1
+ 1328 PUSHOFFSETCLOSURE0
+ 1329 APPTERM2 4
+ 1331 RETURN 2
+ 1333 RESTART
+ 1334 GRAB 2
+ 1336 ACC2
+ 1337 BRANCHIFNOT 1350
+ 1339 ACC2
+ 1340 GETFIELD1
+ 1341 PUSHACC3
+ 1342 GETFIELD0
+ 1343 PUSHACC3
+ 1344 PUSHACC3
+ 1345 APPLY2
+ 1346 PUSHACC2
+ 1347 PUSHOFFSETCLOSURE0
+ 1348 APPTERM3 6
+ 1350 ACC1
+ 1351 RETURN 3
+ 1353 RESTART
+ 1354 GRAB 2
+ 1356 ACC1
+ 1357 BRANCHIFNOT 1370
+ 1359 ACC2
+ 1360 PUSHACC2
+ 1361 GETFIELD1
+ 1362 PUSHACC2
+ 1363 PUSHOFFSETCLOSURE0
+ 1364 APPLY3
+ 1365 PUSHACC2
+ 1366 GETFIELD0
+ 1367 PUSHACC2
+ 1368 APPTERM2 5
+ 1370 ACC2
+ 1371 RETURN 3
+ 1373 RESTART
+ 1374 GRAB 2
+ 1376 ACC1
+ 1377 BRANCHIFNOT 1400
+ 1379 ACC2
+ 1380 BRANCHIFNOT 1407
+ 1382 ACC2
+ 1383 GETFIELD0
+ 1384 PUSHACC2
+ 1385 GETFIELD0
+ 1386 PUSHACC2
+ 1387 APPLY2
+ 1388 PUSHACC3
+ 1389 GETFIELD1
+ 1390 PUSHACC3
+ 1391 GETFIELD1
+ 1392 PUSHACC3
+ 1393 PUSHOFFSETCLOSURE0
+ 1394 APPLY3
+ 1395 PUSHACC1
+ 1396 MAKEBLOCK2 0
+ 1398 RETURN 4
+ 1400 ACC2
+ 1401 BRANCHIFNOT 1405
+ 1403 BRANCH 1407
+ 1405 RETURN 3
+ 1407 GETGLOBAL "List.map2"
+ 1409 PUSHGETGLOBALFIELD Pervasives, 2
+ 1412 APPTERM1 4
+ 1414 RESTART
+ 1415 GRAB 2
+ 1417 ACC1
+ 1418 BRANCHIFNOT 1437
+ 1420 ACC2
+ 1421 BRANCHIFNOT 1444
+ 1423 ACC2
+ 1424 GETFIELD0
+ 1425 PUSHACC2
+ 1426 GETFIELD0
+ 1427 PUSHACC2
+ 1428 APPLY2
+ 1429 ACC2
+ 1430 GETFIELD1
+ 1431 PUSHACC2
+ 1432 GETFIELD1
+ 1433 PUSHACC2
+ 1434 PUSHOFFSETCLOSURE0
+ 1435 APPTERM3 6
+ 1437 ACC2
+ 1438 BRANCHIFNOT 1442
+ 1440 BRANCH 1444
+ 1442 RETURN 3
+ 1444 GETGLOBAL "List.iter2"
+ 1446 PUSHGETGLOBALFIELD Pervasives, 2
+ 1449 APPTERM1 4
+ 1451 RESTART
+ 1452 GRAB 3
+ 1454 ACC2
+ 1455 BRANCHIFNOT 1476
+ 1457 ACC3
+ 1458 BRANCHIFNOT 1482
+ 1460 ACC3
+ 1461 GETFIELD1
+ 1462 PUSHACC3
+ 1463 GETFIELD1
+ 1464 PUSHACC5
+ 1465 GETFIELD0
+ 1466 PUSHACC5
+ 1467 GETFIELD0
+ 1468 PUSHACC5
+ 1469 PUSHACC5
+ 1470 APPLY3
+ 1471 PUSHACC3
+ 1472 PUSHOFFSETCLOSURE0
+ 1473 APPTERM 4, 8
+ 1476 ACC3
+ 1477 BRANCHIF 1482
+ 1479 ACC1
+ 1480 RETURN 4
+ 1482 GETGLOBAL "List.fold_left2"
+ 1484 PUSHGETGLOBALFIELD Pervasives, 2
+ 1487 APPTERM1 5
+ 1489 RESTART
+ 1490 GRAB 3
+ 1492 ACC1
+ 1493 BRANCHIFNOT 1516
+ 1495 ACC2
+ 1496 BRANCHIFNOT 1522
+ 1498 PUSH_RETADDR 1509
+ 1500 ACC6
+ 1501 PUSHACC6
+ 1502 GETFIELD1
+ 1503 PUSHACC6
+ 1504 GETFIELD1
+ 1505 PUSHACC6
+ 1506 PUSHOFFSETCLOSURE0
+ 1507 APPLY 4
+ 1509 PUSHACC3
+ 1510 GETFIELD0
+ 1511 PUSHACC3
+ 1512 GETFIELD0
+ 1513 PUSHACC3
+ 1514 APPTERM3 7
+ 1516 ACC2
+ 1517 BRANCHIF 1522
+ 1519 ACC3
+ 1520 RETURN 4
+ 1522 GETGLOBAL "List.fold_right2"
+ 1524 PUSHGETGLOBALFIELD Pervasives, 2
+ 1527 APPTERM1 5
+ 1529 RESTART
+ 1530 GRAB 1
+ 1532 ACC1
+ 1533 BRANCHIFNOT 1549
+ 1535 ACC1
+ 1536 GETFIELD0
+ 1537 PUSHACC1
+ 1538 APPLY1
+ 1539 BRANCHIFNOT 1547
+ 1541 ACC1
+ 1542 GETFIELD1
+ 1543 PUSHACC1
+ 1544 PUSHOFFSETCLOSURE0
+ 1545 APPTERM2 4
+ 1547 RETURN 2
+ 1549 CONST1
+ 1550 RETURN 2
+ 1552 RESTART
+ 1553 GRAB 1
+ 1555 ACC1
+ 1556 BRANCHIFNOT 1570
+ 1558 ACC1
+ 1559 GETFIELD0
+ 1560 PUSHACC1
+ 1561 APPLY1
+ 1562 BRANCHIF 1570
+ 1564 ACC1
+ 1565 GETFIELD1
+ 1566 PUSHACC1
+ 1567 PUSHOFFSETCLOSURE0
+ 1568 APPTERM2 4
+ 1570 RETURN 2
+ 1572 RESTART
+ 1573 GRAB 2
+ 1575 ACC1
+ 1576 BRANCHIFNOT 1599
+ 1578 ACC2
+ 1579 BRANCHIFNOT 1605
+ 1581 ACC2
+ 1582 GETFIELD0
+ 1583 PUSHACC2
+ 1584 GETFIELD0
+ 1585 PUSHACC2
+ 1586 APPLY2
+ 1587 BRANCHIFNOT 1597
+ 1589 ACC2
+ 1590 GETFIELD1
+ 1591 PUSHACC2
+ 1592 GETFIELD1
+ 1593 PUSHACC2
+ 1594 PUSHOFFSETCLOSURE0
+ 1595 APPTERM3 6
+ 1597 RETURN 3
+ 1599 ACC2
+ 1600 BRANCHIF 1605
+ 1602 CONST1
+ 1603 RETURN 3
+ 1605 GETGLOBAL "List.for_all2"
+ 1607 PUSHGETGLOBALFIELD Pervasives, 2
+ 1610 APPTERM1 4
+ 1612 RESTART
+ 1613 GRAB 2
+ 1615 ACC1
+ 1616 BRANCHIFNOT 1639
+ 1618 ACC2
+ 1619 BRANCHIFNOT 1646
+ 1621 ACC2
+ 1622 GETFIELD0
+ 1623 PUSHACC2
+ 1624 GETFIELD0
+ 1625 PUSHACC2
+ 1626 APPLY2
+ 1627 BRANCHIF 1637
+ 1629 ACC2
+ 1630 GETFIELD1
+ 1631 PUSHACC2
+ 1632 GETFIELD1
+ 1633 PUSHACC2
+ 1634 PUSHOFFSETCLOSURE0
+ 1635 APPTERM3 6
+ 1637 RETURN 3
+ 1639 ACC2
+ 1640 BRANCHIFNOT 1644
+ 1642 BRANCH 1646
+ 1644 RETURN 3
+ 1646 GETGLOBAL "List.exists2"
+ 1648 PUSHGETGLOBALFIELD Pervasives, 2
+ 1651 APPTERM1 4
+ 1653 RESTART
+ 1654 GRAB 1
+ 1656 ACC1
+ 1657 BRANCHIFNOT 1672
+ 1659 ACC0
+ 1660 PUSHACC2
+ 1661 GETFIELD0
+ 1662 C_CALL2 equal
+ 1664 BRANCHIF 1672
+ 1666 ACC1
+ 1667 GETFIELD1
+ 1668 PUSHACC1
+ 1669 PUSHOFFSETCLOSURE0
+ 1670 APPTERM2 4
+ 1672 RETURN 2
+ 1674 RESTART
+ 1675 GRAB 1
+ 1677 ACC1
+ 1678 BRANCHIFNOT 1692
+ 1680 ACC0
+ 1681 PUSHACC2
+ 1682 GETFIELD0
+ 1683 EQ
+ 1684 BRANCHIF 1692
+ 1686 ACC1
+ 1687 GETFIELD1
+ 1688 PUSHACC1
+ 1689 PUSHOFFSETCLOSURE0
+ 1690 APPTERM2 4
+ 1692 RETURN 2
+ 1694 RESTART
+ 1695 GRAB 1
+ 1697 ACC1
+ 1698 BRANCHIFNOT 1719
+ 1700 ACC1
+ 1701 GETFIELD0
+ 1702 PUSHACC1
+ 1703 PUSHACC1
+ 1704 GETFIELD0
+ 1705 C_CALL2 equal
+ 1707 BRANCHIFNOT 1713
+ 1709 ACC0
+ 1710 GETFIELD1
+ 1711 RETURN 3
+ 1713 ACC2
+ 1714 GETFIELD1
+ 1715 PUSHACC2
+ 1716 PUSHOFFSETCLOSURE0
+ 1717 APPTERM2 5
+ 1719 GETGLOBAL Not_found
+ 1721 MAKEBLOCK1 0
+ 1723 RAISE
+ 1724 RESTART
+ 1725 GRAB 1
+ 1727 ACC1
+ 1728 BRANCHIFNOT 1748
+ 1730 ACC1
+ 1731 GETFIELD0
+ 1732 PUSHACC1
+ 1733 PUSHACC1
+ 1734 GETFIELD0
+ 1735 EQ
+ 1736 BRANCHIFNOT 1742
+ 1738 ACC0
+ 1739 GETFIELD1
+ 1740 RETURN 3
+ 1742 ACC2
+ 1743 GETFIELD1
+ 1744 PUSHACC2
+ 1745 PUSHOFFSETCLOSURE0
+ 1746 APPTERM2 5
+ 1748 GETGLOBAL Not_found
+ 1750 MAKEBLOCK1 0
+ 1752 RAISE
+ 1753 RESTART
+ 1754 GRAB 1
+ 1756 ACC1
+ 1757 BRANCHIFNOT 1773
+ 1759 ACC0
+ 1760 PUSHACC2
+ 1761 GETFIELD0
+ 1762 GETFIELD0
+ 1763 C_CALL2 equal
+ 1765 BRANCHIF 1773
+ 1767 ACC1
+ 1768 GETFIELD1
+ 1769 PUSHACC1
+ 1770 PUSHOFFSETCLOSURE0
+ 1771 APPTERM2 4
+ 1773 RETURN 2
+ 1775 RESTART
+ 1776 GRAB 1
+ 1778 ACC1
+ 1779 BRANCHIFNOT 1794
+ 1781 ACC0
+ 1782 PUSHACC2
+ 1783 GETFIELD0
+ 1784 GETFIELD0
+ 1785 EQ
+ 1786 BRANCHIF 1794
+ 1788 ACC1
+ 1789 GETFIELD1
+ 1790 PUSHACC1
+ 1791 PUSHOFFSETCLOSURE0
+ 1792 APPTERM2 4
+ 1794 RETURN 2
+ 1796 RESTART
+ 1797 GRAB 1
+ 1799 ACC1
+ 1800 BRANCHIFNOT 1825
+ 1802 ACC1
+ 1803 GETFIELD0
+ 1804 PUSHACC2
+ 1805 GETFIELD1
+ 1806 PUSHACC2
+ 1807 PUSHACC2
+ 1808 GETFIELD0
+ 1809 C_CALL2 equal
+ 1811 BRANCHIFNOT 1816
+ 1813 ACC0
+ 1814 RETURN 4
+ 1816 ACC0
+ 1817 PUSHACC3
+ 1818 PUSHOFFSETCLOSURE0
+ 1819 APPLY2
+ 1820 PUSHACC2
+ 1821 MAKEBLOCK2 0
+ 1823 POP 2
+ 1825 RETURN 2
+ 1827 RESTART
+ 1828 GRAB 1
+ 1830 ACC1
+ 1831 BRANCHIFNOT 1855
+ 1833 ACC1
+ 1834 GETFIELD0
+ 1835 PUSHACC2
+ 1836 GETFIELD1
+ 1837 PUSHACC2
+ 1838 PUSHACC2
+ 1839 GETFIELD0
+ 1840 EQ
+ 1841 BRANCHIFNOT 1846
+ 1843 ACC0
+ 1844 RETURN 4
+ 1846 ACC0
+ 1847 PUSHACC3
+ 1848 PUSHOFFSETCLOSURE0
+ 1849 APPLY2
+ 1850 PUSHACC2
+ 1851 MAKEBLOCK2 0
+ 1853 POP 2
+ 1855 RETURN 2
+ 1857 RESTART
+ 1858 GRAB 1
+ 1860 ACC1
+ 1861 BRANCHIFNOT 1879
+ 1863 ACC1
+ 1864 GETFIELD0
+ 1865 PUSHACC0
+ 1866 PUSHACC2
+ 1867 APPLY1
+ 1868 BRANCHIFNOT 1873
+ 1870 ACC0
+ 1871 RETURN 3
+ 1873 ACC2
+ 1874 GETFIELD1
+ 1875 PUSHACC2
+ 1876 PUSHOFFSETCLOSURE0
+ 1877 APPTERM2 5
+ 1879 GETGLOBAL Not_found
+ 1881 MAKEBLOCK1 0
+ 1883 RAISE
+ 1884 RESTART
+ 1885 GRAB 2
+ 1887 ACC2
+ 1888 BRANCHIFNOT 1917
+ 1890 ACC2
+ 1891 GETFIELD0
+ 1892 PUSHACC3
+ 1893 GETFIELD1
+ 1894 PUSHACC1
+ 1895 PUSHENVACC2
+ 1896 APPLY1
+ 1897 BRANCHIFNOT 1908
+ 1899 ACC0
+ 1900 PUSHACC4
+ 1901 PUSHACC4
+ 1902 PUSHACC4
+ 1903 MAKEBLOCK2 0
+ 1905 PUSHOFFSETCLOSURE0
+ 1906 APPTERM3 8
+ 1908 ACC0
+ 1909 PUSHACC4
+ 1910 PUSHACC3
+ 1911 MAKEBLOCK2 0
+ 1913 PUSHACC4
+ 1914 PUSHOFFSETCLOSURE0
+ 1915 APPTERM3 8
+ 1917 ACC1
+ 1918 PUSHENVACC1
+ 1919 APPLY1
+ 1920 PUSHACC1
+ 1921 PUSHENVACC1
+ 1922 APPLY1
+ 1923 MAKEBLOCK2 0
+ 1925 RETURN 3
+ 1927 RESTART
+ 1928 GRAB 1
+ 1930 ACC0
+ 1931 PUSHENVACC1
+ 1932 CLOSUREREC 2, 1885
+ 1936 ACC2
+ 1937 PUSHCONST0
+ 1938 PUSHCONST0
+ 1939 PUSHACC3
+ 1940 APPTERM3 6
+ 1942 ACC0
+ 1943 BRANCHIFNOT 1967
+ 1945 ACC0
+ 1946 GETFIELD0
+ 1947 PUSHACC1
+ 1948 GETFIELD1
+ 1949 PUSHOFFSETCLOSURE0
+ 1950 APPLY1
+ 1951 PUSHACC0
+ 1952 GETFIELD1
+ 1953 PUSHACC2
+ 1954 GETFIELD1
+ 1955 MAKEBLOCK2 0
+ 1957 PUSHACC1
+ 1958 GETFIELD0
+ 1959 PUSHACC3
+ 1960 GETFIELD0
+ 1961 MAKEBLOCK2 0
+ 1963 MAKEBLOCK2 0
+ 1965 RETURN 3
+ 1967 GETGLOBAL <0>(0, 0)
+ 1969 RETURN 1
+ 1971 RESTART
+ 1972 GRAB 1
+ 1974 ACC0
+ 1975 BRANCHIFNOT 1996
+ 1977 ACC1
+ 1978 BRANCHIFNOT 2003
+ 1980 ACC1
+ 1981 GETFIELD1
+ 1982 PUSHACC1
+ 1983 GETFIELD1
+ 1984 PUSHOFFSETCLOSURE0
+ 1985 APPLY2
+ 1986 PUSHACC2
+ 1987 GETFIELD0
+ 1988 PUSHACC2
+ 1989 GETFIELD0
+ 1990 MAKEBLOCK2 0
+ 1992 MAKEBLOCK2 0
+ 1994 RETURN 2
+ 1996 ACC1
+ 1997 BRANCHIFNOT 2001
+ 1999 BRANCH 2003
+ 2001 RETURN 2
+ 2003 GETGLOBAL "List.combine"
+ 2005 PUSHGETGLOBALFIELD Pervasives, 2
+ 2008 APPTERM1 3
+ 2010 RESTART
+ 2011 GRAB 1
+ 2013 ACC1
+ 2014 BRANCHIFNOT 2038
+ 2016 ACC1
+ 2017 GETFIELD0
+ 2018 PUSHACC2
+ 2019 GETFIELD1
+ 2020 PUSHACC1
+ 2021 PUSHENVACC2
+ 2022 APPLY1
+ 2023 BRANCHIFNOT 2033
+ 2025 ACC0
+ 2026 PUSHACC3
+ 2027 PUSHACC3
+ 2028 MAKEBLOCK2 0
+ 2030 PUSHOFFSETCLOSURE0
+ 2031 APPTERM2 6
+ 2033 ACC0
+ 2034 PUSHACC3
+ 2035 PUSHOFFSETCLOSURE0
+ 2036 APPTERM2 6
+ 2038 ACC0
+ 2039 PUSHENVACC1
+ 2040 APPTERM1 3
+ 2042 ACC0
+ 2043 PUSHENVACC1
+ 2044 CLOSUREREC 2, 2011
+ 2048 CONST0
+ 2049 PUSHACC1
+ 2050 APPTERM1 3
+ 2052 RESTART
+ 2053 GRAB 2
+ 2055 ACC1
+ 2056 BRANCHIFNOT 2077
+ 2058 ACC2
+ 2059 BRANCHIFNOT 2084
+ 2061 ACC2
+ 2062 GETFIELD1
+ 2063 PUSHACC2
+ 2064 GETFIELD1
+ 2065 PUSHACC2
+ 2066 PUSHACC5
+ 2067 GETFIELD0
+ 2068 PUSHACC5
+ 2069 GETFIELD0
+ 2070 PUSHENVACC1
+ 2071 APPLY2
+ 2072 MAKEBLOCK2 0
+ 2074 PUSHOFFSETCLOSURE0
+ 2075 APPTERM3 6
+ 2077 ACC2
+ 2078 BRANCHIFNOT 2082
+ 2080 BRANCH 2084
+ 2082 RETURN 3
+ 2084 GETGLOBAL "List.rev_map2"
+ 2086 PUSHGETGLOBALFIELD Pervasives, 2
+ 2089 APPTERM1 4
+ 2091 RESTART
+ 2092 GRAB 2
+ 2094 ACC0
+ 2095 CLOSUREREC 1, 2053
+ 2099 ACC3
+ 2100 PUSHACC3
+ 2101 PUSHCONST0
+ 2102 PUSHACC3
+ 2103 APPTERM3 7
+ 2105 RESTART
+ 2106 GRAB 1
+ 2108 ACC1
+ 2109 BRANCHIFNOT 2123
+ 2111 ACC1
+ 2112 GETFIELD1
+ 2113 PUSHACC1
+ 2114 PUSHACC3
+ 2115 GETFIELD0
+ 2116 PUSHENVACC1
+ 2117 APPLY1
+ 2118 MAKEBLOCK2 0
+ 2120 PUSHOFFSETCLOSURE0
+ 2121 APPTERM2 4
+ 2123 ACC0
+ 2124 RETURN 2
+ 2126 RESTART
+ 2127 GRAB 1
+ 2129 ACC0
+ 2130 CLOSUREREC 1, 2106
+ 2134 ACC2
+ 2135 PUSHCONST0
+ 2136 PUSHACC2
+ 2137 APPTERM2 5
+ 2139 CONST0
+ 2140 PUSHACC1
+ 2141 PUSHENVACC1
+ 2142 APPTERM2 3
+ 2144 ACC0
+ 2145 BRANCHIFNOT 2151
+ 2147 ACC0
+ 2148 GETFIELD1
+ 2149 RETURN 1
+ 2151 GETGLOBAL "tl"
+ 2153 PUSHGETGLOBALFIELD Pervasives, 3
+ 2156 APPTERM1 2
+ 2158 ACC0
+ 2159 BRANCHIFNOT 2165
+ 2161 ACC0
+ 2162 GETFIELD0
+ 2163 RETURN 1
+ 2165 GETGLOBAL "hd"
+ 2167 PUSHGETGLOBALFIELD Pervasives, 3
+ 2170 APPTERM1 2
+ 2172 ACC0
+ 2173 PUSHCONST0
+ 2174 PUSHENVACC1
+ 2175 APPTERM2 3
+ 2177 CLOSUREREC 0, 1200
+ 2181 ACC0
+ 2182 CLOSURE 1, 2172
+ 2185 PUSH
+ 2186 CLOSURE 0, 2158
+ 2189 PUSH
+ 2190 CLOSURE 0, 2144
+ 2193 PUSH
+ 2194 CLOSUREREC 0, 1217
+ 2198 GETGLOBALFIELD Pervasives, 16
+ 2201 PUSH
+ 2202 CLOSUREREC 0, 1259
+ 2206 ACC0
+ 2207 CLOSURE 1, 2139
+ 2210 PUSH
+ 2211 CLOSUREREC 0, 1277
+ 2215 CLOSUREREC 0, 1294
+ 2219 CLOSURE 0, 2127
+ 2222 PUSH
+ 2223 CLOSUREREC 0, 1316
+ 2227 CLOSUREREC 0, 1334
+ 2231 CLOSUREREC 0, 1354
+ 2235 CLOSUREREC 0, 1374
+ 2239 CLOSURE 0, 2092
+ 2242 PUSH
+ 2243 CLOSUREREC 0, 1415
+ 2247 CLOSUREREC 0, 1452
+ 2251 CLOSUREREC 0, 1490
+ 2255 CLOSUREREC 0, 1530
+ 2259 CLOSUREREC 0, 1553
+ 2263 CLOSUREREC 0, 1573
+ 2267 CLOSUREREC 0, 1613
+ 2271 CLOSUREREC 0, 1654
+ 2275 CLOSUREREC 0, 1675
+ 2279 CLOSUREREC 0, 1695
+ 2283 CLOSUREREC 0, 1725
+ 2287 CLOSUREREC 0, 1754
+ 2291 CLOSUREREC 0, 1776
+ 2295 CLOSUREREC 0, 1797
+ 2299 CLOSUREREC 0, 1828
+ 2303 CLOSUREREC 0, 1858
+ 2307 ACC 24
+ 2309 CLOSURE 1, 2042
+ 2312 PUSHACC 25
+ 2314 CLOSUREREC 1, 1928
+ 2318 CLOSUREREC 0, 1942
+ 2322 CLOSUREREC 0, 1972
+ 2326 ACC0
+ 2327 PUSHACC2
+ 2328 PUSHACC7
+ 2329 PUSHACC 9
+ 2331 PUSHACC 11
+ 2333 PUSHACC 13
+ 2335 PUSHACC 15
+ 2337 PUSHACC 17
+ 2339 PUSHACC 10
+ 2341 PUSHACC 12
+ 2343 PUSHACC 13
+ 2345 PUSHACC 15
+ 2347 PUSHACC 23
+ 2349 PUSHACC 25
+ 2351 PUSHACC 27
+ 2353 PUSHACC 29
+ 2355 PUSHACC 31
+ 2357 PUSHACC 33
+ 2359 PUSHACC 35
+ 2361 PUSHACC 37
+ 2363 PUSHACC 40
+ 2365 PUSHACC 42
+ 2367 PUSHACC 41
+ 2369 PUSHACC 45
+ 2371 PUSHACC 47
+ 2373 PUSHACC 50
+ 2375 PUSHACC 52
+ 2377 PUSHACC 51
+ 2379 PUSHACC 55
+ 2381 PUSHACC 56
+ 2383 PUSHACC 59
+ 2385 PUSHACC 61
+ 2387 PUSHACC 60
+ 2389 PUSHACC 64
+ 2391 PUSHACC 66
+ 2393 PUSHACC 68
+ 2395 PUSHACC 70
+ 2397 MAKEBLOCK 37, 0
+ 2400 POP 36
+ 2402 SETGLOBAL List
+ 2404 BRANCH 2432
+ 2406 CONST0
+ 2407 PUSHACC1
+ 2408 LEINT
+ 2409 BRANCHIFNOT 2414
+ 2411 CONST0
+ 2412 RETURN 1
+ 2414 ACC0
+ 2415 OFFSETINT -1
+ 2417 PUSHOFFSETCLOSURE0
+ 2418 APPLY1
+ 2419 PUSHACC1
+ 2420 MAKEBLOCK2 0
+ 2422 RETURN 1
+ 2424 RESTART
+ 2425 GRAB 1
+ 2427 ACC1
+ 2428 PUSHACC1
+ 2429 ADDINT
+ 2430 RETURN 2
+ 2432 CLOSUREREC 0, 2406
+ 2436 CONSTINT 300
+ 2438 PUSHACC1
+ 2439 APPLY1
+ 2440 PUSHCONST0
+ 2441 C_CALL1 gc_full_major
+ 2443 CONSTINT 150
+ 2445 PUSHCONSTINT 301
+ 2447 MULINT
+ 2448 PUSHACC1
+ 2449 PUSHCONST0
+ 2450 PUSH
+ 2451 CLOSURE 0, 2425
+ 2454 PUSHGETGLOBALFIELD List, 12
+ 2457 APPLY3
+ 2458 NEQ
+ 2459 BRANCHIFNOT 2466
+ 2461 GETGLOBAL Not_found
+ 2463 MAKEBLOCK1 0
+ 2465 RAISE
+ 2466 POP 2
+ 2468 ATOM0
+ 2469 SETGLOBAL T320-gc-3
+ 2471 STOP
+**)
View Lorry Controller Status