#include <perms.h>
int _imp_mainep(int _imp_argc, char **_imp_argv) {
  void Wrn(int X) {
    if (X >= 10)
      Printsymbol(X - 10 + 'A');
    else
      Printsymbol(X + '0');
  }
  void Wrb(int X) {
    Wrn(((unsigned)X >> 4) & 15);
    Wrn(X & 15);
  }
  void Wrhex(int X) {
    Wrb(*Byteinteger(Addr(X) + 3));
    Wrb(*Byteinteger(Addr(X) + 2));
    Wrb(*Byteinteger(Addr(X) + 1));
    Wrb(*Byteinteger(Addr(X) + 0));
  }
  double Longreal = 1851608064.012345678;
  Printstring(_imp_str_literal("long real: "));
  Print(Longreal, 16);
  Newline();
  Wrhex(*Integer(Addr(Longreal)));
  Newline();
  Wrhex(*Integer(Addr(Longreal) + 4));
  Newlines(2);
  *Integer(Addr(Longreal)) = 0x0000CA46;
  *Integer(Addr(Longreal) + 4) = 0x41DB9753;
  Printstring(_imp_str_literal("long real: "));
  Print(Longreal, 16);
  Newline();
  Wrhex(*Integer(Addr(Longreal)));
  Newline();
  Wrhex(*Integer(Addr(Longreal) + 4));
  Newlines(2);
  Printstring(_imp_str_literal("sizeof(longreal) = "));
  Write(Sizeof(Longreal), 0);
  Newline();
  exit(0);
  return (1);
}