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);
}