transpose -base +bytestring

transpose :: [ByteString] -> [ByteString]
bytestring Data.ByteString, bytestring Data.ByteString.Char8, bytestring Data.ByteString.Lazy, bytestring Data.ByteString.Lazy.Char8
The transpose function transposes the rows and columns of its ByteString argument.