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>