sig
  external new_from_file : filename:string -> modes:string -> SWF.input
    = "ml_newswfinput_file"
  external destroy : input:SWF.input -> unit = "ml_destroyswfinput"
  external get_length : input:SWF.input -> int = "ml_swfinput_length"
end