putSequence :: Sequence -> Put
putSequence (Sequence sequence') =
  Put.putWord32le sequence'
putSequence :: Sequence -> Put
putSequence (Sequence sequence') =
  Put.putWord32le sequence'
putSequence (Sequence sequence') =
  Put.putWord32le sequence'