@prog air-zap.muf
1 999 d
1 i
: top #17719 ;
: parent #17780 ;
: main
	begin top exits dup while
		recycle
	loop
	pop
	0 parent contents begin dup while
		dup top dbcmp not if swap 1 + over then
		next
	loop
	pop
	begin dup 0 > while
		1 - swap recycle
	loop
	pop
	me @ "Done." notify
;
.
c
q