range :: Counter -> Word
range = (-) <$> V.maximum <*> (V.minimum . V.filter (> 0))
range :: Counter -> Word
range = (-) <$> V.maximum <*> (V.minimum . V.filter (> 0))
range = (-) <$> V.maximum <*> (V.minimum . V.filter (> 0))