open System.Linq

open System

open HtmlAgilityPack

​

Console.ReadLine()//"http://joyreactor.cc/post/4602408"

|> (new HtmlWeb()).Load

|> fun d -> d.DocumentNode.QuerySelectorAll(".post_comment_list .comment_username").Select(fun (x:HtmlNode) -> x.Attributes.["href"].Value).Distinct()

|> Seq.toList

|> function

    | [] -> ""  

    | xs -> xs.[Random().Next(xs.Count())]

|> printfn "Chosen one: http://joyreactor.cc%s"

​