path: root/testsuite/tests/tool-ocaml/t300-getmethod.ml

(* TEST
include tool-ocaml-lib
flags = "-w -a"
ocaml_script_as_argument = "true"
* setup-ocaml-build-env
** ocaml
*)

open Lib;;

class c = object
  method m = 23
end;;

let o = new c in
if o#m <> 23 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 3341
    2406 RESTART
    2407 GRAB 2
    2409 ACC2
    2410 PUSHACC2
    2411 VECTLENGTH
    2412 OFFSETINT -1
    2414 PUSHCONST0
    2415 PUSH
    2416 BRANCH 2433
    2418 CHECK_SIGNALS
    2419 ACC2
    2420 PUSHACC2
    2421 PUSHACC6
    2422 C_CALL2 array_unsafe_get
    2424 PUSHACC5
    2425 APPLY2
    2426 ASSIGN 2
    2428 ACC1
    2429 OFFSETINT -1
    2431 ASSIGN 1
    2433 ACC0
    2434 PUSHACC2
    2435 GEINT
    2436 BRANCHIF 2418
    2438 CONST0
    2439 POP 2
    2441 ACC0
    2442 RETURN 4
    2444 RESTART
    2445 GRAB 2
    2447 ACC1
    2448 PUSHCONST0
    2449 PUSHACC4
    2450 VECTLENGTH
    2451 OFFSETINT -1
    2453 PUSH
    2454 BRANCH 2471
    2456 CHECK_SIGNALS
    2457 ACC1
    2458 PUSHACC6
    2459 C_CALL2 array_unsafe_get
    2461 PUSHACC3
    2462 PUSHACC5
    2463 APPLY2
    2464 ASSIGN 2
    2466 ACC1
    2467 OFFSETINT 1
    2469 ASSIGN 1
    2471 ACC0
    2472 PUSHACC2
    2473 LEINT
    2474 BRANCHIF 2456
    2476 CONST0
    2477 POP 2
    2479 ACC0
    2480 RETURN 4
    2482 RESTART
    2483 GRAB 1
    2485 ACC1
    2486 BRANCHIFNOT 2502
    2488 ACC1
    2489 GETFIELD0
    2490 PUSHACC1
    2491 PUSHENVACC1
    2492 C_CALL3 array_unsafe_set
    2494 ACC1
    2495 GETFIELD1
    2496 PUSHACC1
    2497 OFFSETINT 1
    2499 PUSHOFFSETCLOSURE0
    2500 APPTERM2 4
    2502 ENVACC1
    2503 RETURN 2
    2505 ACC0
    2506 BRANCHIFNOT 2531
    2508 ACC0
    2509 GETFIELD1
    2510 PUSHACC1
    2511 GETFIELD0
    2512 PUSHACC1
    2513 PUSHGETGLOBALFIELD List, 0
    2516 APPLY1
    2517 OFFSETINT 1
    2519 C_CALL2 make_vect
    2521 PUSHACC0
    2522 CLOSUREREC 1, 2483
    2526 ACC2
    2527 PUSHCONST1
    2528 PUSHACC2
    2529 APPTERM2 6
    2531 ATOM0
    2532 RETURN 1
    2534 RESTART
    2535 GRAB 1
    2537 CONST0
    2538 PUSHACC1
    2539 LTINT
    2540 BRANCHIFNOT 2545
    2542 ACC1
    2543 RETURN 2
    2545 ACC1
    2546 PUSHACC1
    2547 PUSHENVACC1
    2548 C_CALL2 array_unsafe_get
    2550 MAKEBLOCK2 0
    2552 PUSHACC1
    2553 OFFSETINT -1
    2555 PUSHOFFSETCLOSURE0
    2556 APPTERM2 4
    2558 ACC0
    2559 CLOSUREREC 1, 2535
    2563 CONST0
    2564 PUSHACC2
    2565 VECTLENGTH
    2566 OFFSETINT -1
    2568 PUSHACC2
    2569 APPTERM2 4
    2571 RESTART
    2572 GRAB 1
    2574 ACC1
    2575 VECTLENGTH
    2576 PUSHCONST0
    2577 PUSHACC1
    2578 EQ
    2579 BRANCHIFNOT 2584
    2581 ATOM0
    2582 RETURN 3
    2584 CONST0
    2585 PUSHACC3
    2586 C_CALL2 array_unsafe_get
    2588 PUSHCONST0
    2589 PUSHACC3
    2590 APPLY2
    2591 PUSHACC1
    2592 C_CALL2 make_vect
    2594 PUSHCONST1
    2595 PUSHACC2
    2596 OFFSETINT -1
    2598 PUSH
    2599 BRANCH 2618
    2601 CHECK_SIGNALS
    2602 ACC1
    2603 PUSHACC6
    2604 C_CALL2 array_unsafe_get
    2606 PUSHACC2
    2607 PUSHACC6
    2608 APPLY2
    2609 PUSHACC2
    2610 PUSHACC4
    2611 C_CALL3 array_unsafe_set
    2613 ACC1
    2614 OFFSETINT 1
    2616 ASSIGN 1
    2618 ACC0
    2619 PUSHACC2
    2620 LEINT
    2621 BRANCHIF 2601
    2623 CONST0
    2624 POP 2
    2626 ACC0
    2627 RETURN 4
    2629 RESTART
    2630 GRAB 1
    2632 CONST0
    2633 PUSHACC2
    2634 VECTLENGTH
    2635 OFFSETINT -1
    2637 PUSH
    2638 BRANCH 2653
    2640 CHECK_SIGNALS
    2641 ACC1
    2642 PUSHACC4
    2643 C_CALL2 array_unsafe_get
    2645 PUSHACC2
    2646 PUSHACC4
    2647 APPLY2
    2648 ACC1
    2649 OFFSETINT 1
    2651 ASSIGN 1
    2653 ACC0
    2654 PUSHACC2
    2655 LEINT
    2656 BRANCHIF 2640
    2658 CONST0
    2659 RETURN 4
    2661 RESTART
    2662 GRAB 1
    2664 ACC1
    2665 VECTLENGTH
    2666 PUSHCONST0
    2667 PUSHACC1
    2668 EQ
    2669 BRANCHIFNOT 2674
    2671 ATOM0
    2672 RETURN 3
    2674 CONST0
    2675 PUSHACC3
    2676 C_CALL2 array_unsafe_get
    2678 PUSHACC2
    2679 APPLY1
    2680 PUSHACC1
    2681 C_CALL2 make_vect
    2683 PUSHCONST1
    2684 PUSHACC2
    2685 OFFSETINT -1
    2687 PUSH
    2688 BRANCH 2706
    2690 CHECK_SIGNALS
    2691 ACC1
    2692 PUSHACC6
    2693 C_CALL2 array_unsafe_get
    2695 PUSHACC5
    2696 APPLY1
    2697 PUSHACC2
    2698 PUSHACC4
    2699 C_CALL3 array_unsafe_set
    2701 ACC1
    2702 OFFSETINT 1
    2704 ASSIGN 1
    2706 ACC0
    2707 PUSHACC2
    2708 LEINT
    2709 BRANCHIF 2690
    2711 CONST0
    2712 POP 2
    2714 ACC0
    2715 RETURN 4
    2717 RESTART
    2718 GRAB 1
    2720 CONST0
    2721 PUSHACC2
    2722 VECTLENGTH
    2723 OFFSETINT -1
    2725 PUSH
    2726 BRANCH 2740
    2728 CHECK_SIGNALS
    2729 ACC1
    2730 PUSHACC4
    2731 C_CALL2 array_unsafe_get
    2733 PUSHACC3
    2734 APPLY1
    2735 ACC1
    2736 OFFSETINT 1
    2738 ASSIGN 1
    2740 ACC0
    2741 PUSHACC2
    2742 LEINT
    2743 BRANCHIF 2728
    2745 CONST0
    2746 RETURN 4
    2748 RESTART
    2749 GRAB 4
    2751 CONST0
    2752 PUSHACC5
    2753 LTINT
    2754 BRANCHIF 2782
    2756 CONST0
    2757 PUSHACC2
    2758 LTINT
    2759 BRANCHIF 2782
    2761 ACC0
    2762 VECTLENGTH
    2763 PUSHACC5
    2764 PUSHACC3
    2765 ADDINT
    2766 GTINT
    2767 BRANCHIF 2782
    2769 CONST0
    2770 PUSHACC4
    2771 LTINT
    2772 BRANCHIF 2782
    2774 ACC2
    2775 VECTLENGTH
    2776 PUSHACC5
    2777 PUSHACC5
    2778 ADDINT
    2779 GTINT
    2780 BRANCHIFNOT 2789
    2782 GETGLOBAL "Array.blit"
    2784 PUSHGETGLOBALFIELD Pervasives, 2
    2787 APPTERM1 6
    2789 ACC3
    2790 PUSHACC2
    2791 LTINT
    2792 BRANCHIFNOT 2827
    2794 ACC4
    2795 OFFSETINT -1
    2797 PUSHCONST0
    2798 PUSH
    2799 BRANCH 2819
    2801 CHECK_SIGNALS
    2802 ACC1
    2803 PUSHACC4
    2804 ADDINT
    2805 PUSHACC3
    2806 C_CALL2 array_unsafe_get
    2808 PUSHACC2
    2809 PUSHACC7
    2810 ADDINT
    2811 PUSHACC6
    2812 C_CALL3 array_unsafe_set
    2814 ACC1
    2815 OFFSETINT -1
    2817 ASSIGN 1
    2819 ACC0
    2820 PUSHACC2
    2821 GEINT
    2822 BRANCHIF 2801
    2824 CONST0
    2825 RETURN 7
    2827 CONST0
    2828 PUSHACC5
    2829 OFFSETINT -1
    2831 PUSH
    2832 BRANCH 2852
    2834 CHECK_SIGNALS
    2835 ACC1
    2836 PUSHACC4
    2837 ADDINT
    2838 PUSHACC3
    2839 C_CALL2 array_unsafe_get
    2841 PUSHACC2
    2842 PUSHACC7
    2843 ADDINT
    2844 PUSHACC6
    2845 C_CALL3 array_unsafe_set
    2847 ACC1
    2848 OFFSETINT 1
    2850 ASSIGN 1
    2852 ACC0
    2853 PUSHACC2
    2854 LEINT
    2855 BRANCHIF 2834
    2857 CONST0
    2858 RETURN 7
    2860 RESTART
    2861 GRAB 3
    2863 CONST0
    2864 PUSHACC2
    2865 LTINT
    2866 BRANCHIF 2881
    2868 CONST0
    2869 PUSHACC3
    2870 LTINT
    2871 BRANCHIF 2881
    2873 ACC0
    2874 VECTLENGTH
    2875 PUSHACC3
    2876 PUSHACC3
    2877 ADDINT
    2878 GTINT
    2879 BRANCHIFNOT 2888
    2881 GETGLOBAL "Array.fill"
    2883 PUSHGETGLOBALFIELD Pervasives, 2
    2886 APPTERM1 5
    2888 ACC1
    2889 PUSHACC3
    2890 PUSHACC3
    2891 ADDINT
    2892 OFFSETINT -1
    2894 PUSH
    2895 BRANCH 2908
    2897 CHECK_SIGNALS
    2898 ACC5
    2899 PUSHACC2
    2900 PUSHACC4
    2901 C_CALL3 array_unsafe_set
    2903 ACC1
    2904 OFFSETINT 1
    2906 ASSIGN 1
    2908 ACC0
    2909 PUSHACC2
    2910 LEINT
    2911 BRANCHIF 2897
    2913 CONST0
    2914 RETURN 6
    2916 RESTART
    2917 GRAB 2
    2919 CONST0
    2920 PUSHACC2
    2921 LTINT
    2922 BRANCHIF 2937
    2924 CONST0
    2925 PUSHACC3
    2926 LTINT
    2927 BRANCHIF 2937
    2929 ACC0
    2930 VECTLENGTH
    2931 PUSHACC3
    2932 PUSHACC3
    2933 ADDINT
    2934 GTINT
    2935 BRANCHIFNOT 2944
    2937 GETGLOBAL "Array.sub"
    2939 PUSHGETGLOBALFIELD Pervasives, 2
    2942 APPTERM1 4
    2944 CONST0
    2945 PUSHACC3
    2946 EQ
    2947 BRANCHIFNOT 2952
    2949 ATOM0
    2950 RETURN 3
    2952 ACC1
    2953 PUSHACC1
    2954 C_CALL2 array_unsafe_get
    2956 PUSHACC3
    2957 C_CALL2 make_vect
    2959 PUSHCONST1
    2960 PUSHACC4
    2961 OFFSETINT -1
    2963 PUSH
    2964 BRANCH 2982
    2966 CHECK_SIGNALS
    2967 ACC1
    2968 PUSHACC5
    2969 ADDINT
    2970 PUSHACC4
    2971 C_CALL2 array_unsafe_get
    2973 PUSHACC2
    2974 PUSHACC4
    2975 C_CALL3 array_unsafe_set
    2977 ACC1
    2978 OFFSETINT 1
    2980 ASSIGN 1
    2982 ACC0
    2983 PUSHACC2
    2984 LEINT
    2985 BRANCHIF 2966
    2987 CONST0
    2988 POP 2
    2990 ACC0
    2991 RETURN 4
    2993 ACC0
    2994 BRANCHIFNOT 3017
    2996 ACC0
    2997 GETFIELD0
    2998 PUSHCONST0
    2999 PUSHACC1
    3000 VECTLENGTH
    3001 GTINT
    3002 BRANCHIFNOT 3012
    3004 ENVACC2
    3005 PUSHCONST0
    3006 PUSHACC2
    3007 C_CALL2 array_unsafe_get
    3009 PUSHENVACC1
    3010 APPTERM2 4
    3012 ACC1
    3013 GETFIELD1
    3014 PUSHOFFSETCLOSURE0
    3015 APPTERM1 3
    3017 ATOM0
    3018 RETURN 1
    3020 ACC0
    3021 PUSHENVACC1
    3022 CLOSUREREC 2, 2993
    3026 ACC1
    3027 PUSHACC1
    3028 APPTERM1 3
    3030 CONST0
    3031 PUSHACC1
    3032 VECTLENGTH
    3033 OFFSETINT -1
    3035 PUSH
    3036 BRANCH 3056
    3038 CHECK_SIGNALS
    3039 ACC1
    3040 PUSHACC3
    3041 C_CALL2 array_unsafe_get
    3043 PUSHENVACC2
    3044 GETFIELD0
    3045 PUSHENVACC1
    3046 C_CALL3 array_unsafe_set
    3048 ENVACC2
    3049 OFFSETREF 1
    3051 ACC1
    3052 OFFSETINT 1
    3054 ASSIGN 1
    3056 ACC0
    3057 PUSHACC2
    3058 LEINT
    3059 BRANCHIF 3038
    3061 CONST0
    3062 RETURN 3
    3064 RESTART
    3065 GRAB 1
    3067 ACC1
    3068 VECTLENGTH
    3069 PUSHACC1
    3070 ADDINT
    3071 RETURN 2
    3073 RESTART
    3074 GRAB 1
    3076 ACC1
    3077 PUSHCONST0
    3078 PUSH
    3079 CLOSURE 0, 3065
    3082 PUSHGETGLOBALFIELD List, 12
    3085 APPLY3
    3086 PUSHACC1
    3087 PUSHACC1
    3088 C_CALL2 make_vect
    3090 PUSHCONST0
    3091 MAKEBLOCK1 0
    3093 PUSHACC4
    3094 PUSHACC1
    3095 PUSHACC3
    3096 CLOSURE 2, 3030
    3099 PUSHGETGLOBALFIELD List, 9
    3102 APPLY2
    3103 ACC1
    3104 RETURN 5
    3106 RESTART
    3107 GRAB 1
    3109 ACC0
    3110 VECTLENGTH
    3111 PUSHACC2
    3112 VECTLENGTH
    3113 PUSHCONST0
    3114 PUSHACC2
    3115 EQ
    3116 BRANCHIFNOT 3126
    3118 CONST0
    3119 PUSHACC1
    3120 EQ
    3121 BRANCHIFNOT 3126
    3123 ATOM0
    3124 RETURN 4
    3126 CONST0
    3127 PUSHCONST0
    3128 PUSHACC3
    3129 GTINT
    3130 BRANCHIFNOT 3135
    3132 ACC3
    3133 BRANCH 3136
    3135 ACC4
    3136 C_CALL2 array_unsafe_get
    3138 PUSHACC1
    3139 PUSHACC3
    3140 ADDINT
    3141 C_CALL2 make_vect
    3143 PUSHCONST0
    3144 PUSHACC3
    3145 OFFSETINT -1
    3147 PUSH
    3148 BRANCH 3164
    3150 CHECK_SIGNALS
    3151 ACC1
    3152 PUSHACC6
    3153 C_CALL2 array_unsafe_get
    3155 PUSHACC2
    3156 PUSHACC4
    3157 C_CALL3 array_unsafe_set
    3159 ACC1
    3160 OFFSETINT 1
    3162 ASSIGN 1
    3164 ACC0
    3165 PUSHACC2
    3166 LEINT
    3167 BRANCHIF 3150
    3169 CONST0
    3170 POP 2
    3172 CONST0
    3173 PUSHACC2
    3174 OFFSETINT -1
    3176 PUSH
    3177 BRANCH 3195
    3179 CHECK_SIGNALS
    3180 ACC1
    3181 PUSHACC7
    3182 C_CALL2 array_unsafe_get
    3184 PUSHACC5
    3185 PUSHACC3
    3186 ADDINT
    3187 PUSHACC4
    3188 C_CALL3 array_unsafe_set
    3190 ACC1
    3191 OFFSETINT 1
    3193 ASSIGN 1
    3195 ACC0
    3196 PUSHACC2
    3197 LEINT
    3198 BRANCHIF 3179
    3200 CONST0
    3201 POP 2
    3203 ACC0
    3204 RETURN 5
    3206 ACC0
    3207 VECTLENGTH
    3208 PUSHCONST0
    3209 PUSHACC1
    3210 EQ
    3211 BRANCHIFNOT 3216
    3213 ATOM0
    3214 RETURN 2
    3216 CONST0
    3217 PUSHACC2
    3218 C_CALL2 array_unsafe_get
    3220 PUSHACC1
    3221 C_CALL2 make_vect
    3223 PUSHCONST1
    3224 PUSHACC2
    3225 OFFSETINT -1
    3227 PUSH
    3228 BRANCH 3244
    3230 CHECK_SIGNALS
    3231 ACC1
    3232 PUSHACC5
    3233 C_CALL2 array_unsafe_get
    3235 PUSHACC2
    3236 PUSHACC4
    3237 C_CALL3 array_unsafe_set
    3239 ACC1
    3240 OFFSETINT 1
    3242 ASSIGN 1
    3244 ACC0
    3245 PUSHACC2
    3246 LEINT
    3247 BRANCHIF 3230
    3249 CONST0
    3250 POP 2
    3252 ACC0
    3253 RETURN 3
    3255 RESTART
    3256 GRAB 2
    3258 ATOM0
    3259 PUSHACC1
    3260 C_CALL2 make_vect
    3262 PUSHCONST0
    3263 PUSHACC2
    3264 OFFSETINT -1
    3266 PUSH
    3267 BRANCH 3282
    3269 CHECK_SIGNALS
    3270 ACC5
    3271 PUSHACC5
    3272 C_CALL2 make_vect
    3274 PUSHACC2
    3275 PUSHACC4
    3276 SETVECTITEM
    3277 ACC1
    3278 OFFSETINT 1
    3280 ASSIGN 1
    3282 ACC0
    3283 PUSHACC2
    3284 LEINT
    3285 BRANCHIF 3269
    3287 CONST0
    3288 POP 2
    3290 ACC0
    3291 RETURN 4
    3293 RESTART
    3294 GRAB 1
    3296 CONST0
    3297 PUSHACC1
    3298 EQ
    3299 BRANCHIFNOT 3304
    3301 ATOM0
    3302 RETURN 2
    3304 CONST0
    3305 PUSHACC2
    3306 APPLY1
    3307 PUSHACC1
    3308 C_CALL2 make_vect
    3310 PUSHCONST1
    3311 PUSHACC2
    3312 OFFSETINT -1
    3314 PUSH
    3315 BRANCH 3330
    3317 CHECK_SIGNALS
    3318 ACC1
    3319 PUSHACC5
    3320 APPLY1
    3321 PUSHACC2
    3322 PUSHACC4
    3323 C_CALL3 array_unsafe_set
    3325 ACC1
    3326 OFFSETINT 1
    3328 ASSIGN 1
    3330 ACC0
    3331 PUSHACC2
    3332 LEINT
    3333 BRANCHIF 3317
    3335 CONST0
    3336 POP 2
    3338 ACC0
    3339 RETURN 3
    3341 CLOSURE 0, 3294
    3344 PUSH
    3345 CLOSURE 0, 3256
    3348 PUSH
    3349 CLOSURE 0, 3206
    3352 PUSH
    3353 CLOSURE 0, 3107
    3356 PUSH
    3357 CLOSURE 0, 3074
    3360 PUSHACC0
    3361 CLOSURE 1, 3020
    3364 PUSH
    3365 CLOSURE 0, 2917
    3368 PUSH
    3369 CLOSURE 0, 2861
    3372 PUSH
    3373 CLOSURE 0, 2749
    3376 PUSH
    3377 CLOSURE 0, 2718
    3380 PUSH
    3381 CLOSURE 0, 2662
    3384 PUSH
    3385 CLOSURE 0, 2630
    3388 PUSH
    3389 CLOSURE 0, 2572
    3392 PUSH
    3393 CLOSURE 0, 2558
    3396 PUSH
    3397 CLOSURE 0, 2505
    3400 PUSH
    3401 CLOSURE 0, 2445
    3404 PUSH
    3405 CLOSURE 0, 2407
    3408 PUSHACC0
    3409 PUSHACC2
    3410 PUSHACC6
    3411 PUSHACC 8
    3413 PUSHACC 10
    3415 PUSHACC 12
    3417 PUSHACC 8
    3419 PUSHACC 10
    3421 PUSHACC 16
    3423 PUSHACC 18
    3425 PUSHACC 24
    3427 PUSHACC 21
    3429 PUSHACC 23
    3431 PUSHACC 26
    3433 PUSHACC 29
    3435 PUSHACC 30
    3437 PUSHACC 32
    3439 MAKEBLOCK 17, 0
    3442 POP 17
    3444 SETGLOBAL Array
    3446 BRANCH 3480
    3448 ENVACC1
    3449 MAKEBLOCK1 0
    3451 RAISE
    3452 ACC0
    3453 BRANCHIFNOT 3465
    3455 ENVACC3
    3456 CLOSURE 1, 3448
    3459 MAKEBLOCK1 0
    3461 PUSHENVACC2
    3462 PUSHENVACC1
    3463 APPTERM2 3
    3465 CONST0
    3466 PUSHENVACC2
    3467 PUSHENVACC1
    3468 APPTERM2 3
    3470 RESTART
    3471 GRAB 1
    3473 ACC1
    3474 PUSHACC1
    3475 C_CALL2 install_signal_handler
    3477 CONST0
    3478 RETURN 2
    3480 CONST0
    3481 C_CALL1 sys_get_argv
    3483 PUSHCONST0
    3484 C_CALL1 sys_get_config
    3486 PUSHACC0
    3487 GETFIELD1
    3488 PUSHACC0
    3489 OFFSETINT -10
    3491 PUSHCONST1
    3492 LSLINT
    3493 OFFSETINT -1
    3495 PUSHACC0
    3496 PUSHCONSTINT 8
    3498 PUSHACC3
    3499 DIVINT
    3500 MULINT
    3501 OFFSETINT -1
    3503 PUSHCONST0
    3504 MAKEBLOCK1 0
    3506 PUSH
    3507 CLOSURE 0, 3471
    3510 PUSHCONSTINT -1
    3512 PUSHCONSTINT -2
    3514 PUSHCONSTINT -3
    3516 PUSHCONSTINT -4
    3518 PUSHCONSTINT -5
    3520 PUSHCONSTINT -6
    3522 PUSHCONSTINT -7
    3524 PUSHCONSTINT -8
    3526 PUSHCONSTINT -9
    3528 PUSHCONSTINT -10
    3530 PUSHCONSTINT -11
    3532 PUSHCONSTINT -12
    3534 PUSHCONSTINT -13
    3536 PUSHCONSTINT -14
    3538 PUSHCONSTINT -15
    3540 PUSHCONSTINT -16
    3542 PUSHCONSTINT -17
    3544 PUSHCONSTINT -18
    3546 PUSHCONSTINT -19
    3548 PUSHCONSTINT -20
    3550 PUSHCONSTINT -21
    3552 PUSHGETGLOBAL "Sys.Break"
    3554 MAKEBLOCK1 0
    3556 PUSHACC0
    3557 PUSHACC 17
    3559 PUSHACC 24
    3561 CLOSURE 3, 3452
    3564 PUSHACC0
    3565 PUSHACC2
    3566 PUSHACC4
    3567 PUSHACC6
    3568 PUSHACC 8
    3570 PUSHACC 10
    3572 PUSHACC 12
    3574 PUSHACC 14
    3576 PUSHACC 16
    3578 PUSHACC 18
    3580 PUSHACC 20
    3582 PUSHACC 22
    3584 PUSHACC 24
    3586 PUSHACC 26
    3588 PUSHACC 28
    3590 PUSHACC 30
    3592 PUSHACC 32
    3594 PUSHACC 34
    3596 PUSHACC 36
    3598 PUSHACC 38
    3600 PUSHACC 40
    3602 PUSHACC 42
    3604 PUSHACC 44
    3606 PUSHACC 46
    3608 PUSHACC 50
    3610 PUSHACC 50
    3612 PUSHACC 53
    3614 PUSHACC 55
    3616 GETFIELD0
    3617 PUSHACC 52
    3619 PUSHACC 58
    3621 MAKEBLOCK 30, 0
    3624 POP 30
    3626 SETGLOBAL Sys
    3628 BRANCH 4510
    3630 RESTART
    3631 GRAB 1
    3633 CONST0
    3634 PUSHACC1
    3635 LTINT
    3636 BRANCHIFNOT 3641
    3638 CONST1
    3639 RETURN 2
    3641 ACC1
    3642 BRANCHIFNOT 3652
    3644 ACC1
    3645 GETFIELD2
    3646 PUSHACC1
    3647 OFFSETINT -1
    3649 PUSHOFFSETCLOSURE0
    3650 APPTERM2 4
    3652 RETURN 2
    3654 ACC0
    3655 BRANCHIFNOT 3670
    3657 ENVACC2
    3658 PUSHACC1
    3659 GETFIELD0
    3660 PUSHENVACC1
    3661 GETFIELD0
    3662 APPLY2
    3663 BRANCHIF 3670
    3665 ACC0
    3666 GETFIELD2
    3667 PUSHOFFSETCLOSURE0
    3668 APPTERM1 2
    3670 RETURN 1
    3672 RESTART
    3673 GRAB 1
    3675 ACC1
    3676 PUSHENVACC1
    3677 CLOSUREREC 2, 3654
    3681 ACC1
    3682 GETFIELD1
    3683 VECTLENGTH
    3684 PUSHACC3
    3685 PUSHENVACC1
    3686 GETFIELD1
    3687 APPLY1
    3688 MODINT
    3689 PUSHACC2
    3690 GETFIELD1
    3691 C_CALL2 array_get_addr
    3693 PUSHACC1
    3694 APPTERM1 4
    3696 ACC0
    3697 BRANCHIFNOT 3722
    3699 ACC0
    3700 GETFIELD2
    3701 PUSHENVACC2
    3702 PUSHACC2
    3703 GETFIELD0
    3704 PUSHENVACC1
    3705 GETFIELD0
    3706 APPLY2
    3707 BRANCHIFNOT 3718
    3709 ACC0
    3710 PUSHOFFSETCLOSURE0
    3711 APPLY1
    3712 PUSHACC2
    3713 GETFIELD1
    3714 MAKEBLOCK2 0
    3716 RETURN 2
    3718 ACC0
    3719 PUSHOFFSETCLOSURE0
    3720 APPTERM1 3
    3722 RETURN 1
    3724 RESTART
    3725 GRAB 1
    3727 ACC1
    3728 PUSHENVACC1
    3729 CLOSUREREC 2, 3696
    3733 ACC1
    3734 GETFIELD1
    3735 VECTLENGTH
    3736 PUSHACC3
    3737 PUSHENVACC1
    3738 GETFIELD1
    3739 APPLY1
    3740 MODINT
    3741 PUSHACC2
    3742 GETFIELD1
    3743 C_CALL2 array_get_addr
    3745 PUSHACC1
    3746 APPTERM1 4
    3748 ACC0
    3749 BRANCHIFNOT 3768
    3751 ACC0
    3752 GETFIELD0
    3753 PUSHENVACC2
    3754 PUSHENVACC1
    3755 GETFIELD0
    3756 APPLY2
    3757 BRANCHIFNOT 3763
    3759 ACC0
    3760 GETFIELD1
    3761 RETURN 1
    3763 ACC0
    3764 GETFIELD2
    3765 PUSHOFFSETCLOSURE0
    3766 APPTERM1 2
    3768 GETGLOBAL Not_found
    3770 MAKEBLOCK1 0
    3772 RAISE
    3773 RESTART
    3774 GRAB 1
    3776 ACC0
    3777 GETFIELD1
    3778 VECTLENGTH
    3779 PUSHACC2
    3780 PUSHENVACC1
    3781 GETFIELD1
    3782 APPLY1
    3783 MODINT
    3784 PUSHACC1
    3785 GETFIELD1
    3786 C_CALL2 array_get_addr
    3788 PUSHACC0
    3789 BRANCHIFNOT 3858
    3791 ACC0
    3792 GETFIELD2
    3793 PUSHACC1
    3794 GETFIELD0
    3795 PUSHACC4
    3796 PUSHENVACC1
    3797 GETFIELD0
    3798 APPLY2
    3799 BRANCHIFNOT 3805
    3801 ACC1
    3802 GETFIELD1
    3803 RETURN 4
    3805 ACC0
    3806 BRANCHIFNOT 3853
    3808 ACC0
    3809 GETFIELD2
    3810 PUSHACC1
    3811 GETFIELD0
    3812 PUSHACC5
    3813 PUSHENVACC1
    3814 GETFIELD0
    3815 APPLY2
    3816 BRANCHIFNOT 3822
    3818 ACC1
    3819 GETFIELD1
    3820 RETURN 5
    3822 ACC0
    3823 BRANCHIFNOT 3848
    3825 ACC0
    3826 GETFIELD0
    3827 PUSHACC5
    3828 PUSHENVACC1
    3829 GETFIELD0
    3830 APPLY2
    3831 BRANCHIFNOT 3837
    3833 ACC0
    3834 GETFIELD1
    3835 RETURN 5
    3837 ACC4
    3838 PUSHENVACC1
    3839 CLOSUREREC 2, 3748
    3843 ACC1
    3844 GETFIELD2
    3845 PUSHACC1
    3846 APPTERM1 7
    3848 GETGLOBAL Not_found
    3850 MAKEBLOCK1 0
    3852 RAISE
    3853 GETGLOBAL Not_found
    3855 MAKEBLOCK1 0
    3857 RAISE
    3858 GETGLOBAL Not_found
    3860 MAKEBLOCK1 0
    3862 RAISE
    3863 ACC0
    3864 BRANCHIFNOT 3890
    3866 ACC0
    3867 GETFIELD0
    3868 PUSHACC1
    3869 GETFIELD2
    3870 PUSHENVACC2
    3871 PUSHACC2
    3872 PUSHENVACC1
    3873 GETFIELD0
    3874 APPLY2
    3875 BRANCHIFNOT 3880
    3877 ACC0
    3878 RETURN 3
    3880 ACC0
    3881 PUSHOFFSETCLOSURE0
    3882 APPLY1
    3883 PUSHACC3
    3884 GETFIELD1
    3885 PUSHACC3
    3886 MAKEBLOCK3 0
    3888 POP 2
    3890 RETURN 1
    3892 RESTART
    3893 GRAB 1
    3895 ACC1
    3896 PUSHENVACC1
    3897 CLOSUREREC 2, 3863
    3901 ACC1
    3902 GETFIELD1
    3903 VECTLENGTH
    3904 PUSHACC3
    3905 PUSHENVACC1
    3906 GETFIELD1
    3907 APPLY1
    3908 MODINT
    3909 PUSHACC0
    3910 PUSHACC3
    3911 GETFIELD1
    3912 C_CALL2 array_get_addr
    3914 PUSHACC2
    3915 APPLY1
    3916 PUSHACC1
    3917 PUSHACC4
    3918 GETFIELD1
    3919 C_CALL3 array_set_addr
    3921 RETURN 4
    3923 RESTART
    3924 GRAB 2
    3926 ACC0
    3927 GETFIELD1
    3928 VECTLENGTH
    3929 PUSHACC2
    3930 PUSHENVACC3
    3931 GETFIELD1
    3932 APPLY1
    3933 MODINT
    3934 PUSHACC0
    3935 PUSHACC2
    3936 GETFIELD1
    3937 C_CALL2 array_get_addr
    3939 PUSHACC4
    3940 PUSHACC4
    3941 MAKEBLOCK3 0
    3943 PUSHACC0
    3944 PUSHACC2
    3945 PUSHACC4
    3946 GETFIELD1
    3947 C_CALL3 array_set_addr
    3949 ACC0
    3950 PUSHACC3
    3951 GETFIELD0
    3952 PUSHENVACC2
    3953 APPLY2
    3954 BRANCHIFNOT 3962
    3956 ACC2
    3957 PUSHENVACC3
    3958 GETFIELD1
    3959 PUSHENVACC1
    3960 APPTERM2 7
    3962 RETURN 5
    3964 ACC0
    3965 PUSHENVACC 4
    3967 PUSHENVACC3
    3968 CLOSURE 3, 3924
    3971 PUSHACC1
    3972 CLOSURE 1, 3893
    3975 PUSHACC2
    3976 CLOSURE 1, 3774
    3979 PUSHACC3
    3980 CLOSURE 1, 3725
    3983 PUSHACC4
    3984 CLOSURE 1, 3673
    3987 PUSHENVACC 5
    3989 PUSHACC1
    3990 PUSHACC3
    3991 PUSHACC5
    3992 PUSHACC7
    3993 PUSHACC 9
    3995 PUSHENVACC2
    3996 PUSHENVACC1
    3997 MAKEBLOCK 8, 0
    4000 RETURN 6
    4002 ACC0
    4003 BRANCHIFNOT 4016
    4005 ACC0
    4006 GETFIELD1
    4007 PUSHACC1
    4008 GETFIELD0
    4009 PUSHENVACC1
    4010 APPLY2
    4011 ACC0
    4012 GETFIELD2
    4013 PUSHOFFSETCLOSURE0
    4014 APPTERM1 2
    4016 RETURN 1
    4018 RESTART
    4019 GRAB 1
    4021 ACC0
    4022 CLOSUREREC 1, 4002
    4026 ACC2
    4027 GETFIELD1
    4028 PUSHCONST0
    4029 PUSHACC1
    4030 VECTLENGTH
    4031 OFFSETINT -1
    4033 PUSH
    4034 BRANCH 4048
    4036 CHECK_SIGNALS
    4037 ACC1
    4038 PUSHACC3
    4039 C_CALL2 array_get_addr
    4041 PUSHACC4
    4042 APPLY1
    4043 ACC1
    4044 OFFSETINT 1
    4046 ASSIGN 1
    4048 ACC0
    4049 PUSHACC2
    4050 LEINT
    4051 BRANCHIF 4036
    4053 CONST0
    4054 RETURN 6
    4056 ACC0
    4057 BRANCHIFNOT 4071
    4059 ENVACC1
    4060 PUSHACC1
    4061 GETFIELD0
    4062 C_CALL2 equal
    4064 BRANCHIF 4071
    4066 ACC0
    4067 GETFIELD2
    4068 PUSHOFFSETCLOSURE0
    4069 APPTERM1 2
    4071 RETURN 1
    4073 RESTART
    4074 GRAB 1
    4076 ACC1
    4077 CLOSUREREC 1, 4056
    4081 ACC1
    4082 GETFIELD1
    4083 VECTLENGTH
    4084 PUSHACC3
    4085 PUSHENVACC1
    4086 APPLY1
    4087 MODINT
    4088 PUSHACC2
    4089 GETFIELD1
    4090 C_CALL2 array_get_addr
    4092 PUSHACC1
    4093 APPTERM1 4
    4095 ACC0
    4096 BRANCHIFNOT 4120
    4098 ACC0
    4099 GETFIELD2
    4100 PUSHENVACC1
    4101 PUSHACC2
    4102 GETFIELD0
    4103 C_CALL2 equal
    4105 BRANCHIFNOT 4116
    4107 ACC0
    4108 PUSHOFFSETCLOSURE0
    4109 APPLY1
    4110 PUSHACC2
    4111 GETFIELD1
    4112 MAKEBLOCK2 0
    4114 RETURN 2
    4116 ACC0
    4117 PUSHOFFSETCLOSURE0
    4118 APPTERM1 3
    4120 RETURN 1
    4122 RESTART
    4123 GRAB 1
    4125 ACC1
    4126 CLOSUREREC 1, 4095
    4130 ACC1
    4131 GETFIELD1
    4132 VECTLENGTH
    4133 PUSHACC3
    4134 PUSHENVACC1
    4135 APPLY1
    4136 MODINT
    4137 PUSHACC2
    4138 GETFIELD1
    4139 C_CALL2 array_get_addr
    4141 PUSHACC1
    4142 APPTERM1 4
    4144 ACC0
    4145 BRANCHIFNOT 4163
    4147 ACC0
    4148 GETFIELD0
    4149 PUSHENVACC1
    4150 C_CALL2 equal
    4152 BRANCHIFNOT 4158
    4154 ACC0
    4155 GETFIELD1
    4156 RETURN 1
    4158 ACC0
    4159 GETFIELD2
    4160 PUSHOFFSETCLOSURE0
    4161 APPTERM1 2
    4163 GETGLOBAL Not_found
    4165 MAKEBLOCK1 0
    4167 RAISE
    4168 RESTART
    4169 GRAB 1
    4171 ACC0
    4172 GETFIELD1
    4173 VECTLENGTH
    4174 PUSHACC2
    4175 PUSHENVACC1
    4176 APPLY1
    4177 MODINT
    4178 PUSHACC1
    4179 GETFIELD1
    4180 C_CALL2 array_get_addr
    4182 PUSHACC0
    4183 BRANCHIFNOT 4248
    4185 ACC0
    4186 GETFIELD2
    4187 PUSHACC1
    4188 GETFIELD0
    4189 PUSHACC4
    4190 C_CALL2 equal
    4192 BRANCHIFNOT 4198
    4194 ACC1
    4195 GETFIELD1
    4196 RETURN 4
    4198 ACC0
    4199 BRANCHIFNOT 4243
    4201 ACC0
    4202 GETFIELD2
    4203 PUSHACC1
    4204 GETFIELD0
    4205 PUSHACC5
    4206 C_CALL2 equal
    4208 BRANCHIFNOT 4214
    4210 ACC1
    4211 GETFIELD1
    4212 RETURN 5
    4214 ACC0
    4215 BRANCHIFNOT 4238
    4217 ACC0
    4218 GETFIELD0
    4219 PUSHACC5
    4220 C_CALL2 equal
    4222 BRANCHIFNOT 4228
    4224 ACC0
    4225 GETFIELD1
    4226 RETURN 5
    4228 ACC4
    4229 CLOSUREREC 1, 4144
    4233 ACC1
    4234 GETFIELD2
    4235 PUSHACC1
    4236 APPTERM1 7
    4238 GETGLOBAL Not_found
    4240 MAKEBLOCK1 0
    4242 RAISE
    4243 GETGLOBAL Not_found
    4245 MAKEBLOCK1 0
    4247 RAISE
    4248 GETGLOBAL Not_found
    4250 MAKEBLOCK1 0
    4252 RAISE
    4253 ACC0
    4254 BRANCHIFNOT 4279
    4256 ACC0
    4257 GETFIELD0
    4258 PUSHACC1
    4259 GETFIELD2
    4260 PUSHENVACC1
    4261 PUSHACC2
    4262 C_CALL2 equal
    4264 BRANCHIFNOT 4269
    4266 ACC0
    4267 RETURN 3
    4269 ACC0
    4270 PUSHOFFSETCLOSURE0
    4271 APPLY1
    4272 PUSHACC3
    4273 GETFIELD1
    4274 PUSHACC3
    4275 MAKEBLOCK3 0
    4277 POP 2
    4279 RETURN 1
    4281 RESTART
    4282 GRAB 1
    4284 ACC1
    4285 CLOSUREREC 1, 4253
    4289 ACC1
    4290 GETFIELD1
    4291 VECTLENGTH
    4292 PUSHACC3
    4293 PUSHENVACC1
    4294 APPLY1
    4295 MODINT
    4296 PUSHACC0
    4297 PUSHACC3
    4298 GETFIELD1
    4299 C_CALL2 array_get_addr
    4301 PUSHACC2
    4302 APPLY1
    4303 PUSHACC1
    4304 PUSHACC4
    4305 GETFIELD1
    4306 C_CALL3 array_set_addr
    4308 RETURN 4
    4310 RESTART
    4311 GRAB 2
    4313 ACC0
    4314 GETFIELD1
    4315 VECTLENGTH
    4316 PUSHACC2
    4317 PUSHENVACC1
    4318 APPLY1
    4319 MODINT
    4320 PUSHACC0
    4321 PUSHACC2
    4322 GETFIELD1
    4323 C_CALL2 array_get_addr
    4325 PUSHACC4
    4326 PUSHACC4
    4327 MAKEBLOCK3 0
    4329 PUSHACC0
    4330 PUSHACC2
    4331 PUSHACC4
    4332 GETFIELD1
    4333 C_CALL3 array_set_addr
    4335 ACC0
    4336 PUSHACC3
    4337 GETFIELD0
    4338 PUSHENVACC3
    4339 APPLY2
    4340 BRANCHIFNOT 4347
    4342 ACC2
    4343 PUSHENVACC1
    4344 PUSHENVACC2
    4345 APPTERM2 7
    4347 RETURN 5
    4349 ACC0
    4350 BRANCHIFNOT 4378
    4352 ACC0
    4353 GETFIELD0
    4354 PUSHACC1
    4355 GETFIELD2
    4356 PUSHOFFSETCLOSURE0
    4357 APPLY1
    4358 ENVACC2
    4359 PUSHACC1
    4360 PUSHENVACC1
    4361 APPLY1
    4362 MODINT
    4363 PUSHACC0
    4364 PUSHENVACC3
    4365 C_CALL2 array_get_addr
    4367 PUSHACC3
    4368 GETFIELD1
    4369 PUSHACC3
    4370 MAKEBLOCK3 0
    4372 PUSHACC1
    4373 PUSHENVACC3
    4374 C_CALL3 array_set_addr
    4376 POP 2
    4378 RETURN 1
    4380 RESTART
    4381 GRAB 1
    4383 ACC1
    4384 GETFIELD1
    4385 PUSHACC0
    4386 VECTLENGTH
    4387 PUSHACC0
    4388 PUSHCONST2
    4389 MULINT
    4390 OFFSETINT 1
    4392 PUSHCONST0
    4393 PUSHACC1
    4394 C_CALL2 make_vect
    4396 PUSHACC0
    4397 PUSHACC2
    4398 PUSHACC6
    4399 CLOSUREREC 3, 4349
    4403 CONST0
    4404 PUSHACC4
    4405 OFFSETINT -1
    4407 PUSH
    4408 BRANCH 4422
    4410 CHECK_SIGNALS
    4411 ACC1
    4412 PUSHACC7
    4413 C_CALL2 array_get_addr
    4415 PUSHACC3
    4416 APPLY1
    4417 ACC1
    4418 OFFSETINT 1
    4420 ASSIGN 1
    4422 ACC0
    4423 PUSHACC2
    4424 LEINT
    4425 BRANCHIF 4410
    4427 CONST0
    4428 POP 2
    4430 ACC1
    4431 PUSHACC7
    4432 SETFIELD1
    4433 ACC6
    4434 GETFIELD0
    4435 PUSHCONST2
    4436 MULINT
    4437 PUSHACC7
    4438 SETFIELD0
    4439 RETURN 7
    4441 CONST0
    4442 PUSHACC1
    4443 GETFIELD1
    4444 VECTLENGTH
    4445 OFFSETINT -1
    4447 PUSH
    4448 BRANCH 4462
    4450 CHECK_SIGNALS
    4451 CONST0
    4452 PUSHACC2
    4453 PUSHACC4
    4454 GETFIELD1
    4455 C_CALL3 array_set_addr
    4457 ACC1
    4458 OFFSETINT 1
    4460 ASSIGN 1
    4462 ACC0
    4463 PUSHACC2
    4464 LEINT
    4465 BRANCHIF 4450
    4467 CONST0
    4468 RETURN 3
    4470 CONST1
    4471 PUSHACC1
    4472 LTINT
    4473 BRANCHIFNOT 4478
    4475 CONST1
    4476 BRANCH 4479
    4478 ACC0
    4479 PUSHGETGLOBALFIELD Sys, 5
    4482 PUSHACC1
    4483 GTINT
    4484 BRANCHIFNOT 4491
    4486 GETGLOBALFIELD Sys, 5
    4489 BRANCH 4492
    4491 ACC0
    4492 PUSHCONST0
    4493 PUSHACC1
    4494 C_CALL2 make_vect
    4496 PUSHCONST3
    4497 MAKEBLOCK2 0
    4499 RETURN 3
    4501 ACC0
    4502 PUSHCONSTINT 100
    4504 PUSHCONSTINT 10
    4506 C_CALL3 hash_univ_param
    4508 RETURN 1
    4510 CLOSURE 0, 4501
    4513 PUSH
    4514 CLOSURE 0, 4470
    4517 PUSH
    4518 CLOSURE 0, 4441
    4521 PUSH
    4522 CLOSURE 0, 4381
    4525 PUSH
    4526 CLOSUREREC 0, 3631
    4530 ACC0
    4531 PUSHACC2
    4532 PUSHACC6
    4533 CLOSURE 3, 4311
    4536 PUSHACC5
    4537 CLOSURE 1, 4282
    4540 PUSHACC6
    4541 CLOSURE 1, 4169
    4544 PUSHACC7
    4545 CLOSURE 1, 4123
    4548 PUSHACC 8
    4550 CLOSURE 1, 4074
    4553 PUSH
    4554 CLOSURE 0, 4019
    4557 PUSHACC0
    4558 PUSHACC7
    4559 PUSHACC 9
    4561 PUSHACC 11
    4563 PUSHACC 13
    4565 CLOSURE 5, 3964
    4568 PUSHACC 11
    4570 PUSHACC1
    4571 PUSHACC3
    4572 PUSHACC 8
    4574 PUSHACC6
    4575 PUSHACC 8
    4577 PUSHACC 10
    4579 PUSHACC 13
    4581 PUSHACC 17
    4583 PUSHACC 19
    4585 MAKEBLOCK 10, 0
    4588 POP 12
    4590 SETGLOBAL Hashtbl
    4592 BRANCH 5073
    4594 RESTART
    4595 GRAB 2
    4597 ACC1
    4598 BRANCHIFNOT 4638
    4600 ACC1
    4601 GETFIELD0
    4602 PUSHACC3
    4603 BRANCHIFNOT 4635
    4605 ACC3
    4606 GETFIELD0
    4607 PUSHACC0
    4608 PUSHACC2
    4609 PUSHACC4
    4610 APPLY2
    4611 BRANCHIFNOT 4624
    4613 ACC4
    4614 PUSHACC4
    4615 GETFIELD1
    4616 PUSHACC4
    4617 PUSHOFFSETCLOSURE0
    4618 APPLY3
    4619 PUSHACC2
    4620 MAKEBLOCK2 0
    4622 RETURN 5
    4624 ACC4
    4625 GETFIELD1
    4626 PUSHACC4
    4627 PUSHACC4
    4628 PUSHOFFSETCLOSURE0
    4629 APPLY3
    4630 PUSHACC1
    4631 MAKEBLOCK2 0
    4633 RETURN 5
    4635 ACC2
    4636 RETURN 4
    4638 ACC2
    4639 RETURN 3
    4641 RESTART
    4642 GRAB 1
    4644 CONSTINT 6
    4646 PUSHACC1
    4647 PUSHACC3
    4648 SUBINT
    4649 GEINT
    4650 BRANCHIFNOT 4809
    4652 CONST1
    4653 PUSHACC2
    4654 PUSHACC2
    4655 ADDINT
    4656 LSRINT
    4657 PUSHACC1
    4658 PUSHENVACC3
    4659 C_CALL2 array_unsafe_get
    4661 PUSHACC1
    4662 PUSHENVACC3
    4663 C_CALL2 array_unsafe_get
    4665 PUSHENVACC2
    4666 APPLY2
    4667 BRANCHIFNOT 4674
    4669 ACC1
    4670 PUSHACC1
    4671 PUSHENVACC3
    4672 PUSHENVACC1
    4673 APPLY3
    4674 ACC0
    4675 PUSHENVACC3
    4676 C_CALL2 array_unsafe_get
    4678 PUSHACC3
    4679 PUSHENVACC3
    4680 C_CALL2 array_unsafe_get
    4682 PUSHENVACC2
    4683 APPLY2
    4684 BRANCHIFNOT 4708
    4686 ACC2
    4687 PUSHACC1
    4688 PUSHENVACC3
    4689 PUSHENVACC1
    4690 APPLY3
    4691 ACC1
    4692 PUSHENVACC3
    4693 C_CALL2 array_unsafe_get
    4695 PUSHACC1
    4696 PUSHENVACC3
    4697 C_CALL2 array_unsafe_get
    4699 PUSHENVACC2
    4700 APPLY2
    4701 BRANCHIFNOT 4708
    4703 ACC1
    4704 PUSHACC1
    4705 PUSHENVACC3
    4706 PUSHENVACC1
    4707 APPLY3
    4708 ACC0
    4709 PUSHENVACC3
    4710 C_CALL2 array_unsafe_get
    4712 PUSHACC2
    4713 OFFSETINT 1
    4715 PUSHACC4
    4716 OFFSETINT -1
    4718 PUSH
    4719 BRANCH 4777
    4721 CHECK_SIGNALS
    4722 BRANCH 4730
    4724 CHECK_SIGNALS
    4725 ACC1
    4726 OFFSETINT 1
    4728 ASSIGN 1
    4730 ACC1
    4731 PUSHENVACC3
    4732 C_CALL2 array_unsafe_get
    4734 PUSHACC3
    4735 PUSHENVACC2
    4736 APPLY2
    4737 BRANCHIFNOT 4724
    4739 CONST0
    4740 BRANCH 4748
    4742 CHECK_SIGNALS
    4743 ACC0
    4744 OFFSETINT -1
    4746 ASSIGN 0
    4748 ACC2
    4749 PUSHACC1
    4750 PUSHENVACC3
    4751 C_CALL2 array_unsafe_get
    4753 PUSHENVACC2
    4754 APPLY2
    4755 BRANCHIFNOT 4742
    4757 ACC0
    4758 PUSHACC2
    4759 LTINT
    4760 BRANCHIFNOT 4767
    4762 ACC0
    4763 PUSHACC2
    4764 PUSHENVACC3
    4765 PUSHENVACC1
    4766 APPLY3
    4767 ACC1
    4768 OFFSETINT 1
    4770 ASSIGN 1
    4772 ACC0
    4773 OFFSETINT -1
    4775 ASSIGN 0
    4777 ACC0
    4778 PUSHACC2
    4779 LTINT
    4780 BRANCHIF 4721
    4782 ACC1
    4783 PUSHACC6
    4784 SUBINT
    4785 PUSHACC5
    4786 PUSHACC2
    4787 SUBINT
    4788 LEINT
    4789 BRANCHIFNOT 4800
    4791 ACC0
    4792 PUSHACC5
    4793 PUSHOFFSETCLOSURE0
    4794 APPLY2
    4795 ACC5
    4796 PUSHACC2
    4797 PUSHOFFSETCLOSURE0
    4798 APPTERM2 8
    4800 ACC5
    4801 PUSHACC2
    4802 PUSHOFFSETCLOSURE0
    4803 APPLY2
    4804 ACC0
    4805 PUSHACC5
    4806 PUSHOFFSETCLOSURE0
    4807 APPTERM2 8
    4809 RETURN 2
    4811 RESTART
    4812 GRAB 1
    4814 ACC1
    4815 PUSHACC1
    4816 PUSHENVACC1
    4817 CLOSUREREC 3, 4642
    4821 ACC2
    4822 VECTLENGTH
    4823 OFFSETINT -1
    4825 PUSHCONST0
    4826 PUSHACC2
    4827 APPLY2
    4828 CONST1
    4829 PUSHACC3
    4830 VECTLENGTH
    4831 OFFSETINT -1
    4833 PUSH
    4834 BRANCH 4918
    4836 CHECK_SIGNALS
    4837 ACC1
    4838 PUSHACC5
    4839 C_CALL2 array_unsafe_get
    4841 PUSHACC0
    4842 PUSHACC3
    4843 OFFSETINT -1
    4845 PUSHACC7
    4846 C_CALL2 array_unsafe_get
    4848 PUSHACC6
    4849 APPLY2
    4850 BOOLNOT
    4851 BRANCHIFNOT 4911
    4853 ACC2
    4854 OFFSETINT -1
    4856 PUSHACC6
    4857 C_CALL2 array_unsafe_get
    4859 PUSHACC3
    4860 PUSHACC7
    4861 C_CALL3 array_unsafe_set
    4863 ACC2
    4864 OFFSETINT -1
    4866 PUSH
    4867 BRANCH 4886
    4869 CHECK_SIGNALS
    4870 ACC0
    4871 OFFSETINT -1
    4873 PUSHACC7
    4874 C_CALL2 array_unsafe_get
    4876 PUSHACC1
    4877 PUSHACC 8
    4879 C_CALL3 array_unsafe_set
    4881 ACC0
    4882 OFFSETINT -1
    4884 ASSIGN 0
    4886 CONST1
    4887 PUSHACC1
    4888 GEINT
    4889 BRANCHIFNOT 4903
    4891 ACC1
    4892 PUSHACC1
    4893 OFFSETINT -1
    4895 PUSHACC 8
    4897 C_CALL2 array_unsafe_get
    4899 PUSHACC7
    4900 APPLY2
    4901 BRANCHIFNOT 4869
    4903 ACC1
    4904 PUSHACC1
    4905 PUSHACC 8
    4907 C_CALL3 array_unsafe_set
    4909 POP 1
    4911 POP 1
    4913 ACC1
    4914 OFFSETINT 1
    4916 ASSIGN 1
    4918 ACC0
    4919 PUSHACC2
    4920 LEINT
    4921 BRANCHIF 4836
    4923 CONST0
    4924 RETURN 5
    4926 RESTART
    4927 GRAB 2
    4929 ACC1
    4930 PUSHACC1
    4931 C_CALL2 array_unsafe_get
    4933 PUSHACC3
    4934 PUSHACC2
    4935 C_CALL2 array_unsafe_get
    4937 PUSHACC3
    4938 PUSHACC3
    4939 C_CALL3 array_unsafe_set
    4941 ACC0
    4942 PUSHACC4
    4943 PUSHACC3
    4944 C_CALL3 array_unsafe_set
    4946 RETURN 4
    4948 ACC0
    4949 BRANCHIFNOT 4999
    4951 ACC0
    4952 GETFIELD0
    4953 PUSHACC1
    4954 GETFIELD1
    4955 PUSHACC0
    4956 BRANCHIFNOT 4990
    4958 ACC0
    4959 GETFIELD0
    4960 PUSHACC1
    4961 GETFIELD1
    4962 PUSHOFFSETCLOSURE0
    4963 APPLY1
    4964 PUSHACC1
    4965 PUSHACC4
    4966 PUSHENVACC1
    4967 APPLY2
    4968 BRANCHIFNOT 4979
    4970 CONST0
    4971 PUSHACC2
    4972 MAKEBLOCK2 0
    4974 PUSHACC4
    4975 MAKEBLOCK2 0
    4977 BRANCH 4986
    4979 CONST0
    4980 PUSHACC4
    4981 MAKEBLOCK2 0
    4983 PUSHACC2
    4984 MAKEBLOCK2 0
    4986 MAKEBLOCK2 0
    4988 RETURN 4
    4990 CONST0
    4991 PUSHCONST0
    4992 PUSHACC3
    4993 MAKEBLOCK2 0
    4995 MAKEBLOCK2 0
    4997 POP 2
    4999 RETURN 1
    5001 ACC0
    5002 BRANCHIFNOT 5028
    5004 ACC0
    5005 GETFIELD1
    5006 PUSHACC0
    5007 BRANCHIFNOT 5024
    5009 ACC0
    5010 GETFIELD1
    5011 PUSHOFFSETCLOSURE0
    5012 APPLY1
    5013 PUSHACC1
    5014 GETFIELD0
    5015 PUSHACC3
    5016 GETFIELD0
    5017 PUSHENVACC2
    5018 PUSHENVACC1
    5019 APPLY3
    5020 MAKEBLOCK2 0
    5022 RETURN 2
    5024 POP 1
    5026 BRANCH 5028
    5028 ACC0
    5029 RETURN 1
    5031 ACC0
    5032 BRANCHIFNOT 5040
    5034 ACC0
    5035 GETFIELD1
    5036 BRANCHIF 5042
    5038 ACC0
    5039 GETFIELD0
    5040 RETURN 1
    5042 ACC0
    5043 PUSHENVACC1
    5044 APPLY1
    5045 PUSHOFFSETCLOSURE0
    5046 APPTERM1 2
    5048 RESTART
    5049 GRAB 1
    5051 ACC0
    5052 CLOSUREREC 1, 4948
    5056 ACC1
    5057 PUSHENVACC1
    5058 CLOSUREREC 2, 5001
    5062 ACC0
    5063 CLOSUREREC 1, 5031
    5067 ACC4
    5068 PUSHACC3
    5069 APPLY1
    5070 PUSHACC1
    5071 APPTERM1 6
    5073 CLOSUREREC 0, 4595
    5077 ACC0
    5078 CLOSURE 1, 5049
    5081 PUSH
    5082 CLOSURE 0, 4927
    5085 PUSHACC0
    5086 CLOSURE 1, 4812
    5089 PUSHACC3
    5090 PUSHACC1
    5091 PUSHACC4
    5092 MAKEBLOCK3 0
    5094 POP 4
    5096 SETGLOBAL Sort
    5098 BRANCH 5847
    5100 ACC0
    5101 PUSHENVACC1
    5102 APPLY1
    5103 PUSHACC0
    5104 GETFIELD 11
    5106 PUSHACC1
    5107 GETFIELD 10
    5109 PUSHACC2
    5110 GETFIELD 9
    5112 PUSHACC3
    5113 GETFIELD 6
    5115 PUSHACC4
    5116 GETFIELD 8
    5118 PUSHACC5
    5119 GETFIELD 5
    5121 PUSHACC6
    5122 GETFIELD 4
    5124 PUSHACC7
    5125 GETFIELD0
    5126 MAKEBLOCK 8, 0
    5129 RETURN 2
    5131 RESTART
    5132 GRAB 2
    5134 ACC2
    5135 BRANCHIFNOT 5201
    5137 ACC2
    5138 GETFIELD0
    5139 PUSHACC3
    5140 GETFIELD1
    5141 PUSHACC4
    5142 GETFIELD2
    5143 PUSHACC5
    5144 GETFIELD3
    5145 PUSHACC2
    5146 PUSHACC5
    5147 PUSHENVACC1
    5148 GETFIELD0
    5149 APPLY2
    5150 PUSHCONST0
    5151 PUSHACC1
    5152 EQ
    5153 BRANCHIFNOT 5170
    5155 ACC7
    5156 GETFIELD 4
    5158 PUSHACC2
    5159 PUSHACC 8
    5161 PUSHACC 8
    5163 PUSHACC 8
    5165 MAKEBLOCK 5, 0
    5168 RETURN 8
    5170 CONST0
    5171 PUSHACC1
    5172 LTINT
    5173 BRANCHIFNOT 5189
    5175 ACC1
    5176 PUSHACC3
    5177 PUSHACC5
    5178 PUSHACC7
    5179 PUSHACC 10
    5181 PUSHACC 10
    5183 PUSHOFFSETCLOSURE0
    5184 APPLY3
    5185 PUSHENVACC2
    5186 APPTERM 4, 12
    5189 ACC1
    5190 PUSHACC7
    5191 PUSHACC7
    5192 PUSHOFFSETCLOSURE0
    5193 APPLY3
    5194 PUSHACC3
    5195 PUSHACC5
    5196 PUSHACC7
    5197 PUSHENVACC2
    5198 APPTERM 4, 12
    5201 CONST1
    5202 PUSHCONST0
    5203 PUSHACC3
    5204 PUSHACC3
    5205 PUSHCONST0
    5206 MAKEBLOCK 5, 0
    5209 RETURN 3
    5211 RESTART
    5212 GRAB 1
    5214 ACC1
    5215 BRANCHIFNOT 5247
    5217 ACC1
    5218 GETFIELD1
    5219 PUSHACC1
    5220 PUSHENVACC1
    5221 GETFIELD0
    5222 APPLY2
    5223 PUSHCONST0
    5224 PUSHACC1
    5225 EQ
    5226 BRANCHIFNOT 5232
    5228 ACC2
    5229 GETFIELD2
    5230 RETURN 3
    5232 CONST0
    5233 PUSHACC1
    5234 LTINT
    5235 BRANCHIFNOT 5241
    5237 ACC2
    5238 GETFIELD0
    5239 BRANCH 5243
    5241 ACC2
    5242 GETFIELD3
    5243 PUSHACC2
    5244 PUSHOFFSETCLOSURE0
    5245 APPTERM2 5
    5247 GETGLOBAL Not_found
    5249 MAKEBLOCK1 0
    5251 RAISE
    5252 RESTART
    5253 GRAB 1
    5255 ACC1
    5256 BRANCHIFNOT 5286
    5258 ACC1
    5259 GETFIELD1
    5260 PUSHACC1
    5261 PUSHENVACC1
    5262 GETFIELD0
    5263 APPLY2
    5264 PUSHCONST0
    5265 PUSHACC1
    5266 EQ
    5267 BRANCHIF 5284
    5269 CONST0
    5270 PUSHACC1
    5271 LTINT
    5272 BRANCHIFNOT 5278
    5274 ACC2
    5275 GETFIELD0
    5276 BRANCH 5280
    5278 ACC2
    5279 GETFIELD3
    5280 PUSHACC2
    5281 PUSHOFFSETCLOSURE0
    5282 APPTERM2 5
    5284 POP 1
    5286 RETURN 2
    5288 RESTART
    5289 GRAB 1
    5291 ACC0
    5292 BRANCHIF 5297
    5294 ACC1
    5295 RETURN 2
    5297 ACC1
    5298 BRANCHIF 5303
    5300 ACC0
    5301 RETURN 2
    5303 ACC0
    5304 BRANCHIFNOT 5336
    5306 ACC1
    5307 BRANCHIFNOT 5336
    5309 PUSH_RETADDR 5326
    5311 ACC4
    5312 GETFIELD3
    5313 PUSHACC5
    5314 GETFIELD2
    5315 PUSHACC6
    5316 GETFIELD1
    5317 PUSHACC7
    5318 GETFIELD0
    5319 PUSHACC7
    5320 GETFIELD3
    5321 PUSHOFFSETCLOSURE0
    5322 APPLY2
    5323 PUSHENVACC1
    5324 APPLY 4
    5326 PUSHACC1
    5327 GETFIELD2
    5328 PUSHACC2
    5329 GETFIELD1
    5330 PUSHACC3
    5331 GETFIELD0
    5332 PUSHENVACC1
    5333 APPTERM 4, 6
    5336 GETGLOBAL <0>("map.ml", 3614, 3797)
    5338 PUSHGETGLOBAL Match_failure
    5340 MAKEBLOCK2 0
    5342 RAISE
    5343 RESTART
    5344 GRAB 1
    5346 ACC1
    5347 BRANCHIFNOT 5400
    5349 ACC1
    5350 GETFIELD0
    5351 PUSHACC2
    5352 GETFIELD1
    5353 PUSHACC3
    5354 GETFIELD2
    5355 PUSHACC4
    5356 GETFIELD3
    5357 PUSHACC2
    5358 PUSHACC5
    5359 PUSHENVACC1
    5360 GETFIELD0
    5361 APPLY2
    5362 PUSHCONST0
    5363 PUSHACC1
    5364 EQ
    5365 BRANCHIFNOT 5372
    5367 ACC1
    5368 PUSHACC5
    5369 PUSHENVACC3
    5370 APPTERM2 9
    5372 CONST0
    5373 PUSHACC1
    5374 LTINT
    5375 BRANCHIFNOT 5389
    5377 ACC1
    5378 PUSHACC3
    5379 PUSHACC5
    5380 PUSHACC7
    5381 PUSHACC 9
    5383 PUSHOFFSETCLOSURE0
    5384 APPLY2
    5385 PUSHENVACC2
    5386 APPTERM 4, 11
    5389 ACC1
    5390 PUSHACC6
    5391 PUSHOFFSETCLOSURE0
    5392 APPLY2
    5393 PUSHACC3
    5394 PUSHACC5
    5395 PUSHACC7
    5396 PUSHENVACC2
    5397 APPTERM 4, 11
    5400 RETURN 2
    5402 RESTART
    5403 GRAB 1
    5405 ACC1
    5406 BRANCHIFNOT 5425
    5408 ACC1
    5409 GETFIELD0
    5410 PUSHACC1
    5411 PUSHOFFSETCLOSURE0
    5412 APPLY2
    5413 ACC1
    5414 GETFIELD2
    5415 PUSHACC2
    5416 GETFIELD1
    5417 PUSHACC2
    5418 APPLY2
    5419 ACC1
    5420 GETFIELD3
    5421 PUSHACC1
    5422 PUSHOFFSETCLOSURE0
    5423 APPTERM2 4
    5425 RETURN 2
    5427 RESTART
    5428 GRAB 1
    5430 ACC1
    5431 BRANCHIFNOT 5455
    5433 ACC1
    5434 GETFIELD 4
    5436 PUSHACC2
    5437 GETFIELD3
    5438 PUSHACC2
    5439 PUSHOFFSETCLOSURE0
    5440 APPLY2
    5441 PUSHACC3
    5442 GETFIELD2
    5443 PUSHACC3
    5444 APPLY1
    5445 PUSHACC4
    5446 GETFIELD1
    5447 PUSHACC5
    5448 GETFIELD0
    5449 PUSHACC5
    5450 PUSHOFFSETCLOSURE0
    5451 APPLY2
    5452 MAKEBLOCK 5, 0
    5455 RETURN 2
    5457 RESTART
    5458 GRAB 2
    5460 ACC1
    5461 BRANCHIFNOT 5481
    5463 ACC2
    5464 PUSHACC2
    5465 GETFIELD3
    5466 PUSHACC2
    5467 PUSHOFFSETCLOSURE0
    5468 APPLY3
    5469 PUSHACC2
    5470 GETFIELD2
    5471 PUSHACC3
    5472 GETFIELD1
    5473 PUSHACC3
    5474 APPLY3
    5475 PUSHACC2
    5476 GETFIELD0
    5477 PUSHACC2
    5478 PUSHOFFSETCLOSURE0
    5479 APPTERM3 6
    5481 ACC2
    5482 RETURN 3
    5484 RESTART
    5485 GRAB 3
    5487 ACC0
    5488 BRANCHIFNOT 5495
    5490 ACC0
    5491 GETFIELD 4
    5493 BRANCH 5496
    5495 CONST0
    5496 PUSHACC4
    5497 BRANCHIFNOT 5504
    5499 ACC4
    5500 GETFIELD 4
    5502 BRANCH 5505
    5504 CONST0
    5505 PUSHACC0
    5506 OFFSETINT 2
    5508 PUSHACC2
    5509 GTINT
    5510 BRANCHIFNOT 5603
    5512 ACC2
    5513 BRANCHIFNOT 5596
    5515 ACC2
    5516 GETFIELD0
    5517 PUSHACC3
    5518 GETFIELD1
    5519 PUSHACC4
    5520 GETFIELD2
    5521 PUSHACC5
    5522 GETFIELD3
    5523 PUSHACC0
    5524 PUSHENVACC1
    5525 APPLY1
    5526 PUSHACC4
    5527 PUSHENVACC1
    5528 APPLY1
    5529 GEINT
    5530 BRANCHIFNOT 5551
    5532 PUSH_RETADDR 5544
    5534 ACC 12
    5536 PUSHACC 12
    5538 PUSHACC 12
    5540 PUSHACC6
    5541 PUSHENVACC2
    5542 APPLY 4
    5544 PUSHACC2
    5545 PUSHACC4
    5546 PUSHACC6
    5547 PUSHENVACC2
    5548 APPTERM 4, 14
    5551 ACC0
    5552 BRANCHIFNOT 5589
    5554 PUSH_RETADDR 5567
    5556 ACC 12
    5558 PUSHACC 12
    5560 PUSHACC 12
    5562 PUSHACC6
    5563 GETFIELD3
    5564 PUSHENVACC2
    5565 APPLY 4
    5567 PUSHACC1
    5568 GETFIELD2
    5569 PUSHACC2
    5570 GETFIELD1
    5571 PUSH
    5572 PUSH_RETADDR 5585
    5574 ACC6
    5575 GETFIELD0
    5576 PUSHACC 8
    5578 PUSHACC 10
    5580 PUSHACC 12
    5582 PUSHENVACC2
    5583 APPLY 4
    5585 PUSHENVACC2
    5586 APPTERM 4, 14
    5589 GETGLOBAL "Map.bal"
    5591 PUSHGETGLOBALFIELD Pervasives, 2
    5594 APPTERM1 11
    5596 GETGLOBAL "Map.bal"
    5598 PUSHGETGLOBALFIELD Pervasives, 2
    5601 APPTERM1 7
    5603 ACC1
    5604 OFFSETINT 2
    5606 PUSHACC1
    5607 GTINT
    5608 BRANCHIFNOT 5703
    5610 ACC5
    5611 BRANCHIFNOT 5696
    5613 ACC5
    5614 GETFIELD0
    5615 PUSHACC6
    5616 GETFIELD1
    5617 PUSHACC7
    5618 GETFIELD2
    5619 PUSHACC 8
    5621 GETFIELD3
    5622 PUSHACC3
    5623 PUSHENVACC1
    5624 APPLY1
    5625 PUSHACC1
    5626 PUSHENVACC1
    5627 APPLY1
    5628 GEINT
    5629 BRANCHIFNOT 5652
    5631 ACC0
    5632 PUSHACC2
    5633 PUSHACC4
    5634 PUSH
    5635 PUSH_RETADDR 5648
    5637 ACC 9
    5639 PUSHACC 15
    5641 PUSHACC 15
    5643 PUSHACC 15
    5645 PUSHENVACC2
    5646 APPLY 4
    5648 PUSHENVACC2
    5649 APPTERM 4, 14
    5652 ACC3
    5653 BRANCHIFNOT 5689
    5655 PUSH_RETADDR 5666
    5657 ACC3
    5658 PUSHACC5
    5659 PUSHACC7
    5660 PUSHACC 9
    5662 GETFIELD3
    5663 PUSHENVACC2
    5664 APPLY 4
    5666 PUSHACC4
    5667 GETFIELD2
    5668 PUSHACC5
    5669 GETFIELD1
    5670 PUSH
    5671 PUSH_RETADDR 5685
    5673 ACC 9
    5675 GETFIELD0
    5676 PUSHACC 15
    5678 PUSHACC 15
    5680 PUSHACC 15
    5682 PUSHENVACC2
    5683 APPLY 4
    5685 PUSHENVACC2
    5686 APPTERM 4, 14
    5689 GETGLOBAL "Map.bal"
    5691 PUSHGETGLOBALFIELD Pervasives, 2
    5694 APPTERM1 11
    5696 GETGLOBAL "Map.bal"
    5698 PUSHGETGLOBALFIELD Pervasives, 2
    5701 APPTERM1 7
    5703 ACC0
    5704 PUSHACC2
    5705 GEINT
    5706 BRANCHIFNOT 5713
    5708 ACC1
    5709 OFFSETINT 1
    5711 BRANCH 5716
    5713 ACC0
    5714 OFFSETINT 1
    5716 PUSHACC6
    5717 PUSHACC6
    5718 PUSHACC6
    5719 PUSHACC6
    5720 MAKEBLOCK 5, 0
    5723 RETURN 6
    5725 RESTART
    5726 GRAB 3
    5728 ACC0
    5729 PUSHENVACC1
    5730 APPLY1
    5731 PUSHACC4
    5732 PUSHENVACC1
    5733 APPLY1
    5734 PUSHACC0
    5735 PUSHACC2
    5736 GEINT
    5737 BRANCHIFNOT 5744
    5739 ACC1
    5740 OFFSETINT 1
    5742 BRANCH 5747
    5744 ACC0
    5745 OFFSETINT 1
    5747 PUSHACC6
    5748 PUSHACC6
    5749 PUSHACC6
    5750 PUSHACC6
    5751 MAKEBLOCK 5, 0
    5754 RETURN 6
    5756 ACC0
    5757 BRANCHIFNOT 5764
    5759 ACC0
    5760 GETFIELD 4
    5762 RETURN 1
    5764 CONST0
    5765 RETURN 1
    5767 CONST0
    5768 PUSH
    5769 CLOSURE 0, 5756
    5772 PUSHACC0
    5773 CLOSURE 1, 5726
    5776 PUSHACC0
    5777 PUSHACC2
    5778 CLOSURE 2, 5485
    5781 PUSHACC0
    5782 PUSHACC5
    5783 CLOSUREREC 2, 5132
    5787 ACC5
    5788 CLOSUREREC 1, 5212
    5792 ACC6
    5793 CLOSUREREC 1, 5253
    5797 ACC3
    5798 CLOSUREREC 1, 5289
    5802 ACC0
    5803 PUSHACC5
    5804 PUSHACC 10
    5806 CLOSUREREC 3, 5344
    5810 CLOSUREREC 0, 5403
    5814 CLOSUREREC 0, 5428
    5818 CLOSUREREC 0, 5458
    5822 ACC0
    5823 PUSHACC2
    5824 PUSHACC4
    5825 PUSHACC6
    5826 PUSHACC 8
    5828 PUSHACC 10
    5830 PUSHACC 12
    5832 PUSHACC 14
    5834 PUSHACC 16
    5836 PUSHACC 18
    5838 PUSHACC 20
    5840 PUSHACC 22
    5842 MAKEBLOCK 12, 0
    5845 RETURN 13
    5847 CLOSURE 0, 5767
    5850 PUSHACC0
    5851 CLOSURE 1, 5100
    5854 MAKEBLOCK1 0
    5856 POP 1
    5858 SETGLOBAL Map
    5860 BRANCH 5957
    5862 CONSTINT 16
    5864 C_CALL1 create_string
    5866 PUSH
    5867 PUSH_RETADDR 5879
    5869 CONSTINT 16
    5871 PUSHCONST0
    5872 PUSHACC5
    5873 PUSHACC7
    5874 PUSHGETGLOBALFIELD Pervasives, 56
    5877 APPLY 4
    5879 ACC0
    5880 RETURN 2
    5882 RESTART
    5883 GRAB 1
    5885 CONSTINT 16
    5887 PUSHCONST0
    5888 PUSHACC3
    5889 PUSHACC3
    5890 PUSHGETGLOBALFIELD Pervasives, 41
    5893 APPTERM 4, 6
    5896 ACC0
    5897 PUSHGETGLOBALFIELD Pervasives, 51
    5900 APPLY1
    5901 PUSHACC0
    5902 PUSHGETGLOBALFIELD Pervasives, 62
    5905 APPLY1
    5906 PUSHACC1
    5907 C_CALL2 md5_chan
    5909 PUSHACC1
    5910 PUSHGETGLOBALFIELD Pervasives, 63
    5913 APPLY1
    5914 ACC0
    5915 RETURN 3
    5917 RESTART
    5918 GRAB 2
    5920 CONST0
    5921 PUSHACC2
    5922 LTINT
    5923 BRANCHIF 5934
    5925 ACC0
    5926 C_CALL1 ml_string_length
    5928 PUSHACC3
    5929 PUSHACC3
    5930 ADDINT
    5931 GTINT
    5932 BRANCHIFNOT 5941
    5934 GETGLOBAL "Digest.substring"
    5936 PUSHGETGLOBALFIELD Pervasives, 2
    5939 APPTERM1 4
    5941 ACC2
    5942 PUSHACC2
    5943 PUSHACC2
    5944 C_CALL3 md5_string
    5946 RETURN 3
    5948 ACC0
    5949 C_CALL1 ml_string_length
    5951 PUSHCONST0
    5952 PUSHACC2
    5953 C_CALL3 md5_string
    5955 RETURN 1
    5957 CLOSURE 0, 5948
    5960 PUSH
    5961 CLOSURE 0, 5918
    5964 PUSH
    5965 CLOSURE 0, 5896
    5968 PUSH
    5969 CLOSURE 0, 5883
    5972 PUSH
    5973 CLOSURE 0, 5862
    5976 PUSHACC0
    5977 PUSHACC2
    5978 PUSHACC4
    5979 PUSHACC6
    5980 PUSHACC 8
    5982 MAKEBLOCK 5, 0
    5985 POP 5
    5987 SETGLOBAL Digest
    5989 BRANCH 6245
    5991 CONST0
    5992 PUSHENVACC1
    5993 APPLY1
    5994 PUSHACC1
    5995 PUSHACC1
    5996 GEINT
    5997 BRANCHIFNOT 6003
    5999 ACC1
    6000 PUSHOFFSETCLOSURE0
    6001 APPTERM1 3
    6003 ACC0
    6004 RETURN 2
    6006 CONST0
    6007 C_CALL1 sys_random_seed
    6009 PUSHENVACC1
    6010 APPTERM1 2
    6012 CONSTINT 27182818
    6014 PUSHENVACC2
    6015 APPLY1
    6016 CONST0
    6017 PUSHACC1
    6018 VECTLENGTH
    6019 OFFSETINT -1
    6021 PUSH
    6022 BRANCH 6046
    6024 CHECK_SIGNALS
    6025 CONSTINT 55
    6027 PUSHACC2
    6028 MODINT
    6029 PUSHACC2
    6030 PUSHACC4
    6031 GETVECTITEM
    6032 PUSHACC1
    6033 PUSHENVACC1
    6034 GETVECTITEM
    6035 ADDINT
    6036 PUSHACC1
    6037 PUSHENVACC1
    6038 SETVECTITEM
    6039 POP 1
    6041 ACC1
    6042 OFFSETINT 1
    6044 ASSIGN 1
    6046 ACC0
    6047 PUSHACC2
    6048 LEINT
    6049 BRANCHIF 6024
    6051 CONST0
    6052 RETURN 3
    6054 ENVACC1
    6055 GETFIELD0
    6056 OFFSETINT 1
    6058 PUSHENVACC1
    6059 SETFIELD0
    6060 ENVACC1
    6061 GETFIELD0
    6062 PUSHGETGLOBALFIELD Pervasives, 14
    6065 APPLY1
    6066 PUSHGETGLOBALFIELD Digest, 0
    6069 APPLY1
    6070 PUSHCONSTINT 22
    6072 PUSHCONST3
    6073 PUSHACC2
    6074 C_CALL2 string_get
    6076 LSLINT
    6077 PUSHCONSTINT 16
    6079 PUSHCONST2
    6080 PUSHACC3
    6081 C_CALL2 string_get
    6083 LSLINT
    6084 PUSHCONSTINT 8
    6086 PUSHCONST1
    6087 PUSHACC4
    6088 C_CALL2 string_get
    6090 LSLINT
    6091 PUSHCONST0
    6092 PUSHACC4
    6093 C_CALL2 string_get
    6095 ADDINT
    6096 ADDINT
    6097 XORINT
    6098 RETURN 2
    6100 ACC0
    6101 MAKEBLOCK1 0
    6103 PUSHACC0
    6104 CLOSURE 1, 6054
    6107 PUSHCONST0
    6108 PUSHCONSTINT 54
    6110 PUSH
    6111 BRANCH 6125
    6113 CHECK_SIGNALS
    6114 CONST0
    6115 PUSHACC3
    6116 APPLY1
    6117 PUSHACC2
    6118 PUSHENVACC1
    6119 SETVECTITEM
    6120 ACC1
    6121 OFFSETINT 1
    6123 ASSIGN 1
    6125 ACC0
    6126 PUSHACC2
    6127 LEINT
    6128 BRANCHIF 6113
    6130 CONST0
    6131 POP 2
    6133 CONST0
    6134 PUSHENVACC2
    6135 SETFIELD0
    6136 RETURN 3
    6138 ACC0
    6139 PUSHCONST0
    6140 PUSHENVACC1
    6141 APPLY1
    6142 C_CALL2 mul_float
    6144 RETURN 1
    6146 CONSTINT 1073741823
    6148 PUSHACC1
    6149 GTINT
    6150 BRANCHIF 6157
    6152 CONST0
    6153 PUSHACC1
    6154 LEINT
    6155 BRANCHIFNOT 6164
    6157 GETGLOBAL "Random.int"
    6159 PUSHGETGLOBALFIELD Pervasives, 2
    6162 APPTERM1 2
    6164 ACC0
    6165 PUSHACC1
    6166 PUSHACC2
    6167 PUSHCONSTINT 1073741823
    6169 DIVINT
    6170 MULINT
    6171 PUSHENVACC1
    6172 APPLY1
    6173 MODINT
    6174 RETURN 1
    6176 GETGLOBAL 1073741824
    6178 PUSHCONST0
    6179 PUSHENVACC1
    6180 APPLY1
    6181 C_CALL1 float_of_int
    6183 PUSHCONST0
    6184 PUSHENVACC1
    6185 APPLY1
    6186 C_CALL1 float_of_int
    6188 PUSHCONST0
    6189 PUSHENVACC1
    6190 APPLY1
    6191 C_CALL1 float_of_int
    6193 PUSHACC3
    6194 PUSHACC1
    6195 PUSHACC5
    6196 PUSHACC4
    6197 PUSHACC7
    6198 PUSHACC7
    6199 C_CALL2 div_float
    6201 C_CALL2 add_float
    6203 C_CALL2 div_float
    6205 C_CALL2 add_float
    6207 C_CALL2 div_float
    6209 RETURN 5
    6211 CONSTINT 55
    6213 PUSHENVACC2
    6214 GETFIELD0
    6215 OFFSETINT 1
    6217 MODINT
    6218 PUSHENVACC2
    6219 SETFIELD0
    6220 ENVACC2
    6221 GETFIELD0
    6222 PUSHENVACC1
    6223 GETVECTITEM
    6224 PUSHCONSTINT 55
    6226 PUSHENVACC2
    6227 GETFIELD0
    6228 OFFSETINT 24
    6230 MODINT
    6231 PUSHENVACC1
    6232 GETVECTITEM
    6233 ADDINT
    6234 PUSHACC0
    6235 PUSHENVACC2
    6236 GETFIELD0
    6237 PUSHENVACC1
    6238 SETVECTITEM
    6239 CONSTINT 1073741823
    6241 PUSHACC1
    6242 ANDINT
    6243 RETURN 2
    6245 CONSTINT 440266690
    6247 PUSHCONSTINT 124177607
    6249 PUSHCONSTINT 414576093
    6251 PUSHCONSTINT 180326017
    6253 PUSHCONSTINT 33747835
    6255 PUSHCONSTINT 896816596
    6257 PUSHCONSTINT 21528564
    6259 PUSHCONSTINT 414383108
    6261 PUSHCONSTINT 514922558
    6263 PUSHCONSTINT 979459837
    6265 PUSHCONSTINT 146577263
    6267 PUSHCONSTINT 714526560
    6269 PUSHCONSTINT 187230644
    6271 PUSHCONSTINT 22990936
    6273 PUSHCONSTINT 310632349
    6275 PUSHCONSTINT 781847598
    6277 PUSHCONSTINT 854580894
    6279 PUSHCONSTINT 804670393
    6281 PUSHCONSTINT 268309077
    6283 PUSHCONSTINT 4136554
    6285 PUSHCONSTINT 567327260
    6287 PUSHCONSTINT 768795410
    6289 PUSHCONSTINT 868098973
    6291 PUSHCONSTINT 462134267
    6293 PUSHCONSTINT 32881167
    6295 PUSHCONSTINT 708896334
    6297 PUSHCONSTINT 572927557
    6299 PUSHCONSTINT 933858406
    6301 PUSHCONSTINT 965168955
    6303 PUSHCONSTINT 233350272
    6305 PUSHCONSTINT 878960411
    6307 PUSHCONSTINT 971004788
    6309 PUSHCONSTINT 762624501
    6311 PUSHCONSTINT 796925167
    6313 PUSHCONSTINT 206134737
    6315 PUSHCONSTINT 281896889
    6317 PUSHCONSTINT 814302728
    6319 PUSHCONSTINT 477485839
    6321 PUSHCONSTINT 998499212
    6323 PUSHCONSTINT 473370118
    6325 PUSHCONSTINT 66770770
    6327 PUSHCONSTINT 337696531
    6329 PUSHCONSTINT 848741663
    6331 PUSHCONSTINT 71648846
    6333 PUSHCONSTINT 869261341
    6335 PUSHCONSTINT 951240904
    6337 PUSHCONSTINT 147054819
    6339 PUSHCONSTINT 486882977
    6341 PUSHCONSTINT 552627506
    6343 PUSHCONSTINT 615350359
    6345 PUSHCONSTINT 1023641486
    6347 PUSHCONSTINT 9858203
    6349 PUSHCONSTINT 764306064
    6351 PUSHCONSTINT 1051173471
    6353 PUSHCONSTINT 561073064
    6355 MAKEBLOCK 55, 0
    6358 PUSHCONST0
    6359 MAKEBLOCK1 0
    6361 PUSHACC0
    6362 PUSHACC2
    6363 CLOSURE 2, 6211
    6366 PUSHACC0
    6367 CLOSURE 1, 6176
    6370 PUSHACC1
    6371 CLOSUREREC 1, 5991
    6375 ACC0
    6376 CLOSURE 1, 6146
    6379 PUSHACC2
    6380 CLOSURE 1, 6138
    6383 PUSHACC5
    6384 PUSHACC7
    6385 CLOSURE 2, 6100
    6388 PUSHACC0
    6389 PUSHACC 8
    6391 CLOSURE 2, 6012
    6394 PUSHACC1
    6395 CLOSURE 1, 6006
    6398 PUSHACC3
    6399 PUSHACC5
    6400 PUSHACC 9
    6402 PUSHACC3
    6403 PUSHACC5
    6404 PUSHACC7
    6405 MAKEBLOCK 6, 0
    6408 POP 10
    6410 SETGLOBAL Random
    6412 BRANCH 8038
    6414 RESTART
    6415 GRAB 1
    6417 ACC1
    6418 BRANCHIFNOT 6441
    6420 ACC1
    6421 GETFIELD0
    6422 PUSHACC2
    6423 GETFIELD1
    6424 PUSHACC1
    6425 PUSHACC3
    6426 EQ
    6427 BRANCHIFNOT 6432
    6429 ACC0
    6430 RETURN 4
    6432 ACC0
    6433 PUSHACC3
    6434 PUSHOFFSETCLOSURE0
    6435 APPLY2
    6436 PUSHACC2
    6437 MAKEBLOCK2 0
    6439 POP 2
    6441 RETURN 2
    6443 RESTART
    6444 GRAB 1
    6446 CONST0
    6447 PUSHACC2
    6448 GTINT
    6449 BRANCHIFNOT 6512
    6451 CONST0
    6452 PUSHENVACC2
    6453 GETFIELD0
    6454 GTINT
    6455 BRANCHIFNOT 6512
    6457 ENVACC2
    6458 GETFIELD0
    6459 PUSHGETGLOBALFIELD Random, 4
    6462 APPLY1
    6463 PUSHACC0
    6464 PUSHENVACC1
    6465 GETFIELD0
    6466 C_CALL2 array_get_addr
    6468 PUSHENVACC 5
    6470 APPLY1
    6471 BRANCHIF 6482
    6473 ACC0
    6474 PUSHENVACC 4
    6476 APPLY1
    6477 ACC2
    6478 PUSHACC2
    6479 PUSHOFFSETCLOSURE0
    6480 APPTERM2 5
    6482 PUSHTRAP 6496
    6484 ACC5
    6485 PUSHACC5
    6486 PUSHENVACC1
    6487 GETFIELD0
    6488 C_CALL2 array_get_addr
    6490 PUSHENVACC 7
    6492 APPLY2
    6493 POPTRAP
    6494 RETURN 3
    6496 PUSHENVACC 6
    6498 PUSHACC1
    6499 GETFIELD0
    6500 EQ
    6501 BRANCHIFNOT 6510
    6503 ACC3
    6504 OFFSETINT -1
    6506 PUSHACC3
    6507 PUSHOFFSETCLOSURE0
    6508 APPTERM2 6
    6510 ACC0
    6511 RAISE
    6512 ACC0
    6513 PUSHENVACC3
    6514 APPLY1
    6515 ACC0
    6516 RETURN 2
    6518 RESTART
    6519 GRAB 1
    6521 ACC1
    6522 BRANCHIFNOT 6534
    6524 ACC0
    6525 PUSHACC2
    6526 GETFIELD0
    6527 APPLY1
    6528 ACC1
    6529 GETFIELD1
    6530 PUSHACC1
    6531 PUSHOFFSETCLOSURE0
    6532 APPTERM2 4
    6534 RETURN 2
    6536 CONST0
    6537 PUSHENVACC1
    6538 OFFSETINT -1
    6540 PUSH
    6541 BRANCH 6567
    6543 CHECK_SIGNALS
    6544 ENVACC2
    6545 PUSHACC2
    6546 PUSHACC4
    6547 C_CALL2 array_get
    6549 EQ
    6550 BRANCHIFNOT 6556
    6552 CONSTINT 46
    6554 BRANCH 6558
    6556 CONSTINT 42
    6558 PUSHGETGLOBALFIELD Pervasives, 20
    6561 APPLY1
    6562 ACC1
    6563 OFFSETINT 1
    6565 ASSIGN 1
    6567 ACC0
    6568 PUSHACC2
    6569 LEINT
    6570 BRANCHIF 6543
    6572 CONST0
    6573 POP 2
    6575 CONST0
    6576 PUSHGETGLOBALFIELD Pervasives, 25
    6579 APPTERM1 2
    6581 ENVACC3
    6582 GETFIELD0
    6583 PUSHENVACC 4
    6585 APPLY1
    6586 PUSHENVACC2
    6587 PUSHENVACC1
    6588 CLOSURE 2, 6536
    6591 PUSHGETGLOBALFIELD List, 9
    6594 APPTERM2 3
    6596 ACC0
    6597 GETFIELD1
    6598 RETURN 1
    6600 RESTART
    6601 GRAB 1
    6603 ACC1
    6604 GETFIELD0
    6605 PUSHACC1
    6606 GETFIELD0
    6607 LEINT
    6608 RETURN 2
    6610 ACC0
    6611 PUSHACC1
    6612 PUSHENVACC1
    6613 APPLY1
    6614 MAKEBLOCK2 0
    6616 RETURN 1
    6618 ACC0
    6619 PUSHENVACC1
    6620 CLOSURE 1, 6610
    6623 PUSHGETGLOBALFIELD List, 10
    6626 APPLY2
    6627 PUSH
    6628 CLOSURE 0, 6601
    6631 PUSHGETGLOBALFIELD Sort, 0
    6634 APPLY2
    6635 PUSH
    6636 CLOSURE 0, 6596
    6639 PUSHGETGLOBALFIELD List, 10
    6642 APPTERM2 3
    6644 ENVACC3
    6645 GETFIELD0
    6646 VECTLENGTH
    6647 PUSHENVACC 4
    6649 GETFIELD0
    6650 PUSHCONST0
    6651 PUSHENVACC 8
    6653 APPLY1
    6654 PUSHENVACC2
    6655 GETFIELD0
    6656 PUSHGETGLOBALFIELD List, 0
    6659 APPLY1
    6660 PUSHENVACC 7
    6662 GETFIELD0
    6663 PUSHENVACC 6
    6665 GETFIELD0
    6666 PUSHENVACC1
    6667 GETFIELD0
    6668 PUSHENVACC 5
    6670 GETFIELD0
    6671 MAKEBLOCK 8, 0
    6674 RETURN 1
    6676 ACC0
    6677 PUSHENVACC1
    6678 APPLY1
    6679 PUSHACC0
    6680 OFFSETINT -1
    6682 PUSHENVACC2
    6683 C_CALL2 array_get_addr
    6685 OFFSETINT 1
    6687 PUSHACC1
    6688 OFFSETINT -1
    6690 PUSHENVACC2
    6691 C_CALL3 array_set_addr
    6693 RETURN 2
    6695 CONST0
    6696 PUSHCONSTINT 32
    6698 C_CALL2 make_vect
    6700 PUSHENVACC1
    6701 GETFIELD0
    6702 PUSHACC1
    6703 PUSHENVACC2
    6704 CLOSURE 2, 6676
    6707 PUSHGETGLOBALFIELD List, 9
    6710 APPLY2
    6711 ACC0
    6712 RETURN 2
    6714 RESTART
    6715 GRAB 1
    6717 ACC1
    6718 PUSHENVACC1
    6719 APPLY1
    6720 PUSHACC1
    6721 PUSHACC1
    6722 GETFIELD1
    6723 PUSHACC2
    6724 GETFIELD0
    6725 PUSHCONST0
    6726 PUSHACC5
    6727 C_CALL2 array_get_addr
    6729 C_CALL2 array_get_addr
    6731 C_CALL2 array_get_addr
    6733 APPTERM1 4
    6735 ACC0
    6736 GETFIELD0
    6737 C_CALL1 obj_dup
    6739 PUSHENVACC1
    6740 PUSHACC1
    6741 PUSHENVACC2
    6742 APPLY2
    6743 ACC1
    6744 GETFIELD2
    6745 PUSHACC1
    6746 PUSHENVACC3
    6747 APPLY2
    6748 ACC0
    6749 RETURN 2
    6751 RESTART
    6752 GRAB 1
    6754 ACC1
    6755 GETFIELD 7
    6757 PUSHCONST0
    6758 PUSHACC1
    6759 NEQ
    6760 BRANCHIFNOT 6767
    6762 ACC0
    6763 PUSHACC2
    6764 PUSHENVACC1
    6765 APPTERM2 5
    6767 RETURN 3
    6769 ACC0
    6770 GETFIELD0
    6771 PUSHENVACC1
    6772 C_CALL2 obj_block
    6774 PUSHACC1
    6775 GETFIELD1
    6776 PUSHCONST0
    6777 PUSHACC2
    6778 C_CALL3 array_unsafe_set
    6780 ENVACC2
    6781 PUSHACC1
    6782 PUSHENVACC3
    6783 APPLY2
    6784 ACC0
    6785 RETURN 2
    6787 ACC0
    6788 GETFIELD0
    6789 PUSHENVACC3
    6790 GETFIELD0
    6791 ADDINT
    6792 OFFSETINT -1
    6794 PUSHENVACC3
    6795 SETFIELD0
    6796 ENVACC1
    6797 GETFIELD0
    6798 BRANCHIFNOT 6804
    6800 ACC0
    6801 GETFIELD1
    6802 PUSHENVACC2
    6803 APPLY1
    6804 ACC0
    6805 GETFIELD 7
    6807 PUSHGETGLOBALFIELD List, 4
    6810 APPLY1
    6811 PUSHACC1
    6812 SETFIELD 7
    6814 RETURN 1
    6816 ACC0
    6817 PUSHENVACC1
    6818 APPLY1
    6819 PUSHENVACC 4
    6821 GETFIELD2
    6822 PUSHACC1
    6823 PUSHACC3
    6824 PUSHENVACC2
    6825 GETFIELD1
    6826 APPLY3
    6827 PUSHENVACC 4
    6829 SETFIELD2
    6830 ENVACC4
    6831 GETFIELD3
    6832 PUSHCONST1
    6833 PUSHACC2
    6834 PUSHENVACC3
    6835 GETFIELD1
    6836 APPLY3
    6837 PUSHENVACC 4
    6839 SETFIELD3
    6840 RETURN 2
    6842 CONST0
    6843 PUSHENVACC 4
    6845 APPLY1
    6846 PUSHACC1
    6847 PUSHACC1
    6848 PUSHENVACC3
    6849 PUSHENVACC2
    6850 PUSHENVACC1
    6851 CLOSURE 4, 6816
    6854 PUSHGETGLOBALFIELD List, 9
    6857 APPLY2
    6858 ACC0
    6859 RETURN 2
    6861 RESTART
    6862 GRAB 1
    6864 ACC0
    6865 GETFIELD 7
    6867 PUSHACC2
    6868 MAKEBLOCK2 0
    6870 PUSHACC1
    6871 SETFIELD 7
    6873 RETURN 2
    6875 ENVACC1
    6876 PUSHENVACC3
    6877 PUSH
    6878 BRANCH 6895
    6880 CHECK_SIGNALS
    6881 ACC1
    6882 PUSHENVACC2
    6883 GETVECTITEM
    6884 PUSHENVACC 4
    6886 PUSHACC3
    6887 ADDINT
    6888 PUSHACC4
    6889 SETVECTITEM
    6890 ACC1
    6891 OFFSETINT 1
    6893 ASSIGN 1
    6895 ACC0
    6896 PUSHACC2
    6897 LEINT
    6898 BRANCHIF 6880
    6900 CONST0
    6901 RETURN 3
    6903 ENVACC2
    6904 GETFIELD0
    6905 PUSHENVACC2
    6906 GETFIELD2
    6907 GETFIELD0
    6908 OFFSETINT -1
    6910 PUSHENVACC3
    6911 GETFIELD0
    6912 OFFSETINT -1
    6914 PUSHACC1
    6915 PUSHACC1
    6916 SUBINT
    6917 PUSHACC0
    6918 PUSHACC3
    6919 PUSHACC5
    6920 PUSHENVACC1
    6921 CLOSURE 4, 6875
    6924 RETURN 5
    6926 RESTART
    6927 GRAB 1
    6929 CONST0
    6930 ACC1
    6931 PUSHACC1
    6932 PUSHENVACC1
    6933 CLOSURE 3, 6903
    6936 RETURN 2
    6938 RESTART
    6939 GRAB 1
    6941 ACC0
    6942 GETFIELD 6
    6944 PUSHACC2
    6945 PUSHENVACC1
    6946 GETFIELD2
    6947 APPTERM2 4
    6949 RESTART
    6950 GRAB 1
    6952 ACC0
    6953 PUSHENVACC2
    6954 APPLY1
    6955 PUSHACC1
    6956 GETFIELD 6
    6958 PUSHACC1
    6959 PUSHACC4
    6960 PUSHENVACC1
    6961 GETFIELD1
    6962 APPLY3
    6963 PUSHACC2
    6964 SETFIELD 6
    6966 ACC0
    6967 RETURN 3
    6969 ACC0
    6970 GETFIELD0
    6971 PUSHACC0
    6972 OFFSETINT 1
    6974 PUSHACC2
    6975 SETFIELD0
    6976 ACC0
    6977 RETURN 2
    6979 RESTART
    6980 GRAB 1
    6982 CONST0
    6983 PUSHACC1
    6984 PUSHACC3
    6985 GETFIELD1
    6986 APPTERM2 4
    6988 RESTART
    6989 GRAB 1
    6991 ENVACC1
    6992 GETFIELD 4
    6994 PUSHACC1
    6995 GETFIELD0
    6996 PUSHGETGLOBALFIELD List, 23
    6999 APPLY2
    7000 BRANCHIFNOT 7005
    7002 ACC1
    7003 RETURN 2
    7005 ACC1
    7006 PUSHACC1
    7007 MAKEBLOCK2 0
    7009 RETURN 2
    7011 RESTART
    7012 GRAB 1
    7014 ACC0
    7015 PUSHENVACC2
    7016 GETFIELD 6
    7018 PUSHACC3
    7019 PUSHENVACC1
    7020 GETFIELD2
    7021 APPLY2
    7022 PUSHACC3
    7023 PUSHENVACC1
    7024 GETFIELD1
    7025 APPTERM3 5
    7027 ACC0
    7028 GETFIELD 4
    7030 PUSHGETGLOBALFIELD List, 1
    7033 APPLY1
    7034 PUSHACC1
    7035 GETFIELD 4
    7037 PUSHGETGLOBALFIELD List, 2
    7040 APPLY1
    7041 PUSHACC2
    7042 SETFIELD 4
    7044 ACC0
    7045 GETFIELD 5
    7047 PUSHACC1
    7048 GETFIELD3
    7049 PUSHACC3
    7050 PUSHENVACC1
    7051 CLOSURE 2, 7012
    7054 PUSHGETGLOBALFIELD List, 12
    7057 APPLY3
    7058 PUSHACC2
    7059 SETFIELD 6
    7061 ACC0
    7062 GETFIELD0
    7063 PUSHACC2
    7064 SETFIELD2
    7065 ACC0
    7066 GETFIELD1
    7067 PUSHACC2
    7068 SETFIELD3
    7069 ACC0
    7070 GETFIELD2
    7071 PUSHACC2
    7072 GETFIELD 5
    7074 PUSHACC2
    7075 CLOSURE 1, 6989
    7078 PUSHGETGLOBALFIELD List, 13
    7081 APPLY3
    7082 PUSHACC2
    7083 SETFIELD 5
    7085 RETURN 2
    7087 RESTART
    7088 GRAB 1
    7090 ENVACC1
    7091 PUSHACC1
    7092 GETFIELD0
    7093 PUSHGETGLOBALFIELD List, 23
    7096 APPLY2
    7097 BRANCHIFNOT 7102
    7099 ACC1
    7100 RETURN 2
    7102 ACC1
    7103 PUSHACC1
    7104 MAKEBLOCK2 0
    7106 RETURN 2
    7108 RESTART
    7109 GRAB 1
    7111 ENVACC3
    7112 GETFIELD0
    7113 PUSHACC2
    7114 PUSHACC2
    7115 PUSHENVACC1
    7116 GETFIELD1
    7117 APPLY3
    7118 PUSHENVACC3
    7119 SETFIELD0
    7120 ENVACC4
    7121 GETFIELD0
    7122 PUSHCONST0
    7123 PUSHACC3
    7124 PUSHENVACC2
    7125 GETFIELD1
    7126 APPLY3
    7127 PUSHENVACC 4
    7129 SETFIELD0
    7130 RETURN 2
    7132 ACC0
    7133 PUSHENVACC 4
    7135 PUSHENVACC3
    7136 APPLY2
    7137 PUSHENVACC 5
    7139 GETFIELD0
    7140 PUSHACC1
    7141 PUSHACC3
    7142 PUSHENVACC1
    7143 GETFIELD1
    7144 APPLY3
    7145 PUSHENVACC 5
    7147 SETFIELD0
    7148 ENVACC 6
    7150 GETFIELD0
    7151 PUSH
    7152 PUSHTRAP 7163
    7154 ENVACC4
    7155 GETFIELD3
    7156 PUSHACC6
    7157 PUSHENVACC2
    7158 GETFIELD2
    7159 APPLY2
    7160 POPTRAP
    7161 BRANCH 7177
    7163 PUSHGETGLOBAL Not_found
    7165 PUSHACC1
    7166 GETFIELD0
    7167 EQ
    7168 BRANCHIFNOT 7173
    7170 CONST1
    7171 BRANCH 7175
    7173 ACC0
    7174 RAISE
    7175 POP 1
    7177 PUSHACC2
    7178 PUSHENVACC2
    7179 GETFIELD1
    7180 APPLY3
    7181 PUSHENVACC 6
    7183 SETFIELD0
    7184 RETURN 2
    7186 RESTART
    7187 GRAB 3
    7189 ACC2
    7190 PUSHACC1
    7191 PUSHENVACC 4
    7193 APPLY1
    7194 PUSHGETGLOBALFIELD List, 10
    7197 APPLY2
    7198 PUSHACC1
    7199 GETFIELD 4
    7201 PUSHACC3
    7202 PUSHACC2
    7203 PUSHACC4
    7204 GETFIELD 6
    7206 PUSHACC5
    7207 GETFIELD 5
    7209 PUSHACC6
    7210 GETFIELD3
    7211 PUSHACC7
    7212 GETFIELD2
    7213 MAKEBLOCK 6, 0
    7216 MAKEBLOCK2 0
    7218 PUSHACC2
    7219 SETFIELD 4
    7221 ENVACC1
    7222 GETFIELD0
    7223 PUSHACC2
    7224 SETFIELD 6
    7226 ENVACC2
    7227 GETFIELD0
    7228 MAKEBLOCK1 0
    7230 PUSHENVACC3
    7231 GETFIELD0
    7232 MAKEBLOCK1 0
    7234 PUSHACC6
    7235 PUSHACC1
    7236 PUSHACC3
    7237 PUSHACC6
    7238 PUSHENVACC 4
    7240 PUSHENVACC3
    7241 PUSHENVACC2
    7242 CLOSURE 6, 7132
    7245 PUSHGETGLOBALFIELD List, 9
    7248 APPLY2
    7249 ACC2
    7250 PUSHACC6
    7251 PUSHACC2
    7252 PUSHACC4
    7253 PUSHENVACC3
    7254 PUSHENVACC2
    7255 CLOSURE 4, 7109
    7258 PUSHGETGLOBALFIELD List, 14
    7261 APPLY3
    7262 ACC1
    7263 GETFIELD0
    7264 PUSHACC4
    7265 SETFIELD2
    7266 ACC0
    7267 GETFIELD0
    7268 PUSHACC4
    7269 SETFIELD3
    7270 CONST0
    7271 PUSHACC4
    7272 GETFIELD 5
    7274 PUSHACC4
    7275 CLOSURE 1, 7088
    7278 PUSHGETGLOBALFIELD List, 13
    7281 APPLY3
    7282 PUSHACC4
    7283 SETFIELD 5
    7285 RETURN 7
    7287 RESTART
    7288 GRAB 1
    7290 PUSHTRAP 7303
    7292 ACC4
    7293 GETFIELD 5
    7295 PUSHACC6
    7296 PUSHGETGLOBALFIELD List, 29
    7299 APPLY2
    7300 POPTRAP
    7301 RETURN 2
    7303 PUSHGETGLOBAL Not_found
    7305 PUSHACC1
    7306 GETFIELD0
    7307 EQ
    7308 BRANCHIFNOT 7325
    7310 ACC2
    7311 PUSHENVACC1
    7312 APPLY1
    7313 PUSHACC0
    7314 GETFIELD1
    7315 PUSHACC1
    7316 GETFIELD0
    7317 PUSHACC4
    7318 GETFIELD1
    7319 C_CALL2 array_get_addr
    7321 C_CALL2 array_get
    7323 RETURN 4
    7325 ACC0
    7326 RAISE
    7327 RESTART
    7328 GRAB 2
    7330 ENVACC3
    7331 OFFSETREF 1
    7333 ACC0
    7334 GETFIELD3
    7335 PUSHACC2
    7336 PUSHENVACC1
    7337 GETFIELD2
    7338 APPLY2
    7339 BRANCHIFNOT 7347
    7341 ACC2
    7342 PUSHACC2
    7343 PUSHACC2
    7344 PUSHENVACC2
    7345 APPTERM3 6
    7347 ACC0
    7348 GETFIELD 5
    7350 PUSHACC3
    7351 PUSHACC3
    7352 MAKEBLOCK2 0
    7354 MAKEBLOCK2 0
    7356 PUSHACC1
    7357 SETFIELD 5
    7359 RETURN 3
    7361 RESTART
    7362 GRAB 1
    7364 PUSHTRAP 7375
    7366 ACC4
    7367 GETFIELD2
    7368 PUSHACC6
    7369 PUSHENVACC2
    7370 GETFIELD2
    7371 APPLY2
    7372 POPTRAP
    7373 RETURN 2
    7375 PUSHGETGLOBAL Not_found
    7377 PUSHACC1
    7378 GETFIELD0
    7379 EQ
    7380 BRANCHIFNOT 7406
    7382 CONST0
    7383 PUSHENVACC1
    7384 APPLY1
    7385 PUSHACC2
    7386 GETFIELD2
    7387 PUSHACC1
    7388 PUSHACC5
    7389 PUSHENVACC2
    7390 GETFIELD1
    7391 APPLY3
    7392 PUSHACC3
    7393 SETFIELD2
    7394 ACC2
    7395 GETFIELD3
    7396 PUSHCONST1
    7397 PUSHACC2
    7398 PUSHENVACC3
    7399 GETFIELD1
    7400 APPLY3
    7401 PUSHACC3
    7402 SETFIELD3
    7403 ACC0
    7404 RETURN 4
    7406 ACC0
    7407 RAISE
    7408 RESTART
    7409 GRAB 2
    7411 ACC1
    7412 PUSHENVACC1
    7413 APPLY1
    7414 PUSHACC0
    7415 GETFIELD0
    7416 PUSHACC0
    7417 OFFSETINT 1
    7419 PUSHACC3
    7420 PUSHENVACC 4
    7422 APPLY2
    7423 ACC0
    7424 PUSHACC3
    7425 GETFIELD1
    7426 C_CALL2 array_get_addr
    7428 PUSHENVACC2
    7429 PUSHACC1
    7430 EQ
    7431 BRANCHIFNOT 7444
    7433 CONST0
    7434 PUSHENVACC3
    7435 APPLY1
    7436 ASSIGN 0
    7438 ACC0
    7439 PUSHACC2
    7440 PUSHACC5
    7441 GETFIELD1
    7442 C_CALL3 array_set_addr
    7444 ACC5
    7445 PUSHACC3
    7446 GETFIELD1
    7447 PUSHACC2
    7448 C_CALL3 array_set
    7450 RETURN 6
    7452 RESTART
    7453 GRAB 1
    7455 ACC0
    7456 GETFIELD1
    7457 VECTLENGTH
    7458 PUSHACC0
    7459 PUSHACC3
    7460 GTINT
    7461 BRANCHIFNOT 7487
    7463 ENVACC1
    7464 PUSHACC3
    7465 C_CALL2 make_vect
    7467 PUSH
    7468 PUSH_RETADDR 7482
    7470 ACC4
    7471 PUSHCONST0
    7472 PUSHACC5
    7473 PUSHCONST0
    7474 PUSHACC 9
    7476 GETFIELD1
    7477 PUSHGETGLOBALFIELD Array, 8
    7480 APPLY 5
    7482 ACC0
    7483 PUSHACC3
    7484 SETFIELD1
    7485 POP 1
    7487 RETURN 3
    7489 ENVACC 5
    7491 OFFSETREF 1
    7493 CONST0
    7494 PUSHENVACC2
    7495 GETFIELD0
    7496 PUSHCONST0
    7497 PUSHCONST0
    7498 PUSHENVACC 4
    7500 GETFIELD0
    7501 PUSHENVACC3
    7502 GETFIELD0
    7503 PUSH
    7504 ATOM0
    7505 PUSHENVACC1
    7506 MAKEBLOCK 8, 0
    7509 RETURN 1
    7511 RESTART
    7512 GRAB 1
    7514 ACC1
    7515 PUSHACC1
    7516 C_CALL2 compare
    7518 RETURN 2
    7520 RESTART
    7521 GRAB 1
    7523 ACC1
    7524 PUSHACC1
    7525 C_CALL2 compare
    7527 RETURN 2
    7529 RESTART
    7530 GRAB 1
    7532 ACC1
    7533 PUSHACC1
    7534 C_CALL2 compare
    7536 RETURN 2
    7538 PUSHTRAP 7549
    7540 ACC4
    7541 PUSHENVACC1
    7542 PUSHGETGLOBALFIELD Hashtbl, 3
    7545 APPLY2
    7546 POPTRAP
    7547 RETURN 1
    7549 PUSHGETGLOBAL Not_found
    7551 PUSHACC1
    7552 GETFIELD0
    7553 EQ
    7554 BRANCHIFNOT 7569
    7556 CONST0
    7557 PUSHENVACC2
    7558 APPLY1
    7559 PUSHACC0
    7560 PUSHACC3
    7561 PUSHENVACC1
    7562 PUSHGETGLOBALFIELD Hashtbl, 2
    7565 APPLY3
    7566 ACC0
    7567 RETURN 3
    7569 ACC0
    7570 RAISE
    7571 ENVACC2
    7572 GETFIELD0
    7573 PUSHENVACC2
    7574 GETFIELD0
    7575 PUSHENVACC1
    7576 APPLY1
    7577 PUSHENVACC2
    7578 SETFIELD0
    7579 ACC0
    7580 RETURN 2
    7582 ENVACC1
    7583 PUSHACC1
    7584 VECTLENGTH
    7585 OFFSETINT -1
    7587 PUSH
    7588 BRANCH 7606
    7590 CHECK_SIGNALS
    7591 ACC1
    7592 PUSHACC3
    7593 C_CALL2 array_get_addr
    7595 PUSHENVACC2
    7596 APPLY1
    7597 PUSHACC2
    7598 PUSHACC4
    7599 C_CALL3 array_set_addr
    7601 ACC1
    7602 OFFSETINT 1
    7604 ASSIGN 1
    7606 ACC0
    7607 PUSHACC2
    7608 LEINT
    7609 BRANCHIF 7590
    7611 CONST0
    7612 RETURN 3
    7614 ENVACC4
    7615 PUSHACC1
    7616 NEQ
    7617 BRANCHIFNOT 7640
    7619 ENVACC2
    7620 GETFIELD0
    7621 PUSHACC1
    7622 PUSHENVACC3
    7623 APPLY1
    7624 EQ
    7625 BRANCHIFNOT 7640
    7627 ACC0
    7628 PUSHENVACC 5
    7630 APPLY1
    7631 BRANCHIFNOT 7640
    7633 ENVACC1
    7634 GETFIELD3
    7635 PUSHACC1
    7636 PUSHENVACC 6
    7638 APPTERM2 3
    7640 ACC0
    7641 RETURN 1
    7643 RESTART
    7644 GRAB 1
    7646 CONST0
    7647 PUSHENVACC1
    7648 OFFSETINT -1
    7650 PUSH
    7651 BRANCH 7690
    7653 CHECK_SIGNALS
    7654 ENVACC2
    7655 PUSHACC2
    7656 PUSHACC5
    7657 C_CALL2 array_get
    7659 NEQ
    7660 BRANCHIFNOT 7679
    7662 ENVACC2
    7663 PUSHACC2
    7664 PUSHACC4
    7665 C_CALL2 array_get
    7667 NEQ
    7668 BRANCHIFNOT 7679
    7670 ACC1
    7671 PUSHACC3
    7672 C_CALL2 array_get
    7674 PUSHACC2
    7675 PUSHACC5
    7676 C_CALL2 array_get
    7678 NEQ
    7679 BRANCHIFNOT 7685
    7681 ENVACC4
    7682 MAKEBLOCK1 0
    7684 RAISE
    7685 ACC1
    7686 OFFSETINT 1
    7688 ASSIGN 1
    7690 ACC0
    7691 PUSHACC2
    7692 LEINT
    7693 BRANCHIF 7653
    7695 CONST0
    7696 POP 2
    7698 CONST0
    7699 PUSHENVACC1
    7700 OFFSETINT -1
    7702 PUSH
    7703 BRANCH 7727
    7705 CHECK_SIGNALS
    7706 ENVACC2
    7707 PUSHACC2
    7708 PUSHACC5
    7709 C_CALL2 array_get
    7711 NEQ
    7712 BRANCHIFNOT 7722
    7714 ACC1
    7715 PUSHACC4
    7716 C_CALL2 array_get
    7718 PUSHACC2
    7719 PUSHACC4
    7720 C_CALL3 array_set
    7722 ACC1
    7723 OFFSETINT 1
    7725 ASSIGN 1
    7727 ACC0
    7728 PUSHACC2
    7729 LEINT
    7730 BRANCHIF 7705
    7732 CONST0
    7733 POP 2
    7735 ENVACC3
    7736 GETFIELD0
    7737 PUSHACC2
    7738 PUSHENVACC 5
    7740 APPLY2
    7741 PUSHENVACC3
    7742 SETFIELD0
    7743 ACC0
    7744 RETURN 2
    7746 ENVACC1
    7747 GETFIELD 4
    7749 PUSHACC1
    7750 PUSHENVACC2
    7751 APPLY1
    7752 LEINT
    7753 RETURN 1
    7755 CONST0
    7756 PUSHCONST0
    7757 PUSHENVACC1
    7758 OFFSETINT -1
    7760 PUSH
    7761 BRANCH 7782
    7763 CHECK_SIGNALS
    7764 ENVACC2
    7765 PUSHACC2
    7766 PUSHACC5
    7767 C_CALL2 array_get
    7769 NEQ
    7770 BRANCHIFNOT 7777
    7772 ACC2
    7773 OFFSETINT 1
    7775 ASSIGN 2
    7777 ACC1
    7778 OFFSETINT 1
    7780 ASSIGN 1
    7782 ACC0
    7783 PUSHACC2
    7784 LEINT
    7785 BRANCHIF 7763
    7787 CONST0
    7788 POP 2
    7790 ACC0
    7791 RETURN 2
    7793 ENVACC2
    7794 GETFIELD0
    7795 OFFSETINT -1
    7797 PUSHENVACC1
    7798 GETFIELD0
    7799 C_CALL2 array_get_addr
    7801 PUSHACC1
    7802 PUSHENVACC1
    7803 GETFIELD0
    7804 C_CALL3 array_set_addr
    7806 ENVACC2
    7807 OFFSETREF -1
    7809 RETURN 1
    7811 ENVACC1
    7812 GETFIELD0
    7813 VECTLENGTH
    7814 PUSHACC0
    7815 PUSHENVACC2
    7816 GETFIELD0
    7817 GEINT
    7818 BRANCHIFNOT 7845
    7820 ATOM0
    7821 PUSHACC1
    7822 PUSHCONST2
    7823 MULINT
    7824 C_CALL2 make_vect
    7826 PUSH
    7827 PUSH_RETADDR 7840
    7829 ACC4
    7830 PUSHCONST0
    7831 PUSHACC5
    7832 PUSHCONST0
    7833 PUSHENVACC1
    7834 GETFIELD0
    7835 PUSHGETGLOBALFIELD Array, 8
    7838 APPLY 5
    7840 ACC0
    7841 PUSHENVACC1
    7842 SETFIELD0
    7843 POP 1
    7845 ACC1
    7846 PUSHENVACC2
    7847 GETFIELD0
    7848 PUSHENVACC1
    7849 GETFIELD0
    7850 C_CALL3 array_set_addr
    7852 ENVACC2
    7853 OFFSETREF 1
    7855 RETURN 2
    7857 ACC0
    7858 GETFIELD0
    7859 PUSHENVACC1
    7860 APPLY1
    7861 PUSHENVACC2
    7862 PUSHACC1
    7863 GETFIELD0
    7864 EQ
    7865 BRANCHIFNOT 7874
    7867 ACC1
    7868 GETFIELD1
    7869 PUSHACC1
    7870 GETFIELD1
    7871 PUSHENVACC3
    7872 C_CALL3 array_set
    7874 RETURN 2
    7876 RESTART
    7877 GRAB 1
    7879 CONST0
    7880 PUSHENVACC2
    7881 APPLY1
    7882 PUSHACC2
    7883 PUSHGETGLOBALFIELD List, 4
    7886 APPLY1
    7887 PUSHACC1
    7888 PUSHACC3
    7889 PUSHENVACC1
    7890 CLOSURE 3, 7857
    7893 PUSHGETGLOBALFIELD List, 9
    7896 APPLY2
    7897 ACC0
    7898 RETURN 3
    7900 ACC0
    7901 PUSHGETGLOBALFIELD Array, 6
    7904 APPLY1
    7905 PUSHACC0
    7906 PUSHENVACC3
    7907 APPLY1
    7908 ENVACC2
    7909 GETFIELD0
    7910 PUSHENVACC1
    7911 PUSHACC2
    7912 C_CALL3 array_set
    7914 ENVACC4
    7915 GETFIELD0
    7916 PUSHACC1
    7917 MAKEBLOCK2 0
    7919 PUSHENVACC 4
    7921 SETFIELD0
    7922 ACC0
    7923 RETURN 2
    7925 ENVACC2
    7926 PUSHENVACC1
    7927 OFFSETINT 1
    7929 C_CALL2 make_vect
    7931 PUSHACC0
    7932 PUSHENVACC3
    7933 APPLY1
    7934 ENVACC4
    7935 GETFIELD0
    7936 PUSHACC1
    7937 MAKEBLOCK2 0
    7939 PUSHENVACC 4
    7941 SETFIELD0
    7942 ACC0
    7943 RETURN 2
    7945 ENVACC1
    7946 PUSHACC1
    7947 C_CALL2 array_get
    7949 RETURN 1
    7951 ENVACC2
    7952 GETFIELD0
    7953 PUSHENVACC1
    7954 PUSHACC2
    7955 C_CALL3 array_set
    7957 RETURN 1
    7959 ENVACC1
    7960 PUSHENVACC2
    7961 PUSHENVACC1
    7962 MULINT
    7963 PUSHACC2
    7964 MODINT
    7965 DIVINT
    7966 PUSHENVACC1
    7967 PUSHCONSTINT 65536
    7969 PUSHACC3
    7970 DIVINT
    7971 DIVINT
    7972 MAKEBLOCK2 0
    7974 RETURN 1
    7976 ENVACC3
    7977 OFFSETREF 1
    7979 ENVACC1
    7980 PUSHACC1
    7981 ADDINT
    7982 PUSHCONST0
    7983 PUSHENVACC2
    7984 PUSHENVACC1
    7985 MULINT
    7986 PUSHACC2
    7987 MODINT
    7988 EQ
    7989 BRANCHIFNOT 8001
    7991 ENVACC2
    7992 PUSHCONSTINT 65536
    7994 SUBINT
    7995 PUSHENVACC1
    7996 MULINT
    7997 PUSHACC1
    7998 ADDINT
    7999 RETURN 2
    8001 ACC0
    8002 RETURN 2
    8004 ACC0
    8005 C_CALL1 obj_dup
    8007 PUSHENVACC1
    8008 PUSHACC1
    8009 PUSHENVACC2
    8010 APPLY2
    8011 ACC0
    8012 RETURN 2
    8014 RESTART
    8015 GRAB 1
    8017 ACC1
    8018 GETFIELD0
    8019 PUSHACC0
    8020 PUSHCONST1
    8021 PUSHACC3
    8022 SETVECTITEM
    8023 ACC0
    8024 OFFSETINT 1
    8026 PUSHACC3
    8027 SETFIELD0
    8028 RETURN 3
    8030 ENVACC1
    8031 GETFIELD0
    8032 PUSHENVACC1
    8033 OFFSETREF 1
    8035 ACC0
    8036 RETURN 2
    8038 CONSTINT 248
    8040 PUSHCONST0
    8041 MAKEBLOCK1 0
    8043 PUSHACC0
    8044 CLOSURE 1, 8030
    8047 PUSH
    8048 CLOSURE 0, 8015
    8051 PUSHACC0
    8052 PUSHACC3
    8053 CLOSURE 2, 8004
    8056 PUSHCONSTINT 16
    8058 PUSHCONST3
    8059 PUSHCONST1
    8060 PUSHCONST1
    8061 PUSHCONST1
    8062 MAKEBLOCK 5, 0
    8065 PUSHCONSTINT 16
    8067 PUSHGETGLOBALFIELD Sys, 3
    8070 DIVINT
    8071 PUSHCONST0
    8072 PUSHCONSTINT 32
    8074 PUSHCONST2
    8075 PUSHCONST0
    8076 MAKEBLOCK1 0
    8078 PUSHACC0
    8079 PUSHACC3
    8080 PUSHACC6
    8081 CLOSURE 3, 7976
    8084 PUSHACC3
    8085 PUSHACC6
    8086 CLOSURE 2, 7959
    8089 PUSHCONST0
    8090 PUSHCONST0
    8091 MAKEBLOCK1 0
    8093 PUSHACC0
    8094 PUSHACC7
    8095 CLOSURE 2, 7951
    8098 PUSHACC7
    8099 CLOSURE 1, 7945
    8102 PUSHCONST0
    8103 MAKEBLOCK1 0
    8105 PUSH
    8106 ATOM0
    8107 PUSHACC1
    8108 PUSHACC4
    8109 PUSHACC7
    8110 PUSHACC 13
    8112 CLOSURE 4, 7925
    8115 PUSHACC2
    8116 PUSHACC5
    8117 PUSHACC7
    8118 PUSHACC 14
    8120 CLOSURE 4, 7900
    8123 PUSHACC1
    8124 PUSHACC 9
    8126 CLOSURE 2, 7877
    8129 PUSH
    8130 ATOM0
    8131 PUSHCONSTINT 10
    8133 C_CALL2 make_vect
    8135 MAKEBLOCK1 0
    8137 PUSHCONST0
    8138 MAKEBLOCK1 0
    8140 PUSHACC0
    8141 PUSHACC2
    8142 CLOSURE 2, 7811
    8145 PUSHACC1
    8146 PUSHACC3
    8147 CLOSURE 2, 7793
    8150 PUSHACC 12
    8152 PUSHACC 18
    8154 CLOSURE 2, 7755
    8157 PUSHACC0
    8158 PUSHACC 22
    8160 CLOSURE 2, 7746
    8163 PUSHGETGLOBAL "Oo.Failed"
    8165 MAKEBLOCK1 0
    8167 PUSH
    8168 CLOSUREREC 0, 6415
    8172 ACC0
    8173 PUSHACC2
    8174 PUSHACC 14
    8176 PUSHACC 19
    8178 PUSHACC 25
    8180 CLOSURE 5, 7644
    8183 PUSHACC0
    8184 PUSHACC3
    8185 PUSHACC5
    8186 PUSHACC 8
    8188 PUSHACC 10
    8190 PUSHACC 12
    8192 PUSHACC 14
    8194 CLOSUREREC 7, 6444
    8198 ACC0
    8199 PUSHACC5
    8200 PUSHACC 15
    8202 PUSHACC 18
    8204 PUSHACC 21
    8206 PUSHACC 31
    8208 CLOSURE 6, 7614
    8211 PUSHACC0
    8212 PUSHACC 26
    8214 CLOSURE 2, 7582
    8217 PUSHACC 27
    8219 PUSHCONSTINT 65536
    8221 PUSHACC 28
    8223 MULINT
    8224 MULINT
    8225 PUSHACC0
    8226 MAKEBLOCK1 0
    8228 PUSHCONSTINT 101
    8230 PUSHGETGLOBALFIELD Hashtbl, 0
    8233 APPLY1
    8234 PUSHACC1
    8235 PUSHACC 26
    8237 CLOSURE 2, 7571
    8240 PUSHACC0
    8241 PUSHACC2
    8242 CLOSURE 2, 7538
    8245 PUSH
    8246 CLOSURE 0, 7530
    8249 PUSHACC0
    8250 MAKEBLOCK1 0
    8252 POP 1
    8254 PUSHGETGLOBALFIELD Map, 0
    8257 APPLY1
    8258 PUSH
    8259 CLOSURE 0, 7521
    8262 PUSHACC0
    8263 MAKEBLOCK1 0
    8265 POP 1
    8267 PUSHGETGLOBALFIELD Map, 0
    8270 APPLY1
    8271 PUSH
    8272 CLOSURE 0, 7512
    8275 PUSHACC0
    8276 MAKEBLOCK1 0
    8278 POP 1
    8280 PUSHGETGLOBALFIELD Map, 0
    8283 APPLY1
    8284 PUSHCONST0
    8285 MAKEBLOCK1 0
    8287 PUSHACC0
    8288 PUSHACC2
    8289 PUSHACC4
    8290 PUSHACC6
    8291 PUSHACC 37
    8293 CLOSURE 5, 7489
    8296 PUSHACC 25
    8298 CLOSURE 1, 7453
    8301 PUSHACC0
    8302 PUSHACC 26
    8304 PUSHACC 28
    8306 PUSHACC 35
    8308 CLOSURE 4, 7409
    8311 PUSHCONST0
    8312 MAKEBLOCK1 0
    8314 PUSHCONST0
    8315 MAKEBLOCK1 0
    8317 PUSHACC6
    8318 PUSHACC 8
    8320 PUSHACC 12
    8322 CLOSURE 3, 7362
    8325 PUSHACC2
    8326 PUSHACC4
    8327 PUSHACC 9
    8329 CLOSURE 3, 7328
    8332 PUSHACC 37
    8334 CLOSURE 1, 7288
    8337 PUSHACC2
    8338 PUSHACC 10
    8340 PUSHACC 12
    8342 PUSHACC 14
    8344 CLOSURE 4, 7187
    8347 PUSHACC 12
    8349 CLOSURE 1, 7027
    8352 PUSH
    8353 CLOSURE 0, 6980
    8356 PUSH
    8357 CLOSURE 0, 6969
    8360 PUSHACC0
    8361 PUSHACC 16
    8363 CLOSURE 2, 6950
    8366 PUSHACC 16
    8368 CLOSURE 1, 6939
    8371 PUSHACC 47
    8373 CLOSURE 1, 6927
    8376 PUSH
    8377 CLOSURE 0, 6862
    8380 PUSHACC 15
    8382 PUSHACC 18
    8384 PUSHACC 20
    8386 PUSHACC 23
    8388 CLOSURE 4, 6842
    8391 PUSHACC 12
    8393 PUSHACC 27
    8395 PUSHACC 56
    8397 CLOSURE 3, 6787
    8400 PUSHACC 57
    8402 PUSHACC 60
    8404 PUSHACC 62
    8406 CLOSURE 3, 6769
    8409 PUSH
    8410 CLOSUREREC 0, 6519
    8414 ACC0
    8415 CLOSURE 1, 6752
    8418 PUSHACC0
    8419 PUSHACC 61
    8421 PUSHACC 64
    8423 CLOSURE 3, 6735
    8426 PUSHACC 52
    8428 CLOSURE 1, 6715
    8431 PUSHACC 39
    8433 PUSHACC 49
    8435 CLOSURE 2, 6695
    8438 PUSHACC0
    8439 PUSHACC 20
    8441 PUSHACC 22
    8443 PUSHACC 27
    8445 PUSHACC 47
    8447 PUSHACC 49
    8449 PUSHACC 55
    8451 PUSHACC 63
    8453 CLOSURE 8, 6644
    8456 PUSHACC 41
    8458 CLOSURE 1, 6618
    8461 PUSHACC0
    8462 PUSHACC 52
    8464 PUSHACC 57
    8466 PUSHACC 63
    8468 CLOSURE 4, 6581
    8471 PUSHACC0
    8472 PUSHACC3
    8473 PUSHACC 66
    8475 PUSHACC7
    8476 PUSHACC 9
    8478 PUSHACC 11
    8480 PUSHACC 14
    8482 PUSHACC 16
    8484 PUSHACC 18
    8486 PUSHACC 20
    8488 PUSHACC 27
    8490 PUSHACC 29
    8492 PUSHACC 32
    8494 PUSHACC 32
    8496 PUSHACC 35
    8498 PUSHACC 27
    8500 PUSHACC 29
    8502 PUSHACC 31
    8504 PUSHACC 34
    8506 PUSHACC 50
    8508 PUSHACC 85
    8510 MAKEBLOCK 21, 0
    8513 POP 70
    8515 SETGLOBAL Oo
    8517 BRANCH 8568
    8519 ACC0
    8520 BRANCHIFNOT 8525
    8522 ACC0
    8523 BRANCH 8530
    8525 ENVACC1
    8526 PUSHGETGLOBALFIELD Oo, 14
    8529 APPLY1
    8530 PUSHCONST0
    8531 ACC1
    8532 BRANCHIFNOT 8537
    8534 CONST0
    8535 BRANCH 8543
    8537 ENVACC1
    8538 PUSHACC1
    8539 PUSHGETGLOBALFIELD Oo, 15
    8542 APPLY2
    8543 ACC0
    8544 RETURN 2
    8546 CONSTINT 23
    8548 RETURN 1
    8550 CLOSURE 0, 8546
    8553 PUSHACC0
    8554 POP 1
    8556 PUSHENVACC1
    8557 PUSHACC2
    8558 PUSHGETGLOBALFIELD Oo, 8
    8561 APPLY3
    8562 ACC0
    8563 CLOSURE 1, 8519
    8566 RETURN 1
    8568 GETGLOBALFIELD Oo, 1
    8571 PUSHGETGLOBAL "m"
    8573 PUSHACC1
    8574 APPLY1
    8575 PUSHCONST3
    8576 C_CALL1 alloc_dummy
    8578 PUSHGETGLOBAL <0>("m", 0)
    8580 PUSHGETGLOBALFIELD Oo, 12
    8583 APPLY1
    8584 PUSHACC2
    8585 CLOSURE 1, 8550
    8588 PUSHACC1
    8589 PUSHACC1
    8590 APPLY1
    8591 PUSHACC2
    8592 PUSHGETGLOBALFIELD Oo, 13
    8595 APPLY1
    8596 ACC2
    8597 PUSHACC2
    8598 PUSHACC2
    8599 MAKEBLOCK3 0
    8601 POP 3
    8603 PUSHACC1
    8604 C_CALL2 update_dummy
    8606 CONST0
    8607 PUSHACC1
    8608 GETFIELD0
    8609 APPLY1
    8610 PUSHCONSTINT 23
    8612 PUSHACC1
    8613 PUSHACC4
    8614 GETMETHOD
    8615 APPLY1
    8616 NEQ
    8617 BRANCHIFNOT 8624
    8619 GETGLOBAL Not_found
    8621 MAKEBLOCK1 0
    8623 RAISE
    8624 POP 1
    8626 ACC0
    8627 MAKEBLOCK1 0
    8629 POP 3
    8631 SETGLOBAL T300-getmethod
    8633 STOP
**)