@prog guest-ungive.muf
1 999 d
1 i
: moneyprop "@guest-given-$" ;
: main
	me @ dup moneyprop over over getpropstr -rot remove_prop
	atoi neg addpennies
;
.
c
q