MODULE Test;

IMPORT Out;

CONST
  im1 = -1;
  bol = ~FALSE;
  set = { 1, 2, 3..6 };
  fm1 = -1.0;
  dm1 = -1.0D0;

BEGIN
  Out.Open;

  Out.Int(im1, 0); Out.Ln;
  Out.Real(fm1, 0); Out.Ln;
  Out.LongReal(dm1, 0); Out.Ln;

  IF 5 IN set THEN
    Out.String("SET: Ok"); Out.Ln;
  ELSE
    Out.String("INVALID SET"); Out.Ln;
    HALT(1);
  END;

  IF bol THEN
    Out.String("BOOLEAN: Ok"); Out.Ln;
  ELSE
    Out.String("INVALID BOOLEAN"); Out.Ln;
    HALT(1);
  END;
END Test.