fuuuuuuuuuu

let palindromeSeq n =
    [1..n]
    |> Seq.rev
    |> Seq.map(fun x -> [1..n]
                        |> Seq.rev
                        |> Seq.filter(fun y -> (x*y).ToString().ToCharArray() = ((x*y).ToString().ToCharArray() |> Array.rev))
                        |> Seq.tryHead
                        |> Option.map(fun y -> y*x))
    |> Seq.sortDescending
    |> Seq.head

palindromeSeq 999