let
print formatter x =
Format
.pp_print_string formatter (to_string x)