!%permintegerfnspec  int pt(%real r)
begin
  integer x

  x = 2 * 3 + 4       ;! no extra brackets when Imp precedence matches C precedence
  x = 2 + 3 * 4       ;! no extra brackets when Imp precedence matches C precedence
  x = 2 + 3 * 4 + 5   ;! no extra brackets when Imp precedence matches C precedence

  x = 2 * ( 3 + 4)    ;! explicit brackets are honoured
  x = (2 * 3) + 4

  x = 1 & 2 + 3 & 4   ;! an Imp to C gotcha!

  x = 123 & 12 + 234 ! 23 * 345 !! 34 - 45 - INTPT(1.5 ^ 2 / 5.0) << 2 >> 3 ^^ 2 ^^ 2

endofprogram