!import "base" !Local
!import "list" !Local

bytesNil? = emptyList?

bytesHead =
  matchList nothing (h _ : just h)

bytesTail =
  matchList nothing (_ r : just r)

bytesLength = length
bytesAppend = append
bytesTake = take
bytesDrop = drop
bytesSplitAt = splitAt
bytesEq? = equal?