MakeInLine.fsx

open System.Text.RegularExpressions
type Clip = System.Windows.Forms.Clipboard

[<System.STAThread>]
do    
    Regex.Matches(Clip.GetText(), @"\d+", RegexOptions.Singleline)
    |> Seq.cast<Match>
    |> Seq.map (fun x -> x.Value)
    |> Seq.distinct
    |> String.concat ","
    |> Clip.SetText

#if INTERACTIVE
let (++) a b = System.IO.Path.Combine(a, b)
let source = __SOURCE_DIRECTORY__ ++ __SOURCE_FILE__
let args = sprintf "--target:winexe %s -o:%s" source <| source.Replace("fsx", "exe")
System.Diagnostics.Process.Start(System.AppDomain.CurrentDomain.BaseDirectory ++ "fsc", args)
#endif