     public typealias FinishingBlock = (ProcedureResult<Output>) -> Void
     public typealias Block = (@escaping FinishingBlock) -> Void
 
-    private let block: Block
+    public let block: Block
 
     public var output: Pending<ProcedureResult<Output>> = .pending
 

}

open class CancellableBlockProcedure: CancellableResultProcedure<Void> { }


    public var output: Pending<ProcedureResult<Output>> = .pending

    public let block: ThrowingOutputBlock

    public init(block: @escaping ThrowingOutputBlock) {
        self.block = block
