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;