define foldl, just in case
	modified:   database.scm