#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  _imp_enter();
  auto _imp_string *SYSTEMFILENAME(_imp_string * FILENAME) {
    _imp_enter();
    return (FILENAME);
    _imp_leave();
  }

  typedef struct F {
    _imp_string FILENAME;
    _imp_string FILEID;
    int LINK;

  } 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"));
  _imp_leave();
  exit(0);
  return (0);
}