#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _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*/
  ;
  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*/;
  SELECTOUTPUT(1); /*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();
  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*/
    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();
  }
  NEWLINE();
  _imp_leave();
  exit(0);
  return (0);
}