putInput :: TxInput -> Put
putInput txInput = do
  put (txInput^.utxo)
  putWithLength
    (putScript (txInput^.signatureScript))
  put $ txInput^.sequence
putInput :: TxInput -> Put
putInput txInput = do
  put (txInput^.utxo)
  putWithLength
    (putScript (txInput^.signatureScript))
  put $ txInput^.sequence
putInput txInput = do
  put (txInput^.utxo)
  putWithLength
    (putScript (txInput^.signatureScript))
  put $ txInput^.sequence