foldmap f = go
    where
      go !xs
        | null xs = mempty
        | otherwise = mappend gol gor
        where
          !gol = go left
          !gor = go right
          (left, right) = V.splitAt (V.length xs `div` 2) xs