(defun query-hash (function hash)
  (let ((found-list ()))
    (maphash #'(lambda (key value)
		 (when (funcall function key value)
		   (setf found-list (append found-list (list key)))))
	     hash)
    found-list))