module Filling: sig .. end
sig
end
type t = [ `Pattern of int | `Solid ]
[ `Pattern of int | `Solid ]