use Array: {modarray,>=,iota,sel,shape,-,*};
use ArrayFormat:all;

int main()
{
 x = [2,2,2,2,2];
 y = 30;

  wts = iota(5);
  z = [0,0,0,0,0];

  cy = (y);
  for(i=shape(x)[[0]]-1; i>=0; i--){
       qq = modIII((x[[i]]),cy);
       z[[i]] = qq;
 StdIO::show([i,qq]);
 StdIO::show(z);
       k = wts[i];
#ifdef BREAKME
       cy = cy - z[[i]] * k;
#else // BREAKME
       cy = cy - qq * k;
#endif // BREAKME
  }

StdIO::show(z);
 return(0);
}

inline int modIII(int x, int y)
{ 
 z = y;
 return(z);
}