Bit representation in Haskell