let resp_to_string r = match r with 
  | Zero -> "_"
  | Prog -> "p"
  | Secr -> "S"
  | Capt -> "C"