type ComparableBox(value) =
    member __.Value = value

    interface System.IComparable with
      member __.CompareTo y =
        match y with
        | :? 'T as y -> compare value y
        | _ -> failwith "could not compare"