(for-each (lambda (x) 
	    ;;(compile-file x) 
	    (load (string-append x ".scm")))
	  '("../useful" "search-q" "search" "search-update"
			;;"puzzle"
			))