#include "M3Runtime.h"

typedef struct { int tc; char* str; int len; } TXT; PRIVATE TXT txt1 = { 3, "parsing...\012", 12}; PRIVATE TXT txt2 = { 3, "binding...\012", 12};
PRIVATE TXT txt3 = { 3, "type checking...\012", 18}; PRIVATE TXT txt4 = { 3, "emitting code...\012", 18}; PRIVATE TXT txt5 = { 3, " error", 7};
PRIVATE TXT txt6 = { 3, "s", 2}; PRIVATE TXT txt7 = { 3, " and ", 6}; PRIVATE TXT txt8 = { 3, " warning", 9}; PRIVATE TXT txt9 = { 3, " encountered\012", 14};
#line 16 "../Interfaces/Type.i3"
#define t32 ADDRESS
#define t86 void
typedef int t1;
#line 116 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef struct { char* elts; int size[1]; } t74;
#line 16 "../Interfaces/Type.i3"
#define t50 t74
#define TC32 TC_Type__Map
IMPORT TYPE TC_Type__Map;
#line 16
IMPORT char VS_Type__Map__41dd9f4b33104fce;
#line 14 "../Interfaces/Expr.i3"
#define t35 ADDRESS
#define t52 ADDRESS
 typedef struct { TYPE self; int private; } t52_methods; 
#define t52_msize (sizeof (t52_methods))
typedef struct { ADDRESS methods; } t52_fields; 
#define t52_size (sizeof (t52_fields))
#define TC52 TC_UNTRACED_ROOT
IMPORT TYPE TC_UNTRACED_ROOT; IMPORT char VS_UNTRACED_ROOT__3e0964513fd6da20;
#line 16 "./M3.i3"
#define t26 ADDRESS
#define TC26 TC_M3__Expr
IMPORT TYPE TC_M3__Expr;
#line 16
IMPORT char VS_M3__Expr__8ae39aaa2d432477;
#line 14 "../Interfaces/Expr.i3"
#define t36 t74
#define TC35 TC_Expr__List
IMPORT TYPE TC_Expr__List;
#line 14
IMPORT char VS_Expr__List__3f87eceb2b9a246a;
#line 17 "./Scope.i3"
#define t40 ADDRESS
#define t17 ADDRESS
#define TC17 TC_M3__Value
IMPORT TYPE TC_M3__Value;
#line 15 "./M3.i3"
IMPORT char VS_M3__Value__6f64cf9c2cae25fb;
#line 17 "./Scope.i3"
#define t43 t74
#define TC40 TC_Scope__ValueList
IMPORT TYPE TC_Scope__ValueList;
#line 17
IMPORT char VS_Scope__ValueList__64bf053e22e4e53c;
#line 17 "../Interfaces/Type.i3"
#define t48 ADDRESS
#define t22 ADDRESS
#define TC22 TC_M3__Type
IMPORT TYPE TC_M3__Type;
#line 18 "./M3.i3"
IMPORT char VS_M3__Type__4d87bc25311f81d2;
#line 17 "../Interfaces/Type.i3"
typedef struct { t48 _next; t22 _type; } t49; 
#define TC48 TC_Type__List
IMPORT TYPE TC_Type__List;
#line 17
IMPORT char VS_Type__List__5791758e343becc1; 
#define t51 ADDRESS
#define TC51 TC_ADDRESS
IMPORT TYPE TC_ADDRESS; IMPORT char VS_ADDRESS__30f7308738738b44; 
#define t61 ADDRESS
#define TC61 TC_REFANY
IMPORT TYPE TC_REFANY; IMPORT char VS_REFANY__4b8748e831fc107a; 
#define t87 ADDRESS
#define TC87 TC_NULL
IMPORT TYPE TC_NULL; IMPORT char VS_NULL__fb50c7d53bec30dc;
#line 74 "Main.m3"
typedef t86 (*t2)(); typedef unsigned char t3;
#line 67
typedef t3 (*t4)();
#line 14 "../Interfaces/Module.i3"
#define t5 ADDRESS
#define TC5 TC_Module__T
IMPORT TYPE TC_Module__T;
#line 14
IMPORT char VS_Module__T__be7ead4a3afd8be5;
#line 11 "./Delay.i3"
#define t6 ADDRESS

