let make_team ?name ?grade ?spec tnum = 
  { 
    num   = tnum; 
    name  = (match name with 
               | None -> "";
               | Some x -> x);
    grade = (match grade with 
               | None   -> !default_grade
               | Some x -> x);
    size  = ref 0;
    spec  = (match spec with 
               | None -> false;
               | Some x -> x);
  }