--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Tue Sep 27 11:00:05 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA26760; Tue, 27 Sep 1994 11:00:05 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 9151; Tue, 27 Sep 94 11:00:10 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.MIKER.NOTE.YKTVMV.7053.Sep.27.11:00:09.-0400>
--*           for asbugs@watson; Tue, 27 Sep 94 11:00:09 -0400
--* Received: from nagrs3.nag.co.uk by watson.ibm.com (IBM VM SMTP V2R3) with TCP;
--*    Tue, 27 Sep 94 11:00:06 EDT
--* Received: by nagrs3.nag.co.uk (AIX 3.2/UCB 5.64/4.03)
--*           id AA11680; Tue, 27 Sep 1994 16:01:10 +0100
--* Date: Tue, 27 Sep 1994 16:01:10 +0100
--* From: miker@nagrs3.nag.co.uk (Mike Richardson)
--* Message-Id: <9409271501.AA11680@nagrs3.nag.co.uk>
--* To: asbugs@watson.ibm.com
--* Subject: [5] while .. for .. generates error with -gloop

--@ Fixed  by:  SSD   Tue Sep 27 11:14:38 EDT 1994 
--@ Tested by:  none 
--@ Summary:    Not a bug. 

-- Command line: asharp -gloop
-- Version: 0.37.0
-- Original bug file name: /home/red5/miker/Axiom/ASdoc/t.as

#include "aslib"

import from Integer;

n := 10000;
k := 0;

while n ~= 1 for free k in 1.. repeat
if odd? n then n := 3*n + 1 else n := n quo 2;

print << "Terminated after " << k << " iterations." << newline;