let resp_to_full_string r = match r with 
  | Zero -> ""
  | Prog -> "Prog."
  | Secr -> "Secr."
  | Capt -> "Capt."