let
clear () = cpt_mk_var := 0; ma :=
MA
.empty