#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1  %begin

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

  //     2     %record %format Fm ( %integer a, b, c )

  struct FM {
    union {
      struct {
        int A;
        int B;
        int C;
      };
    };
  };

  //     3     %record(Fm) %name P == Nil

  struct FM *P;
  P = (struct FM *)NIL;

  //     4     Write(Addr(P), 0);  Newline

  _imp_WRITE(_imp_ADDR(P), 0);
  _imp_NEWLINE();

  //     5  %endofprogram

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