module type LSet =A set of locationssig..end
type 'a t 
val make : 'a Biocaml_genomeMap.location Batteries.Enum.t -> 'a tval fold : ('a -> Biocaml_genomeMap.range -> 'b -> 'b) ->
       'a t -> 'b -> 'bval intersects : 'a Biocaml_genomeMap.location -> 'a t -> boolval enum : 'a t -> 'a Biocaml_genomeMap.location Batteries.Enum.tval union : 'a t ->
       'a t -> 'a tval add : 'a Biocaml_genomeMap.location ->
       'a t -> 'a t