#include "chdecl.h"
void CH_formaterror(current, sched, cop)
#define ARGUMENTS 44
#include "chhead.h"
select: switch (SELECTOR) {
    case 0: goto c0;
    case 1: goto cb5;
    case 2: goto c6;
    case 3: goto cb7;
    case 4: goto c8;
    case 5: goto cb10;
    case 6: goto c11;
    case 7: goto cb22;
    case 8: goto c23;
    case 9: goto c33;
    case 10: goto c36;
    case 11: goto cb40;
    case 12: goto c41;
    case 13: goto c50;
    case 14: goto c108;
    case 15: goto c118;
    case 16: goto c120;
    case 17: goto c131;
    case 18: goto c216;
    case 19: goto c221;
    case 20: goto c229;
    case 21: goto c233;
    case 22: goto cb237;
    case 23: goto c238;
    case 24: goto c252;
    case 25: goto c259;
    case 26: goto cb265;
    case 27: goto c266;
    case 28: goto c272;
    case 29: goto cb278;
    case 30: goto c279;
    case 31: goto c289;
    case 32: goto cb295;
    case 33: goto c296;
    case 34: goto c302;
    case 35: goto cb308;
    case 36: goto c309;
    case 37: goto c315;
    case 38: goto cb321;
    case 39: goto c322;
    case 40: goto c332;
    case 41: goto cb338;
    case 42: goto c339;
    case 43: goto c349;
    case 44: goto cb355;
    case 45: goto c356;
    case 46: goto c366;
    case 47: goto cb372;
    case 48: goto c373;
    case 49: goto c383;
    case 50: goto cb388;
    case 51: goto c389;
    case 52: goto cb395;
    case 53: goto c396;
    case 54: goto cb402;
    case 55: goto c403;
    case 56: goto cb409;
    case 57: goto c410;
    case 58: goto c434;
    case 59: goto cb439;
    case 60: goto c440;
    case 61: goto cb446;
    case 62: goto c447;
    case 63: goto cb453;
    case 64: goto c454;
    case 65: goto c472;
    case 66: goto cb477;
    case 67: goto c478;
    case 68: goto cb484;
    case 69: goto c485;
    case 70: goto c592;
    case 71: goto cb603;
    case 72: goto c604;
    case 73: goto c616;
    case 74: goto cb621;
    case 75: goto c622;
    case 76: goto cb628;
    case 77: goto c629;
    case 78: goto cb635;
    case 79: goto c636;
    case 80: goto c654;
    case 81: goto cb659;
    case 82: goto c660;
    case 83: goto cb666;
    case 84: goto c667;
    case 85: goto cb673;
    case 86: goto c674;
    case 87: goto cb680;
    case 88: goto c681;
    case 89: goto c705;
    case 90: goto cb710;
    case 91: goto c711;
    case 92: goto cb717;
    case 93: goto c718;
    case 94: goto c738;
    case 95: goto cb744;
    case 96: goto c745;
    case 97: goto c751;
    case 98: goto cb757;
    case 99: goto c758;
    case 100: goto c764;
    case 101: goto cb770;
    case 102: goto c771;
    case 103: goto c777;
    case 104: goto c779;
    case 105: goto c794;  }
c0:
/* block , 0 */
  if((ch_returncode = che_block(QUAL(0),sched)) != Normal)
     goto ch_raise_exception;
/* prog_lit 3 , 1 */
  if ((ch_returncode = che_prog_lit(DEF(3),QUAL(1),sched)) != Normal) 
     goto ch_raise_exception;
/* procedure 4 3 , 2 */
  if ((ch_returncode = che_procedure(DEF(4),DEF(3),QUAL(2),sched)) != Normal)
     goto ch_raise_exception;
/* discard 3 */
  (*(REF(3).tsdr)->finalize)(REF(3).value,F_DISCARD,sched);
  REF(3).tsdr = & dr_bottom;
/* move 5 4 */
  (*(REF(5).tsdr)->finalize)(REF(5).value,F_DISCARD,sched);
  REF(5) = REF(4);
  REF(4).tsdr = & dr_bottom;
  current->ip = 1;
cb5:
/* receive 6 0 */
  if ((ch_returncode = che_receive(DEF(6),DEF(0),sched)) != Normal)
     goto ch_raise_exception;
  return;
c6:
/* chs_lit 7 , "getformatters" */
  if( !chs_lit(DEF(7),"getformatters") ) goto ch_depletion;
  current->ip = 3;
cb7:
/* call 6.7 7 8 , 3 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(6)DOT(7),
          arguments[1] = DEF(7),
          arguments[2] = DEF(8),
          arguments[2+1] = nil,& arguments[0]),QUAL(3),sched)) != Normal)
     goto ch_raise_exception;
  return;
c8:
/* create 9 8 , 4 */
  if ((ch_returncode = che_create(DEF(9),DEF(8),QUAL(4),sched)) != Normal)
     goto ch_raise_exception;
/* discard 8 */
  (*(REF(8).tsdr)->finalize)(REF(8).value,F_DISCARD,sched);
  REF(8).tsdr = & dr_bottom;
  current->ip = 5;
cb10:
/* call 9 10 , 5 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(9),
          arguments[1] = DEF(10),
          arguments[1+1] = nil,& arguments[0]),QUAL(5),sched)) != Normal)
     goto ch_raise_exception;
  return;
c11:
/* move 11 10 */
  (*(REF(11).tsdr)->finalize)(REF(11).value,F_DISCARD,sched);
  REF(11) = REF(10);
  REF(10).tsdr = & dr_bottom;
/* case 12 6.0.0 */
  REF(12).value.enumeration = REF(6)DOT(0)DOT(0).value.variant
    ->info.variant_case;
  REF(12).tsdr = & dr_enumeration;
/* notequal . 12 =(0) , 36 */
  if ( REF(12).value.enumeration != 0 ) goto c36;
/* reveal 6.0.0 , 0 */
  if (0 != REF(6)DOT(0)DOT(0).value.variant->info.variant_case)
     goto ch_case_error;
/* block , 6 */
  if((ch_returncode = che_block(QUAL(6),sched)) != Normal)
     goto ch_raise_exception;
/* find 13 6.6 6.0.0.0 , 0 */
  if (findfunc(DEF(13),DEF(6)DOT(6),(
          arguments[0] = DEF(6)DOT(0)DOT(0)DOT(0),& arguments[0]),sched,0
            ) == FAILURE) goto ch_notfound;
/* chs_lit 14 , ": " */
  if( !chs_lit(DEF(14),": ") ) goto ch_depletion;