#line 11
typedef struct { t2 _apply; } t6_methods; 
#define t6_msize (sizeof (t6_methods))
typedef struct {
#line 11
 int filler; } t6_fields; 
#define t6_size (sizeof (t6_fields))
#define TC6 TC_Delay__Closure
IMPORT TYPE TC_Delay__Closure;
#line 11
IMPORT char VS_Delay__Closure__94b4fe673a5d6ded; 
#define t62 ADDRESS
 typedef struct { TYPE self; int private; } t62_methods; 
#define t62_msize (sizeof (t62_methods))
typedef struct { ADDRESS methods; } t62_fields; 
#define t62_size (sizeof (t62_fields))
#define TC62 TC_ROOT
IMPORT TYPE TC_ROOT; IMPORT char VS_ROOT__349f58f628be0ac6; 
#define t62_MapProc TC_ROOT->mapProc
#define t7 ADDRESS
#define TC7 TC_Rd__T
IMPORT TYPE TC_Rd__T;
#line 83 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
IMPORT char VS_Rd__T__2555b70b3f7780b1; 
#define t7_MapProc TC_Rd__T->mapProc
#define t8 ADDRESS
#define TC8 TC_TEXT
IMPORT TYPE TC_TEXT; IMPORT char VS_TEXT__b7a92447326386f5; 
#define t8_MapProc TC_TEXT->mapProc
typedef t7 (*t9)();
#line 13 "./String.i3"
#define t10 ADDRESS
#define TC10 TC_String__T
IMPORT TYPE TC_String__T;
#line 13
IMPORT char VS_String__T__3a6c7dc12615e4ee;
#line 90 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
#define t11 ADDRESS
#define TC11 TC_Wr__T
IMPORT TYPE TC_Wr__T;
#line 90
IMPORT char VS_Wr__T__2555b70b3f7780b1; 
#define t11_MapProc TC_Wr__T->mapProc
typedef signed_char t12;
#line 63 "./Emit.i3"
typedef t12 (*t13)();
#line 19 "./String.i3"
typedef signed_char t65;
#line 65 "./Token.i3"
#define t63 t74
typedef struct { t10 elts[100]; } t66;
#line 17 "./String.i3"
typedef struct { t1 _top; t66 _stk; } t14;
#line 19 "./M3.i3"
#define t15 ADDRESS
#define TC15 TC_M3__Temp
IMPORT TYPE TC_M3__Temp;
#line 19
IMPORT char VS_M3__Temp__450b691937f03dae;
#line 16 "../Interfaces/Variable.i3"
#define t16 ADDRESS
#define TC16 TC_Variable__T
IMPORT TYPE TC_Variable__T;
#line 16
IMPORT char VS_Variable__T__be7ead4a3afd8be5; typedef double t18; typedef unsigned char t19;
#line 14 "./M3.i3"
#define t20 ADDRESS
#define TC20 TC_M3__Scope
IMPORT TYPE TC_M3__Scope;
#line 14
IMPORT char VS_M3__Scope__6e6d8848308d8a2d;
#line 38 "../Interfaces/Variable.i3"
typedef t15 (*t21)();
#line 24
typedef t16 (*t23)();
#line 14 "../Interfaces/Decl.i3"
typedef struct { t10 _alias; t3 _isExternal; t3 _isInline; t3 _isUnused; t3 _isObsolete; } t24;
#line 15 "./Token.i3"
typedef unsigned char t53;
#line 45
typedef struct { int elts[4]; } t25;
#line 16 "../Interfaces/Stmt.i3"
typedef unsigned char t31;
typedef struct { int elts[1]; } t27;
#line 17 "./M3.i3"
#define t28 ADDRESS
#define TC28 TC_M3__Stmt
IMPORT TYPE TC_M3__Stmt;
#line 17
IMPORT char VS_M3__Stmt__376b307627fc1f2f;
#line 27 "../Interfaces/Stmt.i3"
typedef void (*t29)();
#line 19
typedef t28 (*t30)();
#line 36 "../Interfaces/Expr.i3"
typedef t26 (*t33)();
#line 31
typedef t22 (*t34)();
#line 32 "../Interfaces/Module.i3"
typedef t10 (*t37)();
#line 30
typedef t20 (*t38)();
#line 18
typedef t5 (*t39)();
#line 14 "./String.i3"
typedef struct { t10 _module; t10 _item; } t41;
#line 38 "./Scope.i3"
typedef t17 (*t42)();
#line 18 "../Interfaces/Value.i3"
typedef unsigned char t44;
#line 40
typedef t44 (*t45)();
#line 121 "../Interfaces/Type.i3"
typedef t32 (*t46)();
#line 97
typedef t1 (*t47)();
#line 13 "./Scanner.i3"
typedef struct { t53 _token; t10 _string; t1 _value; t1 _offset; } t54; typedef int t55;
#line 249 ".ROOT/.boots/corelib/Interfaces/Rd.i3"
typedef t55 (*t56)();
#line 220
typedef t8 (*t57)();
#line 189
#define t58 t74
typedef t19 (*t59)();
#line 84
typedef unsigned char t60;
#line 65 "./Token.i3"
typedef struct { t10 elts[97]; } t64;
#line 111 ".ROOT/.boots/corelib/Interfaces/Fmt.i3"
#define t67 t74
typedef unsigned char t68; typedef float t69;
#line 14
typedef signed_char t70;
typedef unsigned char t71;
#line 67 ".ROOT/.boots/corelib/Interfaces/Text.i3"
typedef signed_char t72; typedef t72 (*t73)();
#line 91 ".ROOT/.boots/corelib/Interfaces/Wr.i3"
typedef unsigned char t75;
#line 15 ".ROOT/.boots/corelib/Interfaces/Thread.i3"
#define t76 ADDRESS
#define TC76 TC_Thread__T
IMPORT TYPE TC_Thread__T;
#line 15
IMPORT char VS_Thread__T__2555b70b3f7780b1; 
#define t76_MapProc TC_Thread__T->mapProc
typedef t61 (*t77)();



