(defun movetofront(word lst)
	(cond
	((member word lst)
		(remove word lst))
	(T (cons word lst)))

 )