sig type t = float val to_frac : Video.FPS.t -> int * int end