--* From SMWATT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Tue Sep 28 13:55:51 1993
--* Received: from yktvmh.watson.ibm.com by radical.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA18499; Tue, 28 Sep 1993 13:55:51 -0400
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 5329; Tue, 28 Sep 93 14:01:18 EDT
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SMWATT.NOTE.VAGENT2.7590.Sep.28.14:00:35.-0400>
--*           for asbugs@watson; Tue, 28 Sep 93 14:01:17 -0400
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 7580; Tue, 28 Sep 1993 14:00:34 EDT
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Tue, 28 Sep 93 14:00:32 EDT
--* Received: from spadserv.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA61619; Tue, 28 Sep 1993 13:59:48 -0400
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA13072; Tue, 28 Sep 1993 14:06:18 -0400
--* Date: Tue, 28 Sep 1993 14:06:18 -0400
--* From: smwatt@spadserv.watson.ibm.com (Stephen Watt)
--* X-External-Networks: yes
--* Message-Id: <9309281806.AA13072@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: Assertion failed, file "../src/genfoam.c" line 1690: foamTag(rhsFoam) == FOAM_Values [foo.as][v30.6]

--@ Fixed  by:  PI   Tue Oct 26 11:05:21 1993 
--@ Tested by:  assign2.as 
--@ Summary:    modified tibup0InferLhs 


#include "aslib.as"

f(): (Integer, Integer) ==
	import Integer
	(2, 3)


g(): () ==
	import Integer
	x := f()
	(a, b) := x