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

int main()
{
  vect = (:int[.])FibreScanIntArray();
  
  result =with {
                ( . <= [i] <= . ) : foo(i,vect);
               }: genarray(shape(vect), 0);

  FibrePrint( result);
 
  return(0);
}

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