let
clear () = cpt_mk_var := 0;
HA
.clear ha;
HI
.clear hi