struct
let
of_string s =
String_to_bool
s
let
to_string b =
Bool_to_string
b
end