sig
  type t
  val round :
    ?dir:[ `Down | `Nearest | `Up | `Zero ] ->
    Int_intf.Round.t -> to_multiple_of:Int_intf.Round.t -> Int_intf.Round.t
  val round_towards_zero :
    Int_intf.Round.t -> to_multiple_of:Int_intf.Round.t -> Int_intf.Round.t
  val round_down :
    Int_intf.Round.t -> to_multiple_of:Int_intf.Round.t -> Int_intf.Round.t
  val round_up :
    Int_intf.Round.t -> to_multiple_of:Int_intf.Round.t -> Int_intf.Round.t
  val round_nearest :
    Int_intf.Round.t -> to_multiple_of:Int_intf.Round.t -> Int_intf.Round.t
end