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