alias viewhash {
echo -at Listing hashtable entries for $$1
var %w = $+(@,$1,@),%i = 1
window -hsl %w
while $hget($1,%i).item { aline %w [H] $v1 $1 $hget($1,%i).data | inc %i }
%i = 1
while $line(%w,%i) { echo -a $v1 | inc %i }
window -c %w
echo -at End Of List
}