sig
  class type t =
    object
      method close : unit
      method write : Video.buffer -> int -> int -> unit
    end
  class to_avi_file : string -> Video.FPS.t -> int -> int -> t
end