let reprs =
        List.fold_left
          (fun acc l ->
            List.fold_left
              (fun acc z -> { loc_info = l; under_outputs = z } :: acc)
              acc
              Locations.Zone.reprs)
          []
          LocInfo.reprs