--* From SMWATT%WATSON.vnet.ibm.com@yktvmv.watson.ibm.com  Sun Aug 14 22:51:03 1994
--* Received: from yktvmv-ob.watson.ibm.com by asharp.watson.ibm.com (AIX 3.2/UCB 5.64/930311)
--*           id AA16359; Sun, 14 Aug 1994 22:51:03 -0400
--* Received: from watson.vnet.ibm.com by yktvmv.watson.ibm.com (IBM VM SMTP V2R3)
--*    with BSMTP id 2695; Sun, 14 Aug 94 22:51:06 EDT
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id <A.SMWATT.NOTE.VAGENT2.8141.Aug.14.22:51:05.-0400>
--*           for asbugs@watson; Sun, 14 Aug 94 22:51:05 -0400
--* Received: from YKTVMV by watson.vnet.ibm.com with "VAGENT.V1.0"
--*           id 8137; Sun, 14 Aug 1994 22:51:05 EDT
--* Received: from spadserv.watson.ibm.com by yktvmv.watson.ibm.com
--*    (IBM VM SMTP V2R3) with TCP; Sun, 14 Aug 94 22:51:05 EDT
--* Received: by spadserv.watson.ibm.com (AIX 3.2/UCB 5.64/900524)
--*           id AA28741; Sun, 14 Aug 1994 22:48:54 -0400
--* Date: Sun, 14 Aug 1994 22:48:54 -0400
--* From: smwatt@spadserv.watson.ibm.com (Stephen Watt)
--* X-External-Networks: yes
--* Message-Id: <9408150248.AA28741@spadserv.watson.ibm.com>
--* To: asbugs@watson.ibm.com
--* Subject: [4] Export to foreign C can't handle multiple value returns! [foo.as][this one]

--@ Fixed  by:  SSD   Mon Aug 15 11:34:54 EDT 1994 
--@ Tested by:  exptoc2.sh 
--@ Summary:    Needed to pass the reference parameters for the return values to the asharp closure function. 


#include "aslib"

export {
	f: (SingleInteger) -> (SingleInteger, SingleInteger);
} to Foreign C;

f(n: SingleInteger): (SingleInteger, SingleInteger) == { n + 1, n - 1}