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)