let
print fmt v =
Hstring
.print fmt v