#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %record %format Include Fm ( %integer Depth )

struct INCLUDEFM {
  union {
    struct {
      int DEPTH;
    };
  };
};

//     2  %own %record(Include Fm) %name Including

static struct INCLUDEFM *INCLUDING;

//     3
//     4  %begin

int main(int argc, char **argv) { /*%begin*/
  _imp_initialise(argc, argv);

  //     5     Including == Record(0)

  INCLUDING = (struct INCLUDEFM *)_imp_RECORD(0);

  //     6     %if Including ## Nil %start

  if (_imp_ADDR((void *)(INCLUDING)) == _imp_ADDR((void *)(NIL))) goto L_0001;

    //     7        Print String("Wrong!");  Newline

  _imp_PRINTSTRING(_imp_str_literal("Wrong!"));
  _imp_NEWLINE();

  //     8     %finish

L_0001:;

//     9  %end %of %program

  _imp_stop(0);
  return 0;
end_0:;
}