sig
  external new_movie_clip : unit -> SWF.movie_clip = "ml_newswfmovieclip"
  external destroy : movie_clip:SWF.movie_clip -> unit
    = "ml_destroyswfmovieclip"
  external add :
    movie_clip:SWF.movie_clip -> block:SWF.block -> SWF.display_item
    = "ml_swfmovieclip_add"
  external next_frame : movie_clip:SWF.movie_clip -> unit
    = "ml_swfmovieclip_nextframe"
end