let
pretty fmt b =
Format
.fprintf fmt
"%s"
(to_string b)