Module Pattern.Blend

type args =
  1. | Two of Base.int * Base.int
  2. | Four of Base.int * Base.int * Base.int * Base.int
  3. | Eight of Base.int * Base.int * Base.int * Base.int * Base.int * Base.int * Base.int * Base.int
val pack : args -> [> `Eight | `Four | `Two ] * int