#define t78 ADDRESS
#define TC78 TC_Thread__Condition
IMPORT TYPE TC_Thread__Condition;
#line 21
IMPORT char VS_Thread__Condition__26d5968239e08f4e; 
#define t78_MapProc TC_Thread__Condition->mapProc
#define t79 ADDRESS
#define TC79 TC_MUTEX
IMPORT TYPE TC_MUTEX; IMPORT char VS_MUTEX__1f9d4e89391ab815; 
#define t79_MapProc TC_MUTEX->mapProc
typedef t76 (*t80)();
#line 23
#define t81 ADDRESS

#line 23
typedef struct { t77 _apply; } t81_methods; 
#define t81_msize (sizeof (t81_methods))
typedef struct {
#line 23
 int filler; } t81_fields; 
#define t81_size (sizeof (t81_fields))
#define TC81 TC_Thread__Closure
IMPORT TYPE TC_Thread__Closure;
#line 23
IMPORT char VS_Thread__Closure__7fb5c6232c5a658a; 
#define t81_MapProc TC_Thread__Closure->mapProc
typedef t78 (*t82)();





typedef t79 (*t83)();
#line 28
#define t84 ADDRESS

#line 28
typedef struct { int filler; } t84_methods; 
#define t84_msize (sizeof (t84_methods))
typedef struct {
#line 28
 t55 _stackSize; } t84_fields; 
