F.Geometry
type t = {
cylinders : int;
heads : int;
sectors : int;
}
val to_string : t -> string
val of_sectors : int64 -> t