stupidReplicate :: Int -> Int -> B.Builder Int
stupidReplicate n a = go n where
  go 0 = mempty
  go n = B.singleton a `mappend` go (n-1)
stupidReplicate :: Int -> Int -> B.Builder Int
stupidReplicate n a = go n where
  go 0 = mempty
  go n = B.singleton a `mappend` go (n-1)
stupidReplicate n a = go n where
  go 0 = mempty
  go n = B.singleton a `mappend` go (n-1)