let string_of_bandwidth = function
    | None -> ""
    | Some `Narrow_band -> "max_bandwidth=\"narrow_band\","
    | Some `Medium_band -> "max_bandwidth=\"medium_band\","
    | Some `Wide_band   -> "max_bandwidth=\"wide_band\","
    | Some `Super_wide_band -> "max_bandwidth=\"super_wide_band\","
    | Some `Full_band -> "max_bandwidth=\"full_band\","