mihihi

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