: say ( s -- )
	me @ swap notify
;
: radio ( -- d )
	trigger @
;
: main ( s -- )
	"This is a small radio that receives FM and AM stations." say
	"The radio is currenly tuned to "
	radio "*freq" getpropstr strcat " " strcat
	radio "*band" getpropstr strcat " and turned " strcat
	radio "*on" prop-exists? if
		"on." else "off." then strcat say
	"Use 'tune <freq>' to tune radio (leave off FM or AM)." say
	"Use 'turn radio <on/off>' to do the appropriate thing." say
;