#define t84_size (sizeof (t84_fields))
#define TC84 TC_Thread__SizedClosure
IMPORT TYPE TC_Thread__SizedClosure;
#line 28
IMPORT char VS_Thread__SizedClosure__8a46717d2eae7b07; 
#define t84_MapProc TC_Thread__SizedClosure->mapProc
typedef CLOSURE t85;
#line 10 "Main.m3"
IMPORT INITLINK* Delay__init; IMPORT INITLINK* WordModule__init; IMPORT INITLINK* BuiltinOps__init; IMPORT INITLINK* Host__init;
#line 10
IMPORT INITLINK* Emit__init; IMPORT INITLINK* BuiltinTypes__init; IMPORT INITLINK* Stmt__init; IMPORT INITLINK* Type__init;
#line 10
IMPORT INITLINK* Expr__init; IMPORT INITLINK* Module__init; IMPORT INITLINK* Scope__init; IMPORT INITLINK* Value__init; IMPORT INITLINK* Scanner__init;
#line 10
IMPORT INITLINK* Error__init; IMPORT INITLINK* Token__init; IMPORT INITLINK* String__init; IMPORT INITLINK* Target__init;
#line 10
IMPORT INITLINK* Fmt__init; IMPORT INITLINK* Text__init; IMPORT INITLINK* Wr__init; IMPORT INITLINK* Main__init;  IMPORT t86 _Delay__Initialize ();
#line 10
IMPORT char VS_Delay__Initialize__040d378631a03f42;   IMPORT t5 _WordModule__M; IMPORT char VS_WordModule__M__d2ef8c0836a9982d;
#line 10
IMPORT t86 _WordModule__Initialize (); IMPORT char VS_WordModule__Initialize__47453e5626a7e9bd;   IMPORT t86 _BuiltinOps__Initialize ();
#line 10
IMPORT char VS_BuiltinOps__Initialize__cfbc143d273d5fc2;   IMPORT t10 _Host__filename; IMPORT char VS_Host__filename__22e443082eed9cdf;
#line 10
IMPORT t7 _Host__source; IMPORT char VS_Host__source__9984d47c245ba2b6; IMPORT t11 _Host__errors; IMPORT char VS_Host__errors__68d293de2fd61f13;
#line 10
IMPORT t3 _Host__verbose; IMPORT char VS_Host__verbose__446e4df03fef5543; IMPORT t86 _Host__Halt (); IMPORT char VS_Host__Halt__cf1f17093643059d;
#line 10
IMPORT t86 _Host__Initialize (); IMPORT char VS_Host__Initialize__bb56cbde2aea2fbe;   IMPORT char VS_Emit__MaxStream__cf0a0e8934c9c9f3;
#line 10
IMPORT TYPE TC_Emit__Format; IMPORT char VS_Emit__Format__bc4a2b083b93bbd7; IMPORT t86 _Emit__Initialize (); IMPORT char VS_Emit__Initialize__7623667b2f41ceec;
#line 10
  IMPORT t86 _BuiltinTypes__Initialize (); IMPORT char VS_BuiltinTypes__Initialize__6972e17c24763784;   IMPORT TYPE TC_Stmt__T;
#line 10
IMPORT char VS_Stmt__T__2446b70b3f7780a5; IMPORT t86 _Stmt__Initialize (); IMPORT char VS_Stmt__Initialize__605270f1212c76c1;
#line 10
  IMPORT TYPE TC_Type__T; IMPORT char VS_Type__T__2446b70b3f7780a5; IMPORT t86 _Type__Initialize (); IMPORT char VS_Type__Initialize__d19cab2a36cf20c6;
#line 10
IMPORT t86 _Type__Minimize (); IMPORT char VS_Type__Minimize__16ed38e737e04277;   IMPORT TYPE TC_Expr__T; IMPORT char VS_Expr__T__2446b70b3f7780a5;
#line 10
IMPORT t86 _Expr__Initialize (); IMPORT char VS_Expr__Initialize__60a823013718457c;   IMPORT t5 _Module__Parse (); IMPORT char VS_Module__Parse__ce68833f303bed57;
#line 10
IMPORT t86 _Module__Bind (); IMPORT char VS_Module__Bind__262ead3a33a7b31c; IMPORT t86 _Module__TypeCheck (); IMPORT char VS_Module__TypeCheck__32d5029c3068eb4f;
#line 10
IMPORT t86 _Module__Compile (); IMPORT char VS_Module__Compile__6d0f3281306ecb9b;   IMPORT TYPE TC_Scope__T; IMPORT char VS_Scope__T__3a6c7dc12615e4ee;
#line 10
IMPORT t20 _Scope__Initial; IMPORT char VS_Scope__Initial__097aab742ccb9af2; IMPORT t86 _Scope__Bind (); IMPORT char VS_Scope__Bind__344f0d6129e368d1;
#line 10
IMPORT t86 _Scope__TypeCheck (); IMPORT char VS_Scope__TypeCheck__f0c8e8c4224804fd; IMPORT t86 _Scope__Initialize (); IMPORT char VS_Scope__Initialize__85bc9cb538b39035;
#line 10
  IMPORT TYPE TC_Value__T; IMPORT char VS_Value__T__2446b70b3f7780a5; IMPORT t86 _Value__Initialize (); IMPORT char VS_Value__Initialize__4d66177121450696;
