let ReadAndCalc (name)  =
    let linest =  File.ReadLines(name) |> Seq.toList
    let calc =   [for i in linest -> async { return  (integral ((coef (i)|>Seq.toList))  ((boards (i)).Head) ((boards(i)).Tail.Head))}]
    Async.RunSynchronously (Async.Parallel calc)