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)