1 2 3 4 5 6 7 8 9 10 11 12 13
module Battery = struct type t = int let of_int i = i let to_int b = b let to_string = string_of_int let compare = Int.compare let pp = string_of_int end