--* From SMWATT%WATSON.vnet.ibm.com@yktvmh.watson.ibm.com  Tue Mar  8 18:51:59 1994
--* Received: from yktvmh.watson.ibm.com by leonardo.watson.ibm.com (AIX 3.2/UCB 5.64/920123)
--*           id AA14235; Tue, 8 Mar 1994 18:51:59 -0500
--* Received: from watson.vnet.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 2809; Tue, 08 Mar 94 18:53:21 EST
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SMWATT.NOTE.VAGENT2.9622.Mar.08.18:53:16.-0500>
--*           for asbugs@watson; Tue, 08 Mar 94 18:53:21 -0500
--* Received: from YKTVMH by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 9619; Tue, 8 Mar 1994 18:53:16 EST
--* Received: from cyst.watson.ibm.com by yktvmh.watson.ibm.com (IBM VM SMTP V2R3)
--*    with TCP; Tue, 08 Mar 94 18:53:14 EST
--* Received: from spadserv.watson.ibm.com by cyst.watson.ibm.com (AIX 3.2/UCB 5.64/900528)
--*   id AA197109; Tue, 8 Mar 1994 18:51:56 -0500
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA12140; Tue, 8 Mar 1994 18:48:27 -0500
--* Date: Tue, 8 Mar 1994 18:48:27 -0500
--* From: smwatt@spadserv.watson.ibm.com (Stephen Watt)
--* X-External-Networks: yes
--* Message-Id: <9403082348.AA12140@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [3] qualified foreign exports recently broken [aside.as][v34.4a]

--@ Fixed  by:  SSD   Thu Jun 2 17:18:10 EDT 1994 
--@ Tested by:  none 
--@ Summary:    scobind upgrade fixes this bug. 


--
-- aside.as: An A# function made available to C.
--
#include "aslib.as"
#include "foreign.as"

SI ==> SingleInteger

export { lcm: (SI, SI) -> SI } to Foreign C

lcm(n: SI, m: SI): SI == (n quo gcd(n,m)) * m