aasdffasdf

let palindromeParallel n =
    [1..n]
    |> Seq.rev
    |> PSeq.map(fun x ->
        [1..n]
        |> Seq.rev
        |> Seq.tryFind(fun y -> (x * y).ToString().ToCharArray() = ((x*y).ToString().ToCharArray() |> Array.rev))
        |> Option.map(fun y -> y*x))
    |> Seq.distinct
    |> Seq.sortDescending
    |> Seq.head