Mpeg_system
type stream = {
id : int;
bytes : string;
first_pts : float option;
}
val of_string : string -> stream list
val video : stream list -> stream option
val audio : stream list -> stream option
val pts : string -> int -> int