#line 10
  IMPORT t86 _Scanner__Push (); IMPORT char VS_Scanner__Push__2865089230018ad8; IMPORT t86 _Scanner__Pop (); IMPORT char VS_Scanner__Pop__201d3ab93a5755c6;
#line 10
IMPORT t86 _Scanner__Initialize (); IMPORT char VS_Scanner__Initialize__d46c4d5d3bf18383;   IMPORT t86 _Error__Count (); IMPORT char VS_Error__Count__56133f452e061a4a;
#line 10
  IMPORT t25 _Token__DeclStart; IMPORT char VS_Token__DeclStart__730c82bc2c2001b8; IMPORT t25 _Token__TypeStart; IMPORT char VS_Token__TypeStart__f71616cb38a20d02;
#line 10
IMPORT t25 _Token__ExprStart; IMPORT char VS_Token__ExprStart__21dc8a0a27344836; IMPORT t86 _Token__Initialize (); IMPORT char VS_Token__Initialize__e6b4a7a23b1d37e6;
#line 10
  IMPORT t86 _String__Initialize (); IMPORT char VS_String__Initialize__2d344ec923e7ebf1;     IMPORT t8 _Fmt__Int (); IMPORT char VS_Fmt__Int__6e220fa1366cffbc;
#line 10
  IMPORT TYPE TC_Text__T; IMPORT char VS_Text__T__fc4b369f3ab271fd;   IMPORT EXCEPTION_NAME _Thread__Alerted; IMPORT char VS_Thread__Alerted__fc88feb43485af46;
#line 10
IMPORT EXCEPTION_NAME _Wr__Failure; IMPORT char VS_Wr__Failure__5f82cfb43dabf527; IMPORT EXCEPTION_NAME _Wr__Error; IMPORT char VS_Wr__Error__c367253d3ed4fd15;
#line 10
IMPORT t86 _Wr__PutText (); IMPORT char VS_Wr__PutText__e034dab73a793846;   PRIVATE t86 _Main__Initialize (); PRIVATE t86 _Main__Compile ();
#line 10
PRIVATE t3 _Main__Failed (); PRIVATE t86 _Main__Finalize ();     
#line 18 "Main.m3"
 PRIVATE t86 _Main__Initialize () {
#line 18 "Main.m3"
{ { CHECKSTACKOVERFLOW;


      _Host__Initialize ();
      _String__Initialize ();
      _Token__Initialize ();
      _Scanner__Initialize ();
      _Emit__Initialize ();
      _Delay__Initialize ();
      _Scope__Initialize ();
      _Type__Initialize ();
      _Value__Initialize ();
      _Expr__Initialize ();
      _Stmt__Initialize ();
      _BuiltinTypes__Initialize ();
      _BuiltinOps__Initialize ();
      _WordModule__Initialize (); } } };
#line 37 "Main.m3"
 PRIVATE t86 _Main__Compile () { t5 z2; t3 z1;
#line 37 "Main.m3"
{ auto t5 _m; { CHECKSTACKOVERFLOW;


      _Scanner__Push (_Host__filename, _Host__source);

      _Scope__Bind (_Scope__Initial,  1 );
      _Module__Bind (_WordModule__M);

      if (_Host__verbose) { _Wr__PutText (_Host__errors, ((ADDRESS)(& txt1.str))); goto if_1_end; }; if_1_end: /**/;
      z2 = _Module__Parse ( 0 ); _m = z2;
      z1 = _Main__Failed (); if (z1) { return; };

      if (_Host__verbose) { _Wr__PutText (_Host__errors, ((ADDRESS)(& txt2.str))); goto if_3_end; }; if_3_end: /**/;
      _Module__Bind (_m);
      z1 = _Main__Failed (); if (z1) { return; };

      _Type__Minimize ();

      _Scope__TypeCheck (_Scope__Initial,  1 );
      _Module__TypeCheck (_WordModule__M,  0 );

      if (_Host__verbose) { _Wr__PutText (_Host__errors, ((ADDRESS)(& txt3.str))); goto if_5_end; }; if_5_end: /**/;
      _Module__TypeCheck (_m,  1 );
      z1 = _Main__Failed (); if (z1) { return; };

      if (_Host__verbose) { _Wr__PutText (_Host__errors, ((ADDRESS)(& txt4.str))); goto if_7_end; }; if_7_end: /**/;
      _Module__Compile (_m);
      z1 = _Main__Failed (); if (z1) { return; }; } } };
