let (|ParseRegex|_|) re s =
    let m = Regex(re).Match(s)
    if m.Success
    then Some [ for x in m.Groups -> x.Value ]
    else None

let swap s =
    match s with
    | ParseRegex "(\w+)-(\w+)" [l;r] -> r ^ "-" ^ l
    | _ -> s