echo [adump]\n
define adump
	set $f=fsystemlist->next
	set $c=$f->class
	printf "fsystem %s\n", $f->dir
	while ($c != 0)
		printf " class %d (delta %d)\n", $c->pri, currenttime - $c->to
		set $g=$c->group
		while ($g != 0)
			printf "  group %s (delta %d)", \
			    $g->ngn, currenttime - $g->to
			if ($g->no == $g->nn + 1)
				printf " (no arts)"
			else
				printf " (%d ARTS)", $g->no - $g->nn
			end
			printf "\n"
			set $g=$g->next
		end
		set $c=$c->next
	end
end

echo [gdump]\n
define gdump
	set $g=grouplist
	while ($g != 0)
		printf "  group %s (delta %d) (dev %d)", \
		    $g->ngn, $g->dev, currenttime - $g->to
		if ($g->no == $g->nn + 1)
			printf " (no arts)"
		else
			printf " (%d ARTS)", $g->no - $g->nn
		end
		printf "\n"
		set $g=$g->next
	end
end
