############################################################
#  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));


Script started on Tue Sep  8 15:03:26 1998
newton 21> 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=176328, alloc=196572, time=0.03
newton 22> exit
newton 23> 
script done on Tue Sep  8 15:03:36 1998