let split_option = let rx = Str.regexp_string ":" in fun s -> try match Str.split rx s with | [ f ; n ] -> (f, n) | _ -> failwith "" with _ -> failwith "split_option"