let redirect_post url params =
  let f = Html.create "form" ~attrs:[("action", url); ("method""post")] () 
  in
  List.iter
    (fun (n, v) -> 
       Node.append f (Html.create "input"
                        ~attrs:[("type""text"); 
                                ("name", n); 
                                ("value", v)] ()))
    params ;
  ignore (JSOO.call_method "submit" [||] f)