# exp1.t: test exponentiation
> a; > r; > n; < N;
i = 0; s = 0;
{ n - i ?
   t = a*r^i;
   s = s + t;
   < i; < B;
   < t; < T;
   < s; < N;
   i = i + 1;
}
< N; < s; < T;
< a*(1 - r^n)/(1 - r);
< N; $