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