#line 67 "Main.m3"
 PRIVATE t3 _Main__Failed () { t3 z2;
#line 67 "Main.m3"
{ auto t1 _errs; auto t1 _warns; auto t3 __result; { ZERO1B (& __result); CHECKSTACKOVERFLOW;


      _Error__Count (&_errs, &_warns);
      z2 = (_errs >  0 ); __result = z2; return __result; } } };
#line 74 "Main.m3"
 PRIVATE t86 _Main__Finalize () { t3 z2; t8 z5; t1 z3; t3 z1;
#line 74 "Main.m3"
{ auto t1 _errs; auto t1 _warns; { CHECKSTACKOVERFLOW;


      _Scanner__Pop ();
      _Error__Count (&_errs, &_warns);
      z2 = (_errs >  0 ); if (z2) {
         z5 = _Fmt__Int (_errs,  10 ); _Wr__PutText (_Host__errors, z5);
         _Wr__PutText (_Host__errors, ((ADDRESS)(& txt5.str)));
         z2 = (_errs >  1 ); if (z2) { _Wr__PutText (_Host__errors, ((ADDRESS)(& txt6.str))); goto if_10_end; }; if_10_end: /**/;
#line 82
         goto if_9_end; }; if_9_end: /**/;

      z2 = (_warns >  0 ); if (z2) {
         z2 = (_errs >  0 ); if (z2) { _Wr__PutText (_Host__errors, ((ADDRESS)(& txt7.str))); goto if_12_end; }; if_12_end: /**/;
         z5 = _Fmt__Int (_warns,  10 ); _Wr__PutText (_Host__errors, z5);
         _Wr__PutText (_Host__errors, ((ADDRESS)(& txt8.str)));
         z2 = (_warns >  1 ); if (z2) { _Wr__PutText (_Host__errors, ((ADDRESS)(& txt6.str))); goto if_13_end; }; if_13_end: /**/;
#line 88
         goto if_11_end; }; if_11_end: /**/;

      z3 = _errs + _warns; z1 = (z3 >  0 ); if (z1) { _Wr__PutText (_Host__errors, ((ADDRESS)(& txt9.str))); goto if_14_end;
#line 90
 }; if_14_end: /**/;
      z2 = (_errs >  0 ); if (z2) { _Host__Halt (_errs); goto if_15_end; }; if_15_end: /**/; } } };  PRIVATE int init_done = -1;
#line 100 "Main.m3"
 PRIVATE void Main__initProc (g) int g; {
#line 100 "Main.m3"
if (init_done >= g) return; init_done = g; INITIALIZE (& Main__init); INITIALIZE (& Delay__init); INITIALIZE (& WordModule__init);
#line 100
INITIALIZE (& BuiltinOps__init); INITIALIZE (& Host__init); INITIALIZE (& Emit__init); INITIALIZE (& BuiltinTypes__init);
#line 100
INITIALIZE (& Stmt__init); INITIALIZE (& Type__init); INITIALIZE (& Expr__init); INITIALIZE (& Module__init); INITIALIZE (& Scope__init);
#line 100
INITIALIZE (& Value__init); INITIALIZE (& Scanner__init); INITIALIZE (& Error__init); INITIALIZE (& Token__init); INITIALIZE (& String__init);
#line 100
INITIALIZE (& Target__init); INITIALIZE (& Fmt__init); INITIALIZE (& Text__init); INITIALIZE (& Wr__init);
#line 99
{ HANDLER hfinally_0; PUSH_FINALLY (hfinally_0, finally_0);
#line 96
   _Main__Initialize ();
   _Main__Compile ();
   _Main__Finalize (); finally_0: CUT_TO_NEXT_HANDLER (hfinally_0);

   _Host__Halt ( 0 ); if (hfinally_0.exception != FALL_EXCEPTION) { RAISE_FOR_SURE (hfinally_0.exception); }; }; return; };
