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 [];
  }