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:       InputTransactionIndex: int
        ResponseScriptLength: int64
        ResponseScript: array<byte>
        SequenceNumber: int }
  
  let magicNumber = [| 0xf9uy; 0xbeuy; 0xb4uy; 0xd9uy; |]
  
  let readMessage (e: IEnumerator<'a>) =
      let number = take 4 e
  
negative.code:           InputTransactionIndex = inputTransactionIndex
            ResponseScriptLength = responseScriptLength
            ResponseScript = responseScript
            SequenceNumber = sequenceNumber
            NumberOfOutputs = numberOfOutputs
            Outputs = Array.ofList outputs }
  
      printfn "%A" block 
  
  