#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  int I;
  int J;
  int Max;
  _imp_string Varname;
  _imp_string Varvalue;
  Debugstring;
  Debugnewline;
  Debugnewline;
  Max = 0;
  for (I = 1; I <= Getenvcount; I++) {
    Varname = Getenvname;
    if (*Length(Varname) > Max) Max = *Length(Varname) + 1;
  }
  J = *Length(Itos(Getenvcount, 0));
  for (I = 1; I <= Getenvcount; I++) {
    Varname = Getenvname;
    Varvalue = Getenv;
    Debugstring;
    Debugstring;
    Debugspaces;
    Debugstring;
    if (*Length(Varvalue) != 0)
      Debugstring;
    else
      Debugstring;
    Debugnewline;
  }
  Debugnewline;
  Selectoutput(1);
  Printstring(
      _imp_join(_imp_str_literal("envc='"),
                _imp_join(Itos(Getenvcount, 0), _imp_str_literal("'"))));
  Newline();
  Newline();
  for (I = 1; I <= Getenvcount; I++) {
    Varname = Getenvname;
    Varvalue = Getenv;
    Printstring(_imp_join(_imp_str_literal("("),
                          _imp_join(Itos(I, J), _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();
  exit(0);
  return (1);
}