let
of_binable s =
try
M
.of_string s
with
x
->
raise (
Of_binable
(s, x))