Solution for bit fiddling
Fixed up bit positions, Haskell already supports this