Task

Compute the sum and product of an array of integers.




include ..\Utilitys.pmt
 
( 1 2 3 4 5 )
 
dup sum "sum is " print print nl
 
1 swap
len for
    get rot * swap
endfor
drop
 
"mult is " print print nl