渡されたテキストファイルから重複している行を削除し別のファイルに出力する

gistfile1.fs

module Script
open System.IO

[<EntryPoint>]
let main (args : string[]) =
    if args.Length = 2 then
        let keys =
            File.ReadAllLines(args.[0])
            |> Array.sort
            |> Array.fold
                (fun stat s ->
                    if Array.exists ((<>) s) stat then
                        Array.append stat [|s|]
                    else
                        stat)
                Array.empty<string>
        File.WriteAllLines(args.[1], keys, System.Text.Encoding.Default)
        0 
    else
        1