let havoc_static hs p =
let xs,d = domain [] [] hs in
let sigma_0 = List.map (fun x -> x,freshen x) d in
let bindings,sigma_N = compute_bindings [] sigma_0 sigma_0 hs in
forall xs
(rename (reverse sigma_0)
(apply_bindings bindings
(rename sigma_N p)))