let pretty fmt z = Format.fprintf fmt "@[<h 1>%a@]" Locations.Zone.pretty z