Vocabulary
bittorrent

Inputs
metainfoan object


Outputs
urlan object


Definition


: announce-url ( metainfo -- url )
dup "announce-list" of
[ nip first random ] [ "announce" of ] if* ;