local (adrsite = @user.websites.davenet)
local (ct = sizeof (adrsite^), i)
local (piececount = 0, charcount = 0)
for i = 1 to ct
local (adritem = @adrsite^ [i])
if typeof (adritem^) == tabletype
if sizeof (nameof (adritem^)) == 2
on visit (adr)
if typeof (adr^) == wptexttype
piececount = piececount + 1
charcount = charcount + sizeof (adr^)
msg (piececount + ": " + adr)
table.visit (adritem, @visit)
scratchpad.piececount = piececount
scratchpad.charcount = charcount
dialog.alert ("There are " + piececount + " pieces. A total of " + charcount + " characters.")