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"