Constant Integer  CB1   = 1
Constant Integer  CB2   = 2
Constant Integer  CInt1 = CB1 + 3 * 4
Constant Integer  CInt2 = CInt1 + CB2 + 321
Constant Integer  CInt4 = 4
Constant Integer  MInt1 = M'X'
Constant Integer  MInt2 = M'IMP'
begin
  integer I
  I = CB1
  I = CB2
  I = CInt1
  I = CInt2
  I = CInt4
  I = MInt1
  I = MInt2

  I = CB1 + I
  I = CB2 + I
  I = CInt1 + I
  I = CInt2 + I
  I = CInt4 + I
  I = MInt1 + I
  I = MInt2 + I

  Write(CB1, 0); newline
  Write(CB2, 0); newline
  Write(CInt1, 0); newline
  Write(CInt2, 0); newline
  Write(CInt4, 0); newline
  Write(MInt1, 0); newline
  Write(MInt2, 0); newline

endofprogram