sig
  val linear : float -> float
  val quad_in : float -> float
  val quad_out : float -> float
  val quad_inOut : float -> float
  val cubic_in : float -> float
  val cubic_out : float -> float
  val cubic_inOut : float -> float
  val quart_in : float -> float
  val quart_out : float -> float
  val quart_inOut : float -> float
  type ease =
      [ `CubicIn
      | `CubicInOut
      | `CubicOut
      | `Linear
      | `QuadIn
      | `QuadInOut
      | `QuadOut
      | `QuartIn
      | `QuartInOut
      | `QuartOut ]
  val f : Ease.ease -> float -> float
  val get_func : Ease.ease -> float -> float
  val to_string : Ease.ease -> string
  val of_string : string -> Ease.ease
end