Anubis / Anubis

Commit 713a9d33c88dac93d571964a991c39fc65468920

Authored by Alain Prouté
1 parent 5af6b072

Fixed a bug in indirect Int serialzation. The pointer did not advance ! However,… 

… there is still a bug in Int. This is a problem of sign which is not masqued. Indeed, forgetting to mask the sign adds 4 to the pointer. This is confirmed by the fact that the bug disppears with option --szone:1
Showing 9 changed files with 3557 additions and 3540 deletions   Show diff stats
Inline Side-by-side
anubis_dev/compiler/src/lex.yy.c
  Show/Hide comments   View file @713a9d3
1 1  
2   -#line 3 "lex.yy.c"
  2 +#line 3 "<stdout>"
3 3  
4 4 #define YY_INT_ALIGNED short int
5 5  
... ... @@ -999,7 +999,7 @@ int yy_flex_debug = 0;
999 999 #define YY_MORE_ADJ 0
1000 1000 #define YY_RESTORE_YY_MORE_OFFSET
1001 1001 char *yytext;
1002   -#line 1 "lexer.l"
  1002 +#line 1 "src/lexer.l"
1003 1003 /* lexer.y *******************************************************************************
1004 1004  
1005 1005 Anubis 1.
... ... @@ -1009,7 +1009,7 @@ char *yytext;
1009 1009 /*
1010 1010 This LEX/FLEX file is the lexer for the Anubis compiler.
1011 1011 */
1012   -#line 14 "lexer.l"
  1012 +#line 14 "src/lexer.l"
1013 1013 #include <stdio.h>
1014 1014 #include <string.h>
1015 1015 #include <stdlib.h>
... ... @@ -1805,7 +1805,7 @@ void premature_eof(char *msg)
1805 1805 /* states CONF and CONFCOM are used to read 'compiler.conf'.*/
1806 1806 /* definition of white characters */
1807 1807 /* the lexer ----------------------------------------------------------------------------*/
1808   -#line 1809 "lex.yy.c"
  1808 +#line 1809 "<stdout>"
1809 1809  
1810 1810 #define INITIAL 0
1811 1811 #define COM 1
... ... @@ -1968,9 +1968,9 @@ YY_DECL
1968 1968 register char *yy_cp, *yy_bp;
1969 1969 register int yy_act;
1970 1970  
1971   -#line 822 "lexer.l"
  1971 +#line 822 "src/lexer.l"
1972 1972  
1973   -#line 1974 "lex.yy.c"
  1973 +#line 1974 "<stdout>"
1974 1974  
1975 1975 if ( !(yy_init) )
1976 1976 {
... ... @@ -2056,28 +2056,28 @@ do_action: /* This label is used only to access EOF actions. */
2056 2056  
2057 2057 case 1:
2058 2058 YY_RULE_SETUP
2059   -#line 823 "lexer.l"
  2059 +#line 823 "src/lexer.l"
2060 2060 { comlevel = 1; BEGIN COM; }
2061 2061 YY_BREAK
2062 2062 case 2:
2063 2063 YY_RULE_SETUP
2064   -#line 824 "lexer.l"
  2064 +#line 824 "src/lexer.l"
2065 2065 { comlevel++; }
2066 2066 YY_BREAK
2067 2067 case 3:
2068 2068 YY_RULE_SETUP
2069   -#line 825 "lexer.l"
  2069 +#line 825 "src/lexer.l"
2070 2070 { comlevel--; if (!comlevel) { BEGIN PAR; } }
2071 2071 YY_BREAK
2072 2072 case 4:
2073 2073 /* rule 4 can match eol */
2074 2074 YY_RULE_SETUP
2075   -#line 826 "lexer.l"
  2075 +#line 826 "src/lexer.l"
2076 2076 { }
2077 2077 YY_BREAK
2078 2078 case 5:
2079 2079 YY_RULE_SETUP
2080   -#line 827 "lexer.l"
  2080 +#line 827 "src/lexer.l"
2081 2081 { }
2082 2082 YY_BREAK
2083 2083 case 6:
... ... @@ -2085,22 +2085,22 @@ case 6:
2085 2085 (yy_c_buf_p) = yy_cp -= 1;
2086 2086 YY_DO_BEFORE_ACTION; /* set up yytext again */
2087 2087 YY_RULE_SETUP
2088   -#line 828 "lexer.l"
  2088 +#line 828 "src/lexer.l"
2089 2089 { /* dbl_slash_comment(yytext+2); */ }
2090 2090 YY_BREAK
2091 2091 case 7:
2092 2092 YY_RULE_SETUP
2093   -#line 829 "lexer.l"
  2093 +#line 829 "src/lexer.l"
2094 2094 { premature_eof(msgtext_premature_eof_in_linecomment[0]); }
2095 2095 YY_BREAK
2096 2096 case 8:
2097 2097 YY_RULE_SETUP
2098   -#line 830 "lexer.l"
  2098 +#line 830 "src/lexer.l"
2099 2099 { BEGIN STR; str_index = 0; }
2100 2100 YY_BREAK
2101 2101 case 9:
2102 2102 YY_RULE_SETUP
2103   -#line 831 "lexer.l"
  2103 +#line 831 "src/lexer.l"
2104 2104 { BEGIN PAR;
2105 2105 str_buf[str_index] = 0;
2106 2106 store_string_in_last_yytext();
... ... @@ -2109,59 +2109,59 @@ YY_RULE_SETUP
2109 2109 YY_BREAK
2110 2110 case 10:
2111 2111 YY_RULE_SETUP
2112   -#line 836 "lexer.l"
  2112 +#line 836 "src/lexer.l"
2113 2113 { store_str_char('\"'); }
2114 2114 YY_BREAK
2115 2115 case 11:
2116 2116 YY_RULE_SETUP
2117   -#line 837 "lexer.l"
  2117 +#line 837 "src/lexer.l"
2118 2118 { store_str_char('\n'); }
2119 2119 YY_BREAK
2120 2120 case 12:
2121 2121 YY_RULE_SETUP
2122   -#line 838 "lexer.l"
  2122 +#line 838 "src/lexer.l"
2123 2123 { store_str_char('\r'); }
2124 2124 YY_BREAK
2125 2125 case 13:
2126 2126 YY_RULE_SETUP
2127   -#line 839 "lexer.l"
  2127 +#line 839 "src/lexer.l"
2128 2128 { store_str_char('\t'); }
2129 2129 YY_BREAK
2130 2130 case 14:
2131 2131 YY_RULE_SETUP
2132   -#line 840 "lexer.l"
  2132 +#line 840 "src/lexer.l"
2133 2133 { store_str_char('\\'); }
2134 2134 YY_BREAK
2135 2135 case 15:
2136 2136 /* rule 15 can match eol */
2137 2137 YY_RULE_SETUP
2138   -#line 841 "lexer.l"
  2138 +#line 841 "src/lexer.l"
2139 2139 { store_str_char('\n'); }
2140 2140 YY_BREAK
2141 2141 case 16:
2142 2142 YY_RULE_SETUP
2143   -#line 842 "lexer.l"
  2143 +#line 842 "src/lexer.l"
2144 2144 { store_str_char(yytext[0]); }
2145 2145 YY_BREAK
2146 2146 case 17:
2147 2147 YY_RULE_SETUP
2148   -#line 843 "lexer.l"
  2148 +#line 843 "src/lexer.l"
2149 2149 { BEGIN PAR; }
2150 2150 YY_BREAK
2151 2151 case 18:
2152 2152 /* rule 18 can match eol */
2153 2153 YY_RULE_SETUP
2154   -#line 844 "lexer.l"
  2154 +#line 844 "src/lexer.l"
2155 2155 { }
2156 2156 YY_BREAK
2157 2157 case 19:
2158 2158 YY_RULE_SETUP
2159   -#line 845 "lexer.l"
  2159 +#line 845 "src/lexer.l"
2160 2160 { }
2161 2161 YY_BREAK
2162 2162 case 20:
2163 2163 YY_RULE_SETUP
2164   -#line 846 "lexer.l"
  2164 +#line 846 "src/lexer.l"
2165 2165 { sprintf(str_buf,"%d",lineno);
2166 2166 yylval.expr = mcons4(of_type,linecol(),pdstr_Word32,mcons3(integer_10,
2167 2167 linecol(),
... ... @@ -2170,13 +2170,13 @@ YY_RULE_SETUP
2170 2170 YY_BREAK
2171 2171 case 21:
2172 2172 YY_RULE_SETUP
2173   -#line 851 "lexer.l"
  2173 +#line 851 "src/lexer.l"
2174 2174 { yylval.expr = new_string(current_file_abs_path);
2175 2175 return yy__anb_string; }
2176 2176 YY_BREAK
2177 2177 case 22:
2178 2178 YY_RULE_SETUP
2179   -#line 853 "lexer.l"
  2179 +#line 853 "src/lexer.l"
2180 2180 { sprintf(str_buf,"%d",(int)time(NULL));
2181 2181 yylval.expr = mcons4(of_type,linecol(),pdstr_Word32,mcons3(integer_10,
2182 2182 linecol(),
... ... @@ -2185,110 +2185,110 @@ YY_RULE_SETUP
2185 2185 YY_BREAK
2186 2186 case 23:
2187 2187 YY_RULE_SETUP
2188   -#line 858 "lexer.l"
  2188 +#line 858 "src/lexer.l"
2189 2189 { yylval.integer = (int)(unsigned char)yytext[1]; return yy__char; }
2190 2190 YY_BREAK
2191 2191 case 24:
2192 2192 YY_RULE_SETUP
2193   -#line 859 "lexer.l"
  2193 +#line 859 "src/lexer.l"
2194 2194 { yylval.integer = (int)'\n'; return yy__char; }
2195 2195 YY_BREAK
2196 2196 case 25:
2197 2197 YY_RULE_SETUP
2198   -#line 860 "lexer.l"
  2198 +#line 860 "src/lexer.l"
2199 2199 { yylval.integer = (int)'\r'; return yy__char; }
2200 2200 YY_BREAK
2201 2201 case 26:
2202 2202 YY_RULE_SETUP
2203   -#line 861 "lexer.l"
  2203 +#line 861 "src/lexer.l"
2204 2204 { yylval.integer = (int)'\t'; return yy__char; }
2205 2205 YY_BREAK
2206 2206 case 27:
2207 2207 YY_RULE_SETUP
2208   -#line 862 "lexer.l"
  2208 +#line 862 "src/lexer.l"
2209 2209 { yylval.integer = (int)'\"'; return yy__char; }
2210 2210 YY_BREAK
2211 2211 case 28:
2212 2212 YY_RULE_SETUP
2213   -#line 863 "lexer.l"
  2213 +#line 863 "src/lexer.l"
2214 2214 { yylval.integer = (int)'\\'; return yy__char; }
2215 2215 YY_BREAK
2216 2216 case 29:
2217 2217 YY_RULE_SETUP
2218   -#line 864 "lexer.l"
  2218 +#line 864 "src/lexer.l"
2219 2219 { yylval.integer = (int)'\''; return yy__char; }
2220 2220 YY_BREAK
2221 2221 case 30:
2222 2222 YY_RULE_SETUP
2223   -#line 865 "lexer.l"
  2223 +#line 865 "src/lexer.l"
2224 2224 { yylval.expr = linecol(); return yy__lpar; }
2225 2225 YY_BREAK
2226 2226 case 31:
2227 2227 YY_RULE_SETUP
2228   -#line 866 "lexer.l"
  2228 +#line 866 "src/lexer.l"
2229 2229 { yylval.expr = linecol(); return yy__rpar; }
2230 2230 YY_BREAK
2231 2231 case 32:
2232 2232 /* rule 32 can match eol */
2233 2233 YY_RULE_SETUP
2234   -#line 867 "lexer.l"
  2234 +#line 867 "src/lexer.l"
2235 2235 { yylval.expr = linecol(); return yy__rpar; }
2236 2236 YY_BREAK
2237 2237 case 33:
2238 2238 YY_RULE_SETUP
2239   -#line 868 "lexer.l"
  2239 +#line 868 "src/lexer.l"
2240 2240 { yylval.expr = linecol(); return yy__lbrace; }
2241 2241 YY_BREAK
2242 2242 case 34:
2243 2243 YY_RULE_SETUP
2244   -#line 869 "lexer.l"
  2244 +#line 869 "src/lexer.l"
2245 2245 { yylval.expr = linecol(); return yy__rbrace; }
2246 2246 YY_BREAK
2247 2247 case 35:
2248 2248 /* rule 35 can match eol */
2249 2249 YY_RULE_SETUP
2250   -#line 870 "lexer.l"
  2250 +#line 870 "src/lexer.l"
2251 2251 { yylval.expr = linecol(); return yy__rbrace; }
2252 2252 YY_BREAK
2253 2253 case 36:
2254 2254 YY_RULE_SETUP
2255   -#line 871 "lexer.l"
  2255 +#line 871 "src/lexer.l"
2256 2256 { yylval.expr = linecol(); return yy__lbracket; }
2257 2257 YY_BREAK
2258 2258 case 37:
2259 2259 YY_RULE_SETUP
2260   -#line 872 "lexer.l"
  2260 +#line 872 "src/lexer.l"
2261 2261 { yylval.expr = linecol(); return yy__rbracket; }
2262 2262 YY_BREAK
2263 2263 case 38:
2264 2264 /* rule 38 can match eol */
2265 2265 YY_RULE_SETUP
2266   -#line 873 "lexer.l"
  2266 +#line 873 "src/lexer.l"
2267 2267 { yylval.expr = linecol(); return yy__rbracket; }
2268 2268 YY_BREAK
2269 2269 case 39:
2270 2270 YY_RULE_SETUP
2271   -#line 874 "lexer.l"
  2271 +#line 874 "src/lexer.l"
2272 2272 { yylval.expr = linecol(); return yy__colon; }
2273 2273 YY_BREAK
2274 2274 case 40:
2275 2275 YY_RULE_SETUP
2276   -#line 875 "lexer.l"
  2276 +#line 875 "src/lexer.l"
2277 2277 { yylval.expr = linecol(); return yy__semicolon; }
2278 2278 YY_BREAK
2279 2279 case 41:
2280 2280 YY_RULE_SETUP
2281   -#line 876 "lexer.l"
  2281 +#line 876 "src/lexer.l"
2282 2282 { yylval.expr = linecol(); return yy__minus; }
2283 2283 YY_BREAK
2284 2284 case 42:
2285 2285 YY_RULE_SETUP
2286   -#line 877 "lexer.l"
  2286 +#line 877 "src/lexer.l"
2287 2287 { yylval.expr = linecol(); return yy__abs_minus; }
2288 2288 YY_BREAK
2289 2289 case 43:
2290 2290 YY_RULE_SETUP
2291   -#line 878 "lexer.l"
  2291 +#line 878 "src/lexer.l"
2292 2292 { yylval.expr = linecol(); return yy__dot; }
2293 2293 YY_BREAK
2294 2294 case 44:
... ... @@ -2296,522 +2296,522 @@ case 44:
2296 2296 (yy_c_buf_p) = yy_cp -= 1;
2297 2297 YY_DO_BEFORE_ACTION; /* set up yytext again */
2298 2298 YY_RULE_SETUP
2299   -#line 879 "lexer.l"
  2299 +#line 879 "src/lexer.l"
2300 2300 { yylval.expr = linecol(); return yy__enddot; }
2301 2301 YY_BREAK
2302 2302 case 45:
2303 2303 /* rule 45 can match eol */
2304 2304 YY_RULE_SETUP
2305   -#line 880 "lexer.l"
  2305 +#line 880 "src/lexer.l"
2306 2306 { yylval.expr = linecol(); return yy__enddot; }
2307 2307 YY_BREAK
2308 2308 case 46:
2309 2309 YY_RULE_SETUP
2310   -#line 881 "lexer.l"
  2310 +#line 881 "src/lexer.l"
2311 2311 { yylval.expr = linecol(); return yy__dotdot; }
2312 2312 YY_BREAK
2313 2313 case 47:
2314 2314 YY_RULE_SETUP
2315   -#line 882 "lexer.l"
  2315 +#line 882 "src/lexer.l"
2316 2316 { yylval.expr = linecol(); return yy__dotsup; }
2317 2317 YY_BREAK
2318 2318 case 48:
2319 2319 YY_RULE_SETUP
2320   -#line 883 "lexer.l"
  2320 +#line 883 "src/lexer.l"
2321 2321 { yylval.expr = linecol(); return yy__percent; }
2322 2322 YY_BREAK
2323 2323 case 49:
2324 2324 YY_RULE_SETUP
2325   -#line 884 "lexer.l"
  2325 +#line 884 "src/lexer.l"
2326 2326 { yylval.expr = linecol(); return yy__comma; }
2327 2327 YY_BREAK
2328 2328 case 50:
2329 2329 YY_RULE_SETUP
2330   -#line 885 "lexer.l"
  2330 +#line 885 "src/lexer.l"
2331 2331 { yylval.expr = linecol(); return yy__tilde; }
2332 2332 YY_BREAK
2333 2333 case 51:
2334 2334 YY_RULE_SETUP
2335   -#line 886 "lexer.l"
  2335 +#line 886 "src/lexer.l"
2336 2336 { yylval.expr = linecol(); return yy__equals; }
2337 2337 YY_BREAK
2338 2338 case 52:
2339 2339 YY_RULE_SETUP
2340   -#line 887 "lexer.l"
  2340 +#line 887 "src/lexer.l"
2341 2341 { yylval.expr = linecol(); return yy__non_equal; }
2342 2342 YY_BREAK
2343 2343 case 53:
2344 2344 YY_RULE_SETUP
2345   -#line 888 "lexer.l"
  2345 +#line 888 "src/lexer.l"
2346 2346 { yylval.expr = linecol(); return yy__exclam_equal; }
2347 2347 YY_BREAK
2348 2348 case 54:
2349 2349 YY_RULE_SETUP
2350   -#line 889 "lexer.l"
  2350 +#line 889 "src/lexer.l"
2351 2351 { yylval.expr = linecol(); return yy__plus; }
2352 2352 YY_BREAK
2353 2353 case 55:
2354 2354 YY_RULE_SETUP
2355   -#line 890 "lexer.l"
  2355 +#line 890 "src/lexer.l"
2356 2356 { yylval.expr = linecol(); return yy__star; }
2357 2357 YY_BREAK
2358 2358 case 56:
2359 2359 YY_RULE_SETUP
2360   -#line 891 "lexer.l"
  2360 +#line 891 "src/lexer.l"
2361 2361 { yylval.expr = linecol(); return yy__carret; }
2362 2362 YY_BREAK
2363 2363 case 57:
2364 2364 YY_RULE_SETUP
2365   -#line 892 "lexer.l"
  2365 +#line 892 "src/lexer.l"
2366 2366 { yylval.expr = linecol(); return yy__ampersand; }
2367 2367 YY_BREAK
2368 2368 case 58:
2369 2369 YY_RULE_SETUP
2370   -#line 893 "lexer.l"
  2370 +#line 893 "src/lexer.l"
2371 2371 { yylval.expr = linecol(); return yy__vbar; }
2372 2372 YY_BREAK
2373 2373 case 59:
2374 2374 YY_RULE_SETUP
2375   -#line 894 "lexer.l"
  2375 +#line 894 "src/lexer.l"
2376 2376 { yylval.expr = linecol(); return yy__right_shift; }
2377 2377 YY_BREAK
2378 2378 case 60:
2379 2379 YY_RULE_SETUP
2380   -#line 895 "lexer.l"
  2380 +#line 895 "src/lexer.l"
2381 2381 { yylval.expr = linecol(); return yy__left_shift; }
2382 2382 YY_BREAK
2383 2383 case 61:
2384 2384 YY_RULE_SETUP
2385   -#line 896 "lexer.l"
  2385 +#line 896 "src/lexer.l"
2386 2386 { yylval.expr = linecol(); return yy__implies; }
2387 2387 YY_BREAK
2388 2388 case 62:
2389 2389 YY_RULE_SETUP
2390   -#line 897 "lexer.l"
  2390 +#line 897 "src/lexer.l"
2391 2391 { yylval.expr = linecol(); return yy__forall; }
2392 2392 YY_BREAK
2393 2393 case 63:
2394 2394 YY_RULE_SETUP
2395   -#line 898 "lexer.l"
  2395 +#line 898 "src/lexer.l"
2396 2396 { yylval.expr = linecol(); return yy__exists; }
2397 2397 YY_BREAK
2398 2398 case 64:
2399 2399 YY_RULE_SETUP
2400   -#line 899 "lexer.l"
  2400 +#line 899 "src/lexer.l"
2401 2401 { yylval.expr = linecol(); return yy__exists_unique; }
2402 2402 YY_BREAK
2403 2403 case 65:
2404 2404 YY_RULE_SETUP
2405   -#line 900 "lexer.l"
  2405 +#line 900 "src/lexer.l"
2406 2406 { yylval.expr = linecol(); return yy__description; }
2407 2407 YY_BREAK
2408 2408 case 66:
2409 2409 YY_RULE_SETUP
2410   -#line 901 "lexer.l"
  2410 +#line 901 "src/lexer.l"
2411 2411 { yylval.expr = linecol(); return yy__slash; }
2412 2412 YY_BREAK
2413 2413 case 67:
2414 2414 YY_RULE_SETUP
2415   -#line 902 "lexer.l"
  2415 +#line 902 "src/lexer.l"
2416 2416 { yylval.expr = linecol(); return yy__backslash; }
2417 2417 YY_BREAK
2418 2418 case 68:
2419 2419 /* rule 68 can match eol */
2420 2420 YY_RULE_SETUP
2421   -#line 903 "lexer.l"
  2421 +#line 903 "src/lexer.l"
2422 2422 { yylval.expr = linecol(); return yy__mod; }
2423 2423 YY_BREAK
2424 2424 case 69:
2425 2425 YY_RULE_SETUP
2426   -#line 904 "lexer.l"
  2426 +#line 904 "src/lexer.l"
2427 2427 { yylval.expr = linecol(); return yy__less; }
2428 2428 YY_BREAK
2429 2429 case 70:
2430 2430 YY_RULE_SETUP
2431   -#line 905 "lexer.l"
  2431 +#line 905 "src/lexer.l"
2432 2432 { yylval.expr = linecol(); return yy__greater; }
2433 2433 YY_BREAK
2434 2434 case 71:
2435 2435 YY_RULE_SETUP
2436   -#line 906 "lexer.l"
  2436 +#line 906 "src/lexer.l"
2437 2437 { yylval.expr = linecol(); return yy__lessoreq; }
2438 2438 YY_BREAK
2439 2439 case 72:
2440 2440 YY_RULE_SETUP
2441   -#line 907 "lexer.l"
  2441 +#line 907 "src/lexer.l"
2442 2442 { yylval.expr = linecol(); return yy__greateroreq; }
2443 2443 YY_BREAK
2444 2444 case 73:
2445 2445 YY_RULE_SETUP
2446   -#line 908 "lexer.l"
  2446 +#line 908 "src/lexer.l"
2447 2447 { yylval.expr = linecol(); return yy__sless; }
2448 2448 YY_BREAK
2449 2449 case 74:
2450 2450 YY_RULE_SETUP
2451   -#line 909 "lexer.l"
  2451 +#line 909 "src/lexer.l"
2452 2452 { yylval.expr = linecol(); return yy__sgreater; }
2453 2453 YY_BREAK
2454 2454 case 75:
2455 2455 YY_RULE_SETUP
2456   -#line 910 "lexer.l"
  2456 +#line 910 "src/lexer.l"
2457 2457 { yylval.expr = linecol(); return yy__slessoreq; }
2458 2458 YY_BREAK
2459 2459 case 76:
2460 2460 YY_RULE_SETUP
2461   -#line 911 "lexer.l"
  2461 +#line 911 "src/lexer.l"
2462 2462 { yylval.expr = linecol(); return yy__sgreateroreq; }
2463 2463 YY_BREAK
2464 2464 case 77:
2465 2465 YY_RULE_SETUP
2466   -#line 912 "lexer.l"
  2466 +#line 912 "src/lexer.l"
2467 2467 { yylval.expr = linecol(); return yy__uless; }
2468 2468 YY_BREAK
2469 2469 case 78:
2470 2470 YY_RULE_SETUP
2471   -#line 913 "lexer.l"
  2471 +#line 913 "src/lexer.l"
2472 2472 { yylval.expr = linecol(); return yy__ugreater; }
2473 2473 YY_BREAK
2474 2474 case 79:
2475 2475 YY_RULE_SETUP
2476   -#line 914 "lexer.l"
  2476 +#line 914 "src/lexer.l"
2477 2477 { yylval.expr = linecol(); return yy__ulessoreq; }
2478 2478 YY_BREAK
2479 2479 case 80:
2480 2480 YY_RULE_SETUP
2481   -#line 915 "lexer.l"
  2481 +#line 915 "src/lexer.l"
2482 2482 { yylval.expr = linecol(); return yy__ugreateroreq; }
2483 2483 YY_BREAK
2484 2484 case 81:
2485 2485 YY_RULE_SETUP
2486   -#line 916 "lexer.l"
  2486 +#line 916 "src/lexer.l"
2487 2487 { yylval.expr = linecol(); return yy__write; }
2488 2488 YY_BREAK
2489 2489 case 82:
2490 2490 YY_RULE_SETUP
2491   -#line 917 "lexer.l"
  2491 +#line 917 "src/lexer.l"
2492 2492 { yylval.expr = linecol(); return yy__exchange; }
2493 2493 YY_BREAK
2494 2494 case 83:
2495 2495 YY_RULE_SETUP
2496   -#line 918 "lexer.l"
  2496 +#line 918 "src/lexer.l"
2497 2497 { yylval.expr = linecol(); return yy__arrow; }
2498 2498 YY_BREAK
2499 2499 case 84:
2500 2500 YY_RULE_SETUP
2501   -#line 919 "lexer.l"
  2501 +#line 919 "src/lexer.l"
2502 2502 { yylval.expr = linecol(); return yy__arroww; }
2503 2503 YY_BREAK
2504 2504 case 85:
2505 2505 YY_RULE_SETUP
2506   -#line 920 "lexer.l"
  2506 +#line 920 "src/lexer.l"
2507 2507 { yylval.expr = linecol(); return yy__mapsto; }
2508 2508 YY_BREAK
2509 2509 case 86:
2510 2510 YY_RULE_SETUP
2511   -#line 921 "lexer.l"
  2511 +#line 921 "src/lexer.l"
2512 2512 { yylval.expr = linecol(); return yy__mapstoo; }
2513 2513 YY_BREAK
2514 2514 case 87:
2515 2515 YY_RULE_SETUP
2516   -#line 922 "lexer.l"
  2516 +#line 922 "src/lexer.l"
2517 2517 { yylval.expr = linecol(); return yy__dots; }
2518 2518 YY_BREAK
2519 2519 case 88:
2520 2520 /* rule 88 can match eol */
2521 2521 YY_RULE_SETUP
2522   -#line 923 "lexer.l"
  2522 +#line 923 "src/lexer.l"
2523 2523 { yylval.expr = linecol(); return yy__rpar_arrow; }
2524 2524 YY_BREAK
2525 2525 case 89:
2526 2526 YY_RULE_SETUP
2527   -#line 924 "lexer.l"
  2527 +#line 924 "src/lexer.l"
2528 2528 { yylval.expr = linecol(); return yy__type_String; }
2529 2529 YY_BREAK
2530 2530 case 90:
2531 2531 YY_RULE_SETUP
2532   -#line 925 "lexer.l"
  2532 +#line 925 "src/lexer.l"
2533 2533 { yylval.expr = linecol(); return yy__type_ByteArray; }
2534 2534 YY_BREAK
2535 2535 case 91:
2536 2536 YY_RULE_SETUP
2537   -#line 926 "lexer.l"
  2537 +#line 926 "src/lexer.l"
2538 2538 { yylval.expr = linecol(); return yy__type_Int; }
2539 2539 YY_BREAK
2540 2540 case 92:
2541 2541 YY_RULE_SETUP
2542   -#line 927 "lexer.l"
  2542 +#line 927 "src/lexer.l"
2543 2543 { err_line_col(linecol(),"E114",msgtext_Int32_eliminated[0]); }
2544 2544 YY_BREAK
2545 2545 case 93:
2546 2546 YY_RULE_SETUP
2547   -#line 928 "lexer.l"
  2547 +#line 928 "src/lexer.l"
2548 2548 { yylval.expr = linecol(); return yy__type_Omega; }
2549 2549 YY_BREAK
2550 2550 case 94:
2551 2551 YY_RULE_SETUP
2552   -#line 929 "lexer.l"
  2552 +#line 929 "src/lexer.l"
2553 2553 { yylval.expr = linecol(); return yy__bit_width; }
2554 2554 YY_BREAK
2555 2555 case 95:
2556 2556 YY_RULE_SETUP
2557   -#line 930 "lexer.l"
  2557 +#line 930 "src/lexer.l"
2558 2558 { yylval.expr = linecol(); return yy__indirect; }
2559 2559 YY_BREAK
2560 2560 case 96:
2561 2561 YY_RULE_SETUP
2562   -#line 931 "lexer.l"
  2562 +#line 931 "src/lexer.l"
2563 2563 { if (reading_predef)
2564 2564 { yylval.expr = linecol(); return yy__vcopy; }
2565 2565 else lexical_error(); }
2566 2566 YY_BREAK
2567 2567 case 97:
2568 2568 YY_RULE_SETUP
2569   -#line 934 "lexer.l"
  2569 +#line 934 "src/lexer.l"
2570 2570 { if (reading_predef)
2571 2571 { yylval.expr = linecol(); return yy__load_module; }
2572 2572 else lexical_error(); }
2573 2573 YY_BREAK
2574 2574 case 98:
2575 2575 YY_RULE_SETUP
2576   -#line 937 "lexer.l"
  2576 +#line 937 "src/lexer.l"
2577 2577 { if (reading_predef)
2578 2578 { yylval.expr = linecol(); return yy__serialize; }
2579 2579 else lexical_error(); }
2580 2580 YY_BREAK
2581 2581 case 99:
2582 2582 YY_RULE_SETUP
2583   -#line 940 "lexer.l"
  2583 +#line 940 "src/lexer.l"
2584 2584 { if (reading_predef)
2585 2585 { yylval.expr = linecol(); return yy__unserialize; }
2586 2586 else lexical_error(); }
2587 2587 YY_BREAK
2588 2588 case 100:
2589 2589 YY_RULE_SETUP
2590   -#line 943 "lexer.l"
  2590 +#line 943 "src/lexer.l"
2591 2591 { yylval.expr = linecol(); return yy__type_Float; }
2592 2592 YY_BREAK
2593 2593 case 101:
2594 2594 YY_RULE_SETUP
2595   -#line 944 "lexer.l"
  2595 +#line 944 "src/lexer.l"
2596 2596 { if (reading_predef)
2597 2597 { yylval.expr = linecol(); return yy__type_Listener; }
2598 2598 else lexical_error(); }
2599 2599 YY_BREAK
2600 2600 case 102:
2601 2601 YY_RULE_SETUP
2602   -#line 947 "lexer.l"
  2602 +#line 947 "src/lexer.l"
2603 2603 { if (reading_predef)
2604 2604 { yylval.expr = linecol(); return yy__StructPtr; }
2605 2605 else lexical_error(); }
2606 2606 YY_BREAK
2607 2607 case 103:
2608 2608 YY_RULE_SETUP
2609   -#line 950 "lexer.l"
  2609 +#line 950 "src/lexer.l"
2610 2610 { if (reading_predef)
2611 2611 { yylval.expr = linecol(); return yy__avm; }
2612 2612 else lexical_error(); }
2613 2613 YY_BREAK
2614 2614 case 104:
2615 2615 YY_RULE_SETUP
2616   -#line 953 "lexer.l"
  2616 +#line 953 "src/lexer.l"
2617 2617 { yylval.expr = linecol(); return yy__if; }
2618 2618 YY_BREAK
2619 2619 case 105:
2620 2620 YY_RULE_SETUP
2621   -#line 954 "lexer.l"
  2621 +#line 954 "src/lexer.l"
2622 2622 { yylval.expr = linecol(); return yy__proof; }
2623 2623 YY_BREAK
2624 2624 case 106:
2625 2625 YY_RULE_SETUP
2626   -#line 955 "lexer.l"
  2626 +#line 955 "src/lexer.l"
2627 2627 { yylval.expr = linecol(); return yy__since; }
2628 2628 YY_BREAK
2629 2629 case 107:
2630 2630 YY_RULE_SETUP
2631   -#line 956 "lexer.l"
  2631 +#line 956 "src/lexer.l"
2632 2632 { return yy__is; }
2633 2633 YY_BREAK
2634 2634 case 108:
2635 2635 YY_RULE_SETUP
2636   -#line 957 "lexer.l"
  2636 +#line 957 "src/lexer.l"
2637 2637 { yylval.expr = linecol(); return yy__then; }
2638 2638 YY_BREAK
2639 2639 case 109:
2640 2640 YY_RULE_SETUP
2641   -#line 958 "lexer.l"
  2641 +#line 958 "src/lexer.l"
2642 2642 { yylval.expr = linecol(); return yy__alert; }
2643 2643 YY_BREAK
2644 2644 case 110:
2645 2645 YY_RULE_SETUP
2646   -#line 959 "lexer.l"
  2646 +#line 959 "src/lexer.l"
2647 2647 { yylval.expr = linecol(); return yy__protect; }
2648 2648 YY_BREAK
2649 2649 case 111:
2650 2650 YY_RULE_SETUP
2651   -#line 960 "lexer.l"
  2651 +#line 960 "src/lexer.l"
2652 2652 { yylval.expr = linecol(); return yy__lock; }
2653 2653 YY_BREAK
2654 2654 case 112:
2655 2655 YY_RULE_SETUP
2656   -#line 961 "lexer.l"
  2656 +#line 961 "src/lexer.l"
2657 2657 { yylval.expr = linecol(); return yy__succeeds; }
2658 2658 YY_BREAK
2659 2659 case 113:
2660 2660 /* rule 113 can match eol */
2661 2661 YY_RULE_SETUP
2662   -#line 962 "lexer.l"
  2662 +#line 962 "src/lexer.l"
2663 2663 { yylval.expr = linecol(); return yy__succeeds_as; }
2664 2664 YY_BREAK
2665 2665 case 114:
2666 2666 /* rule 114 can match eol */
2667 2667 YY_RULE_SETUP
2668   -#line 963 "lexer.l"
  2668 +#line 963 "src/lexer.l"
2669 2669 { yylval.expr = linecol(); return yy__wait_for; }
2670 2670 YY_BREAK
2671 2671 case 115:
2672 2672 /* rule 115 can match eol */
2673 2673 YY_RULE_SETUP
2674   -#line 964 "lexer.l"
  2674 +#line 964 "src/lexer.l"
2675 2675 { yylval.expr = linecol(); return yy__checking_every; }
2676 2676 YY_BREAK
2677 2677 case 116:
2678 2678 YY_RULE_SETUP
2679   -#line 965 "lexer.l"
  2679 +#line 965 "src/lexer.l"
2680 2680 { yylval.expr = linecol(); return yy__delegate; }
2681 2681 YY_BREAK
2682 2682 case 117:
2683 2683 YY_RULE_SETUP
2684   -#line 966 "lexer.l"
  2684 +#line 966 "src/lexer.l"
2685 2685 { yylval.expr = linecol(); return yy__else; }
2686 2686 YY_BREAK
2687 2687 case 118:
2688 2688 YY_RULE_SETUP
2689   -#line 967 "lexer.l"
  2689 +#line 967 "src/lexer.l"
2690 2690 { yylval.expr = linecol(); return yy__with; }
2691 2691 YY_BREAK
2692 2692 case 119:
2693 2693 YY_RULE_SETUP
2694   -#line 968 "lexer.l"
  2694 +#line 968 "src/lexer.l"
2695 2695 { yylval.expr = linecol(); return yy__alt_number; }
2696 2696 YY_BREAK
2697 2697 case 120:
2698 2698 YY_RULE_SETUP
2699   -#line 969 "lexer.l"
  2699 +#line 969 "src/lexer.l"
2700 2700 { yylval.expr = linecol(); return yy__RStream; }
2701 2701 YY_BREAK
2702 2702 case 121:
2703 2703 YY_RULE_SETUP
2704   -#line 970 "lexer.l"
  2704 +#line 970 "src/lexer.l"
2705 2705 { yylval.expr = linecol(); return yy__WStream; }
2706 2706 YY_BREAK
2707 2707 case 122:
2708 2708 YY_RULE_SETUP
2709   -#line 971 "lexer.l"
  2709 +#line 971 "src/lexer.l"
2710 2710 { yylval.expr = linecol(); return yy__RWStream; }
2711 2711 YY_BREAK
2712 2712 case 123:
2713 2713 YY_RULE_SETUP
2714   -#line 972 "lexer.l"
  2714 +#line 972 "src/lexer.l"
2715 2715 { yylval.expr = linecol(); return yy__GAddr; }
2716 2716 YY_BREAK
2717 2717 case 124:
2718 2718 YY_RULE_SETUP
2719   -#line 973 "lexer.l"
  2719 +#line 973 "src/lexer.l"
2720 2720 { yylval.expr = linecol(); return yy__Var; }
2721 2721 YY_BREAK
2722 2722 case 125:
2723 2723 YY_RULE_SETUP
2724   -#line 974 "lexer.l"
  2724 +#line 974 "src/lexer.l"
2725 2725 { yylval.expr = linecol(); return yy__MVar; }
2726 2726 YY_BREAK
2727 2727 case 126:
2728 2728 /* rule 126 can match eol */
2729 2729 YY_RULE_SETUP
2730   -#line 975 "lexer.l"
  2730 +#line 975 "src/lexer.l"
2731 2731 { yylval.expr = linecol(); return yy__connect_to_file; }
2732 2732 YY_BREAK
2733 2733 case 127:
2734 2734 /* rule 127 can match eol */
2735 2735 YY_RULE_SETUP
2736   -#line 976 "lexer.l"
  2736 +#line 976 "src/lexer.l"
2737 2737 { yylval.expr = linecol(); return yy__connect_to_IP; }
2738 2738 YY_BREAK
2739 2739 case 128:
2740 2740 YY_RULE_SETUP
2741   -#line 977 "lexer.l"
  2741 +#line 977 "src/lexer.l"
2742 2742 { yylval.expr = linecol(); return yy__debug_avm; }
2743 2743 YY_BREAK
2744 2744 case 129:
2745 2745 YY_RULE_SETUP
2746   -#line 978 "lexer.l"
  2746 +#line 978 "src/lexer.l"
2747 2747 { yylval.expr = linecol(); return yy__terminal; }
2748 2748 YY_BREAK
2749 2749 case 130:
2750 2750 /* rule 130 can match eol */
2751 2751 YY_RULE_SETUP
2752   -#line 979 "lexer.l"
  2752 +#line 979 "src/lexer.l"
2753 2753 { yylval.expr = linecol(); return yy__we_have; }
2754 2754 YY_BREAK
2755 2755 case 131:
2756 2756 /* rule 131 can match eol */
2757 2757 YY_RULE_SETUP
2758   -#line 980 "lexer.l"
  2758 +#line 980 "src/lexer.l"
2759 2759 { yylval.expr = linecol();
2760 2760 return yy__enough; }
2761 2761 YY_BREAK
2762 2762 case 132:
2763 2763 YY_RULE_SETUP
2764   -#line 982 "lexer.l"
  2764 +#line 982 "src/lexer.l"
2765 2765 { yylval.expr = linecol(); return yy__let; }
2766 2766 YY_BREAK
2767 2767 case 133:
2768 2768 /* rule 133 can match eol */
2769 2769 YY_RULE_SETUP
2770   -#line 983 "lexer.l"
  2770 +#line 983 "src/lexer.l"
2771 2771 { yylval.expr = linecol(); return yy__assume; }
2772 2772 YY_BREAK
2773 2773 case 134:
2774 2774 YY_RULE_SETUP
2775   -#line 984 "lexer.l"
  2775 +#line 984 "src/lexer.l"
2776 2776 { yylval.expr = linecol(); return yy__hence; }
2777 2777 YY_BREAK
2778 2778 case 135:
2779 2779 YY_RULE_SETUP
2780   -#line 985 "lexer.l"
  2780 +#line 985 "src/lexer.l"
2781 2781 { yylval.expr = linecol(); return yy__indeed; }
2782 2782 YY_BREAK
2783 2783 case 136:
2784 2784 /* rule 136 can match eol */
2785 2785 YY_RULE_SETUP
2786   -#line 986 "lexer.l"
  2786 +#line 986 "src/lexer.l"
2787 2787 { BEGIN CONF; return yy__stop_after; }
2788 2788 YY_BREAK
2789 2789 case 137:
2790 2790 YY_RULE_SETUP
2791   -#line 987 "lexer.l"
  2791 +#line 987 "src/lexer.l"
2792 2792 { return yy__verbose; }
2793 2793 YY_BREAK
2794 2794 case 138:
2795 2795 YY_RULE_SETUP
2796   -#line 988 "lexer.l"
  2796 +#line 988 "src/lexer.l"
2797 2797 { fprintf(errfile,msgtext_syntax_error_in_conf_file[0],
2798 2798 my_anubis_directory,lineno); anb_exit(1); }
2799 2799 YY_BREAK
2800 2800 case 139:
2801 2801 /* rule 139 can match eol */
2802 2802 YY_RULE_SETUP
2803   -#line 990 "lexer.l"
  2803 +#line 990 "src/lexer.l"
2804 2804 { }
2805 2805 YY_BREAK
2806 2806 case 140:
2807 2807 YY_RULE_SETUP
2808   -#line 991 "lexer.l"
  2808 +#line 991 "src/lexer.l"
2809 2809 { }
2810 2810 YY_BREAK
2811 2811 case 141:
2812 2812 /* rule 141 can match eol */
2813 2813 YY_RULE_SETUP
2814   -#line 992 "lexer.l"
  2814 +#line 992 "src/lexer.l"
2815 2815 {
2816 2816 yytext[yyleng-1] = 0;
2817 2817 yylval.expr = new_string(yytext+1);
... ... @@ -2820,30 +2820,30 @@ YY_RULE_SETUP
2820 2820 YY_BREAK
2821 2821 case 142:
2822 2822 YY_RULE_SETUP
2823   -#line 997 "lexer.l"
  2823 +#line 997 "src/lexer.l"
2824 2824 {
2825 2825 yylval.expr = new_string(yytext);
2826 2826 return yy__conf_symbol; }
2827 2827 YY_BREAK
2828 2828 case 143:
2829 2829 YY_RULE_SETUP
2830   -#line 1000 "lexer.l"
  2830 +#line 1000 "src/lexer.l"
2831 2831 { yylval.expr = new_integer(atoi(yytext)); return yy__conf_int; }
2832 2832 YY_BREAK
2833 2833 case 144:
2834 2834 YY_RULE_SETUP
2835   -#line 1001 "lexer.l"
  2835 +#line 1001 "src/lexer.l"
2836 2836 { }
2837 2837 YY_BREAK
2838 2838 case 145:
2839 2839 /* rule 145 can match eol */
2840 2840 YY_RULE_SETUP
2841   -#line 1002 "lexer.l"
  2841 +#line 1002 "src/lexer.l"
2842 2842 { BEGIN CONFCOM; }
2843 2843 YY_BREAK
2844 2844 case 146:
2845 2845 YY_RULE_SETUP
2846   -#line 1003 "lexer.l"
  2846 +#line 1003 "src/lexer.l"
2847 2847 { BEGIN CONFCOM; fprintf(errfile,msgtext_syntax_error_in_conf_file[0],
2848 2848 my_anubis_directory,lineno); anb_exit(1); }
2849 2849 YY_BREAK
... ... @@ -2852,127 +2852,127 @@ case 147:
2852 2852 (yy_c_buf_p) = yy_cp -= 1;
2853 2853 YY_DO_BEFORE_ACTION; /* set up yytext again */
2854 2854 YY_RULE_SETUP
2855   -#line 1005 "lexer.l"
  2855 +#line 1005 "src/lexer.l"
2856 2856 { system(skip_execute(yytext)); }
2857 2857 YY_BREAK
2858 2858 case 148:
2859 2859 /* rule 148 can match eol */
2860 2860 YY_RULE_SETUP
2861   -#line 1006 "lexer.l"
  2861 +#line 1006 "src/lexer.l"
2862 2862 { if (show_to_do)
2863 2863 { printf("%s:%d \n %s\n",
2864 2864 current_file_abs_path,lineno,yytext); fflush(stdout);} }
2865 2865 YY_BREAK
2866 2866 case 149:
2867 2867 YY_RULE_SETUP
2868   -#line 1009 "lexer.l"
  2868 +#line 1009 "src/lexer.l"
2869 2869 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2870 2870 yylval.expr = linecol(); return yy__type; }
2871 2871 YY_BREAK
2872 2872 case 150:
2873 2873 /* rule 150 can match eol */
2874 2874 YY_RULE_SETUP
2875   -#line 1011 "lexer.l"
  2875 +#line 1011 "src/lexer.l"
2876 2876 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2877 2877 yylval.expr = linecol(); return yy__p_type; }
2878 2878 YY_BREAK
2879 2879 case 151:
2880 2880 YY_RULE_SETUP
2881   -#line 1013 "lexer.l"
  2881 +#line 1013 "src/lexer.l"
2882 2882 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2883 2883 yylval.expr = linecol(); return yy__type_alias; }
2884 2884 YY_BREAK
2885 2885 case 152:
2886 2886 /* rule 152 can match eol */
2887 2887 YY_RULE_SETUP
2888   -#line 1015 "lexer.l"
  2888 +#line 1015 "src/lexer.l"
2889 2889 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2890 2890 yylval.expr = linecol(); return yy__p_type_alias; }
2891 2891 YY_BREAK
2892 2892 case 153:
2893 2893 YY_RULE_SETUP
2894   -#line 1017 "lexer.l"
  2894 +#line 1017 "src/lexer.l"
2895 2895 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2896 2896 yylval.expr = linecol(); return yy__variable; }
2897 2897 YY_BREAK
2898 2898 case 154:
2899 2899 /* rule 154 can match eol */
2900 2900 YY_RULE_SETUP
2901   -#line 1019 "lexer.l"
  2901 +#line 1019 "src/lexer.l"
2902 2902 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2903 2903 yylval.expr = linecol(); return yy__p_variable; }
2904 2904 YY_BREAK
2905 2905 case 155:
2906 2906 YY_RULE_SETUP
2907   -#line 1021 "lexer.l"
  2907 +#line 1021 "src/lexer.l"
2908 2908 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2909 2909 yylval.expr = linecol(); return yy__theorem; }
2910 2910 YY_BREAK
2911 2911 case 156:
2912 2912 /* rule 156 can match eol */
2913 2913 YY_RULE_SETUP
2914   -#line 1023 "lexer.l"
  2914 +#line 1023 "src/lexer.l"
2915 2915 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2916 2916 yylval.expr = linecol(); return yy__p_theorem; }
2917 2917 YY_BREAK
2918 2918 case 157:
2919 2919 YY_RULE_SETUP
2920   -#line 1025 "lexer.l"
  2920 +#line 1025 "src/lexer.l"
2921 2921 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2922 2922 yylval.expr = linecol(); return yy__operation; }
2923 2923 YY_BREAK
2924 2924 case 158:
2925 2925 /* rule 158 can match eol */
2926 2926 YY_RULE_SETUP
2927   -#line 1027 "lexer.l"
  2927 +#line 1027 "src/lexer.l"
2928 2928 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2929 2929 yylval.expr = linecol(); return yy__g_operation; }
2930 2930 YY_BREAK
2931 2931 case 159:
2932 2932 YY_RULE_SETUP
2933   -#line 1029 "lexer.l"
  2933 +#line 1029 "src/lexer.l"
2934 2934 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2935 2935 yylval.expr = linecol(); return yy__operation; }
2936 2936 YY_BREAK
2937 2937 case 160:
2938 2938 /* rule 160 can match eol */
2939 2939 YY_RULE_SETUP
2940   -#line 1031 "lexer.l"
  2940 +#line 1031 "src/lexer.l"
2941 2941 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2942 2942 yylval.expr = linecol(); return yy__operation_inline; }
2943 2943 YY_BREAK
2944 2944 case 161:
2945 2945 /* rule 161 can match eol */
2946 2946 YY_RULE_SETUP
2947   -#line 1033 "lexer.l"
  2947 +#line 1033 "src/lexer.l"
2948 2948 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2949 2949 yylval.expr = linecol(); return yy__g_operation; }
2950 2950 YY_BREAK
2951 2951 case 162:
2952 2952 /* rule 162 can match eol */
2953 2953 YY_RULE_SETUP
2954   -#line 1035 "lexer.l"
  2954 +#line 1035 "src/lexer.l"
2955 2955 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2956 2956 yylval.expr = linecol(); return yy__p_operation; }
2957 2957 YY_BREAK
2958 2958 case 163:
2959 2959 /* rule 163 can match eol */
2960 2960 YY_RULE_SETUP
2961   -#line 1037 "lexer.l"
  2961 +#line 1037 "src/lexer.l"
2962 2962 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2963 2963 yylval.expr = linecol(); return yy__p_operation_inline; }
2964 2964 YY_BREAK
2965 2965 case 164:
2966 2966 /* rule 164 can match eol */
2967 2967 YY_RULE_SETUP
2968   -#line 1039 "lexer.l"
  2968 +#line 1039 "src/lexer.l"
2969 2969 { if (polish) { yylval.expr = linecol(); BEGIN INCL;
2970 2970 return yy__read; }
2971 2971 else if (!gindex /* && !errors */) { BEGIN INCL; } }
2972 2972 YY_BREAK
2973 2973 case 165:
2974 2974 YY_RULE_SETUP
2975   -#line 1042 "lexer.l"
  2975 +#line 1042 "src/lexer.l"
2976 2976 { is_relay_file[file_id] = 1;
2977 2977 //printf("'%s' is a relay file.\n",current_file_abs_path);
2978 2978 if (polish) { yylval.expr = linecol(); BEGIN INCL;
... ... @@ -2981,13 +2981,13 @@ YY_RULE_SETUP
2981 2981 YY_BREAK
2982 2982 case 166:
2983 2983 YY_RULE_SETUP
2984   -#line 1047 "lexer.l"
  2984 +#line 1047 "src/lexer.l"
2985 2985 { BEGIN PAR; par_seen = 1; current_par_line = lineno;
2986 2986 yylval.expr = linecol(); return yy__C_constr_for; }
2987 2987 YY_BREAK
2988 2988 case 167:
2989 2989 YY_RULE_SETUP
2990   -#line 1049 "lexer.l"
  2990 +#line 1049 "src/lexer.l"
2991 2991 { if (polish)
2992 2992 {
2993 2993 yylval.expr = new_string(yytext);
... ... @@ -3060,24 +3060,24 @@ YY_RULE_SETUP
3060 3060 case 168:
3061 3061 /* rule 168 can match eol */
3062 3062 YY_RULE_SETUP
3063   -#line 1117 "lexer.l"
  3063 +#line 1117 "src/lexer.l"
3064 3064 { lexical_kwread_error(); }
3065 3065 YY_BREAK
3066 3066 case 169:
3067 3067 YY_RULE_SETUP
3068   -#line 1118 "lexer.l"
  3068 +#line 1118 "src/lexer.l"
3069 3069 { lexical_kwread_error(); }
3070 3070 YY_BREAK
3071 3071 case YY_STATE_EOF(PAR):
3072   -#line 1119 "lexer.l"
  3072 +#line 1119 "src/lexer.l"
3073 3073 { premature_eof(msgtext_premature_eof_in_paragraph[0]); return 0; }
3074 3074 YY_BREAK
3075 3075 case YY_STATE_EOF(STR):
3076   -#line 1120 "lexer.l"
  3076 +#line 1120 "src/lexer.l"
3077 3077 { premature_eof(msgtext_premature_eof_in_string[0]); return 0; }
3078 3078 YY_BREAK
3079 3079 case YY_STATE_EOF(COM):
3080   -#line 1121 "lexer.l"
  3080 +#line 1121 "src/lexer.l"
3081 3081 { premature_eof(msgtext_premature_eof_in_comment[0]); return 0; }
3082 3082 YY_BREAK
3083 3083 case YY_STATE_EOF(INITIAL):
... ... @@ -3085,7 +3085,7 @@ case YY_STATE_EOF(INCL):
3085 3085 case YY_STATE_EOF(STRTL):
3086 3086 case YY_STATE_EOF(CONF):
3087 3087 case YY_STATE_EOF(CONFCOM):
3088   -#line 1122 "lexer.l"
  3088 +#line 1122 "src/lexer.l"
3089 3089 {
3090 3090 end_of_par();
3091 3091 if (include_stack_ptr == 0)
... ... @@ -3113,7 +3113,7 @@ case YY_STATE_EOF(CONFCOM):
3113 3113 YY_BREAK
3114 3114 case 170:
3115 3115 YY_RULE_SETUP
3116   -#line 1146 "lexer.l"
  3116 +#line 1146 "src/lexer.l"
3117 3117 { yylval.expr =
3118 3118 cons(integer_10,
3119 3119 from_basis_10000_to_basis_256(to_bigits_10000(yytext)));
... ... @@ -3121,46 +3121,46 @@ YY_RULE_SETUP
3121 3121 YY_BREAK
3122 3122 case 171:
3123 3123 YY_RULE_SETUP
3124   -#line 1150 "lexer.l"
  3124 +#line 1150 "src/lexer.l"
3125 3125 { yylval.expr =
3126 3126 cons(integer_16,
3127 3127 to_bigits_256(yytext+2)); return yy__integer; }
3128 3128 YY_BREAK
3129 3129 case 172:
3130 3130 YY_RULE_SETUP
3131   -#line 1153 "lexer.l"
  3131 +#line 1153 "src/lexer.l"
3132 3132 { yylval.expr = new_string(yytext); return yy__float; }
3133 3133 YY_BREAK
3134 3134 case 173:
3135 3135 YY_RULE_SETUP
3136   -#line 1154 "lexer.l"
  3136 +#line 1154 "src/lexer.l"
3137 3137 { yylval.expr = new_utvar(yytext+1); return yy__utvar; }
3138 3138 YY_BREAK
3139 3139 case 174:
3140 3140 YY_RULE_SETUP
3141   -#line 1155 "lexer.l"
  3141 +#line 1155 "src/lexer.l"
3142 3142 { yylval.expr = new_string(yytext); return yy__Symbol; }
3143 3143 YY_BREAK
3144 3144 case 175:
3145 3145 YY_RULE_SETUP
3146   -#line 1156 "lexer.l"
  3146 +#line 1156 "src/lexer.l"
3147 3147 { yylval.expr = new_string(yytext); return yy__symbol; }
3148 3148 YY_BREAK
3149 3149 case 176:
3150 3150 YY_RULE_SETUP
3151   -#line 1157 "lexer.l"
  3151 +#line 1157 "src/lexer.l"
3152 3152 { yylval.expr = new_string(rec_name(yytext,4));
3153 3153 return yy__rec_mapsto; }
3154 3154 YY_BREAK
3155 3155 case 177:
3156 3156 YY_RULE_SETUP
3157   -#line 1159 "lexer.l"
  3157 +#line 1159 "src/lexer.l"
3158 3158 { yylval.expr = new_string(rec_name(yytext,5));
3159 3159 return yy__rec_mapstoo; }
3160 3160 YY_BREAK
3161 3161 case 178:
3162 3162 YY_RULE_SETUP
3163   -#line 1161 "lexer.l"
  3163 +#line 1161 "src/lexer.l"
3164 3164 { if (reading_predef)
3165 3165 { yylval.expr = new_string(yytext); return yy__Symbol; }
3166 3166 else lexical_error();
... ... @@ -3168,7 +3168,7 @@ YY_RULE_SETUP
3168 3168 YY_BREAK
3169 3169 case 179:
3170 3170 YY_RULE_SETUP
3171   -#line 1165 "lexer.l"
  3171 +#line 1165 "src/lexer.l"
3172 3172 { if (reading_predef)
3173 3173 { yylval.expr = new_string(yytext); return yy__symbol; }
3174 3174 else lexical_error();
... ... @@ -3176,7 +3176,7 @@ YY_RULE_SETUP
3176 3176 YY_BREAK
3177 3177 case 180:
3178 3178 YY_RULE_SETUP
3179   -#line 1169 "lexer.l"
  3179 +#line 1169 "src/lexer.l"
3180 3180 { if (reading_predef)
3181 3181 { yylval.expr = new_string(yytext); return yy__symbol; }
3182 3182 else lexical_error();
... ... @@ -3184,37 +3184,37 @@ YY_RULE_SETUP
3184 3184 YY_BREAK
3185 3185 case 181:
3186 3186 YY_RULE_SETUP
3187   -#line 1173 "lexer.l"
  3187 +#line 1173 "src/lexer.l"
3188 3188 { }
3189 3189 YY_BREAK
3190 3190 case 182:
3191 3191 /* rule 182 can match eol */
3192 3192 YY_RULE_SETUP
3193   -#line 1174 "lexer.l"
  3193 +#line 1174 "src/lexer.l"
3194 3194 { }
3195 3195 YY_BREAK
3196 3196 case 183:
3197 3197 YY_RULE_SETUP
3198   -#line 1175 "lexer.l"
  3198 +#line 1175 "src/lexer.l"
3199 3199 { lexical_error(); }
3200 3200 YY_BREAK
3201 3201 case 184:
3202 3202 /* rule 184 can match eol */
3203 3203 YY_RULE_SETUP
3204   -#line 1176 "lexer.l"
  3204 +#line 1176 "src/lexer.l"
3205 3205 { if (gindex) store_external_comment('\n'); }
3206 3206 YY_BREAK
3207 3207 case 185:
3208 3208 YY_RULE_SETUP
3209   -#line 1177 "lexer.l"
  3209 +#line 1177 "src/lexer.l"
3210 3210 { if (gindex) store_external_comment(yytext[0]); }
3211 3211 YY_BREAK
3212 3212 case 186:
3213 3213 YY_RULE_SETUP
3214   -#line 1178 "lexer.l"
  3214 +#line 1178 "src/lexer.l"
3215 3215 ECHO;
3216 3216 YY_BREAK
3217   -#line 3218 "lex.yy.c"
  3217 +#line 3218 "<stdout>"
3218 3218  
3219 3219 case YY_END_OF_BUFFER:
3220 3220 {
... ... @@ -4201,7 +4201,7 @@ void yyfree (void * ptr )
4201 4201  
4202 4202 #define YYTABLES_NAME "yytables"
4203 4203  
4204   -#line 1178 "lexer.l"
  4204 +#line 1178 "src/lexer.l"
4205 4205  
4206 4206  
4207 4207  
... ...
anubis_dev/compiler/src/predef_npd.aux
  Show/Hide comments   View file @713a9d3
Changes suppressed. Click to show
... ... @@ -9955,7 +9955,7 @@ cons(new_integer(112954),
9955 9955 cons(will_restart,
9956 9956 nil))));
9957 9957  
9958   -new_op_scheme(240668,1,
  9958 +new_op_scheme(229916,1,
9959 9959 type_String,
9960 9960 cons(new_string("constant_string"),
9961 9961 nil),
... ... @@ -9965,11 +9965,11 @@ cons(cons(new_string(&quot;Word8&quot;),
9965 9965 new_string("c")),
9966 9966 nil)),
9967 9967 cons(avm,
9968   -cons(new_integer(120643),
  9968 +cons(new_integer(115267),
9969 9969 cons(constant_string,
9970 9970 nil))));
9971 9971  
9972   -new_op_scheme(241692,1,
  9972 +new_op_scheme(230940,1,
9973 9973 new_string("Bool"),
9974 9974 cons(new_string("string_less"),
9975 9975 nil),
... ... @@ -9979,23 +9979,23 @@ cons(cons(type_String,
9979 9979 new_string("y")),
9980 9980 nil)),
9981 9981 cons(avm,
9982   -cons(new_integer(121155),
  9982 +cons(new_integer(115779),
9983 9983 cons(string_less,
9984 9984 nil))));
9985 9985  
9986   -new_op_scheme(243214,0,
  9986 +new_op_scheme(232462,0,
9987 9987 new_string("Word32"),
9988   -cons(new_string("length"),
  9988 +cons(new_string("£length"),
9989 9989 nil),
9990 9990 cons(cons(type_String,
9991 9991 new_string("s")),
9992 9992 nil),
9993 9993 cons(avm,
9994   -cons(new_integer(121661),
  9994 +cons(new_integer(116291),
9995 9995 cons(string_length,
9996 9996 nil))));
9997 9997  
9998   -new_op_scheme(243740,1,
  9998 +new_op_scheme(232988,1,
9999 9999 type_Int,
10000 10000 cons(new_string("length"),
10001 10001 nil),
... ... @@ -10003,22 +10003,22 @@ cons(cons(type_String,
10003 10003 new_string("s")),
10004 10004 nil),
10005 10005 cons(app,
10006   -cons(new_integer(121924),
  10006 +cons(new_integer(116550),
10007 10007 cons(cons(symbol,
10008   -cons(new_integer(121923),
  10008 +cons(new_integer(116549),
10009 10009 new_string("to_Int"))),
10010 10010 cons(cons(app,
10011   -cons(new_integer(121931),
  10011 +cons(new_integer(116558),
10012 10012 cons(cons(symbol,
10013   -cons(new_integer(121930),
10014   -new_string("length"))),
  10013 +cons(new_integer(116557),
  10014 +new_string("£length"))),
10015 10015 cons(cons(symbol,
10016   -cons(new_integer(121932),
  10016 +cons(new_integer(116559),
10017 10017 new_string("s"))),
10018 10018 nil)))),
10019 10019 nil)))));
10020 10020  
10021   -new_op_scheme(245788,1,
  10021 +new_op_scheme(234012,1,
10022 10022 cons(app_ts,
10023 10023 cons(new_string("Maybe"),
10024 10024 cons(new_string("Word8"),
... ... @@ -10031,11 +10031,11 @@ cons(cons(type_String,
10031 10031 new_string("s")),
10032 10032 nil)),
10033 10033 cons(avm,
10034   -cons(new_integer(123203),
  10034 +cons(new_integer(117315),
10035 10035 cons(string_nth,
10036 10036 nil))));
10037 10037  
10038   -new_op_scheme(247324,1,
  10038 +new_op_scheme(235548,1,
10039 10039 cons(app_ts,
10040 10040 cons(new_string("Maybe"),
10041 10041 cons(type_Int,
... ... @@ -10046,11 +10046,11 @@ cons(cons(type_String,
10046 10046 new_string("s")),
10047 10047 nil),
10048 10048 cons(avm,
10049   -cons(new_integer(123715),
  10049 +cons(new_integer(117827),
10050 10050 cons(decimal_scan,
10051 10051 nil))));
10052 10052  
10053   -new_op_scheme(247836,1,
  10053 +new_op_scheme(236060,1,
10054 10054 cons(app_ts,
10055 10055 cons(new_string("Maybe"),
10056 10056 cons(type_Float,
... ... @@ -10061,11 +10061,11 @@ cons(cons(type_String,
10061 10061 new_string("s")),
10062 10062 nil),
10063 10063 cons(avm,
10064   -cons(new_integer(123971),
  10064 +cons(new_integer(118083),
10065 10065 cons(string_to_float,
10066 10066 nil))));
10067 10067  
10068   -new_op_scheme(248334,0,
  10068 +new_op_scheme(237070,0,
10069 10069 cons(app_ts,
10070 10070 cons(new_string("Maybe"),
10071 10071 cons(type_String,
... ... @@ -10080,11 +10080,11 @@ cons(cons(new_string(&quot;Word32&quot;),
10080 10080 new_string("length")),
10081 10081 nil))),
10082 10082 cons(avm,
10083   -cons(new_integer(124740),
  10083 +cons(new_integer(119107),
10084 10084 cons(sub_string,
10085 10085 nil))));
10086 10086  
10087   -new_op_scheme(249884,1,
  10087 +new_op_scheme(238620,1,
10088 10088 cons(app_ts,
10089 10089 cons(new_string("Maybe"),
10090 10090 cons(type_String,
... ... @@ -10099,34 +10099,34 @@ cons(cons(type_Int,
10099 10099 new_string("length")),
10100 10100 nil))),
10101 10101 cons(app,
10102   -cons(new_integer(125512),
  10102 +cons(new_integer(119882),
10103 10103 cons(cons(symbol,
10104   -cons(new_integer(125511),
  10104 +cons(new_integer(119881),
10105 10105 new_string("sub_string"))),
10106 10106 cons(cons(symbol,
10107   -cons(new_integer(125513),
  10107 +cons(new_integer(119883),
10108 10108 new_string("s"))),
10109 10109 cons(cons(app,
10110   -cons(new_integer(125534),
  10110 +cons(new_integer(119904),
10111 10111 cons(cons(symbol,
10112   -cons(new_integer(125533),
  10112 +cons(new_integer(119903),
10113 10113 new_string("truncate_to_Word32"))),
10114 10114 cons(cons(symbol,
10115   -cons(new_integer(125539),
  10115 +cons(new_integer(119909),
10116 10116 new_string("start"))),
10117 10117 nil)))),
10118 10118 cons(cons(app,
10119   -cons(new_integer(125561),
  10119 +cons(new_integer(119931),
10120 10120 cons(cons(symbol,
10121   -cons(new_integer(125560),
  10121 +cons(new_integer(119930),
10122 10122 new_string("truncate_to_Word32"))),
10123 10123 cons(cons(symbol,
10124   -cons(new_integer(125567),
  10124 +cons(new_integer(119937),
10125 10125 new_string("length"))),
10126 10126 nil)))),
10127 10127 nil)))))));
10128 10128  
10129   -new_op_scheme(251420,1,
  10129 +new_op_scheme(240668,1,
10130 10130 type_String,
10131 10131 cons(new_string("+"),
10132 10132 nil),
... ... @@ -10136,11 +10136,11 @@ cons(cons(type_String,
10136 10136 new_string("y")),
10137 10137 nil)),
10138 10138 cons(avm,
10139   -cons(new_integer(125763),
  10139 +cons(new_integer(120387),
10140 10140 cons(strconcat,
10141 10141 nil))));
10142 10142  
10143   -new_op_scheme(251932,1,
  10143 +new_op_scheme(241180,1,
10144 10144 type_String,
10145 10145 cons(new_string("implode"),
10146 10146 nil),
... ... @@ -10151,11 +10151,11 @@ nil))),
10151 10151 new_string("l")),
10152 10152 nil),
10153 10153 cons(avm,
10154   -cons(new_integer(126019),
  10154 +cons(new_integer(120643),
10155 10155 cons(implode,
10156 10156 nil))));
10157 10157  
10158   -new_op_scheme(252444,1,
  10158 +new_op_scheme(241692,1,
10159 10159 cons(app_ts,
10160 10160 cons(new_string("List"),
10161 10161 cons(new_string("Word8"),
... ... @@ -10166,11 +10166,11 @@ cons(cons(type_String,
10166 10166 new_string("s")),
10167 10167 nil),
10168 10168 cons(avm,
10169   -cons(new_integer(126275),
  10169 +cons(new_integer(120899),
10170 10170 cons(explode,
10171 10171 nil))));
10172 10172  
10173   -new_op_scheme(252956,1,
  10173 +new_op_scheme(242204,1,
10174 10174 new_string("One"),
10175 10175 cons(new_string("print"),
10176 10176 nil),
... ... @@ -10178,11 +10178,11 @@ cons(cons(type_String,
10178 10178 new_string("x")),
10179 10179 nil),
10180 10180 cons(avm,
10181   -cons(new_integer(126531),
  10181 +cons(new_integer(121155),
10182 10182 cons(print_string,
10183 10183 nil))));
10184 10184  
10185   -new_op_scheme(253966,0,
  10185 +new_op_scheme(243214,0,
10186 10186 new_string("One"),
10187 10187 cons(new_string("print"),
10188 10188 nil),
... ... @@ -10195,70 +10195,70 @@ cons(cons(type_Int,
10195 10195 new_string("from")),
10196 10196 nil))),
10197 10197 cons(cond,
10198   -cons(new_integer(128773),
  10198 +cons(new_integer(123397),
10199 10199 cons(cons(app,
10200   -cons(new_integer(128778),
  10200 +cons(new_integer(123402),
10201 10201 cons(cons(symbol,
10202   -cons(new_integer(128777),
  10202 +cons(new_integer(123401),
10203 10203 new_string("nth"))),
10204 10204 cons(cons(symbol,
10205   -cons(new_integer(128782),
  10205 +cons(new_integer(123406),
10206 10206 new_string("from"))),
10207 10207 cons(cons(symbol,
10208   -cons(new_integer(128784),
  10208 +cons(new_integer(123408),
10209 10209 new_string("s"))),
10210 10210 nil))))),
10211 10211 cons(cons(cons(new_string("failure"),
10212 10212 nil),
10213   -cons(new_integer(129299),
  10213 +cons(new_integer(123923),
10214 10214 cons(symbol,
10215   -cons(new_integer(129306),
  10215 +cons(new_integer(123930),
10216 10216 new_string("unique"))))),
10217 10217 cons(cons(cons(new_string("success"),
10218 10218 cons(new_string("c"),
10219 10219 nil)),
10220   -cons(new_integer(129558),
  10220 +cons(new_integer(124182),
10221 10221 cons(cond,
10222   -cons(new_integer(129561),
  10222 +cons(new_integer(124185),
10223 10223 cons(cons(anb_write,
10224   -cons(new_integer(129808),
  10224 +cons(new_integer(124432),
10225 10225 cons(cons(symbol,
10226   -cons(new_integer(129805),
  10226 +cons(new_integer(124429),
10227 10227 new_string("file"))),
10228 10228 cons(symbol,
10229   -cons(new_integer(129810),
  10229 +cons(new_integer(124434),
10230 10230 new_string("c")))))),
10231 10231 cons(cons(cons(new_string("failure"),
10232 10232 nil),
10233   -cons(new_integer(130329),
  10233 +cons(new_integer(124953),
10234 10234 cons(symbol,
10235   -cons(new_integer(130336),
  10235 +cons(new_integer(124960),
10236 10236 new_string("unique"))))),
10237 10237 cons(cons(cons(new_string("success"),
10238 10238 cons(new_string("_"),
10239 10239 nil)),
10240   -cons(new_integer(130588),
  10240 +cons(new_integer(125212),
10241 10241 cons(app,
10242   -cons(new_integer(130595),
  10242 +cons(new_integer(125219),
10243 10243 cons(cons(symbol,
10244   -cons(new_integer(130594),
  10244 +cons(new_integer(125218),
10245 10245 new_string("print"))),
10246 10246 cons(cons(symbol,
10247   -cons(new_integer(130599),
  10247 +cons(new_integer(125223),
10248 10248 new_string("file"))),
10249 10249 cons(cons(symbol,
10250   -cons(new_integer(130601),
  10250 +cons(new_integer(125225),
10251 10251 new_string("s"))),
10252 10252 cons(cons(app,
10253   -cons(new_integer(130607),
  10253 +cons(new_integer(125231),
10254 10254 cons(cons(symbol,
10255   -cons(new_integer(130607),
  10255 +cons(new_integer(125231),
10256 10256 new_string("+"))),
10257 10257 cons(cons(symbol,
10258   -cons(new_integer(130606),
  10258 +cons(new_integer(125230),
10259 10259 new_string("from"))),
10260 10260 cons(cons(integer_10,
10261   -cons(new_integer(130608),
  10261 +cons(new_integer(125232),
10262 10262 cons(new_integer(1),
10263 10263 nil))),
10264 10264 nil))))),
... ... @@ -10266,7 +10266,7 @@ nil)))))))),
10266 10266 nil))))))),
10267 10267 nil))))));
10268 10268  
10269   -new_op_scheme(263196,1,
  10269 +new_op_scheme(252444,1,
10270 10270 new_string("One"),
10271 10271 cons(new_string("print"),
10272 10272 nil),
... ... @@ -10277,22 +10277,22 @@ cons(cons(type_String,
10277 10277 new_string("s")),
10278 10278 nil)),
10279 10279 cons(app,
10280   -cons(new_integer(133129),
  10280 +cons(new_integer(127753),
10281 10281 cons(cons(symbol,
10282   -cons(new_integer(133128),
  10282 +cons(new_integer(127752),
10283 10283 new_string("print"))),
10284 10284 cons(cons(symbol,
10285   -cons(new_integer(133133),
  10285 +cons(new_integer(127757),
10286 10286 new_string("file"))),
10287 10287 cons(cons(symbol,
10288   -cons(new_integer(133135),
  10288 +cons(new_integer(127759),
10289 10289 new_string("s"))),
10290 10290 cons(cons(integer_10,
10291   -cons(new_integer(133137),
  10291 +cons(new_integer(127761),
10292 10292 nil)),
10293 10293 nil)))))));
10294 10294  
10295   -new_op_scheme(269340,1,
  10295 +new_op_scheme(258588,1,
10296 10296 type_Int,
10297 10297 cons(new_string("length"),
10298 10298 nil),
... ... @@ -10300,11 +10300,11 @@ cons(cons(type_ByteArray,
10300 10300 new_string("s")),
10301 10301 nil),
10302 10302 cons(avm,
10303   -cons(new_integer(134724),
  10303 +cons(new_integer(129348),
10304 10304 cons(byte_array_length_int,
10305 10305 nil))));
10306 10306  
10307   -new_op_scheme(270364,1,
  10307 +new_op_scheme(259612,1,
10308 10308 cons(app_ts,
10309 10309 cons(new_string("Maybe"),
10310 10310 cons(new_string("Word8"),
... ... @@ -10317,11 +10317,11 @@ cons(cons(type_ByteArray,
10317 10317 new_string("s")),
10318 10318 nil)),
10319 10319 cons(avm,
10320   -cons(new_integer(135234),
  10320 +cons(new_integer(129858),
10321 10321 cons(byte_array_nth,
10322 10322 nil))));
10323 10323  
10324   -new_op_scheme(270876,1,
  10324 +new_op_scheme(260124,1,
10325 10325 new_string("Word8"),
10326 10326 cons(new_string("force_nth"),
10327 10327 nil),
... ... @@ -10331,35 +10331,35 @@ cons(cons(type_ByteArray,
10331 10331 new_string("b")),
10332 10332 nil)),
10333 10333 cons(cond,
10334   -cons(new_integer(136965),
  10334 +cons(new_integer(131589),
10335 10335 cons(cons(app,
10336   -cons(new_integer(136970),
  10336 +cons(new_integer(131594),
10337 10337 cons(cons(symbol,
10338   -cons(new_integer(136969),
  10338 +cons(new_integer(131593),
10339 10339 new_string("nth"))),
10340 10340 cons(cons(symbol,
10341   -cons(new_integer(136971),
  10341 +cons(new_integer(131595),
10342 10342 new_string("n"))),
10343 10343 cons(cons(symbol,
10344   -cons(new_integer(136973),
  10344 +cons(new_integer(131597),
10345 10345 new_string("b"))),
10346 10346 nil))))),
10347 10347 cons(cons(cons(new_string("failure"),
10348 10348 nil),
10349   -cons(new_integer(137491),
  10349 +cons(new_integer(132115),
10350 10350 cons(integer_10,
10351   -cons(new_integer(137493),
  10351 +cons(new_integer(132117),
10352 10352 nil)))),
10353 10353 cons(cons(cons(new_string("success"),
10354 10354 cons(new_string("c"),
10355 10355 nil)),
10356   -cons(new_integer(137750),
  10356 +cons(new_integer(132374),
10357 10357 cons(symbol,
10358   -cons(new_integer(137752),
  10358 +cons(new_integer(132376),
10359 10359 new_string("c"))))),
10360 10360 nil))))));
10361 10361  
10362   -new_op_scheme(277020,1,
  10362 +new_op_scheme(266268,1,
10363 10363 cons(app_ts,
10364 10364 cons(new_string("Maybe"),
10365 10365 cons(new_string("One"),
... ... @@ -10374,11 +10374,11 @@ cons(cons(new_string(&quot;Word8&quot;),
10374 10374 new_string("c")),
10375 10375 nil))),
10376 10376 cons(avm,
10377   -cons(new_integer(139080),
  10377 +cons(new_integer(133704),
10378 10378 cons(byte_array_put,
10379 10379 nil))));
10380 10380  
10381   -new_op_scheme(278556,1,
  10381 +new_op_scheme(267804,1,
10382 10382 type_ByteArray,
10383 10383 cons(new_string("constant_byte_array"),
10384 10384 nil),
... ... @@ -10388,11 +10388,11 @@ cons(cons(new_string(&quot;Word8&quot;),
10388 10388 new_string("c")),
10389 10389 nil)),
10390 10390 cons(avm,
10391   -cons(new_integer(139592),
  10391 +cons(new_integer(134216),
10392 10392 cons(constant_byte_array,
10393 10393 nil))));
10394 10394  
10395   -new_op_scheme(279580,1,
  10395 +new_op_scheme(268828,1,
10396 10396 new_string("One"),
10397 10397 cons(new_string("truncate"),
10398 10398 nil),
... ... @@ -10402,11 +10402,11 @@ cons(cons(type_Int,
10402 10402 new_string("size")),
10403 10403 nil)),
10404 10404 cons(avm,
10405   -cons(new_integer(140101),
  10405 +cons(new_integer(134725),
10406 10406 cons(truncate_byte_array,
10407 10407 nil))));
10408 10408  
10409   -new_op_scheme(280604,1,
  10409 +new_op_scheme(269852,1,
10410 10410 type_ByteArray,
10411 10411 cons(new_string("extract"),
10412 10412 nil),
... ... @@ -10418,11 +10418,11 @@ cons(cons(type_Int,
10418 10418 new_string("end")),
10419 10419 nil))),
10420 10420 cons(avm,
10421   -cons(new_integer(140869),
  10421 +cons(new_integer(135493),
10422 10422 cons(extract_byte_array,
10423 10423 nil))));
10424 10424  
10425   -new_op_scheme(282140,1,
  10425 +new_op_scheme(271388,1,
10426 10426 type_ByteArray,
10427 10427 cons(new_string("+"),
10428 10428 nil),
... ... @@ -10432,11 +10432,11 @@ cons(cons(type_ByteArray,
10432 10432 new_string("t")),
10433 10433 nil)),
10434 10434 cons(avm,
10435   -cons(new_integer(141127),
  10435 +cons(new_integer(135751),
10436 10436 cons(concat_byte_array,
10437 10437 nil))));
10438 10438  
10439   -new_op_scheme(282652,1,
  10439 +new_op_scheme(271900,1,
10440 10440 type_String,
10441 10441 cons(new_string("to_ascii"),
10442 10442 nil),
... ... @@ -10444,11 +10444,11 @@ cons(cons(type_ByteArray,
10444 10444 new_string("s")),
10445 10445 nil),
10446 10446 cons(avm,
10447   -cons(new_integer(141388),
  10447 +cons(new_integer(136012),
10448 10448 cons(byte_array_to_ascii,
10449 10449 nil))));
10450 10450  
10451   -new_op_scheme(283164,1,
  10451 +new_op_scheme(272412,1,
10452 10452 type_String,
10453 10453 cons(new_string("to_string"),
10454 10454 nil),
... ... @@ -10456,11 +10456,11 @@ cons(cons(type_ByteArray,
10456 10456 new_string("s")),
10457 10457 nil),
10458 10458 cons(avm,
10459   -cons(new_integer(141644),
  10459 +cons(new_integer(136268),
10460 10460 cons(byte_array_to_string,
10461 10461 nil))));
10462 10462  
10463   -new_op_scheme(283676,1,
  10463 +new_op_scheme(272924,1,
10464 10464 type_String,
10465 10465 cons(new_string("to_hexa"),
10466 10466 nil),
... ... @@ -10468,11 +10468,11 @@ cons(cons(type_ByteArray,
10468 10468 new_string("s")),
10469 10469 nil),
10470 10470 cons(avm,
10471   -cons(new_integer(141898),
  10471 +cons(new_integer(136522),
10472 10472 cons(byte_array_to_string,
10473 10473 nil))));
10474 10474  
10475   -new_op_scheme(284188,1,
  10475 +new_op_scheme(273436,1,
10476 10476 type_ByteArray,
10477 10477 cons(new_string("to_byte_array"),
10478 10478 nil),
... ... @@ -10480,11 +10480,11 @@ cons(cons(type_String,
10480 10480 new_string("s")),
10481 10481 nil),
10482 10482 cons(avm,
10483   -cons(new_integer(142156),
  10483 +cons(new_integer(136780),
10484 10484 cons(string_to_byte_array,
10485 10485 nil))));
10486 10486  
10487   -new_op_scheme(287772,1,
  10487 +new_op_scheme(277020,1,
10488 10488 new_string("Bool"),
10489 10489 cons(new_string("<"),
10490 10490 nil),
... ... @@ -10494,11 +10494,11 @@ cons(cons(type_Int,
10494 10494 new_string("y")),
10495 10495 nil)),
10496 10496 cons(avm,
10497   -cons(new_integer(143939),
  10497 +cons(new_integer(138563),
10498 10498 cons(int_less,
10499 10499 nil))));
10500 10500  
10501   -new_op_scheme(288284,1,
  10501 +new_op_scheme(277532,1,
10502 10502 new_string("Bool"),
10503 10503 cons(new_string("=<"),
10504 10504 nil),
... ... @@ -10508,11 +10508,11 @@ cons(cons(type_Int,
10508 10508 new_string("y")),
10509 10509 nil)),
10510 10510 cons(avm,
10511   -cons(new_integer(144195),
  10511 +cons(new_integer(138819),
10512 10512 cons(int_lessoreq,
10513 10513 nil))));
10514 10514  
10515   -new_op_scheme(288796,1,
  10515 +new_op_scheme(278044,1,
10516 10516 type_Int,
10517 10517 cons(new_string("+"),
10518 10518 nil),
... ... @@ -10522,11 +10522,11 @@ cons(cons(type_Int,
10522 10522 new_string("y")),
10523 10523 nil)),
10524 10524 cons(avm,
10525   -cons(new_integer(144451),
  10525 +cons(new_integer(139075),
10526 10526 cons(int_plus,
10527 10527 nil))));
10528 10528  
10529   -new_op_scheme(289308,1,
  10529 +new_op_scheme(278556,1,
10530 10530 type_Int,
10531 10531 cons(new_string("-"),
10532 10532 nil),
... ... @@ -10536,11 +10536,11 @@ cons(cons(type_Int,
10536 10536 new_string("y")),
10537 10537 nil)),
10538 10538 cons(avm,
10539   -cons(new_integer(144707),
  10539 +cons(new_integer(139331),
10540 10540 cons(int_minus,
10541 10541 nil))));
10542 10542  
10543   -new_op_scheme(289820,1,
  10543 +new_op_scheme(279068,1,
10544 10544 type_Int,
10545 10545 cons(new_string("-"),
10546 10546 nil),
... ... @@ -10548,19 +10548,19 @@ cons(cons(type_Int,
10548 10548 new_string("x")),
10549 10549 nil),
10550 10550 cons(app,
10551   -cons(new_integer(144962),
  10551 +cons(new_integer(139586),
10552 10552 cons(cons(symbol,
10553   -cons(new_integer(144962),
  10553 +cons(new_integer(139586),
10554 10554 new_string("-"))),
10555 10555 cons(cons(integer_10,
10556   -cons(new_integer(144960),
  10556 +cons(new_integer(139584),
10557 10557 nil)),
10558 10558 cons(cons(symbol,
10559   -cons(new_integer(144964),
  10559 +cons(new_integer(139588),
10560 10560 new_string("x"))),
10561 10561 nil))))));
10562 10562  
10563   -new_op_scheme(290332,1,
  10563 +new_op_scheme(279580,1,
10564 10564 type_Int,
10565 10565 cons(new_string("*"),
10566 10566 nil),
... ... @@ -10570,11 +10570,11 @@ cons(cons(type_Int,
10570 10570 new_string("y")),
10571 10571 nil)),
10572 10572 cons(avm,
10573   -cons(new_integer(145219),
  10573 +cons(new_integer(139843),
10574 10574 cons(int_times,
10575 10575 nil))));
10576 10576  
10577   -new_op_scheme(290844,1,
  10577 +new_op_scheme(280092,1,
10578 10578 cons(app_ts,
10579 10579 cons(new_string("Maybe"),
10580 10580 cons(cons(app_ts,
... ... @@ -10591,11 +10591,11 @@ cons(cons(type_Int,
10591 10591 new_string("y")),
10592 10592 nil)),
10593 10593 cons(avm,
10594   -cons(new_integer(145475),
  10594 +cons(new_integer(140099),
10595 10595 cons(int_euclid,
10596 10596 nil))));
10597 10597  
10598   -new_op_scheme(291356,1,
  10598 +new_op_scheme(280604,1,
10599 10599 type_String,
10600 10600 cons(new_string("abs_to_decimal"),
10601 10601 nil),
... ... @@ -10603,11 +10603,11 @@ cons(cons(type_Int,
10603 10603 new_string("x")),
10604 10604 nil),
10605 10605 cons(avm,
10606   -cons(new_integer(145731),
  10606 +cons(new_integer(140355),
10607 10607 cons(int_to_decimal,
10608 10608 nil))));
10609 10609  
10610   -new_op_scheme(291868,1,
  10610 +new_op_scheme(281116,1,
10611 10611 type_String,
10612 10612 cons(new_string("abs_to_hexa"),
10613 10613 nil),
... ... @@ -10615,11 +10615,11 @@ cons(cons(type_Int,
10615 10615 new_string("x")),
10616 10616 nil),
10617 10617 cons(avm,
10618   -cons(new_integer(145987),
  10618 +cons(new_integer(140611),
10619 10619 cons(int_to_hexa,
10620 10620 nil))));
10621 10621  
10622   -new_op_scheme(294940,1,
  10622 +new_op_scheme(284188,1,
10623 10623 cons(app_ts,
10624 10624 cons(new_string("Maybe"),
10625 10625 cons(type_Float,
... ... @@ -10632,11 +10632,11 @@ cons(cons(type_Float,
10632 10632 new_string("y")),
10633 10633 nil)),
10634 10634 cons(avm,
10635   -cons(new_integer(147523),
  10635 +cons(new_integer(142147),
10636 10636 cons(float_plus,
10637 10637 nil))));
10638 10638  
10639   -new_op_scheme(295452,1,
  10639 +new_op_scheme(284700,1,
10640 10640 cons(app_ts,
10641 10641 cons(new_string("Maybe"),
10642 10642 cons(type_Float,
... ... @@ -10649,11 +10649,11 @@ cons(cons(type_Float,
10649 10649 new_string("y")),
10650 10650 nil)),
10651 10651 cons(avm,
10652   -cons(new_integer(147779),
  10652 +cons(new_integer(142403),
10653 10653 cons(float_minus,
10654 10654 nil))));
10655 10655  
10656   -new_op_scheme(295964,1,
  10656 +new_op_scheme(285212,1,
10657 10657 cons(app_ts,
10658 10658 cons(new_string("Maybe"),
10659 10659 cons(type_Float,
... ... @@ -10666,11 +10666,11 @@ cons(cons(type_Float,
10666 10666 new_string("y")),
10667 10667 nil)),
10668 10668 cons(avm,
10669   -cons(new_integer(148035),
  10669 +cons(new_integer(142659),
10670 10670 cons(float_times,
10671 10671 nil))));
10672 10672  
10673   -new_op_scheme(296476,1,
  10673 +new_op_scheme(285724,1,
10674 10674 cons(app_ts,
10675 10675 cons(new_string("Maybe"),
10676 10676 cons(type_Float,
... ... @@ -10683,11 +10683,11 @@ cons(cons(type_Float,
10683 10683 new_string("y")),
10684 10684 nil)),
10685 10685 cons(avm,
10686   -cons(new_integer(148291),
  10686 +cons(new_integer(142915),
10687 10687 cons(float_power,
10688 10688 nil))));
10689 10689  
10690   -new_op_scheme(296988,1,
  10690 +new_op_scheme(286236,1,
10691 10691 cons(app_ts,
10692 10692 cons(new_string("Maybe"),
10693 10693 cons(type_Float,
... ... @@ -10700,11 +10700,11 @@ cons(cons(type_Float,
10700 10700 new_string("y")),
10701 10701 nil)),
10702 10702 cons(avm,
10703   -cons(new_integer(148547),
  10703 +cons(new_integer(143171),
10704 10704 cons(float_div,
10705 10705 nil))));
10706 10706  
10707   -new_op_scheme(297500,1,
  10707 +new_op_scheme(286748,1,
10708 10708 type_Float,
10709 10709 cons(new_string("sin"),
10710 10710 nil),
... ... @@ -10712,11 +10712,11 @@ cons(cons(type_Float,
10712 10712 new_string("x")),
10713 10713 nil),
10714 10714 cons(avm,
10715   -cons(new_integer(148803),
  10715 +cons(new_integer(143427),
10716 10716 cons(float_sin,
10717 10717 nil))));
10718 10718  
10719   -new_op_scheme(298012,1,
  10719 +new_op_scheme(287260,1,
10720 10720 type_Float,
10721 10721 cons(new_string("cos"),
10722 10722 nil),
... ... @@ -10724,11 +10724,11 @@ cons(cons(type_Float,
10724 10724 new_string("x")),
10725 10725 nil),
10726 10726 cons(avm,
10727   -cons(new_integer(149059),
  10727 +cons(new_integer(143683),
10728 10728 cons(float_cos,
10729 10729 nil))));
10730 10730  
10731   -new_op_scheme(298524,1,
  10731 +new_op_scheme(287772,1,
10732 10732 cons(app_ts,
10733 10733 cons(new_string("Maybe"),
10734 10734 cons(type_Float,
... ... @@ -10739,11 +10739,11 @@ cons(cons(type_Float,
10739 10739 new_string("x")),
10740 10740 nil),
10741 10741 cons(avm,
10742   -cons(new_integer(149315),
  10742 +cons(new_integer(143939),
10743 10743 cons(float_tan,
10744 10744 nil))));
10745 10745  
10746   -new_op_scheme(299036,1,
  10746 +new_op_scheme(288284,1,
10747 10747 cons(app_ts,
10748 10748 cons(new_string("Maybe"),
10749 10749 cons(type_Float,
... ... @@ -10754,11 +10754,11 @@ cons(cons(type_Float,
10754 10754 new_string("x")),
10755 10755 nil),
10756 10756 cons(avm,
10757   -cons(new_integer(149571),
  10757 +cons(new_integer(144195),
10758 10758 cons(float_asin,
10759 10759 nil))));
10760 10760  
10761   -new_op_scheme(299548,1,
  10761 +new_op_scheme(288796,1,
10762 10762 cons(app_ts,
10763 10763 cons(new_string("Maybe"),
10764 10764 cons(type_Float,
... ... @@ -10769,11 +10769,11 @@ cons(cons(type_Float,
10769 10769 new_string("x")),
10770 10770 nil),
10771 10771 cons(avm,
10772   -cons(new_integer(149827),
  10772 +cons(new_integer(144451),
10773 10773 cons(float_acos,
10774 10774 nil))));
10775 10775  
10776   -new_op_scheme(300060,1,
  10776 +new_op_scheme(289308,1,
10777 10777 type_Float,
10778 10778 cons(new_string("atan"),
10779 10779 nil),
... ... @@ -10781,11 +10781,11 @@ cons(cons(type_Float,
10781 10781 new_string("x")),
10782 10782 nil),
10783 10783 cons(avm,
10784   -cons(new_integer(150083),
  10784 +cons(new_integer(144707),
10785 10785 cons(float_atan,
10786 10786 nil))));
10787 10787  
10788   -new_op_scheme(300572,1,
  10788 +new_op_scheme(289820,1,
10789 10789 cons(app_ts,
10790 10790 cons(new_string("Maybe"),
10791 10791 cons(type_Float,
... ... @@ -10796,11 +10796,11 @@ cons(cons(type_Float,
10796 10796 new_string("x")),
10797 10797 nil),
10798 10798 cons(avm,
10799   -cons(new_integer(150339),
  10799 +cons(new_integer(144963),
10800 10800 cons(float_exp,
10801 10801 nil))));
10802 10802  
10803   -new_op_scheme(301084,1,
  10803 +new_op_scheme(290332,1,
10804 10804 cons(app_ts,
10805 10805 cons(new_string("Maybe"),
10806 10806 cons(type_Float,
... ... @@ -10811,11 +10811,11 @@ cons(cons(type_Float,
10811 10811 new_string("x")),
10812 10812 nil),
10813 10813 cons(avm,
10814   -cons(new_integer(150595),
  10814 +cons(new_integer(145219),
10815 10815 cons(float_log,
10816 10816 nil))));
10817 10817  
10818   -new_op_scheme(301596,1,
  10818 +new_op_scheme(290844,1,
10819 10819 cons(app_ts,
10820 10820 cons(new_string("Maybe"),
10821 10821 cons(type_Float,
... ... @@ -10826,11 +10826,11 @@ cons(cons(type_Float,
10826 10826 new_string("x")),
10827 10827 nil),
10828 10828 cons(avm,
10829   -cons(new_integer(150851),
  10829 +cons(new_integer(145475),
10830 10830 cons(float_sqrt,
10831 10831 nil))));
10832 10832  
10833   -new_op_scheme(302108,1,
  10833 +new_op_scheme(291356,1,
10834 10834 new_string("Bool"),
10835 10835 cons(new_string("<"),
10836 10836 nil),
... ... @@ -10840,11 +10840,11 @@ cons(cons(type_Float,
10840 10840 new_string("y")),
10841 10841 nil)),
10842 10842 cons(avm,
10843   -cons(new_integer(151107),
  10843 +cons(new_integer(145731),
10844 10844 cons(float_less,
10845 10845 nil))));
10846 10846  
10847   -new_op_scheme(302620,1,
  10847 +new_op_scheme(291868,1,
10848 10848 new_string("Bool"),
10849 10849 cons(new_string("=<"),
10850 10850 nil),
... ... @@ -10854,11 +10854,11 @@ cons(cons(type_Float,
10854 10854 new_string("y")),
10855 10855 nil)),
10856 10856 cons(avm,
10857   -cons(new_integer(151363),
  10857 +cons(new_integer(145987),
10858 10858 cons(float_lessoreq,
10859 10859 nil))));
10860 10860  
10861   -new_op_scheme(303630,0,
  10861 +new_op_scheme(292878,0,
10862 10862 type_String,
10863 10863 cons(new_string("£float_to_string"),
10864 10864 nil),
... ... @@ -10868,11 +10868,11 @@ cons(cons(new_string(&quot;Word32&quot;),
10868 10868 new_string("prec")),
10869 10869 nil)),
10870 10870 cons(avm,
10871   -cons(new_integer(151879),
  10871 +cons(new_integer(146503),
10872 10872 cons(float_to_string,
10873 10873 nil))));
10874 10874  
10875   -new_op_scheme(304156,1,
  10875 +new_op_scheme(293404,1,
10876 10876 type_String,
10877 10877 cons(new_string("float_to_string"),
10878 10878 nil),
... ... @@ -10882,25 +10882,25 @@ cons(cons(type_Int,
10882 10882 new_string("prec")),
10883 10883 nil)),
10884 10884 cons(app,
10885   -cons(new_integer(152149),
  10885 +cons(new_integer(146773),
10886 10886 cons(cons(symbol,
10887   -cons(new_integer(152148),
  10887 +cons(new_integer(146772),
10888 10888 new_string("£float_to_string"))),
10889 10889 cons(cons(symbol,
10890   -cons(new_integer(152150),
  10890 +cons(new_integer(146774),
10891 10891 new_string("n"))),
10892 10892 cons(cons(app,
10893   -cons(new_integer(152171),
  10893 +cons(new_integer(146795),
10894 10894 cons(cons(symbol,
10895   -cons(new_integer(152170),
  10895 +cons(new_integer(146794),
10896 10896 new_string("truncate_to_Word32"))),
10897 10897 cons(cons(symbol,
10898   -cons(new_integer(152175),
  10898 +cons(new_integer(146799),
10899 10899 new_string("prec"))),
10900 10900 nil)))),
10901 10901 nil))))));
10902 10902  
10903   -new_op_scheme(304668,1,
  10903 +new_op_scheme(293916,1,
10904 10904 new_string("Word32"),
10905 10905 cons(new_string("integral_part_to_Word32"),
10906 10906 nil),
... ... @@ -10908,11 +10908,11 @@ cons(cons(type_Float,
10908 10908 new_string("n")),
10909 10909 nil),
10910 10910 cons(avm,
10911   -cons(new_integer(152398),
  10911 +cons(new_integer(147022),
10912 10912 cons(float_integral_part,
10913 10913 nil))));
10914 10914  
10915   -new_op_scheme(305692,1,
  10915 +new_op_scheme(294940,1,
10916 10916 type_Int,
10917 10917 cons(new_string("integral_part"),
10918 10918 nil),
... ... @@ -10920,11 +10920,11 @@ cons(cons(type_Float,
10920 10920 new_string("n")),
10921 10921 nil),
10922 10922 cons(avm,
10923   -cons(new_integer(152899),
  10923 +cons(new_integer(147523),
10924 10924 cons(float_to_int,
10925 10925 nil))));
10926 10926  
10927   -new_op_scheme(306716,1,
  10927 +new_op_scheme(295964,1,
10928 10928 type_Float,
10929 10929 cons(new_string("to_Float"),
10930 10930 nil),
... ... @@ -10932,11 +10932,11 @@ cons(cons(new_string(&quot;Word32&quot;),
10932 10932 new_string("x")),
10933 10933 nil),
10934 10934 cons(avm,
10935   -cons(new_integer(153411),
  10935 +cons(new_integer(148035),
10936 10936 cons(integer_to_float,
10937 10937 nil))));
10938 10938  
10939   -new_op_scheme(307228,1,
  10939 +new_op_scheme(296476,1,
10940 10940 type_Float,
10941 10941 cons(new_string("to_Float"),
10942 10942 nil),
... ... @@ -10944,11 +10944,11 @@ cons(cons(type_Int,
10944 10944 new_string("n")),
10945 10945 nil),
10946 10946 cons(avm,
10947   -cons(new_integer(153667),
  10947 +cons(new_integer(148291),
10948 10948 cons(int_to_float,
10949 10949 nil))));
10950 10950  
10951   -new_type_scheme(309784,0,
  10951 +new_type_scheme(299032,0,
10952 10952 new_string("Float32Value"),
10953 10953 nil,
10954 10954 cons(cons(cons(new_string("float32value"),
... ... @@ -10958,7 +10958,7 @@ noname),
10958 10958 nil)),
10959 10959 nil),0,1);
10960 10960  
10961   -new_type_scheme(310296,0,
  10961 +new_type_scheme(299544,0,
10962 10962 new_string("Float64Value"),
10963 10963 nil,
10964 10964 cons(cons(cons(new_string("float64value"),
... ... @@ -10970,7 +10970,7 @@ noname),
10970 10970 nil))),
10971 10971 nil),0,1);
10972 10972  
10973   -new_op_scheme(315420,1,
  10973 +new_op_scheme(304668,1,
10974 10974 cons(app_ts,
10975 10975 cons(new_string("Maybe"),
10976 10976 cons(cons(type_RStream,
... ... @@ -10984,11 +10984,11 @@ cons(cons(new_string(&quot;ReadFileMode&quot;),
10984 10984 new_string("mode")),
10985 10985 nil)),
10986 10986 cons(avm,
10987   -cons(new_integer(158023),
  10987 +cons(new_integer(152647),
10988 10988 cons(open_file_for_reading,
10989 10989 nil))));
10990 10990  
10991   -new_op_scheme(316444,1,
  10991 +new_op_scheme(305692,1,
10992 10992 cons(app_ts,
10993 10993 cons(new_string("Maybe"),
10994 10994 cons(cons(type_RWStream,
... ... @@ -11002,11 +11002,11 @@ cons(cons(new_string(&quot;ReadWriteFileMode&quot;),
11002 11002 new_string("mode")),
11003 11003 nil)),
11004 11004 cons(avm,
11005   -cons(new_integer(158535),
  11005 +cons(new_integer(153159),
11006 11006 cons(open_file_for_writing,
11007 11007 nil))));
11008 11008  
11009   -new_op_scheme(319516,1,
  11009 +new_op_scheme(308764,1,
11010 11010 cons(app_ts,
11011 11011 cons(new_string("Maybe"),
11012 11012 cons(new_string("FileMode"),
... ... @@ -11017,11 +11017,11 @@ cons(cons(type_String,
11017 11017 new_string("file_name")),
11018 11018 nil),
11019 11019 cons(avm,
11020   -cons(new_integer(159813),
  11020 +cons(new_integer(154437),
11021 11021 cons(get_file_mode,
11022 11022 nil))));
11023 11023  
11024   -new_op_scheme(320028,1,
  11024 +new_op_scheme(309276,1,
11025 11025 cons(app_ts,
11026 11026 cons(new_string("Maybe"),
11027 11027 cons(new_string("One"),
... ... @@ -11034,11 +11034,11 @@ cons(cons(new_string(&quot;FileMode&quot;),
11034 11034 new_string("mode")),
11035 11035 nil)),
11036 11036 cons(avm,
11037   -cons(new_integer(160325),
  11037 +cons(new_integer(154949),
11038 11038 cons(set_file_mode,
11039 11039 nil))));
11040 11040  
11041   -new_op_scheme(321052,1,
  11041 +new_op_scheme(310300,1,
11042 11042 cons(app_ts,
11043 11043 cons(new_string("Maybe"),
11044 11044 cons(new_string("FileTimes"),
... ... @@ -11049,11 +11049,11 @@ cons(cons(type_String,
11049 11049 new_string("filename")),
11050 11050 nil),
11051 11051 cons(avm,
11052   -cons(new_integer(160589),
  11052 +cons(new_integer(155213),
11053 11053 cons(get_file_times,
11054 11054 nil))));
11055 11055  
11056   -new_op_scheme(321564,1,
  11056 +new_op_scheme(310812,1,
11057 11057 cons(app_ts,
11058 11058 cons(new_string("Maybe"),
11059 11059 cons(new_string("One"),
... ... @@ -11066,44 +11066,44 @@ cons(cons(new_string(&quot;FileTimes&quot;),
11066 11066 new_string("times")),
11067 11067 nil)),
11068 11068 cons(avm,
11069   -cons(new_integer(161101),
  11069 +cons(new_integer(155725),
11070 11070 cons(set_file_times,
11071 11071 nil))));
11072 11072  
11073   -new_op_scheme(324124,1,
  11073 +new_op_scheme(313372,1,
11074 11074 cons(type_RStream,
11075 11075 new_string("Word8")),
11076 11076 cons(new_string("stdin"),
11077 11077 nil),
11078 11078 nil,
11079 11079 cons(avm,
11080   -cons(new_integer(162090),
  11080 +cons(new_integer(156714),
11081 11081 cons(anb_stdin,
11082 11082 nil))));
11083 11083  
11084   -new_op_scheme(324636,1,
  11084 +new_op_scheme(313884,1,
11085 11085 cons(type_WStream,
11086 11086 new_string("Word8")),
11087 11087 cons(new_string("stdout"),
11088 11088 nil),
11089 11089 nil,
11090 11090 cons(avm,
11091   -cons(new_integer(162346),
  11091 +cons(new_integer(156970),
11092 11092 cons(anb_stdout,
11093 11093 nil))));
11094 11094  
11095   -new_op_scheme(325148,1,
  11095 +new_op_scheme(314396,1,
11096 11096 cons(type_WStream,
11097 11097 new_string("Word8")),
11098 11098 cons(new_string("stderr"),
11099 11099 nil),
11100 11100 nil,
11101 11101 cons(avm,
11102   -cons(new_integer(162602),
  11102 +cons(new_integer(157226),
11103 11103 cons(anb_stderr,
11104 11104 nil))));
11105 11105  
11106   -new_op_scheme(328206,0,
  11106 +new_op_scheme(317454,0,
11107 11107 new_string("Word32"),
11108 11108 cons(new_string("£file_size"),
11109 11109 nil),
... ... @@ -11112,11 +11112,11 @@ new_string(&quot;Word8&quot;)),
11112 11112 new_string("file")),
11113 11113 nil),
11114 11114 cons(avm,
11115   -cons(new_integer(164156),
  11115 +cons(new_integer(158780),
11116 11116 cons(file_size,
11117 11117 nil))));
11118 11118  
11119   -new_op_scheme(328718,0,
  11119 +new_op_scheme(317966,0,
11120 11120 new_string("Word32"),
11121 11121 cons(new_string("£file_size"),
11122 11122 nil),
... ... @@ -11125,11 +11125,11 @@ new_string(&quot;Word8&quot;)),
11125 11125 new_string("file")),
11126 11126 nil),
11127 11127 cons(avm,
11128   -cons(new_integer(164412),
  11128 +cons(new_integer(159036),
11129 11129 cons(file_size,
11130 11130 nil))));
11131 11131  
11132   -new_op_scheme(329230,0,
  11132 +new_op_scheme(318478,0,
11133 11133 new_string("Word32"),
11134 11134 cons(new_string("£file_size"),
11135 11135 nil),
... ... @@ -11138,11 +11138,11 @@ new_string(&quot;Word8&quot;)),
11138 11138 new_string("file")),
11139 11139 nil),
11140 11140 cons(avm,
11141   -cons(new_integer(164668),
  11141 +cons(new_integer(159292),
11142 11142 cons(file_size,
11143 11143 nil))));
11144 11144  
11145   -new_op_scheme(330268,1,
  11145 +new_op_scheme(319516,1,
11146 11146 type_Int,
11147 11147 cons(new_string("file_size"),
11148 11148 nil),
... ... @@ -11151,22 +11151,22 @@ new_string(&quot;Word8&quot;)),
11151 11151 new_string("file")),
11152 11152 nil),
11153 11153 cons(app,
11154   -cons(new_integer(165180),
  11154 +cons(new_integer(159804),
11155 11155 cons(cons(symbol,
11156   -cons(new_integer(165179),
  11156 +cons(new_integer(159803),
11157 11157 new_string("to_Int"))),
11158 11158 cons(cons(app,
11159   -cons(new_integer(165191),
  11159 +cons(new_integer(159815),
11160 11160 cons(cons(symbol,
11161   -cons(new_integer(165190),
  11161 +cons(new_integer(159814),
11162 11162 new_string("£file_size"))),
11163 11163 cons(cons(symbol,
11164   -cons(new_integer(165195),
  11164 +cons(new_integer(159819),
11165 11165 new_string("file"))),
11166 11166 nil)))),
11167 11167 nil)))));
11168 11168  
11169   -new_op_scheme(330780,1,
  11169 +new_op_scheme(320028,1,
11170 11170 type_Int,
11171 11171 cons(new_string("file_size"),
11172 11172 nil),
... ... @@ -11175,22 +11175,22 @@ new_string(&quot;Word8&quot;)),
11175 11175 new_string("file")),
11176 11176 nil),
11177 11177 cons(app,
11178   -cons(new_integer(165436),
  11178 +cons(new_integer(160060),
11179 11179 cons(cons(symbol,
11180   -cons(new_integer(165435),
  11180 +cons(new_integer(160059),
11181 11181 new_string("to_Int"))),
11182 11182 cons(cons(app,
11183   -cons(new_integer(165447),
  11183 +cons(new_integer(160071),
11184 11184 cons(cons(symbol,
11185   -cons(new_integer(165446),
  11185 +cons(new_integer(160070),
11186 11186 new_string("£file_size"))),
11187 11187 cons(cons(symbol,
11188   -cons(new_integer(165451),
  11188 +cons(new_integer(160075),
11189 11189 new_string("file"))),
11190 11190 nil)))),
11191 11191 nil)))));
11192 11192  
11193   -new_op_scheme(331292,1,
  11193 +new_op_scheme(320540,1,
11194 11194 type_Int,
11195 11195 cons(new_string("file_size"),
11196 11196 nil),
... ... @@ -11199,22 +11199,22 @@ new_string(&quot;Word8&quot;)),
11199 11199 new_string("file")),
11200 11200 nil),
11201 11201 cons(app,
11202   -cons(new_integer(165692),
  11202 +cons(new_integer(160316),
11203 11203 cons(cons(symbol,
11204   -cons(new_integer(165691),
  11204 +cons(new_integer(160315),
11205 11205 new_string("to_Int"))),
11206 11206 cons(cons(app,
11207   -cons(new_integer(165703),
  11207 +cons(new_integer(160327),
11208 11208 cons(cons(symbol,
11209   -cons(new_integer(165702),
  11209 +cons(new_integer(160326),
11210 11210 new_string("£file_size"))),
11211 11211 cons(cons(symbol,
11212   -cons(new_integer(165707),
  11212 +cons(new_integer(160331),
11213 11213 new_string("file"))),
11214 11214 nil)))),
11215 11215 nil)))));
11216 11216  
11217   -new_op_scheme(333340,1,
  11217 +new_op_scheme(322588,1,
11218 11218 cons(type_RStream,
11219 11219 new_string("Word8")),
11220 11220 cons(new_string("weaken"),
... ... @@ -11224,12 +11224,12 @@ new_string(&quot;Word8&quot;)),
11224 11224 new_string("f")),
11225 11225 nil),
11226 11226 cons(avm,
11227   -cons(new_integer(166721),
  11227 +cons(new_integer(161345),
11228 11228 cons(cons(copy_stack_ptr,
11229 11229 new_integer(0)),
11230 11230 nil))));
11231 11231  
11232   -new_op_scheme(333852,1,
  11232 +new_op_scheme(323100,1,
11233 11233 cons(type_WStream,
11234 11234 new_string("Word8")),
11235 11235 cons(new_string("weaken"),
... ... @@ -11239,22 +11239,22 @@ new_string(&quot;Word8&quot;)),
11239 11239 new_string("f")),
11240 11240 nil),
11241 11241 cons(avm,
11242   -cons(new_integer(166977),
  11242 +cons(new_integer(161601),
11243 11243 cons(cons(copy_stack_ptr,
11244 11244 new_integer(0)),
11245 11245 nil))));
11246 11246  
11247   -new_op_scheme(336924,1,
  11247 +new_op_scheme(326172,1,
11248 11248 type_String,
11249 11249 cons(new_string("get_current_directory"),
11250 11250 nil),
11251 11251 nil,
11252 11252 cons(avm,
11253   -cons(new_integer(168517),
  11253 +cons(new_integer(163141),
11254 11254 cons(getcurdir,
11255 11255 nil))));
11256 11256  
11257   -new_op_scheme(337436,1,
  11257 +new_op_scheme(326684,1,
11258 11258 new_string("Bool"),
11259 11259 cons(new_string("set_current_directory"),
11260 11260 nil),
... ... @@ -11262,11 +11262,11 @@ cons(cons(type_String,
11262 11262 new_string("name")),
11263 11263 nil),
11264 11264 cons(avm,
11265   -cons(new_integer(168773),
  11265 +cons(new_integer(163397),
11266 11266 cons(setcurdir,
11267 11267 nil))));
11268 11268  
11269   -new_op_scheme(337948,1,
  11269 +new_op_scheme(327196,1,
11270 11270 new_string("MakeDirectoryResult"),
11271 11271 cons(new_string("make_directory"),
11272 11272 nil),
... ... @@ -11276,11 +11276,11 @@ cons(cons(new_string(&quot;DirectoryMode&quot;),
11276 11276 new_string("mode")),
11277 11277 nil)),
11278 11278 cons(avm,
11279   -cons(new_integer(169539),
  11279 +cons(new_integer(164163),
11280 11280 cons(do_mkdir,
11281 11281 nil))));
11282 11282  
11283   -new_op_scheme(339484,1,
  11283 +new_op_scheme(328732,1,
11284 11284 new_string("RemoveDirectoryResult"),
11285 11285 cons(new_string("remove_directory"),
11286 11286 nil),
... ... @@ -11288,11 +11288,11 @@ cons(cons(type_String,
11288 11288 new_string("directory_name")),
11289 11289 nil),
11290 11290 cons(avm,
11291   -cons(new_integer(170307),
  11291 +cons(new_integer(164931),
11292 11292 cons(do_rmdir,
11293 11293 nil))));
11294 11294  
11295   -new_op_scheme(341532,1,
  11295 +new_op_scheme(330780,1,
11296 11296 cons(app_ts,
11297 11297 cons(new_string("List"),
11298 11298 cons(type_String,
... ... @@ -11305,11 +11305,11 @@ cons(cons(type_String,
11305 11305 new_string("file_name_mask")),
11306 11306 nil)),
11307 11307 cons(avm,
11308   -cons(new_integer(172045),
  11308 +cons(new_integer(166669),
11309 11309 cons(do_ls,
11310 11310 nil))));
11311 11311  
11312   -new_op_scheme(345116,1,
  11312 +new_op_scheme(334364,1,
11313 11313 cons(app_ts,
11314 11314 cons(new_string("List"),
11315 11315 cons(new_string("FileDescription"),
... ... @@ -11326,11 +11326,11 @@ cons(cons(type_String,
11326 11326 new_string("directory_name_mask")),
11327 11327 nil)))),
11328 11328 cons(avm,
11329   -cons(new_integer(174349),
  11329 +cons(new_integer(168973),
11330 11330 cons(do_full_ls,
11331 11331 nil))));
11332 11332  
11333   -new_op_scheme(350748,1,
  11333 +new_op_scheme(339996,1,
11334 11334 new_string("Bool"),
11335 11335 cons(new_string("create_symbolic_link"),
11336 11336 nil),
... ... @@ -11340,11 +11340,11 @@ cons(cons(type_String,
11340 11340 new_string("link_name")),
11341 11341 nil)),
11342 11342 cons(avm,
11343   -cons(new_integer(176654),
  11343 +cons(new_integer(171278),
11344 11344 cons(create_symbolic_link,
11345 11345 nil))));
11346 11346  
11347   -new_op_scheme(356366,0,
  11347 +new_op_scheme(345614,0,
11348 11348 new_string("ReadResult"),
11349 11349 cons(new_string("£read"),
11350 11350 nil),
... ... @@ -11357,11 +11357,11 @@ cons(cons(new_string(&quot;Word32&quot;),
11357 11357 new_string("timeout")),
11358 11358 nil))),
11359 11359 cons(avm,
11360   -cons(new_integer(179975),
  11360 +cons(new_integer(174599),
11361 11361 cons(read_file,
11362 11362 nil))));
11363 11363  
11364   -new_op_scheme(360988,1,
  11364 +new_op_scheme(350236,1,
11365 11365 new_string("ReadResult"),
11366 11366 cons(new_string("read"),
11367 11367 nil),
... ... @@ -11374,34 +11374,34 @@ cons(cons(type_Int,
11374 11374 new_string("timeout")),
11375 11375 nil))),
11376 11376 cons(app,
11377   -cons(new_integer(182281),
  11377 +cons(new_integer(176905),
11378 11378 cons(cons(symbol,
11379   -cons(new_integer(182280),
  11379 +cons(new_integer(176904),
11380 11380 new_string("£read"))),
11381 11381 cons(cons(symbol,
11382   -cons(new_integer(182285),
  11382 +cons(new_integer(176909),
11383 11383 new_string("file"))),
11384 11384 cons(cons(app,
11385   -cons(new_integer(182306),
  11385 +cons(new_integer(176930),
11386 11386 cons(cons(symbol,
11387   -cons(new_integer(182305),
  11387 +cons(new_integer(176929),
11388 11388 new_string("truncate_to_Word32"))),
11389 11389 cons(cons(symbol,
11390   -cons(new_integer(182307),
  11390 +cons(new_integer(176931),
11391 11391 new_string("n"))),
11392 11392 nil)))),
11393 11393 cons(cons(app,
11394   -cons(new_integer(182329),
  11394 +cons(new_integer(176953),
11395 11395 cons(cons(symbol,
11396   -cons(new_integer(182328),
  11396 +cons(new_integer(176952),
11397 11397 new_string("truncate_to_Word32"))),
11398 11398 cons(cons(symbol,
11399   -cons(new_integer(182336),
  11399 +cons(new_integer(176960),
11400 11400 new_string("timeout"))),
11401 11401 nil)))),
11402 11402 nil)))))));
11403 11403  
11404   -new_op_scheme(365582,0,
  11404 +new_op_scheme(354830,0,
11405 11405 cons(app_ts,
11406 11406 cons(new_string("Maybe"),
11407 11407 cons(new_string("Word32"),
... ... @@ -11415,11 +11415,11 @@ cons(cons(type_ByteArray,
11415 11415 new_string("data")),
11416 11416 nil)),
11417 11417 cons(avm,
11418   -cons(new_integer(184327),
  11418 +cons(new_integer(178951),
11419 11419 cons(write_file,
11420 11420 nil))));
11421 11421  
11422   -new_op_scheme(369692,1,
  11422 +new_op_scheme(358940,1,
11423 11423 cons(app_ts,
11424 11424 cons(new_string("Maybe"),
11425 11425 cons(type_Int,
... ... @@ -11433,43 +11433,43 @@ cons(cons(type_ByteArray,
11433 11433 new_string("data")),
11434 11434 nil)),
11435 11435 cons(select_cond,
11436   -cons(new_integer(186373),
  11436 +cons(new_integer(180997),
11437 11437 cons(cons(app,
11438   -cons(new_integer(186381),
  11438 +cons(new_integer(181005),
11439 11439 cons(cons(symbol,
11440   -cons(new_integer(186380),
  11440 +cons(new_integer(181004),
11441 11441 new_string("£write"))),
11442 11442 cons(cons(symbol,
11443   -cons(new_integer(186385),
  11443 +cons(new_integer(181009),
11444 11444 new_string("file"))),
11445 11445 cons(cons(symbol,
11446   -cons(new_integer(186391),
  11446 +cons(new_integer(181015),
11447 11447 new_string("data"))),
11448 11448 nil))))),
11449 11449 cons(cons(cons(new_string("success"),
11450 11450 cons(new_string("n"),
11451 11451 nil)),
11452   -cons(new_integer(186411),
  11452 +cons(new_integer(181035),
11453 11453 cons(app,
11454   -cons(new_integer(186420),
  11454 +cons(new_integer(181044),
11455 11455 cons(cons(symbol,
11456   -cons(new_integer(186419),
  11456 +cons(new_integer(181043),
11457 11457 new_string("success"))),
11458 11458 cons(cons(app,
11459   -cons(new_integer(186427),
  11459 +cons(new_integer(181051),
11460 11460 cons(cons(symbol,
11461   -cons(new_integer(186426),
  11461 +cons(new_integer(181050),
11462 11462 new_string("to_Int"))),
11463 11463 cons(cons(symbol,
11464   -cons(new_integer(186428),
  11464 +cons(new_integer(181052),
11465 11465 new_string("n"))),
11466 11466 nil)))),
11467 11467 nil)))))),
11468 11468 cons(symbol,
11469   -cons(new_integer(186443),
  11469 +cons(new_integer(181067),
11470 11470 new_string("failure"))))))));
11471 11471  
11472   -new_op_scheme(373774,0,
  11472 +new_op_scheme(363022,0,
11473 11473 new_string("ReadFileResult"),
11474 11474 cons(new_string("£read_from_file"),
11475 11475 nil),
... ... @@ -11482,121 +11482,121 @@ cons(cons(type_ByteArray,
11482 11482 new_string("so_far")),
11483 11483 nil))),
11484 11484 cons(cond,
11485   -cons(new_integer(188677),
  11485 +cons(new_integer(183301),
11486 11486 cons(cons(of_type,
11487   -cons(new_integer(188677),
  11487 +cons(new_integer(183301),
11488 11488 cons(new_string("Bool"),
11489 11489 cons(app,
11490   -cons(new_integer(188694),
  11490 +cons(new_integer(183318),
11491 11491 cons(cons(symbol,
11492   -cons(new_integer(188694),
  11492 +cons(new_integer(183318),
11493 11493 new_string("="))),
11494 11494 cons(cons(app,
11495   -cons(new_integer(188685),
  11495 +cons(new_integer(183309),
11496 11496 cons(cons(symbol,
11497   -cons(new_integer(188684),
  11497 +cons(new_integer(183308),
11498 11498 new_string("length"))),
11499 11499 cons(cons(symbol,
11500   -cons(new_integer(188691),
  11500 +cons(new_integer(183315),
11501 11501 new_string("so_far"))),
11502 11502 nil)))),
11503 11503 cons(cons(symbol,
11504   -cons(new_integer(188699),
  11504 +cons(new_integer(183323),
11505 11505 new_string("size"))),
11506 11506 nil)))))))),
11507 11507 cons(cons(cons(new_string("false"),
11508 11508 nil),
11509   -cons(new_integer(188720),
  11509 +cons(new_integer(183344),
11510 11510 cons(cond,
11511   -cons(new_integer(188933),
  11511 +cons(new_integer(183557),
11512 11512 cons(cons(app,
11513   -cons(new_integer(188940),
  11513 +cons(new_integer(183564),
11514 11514 cons(cons(symbol,
11515   -cons(new_integer(188939),
  11515 +cons(new_integer(183563),
11516 11516 new_string("£read"))),
11517 11517 cons(cons(symbol,
11518   -cons(new_integer(188944),
  11518 +cons(new_integer(183568),
11519 11519 new_string("file"))),
11520 11520 cons(cons(integer_10,
11521   -cons(new_integer(188952),
  11521 +cons(new_integer(183576),
11522 11522 cons(new_integer(1),
11523 11523 cons(new_integer(134),
11524 11524 cons(new_integer(160),
11525 11525 nil))))),
11526 11526 cons(cons(integer_10,
11527   -cons(new_integer(188958),
  11527 +cons(new_integer(183582),
11528 11528 cons(new_integer(3),
11529 11529 cons(new_integer(232),
11530 11530 nil)))),
11531 11531 nil)))))),
11532 11532 cons(cons(cons(new_string("error"),
11533 11533 nil),
11534   -cons(new_integer(189457),
  11534 +cons(new_integer(184081),
11535 11535 cons(app,
11536   -cons(new_integer(189470),
  11536 +cons(new_integer(184094),
11537 11537 cons(cons(symbol,
11538   -cons(new_integer(189469),
  11538 +cons(new_integer(184093),
11539 11539 new_string("read_error"))),
11540 11540 cons(cons(symbol,
11541   -cons(new_integer(189476),
  11541 +cons(new_integer(184100),
11542 11542 new_string("so_far"))),
11543 11543 nil)))))),
11544 11544 cons(cons(cons(new_string("timeout"),
11545 11545 nil),
11546   -cons(new_integer(189715),
  11546 +cons(new_integer(184339),
11547 11547 cons(app,
11548   -cons(new_integer(189727),
  11548 +cons(new_integer(184351),
11549 11549 cons(cons(symbol,
11550   -cons(new_integer(189726),
  11550 +cons(new_integer(184350),
11551 11551 new_string("read_error"))),
11552 11552 cons(cons(symbol,
11553   -cons(new_integer(189733),
  11553 +cons(new_integer(184357),
11554 11554 new_string("so_far"))),
11555 11555 nil)))))),
11556 11556 cons(cons(cons(new_string("ok"),
11557 11557 cons(new_string("more"),
11558 11558 nil)),
11559   -cons(new_integer(189972),
  11559 +cons(new_integer(184596),
11560 11560 cons(app,
11561   -cons(new_integer(189989),
  11561 +cons(new_integer(184613),
11562 11562 cons(cons(symbol,
11563   -cons(new_integer(189988),
  11563 +cons(new_integer(184612),
11564 11564 new_string("£read_from_file"))),
11565 11565 cons(cons(symbol,
11566   -cons(new_integer(189993),
  11566 +cons(new_integer(184617),
11567 11567 new_string("file"))),
11568 11568 cons(cons(symbol,
11569   -cons(new_integer(189998),
  11569 +cons(new_integer(184622),
11570 11570 new_string("size"))),
11571 11571 cons(cons(app,
11572   -cons(new_integer(190006),
  11572 +cons(new_integer(184630),
11573 11573 cons(cons(symbol,
11574   -cons(new_integer(190006),
  11574 +cons(new_integer(184630),
11575 11575 new_string("+"))),
11576 11576 cons(cons(symbol,
11577   -cons(new_integer(190005),
  11577 +cons(new_integer(184629),
11578 11578 new_string("so_far"))),
11579 11579 cons(cons(symbol,
11580   -cons(new_integer(190010),
  11580 +cons(new_integer(184634),
11581 11581 new_string("more"))),
11582 11582 nil))))),
11583 11583 nil)))))))),
11584 11584 nil)))))))),
11585 11585 cons(cons(cons(new_string("true"),
11586 11586 nil),
11587   -cons(new_integer(188704),
  11587 +cons(new_integer(183328),
11588 11588 cons(app,
11589   -cons(new_integer(188708),
  11589 +cons(new_integer(183332),
11590 11590 cons(cons(symbol,
11591   -cons(new_integer(188707),
  11591 +cons(new_integer(183331),
11592 11592 new_string("ok"))),
11593 11593 cons(cons(symbol,
11594   -cons(new_integer(188714),
  11594 +cons(new_integer(183338),
11595 11595 new_string("so_far"))),
11596 11596 nil)))))),
11597 11597 nil))))));
11598 11598  
11599   -new_op_scheme(381468,1,
  11599 +new_op_scheme(370716,1,
11600 11600 new_string("ReadFileResult"),
11601 11601 cons(new_string("read_from_file"),
11602 11602 nil),
... ... @@ -11604,60 +11604,60 @@ cons(cons(type_String,
11604 11604 new_string("file_name")),
11605 11605 nil),
11606 11606 cons(cond,
11607   -cons(new_integer(192005),
  11607 +cons(new_integer(186629),
11608 11608 cons(cons(connect_to_file,
11609   -cons(new_integer(192037),
  11609 +cons(new_integer(186661),
11610 11610 cons(cons(app_ts,
11611 11611 cons(new_string("Maybe"),
11612 11612 cons(cons(type_RStream,
11613 11613 new_string("Word8")),
11614 11614 nil))),
11615 11615 cons(symbol,
11616   -cons(new_integer(192047),
  11616 +cons(new_integer(186671),
11617 11617 new_string("file_name")))))),
11618 11618 cons(cons(cons(new_string("failure"),
11619 11619 nil),
11620   -cons(new_integer(192531),
  11620 +cons(new_integer(187155),
11621 11621 cons(symbol,
11622   -cons(new_integer(192548),
  11622 +cons(new_integer(187172),
11623 11623 new_string("cannot_find_file"))))),
11624 11624 cons(cons(cons(new_string("success"),
11625 11625 cons(new_string("file"),
11626 11626 nil)),
11627   -cons(new_integer(192793),
  11627 +cons(new_integer(187417),
11628 11628 cons(app,
11629   -cons(new_integer(192810),
  11629 +cons(new_integer(187434),
11630 11630 cons(cons(symbol,
11631   -cons(new_integer(192809),
  11631 +cons(new_integer(187433),
11632 11632 new_string("£read_from_file"))),
11633 11633 cons(cons(symbol,
11634   -cons(new_integer(192814),
  11634 +cons(new_integer(187438),
11635 11635 new_string("file"))),
11636 11636 cons(cons(app,
11637   -cons(new_integer(193076),
  11637 +cons(new_integer(187700),
11638 11638 cons(cons(symbol,
11639   -cons(new_integer(193075),
  11639 +cons(new_integer(187699),
11640 11640 new_string("file_size"))),
11641 11641 cons(cons(symbol,
11642   -cons(new_integer(193080),
  11642 +cons(new_integer(187704),
11643 11643 new_string("file"))),
11644 11644 nil)))),
11645 11645 cons(cons(app,
11646   -cons(new_integer(193342),
  11646 +cons(new_integer(187966),
11647 11647 cons(cons(symbol,
11648   -cons(new_integer(193341),
  11648 +cons(new_integer(187965),
11649 11649 new_string("constant_byte_array"))),
11650 11650 cons(cons(integer_10,
11651   -cons(new_integer(193343),
  11651 +cons(new_integer(187967),
11652 11652 nil)),
11653 11653 cons(cons(integer_10,
11654   -cons(new_integer(193345),
  11654 +cons(new_integer(187969),
11655 11655 nil)),
11656 11656 nil))))),
11657 11657 nil)))))))),
11658 11658 nil))))));
11659 11659  
11660   -new_op_scheme(388110,0,
  11660 +new_op_scheme(377358,0,
11661 11661 new_string("WriteFileResult"),
11662 11662 cons(new_string("£write_to_file"),
11663 11663 nil),
... ... @@ -11670,134 +11670,134 @@ cons(cons(type_Int,
11670 11670 new_string("written")),
11671 11671 nil))),
11672 11672 cons(cond,
11673   -cons(new_integer(195845),
  11673 +cons(new_integer(190469),
11674 11674 cons(cons(of_type,
11675   -cons(new_integer(195847),
  11675 +cons(new_integer(190471),
11676 11676 cons(cons(app_ts,
11677 11677 cons(new_string("Maybe"),
11678 11678 cons(type_Int,
11679 11679 nil))),
11680 11680 cons(app,
11681   -cons(new_integer(195864),
  11681 +cons(new_integer(190488),
11682 11682 cons(cons(symbol,
11683   -cons(new_integer(195863),
  11683 +cons(new_integer(190487),
11684 11684 new_string("write"))),
11685 11685 cons(cons(symbol,
11686   -cons(new_integer(195868),
  11686 +cons(new_integer(190492),
11687 11687 new_string("file"))),
11688 11688 cons(cons(symbol,
11689   -cons(new_integer(195873),
  11689 +cons(new_integer(190497),
11690 11690 new_string("data"))),
11691 11691 nil)))))))),
11692 11692 cons(cons(cons(new_string("failure"),
11693 11693 nil),
11694   -cons(new_integer(196371),
  11694 +cons(new_integer(190995),
11695 11695 cons(app,
11696   -cons(new_integer(196384),
  11696 +cons(new_integer(191008),
11697 11697 cons(cons(symbol,
11698   -cons(new_integer(196383),
  11698 +cons(new_integer(191007),
11699 11699 new_string("write_error"))),
11700 11700 cons(cons(app,
11701   -cons(new_integer(196403),
  11701 +cons(new_integer(191027),
11702 11702 cons(cons(symbol,
11703   -cons(new_integer(196402),
  11703 +cons(new_integer(191026),
11704 11704 new_string("truncate_to_Word32"))),
11705 11705 cons(cons(symbol,
11706   -cons(new_integer(196410),
  11706 +cons(new_integer(191034),
11707 11707 new_string("written"))),
11708 11708 nil)))),
11709 11709 nil)))))),
11710 11710 cons(cons(cons(new_string("success"),
11711 11711 cons(new_string("n"),
11712 11712 nil)),
11713   -cons(new_integer(196630),
  11713 +cons(new_integer(191254),
11714 11714 cons(cond,
11715   -cons(new_integer(196875),
  11715 +cons(new_integer(191499),
11716 11716 cons(cons(of_type,
11717   -cons(new_integer(196875),
  11717 +cons(new_integer(191499),
11718 11718 cons(new_string("Bool"),
11719 11719 cons(app,
11720   -cons(new_integer(196890),
  11720 +cons(new_integer(191514),
11721 11721 cons(cons(symbol,
11722   -cons(new_integer(196890),
  11722 +cons(new_integer(191514),
11723 11723 new_string("="))),
11724 11724 cons(cons(app,
11725   -cons(new_integer(196883),
  11725 +cons(new_integer(191507),
11726 11726 cons(cons(symbol,
11727   -cons(new_integer(196882),
  11727 +cons(new_integer(191506),
11728 11728 new_string("length"))),
11729 11729 cons(cons(symbol,
11730   -cons(new_integer(196887),
  11730 +cons(new_integer(191511),
11731 11731 new_string("data"))),
11732 11732 nil)))),
11733 11733 cons(cons(symbol,
11734   -cons(new_integer(196892),
  11734 +cons(new_integer(191516),
11735 11735 new_string("n"))),
11736 11736 nil)))))))),
11737 11737 cons(cons(cons(new_string("false"),
11738 11738 nil),
11739   -cons(new_integer(197389),
  11739 +cons(new_integer(192013),
11740 11740 cons(app,
11741   -cons(new_integer(197658),
  11741 +cons(new_integer(192282),
11742 11742 cons(cons(symbol,
11743   -cons(new_integer(197657),
  11743 +cons(new_integer(192281),
11744 11744 new_string("£write_to_file"))),
11745 11745 cons(cons(symbol,
11746   -cons(new_integer(197662),
  11746 +cons(new_integer(192286),
11747 11747 new_string("file"))),
11748 11748 cons(cons(app,
11749   -cons(new_integer(197671),
  11749 +cons(new_integer(192295),
11750 11750 cons(cons(symbol,
11751   -cons(new_integer(197670),
  11751 +cons(new_integer(192294),
11752 11752 new_string("extract"))),
11753 11753 cons(cons(symbol,
11754   -cons(new_integer(197675),
  11754 +cons(new_integer(192299),
11755 11755 new_string("data"))),
11756 11756 cons(cons(symbol,
11757   -cons(new_integer(197677),
  11757 +cons(new_integer(192301),
11758 11758 new_string("n"))),
11759 11759 cons(cons(app,
11760   -cons(new_integer(197691),
  11760 +cons(new_integer(192315),
11761 11761 cons(cons(symbol,
11762   -cons(new_integer(197691),
  11762 +cons(new_integer(192315),
11763 11763 new_string("-"))),
11764 11764 cons(cons(app,
11765   -cons(new_integer(197685),
  11765 +cons(new_integer(192309),
11766 11766 cons(cons(symbol,
11767   -cons(new_integer(197684),
  11767 +cons(new_integer(192308),
11768 11768 new_string("length"))),
11769 11769 cons(cons(symbol,
11770   -cons(new_integer(197689),
  11770 +cons(new_integer(192313),
11771 11771 new_string("data"))),
11772 11772 nil)))),
11773 11773 cons(cons(symbol,
11774   -cons(new_integer(197692),
  11774 +cons(new_integer(192316),
11775 11775 new_string("n"))),
11776 11776 nil))))),
11777 11777 nil)))))),
11778 11778 cons(cons(app,
11779   -cons(new_integer(197702),
  11779 +cons(new_integer(192326),
11780 11780 cons(cons(symbol,
11781   -cons(new_integer(197702),
  11781 +cons(new_integer(192326),
11782 11782 new_string("+"))),
11783 11783 cons(cons(symbol,
11784   -cons(new_integer(197701),
  11784 +cons(new_integer(192325),
11785 11785 new_string("written"))),
11786 11786 cons(cons(symbol,
11787   -cons(new_integer(197703),
  11787 +cons(new_integer(192327),
11788 11788 new_string("n"))),
11789 11789 nil))))),
11790 11790 nil)))))))),
11791 11791 cons(cons(cons(new_string("true"),
11792 11792 nil),
11793   -cons(new_integer(197133),
  11793 +cons(new_integer(191757),
11794 11794 cons(symbol,
11795   -cons(new_integer(197136),
  11795 +cons(new_integer(191760),
11796 11796 new_string("ok"))))),
11797 11797 nil))))))),
11798 11798 nil))))));
11799 11799  
11800   -new_op_scheme(396828,1,
  11800 +new_op_scheme(386076,1,
11801 11801 new_string("WriteFileResult"),
11802 11802 cons(new_string("write_to_file"),
11803 11803 nil),
... ... @@ -11807,45 +11807,45 @@ cons(cons(type_ByteArray,
11807 11807 new_string("data")),
11808 11808 nil)),
11809 11809 cons(cond,
11810   -cons(new_integer(199941),
  11810 +cons(new_integer(194565),
11811 11811 cons(cons(connect_to_file,
11812   -cons(new_integer(199973),
  11812 +cons(new_integer(194597),
11813 11813 cons(cons(app_ts,
11814 11814 cons(new_string("Maybe"),
11815 11815 cons(cons(type_WStream,
11816 11816 new_string("Word8")),
11817 11817 nil))),
11818 11818 cons(symbol,
11819   -cons(new_integer(199983),
  11819 +cons(new_integer(194607),
11820 11820 new_string("file_name")))))),
11821 11821 cons(cons(cons(new_string("failure"),
11822 11822 nil),
11823   -cons(new_integer(200467),
  11823 +cons(new_integer(195091),
11824 11824 cons(symbol,
11825   -cons(new_integer(200484),
  11825 +cons(new_integer(195108),
11826 11826 new_string("cannot_open_file"))))),
11827 11827 cons(cons(cons(new_string("success"),
11828 11828 cons(new_string("file"),
11829 11829 nil)),
11830   -cons(new_integer(200729),
  11830 +cons(new_integer(195353),
11831 11831 cons(app,
11832   -cons(new_integer(200745),
  11832 +cons(new_integer(195369),
11833 11833 cons(cons(symbol,
11834   -cons(new_integer(200744),
  11834 +cons(new_integer(195368),
11835 11835 new_string("£write_to_file"))),
11836 11836 cons(cons(symbol,
11837   -cons(new_integer(200749),
  11837 +cons(new_integer(195373),
11838 11838 new_string("file"))),
11839 11839 cons(cons(symbol,
11840   -cons(new_integer(200754),
  11840 +cons(new_integer(195378),
11841 11841 new_string("data"))),
11842 11842 cons(cons(integer_10,
11843   -cons(new_integer(200756),
  11843 +cons(new_integer(195380),
11844 11844 nil)),
11845 11845 nil)))))))),
11846 11846 nil))))));
11847 11847  
11848   -new_op_scheme(403470,0,
  11848 +new_op_scheme(392718,0,
11849 11849 new_string("Bool"),
11850 11850 cons(new_string("£seek"),
11851 11851 nil),
... ... @@ -11856,11 +11856,11 @@ cons(cons(new_string(&quot;Word32&quot;),
11856 11856 new_string("where")),
11857 11857 nil)),
11858 11858 cons(avm,
11859   -cons(new_integer(201792),
  11859 +cons(new_integer(196416),
11860 11860 cons(file_seek,
11861 11861 nil))));
11862 11862  
11863   -new_op_scheme(403982,0,
  11863 +new_op_scheme(393230,0,
11864 11864 new_string("Bool"),
11865 11865 cons(new_string("£seek"),
11866 11866 nil),
... ... @@ -11871,11 +11871,11 @@ cons(cons(new_string(&quot;Word32&quot;),
11871 11871 new_string("where")),
11872 11872 nil)),
11873 11873 cons(avm,
11874   -cons(new_integer(202048),
  11874 +cons(new_integer(196672),
11875 11875 cons(file_seek,
11876 11876 nil))));
11877 11877  
11878   -new_op_scheme(404494,0,
  11878 +new_op_scheme(393742,0,
11879 11879 new_string("Word32"),
11880 11880 cons(new_string("£tell"),
11881 11881 nil),
... ... @@ -11884,11 +11884,11 @@ new_string(&quot;Word8&quot;)),
11884 11884 new_string("file")),
11885 11885 nil),
11886 11886 cons(avm,
11887   -cons(new_integer(202305),
  11887 +cons(new_integer(196929),
11888 11888 cons(file_tell,
11889 11889 nil))));
11890 11890  
11891   -new_op_scheme(405006,0,
  11891 +new_op_scheme(394254,0,
11892 11892 new_string("Word32"),
11893 11893 cons(new_string("£tell"),
11894 11894 nil),
... ... @@ -11897,11 +11897,11 @@ new_string(&quot;Word8&quot;)),
11897 11897 new_string("file")),
11898 11898 nil),
11899 11899 cons(avm,
11900   -cons(new_integer(202561),
  11900 +cons(new_integer(197185),
11901 11901 cons(file_tell,
11902 11902 nil))));
11903 11903  
11904   -new_op_scheme(406044,1,
  11904 +new_op_scheme(395292,1,
11905 11905 new_string("Bool"),
11906 11906 cons(new_string("seek"),
11907 11907 nil),
... ... @@ -11912,25 +11912,25 @@ cons(cons(type_Int,
11912 11912 new_string("where")),
11913 11913 nil)),
11914 11914 cons(app,
11915   -cons(new_integer(203077),
  11915 +cons(new_integer(197701),
11916 11916 cons(cons(symbol,
11917   -cons(new_integer(203076),
  11917 +cons(new_integer(197700),
11918 11918 new_string("£seek"))),
11919 11919 cons(cons(symbol,
11920   -cons(new_integer(203081),
  11920 +cons(new_integer(197705),
11921 11921 new_string("file"))),
11922 11922 cons(cons(app,
11923   -cons(new_integer(203102),
  11923 +cons(new_integer(197726),
11924 11924 cons(cons(symbol,
11925   -cons(new_integer(203101),
  11925 +cons(new_integer(197725),
11926 11926 new_string("truncate_to_Word32"))),
11927 11927 cons(cons(symbol,
11928   -cons(new_integer(203107),
  11928 +cons(new_integer(197731),
11929 11929 new_string("where"))),
11930 11930 nil)))),
11931 11931 nil))))));
11932 11932  
11933   -new_op_scheme(406556,1,
  11933 +new_op_scheme(395804,1,
11934 11934 new_string("Bool"),
11935 11935 cons(new_string("seek"),
11936 11936 nil),
... ... @@ -11941,25 +11941,25 @@ cons(cons(type_Int,
11941 11941 new_string("where")),
11942 11942 nil)),
11943 11943 cons(app,
11944   -cons(new_integer(203333),
  11944 +cons(new_integer(197957),
11945 11945 cons(cons(symbol,
11946   -cons(new_integer(203332),
  11946 +cons(new_integer(197956),
11947 11947 new_string("£seek"))),
11948 11948 cons(cons(symbol,
11949   -cons(new_integer(203337),
  11949 +cons(new_integer(197961),
11950 11950 new_string("file"))),
11951 11951 cons(cons(app,
11952   -cons(new_integer(203358),
  11952 +cons(new_integer(197982),
11953 11953 cons(cons(symbol,
11954   -cons(new_integer(203357),
  11954 +cons(new_integer(197981),
11955 11955 new_string("truncate_to_Word32"))),
11956 11956 cons(cons(symbol,
11957   -cons(new_integer(203363),
  11957 +cons(new_integer(197987),
11958 11958 new_string("where"))),
11959 11959 nil)))),
11960 11960 nil))))));
11961 11961  
11962   -new_op_scheme(407068,1,
  11962 +new_op_scheme(396316,1,
11963 11963 type_Int,
11964 11964 cons(new_string("tell"),
11965 11965 nil),
... ... @@ -11968,22 +11968,22 @@ new_string(&quot;Word8&quot;)),
11968 11968 new_string("file")),
11969 11969 nil),
11970 11970 cons(app,
11971   -cons(new_integer(203591),
  11971 +cons(new_integer(198215),
11972 11972 cons(cons(symbol,
11973   -cons(new_integer(203590),
  11973 +cons(new_integer(198214),
11974 11974 new_string("to_Int"))),
11975 11975 cons(cons(app,
11976   -cons(new_integer(203597),
  11976 +cons(new_integer(198221),
11977 11977 cons(cons(symbol,
11978   -cons(new_integer(203596),
  11978 +cons(new_integer(198220),
11979 11979 new_string("£tell"))),
11980 11980 cons(cons(symbol,
11981   -cons(new_integer(203601),
  11981 +cons(new_integer(198225),
11982 11982 new_string("file"))),
11983 11983 nil)))),
11984 11984 nil)))));
11985 11985  
11986   -new_op_scheme(407580,1,
  11986 +new_op_scheme(396828,1,
11987 11987 type_Int,
11988 11988 cons(new_string("tell"),
11989 11989 nil),
... ... @@ -11992,22 +11992,22 @@ new_string(&quot;Word8&quot;)),
11992 11992 new_string("file")),
11993 11993 nil),
11994 11994 cons(app,
11995   -cons(new_integer(203847),
  11995 +cons(new_integer(198471),
11996 11996 cons(cons(symbol,
11997   -cons(new_integer(203846),
  11997 +cons(new_integer(198470),
11998 11998 new_string("to_Int"))),
11999 11999 cons(cons(app,
12000   -cons(new_integer(203853),
  12000 +cons(new_integer(198477),
12001 12001 cons(cons(symbol,
12002   -cons(new_integer(203852),
  12002 +cons(new_integer(198476),
12003 12003 new_string("£tell"))),
12004 12004 cons(cons(symbol,
12005   -cons(new_integer(203857),
  12005 +cons(new_integer(198481),
12006 12006 new_string("file"))),
12007 12007 nil)))),
12008 12008 nil)))));
12009 12009  
12010   -new_op_scheme(410140,1,
  12010 +new_op_scheme(399388,1,
12011 12011 new_string("Bool"),
12012 12012 cons(new_string("remove"),
12013 12013 nil),
... ... @@ -12015,11 +12015,11 @@ cons(cons(type_String,
12015 12015 new_string("file_name")),
12016 12016 nil),
12017 12017 cons(avm,
12018   -cons(new_integer(205124),
  12018 +cons(new_integer(199748),
12019 12019 cons(do_remove,
12020 12020 nil))));
12021 12021  
12022   -new_op_scheme(410652,1,
  12022 +new_op_scheme(399900,1,
12023 12023 new_string("Bool"),
12024 12024 cons(new_string("rename"),
12025 12025 nil),
... ... @@ -12029,11 +12029,11 @@ cons(cons(type_String,
12029 12029 new_string("new_name")),
12030 12030 nil)),
12031 12031 cons(avm,
12032   -cons(new_integer(205636),
  12032 +cons(new_integer(200260),
12033 12033 cons(do_rename,
12034 12034 nil))));
12035 12035  
12036   -new_op_scheme(413724,1,
  12036 +new_op_scheme(402972,1,
12037 12037 cons(app_ts,
12038 12038 cons(new_string("Result"),
12039 12039 cons(new_string("NetworkConnectError"),
... ... @@ -12048,11 +12048,11 @@ cons(cons(new_string(&quot;Word32&quot;),
12048 12048 new_string("port")),
12049 12049 nil)),
12050 12050 cons(avm,
12051   -cons(new_integer(207419),
  12051 +cons(new_integer(202043),
12052 12052 cons(open_tcp_ip_connection,
12053 12053 nil))));
12054 12054  
12055   -new_op_scheme(417308,1,
  12055 +new_op_scheme(406556,1,
12056 12056 cons(app_ts,
12057 12057 cons(new_string("£Tuple2"),
12058 12058 cons(new_string("Word32"),
... ... @@ -12065,11 +12065,11 @@ new_string(&quot;Word8&quot;)),
12065 12065 new_string("connection")),
12066 12066 nil),
12067 12067 cons(avm,
12068   -cons(new_integer(208961),
  12068 +cons(new_integer(203585),
12069 12069 cons(local_IP_addr_port,
12070 12070 nil))));
12071 12071  
12072   -new_op_scheme(418332,1,
  12072 +new_op_scheme(407580,1,
12073 12073 cons(app_ts,
12074 12074 cons(new_string("£Tuple2"),
12075 12075 cons(new_string("Word32"),
... ... @@ -12082,11 +12082,11 @@ new_string(&quot;Word8&quot;)),
12082 12082 new_string("connection")),
12083 12083 nil),
12084 12084 cons(avm,
12085   -cons(new_integer(209473),
  12085 +cons(new_integer(204097),
12086 12086 cons(remote_IP_addr_port,
12087 12087 nil))));
12088 12088  
12089   -new_op_scheme(421916,1,
  12089 +new_op_scheme(411164,1,
12090 12090 new_string("DNS_Result"),
12091 12091 cons(new_string("dns"),
12092 12092 nil),
... ... @@ -12094,11 +12094,11 @@ cons(cons(type_String,
12094 12094 new_string("host_name")),
12095 12095 nil),
12096 12096 cons(avm,
12097   -cons(new_integer(211014),
  12097 +cons(new_integer(205638),
12098 12098 cons(dns,
12099 12099 nil))));
12100 12100  
12101   -new_type_scheme(424472,0,
  12101 +new_type_scheme(413720,0,
12102 12102 new_string("£ListenerResult"),
12103 12103 nil,
12104 12104 cons(cons(cons(new_string("£cannot_create_the_socket"),
... ... @@ -12117,7 +12117,7 @@ noname),
12117 12117 nil)),
12118 12118 nil)))),0,1);
12119 12119  
12120   -new_op_scheme(427534,0,
  12120 +new_op_scheme(416782,0,
12121 12121 new_string("£ListenerResult"),
12122 12122 cons(new_string("£listener"),
12123 12123 nil),
... ... @@ -12127,11 +12127,11 @@ cons(cons(new_string(&quot;Word32&quot;),
12127 12127 new_string("ip_port")),
12128 12128 nil)),
12129 12129 cons(avm,
12130   -cons(new_integer(215053),
  12130 +cons(new_integer(209677),
12131 12131 cons(listener,
12132 12132 nil))));
12133 12133  
12134   -new_type_scheme(431128,0,
  12134 +new_type_scheme(420376,0,
12135 12135 new_string("£AcceptConnectionResult"),
12136 12136 nil,
12137 12137 cons(cons(cons(new_string("£listener_is_down"),
... ... @@ -12148,7 +12148,7 @@ noname),
12148 12148 nil)),
12149 12149 nil))),0,1);
12150 12150  
12151   -new_op_scheme(433678,0,
  12151 +new_op_scheme(422926,0,
12152 12152 new_string("£AcceptConnectionResult"),
12153 12153 cons(new_string("£accept_connection"),
12154 12154 nil),
... ... @@ -12156,11 +12156,11 @@ cons(cons(type_Listener,
12156 12156 new_string("l")),
12157 12157 nil),
12158 12158 cons(avm,
12159   -cons(new_integer(217869),
  12159 +cons(new_integer(212493),
12160 12160 cons(accept_connection,
12161 12161 nil))));
12162 12162  
12163   -new_op_scheme(436750,0,
  12163 +new_op_scheme(425998,0,
12164 12164 new_string("One"),
12165 12165 cons(new_string("£run_server"),
12166 12166 nil),
... ... @@ -12179,91 +12179,91 @@ new_string(&quot;One&quot;))),
12179 12179 new_string("notify")),
12180 12180 nil))),
12181 12181 cons(cond,
12182   -cons(new_integer(220421),
  12182 +cons(new_integer(215045),
12183 12183 cons(cons(app,
12184   -cons(new_integer(220441),
  12184 +cons(new_integer(215065),
12185 12185 cons(cons(symbol,
12186   -cons(new_integer(220440),
  12186 +cons(new_integer(215064),
12187 12187 new_string("£accept_connection"))),
12188 12188 cons(cons(symbol,
12189   -cons(new_integer(220442),
  12189 +cons(new_integer(215066),
12190 12190 new_string("l"))),
12191 12191 nil)))),
12192 12192 cons(cons(cons(new_string("£listener_is_down"),
12193 12193 nil),
12194   -cons(new_integer(221213),
  12194 +cons(new_integer(215837),
12195 12195 cons(symbol,
12196   -cons(new_integer(221455),
  12196 +cons(new_integer(216079),
12197 12197 new_string("unique"))))),
12198 12198 cons(cons(cons(new_string("£cannot_open_pending_connection"),
12199 12199 nil),
12200   -cons(new_integer(221995),
  12200 +cons(new_integer(216619),
12201 12201 cons(cond,
12202   -cons(new_integer(222232),
  12202 +cons(new_integer(216856),
12203 12203 cons(cons(of_type,
12204   -cons(new_integer(222232),
  12204 +cons(new_integer(216856),
12205 12205 cons(new_string("One"),
12206 12206 cons(app,
12207   -cons(new_integer(222224),
  12207 +cons(new_integer(216848),
12208 12208 cons(cons(symbol,
12209   -cons(new_integer(222223),
  12209 +cons(new_integer(216847),
12210 12210 new_string("notify"))),
12211 12211 cons(cons(symbol,
12212   -cons(new_integer(222230),
  12212 +cons(new_integer(216854),
12213 12213 new_string("unique"))),
12214 12214 nil))))))),
12215 12215 cons(cons(cons(new_string("unique"),
12216 12216 nil),
12217   -cons(new_integer(222232),
  12217 +cons(new_integer(216856),
12218 12218 cons(app,
12219   -cons(new_integer(222245),
  12219 +cons(new_integer(216869),
12220 12220 cons(cons(symbol,
12221   -cons(new_integer(222244),
  12221 +cons(new_integer(216868),
12222 12222 new_string("£run_server"))),
12223 12223 cons(cons(symbol,
12224   -cons(new_integer(222246),
  12224 +cons(new_integer(216870),
12225 12225 new_string("l"))),
12226 12226 cons(cons(symbol,
12227   -cons(new_integer(222254),
  12227 +cons(new_integer(216878),
12228 12228 new_string("handler"))),
12229 12229 cons(cons(symbol,
12230   -cons(new_integer(222261),
  12230 +cons(new_integer(216885),
12231 12231 new_string("notify"))),
12232 12232 nil)))))))),
12233 12233 nil)))))),
12234 12234 cons(cons(cons(new_string("£ok"),
12235 12235 cons(new_string("conn"),
12236 12236 nil)),
12237   -cons(new_integer(222997),
  12237 +cons(new_integer(217621),
12238 12238 cons(delegate,
12239   -cons(new_integer(223249),
  12239 +cons(new_integer(217873),
12240 12240 cons(cons(app,
12241   -cons(new_integer(223258),
  12241 +cons(new_integer(217882),
12242 12242 cons(cons(symbol,
12243   -cons(new_integer(223257),
  12243 +cons(new_integer(217881),
12244 12244 new_string("handler"))),
12245 12245 cons(cons(symbol,
12246   -cons(new_integer(223262),
  12246 +cons(new_integer(217886),
12247 12247 new_string("conn"))),
12248 12248 nil)))),
12249 12249 cons(app,
12250   -cons(new_integer(223518),
  12250 +cons(new_integer(218142),
12251 12251 cons(cons(symbol,
12252   -cons(new_integer(223517),
  12252 +cons(new_integer(218141),
12253 12253 new_string("£run_server"))),
12254 12254 cons(cons(symbol,
12255   -cons(new_integer(223519),
  12255 +cons(new_integer(218143),
12256 12256 new_string("l"))),
12257 12257 cons(cons(symbol,
12258   -cons(new_integer(223527),
  12258 +cons(new_integer(218151),
12259 12259 new_string("handler"))),
12260 12260 cons(cons(symbol,
12261   -cons(new_integer(223534),
  12261 +cons(new_integer(218158),
12262 12262 new_string("notify"))),
12263 12263 nil))))))))))),
12264 12264 nil)))))));
12265 12265  
12266   -new_type_scheme(448536,0,
  12266 +new_type_scheme(437784,0,
12267 12267 new_string("Server"),
12268 12268 nil,
12269 12269 cons(cons(cons(new_string("£server"),
... ... @@ -12273,7 +12273,7 @@ noname),
12273 12273 nil)),
12274 12274 nil),0,1);
12275 12275  
12276   -new_op_scheme(450076,1,
  12276 +new_op_scheme(439324,1,
12277 12277 new_string("StartServerResult"),
12278 12278 cons(new_string("start_server"),
12279 12279 nil),
... ... @@ -12297,88 +12297,88 @@ new_string(&quot;One&quot;))),
12297 12297 new_string("notify")),
12298 12298 nil)))),
12299 12299 cons(cond,
12300   -cons(new_integer(227589),
  12300 +cons(new_integer(222213),
12301 12301 cons(cons(app,
12302   -cons(new_integer(227600),
  12302 +cons(new_integer(222224),
12303 12303 cons(cons(symbol,
12304   -cons(new_integer(227599),
  12304 +cons(new_integer(222223),
12305 12305 new_string("£listener"))),
12306 12306 cons(cons(symbol,
12307   -cons(new_integer(227607),
  12307 +cons(new_integer(222231),
12308 12308 new_string("ip_addr"))),
12309 12309 cons(cons(symbol,
12310   -cons(new_integer(227615),
  12310 +cons(new_integer(222239),
12311 12311 new_string("ip_port"))),
12312 12312 nil))))),
12313 12313 cons(cons(cons(new_string("£cannot_create_the_socket"),
12314 12314 nil),
12315   -cons(new_integer(228133),
  12315 +cons(new_integer(222757),
12316 12316 cons(symbol,
12317   -cons(new_integer(228385),
  12317 +cons(new_integer(223009),
12318 12318 new_string("cannot_create_the_socket"))))),
12319 12319 cons(cons(cons(new_string("£cannot_bind_to_port"),
12320 12320 nil),
12321   -cons(new_integer(228640),
  12321 +cons(new_integer(223264),
12322 12322 cons(symbol,
12323   -cons(new_integer(228892),
  12323 +cons(new_integer(223516),
12324 12324 new_string("cannot_bind_to_port"))))),
12325 12325 cons(cons(cons(new_string("£cannot_listen_on_port"),
12326 12326 nil),
12327   -cons(new_integer(229154),
  12327 +cons(new_integer(223778),
12328 12328 cons(symbol,
12329   -cons(new_integer(229406),
  12329 +cons(new_integer(224030),
12330 12330 new_string("cannot_listen_on_port"))))),
12331 12331 cons(cons(cons(new_string("£ok"),
12332 12332 cons(new_string("l"),
12333 12333 nil)),
12334   -cons(new_integer(229650),
  12334 +cons(new_integer(224274),
12335 12335 cons(with,
12336   -cons(new_integer(229905),
  12336 +cons(new_integer(224529),
12337 12337 cons(new_string("s"),
12338 12338 cons(cons(app,
12339   -cons(new_integer(229914),
  12339 +cons(new_integer(224538),
12340 12340 cons(cons(symbol,
12341   -cons(new_integer(229913),
  12341 +cons(new_integer(224537),
12342 12342 new_string("£server"))),
12343 12343 cons(cons(symbol,
12344   -cons(new_integer(229915),
  12344 +cons(new_integer(224539),
12345 12345 new_string("l"))),
12346 12346 nil)))),
12347 12347 cons(delegate,
12348   -cons(new_integer(230161),
  12348 +cons(new_integer(224785),
12349 12349 cons(cons(app,
12350   -cons(new_integer(230174),
  12350 +cons(new_integer(224798),
12351 12351 cons(cons(symbol,
12352   -cons(new_integer(230173),
  12352 +cons(new_integer(224797),
12353 12353 new_string("£run_server"))),
12354 12354 cons(cons(symbol,
12355   -cons(new_integer(230175),
  12355 +cons(new_integer(224799),
12356 12356 new_string("l"))),
12357 12357 cons(cons(app,
12358   -cons(new_integer(230184),
  12358 +cons(new_integer(224808),
12359 12359 cons(cons(symbol,
12360   -cons(new_integer(230183),
  12360 +cons(new_integer(224807),
12361 12361 new_string("handler"))),
12362 12362 cons(cons(symbol,
12363   -cons(new_integer(230185),
  12363 +cons(new_integer(224809),
12364 12364 new_string("s"))),
12365 12365 nil)))),
12366 12366 cons(cons(symbol,
12367   -cons(new_integer(230193),
  12367 +cons(new_integer(224817),
12368 12368 new_string("notify"))),
12369 12369 nil)))))),
12370 12370 cons(app,
12371   -cons(new_integer(230412),
  12371 +cons(new_integer(225036),
12372 12372 cons(cons(symbol,
12373   -cons(new_integer(230411),
  12373 +cons(new_integer(225035),
12374 12374 new_string("ok"))),
12375 12375 cons(cons(symbol,
12376   -cons(new_integer(230413),
  12376 +cons(new_integer(225037),
12377 12377 new_string("s"))),
12378 12378 nil))))))))))))),
12379 12379 nil))))))));
12380 12380  
12381   -new_op_scheme(462350,0,
  12381 +new_op_scheme(451598,0,
12382 12382 new_string("One"),
12383 12383 cons(new_string("£shutdown"),
12384 12384 nil),
... ... @@ -12386,11 +12386,11 @@ cons(cons(type_Listener,
12386 12386 new_string("l")),
12387 12387 nil),
12388 12388 cons(avm,
12389   -cons(new_integer(231220),
  12389 +cons(new_integer(225844),
12390 12390 cons(listener_shutdown,
12391 12391 nil))));
12392 12392  
12393   -new_op_scheme(462876,1,
  12393 +new_op_scheme(452124,1,
12394 12394 new_string("One"),
12395 12395 cons(new_string("shutdown"),
12396 12396 nil),
... ... @@ -12398,26 +12398,26 @@ cons(cons(new_string(&quot;Server&quot;),
12398 12398 new_string("s")),
12399 12399 nil),
12400 12400 cons(cond,
12401   -cons(new_integer(231474),
  12401 +cons(new_integer(226098),
12402 12402 cons(cons(symbol,
12403   -cons(new_integer(231476),
  12403 +cons(new_integer(226100),
12404 12404 new_string("s"))),
12405 12405 cons(cons(cons(new_string("£server"),
12406 12406 cons(new_string("l"),
12407 12407 nil)),
12408   -cons(new_integer(231495),
  12408 +cons(new_integer(226119),
12409 12409 cons(app,
12410   -cons(new_integer(231506),
  12410 +cons(new_integer(226130),
12411 12411 cons(cons(symbol,
12412   -cons(new_integer(231505),
  12412 +cons(new_integer(226129),
12413 12413 new_string("£shutdown"))),
12414 12414 cons(cons(symbol,
12415   -cons(new_integer(231507),
  12415 +cons(new_integer(226131),
12416 12416 new_string("l"))),
12417 12417 nil)))))),
12418 12418 nil)))));
12419 12419  
12420   -new_op_scheme(463374,0,
  12420 +new_op_scheme(452622,0,
12421 12421 new_string("Bool"),
12422 12422 cons(new_string("£is_down"),
12423 12423 nil),
... ... @@ -12425,11 +12425,11 @@ cons(cons(type_Listener,
12425 12425 new_string("l")),
12426 12426 nil),
12427 12427 cons(avm,
12428   -cons(new_integer(231732),
  12428 +cons(new_integer(226356),
12429 12429 cons(listener_is_down,
12430 12430 nil))));
12431 12431  
12432   -new_op_scheme(463900,1,
  12432 +new_op_scheme(453148,1,
12433 12433 new_string("Bool"),
12434 12434 cons(new_string("is_down"),
12435 12435 nil),
... ... @@ -12437,26 +12437,26 @@ cons(cons(new_string(&quot;Server&quot;),
12437 12437 new_string("s")),
12438 12438 nil),
12439 12439 cons(cond,
12440   -cons(new_integer(231986),
  12440 +cons(new_integer(226610),
12441 12441 cons(cons(symbol,
12442   -cons(new_integer(231988),
  12442 +cons(new_integer(226612),
12443 12443 new_string("s"))),
12444 12444 cons(cons(cons(new_string("£server"),
12445 12445 cons(new_string("l"),
12446 12446 nil)),
12447   -cons(new_integer(232007),
  12447 +cons(new_integer(226631),
12448 12448 cons(app,
12449   -cons(new_integer(232017),
  12449 +cons(new_integer(226641),
12450 12450 cons(cons(symbol,
12451   -cons(new_integer(232016),
  12451 +cons(new_integer(226640),
12452 12452 new_string("£is_down"))),
12453 12453 cons(cons(symbol,
12454   -cons(new_integer(232018),
  12454 +cons(new_integer(226642),
12455 12455 new_string("l"))),
12456 12456 nil)))))),
12457 12457 nil)))));
12458 12458  
12459   -new_type_scheme(466456,0,
  12459 +new_type_scheme(455704,0,
12460 12460 new_string("UDP_Socket"),
12461 12461 nil,
12462 12462 cons(cons(cons(new_string("£udp_socket"),
... ... @@ -12467,7 +12467,7 @@ noname),
12467 12467 nil)),
12468 12468 nil),0,1);
12469 12469  
12470   -new_op_scheme(467982,0,
  12470 +new_op_scheme(457230,0,
12471 12471 cons(app_ts,
12472 12472 cons(new_string("Maybe"),
12473 12473 cons(cons(type_RWStream,
... ... @@ -12477,48 +12477,48 @@ cons(new_string(&quot;£create_udp_client_socket&quot;),
12477 12477 nil),
12478 12478 nil,
12479 12479 cons(avm,
12480   -cons(new_integer(234509),
  12480 +cons(new_integer(229133),
12481 12481 cons(create_udp_client_socket,
12482 12482 nil))));
12483 12483  
12484   -new_op_scheme(470044,1,
  12484 +new_op_scheme(459292,1,
12485 12485 new_string("Create_UDP_Client_Socket_Result"),
12486 12486 cons(new_string("create_udp_client_socket"),
12487 12487 nil),
12488 12488 nil,
12489 12489 cons(cond,
12490   -cons(new_integer(235782),
  12490 +cons(new_integer(230406),
12491 12491 cons(cons(symbol,
12492   -cons(new_integer(235808),
  12492 +cons(new_integer(230432),
12493 12493 new_string("£create_udp_client_socket"))),
12494 12494 cons(cons(cons(new_string("failure"),
12495 12495 nil),
12496   -cons(new_integer(236313),
  12496 +cons(new_integer(230937),
12497 12497 cons(symbol,
12498   -cons(new_integer(236338),
  12498 +cons(new_integer(230962),
12499 12499 new_string("cannot_create_the_socket"))))),
12500 12500 cons(cons(cons(new_string("success"),
12501 12501 cons(new_string("a"),
12502 12502 nil)),
12503   -cons(new_integer(236569),
  12503 +cons(new_integer(231193),
12504 12504 cons(app,
12505   -cons(new_integer(236573),
  12505 +cons(new_integer(231197),
12506 12506 cons(cons(symbol,
12507   -cons(new_integer(236572),
  12507 +cons(new_integer(231196),
12508 12508 new_string("ok"))),
12509 12509 cons(cons(app,
12510   -cons(new_integer(236585),
  12510 +cons(new_integer(231209),
12511 12511 cons(cons(symbol,
12512   -cons(new_integer(236584),
  12512 +cons(new_integer(231208),
12513 12513 new_string("£udp_socket"))),
12514 12514 cons(cons(symbol,
12515   -cons(new_integer(236586),
  12515 +cons(new_integer(231210),
12516 12516 new_string("a"))),
12517 12517 nil)))),
12518 12518 nil)))))),
12519 12519 nil))))));
12520 12520  
12521   -new_op_scheme(474638,0,
  12521 +new_op_scheme(463886,0,
12522 12522 cons(app_ts,
12523 12523 cons(new_string("Maybe"),
12524 12524 cons(cons(type_RWStream,
... ... @@ -12528,48 +12528,48 @@ cons(new_string(&quot;£create_udp_client_broadcast_socket&quot;),
12528 12528 nil),
12529 12529 nil,
12530 12530 cons(avm,
12531   -cons(new_integer(237837),
  12531 +cons(new_integer(232461),
12532 12532 cons(create_udp_client_broadcast_socket,
12533 12533 nil))));
12534 12534  
12535   -new_op_scheme(476700,1,
  12535 +new_op_scheme(465948,1,
12536 12536 new_string("Create_UDP_Client_Socket_Result"),
12537 12537 cons(new_string("create_udp_client_broadcast_socket"),
12538 12538 nil),
12539 12539 nil,
12540 12540 cons(cond,
12541   -cons(new_integer(239110),
  12541 +cons(new_integer(233734),
12542 12542 cons(cons(symbol,
12543   -cons(new_integer(239146),
  12543 +cons(new_integer(233770),
12544 12544 new_string("£create_udp_client_broadcast_socket"))),
12545 12545 cons(cons(cons(new_string("failure"),
12546 12546 nil),
12547   -cons(new_integer(239641),
  12547 +cons(new_integer(234265),
12548 12548 cons(symbol,
12549   -cons(new_integer(239666),
  12549 +cons(new_integer(234290),
12550 12550 new_string("cannot_create_the_socket"))))),
12551 12551 cons(cons(cons(new_string("success"),
12552 12552 cons(new_string("a"),
12553 12553 nil)),
12554   -cons(new_integer(239897),
  12554 +cons(new_integer(234521),
12555 12555 cons(app,
12556   -cons(new_integer(239901),
  12556 +cons(new_integer(234525),
12557 12557 cons(cons(symbol,
12558   -cons(new_integer(239900),
  12558 +cons(new_integer(234524),
12559 12559 new_string("ok"))),
12560 12560 cons(cons(app,
12561   -cons(new_integer(239913),
  12561 +cons(new_integer(234537),
12562 12562 cons(cons(symbol,
12563   -cons(new_integer(239912),
  12563 +cons(new_integer(234536),
12564 12564 new_string("£udp_socket"))),
12565 12565 cons(cons(symbol,
12566   -cons(new_integer(239914),
  12566 +cons(new_integer(234538),
12567 12567 new_string("a"))),
12568 12568 nil)))),
12569 12569 nil)))))),
12570 12570 nil))))));
12571 12571  
12572   -new_op_scheme(482844,1,
  12572 +new_op_scheme(472092,1,
12573 12573 new_string("UDP_Send_Result"),
12574 12574 cons(new_string("udp_send"),
12575 12575 nil),
... ... @@ -12583,11 +12583,11 @@ cons(cons(type_ByteArray,
12583 12583 new_string("data")),
12584 12584 nil)))),
12585 12585 cons(avm,
12586   -cons(new_integer(243214),
  12586 +cons(new_integer(237838),
12587 12587 cons(udp_send,
12588 12588 nil))));
12589 12589  
12590   -new_op_scheme(487452,1,
  12590 +new_op_scheme(476700,1,
12591 12591 new_string("UDP_Receive_Result"),
12592 12592 cons(new_string("udp_receive"),
12593 12593 nil),
... ... @@ -12599,11 +12599,11 @@ cons(cons(new_string(&quot;Word32&quot;),
12599 12599 new_string("timeout")),
12600 12600 nil))),
12601 12601 cons(avm,
12602   -cons(new_integer(245262),
  12602 +cons(new_integer(239886),
12603 12603 cons(udp_receive,
12604 12604 nil))));
12605 12605  
12606   -new_type_scheme(494104,0,
  12606 +new_type_scheme(483352,0,
12607 12607 new_string("UDP_Server"),
12608 12608 nil,
12609 12609 cons(cons(cons(new_string("£udp_server"),
... ... @@ -12614,7 +12614,7 @@ noname),
12614 12614 nil)),
12615 12615 nil),0,1);
12616 12616  
12617   -new_type_scheme(495640,0,
  12617 +new_type_scheme(484888,0,
12618 12618 new_string("£Create_UDP_Server_Socket_Result"),
12619 12619 nil,
12620 12620 cons(cons(cons(new_string("£cannot_create_the_socket"),
... ... @@ -12634,7 +12634,7 @@ noname),
12634 12634 nil)),
12635 12635 nil)))),0,1);
12636 12636  
12637   -new_op_scheme(498702,0,
  12637 +new_op_scheme(487950,0,
12638 12638 new_string("£Create_UDP_Server_Socket_Result"),
12639 12639 cons(new_string("£create_udp_server_socket"),
12640 12640 nil),
... ... @@ -12644,11 +12644,11 @@ cons(cons(new_string(&quot;Word32&quot;),
12644 12644 new_string("ip_port")),
12645 12645 nil)),
12646 12646 cons(avm,
12647   -cons(new_integer(250638),
  12647 +cons(new_integer(245262),
12648 12648 cons(create_udp_server_socket,
12649 12649 nil))));
12650 12650  
12651   -new_op_scheme(502286,0,
  12651 +new_op_scheme(491534,0,
12652 12652 new_string("One"),
12653 12653 cons(new_string("£run_udp_server"),
12654 12654 nil),
... ... @@ -12675,105 +12675,105 @@ new_string(&quot;One&quot;))),
12675 12675 new_string("notify")),
12676 12676 nil))))),
12677 12677 cons(cond,
12678   -cons(new_integer(254726),
  12678 +cons(new_integer(249350),
12679 12679 cons(cons(of_type,
12680   -cons(new_integer(254726),
  12680 +cons(new_integer(249350),
12681 12681 cons(new_string("Bool"),
12682 12682 cons(anb_read,
12683   -cons(new_integer(254728),
  12683 +cons(new_integer(249352),
12684 12684 cons(symbol,
12685   -cons(new_integer(254737),
  12685 +cons(new_integer(249361),
12686 12686 new_string("state_var")))))))),
12687 12687 cons(cons(cons(new_string("false"),
12688 12688 nil),
12689   -cons(new_integer(257288),
  12689 +cons(new_integer(251912),
12690 12690 cons(symbol,
12691   -cons(new_integer(257548),
  12691 +cons(new_integer(252172),
12692 12692 new_string("unique"))))),
12693 12693 cons(cons(cons(new_string("true"),
12694 12694 nil),
12695   -cons(new_integer(254984),
  12695 +cons(new_integer(249608),
12696 12696 cons(cond,
12697   -cons(new_integer(254987),
  12697 +cons(new_integer(249611),
12698 12698 cons(cons(app,
12699   -cons(new_integer(255000),
  12699 +cons(new_integer(249624),
12700 12700 cons(cons(symbol,
12701   -cons(new_integer(254999),
  12701 +cons(new_integer(249623),
12702 12702 new_string("udp_receive"))),
12703 12703 cons(cons(symbol,
12704   -cons(new_integer(255006),
  12704 +cons(new_integer(249630),
12705 12705 new_string("socket"))),
12706 12706 cons(cons(symbol,
12707   -cons(new_integer(255022),
  12707 +cons(new_integer(249646),
12708 12708 new_string("max_packet_size"))),
12709 12709 cons(cons(integer_10,
12710   -cons(new_integer(255024),
  12710 +cons(new_integer(249648),
12711 12711 cons(new_integer(1),
12712 12712 nil))),
12713 12713 nil)))))),
12714 12714 cons(cons(cons(new_string("out_of_time"),
12715 12715 nil),
12716   -cons(new_integer(255526),
  12716 +cons(new_integer(250150),
12717 12717 cons(app,
12718   -cons(new_integer(255543),
  12718 +cons(new_integer(250167),
12719 12719 cons(cons(symbol,
12720   -cons(new_integer(255542),
  12720 +cons(new_integer(250166),
12721 12721 new_string("£run_udp_server"))),
12722 12722 cons(cons(symbol,
12723   -cons(new_integer(255549),
  12723 +cons(new_integer(250173),
12724 12724 new_string("socket"))),
12725 12725 cons(cons(symbol,
12726   -cons(new_integer(255557),
  12726 +cons(new_integer(250181),
12727 12727 new_string("handler"))),
12728 12728 cons(cons(symbol,
12729   -cons(new_integer(255573),
  12729 +cons(new_integer(250197),
12730 12730 new_string("max_packet_size"))),
12731 12731 cons(cons(symbol,
12732   -cons(new_integer(255583),
  12732 +cons(new_integer(250207),
12733 12733 new_string("state_var"))),
12734 12734 cons(cons(symbol,
12735   -cons(new_integer(255590),
  12735 +cons(new_integer(250214),
12736 12736 new_string("notify"))),
12737 12737 nil)))))))))),
12738 12738 cons(cons(cons(new_string("network_unreachable"),
12739 12739 nil),
12740   -cons(new_integer(255782),
  12740 +cons(new_integer(250406),
12741 12741 cons(cond,
12742   -cons(new_integer(255798),
  12742 +cons(new_integer(250422),
12743 12743 cons(cons(of_type,
12744   -cons(new_integer(255798),
  12744 +cons(new_integer(250422),
12745 12745 cons(new_string("One"),
12746 12746 cons(app,
12747   -cons(new_integer(255790),
  12747 +cons(new_integer(250414),
12748 12748 cons(cons(symbol,
12749   -cons(new_integer(255789),
  12749 +cons(new_integer(250413),
12750 12750 new_string("notify"))),
12751 12751 cons(cons(symbol,
12752   -cons(new_integer(255796),
  12752 +cons(new_integer(250420),
12753 12753 new_string("unique"))),
12754 12754 nil))))))),
12755 12755 cons(cons(cons(new_string("unique"),
12756 12756 nil),
12757   -cons(new_integer(255798),
  12757 +cons(new_integer(250422),
12758 12758 cons(app,
12759   -cons(new_integer(256055),
  12759 +cons(new_integer(250679),
12760 12760 cons(cons(symbol,
12761   -cons(new_integer(256054),
  12761 +cons(new_integer(250678),
12762 12762 new_string("£run_udp_server"))),
12763 12763 cons(cons(symbol,
12764   -cons(new_integer(256061),
  12764 +cons(new_integer(250685),
12765 12765 new_string("socket"))),
12766 12766 cons(cons(symbol,
12767   -cons(new_integer(256069),
  12767 +cons(new_integer(250693),
12768 12768 new_string("handler"))),
12769 12769 cons(cons(symbol,
12770   -cons(new_integer(256085),
  12770 +cons(new_integer(250709),
12771 12771 new_string("max_packet_size"))),
12772 12772 cons(cons(symbol,
12773   -cons(new_integer(256095),
  12773 +cons(new_integer(250719),
12774 12774 new_string("state_var"))),
12775 12775 cons(cons(symbol,
12776   -cons(new_integer(256102),
  12776 +cons(new_integer(250726),
12777 12777 new_string("notify"))),
12778 12778 nil)))))))))),
12779 12779 nil)))))),
... ... @@ -12783,55 +12783,55 @@ cons(new_string(&quot;trunc&quot;),
12783 12783 cons(new_string("ip_address"),
12784 12784 cons(new_string("ip_port"),
12785 12785 nil))))),
12786   -cons(new_integer(256307),
  12786 +cons(new_integer(250931),
12787 12787 cons(delegate,
12788   -cons(new_integer(256535),
  12788 +cons(new_integer(251159),
12789 12789 cons(cons(app,
12790   -cons(new_integer(256544),
  12790 +cons(new_integer(251168),
12791 12791 cons(cons(symbol,
12792   -cons(new_integer(256543),
  12792 +cons(new_integer(251167),
12793 12793 new_string("handler"))),
12794 12794 cons(cons(symbol,
12795   -cons(new_integer(256550),
  12795 +cons(new_integer(251174),
12796 12796 new_string("socket"))),
12797 12797 cons(cons(symbol,
12798   -cons(new_integer(256555),
  12798 +cons(new_integer(251179),
12799 12799 new_string("data"))),
12800 12800 cons(cons(symbol,
12801   -cons(new_integer(256561),
  12801 +cons(new_integer(251185),
12802 12802 new_string("trunc"))),
12803 12803 cons(cons(symbol,
12804   -cons(new_integer(256572),
  12804 +cons(new_integer(251196),
12805 12805 new_string("ip_address"))),
12806 12806 cons(cons(symbol,
12807   -cons(new_integer(256580),
  12807 +cons(new_integer(251204),
12808 12808 new_string("ip_port"))),
12809 12809 nil)))))))),
12810 12810 cons(app,
12811   -cons(new_integer(256799),
  12811 +cons(new_integer(251423),
12812 12812 cons(cons(symbol,
12813   -cons(new_integer(256798),
  12813 +cons(new_integer(251422),
12814 12814 new_string("£run_udp_server"))),
12815 12815 cons(cons(symbol,
12816   -cons(new_integer(256805),
  12816 +cons(new_integer(251429),
12817 12817 new_string("socket"))),
12818 12818 cons(cons(symbol,
12819   -cons(new_integer(256813),
  12819 +cons(new_integer(251437),
12820 12820 new_string("handler"))),
12821 12821 cons(cons(symbol,
12822   -cons(new_integer(256829),
  12822 +cons(new_integer(251453),
12823 12823 new_string("max_packet_size"))),
12824 12824 cons(cons(symbol,
12825   -cons(new_integer(256839),
  12825 +cons(new_integer(251463),
12826 12826 new_string("state_var"))),
12827 12827 cons(cons(symbol,
12828   -cons(new_integer(256846),
  12828 +cons(new_integer(251470),
12829 12829 new_string("notify"))),
12830 12830 nil))))))))))))),
12831 12831 nil)))))))),
12832 12832 nil))))));
12833 12833  
12834   -new_op_scheme(516124,1,
  12834 +new_op_scheme(505372,1,
12835 12835 new_string("Start_UDP_Server_Result"),
12836 12836 cons(new_string("start_udp_server"),
12837 12837 nil),
... ... @@ -12857,109 +12857,109 @@ new_string(&quot;One&quot;))),
12857 12857 new_string("notify")),
12858 12858 nil))))),
12859 12859 cons(cond,
12860   -cons(new_integer(261638),
  12860 +cons(new_integer(256262),
12861 12861 cons(cons(app,
12862   -cons(new_integer(261665),
  12862 +cons(new_integer(256289),
12863 12863 cons(cons(symbol,
12864   -cons(new_integer(261664),
  12864 +cons(new_integer(256288),
12865 12865 new_string("£create_udp_server_socket"))),
12866 12866 cons(cons(symbol,
12867   -cons(new_integer(261675),
  12867 +cons(new_integer(256299),
12868 12868 new_string("ip_address"))),
12869 12869 cons(cons(symbol,
12870   -cons(new_integer(261683),
  12870 +cons(new_integer(256307),
12871 12871 new_string("ip_port"))),
12872 12872 nil))))),
12873 12873 cons(cons(cons(new_string("£cannot_create_the_socket"),
12874 12874 nil),
12875   -cons(new_integer(262184),
  12875 +cons(new_integer(256808),
12876 12876 cons(symbol,
12877   -cons(new_integer(262209),
  12877 +cons(new_integer(256833),
12878 12878 new_string("cannot_create_the_socket"))))),
12879 12879 cons(cons(cons(new_string("£cannot_bind_address_port"),
12880 12880 nil),
12881   -cons(new_integer(262440),
  12881 +cons(new_integer(257064),
12882 12882 cons(symbol,
12883   -cons(new_integer(262465),
  12883 +cons(new_integer(257089),
12884 12884 new_string("cannot_bind_address_port"))))),
12885 12885 cons(cons(cons(new_string("£access_denied"),
12886 12886 nil),
12887   -cons(new_integer(262696),
  12887 +cons(new_integer(257320),
12888 12888 cons(symbol,
12889   -cons(new_integer(262710),
  12889 +cons(new_integer(257334),
12890 12890 new_string("access_denied"))))),
12891 12891 cons(cons(cons(new_string("£ok"),
12892 12892 cons(new_string("socket"),
12893 12893 nil)),
12894   -cons(new_integer(262936),
  12894 +cons(new_integer(257560),
12895 12895 cons(with,
12896   -cons(new_integer(263194),
  12896 +cons(new_integer(257818),
12897 12897 cons(new_string("state_var"),
12898 12898 cons(cons(app,
12899   -cons(new_integer(263199),
  12899 +cons(new_integer(257823),
12900 12900 cons(cons(symbol,
12901   -cons(new_integer(263198),
  12901 +cons(new_integer(257822),
12902 12902 new_string("var"))),
12903 12903 cons(cons(of_type,
12904   -cons(new_integer(263200),
  12904 +cons(new_integer(257824),
12905 12905 cons(new_string("Bool"),
12906 12906 cons(symbol,
12907   -cons(new_integer(263209),
  12907 +cons(new_integer(257833),
12908 12908 new_string("true")))))),
12909 12909 nil)))),
12910 12910 cons(with,
12911   -cons(new_integer(263450),
  12911 +cons(new_integer(258074),
12912 12912 cons(new_string("udp_socket"),
12913 12913 cons(cons(app,
12914   -cons(new_integer(263463),
  12914 +cons(new_integer(258087),
12915 12915 cons(cons(symbol,
12916   -cons(new_integer(263462),
  12916 +cons(new_integer(258086),
12917 12917 new_string("£udp_socket"))),
12918 12918 cons(cons(symbol,
12919   -cons(new_integer(263469),
  12919 +cons(new_integer(258093),
12920 12920 new_string("socket"))),
12921 12921 nil)))),
12922 12922 cons(delegate,
12923   -cons(new_integer(263698),
  12923 +cons(new_integer(258322),
12924 12924 cons(cons(app,
12925   -cons(new_integer(263715),
  12925 +cons(new_integer(258339),
12926 12926 cons(cons(symbol,
12927   -cons(new_integer(263714),
  12927 +cons(new_integer(258338),
12928 12928 new_string("£run_udp_server"))),
12929 12929 cons(cons(symbol,
12930   -cons(new_integer(263725),
  12930 +cons(new_integer(258349),
12931 12931 new_string("udp_socket"))),
12932 12932 cons(cons(symbol,
12933   -cons(new_integer(263733),
  12933 +cons(new_integer(258357),
12934 12934 new_string("handler"))),
12935 12935 cons(cons(symbol,
12936   -cons(new_integer(263749),
  12936 +cons(new_integer(258373),
12937 12937 new_string("max_packet_size"))),
12938 12938 cons(cons(symbol,
12939   -cons(new_integer(263759),
  12939 +cons(new_integer(258383),
12940 12940 new_string("state_var"))),
12941 12941 cons(cons(symbol,
12942   -cons(new_integer(263766),
  12942 +cons(new_integer(258390),
12943 12943 new_string("notify"))),
12944 12944 nil)))))))),
12945 12945 cons(app,
12946   -cons(new_integer(263949),
  12946 +cons(new_integer(258573),
12947 12947 cons(cons(symbol,
12948   -cons(new_integer(263948),
  12948 +cons(new_integer(258572),
12949 12949 new_string("ok"))),
12950 12950 cons(cons(app,
12951   -cons(new_integer(263961),
  12951 +cons(new_integer(258585),
12952 12952 cons(cons(symbol,
12953   -cons(new_integer(263960),
  12953 +cons(new_integer(258584),
12954 12954 new_string("£udp_server"))),
12955 12955 cons(cons(symbol,
12956   -cons(new_integer(263970),
  12956 +cons(new_integer(258594),
12957 12957 new_string("state_var"))),
12958 12958 nil)))),
12959 12959 nil))))))))))))))))),
12960 12960 nil))))))));
12961 12961  
12962   -new_op_scheme(529436,1,
  12962 +new_op_scheme(518684,1,
12963 12963 new_string("Bool"),
12964 12964 cons(new_string("is_down"),
12965 12965 nil),
... ... @@ -12967,40 +12967,40 @@ cons(cons(new_string(&quot;UDP_Server&quot;),
12967 12967 new_string("server")),
12968 12968 nil),
12969 12969 cons(cond,
12970   -cons(new_integer(265990),
  12970 +cons(new_integer(260614),
12971 12971 cons(cons(symbol,
12972   -cons(new_integer(265997),
  12972 +cons(new_integer(260621),
12973 12973 new_string("server"))),
12974 12974 cons(cons(cons(new_string("£udp_server"),
12975 12975 cons(new_string("v"),
12976 12976 nil)),
12977   -cons(new_integer(266020),
  12977 +cons(new_integer(260644),
12978 12978 cons(cond,
12979   -cons(new_integer(266246),
  12979 +cons(new_integer(260870),
12980 12980 cons(cons(of_type,
12981   -cons(new_integer(266246),
  12981 +cons(new_integer(260870),
12982 12982 cons(new_string("Bool"),
12983 12983 cons(anb_read,
12984   -cons(new_integer(266248),
  12984 +cons(new_integer(260872),
12985 12985 cons(symbol,
12986   -cons(new_integer(266249),
  12986 +cons(new_integer(260873),
12987 12987 new_string("v")))))))),
12988 12988 cons(cons(cons(new_string("false"),
12989 12989 nil),
12990   -cons(new_integer(266265),
  12990 +cons(new_integer(260889),
12991 12991 cons(symbol,
12992   -cons(new_integer(266270),
  12992 +cons(new_integer(260894),
12993 12993 new_string("true"))))),
12994 12994 cons(cons(cons(new_string("true"),
12995 12995 nil),
12996   -cons(new_integer(266254),
  12996 +cons(new_integer(260878),
12997 12997 cons(symbol,
12998   -cons(new_integer(266260),
  12998 +cons(new_integer(260884),
12999 12999 new_string("false"))))),
13000 13000 nil))))))),
13001 13001 nil)))));
13002 13002  
13003   -new_op_scheme(533532,1,
  13003 +new_op_scheme(522780,1,
13004 13004 new_string("One"),
13005 13005 cons(new_string("shutdown"),
13006 13006 nil),
... ... @@ -13008,25 +13008,25 @@ cons(cons(new_string(&quot;UDP_Server&quot;),
13008 13008 new_string("server")),
13009 13009 nil),
13010 13010 cons(cond,
13011   -cons(new_integer(268038),
  13011 +cons(new_integer(262662),
13012 13012 cons(cons(symbol,
13013   -cons(new_integer(268045),
  13013 +cons(new_integer(262669),
13014 13014 new_string("server"))),
13015 13015 cons(cons(cons(new_string("£udp_server"),
13016 13016 cons(new_string("v"),
13017 13017 nil)),
13018   -cons(new_integer(268068),
  13018 +cons(new_integer(262692),
13019 13019 cons(anb_write,
13020   -cons(new_integer(268296),
  13020 +cons(new_integer(262920),
13021 13021 cons(cons(symbol,
13022   -cons(new_integer(268293),
  13022 +cons(new_integer(262917),
13023 13023 new_string("v"))),
13024 13024 cons(symbol,
13025   -cons(new_integer(268302),
  13025 +cons(new_integer(262926),
13026 13026 new_string("false")))))))),
13027 13027 nil)))));
13028 13028  
13029   -new_type_scheme(542744,0,
  13029 +new_type_scheme(531992,0,
13030 13030 new_string("PacketSocket"),
13031 13031 nil,
13032 13032 cons(cons(cons(new_string("packetSocket"),
... ... @@ -13041,7 +13041,7 @@ new_string(&quot;sock&quot;)),
13041 13041 nil)))),
13042 13042 nil),0,1);
13043 13043  
13044   -new_type_scheme(545290,0,
  13044 +new_type_scheme(534538,0,
13045 13045 new_string("£PacketSocketAddress"),
13046 13046 nil,
13047 13047 cons(cons(cons(new_string("packet_sockaddr"),
... ... @@ -13061,7 +13061,7 @@ new_string(&quot;addr&quot;)),
13061 13061 nil))))))),
13062 13062 nil),0,0);
13063 13063  
13064   -new_type_scheme(549400,0,
  13064 +new_type_scheme(538648,0,
13065 13065 new_string("PhysicalAddress"),
13066 13066 nil,
13067 13067 cons(cons(cons(new_string("physical_address"),
... ... @@ -13073,7 +13073,7 @@ new_string(&quot;phys_address&quot;)),
13073 13073 nil))),
13074 13074 nil),0,1);
13075 13075  
13076   -new_type_scheme(553496,0,
  13076 +new_type_scheme(542744,0,
13077 13077 new_string("Socket"),
13078 13078 nil,
13079 13079 cons(cons(cons(new_string("socket"),
... ... @@ -13086,18 +13086,18 @@ new_string(&quot;sock&quot;)),
13086 13086 nil))),
13087 13087 nil),0,1);
13088 13088  
13089   -new_op_scheme(555548,1,
  13089 +new_op_scheme(544796,1,
13090 13090 new_string("IpAddress"),
13091 13091 cons(new_string("inaddr_loopback"),
13092 13092 nil),
13093 13093 nil,
13094 13094 cons(app,
13095   -cons(new_integer(277814),
  13095 +cons(new_integer(272438),
13096 13096 cons(cons(symbol,
13097   -cons(new_integer(277813),
  13097 +cons(new_integer(272437),
13098 13098 new_string("ip_address"))),
13099 13099 cons(cons(integer_16,
13100   -cons(new_integer(277824),
  13100 +cons(new_integer(272448),
13101 13101 cons(new_integer(1),
13102 13102 cons(new_integer(0),
13103 13103 cons(new_integer(0),
... ... @@ -13105,18 +13105,18 @@ cons(new_integer(127),
13105 13105 nil)))))),
13106 13106 nil)))));
13107 13107  
13108   -new_op_scheme(556060,1,
  13108 +new_op_scheme(545308,1,
13109 13109 new_string("IpAddress"),
13110 13110 cons(new_string("inaddr_any"),
13111 13111 nil),
13112 13112 nil,
13113 13113 cons(app,
13114   -cons(new_integer(278078),
  13114 +cons(new_integer(272702),
13115 13115 cons(cons(symbol,
13116   -cons(new_integer(278077),
  13116 +cons(new_integer(272701),
13117 13117 new_string("ip_address"))),
13118 13118 cons(cons(integer_16,
13119   -cons(new_integer(278088),
  13119 +cons(new_integer(272712),
13120 13120 cons(new_integer(0),
13121 13121 cons(new_integer(0),
13122 13122 cons(new_integer(0),
... ... @@ -13124,18 +13124,18 @@ cons(new_integer(0),
13124 13124 nil)))))),
13125 13125 nil)))));
13126 13126  
13127   -new_op_scheme(556572,1,
  13127 +new_op_scheme(545820,1,
13128 13128 new_string("IpAddress"),
13129 13129 cons(new_string("inaddr_broadcast"),
13130 13130 nil),
13131 13131 nil,
13132 13132 cons(app,
13133   -cons(new_integer(278326),
  13133 +cons(new_integer(272950),
13134 13134 cons(cons(symbol,
13135   -cons(new_integer(278325),
  13135 +cons(new_integer(272949),
13136 13136 new_string("ip_address"))),
13137 13137 cons(cons(integer_16,
13138   -cons(new_integer(278336),
  13138 +cons(new_integer(272960),
13139 13139 cons(new_integer(255),
13140 13140 cons(new_integer(255),
13141 13141 cons(new_integer(255),
... ... @@ -13143,7 +13143,7 @@ cons(new_integer(255),
13143 13143 nil)))))),
13144 13144 nil)))));
13145 13145  
13146   -new_type_scheme(557578,0,
  13146 +new_type_scheme(546826,0,
13147 13147 new_string("£InternetSocketAddress"),
13148 13148 nil,
13149 13149 cons(cons(cons(new_string("£inet_sockaddr"),
... ... @@ -13155,7 +13155,7 @@ new_string(&quot;port&quot;)),
13155 13155 nil))),
13156 13156 nil),0,0);
13157 13157  
13158   -new_type_scheme(561674,0,
  13158 +new_type_scheme(550922,0,
13159 13159 new_string("£SocketFamily"),
13160 13160 nil,
13161 13161 cons(cons(cons(new_string("af_packet"),
... ... @@ -13166,7 +13166,7 @@ nil),
13166 13166 nil),
13167 13167 nil)),0,0);
13168 13168  
13169   -new_type_scheme(564234,0,
  13169 +new_type_scheme(553482,0,
13170 13170 new_string("£SocketOptionEnum"),
13171 13171 nil,
13172 13172 cons(cons(cons(new_string("so_broadcast"),
... ... @@ -13198,7 +13198,7 @@ nil),
13198 13198 nil),
13199 13199 nil))))))))),0,0);
13200 13200  
13201   -new_type_scheme(574474,0,
  13201 +new_type_scheme(563722,0,
13202 13202 new_string("£SocketAddr"),
13203 13203 nil,
13204 13204 cons(cons(cons(new_string("none"),
... ... @@ -13216,7 +13216,7 @@ noname),
13216 13216 nil)),
13217 13217 nil))),0,0);
13218 13218  
13219   -new_type_scheme(577034,0,
  13219 +new_type_scheme(566282,0,
13220 13220 new_string("£AllSocketType"),
13221 13221 nil,
13222 13222 cons(cons(cons(new_string("sock_raw"),
... ... @@ -13230,7 +13230,7 @@ nil),
13230 13230 nil),
13231 13231 nil))),0,0);
13232 13232  
13233   -new_op_scheme(579598,0,
  13233 +new_op_scheme(568846,0,
13234 13234 new_string("Word16"),
13235 13235 cons(new_string("£socket_proto_to_value"),
13236 13236 nil),
... ... @@ -13238,173 +13238,173 @@ cons(cons(new_string(&quot;PacketSocketProtocol&quot;),
13238 13238 new_string("proto")),
13239 13239 nil),
13240 13240 cons(cond,
13241   -cons(new_integer(291078),
  13241 +cons(new_integer(285702),
13242 13242 cons(cons(symbol,
13243   -cons(new_integer(291084),
  13243 +cons(new_integer(285708),
13244 13244 new_string("proto"))),
13245 13245 cons(cons(cons(new_string("eth_p_all"),
13246 13246 nil),
13247   -cons(new_integer(291616),
  13247 +cons(new_integer(286240),
13248 13248 cons(integer_16,
13249   -cons(new_integer(291623),
  13249 +cons(new_integer(286247),
13250 13250 cons(new_integer(0),
13251 13251 cons(new_integer(3),
13252 13252 nil)))))),
13253 13253 cons(cons(cons(new_string("eth_p_loop"),
13254 13254 nil),
13255   -cons(new_integer(291872),
  13255 +cons(new_integer(286496),
13256 13256 cons(integer_16,
13257   -cons(new_integer(291879),
  13257 +cons(new_integer(286503),
13258 13258 cons(new_integer(0),
13259 13259 cons(new_integer(96),
13260 13260 nil)))))),
13261 13261 cons(cons(cons(new_string("eth_p_ip"),
13262 13262 nil),
13263   -cons(new_integer(292128),
  13263 +cons(new_integer(286752),
13264 13264 cons(integer_16,
13265   -cons(new_integer(292135),
  13265 +cons(new_integer(286759),
13266 13266 cons(new_integer(8),
13267 13267 cons(new_integer(0),
13268 13268 nil)))))),
13269 13269 cons(cons(cons(new_string("eth_p_arp"),
13270 13270 nil),
13271   -cons(new_integer(292384),
  13271 +cons(new_integer(287008),
13272 13272 cons(integer_16,
13273   -cons(new_integer(292391),
  13273 +cons(new_integer(287015),
13274 13274 cons(new_integer(8),
13275 13275 cons(new_integer(6),
13276 13276 nil)))))),
13277 13277 cons(cons(cons(new_string("eth_p_rarp"),
13278 13278 nil),
13279   -cons(new_integer(292640),
  13279 +cons(new_integer(287264),
13280 13280 cons(integer_16,
13281   -cons(new_integer(292647),
  13281 +cons(new_integer(287271),
13282 13282 cons(new_integer(128),
13283 13283 cons(new_integer(53),
13284 13284 nil)))))),
13285 13285 cons(cons(cons(new_string("eth_p_8021Q"),
13286 13286 nil),
13287   -cons(new_integer(292896),
  13287 +cons(new_integer(287520),
13288 13288 cons(integer_16,
13289   -cons(new_integer(292903),
  13289 +cons(new_integer(287527),
13290 13290 cons(new_integer(129),
13291 13291 cons(new_integer(0),
13292 13292 nil)))))),
13293 13293 cons(cons(cons(new_string("eth_p_ipx"),
13294 13294 nil),
13295   -cons(new_integer(293152),
  13295 +cons(new_integer(287776),
13296 13296 cons(integer_16,
13297   -cons(new_integer(293159),
  13297 +cons(new_integer(287783),
13298 13298 cons(new_integer(129),
13299 13299 cons(new_integer(55),
13300 13300 nil)))))),
13301 13301 cons(cons(cons(new_string("eth_p_ipv6"),
13302 13302 nil),
13303   -cons(new_integer(293408),
  13303 +cons(new_integer(288032),
13304 13304 cons(integer_16,
13305   -cons(new_integer(293415),
  13305 +cons(new_integer(288039),
13306 13306 cons(new_integer(134),
13307 13307 cons(new_integer(221),
13308 13308 nil)))))),
13309 13309 cons(cons(cons(new_string("eth_p_ppp_disc"),
13310 13310 nil),
13311   -cons(new_integer(293664),
  13311 +cons(new_integer(288288),
13312 13312 cons(integer_16,
13313   -cons(new_integer(293671),
  13313 +cons(new_integer(288295),
13314 13314 cons(new_integer(136),
13315 13315 cons(new_integer(99),
13316 13316 nil)))))),
13317 13317 cons(cons(cons(new_string("eth_p_ppp_ses"),
13318 13318 nil),
13319   -cons(new_integer(293920),
  13319 +cons(new_integer(288544),
13320 13320 cons(integer_16,
13321   -cons(new_integer(293927),
  13321 +cons(new_integer(288551),
13322 13322 cons(new_integer(136),
13323 13323 cons(new_integer(100),
13324 13324 nil)))))),
13325 13325 cons(cons(cons(new_string("eth_p_mpls_uc"),
13326 13326 nil),
13327   -cons(new_integer(294176),
  13327 +cons(new_integer(288800),
13328 13328 cons(integer_16,
13329   -cons(new_integer(294183),
  13329 +cons(new_integer(288807),
13330 13330 cons(new_integer(136),
13331 13331 cons(new_integer(71),
13332 13332 nil)))))),
13333 13333 cons(cons(cons(new_string("eth_p_mpls_mc"),
13334 13334 nil),
13335   -cons(new_integer(294432),
  13335 +cons(new_integer(289056),
13336 13336 cons(integer_16,
13337   -cons(new_integer(294439),
  13337 +cons(new_integer(289063),
13338 13338 cons(new_integer(136),
13339 13339 cons(new_integer(72),
13340 13340 nil)))))),
13341 13341 cons(cons(cons(new_string("eth_p_atmmpoa"),
13342 13342 nil),
13343   -cons(new_integer(294688),
  13343 +cons(new_integer(289312),
13344 13344 cons(integer_16,
13345   -cons(new_integer(294695),
  13345 +cons(new_integer(289319),
13346 13346 cons(new_integer(136),
13347 13347 cons(new_integer(76),
13348 13348 nil)))))),
13349 13349 cons(cons(cons(new_string("eth_p_atmfate"),
13350 13350 nil),
13351   -cons(new_integer(294944),
  13351 +cons(new_integer(289568),
13352 13352 cons(integer_16,
13353   -cons(new_integer(294951),
  13353 +cons(new_integer(289575),
13354 13354 cons(new_integer(136),
13355 13355 cons(new_integer(132),
13356 13356 nil)))))),
13357 13357 cons(cons(cons(new_string("eth_p_aoe"),
13358 13358 nil),
13359   -cons(new_integer(295200),
  13359 +cons(new_integer(289824),
13360 13360 cons(integer_16,
13361   -cons(new_integer(295207),
  13361 +cons(new_integer(289831),
13362 13362 cons(new_integer(136),
13363 13363 cons(new_integer(162),
13364 13364 nil)))))),
13365 13365 cons(cons(cons(new_string("eth_p_tipc"),
13366 13366 nil),
13367   -cons(new_integer(295456),
  13367 +cons(new_integer(290080),
13368 13368 cons(integer_16,
13369   -cons(new_integer(295463),
  13369 +cons(new_integer(290087),
13370 13370 cons(new_integer(136),
13371 13371 cons(new_integer(202),
13372 13372 nil)))))),
13373 13373 cons(cons(cons(new_string("eth_p_802_3"),
13374 13374 nil),
13375   -cons(new_integer(295712),
  13375 +cons(new_integer(290336),
13376 13376 cons(integer_16,
13377   -cons(new_integer(295719),
  13377 +cons(new_integer(290343),
13378 13378 cons(new_integer(0),
13379 13379 cons(new_integer(1),
13380 13380 nil)))))),
13381 13381 cons(cons(cons(new_string("eth_p_ax25"),
13382 13382 nil),
13383   -cons(new_integer(295968),
  13383 +cons(new_integer(290592),
13384 13384 cons(integer_16,
13385   -cons(new_integer(295975),
  13385 +cons(new_integer(290599),
13386 13386 cons(new_integer(0),
13387 13387 cons(new_integer(2),
13388 13388 nil)))))),
13389 13389 cons(cons(cons(new_string("eth_h_802_2"),
13390 13390 nil),
13391   -cons(new_integer(296224),
  13391 +cons(new_integer(290848),
13392 13392 cons(integer_16,
13393   -cons(new_integer(296231),
  13393 +cons(new_integer(290855),
13394 13394 cons(new_integer(0),
13395 13395 cons(new_integer(4),
13396 13396 nil)))))),
13397 13397 cons(cons(cons(new_string("eth_h_tr_802_2"),
13398 13398 nil),
13399   -cons(new_integer(296480),
  13399 +cons(new_integer(291104),
13400 13400 cons(integer_16,
13401   -cons(new_integer(296487),
  13401 +cons(new_integer(291111),
13402 13402 cons(new_integer(0),
13403 13403 cons(new_integer(17),
13404 13404 nil)))))),
13405 13405 nil))))))))))))))))))))))));
13406 13406  
13407   -new_op_scheme(594958,0,
  13407 +new_op_scheme(584206,0,
13408 13408 new_string("PacketSocketProtocol"),
13409 13409 cons(new_string("£value_to_socket_proto"),
13410 13410 nil),
... ... @@ -13412,590 +13412,590 @@ cons(cons(new_string(&quot;Word16&quot;),
13412 13412 new_string("proto")),
13413 13413 nil),
13414 13414 cons(cond,
13415   -cons(new_integer(298758),
  13415 +cons(new_integer(293382),
13416 13416 cons(cons(of_type,
13417   -cons(new_integer(298758),
  13417 +cons(new_integer(293382),
13418 13418 cons(new_string("Bool"),
13419 13419 cons(app,
13420   -cons(new_integer(298766),
  13420 +cons(new_integer(293390),
13421 13421 cons(cons(symbol,
13422   -cons(new_integer(298766),
  13422 +cons(new_integer(293390),
13423 13423 new_string("="))),
13424 13424 cons(cons(symbol,
13425   -cons(new_integer(298764),
  13425 +cons(new_integer(293388),
13426 13426 new_string("proto"))),
13427 13427 cons(cons(integer_16,
13428   -cons(new_integer(298773),
  13428 +cons(new_integer(293397),
13429 13429 cons(new_integer(0),
13430 13430 cons(new_integer(3),
13431 13431 nil)))),
13432 13432 nil)))))))),
13433 13433 cons(cons(cons(new_string("false"),
13434 13434 nil),
13435   -cons(new_integer(299016),
  13435 +cons(new_integer(293640),
13436 13436 cons(cond,
13437   -cons(new_integer(299019),
  13437 +cons(new_integer(293643),
13438 13438 cons(cons(of_type,
13439   -cons(new_integer(299019),
  13439 +cons(new_integer(293643),
13440 13440 cons(new_string("Bool"),
13441 13441 cons(app,
13442   -cons(new_integer(299027),
  13442 +cons(new_integer(293651),
13443 13443 cons(cons(symbol,
13444   -cons(new_integer(299027),
  13444 +cons(new_integer(293651),
13445 13445 new_string("="))),
13446 13446 cons(cons(symbol,
13447   -cons(new_integer(299025),
  13447 +cons(new_integer(293649),
13448 13448 new_string("proto"))),
13449 13449 cons(cons(integer_16,
13450   -cons(new_integer(299034),
  13450 +cons(new_integer(293658),
13451 13451 cons(new_integer(0),
13452 13452 cons(new_integer(96),
13453 13453 nil)))),
13454 13454 nil)))))))),
13455 13455 cons(cons(cons(new_string("false"),
13456 13456 nil),
13457   -cons(new_integer(299272),
  13457 +cons(new_integer(293896),
13458 13458 cons(cond,
13459   -cons(new_integer(299275),
  13459 +cons(new_integer(293899),
13460 13460 cons(cons(of_type,
13461   -cons(new_integer(299275),
  13461 +cons(new_integer(293899),
13462 13462 cons(new_string("Bool"),
13463 13463 cons(app,
13464   -cons(new_integer(299283),
  13464 +cons(new_integer(293907),
13465 13465 cons(cons(symbol,
13466   -cons(new_integer(299283),
  13466 +cons(new_integer(293907),
13467 13467 new_string("="))),
13468 13468 cons(cons(symbol,
13469   -cons(new_integer(299281),
  13469 +cons(new_integer(293905),
13470 13470 new_string("proto"))),
13471 13471 cons(cons(integer_16,
13472   -cons(new_integer(299290),
  13472 +cons(new_integer(293914),
13473 13473 cons(new_integer(8),
13474 13474 cons(new_integer(0),
13475 13475 nil)))),
13476 13476 nil)))))))),
13477 13477 cons(cons(cons(new_string("false"),
13478 13478 nil),
13479   -cons(new_integer(299528),
  13479 +cons(new_integer(294152),
13480 13480 cons(cond,
13481   -cons(new_integer(299531),
  13481 +cons(new_integer(294155),
13482 13482 cons(cons(of_type,
13483   -cons(new_integer(299531),
  13483 +cons(new_integer(294155),
13484 13484 cons(new_string("Bool"),
13485 13485 cons(app,
13486   -cons(new_integer(299539),
  13486 +cons(new_integer(294163),
13487 13487 cons(cons(symbol,
13488   -cons(new_integer(299539),
  13488 +cons(new_integer(294163),
13489 13489 new_string("="))),
13490 13490 cons(cons(symbol,
13491   -cons(new_integer(299537),
  13491 +cons(new_integer(294161),
13492 13492 new_string("proto"))),
13493 13493 cons(cons(integer_16,
13494   -cons(new_integer(299546),
  13494 +cons(new_integer(294170),
13495 13495 cons(new_integer(8),
13496 13496 cons(new_integer(6),
13497 13497 nil)))),
13498 13498 nil)))))))),
13499 13499 cons(cons(cons(new_string("false"),
13500 13500 nil),
13501   -cons(new_integer(299784),
  13501 +cons(new_integer(294408),
13502 13502 cons(cond,
13503   -cons(new_integer(299787),
  13503 +cons(new_integer(294411),
13504 13504 cons(cons(of_type,
13505   -cons(new_integer(299787),
  13505 +cons(new_integer(294411),
13506 13506 cons(new_string("Bool"),
13507 13507 cons(app,
13508   -cons(new_integer(299795),
  13508 +cons(new_integer(294419),
13509 13509 cons(cons(symbol,
13510   -cons(new_integer(299795),
  13510 +cons(new_integer(294419),
13511 13511 new_string("="))),
13512 13512 cons(cons(symbol,
13513   -cons(new_integer(299793),
  13513 +cons(new_integer(294417),
13514 13514 new_string("proto"))),
13515 13515 cons(cons(integer_16,
13516   -cons(new_integer(299802),
  13516 +cons(new_integer(294426),
13517 13517 cons(new_integer(128),
13518 13518 cons(new_integer(53),
13519 13519 nil)))),
13520 13520 nil)))))))),
13521 13521 cons(cons(cons(new_string("false"),
13522 13522 nil),
13523   -cons(new_integer(300040),
  13523 +cons(new_integer(294664),
13524 13524 cons(cond,
13525   -cons(new_integer(300043),
  13525 +cons(new_integer(294667),
13526 13526 cons(cons(of_type,
13527   -cons(new_integer(300043),
  13527 +cons(new_integer(294667),
13528 13528 cons(new_string("Bool"),
13529 13529 cons(app,
13530   -cons(new_integer(300051),
  13530 +cons(new_integer(294675),
13531 13531 cons(cons(symbol,
13532   -cons(new_integer(300051),
  13532 +cons(new_integer(294675),
13533 13533 new_string("="))),
13534 13534 cons(cons(symbol,
13535   -cons(new_integer(300049),
  13535 +cons(new_integer(294673),
13536 13536 new_string("proto"))),
13537 13537 cons(cons(integer_16,
13538   -cons(new_integer(300058),
  13538 +cons(new_integer(294682),
13539 13539 cons(new_integer(129),
13540 13540 cons(new_integer(0),
13541 13541 nil)))),
13542 13542 nil)))))))),
13543 13543 cons(cons(cons(new_string("false"),
13544 13544 nil),
13545   -cons(new_integer(300296),
  13545 +cons(new_integer(294920),
13546 13546 cons(cond,
13547   -cons(new_integer(300299),
  13547 +cons(new_integer(294923),
13548 13548 cons(cons(of_type,
13549   -cons(new_integer(300299),
  13549 +cons(new_integer(294923),
13550 13550 cons(new_string("Bool"),
13551 13551 cons(app,
13552   -cons(new_integer(300307),
  13552 +cons(new_integer(294931),
13553 13553 cons(cons(symbol,
13554   -cons(new_integer(300307),
  13554 +cons(new_integer(294931),
13555 13555 new_string("="))),
13556 13556 cons(cons(symbol,
13557   -cons(new_integer(300305),
  13557 +cons(new_integer(294929),
13558 13558 new_string("proto"))),
13559 13559 cons(cons(integer_16,
13560   -cons(new_integer(300314),
  13560 +cons(new_integer(294938),
13561 13561 cons(new_integer(129),
13562 13562 cons(new_integer(55),
13563 13563 nil)))),
13564 13564 nil)))))))),
13565 13565 cons(cons(cons(new_string("false"),
13566 13566 nil),
13567   -cons(new_integer(300552),
  13567 +cons(new_integer(295176),
13568 13568 cons(cond,
13569   -cons(new_integer(300555),
  13569 +cons(new_integer(295179),
13570 13570 cons(cons(of_type,
13571   -cons(new_integer(300555),
  13571 +cons(new_integer(295179),
13572 13572 cons(new_string("Bool"),
13573 13573 cons(app,
13574   -cons(new_integer(300563),
  13574 +cons(new_integer(295187),
13575 13575 cons(cons(symbol,
13576   -cons(new_integer(300563),
  13576 +cons(new_integer(295187),
13577 13577 new_string("="))),
13578 13578 cons(cons(symbol,
13579   -cons(new_integer(300561),
  13579 +cons(new_integer(295185),
13580 13580 new_string("proto"))),
13581 13581 cons(cons(integer_16,
13582   -cons(new_integer(300570),
  13582 +cons(new_integer(295194),
13583 13583 cons(new_integer(134),
13584 13584 cons(new_integer(221),
13585 13585 nil)))),
13586 13586 nil)))))))),
13587 13587 cons(cons(cons(new_string("false"),
13588 13588 nil),
13589   -cons(new_integer(300808),
  13589 +cons(new_integer(295432),
13590 13590 cons(cond,
13591   -cons(new_integer(300811),
  13591 +cons(new_integer(295435),
13592 13592 cons(cons(of_type,
13593   -cons(new_integer(300811),
  13593 +cons(new_integer(295435),
13594 13594 cons(new_string("Bool"),
13595 13595 cons(app,
13596   -cons(new_integer(300819),
  13596 +cons(new_integer(295443),
13597 13597 cons(cons(symbol,
13598   -cons(new_integer(300819),
  13598 +cons(new_integer(295443),
13599 13599 new_string("="))),
13600 13600 cons(cons(symbol,
13601   -cons(new_integer(300817),
  13601 +cons(new_integer(295441),
13602 13602 new_string("proto"))),
13603 13603 cons(cons(integer_16,
13604   -cons(new_integer(300826),
  13604 +cons(new_integer(295450),
13605 13605 cons(new_integer(136),
13606 13606 cons(new_integer(99),
13607 13607 nil)))),
13608 13608 nil)))))))),
13609 13609 cons(cons(cons(new_string("false"),
13610 13610 nil),
13611   -cons(new_integer(301064),
  13611 +cons(new_integer(295688),
13612 13612 cons(cond,
13613   -cons(new_integer(301067),
  13613 +cons(new_integer(295691),
13614 13614 cons(cons(of_type,
13615   -cons(new_integer(301067),
  13615 +cons(new_integer(295691),
13616 13616 cons(new_string("Bool"),
13617 13617 cons(app,
13618   -cons(new_integer(301075),
  13618 +cons(new_integer(295699),
13619 13619 cons(cons(symbol,
13620   -cons(new_integer(301075),
  13620 +cons(new_integer(295699),
13621 13621 new_string("="))),
13622 13622 cons(cons(symbol,
13623   -cons(new_integer(301073),
  13623 +cons(new_integer(295697),
13624 13624 new_string("proto"))),
13625 13625 cons(cons(integer_16,
13626   -cons(new_integer(301082),
  13626 +cons(new_integer(295706),
13627 13627 cons(new_integer(136),
13628 13628 cons(new_integer(100),
13629 13629 nil)))),
13630 13630 nil)))))))),
13631 13631 cons(cons(cons(new_string("false"),
13632 13632 nil),
13633   -cons(new_integer(301320),
  13633 +cons(new_integer(295944),
13634 13634 cons(cond,
13635   -cons(new_integer(301323),
  13635 +cons(new_integer(295947),
13636 13636 cons(cons(of_type,
13637   -cons(new_integer(301323),
  13637 +cons(new_integer(295947),
13638 13638 cons(new_string("Bool"),
13639 13639 cons(app,
13640   -cons(new_integer(301331),
  13640 +cons(new_integer(295955),
13641 13641 cons(cons(symbol,
13642   -cons(new_integer(301331),
  13642 +cons(new_integer(295955),
13643 13643 new_string("="))),
13644 13644 cons(cons(symbol,
13645   -cons(new_integer(301329),
  13645 +cons(new_integer(295953),
13646 13646 new_string("proto"))),
13647 13647 cons(cons(integer_16,
13648   -cons(new_integer(301338),
  13648 +cons(new_integer(295962),
13649 13649 cons(new_integer(136),
13650 13650 cons(new_integer(71),
13651 13651 nil)))),
13652 13652 nil)))))))),
13653 13653 cons(cons(cons(new_string("false"),
13654 13654 nil),
13655   -cons(new_integer(301576),
  13655 +cons(new_integer(296200),
13656 13656 cons(cond,
13657   -cons(new_integer(301579),
  13657 +cons(new_integer(296203),
13658 13658 cons(cons(of_type,
13659   -cons(new_integer(301579),
  13659 +cons(new_integer(296203),
13660 13660 cons(new_string("Bool"),
13661 13661 cons(app,
13662   -cons(new_integer(301587),
  13662 +cons(new_integer(296211),
13663 13663 cons(cons(symbol,
13664   -cons(new_integer(301587),
  13664 +cons(new_integer(296211),
13665 13665 new_string("="))),
13666 13666 cons(cons(symbol,
13667   -cons(new_integer(301585),
  13667 +cons(new_integer(296209),
13668 13668 new_string("proto"))),
13669 13669 cons(cons(integer_16,
13670   -cons(new_integer(301594),
  13670 +cons(new_integer(296218),
13671 13671 cons(new_integer(136),
13672 13672 cons(new_integer(72),
13673 13673 nil)))),
13674 13674 nil)))))))),
13675 13675 cons(cons(cons(new_string("false"),
13676 13676 nil),
13677   -cons(new_integer(301832),
  13677 +cons(new_integer(296456),
13678 13678 cons(cond,
13679   -cons(new_integer(301835),
  13679 +cons(new_integer(296459),
13680 13680 cons(cons(of_type,
13681   -cons(new_integer(301835),
  13681 +cons(new_integer(296459),
13682 13682 cons(new_string("Bool"),
13683 13683 cons(app,
13684   -cons(new_integer(301843),
  13684 +cons(new_integer(296467),
13685 13685 cons(cons(symbol,
13686   -cons(new_integer(301843),
  13686 +cons(new_integer(296467),
13687 13687 new_string("="))),
13688 13688 cons(cons(symbol,
13689   -cons(new_integer(301841),
  13689 +cons(new_integer(296465),
13690 13690 new_string("proto"))),
13691 13691 cons(cons(integer_16,
13692   -cons(new_integer(301850),
  13692 +cons(new_integer(296474),
13693 13693 cons(new_integer(136),
13694 13694 cons(new_integer(76),
13695 13695 nil)))),
13696 13696 nil)))))))),
13697 13697 cons(cons(cons(new_string("false"),
13698 13698 nil),
13699   -cons(new_integer(302088),
  13699 +cons(new_integer(296712),
13700 13700 cons(cond,
13701   -cons(new_integer(302091),
  13701 +cons(new_integer(296715),
13702 13702 cons(cons(of_type,
13703   -cons(new_integer(302091),
  13703 +cons(new_integer(296715),
13704 13704 cons(new_string("Bool"),
13705 13705 cons(app,
13706   -cons(new_integer(302099),
  13706 +cons(new_integer(296723),
13707 13707 cons(cons(symbol,
13708   -cons(new_integer(302099),
  13708 +cons(new_integer(296723),
13709 13709 new_string("="))),
13710 13710 cons(cons(symbol,
13711   -cons(new_integer(302097),
  13711 +cons(new_integer(296721),
13712 13712 new_string("proto"))),
13713 13713 cons(cons(integer_16,
13714   -cons(new_integer(302106),
  13714 +cons(new_integer(296730),
13715 13715 cons(new_integer(136),
13716 13716 cons(new_integer(132),
13717 13717 nil)))),
13718 13718 nil)))))))),
13719 13719 cons(cons(cons(new_string("false"),
13720 13720 nil),
13721   -cons(new_integer(302344),
  13721 +cons(new_integer(296968),
13722 13722 cons(cond,
13723   -cons(new_integer(302347),
  13723 +cons(new_integer(296971),
13724 13724 cons(cons(of_type,
13725   -cons(new_integer(302347),
  13725 +cons(new_integer(296971),
13726 13726 cons(new_string("Bool"),
13727 13727 cons(app,
13728   -cons(new_integer(302355),
  13728 +cons(new_integer(296979),
13729 13729 cons(cons(symbol,
13730   -cons(new_integer(302355),
  13730 +cons(new_integer(296979),
13731 13731 new_string("="))),
13732 13732 cons(cons(symbol,
13733   -cons(new_integer(302353),
  13733 +cons(new_integer(296977),
13734 13734 new_string("proto"))),
13735 13735 cons(cons(integer_16,
13736   -cons(new_integer(302362),
  13736 +cons(new_integer(296986),
13737 13737 cons(new_integer(136),
13738 13738 cons(new_integer(162),
13739 13739 nil)))),
13740 13740 nil)))))))),
13741 13741 cons(cons(cons(new_string("false"),
13742 13742 nil),
13743   -cons(new_integer(302600),
  13743 +cons(new_integer(297224),
13744 13744 cons(cond,
13745   -cons(new_integer(302603),
  13745 +cons(new_integer(297227),
13746 13746 cons(cons(of_type,
13747   -cons(new_integer(302603),
  13747 +cons(new_integer(297227),
13748 13748 cons(new_string("Bool"),
13749 13749 cons(app,
13750   -cons(new_integer(302611),
  13750 +cons(new_integer(297235),
13751 13751 cons(cons(symbol,
13752   -cons(new_integer(302611),
  13752 +cons(new_integer(297235),
13753 13753 new_string("="))),
13754 13754 cons(cons(symbol,
13755   -cons(new_integer(302609),
  13755 +cons(new_integer(297233),
13756 13756 new_string("proto"))),
13757 13757 cons(cons(integer_16,
13758   -cons(new_integer(302618),
  13758 +cons(new_integer(297242),
13759 13759 cons(new_integer(136),
13760 13760 cons(new_integer(202),
13761 13761 nil)))),
13762 13762 nil)))))))),
13763 13763 cons(cons(cons(new_string("false"),
13764 13764 nil),
13765   -cons(new_integer(302856),
  13765 +cons(new_integer(297480),
13766 13766 cons(cond,
13767   -cons(new_integer(302859),
  13767 +cons(new_integer(297483),
13768 13768 cons(cons(of_type,
13769   -cons(new_integer(302859),
  13769 +cons(new_integer(297483),
13770 13770 cons(new_string("Bool"),
13771 13771 cons(app,
13772   -cons(new_integer(302867),
  13772 +cons(new_integer(297491),
13773 13773 cons(cons(symbol,
13774   -cons(new_integer(302867),
  13774 +cons(new_integer(297491),
13775 13775 new_string("="))),
13776 13776 cons(cons(symbol,
13777   -cons(new_integer(302865),
  13777 +cons(new_integer(297489),
13778 13778 new_string("proto"))),
13779 13779 cons(cons(integer_16,
13780   -cons(new_integer(302874),
  13780 +cons(new_integer(297498),
13781 13781 cons(new_integer(0),
13782 13782 cons(new_integer(1),
13783 13783 nil)))),
13784 13784 nil)))))))),
13785 13785 cons(cons(cons(new_string("false"),
13786 13786 nil),
13787   -cons(new_integer(303112),
  13787 +cons(new_integer(297736),
13788 13788 cons(cond,
13789   -cons(new_integer(303115),
  13789 +cons(new_integer(297739),
13790 13790 cons(cons(of_type,
13791   -cons(new_integer(303115),
  13791 +cons(new_integer(297739),
13792 13792 cons(new_string("Bool"),
13793 13793 cons(app,
13794   -cons(new_integer(303123),
  13794 +cons(new_integer(297747),
13795 13795 cons(cons(symbol,
13796   -cons(new_integer(303123),
  13796 +cons(new_integer(297747),
13797 13797 new_string("="))),
13798 13798 cons(cons(symbol,
13799   -cons(new_integer(303121),
  13799 +cons(new_integer(297745),
13800 13800 new_string("proto"))),
13801 13801 cons(cons(integer_16,
13802   -cons(new_integer(303130),
  13802 +cons(new_integer(297754),
13803 13803 cons(new_integer(0),
13804 13804 cons(new_integer(2),
13805 13805 nil)))),
13806 13806 nil)))))))),
13807 13807 cons(cons(cons(new_string("false"),
13808 13808 nil),
13809   -cons(new_integer(303368),
  13809 +cons(new_integer(297992),
13810 13810 cons(cond,
13811   -cons(new_integer(303371),
  13811 +cons(new_integer(297995),
13812 13812 cons(cons(of_type,
13813   -cons(new_integer(303371),
  13813 +cons(new_integer(297995),
13814 13814 cons(new_string("Bool"),
13815 13815 cons(app,
13816   -cons(new_integer(303379),
  13816 +cons(new_integer(298003),
13817 13817 cons(cons(symbol,
13818   -cons(new_integer(303379),
  13818 +cons(new_integer(298003),
13819 13819 new_string("="))),
13820 13820 cons(cons(symbol,
13821   -cons(new_integer(303377),
  13821 +cons(new_integer(298001),
13822 13822 new_string("proto"))),
13823 13823 cons(cons(integer_16,
13824   -cons(new_integer(303386),
  13824 +cons(new_integer(298010),
13825 13825 cons(new_integer(0),
13826 13826 cons(new_integer(4),
13827 13827 nil)))),
13828 13828 nil)))))))),
13829 13829 cons(cons(cons(new_string("false"),
13830 13830 nil),
13831   -cons(new_integer(303624),
  13831 +cons(new_integer(298248),
13832 13832 cons(cond,
13833   -cons(new_integer(303627),
  13833 +cons(new_integer(298251),
13834 13834 cons(cons(of_type,
13835   -cons(new_integer(303627),
  13835 +cons(new_integer(298251),
13836 13836 cons(new_string("Bool"),
13837 13837 cons(app,
13838   -cons(new_integer(303635),
  13838 +cons(new_integer(298259),
13839 13839 cons(cons(symbol,
13840   -cons(new_integer(303635),
  13840 +cons(new_integer(298259),
13841 13841 new_string("="))),
13842 13842 cons(cons(symbol,
13843   -cons(new_integer(303633),
  13843 +cons(new_integer(298257),
13844 13844 new_string("proto"))),
13845 13845 cons(cons(integer_16,
13846   -cons(new_integer(303642),
  13846 +cons(new_integer(298266),
13847 13847 cons(new_integer(0),
13848 13848 cons(new_integer(17),
13849 13849 nil)))),
13850 13850 nil)))))))),
13851 13851 cons(cons(cons(new_string("false"),
13852 13852 nil),
13853   -cons(new_integer(303880),
  13853 +cons(new_integer(298504),
13854 13854 cons(symbol,
13855   -cons(new_integer(303890),
  13855 +cons(new_integer(298514),
13856 13856 new_string("eth_p_all"))))),
13857 13857 cons(cons(cons(new_string("true"),
13858 13858 nil),
13859   -cons(new_integer(303647),
  13859 +cons(new_integer(298271),
13860 13860 cons(symbol,
13861   -cons(new_integer(303662),
  13861 +cons(new_integer(298286),
13862 13862 new_string("eth_h_tr_802_2"))))),
13863 13863 nil))))))),
13864 13864 cons(cons(cons(new_string("true"),
13865 13865 nil),
13866   -cons(new_integer(303391),
  13866 +cons(new_integer(298015),
13867 13867 cons(symbol,
13868   -cons(new_integer(303403),
  13868 +cons(new_integer(298027),
13869 13869 new_string("eth_h_802_2"))))),
13870 13870 nil))))))),
13871 13871 cons(cons(cons(new_string("true"),
13872 13872 nil),
13873   -cons(new_integer(303135),
  13873 +cons(new_integer(297759),
13874 13874 cons(symbol,
13875   -cons(new_integer(303146),
  13875 +cons(new_integer(297770),
13876 13876 new_string("eth_p_ax25"))))),
13877 13877 nil))))))),
13878 13878 cons(cons(cons(new_string("true"),
13879 13879 nil),
13880   -cons(new_integer(302879),
  13880 +cons(new_integer(297503),
13881 13881 cons(symbol,
13882   -cons(new_integer(302891),
  13882 +cons(new_integer(297515),
13883 13883 new_string("eth_p_802_3"))))),
13884 13884 nil))))))),
13885 13885 cons(cons(cons(new_string("true"),
13886 13886 nil),
13887   -cons(new_integer(302623),
  13887 +cons(new_integer(297247),
13888 13888 cons(symbol,
13889   -cons(new_integer(302634),
  13889 +cons(new_integer(297258),
13890 13890 new_string("eth_p_tipc"))))),
13891 13891 nil))))))),
13892 13892 cons(cons(cons(new_string("true"),
13893 13893 nil),
13894   -cons(new_integer(302367),
  13894 +cons(new_integer(296991),
13895 13895 cons(symbol,
13896   -cons(new_integer(302377),
  13896 +cons(new_integer(297001),
13897 13897 new_string("eth_p_aoe"))))),
13898 13898 nil))))))),
13899 13899 cons(cons(cons(new_string("true"),
13900 13900 nil),
13901   -cons(new_integer(302111),
  13901 +cons(new_integer(296735),
13902 13902 cons(symbol,
13903   -cons(new_integer(302125),
  13903 +cons(new_integer(296749),
13904 13904 new_string("eth_p_atmfate"))))),
13905 13905 nil))))))),
13906 13906 cons(cons(cons(new_string("true"),
13907 13907 nil),
13908   -cons(new_integer(301855),
  13908 +cons(new_integer(296479),
13909 13909 cons(symbol,
13910   -cons(new_integer(301869),
  13910 +cons(new_integer(296493),
13911 13911 new_string("eth_p_atmmpoa"))))),
13912 13912 nil))))))),
13913 13913 cons(cons(cons(new_string("true"),
13914 13914 nil),
13915   -cons(new_integer(301599),
  13915 +cons(new_integer(296223),
13916 13916 cons(symbol,
13917   -cons(new_integer(301613),
  13917 +cons(new_integer(296237),
13918 13918 new_string("eth_p_mpls_mc"))))),
13919 13919 nil))))))),
13920 13920 cons(cons(cons(new_string("true"),
13921 13921 nil),
13922   -cons(new_integer(301343),
  13922 +cons(new_integer(295967),
13923 13923 cons(symbol,
13924   -cons(new_integer(301357),
  13924 +cons(new_integer(295981),
13925 13925 new_string("eth_p_mpls_uc"))))),
13926 13926 nil))))))),
13927 13927 cons(cons(cons(new_string("true"),
13928 13928 nil),
13929   -cons(new_integer(301087),
  13929 +cons(new_integer(295711),
13930 13930 cons(symbol,
13931   -cons(new_integer(301101),
  13931 +cons(new_integer(295725),
13932 13932 new_string("eth_p_ppp_ses"))))),
13933 13933 nil))))))),
13934 13934 cons(cons(cons(new_string("true"),
13935 13935 nil),
13936   -cons(new_integer(300831),
  13936 +cons(new_integer(295455),
13937 13937 cons(symbol,
13938   -cons(new_integer(300846),
  13938 +cons(new_integer(295470),
13939 13939 new_string("eth_p_ppp_disc"))))),
13940 13940 nil))))))),
13941 13941 cons(cons(cons(new_string("true"),
13942 13942 nil),
13943   -cons(new_integer(300575),
  13943 +cons(new_integer(295199),
13944 13944 cons(symbol,
13945   -cons(new_integer(300586),
  13945 +cons(new_integer(295210),
13946 13946 new_string("eth_p_ipv6"))))),
13947 13947 nil))))))),
13948 13948 cons(cons(cons(new_string("true"),
13949 13949 nil),
13950   -cons(new_integer(300319),
  13950 +cons(new_integer(294943),
13951 13951 cons(symbol,
13952   -cons(new_integer(300329),
  13952 +cons(new_integer(294953),
13953 13953 new_string("eth_p_ipx"))))),
13954 13954 nil))))))),
13955 13955 cons(cons(cons(new_string("true"),
13956 13956 nil),
13957   -cons(new_integer(300063),
  13957 +cons(new_integer(294687),
13958 13958 cons(symbol,
13959   -cons(new_integer(300075),
  13959 +cons(new_integer(294699),
13960 13960 new_string("eth_p_8021Q"))))),
13961 13961 nil))))))),
13962 13962 cons(cons(cons(new_string("true"),
13963 13963 nil),
13964   -cons(new_integer(299807),
  13964 +cons(new_integer(294431),
13965 13965 cons(symbol,
13966   -cons(new_integer(299818),
  13966 +cons(new_integer(294442),
13967 13967 new_string("eth_p_rarp"))))),
13968 13968 nil))))))),
13969 13969 cons(cons(cons(new_string("true"),
13970 13970 nil),
13971   -cons(new_integer(299551),
  13971 +cons(new_integer(294175),
13972 13972 cons(symbol,
13973   -cons(new_integer(299561),
  13973 +cons(new_integer(294185),
13974 13974 new_string("eth_p_arp"))))),
13975 13975 nil))))))),
13976 13976 cons(cons(cons(new_string("true"),
13977 13977 nil),
13978   -cons(new_integer(299295),
  13978 +cons(new_integer(293919),
13979 13979 cons(symbol,
13980   -cons(new_integer(299304),
  13980 +cons(new_integer(293928),
13981 13981 new_string("eth_p_ip"))))),
13982 13982 nil))))))),
13983 13983 cons(cons(cons(new_string("true"),
13984 13984 nil),
13985   -cons(new_integer(299039),
  13985 +cons(new_integer(293663),
13986 13986 cons(symbol,
13987   -cons(new_integer(299050),
  13987 +cons(new_integer(293674),
13988 13988 new_string("eth_p_loop"))))),
13989 13989 nil))))))),
13990 13990 cons(cons(cons(new_string("true"),
13991 13991 nil),
13992   -cons(new_integer(298778),
  13992 +cons(new_integer(293402),
13993 13993 cons(symbol,
13994   -cons(new_integer(298788),
  13994 +cons(new_integer(293412),
13995 13995 new_string("eth_p_all"))))),
13996 13996 nil))))));
13997 13997  
13998   -new_op_scheme(609294,0,
  13998 +new_op_scheme(598542,0,
13999 13999 cons(app_ts,
14000 14000 cons(new_string("Result"),
14001 14001 cons(new_string("SocketError"),
... ... @@ -14012,11 +14012,11 @@ cons(cons(new_string(&quot;Word32&quot;),
14012 14012 new_string("protocol")),
14013 14013 nil))),
14014 14014 cons(avm,
14015   -cons(new_integer(306440),
  14015 +cons(new_integer(301064),
14016 14016 cons(bsd_create_socket,
14017 14017 nil))));
14018 14018  
14019   -new_op_scheme(613902,0,
  14019 +new_op_scheme(603150,0,
14020 14020 cons(app_ts,
14021 14021 cons(new_string("Result"),
14022 14022 cons(new_string("SocketOptionError"),
... ... @@ -14031,11 +14031,11 @@ cons(cons(new_string(&quot;SocketOption&quot;),
14031 14031 new_string("option")),
14032 14032 nil)),
14033 14033 cons(avm,
14034   -cons(new_integer(308488),
  14034 +cons(new_integer(303112),
14035 14035 cons(bsd_setsockopt,
14036 14036 nil))));
14037 14037  
14038   -new_op_scheme(617998,0,
  14038 +new_op_scheme(607246,0,
14039 14039 cons(app_ts,
14040 14040 cons(new_string("Result"),
14041 14041 cons(new_string("SocketOptionError"),
... ... @@ -14050,11 +14050,11 @@ cons(cons(new_string(&quot;£SocketOptionEnum&quot;),
14050 14050 new_string("option")),
14051 14051 nil)),
14052 14052 cons(avm,
14053   -cons(new_integer(310536),
  14053 +cons(new_integer(305160),
14054 14054 cons(bsd_getsockopt,
14055 14055 nil))));
14056 14056  
14057   -new_op_scheme(622094,0,
  14057 +new_op_scheme(611342,0,
14058 14058 cons(app_ts,
14059 14059 cons(new_string("Result"),
14060 14060 cons(new_string("BindError"),
... ... @@ -14069,11 +14069,11 @@ cons(cons(new_string(&quot;£SocketAddr&quot;),
14069 14069 new_string("sockname")),
14070 14070 nil)),
14071 14071 cons(avm,
14072   -cons(new_integer(312584),
  14072 +cons(new_integer(307208),
14073 14073 cons(bsd_bind,
14074 14074 nil))));
14075 14075  
14076   -new_op_scheme(626190,0,
  14076 +new_op_scheme(615438,0,
14077 14077 cons(app_ts,
14078 14078 cons(new_string("Result"),
14079 14079 cons(new_string("RecvError"),
... ... @@ -14096,11 +14096,11 @@ cons(cons(new_string(&quot;RecvFlags&quot;),
14096 14096 new_string("flags")),
14097 14097 nil)))),
14098 14098 cons(avm,
14099   -cons(new_integer(315400),
  14099 +cons(new_integer(310024),
14100 14100 cons(bsd_recvfrom,
14101 14101 nil))));
14102 14102  
14103   -new_op_scheme(631822,0,
  14103 +new_op_scheme(621070,0,
14104 14104 cons(app_ts,
14105 14105 cons(new_string("Result"),
14106 14106 cons(new_string("SendError"),
... ... @@ -14119,11 +14119,11 @@ cons(cons(new_string(&quot;SendFlags&quot;),
14119 14119 new_string("flags")),
14120 14120 nil)))),
14121 14121 cons(avm,
14122   -cons(new_integer(317960),
  14122 +cons(new_integer(312584),
14123 14123 cons(bsd_sendto,
14124 14124 nil))));
14125 14125  
14126   -new_type_scheme(639512,0,
  14126 +new_type_scheme(628760,0,
14127 14127 new_string("RecvFlags"),
14128 14128 nil,
14129 14129 cons(cons(cons(new_string("recv_flags"),
... ... @@ -14133,7 +14133,7 @@ noname),
14133 14133 nil)),
14134 14134 nil),0,1);
14135 14135  
14136   -new_type_scheme(640024,0,
  14136 +new_type_scheme(629272,0,
14137 14137 new_string("SendFlags"),
14138 14138 nil,
14139 14139 cons(cons(cons(new_string("send_flags"),
... ... @@ -14143,133 +14143,133 @@ noname),
14143 14143 nil)),
14144 14144 nil),0,1);
14145 14145  
14146   -new_op_scheme(641052,1,
  14146 +new_op_scheme(630300,1,
14147 14147 new_string("SendFlags"),
14148 14148 cons(new_string("no_flag"),
14149 14149 nil),
14150 14150 nil,
14151 14151 cons(app,
14152   -cons(new_integer(320568),
  14152 +cons(new_integer(315192),
14153 14153 cons(cons(symbol,
14154   -cons(new_integer(320567),
  14154 +cons(new_integer(315191),
14155 14155 new_string("send_flags"))),
14156 14156 cons(cons(integer_10,
14157   -cons(new_integer(320569),
  14157 +cons(new_integer(315193),
14158 14158 nil)),
14159 14159 nil)))));
14160 14160  
14161   -new_op_scheme(641564,1,
  14161 +new_op_scheme(630812,1,
14162 14162 new_string("SendFlags"),
14163 14163 cons(new_string("msg_dontroute"),
14164 14164 nil),
14165 14165 nil,
14166 14166 cons(app,
14167   -cons(new_integer(320824),
  14167 +cons(new_integer(315448),
14168 14168 cons(cons(symbol,
14169   -cons(new_integer(320823),
  14169 +cons(new_integer(315447),
14170 14170 new_string("send_flags"))),
14171 14171 cons(cons(integer_10,
14172   -cons(new_integer(320825),
  14172 +cons(new_integer(315449),
14173 14173 cons(new_integer(1),
14174 14174 nil))),
14175 14175 nil)))));
14176 14176  
14177   -new_op_scheme(642076,1,
  14177 +new_op_scheme(631324,1,
14178 14178 new_string("SendFlags"),
14179 14179 cons(new_string("msg_more"),
14180 14180 nil),
14181 14181 nil,
14182 14182 cons(app,
14183   -cons(new_integer(321080),
  14183 +cons(new_integer(315704),
14184 14184 cons(cons(symbol,
14185   -cons(new_integer(321079),
  14185 +cons(new_integer(315703),
14186 14186 new_string("send_flags"))),
14187 14187 cons(cons(integer_10,
14188   -cons(new_integer(321081),
  14188 +cons(new_integer(315705),
14189 14189 cons(new_integer(2),
14190 14190 nil))),
14191 14191 nil)))));
14192 14192  
14193   -new_op_scheme(642588,1,
  14193 +new_op_scheme(631836,1,
14194 14194 new_string("SendFlags"),
14195 14195 cons(new_string("msg_nosignal"),
14196 14196 nil),
14197 14197 nil,
14198 14198 cons(app,
14199   -cons(new_integer(321336),
  14199 +cons(new_integer(315960),
14200 14200 cons(cons(symbol,
14201   -cons(new_integer(321335),
  14201 +cons(new_integer(315959),
14202 14202 new_string("send_flags"))),
14203 14203 cons(cons(integer_10,
14204   -cons(new_integer(321337),
  14204 +cons(new_integer(315961),
14205 14205 cons(new_integer(4),
14206 14206 nil))),
14207 14207 nil)))));
14208 14208  
14209   -new_op_scheme(643100,1,
  14209 +new_op_scheme(632348,1,
14210 14210 new_string("SendFlags"),
14211 14211 cons(new_string("msg_out_of_band"),
14212 14212 nil),
14213 14213 nil,
14214 14214 cons(app,
14215   -cons(new_integer(321592),
  14215 +cons(new_integer(316216),
14216 14216 cons(cons(symbol,
14217   -cons(new_integer(321591),
  14217 +cons(new_integer(316215),
14218 14218 new_string("send_flags"))),
14219 14219 cons(cons(integer_10,
14220   -cons(new_integer(321593),
  14220 +cons(new_integer(316217),
14221 14221 cons(new_integer(8),
14222 14222 nil))),
14223 14223 nil)))));
14224 14224  
14225   -new_op_scheme(644124,1,
  14225 +new_op_scheme(633372,1,
14226 14226 new_string("RecvFlags"),
14227 14227 cons(new_string("no_flag"),
14228 14228 nil),
14229 14229 nil,
14230 14230 cons(app,
14231   -cons(new_integer(322104),
  14231 +cons(new_integer(316728),
14232 14232 cons(cons(symbol,
14233   -cons(new_integer(322103),
  14233 +cons(new_integer(316727),
14234 14234 new_string("recv_flags"))),
14235 14235 cons(cons(integer_10,
14236   -cons(new_integer(322105),
  14236 +cons(new_integer(316729),
14237 14237 nil)),
14238 14238 nil)))));
14239 14239  
14240   -new_op_scheme(644636,1,
  14240 +new_op_scheme(633884,1,
14241 14241 new_string("RecvFlags"),
14242 14242 cons(new_string("msg_peek"),
14243 14243 nil),
14244 14244 nil,
14245 14245 cons(app,
14246   -cons(new_integer(322360),
  14246 +cons(new_integer(316984),
14247 14247 cons(cons(symbol,
14248   -cons(new_integer(322359),
  14248 +cons(new_integer(316983),
14249 14249 new_string("recv_flags"))),
14250 14250 cons(cons(integer_10,
14251   -cons(new_integer(322361),
  14251 +cons(new_integer(316985),
14252 14252 cons(new_integer(1),
14253 14253 nil))),
14254 14254 nil)))));
14255 14255  
14256   -new_op_scheme(645148,1,
  14256 +new_op_scheme(634396,1,
14257 14257 new_string("RecvFlags"),
14258 14258 cons(new_string("msg_out_of_band"),
14259 14259 nil),
14260 14260 nil,
14261 14261 cons(app,
14262   -cons(new_integer(322616),
  14262 +cons(new_integer(317240),
14263 14263 cons(cons(symbol,
14264   -cons(new_integer(322615),
  14264 +cons(new_integer(317239),
14265 14265 new_string("recv_flags"))),
14266 14266 cons(cons(integer_10,
14267   -cons(new_integer(322617),
  14267 +cons(new_integer(317241),
14268 14268 cons(new_integer(2),
14269 14269 nil))),
14270 14270 nil)))));
14271 14271  
14272   -new_op_scheme(646172,1,
  14272 +new_op_scheme(635420,1,
14273 14273 new_string("RecvFlags"),
14274 14274 cons(new_string("|"),
14275 14275 nil),
... ... @@ -14279,12 +14279,12 @@ cons(cons(new_string(&quot;RecvFlags&quot;),
14279 14279 new_string("y")),
14280 14280 nil)),
14281 14281 cons(avm,
14282   -cons(new_integer(323129),
  14282 +cons(new_integer(317753),
14283 14283 cons(cons(bit_or,
14284 14284 new_integer(8)),
14285 14285 nil))));
14286 14286  
14287   -new_op_scheme(646684,1,
  14287 +new_op_scheme(635932,1,
14288 14288 new_string("SendFlags"),
14289 14289 cons(new_string("|"),
14290 14290 nil),
... ... @@ -14294,12 +14294,12 @@ cons(cons(new_string(&quot;SendFlags&quot;),
14294 14294 new_string("y")),
14295 14295 nil)),
14296 14296 cons(avm,
14297   -cons(new_integer(323385),
  14297 +cons(new_integer(318009),
14298 14298 cons(cons(bit_or,
14299 14299 new_integer(8)),
14300 14300 nil))));
14301 14301  
14302   -new_op_scheme(650268,1,
  14302 +new_op_scheme(639516,1,
14303 14303 new_string("PhysicalAddress"),
14304 14304 cons(new_string("mac_address"),
14305 14305 nil),
... ... @@ -14317,74 +14317,74 @@ cons(cons(new_string(&quot;Word8&quot;),
14317 14317 new_string("b5")),
14318 14318 nil)))))),
14319 14319 cons(app,
14320   -cons(new_integer(325908),
  14320 +cons(new_integer(320532),
14321 14321 cons(cons(symbol,
14322   -cons(new_integer(325907),
  14322 +cons(new_integer(320531),
14323 14323 new_string("physical_address"))),
14324 14324 cons(cons(integer_10,
14325   -cons(new_integer(325909),
  14325 +cons(new_integer(320533),
14326 14326 cons(new_integer(6),
14327 14327 nil))),
14328 14328 cons(cons(app,
14329   -cons(new_integer(326171),
  14329 +cons(new_integer(320795),
14330 14330 cons(cons(symbol,
14331   -cons(new_integer(326170),
  14331 +cons(new_integer(320794),
14332 14332 new_string("word64"))),
14333 14333 cons(cons(app,
14334   -cons(new_integer(326178),
  14334 +cons(new_integer(320802),
14335 14335 cons(cons(symbol,
14336   -cons(new_integer(326177),
  14336 +cons(new_integer(320801),
14337 14337 new_string("word32"))),
14338 14338 cons(cons(app,
14339   -cons(new_integer(326185),
  14339 +cons(new_integer(320809),
14340 14340 cons(cons(symbol,
14341   -cons(new_integer(326184),
  14341 +cons(new_integer(320808),
14342 14342 new_string("word16"))),
14343 14343 cons(cons(symbol,
14344   -cons(new_integer(326187),
  14344 +cons(new_integer(320811),
14345 14345 new_string("b0"))),
14346 14346 cons(cons(symbol,
14347   -cons(new_integer(326191),
  14347 +cons(new_integer(320815),
14348 14348 new_string("b1"))),
14349 14349 nil))))),
14350 14350 cons(cons(app,
14351   -cons(new_integer(326201),
  14351 +cons(new_integer(320825),
14352 14352 cons(cons(symbol,
14353   -cons(new_integer(326200),
  14353 +cons(new_integer(320824),
14354 14354 new_string("word16"))),
14355 14355 cons(cons(symbol,
14356   -cons(new_integer(326203),
  14356 +cons(new_integer(320827),
14357 14357 new_string("b2"))),
14358 14358 cons(cons(symbol,
14359   -cons(new_integer(326207),
  14359 +cons(new_integer(320831),
14360 14360 new_string("b3"))),
14361 14361 nil))))),
14362 14362 nil))))),
14363 14363 cons(cons(app,
14364   -cons(new_integer(326218),
  14364 +cons(new_integer(320842),
14365 14365 cons(cons(symbol,
14366   -cons(new_integer(326217),
  14366 +cons(new_integer(320841),
14367 14367 new_string("word32"))),
14368 14368 cons(cons(app,
14369   -cons(new_integer(326225),
  14369 +cons(new_integer(320849),
14370 14370 cons(cons(symbol,
14371   -cons(new_integer(326224),
  14371 +cons(new_integer(320848),
14372 14372 new_string("word16"))),
14373 14373 cons(cons(symbol,
14374   -cons(new_integer(326227),
  14374 +cons(new_integer(320851),
14375 14375 new_string("b4"))),
14376 14376 cons(cons(symbol,
14377   -cons(new_integer(326231),
  14377 +cons(new_integer(320855),
14378 14378 new_string("b5"))),
14379 14379 nil))))),
14380 14380 cons(cons(integer_10,
14381   -cons(new_integer(326235),
  14381 +cons(new_integer(320859),
14382 14382 nil)),
14383 14383 nil))))),
14384 14384 nil))))),
14385 14385 nil))))));
14386 14386  
14387   -new_op_scheme(653340,1,
  14387 +new_op_scheme(642588,1,
14388 14388 new_string("PhysicalAddress"),
14389 14389 cons(new_string("generic_address"),
14390 14390 nil),
... ... @@ -14406,83 +14406,83 @@ cons(cons(new_string(&quot;Word8&quot;),
14406 14406 new_string("b7")),
14407 14407 nil)))))))),
14408 14408 cons(app,
14409   -cons(new_integer(327444),
  14409 +cons(new_integer(322068),
14410 14410 cons(cons(symbol,
14411   -cons(new_integer(327443),
  14411 +cons(new_integer(322067),
14412 14412 new_string("physical_address"))),
14413 14413 cons(cons(integer_10,
14414   -cons(new_integer(327445),
  14414 +cons(new_integer(322069),
14415 14415 cons(new_integer(8),
14416 14416 nil))),
14417 14417 cons(cons(app,
14418   -cons(new_integer(327707),
  14418 +cons(new_integer(322331),
14419 14419 cons(cons(symbol,
14420   -cons(new_integer(327706),
  14420 +cons(new_integer(322330),
14421 14421 new_string("word64"))),
14422 14422 cons(cons(app,
14423   -cons(new_integer(327714),
  14423 +cons(new_integer(322338),
14424 14424 cons(cons(symbol,
14425   -cons(new_integer(327713),
  14425 +cons(new_integer(322337),
14426 14426 new_string("word32"))),
14427 14427 cons(cons(app,
14428   -cons(new_integer(327721),
  14428 +cons(new_integer(322345),
14429 14429 cons(cons(symbol,
14430   -cons(new_integer(327720),
  14430 +cons(new_integer(322344),
14431 14431 new_string("word16"))),
14432 14432 cons(cons(symbol,
14433   -cons(new_integer(327723),
  14433 +cons(new_integer(322347),
14434 14434 new_string("b0"))),
14435 14435 cons(cons(symbol,
14436   -cons(new_integer(327727),
  14436 +cons(new_integer(322351),
14437 14437 new_string("b1"))),
14438 14438 nil))))),
14439 14439 cons(cons(app,
14440   -cons(new_integer(327737),
  14440 +cons(new_integer(322361),
14441 14441 cons(cons(symbol,
14442   -cons(new_integer(327736),
  14442 +cons(new_integer(322360),
14443 14443 new_string("word16"))),
14444 14444 cons(cons(symbol,
14445   -cons(new_integer(327739),
  14445 +cons(new_integer(322363),
14446 14446 new_string("b2"))),
14447 14447 cons(cons(symbol,
14448   -cons(new_integer(327743),
  14448 +cons(new_integer(322367),
14449 14449 new_string("b3"))),
14450 14450 nil))))),
14451 14451 nil))))),
14452 14452 cons(cons(app,
14453   -cons(new_integer(327754),
  14453 +cons(new_integer(322378),
14454 14454 cons(cons(symbol,
14455   -cons(new_integer(327753),
  14455 +cons(new_integer(322377),
14456 14456 new_string("word32"))),
14457 14457 cons(cons(app,
14458   -cons(new_integer(327761),
  14458 +cons(new_integer(322385),
14459 14459 cons(cons(symbol,
14460   -cons(new_integer(327760),
  14460 +cons(new_integer(322384),
14461 14461 new_string("word16"))),
14462 14462 cons(cons(symbol,
14463   -cons(new_integer(327763),
  14463 +cons(new_integer(322387),
14464 14464 new_string("b4"))),
14465 14465 cons(cons(symbol,
14466   -cons(new_integer(327767),
  14466 +cons(new_integer(322391),
14467 14467 new_string("b5"))),
14468 14468 nil))))),
14469 14469 cons(cons(app,
14470   -cons(new_integer(327777),
  14470 +cons(new_integer(322401),
14471 14471 cons(cons(symbol,
14472   -cons(new_integer(327776),
  14472 +cons(new_integer(322400),
14473 14473 new_string("word16"))),
14474 14474 cons(cons(symbol,
14475   -cons(new_integer(327779),
  14475 +cons(new_integer(322403),
14476 14476 new_string("b6"))),
14477 14477 cons(cons(symbol,
14478   -cons(new_integer(327783),
  14478 +cons(new_integer(322407),
14479 14479 new_string("b7"))),
14480 14480 nil))))),
14481 14481 nil))))),
14482 14482 nil))))),
14483 14483 nil))))));
14484 14484  
14485   -new_op_scheme(656910,0,
  14485 +new_op_scheme(646158,0,
14486 14486 cons(app_ts,
14487 14487 cons(new_string("Result"),
14488 14488 cons(new_string("SocketOptionError"),
... ... @@ -14500,74 +14500,74 @@ nil))),
14500 14500 new_string("options")),
14501 14501 nil)),
14502 14502 cons(cond,
14503   -cons(new_integer(329989),
  14503 +cons(new_integer(324613),
14504 14504 cons(cons(symbol,
14505   -cons(new_integer(329997),
  14505 +cons(new_integer(324621),
14506 14506 new_string("options"))),
14507 14507 cons(cons(cons(new_string("[]"),
14508 14508 nil),
14509   -cons(new_integer(330508),
  14509 +cons(new_integer(325132),
14510 14510 cons(app,
14511   -cons(new_integer(330512),
  14511 +cons(new_integer(325136),
14512 14512 cons(cons(symbol,
14513   -cons(new_integer(330511),
  14513 +cons(new_integer(325135),
14514 14514 new_string("ok"))),
14515 14515 cons(cons(symbol,
14516   -cons(new_integer(330518),
  14516 +cons(new_integer(325142),
14517 14517 new_string("unique"))),
14518 14518 nil)))))),
14519 14519 cons(cons(cons(new_string("[.]"),
14520 14520 cons(new_string("h"),
14521 14521 cons(new_string("t"),
14522 14522 nil))),
14523   -cons(new_integer(330769),
  14523 +cons(new_integer(325393),
14524 14524 cons(cond,
14525   -cons(new_integer(331017),
  14525 +cons(new_integer(325641),
14526 14526 cons(cons(app,
14527   -cons(new_integer(331034),
  14527 +cons(new_integer(325658),
14528 14528 cons(cons(symbol,
14529   -cons(new_integer(331033),
  14529 +cons(new_integer(325657),
14530 14530 new_string("£bsd_setsockopt"))),
14531 14531 cons(cons(symbol,
14532   -cons(new_integer(331038),
  14532 +cons(new_integer(325662),
14533 14533 new_string("sock"))),
14534 14534 cons(cons(symbol,
14535   -cons(new_integer(331041),
  14535 +cons(new_integer(325665),
14536 14536 new_string("h"))),
14537 14537 nil))))),
14538 14538 cons(cons(cons(new_string("error"),
14539 14539 cons(new_string("e"),
14540 14540 nil)),
14541   -cons(new_integer(331543),
  14541 +cons(new_integer(326167),
14542 14542 cons(app,
14543   -cons(new_integer(331550),
  14543 +cons(new_integer(326174),
14544 14544 cons(cons(symbol,
14545   -cons(new_integer(331549),
  14545 +cons(new_integer(326173),
14546 14546 new_string("error"))),
14547 14547 cons(cons(symbol,
14548   -cons(new_integer(331551),
  14548 +cons(new_integer(326175),
14549 14549 new_string("e"))),
14550 14550 nil)))))),
14551 14551 cons(cons(cons(new_string("ok"),
14552 14552 cons(new_string("_"),
14553 14553 nil)),
14554   -cons(new_integer(331799),
  14554 +cons(new_integer(326423),
14555 14555 cons(app,
14556   -cons(new_integer(331822),
  14556 +cons(new_integer(326446),
14557 14557 cons(cons(symbol,
14558   -cons(new_integer(331821),
  14558 +cons(new_integer(326445),
14559 14559 new_string("£apply_socket_options"))),
14560 14560 cons(cons(symbol,
14561   -cons(new_integer(331826),
  14561 +cons(new_integer(326450),
14562 14562 new_string("sock"))),
14563 14563 cons(cons(symbol,
14564   -cons(new_integer(331829),
  14564 +cons(new_integer(326453),
14565 14565 new_string("t"))),
14566 14566 nil))))))),
14567 14567 nil))))))),
14568 14568 nil))))));
14569 14569  
14570   -new_op_scheme(665614,0,
  14570 +new_op_scheme(654862,0,
14571 14571 cons(app_ts,
14572 14572 cons(new_string("Result"),
14573 14573 cons(new_string("CreateSocketError"),
... ... @@ -14591,57 +14591,57 @@ nil))),
14591 14591 new_string("mb_addr")),
14592 14592 nil)))),
14593 14593 cons(with,
14594   -cons(new_integer(334867),
  14594 +cons(new_integer(329491),
14595 14595 cons(new_string("sock_type"),
14596 14596 cons(cons(of_type,
14597   -cons(new_integer(334869),
  14597 +cons(new_integer(329493),
14598 14598 cons(new_string("£AllSocketType"),
14599 14599 cons(cond,
14600   -cons(new_integer(334886),
  14600 +cons(new_integer(329510),
14601 14601 cons(cons(symbol,
14602   -cons(new_integer(334891),
  14602 +cons(new_integer(329515),
14603 14603 new_string("type"))),
14604 14604 cons(cons(cons(new_string("sock_raw"),
14605 14605 nil),
14606   -cons(new_integer(335402),
  14606 +cons(new_integer(330026),
14607 14607 cons(symbol,
14608   -cons(new_integer(335411),
  14608 +cons(new_integer(330035),
14609 14609 new_string("sock_raw"))))),
14610 14610 cons(cons(cons(new_string("sock_dgram"),
14611 14611 nil),
14612   -cons(new_integer(335658),
  14612 +cons(new_integer(330282),
14613 14613 cons(symbol,
14614   -cons(new_integer(335669),
  14614 +cons(new_integer(330293),
14615 14615 new_string("sock_dgram"))))),
14616 14616 nil)))))))),
14617 14617 cons(cond,
14618   -cons(new_integer(336133),
  14618 +cons(new_integer(330757),
14619 14619 cons(cons(app,
14620   -cons(new_integer(336153),
  14620 +cons(new_integer(330777),
14621 14621 cons(cons(symbol,
14622   -cons(new_integer(336152),
  14622 +cons(new_integer(330776),
14623 14623 new_string("£bsd_create_socket"))),
14624 14624 cons(cons(symbol,
14625   -cons(new_integer(336162),
  14625 +cons(new_integer(330786),
14626 14626 new_string("af_packet"))),
14627 14627 cons(cons(symbol,
14628   -cons(new_integer(336173),
  14628 +cons(new_integer(330797),
14629 14629 new_string("sock_type"))),
14630 14630 cons(cons(app,
14631   -cons(new_integer(336182),
  14631 +cons(new_integer(330806),
14632 14632 cons(cons(symbol,
14633   -cons(new_integer(336181),
  14633 +cons(new_integer(330805),
14634 14634 new_string("word32"))),
14635 14635 cons(cons(integer_10,
14636   -cons(new_integer(336183),
  14636 +cons(new_integer(330807),
14637 14637 nil)),
14638 14638 cons(cons(app,
14639   -cons(new_integer(336208),
  14639 +cons(new_integer(330832),
14640 14640 cons(cons(symbol,
14641   -cons(new_integer(336207),
  14641 +cons(new_integer(330831),
14642 14642 new_string("£socket_proto_to_value"))),
14643 14643 cons(cons(symbol,
14644   -cons(new_integer(336213),
  14644 +cons(new_integer(330837),
14645 14645 new_string("proto"))),
14646 14646 nil)))),
14647 14647 nil))))),
... ... @@ -14649,179 +14649,179 @@ nil)))))),
14649 14649 cons(cons(cons(new_string("error"),
14650 14650 cons(new_string("e"),
14651 14651 nil)),
14652   -cons(new_integer(336658),
  14652 +cons(new_integer(331282),
14653 14653 cons(app,
14654   -cons(new_integer(336665),
  14654 +cons(new_integer(331289),
14655 14655 cons(cons(symbol,
14656   -cons(new_integer(336664),
  14656 +cons(new_integer(331288),
14657 14657 new_string("error"))),
14658 14658 cons(cons(app,
14659   -cons(new_integer(336678),
  14659 +cons(new_integer(331302),
14660 14660 cons(cons(symbol,
14661   -cons(new_integer(336677),
  14661 +cons(new_integer(331301),
14662 14662 new_string("socket_error"))),
14663 14663 cons(cons(symbol,
14664   -cons(new_integer(336679),
  14664 +cons(new_integer(331303),
14665 14665 new_string("e"))),
14666 14666 nil)))),
14667 14667 nil)))))),
14668 14668 cons(cons(cons(new_string("ok"),
14669 14669 cons(new_string("sock"),
14670 14670 nil)),
14671   -cons(new_integer(336914),
  14671 +cons(new_integer(331538),
14672 14672 cons(cond,
14673   -cons(new_integer(337159),
  14673 +cons(new_integer(331783),
14674 14674 cons(cons(app,
14675   -cons(new_integer(337182),
  14675 +cons(new_integer(331806),
14676 14676 cons(cons(symbol,
14677   -cons(new_integer(337181),
  14677 +cons(new_integer(331805),
14678 14678 new_string("£apply_socket_options"))),
14679 14679 cons(cons(symbol,
14680   -cons(new_integer(337186),
  14680 +cons(new_integer(331810),
14681 14681 new_string("sock"))),
14682 14682 cons(cons(symbol,
14683   -cons(new_integer(337195),
  14683 +cons(new_integer(331819),
14684 14684 new_string("options"))),
14685 14685 nil))))),
14686 14686 cons(cons(cons(new_string("error"),
14687 14687 cons(new_string("e"),
14688 14688 nil)),
14689   -cons(new_integer(337687),
  14689 +cons(new_integer(332311),
14690 14690 cons(app,
14691   -cons(new_integer(337695),
  14691 +cons(new_integer(332319),
14692 14692 cons(cons(symbol,
14693   -cons(new_integer(337694),
  14693 +cons(new_integer(332318),
14694 14694 new_string("error"))),
14695 14695 cons(cons(app,
14696   -cons(new_integer(337708),
  14696 +cons(new_integer(332332),
14697 14697 cons(cons(symbol,
14698   -cons(new_integer(337707),
  14698 +cons(new_integer(332331),
14699 14699 new_string("option_error"))),
14700 14700 cons(cons(symbol,
14701   -cons(new_integer(337709),
  14701 +cons(new_integer(332333),
14702 14702 new_string("e"))),
14703 14703 nil)))),
14704 14704 nil)))))),
14705 14705 cons(cons(cons(new_string("ok"),
14706 14706 cons(new_string("_"),
14707 14707 nil)),
14708   -cons(new_integer(337943),
  14708 +cons(new_integer(332567),
14709 14709 cons(cond,
14710   -cons(new_integer(338189),
  14710 +cons(new_integer(332813),
14711 14711 cons(cons(symbol,
14712   -cons(new_integer(338197),
  14712 +cons(new_integer(332821),
14713 14713 new_string("mb_addr"))),
14714 14714 cons(cons(cons(new_string("failure"),
14715 14715 nil),
14716   -cons(new_integer(338713),
  14716 +cons(new_integer(333337),
14717 14717 cons(app,
14718   -cons(new_integer(338717),
  14718 +cons(new_integer(333341),
14719 14719 cons(cons(symbol,
14720   -cons(new_integer(338716),
  14720 +cons(new_integer(333340),
14721 14721 new_string("ok"))),
14722 14722 cons(cons(app,
14723   -cons(new_integer(338730),
  14723 +cons(new_integer(333354),
14724 14724 cons(cons(symbol,
14725   -cons(new_integer(338729),
  14725 +cons(new_integer(333353),
14726 14726 new_string("packetSocket"))),
14727 14727 cons(cons(symbol,
14728   -cons(new_integer(338734),
  14728 +cons(new_integer(333358),
14729 14729 new_string("type"))),
14730 14730 cons(cons(symbol,
14731   -cons(new_integer(338741),
  14731 +cons(new_integer(333365),
14732 14732 new_string("proto"))),
14733 14733 cons(cons(symbol,
14734   -cons(new_integer(338747),
  14734 +cons(new_integer(333371),
14735 14735 new_string("sock"))),
14736 14736 nil)))))),
14737 14737 nil)))))),
14738 14738 cons(cons(cons(new_string("success"),
14739 14739 cons(new_string("addr"),
14740 14740 nil)),
14741   -cons(new_integer(338975),
  14741 +cons(new_integer(333599),
14742 14742 cons(cond,
14743   -cons(new_integer(339217),
  14743 +cons(new_integer(333841),
14744 14744 cons(cons(app,
14745   -cons(new_integer(339227),
  14745 +cons(new_integer(333851),
14746 14746 cons(cons(symbol,
14747   -cons(new_integer(339226),
  14747 +cons(new_integer(333850),
14748 14748 new_string("physaddr"))),
14749 14749 cons(cons(symbol,
14750   -cons(new_integer(339231),
  14750 +cons(new_integer(333855),
14751 14751 new_string("addr"))),
14752 14752 nil)))),
14753 14753 cons(cons(cons(new_string("physical_address"),
14754 14754 cons(new_string("halen"),
14755 14755 cons(new_string("the_addr"),
14756 14756 nil))),
14757   -cons(new_integer(339274),
  14757 +cons(new_integer(333898),
14758 14758 cons(cond,
14759   -cons(new_integer(339473),
  14759 +cons(new_integer(334097),
14760 14760 cons(cons(app,
14761   -cons(new_integer(339484),
  14761 +cons(new_integer(334108),
14762 14762 cons(cons(symbol,
14763   -cons(new_integer(339483),
  14763 +cons(new_integer(334107),
14764 14764 new_string("£bsd_bind"))),
14765 14765 cons(cons(symbol,
14766   -cons(new_integer(339488),
  14766 +cons(new_integer(334112),
14767 14767 new_string("sock"))),
14768 14768 cons(cons(app,
14769   -cons(new_integer(339502),
  14769 +cons(new_integer(334126),
14770 14770 cons(cons(symbol,
14771   -cons(new_integer(339501),
  14771 +cons(new_integer(334125),
14772 14772 new_string("sockaddr_ll"))),
14773 14773 cons(cons(app,
14774   -cons(new_integer(339518),
  14774 +cons(new_integer(334142),
14775 14775 cons(cons(symbol,
14776   -cons(new_integer(339517),
  14776 +cons(new_integer(334141),
14777 14777 new_string("packet_sockaddr"))),
14778 14778 cons(cons(app,
14779   -cons(new_integer(339541),
  14779 +cons(new_integer(334165),
14780 14780 cons(cons(symbol,
14781   -cons(new_integer(339540),
  14781 +cons(new_integer(334164),
14782 14782 new_string("£socket_proto_to_value"))),
14783 14783 cons(cons(app,
14784   -cons(new_integer(339550),
  14784 +cons(new_integer(334174),
14785 14785 cons(cons(symbol,
14786   -cons(new_integer(339549),
  14786 +cons(new_integer(334173),
14787 14787 new_string("protocol"))),
14788 14788 cons(cons(symbol,
14789   -cons(new_integer(339554),
  14789 +cons(new_integer(334178),
14790 14790 new_string("addr"))),
14791 14791 nil)))),
14792 14792 nil)))),
14793 14793 cons(cons(app,
14794   -cons(new_integer(339782),
  14794 +cons(new_integer(334406),
14795 14795 cons(cons(symbol,
14796   -cons(new_integer(339781),
  14796 +cons(new_integer(334405),
14797 14797 new_string("ifindex"))),
14798 14798 cons(cons(symbol,
14799   -cons(new_integer(339786),
  14799 +cons(new_integer(334410),
14800 14800 new_string("addr"))),
14801 14801 nil)))),
14802 14802 cons(cons(app,
14803   -cons(new_integer(340037),
  14803 +cons(new_integer(334661),
14804 14804 cons(cons(symbol,
14805   -cons(new_integer(340036),
  14805 +cons(new_integer(334660),
14806 14806 new_string("hatype"))),
14807 14807 cons(cons(symbol,
14808   -cons(new_integer(340041),
  14808 +cons(new_integer(334665),
14809 14809 new_string("addr"))),
14810 14810 nil)))),
14811 14811 cons(cons(app,
14812   -cons(new_integer(340294),
  14812 +cons(new_integer(334918),
14813 14813 cons(cons(symbol,
14814   -cons(new_integer(340293),
  14814 +cons(new_integer(334917),
14815 14815 new_string("pkttype"))),
14816 14816 cons(cons(symbol,
14817   -cons(new_integer(340298),
  14817 +cons(new_integer(334922),
14818 14818 new_string("addr"))),
14819 14819 nil)))),
14820 14820 cons(cons(symbol,
14821   -cons(new_integer(340547),
  14821 +cons(new_integer(335171),
14822 14822 new_string("halen"))),
14823 14823 cons(cons(symbol,
14824   -cons(new_integer(340806),
  14824 +cons(new_integer(335430),
14825 14825 new_string("the_addr"))),
14826 14826 nil))))))))),
14827 14827 nil)))),
... ... @@ -14829,44 +14829,44 @@ nil))))),
14829 14829 cons(cons(cons(new_string("error"),
14830 14830 cons(new_string("e"),
14831 14831 nil)),
14832   -cons(new_integer(341279),
  14832 +cons(new_integer(335903),
14833 14833 cons(app,
14834   -cons(new_integer(341286),
  14834 +cons(new_integer(335910),
14835 14835 cons(cons(symbol,
14836   -cons(new_integer(341285),
  14836 +cons(new_integer(335909),
14837 14837 new_string("error"))),
14838 14838 cons(cons(app,
14839   -cons(new_integer(341297),
  14839 +cons(new_integer(335921),
14840 14840 cons(cons(symbol,
14841   -cons(new_integer(341296),
  14841 +cons(new_integer(335920),
14842 14842 new_string("bind_error"))),
14843 14843 cons(cons(symbol,
14844   -cons(new_integer(341298),
  14844 +cons(new_integer(335922),
14845 14845 new_string("e"))),
14846 14846 nil)))),
14847 14847 nil)))))),
14848 14848 cons(cons(cons(new_string("ok"),
14849 14849 cons(new_string("__"),
14850 14850 nil)),
14851   -cons(new_integer(341536),
  14851 +cons(new_integer(336160),
14852 14852 cons(app,
14853   -cons(new_integer(341540),
  14853 +cons(new_integer(336164),
14854 14854 cons(cons(symbol,
14855   -cons(new_integer(341539),
  14855 +cons(new_integer(336163),
14856 14856 new_string("ok"))),
14857 14857 cons(cons(app,
14858   -cons(new_integer(341553),
  14858 +cons(new_integer(336177),
14859 14859 cons(cons(symbol,
14860   -cons(new_integer(341552),
  14860 +cons(new_integer(336176),
14861 14861 new_string("packetSocket"))),
14862 14862 cons(cons(symbol,
14863   -cons(new_integer(341557),
  14863 +cons(new_integer(336181),
14864 14864 new_string("type"))),
14865 14865 cons(cons(symbol,
14866   -cons(new_integer(341564),
  14866 +cons(new_integer(336188),
14867 14867 new_string("proto"))),
14868 14868 cons(cons(symbol,
14869   -cons(new_integer(341570),
  14869 +cons(new_integer(336194),
14870 14870 new_string("sock"))),
14871 14871 nil)))))),
14872 14872 nil)))))),
... ... @@ -14876,7 +14876,7 @@ nil))))))),
14876 14876 nil))))))),
14877 14877 nil))))))))));
14878 14878  
14879   -new_op_scheme(686094,0,
  14879 +new_op_scheme(675342,0,
14880 14880 cons(app_ts,
14881 14881 cons(new_string("Result"),
14882 14882 cons(new_string("RecvError"),
... ... @@ -14896,182 +14896,182 @@ cons(cons(new_string(&quot;RecvFlags&quot;),
14896 14896 new_string("flags")),
14897 14897 nil))),
14898 14898 cons(cond,
14899   -cons(new_integer(344838),
  14899 +cons(new_integer(339462),
14900 14900 cons(cons(app,
14901   -cons(new_integer(344853),
  14901 +cons(new_integer(339477),
14902 14902 cons(cons(symbol,
14903   -cons(new_integer(344852),
  14903 +cons(new_integer(339476),
14904 14904 new_string("£bsd_recvfrom"))),
14905 14905 cons(cons(app,
14906   -cons(new_integer(344858),
  14906 +cons(new_integer(339482),
14907 14907 cons(cons(symbol,
14908   -cons(new_integer(344857),
  14908 +cons(new_integer(339481),
14909 14909 new_string("sock"))),
14910 14910 cons(cons(symbol,
14911   -cons(new_integer(344864),
  14911 +cons(new_integer(339488),
14912 14912 new_string("socket"))),
14913 14913 nil)))),
14914 14914 cons(cons(symbol,
14915   -cons(new_integer(344871),
  14915 +cons(new_integer(339495),
14916 14916 new_string("size"))),
14917 14917 cons(cons(symbol,
14918   -cons(new_integer(344882),
  14918 +cons(new_integer(339506),
14919 14919 new_string("af_packet"))),
14920 14920 cons(cons(symbol,
14921   -cons(new_integer(344889),
  14921 +cons(new_integer(339513),
14922 14922 new_string("flags"))),
14923 14923 nil))))))),
14924 14924 cons(cons(cons(new_string("error"),
14925 14925 cons(new_string("e"),
14926 14926 nil)),
14927   -cons(new_integer(345364),
  14927 +cons(new_integer(339988),
14928 14928 cons(app,
14929   -cons(new_integer(345371),
  14929 +cons(new_integer(339995),
14930 14930 cons(cons(symbol,
14931   -cons(new_integer(345370),
  14931 +cons(new_integer(339994),
14932 14932 new_string("error"))),
14933 14933 cons(cons(symbol,
14934   -cons(new_integer(345372),
  14934 +cons(new_integer(339996),
14935 14935 new_string("e"))),
14936 14936 nil)))))),
14937 14937 cons(cons(cons(new_string("ok"),
14938 14938 cons(new_string("r"),
14939 14939 nil)),
14940   -cons(new_integer(345620),
  14940 +cons(new_integer(340244),
14941 14941 cons(cond,
14942   -cons(new_integer(345867),
  14942 +cons(new_integer(340491),
14943 14943 cons(cons(symbol,
14944   -cons(new_integer(345869),
  14944 +cons(new_integer(340493),
14945 14945 new_string("r"))),
14946 14946 cons(cons(cons(new_string("£tuple"),
14947 14947 cons(new_string("ba"),
14948 14948 cons(new_string("sa"),
14949 14949 nil))),
14950   -cons(new_integer(345886),
  14950 +cons(new_integer(340510),
14951 14951 cons(cond,
14952   -cons(new_integer(346125),
  14952 +cons(new_integer(340749),
14953 14953 cons(cons(symbol,
14954   -cons(new_integer(346128),
  14954 +cons(new_integer(340752),
14955 14955 new_string("sa"))),
14956 14956 cons(cons(cons(new_string("none"),
14957 14957 nil),
14958   -cons(new_integer(346659),
  14958 +cons(new_integer(341283),
14959 14959 cons(app,
14960   -cons(new_integer(346666),
  14960 +cons(new_integer(341290),
14961 14961 cons(cons(symbol,
14962   -cons(new_integer(346665),
  14962 +cons(new_integer(341289),
14963 14963 new_string("error"))),
14964 14964 cons(cons(symbol,
14965   -cons(new_integer(346677),
  14965 +cons(new_integer(341301),
14966 14966 new_string("other_error"))),
14967 14967 nil)))))),
14968 14968 cons(cons(cons(new_string("sockaddr_in"),
14969 14969 cons(new_string("isa"),
14970 14970 nil)),
14971   -cons(new_integer(346915),
  14971 +cons(new_integer(341539),
14972 14972 cons(app,
14973   -cons(new_integer(346922),
  14973 +cons(new_integer(341546),
14974 14974 cons(cons(symbol,
14975   -cons(new_integer(346921),
  14975 +cons(new_integer(341545),
14976 14976 new_string("error"))),
14977 14977 cons(cons(symbol,
14978   -cons(new_integer(346933),
  14978 +cons(new_integer(341557),
14979 14979 new_string("other_error"))),
14980 14980 nil)))))),
14981 14981 cons(cons(cons(new_string("sockaddr_ll"),
14982 14982 cons(new_string("ppsa"),
14983 14983 nil)),
14984   -cons(new_integer(347171),
  14984 +cons(new_integer(341795),
14985 14985 cons(with,
14986   -cons(new_integer(347417),
  14986 +cons(new_integer(342041),
14987 14987 cons(new_string("psa"),
14988 14988 cons(cons(app,
14989   -cons(new_integer(347434),
  14989 +cons(new_integer(342058),
14990 14990 cons(cons(symbol,
14991   -cons(new_integer(347433),
  14991 +cons(new_integer(342057),
14992 14992 new_string("packet_sockaddr"))),
14993 14993 cons(cons(app,
14994   -cons(new_integer(347457),
  14994 +cons(new_integer(342081),
14995 14995 cons(cons(symbol,
14996   -cons(new_integer(347456),
  14996 +cons(new_integer(342080),
14997 14997 new_string("£value_to_socket_proto"))),
14998 14998 cons(cons(app,
14999   -cons(new_integer(347466),
  14999 +cons(new_integer(342090),
15000 15000 cons(cons(symbol,
15001   -cons(new_integer(347465),
  15001 +cons(new_integer(342089),
15002 15002 new_string("protocol"))),
15003 15003 cons(cons(symbol,
15004   -cons(new_integer(347470),
  15004 +cons(new_integer(342094),
15005 15005 new_string("ppsa"))),
15006 15006 nil)))),
15007 15007 nil)))),
15008 15008 cons(cons(app,
15009   -cons(new_integer(347698),
  15009 +cons(new_integer(342322),
15010 15010 cons(cons(symbol,
15011   -cons(new_integer(347697),
  15011 +cons(new_integer(342321),
15012 15012 new_string("ifindex"))),
15013 15013 cons(cons(symbol,
15014   -cons(new_integer(347702),
  15014 +cons(new_integer(342326),
15015 15015 new_string("ppsa"))),
15016 15016 nil)))),
15017 15017 cons(cons(app,
15018   -cons(new_integer(347953),
  15018 +cons(new_integer(342577),
15019 15019 cons(cons(symbol,
15020   -cons(new_integer(347952),
  15020 +cons(new_integer(342576),
15021 15021 new_string("hatype"))),
15022 15022 cons(cons(symbol,
15023   -cons(new_integer(347957),
  15023 +cons(new_integer(342581),
15024 15024 new_string("ppsa"))),
15025 15025 nil)))),
15026 15026 cons(cons(app,
15027   -cons(new_integer(348210),
  15027 +cons(new_integer(342834),
15028 15028 cons(cons(symbol,
15029   -cons(new_integer(348209),
  15029 +cons(new_integer(342833),
15030 15030 new_string("pkttype"))),
15031 15031 cons(cons(symbol,
15032   -cons(new_integer(348214),
  15032 +cons(new_integer(342838),
15033 15033 new_string("ppsa"))),
15034 15034 nil)))),
15035 15035 cons(cons(app,
15036   -cons(new_integer(348475),
  15036 +cons(new_integer(343099),
15037 15037 cons(cons(symbol,
15038   -cons(new_integer(348474),
  15038 +cons(new_integer(343098),
15039 15039 new_string("physical_address"))),
15040 15040 cons(cons(app,
15041   -cons(new_integer(348481),
  15041 +cons(new_integer(343105),
15042 15042 cons(cons(symbol,
15043   -cons(new_integer(348480),
  15043 +cons(new_integer(343104),
15044 15044 new_string("halen"))),
15045 15045 cons(cons(symbol,
15046   -cons(new_integer(348485),
  15046 +cons(new_integer(343109),
15047 15047 new_string("ppsa"))),
15048 15048 nil)))),
15049 15049 cons(cons(app,
15050   -cons(new_integer(348493),
  15050 +cons(new_integer(343117),
15051 15051 cons(cons(symbol,
15052   -cons(new_integer(348492),
  15052 +cons(new_integer(343116),
15053 15053 new_string("addr"))),
15054 15054 cons(cons(symbol,
15055   -cons(new_integer(348497),
  15055 +cons(new_integer(343121),
15056 15056 new_string("ppsa"))),
15057 15057 nil)))),
15058 15058 nil))))),
15059 15059 nil)))))))),
15060 15060 cons(app,
15061   -cons(new_integer(348690),
  15061 +cons(new_integer(343314),
15062 15062 cons(cons(symbol,
15063   -cons(new_integer(348690),
  15063 +cons(new_integer(343314),
15064 15064 new_string("ok"))),
15065 15065 cons(cons(app,
15066   -cons(new_integer(348691),
  15066 +cons(new_integer(343315),
15067 15067 cons(cons(symbol,
15068   -cons(new_integer(348691),
  15068 +cons(new_integer(343315),
15069 15069 new_string("£tuple"))),
15070 15070 cons(cons(symbol,
15071   -cons(new_integer(348693),
  15071 +cons(new_integer(343317),
15072 15072 new_string("ba"))),
15073 15073 cons(cons(symbol,
15074   -cons(new_integer(348698),
  15074 +cons(new_integer(343322),
15075 15075 new_string("psa"))),
15076 15076 nil))))),
15077 15077 nil)))))))))),
... ... @@ -15079,7 +15079,7 @@ nil)))))))),
15079 15079 nil)))))),
15080 15080 nil))))));
15081 15081  
15082   -new_op_scheme(699406,0,
  15082 +new_op_scheme(688654,0,
15083 15083 cons(app_ts,
15084 15084 cons(new_string("Result"),
15085 15085 cons(new_string("SendError"),
... ... @@ -15100,134 +15100,134 @@ cons(cons(new_string(&quot;SendFlags&quot;),
15100 15100 new_string("flags")),
15101 15101 nil)))),
15102 15102 cons(with,
15103   -cons(new_integer(351757),
  15103 +cons(new_integer(346381),
15104 15104 cons(new_string("sa"),
15105 15105 cons(cons(cond,
15106   -cons(new_integer(351760),
  15106 +cons(new_integer(346384),
15107 15107 cons(cons(symbol,
15108   -cons(new_integer(351768),
  15108 +cons(new_integer(346392),
15109 15109 new_string("mb_dest"))),
15110 15110 cons(cons(cons(new_string("failure"),
15111 15111 nil),
15112   -cons(new_integer(352285),
  15112 +cons(new_integer(346909),
15113 15113 cons(symbol,
15114   -cons(new_integer(352291),
  15114 +cons(new_integer(346915),
15115 15115 new_string("none"))))),
15116 15116 cons(cons(cons(new_string("success"),
15117 15117 cons(new_string("dest"),
15118 15118 nil)),
15119   -cons(new_integer(352547),
  15119 +cons(new_integer(347171),
15120 15120 cons(with,
15121   -cons(new_integer(352799),
  15121 +cons(new_integer(347423),
15122 15122 cons(new_string("paddr"),
15123 15123 cons(cons(app,
15124   -cons(new_integer(352809),
  15124 +cons(new_integer(347433),
15125 15125 cons(cons(symbol,
15126   -cons(new_integer(352808),
  15126 +cons(new_integer(347432),
15127 15127 new_string("physaddr"))),
15128 15128 cons(cons(symbol,
15129   -cons(new_integer(352813),
  15129 +cons(new_integer(347437),
15130 15130 new_string("dest"))),
15131 15131 nil)))),
15132 15132 cons(app,
15133   -cons(new_integer(353055),
  15133 +cons(new_integer(347679),
15134 15134 cons(cons(symbol,
15135   -cons(new_integer(353055),
  15135 +cons(new_integer(347679),
15136 15136 new_string("sockaddr_ll"))),
15137 15137 cons(cons(app,
15138   -cons(new_integer(353071),
  15138 +cons(new_integer(347695),
15139 15139 cons(cons(symbol,
15140   -cons(new_integer(353070),
  15140 +cons(new_integer(347694),
15141 15141 new_string("packet_sockaddr"))),
15142 15142 cons(cons(app,
15143   -cons(new_integer(353094),
  15143 +cons(new_integer(347718),
15144 15144 cons(cons(symbol,
15145   -cons(new_integer(353093),
  15145 +cons(new_integer(347717),
15146 15146 new_string("£socket_proto_to_value"))),
15147 15147 cons(cons(app,
15148   -cons(new_integer(353103),
  15148 +cons(new_integer(347727),
15149 15149 cons(cons(symbol,
15150   -cons(new_integer(353102),
  15150 +cons(new_integer(347726),
15151 15151 new_string("protocol"))),
15152 15152 cons(cons(symbol,
15153   -cons(new_integer(353107),
  15153 +cons(new_integer(347731),
15154 15154 new_string("dest"))),
15155 15155 nil)))),
15156 15156 nil)))),
15157 15157 cons(cons(app,
15158   -cons(new_integer(353335),
  15158 +cons(new_integer(347959),
15159 15159 cons(cons(symbol,
15160   -cons(new_integer(353334),
  15160 +cons(new_integer(347958),
15161 15161 new_string("ifindex"))),
15162 15162 cons(cons(symbol,
15163   -cons(new_integer(353339),
  15163 +cons(new_integer(347963),
15164 15164 new_string("dest"))),
15165 15165 nil)))),
15166 15166 cons(cons(app,
15167   -cons(new_integer(353590),
  15167 +cons(new_integer(348214),
15168 15168 cons(cons(symbol,
15169   -cons(new_integer(353589),
  15169 +cons(new_integer(348213),
15170 15170 new_string("hatype"))),
15171 15171 cons(cons(symbol,
15172   -cons(new_integer(353594),
  15172 +cons(new_integer(348218),
15173 15173 new_string("dest"))),
15174 15174 nil)))),
15175 15175 cons(cons(app,
15176   -cons(new_integer(353847),
  15176 +cons(new_integer(348471),
15177 15177 cons(cons(symbol,
15178   -cons(new_integer(353846),
  15178 +cons(new_integer(348470),
15179 15179 new_string("pkttype"))),
15180 15180 cons(cons(symbol,
15181   -cons(new_integer(353851),
  15181 +cons(new_integer(348475),
15182 15182 new_string("dest"))),
15183 15183 nil)))),
15184 15184 cons(cons(app,
15185   -cons(new_integer(354106),
  15185 +cons(new_integer(348730),
15186 15186 cons(cons(symbol,
15187   -cons(new_integer(354105),
  15187 +cons(new_integer(348729),
15188 15188 new_string("phys_halen"))),
15189 15189 cons(cons(symbol,
15190   -cons(new_integer(354111),
  15190 +cons(new_integer(348735),
15191 15191 new_string("paddr"))),
15192 15192 nil)))),
15193 15193 cons(cons(app,
15194   -cons(new_integer(354364),
  15194 +cons(new_integer(348988),
15195 15195 cons(cons(symbol,
15196   -cons(new_integer(354363),
  15196 +cons(new_integer(348987),
15197 15197 new_string("phys_address"))),
15198 15198 cons(cons(symbol,
15199   -cons(new_integer(354369),
  15199 +cons(new_integer(348993),
15200 15200 new_string("paddr"))),
15201 15201 nil)))),
15202 15202 nil))))))))),
15203 15203 nil)))))))))),
15204 15204 nil))))),
15205 15205 cons(app,
15206   -cons(new_integer(354832),
  15206 +cons(new_integer(349456),
15207 15207 cons(cons(symbol,
15208   -cons(new_integer(354832),
  15208 +cons(new_integer(349456),
15209 15209 new_string("£bsd_sendto"))),
15210 15210 cons(cons(app,
15211   -cons(new_integer(354837),
  15211 +cons(new_integer(349461),
15212 15212 cons(cons(symbol,
15213   -cons(new_integer(354836),
  15213 +cons(new_integer(349460),
15214 15214 new_string("sock"))),
15215 15215 cons(cons(symbol,
15216   -cons(new_integer(354843),
  15216 +cons(new_integer(349467),
15217 15217 new_string("socket"))),
15218 15218 nil)))),
15219 15219 cons(cons(symbol,
15220   -cons(new_integer(354850),
  15220 +cons(new_integer(349474),
15221 15221 new_string("data"))),
15222 15222 cons(cons(symbol,
15223   -cons(new_integer(354854),
  15223 +cons(new_integer(349478),
15224 15224 new_string("sa"))),
15225 15225 cons(cons(symbol,
15226   -cons(new_integer(354861),
  15226 +cons(new_integer(349485),
15227 15227 new_string("flags"))),
15228 15228 nil))))))))))));
15229 15229  
15230   -new_op_scheme(719900,1,
  15230 +new_op_scheme(709148,1,
15231 15231 cons(app_ts,
15232 15232 cons(new_string("Maybe"),
15233 15233 cons(new_string("Word8"),
... ... @@ -15248,11 +15248,11 @@ nil))),
15248 15248 new_string("operands")),
15249 15249 nil))),
15250 15250 cons(avm,
15251   -cons(new_integer(361486),
  15251 +cons(new_integer(356110),
15252 15252 cons(do_execute,
15253 15253 nil))));
15254 15254  
15255   -new_op_scheme(723996,1,
  15255 +new_op_scheme(713244,1,
15256 15256 cons(app_ts,
15257 15257 cons(new_string("Maybe"),
15258 15258 cons(new_string("Word8"),
... ... @@ -15268,22 +15268,22 @@ nil))),
15268 15268 new_string("operands")),
15269 15269 nil)),
15270 15270 cons(app,
15271   -cons(new_integer(363532),
  15271 +cons(new_integer(358156),
15272 15272 cons(cons(symbol,
15273   -cons(new_integer(363531),
  15273 +cons(new_integer(358155),
15274 15274 new_string("execute"))),
15275 15275 cons(cons(symbol,
15276   -cons(new_integer(363539),
  15276 +cons(new_integer(358163),
15277 15277 new_string("failure"))),
15278 15278 cons(cons(symbol,
15279   -cons(new_integer(363552),
  15279 +cons(new_integer(358176),
15280 15280 new_string("program_name"))),
15281 15281 cons(cons(symbol,
15282   -cons(new_integer(363561),
  15282 +cons(new_integer(358185),
15283 15283 new_string("operands"))),
15284 15284 nil)))))));
15285 15285  
15286   -new_op_scheme(728092,1,
  15286 +new_op_scheme(717340,1,
15287 15287 cons(app_ts,
15288 15288 cons(new_string("Maybe"),
15289 15289 cons(new_string("Word8"),
... ... @@ -15301,28 +15301,28 @@ nil))),
15301 15301 new_string("operands")),
15302 15302 nil))),
15303 15303 cons(app,
15304   -cons(new_integer(365836),
  15304 +cons(new_integer(360460),
15305 15305 cons(cons(symbol,
15306   -cons(new_integer(365835),
  15306 +cons(new_integer(360459),
15307 15307 new_string("execute"))),
15308 15308 cons(cons(app,
15309   -cons(new_integer(365844),
  15309 +cons(new_integer(360468),
15310 15310 cons(cons(symbol,
15311   -cons(new_integer(365843),
  15311 +cons(new_integer(360467),
15312 15312 new_string("success"))),
15313 15313 cons(cons(symbol,
15314   -cons(new_integer(365863),
  15314 +cons(new_integer(360487),
15315 15315 new_string("execution_directory"))),
15316 15316 nil)))),
15317 15317 cons(cons(symbol,
15318   -cons(new_integer(365877),
  15318 +cons(new_integer(360501),
15319 15319 new_string("program_name"))),
15320 15320 cons(cons(symbol,
15321   -cons(new_integer(365886),
  15321 +cons(new_integer(360510),
15322 15322 new_string("operands"))),
15323 15323 nil)))))));
15324 15324  
15325   -new_type_scheme(734744,0,
  15325 +new_type_scheme(723992,0,
15326 15326 new_string("ExecuteControl"),
15327 15327 nil,
15328 15328 cons(cons(cons(new_string("£execute_control"),
... ... @@ -15342,7 +15342,7 @@ noname),
15342 15342 nil))))),
15343 15343 nil),0,1);
15344 15344  
15345   -new_op_scheme(737820,1,
  15345 +new_op_scheme(727068,1,
15346 15346 cons(app_ts,
15347 15347 cons(new_string("Maybe"),
15348 15348 cons(new_string("ExecuteControl"),
... ... @@ -15363,11 +15363,11 @@ nil))),
15363 15363 new_string("operands")),
15364 15364 nil))),
15365 15365 cons(avm,
15366   -cons(new_integer(370446),
  15366 +cons(new_integer(365070),
15367 15367 cons(do_execute_capture,
15368 15368 nil))));
15369 15369  
15370   -new_op_scheme(741916,1,
  15370 +new_op_scheme(731164,1,
15371 15371 new_string("ExecuteStatus"),
15372 15372 cons(new_string("check_execute_status"),
15373 15373 nil),
... ... @@ -15375,11 +15375,11 @@ cons(cons(new_string(&quot;ExecuteControl&quot;),
15375 15375 new_string("ec")),
15376 15376 nil),
15377 15377 cons(avm,
15378   -cons(new_integer(371982),
  15378 +cons(new_integer(366606),
15379 15379 cons(check_execute_status,
15380 15380 nil))));
15381 15381  
15382   -new_op_scheme(747548,1,
  15382 +new_op_scheme(736796,1,
15383 15383 new_string("Word32"),
15384 15384 cons(new_string("random"),
15385 15385 nil),
... ... @@ -15387,11 +15387,11 @@ cons(cons(new_string(&quot;Word32&quot;),
15387 15387 new_string("n")),
15388 15388 nil),
15389 15389 cons(avm,
15390   -cons(new_integer(373833),
  15390 +cons(new_integer(368457),
15391 15391 cons(do_random,
15392 15392 nil))));
15393 15393  
15394   -new_op_scheme(752156,1,
  15394 +new_op_scheme(741404,1,
15395 15395 cons(type_Var,
15396 15396 new_utvar("T")),
15397 15397 cons(new_string("var"),
... ... @@ -15400,12 +15400,12 @@ cons(cons(new_utvar(&quot;T&quot;),
15400 15400 new_string("init")),
15401 15401 nil),
15402 15402 cons(avm,
15403   -cons(new_integer(376117),
  15403 +cons(new_integer(370741),
15404 15404 cons(create_var,
15405 15405 cons(kill_next_instr,
15406 15406 nil)))));
15407 15407  
15408   -new_op_scheme(753180,1,
  15408 +new_op_scheme(742428,1,
15409 15409 new_string("Word32"),
15410 15410 cons(new_string("var_id"),
15411 15411 nil),
... ... @@ -15414,11 +15414,11 @@ new_utvar(&quot;T&quot;)),
15414 15414 new_string("v")),
15415 15415 nil),
15416 15416 cons(avm,
15417   -cons(new_integer(376643),
  15417 +cons(new_integer(371267),
15418 15418 cons(var_id,
15419 15419 nil))));
15420 15420  
15421   -new_op_scheme(756238,0,
  15421 +new_op_scheme(745486,0,
15422 15422 cons(type_MVar,
15423 15423 new_utvar("T")),
15424 15424 cons(new_string("£mvar"),
... ... @@ -15431,14 +15431,14 @@ cons(cons(new_string(&quot;Word32&quot;),
15431 15431 new_string("bw")),
15432 15432 nil))),
15433 15433 cons(avm,
15434   -cons(new_integer(378378),
  15434 +cons(new_integer(373002),
15435 15435 cons(create_mvar,
15436 15436 cons(kill_next_instr,
15437 15437 cons(kill_next_instr,
15438 15438 cons(kill_next_instr,
15439 15439 nil)))))));
15440 15440  
15441   -new_op_scheme(759324,1,
  15441 +new_op_scheme(748572,1,
15442 15442 cons(type_MVar,
15443 15443 new_utvar("T")),
15444 15444 cons(new_string("mvar"),
... ... @@ -15449,78 +15449,78 @@ cons(cons(new_utvar(&quot;T&quot;),
15449 15449 new_string("init")),
15450 15450 nil)),
15451 15451 cons(cond,
15452   -cons(new_integer(381190),
  15452 +cons(new_integer(375814),
15453 15453 cons(cons(of_type,
15454   -cons(new_integer(381190),
  15454 +cons(new_integer(375814),
15455 15455 cons(new_string("Bool"),
15456 15456 cons(app,
15457   -cons(new_integer(381195),
  15457 +cons(new_integer(375819),
15458 15458 cons(cons(symbol,
15459   -cons(new_integer(381195),
  15459 +cons(new_integer(375819),
15460 15460 new_string("+<"))),
15461 15461 cons(cons(symbol,
15462   -cons(new_integer(381192),
  15462 +cons(new_integer(375816),
15463 15463 new_string("n"))),
15464 15464 cons(cons(integer_10,
15465   -cons(new_integer(381197),
  15465 +cons(new_integer(375821),
15466 15466 cons(new_integer(1),
15467 15467 nil))),
15468 15468 nil)))))))),
15469 15469 cons(cons(cons(new_string("false"),
15470 15470 nil),
15471   -cons(new_integer(381704),
  15471 +cons(new_integer(376328),
15472 15472 cons(app,
15473   -cons(new_integer(381711),
  15473 +cons(new_integer(376335),
15474 15474 cons(cons(symbol,
15475   -cons(new_integer(381710),
  15475 +cons(new_integer(376334),
15476 15476 new_string("£mvar"))),
15477 15477 cons(cons(symbol,
15478   -cons(new_integer(381712),
  15478 +cons(new_integer(376336),
15479 15479 new_string("n"))),
15480 15480 cons(cons(vcopy,
15481   -cons(new_integer(381719),
  15481 +cons(new_integer(376343),
15482 15482 cons(cons(app,
15483   -cons(new_integer(381722),
  15483 +cons(new_integer(376346),
15484 15484 cons(cons(symbol,
15485   -cons(new_integer(381722),
  15485 +cons(new_integer(376346),
15486 15486 new_string("-"))),
15487 15487 cons(cons(symbol,
15488   -cons(new_integer(381721),
  15488 +cons(new_integer(376345),
15489 15489 new_string("n"))),
15490 15490 cons(cons(integer_10,
15491   -cons(new_integer(381723),
  15491 +cons(new_integer(376347),
15492 15492 cons(new_integer(1),
15493 15493 nil))),
15494 15494 nil))))),
15495 15495 cons(symbol,
15496   -cons(new_integer(381728),
  15496 +cons(new_integer(376352),
15497 15497 new_string("init")))))),
15498 15498 cons(cons(bit_width,
15499   -cons(new_integer(381739),
  15499 +cons(new_integer(376363),
15500 15500 new_utvar("T"))),
15501 15501 nil)))))))),
15502 15502 cons(cons(cons(new_string("true"),
15503 15503 nil),
15504   -cons(new_integer(381448),
  15504 +cons(new_integer(376072),
15505 15505 cons(app,
15506   -cons(new_integer(381455),
  15506 +cons(new_integer(376079),
15507 15507 cons(cons(symbol,
15508   -cons(new_integer(381454),
  15508 +cons(new_integer(376078),
15509 15509 new_string("£mvar"))),
15510 15510 cons(cons(integer_10,
15511   -cons(new_integer(381456),
  15511 +cons(new_integer(376080),
15512 15512 cons(new_integer(1),
15513 15513 nil))),
15514 15514 cons(cons(symbol,
15515   -cons(new_integer(381461),
  15515 +cons(new_integer(376085),
15516 15516 new_string("init"))),
15517 15517 cons(cons(bit_width,
15518   -cons(new_integer(381471),
  15518 +cons(new_integer(376095),
15519 15519 new_utvar("T"))),
15520 15520 nil)))))))),
15521 15521 nil))))));
15522 15522  
15523   -new_op_scheme(764444,1,
  15523 +new_op_scheme(753692,1,
15524 15524 new_string("Word32"),
15525 15525 cons(new_string("length"),
15526 15526 nil),
... ... @@ -15529,11 +15529,11 @@ new_utvar(&quot;T&quot;)),
15529 15529 new_string("mv")),
15530 15530 nil),
15531 15531 cons(avm,
15532   -cons(new_integer(382280),
  15532 +cons(new_integer(376904),
15533 15533 cons(mvar_length,
15534 15534 nil))));
15535 15535  
15536   -new_op_scheme(764956,1,
  15536 +new_op_scheme(754204,1,
15537 15537 cons(type_MVar,
15538 15538 new_utvar("T")),
15539 15539 cons(new_string("+"),
... ... @@ -15546,11 +15546,11 @@ new_utvar(&quot;T&quot;)),
15546 15546 new_string("mv2")),
15547 15547 nil)),
15548 15548 cons(avm,
15549   -cons(new_integer(383240),
  15549 +cons(new_integer(377864),
15550 15550 cons(concat_mvar,
15551 15551 nil))));
15552 15552  
15553   -new_op_scheme(767516,1,
  15553 +new_op_scheme(756764,1,
15554 15554 new_string("Word32"),
15555 15555 cons(new_string("mvar_id"),
15556 15556 nil),
... ... @@ -15559,11 +15559,11 @@ new_utvar(&quot;T&quot;)),
15559 15559 new_string("mv")),
15560 15560 nil),
15561 15561 cons(avm,
15562   -cons(new_integer(383814),
  15562 +cons(new_integer(378438),
15563 15563 cons(var_id,
15564 15564 nil))));
15565 15565  
15566   -new_type_scheme(770072,0,
  15566 +new_type_scheme(759320,0,
15567 15567 new_string("MonitoringTicket"),
15568 15568 cons(new_utvar("T"),
15569 15569 nil),
... ... @@ -15582,7 +15582,7 @@ new_string(&quot;£index&quot;)),
15582 15582 nil)))),
15583 15583 nil),0,1);
15584 15584  
15585   -new_op_scheme(774172,1,
  15585 +new_op_scheme(763420,1,
15586 15586 cons(app_ts,
15587 15587 cons(new_string("MonitoringTicket"),
15588 15588 cons(new_utvar("T"),
... ... @@ -15599,7 +15599,7 @@ new_string(&quot;One&quot;))),
15599 15599 new_string("monitor")),
15600 15600 nil)),
15601 15601 cons(avm,
15602   -cons(new_integer(388366),
  15602 +cons(new_integer(382990),
15603 15603 cons(register_monitor,
15604 15604 cons(cons(mcollapse,
15605 15605 cons(new_integer(2),
... ... @@ -15608,32 +15608,32 @@ cons(kill_next_instr,
15608 15608 cons(kill_next_instr,
15609 15609 nil)))))));
15610 15610  
15611   -new_op_scheme(786958,0,
  15611 +new_op_scheme(776206,0,
15612 15612 new_string("Word32"),
15613 15613 cons(new_string("£now"),
15614 15614 nil),
15615 15615 nil,
15616 15616 cons(avm,
15617   -cons(new_integer(393543),
  15617 +cons(new_integer(388167),
15618 15618 cons(now,
15619 15619 nil))));
15620 15620  
15621   -new_op_scheme(787484,1,
  15621 +new_op_scheme(776732,1,
15622 15622 type_Int,
15623 15623 cons(new_string("now"),
15624 15624 nil),
15625 15625 nil,
15626 15626 cons(app,
15627   -cons(new_integer(393802),
  15627 +cons(new_integer(388426),
15628 15628 cons(cons(symbol,
15629   -cons(new_integer(393801),
  15629 +cons(new_integer(388425),
15630 15630 new_string("to_Int"))),
15631 15631 cons(cons(symbol,
15632   -cons(new_integer(393806),
  15632 +cons(new_integer(388430),
15633 15633 new_string("£now"))),
15634 15634 nil)))));
15635 15635  
15636   -new_type_scheme(788490,0,
  15636 +new_type_scheme(777738,0,
15637 15637 new_string("OldUTime"),
15638 15638 nil,
15639 15639 cons(cons(cons(new_string("old_utime"),
... ... @@ -15645,58 +15645,58 @@ new_string(&quot;microseconds&quot;)),
15645 15645 nil))),
15646 15646 nil),0,0);
15647 15647  
15648   -new_op_scheme(790542,0,
  15648 +new_op_scheme(779790,0,
15649 15649 new_string("OldUTime"),
15650 15650 cons(new_string("£unow"),
15651 15651 nil),
15652 15652 nil,
15653 15653 cons(avm,
15654   -cons(new_integer(395329),
  15654 +cons(new_integer(389953),
15655 15655 cons(now64,
15656 15656 nil))));
15657 15657  
15658   -new_op_scheme(791068,1,
  15658 +new_op_scheme(780316,1,
15659 15659 new_string("UTime"),
15660 15660 cons(new_string("unow"),
15661 15661 nil),
15662 15662 nil,
15663 15663 cons(cond,
15664   -cons(new_integer(395781),
  15664 +cons(new_integer(390405),
15665 15665 cons(cons(symbol,
15666   -cons(new_integer(395787),
  15666 +cons(new_integer(390411),
15667 15667 new_string("£unow"))),
15668 15668 cons(cons(cons(new_string("old_utime"),
15669 15669 cons(new_string("a"),
15670 15670 cons(new_string("b"),
15671 15671 nil))),
15672   -cons(new_integer(395811),
  15672 +cons(new_integer(390435),
15673 15673 cons(app,
15674   -cons(new_integer(395818),
  15674 +cons(new_integer(390442),
15675 15675 cons(cons(symbol,
15676   -cons(new_integer(395817),
  15676 +cons(new_integer(390441),
15677 15677 new_string("utime"))),
15678 15678 cons(cons(app,
15679   -cons(new_integer(395825),
  15679 +cons(new_integer(390449),
15680 15680 cons(cons(symbol,
15681   -cons(new_integer(395824),
  15681 +cons(new_integer(390448),
15682 15682 new_string("to_Int"))),
15683 15683 cons(cons(symbol,
15684   -cons(new_integer(395826),
  15684 +cons(new_integer(390450),
15685 15685 new_string("a"))),
15686 15686 nil)))),
15687 15687 cons(cons(app,
15688   -cons(new_integer(395836),
  15688 +cons(new_integer(390460),
15689 15689 cons(cons(symbol,
15690   -cons(new_integer(395835),
  15690 +cons(new_integer(390459),
15691 15691 new_string("to_Int"))),
15692 15692 cons(cons(symbol,
15693   -cons(new_integer(395837),
  15693 +cons(new_integer(390461),
15694 15694 new_string("b"))),
15695 15695 nil)))),
15696 15696 nil))))))),
15697 15697 nil)))));
15698 15698  
15699   -new_type_scheme(792586,0,
  15699 +new_type_scheme(781834,0,
15700 15700 new_string("Old_Date_and_Time"),
15701 15701 nil,
15702 15702 cons(cons(cons(new_string("old_date_and_time"),
... ... @@ -15722,7 +15722,7 @@ new_string(&quot;daylight_saving_time&quot;)),
15722 15722 nil)))))))))),
15723 15723 nil),0,0);
15724 15724  
15725   -new_op_scheme(798222,0,
  15725 +new_op_scheme(787470,0,
15726 15726 new_string("Old_Date_and_Time"),
15727 15727 cons(new_string("£convert_time"),
15728 15728 nil),
... ... @@ -15730,11 +15730,11 @@ cons(cons(new_string(&quot;Word32&quot;),
15730 15730 new_string("t")),
15731 15731 nil),
15732 15732 cons(avm,
15733   -cons(new_integer(399171),
  15733 +cons(new_integer(393795),
15734 15734 cons(convert_time_from_int,
15735 15735 nil))));
15736 15736  
15737   -new_op_scheme(798734,0,
  15737 +new_op_scheme(787982,0,
15738 15738 new_string("Word32"),
15739 15739 cons(new_string("£convert_time"),
15740 15740 nil),
... ... @@ -15742,11 +15742,11 @@ cons(cons(new_string(&quot;Old_Date_and_Time&quot;),
15742 15742 new_string("d")),
15743 15743 nil),
15744 15744 cons(avm,
15745   -cons(new_integer(399427),
  15745 +cons(new_integer(394051),
15746 15746 cons(convert_time_to_int,
15747 15747 nil))));
15748 15748  
15749   -new_op_scheme(799772,1,
  15749 +new_op_scheme(789020,1,
15750 15750 new_string("Date_and_Time"),
15751 15751 cons(new_string("convert_time"),
15752 15752 nil),
... ... @@ -15754,27 +15754,27 @@ cons(cons(type_Int,
15754 15754 new_string("t")),
15755 15755 nil),
15756 15756 cons(with,
15757   -cons(new_integer(400140),
  15757 +cons(new_integer(394764),
15758 15758 cons(new_string("dt"),
15759 15759 cons(cons(app,
15760   -cons(new_integer(400155),
  15760 +cons(new_integer(394779),
15761 15761 cons(cons(symbol,
15762   -cons(new_integer(400154),
  15762 +cons(new_integer(394778),
15763 15763 new_string("£convert_time"))),
15764 15764 cons(cons(app,
15765   -cons(new_integer(400174),
  15765 +cons(new_integer(394798),
15766 15766 cons(cons(symbol,
15767   -cons(new_integer(400173),
  15767 +cons(new_integer(394797),
15768 15768 new_string("truncate_to_Word32"))),
15769 15769 cons(cons(symbol,
15770   -cons(new_integer(400175),
  15770 +cons(new_integer(394799),
15771 15771 new_string("t"))),
15772 15772 nil)))),
15773 15773 nil)))),
15774 15774 cons(cond,
15775   -cons(new_integer(400389),
  15775 +cons(new_integer(395013),
15776 15776 cons(cons(symbol,
15777   -cons(new_integer(400392),
  15777 +cons(new_integer(395016),
15778 15778 new_string("dt"))),
15779 15779 cons(cons(cons(new_string("old_date_and_time"),
15780 15780 cons(new_string("y"),
... ... @@ -15787,91 +15787,91 @@ cons(new_string(&quot;w&quot;),
15787 15787 cons(new_string("yd"),
15788 15788 cons(new_string("dst"),
15789 15789 nil)))))))))),
15790   -cons(new_integer(400449),
  15790 +cons(new_integer(395073),
15791 15791 cons(app,
15792   -cons(new_integer(400657),
  15792 +cons(new_integer(395281),
15793 15793 cons(cons(symbol,
15794   -cons(new_integer(400656),
  15794 +cons(new_integer(395280),
15795 15795 new_string("date_and_time"))),
15796 15796 cons(cons(app,
15797   -cons(new_integer(400664),
  15797 +cons(new_integer(395288),
15798 15798 cons(cons(symbol,
15799   -cons(new_integer(400663),
  15799 +cons(new_integer(395287),
15800 15800 new_string("to_Int"))),
15801 15801 cons(cons(symbol,
15802   -cons(new_integer(400665),
  15802 +cons(new_integer(395289),
15803 15803 new_string("y"))),
15804 15804 nil)))),
15805 15805 cons(cons(app,
15806   -cons(new_integer(400675),
  15806 +cons(new_integer(395299),
15807 15807 cons(cons(symbol,
15808   -cons(new_integer(400674),
  15808 +cons(new_integer(395298),
15809 15809 new_string("to_Int"))),
15810 15810 cons(cons(symbol,
15811   -cons(new_integer(400676),
  15811 +cons(new_integer(395300),
15812 15812 new_string("m"))),
15813 15813 nil)))),
15814 15814 cons(cons(app,
15815   -cons(new_integer(400686),
  15815 +cons(new_integer(395310),
15816 15816 cons(cons(symbol,
15817   -cons(new_integer(400685),
  15817 +cons(new_integer(395309),
15818 15818 new_string("to_Int"))),
15819 15819 cons(cons(symbol,
15820   -cons(new_integer(400687),
  15820 +cons(new_integer(395311),
15821 15821 new_string("d"))),
15822 15822 nil)))),
15823 15823 cons(cons(app,
15824   -cons(new_integer(400697),
  15824 +cons(new_integer(395321),
15825 15825 cons(cons(symbol,
15826   -cons(new_integer(400696),
  15826 +cons(new_integer(395320),
15827 15827 new_string("to_Int"))),
15828 15828 cons(cons(symbol,
15829   -cons(new_integer(400698),
  15829 +cons(new_integer(395322),
15830 15830 new_string("h"))),
15831 15831 nil)))),
15832 15832 cons(cons(app,
15833   -cons(new_integer(400708),
  15833 +cons(new_integer(395332),
15834 15834 cons(cons(symbol,
15835   -cons(new_integer(400707),
  15835 +cons(new_integer(395331),
15836 15836 new_string("to_Int"))),
15837 15837 cons(cons(symbol,
15838   -cons(new_integer(400710),
  15838 +cons(new_integer(395334),
15839 15839 new_string("mn"))),
15840 15840 nil)))),
15841 15841 cons(cons(app,
15842   -cons(new_integer(400720),
  15842 +cons(new_integer(395344),
15843 15843 cons(cons(symbol,
15844   -cons(new_integer(400719),
  15844 +cons(new_integer(395343),
15845 15845 new_string("to_Int"))),
15846 15846 cons(cons(symbol,
15847   -cons(new_integer(400721),
  15847 +cons(new_integer(395345),
15848 15848 new_string("s"))),
15849 15849 nil)))),
15850 15850 cons(cons(app,
15851   -cons(new_integer(400731),
  15851 +cons(new_integer(395355),
15852 15852 cons(cons(symbol,
15853   -cons(new_integer(400730),
  15853 +cons(new_integer(395354),
15854 15854 new_string("to_Int"))),
15855 15855 cons(cons(symbol,
15856   -cons(new_integer(400732),
  15856 +cons(new_integer(395356),
15857 15857 new_string("w"))),
15858 15858 nil)))),
15859 15859 cons(cons(app,
15860   -cons(new_integer(400742),
  15860 +cons(new_integer(395366),
15861 15861 cons(cons(symbol,
15862   -cons(new_integer(400741),
  15862 +cons(new_integer(395365),
15863 15863 new_string("to_Int"))),
15864 15864 cons(cons(symbol,
15865   -cons(new_integer(400744),
  15865 +cons(new_integer(395368),
15866 15866 new_string("yd"))),
15867 15867 nil)))),
15868 15868 cons(cons(symbol,
15869   -cons(new_integer(400750),
  15869 +cons(new_integer(395374),
15870 15870 new_string("dst"))),
15871 15871 nil)))))))))))))),
15872 15872 nil)))))))));
15873 15873  
15874   -new_op_scheme(802332,1,
  15874 +new_op_scheme(791580,1,
15875 15875 type_Int,
15876 15876 cons(new_string("convert_time"),
15877 15877 nil),
... ... @@ -15879,9 +15879,9 @@ cons(cons(new_string(&quot;Date_and_Time&quot;),
15879 15879 new_string("dt")),
15880 15880 nil),
15881 15881 cons(cond,
15882   -cons(new_integer(401413),
  15882 +cons(new_integer(396037),
15883 15883 cons(cons(symbol,
15884   -cons(new_integer(401416),
  15884 +cons(new_integer(396040),
15885 15885 new_string("dt"))),
15886 15886 cons(cons(cons(new_string("date_and_time"),
15887 15887 cons(new_string("y"),
... ... @@ -15894,103 +15894,103 @@ cons(new_string(&quot;w&quot;),
15894 15894 cons(new_string("yd"),
15895 15895 cons(new_string("dst"),
15896 15896 nil)))))))))),
15897   -cons(new_integer(401469),
  15897 +cons(new_integer(396093),
15898 15898 cons(app,
15899   -cons(new_integer(401674),
  15899 +cons(new_integer(396298),
15900 15900 cons(cons(symbol,
15901   -cons(new_integer(401673),
  15901 +cons(new_integer(396297),
15902 15902 new_string("to_Int"))),
15903 15903 cons(cons(app,
15904   -cons(new_integer(401688),
  15904 +cons(new_integer(396312),
15905 15905 cons(cons(symbol,
15906   -cons(new_integer(401687),
  15906 +cons(new_integer(396311),
15907 15907 new_string("£convert_time"))),
15908 15908 cons(cons(app,
15909   -cons(new_integer(401706),
  15909 +cons(new_integer(396330),
15910 15910 cons(cons(symbol,
15911   -cons(new_integer(401705),
  15911 +cons(new_integer(396329),
15912 15912 new_string("old_date_and_time"))),
15913 15913 cons(cons(app,
15914   -cons(new_integer(401725),
  15914 +cons(new_integer(396349),
15915 15915 cons(cons(symbol,
15916   -cons(new_integer(401724),
  15916 +cons(new_integer(396348),
15917 15917 new_string("truncate_to_Word32"))),
15918 15918 cons(cons(symbol,
15919   -cons(new_integer(401726),
  15919 +cons(new_integer(396350),
15920 15920 new_string("y"))),
15921 15921 nil)))),
15922 15922 cons(cons(app,
15923   -cons(new_integer(401748),
  15923 +cons(new_integer(396372),
15924 15924 cons(cons(symbol,
15925   -cons(new_integer(401747),
  15925 +cons(new_integer(396371),
15926 15926 new_string("truncate_to_Word32"))),
15927 15927 cons(cons(symbol,
15928   -cons(new_integer(401749),
  15928 +cons(new_integer(396373),
15929 15929 new_string("m"))),
15930 15930 nil)))),
15931 15931 cons(cons(app,
15932   -cons(new_integer(401771),
  15932 +cons(new_integer(396395),
15933 15933 cons(cons(symbol,
15934   -cons(new_integer(401770),
  15934 +cons(new_integer(396394),
15935 15935 new_string("truncate_to_Word32"))),
15936 15936 cons(cons(symbol,
15937   -cons(new_integer(401772),
  15937 +cons(new_integer(396396),
15938 15938 new_string("d"))),
15939 15939 nil)))),
15940 15940 cons(cons(app,
15941   -cons(new_integer(401981),
  15941 +cons(new_integer(396605),
15942 15942 cons(cons(symbol,
15943   -cons(new_integer(401980),
  15943 +cons(new_integer(396604),
15944 15944 new_string("truncate_to_Word32"))),
15945 15945 cons(cons(symbol,
15946   -cons(new_integer(401982),
  15946 +cons(new_integer(396606),
15947 15947 new_string("h"))),
15948 15948 nil)))),
15949 15949 cons(cons(app,
15950   -cons(new_integer(402004),
  15950 +cons(new_integer(396628),
15951 15951 cons(cons(symbol,
15952   -cons(new_integer(402003),
  15952 +cons(new_integer(396627),
15953 15953 new_string("truncate_to_Word32"))),
15954 15954 cons(cons(symbol,
15955   -cons(new_integer(402006),
  15955 +cons(new_integer(396630),
15956 15956 new_string("mn"))),
15957 15957 nil)))),
15958 15958 cons(cons(app,
15959   -cons(new_integer(402028),
  15959 +cons(new_integer(396652),
15960 15960 cons(cons(symbol,
15961   -cons(new_integer(402027),
  15961 +cons(new_integer(396651),
15962 15962 new_string("truncate_to_Word32"))),
15963 15963 cons(cons(symbol,
15964   -cons(new_integer(402029),
  15964 +cons(new_integer(396653),
15965 15965 new_string("s"))),
15966 15966 nil)))),
15967 15967 cons(cons(app,
15968   -cons(new_integer(402237),
  15968 +cons(new_integer(396861),
15969 15969 cons(cons(symbol,
15970   -cons(new_integer(402236),
  15970 +cons(new_integer(396860),
15971 15971 new_string("truncate_to_Word32"))),
15972 15972 cons(cons(symbol,
15973   -cons(new_integer(402238),
  15973 +cons(new_integer(396862),
15974 15974 new_string("w"))),
15975 15975 nil)))),
15976 15976 cons(cons(app,
15977   -cons(new_integer(402260),
  15977 +cons(new_integer(396884),
15978 15978 cons(cons(symbol,
15979   -cons(new_integer(402259),
  15979 +cons(new_integer(396883),
15980 15980 new_string("truncate_to_Word32"))),
15981 15981 cons(cons(symbol,
15982   -cons(new_integer(402262),
  15982 +cons(new_integer(396886),
15983 15983 new_string("yd"))),
15984 15984 nil)))),
15985 15985 cons(cons(symbol,
15986   -cons(new_integer(402268),
  15986 +cons(new_integer(396892),
15987 15987 new_string("dst"))),
15988 15988 nil)))))))))))),
15989 15989 nil)))),
15990 15990 nil)))))),
15991 15991 nil)))));
15992 15992  
15993   -new_op_scheme(805390,0,
  15993 +new_op_scheme(794638,0,
15994 15994 new_string("One"),
15995 15995 cons(new_string("set_time"),
15996 15996 nil),
... ... @@ -15998,11 +15998,11 @@ cons(cons(new_string(&quot;OldUTime&quot;),
15998 15998 new_string("time")),
15999 15999 nil),
16000 16000 cons(avm,
16001   -cons(new_integer(402738),
  16001 +cons(new_integer(397362),
16002 16002 cons(set_time,
16003 16003 nil))));
16004 16004  
16005   -new_op_scheme(805916,1,
  16005 +new_op_scheme(795164,1,
16006 16006 new_string("One"),
16007 16007 cons(new_string("set_time"),
16008 16008 nil),
... ... @@ -16010,48 +16010,48 @@ cons(cons(new_string(&quot;UTime&quot;),
16010 16010 new_string("time")),
16011 16011 nil),
16012 16012 cons(cond,
16013   -cons(new_integer(403205),
  16013 +cons(new_integer(397829),
16014 16014 cons(cons(symbol,
16015   -cons(new_integer(403210),
  16015 +cons(new_integer(397834),
16016 16016 new_string("time"))),
16017 16017 cons(cons(cons(new_string("utime"),
16018 16018 cons(new_string("a"),
16019 16019 cons(new_string("b"),
16020 16020 nil))),
16021   -cons(new_integer(403230),
  16021 +cons(new_integer(397854),
16022 16022 cons(app,
16023   -cons(new_integer(403240),
  16023 +cons(new_integer(397864),
16024 16024 cons(cons(symbol,
16025   -cons(new_integer(403239),
  16025 +cons(new_integer(397863),
16026 16026 new_string("set_time"))),
16027 16027 cons(cons(app,
16028   -cons(new_integer(403250),
  16028 +cons(new_integer(397874),
16029 16029 cons(cons(symbol,
16030   -cons(new_integer(403249),
  16030 +cons(new_integer(397873),
16031 16031 new_string("old_utime"))),
16032 16032 cons(cons(app,
16033   -cons(new_integer(403269),
  16033 +cons(new_integer(397893),
16034 16034 cons(cons(symbol,
16035   -cons(new_integer(403268),
  16035 +cons(new_integer(397892),
16036 16036 new_string("truncate_to_Word32"))),
16037 16037 cons(cons(symbol,
16038   -cons(new_integer(403270),
  16038 +cons(new_integer(397894),
16039 16039 new_string("a"))),
16040 16040 nil)))),
16041 16041 cons(cons(app,
16042   -cons(new_integer(403292),
  16042 +cons(new_integer(397916),
16043 16043 cons(cons(symbol,
16044   -cons(new_integer(403291),
  16044 +cons(new_integer(397915),
16045 16045 new_string("truncate_to_Word32"))),
16046 16046 cons(cons(symbol,
16047   -cons(new_integer(403293),
  16047 +cons(new_integer(397917),
16048 16048 new_string("b"))),
16049 16049 nil)))),
16050 16050 nil))))),
16051 16051 nil)))))),
16052 16052 nil)))));
16053 16053  
16054   -new_op_scheme(806940,1,
  16054 +new_op_scheme(796188,1,
16055 16055 new_string("One"),
16056 16056 cons(new_string("set_time_zone"),
16057 16057 nil),
... ... @@ -16059,11 +16059,11 @@ cons(cons(type_String,
16059 16059 new_string("time_zone_name")),
16060 16060 nil),
16061 16061 cons(avm,
16062   -cons(new_integer(403525),
  16062 +cons(new_integer(398149),
16063 16063 cons(set_time_zone,
16064 16064 nil))));
16065 16065  
16066   -new_op_scheme(809500,1,
  16066 +new_op_scheme(798748,1,
16067 16067 new_string("Bool"),
16068 16068 cons(new_string("&"),
16069 16069 nil),
... ... @@ -16073,28 +16073,28 @@ cons(cons(new_string(&quot;Bool&quot;),
16073 16073 new_string("y")),
16074 16074 nil)),
16075 16075 cons(cond,
16076   -cons(new_integer(405255),
  16076 +cons(new_integer(399879),
16077 16077 cons(cons(of_type,
16078   -cons(new_integer(405255),
  16078 +cons(new_integer(399879),
16079 16079 cons(new_string("Bool"),
16080 16080 cons(symbol,
16081   -cons(new_integer(405257),
  16081 +cons(new_integer(399881),
16082 16082 new_string("x")))))),
16083 16083 cons(cons(cons(new_string("false"),
16084 16084 nil),
16085   -cons(new_integer(405269),
  16085 +cons(new_integer(399893),
16086 16086 cons(symbol,
16087   -cons(new_integer(405275),
  16087 +cons(new_integer(399899),
16088 16088 new_string("false"))))),
16089 16089 cons(cons(cons(new_string("true"),
16090 16090 nil),
16091   -cons(new_integer(405262),
  16091 +cons(new_integer(399886),
16092 16092 cons(symbol,
16093   -cons(new_integer(405264),
  16093 +cons(new_integer(399888),
16094 16094 new_string("y"))))),
16095 16095 nil))))));
16096 16096  
16097   -new_op_scheme(811548,1,
  16097 +new_op_scheme(800796,1,
16098 16098 cons(app_ts,
16099 16099 cons(new_string("List"),
16100 16100 cons(new_utvar("T"),
... ... @@ -16113,45 +16113,45 @@ nil))),
16113 16113 new_string("l2")),
16114 16114 nil)),
16115 16115 cons(cond,
16116   -cons(new_integer(407301),
  16116 +cons(new_integer(401925),
16117 16117 cons(cons(symbol,
16118   -cons(new_integer(407304),
  16118 +cons(new_integer(401928),
16119 16119 new_string("l1"))),
16120 16120 cons(cons(cons(new_string("[]"),
16121 16121 nil),
16122   -cons(new_integer(407823),
  16122 +cons(new_integer(402447),
16123 16123 cons(symbol,
16124   -cons(new_integer(407826),
  16124 +cons(new_integer(402450),
16125 16125 new_string("l2"))))),
16126 16126 cons(cons(cons(new_string("[.]"),
16127 16127 cons(new_string("h"),
16128 16128 cons(new_string("t"),
16129 16129 nil))),
16130   -cons(new_integer(408083),
  16130 +cons(new_integer(402707),
16131 16131 cons(app,
16132   -cons(new_integer(408344),
  16132 +cons(new_integer(402968),
16133 16133 cons(cons(symbol,
16134   -cons(new_integer(408343),
  16134 +cons(new_integer(402967),
16135 16135 new_string("reverse_append"))),
16136 16136 cons(cons(symbol,
16137   -cons(new_integer(408345),
  16137 +cons(new_integer(402969),
16138 16138 new_string("t"))),
16139 16139 cons(cons(app,
16140   -cons(new_integer(408351),
  16140 +cons(new_integer(402975),
16141 16141 cons(cons(symbol,
16142   -cons(new_integer(408351),
  16142 +cons(new_integer(402975),
16143 16143 new_string("[.]"))),
16144 16144 cons(cons(symbol,
16145   -cons(new_integer(408348),
  16145 +cons(new_integer(402972),
16146 16146 new_string("h"))),
16147 16147 cons(cons(symbol,
16148   -cons(new_integer(408353),
  16148 +cons(new_integer(402977),
16149 16149 new_string("l2"))),
16150 16150 nil))))),
16151 16151 nil))))))),
16152 16152 nil))))));
16153 16153  
16154   -new_op_scheme(818204,1,
  16154 +new_op_scheme(807452,1,
16155 16155 cons(app_ts,
16156 16156 cons(new_string("List"),
16157 16157 cons(new_utvar("T"),
... ... @@ -16165,19 +16165,19 @@ nil))),
16165 16165 new_string("l")),
16166 16166 nil),
16167 16167 cons(app,
16168   -cons(new_integer(410386),
  16168 +cons(new_integer(405010),
16169 16169 cons(cons(symbol,
16170   -cons(new_integer(410385),
  16170 +cons(new_integer(405009),
16171 16171 new_string("reverse_append"))),
16172 16172 cons(cons(symbol,
16173   -cons(new_integer(410387),
  16173 +cons(new_integer(405011),
16174 16174 new_string("l"))),
16175 16175 cons(cons(symbol,
16176   -cons(new_integer(410390),
  16176 +cons(new_integer(405014),
16177 16177 new_string("[]"))),
16178 16178 nil))))));
16179 16179  
16180   -new_op_scheme(821788,1,
  16180 +new_op_scheme(811036,1,
16181 16181 cons(app_ts,
16182 16182 cons(new_string("List"),
16183 16183 cons(new_utvar("T"),
... ... @@ -16196,45 +16196,45 @@ nil))),
16196 16196 new_string("l2")),
16197 16197 nil)),
16198 16198 cons(cond,
16199   -cons(new_integer(412421),
  16199 +cons(new_integer(407045),
16200 16200 cons(cons(symbol,
16201   -cons(new_integer(412424),
  16201 +cons(new_integer(407048),
16202 16202 new_string("l1"))),
16203 16203 cons(cons(cons(new_string("[]"),
16204 16204 nil),
16205   -cons(new_integer(412943),
  16205 +cons(new_integer(407567),
16206 16206 cons(symbol,
16207   -cons(new_integer(412946),
  16207 +cons(new_integer(407570),
16208 16208 new_string("l2"))))),
16209 16209 cons(cons(cons(new_string("[.]"),
16210 16210 cons(new_string("h"),
16211 16211 cons(new_string("t"),
16212 16212 nil))),
16213   -cons(new_integer(413203),
  16213 +cons(new_integer(407827),
16214 16214 cons(app,
16215   -cons(new_integer(413209),
  16215 +cons(new_integer(407833),
16216 16216 cons(cons(symbol,
16217   -cons(new_integer(413209),
  16217 +cons(new_integer(407833),
16218 16218 new_string("[.]"))),
16219 16219 cons(cons(symbol,
16220   -cons(new_integer(413206),
  16220 +cons(new_integer(407830),
16221 16221 new_string("h"))),
16222 16222 cons(cons(app,
16223   -cons(new_integer(413216),
  16223 +cons(new_integer(407840),
16224 16224 cons(cons(symbol,
16225   -cons(new_integer(413215),
  16225 +cons(new_integer(407839),
16226 16226 new_string("append"))),
16227 16227 cons(cons(symbol,
16228   -cons(new_integer(413217),
  16228 +cons(new_integer(407841),
16229 16229 new_string("t"))),
16230 16230 cons(cons(symbol,
16231   -cons(new_integer(413220),
  16231 +cons(new_integer(407844),
16232 16232 new_string("l2"))),
16233 16233 nil))))),
16234 16234 nil))))))),
16235 16235 nil))))));
16236 16236  
16237   -new_op_scheme(827932,1,
  16237 +new_op_scheme(817180,1,
16238 16238 new_string("Bool"),
16239 16239 cons(new_string("member"),
16240 16240 nil),
... ... @@ -16247,63 +16247,63 @@ cons(cons(new_utvar(&quot;T&quot;),
16247 16247 new_string("x")),
16248 16248 nil)),
16249 16249 cons(cond,
16250   -cons(new_integer(415750),
  16250 +cons(new_integer(410374),
16251 16251 cons(cons(symbol,
16252   -cons(new_integer(415752),
  16252 +cons(new_integer(410376),
16253 16253 new_string("l"))),
16254 16254 cons(cons(cons(new_string("[]"),
16255 16255 nil),
16256   -cons(new_integer(416271),
  16256 +cons(new_integer(410895),
16257 16257 cons(symbol,
16258   -cons(new_integer(416277),
  16258 +cons(new_integer(410901),
16259 16259 new_string("false"))))),
16260 16260 cons(cons(cons(new_string("[.]"),
16261 16261 cons(new_string("first"),
16262 16262 cons(new_string("others"),
16263 16263 nil))),
16264   -cons(new_integer(416540),
  16264 +cons(new_integer(411164),
16265 16265 cons(cond,
16266   -cons(new_integer(416779),
  16266 +cons(new_integer(411403),
16267 16267 cons(cons(of_type,
16268   -cons(new_integer(416779),
  16268 +cons(new_integer(411403),
16269 16269 cons(new_string("Bool"),
16270 16270 cons(app,
16271   -cons(new_integer(416783),
  16271 +cons(new_integer(411407),
16272 16272 cons(cons(symbol,
16273   -cons(new_integer(416783),
  16273 +cons(new_integer(411407),
16274 16274 new_string("="))),
16275 16275 cons(cons(symbol,
16276   -cons(new_integer(416781),
  16276 +cons(new_integer(411405),
16277 16277 new_string("x"))),
16278 16278 cons(cons(symbol,
16279   -cons(new_integer(416789),
  16279 +cons(new_integer(411413),
16280 16280 new_string("first"))),
16281 16281 nil)))))))),
16282 16282 cons(cons(cons(new_string("false"),
16283 16283 nil),
16284   -cons(new_integer(417293),
  16284 +cons(new_integer(411917),
16285 16285 cons(app,
16286   -cons(new_integer(417301),
  16286 +cons(new_integer(411925),
16287 16287 cons(cons(symbol,
16288   -cons(new_integer(417300),
  16288 +cons(new_integer(411924),
16289 16289 new_string("member"))),
16290 16290 cons(cons(symbol,
16291   -cons(new_integer(417307),
  16291 +cons(new_integer(411931),
16292 16292 new_string("others"))),
16293 16293 cons(cons(symbol,
16294   -cons(new_integer(417309),
  16294 +cons(new_integer(411933),
16295 16295 new_string("x"))),
16296 16296 nil))))))),
16297 16297 cons(cons(cons(new_string("true"),
16298 16298 nil),
16299   -cons(new_integer(417037),
  16299 +cons(new_integer(411661),
16300 16300 cons(symbol,
16301   -cons(new_integer(417042),
  16301 +cons(new_integer(411666),
16302 16302 new_string("true"))))),
16303 16303 nil))))))),
16304 16304 nil))))));
16305 16305  
16306   -new_op_scheme(838172,1,
  16306 +new_op_scheme(827420,1,
16307 16307 cons(app_ts,
16308 16308 cons(new_string("List"),
16309 16309 cons(new_utvar("B"),
... ... @@ -16322,67 +16322,67 @@ nil))),
16322 16322 new_string("l")),
16323 16323 nil)),
16324 16324 cons(cond,
16325   -cons(new_integer(420613),
  16325 +cons(new_integer(415237),
16326 16326 cons(cons(symbol,
16327   -cons(new_integer(420615),
  16327 +cons(new_integer(415239),
16328 16328 new_string("l"))),
16329 16329 cons(cons(cons(new_string("[]"),
16330 16330 nil),
16331   -cons(new_integer(421135),
  16331 +cons(new_integer(415759),
16332 16332 cons(symbol,
16333   -cons(new_integer(421139),
  16333 +cons(new_integer(415763),
16334 16334 new_string("[]"))))),
16335 16335 cons(cons(cons(new_string("[.]"),
16336 16336 cons(new_string("first_arg"),
16337 16337 cons(new_string("others_args"),
16338 16338 nil))),
16339   -cons(new_integer(421413),
  16339 +cons(new_integer(416037),
16340 16340 cons(with,
16341   -cons(new_integer(421649),
  16341 +cons(new_integer(416273),
16342 16342 cons(new_string("x"),
16343 16343 cons(cons(app,
16344   -cons(new_integer(421652),
  16344 +cons(new_integer(416276),
16345 16345 cons(cons(symbol,
16346   -cons(new_integer(421651),
  16346 +cons(new_integer(416275),
16347 16347 new_string("f"))),
16348 16348 cons(cons(symbol,
16349   -cons(new_integer(421661),
  16349 +cons(new_integer(416285),
16350 16350 new_string("first_arg"))),
16351 16351 nil)))),
16352 16352 cons(app,
16353   -cons(new_integer(422160),
  16353 +cons(new_integer(416784),
16354 16354 cons(cons(symbol,
16355   -cons(new_integer(422160),
  16355 +cons(new_integer(416784),
16356 16356 new_string("[.]"))),
16357 16357 cons(cons(symbol,
16358   -cons(new_integer(422157),
  16358 +cons(new_integer(416781),
16359 16359 new_string("x"))),
16360 16360 cons(cons(app,
16361   -cons(new_integer(422164),
  16361 +cons(new_integer(416788),
16362 16362 cons(cons(symbol,
16363   -cons(new_integer(422163),
  16363 +cons(new_integer(416787),
16364 16364 new_string("map"))),
16365 16365 cons(cons(symbol,
16366   -cons(new_integer(422165),
  16366 +cons(new_integer(416789),
16367 16367 new_string("f"))),
16368 16368 cons(cons(symbol,
16369   -cons(new_integer(422177),
  16369 +cons(new_integer(416801),
16370 16370 new_string("others_args"))),
16371 16371 nil))))),
16372 16372 nil))))))))))),
16373 16373 nil))))));
16374 16374  
16375   -new_op_scheme(847388,1,
  16375 +new_op_scheme(836636,1,
16376 16376 type_String,
16377 16377 cons(new_string("get_password"),
16378 16378 nil),
16379 16379 nil,
16380 16380 cons(avm,
16381   -cons(new_integer(423747),
  16381 +cons(new_integer(418371),
16382 16382 cons(get_password,
16383 16383 nil))));
16384 16384  
16385   -new_type_scheme(856600,0,
  16385 +new_type_scheme(845848,0,
16386 16386 new_string("Module"),
16387 16387 cons(new_utvar("T"),
16388 16388 nil),
... ... @@ -16395,7 +16395,7 @@ new_string(&quot;content&quot;)),
16395 16395 nil))),
16396 16396 nil),0,1);
16397 16397  
16398   -new_type_scheme(858648,0,
  16398 +new_type_scheme(847896,0,
16399 16399 new_string("LoadModuleResult"),
16400 16400 cons(new_utvar("T"),
16401 16401 nil),
... ... @@ -16429,7 +16429,7 @@ new_string(&quot;module&quot;)),
16429 16429 nil)),
16430 16430 nil))))),0,1);
16431 16431  
16432   -new_op_scheme(864284,1,
  16432 +new_op_scheme(853532,1,
16433 16433 cons(app_ts,
16434 16434 cons(new_string("LoadModuleResult"),
16435 16435 cons(new_utvar("T"),
... ... @@ -16440,12 +16440,12 @@ cons(cons(type_String,
16440 16440 new_string("module_name")),
16441 16441 nil),
16442 16442 cons(load_module,
16443   -cons(new_integer(432436),
  16443 +cons(new_integer(427060),
16444 16444 cons(symbol,
16445   -cons(new_integer(432448),
  16445 +cons(new_integer(427072),
16446 16446 new_string("module_name"))))));
16447 16447  
16448   -new_op_scheme(889372,1,
  16448 +new_op_scheme(878620,1,
16449 16449 type_ByteArray,
16450 16450 cons(new_string("serialize"),
16451 16451 nil),
... ... @@ -16453,12 +16453,12 @@ cons(cons(new_utvar(&quot;T&quot;),
16453 16453 new_string("d")),
16454 16454 nil),
16455 16455 cons(serialize,
16456   -cons(new_integer(444745),
  16456 +cons(new_integer(439369),
16457 16457 cons(symbol,
16458   -cons(new_integer(444747),
  16458 +cons(new_integer(439371),
16459 16459 new_string("d"))))));
16460 16460  
16461   -new_op_scheme(889884,1,
  16461 +new_op_scheme(879132,1,
16462 16462 cons(app_ts,
16463 16463 cons(new_string("Maybe"),
16464 16464 cons(new_utvar("T"),
... ... @@ -16469,12 +16469,12 @@ cons(cons(type_ByteArray,
16469 16469 new_string("s")),
16470 16470 nil),
16471 16471 cons(unserialize,
16472   -cons(new_integer(445003),
  16472 +cons(new_integer(439627),
16473 16473 cons(symbol,
16474   -cons(new_integer(445005),
  16474 +cons(new_integer(439629),
16475 16475 new_string("s"))))));
16476 16476  
16477   -new_op_scheme(892444,1,
  16477 +new_op_scheme(881692,1,
16478 16478 new_string("SaveResult"),
16479 16479 cons(new_string("save"),
16480 16480 nil),
... ... @@ -16484,47 +16484,47 @@ cons(cons(type_String,
16484 16484 new_string("file_name")),
16485 16485 nil)),
16486 16486 cons(cond,
16487   -cons(new_integer(447749),
  16487 +cons(new_integer(442373),
16488 16488 cons(cons(app,
16489   -cons(new_integer(447764),
  16489 +cons(new_integer(442388),
16490 16490 cons(cons(symbol,
16491   -cons(new_integer(447763),
  16491 +cons(new_integer(442387),
16492 16492 new_string("write_to_file"))),
16493 16493 cons(cons(symbol,
16494   -cons(new_integer(447773),
  16494 +cons(new_integer(442397),
16495 16495 new_string("file_name"))),
16496 16496 cons(cons(app,
16497   -cons(new_integer(447784),
  16497 +cons(new_integer(442408),
16498 16498 cons(cons(symbol,
16499   -cons(new_integer(447783),
  16499 +cons(new_integer(442407),
16500 16500 new_string("serialize"))),
16501 16501 cons(cons(symbol,
16502   -cons(new_integer(447789),
  16502 +cons(new_integer(442413),
16503 16503 new_string("datum"))),
16504 16504 nil)))),
16505 16505 nil))))),
16506 16506 cons(cons(cons(new_string("cannot_open_file"),
16507 16507 nil),
16508   -cons(new_integer(448289),
  16508 +cons(new_integer(442913),
16509 16509 cons(symbol,
16510   -cons(new_integer(448306),
  16510 +cons(new_integer(442930),
16511 16511 new_string("cannot_open_file"))))),
16512 16512 cons(cons(cons(new_string("write_error"),
16513 16513 cons(new_string("n"),
16514 16514 nil)),
16515   -cons(new_integer(448545),
  16515 +cons(new_integer(443169),
16516 16516 cons(symbol,
16517   -cons(new_integer(448557),
  16517 +cons(new_integer(443181),
16518 16518 new_string("write_error"))))),
16519 16519 cons(cons(cons(new_string("ok"),
16520 16520 nil),
16521   -cons(new_integer(448801),
  16521 +cons(new_integer(443425),
16522 16522 cons(symbol,
16523   -cons(new_integer(448804),
  16523 +cons(new_integer(443428),
16524 16524 new_string("ok"))))),
16525 16525 nil)))))));
16526 16526  
16527   -new_op_scheme(899100,1,
  16527 +new_op_scheme(888348,1,
16528 16528 cons(app_ts,
16529 16529 cons(new_string("RetrieveResult"),
16530 16530 cons(new_utvar("T"),
... ... @@ -16535,73 +16535,73 @@ cons(cons(type_String,
16535 16535 new_string("file_name")),
16536 16536 nil),
16537 16537 cons(cond,
16538   -cons(new_integer(450821),
  16538 +cons(new_integer(445445),
16539 16539 cons(cons(app,
16540   -cons(new_integer(450837),
  16540 +cons(new_integer(445461),
16541 16541 cons(cons(symbol,
16542   -cons(new_integer(450836),
  16542 +cons(new_integer(445460),
16543 16543 new_string("read_from_file"))),
16544 16544 cons(cons(symbol,
16545   -cons(new_integer(450846),
  16545 +cons(new_integer(445470),
16546 16546 new_string("file_name"))),
16547 16547 nil)))),
16548 16548 cons(cons(cons(new_string("cannot_find_file"),
16549 16549 nil),
16550   -cons(new_integer(451360),
  16550 +cons(new_integer(445984),
16551 16551 cons(symbol,
16552   -cons(new_integer(451377),
  16552 +cons(new_integer(446001),
16553 16553 new_string("cannot_find_file"))))),
16554 16554 cons(cons(cons(new_string("read_error"),
16555 16555 cons(new_string("ba"),
16556 16556 nil)),
16557   -cons(new_integer(451616),
  16557 +cons(new_integer(446240),
16558 16558 cons(symbol,
16559   -cons(new_integer(451627),
  16559 +cons(new_integer(446251),
16560 16560 new_string("read_error"))))),
16561 16561 cons(cons(cons(new_string("ok"),
16562 16562 cons(new_string("ba"),
16563 16563 nil)),
16564   -cons(new_integer(451872),
  16564 +cons(new_integer(446496),
16565 16565 cons(cond,
16566   -cons(new_integer(452107),
  16566 +cons(new_integer(446731),
16567 16567 cons(cons(of_type,
16568   -cons(new_integer(452109),
  16568 +cons(new_integer(446733),
16569 16569 cons(cons(app_ts,
16570 16570 cons(new_string("Maybe"),
16571 16571 cons(new_utvar("T"),
16572 16572 nil))),
16573 16573 cons(app,
16574   -cons(new_integer(452131),
  16574 +cons(new_integer(446755),
16575 16575 cons(cons(symbol,
16576   -cons(new_integer(452130),
  16576 +cons(new_integer(446754),
16577 16577 new_string("unserialize"))),
16578 16578 cons(cons(symbol,
16579   -cons(new_integer(452133),
  16579 +cons(new_integer(446757),
16580 16580 new_string("ba"))),
16581 16581 nil))))))),
16582 16582 cons(cons(cons(new_string("failure"),
16583 16583 nil),
16584   -cons(new_integer(452637),
  16584 +cons(new_integer(447261),
16585 16585 cons(symbol,
16586   -cons(new_integer(452648),
  16586 +cons(new_integer(447272),
16587 16587 new_string("type_error"))))),
16588 16588 cons(cons(cons(new_string("success"),
16589 16589 cons(new_string("d"),
16590 16590 nil)),
16591   -cons(new_integer(452893),
  16591 +cons(new_integer(447517),
16592 16592 cons(app,
16593   -cons(new_integer(452897),
  16593 +cons(new_integer(447521),
16594 16594 cons(cons(symbol,
16595   -cons(new_integer(452896),
  16595 +cons(new_integer(447520),
16596 16596 new_string("ok"))),
16597 16597 cons(cons(symbol,
16598   -cons(new_integer(452898),
  16598 +cons(new_integer(447522),
16599 16599 new_string("d"))),
16600 16600 nil)))))),
16601 16601 nil))))))),
16602 16602 nil)))))));
16603 16603  
16604   -new_op_scheme(911886,0,
  16604 +new_op_scheme(901134,0,
16605 16605 type_ByteArray,
16606 16606 cons(new_string("£md5"),
16607 16607 nil),
... ... @@ -16609,11 +16609,11 @@ cons(cons(type_ByteArray,
16609 16609 new_string("s")),
16610 16610 nil),
16611 16611 cons(avm,
16612   -cons(new_integer(455990),
  16612 +cons(new_integer(450614),
16613 16613 cons(md5_hash,
16614 16614 nil))));
16615 16615  
16616   -new_op_scheme(912398,0,
  16616 +new_op_scheme(901646,0,
16617 16617 type_ByteArray,
16618 16618 cons(new_string("£sha1"),
16619 16619 nil),
... ... @@ -16621,11 +16621,11 @@ cons(cons(type_ByteArray,
16621 16621 new_string("s")),
16622 16622 nil),
16623 16623 cons(avm,
16624   -cons(new_integer(456246),
  16624 +cons(new_integer(450870),
16625 16625 cons(sha1_hash,
16626 16626 nil))));
16627 16627  
16628   -new_op_scheme(912924,1,
  16628 +new_op_scheme(902172,1,
16629 16629 type_ByteArray,
16630 16630 cons(new_string("md5"),
16631 16631 nil),
... ... @@ -16633,22 +16633,22 @@ cons(cons(new_utvar(&quot;T&quot;),
16633 16633 new_string("d")),
16634 16634 nil),
16635 16635 cons(app,
16636   -cons(new_integer(456514),
  16636 +cons(new_integer(451138),
16637 16637 cons(cons(symbol,
16638   -cons(new_integer(456513),
  16638 +cons(new_integer(451137),
16639 16639 new_string("£md5"))),
16640 16640 cons(cons(app,
16641   -cons(new_integer(456524),
  16641 +cons(new_integer(451148),
16642 16642 cons(cons(symbol,
16643   -cons(new_integer(456523),
  16643 +cons(new_integer(451147),
16644 16644 new_string("serialize"))),
16645 16645 cons(cons(symbol,
16646   -cons(new_integer(456525),
  16646 +cons(new_integer(451149),
16647 16647 new_string("d"))),
16648 16648 nil)))),
16649 16649 nil)))));
16650 16650  
16651   -new_op_scheme(913436,1,
  16651 +new_op_scheme(902684,1,
16652 16652 type_ByteArray,
16653 16653 cons(new_string("sha1"),
16654 16654 nil),
... ... @@ -16656,22 +16656,22 @@ cons(cons(new_utvar(&quot;T&quot;),
16656 16656 new_string("d")),
16657 16657 nil),
16658 16658 cons(app,
16659   -cons(new_integer(456771),
  16659 +cons(new_integer(451395),
16660 16660 cons(cons(symbol,
16661   -cons(new_integer(456770),
  16661 +cons(new_integer(451394),
16662 16662 new_string("£sha1"))),
16663 16663 cons(cons(app,
16664   -cons(new_integer(456781),
  16664 +cons(new_integer(451405),
16665 16665 cons(cons(symbol,
16666   -cons(new_integer(456780),
  16666 +cons(new_integer(451404),
16667 16667 new_string("serialize"))),
16668 16668 cons(cons(symbol,
16669   -cons(new_integer(456782),
  16669 +cons(new_integer(451406),
16670 16670 new_string("d"))),
16671 16671 nil)))),
16672 16672 nil)))));
16673 16673  
16674   -new_type_scheme(917528,0,
  16674 +new_type_scheme(906776,0,
16675 16675 new_string("£BlowfishKey"),
16676 16676 nil,
16677 16677 cons(cons(cons(new_string("£blowfish_key"),
... ... @@ -16681,7 +16681,7 @@ noname),
16681 16681 nil)),
16682 16682 nil),0,1);
16683 16683  
16684   -new_op_scheme(919054,0,
  16684 +new_op_scheme(908302,0,
16685 16685 new_string("£BlowfishKey"),
16686 16686 cons(new_string("£create_blowfish_key"),
16687 16687 nil),
... ... @@ -16689,11 +16689,11 @@ cons(cons(type_String,
16689 16689 new_string("key")),
16690 16690 nil),
16691 16691 cons(avm,
16692   -cons(new_integer(460557),
  16692 +cons(new_integer(455181),
16693 16693 cons(create_blowfish_key,
16694 16694 nil))));
16695 16695  
16696   -new_op_scheme(922126,0,
  16696 +new_op_scheme(911374,0,
16697 16697 new_string("One"),
16698 16698 cons(new_string("£blowfish_encrypt_block"),
16699 16699 nil),
... ... @@ -16707,11 +16707,11 @@ cons(cons(new_string(&quot;Word32&quot;),
16707 16707 new_string("offset")),
16708 16708 nil)))),
16709 16709 cons(avm,
16710   -cons(new_integer(463111),
  16710 +cons(new_integer(457735),
16711 16711 cons(blowfish_encrypt_block,
16712 16712 nil))));
16713 16713  
16714   -new_op_scheme(927246,0,
  16714 +new_op_scheme(916494,0,
16715 16715 new_string("One"),
16716 16716 cons(new_string("£blowfish_decrypt_block"),
16717 16717 nil),
... ... @@ -16725,11 +16725,11 @@ cons(cons(new_string(&quot;Word32&quot;),
16725 16725 new_string("offset")),
16726 16726 nil)))),
16727 16727 cons(avm,
16728   -cons(new_integer(465671),
  16728 +cons(new_integer(460295),
16729 16729 cons(blowfish_decrypt_block,
16730 16730 nil))));
16731 16731  
16732   -new_op_scheme(932366,0,
  16732 +new_op_scheme(921614,0,
16733 16733 type_ByteArray,
16734 16734 cons(new_string("£make_blowfish_dest_for_encryption"),
16735 16735 nil),
... ... @@ -16737,100 +16737,100 @@ cons(cons(new_string(&quot;Word32&quot;),
16737 16737 new_string("size")),
16738 16738 nil),
16739 16739 cons(with,
16740   -cons(new_integer(467475),
  16740 +cons(new_integer(462099),
16741 16741 cons(new_string("remainder"),
16742 16742 cons(cons(app,
16743   -cons(new_integer(467481),
  16743 +cons(new_integer(462105),
16744 16744 cons(cons(symbol,
16745   -cons(new_integer(467481),
  16745 +cons(new_integer(462105),
16746 16746 new_string("&"))),
16747 16747 cons(cons(symbol,
16748   -cons(new_integer(467480),
  16748 +cons(new_integer(462104),
16749 16749 new_string("size"))),
16750 16750 cons(cons(integer_10,
16751   -cons(new_integer(467482),
  16751 +cons(new_integer(462106),
16752 16752 cons(new_integer(7),
16753 16753 nil))),
16754 16754 nil))))),
16755 16755 cons(with,
16756   -cons(new_integer(467731),
  16756 +cons(new_integer(462355),
16757 16757 cons(new_string("new_size"),
16758 16758 cons(cons(app,
16759   -cons(new_integer(468501),
  16759 +cons(new_integer(463125),
16760 16760 cons(cons(symbol,
16761   -cons(new_integer(468501),
  16761 +cons(new_integer(463125),
16762 16762 new_string("+"))),
16763 16763 cons(cons(cond,
16764   -cons(new_integer(467735),
  16764 +cons(new_integer(462359),
16765 16765 cons(cons(of_type,
16766   -cons(new_integer(467735),
  16766 +cons(new_integer(462359),
16767 16767 cons(new_string("Bool"),
16768 16768 cons(app,
16769   -cons(new_integer(467747),
  16769 +cons(new_integer(462371),
16770 16770 cons(cons(symbol,
16771   -cons(new_integer(467747),
  16771 +cons(new_integer(462371),
16772 16772 new_string("="))),
16773 16773 cons(cons(symbol,
16774   -cons(new_integer(467745),
  16774 +cons(new_integer(462369),
16775 16775 new_string("remainder"))),
16776 16776 cons(cons(integer_10,
16777   -cons(new_integer(467749),
  16777 +cons(new_integer(462373),
16778 16778 nil)),
16779 16779 nil)))))))),
16780 16780 cons(cons(cons(new_string("false"),
16781 16781 nil),
16782   -cons(new_integer(468249),
  16782 +cons(new_integer(462873),
16783 16783 cons(app,
16784   -cons(new_integer(468256),
  16784 +cons(new_integer(462880),
16785 16785 cons(cons(symbol,
16786   -cons(new_integer(468256),
  16786 +cons(new_integer(462880),
16787 16787 new_string("+"))),
16788 16788 cons(cons(symbol,
16789   -cons(new_integer(468254),
  16789 +cons(new_integer(462878),
16790 16790 new_string("size"))),
16791 16791 cons(cons(app,
16792   -cons(new_integer(468261),
  16792 +cons(new_integer(462885),
16793 16793 cons(cons(symbol,
16794   -cons(new_integer(468261),
  16794 +cons(new_integer(462885),
16795 16795 new_string("-"))),
16796 16796 cons(cons(integer_10,
16797   -cons(new_integer(468259),
  16797 +cons(new_integer(462883),
16798 16798 cons(new_integer(8),
16799 16799 nil))),
16800 16800 cons(cons(symbol,
16801   -cons(new_integer(468271),
  16801 +cons(new_integer(462895),
16802 16802 new_string("remainder"))),
16803 16803 nil))))),
16804 16804 nil))))))),
16805 16805 cons(cons(cons(new_string("true"),
16806 16806 nil),
16807   -cons(new_integer(467993),
  16807 +cons(new_integer(462617),
16808 16808 cons(symbol,
16809   -cons(new_integer(467998),
  16809 +cons(new_integer(462622),
16810 16810 new_string("size"))))),
16811 16811 nil))))),
16812 16812 cons(cons(integer_10,
16813   -cons(new_integer(468503),
  16813 +cons(new_integer(463127),
16814 16814 cons(new_integer(1),
16815 16815 nil))),
16816 16816 nil))))),
16817 16817 cons(app,
16818   -cons(new_integer(468761),
  16818 +cons(new_integer(463385),
16819 16819 cons(cons(symbol,
16820   -cons(new_integer(468761),
  16820 +cons(new_integer(463385),
16821 16821 new_string("constant_byte_array"))),
16822 16822 cons(cons(app,
16823   -cons(new_integer(468768),
  16823 +cons(new_integer(463392),
16824 16824 cons(cons(symbol,
16825   -cons(new_integer(468767),
  16825 +cons(new_integer(463391),
16826 16826 new_string("to_Int"))),
16827 16827 cons(cons(app,
16828   -cons(new_integer(468778),
  16828 +cons(new_integer(463402),
16829 16829 cons(cons(symbol,
16830   -cons(new_integer(468778),
  16830 +cons(new_integer(463402),
16831 16831 new_string("[.]"))),
16832 16832 cons(cons(symbol,
16833   -cons(new_integer(468777),
  16833 +cons(new_integer(463401),
16834 16834 new_string("new_size"))),
16835 16835 cons(cons(symbol,
16836 16836 cons(new_integer(0),
... ... @@ -16838,11 +16838,11 @@ new_string(&quot;[]&quot;))),
16838 16838 nil))))),
16839 16839 nil)))),
16840 16840 cons(cons(integer_10,
16841   -cons(new_integer(468781),
  16841 +cons(new_integer(463405),
16842 16842 nil)),
16843 16843 nil))))))))))))));
16844 16844  
16845   -new_op_scheme(941582,0,
  16845 +new_op_scheme(930830,0,
16846 16846 new_string("Word8"),
16847 16847 cons(new_string("£bytes_in_last_block"),
16848 16848 nil),
... ... @@ -16850,79 +16850,79 @@ cons(cons(new_string(&quot;Word32&quot;),
16850 16850 new_string("s")),
16851 16851 nil),
16852 16852 cons(with,
16853   -cons(new_integer(472078),
  16853 +cons(new_integer(466702),
16854 16854 cons(new_string("rem"),
16855 16855 cons(cons(app,
16856   -cons(new_integer(472081),
  16856 +cons(new_integer(466705),
16857 16857 cons(cons(symbol,
16858   -cons(new_integer(472081),
  16858 +cons(new_integer(466705),
16859 16859 new_string("&"))),
16860 16860 cons(cons(symbol,
16861   -cons(new_integer(472080),
  16861 +cons(new_integer(466704),
16862 16862 new_string("s"))),
16863 16863 cons(cons(integer_10,
16864   -cons(new_integer(472082),
  16864 +cons(new_integer(466706),
16865 16865 cons(new_integer(7),
16866 16866 nil))),
16867 16867 nil))))),
16868 16868 cons(cond,
16869   -cons(new_integer(472326),
  16869 +cons(new_integer(466950),
16870 16870 cons(cons(of_type,
16871   -cons(new_integer(472326),
  16871 +cons(new_integer(466950),
16872 16872 cons(new_string("Bool"),
16873 16873 cons(app,
16874   -cons(new_integer(472332),
  16874 +cons(new_integer(466956),
16875 16875 cons(cons(symbol,
16876   -cons(new_integer(472332),
  16876 +cons(new_integer(466956),
16877 16877 new_string("="))),
16878 16878 cons(cons(symbol,
16879   -cons(new_integer(472330),
  16879 +cons(new_integer(466954),
16880 16880 new_string("rem"))),
16881 16881 cons(cons(integer_10,
16882   -cons(new_integer(472334),
  16882 +cons(new_integer(466958),
16883 16883 nil)),
16884 16884 nil)))))))),
16885 16885 cons(cons(cons(new_string("false"),
16886 16886 nil),
16887   -cons(new_integer(472840),
  16887 +cons(new_integer(467464),
16888 16888 cons(cond,
16889   -cons(new_integer(472843),
  16889 +cons(new_integer(467467),
16890 16890 cons(cons(symbol,
16891   -cons(new_integer(472847),
  16891 +cons(new_integer(467471),
16892 16892 new_string("rem"))),
16893 16893 cons(cons(cons(new_string("word32"),
16894 16894 cons(new_string("l"),
16895 16895 cons(new_string("h"),
16896 16896 nil))),
16897   -cons(new_integer(472867),
  16897 +cons(new_integer(467491),
16898 16898 cons(cond,
16899   -cons(new_integer(472870),
  16899 +cons(new_integer(467494),
16900 16900 cons(cons(symbol,
16901   -cons(new_integer(472872),
  16901 +cons(new_integer(467496),
16902 16902 new_string("l"))),
16903 16903 cons(cons(cons(new_string("word16"),
16904 16904 cons(new_string("l1"),
16905 16905 cons(new_string("h1"),
16906 16906 nil))),
16907   -cons(new_integer(472894),
  16907 +cons(new_integer(467518),
16908 16908 cons(symbol,
16909   -cons(new_integer(472897),
  16909 +cons(new_integer(467521),
16910 16910 new_string("l1"))))),
16911 16911 nil)))))),
16912 16912 nil)))))),
16913 16913 cons(cons(cons(new_string("true"),
16914 16914 nil),
16915   -cons(new_integer(472584),
  16915 +cons(new_integer(467208),
16916 16916 cons(of_type,
16917   -cons(new_integer(472586),
  16917 +cons(new_integer(467210),
16918 16918 cons(new_string("Word8"),
16919 16919 cons(integer_10,
16920   -cons(new_integer(472593),
  16920 +cons(new_integer(467217),
16921 16921 cons(new_integer(8),
16922 16922 nil)))))))),
16923 16923 nil))))))))));
16924 16924  
16925   -new_op_scheme(947214,0,
  16925 +new_op_scheme(936462,0,
16926 16926 type_ByteArray,
16927 16927 cons(new_string("£blowfish_encrypt"),
16928 16928 nil),
... ... @@ -16936,87 +16936,87 @@ cons(cons(new_string(&quot;Word32&quot;),
16936 16936 new_string("i")),
16937 16937 nil)))),
16938 16938 cons(cond,
16939   -cons(new_integer(475653),
  16939 +cons(new_integer(470277),
16940 16940 cons(cons(of_type,
16941   -cons(new_integer(475653),
  16941 +cons(new_integer(470277),
16942 16942 cons(new_string("Bool"),
16943 16943 cons(app,
16944   -cons(new_integer(475659),
  16944 +cons(new_integer(470283),
16945 16945 cons(cons(symbol,
16946   -cons(new_integer(475659),
  16946 +cons(new_integer(470283),
16947 16947 new_string("+=<"))),
16948 16948 cons(cons(app,
16949   -cons(new_integer(475679),
  16949 +cons(new_integer(470303),
16950 16950 cons(cons(symbol,
16951   -cons(new_integer(475678),
  16951 +cons(new_integer(470302),
16952 16952 new_string("truncate_to_Word32"))),
16953 16953 cons(cons(app,
16954   -cons(new_integer(475686),
  16954 +cons(new_integer(470310),
16955 16955 cons(cons(symbol,
16956   -cons(new_integer(475685),
  16956 +cons(new_integer(470309),
16957 16957 new_string("length"))),
16958 16958 cons(cons(symbol,
16959   -cons(new_integer(475692),
  16959 +cons(new_integer(470316),
16960 16960 new_string("source"))),
16961 16961 nil)))),
16962 16962 nil)))),
16963 16963 cons(cons(symbol,
16964   -cons(new_integer(475655),
  16964 +cons(new_integer(470279),
16965 16965 new_string("i"))),
16966 16966 nil)))))))),
16967 16967 cons(cons(cons(new_string("false"),
16968 16968 nil),
16969   -cons(new_integer(476423),
  16969 +cons(new_integer(471047),
16970 16970 cons(cond,
16971   -cons(new_integer(476724),
  16971 +cons(new_integer(471348),
16972 16972 cons(cons(of_type,
16973   -cons(new_integer(476724),
  16973 +cons(new_integer(471348),
16974 16974 cons(new_string("One"),
16975 16975 cons(app,
16976   -cons(new_integer(476705),
  16976 +cons(new_integer(471329),
16977 16977 cons(cons(symbol,
16978   -cons(new_integer(476704),
  16978 +cons(new_integer(471328),
16979 16979 new_string("£blowfish_encrypt_block"))),
16980 16980 cons(cons(symbol,
16981   -cons(new_integer(476708),
  16981 +cons(new_integer(471332),
16982 16982 new_string("key"))),
16983 16983 cons(cons(symbol,
16984   -cons(new_integer(476715),
  16984 +cons(new_integer(471339),
16985 16985 new_string("source"))),
16986 16986 cons(cons(symbol,
16987   -cons(new_integer(476720),
  16987 +cons(new_integer(471344),
16988 16988 new_string("dest"))),
16989 16989 cons(cons(symbol,
16990   -cons(new_integer(476722),
  16990 +cons(new_integer(471346),
16991 16991 new_string("i"))),
16992 16992 nil)))))))))),
16993 16993 cons(cons(cons(new_string("unique"),
16994 16994 nil),
16995   -cons(new_integer(476724),
  16995 +cons(new_integer(471348),
16996 16996 cons(app,
16997   -cons(new_integer(476955),
  16997 +cons(new_integer(471579),
16998 16998 cons(cons(symbol,
16999   -cons(new_integer(476954),
  16999 +cons(new_integer(471578),
17000 17000 new_string("£blowfish_encrypt"))),
17001 17001 cons(cons(symbol,
17002   -cons(new_integer(476958),
  17002 +cons(new_integer(471582),
17003 17003 new_string("key"))),
17004 17004 cons(cons(symbol,
17005   -cons(new_integer(476965),
  17005 +cons(new_integer(471589),
17006 17006 new_string("source"))),
17007 17007 cons(cons(symbol,
17008   -cons(new_integer(476970),
  17008 +cons(new_integer(471594),
17009 17009 new_string("dest"))),
17010 17010 cons(cons(app,
17011   -cons(new_integer(476973),
  17011 +cons(new_integer(471597),
17012 17012 cons(cons(symbol,
17013   -cons(new_integer(476973),
  17013 +cons(new_integer(471597),
17014 17014 new_string("+"))),
17015 17015 cons(cons(symbol,
17016   -cons(new_integer(476972),
  17016 +cons(new_integer(471596),
17017 17017 new_string("i"))),
17018 17018 cons(cons(integer_10,
17019   -cons(new_integer(476974),
  17019 +cons(new_integer(471598),
17020 17020 cons(new_integer(8),
17021 17021 nil))),
17022 17022 nil))))),
... ... @@ -17024,37 +17024,37 @@ nil))))))))),
17024 17024 nil)))))),
17025 17025 cons(cons(cons(new_string("true"),
17026 17026 nil),
17027   -cons(new_integer(475911),
  17027 +cons(new_integer(470535),
17028 17028 cons(cond,
17029   -cons(new_integer(476256),
  17029 +cons(new_integer(470880),
17030 17030 cons(cons(of_type,
17031   -cons(new_integer(476256),
  17031 +cons(new_integer(470880),
17032 17032 cons(new_string("One"),
17033 17033 cons(app,
17034   -cons(new_integer(476176),
  17034 +cons(new_integer(470800),
17035 17035 cons(cons(symbol,
17036   -cons(new_integer(476175),
  17036 +cons(new_integer(470799),
17037 17037 new_string("forget"))),
17038 17038 cons(cons(app,
17039   -cons(new_integer(476180),
  17039 +cons(new_integer(470804),
17040 17040 cons(cons(symbol,
17041   -cons(new_integer(476179),
  17041 +cons(new_integer(470803),
17042 17042 new_string("put"))),
17043 17043 cons(cons(symbol,
17044   -cons(new_integer(476184),
  17044 +cons(new_integer(470808),
17045 17045 new_string("dest"))),
17046 17046 cons(cons(app,
17047   -cons(new_integer(476192),
  17047 +cons(new_integer(470816),
17048 17048 cons(cons(symbol,
17049   -cons(new_integer(476191),
  17049 +cons(new_integer(470815),
17050 17050 new_string("to_Int"))),
17051 17051 cons(cons(app,
17052   -cons(new_integer(476195),
  17052 +cons(new_integer(470819),
17053 17053 cons(cons(symbol,
17054   -cons(new_integer(476195),
  17054 +cons(new_integer(470819),
17055 17055 new_string("[.]"))),
17056 17056 cons(cons(symbol,
17057   -cons(new_integer(476194),
  17057 +cons(new_integer(470818),
17058 17058 new_string("i"))),
17059 17059 cons(cons(symbol,
17060 17060 cons(new_integer(0),
... ... @@ -17062,22 +17062,22 @@ new_string(&quot;[]&quot;))),
17062 17062 nil))))),
17063 17063 nil)))),
17064 17064 cons(cons(app,
17065   -cons(new_integer(476218),
  17065 +cons(new_integer(470842),
17066 17066 cons(cons(symbol,
17067   -cons(new_integer(476217),
  17067 +cons(new_integer(470841),
17068 17068 new_string("£bytes_in_last_block"))),
17069 17069 cons(cons(app,
17070   -cons(new_integer(476237),
  17070 +cons(new_integer(470861),
17071 17071 cons(cons(symbol,
17072   -cons(new_integer(476236),
  17072 +cons(new_integer(470860),
17073 17073 new_string("truncate_to_Word32"))),
17074 17074 cons(cons(app,
17075   -cons(new_integer(476244),
  17075 +cons(new_integer(470868),
17076 17076 cons(cons(symbol,
17077   -cons(new_integer(476243),
  17077 +cons(new_integer(470867),
17078 17078 new_string("length"))),
17079 17079 cons(cons(symbol,
17080   -cons(new_integer(476250),
  17080 +cons(new_integer(470874),
17081 17081 new_string("source"))),
17082 17082 nil)))),
17083 17083 nil)))),
... ... @@ -17086,14 +17086,14 @@ nil)))))),
17086 17086 nil))))))),
17087 17087 cons(cons(cons(new_string("unique"),
17088 17088 nil),
17089   -cons(new_integer(476256),
  17089 +cons(new_integer(470880),
17090 17090 cons(symbol,
17091   -cons(new_integer(476261),
  17091 +cons(new_integer(470885),
17092 17092 new_string("dest"))))),
17093 17093 nil)))))),
17094 17094 nil))))));
17095 17095  
17096   -new_op_scheme(954894,0,
  17096 +new_op_scheme(944142,0,
17097 17097 new_string("Word32"),
17098 17098 cons(new_string("word8_to_word32"),
17099 17099 nil),
... ... @@ -17101,28 +17101,28 @@ cons(cons(new_string(&quot;Word8&quot;),
17101 17101 new_string("x")),
17102 17102 nil),
17103 17103 cons(app,
17104   -cons(new_integer(478731),
  17104 +cons(new_integer(473355),
17105 17105 cons(cons(symbol,
17106   -cons(new_integer(478730),
  17106 +cons(new_integer(473354),
17107 17107 new_string("word32"))),
17108 17108 cons(cons(app,
17109   -cons(new_integer(478738),
  17109 +cons(new_integer(473362),
17110 17110 cons(cons(symbol,
17111   -cons(new_integer(478737),
  17111 +cons(new_integer(473361),
17112 17112 new_string("word16"))),
17113 17113 cons(cons(symbol,
17114   -cons(new_integer(478739),
  17114 +cons(new_integer(473363),
17115 17115 new_string("x"))),
17116 17116 cons(cons(integer_10,
17117   -cons(new_integer(478741),
  17117 +cons(new_integer(473365),
17118 17118 nil)),
17119 17119 nil))))),
17120 17120 cons(cons(integer_10,
17121   -cons(new_integer(478744),
  17121 +cons(new_integer(473368),
17122 17122 nil)),
17123 17123 nil))))));
17124 17124  
17125   -new_op_scheme(958478,0,
  17125 +new_op_scheme(947726,0,
17126 17126 type_ByteArray,
17127 17127 cons(new_string("£blowfish_decrypt"),
17128 17128 nil),
... ... @@ -17136,97 +17136,97 @@ cons(cons(new_string(&quot;Word32&quot;),
17136 17136 new_string("i")),
17137 17137 nil)))),
17138 17138 cons(cond,
17139   -cons(new_integer(481285),
  17139 +cons(new_integer(475909),
17140 17140 cons(cons(of_type,
17141   -cons(new_integer(481285),
  17141 +cons(new_integer(475909),
17142 17142 cons(new_string("Bool"),
17143 17143 cons(app,
17144   -cons(new_integer(481291),
  17144 +cons(new_integer(475915),
17145 17145 cons(cons(symbol,
17146   -cons(new_integer(481291),
  17146 +cons(new_integer(475915),
17147 17147 new_string("+=<"))),
17148 17148 cons(cons(app,
17149   -cons(new_integer(481329),
  17149 +cons(new_integer(475953),
17150 17150 cons(cons(symbol,
17151   -cons(new_integer(481329),
  17151 +cons(new_integer(475953),
17152 17152 new_string("-"))),
17153 17153 cons(cons(app,
17154   -cons(new_integer(481312),
  17154 +cons(new_integer(475936),
17155 17155 cons(cons(symbol,
17156   -cons(new_integer(481311),
  17156 +cons(new_integer(475935),
17157 17157 new_string("truncate_to_Word32"))),
17158 17158 cons(cons(app,
17159   -cons(new_integer(481319),
  17159 +cons(new_integer(475943),
17160 17160 cons(cons(symbol,
17161   -cons(new_integer(481318),
  17161 +cons(new_integer(475942),
17162 17162 new_string("length"))),
17163 17163 cons(cons(symbol,
17164   -cons(new_integer(481325),
  17164 +cons(new_integer(475949),
17165 17165 new_string("source"))),
17166 17166 nil)))),
17167 17167 nil)))),
17168 17168 cons(cons(integer_10,
17169   -cons(new_integer(481331),
  17169 +cons(new_integer(475955),
17170 17170 cons(new_integer(1),
17171 17171 nil))),
17172 17172 nil))))),
17173 17173 cons(cons(symbol,
17174   -cons(new_integer(481287),
  17174 +cons(new_integer(475911),
17175 17175 new_string("i"))),
17176 17176 nil)))))))),
17177 17177 cons(cons(cons(new_string("false"),
17178 17178 nil),
17179   -cons(new_integer(482055),
  17179 +cons(new_integer(476679),
17180 17180 cons(cond,
17181   -cons(new_integer(482356),
  17181 +cons(new_integer(476980),
17182 17182 cons(cons(of_type,
17183   -cons(new_integer(482356),
  17183 +cons(new_integer(476980),
17184 17184 cons(new_string("One"),
17185 17185 cons(app,
17186   -cons(new_integer(482337),
  17186 +cons(new_integer(476961),
17187 17187 cons(cons(symbol,
17188   -cons(new_integer(482336),
  17188 +cons(new_integer(476960),
17189 17189 new_string("£blowfish_decrypt_block"))),
17190 17190 cons(cons(symbol,
17191   -cons(new_integer(482340),
  17191 +cons(new_integer(476964),
17192 17192 new_string("key"))),
17193 17193 cons(cons(symbol,
17194   -cons(new_integer(482347),
  17194 +cons(new_integer(476971),
17195 17195 new_string("source"))),
17196 17196 cons(cons(symbol,
17197   -cons(new_integer(482352),
  17197 +cons(new_integer(476976),
17198 17198 new_string("dest"))),
17199 17199 cons(cons(symbol,
17200   -cons(new_integer(482354),
  17200 +cons(new_integer(476978),
17201 17201 new_string("i"))),
17202 17202 nil)))))))))),
17203 17203 cons(cons(cons(new_string("unique"),
17204 17204 nil),
17205   -cons(new_integer(482356),
  17205 +cons(new_integer(476980),
17206 17206 cons(app,
17207   -cons(new_integer(482587),
  17207 +cons(new_integer(477211),
17208 17208 cons(cons(symbol,
17209   -cons(new_integer(482586),
  17209 +cons(new_integer(477210),
17210 17210 new_string("£blowfish_decrypt"))),
17211 17211 cons(cons(symbol,
17212   -cons(new_integer(482590),
  17212 +cons(new_integer(477214),
17213 17213 new_string("key"))),
17214 17214 cons(cons(symbol,
17215   -cons(new_integer(482597),
  17215 +cons(new_integer(477221),
17216 17216 new_string("source"))),
17217 17217 cons(cons(symbol,
17218   -cons(new_integer(482602),
  17218 +cons(new_integer(477226),
17219 17219 new_string("dest"))),
17220 17220 cons(cons(app,
17221   -cons(new_integer(482605),
  17221 +cons(new_integer(477229),
17222 17222 cons(cons(symbol,
17223   -cons(new_integer(482605),
  17223 +cons(new_integer(477229),
17224 17224 new_string("+"))),
17225 17225 cons(cons(symbol,
17226   -cons(new_integer(482604),
  17226 +cons(new_integer(477228),
17227 17227 new_string("i"))),
17228 17228 cons(cons(integer_10,
17229   -cons(new_integer(482606),
  17229 +cons(new_integer(477230),
17230 17230 cons(new_integer(8),
17231 17231 nil))),
17232 17232 nil))))),
... ... @@ -17234,64 +17234,64 @@ nil))))))))),
17234 17234 nil)))))),
17235 17235 cons(cons(cons(new_string("true"),
17236 17236 nil),
17237   -cons(new_integer(481543),
  17237 +cons(new_integer(476167),
17238 17238 cons(cond,
17239   -cons(new_integer(481873),
  17239 +cons(new_integer(476497),
17240 17240 cons(cons(of_type,
17241   -cons(new_integer(481873),
  17241 +cons(new_integer(476497),
17242 17242 cons(new_string("One"),
17243 17243 cons(app,
17244   -cons(new_integer(481810),
  17244 +cons(new_integer(476434),
17245 17245 cons(cons(symbol,
17246   -cons(new_integer(481809),
  17246 +cons(new_integer(476433),
17247 17247 new_string("truncate"))),
17248 17248 cons(cons(symbol,
17249   -cons(new_integer(481814),
  17249 +cons(new_integer(476438),
17250 17250 new_string("dest"))),
17251 17251 cons(cons(app,
17252   -cons(new_integer(481822),
  17252 +cons(new_integer(476446),
17253 17253 cons(cons(symbol,
17254   -cons(new_integer(481821),
  17254 +cons(new_integer(476445),
17255 17255 new_string("to_Int"))),
17256 17256 cons(cons(app,
17257   -cons(new_integer(481824),
  17257 +cons(new_integer(476448),
17258 17258 cons(cons(symbol,
17259   -cons(new_integer(481824),
  17259 +cons(new_integer(476448),
17260 17260 new_string("+"))),
17261 17261 cons(cons(symbol,
17262   -cons(new_integer(481823),
  17262 +cons(new_integer(476447),
17263 17263 new_string("i"))),
17264 17264 cons(cons(app,
17265   -cons(new_integer(481869),
  17265 +cons(new_integer(476493),
17266 17266 cons(cons(symbol,
17267   -cons(new_integer(481869),
  17267 +cons(new_integer(476493),
17268 17268 new_string("-"))),
17269 17269 cons(cons(app,
17270   -cons(new_integer(481840),
  17270 +cons(new_integer(476464),
17271 17271 cons(cons(symbol,
17272   -cons(new_integer(481839),
  17272 +cons(new_integer(476463),
17273 17273 new_string("word8_to_word32"))),
17274 17274 cons(cons(app,
17275   -cons(new_integer(481850),
  17275 +cons(new_integer(476474),
17276 17276 cons(cons(symbol,
17277   -cons(new_integer(481849),
  17277 +cons(new_integer(476473),
17278 17278 new_string("force_nth"))),
17279 17279 cons(cons(app,
17280   -cons(new_integer(481857),
  17280 +cons(new_integer(476481),
17281 17281 cons(cons(symbol,
17282   -cons(new_integer(481856),
  17282 +cons(new_integer(476480),
17283 17283 new_string("to_Int"))),
17284 17284 cons(cons(symbol,
17285   -cons(new_integer(481858),
  17285 +cons(new_integer(476482),
17286 17286 new_string("i"))),
17287 17287 nil)))),
17288 17288 cons(cons(symbol,
17289   -cons(new_integer(481866),
  17289 +cons(new_integer(476490),
17290 17290 new_string("source"))),
17291 17291 nil))))),
17292 17292 nil)))),
17293 17293 cons(cons(integer_10,
17294   -cons(new_integer(481870),
  17294 +cons(new_integer(476494),
17295 17295 cons(new_integer(8),
17296 17296 nil))),
17297 17297 nil))))),
... ... @@ -17300,14 +17300,14 @@ nil)))),
17300 17300 nil)))))))),
17301 17301 cons(cons(cons(new_string("unique"),
17302 17302 nil),
17303   -cons(new_integer(481873),
  17303 +cons(new_integer(476497),
17304 17304 cons(symbol,
17305   -cons(new_integer(481878),
  17305 +cons(new_integer(476502),
17306 17306 new_string("dest"))))),
17307 17307 nil)))))),
17308 17308 nil))))));
17309 17309  
17310   -new_op_scheme(967708,1,
  17310 +new_op_scheme(956956,1,
17311 17311 type_ByteArray,
17312 17312 cons(new_string("blowfish_encrypt"),
17313 17313 nil),
... ... @@ -17317,67 +17317,67 @@ cons(cons(new_utvar(&quot;T&quot;),
17317 17317 new_string("datum")),
17318 17318 nil)),
17319 17319 cons(with,
17320   -cons(new_integer(485392),
  17320 +cons(new_integer(480016),
17321 17321 cons(new_string("source"),
17322 17322 cons(cons(app,
17323   -cons(new_integer(485403),
  17323 +cons(new_integer(480027),
17324 17324 cons(cons(symbol,
17325   -cons(new_integer(485402),
  17325 +cons(new_integer(480026),
17326 17326 new_string("serialize"))),
17327 17327 cons(cons(symbol,
17328   -cons(new_integer(485408),
  17328 +cons(new_integer(480032),
17329 17329 new_string("datum"))),
17330 17330 nil)))),
17331 17331 cons(with,
17332   -cons(new_integer(485648),
  17332 +cons(new_integer(480272),
17333 17333 cons(new_string("dest"),
17334 17334 cons(cons(app,
17335   -cons(new_integer(485684),
  17335 +cons(new_integer(480308),
17336 17336 cons(cons(symbol,
17337   -cons(new_integer(485683),
  17337 +cons(new_integer(480307),
17338 17338 new_string("£make_blowfish_dest_for_encryption"))),
17339 17339 cons(cons(app,
17340   -cons(new_integer(485703),
  17340 +cons(new_integer(480327),
17341 17341 cons(cons(symbol,
17342   -cons(new_integer(485702),
  17342 +cons(new_integer(480326),
17343 17343 new_string("truncate_to_Word32"))),
17344 17344 cons(cons(app,
17345   -cons(new_integer(485710),
  17345 +cons(new_integer(480334),
17346 17346 cons(cons(symbol,
17347   -cons(new_integer(485709),
  17347 +cons(new_integer(480333),
17348 17348 new_string("length"))),
17349 17349 cons(cons(symbol,
17350   -cons(new_integer(485716),
  17350 +cons(new_integer(480340),
17351 17351 new_string("source"))),
17352 17352 nil)))),
17353 17353 nil)))),
17354 17354 nil)))),
17355 17355 cons(app,
17356   -cons(new_integer(485909),
  17356 +cons(new_integer(480533),
17357 17357 cons(cons(symbol,
17358   -cons(new_integer(485909),
  17358 +cons(new_integer(480533),
17359 17359 new_string("£blowfish_encrypt"))),
17360 17360 cons(cons(app,
17361   -cons(new_integer(485930),
  17361 +cons(new_integer(480554),
17362 17362 cons(cons(symbol,
17363   -cons(new_integer(485929),
  17363 +cons(new_integer(480553),
17364 17364 new_string("£create_blowfish_key"))),
17365 17365 cons(cons(symbol,
17366   -cons(new_integer(485933),
  17366 +cons(new_integer(480557),
17367 17367 new_string("key"))),
17368 17368 nil)))),
17369 17369 cons(cons(symbol,
17370   -cons(new_integer(485941),
  17370 +cons(new_integer(480565),
17371 17371 new_string("source"))),
17372 17372 cons(cons(symbol,
17373   -cons(new_integer(485946),
  17373 +cons(new_integer(480570),
17374 17374 new_string("dest"))),
17375 17375 cons(cons(integer_10,
17376   -cons(new_integer(485948),
  17376 +cons(new_integer(480572),
17377 17377 nil)),
17378 17378 nil))))))))))))))));
17379 17379  
17380   -new_op_scheme(972828,1,
  17380 +new_op_scheme(962076,1,
17381 17381 cons(app_ts,
17382 17382 cons(new_string("Maybe"),
17383 17383 cons(new_utvar("T"),
... ... @@ -17390,108 +17390,108 @@ cons(cons(type_ByteArray,
17390 17390 new_string("source")),
17391 17391 nil)),
17392 17392 cons(cond,
17393   -cons(new_integer(487941),
  17393 +cons(new_integer(482565),
17394 17394 cons(cons(of_type,
17395   -cons(new_integer(487941),
  17395 +cons(new_integer(482565),
17396 17396 cons(new_string("Bool"),
17397 17397 cons(app,
17398   -cons(new_integer(487982),
  17398 +cons(new_integer(482606),
17399 17399 cons(cons(symbol,
17400   -cons(new_integer(487982),
  17400 +cons(new_integer(482606),
17401 17401 new_string("="))),
17402 17402 cons(cons(app,
17403   -cons(new_integer(487978),
  17403 +cons(new_integer(482602),
17404 17404 cons(cons(symbol,
17405   -cons(new_integer(487978),
  17405 +cons(new_integer(482602),
17406 17406 new_string("&"))),
17407 17407 cons(cons(app,
17408   -cons(new_integer(487962),
  17408 +cons(new_integer(482586),
17409 17409 cons(cons(symbol,
17410   -cons(new_integer(487961),
  17410 +cons(new_integer(482585),
17411 17411 new_string("truncate_to_Word32"))),
17412 17412 cons(cons(app,
17413   -cons(new_integer(487969),
  17413 +cons(new_integer(482593),
17414 17414 cons(cons(symbol,
17415   -cons(new_integer(487968),
  17415 +cons(new_integer(482592),
17416 17416 new_string("length"))),
17417 17417 cons(cons(symbol,
17418   -cons(new_integer(487975),
  17418 +cons(new_integer(482599),
17419 17419 new_string("source"))),
17420 17420 nil)))),
17421 17421 nil)))),
17422 17422 cons(cons(integer_10,
17423   -cons(new_integer(487979),
  17423 +cons(new_integer(482603),
17424 17424 cons(new_integer(7),
17425 17425 nil))),
17426 17426 nil))))),
17427 17427 cons(cons(integer_10,
17428   -cons(new_integer(487984),
  17428 +cons(new_integer(482608),
17429 17429 cons(new_integer(1),
17430 17430 nil))),
17431 17431 nil)))))))),
17432 17432 cons(cons(cons(new_string("false"),
17433 17433 nil),
17434   -cons(new_integer(489480),
  17434 +cons(new_integer(484104),
17435 17435 cons(symbol,
17436   -cons(new_integer(489741),
  17436 +cons(new_integer(484365),
17437 17437 new_string("failure"))))),
17438 17438 cons(cons(cons(new_string("true"),
17439 17439 nil),
17440   -cons(new_integer(488199),
  17440 +cons(new_integer(482823),
17441 17441 cons(with,
17442   -cons(new_integer(488718),
  17442 +cons(new_integer(483342),
17443 17443 cons(new_string("dest"),
17444 17444 cons(cons(app,
17445   -cons(new_integer(488739),
  17445 +cons(new_integer(483363),
17446 17446 cons(cons(symbol,
17447   -cons(new_integer(488738),
  17447 +cons(new_integer(483362),
17448 17448 new_string("constant_byte_array"))),
17449 17449 cons(cons(app,
17450   -cons(new_integer(488746),
  17450 +cons(new_integer(483370),
17451 17451 cons(cons(symbol,
17452   -cons(new_integer(488745),
  17452 +cons(new_integer(483369),
17453 17453 new_string("length"))),
17454 17454 cons(cons(symbol,
17455   -cons(new_integer(488752),
  17455 +cons(new_integer(483376),
17456 17456 new_string("source"))),
17457 17457 nil)))),
17458 17458 cons(cons(integer_10,
17459   -cons(new_integer(488755),
  17459 +cons(new_integer(483379),
17460 17460 nil)),
17461 17461 nil))))),
17462 17462 cons(app,
17463   -cons(new_integer(488975),
  17463 +cons(new_integer(483599),
17464 17464 cons(cons(symbol,
17465   -cons(new_integer(488975),
  17465 +cons(new_integer(483599),
17466 17466 new_string("unserialize"))),
17467 17467 cons(cons(app,
17468   -cons(new_integer(488993),
  17468 +cons(new_integer(483617),
17469 17469 cons(cons(symbol,
17470   -cons(new_integer(488992),
  17470 +cons(new_integer(483616),
17471 17471 new_string("£blowfish_decrypt"))),
17472 17472 cons(cons(app,
17473   -cons(new_integer(489014),
  17473 +cons(new_integer(483638),
17474 17474 cons(cons(symbol,
17475   -cons(new_integer(489013),
  17475 +cons(new_integer(483637),
17476 17476 new_string("£create_blowfish_key"))),
17477 17477 cons(cons(symbol,
17478   -cons(new_integer(489017),
  17478 +cons(new_integer(483641),
17479 17479 new_string("key"))),
17480 17480 nil)))),
17481 17481 cons(cons(symbol,
17482   -cons(new_integer(489025),
  17482 +cons(new_integer(483649),
17483 17483 new_string("source"))),
17484 17484 cons(cons(symbol,
17485   -cons(new_integer(489030),
  17485 +cons(new_integer(483654),
17486 17486 new_string("dest"))),
17487 17487 cons(cons(integer_10,
17488   -cons(new_integer(489032),
  17488 +cons(new_integer(483656),
17489 17489 nil)),
17490 17490 nil))))))),
17491 17491 nil)))))))))),
17492 17492 nil))))));
17493 17493  
17494   -new_type_scheme(984088,0,
  17494 +new_type_scheme(973336,0,
17495 17495 new_string("SSL_Connection"),
17496 17496 nil,
17497 17497 cons(cons(cons(new_string("£ssl_connection"),
... ... @@ -17507,7 +17507,7 @@ new_string(&quot;hostname&quot;)),
17507 17507 nil)))),
17508 17508 nil),0,1);
17509 17509  
17510   -new_type_scheme(988184,0,
  17510 +new_type_scheme(977432,0,
17511 17511 new_string("X509"),
17512 17512 nil,
17513 17513 cons(cons(cons(new_string("£x509"),
... ... @@ -17518,7 +17518,7 @@ noname),
17518 17518 nil)),
17519 17519 nil),0,1);
17520 17520  
17521   -new_op_scheme(989710,0,
  17521 +new_op_scheme(978958,0,
17522 17522 type_String,
17523 17523 cons(new_string("£to_string"),
17524 17524 nil),
... ... @@ -17527,11 +17527,11 @@ new_integer(2)),
17527 17527 new_string("ptr")),
17528 17528 nil),
17529 17529 cons(avm,
17530   -cons(new_integer(495885),
  17530 +cons(new_integer(490509),
17531 17531 cons(print_X509,
17532 17532 nil))));
17533 17533  
17534   -new_op_scheme(992796,1,
  17534 +new_op_scheme(982044,1,
17535 17535 type_String,
17536 17536 cons(new_string("to_string"),
17537 17537 nil),
... ... @@ -17539,26 +17539,26 @@ cons(cons(new_string(&quot;X509&quot;),
17539 17539 new_string("certificate")),
17540 17540 nil),
17541 17541 cons(cond,
17542   -cons(new_integer(497669),
  17542 +cons(new_integer(492293),
17543 17543 cons(cons(symbol,
17544   -cons(new_integer(497681),
  17544 +cons(new_integer(492305),
17545 17545 new_string("certificate"))),
17546 17546 cons(cons(cons(new_string("£x509"),
17547 17547 cons(new_string("ptr"),
17548 17548 nil)),
17549   -cons(new_integer(497700),
  17549 +cons(new_integer(492324),
17550 17550 cons(app,
17551   -cons(new_integer(497712),
  17551 +cons(new_integer(492336),
17552 17552 cons(cons(symbol,
17553   -cons(new_integer(497711),
  17553 +cons(new_integer(492335),
17554 17554 new_string("£to_string"))),
17555 17555 cons(cons(symbol,
17556   -cons(new_integer(497715),
  17556 +cons(new_integer(492339),
17557 17557 new_string("ptr"))),
17558 17558 nil)))))),
17559 17559 nil)))));
17560 17560  
17561   -new_op_scheme(996366,0,
  17561 +new_op_scheme(985614,0,
17562 17562 new_string("Result_trust_X509_for_ever"),
17563 17563 cons(new_string("£trust_for_ever"),
17564 17564 nil),
... ... @@ -17567,11 +17567,11 @@ new_integer(2)),
17567 17567 new_string("ptr")),
17568 17568 nil),
17569 17569 cons(avm,
17570   -cons(new_integer(499213),
  17570 +cons(new_integer(493837),
17571 17571 cons(trust_X509_for_ever,
17572 17572 nil))));
17573 17573  
17574   -new_op_scheme(999452,1,
  17574 +new_op_scheme(988700,1,
17575 17575 new_string("Result_trust_X509_for_ever"),
17576 17576 cons(new_string("trust_for_ever"),
17577 17577 nil),
... ... @@ -17579,26 +17579,26 @@ cons(cons(new_string(&quot;X509&quot;),
17579 17579 new_string("cert")),
17580 17580 nil),
17581 17581 cons(cond,
17582   -cons(new_integer(500997),
  17582 +cons(new_integer(495621),
17583 17583 cons(cons(symbol,
17584   -cons(new_integer(501002),
  17584 +cons(new_integer(495626),
17585 17585 new_string("cert"))),
17586 17586 cons(cons(cons(new_string("£x509"),
17587 17587 cons(new_string("ptr"),
17588 17588 nil)),
17589   -cons(new_integer(501021),
  17589 +cons(new_integer(495645),
17590 17590 cons(app,
17591   -cons(new_integer(501038),
  17591 +cons(new_integer(495662),
17592 17592 cons(cons(symbol,
17593   -cons(new_integer(501037),
  17593 +cons(new_integer(495661),
17594 17594 new_string("£trust_for_ever"))),
17595 17595 cons(cons(symbol,
17596   -cons(new_integer(501041),
  17596 +cons(new_integer(495665),
17597 17597 new_string("ptr"))),
17598 17598 nil)))))),
17599 17599 nil)))));
17600 17600  
17601   -new_type_scheme(1005080,0,
  17601 +new_type_scheme(994328,0,
17602 17602 new_string("£SSL_client_wrap_Result"),
17603 17603 nil,
17604 17604 cons(cons(cons(new_string("£cannot_create_SSL_object"),
... ... @@ -17615,7 +17615,7 @@ noname),
17615 17615 nil)),
17616 17616 nil))),0,1);
17617 17617  
17618   -new_op_scheme(1007630,0,
  17618 +new_op_scheme(996878,0,
17619 17619 new_string("£SSL_client_wrap_Result"),
17620 17620 cons(new_string("£ssl_client_wrap"),
17621 17621 nil),
... ... @@ -17624,11 +17624,11 @@ new_string(&quot;Word8&quot;)),
17624 17624 new_string("tcp_conn")),
17625 17625 nil),
17626 17626 cons(avm,
17627   -cons(new_integer(504845),
  17627 +cons(new_integer(499469),
17628 17628 cons(ssl_client_wrap,
17629 17629 nil))));
17630 17630  
17631   -new_op_scheme(1010702,0,
  17631 +new_op_scheme(999950,0,
17632 17632 new_string("Bool"),
17633 17633 cons(new_string("£check_certificate_chain"),
17634 17634 nil),
... ... @@ -17639,11 +17639,11 @@ cons(cons(type_String,
17639 17639 new_string("server_name")),
17640 17640 nil)),
17641 17641 cons(avm,
17642   -cons(new_integer(506637),
  17642 +cons(new_integer(501261),
17643 17643 cons(check_certificate_chain,
17644 17644 nil))));
17645 17645  
17646   -new_op_scheme(1014286,0,
  17646 +new_op_scheme(1003534,0,
17647 17647 cons(app_ts,
17648 17648 cons(new_string("Maybe"),
17649 17649 cons(new_string("X509"),
... ... @@ -17655,11 +17655,11 @@ new_integer(1)),
17655 17655 new_string("ssl_obj")),
17656 17656 nil),
17657 17657 cons(avm,
17658   -cons(new_integer(508173),
  17658 +cons(new_integer(502797),
17659 17659 cons(get_ssl_certificate,
17660 17660 nil))));
17661 17661  
17662   -new_op_scheme(1017372,1,
  17662 +new_op_scheme(1006620,1,
17663 17663 cons(app_ts,
17664 17664 cons(new_string("Result"),
17665 17665 cons(new_string("SSLConnectError"),
... ... @@ -17683,9 +17683,9 @@ new_string(&quot;Bool&quot;))),
17683 17683 new_string("accept_policy")),
17684 17684 nil)))),
17685 17685 cons(cond,
17686   -cons(new_integer(511493),
  17686 +cons(new_integer(506117),
17687 17687 cons(cons(connect_to_IP,
17688   -cons(new_integer(511550),
  17688 +cons(new_integer(506174),
17689 17689 cons(cons(app_ts,
17690 17690 cons(new_string("Result"),
17691 17691 cons(new_string("NetworkConnectError"),
... ... @@ -17693,171 +17693,171 @@ cons(cons(type_RWStream,
17693 17693 new_string("Word8")),
17694 17694 nil)))),
17695 17695 cons(cons(symbol,
17696   -cons(new_integer(511561),
  17696 +cons(new_integer(506185),
17697 17697 new_string("ip_address"))),
17698 17698 cons(symbol,
17699   -cons(new_integer(511569),
  17699 +cons(new_integer(506193),
17700 17700 new_string("ip_port"))))))),
17701 17701 cons(cons(cons(new_string("error"),
17702 17702 cons(new_string("msg"),
17703 17703 nil)),
17704   -cons(new_integer(512022),
  17704 +cons(new_integer(506646),
17705 17705 cons(app,
17706   -cons(new_integer(512029),
  17706 +cons(new_integer(506653),
17707 17707 cons(cons(symbol,
17708   -cons(new_integer(512028),
  17708 +cons(new_integer(506652),
17709 17709 new_string("error"))),
17710 17710 cons(cons(app,
17711   -cons(new_integer(512039),
  17711 +cons(new_integer(506663),
17712 17712 cons(cons(symbol,
17713   -cons(new_integer(512038),
  17713 +cons(new_integer(506662),
17714 17714 new_string("tcp_error"))),
17715 17715 cons(cons(symbol,
17716   -cons(new_integer(512042),
  17716 +cons(new_integer(506666),
17717 17717 new_string("msg"))),
17718 17718 nil)))),
17719 17719 nil)))))),
17720 17720 cons(cons(cons(new_string("ok"),
17721 17721 cons(new_string("tcp_conn"),
17722 17722 nil)),
17723   -cons(new_integer(512280),
  17723 +cons(new_integer(506904),
17724 17724 cons(cond,
17725   -cons(new_integer(512523),
  17725 +cons(new_integer(507147),
17726 17726 cons(cons(app,
17727   -cons(new_integer(512541),
  17727 +cons(new_integer(507165),
17728 17728 cons(cons(symbol,
17729   -cons(new_integer(512540),
  17729 +cons(new_integer(507164),
17730 17730 new_string("£ssl_client_wrap"))),
17731 17731 cons(cons(symbol,
17732   -cons(new_integer(512549),
  17732 +cons(new_integer(507173),
17733 17733 new_string("tcp_conn"))),
17734 17734 nil)))),
17735 17735 cons(cons(cons(new_string("£cannot_create_SSL_object"),
17736 17736 nil),
17737   -cons(new_integer(513067),
  17737 +cons(new_integer(507691),
17738 17738 cons(app,
17739   -cons(new_integer(513074),
  17739 +cons(new_integer(507698),
17740 17740 cons(cons(symbol,
17741   -cons(new_integer(513073),
  17741 +cons(new_integer(507697),
17742 17742 new_string("error"))),
17743 17743 cons(cons(symbol,
17744   -cons(new_integer(513098),
  17744 +cons(new_integer(507722),
17745 17745 new_string("cannot_create_SSL_object"))),
17746 17746 nil)))))),
17747 17747 cons(cons(cons(new_string("£cannot_connect_under_SSL"),
17748 17748 nil),
17749   -cons(new_integer(513323),
  17749 +cons(new_integer(507947),
17750 17750 cons(app,
17751   -cons(new_integer(513330),
  17751 +cons(new_integer(507954),
17752 17752 cons(cons(symbol,
17753   -cons(new_integer(513329),
  17753 +cons(new_integer(507953),
17754 17754 new_string("error"))),
17755 17755 cons(cons(symbol,
17756   -cons(new_integer(513354),
  17756 +cons(new_integer(507978),
17757 17757 new_string("cannot_connect_under_SSL"))),
17758 17758 nil)))))),
17759 17759 cons(cons(cons(new_string("£ok"),
17760 17760 cons(new_string("ssl_obj"),
17761 17761 nil)),
17762   -cons(new_integer(513566),
  17762 +cons(new_integer(508190),
17763 17763 cons(cond,
17764   -cons(new_integer(513809),
  17764 +cons(new_integer(508433),
17765 17765 cons(cons(of_type,
17766   -cons(new_integer(513809),
  17766 +cons(new_integer(508433),
17767 17767 cons(new_string("Bool"),
17768 17768 cons(app,
17769   -cons(new_integer(513835),
  17769 +cons(new_integer(508459),
17770 17770 cons(cons(symbol,
17771   -cons(new_integer(513834),
  17771 +cons(new_integer(508458),
17772 17772 new_string("£check_certificate_chain"))),
17773 17773 cons(cons(symbol,
17774   -cons(new_integer(513842),
  17774 +cons(new_integer(508466),
17775 17775 new_string("ssl_obj"))),
17776 17776 cons(cons(symbol,
17777   -cons(new_integer(513854),
  17777 +cons(new_integer(508478),
17778 17778 new_string("server_name"))),
17779 17779 nil)))))))),
17780 17780 cons(cons(cons(new_string("false"),
17781 17781 nil),
17782   -cons(new_integer(514323),
  17782 +cons(new_integer(508947),
17783 17783 cons(cond,
17784   -cons(new_integer(514326),
  17784 +cons(new_integer(508950),
17785 17785 cons(cons(of_type,
17786   -cons(new_integer(514326),
  17786 +cons(new_integer(508950),
17787 17787 cons(new_string("Bool"),
17788 17788 cons(app,
17789   -cons(new_integer(514341),
  17789 +cons(new_integer(508965),
17790 17790 cons(cons(symbol,
17791   -cons(new_integer(514340),
  17791 +cons(new_integer(508964),
17792 17792 new_string("accept_policy"))),
17793 17793 cons(cons(app,
17794   -cons(new_integer(514362),
  17794 +cons(new_integer(508986),
17795 17795 cons(cons(symbol,
17796   -cons(new_integer(514361),
  17796 +cons(new_integer(508985),
17797 17797 new_string("£get_ssl_certificate"))),
17798 17798 cons(cons(symbol,
17799   -cons(new_integer(514369),
  17799 +cons(new_integer(508993),
17800 17800 new_string("ssl_obj"))),
17801 17801 nil)))),
17802 17802 nil))))))),
17803 17803 cons(cons(cons(new_string("false"),
17804 17804 nil),
17805   -cons(new_integer(514840),
  17805 +cons(new_integer(509464),
17806 17806 cons(app,
17807   -cons(new_integer(514847),
  17807 +cons(new_integer(509471),
17808 17808 cons(cons(symbol,
17809   -cons(new_integer(514846),
  17809 +cons(new_integer(509470),
17810 17810 new_string("error"))),
17811 17811 cons(cons(symbol,
17812   -cons(new_integer(514878),
  17812 +cons(new_integer(509502),
17813 17813 new_string("cannot_trust_server_certificate"))),
17814 17814 nil)))))),
17815 17815 cons(cons(cons(new_string("true"),
17816 17816 nil),
17817   -cons(new_integer(514584),
  17817 +cons(new_integer(509208),
17818 17818 cons(app,
17819   -cons(new_integer(514588),
  17819 +cons(new_integer(509212),
17820 17820 cons(cons(symbol,
17821   -cons(new_integer(514587),
  17821 +cons(new_integer(509211),
17822 17822 new_string("ok"))),
17823 17823 cons(cons(app,
17824   -cons(new_integer(514604),
  17824 +cons(new_integer(509228),
17825 17825 cons(cons(symbol,
17826   -cons(new_integer(514603),
  17826 +cons(new_integer(509227),
17827 17827 new_string("£ssl_connection"))),
17828 17828 cons(cons(symbol,
17829   -cons(new_integer(514611),
  17829 +cons(new_integer(509235),
17830 17830 new_string("ssl_obj"))),
17831 17831 cons(cons(symbol,
17832   -cons(new_integer(514620),
  17832 +cons(new_integer(509244),
17833 17833 new_string("tcp_conn"))),
17834 17834 cons(cons(symbol,
17835   -cons(new_integer(514632),
  17835 +cons(new_integer(509256),
17836 17836 new_string("server_name"))),
17837 17837 nil)))))),
17838 17838 nil)))))),
17839 17839 nil))))))),
17840 17840 cons(cons(cons(new_string("true"),
17841 17841 nil),
17842   -cons(new_integer(514067),
  17842 +cons(new_integer(508691),
17843 17843 cons(app,
17844   -cons(new_integer(514071),
  17844 +cons(new_integer(508695),
17845 17845 cons(cons(symbol,
17846   -cons(new_integer(514070),
  17846 +cons(new_integer(508694),
17847 17847 new_string("ok"))),
17848 17848 cons(cons(app,
17849   -cons(new_integer(514087),
  17849 +cons(new_integer(508711),
17850 17850 cons(cons(symbol,
17851   -cons(new_integer(514086),
  17851 +cons(new_integer(508710),
17852 17852 new_string("£ssl_connection"))),
17853 17853 cons(cons(symbol,
17854   -cons(new_integer(514094),
  17854 +cons(new_integer(508718),
17855 17855 new_string("ssl_obj"))),
17856 17856 cons(cons(symbol,
17857   -cons(new_integer(514103),
  17857 +cons(new_integer(508727),
17858 17858 new_string("tcp_conn"))),
17859 17859 cons(cons(symbol,
17860   -cons(new_integer(514115),
  17860 +cons(new_integer(508739),
17861 17861 new_string("server_name"))),
17862 17862 nil)))))),
17863 17863 nil)))))),
... ... @@ -17865,7 +17865,7 @@ nil))))))),
17865 17865 nil)))))))),
17866 17866 nil))))));
17867 17867  
17868   -new_op_scheme(1034254,0,
  17868 +new_op_scheme(1023502,0,
17869 17869 cons(app_ts,
17870 17870 cons(new_string("Maybe"),
17871 17871 cons(type_ByteArray,
... ... @@ -17880,11 +17880,11 @@ cons(cons(new_string(&quot;Word32&quot;),
17880 17880 new_string("timeout")),
17881 17881 nil))),
17882 17882 cons(avm,
17883   -cons(new_integer(518669),
  17883 +cons(new_integer(513293),
17884 17884 cons(ssl_read_byte_array,
17885 17885 nil))));
17886 17886  
17887   -new_op_scheme(1038350,0,
  17887 +new_op_scheme(1027598,0,
17888 17888 cons(app_ts,
17889 17889 cons(new_string("Maybe"),
17890 17890 cons(type_String,
... ... @@ -17899,11 +17899,11 @@ cons(cons(new_string(&quot;Word32&quot;),
17899 17899 new_string("timeout")),
17900 17900 nil))),
17901 17901 cons(avm,
17902   -cons(new_integer(520717),
  17902 +cons(new_integer(515341),
17903 17903 cons(ssl_read_string,
17904 17904 nil))));
17905 17905  
17906   -new_op_scheme(1042460,1,
  17906 +new_op_scheme(1031708,1,
17907 17907 cons(app_ts,
17908 17908 cons(new_string("Maybe"),
17909 17909 cons(type_ByteArray,
... ... @@ -17918,34 +17918,34 @@ cons(cons(type_Int,
17918 17918 new_string("timeout")),
17919 17919 nil))),
17920 17920 cons(app,
17921   -cons(new_integer(523017),
  17921 +cons(new_integer(517641),
17922 17922 cons(cons(symbol,
17923   -cons(new_integer(523016),
  17923 +cons(new_integer(517640),
17924 17924 new_string("£read"))),
17925 17925 cons(cons(symbol,
17926   -cons(new_integer(523021),
  17926 +cons(new_integer(517645),
17927 17927 new_string("conn"))),
17928 17928 cons(cons(app,
17929   -cons(new_integer(523042),
  17929 +cons(new_integer(517666),
17930 17930 cons(cons(symbol,
17931   -cons(new_integer(523041),
  17931 +cons(new_integer(517665),
17932 17932 new_string("truncate_to_Word32"))),
17933 17933 cons(cons(symbol,
17934   -cons(new_integer(523043),
  17934 +cons(new_integer(517667),
17935 17935 new_string("n"))),
17936 17936 nil)))),
17937 17937 cons(cons(app,
17938   -cons(new_integer(523065),
  17938 +cons(new_integer(517689),
17939 17939 cons(cons(symbol,
17940   -cons(new_integer(523064),
  17940 +cons(new_integer(517688),
17941 17941 new_string("truncate_to_Word32"))),
17942 17942 cons(cons(symbol,
17943   -cons(new_integer(523072),
  17943 +cons(new_integer(517696),
17944 17944 new_string("timeout"))),
17945 17945 nil)))),
17946 17946 nil)))))));
17947 17947  
17948   -new_op_scheme(1047068,1,
  17948 +new_op_scheme(1036316,1,
17949 17949 cons(app_ts,
17950 17950 cons(new_string("Maybe"),
17951 17951 cons(type_String,
... ... @@ -17960,34 +17960,34 @@ cons(cons(type_Int,
17960 17960 new_string("timeout")),
17961 17961 nil))),
17962 17962 cons(app,
17963   -cons(new_integer(525321),
  17963 +cons(new_integer(519945),
17964 17964 cons(cons(symbol,
17965   -cons(new_integer(525320),
  17965 +cons(new_integer(519944),
17966 17966 new_string("£read"))),
17967 17967 cons(cons(symbol,
17968   -cons(new_integer(525325),
  17968 +cons(new_integer(519949),
17969 17969 new_string("conn"))),
17970 17970 cons(cons(app,
17971   -cons(new_integer(525346),
  17971 +cons(new_integer(519970),
17972 17972 cons(cons(symbol,
17973   -cons(new_integer(525345),
  17973 +cons(new_integer(519969),
17974 17974 new_string("truncate_to_Word32"))),
17975 17975 cons(cons(symbol,
17976   -cons(new_integer(525347),
  17976 +cons(new_integer(519971),
17977 17977 new_string("n"))),
17978 17978 nil)))),
17979 17979 cons(cons(app,
17980   -cons(new_integer(525369),
  17980 +cons(new_integer(519993),
17981 17981 cons(cons(symbol,
17982   -cons(new_integer(525368),
  17982 +cons(new_integer(519992),
17983 17983 new_string("truncate_to_Word32"))),
17984 17984 cons(cons(symbol,
17985   -cons(new_integer(525376),
  17985 +cons(new_integer(520000),
17986 17986 new_string("timeout"))),
17987 17987 nil)))),
17988 17988 nil)))))));
17989 17989  
17990   -new_op_scheme(1052174,0,
  17990 +new_op_scheme(1041422,0,
17991 17991 cons(app_ts,
17992 17992 cons(new_string("Maybe"),
17993 17993 cons(new_string("Word32"),
... ... @@ -18000,11 +18000,11 @@ cons(cons(type_ByteArray,
18000 18000 new_string("data")),
18001 18001 nil)),
18002 18002 cons(avm,
18003   -cons(new_integer(527373),
  18003 +cons(new_integer(521997),
18004 18004 cons(ssl_write_byte_array,
18005 18005 nil))));
18006 18006  
18007   -new_op_scheme(1055758,0,
  18007 +new_op_scheme(1045006,0,
18008 18008 cons(app_ts,
18009 18009 cons(new_string("Maybe"),
18010 18010 cons(new_string("Word32"),
... ... @@ -18017,11 +18017,11 @@ cons(cons(type_String,
18017 18017 new_string("data")),
18018 18018 nil)),
18019 18019 cons(avm,
18020   -cons(new_integer(529165),
  18020 +cons(new_integer(523789),
18021 18021 cons(ssl_write_string,
18022 18022 nil))));
18023 18023  
18024   -new_op_scheme(1059356,1,
  18024 +new_op_scheme(1048604,1,
18025 18025 cons(app_ts,
18026 18026 cons(new_string("Maybe"),
18027 18027 cons(type_Int,
... ... @@ -18034,43 +18034,43 @@ cons(cons(type_ByteArray,
18034 18034 new_string("data")),
18035 18035 nil)),
18036 18036 cons(select_cond,
18037   -cons(new_integer(531205),
  18037 +cons(new_integer(525829),
18038 18038 cons(cons(app,
18039   -cons(new_integer(531213),
  18039 +cons(new_integer(525837),
18040 18040 cons(cons(symbol,
18041   -cons(new_integer(531212),
  18041 +cons(new_integer(525836),
18042 18042 new_string("£write"))),
18043 18043 cons(cons(symbol,
18044   -cons(new_integer(531217),
  18044 +cons(new_integer(525841),
18045 18045 new_string("conn"))),
18046 18046 cons(cons(symbol,
18047   -cons(new_integer(531223),
  18047 +cons(new_integer(525847),
18048 18048 new_string("data"))),
18049 18049 nil))))),
18050 18050 cons(cons(cons(new_string("success"),
18051 18051 cons(new_string("v"),
18052 18052 nil)),
18053   -cons(new_integer(531243),
  18053 +cons(new_integer(525867),
18054 18054 cons(app,
18055   -cons(new_integer(531252),
  18055 +cons(new_integer(525876),
18056 18056 cons(cons(symbol,
18057   -cons(new_integer(531251),
  18057 +cons(new_integer(525875),
18058 18058 new_string("success"))),
18059 18059 cons(cons(app,
18060   -cons(new_integer(531259),
  18060 +cons(new_integer(525883),
18061 18061 cons(cons(symbol,
18062   -cons(new_integer(531258),
  18062 +cons(new_integer(525882),
18063 18063 new_string("to_Int"))),
18064 18064 cons(cons(symbol,
18065   -cons(new_integer(531260),
  18065 +cons(new_integer(525884),
18066 18066 new_string("v"))),
18067 18067 nil)))),
18068 18068 nil)))))),
18069 18069 cons(symbol,
18070   -cons(new_integer(531275),
  18070 +cons(new_integer(525899),
18071 18071 new_string("failure"))))))));
18072 18072  
18073   -new_op_scheme(1063452,1,
  18073 +new_op_scheme(1052700,1,
18074 18074 cons(app_ts,
18075 18075 cons(new_string("Maybe"),
18076 18076 cons(type_Int,
... ... @@ -18083,43 +18083,43 @@ cons(cons(type_String,
18083 18083 new_string("data")),
18084 18084 nil)),
18085 18085 cons(select_cond,
18086   -cons(new_integer(533253),
  18086 +cons(new_integer(527877),
18087 18087 cons(cons(app,
18088   -cons(new_integer(533261),
  18088 +cons(new_integer(527885),
18089 18089 cons(cons(symbol,
18090   -cons(new_integer(533260),
  18090 +cons(new_integer(527884),
18091 18091 new_string("£write"))),
18092 18092 cons(cons(symbol,
18093   -cons(new_integer(533265),
  18093 +cons(new_integer(527889),
18094 18094 new_string("conn"))),
18095 18095 cons(cons(symbol,
18096   -cons(new_integer(533271),
  18096 +cons(new_integer(527895),
18097 18097 new_string("data"))),
18098 18098 nil))))),
18099 18099 cons(cons(cons(new_string("success"),
18100 18100 cons(new_string("v"),
18101 18101 nil)),
18102   -cons(new_integer(533291),
  18102 +cons(new_integer(527915),
18103 18103 cons(app,
18104   -cons(new_integer(533300),
  18104 +cons(new_integer(527924),
18105 18105 cons(cons(symbol,
18106   -cons(new_integer(533299),
  18106 +cons(new_integer(527923),
18107 18107 new_string("success"))),
18108 18108 cons(cons(app,
18109   -cons(new_integer(533307),
  18109 +cons(new_integer(527931),
18110 18110 cons(cons(symbol,
18111   -cons(new_integer(533306),
  18111 +cons(new_integer(527930),
18112 18112 new_string("to_Int"))),
18113 18113 cons(cons(symbol,
18114   -cons(new_integer(533308),
  18114 +cons(new_integer(527932),
18115 18115 new_string("v"))),
18116 18116 nil)))),
18117 18117 nil)))))),
18118 18118 cons(symbol,
18119   -cons(new_integer(533323),
  18119 +cons(new_integer(527947),
18120 18120 new_string("failure"))))))));
18121 18121  
18122   -new_op_scheme(1069070,0,
  18122 +new_op_scheme(1058318,0,
18123 18123 cons(app_ts,
18124 18124 cons(new_string("Maybe"),
18125 18125 cons(cons(type_struct_ptr,
... ... @@ -18132,11 +18132,11 @@ new_string(&quot;Word8&quot;)),
18132 18132 new_string("tcp_conn")),
18133 18133 nil),
18134 18134 cons(avm,
18135   -cons(new_integer(535816),
  18135 +cons(new_integer(530440),
18136 18136 cons(ssl_server_wrap,
18137 18137 nil))));
18138 18138  
18139   -new_op_scheme(1072654,0,
  18139 +new_op_scheme(1061902,0,
18140 18140 new_string("One"),
18141 18141 cons(new_string("£handle_ssl_request"),
18142 18142 nil),
... ... @@ -18152,50 +18152,50 @@ new_string(&quot;One&quot;))),
18152 18152 new_string("handler")),
18153 18153 nil))),
18154 18154 cons(cond,
18155   -cons(new_integer(538118),
  18155 +cons(new_integer(532742),
18156 18156 cons(cons(app,
18157   -cons(new_integer(538136),
  18157 +cons(new_integer(532760),
18158 18158 cons(cons(symbol,
18159   -cons(new_integer(538135),
  18159 +cons(new_integer(532759),
18160 18160 new_string("£ssl_server_wrap"))),
18161 18161 cons(cons(symbol,
18162   -cons(new_integer(538144),
  18162 +cons(new_integer(532768),
18163 18163 new_string("tcp_conn"))),
18164 18164 nil)))),
18165 18165 cons(cons(cons(new_string("failure"),
18166 18166 nil),
18167   -cons(new_integer(538644),
  18167 +cons(new_integer(533268),
18168 18168 cons(symbol,
18169   -cons(new_integer(538651),
  18169 +cons(new_integer(533275),
18170 18170 new_string("unique"))))),
18171 18171 cons(cons(cons(new_string("success"),
18172 18172 cons(new_string("ssl_obj"),
18173 18173 nil)),
18174   -cons(new_integer(538909),
  18174 +cons(new_integer(533533),
18175 18175 cons(app,
18176   -cons(new_integer(539154),
  18176 +cons(new_integer(533778),
18177 18177 cons(cons(symbol,
18178   -cons(new_integer(539153),
  18178 +cons(new_integer(533777),
18179 18179 new_string("handler"))),
18180 18180 cons(cons(app,
18181   -cons(new_integer(539170),
  18181 +cons(new_integer(533794),
18182 18182 cons(cons(symbol,
18183   -cons(new_integer(539169),
  18183 +cons(new_integer(533793),
18184 18184 new_string("£ssl_connection"))),
18185 18185 cons(cons(symbol,
18186   -cons(new_integer(539177),
  18186 +cons(new_integer(533801),
18187 18187 new_string("ssl_obj"))),
18188 18188 cons(cons(symbol,
18189   -cons(new_integer(539186),
  18189 +cons(new_integer(533810),
18190 18190 new_string("tcp_conn"))),
18191 18191 cons(cons(symbol,
18192   -cons(new_integer(539198),
  18192 +cons(new_integer(533822),
18193 18193 new_string("server_name"))),
18194 18194 nil)))))),
18195 18195 nil)))))),
18196 18196 nil))))));
18197 18197  
18198   -new_op_scheme(1079822,0,
  18198 +new_op_scheme(1069070,0,
18199 18199 new_string("One"),
18200 18200 cons(new_string("£run_ssl_server"),
18201 18201 nil),
... ... @@ -18215,103 +18215,103 @@ new_string(&quot;One&quot;))),
18215 18215 new_string("notify")),
18216 18216 nil)))),
18217 18217 cons(cond,
18218   -cons(new_integer(541958),
  18218 +cons(new_integer(536582),
18219 18219 cons(cons(app,
18220   -cons(new_integer(541978),
  18220 +cons(new_integer(536602),
18221 18221 cons(cons(symbol,
18222   -cons(new_integer(541977),
  18222 +cons(new_integer(536601),
18223 18223 new_string("£accept_connection"))),
18224 18224 cons(cons(symbol,
18225   -cons(new_integer(541979),
  18225 +cons(new_integer(536603),
18226 18226 new_string("l"))),
18227 18227 nil)))),
18228 18228 cons(cons(cons(new_string("£listener_is_down"),
18229 18229 nil),
18230   -cons(new_integer(542493),
  18230 +cons(new_integer(537117),
18231 18231 cons(symbol,
18232   -cons(new_integer(542735),
  18232 +cons(new_integer(537359),
18233 18233 new_string("unique"))))),
18234 18234 cons(cons(cons(new_string("£cannot_open_pending_connection"),
18235 18235 nil),
18236   -cons(new_integer(543275),
  18236 +cons(new_integer(537899),
18237 18237 cons(cond,
18238   -cons(new_integer(543512),
  18238 +cons(new_integer(538136),
18239 18239 cons(cons(of_type,
18240   -cons(new_integer(543512),
  18240 +cons(new_integer(538136),
18241 18241 cons(new_string("One"),
18242 18242 cons(app,
18243   -cons(new_integer(543504),
  18243 +cons(new_integer(538128),
18244 18244 cons(cons(symbol,
18245   -cons(new_integer(543503),
  18245 +cons(new_integer(538127),
18246 18246 new_string("notify"))),
18247 18247 cons(cons(symbol,
18248   -cons(new_integer(543510),
  18248 +cons(new_integer(538134),
18249 18249 new_string("unique"))),
18250 18250 nil))))))),
18251 18251 cons(cons(cons(new_string("unique"),
18252 18252 nil),
18253   -cons(new_integer(543512),
  18253 +cons(new_integer(538136),
18254 18254 cons(app,
18255   -cons(new_integer(543529),
  18255 +cons(new_integer(538153),
18256 18256 cons(cons(symbol,
18257   -cons(new_integer(543528),
  18257 +cons(new_integer(538152),
18258 18258 new_string("£run_ssl_server"))),
18259 18259 cons(cons(symbol,
18260   -cons(new_integer(543530),
  18260 +cons(new_integer(538154),
18261 18261 new_string("l"))),
18262 18262 cons(cons(symbol,
18263   -cons(new_integer(543542),
  18263 +cons(new_integer(538166),
18264 18264 new_string("server_name"))),
18265 18265 cons(cons(symbol,
18266   -cons(new_integer(543550),
  18266 +cons(new_integer(538174),
18267 18267 new_string("handler"))),
18268 18268 cons(cons(symbol,
18269   -cons(new_integer(543557),
  18269 +cons(new_integer(538181),
18270 18270 new_string("notify"))),
18271 18271 nil))))))))),
18272 18272 nil)))))),
18273 18273 cons(cons(cons(new_string("£ok"),
18274 18274 cons(new_string("tcp_conn"),
18275 18275 nil)),
18276   -cons(new_integer(544281),
  18276 +cons(new_integer(538905),
18277 18277 cons(delegate,
18278   -cons(new_integer(544529),
  18278 +cons(new_integer(539153),
18279 18279 cons(cons(app,
18280   -cons(new_integer(544550),
  18280 +cons(new_integer(539174),
18281 18281 cons(cons(symbol,
18282   -cons(new_integer(544549),
  18282 +cons(new_integer(539173),
18283 18283 new_string("£handle_ssl_request"))),
18284 18284 cons(cons(symbol,
18285   -cons(new_integer(544558),
  18285 +cons(new_integer(539182),
18286 18286 new_string("tcp_conn"))),
18287 18287 cons(cons(symbol,
18288   -cons(new_integer(544570),
  18288 +cons(new_integer(539194),
18289 18289 new_string("server_name"))),
18290 18290 cons(cons(symbol,
18291   -cons(new_integer(544813),
  18291 +cons(new_integer(539437),
18292 18292 new_string("handler"))),
18293 18293 nil)))))),
18294 18294 cons(app,
18295   -cons(new_integer(545058),
  18295 +cons(new_integer(539682),
18296 18296 cons(cons(symbol,
18297   -cons(new_integer(545057),
  18297 +cons(new_integer(539681),
18298 18298 new_string("£run_ssl_server"))),
18299 18299 cons(cons(symbol,
18300   -cons(new_integer(545059),
  18300 +cons(new_integer(539683),
18301 18301 new_string("l"))),
18302 18302 cons(cons(symbol,
18303   -cons(new_integer(545071),
  18303 +cons(new_integer(539695),
18304 18304 new_string("server_name"))),
18305 18305 cons(cons(symbol,
18306   -cons(new_integer(545321),
  18306 +cons(new_integer(539945),
18307 18307 new_string("handler"))),
18308 18308 cons(cons(symbol,
18309   -cons(new_integer(545328),
  18309 +cons(new_integer(539952),
18310 18310 new_string("notify"))),
18311 18311 nil)))))))))))),
18312 18312 nil)))))));
18313 18313  
18314   -new_op_scheme(1092124,1,
  18314 +new_op_scheme(1081372,1,
18315 18315 new_string("StartServerResult"),
18316 18316 cons(new_string("start_ssl_server"),
18317 18317 nil),
... ... @@ -18336,91 +18336,91 @@ new_string(&quot;One&quot;))),
18336 18336 new_string("notify")),
18337 18337 nil))))),
18338 18338 cons(cond,
18339   -cons(new_integer(548358),
  18339 +cons(new_integer(542982),
18340 18340 cons(cons(app,
18341   -cons(new_integer(548369),
  18341 +cons(new_integer(542993),
18342 18342 cons(cons(symbol,
18343   -cons(new_integer(548368),
  18343 +cons(new_integer(542992),
18344 18344 new_string("£listener"))),
18345 18345 cons(cons(symbol,
18346   -cons(new_integer(548376),
  18346 +cons(new_integer(543000),
18347 18347 new_string("ip_addr"))),
18348 18348 cons(cons(symbol,
18349   -cons(new_integer(548384),
  18349 +cons(new_integer(543008),
18350 18350 new_string("ip_port"))),
18351 18351 nil))))),
18352 18352 cons(cons(cons(new_string("£cannot_create_the_socket"),
18353 18353 nil),
18354   -cons(new_integer(548901),
  18354 +cons(new_integer(543525),
18355 18355 cons(symbol,
18356   -cons(new_integer(549153),
  18356 +cons(new_integer(543777),
18357 18357 new_string("cannot_create_the_socket"))))),
18358 18358 cons(cons(cons(new_string("£cannot_bind_to_port"),
18359 18359 nil),
18360   -cons(new_integer(549408),
  18360 +cons(new_integer(544032),
18361 18361 cons(symbol,
18362   -cons(new_integer(549660),
  18362 +cons(new_integer(544284),
18363 18363 new_string("cannot_bind_to_port"))))),
18364 18364 cons(cons(cons(new_string("£cannot_listen_on_port"),
18365 18365 nil),
18366   -cons(new_integer(549922),
  18366 +cons(new_integer(544546),
18367 18367 cons(symbol,
18368   -cons(new_integer(550174),
  18368 +cons(new_integer(544798),
18369 18369 new_string("cannot_listen_on_port"))))),
18370 18370 cons(cons(cons(new_string("£ok"),
18371 18371 cons(new_string("l"),
18372 18372 nil)),
18373   -cons(new_integer(550418),
  18373 +cons(new_integer(545042),
18374 18374 cons(delegate,
18375   -cons(new_integer(550673),
  18375 +cons(new_integer(545297),
18376 18376 cons(cons(app,
18377   -cons(new_integer(550690),
  18377 +cons(new_integer(545314),
18378 18378 cons(cons(symbol,
18379   -cons(new_integer(550689),
  18379 +cons(new_integer(545313),
18380 18380 new_string("£run_ssl_server"))),
18381 18381 cons(cons(symbol,
18382   -cons(new_integer(550691),
  18382 +cons(new_integer(545315),
18383 18383 new_string("l"))),
18384 18384 cons(cons(symbol,
18385   -cons(new_integer(550703),
  18385 +cons(new_integer(545327),
18386 18386 new_string("server_name"))),
18387 18387 cons(cons(app,
18388   -cons(new_integer(550712),
  18388 +cons(new_integer(545336),
18389 18389 cons(cons(symbol,
18390   -cons(new_integer(550711),
  18390 +cons(new_integer(545335),
18391 18391 new_string("handler"))),
18392 18392 cons(cons(app,
18393   -cons(new_integer(550720),
  18393 +cons(new_integer(545344),
18394 18394 cons(cons(symbol,
18395   -cons(new_integer(550719),
  18395 +cons(new_integer(545343),
18396 18396 new_string("£server"))),
18397 18397 cons(cons(symbol,
18398   -cons(new_integer(550721),
  18398 +cons(new_integer(545345),
18399 18399 new_string("l"))),
18400 18400 nil)))),
18401 18401 nil)))),
18402 18402 cons(cons(symbol,
18403   -cons(new_integer(550730),
  18403 +cons(new_integer(545354),
18404 18404 new_string("notify"))),
18405 18405 nil))))))),
18406 18406 cons(app,
18407   -cons(new_integer(550933),
  18407 +cons(new_integer(545557),
18408 18408 cons(cons(symbol,
18409   -cons(new_integer(550932),
  18409 +cons(new_integer(545556),
18410 18410 new_string("ok"))),
18411 18411 cons(cons(app,
18412   -cons(new_integer(550941),
  18412 +cons(new_integer(545565),
18413 18413 cons(cons(symbol,
18414   -cons(new_integer(550940),
  18414 +cons(new_integer(545564),
18415 18415 new_string("£server"))),
18416 18416 cons(cons(symbol,
18417   -cons(new_integer(550942),
  18417 +cons(new_integer(545566),
18418 18418 new_string("l"))),
18419 18419 nil)))),
18420 18420 nil))))))))),
18421 18421 nil))))))));
18422 18422  
18423   -new_op_scheme(1103388,1,
  18423 +new_op_scheme(1092636,1,
18424 18424 cons(app_ts,
18425 18425 cons(new_string("£Tuple2"),
18426 18426 cons(new_string("Word32"),
... ... @@ -18432,11 +18432,11 @@ cons(cons(new_string(&quot;SSL_Connection&quot;),
18432 18432 new_string("connection")),
18433 18433 nil),
18434 18434 cons(avm,
18435   -cons(new_integer(552007),
  18435 +cons(new_integer(546631),
18436 18436 cons(local_SSL_addr_port,
18437 18437 nil))));
18438 18438  
18439   -new_op_scheme(1104412,1,
  18439 +new_op_scheme(1093660,1,
18440 18440 cons(app_ts,
18441 18441 cons(new_string("£Tuple2"),
18442 18442 cons(new_string("Word32"),
... ... @@ -18448,11 +18448,11 @@ cons(cons(new_string(&quot;SSL_Connection&quot;),
18448 18448 new_string("connection")),
18449 18449 nil),
18450 18450 cons(avm,
18451   -cons(new_integer(552519),
  18451 +cons(new_integer(547143),
18452 18452 cons(remote_SSL_addr_port,
18453 18453 nil))));
18454 18454  
18455   -new_op_scheme(1107982,0,
  18455 +new_op_scheme(1097230,0,
18456 18456 new_string("Word32"),
18457 18457 cons(new_string("£simple_hash"),
18458 18458 nil),
... ... @@ -18462,11 +18462,11 @@ cons(cons(type_ByteArray,
18462 18462 new_string("b")),
18463 18463 nil)),
18464 18464 cons(avm,
18465   -cons(new_integer(554540),
  18465 +cons(new_integer(549164),
18466 18466 cons(simple_hash,
18467 18467 nil))));
18468 18468  
18469   -new_op_scheme(1110044,1,
  18469 +new_op_scheme(1099292,1,
18470 18470 new_string("Word32"),
18471 18471 cons(new_string("simple_hash"),
18472 18472 nil),
... ... @@ -18476,25 +18476,25 @@ cons(cons(new_utvar(&quot;T&quot;),
18476 18476 new_string("datum")),
18477 18477 nil)),
18478 18478 cons(app,
18479   -cons(new_integer(556561),
  18479 +cons(new_integer(551185),
18480 18480 cons(cons(symbol,
18481   -cons(new_integer(556560),
  18481 +cons(new_integer(551184),
18482 18482 new_string("£simple_hash"))),
18483 18483 cons(cons(symbol,
18484   -cons(new_integer(556575),
  18484 +cons(new_integer(551199),
18485 18485 new_string("number_of_bits"))),
18486 18486 cons(cons(app,
18487   -cons(new_integer(556586),
  18487 +cons(new_integer(551210),
18488 18488 cons(cons(symbol,
18489   -cons(new_integer(556585),
  18489 +cons(new_integer(551209),
18490 18490 new_string("serialize"))),
18491 18491 cons(cons(symbol,
18492   -cons(new_integer(556591),
  18492 +cons(new_integer(551215),
18493 18493 new_string("datum"))),
18494 18494 nil)))),
18495 18495 nil))))));
18496 18496  
18497   -new_type_scheme(1117208,0,
  18497 +new_type_scheme(1106456,0,
18498 18498 new_string("RGBAImage"),
18499 18499 nil,
18500 18500 cons(cons(cons(new_string("£image"),
... ... @@ -18508,7 +18508,7 @@ noname),
18508 18508 nil)))),
18509 18509 nil),0,1);
18510 18510  
18511   -new_type_scheme(1119768,0,
  18511 +new_type_scheme(1109016,0,
18512 18512 new_string("BitMapImage"),
18513 18513 nil,
18514 18514 cons(cons(cons(new_string("£image"),
... ... @@ -18522,7 +18522,7 @@ noname),
18522 18522 nil)))),
18523 18523 nil),0,1);
18524 18524  
18525   -new_op_scheme(1123854,0,
  18525 +new_op_scheme(1113102,0,
18526 18526 new_string("RGBAImage"),
18527 18527 cons(new_string("£create_rgba_image"),
18528 18528 nil),
... ... @@ -18534,11 +18534,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
18534 18534 new_string("background")),
18535 18535 nil))),
18536 18536 cons(avm,
18537   -cons(new_integer(562501),
  18537 +cons(new_integer(557125),
18538 18538 cons(create_rgba,
18539 18539 nil))));
18540 18540  
18541   -new_op_scheme(1125902,0,
  18541 +new_op_scheme(1115150,0,
18542 18542 new_string("BitMapImage"),
18543 18543 cons(new_string("£create_bitmap_image"),
18544 18544 nil),
... ... @@ -18550,11 +18550,11 @@ cons(cons(new_string(&quot;Bit&quot;),
18550 18550 new_string("background")),
18551 18551 nil))),
18552 18552 cons(avm,
18553   -cons(new_integer(563525),
  18553 +cons(new_integer(558149),
18554 18554 cons(create_bitmap,
18555 18555 nil))));
18556 18556  
18557   -new_op_scheme(1127964,1,
  18557 +new_op_scheme(1117212,1,
18558 18558 new_string("RGBAImage"),
18559 18559 cons(new_string("create_rgba_image"),
18560 18560 nil),
... ... @@ -18566,34 +18566,34 @@ cons(cons(new_string(&quot;RGBA&quot;),
18566 18566 new_string("background")),
18567 18567 nil))),
18568 18568 cons(app,
18569   -cons(new_integer(564568),
  18569 +cons(new_integer(559192),
18570 18570 cons(cons(symbol,
18571   -cons(new_integer(564567),
  18571 +cons(new_integer(559191),
18572 18572 new_string("£create_rgba_image"))),
18573 18573 cons(cons(app,
18574   -cons(new_integer(564587),
  18574 +cons(new_integer(559211),
18575 18575 cons(cons(symbol,
18576   -cons(new_integer(564586),
  18576 +cons(new_integer(559210),
18577 18577 new_string("truncate_to_Word32"))),
18578 18578 cons(cons(symbol,
18579   -cons(new_integer(564592),
  18579 +cons(new_integer(559216),
18580 18580 new_string("width"))),
18581 18581 nil)))),
18582 18582 cons(cons(app,
18583   -cons(new_integer(564843),
  18583 +cons(new_integer(559467),
18584 18584 cons(cons(symbol,
18585   -cons(new_integer(564842),
  18585 +cons(new_integer(559466),
18586 18586 new_string("truncate_to_Word32"))),
18587 18587 cons(cons(symbol,
18588   -cons(new_integer(564849),
  18588 +cons(new_integer(559473),
18589 18589 new_string("height"))),
18590 18590 nil)))),
18591 18591 cons(cons(symbol,
18592   -cons(new_integer(565090),
  18592 +cons(new_integer(559714),
18593 18593 new_string("background"))),
18594 18594 nil)))))));
18595 18595  
18596   -new_op_scheme(1131036,1,
  18596 +new_op_scheme(1120284,1,
18597 18597 new_string("BitMapImage"),
18598 18598 cons(new_string("create_bitmap_image"),
18599 18599 nil),
... ... @@ -18605,34 +18605,34 @@ cons(cons(new_string(&quot;Bit&quot;),
18605 18605 new_string("background")),
18606 18606 nil))),
18607 18607 cons(app,
18608   -cons(new_integer(566107),
  18608 +cons(new_integer(560731),
18609 18609 cons(cons(symbol,
18610   -cons(new_integer(566106),
  18610 +cons(new_integer(560730),
18611 18611 new_string("£create_bitmap_image"))),
18612 18612 cons(cons(app,
18613   -cons(new_integer(566126),
  18613 +cons(new_integer(560750),
18614 18614 cons(cons(symbol,
18615   -cons(new_integer(566125),
  18615 +cons(new_integer(560749),
18616 18616 new_string("truncate_to_Word32"))),
18617 18617 cons(cons(symbol,
18618   -cons(new_integer(566131),
  18618 +cons(new_integer(560755),
18619 18619 new_string("width"))),
18620 18620 nil)))),
18621 18621 cons(cons(app,
18622   -cons(new_integer(566381),
  18622 +cons(new_integer(561005),
18623 18623 cons(cons(symbol,
18624   -cons(new_integer(566380),
  18624 +cons(new_integer(561004),
18625 18625 new_string("truncate_to_Word32"))),
18626 18626 cons(cons(symbol,
18627   -cons(new_integer(566387),
  18627 +cons(new_integer(561011),
18628 18628 new_string("height"))),
18629 18629 nil)))),
18630 18630 cons(cons(symbol,
18631   -cons(new_integer(566628),
  18631 +cons(new_integer(561252),
18632 18632 new_string("background"))),
18633 18633 nil)))))));
18634 18634  
18635   -new_op_scheme(1137166,0,
  18635 +new_op_scheme(1126414,0,
18636 18636 new_string("One"),
18637 18637 cons(new_string("£draw_pixel"),
18638 18638 nil),
... ... @@ -18646,11 +18646,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
18646 18646 new_string("color")),
18647 18647 nil)))),
18648 18648 cons(avm,
18649   -cons(new_integer(570632),
  18649 +cons(new_integer(565256),
18650 18650 cons(draw_pixel_rgba,
18651 18651 nil))));
18652 18652  
18653   -new_op_scheme(1142286,0,
  18653 +new_op_scheme(1131534,0,
18654 18654 new_string("One"),
18655 18655 cons(new_string("£draw_pixel"),
18656 18656 nil),
... ... @@ -18664,11 +18664,11 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
18664 18664 new_string("how")),
18665 18665 nil)))),
18666 18666 cons(avm,
18667   -cons(new_integer(573192),
  18667 +cons(new_integer(567816),
18668 18668 cons(draw_pixel_bitmap,
18669 18669 nil))));
18670 18670  
18671   -new_op_scheme(1147420,1,
  18671 +new_op_scheme(1136668,1,
18672 18672 new_string("One"),
18673 18673 cons(new_string("draw_pixel"),
18674 18674 nil),
... ... @@ -18682,37 +18682,37 @@ cons(cons(new_string(&quot;RGBA&quot;),
18682 18682 new_string("color")),
18683 18683 nil)))),
18684 18684 cons(app,
18685   -cons(new_integer(575760),
  18685 +cons(new_integer(570384),
18686 18686 cons(cons(symbol,
18687   -cons(new_integer(575759),
  18687 +cons(new_integer(570383),
18688 18688 new_string("£draw_pixel"))),
18689 18689 cons(cons(symbol,
18690   -cons(new_integer(575765),
  18690 +cons(new_integer(570389),
18691 18691 new_string("image"))),
18692 18692 cons(cons(app,
18693   -cons(new_integer(575786),
  18693 +cons(new_integer(570410),
18694 18694 cons(cons(symbol,
18695   -cons(new_integer(575785),
  18695 +cons(new_integer(570409),
18696 18696 new_string("truncate_to_Word32"))),
18697 18697 cons(cons(symbol,
18698   -cons(new_integer(575787),
  18698 +cons(new_integer(570411),
18699 18699 new_string("x"))),
18700 18700 nil)))),
18701 18701 cons(cons(app,
18702   -cons(new_integer(575809),
  18702 +cons(new_integer(570433),
18703 18703 cons(cons(symbol,
18704   -cons(new_integer(575808),
  18704 +cons(new_integer(570432),
18705 18705 new_string("truncate_to_Word32"))),
18706 18706 cons(cons(symbol,
18707   -cons(new_integer(575810),
  18707 +cons(new_integer(570434),
18708 18708 new_string("y"))),
18709 18709 nil)))),
18710 18710 cons(cons(symbol,
18711   -cons(new_integer(575818),
  18711 +cons(new_integer(570442),
18712 18712 new_string("color"))),
18713 18713 nil))))))));
18714 18714  
18715   -new_op_scheme(1152540,1,
  18715 +new_op_scheme(1141788,1,
18716 18716 new_string("One"),
18717 18717 cons(new_string("draw_pixel"),
18718 18718 nil),
... ... @@ -18726,37 +18726,37 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
18726 18726 new_string("how")),
18727 18727 nil)))),
18728 18728 cons(app,
18729   -cons(new_integer(578320),
  18729 +cons(new_integer(572944),
18730 18730 cons(cons(symbol,
18731   -cons(new_integer(578319),
  18731 +cons(new_integer(572943),
18732 18732 new_string("£draw_pixel"))),
18733 18733 cons(cons(symbol,
18734   -cons(new_integer(578325),
  18734 +cons(new_integer(572949),
18735 18735 new_string("image"))),
18736 18736 cons(cons(app,
18737   -cons(new_integer(578346),
  18737 +cons(new_integer(572970),
18738 18738 cons(cons(symbol,
18739   -cons(new_integer(578345),
  18739 +cons(new_integer(572969),
18740 18740 new_string("truncate_to_Word32"))),
18741 18741 cons(cons(symbol,
18742   -cons(new_integer(578347),
  18742 +cons(new_integer(572971),
18743 18743 new_string("x"))),
18744 18744 nil)))),
18745 18745 cons(cons(app,
18746   -cons(new_integer(578369),
  18746 +cons(new_integer(572993),
18747 18747 cons(cons(symbol,
18748   -cons(new_integer(578368),
  18748 +cons(new_integer(572992),
18749 18749 new_string("truncate_to_Word32"))),
18750 18750 cons(cons(symbol,
18751   -cons(new_integer(578370),
  18751 +cons(new_integer(572994),
18752 18752 new_string("y"))),
18753 18753 nil)))),
18754 18754 cons(cons(symbol,
18755   -cons(new_integer(578376),
  18755 +cons(new_integer(573000),
18756 18756 new_string("how"))),
18757 18757 nil))))))));
18758 18758  
18759   -new_op_scheme(1159182,0,
  18759 +new_op_scheme(1148430,0,
18760 18760 new_string("RGBA"),
18761 18761 cons(new_string("£get_pixel"),
18762 18762 nil),
... ... @@ -18768,11 +18768,11 @@ cons(cons(new_string(&quot;Word32&quot;),
18768 18768 new_string("y")),
18769 18769 nil))),
18770 18770 cons(avm,
18771   -cons(new_integer(581134),
  18771 +cons(new_integer(575758),
18772 18772 cons(get_pixel_rgba,
18773 18773 nil))));
18774 18774  
18775   -new_op_scheme(1163278,0,
  18775 +new_op_scheme(1152526,0,
18776 18776 new_string("Bit"),
18777 18777 cons(new_string("£get_pixel"),
18778 18778 nil),
... ... @@ -18784,11 +18784,11 @@ cons(cons(new_string(&quot;Word32&quot;),
18784 18784 new_string("y")),
18785 18785 nil))),
18786 18786 cons(avm,
18787   -cons(new_integer(583182),
  18787 +cons(new_integer(577806),
18788 18788 cons(get_pixel_bitmap,
18789 18789 nil))));
18790 18790  
18791   -new_op_scheme(1167388,1,
  18791 +new_op_scheme(1156636,1,
18792 18792 new_string("RGBA"),
18793 18793 cons(new_string("get_pixel"),
18794 18794 nil),
... ... @@ -18800,34 +18800,34 @@ cons(cons(type_Int,
18800 18800 new_string("y")),
18801 18801 nil))),
18802 18802 cons(app,
18803   -cons(new_integer(585240),
  18803 +cons(new_integer(579864),
18804 18804 cons(cons(symbol,
18805   -cons(new_integer(585239),
  18805 +cons(new_integer(579863),
18806 18806 new_string("£get_pixel"))),
18807 18807 cons(cons(symbol,
18808   -cons(new_integer(585245),
  18808 +cons(new_integer(579869),
18809 18809 new_string("image"))),
18810 18810 cons(cons(app,
18811   -cons(new_integer(585266),
  18811 +cons(new_integer(579890),
18812 18812 cons(cons(symbol,
18813   -cons(new_integer(585265),
  18813 +cons(new_integer(579889),
18814 18814 new_string("truncate_to_Word32"))),
18815 18815 cons(cons(symbol,
18816   -cons(new_integer(585267),
  18816 +cons(new_integer(579891),
18817 18817 new_string("x"))),
18818 18818 nil)))),
18819 18819 cons(cons(app,
18820   -cons(new_integer(585289),
  18820 +cons(new_integer(579913),
18821 18821 cons(cons(symbol,
18822   -cons(new_integer(585288),
  18822 +cons(new_integer(579912),
18823 18823 new_string("truncate_to_Word32"))),
18824 18824 cons(cons(symbol,
18825   -cons(new_integer(585290),
  18825 +cons(new_integer(579914),
18826 18826 new_string("y"))),
18827 18827 nil)))),
18828 18828 nil)))))));
18829 18829  
18830   -new_op_scheme(1171996,1,
  18830 +new_op_scheme(1161244,1,
18831 18831 new_string("Bit"),
18832 18832 cons(new_string("get_pixel"),
18833 18833 nil),
... ... @@ -18839,34 +18839,34 @@ cons(cons(type_Int,
18839 18839 new_string("y")),
18840 18840 nil))),
18841 18841 cons(app,
18842   -cons(new_integer(587544),
  18842 +cons(new_integer(582168),
18843 18843 cons(cons(symbol,
18844   -cons(new_integer(587543),
  18844 +cons(new_integer(582167),
18845 18845 new_string("£get_pixel"))),
18846 18846 cons(cons(symbol,
18847   -cons(new_integer(587549),
  18847 +cons(new_integer(582173),
18848 18848 new_string("image"))),
18849 18849 cons(cons(app,
18850   -cons(new_integer(587570),
  18850 +cons(new_integer(582194),
18851 18851 cons(cons(symbol,
18852   -cons(new_integer(587569),
  18852 +cons(new_integer(582193),
18853 18853 new_string("truncate_to_Word32"))),
18854 18854 cons(cons(symbol,
18855   -cons(new_integer(587571),
  18855 +cons(new_integer(582195),
18856 18856 new_string("x"))),
18857 18857 nil)))),
18858 18858 cons(cons(app,
18859   -cons(new_integer(587593),
  18859 +cons(new_integer(582217),
18860 18860 cons(cons(symbol,
18861   -cons(new_integer(587592),
  18861 +cons(new_integer(582216),
18862 18862 new_string("truncate_to_Word32"))),
18863 18863 cons(cons(symbol,
18864   -cons(new_integer(587594),
  18864 +cons(new_integer(582218),
18865 18865 new_string("y"))),
18866 18866 nil)))),
18867 18867 nil)))))));
18868 18868  
18869   -new_op_scheme(1178652,1,
  18869 +new_op_scheme(1167900,1,
18870 18870 new_string("Rectangle"),
18871 18871 cons(new_string("rect"),
18872 18872 nil),
... ... @@ -18880,49 +18880,49 @@ cons(cons(type_Int,
18880 18880 new_string("v")),
18881 18881 nil)))),
18882 18882 cons(app,
18883   -cons(new_integer(591116),
  18883 +cons(new_integer(585740),
18884 18884 cons(cons(symbol,
18885   -cons(new_integer(591115),
  18885 +cons(new_integer(585739),
18886 18886 new_string("rect"))),
18887 18887 cons(cons(app,
18888   -cons(new_integer(591135),
  18888 +cons(new_integer(585759),
18889 18889 cons(cons(symbol,
18890   -cons(new_integer(591134),
  18890 +cons(new_integer(585758),
18891 18891 new_string("truncate_to_Word32"))),
18892 18892 cons(cons(symbol,
18893   -cons(new_integer(591136),
  18893 +cons(new_integer(585760),
18894 18894 new_string("x"))),
18895 18895 nil)))),
18896 18896 cons(cons(app,
18897   -cons(new_integer(591158),
  18897 +cons(new_integer(585782),
18898 18898 cons(cons(symbol,
18899   -cons(new_integer(591157),
  18899 +cons(new_integer(585781),
18900 18900 new_string("truncate_to_Word32"))),
18901 18901 cons(cons(symbol,
18902   -cons(new_integer(591159),
  18902 +cons(new_integer(585783),
18903 18903 new_string("y"))),
18904 18904 nil)))),
18905 18905 cons(cons(app,
18906   -cons(new_integer(591181),
  18906 +cons(new_integer(585805),
18907 18907 cons(cons(symbol,
18908   -cons(new_integer(591180),
  18908 +cons(new_integer(585804),
18909 18909 new_string("truncate_to_Word32"))),
18910 18910 cons(cons(symbol,
18911   -cons(new_integer(591182),
  18911 +cons(new_integer(585806),
18912 18912 new_string("u"))),
18913 18913 nil)))),
18914 18914 cons(cons(app,
18915   -cons(new_integer(591204),
  18915 +cons(new_integer(585828),
18916 18916 cons(cons(symbol,
18917   -cons(new_integer(591203),
  18917 +cons(new_integer(585827),
18918 18918 new_string("truncate_to_Word32"))),
18919 18919 cons(cons(symbol,
18920   -cons(new_integer(591205),
  18920 +cons(new_integer(585829),
18921 18921 new_string("v"))),
18922 18922 nil)))),
18923 18923 nil))))))));
18924 18924  
18925   -new_op_scheme(1183772,1,
  18925 +new_op_scheme(1173020,1,
18926 18926 new_string("One"),
18927 18927 cons(new_string("draw_rectangle"),
18928 18928 nil),
... ... @@ -18934,11 +18934,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
18934 18934 new_string("color_of_rectangle")),
18935 18935 nil))),
18936 18936 cons(avm,
18937   -cons(new_integer(593422),
  18937 +cons(new_integer(588046),
18938 18938 cons(draw_rectangle_to_rgba,
18939 18939 nil))));
18940 18940  
18941   -new_op_scheme(1187868,1,
  18941 +new_op_scheme(1177116,1,
18942 18942 new_string("One"),
18943 18943 cons(new_string("draw_rectangle"),
18944 18944 nil),
... ... @@ -18950,11 +18950,11 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
18950 18950 new_string("how")),
18951 18951 nil))),
18952 18952 cons(avm,
18953   -cons(new_integer(595470),
  18953 +cons(new_integer(590094),
18954 18954 cons(draw_rectangle_to_bitmap,
18955 18955 nil))));
18956 18956  
18957   -new_op_scheme(1193998,0,
  18957 +new_op_scheme(1183246,0,
18958 18958 new_string("One"),
18959 18959 cons(new_string("£crop_and_encrust"),
18960 18960 nil),
... ... @@ -18972,11 +18972,11 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
18972 18972 new_string("t")),
18973 18973 nil)))))),
18974 18974 cons(avm,
18975   -cons(new_integer(599310),
  18975 +cons(new_integer(593934),
18976 18976 cons(crop_and_encrust_rgba_rgba,
18977 18977 nil))));
18978 18978  
18979   -new_op_scheme(1199630,0,
  18979 +new_op_scheme(1188878,0,
18980 18980 new_string("One"),
18981 18981 cons(new_string("£crop_and_encrust"),
18982 18982 nil),
... ... @@ -18996,11 +18996,11 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
18996 18996 new_string("t")),
18997 18997 nil))))))),
18998 18998 cons(avm,
18999   -cons(new_integer(602382),
  18999 +cons(new_integer(597006),
19000 19000 cons(crop_and_encrust_bitmap_rgba,
19001 19001 nil))));
19002 19002  
19003   -new_op_scheme(1205774,0,
  19003 +new_op_scheme(1195022,0,
19004 19004 new_string("One"),
19005 19005 cons(new_string("£crop_and_encrust"),
19006 19006 nil),
... ... @@ -19020,11 +19020,11 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
19020 19020 new_string("t")),
19021 19021 nil))))))),
19022 19022 cons(avm,
19023   -cons(new_integer(605704),
  19023 +cons(new_integer(600328),
19024 19024 cons(crop_and_encrust_bitmap_bitmap,
19025 19025 nil))));
19026 19026  
19027   -new_op_scheme(1212956,1,
  19027 +new_op_scheme(1202204,1,
19028 19028 new_string("One"),
19029 19029 cons(new_string("crop_and_encrust"),
19030 19030 nil),
... ... @@ -19042,43 +19042,43 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
19042 19042 new_string("t")),
19043 19043 nil)))))),
19044 19044 cons(app,
19045   -cons(new_integer(608796),
  19045 +cons(new_integer(603420),
19046 19046 cons(cons(symbol,
19047   -cons(new_integer(608795),
  19047 +cons(new_integer(603419),
19048 19048 new_string("£crop_and_encrust"))),
19049 19049 cons(cons(symbol,
19050   -cons(new_integer(608802),
  19050 +cons(new_integer(603426),
19051 19051 new_string("source"))),
19052 19052 cons(cons(symbol,
19053   -cons(new_integer(608815),
  19053 +cons(new_integer(603439),
19054 19054 new_string("destination"))),
19055 19055 cons(cons(symbol,
19056   -cons(new_integer(608824),
  19056 +cons(new_integer(603448),
19057 19057 new_string("cropped"))),
19058 19058 cons(cons(app,
19059   -cons(new_integer(608845),
  19059 +cons(new_integer(603469),
19060 19060 cons(cons(symbol,
19061   -cons(new_integer(608844),
  19061 +cons(new_integer(603468),
19062 19062 new_string("truncate_to_Word32"))),
19063 19063 cons(cons(symbol,
19064   -cons(new_integer(608846),
  19064 +cons(new_integer(603470),
19065 19065 new_string("a"))),
19066 19066 nil)))),
19067 19067 cons(cons(app,
19068   -cons(new_integer(608868),
  19068 +cons(new_integer(603492),
19069 19069 cons(cons(symbol,
19070   -cons(new_integer(608867),
  19070 +cons(new_integer(603491),
19071 19071 new_string("truncate_to_Word32"))),
19072 19072 cons(cons(symbol,
19073   -cons(new_integer(608869),
  19073 +cons(new_integer(603493),
19074 19074 new_string("b"))),
19075 19075 nil)))),
19076 19076 cons(cons(symbol,
19077   -cons(new_integer(608873),
  19077 +cons(new_integer(603497),
19078 19078 new_string("t"))),
19079 19079 nil))))))))));
19080 19080  
19081   -new_op_scheme(1218588,1,
  19081 +new_op_scheme(1207836,1,
19082 19082 new_string("One"),
19083 19083 cons(new_string("crop_and_encrust"),
19084 19084 nil),
... ... @@ -19098,46 +19098,46 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
19098 19098 new_string("t")),
19099 19099 nil))))))),
19100 19100 cons(app,
19101   -cons(new_integer(611868),
  19101 +cons(new_integer(606492),
19102 19102 cons(cons(symbol,
19103   -cons(new_integer(611867),
  19103 +cons(new_integer(606491),
19104 19104 new_string("£crop_and_encrust"))),
19105 19105 cons(cons(symbol,
19106   -cons(new_integer(611874),
  19106 +cons(new_integer(606498),
19107 19107 new_string("source"))),
19108 19108 cons(cons(symbol,
19109   -cons(new_integer(611882),
  19109 +cons(new_integer(606506),
19110 19110 new_string("filter"))),
19111 19111 cons(cons(symbol,
19112   -cons(new_integer(611895),
  19112 +cons(new_integer(606519),
19113 19113 new_string("destination"))),
19114 19114 cons(cons(symbol,
19115   -cons(new_integer(611904),
  19115 +cons(new_integer(606528),
19116 19116 new_string("cropped"))),
19117 19117 cons(cons(app,
19118   -cons(new_integer(611925),
  19118 +cons(new_integer(606549),
19119 19119 cons(cons(symbol,
19120   -cons(new_integer(611924),
  19120 +cons(new_integer(606548),
19121 19121 new_string("truncate_to_Word32"))),
19122 19122 cons(cons(symbol,
19123   -cons(new_integer(611926),
  19123 +cons(new_integer(606550),
19124 19124 new_string("a"))),
19125 19125 nil)))),
19126 19126 cons(cons(app,
19127   -cons(new_integer(611948),
  19127 +cons(new_integer(606572),
19128 19128 cons(cons(symbol,
19129   -cons(new_integer(611947),
  19129 +cons(new_integer(606571),
19130 19130 new_string("truncate_to_Word32"))),
19131 19131 cons(cons(symbol,
19132   -cons(new_integer(611949),
  19132 +cons(new_integer(606573),
19133 19133 new_string("b"))),
19134 19134 nil)))),
19135 19135 cons(cons(symbol,
19136   -cons(new_integer(611953),
  19136 +cons(new_integer(606577),
19137 19137 new_string("t"))),
19138 19138 nil)))))))))));
19139 19139  
19140   -new_op_scheme(1224732,1,
  19140 +new_op_scheme(1213980,1,
19141 19141 new_string("One"),
19142 19142 cons(new_string("crop_and_encrust"),
19143 19143 nil),
... ... @@ -19157,46 +19157,46 @@ cons(cons(new_string(&quot;Dihedral4&quot;),
19157 19157 new_string("t")),
19158 19158 nil))))))),
19159 19159 cons(app,
19160   -cons(new_integer(614940),
  19160 +cons(new_integer(609564),
19161 19161 cons(cons(symbol,
19162   -cons(new_integer(614939),
  19162 +cons(new_integer(609563),
19163 19163 new_string("£crop_and_encrust"))),
19164 19164 cons(cons(symbol,
19165   -cons(new_integer(614946),
  19165 +cons(new_integer(609570),
19166 19166 new_string("source"))),
19167 19167 cons(cons(symbol,
19168   -cons(new_integer(614959),
  19168 +cons(new_integer(609583),
19169 19169 new_string("destination"))),
19170 19170 cons(cons(symbol,
19171   -cons(new_integer(614968),
  19171 +cons(new_integer(609592),
19172 19172 new_string("cropped"))),
19173 19173 cons(cons(app,
19174   -cons(new_integer(614989),
  19174 +cons(new_integer(609613),
19175 19175 cons(cons(symbol,
19176   -cons(new_integer(614988),
  19176 +cons(new_integer(609612),
19177 19177 new_string("truncate_to_Word32"))),
19178 19178 cons(cons(symbol,
19179   -cons(new_integer(614990),
  19179 +cons(new_integer(609614),
19180 19180 new_string("a"))),
19181 19181 nil)))),
19182 19182 cons(cons(app,
19183   -cons(new_integer(615012),
  19183 +cons(new_integer(609636),
19184 19184 cons(cons(symbol,
19185   -cons(new_integer(615011),
  19185 +cons(new_integer(609635),
19186 19186 new_string("truncate_to_Word32"))),
19187 19187 cons(cons(symbol,
19188   -cons(new_integer(615013),
  19188 +cons(new_integer(609637),
19189 19189 new_string("b"))),
19190 19190 nil)))),
19191 19191 cons(cons(symbol,
19192   -cons(new_integer(615026),
  19192 +cons(new_integer(609650),
19193 19193 new_string("paint_mode"))),
19194 19194 cons(cons(symbol,
19195   -cons(new_integer(615029),
  19195 +cons(new_integer(609653),
19196 19196 new_string("t"))),
19197 19197 nil)))))))))));
19198 19198  
19199   -new_type_scheme(1232408,0,
  19199 +new_type_scheme(1221656,0,
19200 19200 new_string("SystemFont"),
19201 19201 nil,
19202 19202 cons(cons(cons(new_string("sys_font"),
... ... @@ -19207,7 +19207,7 @@ noname),
19207 19207 nil)),
19208 19208 nil),0,1);
19209 19209  
19210   -new_op_scheme(1233948,1,
  19210 +new_op_scheme(1223196,1,
19211 19211 cons(app_ts,
19212 19212 cons(new_string("Maybe"),
19213 19213 cons(new_string("SystemFont"),
... ... @@ -19218,11 +19218,11 @@ cons(cons(type_String,
19218 19218 new_string("font_name")),
19219 19219 nil),
19220 19220 cons(avm,
19221   -cons(new_integer(618248),
  19221 +cons(new_integer(612872),
19222 19222 cons(load_system_font,
19223 19223 nil))));
19224 19224  
19225   -new_op_scheme(1237532,1,
  19225 +new_op_scheme(1226780,1,
19226 19226 new_string("Word32"),
19227 19227 cons(new_string("draw_system_character"),
19228 19228 nil),
... ... @@ -19242,11 +19242,11 @@ cons(cons(new_string(&quot;RGBA&quot;),
19242 19242 new_string("character_color")),
19243 19243 nil))))))),
19244 19244 cons(avm,
19245   -cons(new_integer(621326),
  19245 +cons(new_integer(615950),
19246 19246 cons(draw_system_char_rgba,
19247 19247 nil))));
19248 19248  
19249   -new_op_scheme(1243676,1,
  19249 +new_op_scheme(1232924,1,
19250 19250 new_string("Word32"),
19251 19251 cons(new_string("draw_system_character"),
19252 19252 nil),
... ... @@ -19266,11 +19266,11 @@ cons(cons(new_string(&quot;BitPaintMode&quot;),
19266 19266 new_string("paint_mode")),
19267 19267 nil))))))),
19268 19268 cons(avm,
19269   -cons(new_integer(624398),
  19269 +cons(new_integer(619022),
19270 19270 cons(draw_system_char_bitmap,
19271 19271 nil))));
19272 19272  
19273   -new_op_scheme(1251868,1,
  19273 +new_op_scheme(1241116,1,
19274 19274 new_string("SystemFontInfo"),
19275 19275 cons(new_string("get_font_info"),
19276 19276 nil),
... ... @@ -19278,11 +19278,11 @@ cons(cons(new_string(&quot;SystemFont&quot;),
19278 19278 new_string("font")),
19279 19279 nil),
19280 19280 cons(avm,
19281   -cons(new_integer(625992),
  19281 +cons(new_integer(620616),
19282 19282 cons(get_font_info,
19283 19283 nil))));
19284 19284  
19285   -new_op_scheme(1252380,1,
  19285 +new_op_scheme(1241628,1,
19286 19286 new_string("SystemCharacterInfo"),
19287 19287 cons(new_string("get_char_info"),
19288 19288 nil),
... ... @@ -19292,11 +19292,11 @@ cons(cons(new_string(&quot;Word8&quot;),
19292 19292 new_string("code")),
19293 19293 nil)),
19294 19294 cons(avm,
19295   -cons(new_integer(626512),
  19295 +cons(new_integer(621136),
19296 19296 cons(get_char_info,
19297 19297 nil))));
19298 19298  
19299   -new_type_scheme(1255960,0,
  19299 +new_type_scheme(1245208,0,
19300 19300 new_string("HostImage"),
19301 19301 nil,
19302 19302 cons(cons(cons(new_string("£image"),
... ... @@ -19307,7 +19307,7 @@ noname),
19307 19307 nil)),
19308 19308 nil),0,1);
19309 19309  
19310   -new_op_scheme(1257500,1,
  19310 +new_op_scheme(1246748,1,
19311 19311 cons(app_ts,
19312 19312 cons(new_string("£Tuple2"),
19313 19313 cons(new_string("Word32"),
... ... @@ -19319,11 +19319,11 @@ cons(cons(new_string(&quot;HostImage&quot;),
19319 19319 new_string("im")),
19320 19320 nil),
19321 19321 cons(avm,
19322   -cons(new_integer(629774),
  19322 +cons(new_integer(624398),
19323 19323 cons(host_image_size,
19324 19324 nil))));
19325 19325  
19326   -new_op_scheme(1260572,1,
  19326 +new_op_scheme(1249820,1,
19327 19327 new_string("HostImage"),
19328 19328 cons(new_string("to_host_image"),
19329 19329 nil),
... ... @@ -19333,11 +19333,11 @@ cons(cons(new_string(&quot;Word32&quot;),
19333 19333 new_string("reduction_factor")),
19334 19334 nil)),
19335 19335 cons(avm,
19336   -cons(new_integer(631566),
  19336 +cons(new_integer(626190),
19337 19337 cons(rgba_to_host_image,
19338 19338 nil))));
19339 19339  
19340   -new_op_scheme(1264156,1,
  19340 +new_op_scheme(1253404,1,
19341 19341 new_string("One"),
19342 19342 cons(new_string("draw_pixel"),
19343 19343 nil),
... ... @@ -19351,11 +19351,11 @@ cons(cons(new_string(&quot;RGB&quot;),
19351 19351 new_string("color")),
19352 19352 nil)))),
19353 19353 cons(avm,
19354   -cons(new_integer(633870),
  19354 +cons(new_integer(628494),
19355 19355 cons(draw_pixel_host_image,
19356 19356 nil))));
19357 19357  
19358   -new_op_scheme(1268764,1,
  19358 +new_op_scheme(1258012,1,
19359 19359 new_string("One"),
19360 19360 cons(new_string("draw_rectangle"),
19361 19361 nil),
... ... @@ -19367,11 +19367,11 @@ cons(cons(new_string(&quot;RGB&quot;),
19367 19367 new_string("color_of_rectangle")),
19368 19368 nil))),
19369 19369 cons(avm,
19370   -cons(new_integer(635918),
  19370 +cons(new_integer(630542),
19371 19371 cons(draw_rectangle_to_host_image,
19372 19372 nil))));
19373 19373  
19374   -new_op_scheme(1272860,1,
  19374 +new_op_scheme(1262108,1,
19375 19375 new_string("Word32"),
19376 19376 cons(new_string("draw_system_character"),
19377 19377 nil),
... ... @@ -19391,11 +19391,11 @@ cons(cons(new_string(&quot;RGB&quot;),
19391 19391 new_string("character_color")),
19392 19392 nil))))))),
19393 19393 cons(avm,
19394   -cons(new_integer(638990),
  19394 +cons(new_integer(633614),
19395 19395 cons(draw_system_char_host_image,
19396 19396 nil))));
19397 19397  
19398   -new_op_scheme(1282588,1,
  19398 +new_op_scheme(1271836,1,
19399 19399 new_string("HostImage"),
19400 19400 cons(new_string("to_host_image"),
19401 19401 nil),
... ... @@ -19405,11 +19405,11 @@ cons(cons(new_string(&quot;Word32&quot;),
19405 19405 new_string("reducing_factor")),
19406 19406 nil)),
19407 19407 cons(avm,
19408   -cons(new_integer(642574),
  19408 +cons(new_integer(637198),
19409 19409 cons(jpeg_bitmap_to_host_image,
19410 19410 nil))));
19411 19411  
19412   -new_op_scheme(1288220,1,
  19412 +new_op_scheme(1277468,1,
19413 19413 new_string("RGBAImage"),
19414 19414 cons(new_string("to_RGBA"),
19415 19415 nil),
... ... @@ -19419,11 +19419,11 @@ cons(cons(new_string(&quot;Word32&quot;),
19419 19419 new_string("reducing_factor")),
19420 19420 nil)),
19421 19421 cons(avm,
19422   -cons(new_integer(645390),
  19422 +cons(new_integer(640014),
19423 19423 cons(jpeg_bitmap_to_rgba_image,
19424 19424 nil))));
19425 19425  
19426   -new_op_scheme(1291804,1,
  19426 +new_op_scheme(1281052,1,
19427 19427 new_string("JPEG_BitMapImage"),
19428 19428 cons(new_string("to_JPEG"),
19429 19429 nil),
... ... @@ -19431,11 +19431,11 @@ cons(cons(new_string(&quot;RGBAImage&quot;),
19431 19431 new_string("image")),
19432 19432 nil),
19433 19433 cons(avm,
19434   -cons(new_integer(646926),
  19434 +cons(new_integer(641550),
19435 19435 cons(rgba_image_to_jpeg_bitmap,
19436 19436 nil))));
19437 19437  
19438   -new_type_scheme(1296408,0,
  19438 +new_type_scheme(1285656,0,
19439 19439 new_string("£JPEG_compress_info"),
19440 19440 nil,
19441 19441 cons(cons(cons(new_string("£jpeg_compress_info"),
... ... @@ -19447,7 +19447,7 @@ new_string(&quot;jpeg_error_mgr&quot;)),
19447 19447 nil))),
19448 19448 nil),0,1);
19449 19449  
19450   -new_op_scheme(1298446,0,
  19450 +new_op_scheme(1287694,0,
19451 19451 cons(app_ts,
19452 19452 cons(new_string("Maybe"),
19453 19453 cons(new_string("£JPEG_compress_info"),
... ... @@ -19467,11 +19467,11 @@ new_string(&quot;Word8&quot;)),
19467 19467 new_string("output_file")),
19468 19468 nil))))),
19469 19469 cons(avm,
19470   -cons(new_integer(651527),
  19470 +cons(new_integer(646151),
19471 19471 cons(create_JPEG_compress_info,
19472 19472 nil))));
19473 19473  
19474   -new_op_scheme(1304078,0,
  19474 +new_op_scheme(1293326,0,
19475 19475 new_string("One"),
19476 19476 cons(new_string("£jpeg_write_scanline"),
19477 19477 nil),
... ... @@ -19483,11 +19483,11 @@ cons(cons(new_string(&quot;Word32&quot;),
19483 19483 new_string("start")),
19484 19484 nil))),
19485 19485 cons(avm,
19486   -cons(new_integer(653831),
  19486 +cons(new_integer(648455),
19487 19487 cons(jpeg_write_scanline,
19488 19488 nil))));
19489 19489  
19490   -new_op_scheme(1308686,0,
  19490 +new_op_scheme(1297934,0,
19491 19491 new_string("One"),
19492 19492 cons(new_string("£jpeg_write_scanlines"),
19493 19493 nil),
... ... @@ -19503,84 +19503,84 @@ cons(cons(new_string(&quot;Word32&quot;),
19503 19503 new_string("i")),
19504 19504 nil))))),
19505 19505 cons(cond,
19506   -cons(new_integer(656646),
  19506 +cons(new_integer(651270),
19507 19507 cons(cons(of_type,
19508   -cons(new_integer(656646),
  19508 +cons(new_integer(651270),
19509 19509 cons(new_string("Bool"),
19510 19510 cons(app,
19511   -cons(new_integer(656652),
  19511 +cons(new_integer(651276),
19512 19512 cons(cons(symbol,
19513   -cons(new_integer(656652),
  19513 +cons(new_integer(651276),
19514 19514 new_string("-=<"))),
19515 19515 cons(cons(symbol,
19516   -cons(new_integer(656659),
  19516 +cons(new_integer(651283),
19517 19517 new_string("height"))),
19518 19518 cons(cons(symbol,
19519   -cons(new_integer(656648),
  19519 +cons(new_integer(651272),
19520 19520 new_string("i"))),
19521 19521 nil)))))))),
19522 19522 cons(cons(cons(new_string("false"),
19523 19523 nil),
19524   -cons(new_integer(656676),
  19524 +cons(new_integer(651300),
19525 19525 cons(cond,
19526   -cons(new_integer(656949),
  19526 +cons(new_integer(651573),
19527 19527 cons(cons(of_type,
19528   -cons(new_integer(656949),
  19528 +cons(new_integer(651573),
19529 19529 cons(new_string("One"),
19530 19530 cons(app,
19531   -cons(new_integer(656921),
  19531 +cons(new_integer(651545),
19532 19532 cons(cons(symbol,
19533   -cons(new_integer(656920),
  19533 +cons(new_integer(651544),
19534 19534 new_string("£jpeg_write_scanline"))),
19535 19535 cons(cons(symbol,
19536   -cons(new_integer(656926),
  19536 +cons(new_integer(651550),
19537 19537 new_string("cinfo"))),
19538 19538 cons(cons(symbol,
19539   -cons(new_integer(656934),
  19539 +cons(new_integer(651558),
19540 19540 new_string("samples"))),
19541 19541 cons(cons(app,
19542   -cons(new_integer(656946),
  19542 +cons(new_integer(651570),
19543 19543 cons(cons(symbol,
19544   -cons(new_integer(656946),
  19544 +cons(new_integer(651570),
19545 19545 new_string("*"))),
19546 19546 cons(cons(symbol,
19547   -cons(new_integer(656945),
  19547 +cons(new_integer(651569),
19548 19548 new_string("row_stride"))),
19549 19549 cons(cons(symbol,
19550   -cons(new_integer(656947),
  19550 +cons(new_integer(651571),
19551 19551 new_string("i"))),
19552 19552 nil))))),
19553 19553 nil))))))))),
19554 19554 cons(cons(cons(new_string("unique"),
19555 19555 nil),
19556   -cons(new_integer(656949),
  19556 +cons(new_integer(651573),
19557 19557 cons(app,
19558   -cons(new_integer(657178),
  19558 +cons(new_integer(651802),
19559 19559 cons(cons(symbol,
19560   -cons(new_integer(657177),
  19560 +cons(new_integer(651801),
19561 19561 new_string("£jpeg_write_scanlines"))),
19562 19562 cons(cons(symbol,
19563   -cons(new_integer(657183),
  19563 +cons(new_integer(651807),
19564 19564 new_string("cinfo"))),
19565 19565 cons(cons(symbol,
19566   -cons(new_integer(657191),
  19566 +cons(new_integer(651815),
19567 19567 new_string("samples"))),
19568 19568 cons(cons(symbol,
19569   -cons(new_integer(657202),
  19569 +cons(new_integer(651826),
19570 19570 new_string("row_stride"))),
19571 19571 cons(cons(symbol,
19572   -cons(new_integer(657209),
  19572 +cons(new_integer(651833),
19573 19573 new_string("height"))),
19574 19574 cons(cons(app,
19575   -cons(new_integer(657212),
  19575 +cons(new_integer(651836),
19576 19576 cons(cons(symbol,
19577   -cons(new_integer(657212),
  19577 +cons(new_integer(651836),
19578 19578 new_string("+"))),
19579 19579 cons(cons(symbol,
19580   -cons(new_integer(657211),
  19580 +cons(new_integer(651835),
19581 19581 new_string("i"))),
19582 19582 cons(cons(integer_10,
19583   -cons(new_integer(657213),
  19583 +cons(new_integer(651837),
19584 19584 cons(new_integer(1),
19585 19585 nil))),
19586 19586 nil))))),
... ... @@ -19588,13 +19588,13 @@ nil)))))))))),
19588 19588 nil)))))),
19589 19589 cons(cons(cons(new_string("true"),
19590 19590 nil),
19591   -cons(new_integer(656664),
  19591 +cons(new_integer(651288),
19592 19592 cons(symbol,
19593   -cons(new_integer(656671),
  19593 +cons(new_integer(651295),
19594 19594 new_string("unique"))))),
19595 19595 nil))))));
19596 19596  
19597   -new_op_scheme(1315342,0,
  19597 +new_op_scheme(1304590,0,
19598 19598 new_string("One"),
19599 19599 cons(new_string("£jpeg_finish_compress"),
19600 19600 nil),
... ... @@ -19602,11 +19602,11 @@ cons(cons(new_string(&quot;£JPEG_compress_info&quot;),
19602 19602 new_string("cinfo")),
19603 19603 nil),
19604 19604 cons(avm,
19605   -cons(new_integer(658951),
  19605 +cons(new_integer(653575),
19606 19606 cons(jpeg_finish_compress,
19607 19607 nil))));
19608 19608  
19609   -new_op_scheme(1318940,1,
  19609 +new_op_scheme(1308188,1,
19610 19610 new_string("Result_JPEG_write"),
19611 19611 cons(new_string("write_image_to_JPEG_file"),
19612 19612 nil),
... ... @@ -19618,93 +19618,93 @@ cons(cons(new_string(&quot;Word32&quot;),
19618 19618 new_string("quality")),
19619 19619 nil))),
19620 19620 cons(with,
19621   -cons(new_integer(661262),
  19621 +cons(new_integer(655886),
19622 19622 cons(new_string("qual"),
19623 19623 cons(cons(cond,
19624   -cons(new_integer(661265),
  19624 +cons(new_integer(655889),
19625 19625 cons(cons(of_type,
19626   -cons(new_integer(661265),
  19626 +cons(new_integer(655889),
19627 19627 cons(new_string("Bool"),
19628 19628 cons(app,
19629   -cons(new_integer(661276),
  19629 +cons(new_integer(655900),
19630 19630 cons(cons(symbol,
19631   -cons(new_integer(661276),
  19631 +cons(new_integer(655900),
19632 19632 new_string("-<"))),
19633 19633 cons(cons(symbol,
19634   -cons(new_integer(661273),
  19634 +cons(new_integer(655897),
19635 19635 new_string("quality"))),
19636 19636 cons(cons(integer_10,
19637   -cons(new_integer(661278),
  19637 +cons(new_integer(655902),
19638 19638 nil)),
19639 19639 nil)))))))),
19640 19640 cons(cons(cons(new_string("false"),
19641 19641 nil),
19642   -cons(new_integer(661290),
  19642 +cons(new_integer(655914),
19643 19643 cons(cond,
19644   -cons(new_integer(661293),
  19644 +cons(new_integer(655917),
19645 19645 cons(cons(of_type,
19646   -cons(new_integer(661293),
  19646 +cons(new_integer(655917),
19647 19647 cons(new_string("Bool"),
19648 19648 cons(app,
19649   -cons(new_integer(661304),
  19649 +cons(new_integer(655928),
19650 19650 cons(cons(symbol,
19651   -cons(new_integer(661304),
  19651 +cons(new_integer(655928),
19652 19652 new_string("-<"))),
19653 19653 cons(cons(integer_10,
19654   -cons(new_integer(661308),
  19654 +cons(new_integer(655932),
19655 19655 cons(new_integer(100),
19656 19656 nil))),
19657 19657 cons(cons(symbol,
19658   -cons(new_integer(661301),
  19658 +cons(new_integer(655925),
19659 19659 new_string("quality"))),
19660 19660 nil)))))))),
19661 19661 cons(cons(cons(new_string("false"),
19662 19662 nil),
19663   -cons(new_integer(661322),
  19663 +cons(new_integer(655946),
19664 19664 cons(symbol,
19665   -cons(new_integer(661330),
  19665 +cons(new_integer(655954),
19666 19666 new_string("quality"))))),
19667 19667 cons(cons(cons(new_string("true"),
19668 19668 nil),
19669   -cons(new_integer(661313),
  19669 +cons(new_integer(655937),
19670 19670 cons(integer_10,
19671   -cons(new_integer(661317),
  19671 +cons(new_integer(655941),
19672 19672 cons(new_integer(100),
19673 19673 nil))))),
19674 19674 nil))))))),
19675 19675 cons(cons(cons(new_string("true"),
19676 19676 nil),
19677   -cons(new_integer(661283),
  19677 +cons(new_integer(655907),
19678 19678 cons(integer_10,
19679   -cons(new_integer(661285),
  19679 +cons(new_integer(655909),
19680 19680 nil)))),
19681 19681 nil))))),
19682 19682 cons(cond,
19683   -cons(new_integer(661509),
  19683 +cons(new_integer(656133),
19684 19684 cons(cons(connect_to_file,
19685   -cons(new_integer(661542),
  19685 +cons(new_integer(656166),
19686 19686 cons(cons(app_ts,
19687 19687 cons(new_string("Maybe"),
19688 19688 cons(cons(type_WStream,
19689 19689 new_string("Word8")),
19690 19690 nil))),
19691 19691 cons(symbol,
19692   -cons(new_integer(661552),
  19692 +cons(new_integer(656176),
19693 19693 new_string("file_name")))))),
19694 19694 cons(cons(cons(new_string("failure"),
19695 19695 nil),
19696   -cons(new_integer(662035),
  19696 +cons(new_integer(656659),
19697 19697 cons(symbol,
19698   -cons(new_integer(662054),
  19698 +cons(new_integer(656678),
19699 19699 new_string("cannot_create_file"))))),
19700 19700 cons(cons(cons(new_string("success"),
19701 19701 cons(new_string("output_file"),
19702 19702 nil)),
19703   -cons(new_integer(662304),
  19703 +cons(new_integer(656928),
19704 19704 cons(cond,
19705   -cons(new_integer(662539),
  19705 +cons(new_integer(657163),
19706 19706 cons(cons(symbol,
19707   -cons(new_integer(662545),
  19707 +cons(new_integer(657169),
19708 19708 new_string("image"))),
19709 19709 cons(cons(cons(new_string("img"),
19710 19710 cons(new_string("format"),
... ... @@ -19712,120 +19712,120 @@ cons(new_string(&quot;nw&quot;),
19712 19712 cons(new_string("nh"),
19713 19713 cons(new_string("samples"),
19714 19714 nil))))),
19715   -cons(new_integer(662579),
  19715 +cons(new_integer(657203),
19716 19716 cons(cond,
19717   -cons(new_integer(662795),
  19717 +cons(new_integer(657419),
19718 19718 cons(cons(app,
19719   -cons(new_integer(662823),
  19719 +cons(new_integer(657447),
19720 19720 cons(cons(symbol,
19721   -cons(new_integer(662822),
  19721 +cons(new_integer(657446),
19722 19722 new_string("£create_JPEG_compress_info"))),
19723 19723 cons(cons(symbol,
19724   -cons(new_integer(662825),
  19724 +cons(new_integer(657449),
19725 19725 new_string("nw"))),
19726 19726 cons(cons(symbol,
19727   -cons(new_integer(662828),
  19727 +cons(new_integer(657452),
19728 19728 new_string("nh"))),
19729 19729 cons(cons(symbol,
19730   -cons(new_integer(662835),
  19730 +cons(new_integer(657459),
19731 19731 new_string("format"))),
19732 19732 cons(cons(symbol,
19733   -cons(new_integer(662840),
  19733 +cons(new_integer(657464),
19734 19734 new_string("qual"))),
19735 19735 cons(cons(symbol,
19736   -cons(new_integer(662852),
  19736 +cons(new_integer(657476),
19737 19737 new_string("output_file"))),
19738 19738 nil)))))))),
19739 19739 cons(cons(cons(new_string("failure"),
19740 19740 nil),
19741   -cons(new_integer(663321),
  19741 +cons(new_integer(657945),
19742 19742 cons(symbol,
19743   -cons(new_integer(663339),
  19743 +cons(new_integer(657963),
19744 19744 new_string("compression_error"))))),
19745 19745 cons(cons(cons(new_string("success"),
19746 19746 cons(new_string("cinfo"),
19747 19747 nil)),
19748   -cons(new_integer(663584),
  19748 +cons(new_integer(658208),
19749 19749 cons(with,
19750   -cons(new_integer(663840),
  19750 +cons(new_integer(658464),
19751 19751 cons(new_string("row_stride"),
19752 19752 cons(cons(app,
19753   -cons(new_integer(663844),
  19753 +cons(new_integer(658468),
19754 19754 cons(cons(symbol,
19755   -cons(new_integer(663844),
  19755 +cons(new_integer(658468),
19756 19756 new_string("*"))),
19757 19757 cons(cons(symbol,
19758   -cons(new_integer(663843),
  19758 +cons(new_integer(658467),
19759 19759 new_string("nw"))),
19760 19760 cons(cons(cond,
19761   -cons(new_integer(663847),
  19761 +cons(new_integer(658471),
19762 19762 cons(cons(symbol,
19763   -cons(new_integer(663854),
  19763 +cons(new_integer(658478),
19764 19764 new_string("format"))),
19765 19765 cons(cons(cons(new_string("rgb"),
19766 19766 nil),
19767   -cons(new_integer(663867),
  19767 +cons(new_integer(658491),
19768 19768 cons(integer_10,
19769   -cons(new_integer(663869),
  19769 +cons(new_integer(658493),
19770 19770 cons(new_integer(3),
19771 19771 nil))))),
19772 19772 cons(cons(cons(new_string("greyscale"),
19773 19773 nil),
19774   -cons(new_integer(663885),
  19774 +cons(new_integer(658509),
19775 19775 cons(integer_10,
19776   -cons(new_integer(663887),
  19776 +cons(new_integer(658511),
19777 19777 cons(new_integer(1),
19778 19778 nil))))),
19779 19779 nil))))),
19780 19780 nil))))),
19781 19781 cons(cond,
19782   -cons(new_integer(664132),
  19782 +cons(new_integer(658756),
19783 19783 cons(cons(of_type,
19784   -cons(new_integer(664132),
  19784 +cons(new_integer(658756),
19785 19785 cons(new_string("One"),
19786 19786 cons(app,
19787   -cons(new_integer(664101),
  19787 +cons(new_integer(658725),
19788 19788 cons(cons(symbol,
19789   -cons(new_integer(664101),
  19789 +cons(new_integer(658725),
19790 19790 new_string("£jpeg_write_scanlines"))),
19791 19791 cons(cons(symbol,
19792   -cons(new_integer(664106),
  19792 +cons(new_integer(658730),
19793 19793 new_string("cinfo"))),
19794 19794 cons(cons(symbol,
19795   -cons(new_integer(664114),
  19795 +cons(new_integer(658738),
19796 19796 new_string("samples"))),
19797 19797 cons(cons(symbol,
19798   -cons(new_integer(664125),
  19798 +cons(new_integer(658749),
19799 19799 new_string("row_stride"))),
19800 19800 cons(cons(symbol,
19801   -cons(new_integer(664128),
  19801 +cons(new_integer(658752),
19802 19802 new_string("nh"))),
19803 19803 cons(cons(integer_10,
19804   -cons(new_integer(664130),
  19804 +cons(new_integer(658754),
19805 19805 nil)),
19806 19806 nil))))))))))),
19807 19807 cons(cons(cons(new_string("unique"),
19808 19808 nil),
19809   -cons(new_integer(664132),
  19809 +cons(new_integer(658756),
19810 19810 cons(cond,
19811   -cons(new_integer(664364),
  19811 +cons(new_integer(658988),
19812 19812 cons(cons(of_type,
19813   -cons(new_integer(664364),
  19813 +cons(new_integer(658988),
19814 19814 cons(new_string("One"),
19815 19815 cons(app,
19816   -cons(new_integer(664357),
  19816 +cons(new_integer(658981),
19817 19817 cons(cons(symbol,
19818   -cons(new_integer(664356),
  19818 +cons(new_integer(658980),
19819 19819 new_string("£jpeg_finish_compress"))),
19820 19820 cons(cons(symbol,
19821   -cons(new_integer(664362),
  19821 +cons(new_integer(658986),
19822 19822 new_string("cinfo"))),
19823 19823 nil))))))),
19824 19824 cons(cons(cons(new_string("unique"),
19825 19825 nil),
19826   -cons(new_integer(664364),
  19826 +cons(new_integer(658988),
19827 19827 cons(symbol,
19828   -cons(new_integer(664593),
  19828 +cons(new_integer(659217),
19829 19829 new_string("ok"))))),
19830 19830 nil)))))),
19831 19831 nil)))))))))),
... ... @@ -19833,7 +19833,7 @@ nil))))))),
19833 19833 nil)))))),
19834 19834 nil))))))))));
19835 19835  
19836   -new_type_scheme(1332760,0,
  19836 +new_type_scheme(1322008,0,
19837 19837 new_string("£JPEG_decompress_info"),
19838 19838 nil,
19839 19839 cons(cons(cons(new_string("£jpeg_decompress_info"),
... ... @@ -19845,7 +19845,7 @@ new_string(&quot;jpeg_error_mgr&quot;)),
19845 19845 nil))),
19846 19846 nil),0,1);
19847 19847  
19848   -new_op_scheme(1334798,0,
  19848 +new_op_scheme(1324046,0,
19849 19849 cons(app_ts,
19850 19850 cons(new_string("Maybe"),
19851 19851 cons(new_string("£JPEG_decompress_info"),
... ... @@ -19857,11 +19857,11 @@ new_string(&quot;Word8&quot;)),
19857 19857 new_string("source_file")),
19858 19858 nil),
19859 19859 cons(avm,
19860   -cons(new_integer(668679),
  19860 +cons(new_integer(663303),
19861 19861 cons(create_JPEG_decompress_info,
19862 19862 nil))));
19863 19863  
19864   -new_op_scheme(1338382,0,
  19864 +new_op_scheme(1327630,0,
19865 19865 cons(app_ts,
19866 19866 cons(new_string("£Tuple3"),
19867 19867 cons(new_string("Word32"),
... ... @@ -19874,11 +19874,11 @@ cons(cons(new_string(&quot;£JPEG_decompress_info&quot;),
19874 19874 new_string("cinfo")),
19875 19875 nil),
19876 19876 cons(avm,
19877   -cons(new_integer(670983),
  19877 +cons(new_integer(665607),
19878 19878 cons(jpeg_image_parameters,
19879 19879 nil))));
19880 19880  
19881   -new_op_scheme(1342990,0,
  19881 +new_op_scheme(1332238,0,
19882 19882 cons(app_ts,
19883 19883 cons(new_string("Maybe"),
19884 19884 cons(new_string("One"),
... ... @@ -19893,11 +19893,11 @@ cons(cons(new_string(&quot;Word32&quot;),
19893 19893 new_string("offset")),
19894 19894 nil))),
19895 19895 cons(avm,
19896   -cons(new_integer(673287),
  19896 +cons(new_integer(667911),
19897 19897 cons(jpeg_read_scanline,
19898 19898 nil))));
19899 19899  
19900   -new_op_scheme(1347598,0,
  19900 +new_op_scheme(1336846,0,
19901 19901 new_string("One"),
19902 19902 cons(new_string("£jpeg_read_scanlines"),
19903 19903 nil),
... ... @@ -19913,102 +19913,102 @@ cons(cons(new_string(&quot;Word32&quot;),
19913 19913 new_string("offset")),
19914 19914 nil))))),
19915 19915 cons(cond,
19916   -cons(new_integer(676101),
  19916 +cons(new_integer(670725),
19917 19917 cons(cons(of_type,
19918   -cons(new_integer(676101),
  19918 +cons(new_integer(670725),
19919 19919 cons(new_string("Bool"),
19920 19920 cons(app,
19921   -cons(new_integer(676107),
  19921 +cons(new_integer(670731),
19922 19922 cons(cons(symbol,
19923   -cons(new_integer(676107),
  19923 +cons(new_integer(670731),
19924 19924 new_string("-=<"))),
19925 19925 cons(cons(symbol,
19926   -cons(new_integer(676103),
  19926 +cons(new_integer(670727),
19927 19927 new_string("n"))),
19928 19928 cons(cons(integer_10,
19929   -cons(new_integer(676109),
  19929 +cons(new_integer(670733),
19930 19930 nil)),
19931 19931 nil)))))))),
19932 19932 cons(cons(cons(new_string("false"),
19933 19933 nil),
19934   -cons(new_integer(676126),
  19934 +cons(new_integer(670750),
19935 19935 cons(cond,
19936   -cons(new_integer(676357),
  19936 +cons(new_integer(670981),
19937 19937 cons(cons(app,
19938   -cons(new_integer(676378),
  19938 +cons(new_integer(671002),
19939 19939 cons(cons(symbol,
19940   -cons(new_integer(676377),
  19940 +cons(new_integer(671001),
19941 19941 new_string("£jpeg_read_scanline"))),
19942 19942 cons(cons(symbol,
19943   -cons(new_integer(676383),
  19943 +cons(new_integer(671007),
19944 19944 new_string("cinfo"))),
19945 19945 cons(cons(symbol,
19946   -cons(new_integer(676388),
  19946 +cons(new_integer(671012),
19947 19947 new_string("dest"))),
19948 19948 cons(cons(symbol,
19949   -cons(new_integer(676395),
  19949 +cons(new_integer(671019),
19950 19950 new_string("offset"))),
19951 19951 nil)))))),
19952 19952 cons(cons(cons(new_string("failure"),
19953 19953 nil),
19954   -cons(new_integer(676883),
  19954 +cons(new_integer(671507),
19955 19955 cons(symbol,
19956   -cons(new_integer(676890),
  19956 +cons(new_integer(671514),
19957 19957 new_string("unique"))))),
19958 19958 cons(cons(cons(new_string("success"),
19959 19959 cons(new_string("_"),
19960 19960 nil)),
19961   -cons(new_integer(677142),
  19961 +cons(new_integer(671766),
19962 19962 cons(app,
19963   -cons(new_integer(677406),
  19963 +cons(new_integer(672030),
19964 19964 cons(cons(symbol,
19965   -cons(new_integer(677405),
  19965 +cons(new_integer(672029),
19966 19966 new_string("£jpeg_read_scanlines"))),
19967 19967 cons(cons(app,
19968   -cons(new_integer(677408),
  19968 +cons(new_integer(672032),
19969 19969 cons(cons(symbol,
19970   -cons(new_integer(677408),
  19970 +cons(new_integer(672032),
19971 19971 new_string("-"))),
19972 19972 cons(cons(symbol,
19973   -cons(new_integer(677407),
  19973 +cons(new_integer(672031),
19974 19974 new_string("n"))),
19975 19975 cons(cons(integer_10,
19976   -cons(new_integer(677409),
  19976 +cons(new_integer(672033),
19977 19977 cons(new_integer(1),
19978 19978 nil))),
19979 19979 nil))))),
19980 19980 cons(cons(symbol,
19981   -cons(new_integer(677415),
  19981 +cons(new_integer(672039),
19982 19982 new_string("cinfo"))),
19983 19983 cons(cons(symbol,
19984   -cons(new_integer(677420),
  19984 +cons(new_integer(672044),
19985 19985 new_string("dest"))),
19986 19986 cons(cons(symbol,
19987   -cons(new_integer(677431),
  19987 +cons(new_integer(672055),
19988 19988 new_string("row_stride"))),
19989 19989 cons(cons(app,
19990   -cons(new_integer(677439),
  19990 +cons(new_integer(672063),
19991 19991 cons(cons(symbol,
19992   -cons(new_integer(677439),
  19992 +cons(new_integer(672063),
19993 19993 new_string("+"))),
19994 19994 cons(cons(symbol,
19995   -cons(new_integer(677438),
  19995 +cons(new_integer(672062),
19996 19996 new_string("offset"))),
19997 19997 cons(cons(symbol,
19998   -cons(new_integer(677449),
  19998 +cons(new_integer(672073),
19999 19999 new_string("row_stride"))),
20000 20000 nil))))),
20001 20001 nil)))))))))),
20002 20002 nil))))))),
20003 20003 cons(cons(cons(new_string("true"),
20004 20004 nil),
20005   -cons(new_integer(676114),
  20005 +cons(new_integer(670738),
20006 20006 cons(symbol,
20007   -cons(new_integer(676121),
  20007 +cons(new_integer(670745),
20008 20008 new_string("unique"))))),
20009 20009 nil))))));
20010 20010  
20011   -new_op_scheme(1356302,0,
  20011 +new_op_scheme(1345550,0,
20012 20012 new_string("One"),
20013 20013 cons(new_string("£jpeg_finish_decompress"),
20014 20014 nil),
... ... @@ -20016,11 +20016,11 @@ cons(cons(new_string(&quot;£JPEG_decompress_info&quot;),
20016 20016 new_string("cinfo")),
20017 20017 nil),
20018 20018 cons(avm,
20019   -cons(new_integer(679431),
  20019 +cons(new_integer(674055),
20020 20020 cons(jpeg_finish_decompress,
20021 20021 nil))));
20022 20022  
20023   -new_op_scheme(1359900,1,
  20023 +new_op_scheme(1349148,1,
20024 20024 new_string("Result_JPEG_read"),
20025 20025 cons(new_string("read_image_from_JPEG_file"),
20026 20026 nil),
... ... @@ -20028,57 +20028,57 @@ cons(cons(type_String,
20028 20028 new_string("file_name")),
20029 20029 nil),
20030 20030 cons(cond,
20031   -cons(new_integer(681221),
  20031 +cons(new_integer(675845),
20032 20032 cons(cons(connect_to_file,
20033   -cons(new_integer(681253),
  20033 +cons(new_integer(675877),
20034 20034 cons(cons(app_ts,
20035 20035 cons(new_string("Maybe"),
20036 20036 cons(cons(type_RStream,
20037 20037 new_string("Word8")),
20038 20038 nil))),
20039 20039 cons(symbol,
20040   -cons(new_integer(681263),
  20040 +cons(new_integer(675887),
20041 20041 new_string("file_name")))))),
20042 20042 cons(cons(cons(new_string("failure"),
20043 20043 nil),
20044   -cons(new_integer(681747),
  20044 +cons(new_integer(676371),
20045 20045 cons(symbol,
20046   -cons(new_integer(681764),
  20046 +cons(new_integer(676388),
20047 20047 new_string("cannot_open_file"))))),
20048 20048 cons(cons(cons(new_string("success"),
20049 20049 cons(new_string("source_file"),
20050 20050 nil)),
20051   -cons(new_integer(682016),
  20051 +cons(new_integer(676640),
20052 20052 cons(cond,
20053   -cons(new_integer(682251),
  20053 +cons(new_integer(676875),
20054 20054 cons(cons(app,
20055   -cons(new_integer(682281),
  20055 +cons(new_integer(676905),
20056 20056 cons(cons(symbol,
20057   -cons(new_integer(682280),
  20057 +cons(new_integer(676904),
20058 20058 new_string("£create_JPEG_decompress_info"))),
20059 20059 cons(cons(symbol,
20060   -cons(new_integer(682292),
  20060 +cons(new_integer(676916),
20061 20061 new_string("source_file"))),
20062 20062 nil)))),
20063 20063 cons(cons(cons(new_string("failure"),
20064 20064 nil),
20065   -cons(new_integer(682777),
  20065 +cons(new_integer(677401),
20066 20066 cons(symbol,
20067   -cons(new_integer(682794),
  20067 +cons(new_integer(677418),
20068 20068 new_string("decompress_error"))))),
20069 20069 cons(cons(cons(new_string("success"),
20070 20070 cons(new_string("cinfo"),
20071 20071 nil)),
20072   -cons(new_integer(683040),
  20072 +cons(new_integer(677664),
20073 20073 cons(cond,
20074   -cons(new_integer(683043),
  20074 +cons(new_integer(677667),
20075 20075 cons(cons(app,
20076   -cons(new_integer(683067),
  20076 +cons(new_integer(677691),
20077 20077 cons(cons(symbol,
20078   -cons(new_integer(683066),
  20078 +cons(new_integer(677690),
20079 20079 new_string("£jpeg_image_parameters"))),
20080 20080 cons(cons(symbol,
20081   -cons(new_integer(683072),
  20081 +cons(new_integer(677696),
20082 20082 new_string("cinfo"))),
20083 20083 nil)))),
20084 20084 cons(cons(cons(new_string("£tuple"),
... ... @@ -20086,69 +20086,69 @@ cons(new_string(&quot;w&quot;),
20086 20086 cons(new_string("h"),
20087 20087 cons(new_string("f"),
20088 20088 nil)))),
20089   -cons(new_integer(683089),
  20089 +cons(new_integer(677713),
20090 20090 cons(with,
20091   -cons(new_integer(683288),
  20091 +cons(new_integer(677912),
20092 20092 cons(new_string("sw"),
20093 20093 cons(cons(of_type,
20094   -cons(new_integer(683290),
  20094 +cons(new_integer(677914),
20095 20095 cons(new_string("Word32"),
20096 20096 cons(cond,
20097   -cons(new_integer(683300),
  20097 +cons(new_integer(677924),
20098 20098 cons(cons(symbol,
20099   -cons(new_integer(683302),
  20099 +cons(new_integer(677926),
20100 20100 new_string("f"))),
20101 20101 cons(cons(cons(new_string("rgb"),
20102 20102 nil),
20103   -cons(new_integer(683315),
  20103 +cons(new_integer(677939),
20104 20104 cons(integer_10,
20105   -cons(new_integer(683317),
  20105 +cons(new_integer(677941),
20106 20106 cons(new_integer(3),
20107 20107 nil))))),
20108 20108 cons(cons(cons(new_string("greyscale"),
20109 20109 nil),
20110   -cons(new_integer(683333),
  20110 +cons(new_integer(677957),
20111 20111 cons(integer_10,
20112   -cons(new_integer(683335),
  20112 +cons(new_integer(677959),
20113 20113 cons(new_integer(1),
20114 20114 nil))))),
20115 20115 nil)))))))),
20116 20116 cons(with,
20117   -cons(new_integer(683546),
  20117 +cons(new_integer(678170),
20118 20118 cons(new_string("dest"),
20119 20119 cons(cons(app,
20120   -cons(new_integer(683567),
  20120 +cons(new_integer(678191),
20121 20121 cons(cons(symbol,
20122   -cons(new_integer(683566),
  20122 +cons(new_integer(678190),
20123 20123 new_string("constant_byte_array"))),
20124 20124 cons(cons(app,
20125   -cons(new_integer(683574),
  20125 +cons(new_integer(678198),
20126 20126 cons(cons(symbol,
20127   -cons(new_integer(683573),
  20127 +cons(new_integer(678197),
20128 20128 new_string("to_Int"))),
20129 20129 cons(cons(app,
20130   -cons(new_integer(683582),
  20130 +cons(new_integer(678206),
20131 20131 cons(cons(symbol,
20132   -cons(new_integer(683582),
  20132 +cons(new_integer(678206),
20133 20133 new_string("[.]"))),
20134 20134 cons(cons(app,
20135   -cons(new_integer(683577),
  20135 +cons(new_integer(678201),
20136 20136 cons(cons(symbol,
20137   -cons(new_integer(683577),
  20137 +cons(new_integer(678201),
20138 20138 new_string("*"))),
20139 20139 cons(cons(symbol,
20140   -cons(new_integer(683576),
  20140 +cons(new_integer(678200),
20141 20141 new_string("w"))),
20142 20142 cons(cons(app,
20143   -cons(new_integer(683579),
  20143 +cons(new_integer(678203),
20144 20144 cons(cons(symbol,
20145   -cons(new_integer(683579),
  20145 +cons(new_integer(678203),
20146 20146 new_string("*"))),
20147 20147 cons(cons(symbol,
20148   -cons(new_integer(683578),
  20148 +cons(new_integer(678202),
20149 20149 new_string("h"))),
20150 20150 cons(cons(symbol,
20151   -cons(new_integer(683581),
  20151 +cons(new_integer(678205),
20152 20152 new_string("sw"))),
20153 20153 nil))))),
20154 20154 nil))))),
... ... @@ -20158,85 +20158,85 @@ new_string(&quot;[]&quot;))),
20158 20158 nil))))),
20159 20159 nil)))),
20160 20160 cons(cons(integer_10,
20161   -cons(new_integer(683585),
  20161 +cons(new_integer(678209),
20162 20162 nil)),
20163 20163 nil))))),
20164 20164 cons(cond,
20165   -cons(new_integer(683833),
  20165 +cons(new_integer(678457),
20166 20166 cons(cons(of_type,
20167   -cons(new_integer(683833),
  20167 +cons(new_integer(678457),
20168 20168 cons(new_string("One"),
20169 20169 cons(app,
20170   -cons(new_integer(683812),
  20170 +cons(new_integer(678436),
20171 20171 cons(cons(symbol,
20172   -cons(new_integer(683812),
  20172 +cons(new_integer(678436),
20173 20173 new_string("£jpeg_read_scanlines"))),
20174 20174 cons(cons(symbol,
20175   -cons(new_integer(683813),
  20175 +cons(new_integer(678437),
20176 20176 new_string("h"))),
20177 20177 cons(cons(symbol,
20178   -cons(new_integer(683819),
  20178 +cons(new_integer(678443),
20179 20179 new_string("cinfo"))),
20180 20180 cons(cons(symbol,
20181   -cons(new_integer(683824),
  20181 +cons(new_integer(678448),
20182 20182 new_string("dest"))),
20183 20183 cons(cons(app,
20184   -cons(new_integer(683827),
  20184 +cons(new_integer(678451),
20185 20185 cons(cons(symbol,
20186   -cons(new_integer(683827),
  20186 +cons(new_integer(678451),
20187 20187 new_string("*"))),
20188 20188 cons(cons(symbol,
20189   -cons(new_integer(683826),
  20189 +cons(new_integer(678450),
20190 20190 new_string("w"))),
20191 20191 cons(cons(symbol,
20192   -cons(new_integer(683829),
  20192 +cons(new_integer(678453),
20193 20193 new_string("sw"))),
20194 20194 nil))))),
20195 20195 cons(cons(integer_10,
20196   -cons(new_integer(683831),
  20196 +cons(new_integer(678455),
20197 20197 nil)),
20198 20198 nil))))))))))),
20199 20199 cons(cons(cons(new_string("unique"),
20200 20200 nil),
20201   -cons(new_integer(683833),
  20201 +cons(new_integer(678457),
20202 20202 cons(cond,
20203   -cons(new_integer(684078),
  20203 +cons(new_integer(678702),
20204 20204 cons(cons(of_type,
20205   -cons(new_integer(684078),
  20205 +cons(new_integer(678702),
20206 20206 cons(new_string("One"),
20207 20207 cons(app,
20208   -cons(new_integer(684071),
  20208 +cons(new_integer(678695),
20209 20209 cons(cons(symbol,
20210   -cons(new_integer(684070),
  20210 +cons(new_integer(678694),
20211 20211 new_string("£jpeg_finish_decompress"))),
20212 20212 cons(cons(symbol,
20213   -cons(new_integer(684076),
  20213 +cons(new_integer(678700),
20214 20214 new_string("cinfo"))),
20215 20215 nil))))))),
20216 20216 cons(cons(cons(new_string("unique"),
20217 20217 nil),
20218   -cons(new_integer(684078),
  20218 +cons(new_integer(678702),
20219 20219 cons(app,
20220   -cons(new_integer(684306),
  20220 +cons(new_integer(678930),
20221 20221 cons(cons(symbol,
20222   -cons(new_integer(684305),
  20222 +cons(new_integer(678929),
20223 20223 new_string("ok"))),
20224 20224 cons(cons(app,
20225   -cons(new_integer(684310),
  20225 +cons(new_integer(678934),
20226 20226 cons(cons(symbol,
20227   -cons(new_integer(684309),
  20227 +cons(new_integer(678933),
20228 20228 new_string("img"))),
20229 20229 cons(cons(symbol,
20230   -cons(new_integer(684311),
  20230 +cons(new_integer(678935),
20231 20231 new_string("f"))),
20232 20232 cons(cons(symbol,
20233   -cons(new_integer(684313),
  20233 +cons(new_integer(678937),
20234 20234 new_string("w"))),
20235 20235 cons(cons(symbol,
20236   -cons(new_integer(684315),
  20236 +cons(new_integer(678939),
20237 20237 new_string("h"))),
20238 20238 cons(cons(symbol,
20239   -cons(new_integer(684320),
  20239 +cons(new_integer(678944),
20240 20240 new_string("dest"))),
20241 20241 nil))))))),
20242 20242 nil)))))),
... ... @@ -20246,7 +20246,7 @@ nil)))))),
20246 20246 nil))))))),
20247 20247 nil))))));
20248 20248  
20249   -new_type_scheme(1373720,0,
  20249 +new_type_scheme(1362968,0,
20250 20250 new_string("HostWindow"),
20251 20251 nil,
20252 20252 cons(cons(cons(new_string("£window"),
... ... @@ -20260,7 +20260,7 @@ new_string(&quot;£gc&quot;)),
20260 20260 nil))),
20261 20261 nil),0,1);
20262 20262  
20263   -new_op_scheme(1377820,1,
  20263 +new_op_scheme(1367068,1,
20264 20264 cons(app_ts,
20265 20265 cons(new_string("£Tuple2"),
20266 20266 cons(new_string("Word32"),
... ... @@ -20272,11 +20272,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
20272 20272 new_string("hw")),
20273 20273 nil),
20274 20274 cons(avm,
20275   -cons(new_integer(689934),
  20275 +cons(new_integer(684558),
20276 20276 cons(host_window_size,
20277 20277 nil))));
20278 20278  
20279   -new_op_scheme(1381916,1,
  20279 +new_op_scheme(1371164,1,
20280 20280 new_string("One"),
20281 20281 cons(new_string("resize"),
20282 20282 nil),
... ... @@ -20288,11 +20288,11 @@ cons(cons(new_string(&quot;Word32&quot;),
20288 20288 new_string("height")),
20289 20289 nil))),
20290 20290 cons(avm,
20291   -cons(new_integer(692744),
  20291 +cons(new_integer(687368),
20292 20292 cons(resize_host_window,
20293 20293 nil))));
20294 20294  
20295   -new_op_scheme(1386524,1,
  20295 +new_op_scheme(1375772,1,
20296 20296 cons(app_ts,
20297 20297 cons(new_string("£Tuple2"),
20298 20298 cons(new_string("Word32"),
... ... @@ -20302,11 +20302,11 @@ cons(new_string(&quot;screen_size&quot;),
20302 20302 nil),
20303 20303 nil,
20304 20304 cons(avm,
20305   -cons(new_integer(694024),
  20305 +cons(new_integer(688648),
20306 20306 cons(screen_size,
20307 20307 nil))));
20308 20308  
20309   -new_op_scheme(1389084,1,
  20309 +new_op_scheme(1378332,1,
20310 20310 new_string("One"),
20311 20311 cons(new_string("change_title"),
20312 20312 nil),
... ... @@ -20316,11 +20316,11 @@ cons(cons(type_String,
20316 20316 new_string("new_title")),
20317 20317 nil)),
20318 20318 cons(avm,
20319   -cons(new_integer(695822),
  20319 +cons(new_integer(690446),
20320 20320 cons(change_host_window_title,
20321 20321 nil))));
20322 20322  
20323   -new_op_scheme(1394190,0,
  20323 +new_op_scheme(1383438,0,
20324 20324 new_string("Bool"),
20325 20325 cons(new_string("£window_event_pending"),
20326 20326 nil),
... ... @@ -20329,11 +20329,11 @@ new_integer(3)),
20329 20329 new_string("handle")),
20330 20330 nil),
20331 20331 cons(avm,
20332   -cons(new_integer(698376),
  20332 +cons(new_integer(693000),
20333 20333 cons(window_event_pending,
20334 20334 nil))));
20335 20335  
20336   -new_op_scheme(1397774,0,
  20336 +new_op_scheme(1387022,0,
20337 20337 cons(app_ts,
20338 20338 cons(new_string("HostWindowEvent"),
20339 20339 cons(new_utvar("E"),
... ... @@ -20345,11 +20345,11 @@ new_integer(3)),
20345 20345 new_string("handle")),
20346 20346 nil),
20347 20347 cons(avm,
20348   -cons(new_integer(700168),
  20348 +cons(new_integer(694792),
20349 20349 cons(get_host_window_event,
20350 20350 nil))));
20351 20351  
20352   -new_op_scheme(1401358,0,
  20352 +new_op_scheme(1390606,0,
20353 20353 cons(app_ts,
20354 20354 cons(new_string("List"),
20355 20355 cons(cons(app_ts,
... ... @@ -20366,107 +20366,107 @@ cons(cons(new_string(&quot;Word32&quot;),
20366 20366 new_string("max")),
20367 20367 nil)),
20368 20368 cons(cond,
20369   -cons(new_integer(702214),
  20369 +cons(new_integer(696838),
20370 20370 cons(cons(of_type,
20371   -cons(new_integer(702214),
  20371 +cons(new_integer(696838),
20372 20372 cons(new_string("Bool"),
20373 20373 cons(app,
20374   -cons(new_integer(702222),
  20374 +cons(new_integer(696846),
20375 20375 cons(cons(symbol,
20376   -cons(new_integer(702222),
  20376 +cons(new_integer(696846),
20377 20377 new_string("+=<"))),
20378 20378 cons(cons(symbol,
20379   -cons(new_integer(702218),
  20379 +cons(new_integer(696842),
20380 20380 new_string("max"))),
20381 20381 cons(cons(integer_10,
20382   -cons(new_integer(702224),
  20382 +cons(new_integer(696848),
20383 20383 nil)),
20384 20384 nil)))))))),
20385 20385 cons(cons(cons(new_string("false"),
20386 20386 nil),
20387   -cons(new_integer(702237),
  20387 +cons(new_integer(696861),
20388 20388 cons(cond,
20389   -cons(new_integer(702470),
  20389 +cons(new_integer(697094),
20390 20390 cons(cons(of_type,
20391   -cons(new_integer(702470),
  20391 +cons(new_integer(697094),
20392 20392 cons(new_string("Bool"),
20393 20393 cons(app,
20394   -cons(new_integer(702493),
  20394 +cons(new_integer(697117),
20395 20395 cons(cons(symbol,
20396   -cons(new_integer(702492),
  20396 +cons(new_integer(697116),
20397 20397 new_string("£window_event_pending"))),
20398 20398 cons(cons(symbol,
20399   -cons(new_integer(702499),
  20399 +cons(new_integer(697123),
20400 20400 new_string("handle"))),
20401 20401 nil))))))),
20402 20402 cons(cons(cons(new_string("false"),
20403 20403 nil),
20404   -cons(new_integer(703496),
  20404 +cons(new_integer(698120),
20405 20405 cons(symbol,
20406   -cons(new_integer(703500),
  20406 +cons(new_integer(698124),
20407 20407 new_string("[]"))))),
20408 20408 cons(cons(cons(new_string("true"),
20409 20409 nil),
20410   -cons(new_integer(702728),
  20410 +cons(new_integer(697352),
20411 20411 cons(with,
20412   -cons(new_integer(702741),
  20412 +cons(new_integer(697365),
20413 20413 cons(new_string("first"),
20414 20414 cons(cons(app,
20415   -cons(new_integer(702765),
  20415 +cons(new_integer(697389),
20416 20416 cons(cons(symbol,
20417   -cons(new_integer(702764),
  20417 +cons(new_integer(697388),
20418 20418 new_string("£get_host_window_event"))),
20419 20419 cons(cons(symbol,
20420   -cons(new_integer(702771),
  20420 +cons(new_integer(697395),
20421 20421 new_string("handle"))),
20422 20422 nil)))),
20423 20423 cons(with,
20424   -cons(new_integer(702997),
  20424 +cons(new_integer(697621),
20425 20425 cons(new_string("others"),
20426 20426 cons(cons(app,
20427   -cons(new_integer(703022),
  20427 +cons(new_integer(697646),
20428 20428 cons(cons(symbol,
20429   -cons(new_integer(703021),
  20429 +cons(new_integer(697645),
20430 20430 new_string("£get_host_window_events"))),
20431 20431 cons(cons(symbol,
20432   -cons(new_integer(703028),
  20432 +cons(new_integer(697652),
20433 20433 new_string("handle"))),
20434 20434 cons(cons(app,
20435   -cons(new_integer(703033),
  20435 +cons(new_integer(697657),
20436 20436 cons(cons(symbol,
20437   -cons(new_integer(703033),
  20437 +cons(new_integer(697657),
20438 20438 new_string("-"))),
20439 20439 cons(cons(symbol,
20440   -cons(new_integer(703032),
  20440 +cons(new_integer(697656),
20441 20441 new_string("max"))),
20442 20442 cons(cons(integer_10,
20443   -cons(new_integer(703034),
  20443 +cons(new_integer(697658),
20444 20444 cons(new_integer(1),
20445 20445 nil))),
20446 20446 nil))))),
20447 20447 nil))))),
20448 20448 cons(app,
20449   -cons(new_integer(703252),
  20449 +cons(new_integer(697876),
20450 20450 cons(cons(symbol,
20451   -cons(new_integer(703252),
  20451 +cons(new_integer(697876),
20452 20452 new_string("[.]"))),
20453 20453 cons(cons(symbol,
20454   -cons(new_integer(703249),
  20454 +cons(new_integer(697873),
20455 20455 new_string("first"))),
20456 20456 cons(cons(symbol,
20457   -cons(new_integer(703258),
  20457 +cons(new_integer(697882),
20458 20458 new_string("others"))),
20459 20459 nil))))))))))))))),
20460 20460 nil))))))),
20461 20461 cons(cons(cons(new_string("true"),
20462 20462 nil),
20463   -cons(new_integer(702229),
  20463 +cons(new_integer(696853),
20464 20464 cons(symbol,
20465   -cons(new_integer(702232),
  20465 +cons(new_integer(696856),
20466 20466 new_string("[]"))))),
20467 20467 nil))))));
20468 20468  
20469   -new_op_scheme(1408014,0,
  20469 +new_op_scheme(1397262,0,
20470 20470 new_string("Bool"),
20471 20471 cons(new_string("£default_host_window_handling"),
20472 20472 nil),
... ... @@ -20509,7 +20509,7 @@ new_string(&quot;event_handler&quot;)),
20509 20509 nil))))),
20510 20510 no_term);
20511 20511  
20512   -new_op_scheme(1413134,0,
  20512 +new_op_scheme(1402382,0,
20513 20513 new_string("One"),
20514 20514 cons(new_string("£begin_paint"),
20515 20515 nil),
... ... @@ -20517,11 +20517,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
20517 20517 new_string("window")),
20518 20518 nil),
20519 20519 cons(avm,
20520   -cons(new_integer(707848),
  20520 +cons(new_integer(702472),
20521 20521 cons(begin_paint,
20522 20522 nil))));
20523 20523  
20524   -new_op_scheme(1416718,0,
  20524 +new_op_scheme(1405966,0,
20525 20525 new_string("One"),
20526 20526 cons(new_string("£end_paint"),
20527 20527 nil),
... ... @@ -20529,11 +20529,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
20529 20529 new_string("window")),
20530 20530 nil),
20531 20531 cons(avm,
20532   -cons(new_integer(709640),
  20532 +cons(new_integer(704264),
20533 20533 cons(end_paint,
20534 20534 nil))));
20535 20535  
20536   -new_op_scheme(1420302,0,
  20536 +new_op_scheme(1409550,0,
20537 20537 new_string("Bool"),
20538 20538 cons(new_string("£handle_host_window_events"),
20539 20539 nil),
... ... @@ -20570,153 +20570,153 @@ nil))))),
20570 20570 new_string("eh")),
20571 20571 nil)))),
20572 20572 cons(cond,
20573   -cons(new_integer(712198),
  20573 +cons(new_integer(706822),
20574 20574 cons(cons(symbol,
20575   -cons(new_integer(712203),
  20575 +cons(new_integer(706827),
20576 20576 new_string("list"))),
20577 20577 cons(cons(cons(new_string("[]"),
20578 20578 nil),
20579   -cons(new_integer(712720),
  20579 +cons(new_integer(707344),
20580 20580 cons(symbol,
20581   -cons(new_integer(712726),
  20581 +cons(new_integer(707350),
20582 20582 new_string("false"))))),
20583 20583 cons(cons(cons(new_string("[.]"),
20584 20584 cons(new_string("e1"),
20585 20585 cons(new_string("es"),
20586 20586 nil))),
20587   -cons(new_integer(712982),
  20587 +cons(new_integer(707606),
20588 20588 cons(cond,
20589   -cons(new_integer(712985),
  20589 +cons(new_integer(707609),
20590 20590 cons(cons(symbol,
20591   -cons(new_integer(712988),
  20591 +cons(new_integer(707612),
20592 20592 new_string("e1"))),
20593 20593 cons(cons(cons(new_string("quit"),
20594 20594 nil),
20595   -cons(new_integer(713514),
  20595 +cons(new_integer(708138),
20596 20596 cons(cond,
20597   -cons(new_integer(713539),
  20597 +cons(new_integer(708163),
20598 20598 cons(cons(of_type,
20599   -cons(new_integer(713539),
  20599 +cons(new_integer(708163),
20600 20600 cons(new_string("One"),
20601 20601 cons(app,
20602   -cons(new_integer(713522),
  20602 +cons(new_integer(708146),
20603 20603 cons(cons(symbol,
20604   -cons(new_integer(713521),
  20604 +cons(new_integer(708145),
20605 20605 new_string("forget"))),
20606 20606 cons(cons(app,
20607   -cons(new_integer(713525),
  20607 +cons(new_integer(708149),
20608 20608 cons(cons(symbol,
20609   -cons(new_integer(713524),
  20609 +cons(new_integer(708148),
20610 20610 new_string("eh"))),
20611 20611 cons(cons(symbol,
20612   -cons(new_integer(713531),
  20612 +cons(new_integer(708155),
20613 20613 new_string("window"))),
20614 20614 cons(cons(symbol,
20615   -cons(new_integer(713536),
  20615 +cons(new_integer(708160),
20616 20616 new_string("quit"))),
20617 20617 nil))))),
20618 20618 nil))))))),
20619 20619 cons(cons(cons(new_string("unique"),
20620 20620 nil),
20621   -cons(new_integer(713539),
  20621 +cons(new_integer(708163),
20622 20622 cons(symbol,
20623   -cons(new_integer(713544),
  20623 +cons(new_integer(708168),
20624 20624 new_string("true"))))),
20625 20625 nil)))))),
20626 20626 cons(cons(cons(new_string("expose"),
20627 20627 nil),
20628   -cons(new_integer(713770),
  20628 +cons(new_integer(708394),
20629 20629 cons(with,
20630   -cons(new_integer(714011),
  20630 +cons(new_integer(708635),
20631 20631 cons(new_string("result"),
20632 20632 cons(cons(app,
20633   -cons(new_integer(714042),
  20633 +cons(new_integer(708666),
20634 20634 cons(cons(symbol,
20635   -cons(new_integer(714041),
  20635 +cons(new_integer(708665),
20636 20636 new_string("£default_host_window_handling"))),
20637 20637 cons(cons(symbol,
20638   -cons(new_integer(714044),
  20638 +cons(new_integer(708668),
20639 20639 new_string("e1"))),
20640 20640 cons(cons(symbol,
20641   -cons(new_integer(714047),
  20641 +cons(new_integer(708671),
20642 20642 new_string("es"))),
20643 20643 cons(cons(symbol,
20644   -cons(new_integer(714054),
  20644 +cons(new_integer(708678),
20645 20645 new_string("window"))),
20646 20646 cons(cons(symbol,
20647   -cons(new_integer(714057),
  20647 +cons(new_integer(708681),
20648 20648 new_string("pm"))),
20649 20649 cons(cons(symbol,
20650   -cons(new_integer(714060),
  20650 +cons(new_integer(708684),
20651 20651 new_string("eh"))),
20652 20652 nil)))))))),
20653 20653 cons(cond,
20654   -cons(new_integer(714275),
  20654 +cons(new_integer(708899),
20655 20655 cons(cons(of_type,
20656   -cons(new_integer(714275),
  20656 +cons(new_integer(708899),
20657 20657 cons(new_string("One"),
20658 20658 cons(app,
20659   -cons(new_integer(714267),
  20659 +cons(new_integer(708891),
20660 20660 cons(cons(symbol,
20661   -cons(new_integer(714267),
  20661 +cons(new_integer(708891),
20662 20662 new_string("£begin_paint"))),
20663 20663 cons(cons(symbol,
20664   -cons(new_integer(714273),
  20664 +cons(new_integer(708897),
20665 20665 new_string("window"))),
20666 20666 nil))))))),
20667 20667 cons(cons(cons(new_string("unique"),
20668 20668 nil),
20669   -cons(new_integer(714275),
  20669 +cons(new_integer(708899),
20670 20670 cons(cond,
20671   -cons(new_integer(714580),
  20671 +cons(new_integer(709204),
20672 20672 cons(cons(of_type,
20673   -cons(new_integer(714580),
  20673 +cons(new_integer(709204),
20674 20674 cons(new_string("One"),
20675 20675 cons(app,
20676   -cons(new_integer(714513),
  20676 +cons(new_integer(709137),
20677 20677 cons(cons(symbol,
20678   -cons(new_integer(714512),
  20678 +cons(new_integer(709136),
20679 20679 new_string("pm"))),
20680 20680 cons(cons(symbol,
20681   -cons(new_integer(714519),
  20681 +cons(new_integer(709143),
20682 20682 new_string("window"))),
20683 20683 cons(cons(cond,
20684   -cons(new_integer(714523),
  20684 +cons(new_integer(709147),
20685 20685 cons(cons(app,
20686   -cons(new_integer(714529),
  20686 +cons(new_integer(709153),
20687 20687 cons(cons(symbol,
20688   -cons(new_integer(714528),
  20688 +cons(new_integer(709152),
20689 20689 new_string("size"))),
20690 20690 cons(cons(symbol,
20691   -cons(new_integer(714535),
  20691 +cons(new_integer(709159),
20692 20692 new_string("window"))),
20693 20693 nil)))),
20694 20694 cons(cons(cons(new_string("£tuple"),
20695 20695 cons(new_string("winw"),
20696 20696 cons(new_string("winh"),
20697 20697 nil))),
20698   -cons(new_integer(714556),
  20698 +cons(new_integer(709180),
20699 20699 cons(app,
20700   -cons(new_integer(714578),
  20700 +cons(new_integer(709202),
20701 20701 cons(cons(symbol,
20702   -cons(new_integer(714578),
  20702 +cons(new_integer(709202),
20703 20703 new_string("[.]"))),
20704 20704 cons(cons(app,
20705   -cons(new_integer(714563),
  20705 +cons(new_integer(709187),
20706 20706 cons(cons(symbol,
20707   -cons(new_integer(714562),
  20707 +cons(new_integer(709186),
20708 20708 new_string("rect"))),
20709 20709 cons(cons(integer_10,
20710   -cons(new_integer(714564),
  20710 +cons(new_integer(709188),
20711 20711 nil)),
20712 20712 cons(cons(integer_10,
20713   -cons(new_integer(714566),
  20713 +cons(new_integer(709190),
20714 20714 nil)),
20715 20715 cons(cons(symbol,
20716   -cons(new_integer(714571),
  20716 +cons(new_integer(709195),
20717 20717 new_string("winw"))),
20718 20718 cons(cons(symbol,
20719   -cons(new_integer(714576),
  20719 +cons(new_integer(709200),
20720 20720 new_string("winh"))),
20721 20721 nil))))))),
20722 20722 cons(cons(symbol,
... ... @@ -20727,102 +20727,102 @@ nil)))),
20727 20727 nil)))))))),
20728 20728 cons(cons(cons(new_string("unique"),
20729 20729 nil),
20730   -cons(new_integer(714580),
  20730 +cons(new_integer(709204),
20731 20731 cons(cond,
20732   -cons(new_integer(714785),
  20732 +cons(new_integer(709409),
20733 20733 cons(cons(of_type,
20734   -cons(new_integer(714785),
  20734 +cons(new_integer(709409),
20735 20735 cons(new_string("One"),
20736 20736 cons(app,
20737   -cons(new_integer(714777),
  20737 +cons(new_integer(709401),
20738 20738 cons(cons(symbol,
20739   -cons(new_integer(714776),
  20739 +cons(new_integer(709400),
20740 20740 new_string("£end_paint"))),
20741 20741 cons(cons(symbol,
20742   -cons(new_integer(714783),
  20742 +cons(new_integer(709407),
20743 20743 new_string("window"))),
20744 20744 nil))))))),
20745 20745 cons(cons(cons(new_string("unique"),
20746 20746 nil),
20747   -cons(new_integer(714785),
  20747 +cons(new_integer(709409),
20748 20748 cons(symbol,
20749   -cons(new_integer(715028),
  20749 +cons(new_integer(709652),
20750 20750 new_string("result"))))),
20751 20751 nil)))))),
20752 20752 nil)))))),
20753 20753 nil)))))))))),
20754 20754 cons(cons(cons(new_string("pointer_entering"),
20755 20755 nil),
20756   -cons(new_integer(715306),
  20756 +cons(new_integer(709930),
20757 20757 cons(app,
20758   -cons(new_integer(715337),
  20758 +cons(new_integer(709961),
20759 20759 cons(cons(symbol,
20760   -cons(new_integer(715336),
  20760 +cons(new_integer(709960),
20761 20761 new_string("£default_host_window_handling"))),
20762 20762 cons(cons(symbol,
20763   -cons(new_integer(715339),
  20763 +cons(new_integer(709963),
20764 20764 new_string("e1"))),
20765 20765 cons(cons(symbol,
20766   -cons(new_integer(715342),
  20766 +cons(new_integer(709966),
20767 20767 new_string("es"))),
20768 20768 cons(cons(symbol,
20769   -cons(new_integer(715349),
  20769 +cons(new_integer(709973),
20770 20770 new_string("window"))),
20771 20771 cons(cons(symbol,
20772   -cons(new_integer(715352),
  20772 +cons(new_integer(709976),
20773 20773 new_string("pm"))),
20774 20774 cons(cons(symbol,
20775   -cons(new_integer(715355),
  20775 +cons(new_integer(709979),
20776 20776 new_string("eh"))),
20777 20777 nil)))))))))),
20778 20778 cons(cons(cons(new_string("pointer_leaving"),
20779 20779 nil),
20780   -cons(new_integer(715562),
  20780 +cons(new_integer(710186),
20781 20781 cons(app,
20782   -cons(new_integer(715593),
  20782 +cons(new_integer(710217),
20783 20783 cons(cons(symbol,
20784   -cons(new_integer(715592),
  20784 +cons(new_integer(710216),
20785 20785 new_string("£default_host_window_handling"))),
20786 20786 cons(cons(symbol,
20787   -cons(new_integer(715595),
  20787 +cons(new_integer(710219),
20788 20788 new_string("e1"))),
20789 20789 cons(cons(symbol,
20790   -cons(new_integer(715598),
  20790 +cons(new_integer(710222),
20791 20791 new_string("es"))),
20792 20792 cons(cons(symbol,
20793   -cons(new_integer(715605),
  20793 +cons(new_integer(710229),
20794 20794 new_string("window"))),
20795 20795 cons(cons(symbol,
20796   -cons(new_integer(715608),
  20796 +cons(new_integer(710232),
20797 20797 new_string("pm"))),
20798 20798 cons(cons(symbol,
20799   -cons(new_integer(715611),
  20799 +cons(new_integer(710235),
20800 20800 new_string("eh"))),
20801 20801 nil)))))))))),
20802 20802 cons(cons(cons(new_string("key_down"),
20803 20803 cons(new_string("ks"),
20804 20804 cons(new_string("kk"),
20805 20805 nil))),
20806   -cons(new_integer(715818),
  20806 +cons(new_integer(710442),
20807 20807 cons(app,
20808   -cons(new_integer(715849),
  20808 +cons(new_integer(710473),
20809 20809 cons(cons(symbol,
20810   -cons(new_integer(715848),
  20810 +cons(new_integer(710472),
20811 20811 new_string("£default_host_window_handling"))),
20812 20812 cons(cons(symbol,
20813   -cons(new_integer(715851),
  20813 +cons(new_integer(710475),
20814 20814 new_string("e1"))),
20815 20815 cons(cons(symbol,
20816   -cons(new_integer(715854),
  20816 +cons(new_integer(710478),
20817 20817 new_string("es"))),
20818 20818 cons(cons(symbol,
20819   -cons(new_integer(715861),
  20819 +cons(new_integer(710485),
20820 20820 new_string("window"))),
20821 20821 cons(cons(symbol,
20822   -cons(new_integer(715864),
  20822 +cons(new_integer(710488),
20823 20823 new_string("pm"))),
20824 20824 cons(cons(symbol,
20825   -cons(new_integer(715867),
  20825 +cons(new_integer(710491),
20826 20826 new_string("eh"))),
20827 20827 nil)))))))))),
20828 20828 cons(cons(cons(new_string("mouse_move"),
... ... @@ -20830,26 +20830,26 @@ cons(new_string(&quot;ks&quot;),
20830 20830 cons(new_string("x"),
20831 20831 cons(new_string("y"),
20832 20832 nil)))),
20833   -cons(new_integer(716074),
  20833 +cons(new_integer(710698),
20834 20834 cons(app,
20835   -cons(new_integer(716105),
  20835 +cons(new_integer(710729),
20836 20836 cons(cons(symbol,
20837   -cons(new_integer(716104),
  20837 +cons(new_integer(710728),
20838 20838 new_string("£default_host_window_handling"))),
20839 20839 cons(cons(symbol,
20840   -cons(new_integer(716107),
  20840 +cons(new_integer(710731),
20841 20841 new_string("e1"))),
20842 20842 cons(cons(symbol,
20843   -cons(new_integer(716110),
  20843 +cons(new_integer(710734),
20844 20844 new_string("es"))),
20845 20845 cons(cons(symbol,
20846   -cons(new_integer(716117),
  20846 +cons(new_integer(710741),
20847 20847 new_string("window"))),
20848 20848 cons(cons(symbol,
20849   -cons(new_integer(716120),
  20849 +cons(new_integer(710744),
20850 20850 new_string("pm"))),
20851 20851 cons(cons(symbol,
20852   -cons(new_integer(716123),
  20852 +cons(new_integer(710747),
20853 20853 new_string("eh"))),
20854 20854 nil)))))))))),
20855 20855 cons(cons(cons(new_string("mouse_click"),
... ... @@ -20858,26 +20858,26 @@ cons(new_string(&quot;mc&quot;),
20858 20858 cons(new_string("x"),
20859 20859 cons(new_string("y"),
20860 20860 nil))))),
20861   -cons(new_integer(716330),
  20861 +cons(new_integer(710954),
20862 20862 cons(app,
20863   -cons(new_integer(716361),
  20863 +cons(new_integer(710985),
20864 20864 cons(cons(symbol,
20865   -cons(new_integer(716360),
  20865 +cons(new_integer(710984),
20866 20866 new_string("£default_host_window_handling"))),
20867 20867 cons(cons(symbol,
20868   -cons(new_integer(716363),
  20868 +cons(new_integer(710987),
20869 20869 new_string("e1"))),
20870 20870 cons(cons(symbol,
20871   -cons(new_integer(716366),
  20871 +cons(new_integer(710990),
20872 20872 new_string("es"))),
20873 20873 cons(cons(symbol,
20874   -cons(new_integer(716373),
  20874 +cons(new_integer(710997),
20875 20875 new_string("window"))),
20876 20876 cons(cons(symbol,
20877   -cons(new_integer(716376),
  20877 +cons(new_integer(711000),
20878 20878 new_string("pm"))),
20879 20879 cons(cons(symbol,
20880   -cons(new_integer(716379),
  20880 +cons(new_integer(711003),
20881 20881 new_string("eh"))),
20882 20882 nil)))))))))),
20883 20883 cons(cons(cons(new_string("mouse_wheel"),
... ... @@ -20886,124 +20886,124 @@ cons(new_string(&quot;d&quot;),
20886 20886 cons(new_string("x"),
20887 20887 cons(new_string("y"),
20888 20888 nil))))),
20889   -cons(new_integer(716586),
  20889 +cons(new_integer(711210),
20890 20890 cons(app,
20891   -cons(new_integer(716617),
  20891 +cons(new_integer(711241),
20892 20892 cons(cons(symbol,
20893   -cons(new_integer(716616),
  20893 +cons(new_integer(711240),
20894 20894 new_string("£default_host_window_handling"))),
20895 20895 cons(cons(symbol,
20896   -cons(new_integer(716619),
  20896 +cons(new_integer(711243),
20897 20897 new_string("e1"))),
20898 20898 cons(cons(symbol,
20899   -cons(new_integer(716622),
  20899 +cons(new_integer(711246),
20900 20900 new_string("es"))),
20901 20901 cons(cons(symbol,
20902   -cons(new_integer(716629),
  20902 +cons(new_integer(711253),
20903 20903 new_string("window"))),
20904 20904 cons(cons(symbol,
20905   -cons(new_integer(716632),
  20905 +cons(new_integer(711256),
20906 20906 new_string("pm"))),
20907 20907 cons(cons(symbol,
20908   -cons(new_integer(716635),
  20908 +cons(new_integer(711259),
20909 20909 new_string("eh"))),
20910 20910 nil)))))))))),
20911 20911 cons(cons(cons(new_string("tick"),
20912 20912 nil),
20913   -cons(new_integer(716842),
  20913 +cons(new_integer(711466),
20914 20914 cons(app,
20915   -cons(new_integer(716873),
  20915 +cons(new_integer(711497),
20916 20916 cons(cons(symbol,
20917   -cons(new_integer(716872),
  20917 +cons(new_integer(711496),
20918 20918 new_string("£default_host_window_handling"))),
20919 20919 cons(cons(symbol,
20920   -cons(new_integer(716875),
  20920 +cons(new_integer(711499),
20921 20921 new_string("e1"))),
20922 20922 cons(cons(symbol,
20923   -cons(new_integer(716878),
  20923 +cons(new_integer(711502),
20924 20924 new_string("es"))),
20925 20925 cons(cons(symbol,
20926   -cons(new_integer(716885),
  20926 +cons(new_integer(711509),
20927 20927 new_string("window"))),
20928 20928 cons(cons(symbol,
20929   -cons(new_integer(716888),
  20929 +cons(new_integer(711512),
20930 20930 new_string("pm"))),
20931 20931 cons(cons(symbol,
20932   -cons(new_integer(716891),
  20932 +cons(new_integer(711515),
20933 20933 new_string("eh"))),
20934 20934 nil)))))))))),
20935 20935 cons(cons(cons(new_string("repaint"),
20936 20936 cons(new_string("l"),
20937 20937 nil)),
20938   -cons(new_integer(717098),
  20938 +cons(new_integer(711722),
20939 20939 cons(cond,
20940   -cons(new_integer(717113),
  20940 +cons(new_integer(711737),
20941 20941 cons(cons(of_type,
20942   -cons(new_integer(717113),
  20942 +cons(new_integer(711737),
20943 20943 cons(new_string("One"),
20944 20944 cons(app,
20945   -cons(new_integer(717103),
  20945 +cons(new_integer(711727),
20946 20946 cons(cons(symbol,
20947   -cons(new_integer(717102),
  20947 +cons(new_integer(711726),
20948 20948 new_string("pm"))),
20949 20949 cons(cons(symbol,
20950   -cons(new_integer(717109),
  20950 +cons(new_integer(711733),
20951 20951 new_string("window"))),
20952 20952 cons(cons(symbol,
20953   -cons(new_integer(717111),
  20953 +cons(new_integer(711735),
20954 20954 new_string("l"))),
20955 20955 nil)))))))),
20956 20956 cons(cons(cons(new_string("unique"),
20957 20957 nil),
20958   -cons(new_integer(717113),
  20958 +cons(new_integer(711737),
20959 20959 cons(app,
20960   -cons(new_integer(717383),
  20960 +cons(new_integer(712007),
20961 20961 cons(cons(symbol,
20962   -cons(new_integer(717382),
  20962 +cons(new_integer(712006),
20963 20963 new_string("£handle_host_window_events"))),
20964 20964 cons(cons(symbol,
20965   -cons(new_integer(717385),
  20965 +cons(new_integer(712009),
20966 20966 new_string("es"))),
20967 20967 cons(cons(symbol,
20968   -cons(new_integer(717392),
  20968 +cons(new_integer(712016),
20969 20969 new_string("window"))),
20970 20970 cons(cons(symbol,
20971   -cons(new_integer(717395),
  20971 +cons(new_integer(712019),
20972 20972 new_string("pm"))),
20973 20973 cons(cons(symbol,
20974   -cons(new_integer(717398),
  20974 +cons(new_integer(712022),
20975 20975 new_string("eh"))),
20976 20976 nil))))))))),
20977 20977 nil)))))),
20978 20978 cons(cons(cons(new_string("specific"),
20979 20979 cons(new_string("spe"),
20980 20980 nil)),
20981   -cons(new_integer(717610),
  20981 +cons(new_integer(712234),
20982 20982 cons(app,
20983   -cons(new_integer(717641),
  20983 +cons(new_integer(712265),
20984 20984 cons(cons(symbol,
20985   -cons(new_integer(717640),
  20985 +cons(new_integer(712264),
20986 20986 new_string("£default_host_window_handling"))),
20987 20987 cons(cons(symbol,
20988   -cons(new_integer(717643),
  20988 +cons(new_integer(712267),
20989 20989 new_string("e1"))),
20990 20990 cons(cons(symbol,
20991   -cons(new_integer(717646),
  20991 +cons(new_integer(712270),
20992 20992 new_string("es"))),
20993 20993 cons(cons(symbol,
20994   -cons(new_integer(717653),
  20994 +cons(new_integer(712277),
20995 20995 new_string("window"))),
20996 20996 cons(cons(symbol,
20997   -cons(new_integer(717656),
  20997 +cons(new_integer(712280),
20998 20998 new_string("pm"))),
20999 20999 cons(cons(symbol,
21000   -cons(new_integer(717659),
  21000 +cons(new_integer(712283),
21001 21001 new_string("eh"))),
21002 21002 nil)))))))))),
21003 21003 nil)))))))))))))))),
21004 21004 nil))))));
21005 21005  
21006   -new_op_scheme(1437198,0,
  21006 +new_op_scheme(1426446,0,
21007 21007 new_string("Bool"),
21008 21008 cons(new_string("£default_host_window_handling"),
21009 21009 nil),
... ... @@ -21045,78 +21045,78 @@ nil))))),
21045 21045 new_string("event_handler")),
21046 21046 nil))))),
21047 21047 cons(with,
21048   -cons(new_integer(720912),
  21048 +cons(new_integer(715536),
21049 21049 cons(new_string("rects"),
21050 21050 cons(cons(app,
21051   -cons(new_integer(720927),
  21051 +cons(new_integer(715551),
21052 21052 cons(cons(symbol,
21053   -cons(new_integer(720926),
  21053 +cons(new_integer(715550),
21054 21054 new_string("event_handler"))),
21055 21055 cons(cons(symbol,
21056   -cons(new_integer(720933),
  21056 +cons(new_integer(715557),
21057 21057 new_string("window"))),
21058 21058 cons(cons(symbol,
21059   -cons(new_integer(720935),
  21059 +cons(new_integer(715559),
21060 21060 new_string("e"))),
21061 21061 nil))))),
21062 21062 cons(cond,
21063   -cons(new_integer(722186),
  21063 +cons(new_integer(716810),
21064 21064 cons(cons(of_type,
21065   -cons(new_integer(722186),
  21065 +cons(new_integer(716810),
21066 21066 cons(new_string("One"),
21067 21067 cons(cond,
21068   -cons(new_integer(721160),
  21068 +cons(new_integer(715784),
21069 21069 cons(cons(symbol,
21070   -cons(new_integer(721166),
  21070 +cons(new_integer(715790),
21071 21071 new_string("rects"))),
21072 21072 cons(cons(cons(new_string("[]"),
21073 21073 nil),
21074   -cons(new_integer(721682),
  21074 +cons(new_integer(716306),
21075 21075 cons(symbol,
21076   -cons(new_integer(721689),
  21076 +cons(new_integer(716313),
21077 21077 new_string("unique"))))),
21078 21078 cons(cons(cons(new_string("[.]"),
21079 21079 cons(new_string("_"),
21080 21080 cons(new_string("_"),
21081 21081 nil))),
21082   -cons(new_integer(721942),
  21082 +cons(new_integer(716566),
21083 21083 cons(app,
21084   -cons(new_integer(721956),
  21084 +cons(new_integer(716580),
21085 21085 cons(cons(symbol,
21086   -cons(new_integer(721955),
  21086 +cons(new_integer(716579),
21087 21087 new_string("paint_method"))),
21088 21088 cons(cons(symbol,
21089   -cons(new_integer(721962),
  21089 +cons(new_integer(716586),
21090 21090 new_string("window"))),
21091 21091 cons(cons(symbol,
21092   -cons(new_integer(721968),
  21092 +cons(new_integer(716592),
21093 21093 new_string("rects"))),
21094 21094 nil))))))),
21095 21095 nil)))))))),
21096 21096 cons(cons(cons(new_string("unique"),
21097 21097 nil),
21098   -cons(new_integer(722186),
  21098 +cons(new_integer(716810),
21099 21099 cons(app,
21100   -cons(new_integer(722465),
  21100 +cons(new_integer(717089),
21101 21101 cons(cons(symbol,
21102   -cons(new_integer(722464),
  21102 +cons(new_integer(717088),
21103 21103 new_string("£handle_host_window_events"))),
21104 21104 cons(cons(symbol,
21105   -cons(new_integer(722466),
  21105 +cons(new_integer(717090),
21106 21106 new_string("l"))),
21107 21107 cons(cons(symbol,
21108   -cons(new_integer(722473),
  21108 +cons(new_integer(717097),
21109 21109 new_string("window"))),
21110 21110 cons(cons(symbol,
21111   -cons(new_integer(722486),
  21111 +cons(new_integer(717110),
21112 21112 new_string("paint_method"))),
21113 21113 cons(cons(symbol,
21114   -cons(new_integer(722500),
  21114 +cons(new_integer(717124),
21115 21115 new_string("event_handler"))),
21116 21116 nil))))))))),
21117 21117 nil)))))))));
21118 21118  
21119   -new_op_scheme(1445916,1,
  21119 +new_op_scheme(1435164,1,
21120 21120 new_string("One"),
21121 21121 cons(new_string("generic_host_window_handler"),
21122 21122 nil),
... ... @@ -21162,92 +21162,92 @@ nil))))),
21162 21162 new_string("compress")),
21163 21163 nil)))),
21164 21164 cons(cond,
21165   -cons(new_integer(724998),
  21165 +cons(new_integer(719622),
21166 21166 cons(cons(of_type,
21167   -cons(new_integer(724998),
  21167 +cons(new_integer(719622),
21168 21168 cons(new_string("Bool"),
21169 21169 cons(app,
21170   -cons(new_integer(725026),
  21170 +cons(new_integer(719650),
21171 21171 cons(cons(symbol,
21172   -cons(new_integer(725025),
  21172 +cons(new_integer(719649),
21173 21173 new_string("£handle_host_window_events"))),
21174 21174 cons(cons(app,
21175   -cons(new_integer(725035),
  21175 +cons(new_integer(719659),
21176 21176 cons(cons(symbol,
21177   -cons(new_integer(725034),
  21177 +cons(new_integer(719658),
21178 21178 new_string("compress"))),
21179 21179 cons(cons(app,
21180   -cons(new_integer(725059),
  21180 +cons(new_integer(719683),
21181 21181 cons(cons(symbol,
21182   -cons(new_integer(725058),
  21182 +cons(new_integer(719682),
21183 21183 new_string("£get_host_window_events"))),
21184 21184 cons(cons(app,
21185   -cons(new_integer(725067),
  21185 +cons(new_integer(719691),
21186 21186 cons(cons(symbol,
21187   -cons(new_integer(725066),
  21187 +cons(new_integer(719690),
21188 21188 new_string("£handle"))),
21189 21189 cons(cons(symbol,
21190   -cons(new_integer(725073),
  21190 +cons(new_integer(719697),
21191 21191 new_string("window"))),
21192 21192 nil)))),
21193 21193 cons(cons(integer_10,
21194   -cons(new_integer(725078),
  21194 +cons(new_integer(719702),
21195 21195 cons(new_integer(200),
21196 21196 nil))),
21197 21197 nil))))),
21198 21198 nil)))),
21199 21199 cons(cons(symbol,
21200   -cons(new_integer(725288),
  21200 +cons(new_integer(719912),
21201 21201 new_string("window"))),
21202 21202 cons(cons(symbol,
21203   -cons(new_integer(725301),
  21203 +cons(new_integer(719925),
21204 21204 new_string("paint_method"))),
21205 21205 cons(cons(symbol,
21206   -cons(new_integer(725315),
  21206 +cons(new_integer(719939),
21207 21207 new_string("event_handler"))),
21208 21208 nil)))))))))),
21209 21209 cons(cons(cons(new_string("false"),
21210 21210 nil),
21211   -cons(new_integer(725768),
  21211 +cons(new_integer(720392),
21212 21212 cons(cond,
21213   -cons(new_integer(725784),
  21213 +cons(new_integer(720408),
21214 21214 cons(cons(of_type,
21215   -cons(new_integer(725784),
  21215 +cons(new_integer(720408),
21216 21216 cons(new_string("One"),
21217 21217 cons(symbol,
21218   -cons(new_integer(725783),
  21218 +cons(new_integer(720407),
21219 21219 new_string("wait_for_event")))))),
21220 21220 cons(cons(cons(new_string("unique"),
21221 21221 nil),
21222   -cons(new_integer(725784),
  21222 +cons(new_integer(720408),
21223 21223 cons(app,
21224   -cons(new_integer(726053),
  21224 +cons(new_integer(720677),
21225 21225 cons(cons(symbol,
21226   -cons(new_integer(726052),
  21226 +cons(new_integer(720676),
21227 21227 new_string("generic_host_window_handler"))),
21228 21228 cons(cons(symbol,
21229   -cons(new_integer(726059),
  21229 +cons(new_integer(720683),
21230 21230 new_string("window"))),
21231 21231 cons(cons(symbol,
21232   -cons(new_integer(726072),
  21232 +cons(new_integer(720696),
21233 21233 new_string("paint_method"))),
21234 21234 cons(cons(symbol,
21235   -cons(new_integer(726086),
  21235 +cons(new_integer(720710),
21236 21236 new_string("event_handler"))),
21237 21237 cons(cons(symbol,
21238   -cons(new_integer(726095),
  21238 +cons(new_integer(720719),
21239 21239 new_string("compress"))),
21240 21240 nil))))))))),
21241 21241 nil)))))),
21242 21242 cons(cons(cons(new_string("true"),
21243 21243 nil),
21244   -cons(new_integer(725512),
  21244 +cons(new_integer(720136),
21245 21245 cons(symbol,
21246   -cons(new_integer(725519),
  21246 +cons(new_integer(720143),
21247 21247 new_string("unique"))))),
21248 21248 nil))))));
21249 21249  
21250   -new_op_scheme(1454606,0,
  21250 +new_op_scheme(1443854,0,
21251 21251 cons(app_ts,
21252 21252 cons(new_string("Maybe"),
21253 21253 cons(cons(app_ts,
... ... @@ -21274,11 +21274,11 @@ cons(cons(new_string(&quot;HostWindowSort&quot;),
21274 21274 new_string("sort")),
21275 21275 nil)))))),
21276 21276 cons(avm,
21277   -cons(new_integer(729864),
  21277 +cons(new_integer(724488),
21278 21278 cons(open_host_window,
21279 21279 nil))));
21280 21280  
21281   -new_op_scheme(1460764,1,
  21281 +new_op_scheme(1450012,1,
21282 21282 cons(app_ts,
21283 21283 cons(new_string("Maybe"),
21284 21284 cons(new_string("HostWindow"),
... ... @@ -21331,9 +21331,9 @@ nil))))),
21331 21331 new_string("compress")),
21332 21332 nil)))))),
21333 21333 cons(cond,
21334   -cons(new_integer(732934),
  21334 +cons(new_integer(727558),
21335 21335 cons(cons(symbol,
21336   -cons(new_integer(732936),
  21336 +cons(new_integer(727560),
21337 21337 new_string("r"))),
21338 21338 cons(cons(cons(new_string("rect"),
21339 21339 cons(new_string("x"),
... ... @@ -21341,120 +21341,120 @@ cons(new_string(&quot;y&quot;),
21341 21341 cons(new_string("u"),
21342 21342 cons(new_string("v"),
21343 21343 nil))))),
21344   -cons(new_integer(732958),
  21344 +cons(new_integer(727582),
21345 21345 cons(cond,
21346   -cons(new_integer(733190),
  21346 +cons(new_integer(727814),
21347 21347 cons(cons(app,
21348   -cons(new_integer(733209),
  21348 +cons(new_integer(727833),
21349 21349 cons(cons(symbol,
21350   -cons(new_integer(733208),
  21350 +cons(new_integer(727832),
21351 21351 new_string("£open_host_window"))),
21352 21352 cons(cons(symbol,
21353   -cons(new_integer(733210),
  21353 +cons(new_integer(727834),
21354 21354 new_string("x"))),
21355 21355 cons(cons(symbol,
21356   -cons(new_integer(733212),
  21356 +cons(new_integer(727836),
21357 21357 new_string("y"))),
21358 21358 cons(cons(app,
21359   -cons(new_integer(733215),
  21359 +cons(new_integer(727839),
21360 21360 cons(cons(symbol,
21361   -cons(new_integer(733215),
  21361 +cons(new_integer(727839),
21362 21362 new_string("-"))),
21363 21363 cons(cons(symbol,
21364   -cons(new_integer(733214),
  21364 +cons(new_integer(727838),
21365 21365 new_string("u"))),
21366 21366 cons(cons(symbol,
21367   -cons(new_integer(733216),
  21367 +cons(new_integer(727840),
21368 21368 new_string("x"))),
21369 21369 nil))))),
21370 21370 cons(cons(app,
21371   -cons(new_integer(733219),
  21371 +cons(new_integer(727843),
21372 21372 cons(cons(symbol,
21373   -cons(new_integer(733219),
  21373 +cons(new_integer(727843),
21374 21374 new_string("-"))),
21375 21375 cons(cons(symbol,
21376   -cons(new_integer(733218),
  21376 +cons(new_integer(727842),
21377 21377 new_string("v"))),
21378 21378 cons(cons(symbol,
21379   -cons(new_integer(733220),
  21379 +cons(new_integer(727844),
21380 21380 new_string("y"))),
21381 21381 nil))))),
21382 21382 cons(cons(symbol,
21383   -cons(new_integer(733226),
  21383 +cons(new_integer(727850),
21384 21384 new_string("title"))),
21385 21385 cons(cons(symbol,
21386   -cons(new_integer(733231),
  21386 +cons(new_integer(727855),
21387 21387 new_string("sort"))),
21388 21388 nil))))))))),
21389 21389 cons(cons(cons(new_string("failure"),
21390 21390 nil),
21391   -cons(new_integer(733716),
  21391 +cons(new_integer(728340),
21392 21392 cons(symbol,
21393   -cons(new_integer(733724),
  21393 +cons(new_integer(728348),
21394 21394 new_string("failure"))))),
21395 21395 cons(cons(cons(new_string("success"),
21396 21396 cons(new_string("p"),
21397 21397 nil)),
21398   -cons(new_integer(733975),
  21398 +cons(new_integer(728599),
21399 21399 cons(cond,
21400   -cons(new_integer(733978),
  21400 +cons(new_integer(728602),
21401 21401 cons(cons(symbol,
21402   -cons(new_integer(733980),
  21402 +cons(new_integer(728604),
21403 21403 new_string("p"))),
21404 21404 cons(cons(cons(new_string("£tuple"),
21405 21405 cons(new_string("handle"),
21406 21406 cons(new_string("gc"),
21407 21407 nil))),
21408   -cons(new_integer(734000),
  21408 +cons(new_integer(728624),
21409 21409 cons(with,
21410   -cons(new_integer(734228),
  21410 +cons(new_integer(728852),
21411 21411 cons(new_string("win"),
21412 21412 cons(cons(app,
21413   -cons(new_integer(734237),
  21413 +cons(new_integer(728861),
21414 21414 cons(cons(symbol,
21415   -cons(new_integer(734236),
  21415 +cons(new_integer(728860),
21416 21416 new_string("£window"))),
21417 21417 cons(cons(symbol,
21418   -cons(new_integer(734243),
  21418 +cons(new_integer(728867),
21419 21419 new_string("handle"))),
21420 21420 cons(cons(symbol,
21421   -cons(new_integer(734246),
  21421 +cons(new_integer(728870),
21422 21422 new_string("gc"))),
21423 21423 nil))))),
21424 21424 cons(delegate,
21425   -cons(new_integer(734482),
  21425 +cons(new_integer(729106),
21426 21426 cons(cons(app,
21427   -cons(new_integer(734511),
  21427 +cons(new_integer(729135),
21428 21428 cons(cons(symbol,
21429   -cons(new_integer(734510),
  21429 +cons(new_integer(729134),
21430 21430 new_string("generic_host_window_handler"))),
21431 21431 cons(cons(symbol,
21432   -cons(new_integer(734514),
  21432 +cons(new_integer(729138),
21433 21433 new_string("win"))),
21434 21434 cons(cons(symbol,
21435   -cons(new_integer(734779),
  21435 +cons(new_integer(729403),
21436 21436 new_string("paint_method"))),
21437 21437 cons(cons(symbol,
21438   -cons(new_integer(735036),
  21438 +cons(new_integer(729660),
21439 21439 new_string("event_handler"))),
21440 21440 cons(cons(symbol,
21441   -cons(new_integer(735287),
  21441 +cons(new_integer(729911),
21442 21442 new_string("compress"))),
21443 21443 nil))))))),
21444 21444 cons(app,
21445   -cons(new_integer(735506),
  21445 +cons(new_integer(730130),
21446 21446 cons(cons(symbol,
21447   -cons(new_integer(735505),
  21447 +cons(new_integer(730129),
21448 21448 new_string("success"))),
21449 21449 cons(cons(symbol,
21450   -cons(new_integer(735509),
  21450 +cons(new_integer(730133),
21451 21451 new_string("win"))),
21452 21452 nil))))))))))))),
21453 21453 nil)))))),
21454 21454 nil))))))),
21455 21455 nil)))));
21456 21456  
21457   -new_op_scheme(1472540,1,
  21457 +new_op_scheme(1461788,1,
21458 21458 new_string("One"),
21459 21459 cons(new_string("show"),
21460 21460 nil),
... ... @@ -21462,11 +21462,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
21462 21462 new_string("win")),
21463 21463 nil),
21464 21464 cons(avm,
21465   -cons(new_integer(737294),
  21465 +cons(new_integer(731918),
21466 21466 cons(show_host_window,
21467 21467 nil))));
21468 21468  
21469   -new_op_scheme(1476636,1,
  21469 +new_op_scheme(1465884,1,
21470 21470 new_string("One"),
21471 21471 cons(new_string("hide"),
21472 21472 nil),
... ... @@ -21474,11 +21474,11 @@ cons(cons(new_string(&quot;HostWindow&quot;),
21474 21474 new_string("win")),
21475 21475 nil),
21476 21476 cons(avm,
21477   -cons(new_integer(739342),
  21477 +cons(new_integer(733966),
21478 21478 cons(hide_host_window,
21479 21479 nil))));
21480 21480  
21481   -new_op_scheme(1481756,1,
  21481 +new_op_scheme(1471004,1,
21482 21482 new_string("Bool"),
21483 21483 cons(new_string("queue_event"),
21484 21484 nil),
... ... @@ -21491,11 +21491,11 @@ nil))),
21491 21491 new_string("e")),
21492 21492 nil)),
21493 21493 cons(avm,
21494   -cons(new_integer(742408),
  21494 +cons(new_integer(737032),
21495 21495 cons(queue_event,
21496 21496 nil))));
21497 21497  
21498   -new_op_scheme(1487900,1,
  21498 +new_op_scheme(1477148,1,
21499 21499 new_string("One"),
21500 21500 cons(new_string("paint_rectangle"),
21501 21501 nil),
... ... @@ -21507,11 +21507,11 @@ cons(cons(new_string(&quot;RGB&quot;),
21507 21507 new_string("color")),
21508 21508 nil))),
21509 21509 cons(avm,
21510   -cons(new_integer(745486),
  21510 +cons(new_integer(740110),
21511 21511 cons(paint_rectangle,
21512 21512 nil))));
21513 21513  
21514   -new_op_scheme(1491996,1,
  21514 +new_op_scheme(1481244,1,
21515 21515 new_string("One"),
21516 21516 cons(new_string("paint_rectangle"),
21517 21517 nil),
... ... @@ -21523,11 +21523,11 @@ cons(cons(new_string(&quot;RGB&quot;),
21523 21523 new_string("color")),
21524 21524 nil))),
21525 21525 cons(avm,
21526   -cons(new_integer(747534),
  21526 +cons(new_integer(742158),
21527 21527 cons(paint_rectangle_to_buffer,
21528 21528 nil))));
21529 21529  
21530   -new_op_scheme(1496092,1,
  21530 +new_op_scheme(1485340,1,
21531 21531 new_string("One"),
21532 21532 cons(new_string("paint_image"),
21533 21533 nil),
... ... @@ -21543,11 +21543,11 @@ cons(cons(new_string(&quot;HostImage&quot;),
21543 21543 new_string("image")),
21544 21544 nil))))),
21545 21545 cons(avm,
21546   -cons(new_integer(750094),
  21546 +cons(new_integer(744718),
21547 21547 cons(paint_host_image,
21548 21548 nil))));
21549 21549  
21550   -new_op_scheme(1501212,1,
  21550 +new_op_scheme(1490460,1,
21551 21551 new_string("One"),
21552 21552 cons(new_string("paint_image"),
21553 21553 nil),
... ... @@ -21563,11 +21563,11 @@ cons(cons(new_string(&quot;HostImage&quot;),
21563 21563 new_string("image")),
21564 21564 nil))))),
21565 21565 cons(avm,
21566   -cons(new_integer(752654),
  21566 +cons(new_integer(747278),
21567 21567 cons(paint_host_image_to_buffer,
21568 21568 nil))));
21569 21569  
21570   -new_op_scheme(1506332,1,
  21570 +new_op_scheme(1495580,1,
21571 21571 new_string("One"),
21572 21572 cons(new_string("map_to_host_window"),
21573 21573 nil),
... ... @@ -21591,11 +21591,11 @@ cons(cons(new_string(&quot;Word32&quot;),
21591 21591 new_string("y")),
21592 21592 nil))))))))),
21593 21593 cons(avm,
21594   -cons(new_integer(756238),
  21594 +cons(new_integer(750862),
21595 21595 cons(map_RGBA_to_host_window,
21596 21596 nil))));
21597 21597  
21598   -new_type_scheme(1517080,0,
  21598 +new_type_scheme(1506328,0,
21599 21599 new_string("SQLite3DataBase"),
21600 21600 nil,
21601 21601 cons(cons(cons(new_string("£database"),
... ... @@ -21606,7 +21606,7 @@ noname),
21606 21606 nil)),
21607 21607 nil),0,1);
21608 21608  
21609   -new_op_scheme(1525262,0,
  21609 +new_op_scheme(1514510,0,
21610 21610 cons(type_struct_ptr,
21611 21611 new_integer(8)),
21612 21612 cons(new_string("£sqlite3_open"),
... ... @@ -21615,11 +21615,11 @@ cons(cons(type_String,
21615 21615 new_string("filename")),
21616 21616 nil),
21617 21617 cons(avm,
21618   -cons(new_integer(763912),
  21618 +cons(new_integer(758536),
21619 21619 cons(sqlite3_open,
21620 21620 nil))));
21621 21621  
21622   -new_op_scheme(1528846,0,
  21622 +new_op_scheme(1518094,0,
21623 21623 new_string("Word32"),
21624 21624 cons(new_string("£sqlite3_errcode"),
21625 21625 nil),
... ... @@ -21628,11 +21628,11 @@ new_integer(8)),
21628 21628 new_string("s")),
21629 21629 nil),
21630 21630 cons(avm,
21631   -cons(new_integer(765704),
  21631 +cons(new_integer(760328),
21632 21632 cons(sqlite3_errcode,
21633 21633 nil))));
21634 21634  
21635   -new_op_scheme(1532430,0,
  21635 +new_op_scheme(1521678,0,
21636 21636 type_String,
21637 21637 cons(new_string("£sqlite3_errmsg"),
21638 21638 nil),
... ... @@ -21641,11 +21641,11 @@ new_integer(8)),
21641 21641 new_string("s")),
21642 21642 nil),
21643 21643 cons(avm,
21644   -cons(new_integer(767496),
  21644 +cons(new_integer(762120),
21645 21645 cons(sqlite3_errmsg,
21646 21646 nil))));
21647 21647  
21648   -new_op_scheme(1536540,1,
  21648 +new_op_scheme(1525788,1,
21649 21649 cons(app_ts,
21650 21650 cons(new_string("Result"),
21651 21651 cons(new_string("SQLite3Error"),
... ... @@ -21657,94 +21657,94 @@ cons(cons(type_String,
21657 21657 new_string("filename")),
21658 21658 nil),
21659 21659 cons(with,
21660   -cons(new_integer(769553),
  21660 +cons(new_integer(764177),
21661 21661 cons(new_string("handle"),
21662 21662 cons(cons(app,
21663   -cons(new_integer(769568),
  21663 +cons(new_integer(764192),
21664 21664 cons(cons(symbol,
21665   -cons(new_integer(769567),
  21665 +cons(new_integer(764191),
21666 21666 new_string("£sqlite3_open"))),
21667 21667 cons(cons(symbol,
21668   -cons(new_integer(769576),
  21668 +cons(new_integer(764200),
21669 21669 new_string("filename"))),
21670 21670 nil)))),
21671 21671 cons(with,
21672   -cons(new_integer(769809),
  21672 +cons(new_integer(764433),
21673 21673 cons(new_string("code"),
21674 21674 cons(cons(app,
21675   -cons(new_integer(769827),
  21675 +cons(new_integer(764451),
21676 21676 cons(cons(symbol,
21677   -cons(new_integer(769826),
  21677 +cons(new_integer(764450),
21678 21678 new_string("£sqlite3_errcode"))),
21679 21679 cons(cons(symbol,
21680   -cons(new_integer(769833),
  21680 +cons(new_integer(764457),
21681 21681 new_string("handle"))),
21682 21682 nil)))),
21683 21683 cons(cond,
21684   -cons(new_integer(770056),
  21684 +cons(new_integer(764680),
21685 21685 cons(cons(of_type,
21686   -cons(new_integer(770056),
  21686 +cons(new_integer(764680),
21687 21687 cons(new_string("Bool"),
21688 21688 cons(app,
21689   -cons(new_integer(770063),
  21689 +cons(new_integer(764687),
21690 21690 cons(cons(symbol,
21691   -cons(new_integer(770063),
  21691 +cons(new_integer(764687),
21692 21692 new_string("="))),
21693 21693 cons(cons(symbol,
21694   -cons(new_integer(770061),
  21694 +cons(new_integer(764685),
21695 21695 new_string("code"))),
21696 21696 cons(cons(integer_10,
21697   -cons(new_integer(770065),
  21697 +cons(new_integer(764689),
21698 21698 nil)),
21699 21699 nil)))))))),
21700 21700 cons(cons(cons(new_string("false"),
21701 21701 nil),
21702   -cons(new_integer(770570),
  21702 +cons(new_integer(765194),
21703 21703 cons(app,
21704   -cons(new_integer(770577),
  21704 +cons(new_integer(765201),
21705 21705 cons(cons(symbol,
21706   -cons(new_integer(770576),
  21706 +cons(new_integer(765200),
21707 21707 new_string("error"))),
21708 21708 cons(cons(app,
21709   -cons(new_integer(770585),
  21709 +cons(new_integer(765209),
21710 21710 cons(cons(symbol,
21711   -cons(new_integer(770584),
  21711 +cons(new_integer(765208),
21712 21712 new_string("sqlite3"))),
21713 21713 cons(cons(symbol,
21714   -cons(new_integer(770589),
  21714 +cons(new_integer(765213),
21715 21715 new_string("code"))),
21716 21716 cons(cons(app,
21717   -cons(new_integer(770606),
  21717 +cons(new_integer(765230),
21718 21718 cons(cons(symbol,
21719   -cons(new_integer(770605),
  21719 +cons(new_integer(765229),
21720 21720 new_string("£sqlite3_errmsg"))),
21721 21721 cons(cons(symbol,
21722   -cons(new_integer(770612),
  21722 +cons(new_integer(765236),
21723 21723 new_string("handle"))),
21724 21724 nil)))),
21725 21725 nil))))),
21726 21726 nil)))))),
21727 21727 cons(cons(cons(new_string("true"),
21728 21728 nil),
21729   -cons(new_integer(770314),
  21729 +cons(new_integer(764938),
21730 21730 cons(app,
21731   -cons(new_integer(770318),
  21731 +cons(new_integer(764942),
21732 21732 cons(cons(symbol,
21733   -cons(new_integer(770317),
  21733 +cons(new_integer(764941),
21734 21734 new_string("ok"))),
21735 21735 cons(cons(app,
21736   -cons(new_integer(770328),
  21736 +cons(new_integer(764952),
21737 21737 cons(cons(symbol,
21738   -cons(new_integer(770327),
  21738 +cons(new_integer(764951),
21739 21739 new_string("£database"))),
21740 21740 cons(cons(symbol,
21741   -cons(new_integer(770334),
  21741 +cons(new_integer(764958),
21742 21742 new_string("handle"))),
21743 21743 nil)))),
21744 21744 nil)))))),
21745 21745 nil))))))))))))));
21746 21746  
21747   -new_type_scheme(1542680,0,
  21747 +new_type_scheme(1531928,0,
21748 21748 new_string("£SQLite3DatumType"),
21749 21749 nil,
21750 21750 cons(cons(cons(new_string("£integer"),
... ... @@ -21764,7 +21764,7 @@ nil),
21764 21764 nil),
21765 21765 nil))))),0,1);
21766 21766  
21767   -new_op_scheme(1546766,0,
  21767 +new_op_scheme(1536014,0,
21768 21768 new_string("£SQLite3DatumType"),
21769 21769 cons(new_string("£get_cell_type"),
21770 21770 nil),
... ... @@ -21775,11 +21775,11 @@ cons(cons(new_string(&quot;Word32&quot;),
21775 21775 new_string("iCol")),
21776 21776 nil)),
21777 21777 cons(avm,
21778   -cons(new_integer(774920),
  21778 +cons(new_integer(769544),
21779 21779 cons(sqlite3_column_type,
21780 21780 nil))));
21781 21781  
21782   -new_op_scheme(1551374,0,
  21782 +new_op_scheme(1540622,0,
21783 21783 type_String,
21784 21784 cons(new_string("£get_cell_name"),
21785 21785 nil),
... ... @@ -21790,11 +21790,11 @@ cons(cons(new_string(&quot;Word32&quot;),
21790 21790 new_string("iCol")),
21791 21791 nil)),
21792 21792 cons(avm,
21793   -cons(new_integer(777224),
  21793 +cons(new_integer(771848),
21794 21794 cons(sqlite3_column_name,
21795 21795 nil))));
21796 21796  
21797   -new_op_scheme(1555982,0,
  21797 +new_op_scheme(1545230,0,
21798 21798 new_string("Word32"),
21799 21799 cons(new_string("£sqlite3_column_int"),
21800 21800 nil),
... ... @@ -21805,11 +21805,11 @@ cons(cons(new_string(&quot;Word32&quot;),
21805 21805 new_string("iCol")),
21806 21806 nil)),
21807 21807 cons(avm,
21808   -cons(new_integer(779528),
  21808 +cons(new_integer(774152),
21809 21809 cons(sqlite3_column_int,
21810 21810 nil))));
21811 21811  
21812   -new_op_scheme(1560078,0,
  21812 +new_op_scheme(1549326,0,
21813 21813 type_Float,
21814 21814 cons(new_string("£sqlite3_column_double"),
21815 21815 nil),
... ... @@ -21820,11 +21820,11 @@ cons(cons(new_string(&quot;Word32&quot;),
21820 21820 new_string("iCol")),
21821 21821 nil)),
21822 21822 cons(avm,
21823   -cons(new_integer(781576),
  21823 +cons(new_integer(776200),
21824 21824 cons(sqlite3_column_double,
21825 21825 nil))));
21826 21826  
21827   -new_op_scheme(1564174,0,
  21827 +new_op_scheme(1553422,0,
21828 21828 type_String,
21829 21829 cons(new_string("£sqlite3_column_text"),
21830 21830 nil),
... ... @@ -21835,11 +21835,11 @@ cons(cons(new_string(&quot;Word32&quot;),
21835 21835 new_string("iCol")),
21836 21836 nil)),
21837 21837 cons(avm,
21838   -cons(new_integer(783624),
  21838 +cons(new_integer(778248),
21839 21839 cons(sqlite3_column_text,
21840 21840 nil))));
21841 21841  
21842   -new_op_scheme(1568270,0,
  21842 +new_op_scheme(1557518,0,
21843 21843 type_ByteArray,
21844 21844 cons(new_string("£sqlite3_column_blob"),
21845 21845 nil),
... ... @@ -21850,11 +21850,11 @@ cons(cons(new_string(&quot;Word32&quot;),
21850 21850 new_string("iCol")),
21851 21851 nil)),
21852 21852 cons(avm,
21853   -cons(new_integer(785672),
  21853 +cons(new_integer(780296),
21854 21854 cons(sqlite3_column_blob,
21855 21855 nil))));
21856 21856  
21857   -new_op_scheme(1572366,0,
  21857 +new_op_scheme(1561614,0,
21858 21858 new_string("SQLite3Datum"),
21859 21859 cons(new_string("£get_cell_value"),
21860 21860 nil),
... ... @@ -21865,118 +21865,118 @@ cons(cons(new_string(&quot;Word32&quot;),
21865 21865 new_string("iCol")),
21866 21866 nil)),
21867 21867 cons(cond,
21868   -cons(new_integer(787718),
  21868 +cons(new_integer(782342),
21869 21869 cons(cons(app,
21870   -cons(new_integer(787734),
  21870 +cons(new_integer(782358),
21871 21871 cons(cons(symbol,
21872   -cons(new_integer(787733),
  21872 +cons(new_integer(782357),
21873 21873 new_string("£get_cell_type"))),
21874 21874 cons(cons(symbol,
21875   -cons(new_integer(787738),
  21875 +cons(new_integer(782362),
21876 21876 new_string("stmt"))),
21877 21877 cons(cons(symbol,
21878   -cons(new_integer(787743),
  21878 +cons(new_integer(782367),
21879 21879 new_string("iCol"))),
21880 21880 nil))))),
21881 21881 cons(cons(cons(new_string("£integer"),
21882 21882 nil),
21883   -cons(new_integer(788246),
  21883 +cons(new_integer(782870),
21884 21884 cons(app,
21885   -cons(new_integer(788256),
  21885 +cons(new_integer(782880),
21886 21886 cons(cons(symbol,
21887   -cons(new_integer(788254),
  21887 +cons(new_integer(782878),
21888 21888 new_string("integer"))),
21889 21889 cons(cons(app,
21890   -cons(new_integer(788263),
  21890 +cons(new_integer(782887),
21891 21891 cons(cons(symbol,
21892   -cons(new_integer(788262),
  21892 +cons(new_integer(782886),
21893 21893 new_string("to_Int"))),
21894 21894 cons(cons(app,
21895   -cons(new_integer(788283),
  21895 +cons(new_integer(782907),
21896 21896 cons(cons(symbol,
21897   -cons(new_integer(788282),
  21897 +cons(new_integer(782906),
21898 21898 new_string("£sqlite3_column_int"))),
21899 21899 cons(cons(symbol,
21900   -cons(new_integer(788287),
  21900 +cons(new_integer(782911),
21901 21901 new_string("stmt"))),
21902 21902 cons(cons(symbol,
21903   -cons(new_integer(788292),
  21903 +cons(new_integer(782916),
21904 21904 new_string("iCol"))),
21905 21905 nil))))),
21906 21906 nil)))),
21907 21907 nil)))))),
21908 21908 cons(cons(cons(new_string("£float"),
21909 21909 nil),
21910   -cons(new_integer(788502),
  21910 +cons(new_integer(783126),
21911 21911 cons(app,
21912   -cons(new_integer(788512),
  21912 +cons(new_integer(783136),
21913 21913 cons(cons(symbol,
21914   -cons(new_integer(788508),
  21914 +cons(new_integer(783132),
21915 21915 new_string("float"))),
21916 21916 cons(cons(app,
21917   -cons(new_integer(788535),
  21917 +cons(new_integer(783159),
21918 21918 cons(cons(symbol,
21919   -cons(new_integer(788534),
  21919 +cons(new_integer(783158),
21920 21920 new_string("£sqlite3_column_double"))),
21921 21921 cons(cons(symbol,
21922   -cons(new_integer(788539),
  21922 +cons(new_integer(783163),
21923 21923 new_string("stmt"))),
21924 21924 cons(cons(symbol,
21925   -cons(new_integer(788544),
  21925 +cons(new_integer(783168),
21926 21926 new_string("iCol"))),
21927 21927 nil))))),
21928 21928 nil)))))),
21929 21929 cons(cons(cons(new_string("£text"),
21930 21930 nil),
21931   -cons(new_integer(788758),
  21931 +cons(new_integer(783382),
21932 21932 cons(app,
21933   -cons(new_integer(788768),
  21933 +cons(new_integer(783392),
21934 21934 cons(cons(symbol,
21935   -cons(new_integer(788763),
  21935 +cons(new_integer(783387),
21936 21936 new_string("text"))),
21937 21937 cons(cons(app,
21938   -cons(new_integer(788789),
  21938 +cons(new_integer(783413),
21939 21939 cons(cons(symbol,
21940   -cons(new_integer(788788),
  21940 +cons(new_integer(783412),
21941 21941 new_string("£sqlite3_column_text"))),
21942 21942 cons(cons(symbol,
21943   -cons(new_integer(788793),
  21943 +cons(new_integer(783417),
21944 21944 new_string("stmt"))),
21945 21945 cons(cons(symbol,
21946   -cons(new_integer(788798),
  21946 +cons(new_integer(783422),
21947 21947 new_string("iCol"))),
21948 21948 nil))))),
21949 21949 nil)))))),
21950 21950 cons(cons(cons(new_string("£blob"),
21951 21951 nil),
21952   -cons(new_integer(789014),
  21952 +cons(new_integer(783638),
21953 21953 cons(app,
21954   -cons(new_integer(789024),
  21954 +cons(new_integer(783648),
21955 21955 cons(cons(symbol,
21956   -cons(new_integer(789019),
  21956 +cons(new_integer(783643),
21957 21957 new_string("blob"))),
21958 21958 cons(cons(app,
21959   -cons(new_integer(789045),
  21959 +cons(new_integer(783669),
21960 21960 cons(cons(symbol,
21961   -cons(new_integer(789044),
  21961 +cons(new_integer(783668),
21962 21962 new_string("£sqlite3_column_blob"))),
21963 21963 cons(cons(symbol,
21964   -cons(new_integer(789049),
  21964 +cons(new_integer(783673),
21965 21965 new_string("stmt"))),
21966 21966 cons(cons(symbol,
21967   -cons(new_integer(789054),
  21967 +cons(new_integer(783678),
21968 21968 new_string("iCol"))),
21969 21969 nil))))),
21970 21970 nil)))))),
21971 21971 cons(cons(cons(new_string("£null"),
21972 21972 nil),
21973   -cons(new_integer(789270),
  21973 +cons(new_integer(783894),
21974 21974 cons(symbol,
21975   -cons(new_integer(789275),
  21975 +cons(new_integer(783899),
21976 21976 new_string("null"))))),
21977 21977 nil)))))))));
21978 21978  
21979   -new_op_scheme(1580046,0,
  21979 +new_op_scheme(1569294,0,
21980 21980 cons(functype,
21981 21981 cons(cons(type_Int,
21982 21982 nil),
... ... @@ -21990,84 +21990,84 @@ cons(cons(type_Int,
21990 21990 new_string("column_count")),
21991 21991 nil)),
21992 21992 cons(lambda,
21993   -cons(new_integer(791567),
  21993 +cons(new_integer(786191),
21994 21994 cons(cons(cons(type_Int,
21995 21995 new_string("i")),
21996 21996 nil),
21997 21997 cons(cond,
21998   -cons(new_integer(791816),
  21998 +cons(new_integer(786440),
21999 21999 cons(cons(of_type,
22000   -cons(new_integer(791816),
  22000 +cons(new_integer(786440),
22001 22001 cons(new_string("Bool"),
22002 22002 cons(app,
22003   -cons(new_integer(791820),
  22003 +cons(new_integer(786444),
22004 22004 cons(cons(symbol,
22005   -cons(new_integer(791820),
  22005 +cons(new_integer(786444),
22006 22006 new_string("<"))),
22007 22007 cons(cons(symbol,
22008   -cons(new_integer(791818),
  22008 +cons(new_integer(786442),
22009 22009 new_string("i"))),
22010 22010 cons(cons(integer_10,
22011   -cons(new_integer(791822),
  22011 +cons(new_integer(786446),
22012 22012 nil)),
22013 22013 nil)))))))),
22014 22014 cons(cons(cons(new_string("false"),
22015 22015 nil),
22016   -cons(new_integer(791859),
  22016 +cons(new_integer(786483),
22017 22017 cons(cond,
22018   -cons(new_integer(792072),
  22018 +cons(new_integer(786696),
22019 22019 cons(cons(of_type,
22020   -cons(new_integer(792072),
  22020 +cons(new_integer(786696),
22021 22021 cons(new_string("Bool"),
22022 22022 cons(app,
22023   -cons(new_integer(792077),
  22023 +cons(new_integer(786701),
22024 22024 cons(cons(symbol,
22025   -cons(new_integer(792077),
  22025 +cons(new_integer(786701),
22026 22026 new_string("=<"))),
22027 22027 cons(cons(symbol,
22028   -cons(new_integer(792090),
  22028 +cons(new_integer(786714),
22029 22029 new_string("column_count"))),
22030 22030 cons(cons(symbol,
22031   -cons(new_integer(792074),
  22031 +cons(new_integer(786698),
22032 22032 new_string("i"))),
22033 22033 nil)))))))),
22034 22034 cons(cons(cons(new_string("false"),
22035 22035 nil),
22036   -cons(new_integer(792115),
  22036 +cons(new_integer(786739),
22037 22037 cons(app,
22038   -cons(new_integer(792342),
  22038 +cons(new_integer(786966),
22039 22039 cons(cons(symbol,
22040   -cons(new_integer(792341),
  22040 +cons(new_integer(786965),
22041 22041 new_string("£get_cell_value"))),
22042 22042 cons(cons(symbol,
22043   -cons(new_integer(792346),
  22043 +cons(new_integer(786970),
22044 22044 new_string("stmt"))),
22045 22045 cons(cons(app,
22046   -cons(new_integer(792367),
  22046 +cons(new_integer(786991),
22047 22047 cons(cons(symbol,
22048   -cons(new_integer(792366),
  22048 +cons(new_integer(786990),
22049 22049 new_string("truncate_to_Word32"))),
22050 22050 cons(cons(symbol,
22051   -cons(new_integer(792368),
  22051 +cons(new_integer(786992),
22052 22052 new_string("i"))),
22053 22053 nil)))),
22054 22054 nil))))))),
22055 22055 cons(cons(cons(new_string("true"),
22056 22056 nil),
22057   -cons(new_integer(792095),
  22057 +cons(new_integer(786719),
22058 22058 cons(symbol,
22059   -cons(new_integer(792110),
  22059 +cons(new_integer(786734),
22060 22060 new_string("no_such_column"))))),
22061 22061 nil))))))),
22062 22062 cons(cons(cons(new_string("true"),
22063 22063 nil),
22064   -cons(new_integer(791839),
  22064 +cons(new_integer(786463),
22065 22065 cons(symbol,
22066   -cons(new_integer(791854),
  22066 +cons(new_integer(786478),
22067 22067 new_string("no_such_column"))))),
22068 22068 nil)))))))));
22069 22069  
22070   -new_op_scheme(1585678,0,
  22070 +new_op_scheme(1574926,0,
22071 22071 cons(functype,
22072 22072 cons(cons(type_Int,
22073 22073 nil),
... ... @@ -22081,90 +22081,90 @@ cons(cons(type_Int,
22081 22081 new_string("column_count")),
22082 22082 nil)),
22083 22083 cons(lambda,
22084   -cons(new_integer(794383),
  22084 +cons(new_integer(789007),
22085 22085 cons(cons(cons(type_Int,
22086 22086 new_string("i")),
22087 22087 nil),
22088 22088 cons(cond,
22089   -cons(new_integer(794632),
  22089 +cons(new_integer(789256),
22090 22090 cons(cons(of_type,
22091   -cons(new_integer(794632),
  22091 +cons(new_integer(789256),
22092 22092 cons(new_string("Bool"),
22093 22093 cons(app,
22094   -cons(new_integer(794636),
  22094 +cons(new_integer(789260),
22095 22095 cons(cons(symbol,
22096   -cons(new_integer(794636),
  22096 +cons(new_integer(789260),
22097 22097 new_string("<"))),
22098 22098 cons(cons(symbol,
22099   -cons(new_integer(794634),
  22099 +cons(new_integer(789258),
22100 22100 new_string("i"))),
22101 22101 cons(cons(integer_10,
22102   -cons(new_integer(794638),
  22102 +cons(new_integer(789262),
22103 22103 nil)),
22104 22104 nil)))))))),
22105 22105 cons(cons(cons(new_string("false"),
22106 22106 nil),
22107   -cons(new_integer(794675),
  22107 +cons(new_integer(789299),
22108 22108 cons(cond,
22109   -cons(new_integer(794888),
  22109 +cons(new_integer(789512),
22110 22110 cons(cons(of_type,
22111   -cons(new_integer(794888),
  22111 +cons(new_integer(789512),
22112 22112 cons(new_string("Bool"),
22113 22113 cons(app,
22114   -cons(new_integer(794893),
  22114 +cons(new_integer(789517),
22115 22115 cons(cons(symbol,
22116   -cons(new_integer(794893),
  22116 +cons(new_integer(789517),
22117 22117 new_string("=<"))),
22118 22118 cons(cons(symbol,
22119   -cons(new_integer(794906),
  22119 +cons(new_integer(789530),
22120 22120 new_string("column_count"))),
22121 22121 cons(cons(symbol,
22122   -cons(new_integer(794890),
  22122 +cons(new_integer(789514),
22123 22123 new_string("i"))),
22124 22124 nil)))))))),
22125 22125 cons(cons(cons(new_string("false"),
22126 22126 nil),
22127   -cons(new_integer(794931),
  22127 +cons(new_integer(789555),
22128 22128 cons(app,
22129   -cons(new_integer(795147),
  22129 +cons(new_integer(789771),
22130 22130 cons(cons(symbol,
22131   -cons(new_integer(795146),
  22131 +cons(new_integer(789770),
22132 22132 new_string("text"))),
22133 22133 cons(cons(app,
22134   -cons(new_integer(795162),
  22134 +cons(new_integer(789786),
22135 22135 cons(cons(symbol,
22136   -cons(new_integer(795161),
  22136 +cons(new_integer(789785),
22137 22137 new_string("£get_cell_name"))),
22138 22138 cons(cons(symbol,
22139   -cons(new_integer(795166),
  22139 +cons(new_integer(789790),
22140 22140 new_string("stmt"))),
22141 22141 cons(cons(app,
22142   -cons(new_integer(795186),
  22142 +cons(new_integer(789810),
22143 22143 cons(cons(symbol,
22144   -cons(new_integer(795185),
  22144 +cons(new_integer(789809),
22145 22145 new_string("truncate_to_Word32"))),
22146 22146 cons(cons(symbol,
22147   -cons(new_integer(795187),
  22147 +cons(new_integer(789811),
22148 22148 new_string("i"))),
22149 22149 nil)))),
22150 22150 nil))))),
22151 22151 nil)))))),
22152 22152 cons(cons(cons(new_string("true"),
22153 22153 nil),
22154   -cons(new_integer(794911),
  22154 +cons(new_integer(789535),
22155 22155 cons(symbol,
22156   -cons(new_integer(794926),
  22156 +cons(new_integer(789550),
22157 22157 new_string("no_such_column"))))),
22158 22158 nil))))))),
22159 22159 cons(cons(cons(new_string("true"),
22160 22160 nil),
22161   -cons(new_integer(794655),
  22161 +cons(new_integer(789279),
22162 22162 cons(symbol,
22163   -cons(new_integer(794670),
  22163 +cons(new_integer(789294),
22164 22164 new_string("no_such_column"))))),
22165 22165 nil)))))))));
22166 22166  
22167   -new_op_scheme(1591822,0,
  22167 +new_op_scheme(1581070,0,
22168 22168 new_string("Word32"),
22169 22169 cons(new_string("£column_count"),
22170 22170 nil),
... ... @@ -22173,11 +22173,11 @@ new_integer(9)),
22173 22173 new_string("stmt")),
22174 22174 nil),
22175 22175 cons(avm,
22176   -cons(new_integer(797192),
  22176 +cons(new_integer(791816),
22177 22177 cons(sqlite3_column_count,
22178 22178 nil))));
22179 22179  
22180   -new_type_scheme(1595416,0,
  22180 +new_type_scheme(1584664,0,
22181 22181 new_string("£SQLite3NextRowResult"),
22182 22182 nil,
22183 22183 cons(cons(cons(new_string("no_more_row"),
... ... @@ -22191,7 +22191,7 @@ nil),
22191 22191 nil),
22192 22192 nil))),0,1);
22193 22193  
22194   -new_op_scheme(1597966,0,
  22194 +new_op_scheme(1587214,0,
22195 22195 new_string("£SQLite3NextRowResult"),
22196 22196 cons(new_string("£go_to_next_row"),
22197 22197 nil),
... ... @@ -22200,11 +22200,11 @@ new_integer(9)),
22200 22200 new_string("stmt")),
22201 22201 nil),
22202 22202 cons(avm,
22203   -cons(new_integer(800264),
  22203 +cons(new_integer(794888),
22204 22204 cons(sqlite3_go_to_next_row,
22205 22205 nil))));
22206 22206  
22207   -new_op_scheme(1601550,0,
  22207 +new_op_scheme(1590798,0,
22208 22208 cons(functype,
22209 22209 cons(cons(new_string("SQLite3HeadersOrRow"),
22210 22210 nil),
... ... @@ -22222,137 +22222,137 @@ new_string(&quot;Bool&quot;)),
22222 22222 new_string("first")),
22223 22223 nil))),
22224 22224 cons(with,
22225   -cons(new_integer(802582),
  22225 +cons(new_integer(797206),
22226 22226 cons(new_string("num_columns"),
22227 22227 cons(cons(app,
22228   -cons(new_integer(802590),
  22228 +cons(new_integer(797214),
22229 22229 cons(cons(symbol,
22230   -cons(new_integer(802589),
  22230 +cons(new_integer(797213),
22231 22231 new_string("to_Int"))),
22232 22232 cons(cons(app,
22233   -cons(new_integer(802604),
  22233 +cons(new_integer(797228),
22234 22234 cons(cons(symbol,
22235   -cons(new_integer(802603),
  22235 +cons(new_integer(797227),
22236 22236 new_string("£column_count"))),
22237 22237 cons(cons(symbol,
22238   -cons(new_integer(802608),
  22238 +cons(new_integer(797232),
22239 22239 new_string("stmt"))),
22240 22240 nil)))),
22241 22241 nil)))),
22242 22242 cons(lambda,
22243   -cons(new_integer(802852),
  22243 +cons(new_integer(797476),
22244 22244 cons(cons(cons(new_string("SQLite3HeadersOrRow"),
22245 22245 new_string("askFor")),
22246 22246 nil),
22247 22247 cons(cond,
22248   -cons(new_integer(803078),
  22248 +cons(new_integer(797702),
22249 22249 cons(cons(symbol,
22250   -cons(new_integer(803085),
  22250 +cons(new_integer(797709),
22251 22251 new_string("askFor"))),
22252 22252 cons(cons(cons(new_string("headers"),
22253 22253 nil),
22254   -cons(new_integer(803600),
  22254 +cons(new_integer(798224),
22255 22255 cons(app,
22256   -cons(new_integer(803605),
  22256 +cons(new_integer(798229),
22257 22257 cons(cons(symbol,
22258   -cons(new_integer(803604),
  22258 +cons(new_integer(798228),
22259 22259 new_string("row"))),
22260 22260 cons(cons(app,
22261   -cons(new_integer(803616),
  22261 +cons(new_integer(798240),
22262 22262 cons(cons(symbol,
22263   -cons(new_integer(803615),
  22263 +cons(new_integer(798239),
22264 22264 new_string("£make_cols"))),
22265 22265 cons(cons(symbol,
22266   -cons(new_integer(803620),
  22266 +cons(new_integer(798244),
22267 22267 new_string("stmt"))),
22268 22268 cons(cons(symbol,
22269   -cons(new_integer(803633),
  22269 +cons(new_integer(798257),
22270 22270 new_string("num_columns"))),
22271 22271 nil))))),
22272 22272 nil)))))),
22273 22273 cons(cons(cons(new_string("next_row"),
22274 22274 nil),
22275   -cons(new_integer(803857),
  22275 +cons(new_integer(798481),
22276 22276 cons(cond,
22277   -cons(new_integer(804105),
  22277 +cons(new_integer(798729),
22278 22278 cons(cons(of_type,
22279   -cons(new_integer(804105),
  22279 +cons(new_integer(798729),
22280 22280 cons(new_string("Bool"),
22281 22281 cons(anb_read,
22282   -cons(new_integer(804107),
  22282 +cons(new_integer(798731),
22283 22283 cons(symbol,
22284   -cons(new_integer(804112),
  22284 +cons(new_integer(798736),
22285 22285 new_string("first")))))))),
22286 22286 cons(cons(cons(new_string("false"),
22287 22287 nil),
22288   -cons(new_integer(804619),
  22288 +cons(new_integer(799243),
22289 22289 cons(cond,
22290   -cons(new_integer(804622),
  22290 +cons(new_integer(799246),
22291 22291 cons(cons(app,
22292   -cons(new_integer(804639),
  22292 +cons(new_integer(799263),
22293 22293 cons(cons(symbol,
22294   -cons(new_integer(804638),
  22294 +cons(new_integer(799262),
22295 22295 new_string("£go_to_next_row"))),
22296 22296 cons(cons(symbol,
22297   -cons(new_integer(804643),
  22297 +cons(new_integer(799267),
22298 22298 new_string("stmt"))),
22299 22299 nil)))),
22300 22300 cons(cons(cons(new_string("no_more_row"),
22301 22301 nil),
22302   -cons(new_integer(805153),
  22302 +cons(new_integer(799777),
22303 22303 cons(symbol,
22304   -cons(new_integer(805165),
  22304 +cons(new_integer(799789),
22305 22305 new_string("no_more_row"))))),
22306 22306 cons(cons(cons(new_string("row"),
22307 22307 nil),
22308   -cons(new_integer(805409),
  22308 +cons(new_integer(800033),
22309 22309 cons(app,
22310   -cons(new_integer(805414),
  22310 +cons(new_integer(800038),
22311 22311 cons(cons(symbol,
22312   -cons(new_integer(805413),
  22312 +cons(new_integer(800037),
22313 22313 new_string("row"))),
22314 22314 cons(cons(app,
22315   -cons(new_integer(805424),
  22315 +cons(new_integer(800048),
22316 22316 cons(cons(symbol,
22317   -cons(new_integer(805423),
  22317 +cons(new_integer(800047),
22318 22318 new_string("£make_row"))),
22319 22319 cons(cons(symbol,
22320   -cons(new_integer(805428),
  22320 +cons(new_integer(800052),
22321 22321 new_string("stmt"))),
22322 22322 cons(cons(symbol,
22323   -cons(new_integer(805440),
  22323 +cons(new_integer(800064),
22324 22324 new_string("num_columns"))),
22325 22325 nil))))),
22326 22326 nil)))))),
22327 22327 cons(cons(cons(new_string("error"),
22328 22328 nil),
22329   -cons(new_integer(805665),
  22329 +cons(new_integer(800289),
22330 22330 cons(app,
22331   -cons(new_integer(805672),
  22331 +cons(new_integer(800296),
22332 22332 cons(cons(symbol,
22333   -cons(new_integer(805671),
  22333 +cons(new_integer(800295),
22334 22334 new_string("error"))),
22335 22335 cons(cons(app,
22336   -cons(new_integer(805680),
  22336 +cons(new_integer(800304),
22337 22337 cons(cons(symbol,
22338   -cons(new_integer(805679),
  22338 +cons(new_integer(800303),
22339 22339 new_string("sqlite3"))),
22340 22340 cons(cons(app,
22341   -cons(new_integer(805697),
  22341 +cons(new_integer(800321),
22342 22342 cons(cons(symbol,
22343   -cons(new_integer(805696),
  22343 +cons(new_integer(800320),
22344 22344 new_string("£sqlite3_errcode"))),
22345 22345 cons(cons(symbol,
22346   -cons(new_integer(805699),
  22346 +cons(new_integer(800323),
22347 22347 new_string("db"))),
22348 22348 nil)))),
22349 22349 cons(cons(app,
22350   -cons(new_integer(805717),
  22350 +cons(new_integer(800341),
22351 22351 cons(cons(symbol,
22352   -cons(new_integer(805716),
  22352 +cons(new_integer(800340),
22353 22353 new_string("£sqlite3_errmsg"))),
22354 22354 cons(cons(symbol,
22355   -cons(new_integer(805719),
  22355 +cons(new_integer(800343),
22356 22356 new_string("db"))),
22357 22357 nil)))),
22358 22358 nil))))),
... ... @@ -22360,38 +22360,38 @@ nil)))))),
22360 22360 nil)))))))),
22361 22361 cons(cons(cons(new_string("true"),
22362 22362 nil),
22363   -cons(new_integer(804363),
  22363 +cons(new_integer(798987),
22364 22364 cons(cond,
22365   -cons(new_integer(804380),
  22365 +cons(new_integer(799004),
22366 22366 cons(cons(of_type,
22367   -cons(new_integer(804380),
  22367 +cons(new_integer(799004),
22368 22368 cons(new_string("One"),
22369 22369 cons(anb_write,
22370   -cons(new_integer(804373),
  22370 +cons(new_integer(798997),
22371 22371 cons(cons(symbol,
22372   -cons(new_integer(804370),
  22372 +cons(new_integer(798994),
22373 22373 new_string("first"))),
22374 22374 cons(symbol,
22375   -cons(new_integer(804379),
  22375 +cons(new_integer(799003),
22376 22376 new_string("false"))))))))),
22377 22377 cons(cons(cons(new_string("unique"),
22378 22378 nil),
22379   -cons(new_integer(804380),
  22379 +cons(new_integer(799004),
22380 22380 cons(app,
22381   -cons(new_integer(804385),
  22381 +cons(new_integer(799009),
22382 22382 cons(cons(symbol,
22383   -cons(new_integer(804384),
  22383 +cons(new_integer(799008),
22384 22384 new_string("row"))),
22385 22385 cons(cons(app,
22386   -cons(new_integer(804395),
  22386 +cons(new_integer(799019),
22387 22387 cons(cons(symbol,
22388   -cons(new_integer(804394),
  22388 +cons(new_integer(799018),
22389 22389 new_string("£make_row"))),
22390 22390 cons(cons(symbol,
22391   -cons(new_integer(804399),
  22391 +cons(new_integer(799023),
22392 22392 new_string("stmt"))),
22393 22393 cons(cons(symbol,
22394   -cons(new_integer(804411),
  22394 +cons(new_integer(799035),
22395 22395 new_string("num_columns"))),
22396 22396 nil))))),
22397 22397 nil)))))),
... ... @@ -22399,7 +22399,7 @@ nil)))))),
22399 22399 nil))))))),
22400 22400 nil)))))))))))));
22401 22401  
22402   -new_op_scheme(1613838,0,
  22402 +new_op_scheme(1603086,0,
22403 22403 cons(app_ts,
22404 22404 cons(new_string("Result"),
22405 22405 cons(new_string("Word32"),
... ... @@ -22415,11 +22415,11 @@ cons(cons(type_String,
22415 22415 new_string("sql_command")),
22416 22416 nil)),
22417 22417 cons(avm,
22418   -cons(new_integer(808456),
  22418 +cons(new_integer(803080),
22419 22419 cons(sqlite3_prepare,
22420 22420 nil))));
22421 22421  
22422   -new_op_scheme(1618460,1,
  22422 +new_op_scheme(1607708,1,
22423 22423 cons(app_ts,
22424 22424 cons(new_string("Result"),
22425 22425 cons(new_string("SQLite3Error"),
... ... @@ -22436,54 +22436,54 @@ cons(cons(type_String,
22436 22436 new_string("sql_command")),
22437 22437 nil)),
22438 22438 cons(cond,
22439   -cons(new_integer(810758),
  22439 +cons(new_integer(805382),
22440 22440 cons(cons(symbol,
22441   -cons(new_integer(810761),
  22441 +cons(new_integer(805385),
22442 22442 new_string("db"))),
22443 22443 cons(cons(cons(new_string("£database"),
22444 22444 cons(new_string("db1"),
22445 22445 nil)),
22446   -cons(new_integer(810784),
  22446 +cons(new_integer(805408),
22447 22447 cons(protect,
22448   -cons(new_integer(811019),
  22448 +cons(new_integer(805643),
22449 22449 cons(cond,
22450   -cons(new_integer(811270),
  22450 +cons(new_integer(805894),
22451 22451 cons(cons(app,
22452   -cons(new_integer(811280),
  22452 +cons(new_integer(805904),
22453 22453 cons(cons(symbol,
22454   -cons(new_integer(811279),
  22454 +cons(new_integer(805903),
22455 22455 new_string("£prepare"))),
22456 22456 cons(cons(symbol,
22457   -cons(new_integer(811283),
  22457 +cons(new_integer(805907),
22458 22458 new_string("db1"))),
22459 22459 cons(cons(symbol,
22460   -cons(new_integer(811295),
  22460 +cons(new_integer(805919),
22461 22461 new_string("sql_command"))),
22462 22462 nil))))),
22463 22463 cons(cons(cons(new_string("error"),
22464 22464 cons(new_string("i"),
22465 22465 nil)),
22466   -cons(new_integer(811797),
  22466 +cons(new_integer(806421),
22467 22467 cons(app,
22468   -cons(new_integer(811804),
  22468 +cons(new_integer(806428),
22469 22469 cons(cons(symbol,
22470   -cons(new_integer(811803),
  22470 +cons(new_integer(806427),
22471 22471 new_string("error"))),
22472 22472 cons(cons(app,
22473   -cons(new_integer(811812),
  22473 +cons(new_integer(806436),
22474 22474 cons(cons(symbol,
22475   -cons(new_integer(811811),
  22475 +cons(new_integer(806435),
22476 22476 new_string("sqlite3"))),
22477 22477 cons(cons(symbol,
22478   -cons(new_integer(811813),
  22478 +cons(new_integer(806437),
22479 22479 new_string("i"))),
22480 22480 cons(cons(app,
22481   -cons(new_integer(811830),
  22481 +cons(new_integer(806454),
22482 22482 cons(cons(symbol,
22483   -cons(new_integer(811829),
  22483 +cons(new_integer(806453),
22484 22484 new_string("£sqlite3_errmsg"))),
22485 22485 cons(cons(symbol,
22486   -cons(new_integer(811833),
  22486 +cons(new_integer(806457),
22487 22487 new_string("db1"))),
22488 22488 nil)))),
22489 22489 nil))))),
... ... @@ -22491,103 +22491,103 @@ nil)))))),
22491 22491 cons(cons(cons(new_string("ok"),
22492 22492 cons(new_string("stmt"),
22493 22493 nil)),
22494   -cons(new_integer(812053),
  22494 +cons(new_integer(806677),
22495 22495 cons(cond,
22496   -cons(new_integer(812300),
  22496 +cons(new_integer(806924),
22497 22497 cons(cons(app,
22498   -cons(new_integer(812317),
  22498 +cons(new_integer(806941),
22499 22499 cons(cons(symbol,
22500   -cons(new_integer(812316),
  22500 +cons(new_integer(806940),
22501 22501 new_string("£go_to_next_row"))),
22502 22502 cons(cons(symbol,
22503   -cons(new_integer(812321),
  22503 +cons(new_integer(806945),
22504 22504 new_string("stmt"))),
22505 22505 nil)))),
22506 22506 cons(cons(cons(new_string("no_more_row"),
22507 22507 nil),
22508   -cons(new_integer(812832),
  22508 +cons(new_integer(807456),
22509 22509 cons(app,
22510   -cons(new_integer(812836),
  22510 +cons(new_integer(807460),
22511 22511 cons(cons(symbol,
22512   -cons(new_integer(812835),
  22512 +cons(new_integer(807459),
22513 22513 new_string("ok"))),
22514 22514 cons(cons(lambda,
22515   -cons(new_integer(812863),
  22515 +cons(new_integer(807487),
22516 22516 cons(cons(cons(new_string("SQLite3HeadersOrRow"),
22517 22517 new_string("h")),
22518 22518 nil),
22519 22519 cons(symbol,
22520   -cons(new_integer(812875),
  22520 +cons(new_integer(807499),
22521 22521 new_string("no_more_row")))))),
22522 22522 nil)))))),
22523 22523 cons(cons(cons(new_string("row"),
22524 22524 nil),
22525   -cons(new_integer(813088),
  22525 +cons(new_integer(807712),
22526 22526 cons(with,
22527   -cons(new_integer(813101),
  22527 +cons(new_integer(807725),
22528 22528 cons(new_string("first"),
22529 22529 cons(cons(app,
22530   -cons(new_integer(813106),
  22530 +cons(new_integer(807730),
22531 22531 cons(cons(symbol,
22532   -cons(new_integer(813105),
  22532 +cons(new_integer(807729),
22533 22533 new_string("var"))),
22534 22534 cons(cons(of_type,
22535   -cons(new_integer(813107),
  22535 +cons(new_integer(807731),
22536 22536 cons(new_string("Bool"),
22537 22537 cons(symbol,
22538   -cons(new_integer(813116),
  22538 +cons(new_integer(807740),
22539 22539 new_string("true")))))),
22540 22540 nil)))),
22541 22541 cons(app,
22542   -cons(new_integer(813348),
  22542 +cons(new_integer(807972),
22543 22543 cons(cons(symbol,
22544   -cons(new_integer(813348),
  22544 +cons(new_integer(807972),
22545 22545 new_string("ok"))),
22546 22546 cons(cons(app,
22547   -cons(new_integer(813361),
  22547 +cons(new_integer(807985),
22548 22548 cons(cons(symbol,
22549   -cons(new_integer(813360),
  22549 +cons(new_integer(807984),
22550 22550 new_string("£make_cursor"))),
22551 22551 cons(cons(symbol,
22552   -cons(new_integer(813364),
  22552 +cons(new_integer(807988),
22553 22553 new_string("db1"))),
22554 22554 cons(cons(symbol,
22555   -cons(new_integer(813369),
  22555 +cons(new_integer(807993),
22556 22556 new_string("stmt"))),
22557 22557 cons(cons(symbol,
22558   -cons(new_integer(813375),
  22558 +cons(new_integer(807999),
22559 22559 new_string("first"))),
22560 22560 nil)))))),
22561 22561 nil)))))))))),
22562 22562 cons(cons(cons(new_string("error"),
22563 22563 nil),
22564   -cons(new_integer(813600),
  22564 +cons(new_integer(808224),
22565 22565 cons(app,
22566   -cons(new_integer(813607),
  22566 +cons(new_integer(808231),
22567 22567 cons(cons(symbol,
22568   -cons(new_integer(813606),
  22568 +cons(new_integer(808230),
22569 22569 new_string("error"))),
22570 22570 cons(cons(app,
22571   -cons(new_integer(813615),
  22571 +cons(new_integer(808239),
22572 22572 cons(cons(symbol,
22573   -cons(new_integer(813614),
  22573 +cons(new_integer(808238),
22574 22574 new_string("sqlite3"))),
22575 22575 cons(cons(app,
22576   -cons(new_integer(813632),
  22576 +cons(new_integer(808256),
22577 22577 cons(cons(symbol,
22578   -cons(new_integer(813631),
  22578 +cons(new_integer(808255),
22579 22579 new_string("£sqlite3_errcode"))),
22580 22580 cons(cons(symbol,
22581   -cons(new_integer(813635),
  22581 +cons(new_integer(808259),
22582 22582 new_string("db1"))),
22583 22583 nil)))),
22584 22584 cons(cons(app,
22585   -cons(new_integer(813653),
  22585 +cons(new_integer(808277),
22586 22586 cons(cons(symbol,
22587   -cons(new_integer(813652),
  22587 +cons(new_integer(808276),
22588 22588 new_string("£sqlite3_errmsg"))),
22589 22589 cons(cons(symbol,
22590   -cons(new_integer(813656),
  22590 +cons(new_integer(808280),
22591 22591 new_string("db1"))),
22592 22592 nil)))),
22593 22593 nil))))),
... ... @@ -22596,7 +22596,7 @@ nil)))))))),
22596 22596 nil))))))))),
22597 22597 nil)))));
22598 22598  
22599   -new_op_scheme(1641998,0,
  22599 +new_op_scheme(1631246,0,
22600 22600 cons(app_ts,
22601 22601 cons(new_string("Result"),
22602 22602 cons(new_string("Word32"),
... ... @@ -22613,86 +22613,86 @@ cons(cons(new_string(&quot;Word32&quot;),
22613 22613 new_string("ns")),
22614 22614 nil)),
22615 22615 cons(cond,
22616   -cons(new_integer(822534),
  22616 +cons(new_integer(817158),
22617 22617 cons(cons(symbol,
22618   -cons(new_integer(822536),
  22618 +cons(new_integer(817160),
22619 22619 new_string("l"))),
22620 22620 cons(cons(cons(new_string("[]"),
22621 22621 nil),
22622   -cons(new_integer(823056),
  22622 +cons(new_integer(817680),
22623 22623 cons(app,
22624   -cons(new_integer(823060),
  22624 +cons(new_integer(817684),
22625 22625 cons(cons(symbol,
22626   -cons(new_integer(823059),
  22626 +cons(new_integer(817683),
22627 22627 new_string("ok"))),
22628 22628 cons(cons(symbol,
22629   -cons(new_integer(823066),
  22629 +cons(new_integer(817690),
22630 22630 new_string("unique"))),
22631 22631 nil)))))),
22632 22632 cons(cons(cons(new_string("[.]"),
22633 22633 cons(new_string("a"),
22634 22634 cons(new_string("b"),
22635 22635 nil))),
22636   -cons(new_integer(823316),
  22636 +cons(new_integer(817940),
22637 22637 cons(cond,
22638   -cons(new_integer(823319),
  22638 +cons(new_integer(817943),
22639 22639 cons(cons(symbol,
22640   -cons(new_integer(823321),
  22640 +cons(new_integer(817945),
22641 22641 new_string("a"))),
22642 22642 cons(cons(cons(new_string("transition"),
22643 22643 cons(new_string("_"),
22644 22644 cons(new_string("c"),
22645 22645 nil))),
22646   -cons(new_integer(823345),
  22646 +cons(new_integer(817969),
22647 22647 cons(cond,
22648   -cons(new_integer(823564),
  22648 +cons(new_integer(818188),
22649 22649 cons(cons(of_type,
22650   -cons(new_integer(823564),
  22650 +cons(new_integer(818188),
22651 22651 cons(new_string("Bool"),
22652 22652 cons(app,
22653   -cons(new_integer(823570),
  22653 +cons(new_integer(818194),
22654 22654 cons(cons(symbol,
22655   -cons(new_integer(823570),
  22655 +cons(new_integer(818194),
22656 22656 new_string("+=<"))),
22657 22657 cons(cons(symbol,
22658   -cons(new_integer(823573),
  22658 +cons(new_integer(818197),
22659 22659 new_string("ns"))),
22660 22660 cons(cons(symbol,
22661   -cons(new_integer(823566),
  22661 +cons(new_integer(818190),
22662 22662 new_string("c"))),
22663 22663 nil)))))))),
22664 22664 cons(cons(cons(new_string("false"),
22665 22665 nil),
22666   -cons(new_integer(824078),
  22666 +cons(new_integer(818702),
22667 22667 cons(app,
22668   -cons(new_integer(824098),
  22668 +cons(new_integer(818722),
22669 22669 cons(cons(symbol,
22670   -cons(new_integer(824097),
  22670 +cons(new_integer(818721),
22671 22671 new_string("£check_transitions"))),
22672 22672 cons(cons(symbol,
22673   -cons(new_integer(824099),
  22673 +cons(new_integer(818723),
22674 22674 new_string("b"))),
22675 22675 cons(cons(symbol,
22676   -cons(new_integer(824102),
  22676 +cons(new_integer(818726),
22677 22677 new_string("ns"))),
22678 22678 nil))))))),
22679 22679 cons(cons(cons(new_string("true"),
22680 22680 nil),
22681   -cons(new_integer(823822),
  22681 +cons(new_integer(818446),
22682 22682 cons(app,
22683   -cons(new_integer(823829),
  22683 +cons(new_integer(818453),
22684 22684 cons(cons(symbol,
22685   -cons(new_integer(823828),
  22685 +cons(new_integer(818452),
22686 22686 new_string("error"))),
22687 22687 cons(cons(symbol,
22688   -cons(new_integer(823830),
  22688 +cons(new_integer(818454),
22689 22689 new_string("c"))),
22690 22690 nil)))))),
22691 22691 nil))))))),
22692 22692 nil)))))),
22693 22693 nil))))));
22694 22694  
22695   -new_op_scheme(1651214,0,
  22695 +new_op_scheme(1640462,0,
22696 22696 cons(app_ts,
22697 22697 cons(new_string("Result"),
22698 22698 cons(new_string("MakeFastLexerResult"),
... ... @@ -22709,144 +22709,144 @@ cons(cons(new_string(&quot;Word32&quot;),
22709 22709 new_string("ns")),
22710 22710 nil)),
22711 22711 cons(cond,
22712   -cons(new_integer(827142),
  22712 +cons(new_integer(821766),
22713 22713 cons(cons(symbol,
22714   -cons(new_integer(827144),
  22714 +cons(new_integer(821768),
22715 22715 new_string("l"))),
22716 22716 cons(cons(cons(new_string("[]"),
22717 22717 nil),
22718   -cons(new_integer(827664),
  22718 +cons(new_integer(822288),
22719 22719 cons(app,
22720   -cons(new_integer(827668),
  22720 +cons(new_integer(822292),
22721 22721 cons(cons(symbol,
22722   -cons(new_integer(827667),
  22722 +cons(new_integer(822291),
22723 22723 new_string("ok"))),
22724 22724 cons(cons(symbol,
22725   -cons(new_integer(827674),
  22725 +cons(new_integer(822298),
22726 22726 new_string("unique"))),
22727 22727 nil)))))),
22728 22728 cons(cons(cons(new_string("[.]"),
22729 22729 cons(new_string("s"),
22730 22730 cons(new_string("t"),
22731 22731 nil))),
22732   -cons(new_integer(827924),
  22732 +cons(new_integer(822548),
22733 22733 cons(cond,
22734   -cons(new_integer(827927),
  22734 +cons(new_integer(822551),
22735 22735 cons(cons(symbol,
22736   -cons(new_integer(827929),
  22736 +cons(new_integer(822553),
22737 22737 new_string("s"))),
22738 22738 cons(cons(cons(new_string("rejecting"),
22739 22739 cons(new_string("tr"),
22740 22740 nil)),
22741   -cons(new_integer(828446),
  22741 +cons(new_integer(823070),
22742 22742 cons(cond,
22743   -cons(new_integer(828449),
  22743 +cons(new_integer(823073),
22744 22744 cons(cons(app,
22745   -cons(new_integer(828469),
  22745 +cons(new_integer(823093),
22746 22746 cons(cons(symbol,
22747   -cons(new_integer(828468),
  22747 +cons(new_integer(823092),
22748 22748 new_string("£check_transitions"))),
22749 22749 cons(cons(symbol,
22750   -cons(new_integer(828471),
  22750 +cons(new_integer(823095),
22751 22751 new_string("tr"))),
22752 22752 cons(cons(symbol,
22753   -cons(new_integer(828474),
  22753 +cons(new_integer(823098),
22754 22754 new_string("ns"))),
22755 22755 nil))))),
22756 22756 cons(cons(cons(new_string("error"),
22757 22757 cons(new_string("j"),
22758 22758 nil)),
22759   -cons(new_integer(828957),
  22759 +cons(new_integer(823581),
22760 22760 cons(app,
22761   -cons(new_integer(828964),
  22761 +cons(new_integer(823588),
22762 22762 cons(cons(symbol,
22763   -cons(new_integer(828963),
  22763 +cons(new_integer(823587),
22764 22764 new_string("error"))),
22765 22765 cons(cons(app,
22766   -cons(new_integer(828978),
  22766 +cons(new_integer(823602),
22767 22767 cons(cons(symbol,
22768   -cons(new_integer(828977),
  22768 +cons(new_integer(823601),
22769 22769 new_string("unknown_state"))),
22770 22770 cons(cons(symbol,
22771   -cons(new_integer(828979),
  22771 +cons(new_integer(823603),
22772 22772 new_string("j"))),
22773 22773 nil)))),
22774 22774 nil)))))),
22775 22775 cons(cons(cons(new_string("ok"),
22776 22776 cons(new_string("_"),
22777 22777 nil)),
22778   -cons(new_integer(829213),
  22778 +cons(new_integer(823837),
22779 22779 cons(app,
22780   -cons(new_integer(829228),
  22780 +cons(new_integer(823852),
22781 22781 cons(cons(symbol,
22782   -cons(new_integer(829227),
  22782 +cons(new_integer(823851),
22783 22783 new_string("£check_states"))),
22784 22784 cons(cons(symbol,
22785   -cons(new_integer(829229),
  22785 +cons(new_integer(823853),
22786 22786 new_string("t"))),
22787 22787 cons(cons(symbol,
22788   -cons(new_integer(829232),
  22788 +cons(new_integer(823856),
22789 22789 new_string("ns"))),
22790 22790 nil))))))),
22791 22791 nil))))))),
22792 22792 cons(cons(cons(new_string("accepting"),
22793 22793 cons(new_string("tr"),
22794 22794 nil)),
22795   -cons(new_integer(829726),
  22795 +cons(new_integer(824350),
22796 22796 cons(cond,
22797   -cons(new_integer(829729),
  22797 +cons(new_integer(824353),
22798 22798 cons(cons(app,
22799   -cons(new_integer(829749),
  22799 +cons(new_integer(824373),
22800 22800 cons(cons(symbol,
22801   -cons(new_integer(829748),
  22801 +cons(new_integer(824372),
22802 22802 new_string("£check_transitions"))),
22803 22803 cons(cons(symbol,
22804   -cons(new_integer(829751),
  22804 +cons(new_integer(824375),
22805 22805 new_string("tr"))),
22806 22806 cons(cons(symbol,
22807   -cons(new_integer(829754),
  22807 +cons(new_integer(824378),
22808 22808 new_string("ns"))),
22809 22809 nil))))),
22810 22810 cons(cons(cons(new_string("error"),
22811 22811 cons(new_string("j"),
22812 22812 nil)),
22813   -cons(new_integer(830237),
  22813 +cons(new_integer(824861),
22814 22814 cons(app,
22815   -cons(new_integer(830244),
  22815 +cons(new_integer(824868),
22816 22816 cons(cons(symbol,
22817   -cons(new_integer(830243),
  22817 +cons(new_integer(824867),
22818 22818 new_string("error"))),
22819 22819 cons(cons(app,
22820   -cons(new_integer(830258),
  22820 +cons(new_integer(824882),
22821 22821 cons(cons(symbol,
22822   -cons(new_integer(830257),
  22822 +cons(new_integer(824881),
22823 22823 new_string("unknown_state"))),
22824 22824 cons(cons(symbol,
22825   -cons(new_integer(830259),
  22825 +cons(new_integer(824883),
22826 22826 new_string("j"))),
22827 22827 nil)))),
22828 22828 nil)))))),
22829 22829 cons(cons(cons(new_string("ok"),
22830 22830 cons(new_string("_"),
22831 22831 nil)),
22832   -cons(new_integer(830493),
  22832 +cons(new_integer(825117),
22833 22833 cons(app,
22834   -cons(new_integer(830508),
  22834 +cons(new_integer(825132),
22835 22835 cons(cons(symbol,
22836   -cons(new_integer(830507),
  22836 +cons(new_integer(825131),
22837 22837 new_string("£check_states"))),
22838 22838 cons(cons(symbol,
22839   -cons(new_integer(830509),
  22839 +cons(new_integer(825133),
22840 22840 new_string("t"))),
22841 22841 cons(cons(symbol,
22842   -cons(new_integer(830512),
  22842 +cons(new_integer(825136),
22843 22843 new_string("ns"))),
22844 22844 nil))))))),
22845 22845 nil))))))),
22846 22846 nil))))))),
22847 22847 nil))))));
22848 22848  
22849   -new_op_scheme(1664526,0,
  22849 +new_op_scheme(1653774,0,
22850 22850 type_Int,
22851 22851 cons(new_string("£length"),
22852 22852 nil),
... ... @@ -22857,43 +22857,43 @@ nil))),
22857 22857 new_string("l")),
22858 22858 nil),
22859 22859 cons(cond,
22860   -cons(new_integer(833542),
  22860 +cons(new_integer(828166),
22861 22861 cons(cons(symbol,
22862   -cons(new_integer(833544),
  22862 +cons(new_integer(828168),
22863 22863 new_string("l"))),
22864 22864 cons(cons(cons(new_string("[]"),
22865 22865 nil),
22866   -cons(new_integer(834064),
  22866 +cons(new_integer(828688),
22867 22867 cons(integer_10,
22868   -cons(new_integer(834066),
  22868 +cons(new_integer(828690),
22869 22869 nil)))),
22870 22870 cons(cons(cons(new_string("[.]"),
22871 22871 cons(new_string("h"),
22872 22872 cons(new_string("t"),
22873 22873 nil))),
22874   -cons(new_integer(834324),
  22874 +cons(new_integer(828948),
22875 22875 cons(app,
22876   -cons(new_integer(834328),
  22876 +cons(new_integer(828952),
22877 22877 cons(cons(symbol,
22878   -cons(new_integer(834328),
  22878 +cons(new_integer(828952),
22879 22879 new_string("+"))),
22880 22880 cons(cons(integer_10,
22881   -cons(new_integer(834326),
  22881 +cons(new_integer(828950),
22882 22882 cons(new_integer(1),
22883 22883 nil))),
22884 22884 cons(cons(app,
22885   -cons(new_integer(834337),
  22885 +cons(new_integer(828961),
22886 22886 cons(cons(symbol,
22887   -cons(new_integer(834336),
  22887 +cons(new_integer(828960),
22888 22888 new_string("£length"))),
22889 22889 cons(cons(symbol,
22890   -cons(new_integer(834338),
  22890 +cons(new_integer(828962),
22891 22891 new_string("t"))),
22892 22892 nil)))),
22893 22893 nil))))))),
22894 22894 nil))))));
22895 22895  
22896   -new_op_scheme(1672206,0,
  22896 +new_op_scheme(1661454,0,
22897 22897 cons(app_ts,
22898 22898 cons(new_string("Result"),
22899 22899 cons(new_string("MakeFastLexerResult"),
... ... @@ -22908,37 +22908,37 @@ nil))),
22908 22908 new_string("l")),
22909 22909 nil),
22910 22910 cons(with,
22911   -cons(new_integer(837388),
  22911 +cons(new_integer(832012),
22912 22912 cons(new_string("n"),
22913 22913 cons(cons(app,
22914   -cons(new_integer(837397),
  22914 +cons(new_integer(832021),
22915 22915 cons(cons(symbol,
22916   -cons(new_integer(837396),
  22916 +cons(new_integer(832020),
22917 22917 new_string("£length"))),
22918 22918 cons(cons(symbol,
22919   -cons(new_integer(837398),
  22919 +cons(new_integer(832022),
22920 22920 new_string("l"))),
22921 22921 nil)))),
22922 22922 cons(app,
22923   -cons(new_integer(837650),
  22923 +cons(new_integer(832274),
22924 22924 cons(cons(symbol,
22925   -cons(new_integer(837650),
  22925 +cons(new_integer(832274),
22926 22926 new_string("£check_states"))),
22927 22927 cons(cons(symbol,
22928   -cons(new_integer(837651),
  22928 +cons(new_integer(832275),
22929 22929 new_string("l"))),
22930 22930 cons(cons(app,
22931   -cons(new_integer(837671),
  22931 +cons(new_integer(832295),
22932 22932 cons(cons(symbol,
22933   -cons(new_integer(837670),
  22933 +cons(new_integer(832294),
22934 22934 new_string("truncate_to_Word32"))),
22935 22935 cons(cons(symbol,
22936   -cons(new_integer(837672),
  22936 +cons(new_integer(832296),
22937 22937 new_string("n"))),
22938 22938 nil)))),
22939 22939 nil))))))))));
22940 22940  
22941   -new_op_scheme(1677838,0,
  22941 +new_op_scheme(1667086,0,
22942 22942 new_string("One"),
22943 22943 cons(new_string("£record_accepting"),
22944 22944 nil),
... ... @@ -22953,60 +22953,60 @@ cons(cons(type_Int,
22953 22953 new_string("i")),
22954 22954 nil))),
22955 22955 cons(cond,
22956   -cons(new_integer(840710),
  22956 +cons(new_integer(835334),
22957 22957 cons(cons(symbol,
22958   -cons(new_integer(840712),
  22958 +cons(new_integer(835336),
22959 22959 new_string("l"))),
22960 22960 cons(cons(cons(new_string("[]"),
22961 22961 nil),
22962   -cons(new_integer(841232),
  22962 +cons(new_integer(835856),
22963 22963 cons(symbol,
22964   -cons(new_integer(841239),
  22964 +cons(new_integer(835863),
22965 22965 new_string("unique"))))),
22966 22966 cons(cons(cons(new_string("[.]"),
22967 22967 cons(new_string("h"),
22968 22968 cons(new_string("t"),
22969 22969 nil))),
22970   -cons(new_integer(841492),
  22970 +cons(new_integer(836116),
22971 22971 cons(cond,
22972   -cons(new_integer(842508),
  22972 +cons(new_integer(837132),
22973 22973 cons(cons(of_type,
22974   -cons(new_integer(842508),
  22974 +cons(new_integer(837132),
22975 22975 cons(new_string("One"),
22976 22976 cons(cond,
22977   -cons(new_integer(841495),
  22977 +cons(new_integer(836119),
22978 22978 cons(cons(symbol,
22979   -cons(new_integer(841497),
  22979 +cons(new_integer(836121),
22980 22980 new_string("h"))),
22981 22981 cons(cons(cons(new_string("rejecting"),
22982 22982 cons(new_string("_"),
22983 22983 nil)),
22984   -cons(new_integer(842013),
  22984 +cons(new_integer(836637),
22985 22985 cons(symbol,
22986   -cons(new_integer(842020),
  22986 +cons(new_integer(836644),
22987 22987 new_string("unique"))))),
22988 22988 cons(cons(cons(new_string("accepting"),
22989 22989 cons(new_string("_"),
22990 22990 nil)),
22991   -cons(new_integer(842269),
  22991 +cons(new_integer(836893),
22992 22992 cons(app,
22993   -cons(new_integer(842277),
  22993 +cons(new_integer(836901),
22994 22994 cons(cons(symbol,
22995   -cons(new_integer(842276),
  22995 +cons(new_integer(836900),
22996 22996 new_string("forget"))),
22997 22997 cons(cons(app,
22998   -cons(new_integer(842281),
  22998 +cons(new_integer(836905),
22999 22999 cons(cons(symbol,
23000   -cons(new_integer(842280),
  23000 +cons(new_integer(836904),
23001 23001 new_string("put"))),
23002 23002 cons(cons(symbol,
23003   -cons(new_integer(842284),
  23003 +cons(new_integer(836908),
23004 23004 new_string("fba"))),
23005 23005 cons(cons(symbol,
23006   -cons(new_integer(842286),
  23006 +cons(new_integer(836910),
23007 23007 new_string("i"))),
23008 23008 cons(cons(integer_10,
23009   -cons(new_integer(842288),
  23009 +cons(new_integer(836912),
23010 23010 cons(new_integer(1),
23011 23011 nil))),
23012 23012 nil)))))),
... ... @@ -23014,28 +23014,28 @@ nil)))))),
23014 23014 nil)))))))),
23015 23015 cons(cons(cons(new_string("unique"),
23016 23016 nil),
23017   -cons(new_integer(842508),
  23017 +cons(new_integer(837132),
23018 23018 cons(app,
23019   -cons(new_integer(842780),
  23019 +cons(new_integer(837404),
23020 23020 cons(cons(symbol,
23021   -cons(new_integer(842779),
  23021 +cons(new_integer(837403),
23022 23022 new_string("£record_accepting"))),
23023 23023 cons(cons(symbol,
23024   -cons(new_integer(842781),
  23024 +cons(new_integer(837405),
23025 23025 new_string("t"))),
23026 23026 cons(cons(symbol,
23027   -cons(new_integer(842785),
  23027 +cons(new_integer(837409),
23028 23028 new_string("fba"))),
23029 23029 cons(cons(app,
23030   -cons(new_integer(842788),
  23030 +cons(new_integer(837412),
23031 23031 cons(cons(symbol,
23032   -cons(new_integer(842788),
  23032 +cons(new_integer(837412),
23033 23033 new_string("+"))),
23034 23034 cons(cons(symbol,
23035   -cons(new_integer(842787),
  23035 +cons(new_integer(837411),
23036 23036 new_string("i"))),
23037 23037 cons(cons(integer_10,
23038   -cons(new_integer(842789),
  23038 +cons(new_integer(837413),
23039 23039 cons(new_integer(1),
23040 23040 nil))),
23041 23041 nil))))),
... ... @@ -23043,7 +23043,7 @@ nil)))))))),
23043 23043 nil)))))),
23044 23044 nil))))));
23045 23045  
23046   -new_op_scheme(1687054,0,
  23046 +new_op_scheme(1676302,0,
23047 23047 type_ByteArray,
23048 23048 cons(new_string("£make_first_byte_array"),
23049 23049 nil),
... ... @@ -23054,55 +23054,55 @@ nil))),
23054 23054 new_string("l")),
23055 23055 nil),
23056 23056 cons(with,
23057   -cons(new_integer(844814),
  23057 +cons(new_integer(839438),
23058 23058 cons(new_string("fba"),
23059 23059 cons(cons(app,
23060   -cons(new_integer(844835),
  23060 +cons(new_integer(839459),
23061 23061 cons(cons(symbol,
23062   -cons(new_integer(844834),
  23062 +cons(new_integer(839458),
23063 23063 new_string("constant_byte_array"))),
23064 23064 cons(cons(app,
23065   -cons(new_integer(844843),
  23065 +cons(new_integer(839467),
23066 23066 cons(cons(symbol,
23067   -cons(new_integer(844842),
  23067 +cons(new_integer(839466),
23068 23068 new_string("£length"))),
23069 23069 cons(cons(symbol,
23070   -cons(new_integer(844844),
  23070 +cons(new_integer(839468),
23071 23071 new_string("l"))),
23072 23072 nil)))),
23073 23073 cons(cons(integer_10,
23074   -cons(new_integer(844847),
  23074 +cons(new_integer(839471),
23075 23075 nil)),
23076 23076 nil))))),
23077 23077 cons(cond,
23078   -cons(new_integer(845087),
  23078 +cons(new_integer(839711),
23079 23079 cons(cons(of_type,
23080   -cons(new_integer(845087),
  23080 +cons(new_integer(839711),
23081 23081 cons(new_string("One"),
23082 23082 cons(app,
23083   -cons(new_integer(845078),
  23083 +cons(new_integer(839702),
23084 23084 cons(cons(symbol,
23085   -cons(new_integer(845078),
  23085 +cons(new_integer(839702),
23086 23086 new_string("£record_accepting"))),
23087 23087 cons(cons(symbol,
23088   -cons(new_integer(845079),
  23088 +cons(new_integer(839703),
23089 23089 new_string("l"))),
23090 23090 cons(cons(symbol,
23091   -cons(new_integer(845083),
  23091 +cons(new_integer(839707),
23092 23092 new_string("fba"))),
23093 23093 cons(cons(integer_10,
23094   -cons(new_integer(845085),
  23094 +cons(new_integer(839709),
23095 23095 nil)),
23096 23096 nil))))))))),
23097 23097 cons(cons(cons(new_string("unique"),
23098 23098 nil),
23099   -cons(new_integer(845087),
  23099 +cons(new_integer(839711),
23100 23100 cons(symbol,
23101   -cons(new_integer(845319),
  23101 +cons(new_integer(839943),
23102 23102 new_string("fba"))))),
23103 23103 nil)))))))));
23104 23104  
23105   -new_op_scheme(1693198,0,
  23105 +new_op_scheme(1682446,0,
23106 23106 new_string("One"),
23107 23107 cons(new_string("£put32"),
23108 23108 nil),
... ... @@ -23114,178 +23114,178 @@ cons(cons(new_string(&quot;Word32&quot;),
23114 23114 new_string("w")),
23115 23115 nil))),
23116 23116 cons(cond,
23117   -cons(new_integer(848390),
  23117 +cons(new_integer(843014),
23118 23118 cons(cons(symbol,
23119   -cons(new_integer(848392),
  23119 +cons(new_integer(843016),
23120 23120 new_string("w"))),
23121 23121 cons(cons(cons(new_string("word32"),
23122 23122 cons(new_string("low16"),
23123 23123 cons(new_string("high16"),
23124 23124 nil))),
23125   -cons(new_integer(848421),
  23125 +cons(new_integer(843045),
23126 23126 cons(cond,
23127   -cons(new_integer(848646),
  23127 +cons(new_integer(843270),
23128 23128 cons(cons(symbol,
23129   -cons(new_integer(848652),
  23129 +cons(new_integer(843276),
23130 23130 new_string("low16"))),
23131 23131 cons(cons(cons(new_string("word16"),
23132 23132 cons(new_string("b0"),
23133 23133 cons(new_string("b1"),
23134 23134 nil))),
23135   -cons(new_integer(848675),
  23135 +cons(new_integer(843299),
23136 23136 cons(cond,
23137   -cons(new_integer(848902),
  23137 +cons(new_integer(843526),
23138 23138 cons(cons(symbol,
23139   -cons(new_integer(848909),
  23139 +cons(new_integer(843533),
23140 23140 new_string("high16"))),
23141 23141 cons(cons(cons(new_string("word16"),
23142 23142 cons(new_string("b2"),
23143 23143 cons(new_string("b3"),
23144 23144 nil))),
23145   -cons(new_integer(848931),
  23145 +cons(new_integer(843555),
23146 23146 cons(cond,
23147   -cons(new_integer(849158),
  23147 +cons(new_integer(843782),
23148 23148 cons(cons(symbol,
23149   -cons(new_integer(849176),
  23149 +cons(new_integer(843800),
23150 23150 new_string("system_endianness"))),
23151 23151 cons(cons(cons(new_string("little_endian"),
23152 23152 nil),
23153   -cons(new_integer(849690),
  23153 +cons(new_integer(844314),
23154 23154 cons(cond,
23155   -cons(new_integer(849951),
  23155 +cons(new_integer(844575),
23156 23156 cons(cons(of_type,
23157   -cons(new_integer(849951),
  23157 +cons(new_integer(844575),
23158 23158 cons(new_string("One"),
23159 23159 cons(app,
23160   -cons(new_integer(849937),
  23160 +cons(new_integer(844561),
23161 23161 cons(cons(symbol,
23162   -cons(new_integer(849936),
  23162 +cons(new_integer(844560),
23163 23163 new_string("forget"))),
23164 23164 cons(cons(app,
23165   -cons(new_integer(849941),
  23165 +cons(new_integer(844565),
23166 23166 cons(cons(symbol,
23167   -cons(new_integer(849940),
  23167 +cons(new_integer(844564),
23168 23168 new_string("put"))),
23169 23169 cons(cons(symbol,
23170   -cons(new_integer(849943),
  23170 +cons(new_integer(844567),
23171 23171 new_string("ba"))),
23172 23172 cons(cons(symbol,
23173   -cons(new_integer(849945),
  23173 +cons(new_integer(844569),
23174 23174 new_string("i"))),
23175 23175 cons(cons(symbol,
23176   -cons(new_integer(849948),
  23176 +cons(new_integer(844572),
23177 23177 new_string("b0"))),
23178 23178 nil)))))),
23179 23179 nil))))))),
23180 23180 cons(cons(cons(new_string("unique"),
23181 23181 nil),
23182   -cons(new_integer(849951),
  23182 +cons(new_integer(844575),
23183 23183 cons(cond,
23184   -cons(new_integer(850209),
  23184 +cons(new_integer(844833),
23185 23185 cons(cons(of_type,
23186   -cons(new_integer(850209),
  23186 +cons(new_integer(844833),
23187 23187 cons(new_string("One"),
23188 23188 cons(app,
23189   -cons(new_integer(850193),
  23189 +cons(new_integer(844817),
23190 23190 cons(cons(symbol,
23191   -cons(new_integer(850192),
  23191 +cons(new_integer(844816),
23192 23192 new_string("forget"))),
23193 23193 cons(cons(app,
23194   -cons(new_integer(850197),
  23194 +cons(new_integer(844821),
23195 23195 cons(cons(symbol,
23196   -cons(new_integer(850196),
  23196 +cons(new_integer(844820),
23197 23197 new_string("put"))),
23198 23198 cons(cons(symbol,
23199   -cons(new_integer(850199),
  23199 +cons(new_integer(844823),
23200 23200 new_string("ba"))),
23201 23201 cons(cons(app,
23202   -cons(new_integer(850202),
  23202 +cons(new_integer(844826),
23203 23203 cons(cons(symbol,
23204   -cons(new_integer(850202),
  23204 +cons(new_integer(844826),
23205 23205 new_string("+"))),
23206 23206 cons(cons(symbol,
23207   -cons(new_integer(850201),
  23207 +cons(new_integer(844825),
23208 23208 new_string("i"))),
23209 23209 cons(cons(integer_10,
23210   -cons(new_integer(850203),
  23210 +cons(new_integer(844827),
23211 23211 cons(new_integer(1),
23212 23212 nil))),
23213 23213 nil))))),
23214 23214 cons(cons(symbol,
23215   -cons(new_integer(850206),
  23215 +cons(new_integer(844830),
23216 23216 new_string("b1"))),
23217 23217 nil)))))),
23218 23218 nil))))))),
23219 23219 cons(cons(cons(new_string("unique"),
23220 23220 nil),
23221   -cons(new_integer(850209),
  23221 +cons(new_integer(844833),
23222 23222 cons(cond,
23223   -cons(new_integer(850465),
  23223 +cons(new_integer(845089),
23224 23224 cons(cons(of_type,
23225   -cons(new_integer(850465),
  23225 +cons(new_integer(845089),
23226 23226 cons(new_string("One"),
23227 23227 cons(app,
23228   -cons(new_integer(850449),
  23228 +cons(new_integer(845073),
23229 23229 cons(cons(symbol,
23230   -cons(new_integer(850448),
  23230 +cons(new_integer(845072),
23231 23231 new_string("forget"))),
23232 23232 cons(cons(app,
23233   -cons(new_integer(850453),
  23233 +cons(new_integer(845077),
23234 23234 cons(cons(symbol,
23235   -cons(new_integer(850452),
  23235 +cons(new_integer(845076),
23236 23236 new_string("put"))),
23237 23237 cons(cons(symbol,
23238   -cons(new_integer(850455),
  23238 +cons(new_integer(845079),
23239 23239 new_string("ba"))),
23240 23240 cons(cons(app,
23241   -cons(new_integer(850458),
  23241 +cons(new_integer(845082),
23242 23242 cons(cons(symbol,
23243   -cons(new_integer(850458),
  23243 +cons(new_integer(845082),
23244 23244 new_string("+"))),
23245 23245 cons(cons(symbol,
23246   -cons(new_integer(850457),
  23246 +cons(new_integer(845081),
23247 23247 new_string("i"))),
23248 23248 cons(cons(integer_10,
23249   -cons(new_integer(850459),
  23249 +cons(new_integer(845083),
23250 23250 cons(new_integer(2),
23251 23251 nil))),
23252 23252 nil))))),
23253 23253 cons(cons(symbol,
23254   -cons(new_integer(850462),
  23254 +cons(new_integer(845086),
23255 23255 new_string("b2"))),
23256 23256 nil)))))),
23257 23257 nil))))))),
23258 23258 cons(cons(cons(new_string("unique"),
23259 23259 nil),
23260   -cons(new_integer(850465),
  23260 +cons(new_integer(845089),
23261 23261 cons(app,
23262   -cons(new_integer(850705),
  23262 +cons(new_integer(845329),
23263 23263 cons(cons(symbol,
23264   -cons(new_integer(850704),
  23264 +cons(new_integer(845328),
23265 23265 new_string("forget"))),
23266 23266 cons(cons(app,
23267   -cons(new_integer(850709),
  23267 +cons(new_integer(845333),
23268 23268 cons(cons(symbol,
23269   -cons(new_integer(850708),
  23269 +cons(new_integer(845332),
23270 23270 new_string("put"))),
23271 23271 cons(cons(symbol,
23272   -cons(new_integer(850711),
  23272 +cons(new_integer(845335),
23273 23273 new_string("ba"))),
23274 23274 cons(cons(app,
23275   -cons(new_integer(850714),
  23275 +cons(new_integer(845338),
23276 23276 cons(cons(symbol,
23277   -cons(new_integer(850714),
  23277 +cons(new_integer(845338),
23278 23278 new_string("+"))),
23279 23279 cons(cons(symbol,
23280   -cons(new_integer(850713),
  23280 +cons(new_integer(845337),
23281 23281 new_string("i"))),
23282 23282 cons(cons(integer_10,
23283   -cons(new_integer(850715),
  23283 +cons(new_integer(845339),
23284 23284 cons(new_integer(3),
23285 23285 nil))),
23286 23286 nil))))),
23287 23287 cons(cons(symbol,
23288   -cons(new_integer(850718),
  23288 +cons(new_integer(845342),
23289 23289 new_string("b3"))),
23290 23290 nil)))))),
23291 23291 nil)))))),
... ... @@ -23294,142 +23294,142 @@ nil)))))),
23294 23294 nil)))))),
23295 23295 cons(cons(cons(new_string("big_endian"),
23296 23296 nil),
23297   -cons(new_integer(850967),
  23297 +cons(new_integer(845591),
23298 23298 cons(cond,
23299   -cons(new_integer(851231),
  23299 +cons(new_integer(845855),
23300 23300 cons(cons(of_type,
23301   -cons(new_integer(851231),
  23301 +cons(new_integer(845855),
23302 23302 cons(new_string("One"),
23303 23303 cons(app,
23304   -cons(new_integer(851217),
  23304 +cons(new_integer(845841),
23305 23305 cons(cons(symbol,
23306   -cons(new_integer(851216),
  23306 +cons(new_integer(845840),
23307 23307 new_string("forget"))),
23308 23308 cons(cons(app,
23309   -cons(new_integer(851221),
  23309 +cons(new_integer(845845),
23310 23310 cons(cons(symbol,
23311   -cons(new_integer(851220),
  23311 +cons(new_integer(845844),
23312 23312 new_string("put"))),
23313 23313 cons(cons(symbol,
23314   -cons(new_integer(851223),
  23314 +cons(new_integer(845847),
23315 23315 new_string("ba"))),
23316 23316 cons(cons(symbol,
23317   -cons(new_integer(851225),
  23317 +cons(new_integer(845849),
23318 23318 new_string("i"))),
23319 23319 cons(cons(symbol,
23320   -cons(new_integer(851228),
  23320 +cons(new_integer(845852),
23321 23321 new_string("b3"))),
23322 23322 nil)))))),
23323 23323 nil))))))),
23324 23324 cons(cons(cons(new_string("unique"),
23325 23325 nil),
23326   -cons(new_integer(851231),
  23326 +cons(new_integer(845855),
23327 23327 cons(cond,
23328   -cons(new_integer(851489),
  23328 +cons(new_integer(846113),
23329 23329 cons(cons(of_type,
23330   -cons(new_integer(851489),
  23330 +cons(new_integer(846113),
23331 23331 cons(new_string("One"),
23332 23332 cons(app,
23333   -cons(new_integer(851473),
  23333 +cons(new_integer(846097),
23334 23334 cons(cons(symbol,
23335   -cons(new_integer(851472),
  23335 +cons(new_integer(846096),
23336 23336 new_string("forget"))),
23337 23337 cons(cons(app,
23338   -cons(new_integer(851477),
  23338 +cons(new_integer(846101),
23339 23339 cons(cons(symbol,
23340   -cons(new_integer(851476),
  23340 +cons(new_integer(846100),
23341 23341 new_string("put"))),
23342 23342 cons(cons(symbol,
23343   -cons(new_integer(851479),
  23343 +cons(new_integer(846103),
23344 23344 new_string("ba"))),
23345 23345 cons(cons(app,
23346   -cons(new_integer(851482),
  23346 +cons(new_integer(846106),
23347 23347 cons(cons(symbol,
23348   -cons(new_integer(851482),
  23348 +cons(new_integer(846106),
23349 23349 new_string("+"))),
23350 23350 cons(cons(symbol,
23351   -cons(new_integer(851481),
  23351 +cons(new_integer(846105),
23352 23352 new_string("i"))),
23353 23353 cons(cons(integer_10,
23354   -cons(new_integer(851483),
  23354 +cons(new_integer(846107),
23355 23355 cons(new_integer(1),
23356 23356 nil))),
23357 23357 nil))))),
23358 23358 cons(cons(symbol,
23359   -cons(new_integer(851486),
  23359 +cons(new_integer(846110),
23360 23360 new_string("b2"))),
23361 23361 nil)))))),
23362 23362 nil))))))),
23363 23363 cons(cons(cons(new_string("unique"),
23364 23364 nil),
23365   -cons(new_integer(851489),
  23365 +cons(new_integer(846113),
23366 23366 cons(cond,
23367   -cons(new_integer(851745),
  23367 +cons(new_integer(846369),
23368 23368 cons(cons(of_type,
23369   -cons(new_integer(851745),
  23369 +cons(new_integer(846369),
23370 23370 cons(new_string("One"),
23371 23371 cons(app,
23372   -cons(new_integer(851729),
  23372 +cons(new_integer(846353),
23373 23373 cons(cons(symbol,
23374   -cons(new_integer(851728),
  23374 +cons(new_integer(846352),
23375 23375 new_string("forget"))),
23376 23376 cons(cons(app,
23377   -cons(new_integer(851733),
  23377 +cons(new_integer(846357),
23378 23378 cons(cons(symbol,
23379   -cons(new_integer(851732),
  23379 +cons(new_integer(846356),
23380 23380 new_string("put"))),
23381 23381 cons(cons(symbol,
23382   -cons(new_integer(851735),
  23382 +cons(new_integer(846359),
23383 23383 new_string("ba"))),
23384 23384 cons(cons(app,
23385   -cons(new_integer(851738),
  23385 +cons(new_integer(846362),
23386 23386 cons(cons(symbol,
23387   -cons(new_integer(851738),
  23387 +cons(new_integer(846362),
23388 23388 new_string("+"))),
23389 23389 cons(cons(symbol,
23390   -cons(new_integer(851737),
  23390 +cons(new_integer(846361),
23391 23391 new_string("i"))),
23392 23392 cons(cons(integer_10,
23393   -cons(new_integer(851739),
  23393 +cons(new_integer(846363),
23394 23394 cons(new_integer(2),
23395 23395 nil))),
23396 23396 nil))))),
23397 23397 cons(cons(symbol,
23398   -cons(new_integer(851742),
  23398 +cons(new_integer(846366),
23399 23399 new_string("b1"))),
23400 23400 nil)))))),
23401 23401 nil))))))),
23402 23402 cons(cons(cons(new_string("unique"),
23403 23403 nil),
23404   -cons(new_integer(851745),
  23404 +cons(new_integer(846369),
23405 23405 cons(app,
23406   -cons(new_integer(851985),
  23406 +cons(new_integer(846609),
23407 23407 cons(cons(symbol,
23408   -cons(new_integer(851984),
  23408 +cons(new_integer(846608),
23409 23409 new_string("forget"))),
23410 23410 cons(cons(app,
23411   -cons(new_integer(851989),
  23411 +cons(new_integer(846613),
23412 23412 cons(cons(symbol,
23413   -cons(new_integer(851988),
  23413 +cons(new_integer(846612),
23414 23414 new_string("put"))),
23415 23415 cons(cons(symbol,
23416   -cons(new_integer(851991),
  23416 +cons(new_integer(846615),
23417 23417 new_string("ba"))),
23418 23418 cons(cons(app,
23419   -cons(new_integer(851994),
  23419 +cons(new_integer(846618),
23420 23420 cons(cons(symbol,
23421   -cons(new_integer(851994),
  23421 +cons(new_integer(846618),
23422 23422 new_string("+"))),
23423 23423 cons(cons(symbol,
23424   -cons(new_integer(851993),
  23424 +cons(new_integer(846617),
23425 23425 new_string("i"))),
23426 23426 cons(cons(integer_10,
23427   -cons(new_integer(851995),
  23427 +cons(new_integer(846619),
23428 23428 cons(new_integer(3),
23429 23429 nil))),
23430 23430 nil))))),
23431 23431 cons(cons(symbol,
23432   -cons(new_integer(851998),
  23432 +cons(new_integer(846622),
23433 23433 new_string("b0"))),
23434 23434 nil)))))),
23435 23435 nil)))))),
... ... @@ -23441,7 +23441,7 @@ nil)))))),
23441 23441 nil)))))),
23442 23442 nil)))));
23443 23443  
23444   -new_op_scheme(1705998,0,
  23444 +new_op_scheme(1695246,0,
23445 23445 new_string("One"),
23446 23446 cons(new_string("£fill_transitions_one_state"),
23447 23447 nil),
... ... @@ -23456,73 +23456,73 @@ cons(cons(type_Int,
23456 23456 new_string("i")),
23457 23457 nil))),
23458 23458 cons(cond,
23459   -cons(new_integer(854790),
  23459 +cons(new_integer(849414),
23460 23460 cons(cons(symbol,
23461   -cons(new_integer(854792),
  23461 +cons(new_integer(849416),
23462 23462 new_string("l"))),
23463 23463 cons(cons(cons(new_string("[]"),
23464 23464 nil),
23465   -cons(new_integer(855312),
  23465 +cons(new_integer(849936),
23466 23466 cons(symbol,
23467   -cons(new_integer(855319),
  23467 +cons(new_integer(849943),
23468 23468 new_string("unique"))))),
23469 23469 cons(cons(cons(new_string("[.]"),
23470 23470 cons(new_string("h"),
23471 23471 cons(new_string("t"),
23472 23472 nil))),
23473   -cons(new_integer(855572),
  23473 +cons(new_integer(850196),
23474 23474 cons(cond,
23475   -cons(new_integer(855575),
  23475 +cons(new_integer(850199),
23476 23476 cons(cons(symbol,
23477   -cons(new_integer(855577),
  23477 +cons(new_integer(850201),
23478 23478 new_string("h"))),
23479 23479 cons(cons(cons(new_string("transition"),
23480 23480 cons(new_string("c"),
23481 23481 cons(new_string("s"),
23482 23482 nil))),
23483   -cons(new_integer(855601),
  23483 +cons(new_integer(850225),
23484 23484 cons(cond,
23485   -cons(new_integer(855848),
  23485 +cons(new_integer(850472),
23486 23486 cons(cons(of_type,
23487   -cons(new_integer(855848),
  23487 +cons(new_integer(850472),
23488 23488 cons(new_string("One"),
23489 23489 cons(app,
23490   -cons(new_integer(855825),
  23490 +cons(new_integer(850449),
23491 23491 cons(cons(symbol,
23492   -cons(new_integer(855824),
  23492 +cons(new_integer(850448),
23493 23493 new_string("£put32"))),
23494 23494 cons(cons(symbol,
23495   -cons(new_integer(855828),
  23495 +cons(new_integer(850452),
23496 23496 new_string("sba"))),
23497 23497 cons(cons(app,
23498   -cons(new_integer(855831),
  23498 +cons(new_integer(850455),
23499 23499 cons(cons(symbol,
23500   -cons(new_integer(855831),
  23500 +cons(new_integer(850455),
23501 23501 new_string("+"))),
23502 23502 cons(cons(symbol,
23503   -cons(new_integer(855830),
  23503 +cons(new_integer(850454),
23504 23504 new_string("i"))),
23505 23505 cons(cons(app,
23506   -cons(new_integer(855833),
  23506 +cons(new_integer(850457),
23507 23507 cons(cons(symbol,
23508   -cons(new_integer(855833),
  23508 +cons(new_integer(850457),
23509 23509 new_string("*"))),
23510 23510 cons(cons(integer_10,
23511   -cons(new_integer(855832),
  23511 +cons(new_integer(850456),
23512 23512 cons(new_integer(4),
23513 23513 nil))),
23514 23514 cons(cons(app,
23515   -cons(new_integer(855840),
  23515 +cons(new_integer(850464),
23516 23516 cons(cons(symbol,
23517   -cons(new_integer(855839),
  23517 +cons(new_integer(850463),
23518 23518 new_string("to_Int"))),
23519 23519 cons(cons(app,
23520   -cons(new_integer(855843),
  23520 +cons(new_integer(850467),
23521 23521 cons(cons(symbol,
23522   -cons(new_integer(855843),
  23522 +cons(new_integer(850467),
23523 23523 new_string("[.]"))),
23524 23524 cons(cons(symbol,
23525   -cons(new_integer(855842),
  23525 +cons(new_integer(850466),
23526 23526 new_string("c"))),
23527 23527 cons(cons(symbol,
23528 23528 cons(new_integer(0),
... ... @@ -23532,32 +23532,32 @@ nil)))),
23532 23532 nil))))),
23533 23533 nil))))),
23534 23534 cons(cons(symbol,
23535   -cons(new_integer(855846),
  23535 +cons(new_integer(850470),
23536 23536 new_string("s"))),
23537 23537 nil))))))))),
23538 23538 cons(cons(cons(new_string("unique"),
23539 23539 nil),
23540   -cons(new_integer(855848),
  23540 +cons(new_integer(850472),
23541 23541 cons(app,
23542   -cons(new_integer(856102),
  23542 +cons(new_integer(850726),
23543 23543 cons(cons(symbol,
23544   -cons(new_integer(856101),
  23544 +cons(new_integer(850725),
23545 23545 new_string("£fill_transitions_one_state"))),
23546 23546 cons(cons(symbol,
23547   -cons(new_integer(856103),
  23547 +cons(new_integer(850727),
23548 23548 new_string("t"))),
23549 23549 cons(cons(symbol,
23550   -cons(new_integer(856107),
  23550 +cons(new_integer(850731),
23551 23551 new_string("sba"))),
23552 23552 cons(cons(symbol,
23553   -cons(new_integer(856109),
  23553 +cons(new_integer(850733),
23554 23554 new_string("i"))),
23555 23555 nil)))))))),
23556 23556 nil)))))),
23557 23557 nil)))))),
23558 23558 nil))))));
23559 23559  
23560   -new_op_scheme(1713678,0,
  23560 +new_op_scheme(1702926,0,
23561 23561 new_string("One"),
23562 23562 cons(new_string("£fill_transitions"),
23563 23563 nil),
... ... @@ -23572,104 +23572,104 @@ cons(cons(type_Int,
23572 23572 new_string("i")),
23573 23573 nil))),
23574 23574 cons(cond,
23575   -cons(new_integer(858630),
  23575 +cons(new_integer(853254),
23576 23576 cons(cons(symbol,
23577   -cons(new_integer(858632),
  23577 +cons(new_integer(853256),
23578 23578 new_string("l"))),
23579 23579 cons(cons(cons(new_string("[]"),
23580 23580 nil),
23581   -cons(new_integer(859152),
  23581 +cons(new_integer(853776),
23582 23582 cons(symbol,
23583   -cons(new_integer(859159),
  23583 +cons(new_integer(853783),
23584 23584 new_string("unique"))))),
23585 23585 cons(cons(cons(new_string("[.]"),
23586 23586 cons(new_string("h"),
23587 23587 cons(new_string("t"),
23588 23588 nil))),
23589   -cons(new_integer(859412),
  23589 +cons(new_integer(854036),
23590 23590 cons(cond,
23591   -cons(new_integer(860428),
  23591 +cons(new_integer(855052),
23592 23592 cons(cons(of_type,
23593   -cons(new_integer(860428),
  23593 +cons(new_integer(855052),
23594 23594 cons(new_string("One"),
23595 23595 cons(cond,
23596   -cons(new_integer(859415),
  23596 +cons(new_integer(854039),
23597 23597 cons(cons(symbol,
23598   -cons(new_integer(859417),
  23598 +cons(new_integer(854041),
23599 23599 new_string("h"))),
23600 23600 cons(cons(cons(new_string("rejecting"),
23601 23601 cons(new_string("tr"),
23602 23602 nil)),
23603   -cons(new_integer(859934),
  23603 +cons(new_integer(854558),
23604 23604 cons(app,
23605   -cons(new_integer(859963),
  23605 +cons(new_integer(854587),
23606 23606 cons(cons(symbol,
23607   -cons(new_integer(859962),
  23607 +cons(new_integer(854586),
23608 23608 new_string("£fill_transitions_one_state"))),
23609 23609 cons(cons(symbol,
23610   -cons(new_integer(859965),
  23610 +cons(new_integer(854589),
23611 23611 new_string("tr"))),
23612 23612 cons(cons(symbol,
23613   -cons(new_integer(859969),
  23613 +cons(new_integer(854593),
23614 23614 new_string("sba"))),
23615 23615 cons(cons(symbol,
23616   -cons(new_integer(859971),
  23616 +cons(new_integer(854595),
23617 23617 new_string("i"))),
23618 23618 nil)))))))),
23619 23619 cons(cons(cons(new_string("accepting"),
23620 23620 cons(new_string("tr"),
23621 23621 nil)),
23622   -cons(new_integer(860190),
  23622 +cons(new_integer(854814),
23623 23623 cons(app,
23624   -cons(new_integer(860219),
  23624 +cons(new_integer(854843),
23625 23625 cons(cons(symbol,
23626   -cons(new_integer(860218),
  23626 +cons(new_integer(854842),
23627 23627 new_string("£fill_transitions_one_state"))),
23628 23628 cons(cons(symbol,
23629   -cons(new_integer(860221),
  23629 +cons(new_integer(854845),
23630 23630 new_string("tr"))),
23631 23631 cons(cons(symbol,
23632   -cons(new_integer(860225),
  23632 +cons(new_integer(854849),
23633 23633 new_string("sba"))),
23634 23634 cons(cons(symbol,
23635   -cons(new_integer(860227),
  23635 +cons(new_integer(854851),
23636 23636 new_string("i"))),
23637 23637 nil)))))))),
23638 23638 nil)))))))),
23639 23639 cons(cons(cons(new_string("unique"),
23640 23640 nil),
23641   -cons(new_integer(860428),
  23641 +cons(new_integer(855052),
23642 23642 cons(app,
23643   -cons(new_integer(860700),
  23643 +cons(new_integer(855324),
23644 23644 cons(cons(symbol,
23645   -cons(new_integer(860699),
  23645 +cons(new_integer(855323),
23646 23646 new_string("£fill_transitions"))),
23647 23647 cons(cons(symbol,
23648   -cons(new_integer(860701),
  23648 +cons(new_integer(855325),
23649 23649 new_string("t"))),
23650 23650 cons(cons(symbol,
23651   -cons(new_integer(860705),
  23651 +cons(new_integer(855329),
23652 23652 new_string("sba"))),
23653 23653 cons(cons(app,
23654   -cons(new_integer(860708),
  23654 +cons(new_integer(855332),
23655 23655 cons(cons(symbol,
23656   -cons(new_integer(860708),
  23656 +cons(new_integer(855332),
23657 23657 new_string("+"))),
23658 23658 cons(cons(symbol,
23659   -cons(new_integer(860707),
  23659 +cons(new_integer(855331),
23660 23660 new_string("i"))),
23661 23661 cons(cons(app,
23662   -cons(new_integer(860712),
  23662 +cons(new_integer(855336),
23663 23663 cons(cons(symbol,
23664   -cons(new_integer(860712),
  23664 +cons(new_integer(855336),
23665 23665 new_string("*"))),
23666 23666 cons(cons(integer_10,
23667   -cons(new_integer(860711),
  23667 +cons(new_integer(855335),
23668 23668 cons(new_integer(1),
23669 23669 cons(new_integer(0),
23670 23670 nil)))),
23671 23671 cons(cons(integer_10,
23672   -cons(new_integer(860713),
  23672 +cons(new_integer(855337),
23673 23673 cons(new_integer(4),
23674 23674 nil))),
23675 23675 nil))))),
... ... @@ -23678,7 +23678,7 @@ nil)))))))),
23678 23678 nil)))))),
23679 23679 nil))))));
23680 23680  
23681   -new_op_scheme(1723406,0,
  23681 +new_op_scheme(1712654,0,
23682 23682 type_ByteArray,
23683 23683 cons(new_string("£make_second_byte_array"),
23684 23684 nil),
... ... @@ -23689,89 +23689,89 @@ nil))),
23689 23689 new_string("l")),
23690 23690 nil),
23691 23691 cons(with,
23692   -cons(new_integer(862993),
  23692 +cons(new_integer(857617),
23693 23693 cons(new_string("ns"),
23694 23694 cons(cons(app,
23695   -cons(new_integer(863002),
  23695 +cons(new_integer(857626),
23696 23696 cons(cons(symbol,
23697   -cons(new_integer(863001),
  23697 +cons(new_integer(857625),
23698 23698 new_string("£length"))),
23699 23699 cons(cons(symbol,
23700   -cons(new_integer(863003),
  23700 +cons(new_integer(857627),
23701 23701 new_string("l"))),
23702 23702 nil)))),
23703 23703 cons(with,
23704   -cons(new_integer(863249),
  23704 +cons(new_integer(857873),
23705 23705 cons(new_string("sba"),
23706 23706 cons(cons(app,
23707   -cons(new_integer(863270),
  23707 +cons(new_integer(857894),
23708 23708 cons(cons(symbol,
23709   -cons(new_integer(863269),
  23709 +cons(new_integer(857893),
23710 23710 new_string("constant_byte_array"))),
23711 23711 cons(cons(app,
23712   -cons(new_integer(863274),
  23712 +cons(new_integer(857898),
23713 23713 cons(cons(symbol,
23714   -cons(new_integer(863274),
  23714 +cons(new_integer(857898),
23715 23715 new_string("*"))),
23716 23716 cons(cons(integer_10,
23717   -cons(new_integer(863273),
  23717 +cons(new_integer(857897),
23718 23718 cons(new_integer(1),
23719 23719 cons(new_integer(0),
23720 23720 nil)))),
23721 23721 cons(cons(app,
23722   -cons(new_integer(863277),
  23722 +cons(new_integer(857901),
23723 23723 cons(cons(symbol,
23724   -cons(new_integer(863277),
  23724 +cons(new_integer(857901),
23725 23725 new_string("*"))),
23726 23726 cons(cons(symbol,
23727   -cons(new_integer(863276),
  23727 +cons(new_integer(857900),
23728 23728 new_string("ns"))),
23729 23729 cons(cons(integer_10,
23730   -cons(new_integer(863278),
  23730 +cons(new_integer(857902),
23731 23731 cons(new_integer(4),
23732 23732 nil))),
23733 23733 nil))))),
23734 23734 nil))))),
23735 23735 cons(cons(app,
23736   -cons(new_integer(863280),
  23736 +cons(new_integer(857904),
23737 23737 cons(cons(symbol,
23738   -cons(new_integer(863280),
  23738 +cons(new_integer(857904),
23739 23739 new_string("-"))),
23740 23740 cons(cons(integer_10,
23741   -cons(new_integer(863281),
  23741 +cons(new_integer(857905),
23742 23742 cons(new_integer(1),
23743 23743 nil))),
23744 23744 nil)))),
23745 23745 nil))))),
23746 23746 cons(cond,
23747   -cons(new_integer(863521),
  23747 +cons(new_integer(858145),
23748 23748 cons(cons(of_type,
23749   -cons(new_integer(863521),
  23749 +cons(new_integer(858145),
23750 23750 cons(new_string("One"),
23751 23751 cons(app,
23752   -cons(new_integer(863512),
  23752 +cons(new_integer(858136),
23753 23753 cons(cons(symbol,
23754   -cons(new_integer(863512),
  23754 +cons(new_integer(858136),
23755 23755 new_string("£fill_transitions"))),
23756 23756 cons(cons(symbol,
23757   -cons(new_integer(863513),
  23757 +cons(new_integer(858137),
23758 23758 new_string("l"))),
23759 23759 cons(cons(symbol,
23760   -cons(new_integer(863517),
  23760 +cons(new_integer(858141),
23761 23761 new_string("sba"))),
23762 23762 cons(cons(integer_10,
23763   -cons(new_integer(863519),
  23763 +cons(new_integer(858143),
23764 23764 nil)),
23765 23765 nil))))))))),
23766 23766 cons(cons(cons(new_string("unique"),
23767 23767 nil),
23768   -cons(new_integer(863521),
  23768 +cons(new_integer(858145),
23769 23769 cons(symbol,
23770   -cons(new_integer(863753),
  23770 +cons(new_integer(858377),
23771 23771 new_string("sba"))))),
23772 23772 nil)))))))))))));
23773 23773  
23774   -new_op_scheme(1730062,0,
  23774 +new_op_scheme(1719310,0,
23775 23775 new_string("FastLexerOutput"),
23776 23776 cons(new_string("£run_fast_lexer"),
23777 23777 nil),
... ... @@ -23787,11 +23787,11 @@ cons(cons(new_string(&quot;Word32&quot;),
23787 23787 new_string("start_state")),
23788 23788 nil))))),
23789 23789 cons(avm,
23790   -cons(new_integer(867086),
  23790 +cons(new_integer(861710),
23791 23791 cons(run_fast_lexer,
23792 23792 nil))));
23793 23793  
23794   -new_op_scheme(1735708,1,
  23794 +new_op_scheme(1724956,1,
23795 23795 new_string("MakeFastLexerResult"),
23796 23796 cons(new_string("make_fast_lexer"),
23797 23797 nil),
... ... @@ -23802,58 +23802,58 @@ nil))),
23802 23802 new_string("l")),
23803 23803 nil),
23804 23804 cons(cond,
23805   -cons(new_integer(869126),
  23805 +cons(new_integer(863750),
23806 23806 cons(cons(app,
23807   -cons(new_integer(869140),
  23807 +cons(new_integer(863764),
23808 23808 cons(cons(symbol,
23809   -cons(new_integer(869139),
  23809 +cons(new_integer(863763),
23810 23810 new_string("£check_lexer"))),
23811 23811 cons(cons(symbol,
23812   -cons(new_integer(869141),
  23812 +cons(new_integer(863765),
23813 23813 new_string("l"))),
23814 23814 nil)))),
23815 23815 cons(cons(cons(new_string("error"),
23816 23816 cons(new_string("e"),
23817 23817 nil)),
23818   -cons(new_integer(869653),
  23818 +cons(new_integer(864277),
23819 23819 cons(symbol,
23820   -cons(new_integer(869655),
  23820 +cons(new_integer(864279),
23821 23821 new_string("e"))))),
23822 23822 cons(cons(cons(new_string("ok"),
23823 23823 cons(new_string("_"),
23824 23824 nil)),
23825   -cons(new_integer(869906),
  23825 +cons(new_integer(864530),
23826 23826 cons(with,
23827   -cons(new_integer(870164),
  23827 +cons(new_integer(864788),
23828 23828 cons(new_string("fba"),
23829 23829 cons(cons(app,
23830   -cons(new_integer(870188),
  23830 +cons(new_integer(864812),
23831 23831 cons(cons(symbol,
23832   -cons(new_integer(870187),
  23832 +cons(new_integer(864811),
23833 23833 new_string("£make_first_byte_array"))),
23834 23834 cons(cons(symbol,
23835   -cons(new_integer(870189),
  23835 +cons(new_integer(864813),
23836 23836 new_string("l"))),
23837 23837 nil)))),
23838 23838 cons(with,
23839   -cons(new_integer(870420),
  23839 +cons(new_integer(865044),
23840 23840 cons(new_string("sba"),
23841 23841 cons(cons(app,
23842   -cons(new_integer(870445),
  23842 +cons(new_integer(865069),
23843 23843 cons(cons(symbol,
23844   -cons(new_integer(870444),
  23844 +cons(new_integer(865068),
23845 23845 new_string("£make_second_byte_array"))),
23846 23846 cons(cons(symbol,
23847   -cons(new_integer(870446),
  23847 +cons(new_integer(865070),
23848 23848 new_string("l"))),
23849 23849 nil)))),
23850 23850 cons(app,
23851   -cons(new_integer(870669),
  23851 +cons(new_integer(865293),
23852 23852 cons(cons(symbol,
23853   -cons(new_integer(870669),
  23853 +cons(new_integer(865293),
23854 23854 new_string("ok"))),
23855 23855 cons(cons(lambda,
23856   -cons(new_integer(870931),
  23856 +cons(new_integer(865555),
23857 23857 cons(cons(cons(type_ByteArray,
23858 23858 new_string("input")),
23859 23859 cons(cons(type_Int,
... ... @@ -23862,35 +23862,35 @@ cons(cons(new_string(&quot;Word32&quot;),
23862 23862 new_string("starting_state")),
23863 23863 nil))),
23864 23864 cons(app,
23865   -cons(new_integer(870948),
  23865 +cons(new_integer(865572),
23866 23866 cons(cons(symbol,
23867   -cons(new_integer(870947),
  23867 +cons(new_integer(865571),
23868 23868 new_string("£run_fast_lexer"))),
23869 23869 cons(cons(symbol,
23870   -cons(new_integer(870951),
  23870 +cons(new_integer(865575),
23871 23871 new_string("fba"))),
23872 23872 cons(cons(symbol,
23873   -cons(new_integer(870955),
  23873 +cons(new_integer(865579),
23874 23874 new_string("sba"))),
23875 23875 cons(cons(symbol,
23876   -cons(new_integer(870961),
  23876 +cons(new_integer(865585),
23877 23877 new_string("input"))),
23878 23878 cons(cons(symbol,
23879   -cons(new_integer(870970),
  23879 +cons(new_integer(865594),
23880 23880 new_string("position"))),
23881 23881 cons(cons(symbol,
23882   -cons(new_integer(870985),
  23882 +cons(new_integer(865609),
23883 23883 new_string("starting_state"))),
23884 23884 nil))))))))))),
23885 23885 nil)))))))))))))),
23886 23886 nil))))));
23887 23887  
23888   -new_op_scheme(1758236,1,
  23888 +new_op_scheme(1747484,1,
23889 23889 new_string("One"),
23890 23890 cons(new_string("make_segment_violation"),
23891 23891 nil),
23892 23892 nil,
23893 23893 cons(avm,
23894   -cons(new_integer(879162),
  23894 +cons(new_integer(873786),
23895 23895 cons(make_segment_violation,
23896 23896 nil))));
... ...
anubis_dev/library/test/all_unit_test.anubis
  Show/Hide comments   View file @713a9d3
1 1  
2 2 read tools/basis.anubis
3 3 read tools/unit_test.anubis
4   -read test/serialize_test.anubis
  4 +read serialize_test.anubis
5 5 read test/system/convert.unit_test.anubis
6 6 read test/system/message_queue.unit_test.anubis
7 7 read test/system/message_transceiver.unit_test.anubis
... ... @@ -17,14 +17,14 @@ define List(UnitTestSuite)
17 17 One dummy
18 18 )=
19 19 [
20   - make_serialize_test_suite,
21   - make_convert_test_suite,
22   - make_message_queue_test_suite,
23   - make_wordXX_test_suite,
24   - make_Int_test_suite,
  20 + //make_serialize_test_suite,
  21 + //make_convert_test_suite,
  22 + //make_message_queue_test_suite,
  23 + //make_wordXX_test_suite,
  24 + make_Int_test_suite
25 25 //make_decimal_scan_test_suite,
26   - make_string_test_suite,
27   - make_files_test_suite,
  26 + //make_string_test_suite,
  27 + //make_files_test_suite,
28 28 ]
29 29 .
30 30  
... ...
anubis_dev/library/test/system/Int.unit_test.anubis
  Show/Hide comments   View file @713a9d3
... ... @@ -201,15 +201,18 @@ define One
201 201  
202 202  
203 203  
204   - euclid_test(ut,-8714323245657741096810933250965314670986443189800987647754312345678909809871898553145598776542576454266578087576436212564809868765462644876586536431543254465,
205   - 0xffffffff56423432564234325642343256423432,"division 20");
  204 + euclid_test(ut,-8714323245657741096810933250965314670986443189800987647754312345678909809871898553145598776542576454266578087576436212564809868765462644876586536431543254465, 0xffffffff56423432564234325642343256423432,"division 20");
  205 +
  206 +
  207 + //euclid_test(ut,8714323245657741096810933250965314670986443189800987647754312345678909809871898553145598776542576454266578087576436212564809868765462644876586536431543254465, -0xffffffff56423432564234325642343256423432,"division 21");
  208 +
  209 + //forget(-8714323245657741096810933250965314670986443189800987647754312345678909809871898553145598776542576454266578087576436212564809868765462644876586536431543254465/(Int)-0xffffffff56423432564234325642343256423432);
  210 +
  211 + euclid_test(ut,-8714323245657741096810933250965314670986443189800987647754312345678909809871898553145598776542576454266578087576436212564809868765462644876586536431543254465, -0xffffffff56423432564234325642343256423432,"division 22");
  212 +
  213 + //euclid_test(ut,0x1111111111111111111111111111,2,"division 23");
206 214  
207 215  
208   - euclid_test(ut,8714323245657741096810933250965314670986443189800987647754312345678909809871898553145598776542576454266578087576436212564809868765462644876586536431543254465,
209   - -0xffffffff56423432564234325642343256423432,"division 21");
210   - euclid_test(ut,-8714323245657741096810933250965314670986443189800987647754312345678909809871898553145598776542576454266578087576436212564809868765462644876586536431543254465,
211   - -0xffffffff56423432564234325642343256423432,"division 22");
212   - euclid_test(ut,0x1111111111111111111111111111,2,"division 23");
213 216  
214 217 /* Integral part of Floats */
215 218 assertIsSame(ut, integral_part(0.345), (Int)0, "integral part 1");
... ... @@ -217,6 +220,8 @@ define One
217 220 assertIsSame(ut, integral_part(16.345), (Int)16, "integral part 3");
218 221 /* need more tests here for very big floats */
219 222  
  223 +
  224 +
220 225 unique.
221 226  
222 227  
... ...
anubis_dev/vm/src/serialize.cpp
  Show/Hide comments   View file @713a9d3
... ... @@ -221,7 +221,7 @@ si_decl(type_Int32)
221 221 #endif
222 222  
223 223  
224   -si_decl(type_Int)
  224 +si_decl(type_Int)
225 225 {
226 226 U32 x = *(MAM(m_SP)-1); /* the big integer */
227 227  
... ... @@ -236,7 +236,7 @@ si_decl(type_Int)
236 236 else
237 237 {
238 238 /* a big one */
239   - U32 *seg = (U32 *)(*(MAM(m_SP)-1)); /* the segment */
  239 + U32 *seg = (U32 *)(x&pointer_mask); /* the segment */
240 240 U32 nb = seg[1]; /* number of bigits */
241 241 U32 i = 0;
242 242  
... ... @@ -249,22 +249,24 @@ si_decl(type_Int)
249 249 MAM(m_IP) += 1;
250 250 }
251 251  
252   -si_decl(indirect_type_Int)
  252 +si_decl(indirect_type_Int)
253 253 {
254 254 U32 x = *((U32 *)(*(MAM(m_SP)-1))); /* the big Int */
255 255  
  256 + //show_int(x);
  257 +
256 258 if (x&1)
257 259 {
258 260 /* a small one */
259 261 check_serial(9); /* sign + two words */
260   - put_serial_8(x&2); /* sign bit: 0 = positive, 1 = negative */
  262 + put_serial_8(!!(x&2)); /* sign bit: 0 = positive, 1 = negative */
261 263 put_serial_32(1); /* number of bigits: 1 bigit */
262 264 put_serial_32(x >> 2); /* the bigit */
263 265 }
264 266 else
265 267 {
266 268 /* a big one */
267   - U32 *seg = (U32 *)(*(MAM(m_SP)-1)); /* the segment */
  269 + U32 *seg = (U32 *)(x&pointer_mask); /* the segment */
268 270 U32 nb = seg[1]; /* number of bigits */
269 271 U32 i = 0;
270 272  
... ... @@ -274,6 +276,8 @@ si_decl(indirect_type_Int)
274 276 for (i = 2; i < (nb+2); i++) /* put the bigits */
275 277 put_serial_32(seg[i]);
276 278 }
  279 +
  280 + (*(MAM(m_SP)-1)) += 4; /* advance the pointer */
277 281 MAM(m_IP) += 1;
278 282 }
279 283  
... ... @@ -328,6 +332,7 @@ si_decl(indirect_type_mixed)
328 332 check_stack(2); /* in case we call the pseudo code */
329 333 check_serial(5); /* enough for a small alternative (no pseudo code call) */
330 334  
  335 +
331 336 p = (U32 *)(*(MAM(m_SP)-1)); /* get 'p' */
332 337 MAM(m_I) = (*p)&3; /* get mixed index */
333 338  
... ... @@ -349,7 +354,7 @@ si_decl(indirect_type_mixed)
349 354 (*(MAM(m_SP)-1)) += 4; /* increment pointer */
350 355 assert(get8(0) == i_pop1); /* next instruction must be 'pop1' */
351 356 MAM(m_SP)++; /* to annihilate the effect of this 'pop1' */
352   - }
  357 + }
353 358 }
354 359  
355 360  
... ... @@ -1139,7 +1144,7 @@ ui_decl(type_ByteArray)
1139 1144  
1140 1145  
1141 1146  
1142   -ui_decl(type_Int)
  1147 +ui_decl(type_Int)
1143 1148 {
1144 1149 U32 nb; /* number of bigits */
1145 1150 U32 sign;
... ... @@ -1153,6 +1158,7 @@ ui_decl(type_Int)
1153 1158 {
1154 1159 /* get the sign */
1155 1160 get_serial_8(sign);
  1161 + sign = !!sign; /* must be 0 or 1 */
1156 1162  
1157 1163 /* get number of bigits */
1158 1164 peek_serial_32(nb); /* no side effect */
... ... @@ -1173,7 +1179,7 @@ ui_decl(type_Int)
1173 1179 U32 bigit;
1174 1180 MAM(m_serial_next) += 4; /* skip nb; revertible side effect */
1175 1181 peek_serial_32(bigit); /* get the bigit (no side effect) */
1176   - if (bigit < 0x40000000) /* if small Nat */
  1182 + if (bigit < 0x40000000) /* if small Int */
1177 1183 {
1178 1184 MAM(m_R) = (bigit<<2)|(sign<<1)|1; /* make a small Nat */
1179 1185 MAM(m_serial_next) += 4; /* skip the bigit */
... ... @@ -1184,7 +1190,7 @@ ui_decl(type_Int)
1184 1190 if ((MAM(m_R) = MAM(m_allocator)->AllocateDataSegment(3)) == 0)
1185 1191 {
1186 1192 /* revert the side effect */
1187   - MAM(m_serial_next) -= 4;
  1193 + MAM(m_serial_next) -= 1+4;
1188 1194 MAM(m_status) = need_more_memory;
1189 1195 { MAM(m_steps) = 0; return; }
1190 1196 }
... ... @@ -1196,9 +1202,11 @@ ui_decl(type_Int)
1196 1202 else
1197 1203 {
1198 1204 U32 i;
1199   - /* at least 2 bigits (no side effect up to here) */
  1205 + /* at least 2 bigits */
1200 1206 if ((MAM(m_R) = MAM(m_allocator)->AllocateDataSegment(2+nb)) == 0)
1201 1207 {
  1208 + /* revert the side effect */
  1209 + MAM(m_serial_next) -= 1;
1202 1210 MAM(m_status) = need_more_memory;
1203 1211 { MAM(m_steps) = 0; return; }
1204 1212 }
... ... @@ -1233,6 +1241,7 @@ ui_decl(indirect_type_Int)
1233 1241 {
1234 1242 /* get sign */
1235 1243 get_serial_8(sign);
  1244 + sign = !!sign; /* must be 0 or 1 */
1236 1245  
1237 1246 /* get number of bigits */
1238 1247 peek_serial_32(nb); /* no side effect */
... ... @@ -1249,7 +1258,7 @@ ui_decl(indirect_type_Int)
1249 1258 }
1250 1259 else
1251 1260 {
1252   - assert(nb != 0); /* a big nat is always serialized with at least 1 bigit */
  1261 + assert(nb != 0); /* a big Int is always serialized with at least 1 bigit */
1253 1262 if (nb == 1)
1254 1263 {
1255 1264 /* 1 bigit only */
... ... @@ -1264,11 +1273,11 @@ ui_decl(indirect_type_Int)
1264 1273 }
1265 1274 else
1266 1275 {
1267   - /* big Nat with 1 bigit */
  1276 + /* big Int with 1 bigit */
1268 1277 if ((seg = MAM(m_allocator)->AllocateDataSegment(3)) == 0)
1269 1278 {
1270 1279 /* revert the side effect */
1271   - MAM(m_serial_next) -= 4;
  1280 + MAM(m_serial_next) -= 1+4;
1272 1281 MAM(m_status) = need_more_memory;
1273 1282 { MAM(m_steps) = 0; return; }
1274 1283 }
... ... @@ -1282,9 +1291,11 @@ ui_decl(indirect_type_Int)
1282 1291 else
1283 1292 {
1284 1293 U32 i;
1285   - /* at least 2 bigits (no side effect up to here) */
  1294 + /* at least 2 bigits */
1286 1295 if ((seg = MAM(m_allocator)->AllocateDataSegment(2+nb)) == 0)
1287 1296 {
  1297 + /* revert the side effect */
  1298 + MAM(m_serial_next) -= 1;
1288 1299 MAM(m_status) = need_more_memory;
1289 1300 { MAM(m_steps) = 0; return; }
1290 1301 }
... ...
anubis_dev/vm/src/syscall.cpp
  Show/Hide comments   View file @713a9d3
... ... @@ -8938,16 +8938,16 @@ ci_decl(syscall)
8938 8938 U32 i;
8939 8939 U32 yval = y>>2; /* the divisor as a bigit */
8940 8940 /* allocate a segment for the quotient */
8941   - if ((q = MAM(m_allocator)->AllocateDataSegment(2+((U32 *)x)[1])) == 0)
  8941 + if ((q = MAM(m_allocator)->AllocateDataSegment(2+((U32 *)(x&pointer_mask))[1])) == 0)
8942 8942 {
8943 8943 MAM(m_allocator)->FreeDataSegment((U32 *)pair);
8944 8944 MAM(m_allocator)->FreeDataSegment((U32 *)(MAM(m_R)));
8945 8945 MAM(m_status) = need_more_memory;
8946 8946 { MAM(m_steps) = 0; return; }
8947 8947 }
8948   - ((U32 *)q)[1] = ((U32 *)x)[1];
  8948 + ((U32 *)q)[1] = ((U32 *)(x&pointer_mask))[1];
8949 8949 /* the remainder must have at least one more bigits than the dividend (see vmint.cpp) */
8950   - if ((r = MAM(m_allocator)->AllocateDataSegment(3+((U32 *)x)[1])) == 0)
  8950 + if ((r = MAM(m_allocator)->AllocateDataSegment(3+((U32 *)(x&pointer_mask))[1])) == 0)
8951 8951 {
8952 8952 MAM(m_allocator)->FreeDataSegment((U32 *)q);
8953 8953 MAM(m_allocator)->FreeDataSegment((U32 *)pair);
... ... @@ -8955,12 +8955,12 @@ ci_decl(syscall)
8955 8955 MAM(m_status) = need_more_memory;
8956 8956 { MAM(m_steps) = 0; return; }
8957 8957 }
8958   - ((U32 *)r)[1] = ((U32 *)x)[1]+1;
  8958 + ((U32 *)r)[1] = ((U32 *)(x&pointer_mask))[1]+1;
8959 8959 /* fill the quotient and remainder with zeros */
8960 8960 for (i = 2; i < ((U32 *)q)[1]+2; i++) ((U32 *)q)[i] = 0;
8961 8961 for (i = 2; i < ((U32 *)r)[1]+2; i++) ((U32 *)r)[i] = 0;
8962 8962 {
8963   - divide_big_by_bigit(x,yval,0,q,r);
  8963 + divide_big_by_bigit(x&pointer_mask,yval,0,q,r);
8964 8964 }
8965 8965 }
8966 8966 else
... ... @@ -8970,16 +8970,16 @@ ci_decl(syscall)
8970 8970  
8971 8971 //printf("x big, y big\n");
8972 8972  
8973   - if ((q = MAM(m_allocator)->AllocateDataSegment(2+((U32 *)x)[1])) == 0)
  8973 + if ((q = MAM(m_allocator)->AllocateDataSegment(2+((U32 *)(x&pointer_mask))[1])) == 0)
8974 8974 {
8975 8975 MAM(m_allocator)->FreeDataSegment((U32 *)pair);
8976 8976 MAM(m_allocator)->FreeDataSegment((U32 *)(MAM(m_R)));
8977 8977 MAM(m_status) = need_more_memory;
8978 8978 { MAM(m_steps) = 0; return; }
8979 8979 }
8980   - ((U32 *)q)[1] = ((U32 *)x)[1];
  8980 + ((U32 *)q)[1] = ((U32 *)(x&pointer_mask))[1];
8981 8981 /* the remainder must have at least one more bigits than the dividend (see vmint.cpp) */
8982   - if ((r = MAM(m_allocator)->AllocateDataSegment(3+((U32 *)x)[1])) == 0)
  8982 + if ((r = MAM(m_allocator)->AllocateDataSegment(3+((U32 *)(x&pointer_mask))[1])) == 0)
8983 8983 {
8984 8984 MAM(m_allocator)->FreeDataSegment((U32 *)q);
8985 8985 MAM(m_allocator)->FreeDataSegment((U32 *)pair);
... ... @@ -8987,11 +8987,11 @@ ci_decl(syscall)
8987 8987 MAM(m_status) = need_more_memory;
8988 8988 { MAM(m_steps) = 0; return; }
8989 8989 }
8990   - ((U32 *)r)[1] = ((U32 *)x)[1]+1;
  8990 + ((U32 *)r)[1] = ((U32 *)(x&pointer_mask))[1]+1;
8991 8991 /* fill the quotient and the remainder with zeros */
8992 8992 for (i = 2; i < ((U32 *)q)[1]+2; i++) ((U32 *)q)[i] = 0;
8993 8993 for (i = 2; i < ((U32 *)r)[1]+3; i++) ((U32 *)r)[i] = 0;
8994   - divide_big_by_big(x,y,q,r);
  8994 + divide_big_by_big(x&pointer_mask,y&pointer_mask,q,r);
8995 8995 }
8996 8996 break;
8997 8997  
... ...
anubis_dev/vm/src/vm.h
  Show/Hide comments   View file @713a9d3
... ... @@ -19,6 +19,7 @@ extern U32 watched_code_size;
19 19 #endif
20 20  
21 21  
  22 +#define debug_vm
22 23  
23 24 #ifdef DEBUG
24 25 // Only defines following macro on debug mode
... ...
anubis_distrib/linux_install/bin/anbexec
View file @713a9d3
No preview for this file type
anubis_distrib/linux_install/bin/anubis
View file @713a9d3
No preview for this file type