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