Script started on Fri Sep 15 10:58:04 2000

sgi1% cat tladd
############################################################
#  Tests 
#     ladd
#     laddnew
############################################################
read ladd;

l1 := [1,2,3,4];

############################################################
#  Note the use of the 'printf' procedure, and the '%a'
#  format specification.
############################################################
printf("ladd(...) is %a \n", ladd(l1));
printf("laddnew(...) is %a \n", laddnew(l1));


sgi1% maple
    |\^/|     Maple V Release 5 (University of Texas at Austin)
._|\|   |/|_. Copyright (c) 1981-1997 by Waterloo Maple Inc. All rights
 \  MAPLE  /  reserved. Maple and Maple V are registered trademarks of
 <____ ____>  Waterloo Maple Inc.
      |       Type ? for help.
> read tladd;
      l1 := [1, 2, 3, 4]

ladd(...) is 10 
laddnew(...) is 10 
> quit
bytes used=176388, alloc=196572, time=0.03