sig
  type t
  val to_string : Dbi.Decimal.t -> string
  val to_float : Dbi.Decimal.t -> float
  val of_string : ?scale:int -> string -> Dbi.Decimal.t
  val of_int : ?scale:int -> int -> Dbi.Decimal.t
  val add : Dbi.Decimal.t -> Dbi.Decimal.t -> Dbi.Decimal.t
  val sub : Dbi.Decimal.t -> Dbi.Decimal.t -> Dbi.Decimal.t
  val mul : Dbi.Decimal.t -> Dbi.Decimal.t -> Dbi.Decimal.t
  val div : Dbi.Decimal.t -> Dbi.Decimal.t -> Dbi.Decimal.t
  val compare : Dbi.Decimal.t -> Dbi.Decimal.t -> int
end