Module Distance.Profile_data

module Profile_data: sig .. end

type t = (float array * float array) list * ((float * float) * (float * float)) *
       float 

val compare : 'a -> 'a -> int