anchor.diff:      | x when x = 0xffuy -> int64 (bytesToInt32 bytes.[1 .. 8]), 9
       | _ -> failwith "unexpectedly large byte :)"
   
  +type Output =
  +    { Value: int64
  +      ChallengeScriptLength: int64
  +      ChallengeScript: array<byte> }
   
   type Block =
       { Version: int
  
positive.code:     let responseScriptLengthInt = int responseScriptLength // assume responseScriptLength will always fit into an int32
      let responseScript = bytesToProcess.[offSet .. offSet + responseScriptLengthInt] 
      let sequenceNumber = bytesToInt32 bytesToProcess.[offSet + responseScriptLengthInt + 1 .. offSet + responseScriptLengthInt + 3]
      let block =
          { Version = version
            Hash = hash
  
negative.code:           InputTransactionIndex = inputTransactionIndex
            ResponseScriptLength = responseScriptLength
            ResponseScript = responseScript
            SequenceNumber = sequenceNumber
            NumberOfOutputs = numberOfOutputs
            Outputs = Array.ofList outputs }
  
      printfn "%A" block 
  
  