n = WScript.Arguments(0)
If n < 1 Then n = 1

Set hash1 = CreateObject("Scripting.Dictionary")
For i = 0 To 9999
    hash1.Add "foo_" & i, i
Next

Set hash2 = CreateObject("Scripting.Dictionary")
For i = 1 To N
    For Each k In hash1.Keys
        If Not hash2.Exists(k) Then
            hash2.Add k, 0
        End If
        hash2.Item(k) = hash2.Item(k) + hash1.Item(k)
    Next
Next

WScript.Echo hash1.Item("foo_1") & " " & hash1.Item("foo_9999") & " " & hash2.Item("foo_1") & " " & hash2.Item("foo_9999")