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)))