G>>let  isPrime64 value =
G>>    let isqrt64 n:int64 = n |> float |> sqrt |> int64 // определение верхней границы
G>>    seq { for a in 2L .. isqrt64 value do yield a} 
G>>    |> Seq.forall(fun checker -> value % checker <> 0L)
G>>