#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_string *Systemfilename(_imp_string * Filename) { return (Filename); }
  typedef struct F {
    int Link;
    _imp_string Fileid;
    _imp_string Filename;
  } F;
  F Table;
  F *Ff;
  Table.Link = 0;
  Table.Filename = _imp_str_literal("FORTFILE");
  Ff = &Table;
  Ff->Fileid = *Systemfilename(Ff->Filename);
  if (Ff->Fileid != _imp_str_literal("FORTFILE"))
    Printstring(_imp_join(_imp_str_literal("\nWRONG ANSWER OF "), Ff->Fileid));
  else
    Printstring(_imp_str_literal("TEST OK"));
  exit(0);
  return (1);
}