Create BitPositions.hs