let rec make_project ?(name = "") ?(id = "") ?(a = []) ?(coeff = 0.) ?dgrad (p:int) =
{
num = p;
add = a;
name = ref name;
id = ref id;
coeff = ref coeff;
dgrad = ref (match dgrad with None -> !default_grade | Some x -> x);
teams = H.create ();
sub = ref [];
}