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