module _41

open common

let panDigital = 

//    let numListToBigint s =
//        s 
//        |> List.map string
//        |> List.fold (+) ""
//        |> bigint.Parse

    primeArray 7654321
    |> arrayToRevSeq
    |> Seq.filter isPanDigital