use Array: all;
use StdIO: all;
use MutcBenchmarking : all;

int main()
{
  vect = FibreScanIntArray();
  interval = getInterval( "workRC");
  
  startRC( interval);
  result =with {
                ( . <= [i] <= . ) : foo(i,vect);
               }: genarray(shape(vect), 0);
  endRC( interval);

  FibrePrint( result);
  printResult(interval);
  
  return(0);
}

int foo( int i,int[.] vect)
{
  r = 0;
  for(j=0; j < vect[[i]]; j++)
  {
    r = r+1;
  }
  return (r);
}