#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_string A[10 /*1:10*/];
  _imp_string *Ap;
  int I;
  void Conc(_imp_string * X) { *X = _imp_join(*X, _imp_str_literal("a")); }
  for (I = 1; I <= 1; I++) A[I] = Tostring(I + '0');
  Printstring(_imp_str_literal("before conc "));
  Printstring(A[1]);
  Newline();
  for (I = 1; I <= 1; I++) Conc(A[I]);
  Printstring(_imp_str_literal("afeter conc "));
  Printstring(A[1]);
  Newline();
  for (I = 1; I <= 1; I++) {
    Ap = &A[I];
    *Ap = _imp_join(*Ap, _imp_str_literal("b"));
    Printstring(_imp_str_literal("after 2nd conc "));
    Printstring(A[1]);
    Newline();
    if (A[I] != _imp_join(Tostring(I + '0'), _imp_str_literal("ab")))
      Printstring(A[I]);
  }
  exit(0);
  return (1);
}