sig
  external new_movie : unit -> SWF.movie = "ml_newswfmovie"
  external destroy : movie:SWF.movie -> unit = "ml_destroyswfmovie"
  external add : movie:SWF.movie -> block:SWF.block -> SWF.display_item
    = "ml_swfmovie_add"
  external remove : movie:SWF.movie -> display_item:SWF.display_item -> unit
    = "ml_swfmovie_remove"
  external set_background :
    movie:SWF.movie -> r:int -> g:int -> b:int -> unit
    = "ml_swfmovie_setbackground"
  external set_dimension : movie:SWF.movie -> x:float -> y:float -> unit
    = "ml_swfmovie_setdimension"
  external save : movie:SWF.movie -> filename:string -> int
    = "ml_swfmovie_save"
  external set_rate : movie:SWF.movie -> rate:float -> unit
    = "ml_swfmovie_setrate"
  external next_frame : movie:SWF.movie -> unit = "ml_swfmovie_nextframe"
end