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