let string_of_bitrate = function | `Auto -> "birate=\"auto\"," | `Bitrate_max -> "birate=\"max\"," | `Bitrate b -> Printf.sprintf "bitrate=%d," b