--* From SMWATT%WATSON.vnet.ibm.com@yktvmv.watson.ibm.com  Tue Aug 23 00:29:04 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA06213; Tue, 23 Aug 1994 00:29:04 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 5475; Tue, 23 Aug 94 00:29:08 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SMWATT.NOTE.VAGENT2.2373.Aug.23.00:29:07.-0400>
--*           for asbugs@watson; Tue, 23 Aug 94 00:29:08 -0400
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 2367; Tue, 23 Aug 1994 00:29:07 EDT
--* Received: from spadserv.watson.ibm.com by yktvmv.watson.ibm.com
--*    (IBM VM SMTP V2R3) with TCP; Tue, 23 Aug 94 00:29:06 EDT
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA31847; Tue, 23 Aug 1994 00:29:09 -0400
--* Date: Tue, 23 Aug 1994 00:29:09 -0400
--* From: smwatt@spadserv.watson.ibm.com (Stephen Watt)
--* X-External-Networks: yes
--* Message-Id: <9408230429.AA31847@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [2][interp] Interpreter missing foam operations

--@ Fixed  by:  SSD+PI   Fri Nov 18 08:34:42 EST 1994 
--@ Tested by:  none 
--@ Summary:    Implemented (and fixed) missing foam operations. 


-- Command line: asharp -gloop
-- Version: 0.36.5
-- Original bug file name: /dev/null

--+ [0.31] % asharp -gloop
--+ %1 >> #include "aslib"
--+ %2 >> import from SingleInteger;
--+ %3 >> import from Machine;
--+ %4 >> w1 := 1234567 pretend Word
--+   () @ Word
--+ %5 >> w2 := 9876543 pretend Word
--+   () @ Word
--+ %6 >> w1 pretend SingleInteger
--+ 1234567 @ SingleInteger
--+ %7 >> (w3, w4) := double_*(w1, w2)
--+ Bug: BCall: WordTimesDouble (<double*> in [machine]) unimplemented...
 
--+ %1 >> #include "aslib"
--+ %2 >> import from SingleInteger;
--+ %3 >> import from Machine;
--+ %4 >> w1 := 1234567 pretend Word
--+   () @ Word
--+ %5 >> w2 := 9876543 pretend Word
--+   () @ Word
--+ %6 >> (w3, w4) := double_*(w1, w2)
--+   () @ Word, Word
--+ %7 >> w3 pretend SingleInteger
--+ 2838 @ SingleInteger
--+ %8 >> w4 pretend SingleInteger
--+ -158091463 @ SingleInteger
--+ %9 >> #quit