--* From SMWATT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Sat Oct  9 15:41:37 1993
--* Received: from yktvmh.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA57559; Sat, 9 Oct 1993 15:41:37 -0400
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 6526; Sat, 09 Oct 93 15:47:31 EDT
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SMWATT.NOTE.VAGENT2.2810.Oct.09.15:47:31.-0400>
--*           for asbugs@watson; Sat, 09 Oct 93 15:47:31 -0400
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 2808; Sat, 9 Oct 1993 15:47:31 EDT
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Sat, 09 Oct 93 15:47:30 EDT
--* Received: from spadserv.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA54508; Sat, 9 Oct 1993 15:46:54 -0400
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA35388; Sat, 9 Oct 1993 15:53:40 -0400
--* Date: Sat, 9 Oct 1993 15:53:40 -0400
--* From: smwatt@spadserv.watson.ibm.com (Stephen Watt)
--* X-External-Networks: yes
--* Message-Id: <9310091953.AA35388@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: Tiny file takes an eternity to compile. [eternity.as][v31.1]

--@ Fixed  by:  PI   Sun Mar 20 20:19:33 EST 1994 
--@ Tested by:  none 
--@ Summary:    no more a bug. TNow it takes about 4sec., also with opt. on 


--+ time asharp -v eternity.as
--+ A# version 31.2 for AIX RS/6000 (debug version)
--+ 	      ld in sc sy li pa ma ab ck sb ti gf of pb pl pc po mi
--+  Time   3.8s   0 .7 .2  1 .2 .5 .2  0  0 .2 94 .7  0 .5  0  0  0 .2 %
--+  Alloc 3403K   0 .2 .2 .0 .3 .2 .3 .0 .0 .3 97 .5 .0 .1  0 .0 .0 .0 %
--+  Free  1082K   0 .0 .0 .0  1 .0 .8 .0 .0 .1 94 .4 .1 .5  0 .0  0  1 %
--+  Store 2355K : 3439K alloc - 1083K free - 0K gc  (2524K pool)
--+  Source 119L : 1874 lines per minute
--+ 3.91u 0.7s 0:16 24% 1029+1787k 0+0io 9pf+0w
#include "aslib.as"
import from SingleInteger

R ==> Record(a: SingleInteger, b: SingleInteger)
import from R
p: List R := [[1,0],[0,1]]
 
