let compare_by_time ia ib =
    Float.compare ia.time ib.time