(def-chan in i-want-string)
(def-chan out give-string)
(def-db db1)

(module FooBar
	(slots
		(on-want (string)
			(cond 	((= string "name")  (give "Bob"))
				((= string "color") (give "Red"))
				(t (for db1 (lambda (k v) (if (= k string) v '()))
					    '()
					    (lambda (v) (give v)))))))
	(signals
		(give (string))))
		
(let (fb (make FooBar))
	(connect i-want-string (slot fb 'on-want))
	(connect (signal fb 'give) give-string)
	(register fb))