求助！在lingo中怎样实现累乘？？

javy

<> 各位大侠：请问这里有没有lingo 高手呀？我想问下 在lingo 中怎么样实现累乘呀？</P>
<>比如要实现从1乘到100  ，该如何编写程序呀？</P>
<>请高手赐教！！谢谢了！！</P>

sandynit

SETS:
   a/1..100/:x;
ENDSETS
x(1)=1;
@for(a(i)|i#gt#1:x(i)=x(i-1)*i);