let
pp fmt (s, _) =
Format
.fprintf fmt
"%s"
s