putOutput :: TxOutput -> Put
putOutput txOutput = do
  put (txOutput^.value)
  putWithLength
    (putScript (txOutput^.outputScript))
putOutput :: TxOutput -> Put
putOutput txOutput = do
  put (txOutput^.value)
  putWithLength
    (putScript (txOutput^.outputScript))
putOutput txOutput = do
  put (txOutput^.value)
  putWithLength
    (putScript (txOutput^.outputScript))