#include <perms.h>
void BILBO(void) /* See
                    https://gcc.gnu.org/onlinedocs/gcc-4.7.2/gcc/Function-Attributes.html
                  */
{
  _imp_enter();
  int I;
  int J;
  int MAX;
  _imp_string VARNAME;
  _imp_string VARVALUE;
  /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ /*ERROR: name_sym_idx is -1!*/
  /*C_NAME*/ /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/;
      /*ERROR: name_sym_idx is -1!*/            /*C_NAME*/
  ; /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/   /*ERROR: name_sym_idx is -1!*/
      /*C_NAME*/ /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
  ; /*ERROR: name_sym_idx is -1!*/              /*C_NAME*/
  ; /*ERROR: name_sym_idx is -1!*/              /*C_NAME*/
  ;
  for (/*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ I = 0; I != () - 1 + 1;
       I += 1) {
    /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ /*ERROR: name_sym_idx is -1!*/
    /*C_NAME*/ /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/;
        /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
    ;
  }
  /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/;
      /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
  if (() == 1)
    _imp_signal(/*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ 10, 1, (() - 1),
                _imp_str_literal(""));
        /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
  OPENOUTPUT(1, );
  SELECTOUTPUT(1); /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
      /*ERROR: name_sym_idx is -1!*/              /*C_NAME*/
  PRINTSTRING(_imp_join(_imp_str_literal("argc='"),
                        _imp_join(, _imp_str_literal("'"))));
  NEWLINE(); /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
      /*ERROR: name_sym_idx is -1!*/        /*C_NAME*/
  PRINTSTRING(_imp_join(_imp_str_literal("envc='"),
                        _imp_join(, _imp_str_literal("'"))));
  NEWLINE();
  NEWLINE(); /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
      /*ERROR: name_sym_idx is -1!*/        /*C_NAME*/
  J = LENGTH();
  for (/*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ I = 0; I != () - 1 + 1;
       I += 1) {
    /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ PRINTSTRING(_imp_join(
        _imp_str_literal("Arg("), _imp_join(, _imp_str_literal(") = '"))));
        /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
    PRINTSTRING(_imp_join(, _imp_str_literal("'")));
    NEWLINE();
  }
  NEWLINE();
  MAX = 0;
  for (/*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ I = 1; I != () + 1; I += 1) {
    /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ VARNAME = MISSING_RHS;
    if (LENGTH(VARNAME) > MAX) MAX = LENGTH(VARNAME) + 1;
  }
  /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ /*ERROR: name_sym_idx is -1!*/
  /*C_NAME*/ J = LENGTH();
  for (/*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ I = 1; I != () + 1; I += 1) {
    /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/ VARNAME = MISSING_RHS;
        /*ERROR: name_sym_idx is -1!*/                     /*C_NAME*/
    VARVALUE = MISSING_RHS; /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
        /*ERROR: name_sym_idx is -1!*/                     /*C_NAME*/
    ; /*ERROR: name_sym_idx is -1!*/                       /*C_NAME*/
    ; /*ERROR: name_sym_idx is -1!*/                       /*C_NAME*/
    ; /*ERROR: name_sym_idx is -1!*/                       /*C_NAME*/
    ;
    if (LENGTH(VARVALUE) != 0) {
      /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/;

    } else { /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
      ;
    } /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/;
        /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/
    PRINTSTRING(
        _imp_join(_imp_str_literal("("), _imp_join(, _imp_str_literal(") "))));
    PRINTSTRING(VARNAME);
    SPACES(MAX - LENGTH(VARNAME));
    PRINTSTRING(_imp_str_literal(" = "));
    if (LENGTH(VARVALUE) != 0) {
      PRINTSTRING(_imp_join(_imp_str_literal("'"),
                            _imp_join(VARVALUE, _imp_str_literal("'"))));

    } else {
      PRINTSTRING(
          _imp_str_literal("'        **** too long for an IMP string'"));
    }
    NEWLINE();
  }
  /*ERROR: name_sym_idx is -1!*/ /*C_NAME*/;
  NEWLINE();
  _imp_leave();
}