let get_unique_resp rsp (gl:student list) groupnum padd teamnum =
let all_caps = get_multip_resp rsp gl groupnum padd teamnum in
match (List.length all_caps) with
| 0 -> failwith (Printf.sprintf "Missing %s for Group %d Project %s Team %d"
(resp_to_full_string rsp) groupnum
(pa_to_string padd) teamnum);
| 1 -> List.hd all_caps;
| _ -> failwith (Printf.sprintf "Multiple %s for team %d"
(resp_to_full_string rsp) teamnum)