ADT

adt.fs

open System

type Choice = Include of List<string> | Exclude of List<string>

let getProfile (name:string) (args:Choice Option):string =   
    match args with
    | Some args -> match args with
        |Exclude args -> sprintf "Name: %s Exclude: %O" name args
        |Include args -> sprintf "Name: %s Include: %O" name args
    | None -> sprintf "Name: %s" name
        


[<EntryPoint>]
let main argv =
    getProfile "name" None |> printfn "%s"
    let incl = Include ["sd";"sdsd"]
    let excl = Exclude ["dss"; "ddf"]
    getProfile "name" (Some incl) |> printfn "%s"
    getProfile "name" (Some excl) |> printfn "%s"
    let s = Console.ReadKey()
    1