Artifact Content
Not logged in

Artifact c6b0feca3819dbf7ce358a5a5e01b844ef4f3b42:


\ populate DHT test

require ../net2o.fs

"anonymous" >key \ get our anonymous key

pkc keysize >d#id

Variable $tag
: tag-word  name>string $tag $! s" :word" $tag $+!
    $tag $@ pkc keysize gen-tag k#tags d#value+ ;
now>never
forth-wordlist ' tag-word map-wordlist
pad $100000 $f0 d#values, 2drop