let string_of_signal = function
    | None -> ""
    | Some `Auto -> "signal=\"auto\","
    | Some `Voice -> "signal=\"voice\","
    | Some `Music -> "signal=\"music\","