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.")