sig
  type vec2i = int * int
  type t = {
    p : CL_Quad.vec2i;
    q : CL_Quad.vec2i;
    r : CL_Quad.vec2i;
    s : CL_Quad.vec2i;
  }
end