let media_func = (Js.Unsafe.variable "navigator")##webkitGetUserMedia in
let an_object2 = Js.Unsafe.js_expr "{video:true, audio:true}" in
media_func(an_object2, (fun _ -> print_endline "done"),(fun _ -> print_endline "error"))