seq.fs

    /// Call all specified tasks sequentially one after the other and combine the results together.
    let seq (tasks: OrchestratorBuilder.ContextTask<'a> list) = 
        let rec work acc (rem : OrchestratorBuilder.ContextTask<'a> list) =
            match rem with
            | [] -> fun _ -> Task.FromResult (acc |> List.rev)
            | d :: rest -> orchestrator {
                let! t = d
                return! work (t::acc) rest
            }
        work [] tasks