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 =
      Linear
    | QuadIn
    | QuadOut
    | QuadInOut
    | CubicIn
    | CubicOut
    | CubicInOut
    | QuartIn
    | QuartOut
    | QuartInOut
  val f : Ease.ease -> float -> float
end