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