type method_ = | All_pairs| Grid| Sweep_and_prune
type result = {pairs : (int * int) list;tests : int;
}val grid : ?cell:float -> box array -> resultval cell_size : box array -> floatval sweep_and_prune : ?axis:int -> box array -> resultval widest_axis : box array -> intval spread : box array -> float * float * float