# Omega Calculator v1.2 (based on Omega Library 1.2, August, 2000):
# R := { [i, j, k, l] :
#   0 <= i <= 19 &&
#   0 <= j <= 19 &&
#   1 <= k <= 1000 &&
#   -k + l >= 0 &&
#   2 k - l + 1 >= 0 &&
#   -200 i + k + l >= 0 &&
#   200 i - k - l + 199 >= 0 &&
#   -200 j - k + 2 l >= 0 &&
#   200 j + k -2 l + 199 >= 0
# } ;
# 
# 
# 
# codegen R;
for(t1 = 0; t1 <= 15; t1++) {
  for(t2 = max(2*t1-15,intDiv(t1-1+1,2)); t2 <= min(t1+1,15); t2++) {
    for(t3 = max(intDiv(200*t1-1+2,3),intDiv(200*t2-2+2,3),intDiv(-200*t2+400*t1-199+2,3),1); t3 <= min(100*t1+99,intDiv(-200*t2+400*t1+398,3),1000); t3++) {
      for(t4 = max(t3,200*t1-t3,intDiv(200*t2+t3+1,2)); t4 <= min(2*t3+1,intDiv(200*t2+t3+199,2),200*t1-t3+199); t4++) {
        s1(t1,t2,t3,t4);
      }
    }
  }
}

# 
#