(defun remove-short-lists (L)
	"Remove all membersof L that has length less than three."
	(if (null L)
		NIL
		(if (< (list-length (first L)) 3)
			(remove-short-lists (rest L))
			(cons (first L) (remove-short-lists (rest L))))))