sig
  type t
  val new' : unit -> Ming.SWFMovieClip.t
  type swfBlock = Ming.SWFShape.t
  val add :
    clip:Ming.SWFMovieClip.t ->
    block:Ming.SWFMovieClip.swfBlock -> Ming.SWFDisplayItem.t
  val nextFrame : clip:Ming.SWFMovieClip.t -> unit
end