@prog sort-apt-floor.muf
1 9999 d
1 i
: main
	1 begin me @ location over intostr rmatch exit? while 1 + loop
	dup
	begin
		1 - dup 0 >
	while
		me @ location dup 3 pick intostr rmatch swap moveto
	loop
	pop me @ "Done 1-" rot 1 - intostr strcat "." strcat notify
;
.
c
q