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