/* concat 15 13.1.0 14 */
  if ((ch_returncode = che_concat(DEF(15),DEF(13)DOT(1)DOT(0),DEF(14)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 14 */
  (*(REF(14).tsdr)->finalize)(REF(14).value,F_DISCARD,sched);
  REF(14).tsdr = & dr_bottom;
  current->ip = 7;
cb22:
/* call 5 13.1.1 16 , 7 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(5),
          arguments[1] = DEF(13)DOT(1)DOT(1),
          arguments[2] = DEF(16),
          arguments[2+1] = nil,& arguments[0]),QUAL(7),sched)) != Normal)
     goto ch_raise_exception;
  return;
c23:
/* chs_lit 17 , ": " */
  if( !chs_lit(DEF(17),": ") ) goto ch_depletion;
/* concat 18 16 17 */
  if ((ch_returncode = che_concat(DEF(18),DEF(16),DEF(17),sched)) != Normal)
     goto ch_raise_exception;
/* discard 16 */
  (*(REF(16).tsdr)->finalize)(REF(16).value,F_DISCARD,sched);
  REF(16).tsdr = & dr_bottom;
/* discard 17 */
  (*(REF(17).tsdr)->finalize)(REF(17).value,F_DISCARD,sched);
  REF(17).tsdr = & dr_bottom;
/* concat 19 15 18 */
  if ((ch_returncode = che_concat(DEF(19),DEF(15),DEF(18),sched)) != Normal)
     goto ch_raise_exception;
/* discard 15 */
  (*(REF(15).tsdr)->finalize)(REF(15).value,F_DISCARD,sched);
  REF(15).tsdr = & dr_bottom;
/* discard 18 */
  (*(REF(18).tsdr)->finalize)(REF(18).value,F_DISCARD,sched);
  REF(18).tsdr = & dr_bottom;
/* move 20 19 */
  (*(REF(20).tsdr)->finalize)(REF(20).value,F_DISCARD,sched);
  REF(20) = REF(19);
  REF(19).tsdr = & dr_bottom;
/* endblock */
  che_endblock(sched);
/* branch , 50 */
   goto c50;
c33:
/* chs_lit 20 , "?: ?: " */
  if( !chs_lit(DEF(20),"?: ?: ") ) goto ch_depletion;
/* branch , 50 */
   goto c50;
c36:
/* reveal 6.0.0 , 1 */
  if (1 != REF(6)DOT(0)DOT(0).value.variant->info.variant_case)
     goto ch_case_error;
/* chs_lit 21 , ": " */
  if( !chs_lit(DEF(21),": ") ) goto ch_depletion;
/* concat 22 6.0.0.0.0 21 */
  if ((ch_returncode = che_concat(DEF(22),DEF(6)DOT(0)DOT(0)DOT(0)DOT(0),
    DEF(21),sched)) != Normal) goto ch_raise_exception;
/* discard 21 */
  (*(REF(21).tsdr)->finalize)(REF(21).value,F_DISCARD,sched);
  REF(21).tsdr = & dr_bottom;
  current->ip = 11;
cb40:
/* call 5 6.0.0.0.1 23 , 7 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(5),
          arguments[1] = DEF(6)DOT(0)DOT(0)DOT(0)DOT(1),
          arguments[2] = DEF(23),
          arguments[2+1] = nil,& arguments[0]),QUAL(7),sched)) != Normal)
     goto ch_raise_exception;
  return;
c41:
/* chs_lit 24 , ": " */
  if( !chs_lit(DEF(24),": ") ) goto ch_depletion;
/* concat 25 23 24 */
  if ((ch_returncode = che_concat(DEF(25),DEF(23),DEF(24),sched)) != Normal)
     goto ch_raise_exception;
/* discard 23 */
  (*(REF(23).tsdr)->finalize)(REF(23).value,F_DISCARD,sched);
  REF(23).tsdr = & dr_bottom;
/* discard 24 */
  (*(REF(24).tsdr)->finalize)(REF(24).value,F_DISCARD,sched);
  REF(24).tsdr = & dr_bottom;
/* concat 26 22 25 */
  if ((ch_returncode = che_concat(DEF(26),DEF(22),DEF(25),sched)) != Normal)
     goto ch_raise_exception;
/* discard 22 */
  (*(REF(22).tsdr)->finalize)(REF(22).value,F_DISCARD,sched);
  REF(22).tsdr = & dr_bottom;
/* discard 25 */
  (*(REF(25).tsdr)->finalize)(REF(25).value,F_DISCARD,sched);
  REF(25).tsdr = & dr_bottom;
/* move 20 26 */
  (*(REF(20).tsdr)->finalize)(REF(20).value,F_DISCARD,sched);
  REF(20) = REF(26);
  REF(26).tsdr = & dr_bottom;
c50:
/* noop */
  
/* equal . 6.0.1 =(0) , 96 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 0 ) goto c96;
/* equal . 6.0.1 =(1) , 104 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 1 ) goto c104;
/* equal . 6.0.1 =(12) , 221 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 12 ) goto c221;
/* equal . 6.0.1 =(13) , 229 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 13 ) goto c229;
/* equal . 6.0.1 =(14) , 259 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 14 ) goto c259;
/* equal . 6.0.1 =(15) , 272 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 15 ) goto c272;
/* equal . 6.0.1 =(16) , 289 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 16 ) goto c289;
/* equal . 6.0.1 =(17) , 302 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 17 ) goto c302;
/* equal . 6.0.1 =(18) , 315 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 18 ) goto c315;
/* equal . 6.0.1 =(19) , 332 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 19 ) goto c332;
/* equal . 6.0.1 =(20) , 349 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 20 ) goto c349;
/* equal . 6.0.1 =(21) , 366 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 21 ) goto c366;
/* equal . 6.0.1 =(2) , 383 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 2 ) goto c383;
/* equal . 6.0.1 =(3) , 434 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 3 ) goto c434;
/* equal . 6.0.1 =(4) , 472 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 4 ) goto c472;
/* equal . 6.0.1 =(5) , 592 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 5 ) goto c592;
/* equal . 6.0.1 =(6) , 616 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 6 ) goto c616;
/* equal . 6.0.1 =(7) , 654 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 7 ) goto c654;
/* equal . 6.0.1 =(8) , 705 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 8 ) goto c705;
/* equal . 6.0.1 =(9) , 738 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 9 ) goto c738;
/* equal . 6.0.1 =(10) , 751 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 10 ) goto c751;
/* equal . 6.0.1 =(11) , 764 */
  if ( REF(6)DOT(0)DOT(1).value.ord_enum == 11 ) goto c764;
/* branch , 777 */
   goto c777;
c96:
/* initget 27 6.0.2 , 0,0 */
  (*(REF(27).tsdr)->finalize)(REF(27).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(27),DEF(6)DOT(0)DOT(2),nil,sched,GET,
    0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 27 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(27),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 28 27 */
  if((ch_returncode = cp_variant(& ch_val, REF(27).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(28).tsdr)->finalize)(REF(28).value,F_DISCARD,sched);
  REF(28).value = ch_val;
  REF(28).tsdr = & dr_variant;
/* endget 27 6.0.2 */
  end_selector(DEF(27),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 28 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(28);
  REF(28).tsdr = & dr_bottom;
/* reveal 29 , 3 */
  if (3 != REF(29).value.variant->info.variant_case) goto ch_case_error;
/* copy 30 29.0 */
  if((ch_returncode = cp_table(& ch_val, REF(29)DOT(0).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30).value = ch_val;
  REF(30).tsdr = & dr_table;
/* branch , 779 */
   goto c779;
c104:
/* chs_lit 20 , "" */
  if( !chs_lit(DEF(20),"") ) goto ch_depletion;
/* block , 8 */
  if((ch_returncode = che_block(QUAL(8),sched)) != Normal)
     goto ch_raise_exception;
/* initget 31 6.0.2 , 0,0 */
  (*(REF(31).tsdr)->finalize)(REF(31).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(31),DEF(6)DOT(0)DOT(2),nil,sched,GET,
    0,0)) != Normal) goto ch_raise_exception;
c108:
/* get_or_err 31 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(31),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* case 32 31 */
  REF(32).value.enumeration = REF(31).value.variant->info.variant_case;
  REF(32).tsdr = & dr_enumeration;
/* notequal . 32 =(8) , 108 */
  if ( REF(32).value.enumeration != 8 ) goto c108;
/* reveal 31 , 8 */
  if (8 != REF(31).value.variant->info.variant_case) goto ch_case_error;
/* copy 33 31.0 */
  if((ch_returncode = cp_nominal(& ch_val, REF(31)DOT(0).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(33).tsdr)->finalize)(REF(33).value,F_DISCARD,sched);
  REF(33).value = ch_val;
  REF(33).tsdr = & dr_nominal;
/* endget 31 6.0.2 */
  end_selector(DEF(31),DEF(6)DOT(0)DOT(2),sched,GET);
/* endblock */
  che_endblock(sched);
/* branch , 120 */
   goto c120;
c118:
/* unique 33 */
  if ((ch_returncode = che_unique(DEF(33),sched)) != Normal)
     goto ch_raise_exception;
c120:
/* chs_lit 30 , "" */
  if( !chs_lit(DEF(30),"") ) goto ch_depletion;
/* chs_lit 34 , "" */
  if( !chs_lit(DEF(34),"") ) goto ch_depletion;
/* chs_lit 35 , "" */
  if( !chs_lit(DEF(35),"") ) goto ch_depletion;
/* unique 36 */
  if ((ch_returncode = che_unique(DEF(36),sched)) != Normal)
     goto ch_raise_exception;
/* new_table 37 , 9 */
  if ((ch_returncode = che_new_table(DEF(37),QUAL(9),sched)) != Normal) 
     goto ch_raise_exception;
/* copy 38 6.0.2 */
  if((ch_returncode = cp_table(& ch_val, REF(6)DOT(0)DOT(2).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(38).tsdr)->finalize)(REF(38).value,F_DISCARD,sched);
  REF(38).value = ch_val;
  REF(38).tsdr = & dr_table;
/* initget 39 38 , 0,0 */
  (*(REF(39).tsdr)->finalize)(REF(39).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(39),DEF(38),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c131:
/* get_or_goto 39 38 , 185 */
  if ((ch_returncode = get_selected_object(DEF(39),DEF(38),sched)) != Normal)
     goto c185;
/* block , 10 */
  if((ch_returncode = che_block(QUAL(10),sched)) != Normal)
     goto ch_raise_exception;
/* case 40 39 */
  REF(40).value.enumeration = REF(39).value.variant->info.variant_case;
  REF(40).tsdr = & dr_enumeration;
/* equal . 40 =(3) , 148 */
  if ( REF(40).value.enumeration == 3 ) goto c148;
/* equal . 40 =(9) , 152 */
  if ( REF(40).value.enumeration == 9 ) goto c152;
/* equal . 40 =(10) , 161 */
  if ( REF(40).value.enumeration == 10 ) goto c161;
/* equal . 40 =(11) , 169 */
  if ( REF(40).value.enumeration == 11 ) goto c169;
/* equal . 40 =(12) , 172 */
  if ( REF(40).value.enumeration == 12 ) goto c172;
/* equal . 40 =(8) , 181 */
  if ( REF(40).value.enumeration == 8 ) goto c181;
/* branch , 176 */
   goto c176;
c148:
/* reveal 39 , 3 */
  if (3 != REF(39).value.variant->info.variant_case) goto ch_case_error;
/* concat 30 39.0 30 */
  if ((ch_returncode = che_concat(DEF(30),DEF(39)DOT(0),DEF(30)
    ,sched)) != Normal) goto ch_raise_exception;
/* branch , 181 */
   goto c181;
c152:
/* reveal 39 , 9 */
  if (9 != REF(39).value.variant->info.variant_case) goto ch_case_error;
/* find 41 6.4 33 , 0 */
  if (findfunc(DEF(41),DEF(6)DOT(4),(
          arguments[0] = DEF(33),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* find 42 41.2 39.0 , 0 */
  if (findfunc(DEF(42),DEF(41)DOT(2),(
          arguments[0] = DEF(39)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* copy 36 39.0 */
  if((ch_returncode = cp_nominal(& ch_val, REF(39)DOT(0).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(36).tsdr)->finalize)(REF(36).value,F_DISCARD,sched);
  REF(36).value = ch_val;
  REF(36).tsdr = & dr_nominal;
/* chs_lit 43 , ": " */
  if( !chs_lit(DEF(43),": ") ) goto ch_depletion;
/* concat 44 42.1 43 */
  if ((ch_returncode = che_concat(DEF(44),DEF(42)DOT(1),DEF(43)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 43 */
  (*(REF(43).tsdr)->finalize)(REF(43).value,F_DISCARD,sched);
  REF(43).tsdr = & dr_bottom;
/* move 34 44 */
  (*(REF(34).tsdr)->finalize)(REF(34).value,F_DISCARD,sched);
  REF(34) = REF(44);
  REF(44).tsdr = & dr_bottom;
/* branch , 181 */
   goto c181;
c161:
/* reveal 39 , 10 */
  if (10 != REF(39).value.variant->info.variant_case) goto ch_case_error;
/* find 45 6.4 33 , 0 */
  if (findfunc(DEF(45),DEF(6)DOT(4),(
          arguments[0] = DEF(33),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* find 46 45.3 39.0 , 0 */
  if (findfunc(DEF(46),DEF(45)DOT(3),(
          arguments[0] = DEF(39)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* chs_lit 47 , ": " */
  if( !chs_lit(DEF(47),": ") ) goto ch_depletion;
/* concat 48 46.1 47 */
  if ((ch_returncode = che_concat(DEF(48),DEF(46)DOT(1),DEF(47)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 47 */
  (*(REF(47).tsdr)->finalize)(REF(47).value,F_DISCARD,sched);
  REF(47).tsdr = & dr_bottom;
/* move 34 48 */
  (*(REF(34).tsdr)->finalize)(REF(34).value,F_DISCARD,sched);
  REF(34) = REF(48);
  REF(48).tsdr = & dr_bottom;
/* branch , 181 */
   goto c181;
c169:
/* copy 49 39 */
  if((ch_returncode = cp_variant(& ch_val, REF(39).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(49).tsdr)->finalize)(REF(49).value,F_DISCARD,sched);
  REF(49).value = ch_val;
  REF(49).tsdr = & dr_variant;
/* insert 37 49 */
  if ((ch_returncode = insertfunc(DEF(37),DEF(49),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 181 */
   goto c181;
c172:
/* copy 50 39 */
  if((ch_returncode = cp_variant(& ch_val, REF(39).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(50).tsdr)->finalize)(REF(50).value,F_DISCARD,sched);
  REF(50).value = ch_val;
  REF(50).tsdr = & dr_variant;
/* insert 37 50 */
  if ((ch_returncode = insertfunc(DEF(37),DEF(50),FALSE,0)) != Normal)
     goto ch_raise_exception;
/* branch , 181 */
   goto c181;
c176:
/* chs_lit 51 , "You've got an illegal errorobject in a definition error!" */
  if( !chs_lit(DEF(51),
    "You've got an illegal errorobject in a definition error!") )
     goto ch_depletion;
/* concat 52 51 30 */
  if ((ch_returncode = che_concat(DEF(52),DEF(51),DEF(30),sched)) != Normal)
     goto ch_raise_exception;
/* discard 51 */
  (*(REF(51).tsdr)->finalize)(REF(51).value,F_DISCARD,sched);
  REF(51).tsdr = & dr_bottom;
/* move 30 52 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(52);
  REF(52).tsdr = & dr_bottom;
c181:
/* endblock */
  che_endblock(sched);
/* branch , 131 */
   goto c131;
c185:
/* endget 39 38 */
  end_selector(DEF(39),DEF(38),sched,GET);
/* discard 38 */
  (*(REF(38).tsdr)->finalize)(REF(38).value,F_DISCARD,sched);
  REF(38).tsdr = & dr_bottom;
/* block , 11 */
  if((ch_returncode = che_block(QUAL(11),sched)) != Normal)
     goto ch_raise_exception;
/* find 53 6.4 33 , 0 */
  if (findfunc(DEF(53),DEF(6)DOT(4),(
          arguments[0] = DEF(33),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* initget 54 37 , 0,0 */
  (*(REF(54).tsdr)->finalize)(REF(54).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(54),DEF(37),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
/* get_or_err 54 37 */
  if ((ch_returncode = get_selected_object(DEF(54),DEF(37),sched)) != Normal)
     goto ch_raise_exception;
/* case 55 54 */
  REF(55).value.enumeration = REF(54).value.variant->info.variant_case;
  REF(55).tsdr = & dr_enumeration;
/* equal . 55 =(11) , 198 */
  if ( REF(55).value.enumeration == 11 ) goto c198;
/* equal . 55 =(12) , 205 */
  if ( REF(55).value.enumeration == 12 ) goto c205;
/* branch , 213 */
   goto c213;
c198:
/* reveal 54 , 11 */
  if (11 != REF(54).value.variant->info.variant_case) goto ch_case_error;
/* find 56 53.4 36 54.0 , 0 */
  if (findfunc(DEF(56),DEF(53)DOT(4),(
          arguments[0] = DEF(36),
          arguments[1] = DEF(54)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* chs_lit 57 , ": " */
  if( !chs_lit(DEF(57),": ") ) goto ch_depletion;
/* concat 58 56.2 57 */
  if ((ch_returncode = che_concat(DEF(58),DEF(56)DOT(2),DEF(57)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 57 */
  (*(REF(57).tsdr)->finalize)(REF(57).value,F_DISCARD,sched);
  REF(57).tsdr = & dr_bottom;
/* move 35 58 */
  (*(REF(35).tsdr)->finalize)(REF(35).value,F_DISCARD,sched);
  REF(35) = REF(58);
  REF(58).tsdr = & dr_bottom;
/* branch , 213 */
   goto c213;
c205:
/* reveal 54 , 12 */
  if (12 != REF(54).value.variant->info.variant_case) goto ch_case_error;
/* find 59 53.5 36 54.0 , 0 */
  if (findfunc(DEF(59),DEF(53)DOT(5),(
          arguments[0] = DEF(36),
          arguments[1] = DEF(54)DOT(0),& arguments[0]),sched,0) == FAILURE)
             goto ch_notfound;
/* chs_lit 60 , ": " */
  if( !chs_lit(DEF(60),": ") ) goto ch_depletion;
/* concat 61 59.2 60 */
  if ((ch_returncode = che_concat(DEF(61),DEF(59)DOT(2),DEF(60)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 60 */
  (*(REF(60).tsdr)->finalize)(REF(60).value,F_DISCARD,sched);
  REF(60).tsdr = & dr_bottom;
/* move 35 61 */
  (*(REF(35).tsdr)->finalize)(REF(35).value,F_DISCARD,sched);
  REF(35) = REF(61);
  REF(61).tsdr = & dr_bottom;
/* branch , 213 */
   goto c213;
c213:
/* endget 54 37 */
  end_selector(DEF(54),DEF(37),sched,GET);
/* endblock */
  che_endblock(sched);
c216:
/* concat 62 34 35 */
  if ((ch_returncode = che_concat(DEF(62),DEF(34),DEF(35),sched)) != Normal)
     goto ch_raise_exception;
/* concat 63 62 30 */
  if ((ch_returncode = che_concat(DEF(63),DEF(62),DEF(30),sched)) != Normal)
     goto ch_raise_exception;
/* discard 62 */
  (*(REF(62).tsdr)->finalize)(REF(62).value,F_DISCARD,sched);
  REF(62).tsdr = & dr_bottom;
/* move 30 63 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(63);
  REF(63).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c221:
/* initget 64 6.0.2 , 0,0 */
  (*(REF(64).tsdr)->finalize)(REF(64).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(64),DEF(6)DOT(0)DOT(2),nil,sched,GET,
    0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 64 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(64),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 65 64 */
  if((ch_returncode = cp_variant(& ch_val, REF(64).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(65).tsdr)->finalize)(REF(65).value,F_DISCARD,sched);
  REF(65).value = ch_val;
  REF(65).tsdr = & dr_variant;
/* endget 64 6.0.2 */
  end_selector(DEF(64),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 65 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(65);
  REF(65).tsdr = & dr_bottom;
/* reveal 29 , 3 */
  if (3 != REF(29).value.variant->info.variant_case) goto ch_case_error;
/* copy 30 29.0 */
  if((ch_returncode = cp_table(& ch_val, REF(29)DOT(0).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30).value = ch_val;
  REF(30).tsdr = & dr_table;
/* branch , 779 */
   goto c779;
c229:
/* chs_lit 30 , "Handler on this block for [" */
  if( !chs_lit(DEF(30),"Handler on this block for [") ) goto ch_depletion;
/* copy 66 6.0.2 */
  if((ch_returncode = cp_table(& ch_val, REF(6)DOT(0)DOT(2).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(66).tsdr)->finalize)(REF(66).value,F_DISCARD,sched);
  REF(66).value = ch_val;
  REF(66).tsdr = & dr_table;
/* initget 67 66 , 0,0 */
  (*(REF(67).tsdr)->finalize)(REF(67).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(67),DEF(66),nil,sched,GET,0,0
    )) != Normal) goto ch_raise_exception;
c233:
/* get_or_goto 67 66 , 252 */
  if ((ch_returncode = get_selected_object(DEF(67),DEF(66),sched)) != Normal)
     goto c252;
/* discard 68 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68).tsdr = & dr_bottom;
/* reveal 67 , 13 */
  if (13 != REF(67).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 22;
cb237:
/* call 11.11 11 6.3 6.4 6.5 67.0 69 , 12 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(11),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(4),
          arguments[4] = DEF(6)DOT(5),
          arguments[5] = DEF(67)DOT(0),
          arguments[6] = DEF(69),
          arguments[6+1] = nil,& arguments[0]),QUAL(12),sched)) != Normal)
     goto ch_raise_exception;
  return;
c238:
/* move 68 69 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(69);
  REF(69).tsdr = & dr_bottom;
/* concat 30 30 68 */
  if ((ch_returncode = che_concat(DEF(30),DEF(30),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* position 70 67 */
  ch_frame = get_selector_frame(DEF(67),sched);
  ch_t = ch_frame->inspectee->value.table;
  REF(70).value.integer = ch_frame->rmvcount +
    (*(ch_t->tbls[ORDER_TBL].des->position_of))(ch_t,ORDER_TBL,ch_frame->pos);
  REF(70).tsdr = &dr_integer;
/* size 71 6.0.2 */
  REF(71).value.integer = REF(6)DOT(0)DOT(2).value.table->size;
  REF(71).tsdr = & dr_integer;
/* isubtract 72 71 =(1) */
  if (!chf_isubtract(DEF(72),REF(71).value.integer,1)) goto ch_depletion;
/* ige . 70 72 , 233 */
  if ( REF(70).value.integer >= REF(72).value.integer ) goto c233;
/* chs_lit 73 , ", " */
  if( !chs_lit(DEF(73),", ") ) goto ch_depletion;
/* concat 74 30 73 */
  if ((ch_returncode = che_concat(DEF(74),DEF(30),DEF(73),sched)) != Normal)
     goto ch_raise_exception;
/* discard 73 */
  (*(REF(73).tsdr)->finalize)(REF(73).value,F_DISCARD,sched);
  REF(73).tsdr = & dr_bottom;
/* move 30 74 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(74);
  REF(74).tsdr = & dr_bottom;
/* branch , 233 */
   goto c233;
c252:
/* endget 67 66 */
  end_selector(DEF(67),DEF(66),sched,GET);
/* discard 66 */
  (*(REF(66).tsdr)->finalize)(REF(66).value,F_DISCARD,sched);
  REF(66).tsdr = & dr_bottom;
/* chs_lit 75 , "] can never be used" */
  if( !chs_lit(DEF(75),"] can never be used") ) goto ch_depletion;
/* concat 76 30 75 */
  if ((ch_returncode = che_concat(DEF(76),DEF(30),DEF(75),sched)) != Normal)
     goto ch_raise_exception;
/* discard 75 */
  (*(REF(75).tsdr)->finalize)(REF(75).value,F_DISCARD,sched);
  REF(75).tsdr = & dr_bottom;
/* move 30 76 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(76);
  REF(76).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c259:
/* initget 77 6.0.2 , 0,0 */
  (*(REF(77).tsdr)->finalize)(REF(77).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(77),DEF(6)DOT(0)DOT(2),nil,sched,GET,
    0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 77 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(77),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 78 77 */
  if((ch_returncode = cp_variant(& ch_val, REF(77).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(78).tsdr)->finalize)(REF(78).value,F_DISCARD,sched);
  REF(78).value = ch_val;
  REF(78).tsdr = & dr_variant;
/* endget 77 6.0.2 */
  end_selector(DEF(77),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 78 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(78);
  REF(78).tsdr = & dr_bottom;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 26;
cb265:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 79 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(79),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c266:
/* move 68 79 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(79);
  REF(79).tsdr = & dr_bottom;
/* chs_lit 80 , "Operation attempts to modify constant object " */
  if( !chs_lit(DEF(80),"Operation attempts to modify constant object ") )
     goto ch_depletion;
/* concat 81 80 68 */
  if ((ch_returncode = che_concat(DEF(81),DEF(80),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 80 */
  (*(REF(80).tsdr)->finalize)(REF(80).value,F_DISCARD,sched);
  REF(80).tsdr = & dr_bottom;
/* move 30 81 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(81);
  REF(81).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c272:
/* initget 82 6.0.2 , 0,0 */
  (*(REF(82).tsdr)->finalize)(REF(82).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(82),DEF(6)DOT(0)DOT(2),nil,sched,GET,
    0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 82 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(82),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 83 82 */
  if((ch_returncode = cp_variant(& ch_val, REF(82).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(83).tsdr)->finalize)(REF(83).value,F_DISCARD,sched);
  REF(83).value = ch_val;
  REF(83).tsdr = & dr_variant;
/* endget 82 6.0.2 */
  end_selector(DEF(82),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 83 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(83);
  REF(83).tsdr = & dr_bottom;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 29;
cb278:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 84 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(84),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c279:
/* move 68 84 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(84);
  REF(84).tsdr = & dr_bottom;
/* chs_lit 85 , "Variable " */
  if( !chs_lit(DEF(85),"Variable ") ) goto ch_depletion;
/* concat 86 85 68 */
  if ((ch_returncode = che_concat(DEF(86),DEF(85),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 85 */
  (*(REF(85).tsdr)->finalize)(REF(85).value,F_DISCARD,sched);
  REF(85).tsdr = & dr_bottom;
/* chs_lit 87 , " is not associated with a table position" */
  if( !chs_lit(DEF(87)," is not associated with a table position") )
     goto ch_depletion;
/* concat 88 86 87 */
  if ((ch_returncode = che_concat(DEF(88),DEF(86),DEF(87),sched)) != Normal)
     goto ch_raise_exception;
/* discard 86 */
  (*(REF(86).tsdr)->finalize)(REF(86).value,F_DISCARD,sched);
  REF(86).tsdr = & dr_bottom;
/* discard 87 */
  (*(REF(87).tsdr)->finalize)(REF(87).value,F_DISCARD,sched);
  REF(87).tsdr = & dr_bottom;
/* move 30 88 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(88);
  REF(88).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c289:
/* initget 89 6.0.2 , 0,0 */
  (*(REF(89).tsdr)->finalize)(REF(89).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(89),DEF(6)DOT(0)DOT(2),nil,sched,GET,
    0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 89 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(89),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 90 89 */
  if((ch_returncode = cp_variant(& ch_val, REF(89).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(90).tsdr)->finalize)(REF(90).value,F_DISCARD,sched);
  REF(90).value = ch_val;
  REF(90).tsdr = & dr_variant;
/* endget 89 6.0.2 */
  end_selector(DEF(89),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 90 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(90);
  REF(90).tsdr = & dr_bottom;
/* reveal 29 , 1 */
  if (1 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 32;
cb295:
/* call 11.7 11 6.3 6.1 6.2 6.4 6.5 29.0 91 , 14 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(7),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(1),
          arguments[4] = DEF(6)DOT(2),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(91),
          arguments[8+1] = nil,& arguments[0]),QUAL(14),sched)) != Normal)
     goto ch_raise_exception;
  return;
c296:
/* move 68 91 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(91);
  REF(91).tsdr = & dr_bottom;
/* chs_lit 92 , "Typestate attribute not present: " */
  if( !chs_lit(DEF(92),"Typestate attribute not present: ") )
     goto ch_depletion;
/* concat 93 92 68 */
  if ((ch_returncode = che_concat(DEF(93),DEF(92),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 92 */
  (*(REF(92).tsdr)->finalize)(REF(92).value,F_DISCARD,sched);
  REF(92).tsdr = & dr_bottom;
/* move 30 93 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(93);
  REF(93).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c302:
/* initget 94 6.0.2 , 0,0 */
  (*(REF(94).tsdr)->finalize)(REF(94).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(94),DEF(6)DOT(0)DOT(2),nil,sched,GET,
    0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 94 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(94),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 95 94 */
  if((ch_returncode = cp_variant(& ch_val, REF(94).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(95).tsdr)->finalize)(REF(95).value,F_DISCARD,sched);
  REF(95).value = ch_val;
  REF(95).tsdr = & dr_variant;
/* endget 94 6.0.2 */
  end_selector(DEF(94),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 95 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(95);
  REF(95).tsdr = & dr_bottom;
/* reveal 29 , 1 */
  if (1 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 35;
cb308:
/* call 11.7 11 6.3 6.1 6.2 6.4 6.5 29.0 96 , 14 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(7),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(1),
          arguments[4] = DEF(6)DOT(2),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(96),
          arguments[8+1] = nil,& arguments[0]),QUAL(14),sched)) != Normal)
     goto ch_raise_exception;
  return;
c309:
/* move 68 96 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(96);
  REF(96).tsdr = & dr_bottom;
/* chs_lit 97 , "Typestate attribute cannot be dropped: " */
  if( !chs_lit(DEF(97),"Typestate attribute cannot be dropped: ") )
     goto ch_depletion;
/* concat 98 97 68 */
  if ((ch_returncode = che_concat(DEF(98),DEF(97),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 97 */
  (*(REF(97).tsdr)->finalize)(REF(97).value,F_DISCARD,sched);
  REF(97).tsdr = & dr_bottom;
/* move 30 98 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(98);
  REF(98).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c315:
/* initget 99 6.0.2 , 0,0 */
  (*(REF(99).tsdr)->finalize)(REF(99).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(99),DEF(6)DOT(0)DOT(2),nil,sched,GET,
    0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 99 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(99),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 100 99 */
  if((ch_returncode = cp_variant(& ch_val, REF(99).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(100).tsdr)->finalize)(REF(100).value,F_DISCARD,sched);
  REF(100).value = ch_val;
  REF(100).tsdr = & dr_variant;
/* endget 99 6.0.2 */
  end_selector(DEF(99),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 100 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(100);
  REF(100).tsdr = & dr_bottom;
/* reveal 29 , 1 */
  if (1 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 38;
cb321:
/* call 11.7 11 6.3 6.1 6.2 6.4 6.5 29.0 101 , 14 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(7),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(1),
          arguments[4] = DEF(6)DOT(2),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(101),
          arguments[8+1] = nil,& arguments[0]),QUAL(14),sched)) != Normal)
     goto ch_raise_exception;
  return;
c322:
/* move 68 101 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(101);
  REF(101).tsdr = & dr_bottom;
/* chs_lit 102 , "Adding attribute " */
  if( !chs_lit(DEF(102),"Adding attribute ") ) goto ch_depletion;
/* concat 103 102 68 */
  if ((ch_returncode = che_concat(DEF(103),DEF(102),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 102 */
  (*(REF(102).tsdr)->finalize)(REF(102).value,F_DISCARD,sched);
  REF(102).tsdr = & dr_bottom;
/* chs_lit 104 , " would yield an impossible typestate" */
  if( !chs_lit(DEF(104)," would yield an impossible typestate") )
     goto ch_depletion;
/* concat 105 103 104 */
  if ((ch_returncode = che_concat(DEF(105),DEF(103),DEF(104)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 103 */
  (*(REF(103).tsdr)->finalize)(REF(103).value,F_DISCARD,sched);
  REF(103).tsdr = & dr_bottom;
/* discard 104 */
  (*(REF(104).tsdr)->finalize)(REF(104).value,F_DISCARD,sched);
  REF(104).tsdr = & dr_bottom;
/* move 30 105 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(105);
  REF(105).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c332:
/* initget 106 6.0.2 , 0,0 */
  (*(REF(106).tsdr)->finalize)(REF(106).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(106),DEF(6)DOT(0)DOT(2)
    ,nil,sched,GET,0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 106 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(106),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 107 106 */
  if((ch_returncode = cp_variant(& ch_val, REF(106).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(107).tsdr)->finalize)(REF(107).value,F_DISCARD,sched);
  REF(107).value = ch_val;
  REF(107).tsdr = & dr_variant;
/* endget 106 6.0.2 */
  end_selector(DEF(106),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 107 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(107);
  REF(107).tsdr = & dr_bottom;
/* reveal 29 , 1 */
  if (1 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 41;
cb338:
/* call 11.7 11 6.3 6.1 6.2 6.4 6.5 29.0 108 , 14 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(7),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(1),
          arguments[4] = DEF(6)DOT(2),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(108),
          arguments[8+1] = nil,& arguments[0]),QUAL(14),sched)) != Normal)
     goto ch_raise_exception;
  return;
c339:
/* move 68 108 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(108);
  REF(108).tsdr = & dr_bottom;
/* chs_lit 109 , "Dropping attribute " */
  if( !chs_lit(DEF(109),"Dropping attribute ") ) goto ch_depletion;
/* concat 110 109 68 */
  if ((ch_returncode = che_concat(DEF(110),DEF(109),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 109 */
  (*(REF(109).tsdr)->finalize)(REF(109).value,F_DISCARD,sched);
  REF(109).tsdr = & dr_bottom;
/* chs_lit 111 , " would yield an impossible typestate" */
  if( !chs_lit(DEF(111)," would yield an impossible typestate") )
     goto ch_depletion;
/* concat 112 110 111 */
  if ((ch_returncode = che_concat(DEF(112),DEF(110),DEF(111)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 110 */
  (*(REF(110).tsdr)->finalize)(REF(110).value,F_DISCARD,sched);
  REF(110).tsdr = & dr_bottom;
/* discard 111 */
  (*(REF(111).tsdr)->finalize)(REF(111).value,F_DISCARD,sched);
  REF(111).tsdr = & dr_bottom;
/* move 30 112 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(112);
  REF(112).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c349:
/* initget 113 6.0.2 , 0,0 */
  (*(REF(113).tsdr)->finalize)(REF(113).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(113),DEF(6)DOT(0)DOT(2)
    ,nil,sched,GET,0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 113 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(113),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 114 113 */
  if((ch_returncode = cp_variant(& ch_val, REF(113).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(114).tsdr)->finalize)(REF(114).value,F_DISCARD,sched);
  REF(114).value = ch_val;
  REF(114).tsdr = & dr_variant;
/* endget 113 6.0.2 */
  end_selector(DEF(113),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 114 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(114);
  REF(114).tsdr = & dr_bottom;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 44;
cb355:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 115 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(115),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c356:
/* move 68 115 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(115);
  REF(115).tsdr = & dr_bottom;
/* chs_lit 116 , "IF/WHILE/WHERE guard does not produce INIT(" */
  if( !chs_lit(DEF(116),"IF/WHILE/WHERE guard does not produce INIT(") )
     goto ch_depletion;
/* concat 117 116 68 */
  if ((ch_returncode = che_concat(DEF(117),DEF(116),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 116 */
  (*(REF(116).tsdr)->finalize)(REF(116).value,F_DISCARD,sched);
  REF(116).tsdr = & dr_bottom;
/* chs_lit 118 , ")" */
  if( !chs_lit(DEF(118),")") ) goto ch_depletion;
/* concat 119 117 118 */
  if ((ch_returncode = che_concat(DEF(119),DEF(117),DEF(118)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 117 */
  (*(REF(117).tsdr)->finalize)(REF(117).value,F_DISCARD,sched);
  REF(117).tsdr = & dr_bottom;
/* discard 118 */
  (*(REF(118).tsdr)->finalize)(REF(118).value,F_DISCARD,sched);
  REF(118).tsdr = & dr_bottom;
/* move 30 119 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(119);
  REF(119).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c366:
/* initget 120 6.0.2 , 0,0 */
  (*(REF(120).tsdr)->finalize)(REF(120).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(120),DEF(6)DOT(0)DOT(2)
    ,nil,sched,GET,0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 120 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(120),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 121 120 */
  if((ch_returncode = cp_variant(& ch_val, REF(120).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(121).tsdr)->finalize)(REF(121).value,F_DISCARD,sched);
  REF(121).value = ch_val;
  REF(121).tsdr = & dr_variant;
/* endget 120 6.0.2 */
  end_selector(DEF(120),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 121 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(121);
  REF(121).tsdr = & dr_bottom;
/* reveal 29 , 1 */
  if (1 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 47;
cb372:
/* call 11.7 11 6.3 6.1 6.2 6.4 6.5 29.0 122 , 14 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(7),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(1),
          arguments[4] = DEF(6)DOT(2),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(122),
          arguments[8+1] = nil,& arguments[0]),QUAL(14),sched)) != Normal)
     goto ch_raise_exception;
  return;
c373:
/* move 68 122 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(122);
  REF(122).tsdr = & dr_bottom;
/* chs_lit 123 , "Attribute " */
  if( !chs_lit(DEF(123),"Attribute ") ) goto ch_depletion;
/* concat 124 123 68 */
  if ((ch_returncode = che_concat(DEF(124),DEF(123),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 123 */
  (*(REF(123).tsdr)->finalize)(REF(123).value,F_DISCARD,sched);
  REF(123).tsdr = & dr_bottom;
/* chs_lit 125 , " is not yet supported in process modules" */
  if( !chs_lit(DEF(125)," is not yet supported in process modules") )
     goto ch_depletion;
/* concat 126 124 125 */
  if ((ch_returncode = che_concat(DEF(126),DEF(124),DEF(125)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 124 */
  (*(REF(124).tsdr)->finalize)(REF(124).value,F_DISCARD,sched);
  REF(124).tsdr = & dr_bottom;
/* discard 125 */
  (*(REF(125).tsdr)->finalize)(REF(125).value,F_DISCARD,sched);
  REF(125).tsdr = & dr_bottom;
/* move 30 126 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(126);
  REF(126).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c383:
/* noop */
  
/* lookup_at 127 6.0.2 =(0) */
  if ( !((ch_t = REF(6)DOT(0)DOT(2).value.table)->size) ) goto ch_notfound;
  (*(REF(127).tsdr)->finalize)(REF(127).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(127).value,0);
  REF(127).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 127 */
  if((ch_returncode = cp_variant(& ch_val, REF(127).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 50;
cb388:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 128 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(128),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c389:
/* move 68 128 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(128);
  REF(128).tsdr = & dr_bottom;
/* lookup_at 129 6.0.2 =(1) */
  if (1 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(129).tsdr)->finalize)(REF(129).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(129).value,1);
  REF(129).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 129 */
  if((ch_returncode = cp_variant(& ch_val, REF(129).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 2 */
  if (2 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 52;
cb395:
/* call 11.3 11 6.3 6.4 29.0 130 , 15 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(3),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(4),
          arguments[4] = DEF(29)DOT(0),
          arguments[5] = DEF(130),
          arguments[5+1] = nil,& arguments[0]),QUAL(15),sched)) != Normal)
     goto ch_raise_exception;
  return;
c396:
/* move 131 130 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131) = REF(130);
  REF(130).tsdr = & dr_bottom;
/* lookup_at 132 6.0.2 =(3) */
  if (3 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(132).tsdr)->finalize)(REF(132).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(132).value,3);
  REF(132).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 132 */
  if((ch_returncode = cp_variant(& ch_val, REF(132).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 2 */
  if (2 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 54;
cb402:
/* call 11.3 11 6.3 6.4 29.0 133 , 15 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(3),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(4),
          arguments[4] = DEF(29)DOT(0),
          arguments[5] = DEF(133),
          arguments[5+1] = nil,& arguments[0]),QUAL(15),sched)) != Normal)
     goto ch_raise_exception;
  return;
c403:
/* move 134 133 */
  (*(REF(134).tsdr)->finalize)(REF(134).value,F_DISCARD,sched);
  REF(134) = REF(133);
  REF(133).tsdr = & dr_bottom;
/* lookup_at 135 6.0.2 =(2) */
  if (2 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(135).tsdr)->finalize)(REF(135).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(135).value,2);
  REF(135).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 135 */
  if((ch_returncode = cp_variant(& ch_val, REF(135).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 56;
cb409:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 136 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(136),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c410:
/* move 137 136 */
  (*(REF(137).tsdr)->finalize)(REF(137).value,F_DISCARD,sched);
  REF(137) = REF(136);
  REF(136).tsdr = & dr_bottom;
/* chs_lit 138 , "Type of " */
  if( !chs_lit(DEF(138),"Type of ") ) goto ch_depletion;
/* concat 139 138 68 */
  if ((ch_returncode = che_concat(DEF(139),DEF(138),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 138 */
  (*(REF(138).tsdr)->finalize)(REF(138).value,F_DISCARD,sched);
  REF(138).tsdr = & dr_bottom;
/* chs_lit 140 , " is " */
  if( !chs_lit(DEF(140)," is ") ) goto ch_depletion;
/* concat 141 139 140 */
  if ((ch_returncode = che_concat(DEF(141),DEF(139),DEF(140)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 139 */
  (*(REF(139).tsdr)->finalize)(REF(139).value,F_DISCARD,sched);
  REF(139).tsdr = & dr_bottom;
/* discard 140 */
  (*(REF(140).tsdr)->finalize)(REF(140).value,F_DISCARD,sched);
  REF(140).tsdr = & dr_bottom;
/* concat 142 141 131 */
  if ((ch_returncode = che_concat(DEF(142),DEF(141),DEF(131)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 141 */
  (*(REF(141).tsdr)->finalize)(REF(141).value,F_DISCARD,sched);
  REF(141).tsdr = & dr_bottom;
/* chs_lit 143 , " but should be " */
  if( !chs_lit(DEF(143)," but should be ") ) goto ch_depletion;
/* concat 144 142 143 */
  if ((ch_returncode = che_concat(DEF(144),DEF(142),DEF(143)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 142 */
  (*(REF(142).tsdr)->finalize)(REF(142).value,F_DISCARD,sched);
  REF(142).tsdr = & dr_bottom;
/* discard 143 */
  (*(REF(143).tsdr)->finalize)(REF(143).value,F_DISCARD,sched);
  REF(143).tsdr = & dr_bottom;
/* concat 145 144 134 */
  if ((ch_returncode = che_concat(DEF(145),DEF(144),DEF(134)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 144 */
  (*(REF(144).tsdr)->finalize)(REF(144).value,F_DISCARD,sched);
  REF(144).tsdr = & dr_bottom;
/* chs_lit 146 , " as inferred from " */
  if( !chs_lit(DEF(146)," as inferred from ") ) goto ch_depletion;
/* concat 147 145 146 */
  if ((ch_returncode = che_concat(DEF(147),DEF(145),DEF(146)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 145 */
  (*(REF(145).tsdr)->finalize)(REF(145).value,F_DISCARD,sched);
  REF(145).tsdr = & dr_bottom;
/* discard 146 */
  (*(REF(146).tsdr)->finalize)(REF(146).value,F_DISCARD,sched);
  REF(146).tsdr = & dr_bottom;
/* concat 148 147 137 */
  if ((ch_returncode = che_concat(DEF(148),DEF(147),DEF(137)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 147 */
  (*(REF(147).tsdr)->finalize)(REF(147).value,F_DISCARD,sched);
  REF(147).tsdr = & dr_bottom;
/* move 30 148 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(148);
  REF(148).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c434:
/* noop */
  
/* lookup_at 149 6.0.2 =(0) */
  if ( !((ch_t = REF(6)DOT(0)DOT(2).value.table)->size) ) goto ch_notfound;
  (*(REF(149).tsdr)->finalize)(REF(149).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(149).value,0);
  REF(149).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 149 */
  if((ch_returncode = cp_variant(& ch_val, REF(149).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 59;
cb439:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 150 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(150),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c440:
/* move 68 150 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(150);
  REF(150).tsdr = & dr_bottom;
/* lookup_at 151 6.0.2 =(1) */
  if (1 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(151).tsdr)->finalize)(REF(151).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(151).value,1);
  REF(151).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 151 */
  if((ch_returncode = cp_variant(& ch_val, REF(151).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 2 */
  if (2 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 61;
cb446:
/* call 11.3 11 6.3 6.4 29.0 152 , 15 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(3),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(4),
          arguments[4] = DEF(29)DOT(0),
          arguments[5] = DEF(152),
          arguments[5+1] = nil,& arguments[0]),QUAL(15),sched)) != Normal)
     goto ch_raise_exception;
  return;
c447:
/* move 131 152 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131) = REF(152);
  REF(152).tsdr = & dr_bottom;
/* lookup_at 153 6.0.2 =(2) */
  if (2 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(153).tsdr)->finalize)(REF(153).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(153).value,2);
  REF(153).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 153 */
  if((ch_returncode = cp_variant(& ch_val, REF(153).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 2 */
  if (2 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 63;
cb453:
/* call 11.3 11 6.3 6.4 29.0 154 , 15 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(3),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(4),
          arguments[4] = DEF(29)DOT(0),
          arguments[5] = DEF(154),
          arguments[5+1] = nil,& arguments[0]),QUAL(15),sched)) != Normal)
     goto ch_raise_exception;
  return;
c454:
/* move 134 154 */
  (*(REF(134).tsdr)->finalize)(REF(134).value,F_DISCARD,sched);
  REF(134) = REF(154);
  REF(154).tsdr = & dr_bottom;
/* chs_lit 155 , "Type of " */
  if( !chs_lit(DEF(155),"Type of ") ) goto ch_depletion;
/* concat 156 155 68 */
  if ((ch_returncode = che_concat(DEF(156),DEF(155),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 155 */
  (*(REF(155).tsdr)->finalize)(REF(155).value,F_DISCARD,sched);
  REF(155).tsdr = & dr_bottom;
/* chs_lit 157 , " is " */
  if( !chs_lit(DEF(157)," is ") ) goto ch_depletion;
/* concat 158 156 157 */
  if ((ch_returncode = che_concat(DEF(158),DEF(156),DEF(157)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 156 */
  (*(REF(156).tsdr)->finalize)(REF(156).value,F_DISCARD,sched);
  REF(156).tsdr = & dr_bottom;
/* discard 157 */
  (*(REF(157).tsdr)->finalize)(REF(157).value,F_DISCARD,sched);
  REF(157).tsdr = & dr_bottom;
/* concat 159 158 131 */
  if ((ch_returncode = che_concat(DEF(159),DEF(158),DEF(131)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 158 */
  (*(REF(158).tsdr)->finalize)(REF(158).value,F_DISCARD,sched);
  REF(158).tsdr = & dr_bottom;
/* chs_lit 160 , " but should be " */
  if( !chs_lit(DEF(160)," but should be ") ) goto ch_depletion;
/* concat 161 159 160 */
  if ((ch_returncode = che_concat(DEF(161),DEF(159),DEF(160)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 159 */
  (*(REF(159).tsdr)->finalize)(REF(159).value,F_DISCARD,sched);
  REF(159).tsdr = & dr_bottom;
/* discard 160 */
  (*(REF(160).tsdr)->finalize)(REF(160).value,F_DISCARD,sched);
  REF(160).tsdr = & dr_bottom;
/* concat 162 161 134 */
  if ((ch_returncode = che_concat(DEF(162),DEF(161),DEF(134)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 161 */
  (*(REF(161).tsdr)->finalize)(REF(161).value,F_DISCARD,sched);
  REF(161).tsdr = & dr_bottom;
/* move 30 162 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(162);
  REF(162).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c472:
/* noop */
  
/* lookup_at 163 6.0.2 =(0) */
  if ( !((ch_t = REF(6)DOT(0)DOT(2).value.table)->size) ) goto ch_notfound;
  (*(REF(163).tsdr)->finalize)(REF(163).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(163).value,0);
  REF(163).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 163 */
  if((ch_returncode = cp_variant(& ch_val, REF(163).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 66;
cb477:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 164 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(164),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c478:
/* move 68 164 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(164);
  REF(164).tsdr = & dr_bottom;
/* lookup_at 165 6.0.2 =(1) */
  if (1 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(165).tsdr)->finalize)(REF(165).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(165).value,1);
  REF(165).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 165 */
  if((ch_returncode = cp_variant(& ch_val, REF(165).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 2 */
  if (2 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 68;
cb484:
/* call 11.3 11 6.3 6.4 29.0 166 , 15 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(3),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(4),
          arguments[4] = DEF(29)DOT(0),
          arguments[5] = DEF(166),
          arguments[5+1] = nil,& arguments[0]),QUAL(15),sched)) != Normal)
     goto ch_raise_exception;
  return;
c485:
/* move 131 166 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131) = REF(166);
  REF(166).tsdr = & dr_bottom;
/* lookup_at 167 6.0.2 =(2) */
  if (2 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(167).tsdr)->finalize)(REF(167).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(167).value,2);
  REF(167).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 167 */
  if((ch_returncode = cp_variant(& ch_val, REF(167).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 5 */
  if (5 != REF(29).value.variant->info.variant_case) goto ch_case_error;
/* equal . 29.0 =(0) , 525 */
  if ( REF(29)DOT(0).value.enumeration == 0 ) goto c525;
/* equal . 29.0 =(1) , 528 */
  if ( REF(29)DOT(0).value.enumeration == 1 ) goto c528;
/* equal . 29.0 =(2) , 531 */
  if ( REF(29)DOT(0).value.enumeration == 2 ) goto c531;
/* equal . 29.0 =(3) , 534 */
  if ( REF(29)DOT(0).value.enumeration == 3 ) goto c534;
/* equal . 29.0 =(4) , 537 */
  if ( REF(29)DOT(0).value.enumeration == 4 ) goto c537;
/* equal . 29.0 =(5) , 540 */
  if ( REF(29)DOT(0).value.enumeration == 5 ) goto c540;
/* equal . 29.0 =(6) , 543 */
  if ( REF(29)DOT(0).value.enumeration == 6 ) goto c543;
/* equal . 29.0 =(7) , 546 */
  if ( REF(29)DOT(0).value.enumeration == 7 ) goto c546;
/* equal . 29.0 =(8) , 549 */
  if ( REF(29)DOT(0).value.enumeration == 8 ) goto c549;
/* equal . 29.0 =(9) , 552 */
  if ( REF(29)DOT(0).value.enumeration == 9 ) goto c552;
/* equal . 29.0 =(10) , 555 */
  if ( REF(29)DOT(0).value.enumeration == 10 ) goto c555;
/* equal . 29.0 =(11) , 558 */
  if ( REF(29)DOT(0).value.enumeration == 11 ) goto c558;
/* equal . 29.0 =(12) , 561 */
  if ( REF(29)DOT(0).value.enumeration == 12 ) goto c561;
/* equal . 29.0 =(13) , 564 */
  if ( REF(29)DOT(0).value.enumeration == 13 ) goto c564;
/* equal . 29.0 =(14) , 567 */
  if ( REF(29)DOT(0).value.enumeration == 14 ) goto c567;
/* equal . 29.0 =(15) , 570 */
  if ( REF(29)DOT(0).value.enumeration == 15 ) goto c570;
/* branch , 573 */
   goto c573;
c525:
/* chs_lit 134 , "boolean" */
  if( !chs_lit(DEF(134),"boolean") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c528:
/* chs_lit 134 , "numeric" */
  if( !chs_lit(DEF(134),"numeric") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c531:
/* chs_lit 134 , "variant" */
  if( !chs_lit(DEF(134),"variant") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c534:
/* chs_lit 134 , "string" */
  if( !chs_lit(DEF(134),"string") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c537:
/* chs_lit 134 , "inport" */
  if( !chs_lit(DEF(134),"inport") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c540:
/* chs_lit 134 , "outport" */
  if( !chs_lit(DEF(134),"outport") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c543:
/* chs_lit 134 , "copyable" */
  if( !chs_lit(DEF(134),"copyable") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c546:
/* chs_lit 134 , "orderedscalar" */
  if( !chs_lit(DEF(134),"orderedscalar") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c549:
/* chs_lit 134 , "table" */
  if( !chs_lit(DEF(134),"table") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c552:
/* chs_lit 134 , "integer" */
  if( !chs_lit(DEF(134),"integer") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c555:
/* chs_lit 134 , "enumerationorboolean" */
  if( !chs_lit(DEF(134),"enumerationorboolean") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c558:
/* chs_lit 134 , "nominal" */
  if( !chs_lit(DEF(134),"nominal") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c561:
/* chs_lit 134 , "enumeration" */
  if( !chs_lit(DEF(134),"enumeration") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c564:
/* chs_lit 134 , "newable" */
  if( !chs_lit(DEF(134),"newable") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c567:
/* chs_lit 134 , "polymorph" */
  if( !chs_lit(DEF(134),"polymorph") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c570:
/* chs_lit 134 , "callmessage" */
  if( !chs_lit(DEF(134),"callmessage") ) goto ch_depletion;
/* branch , 575 */
   goto c575;
c573:
/* chs_lit 134 , "*UNKNOWN*" */
  if( !chs_lit(DEF(134),"*UNKNOWN*") ) goto ch_depletion;
c575:
/* chs_lit 168 , "Type of " */
  if( !chs_lit(DEF(168),"Type of ") ) goto ch_depletion;
/* concat 169 168 68 */
  if ((ch_returncode = che_concat(DEF(169),DEF(168),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 168 */
  (*(REF(168).tsdr)->finalize)(REF(168).value,F_DISCARD,sched);
  REF(168).tsdr = & dr_bottom;
/* chs_lit 170 , " is " */
  if( !chs_lit(DEF(170)," is ") ) goto ch_depletion;
/* concat 171 169 170 */
  if ((ch_returncode = che_concat(DEF(171),DEF(169),DEF(170)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 169 */
  (*(REF(169).tsdr)->finalize)(REF(169).value,F_DISCARD,sched);
  REF(169).tsdr = & dr_bottom;
/* discard 170 */
  (*(REF(170).tsdr)->finalize)(REF(170).value,F_DISCARD,sched);
  REF(170).tsdr = & dr_bottom;
/* concat 172 171 131 */
  if ((ch_returncode = che_concat(DEF(172),DEF(171),DEF(131)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 171 */
  (*(REF(171).tsdr)->finalize)(REF(171).value,F_DISCARD,sched);
  REF(171).tsdr = & dr_bottom;
/* chs_lit 173 , " but should be in class " */
  if( !chs_lit(DEF(173)," but should be in class ") ) goto ch_depletion;
/* concat 174 172 173 */
  if ((ch_returncode = che_concat(DEF(174),DEF(172),DEF(173)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 172 */
  (*(REF(172).tsdr)->finalize)(REF(172).value,F_DISCARD,sched);
  REF(172).tsdr = & dr_bottom;
/* discard 173 */
  (*(REF(173).tsdr)->finalize)(REF(173).value,F_DISCARD,sched);
  REF(173).tsdr = & dr_bottom;
/* concat 175 174 134 */
  if ((ch_returncode = che_concat(DEF(175),DEF(174),DEF(134)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 174 */
  (*(REF(174).tsdr)->finalize)(REF(174).value,F_DISCARD,sched);
  REF(174).tsdr = & dr_bottom;
/* move 30 175 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(175);
  REF(175).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c592:
/* noop */
  
/* lookup_at 176 6.0.2 =(1) */
  if (1 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(176).tsdr)->finalize)(REF(176).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(176).value,1);
  REF(176).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 176 */
  if((ch_returncode = cp_variant(& ch_val, REF(176).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 3 */
  if (3 != REF(29).value.variant->info.variant_case) goto ch_case_error;
/* copy 68 29.0 */
  if((ch_returncode = cp_table(& ch_val, REF(29)DOT(0).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68).value = ch_val;
  REF(68).tsdr = & dr_table;
/* lookup_at 177 6.0.2 =(0) */
  if ( !((ch_t = REF(6)DOT(0)DOT(2).value.table)->size) ) goto ch_notfound;
  (*(REF(177).tsdr)->finalize)(REF(177).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(177).value,0);
  REF(177).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 177 */
  if((ch_returncode = cp_variant(& ch_val, REF(177).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 2 */
  if (2 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 71;
cb603:
/* call 11.3 11 6.3 6.4 29.0 178 , 15 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(3),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(4),
          arguments[4] = DEF(29)DOT(0),
          arguments[5] = DEF(178),
          arguments[5+1] = nil,& arguments[0]),QUAL(15),sched)) != Normal)
     goto ch_raise_exception;
  return;
c604:
/* move 131 178 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131) = REF(178);
  REF(178).tsdr = & dr_bottom;
/* chs_lit 179 , "The named literal '" */
  if( !chs_lit(DEF(179),"The named literal '") ) goto ch_depletion;
/* concat 180 179 68 */
  if ((ch_returncode = che_concat(DEF(180),DEF(179),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 179 */
  (*(REF(179).tsdr)->finalize)(REF(179).value,F_DISCARD,sched);
  REF(179).tsdr = & dr_bottom;
/* chs_lit 181 , "' does not belong to type " */
  if( !chs_lit(DEF(181),"' does not belong to type ") ) goto ch_depletion;
/* concat 182 180 181 */
  if ((ch_returncode = che_concat(DEF(182),DEF(180),DEF(181)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 180 */
  (*(REF(180).tsdr)->finalize)(REF(180).value,F_DISCARD,sched);
  REF(180).tsdr = & dr_bottom;
/* discard 181 */
  (*(REF(181).tsdr)->finalize)(REF(181).value,F_DISCARD,sched);
  REF(181).tsdr = & dr_bottom;
/* concat 183 182 131 */
  if ((ch_returncode = che_concat(DEF(183),DEF(182),DEF(131)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 182 */
  (*(REF(182).tsdr)->finalize)(REF(182).value,F_DISCARD,sched);
  REF(182).tsdr = & dr_bottom;
/* move 30 183 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(183);
  REF(183).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c616:
/* noop */
  
/* lookup_at 184 6.0.2 =(0) */
  if ( !((ch_t = REF(6)DOT(0)DOT(2).value.table)->size) ) goto ch_notfound;
  (*(REF(184).tsdr)->finalize)(REF(184).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(184).value,0);
  REF(184).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 184 */
  if((ch_returncode = cp_variant(& ch_val, REF(184).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 74;
cb621:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 185 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(185),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c622:
/* move 68 185 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(185);
  REF(185).tsdr = & dr_bottom;
/* lookup_at 186 6.0.2 =(1) */
  if (1 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(186).tsdr)->finalize)(REF(186).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(186).value,1);
  REF(186).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 186 */
  if((ch_returncode = cp_variant(& ch_val, REF(186).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 4 */
  if (4 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 76;
cb628:
/* call 5 29.0 187 , 7 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(5),
          arguments[1] = DEF(29)DOT(0),
          arguments[2] = DEF(187),
          arguments[2+1] = nil,& arguments[0]),QUAL(7),sched)) != Normal)
     goto ch_raise_exception;
  return;
c629:
/* move 131 187 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131) = REF(187);
  REF(187).tsdr = & dr_bottom;
/* lookup_at 188 6.0.2 =(2) */
  if (2 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(188).tsdr)->finalize)(REF(188).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(188).value,2);
  REF(188).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 188 */
  if((ch_returncode = cp_variant(& ch_val, REF(188).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 4 */
  if (4 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 78;
cb635:
/* call 5 29.0 189 , 7 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(5),
          arguments[1] = DEF(29)DOT(0),
          arguments[2] = DEF(189),
          arguments[2+1] = nil,& arguments[0]),QUAL(7),sched)) != Normal)
     goto ch_raise_exception;
  return;
c636:
/* move 134 189 */
  (*(REF(134).tsdr)->finalize)(REF(134).value,F_DISCARD,sched);
  REF(134) = REF(189);
  REF(189).tsdr = & dr_bottom;
/* chs_lit 190 , "Function " */
  if( !chs_lit(DEF(190),"Function ") ) goto ch_depletion;
/* concat 191 190 68 */
  if ((ch_returncode = che_concat(DEF(191),DEF(190),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 190 */
  (*(REF(190).tsdr)->finalize)(REF(190).value,F_DISCARD,sched);
  REF(190).tsdr = & dr_bottom;
/* chs_lit 192 , " expects " */
  if( !chs_lit(DEF(192)," expects ") ) goto ch_depletion;
/* concat 193 191 192 */
  if ((ch_returncode = che_concat(DEF(193),DEF(191),DEF(192)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 191 */
  (*(REF(191).tsdr)->finalize)(REF(191).value,F_DISCARD,sched);
  REF(191).tsdr = & dr_bottom;
/* discard 192 */
  (*(REF(192).tsdr)->finalize)(REF(192).value,F_DISCARD,sched);
  REF(192).tsdr = & dr_bottom;
/* concat 194 193 131 */
  if ((ch_returncode = che_concat(DEF(194),DEF(193),DEF(131)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 193 */
  (*(REF(193).tsdr)->finalize)(REF(193).value,F_DISCARD,sched);
  REF(193).tsdr = & dr_bottom;
/* chs_lit 195 , " arguments, not " */
  if( !chs_lit(DEF(195)," arguments, not ") ) goto ch_depletion;
/* concat 196 194 195 */
  if ((ch_returncode = che_concat(DEF(196),DEF(194),DEF(195)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 194 */
  (*(REF(194).tsdr)->finalize)(REF(194).value,F_DISCARD,sched);
  REF(194).tsdr = & dr_bottom;
/* discard 195 */
  (*(REF(195).tsdr)->finalize)(REF(195).value,F_DISCARD,sched);
  REF(195).tsdr = & dr_bottom;
/* concat 197 196 134 */
  if ((ch_returncode = che_concat(DEF(197),DEF(196),DEF(134)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 196 */
  (*(REF(196).tsdr)->finalize)(REF(196).value,F_DISCARD,sched);
  REF(196).tsdr = & dr_bottom;
/* move 30 197 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(197);
  REF(197).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c654:
/* noop */
  
/* lookup_at 198 6.0.2 =(0) */
  if ( !((ch_t = REF(6)DOT(0)DOT(2).value.table)->size) ) goto ch_notfound;
  (*(REF(198).tsdr)->finalize)(REF(198).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(198).value,0);
  REF(198).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 198 */
  if((ch_returncode = cp_variant(& ch_val, REF(198).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 4 */
  if (4 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 81;
cb659:
/* call 5 29.0 199 , 7 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(5),
          arguments[1] = DEF(29)DOT(0),
          arguments[2] = DEF(199),
          arguments[2+1] = nil,& arguments[0]),QUAL(7),sched)) != Normal)
     goto ch_raise_exception;
  return;
c660:
/* move 68 199 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(199);
  REF(199).tsdr = & dr_bottom;
/* lookup_at 200 6.0.2 =(3) */
  if (3 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(200).tsdr)->finalize)(REF(200).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(200).value,3);
  REF(200).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 200 */
  if((ch_returncode = cp_variant(& ch_val, REF(200).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 83;
cb666:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 201 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(201),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c667:
/* move 131 201 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131) = REF(201);
  REF(201).tsdr = & dr_bottom;
/* lookup_at 202 6.0.2 =(1) */
  if (1 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(202).tsdr)->finalize)(REF(202).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(202).value,1);
  REF(202).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 202 */
  if((ch_returncode = cp_variant(& ch_val, REF(202).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 2 */
  if (2 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 85;
cb673:
/* call 11.3 11 6.3 6.4 29.0 203 , 15 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(3),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(4),
          arguments[4] = DEF(29)DOT(0),
          arguments[5] = DEF(203),
          arguments[5+1] = nil,& arguments[0]),QUAL(15),sched)) != Normal)
     goto ch_raise_exception;
  return;
c674:
/* move 134 203 */
  (*(REF(134).tsdr)->finalize)(REF(134).value,F_DISCARD,sched);
  REF(134) = REF(203);
  REF(203).tsdr = & dr_bottom;
/* lookup_at 204 6.0.2 =(2) */
  if (2 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(204).tsdr)->finalize)(REF(204).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(204).value,2);
  REF(204).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 204 */
  if((ch_returncode = cp_variant(& ch_val, REF(204).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 2 */
  if (2 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 87;
cb680:
/* call 11.3 11 6.3 6.4 29.0 205 , 15 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(3),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(3),
          arguments[3] = DEF(6)DOT(4),
          arguments[4] = DEF(29)DOT(0),
          arguments[5] = DEF(205),
          arguments[5+1] = nil,& arguments[0]),QUAL(15),sched)) != Normal)
     goto ch_raise_exception;
  return;
c681:
/* move 137 205 */
  (*(REF(137).tsdr)->finalize)(REF(137).value,F_DISCARD,sched);
  REF(137) = REF(205);
  REF(205).tsdr = & dr_bottom;
/* chs_lit 206 , "Argument " */
  if( !chs_lit(DEF(206),"Argument ") ) goto ch_depletion;
/* concat 207 206 68 */
  if ((ch_returncode = che_concat(DEF(207),DEF(206),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 206 */
  (*(REF(206).tsdr)->finalize)(REF(206).value,F_DISCARD,sched);
  REF(206).tsdr = & dr_bottom;
/* chs_lit 208 , " in call to " */
  if( !chs_lit(DEF(208)," in call to ") ) goto ch_depletion;
/* concat 209 207 208 */
  if ((ch_returncode = che_concat(DEF(209),DEF(207),DEF(208)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 207 */
  (*(REF(207).tsdr)->finalize)(REF(207).value,F_DISCARD,sched);
  REF(207).tsdr = & dr_bottom;
/* discard 208 */
  (*(REF(208).tsdr)->finalize)(REF(208).value,F_DISCARD,sched);
  REF(208).tsdr = & dr_bottom;
/* concat 210 209 131 */
  if ((ch_returncode = che_concat(DEF(210),DEF(209),DEF(131)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 209 */
  (*(REF(209).tsdr)->finalize)(REF(209).value,F_DISCARD,sched);
  REF(209).tsdr = & dr_bottom;
/* chs_lit 211 , " is of type " */
  if( !chs_lit(DEF(211)," is of type ") ) goto ch_depletion;
/* concat 212 210 211 */
  if ((ch_returncode = che_concat(DEF(212),DEF(210),DEF(211)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 210 */
  (*(REF(210).tsdr)->finalize)(REF(210).value,F_DISCARD,sched);
  REF(210).tsdr = & dr_bottom;
/* discard 211 */
  (*(REF(211).tsdr)->finalize)(REF(211).value,F_DISCARD,sched);
  REF(211).tsdr = & dr_bottom;
/* concat 213 212 134 */
  if ((ch_returncode = che_concat(DEF(213),DEF(212),DEF(134)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 212 */
  (*(REF(212).tsdr)->finalize)(REF(212).value,F_DISCARD,sched);
  REF(212).tsdr = & dr_bottom;
/* chs_lit 214 , " but should be " */
  if( !chs_lit(DEF(214)," but should be ") ) goto ch_depletion;
/* concat 215 213 214 */
  if ((ch_returncode = che_concat(DEF(215),DEF(213),DEF(214)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 213 */
  (*(REF(213).tsdr)->finalize)(REF(213).value,F_DISCARD,sched);
  REF(213).tsdr = & dr_bottom;
/* discard 214 */
  (*(REF(214).tsdr)->finalize)(REF(214).value,F_DISCARD,sched);
  REF(214).tsdr = & dr_bottom;
/* concat 216 215 137 */
  if ((ch_returncode = che_concat(DEF(216),DEF(215),DEF(137)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 215 */
  (*(REF(215).tsdr)->finalize)(REF(215).value,F_DISCARD,sched);
  REF(215).tsdr = & dr_bottom;
/* move 30 216 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(216);
  REF(216).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c705:
/* noop */
  
/* lookup_at 217 6.0.2 =(1) */
  if (1 >= (ch_t = REF(6)DOT(0)DOT(2).value.table)->size) goto ch_notfound;
  (*(REF(217).tsdr)->finalize)(REF(217).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(217).value,1);
  REF(217).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 217 */
  if((ch_returncode = cp_variant(& ch_val, REF(217).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 90;
cb710:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 218 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(218),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c711:
/* move 68 218 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(218);
  REF(218).tsdr = & dr_bottom;
/* lookup_at 219 6.0.2 =(0) */
  if ( !((ch_t = REF(6)DOT(0)DOT(2).value.table)->size) ) goto ch_notfound;
  (*(REF(219).tsdr)->finalize)(REF(219).value,F_DISCARD,sched);
  (*(ch_t->tbls[ORDER_TBL].des->lookup_at))
    (ch_t, ORDER_TBL, & REF(219).value,0);
  REF(219).tsdr = qdatarepmap[ch_t->tsdr->number];
/* copy 29 219 */
  if((ch_returncode = cp_variant(& ch_val, REF(219).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).value = ch_val;
  REF(29).tsdr = & dr_variant;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 92;
cb717:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 220 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(220),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c718:
/* move 131 220 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131) = REF(220);
  REF(220).tsdr = & dr_bottom;
/* chs_lit 221 , "Call " */
  if( !chs_lit(DEF(221),"Call ") ) goto ch_depletion;
/* chs_lit 222 , "to " */
  if( !chs_lit(DEF(222),"to ") ) goto ch_depletion;
/* concat 223 221 222 */
  if ((ch_returncode = che_concat(DEF(223),DEF(221),DEF(222)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 221 */
  (*(REF(221).tsdr)->finalize)(REF(221).value,F_DISCARD,sched);
  REF(221).tsdr = & dr_bottom;
/* discard 222 */
  (*(REF(222).tsdr)->finalize)(REF(222).value,F_DISCARD,sched);
  REF(222).tsdr = & dr_bottom;
/* concat 224 223 68 */
  if ((ch_returncode = che_concat(DEF(224),DEF(223),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 223 */
  (*(REF(223).tsdr)->finalize)(REF(223).value,F_DISCARD,sched);
  REF(223).tsdr = & dr_bottom;
/* chs_lit 225 , " has overlapping arguments: " */
  if( !chs_lit(DEF(225)," has overlapping arguments: ") ) goto ch_depletion;
/* concat 226 224 225 */
  if ((ch_returncode = che_concat(DEF(226),DEF(224),DEF(225)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 224 */
  (*(REF(224).tsdr)->finalize)(REF(224).value,F_DISCARD,sched);
  REF(224).tsdr = & dr_bottom;
/* discard 225 */
  (*(REF(225).tsdr)->finalize)(REF(225).value,F_DISCARD,sched);
  REF(225).tsdr = & dr_bottom;
/* concat 227 226 131 */
  if ((ch_returncode = che_concat(DEF(227),DEF(226),DEF(131)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 226 */
  (*(REF(226).tsdr)->finalize)(REF(226).value,F_DISCARD,sched);
  REF(226).tsdr = & dr_bottom;
/* chs_lit 228 , " appears twice" */
  if( !chs_lit(DEF(228)," appears twice") ) goto ch_depletion;
/* concat 229 227 228 */
  if ((ch_returncode = che_concat(DEF(229),DEF(227),DEF(228)
    ,sched)) != Normal) goto ch_raise_exception;
/* discard 227 */
  (*(REF(227).tsdr)->finalize)(REF(227).value,F_DISCARD,sched);
  REF(227).tsdr = & dr_bottom;
/* discard 228 */
  (*(REF(228).tsdr)->finalize)(REF(228).value,F_DISCARD,sched);
  REF(228).tsdr = & dr_bottom;
/* move 30 229 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(229);
  REF(229).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c738:
/* initget 230 6.0.2 , 0,0 */
  (*(REF(230).tsdr)->finalize)(REF(230).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(230),DEF(6)DOT(0)DOT(2)
    ,nil,sched,GET,0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 230 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(230),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 231 230 */
  if((ch_returncode = cp_variant(& ch_val, REF(230).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(231).tsdr)->finalize)(REF(231).value,F_DISCARD,sched);
  REF(231).value = ch_val;
  REF(231).tsdr = & dr_variant;
/* endget 230 6.0.2 */
  end_selector(DEF(230),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 231 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(231);
  REF(231).tsdr = & dr_bottom;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 95;
cb744:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 232 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(232),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c745:
/* move 68 232 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(232);
  REF(232).tsdr = & dr_bottom;
/* chs_lit 233 , " is called but is not a callable outport" */
  if( !chs_lit(DEF(233)," is called but is not a callable outport") )
     goto ch_depletion;
/* concat 234 68 233 */
  if ((ch_returncode = che_concat(DEF(234),DEF(68),DEF(233),sched)) != Normal)
     goto ch_raise_exception;
/* discard 233 */
  (*(REF(233).tsdr)->finalize)(REF(233).value,F_DISCARD,sched);
  REF(233).tsdr = & dr_bottom;
/* move 30 234 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(234);
  REF(234).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c751:
/* initget 235 6.0.2 , 0,0 */
  (*(REF(235).tsdr)->finalize)(REF(235).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(235),DEF(6)DOT(0)DOT(2)
    ,nil,sched,GET,0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 235 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(235),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 236 235 */
  if((ch_returncode = cp_variant(& ch_val, REF(235).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(236).tsdr)->finalize)(REF(236).value,F_DISCARD,sched);
  REF(236).value = ch_val;
  REF(236).tsdr = & dr_variant;
/* endget 235 6.0.2 */
  end_selector(DEF(235),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 236 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(236);
  REF(236).tsdr = & dr_bottom;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 98;
cb757:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 237 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(237),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c758:
/* move 68 237 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(237);
  REF(237).tsdr = & dr_bottom;
/* chs_lit 238 , "Cannot infer type of " */
  if( !chs_lit(DEF(238),"Cannot infer type of ") ) goto ch_depletion;
/* concat 239 238 68 */
  if ((ch_returncode = che_concat(DEF(239),DEF(238),DEF(68),sched)) != Normal)
     goto ch_raise_exception;
/* discard 238 */
  (*(REF(238).tsdr)->finalize)(REF(238).value,F_DISCARD,sched);
  REF(238).tsdr = & dr_bottom;
/* move 30 239 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(239);
  REF(239).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c764:
/* initget 240 6.0.2 , 0,0 */
  (*(REF(240).tsdr)->finalize)(REF(240).value,F_DISCARD,sched);
  if ((ch_returncode = init_selector(DEF(240),DEF(6)DOT(0)DOT(2)
    ,nil,sched,GET,0,0)) != Normal) goto ch_raise_exception;
/* get_or_err 240 6.0.2 */
  if ((ch_returncode = get_selected_object(DEF(240),DEF(6)DOT(0)DOT(2)
    ,sched)) != Normal) goto ch_raise_exception;
/* copy 241 240 */
  if((ch_returncode = cp_variant(& ch_val, REF(240).value)) != Normal)
     goto ch_raise_exception;
  (*(REF(241).tsdr)->finalize)(REF(241).value,F_DISCARD,sched);
  REF(241).value = ch_val;
  REF(241).tsdr = & dr_variant;
/* endget 240 6.0.2 */
  end_selector(DEF(240),DEF(6)DOT(0)DOT(2),sched,GET);
/* move 29 241 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29) = REF(241);
  REF(241).tsdr = & dr_bottom;
/* reveal 29 , 0 */
  if (0 != REF(29).value.variant->info.variant_case) goto ch_case_error;
  current->ip = 101;
cb770:
/* call 11.0 11 6.1 6.2 6.3 6.4 6.5 29.0 242 , 13 */
  if ((ch_returncode = che_call((
          arguments[0] = DEF(11)DOT(0),
          arguments[1] = DEF(11),
          arguments[2] = DEF(6)DOT(1),
          arguments[3] = DEF(6)DOT(2),
          arguments[4] = DEF(6)DOT(3),
          arguments[5] = DEF(6)DOT(4),
          arguments[6] = DEF(6)DOT(5),
          arguments[7] = DEF(29)DOT(0),
          arguments[8] = DEF(242),
          arguments[8+1] = nil,& arguments[0]),QUAL(13),sched)) != Normal)
     goto ch_raise_exception;
  return;
c771:
/* move 68 242 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68) = REF(242);
  REF(242).tsdr = & dr_bottom;
/* chs_lit 243 , " is not a variant component" */
  if( !chs_lit(DEF(243)," is not a variant component") ) goto ch_depletion;
/* concat 244 68 243 */
  if ((ch_returncode = che_concat(DEF(244),DEF(68),DEF(243),sched)) != Normal)
     goto ch_raise_exception;
/* discard 243 */
  (*(REF(243).tsdr)->finalize)(REF(243).value,F_DISCARD,sched);
  REF(243).tsdr = & dr_bottom;
/* move 30 244 */
  (*(REF(30).tsdr)->finalize)(REF(30).value,F_DISCARD,sched);
  REF(30) = REF(244);
  REF(244).tsdr = & dr_bottom;
/* branch , 779 */
   goto c779;
c777:
/* chs_lit 30 , "Unknown error" */
  if( !chs_lit(DEF(30),"Unknown error") ) goto ch_depletion;
c779:
/* discard 29 */
  (*(REF(29).tsdr)->finalize)(REF(29).value,F_DISCARD,sched);
  REF(29).tsdr = & dr_bottom;
/* discard 68 */
  (*(REF(68).tsdr)->finalize)(REF(68).value,F_DISCARD,sched);
  REF(68).tsdr = & dr_bottom;
/* discard 131 */
  (*(REF(131).tsdr)->finalize)(REF(131).value,F_DISCARD,sched);
  REF(131).tsdr = & dr_bottom;
/* discard 134 */
  (*(REF(134).tsdr)->finalize)(REF(134).value,F_DISCARD,sched);
  REF(134).tsdr = & dr_bottom;
/* discard 137 */
  (*(REF(137).tsdr)->finalize)(REF(137).value,F_DISCARD,sched);
  REF(137).tsdr = & dr_bottom;
/* discard 33 */
  (*(REF(33).tsdr)->finalize)(REF(33).value,F_DISCARD,sched);
  REF(33).tsdr = & dr_bottom;
/* discard 34 */
  (*(REF(34).tsdr)->finalize)(REF(34).value,F_DISCARD,sched);
  REF(34).tsdr = & dr_bottom;
/* discard 35 */
  (*(REF(35).tsdr)->finalize)(REF(35).value,F_DISCARD,sched);
  REF(35).tsdr = & dr_bottom;
/* discard 36 */
  (*(REF(36).tsdr)->finalize)(REF(36).value,F_DISCARD,sched);
  REF(36).tsdr = & dr_bottom;
/* discard 37 */
  (*(REF(37).tsdr)->finalize)(REF(37).value,F_DISCARD,sched);
  REF(37).tsdr = & dr_bottom;
/* concat 6.8 20 30 */
  if ((ch_returncode = che_concat(DEF(6)DOT(8),DEF(20),DEF(30)
    ,sched)) != Normal) goto ch_raise_exception;
/* return 6 */
  if (ch_caller = do_return(REF(6).value)) {
    if (ch_caller->type < CProcess) ch_caller->ip++;
      sched->wakeup_proc(sched, ch_caller);}
  else rem_return(REF(6).value);
  REF(6).tsdr = & dr_bottom;
/* endblock */
  che_endblock(sched);
c794:
/* endprocess */
  che_endprocess(sched); return;
#include "chtail.h"