#line 100
  PRIVATE INITLINK me_0 ={(INITLINK*)NIL, 0, Main__initProc}; static char* VSimports[] = { &VS_Delay__Closure__94b4fe673a5d6ded,
   &VS_Delay__Initialize__040d378631a03f42, &VS_WordModule__M__d2ef8c0836a9982d, &VS_WordModule__Initialize__47453e5626a7e9bd,
   &VS_BuiltinOps__Initialize__cfbc143d273d5fc2, &VS_Host__filename__22e443082eed9cdf, &VS_Host__source__9984d47c245ba2b6,
   &VS_Host__errors__68d293de2fd61f13, &VS_Host__verbose__446e4df03fef5543, &VS_Host__Halt__cf1f17093643059d, &VS_Host__Initialize__bb56cbde2aea2fbe,
   &VS_Emit__MaxStream__cf0a0e8934c9c9f3, &VS_Emit__Format__bc4a2b083b93bbd7, &VS_Emit__Initialize__7623667b2f41ceec, &VS_BuiltinTypes__Initialize__6972e17c24763784,
   &VS_Stmt__T__2446b70b3f7780a5, &VS_Stmt__Initialize__605270f1212c76c1, &VS_Type__T__2446b70b3f7780a5, &VS_Type__Map__41dd9f4b33104fce,
   &VS_Type__List__5791758e343becc1, &VS_Type__Initialize__d19cab2a36cf20c6, &VS_Type__Minimize__16ed38e737e04277, &VS_Expr__T__2446b70b3f7780a5,
   &VS_Expr__List__3f87eceb2b9a246a, &VS_Expr__Initialize__60a823013718457c, &VS_Module__T__be7ead4a3afd8be5, &VS_Module__Parse__ce68833f303bed57,
   &VS_Module__Bind__262ead3a33a7b31c, &VS_Module__TypeCheck__32d5029c3068eb4f, &VS_Module__Compile__6d0f3281306ecb9b, &VS_Scope__T__3a6c7dc12615e4ee,
   &VS_Scope__ValueList__64bf053e22e4e53c, &VS_Scope__Initial__097aab742ccb9af2, &VS_Scope__Bind__344f0d6129e368d1, &VS_Scope__TypeCheck__f0c8e8c4224804fd,
   &VS_Scope__Initialize__85bc9cb538b39035, &VS_Value__T__2446b70b3f7780a5, &VS_Value__Initialize__4d66177121450696, &VS_Scanner__Push__2865089230018ad8,
   &VS_Scanner__Pop__201d3ab93a5755c6, &VS_Scanner__Initialize__d46c4d5d3bf18383, &VS_Error__Count__56133f452e061a4a, &VS_Token__DeclStart__730c82bc2c2001b8,
   &VS_Token__TypeStart__f71616cb38a20d02, &VS_Token__ExprStart__21dc8a0a27344836, &VS_Token__Initialize__e6b4a7a23b1d37e6,
   &VS_String__T__3a6c7dc12615e4ee, &VS_String__Initialize__2d344ec923e7ebf1, &VS_Fmt__Int__6e220fa1366cffbc, &VS_Text__T__fc4b369f3ab271fd,
   &VS_Thread__Alerted__fc88feb43485af46, &VS_Wr__T__2555b70b3f7780b1, &VS_Wr__Failure__5f82cfb43dabf527, &VS_Wr__Error__c367253d3ed4fd15,
   &VS_Wr__PutText__e034dab73a793846, NIL };  void Main__MLink (phase) int phase; { switch (phase) { case 0: { me_0.link = Main__init; Main__init = & me_0; break; };
      case 1: { break; }; case 2: { break; }; }; };