@prog fuzzy.muf
1 999 d
1 i
var obj
: main
	"a warm fuzzy" 1 create obj !
	obj @ prog "_fuzzy-desc" getpropstr setdesc
	1
	begin
		(n)
		dup intostr "_fuzzy-prop-" swap strcat
		(n propname)
		prog swap getpropstr
		(n propval)
		dup
	while
		(n propval)
		dup ":" instr
		(n propval colon-loc)
		dup 1 >= if
			(n propval colon-loc)
			1 - strcut 1 strcut swap pop
			(n name val)
			obj @ rot rot 0 addprop
		else
			pop pop
		then
		1 +
	loop
	pop pop
	obj @ "ownable" ("chown_ok") set
	"A warm fuzzy created as #" obj @ int intostr strcat me @ swap notify
;
.
c
q