use Array: all;
use Math: all;


inline int[.] slIII(int[4] x, int[4] y)
{
 z = genarray([8], 0);
 zi = 0;
 for(i=0; i<shape(x)[0]; i++)
  for(k=0; k<x[[i]]; k++){
    z[[zi]] = y[[i]];
    zi++;
  }
 return(z);
}

int main()
{
 x = [1, 0,3,4];
 y = [10,20,30,40];
 z = slIII(x,y);
return(z[[0]]);
}