--* From SMWATT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Mon Sep 27 11:25:30 1993
--* Received: from yktvmh.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA21688; Mon, 27 Sep 1993 11:25:30 -0400
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 8403; Mon, 27 Sep 93 11:30:50 EDT
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SMWATT.NOTE.VAGENT2.3207.Sep.27.11:30:48.-0400>
--*           for asbugs@watson; Mon, 27 Sep 93 11:30:50 -0400
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 3201; Mon, 27 Sep 1993 11:30:48 EDT
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Mon, 27 Sep 93 11:30:34 EDT
--* Received: from spadserv.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA30866; Mon, 27 Sep 1993 11:29:49 -0400
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA28118; Mon, 27 Sep 1993 11:36:15 -0400
--* Date: Mon, 27 Sep 1993 11:36:15 -0400
--* From: smwatt@spadserv.watson.ibm.com (Stephen Watt)
--* X-External-Networks: yes
--* Message-Id: <9309271536.AA28118@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: Prints  1275 = 0, rather than 1275 = 1275 [xx.as][v30.6+]

--@ Fixed  by:  SSD   Mon Oct 3 14:28:56 EDT 1994 
--@ Tested by:  none 
--@ Summary:    Not a bug. '*' binds more tightly than quo/rem/mod. 
-- PI: which operator has highest priority, quo or *? If the answer is *, then
-- is not a bug (use the interpreter to convince)

#include "aslib.as"

f(): () ==
	import from SingleInteger

	REPEAT ==> 10

	N := 50

	for j in 1..REPEAT repeat
		form := if even? N then N quo 2 * (N+1) else (N+1) quo 2 * N
		tot  := 0
		for i in 0..N repeat tot := tot + i
		print(tot)(" = ")(form)()
f()