let model_free (talloc : tbl_alloc) (p: D.integer) : tbl_alloc =
    D.e_app3 "update" talloc p (F.e_int 0)