module ColMap: Map.S with type key = float * float * Box.line * float * float * Box.line
Map.S
with type key = float * float * Box.line * float * float * Box.line