#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  static int Fail = 0;
  _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 <= 10; I++) A[I] = Tostring(I + '0');
  for (I = 1; I <= 10; I++) Conc(A[I]);
  for (I = 1; I <= 10; I++) {
    Ap = &A[I];
    *Ap = _imp_join(*Ap, _imp_str_literal("b"));
    if (A[I] != _imp_join(Tostring(I + '0'), _imp_str_literal("ab"))) {
      Printstring(A[I]);
      Fail = 1;
    }
  }
  if (!Fail) Printstring(_imp_str_literal("TEST OK"));
  exit(0);
  return (1);
}