 
     public var output: Pending<ProcedureResult<Output>> = .pending
 
-    private let block: ThrowingOutputBlock
+    public let block: ThrowingOutputBlock
 
     public init(block: @escaping ThrowingOutputBlock) {
         self.block = block

}

open class CancellableBlockProcedure: CancellableResultProcedure<Void> { }


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

    public let block: ThrowingCancellableOutputBlock

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