let
print_string_cap_ro fmt t =
Format
.fprintf fmt
"ro%S"
(string_of_cap t)