let constant e =
  match (Cil.constFold true e).enode with
    | Const (CInt64(k,_,_)) -> k
    | _ -> WpLog.fatal "Non-constant expression (%a)" !Ast_printer.d_exp e