bits :: Word16 -> Word8
bits = go 0 where
  go i 0 = i
  go i n = go (i + 1) (unsafeShiftR n 1)

bits :: Word16 -> Word8
bits = go 0 where
  go i 0 = i
  go i n = go (i + 1) (unsafeShiftR n 1)

bits = go 0 where
  go i 0 = i
  go i n = go (i + 1) (unsafeShiftR n 1)
