let list sa =  sa |> Set.fold (fun se sacc -> sacc::se) [] |> List.rev

let list2 sa =  Set.foldBack (fun se sacc -> se::sacc) sa []

​

let set = [1 ; 12; 6 ;8 ; 4] |> Set.ofList

​

set |> printfn "%A"

​

list set |> printfn "%A"

list2 set |> printfn "%A"