--* From postmaster%watson.vnet.ibm.com@yktvmv.watson.ibm.com  Tue Aug  2 12:33:33 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA18418; Tue, 2 Aug 1994 12:33:33 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 8269; Tue, 02 Aug 94 12:33:37 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.RMC.NOTE.VAGENT2.4997.Aug.02.12:33:36.-0400>
--*           for asbugs@watson; Tue, 02 Aug 94 12:33:37 -0400
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 4989; Tue, 2 Aug 1994 12:33:36 EDT
--* Received: from spadserv.watson.ibm.com by yktvmv.watson.ibm.com
--*    (IBM VM SMTP V2R3) with TCP; Tue, 02 Aug 94 12:33:36 EDT
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA13248; Tue, 2 Aug 1994 12:32:17 -0400
--* Date: Tue, 2 Aug 1994 12:32:17 -0400
--* From: rmc@spadserv.watson.ibm.com
--* X-External-Networks: yes
--* Message-Id: <9408021632.AA13248@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [4] Floats still not present, fractionPart not part of DoubleFloat [gauss.as][36.1]

--@ Fixed  by:  SSD   Thu Aug 4 18:20:40 EDT 1994 
--@ Tested by:  none 
--@ Summary:    Adding fractionPart/wholePart to Float in float.as. 


-- Iteration of the Gauss map
#include "aslib"
F ==> DoubleFloat;
SI ==> SingleInteger;
G(x:F):F == fractionPart(1/x);

import from F, SI;
x:F := 1.0/3.0;
for i:SI in 1..10 repeat {
	print << x << newline;
	x := G(x);
}