let parse_list_of_substitutions s =
let subs = String.split ~on:(`Character ',') s in
List.filter_map subs ~f:(fun sub ->
match String.split ~on:(`Character ':') (String.strip sub) with
| [one; two] -> Some (one, two)
| other -> None
)