model samp.mod;

param s;
let s := 0;
for {1 .. 100000} {

  let w1 := Uniform(1,4);
  let w2 := Uniform(1/3,1);

  solve;
  display ObjPlusRecourse;
  let s := s + ObjPlusRecourse;
 
}

display s/100000;