let suffixesToDrop = ["a";"b"];
let shouldNormalize = true;

let clearSuffix (input:string) (suffix:string) =
      match (input:string) with
      | input when input.EndsWith(suffix) -> input.[0..(input.Length-suffix.Length)]
      | _ -> input

let clearSuffixes input =
   List.fold clearSuffix input suffixesToDrop

let normalizeSlashes (input:string) =
    input.Replace ('/', '\\')

let processString input:string =
   match shouldNormalize with
   | true -> normalizeSlashes input |> clearSuffixes
   | false -> clearSuffixes input