#include <perms.h>

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

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

  //     2    %string (6) s

  _imp_string6 S;

  //     3    %string (6) %name sp

  _imp_string6 *SP;

  //     4    %real r

  float R;

  //     5    %realname rp

  float *RP;

  //     6    %integer i

  int I;

  //     7    %integername ip

  int *IP;

  //     8    %short %integer si

  short int SI;

  //     9    %short %integer %name sip

  short int *SIP;

  //    10    %byte %integer bi

  unsigned char BI;

  //    11    %byte %integer %name bip

  unsigned char *BIP;

  //    12    sp == s

  SP = (_imp_string6 *)/*?*/ &S;

  //    13    rp == r

  RP = (float *)/*?*/ &R;

  //    14    ip == i

  IP = (int *)/*?*/ &I;

  //    15    sip == si

  SIP = (short int *)/*?*/ &SI;

  //    16    bip == bi

  BIP = (unsigned char *)/*?*/ &BI;

  //    17  %endofprogram

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