bitmaps :: P.Vector Word16
bitmaps = P.fromListN 32768 $ sortBy (compare `on` popCount) [0..0x7fff]
bitmaps :: P.Vector Word16
bitmaps = P.fromListN 32768 $ sortBy (compare `on` popCount) [0..0x7fff]
bitmaps = P.fromListN 32768 $ sortBy (compare `on` popCount) [0..0x7fff]