("-swf-script-limits",Arg.String (fun sl ->
            try
                swf_script_limits := Some (match ExtString.String.nsplit sl ":" with
                | [recursion_depth; script_timeout] -> (int_of_string recursion_depth, int_of_string script_timeout)
                | _ -> raise Exit)
            with
                _ -> raise (Arg.Bad "Invalid SWF ScriptLimits format")
        ),"<swf script limits> : define SWF script limits (recursion depth:script timeout)");