Почему этот код делится на ноль?

У меня есть небольшая программа на Haskell, и мне любопытно, почему при запуске возникает исключение деления на ноль (GHC 7.0.3)

import qualified Data.ByteString.Lazy as B
import Codec.Utils

convert :: B.ByteString -> [Octet]
convert bs = map (head . toTwosComp) $ B.unpack bs

main = putStrLn $ show $ convert $ B.pack [1, 2, 3, 4]

Кто-нибудь может мне помочь? понимаете, что здесь происходит?